mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-17 00:32:52 +00:00
54 lines
670 B
Plaintext
54 lines
670 B
Plaintext
.mcall (at) always
|
|
.globl $write
|
|
|
|
.globl ndebug,sdebug, ..z,..zbuf
|
|
.globl savreg,dnc
|
|
.globl xx.flg
|
|
always
|
|
|
|
xitsec
|
|
sdebug:
|
|
call savreg
|
|
mov r0,-(sp)
|
|
|
|
mov #..s,r2
|
|
mov ..z,r3
|
|
mov #2,r0
|
|
1$: movb (r3)+,(r2)+
|
|
beq 2$
|
|
inc r0
|
|
br 1$
|
|
2$:
|
|
movb #12,(r2)
|
|
mov r0,..n
|
|
ddd:
|
|
tst xx.flg
|
|
beq 100$
|
|
mov ..n,-(sp) ;write(2, ..s, ..n)
|
|
mov #..s,-(sp)
|
|
mov #2,-(sp)
|
|
tst -(sp) ;simulate return address stack spacing
|
|
$write
|
|
add #8.,sp ;toss syscall cruft
|
|
100$:
|
|
mov (sp)+,r0
|
|
return
|
|
ndebug:
|
|
call savreg
|
|
mov r0,-(sp)
|
|
mov #..s,r2
|
|
mov ..z,r1
|
|
call dnc
|
|
movb #12,(r2)+
|
|
mov r2,..n
|
|
sub #..s,..n
|
|
br ddd
|
|
|
|
entsec mixed
|
|
..n: .blkw
|
|
..z: .word
|
|
..s: .blkw 100
|
|
..zbuf: .blkw 100
|
|
|
|
.end
|