ack/mach/z80/libmon/putchr.s
1985-04-01 14:44:26 +00:00

22 lines
171 B
ArmAsm

.define putchr
putchr:
push hl
push de
push bc
cp 0x0A
jr nz,1f
ld a,0x1F
1:
ld c,a
2:
in a,0xF1
and 4
jr z,2b
ld a,c
out 0xF0,a
pop bc
pop de
pop hl
ret