arduino: console.s@5254ba612630 (annotated)

9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	1	.nolist
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	2	.include "m168def.inc" ; Same family as 328P
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	3	.list
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	4
18 79b25e81721f use timer for 1s delay Tero Marttila <terom@fixme.fi> parents: 14 diff changeset	5	.include "macros.inc"
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	6
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	7	;; Load a 16-bit word address into the given register a a byte address
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	8	.macro loadp_16_i
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	9	ldi @0, high(2 * @2)
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	10	ldi @1, low(2 * @2)
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	11	.endm
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	12
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	13	.macro load_16_i
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	14	ldi @0, high(@2)
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	15	ldi @1, low(@2)
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	16	.endm
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	17
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	18	;; Data
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	19	.dseg
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	20	buffer: .byte 0
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	21
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	22	;; Interrupt Vector
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	23	.cseg
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	24	.org 0x0000
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	25	rjmp Main
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	26
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	27	;; Libraries
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	28	.include "div.inc" ; Division routines
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	29
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	30	;; Serial
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	31	.set SERIAL_BAUD = 103 ; 9.6k @ 16Mhz
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	32
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	33	;; Initialize the UART for
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	34	Serial_Init:
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	35	; Set up control registers
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	36	; Single-speed
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	37	poke [UCSR0A, r16, (0 << U2X0)]
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	38
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	39	; Async
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	40	; n parity
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	41	; 1 stop
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	42	; 8 bits
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	43	poke [UCSR0C, r16, (0b00 << UMSEL00) \| (0b00 << UPM00) \| (0 << USBS0) \| (0b11 << UCSZ00)]
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	44
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	45	; Baud rate
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	46	poke [UBRR0L, r16:r17, SERIAL_BAUD]
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	47
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	48	; Enable RX
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	49	; Enable TX
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	50	; 8 bits
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	51	poke [UCSR0B, r16, (1 << RXEN0) \| (1 << TXEN0) \| (0 << UCSZ02)]
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	52
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	53	; Done
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	54	ret
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	55
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	56	;; Send a single byte on serial port
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	57	; Input byte in r16
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	58	Serial_Send:
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	59	; Wait for idle
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	60	lds r0, UCSR0A
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	61	sbrs r0, UDRE0
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	62	rjmp Serial_Send
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	63
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	64	; Copy byte to buffer
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	65	sts UDR0, r16
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	66
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	67	; Done
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	68	ret
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	69
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	70	;; Read a single byte from serial port
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	71	; Output byte in r16
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	72	Serial_Recv:
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	73	; Wait for recv
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	74	lds r0, UCSR0A
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	75	sbrs r0, RXC0
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	76	rjmp Serial_Recv
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	77
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	78	; Copy byte from buffer
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	79	lds r16, UDR0
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	80
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	81	; Done
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	82	ret
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	83
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	84	;; Write nul-terminated string from program mem to serial port
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	85	; Input string in Z
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	86	Serial_pprint:
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	87	; Load byte to r16
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	88	lpm r16, Z+
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	89
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	90	; Quit if nul
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	91	tst r16
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	92	breq _serial_pprint_end
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	93
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	94	; Write it
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	95	rcall Serial_Send
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	96
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	97	; Continue
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	98	rjmp Serial_pprint
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	99
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	100	_serial_pprint_end:
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	101	ret
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	102
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	103	;; Write nul-terminated string from sram and \r\n to serial port
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	104	; Input string in Z
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	105	Serial_sprintln:
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	106	; Load byte to r16
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	107	ld r16, Z+
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	108
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	109	; Quit if nul
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	110	tst r16
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	111	breq _serial_sprintln_end
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	112
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	113	; Write it
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	114	rcall Serial_Send
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	115
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	116	; Continue
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	117	rjmp Serial_sprintln
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	118
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	119	_serial_sprintln_end:
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	120	; \r\n
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	121	ldi r16, 13
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	122	rcall Serial_Send
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	123	ldi r16, 10
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	124	rcall Serial_Send
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	125
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	126	; Done
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	127	ret
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	128
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	129	;; Write char to serial port
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	130	; Input byte in r16
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	131	Serial_bprint:
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	132	; ASCII offset for '0'
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	133	ldi r17, 48
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	134	mov r4, r17
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	135
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	136	; Convert
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	137	ldi r17, 100
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	138	call div8u
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	139	add r16, r4
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	140	rcall Serial_Send
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	141	mov r16, r15
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	142
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	143	ldi r17, 10
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	144	call div8u
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	145	add r16, r4
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	146	rcall Serial_Send
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	147	mov r16, r15
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	148
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	149	add r16, r4
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	150	rcall Serial_Send
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	151
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	152	ret
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	153
9 30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	154	;; Program
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	155	message: .db "Hello World", 13, 10, 0
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	156
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	157	Main:
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	158	; Initialization
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	159	; Stack
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	160	poke [SPL, r16:r17, RAMEND]
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	161
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	162	; Enable interrupts
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	163	sei
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	164
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	165	; Init
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	166	rcall Serial_Init
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	167
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	168	; Main program
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	169	ldi ZH, high(message * 2)
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	170	ldi ZL, low(message * 2)
30c3807baac1 serial console Tero Marttila <terom@fixme.fi> parents: diff changeset	171
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	172	rcall Serial_pprint
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	173
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	174	; Echo out
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	175	sbi DDRB, PORTB5
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	176	ldi r20, 0
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	177	ldi r21, 0
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	178	ldi r22, 0
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	179
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	180	; pointer to memory buffer
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	181	ldi XH, high(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	182	ldi XL, low(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	183
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	184	st X, r22 ; '\0'
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	185
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	186	Main_Echo:
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	187	; blink LED
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	188	out PORTB, r20
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	189
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	190	; read
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	191	rcall Serial_Recv
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	192	push r16
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	193
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	194	; display
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	195	rcall Serial_bprint
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	196	ldi r16, 32
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	197	rcall Serial_Send
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	198
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	199	pop r16
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	200
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	201	; test for control chars
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	202	cpi r16, 127 ; DEL
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	203	breq backspace
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	204
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	205	cpi r16, 13 ; '\r'
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	206	breq cr
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	207
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	208	cpi r16, 10 ; '\n'
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	209	breq Main_Echo ; ignore
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	210
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	211	rjmp char ; buffer char
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	212
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	213	; Erase last char
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	214	backspace:
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	215	; ignore if already at zero
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	216	cpi XL, low(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	217	ldi r23, high(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	218	cpc XH, r23
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	219	breq echo
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	220
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	221	; use pre-decrement to store nul
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	222	st -X, r22 ; '\0'
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	223
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	224	rjmp echo
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	225
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	226	; Erase line
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	227	cr:
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	228	; seek to start
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	229	ldi XH, high(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	230	ldi XL, low(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	231
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	232	; store nul
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	233	st X, r22 ; '\0'
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	234
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	235	rjmp echo
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	236
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	237	char:
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	238	; buffer char
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	239	st X+, r16
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	240	st X, r22 ; '\0'
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	241
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	242	echo:
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	243	; running counter
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	244	inc r21
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	245	mov r16, r21
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	246	rcall Serial_bprint
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	247
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	248	; ' '
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	249	ldi r16, 32
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	250	rcall Serial_Send
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	251
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	252	; length
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	253	mov r16, XL
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	254	rcall Serial_bprint
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	255
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	256	; ' '
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	257	ldi r16, 32
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	258	rcall Serial_Send
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	259
14 1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	260	; output buffer
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	261	ldi ZH, high(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	262	ldi ZL, low(buffer)
1ebd5fc73d86 a weird interactive console... Tero Marttila <terom@fixme.fi> parents: 13 diff changeset	263	rcall Serial_sprintln
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	264
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	265	; toggle
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	266	com r20
13 a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	267
a18180e37d57 Serial_Write_c + use in main Tero Marttila <terom@fixme.fi> parents: 11 diff changeset	268	; continue
11 49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	269	rjmp Main_Echo
49c5eeee4cb7 Echo after greeting Tero Marttila <terom@fixme.fi> parents: 9 diff changeset	270

author	Tero Marttila <terom@paivola.fi>
	Sun, 20 Apr 2014 23:51:57 +0300
changeset 80	5254ba612630
parent 18	79b25e81721f
permissions	-rw-r--r--