ARP responder
[fpgaboy.git] / serial.inc
1 PUTC: MACRO
2         ld a, \1
3         call putc
4         ENDM
5
6 PUTS: MACRO
7         ld hl, \1
8         call puts
9         ENDM
10
11 PUTSI: MACRO
12         push hl
13         call putsi
14         db \1, 0
15         pop hl
16         ENDM
17
18 PUTSIL: MACRO
19         push hl
20         call putsi
21         db \1, 13, 10, 0
22         pop hl
23         ENDM
24
25 PUTHEX: MACRO
26         ld a, \1
27         call puthex
28         ENDM
29
30         SECTION "serial", HOME
31
32 putc:
33         push af
34 .waitport:
35         ld a,[$FF53]
36         and $01
37         jr nz,.waitport
38         pop af
39         ld [$FF52],a
40         ret
41
42 puts:
43         ld a, [hli]
44         cp $00
45         ret z
46         call putc
47         jr puts
48
49 EX_SP_HL: MACRO
50         push de
51         di
52         add sp, 2
53         pop de
54         push hl
55         ld l, e
56         ld h, d
57         add sp, -2
58         ei
59         pop de
60         ENDM
61
62 putsi:
63         pop hl
64         push af
65         push bc
66         push de
67 .lp:    ld a, [hli]
68         or a
69         jr z, .done
70         call putc
71         jr .lp
72 .done:  pop de
73         pop bc
74         pop af
75         push hl
76         ret
77
78 puthex:                         ; Put two hex nibbles to the serial console.
79         push bc
80         push hl
81         push af
82         swap a
83         and $0F
84         ld hl,hex
85         ld b,0
86         ld c,a
87         add hl,bc
88         ld a, [hl]
89         call putc
90         pop af
91         and $0F
92         ld hl,hex
93         ld c,a
94         add hl,bc
95         ld a, [hl]
96         call putc
97         pop hl
98         pop bc
99         ret
100 hex:    db "0123456789ABCDEF"
This page took 0.025124 seconds and 4 git commands to generate.