.define .mon

	.text

.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

.data
.add1:	.asciz "monitor call "
.add2:	.asciz " not implemented\n"
.align