Pristine Ack-5.5
[Ack-5.5.git] / mach / ns / libmon / libmon_s.a
1 e˙mon.s\0\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2¤\ 1\0\0¸\ 2.define .mon
2 .sect .text
3 .sect .rom
4 .sect .data
5 .sect .bss
6 .sect .text
7
8         .sect .text
9
10 .mon:   
11         cmpd 1,4(sp)
12         beq 1f
13         cmpd 3,4(sp)
14         beq 3f
15         cmpd 4,4(sp)
16         beq 4f
17         cmpd 54,4(sp)
18         beq 5f
19
20         movd .add1, tos
21         jsr @.prstr
22         movd 4(sp), tos
23         jsr @.print
24         movd .add2, tos
25         jsr @.prstr
26         ret 4
27
28 1:      jump @.stop
29
30 3:      save [r0,r1,r2,r3]
31         movd 3,r0
32         movd 28(sp),r1
33         movd 32(sp),r2
34         movd 0,r3
35         svc
36         movd r2, 32(sp)
37         movd 0,28(sp)
38         restore [r0,r1,r2,r3]
39         ret 8
40
41 4:      save [r0,r1,r2,r3]
42         movd 4,r0
43         movd 28(sp),r1
44         movd 32(sp),r2
45         movd 0,r3
46         svc
47         movd r2, 32(sp)
48         movd 0,28(sp)
49         restore [r0,r1,r2,r3]
50         ret 8
51
52 5:      movd 0, 16(sp)
53         ret 12
54
55 .sect .data
56 .add1:  .asciz "monitor call "
57 .add2:  .asciz " not implemented\n"
58 .align