ack/mach/i80/libmon/prstring.s

19 lines
266 B
ArmAsm
Raw Normal View History

1985-03-18 12:46:51 +00:00
.define prstring
! print a string of characters to the console
! entry: de-reg points to the string
! string terminator is 0x00
! exit: de-reg points to string terminator
prstring:
push psw
1: ldax d
ora a
jz 2f
call putchar
inx d
jmp 1b
2: pop psw
ret