1985-07-26 11:56:24 +00:00
|
|
|
.define .prstr
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
|
|
|
|
!het adres van de af te drukken string staat op de stack.
|
|
|
|
|
.prstr:
|
|
|
|
|
save [r1]
|
|
|
|
|
movd 8(sp), r1
|
|
|
|
|
1:
|
|
|
|
|
cmpqb 0, 0(r1)
|
|
|
|
|
beq 2f
|
|
|
|
|
movb 0(r1), tos
|
|
|
|
|
jsr @.putchar
|
|
|
|
|
addqd 1, r1
|
|
|
|
|
br 1b
|
|
|
|
|
2:
|
|
|
|
|
restore [r1]
|
|
|
|
|
ret 4
|
