ack/mach/z80/libem/pstrng.s
1987-02-02 13:30:20 +00:00

22 lines
307 B
ArmAsm

.define pstrng
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
! 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