Pristine Ack-5.5
[Ack-5.5.git] / mach / ns / libmon / head_em.s
1 .define hol0,argv,.reghp,.limhp,envp,begbss
2 .define WRITE
3 .define .ignmask, .trpreg
4 .define .stop, BRK
5 .define ERANGE,EILLINS,ECASE
6 .sect .text
7 .sect .rom
8 .sect .data
9 .sect .bss
10 .sect .text
11
12 topmem  = 0xFFFFFF
13
14 ERANGE  = 1
15 EILLINS = 18
16 ECASE   = 20
17
18         .sect .text
19
20         movd begbss, r7
21         movd endbss, r6
22 1:
23         movqd 0, 0(r7)
24         addqd 4, r7
25         cmpd r6,r7
26         bgt 1b
27
28         movd envp,tos
29         movd argv,tos
30         movd 1,tos
31         jsr @__m_a_i_n
32 .stop:
33         movb 0x7f,tos
34         jsr @.putchar
35         bpt
36
37 BRK:
38         movd    0,r0
39         ret     0
40
41 WRITE:  jump    @__write
42
43 .sect .bss
44 begbss:
45 .sect .data
46 hol0:
47         .data4 0
48         .data4 0
49 argv:
50         .data4 3f
51 envp:
52         .data4 0
53 3:
54         .asciz 'PROGRAM'
55 .reghp:
56         .data4 endbss
57 .limhp:
58         .data4 endbss
59 .ignmask:
60         .data2 0
61 .trpreg:
62         .data4 0