+
+
.define pstrng
! print a string of characters to the console
! entry: DE points to string
1: ld a,(de)
or a
jr z,2f
- call putchr
+ call putchar
inc de
jr 1b
2: pop af
@echo Warning: untested, this is an example
arch cr tail.cpm mon.cpm.s
-tail.nascom: mon.s putchr.nas.s
- arch cr tail.nascom mon.s putchr.nas.s
+tail.nascom: mon.s char.nas.s
+ arch cr tail.nascom mon.s char.nas.s
tail.hermac: mon.s char.her.s
arch cr tail.hermac mon.s char.her.s
make pr | opr
pr:
@pr `pwd`/Makefile `pwd`/head_em.s
- @pr `pwd`/subr.s `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/putchr.s `pwd`/putchr.nas.s `pwd`/char.her.s
+ @pr `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/char.nas.s `pwd`/char.her.s
@echo Warning: untested, this is an example
arch cr tail.cpm mon.cpm.s
-tail.nascom: mon.s putchr.nas.s
- arch cr tail.nascom mon.s putchr.nas.s
+tail.nascom: mon.s char.nas.s
+ arch cr tail.nascom mon.s char.nas.s
tail.hermac: mon.s char.her.s
arch cr tail.hermac mon.s char.her.s
make pr | opr
pr:
@pr `pwd`/Makefile `pwd`/head_em.s
- @pr `pwd`/subr.s `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/putchr.s `pwd`/putchr.nas.s `pwd`/char.her.s
+ @pr `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/char.nas.s `pwd`/char.her.s