ack/mach/z80/libem/pstrng.s
1985-04-12 17:06:38 +00:00

17 lines
249 B
ArmAsm

.define pstrng
! print a string of characters to the console
! entry: DE points to string
! string terminator is 0x00
! exit: DE points to string terminator
pstrng: push af
1: ld a,(de)
or a
jr z,2f
call putchar
inc de
jr 1b
2: pop af
ret