Pristine Ack-5.5
[Ack-5.5.git] / mach / pmds4 / libsys / head_em.s
1 .define CERASE,CKILL,CSTOP,CSTART
2 .define .lino,.filn
3 .define F_DUM,EXIT,WRITE,BRK
4 .define begtext,begdata,begbss
5 .define EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
6 .define hol0,.reghp,.limhp,.trpim,.trppc
7 .define LINO_AD,FILN_AD
8 .sect .text
9 .sect .rom
10 .sect .data
11 .sect .bss
12 .sect .text
13
14
15
16
17 CERASE  = 010
18 CKILL   = 030
19 CSTART  = 021
20 CSTOP   = 023
21 F_DUM   = 0
22
23
24 LINO_AD = 0
25 FILN_AD = 4
26
27 EARRAY  = 0
28 ERANGE  = 1
29 ESET    = 2
30 EIDIVZ  = 6
31 EHEAP   = 17
32 EILLINS = 18
33 ECASE   = 20
34
35         .sect .text
36 begtext:
37         jsr     __m_a_i_n
38         add     #012,sp
39 EXIT:
40
41         move.l  d0,-(sp)
42         jsr __exit
43         ! As a temporary measure
44         jsr .trp
45         
46 WRITE:  jmp     __write
47
48 BRK:    jmp     __brk
49
50         .sect .data
51 begdata:
52 hol0:
53 .lino:
54         .data4  0       ! lino
55 .filn:
56         .data4  0       ! filn
57 .reghp:
58         .data4  endbss
59 .limhp:
60         .data4  endbss
61 .trppc:
62         .data4  0
63 .trpim:
64         .data4  0       ! was short
65
66
67         .sect .bss
68 begbss: