1987-02-02 13:30:20 +00:00
|
|
|
.define pstrng
|
|
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-04-12 17:06:38 +00:00
|
|
|
|
|
|
|
|
|
1985-03-29 21:44:50 +00:00
|
|
|
! 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
|
1985-04-12 17:06:38 +00:00
|
|
|
call putchar
|
1985-03-29 21:44:50 +00:00
|
|
|
inc de
|
|
|
|
|
jr 1b
|
|
|
|
|
2: pop af
|
|
|
|
|
ret
|
