1985-07-26 11:56:24 +00:00
|
|
|
.define .mon
|
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
|
|
|
|
|
|
|
|
.mon:
|
|
|
|
|
cmpd 1,4(sp)
|
|
|
|
|
beq 1f
|
|
|
|
|
cmpd 3,4(sp)
|
|
|
|
|
beq 3f
|
|
|
|
|
cmpd 4,4(sp)
|
|
|
|
|
beq 4f
|
|
|
|
|
cmpd 54,4(sp)
|
|
|
|
|
beq 5f
|
|
|
|
|
|
|
|
|
|
movd .add1, tos
|
|
|
|
|
jsr @.prstr
|
|
|
|
|
movd 4(sp), tos
|
|
|
|
|
jsr @.print
|
|
|
|
|
movd .add2, tos
|
|
|
|
|
jsr @.prstr
|
|
|
|
|
ret 4
|
|
|
|
|
|
|
|
|
|
1: jump @.stop
|
|
|
|
|
|
|
|
|
|
3: save [r0,r1,r2,r3]
|
|
|
|
|
movd 3,r0
|
|
|
|
|
movd 28(sp),r1
|
|
|
|
|
movd 32(sp),r2
|
|
|
|
|
movd 0,r3
|
|
|
|
|
svc
|
|
|
|
|
movd r2, 32(sp)
|
|
|
|
|
movd 0,28(sp)
|
|
|
|
|
restore [r0,r1,r2,r3]
|
|
|
|
|
ret 8
|
|
|
|
|
|
|
|
|
|
4: save [r0,r1,r2,r3]
|
|
|
|
|
movd 4,r0
|
|
|
|
|
movd 28(sp),r1
|
|
|
|
|
movd 32(sp),r2
|
|
|
|
|
movd 0,r3
|
|
|
|
|
svc
|
|
|
|
|
movd r2, 32(sp)
|
|
|
|
|
movd 0,28(sp)
|
|
|
|
|
restore [r0,r1,r2,r3]
|
|
|
|
|
ret 8
|
|
|
|
|
|
|
|
|
|
5: movd 0, 16(sp)
|
|
|
|
|
ret 12
|
|
|
|
|
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .data
|
1985-07-26 11:56:24 +00:00
|
|
|
.add1: .asciz "monitor call "
|
|
|
|
|
.add2: .asciz " not implemented\n"
|
|
|
|
|
.align
|
