[fpgaboy.git] / serial.inc

PUTC: MACRO
	ld a, \1
	call putc
	ENDM

PUTS: MACRO
	ld hl, \1
	call puts
	ENDM

PUTSI: MACRO
	push hl
	call putsi
	db \1, 0
	pop hl
	ENDM

PUTSIL: MACRO
	push hl
	call putsi
	db \1, 13, 10, 0
	pop hl
	ENDM

PUTHEX: MACRO
	ld a, \1
	call puthex
	ENDM

	SECTION "serial", HOME

putc:
	push af
.waitport:
	ld a,[$FF53]
	and $01
	jr nz,.waitport
	pop af
	ld [$FF52],a
	ret

puts:
	ld a, [hli]
	cp $00
	ret z
	call putc
	jr puts

EX_SP_HL: MACRO
	push de
	di
	add sp, 2
	pop de
	push hl
	ld l, e
	ld h, d
	add sp, -2
	ei
	pop de
	ENDM

putsi:
	pop hl
	push af
	push bc
	push de
.lp:	ld a, [hli]
	or a
	jr z, .done
	call putc
	jr .lp
.done:	pop de
	pop bc
	pop af
	push hl
	ret

puthex:				; Put two hex nibbles to the serial console.
	push bc
	push hl
	push af
	swap a
	and $0F
	ld hl,hex
	ld b,0
	ld c,a
	add hl,bc
	ld a, [hl]
	call putc
	pop af
	and $0F
	ld hl,hex
	ld c,a
	add hl,bc
	ld a, [hl]
	call putc
	pop hl
	pop bc
	ret
hex:	db "0123456789ABCDEF"
Commit	Line	Data
3a0bde75 JW	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"