Initial revision

mach/ns/libem/mon.s

@@ -0,0 +1,53 @@
+.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