console.s
author Tero Marttila <terom@paivola.fi>
Thu, 03 Apr 2014 19:44:13 +0300
changeset 51 ec6271f0637b
parent 18 79b25e81721f
permissions -rw-r--r--
make: fix build-deps, and avr-objdump -d build/src/hello.elf

build/src/hello.elf: file format elf32-avr


Disassembly of section .text:

00000000 <__vectors>:
0: 0c 94 34 00 jmp 0x68 ; 0x68 <__ctors_end>
4: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
8: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
10: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
14: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
18: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
1c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
20: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
24: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
28: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
2c: 0c 94 58 00 jmp 0xb0 ; 0xb0 <__vector_11>
30: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
34: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
38: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
3c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
40: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
44: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
48: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
4c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
50: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
54: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
58: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
5c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
60: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
64: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>

00000068 <__ctors_end>:
68: 11 24 eor r1, r1
6a: 1f be out 0x3f, r1 ; 63
6c: cf ef ldi r28, 0xFF ; 255
6e: d8 e0 ldi r29, 0x08 ; 8
70: de bf out 0x3e, r29 ; 62
72: cd bf out 0x3d, r28 ; 61
74: 0e 94 90 00 call 0x120 ; 0x120 <main>
78: 0c 94 a3 00 jmp 0x146 ; 0x146 <_exit>

0000007c <__bad_interrupt>:
7c: 0c 94 00 00 jmp 0 ; 0x0 <__vectors>

00000080 <timer_init>:
80: 10 92 80 00 sts 0x0080, r1
84: 88 e0 ldi r24, 0x08 ; 8
86: 80 93 81 00 sts 0x0081, r24
8a: 10 92 82 00 sts 0x0082, r1
8e: 08 95 ret

00000090 <timer1_start>:
90: 10 92 85 00 sts 0x0085, r1
94: 10 92 84 00 sts 0x0084, r1
98: 90 93 89 00 sts 0x0089, r25
9c: 80 93 88 00 sts 0x0088, r24
a0: f1 9a sbi 0x1e, 1 ; 30
a2: 82 e0 ldi r24, 0x02 ; 2
a4: 80 93 6f 00 sts 0x006F, r24
a8: 8d e0 ldi r24, 0x0D ; 13
aa: 80 93 81 00 sts 0x0081, r24
ae: 08 95 ret

000000b0 <__vector_11>:
b0: 1f 92 push r1
b2: 0f 92 push r0
b4: 0f b6 in r0, 0x3f ; 63
b6: 0f 92 push r0
b8: 11 24 eor r1, r1
ba: 10 92 81 00 sts 0x0081, r1
be: f1 98 cbi 0x1e, 1 ; 30
c0: 0f 90 pop r0
c2: 0f be out 0x3f, r0 ; 63
c4: 0f 90 pop r0
c6: 1f 90 pop r1
c8: 18 95 reti

000000ca <timer_sleep>:
ca: 0e 94 48 00 call 0x90 ; 0x90 <timer1_start>
ce: 81 e0 ldi r24, 0x01 ; 1
d0: 83 bf out 0x33, r24 ; 51
d2: 01 c0 rjmp .+2 ; 0xd6 <timer_sleep+0xc>
d4: 88 95 sleep
d6: 8e b3 in r24, 0x1e ; 30
d8: 81 fd sbrc r24, 1
da: fc cf rjmp .-8 ; 0xd4 <timer_sleep+0xa>
dc: 13 be out 0x33, r1 ; 51
de: 08 95 ret

000000e0 <serial_init>:
e0: 10 92 c0 00 sts 0x00C0, r1
e4: 10 92 c1 00 sts 0x00C1, r1
e8: 86 e0 ldi r24, 0x06 ; 6
ea: 80 93 c2 00 sts 0x00C2, r24
ee: 87 e6 ldi r24, 0x67 ; 103
f0: 90 e0 ldi r25, 0x00 ; 0
f2: 90 93 c5 00 sts 0x00C5, r25
f6: 80 93 c4 00 sts 0x00C4, r24
fa: 08 95 ret

000000fc <serial_enable>:
fc: 88 e1 ldi r24, 0x18 ; 24
fe: 80 93 c1 00 sts 0x00C1, r24
102: 08 95 ret

00000104 <serial_read>:
104: 80 91 c0 00 lds r24, 0x00C0
108: 87 ff sbrs r24, 7
10a: fc cf rjmp .-8 ; 0x104 <serial_read>
10c: 80 91 c6 00 lds r24, 0x00C6
110: 08 95 ret

00000112 <serial_write>:
112: 90 91 c0 00 lds r25, 0x00C0
116: 95 ff sbrs r25, 5
118: fc cf rjmp .-8 ; 0x112 <serial_write>
11a: 80 93 c6 00 sts 0x00C6, r24
11e: 08 95 ret

00000120 <main>:
120: 1f 93 push r17
122: 0e 94 40 00 call 0x80 ; 0x80 <timer_init>
126: 0e 94 70 00 call 0xe0 ; 0xe0 <serial_init>
12a: 25 9a sbi 0x04, 5 ; 4
12c: 0e 94 7e 00 call 0xfc ; 0xfc <serial_enable>
130: 78 94 sei
132: 88 e5 ldi r24, 0x58 ; 88
134: 10 e2 ldi r17, 0x20 ; 32
136: 0e 94 89 00 call 0x112 ; 0x112 <serial_write>
13a: 85 b1 in r24, 0x05 ; 5
13c: 81 27 eor r24, r17
13e: 85 b9 out 0x05, r24 ; 5
140: 0e 94 82 00 call 0x104 ; 0x104 <serial_read>
144: f8 cf rjmp .-16 ; 0x136 <main+0x16>

00000146 <_exit>:
146: f8 94 cli

00000148 <__stop_program>:
148: ff cf rjmp .-2 ; 0x148 <__stop_program>
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