1985-01-07 15:43:50 +00:00
|
|
|
.define .lino,.filn
|
1992-06-30 16:04:38 +00:00
|
|
|
.define EXIT,WRITE,BRK
|
1985-01-07 15:43:50 +00:00
|
|
|
.define begtext,begdata,begbss
|
|
|
|
|
.define EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
|
|
|
|
|
.define hol0,.reghp,.limhp,.trpim,.trppc
|
|
|
|
|
.define LINO_AD,FILN_AD
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
|
|
|
|
|
|
|
|
|
|
1985-01-07 15:43:50 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
LINO_AD = 0
|
|
|
|
|
FILN_AD = 4
|
|
|
|
|
|
|
|
|
|
EARRAY = 0
|
|
|
|
|
ERANGE = 1
|
|
|
|
|
ESET = 2
|
|
|
|
|
EIDIVZ = 6
|
|
|
|
|
EHEAP = 17
|
|
|
|
|
EILLINS = 18
|
|
|
|
|
ECASE = 20
|
|
|
|
|
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .text
|
1985-01-07 15:43:50 +00:00
|
|
|
begtext:
|
|
|
|
|
add.l #2,sp !convert argc from 4-byte to 2-byte
|
1991-03-06 14:26:16 +00:00
|
|
|
jsr __m_a_i_n
|
1985-01-07 15:43:50 +00:00
|
|
|
add #010,sp
|
|
|
|
|
EXIT:
|
1987-03-03 11:11:39 +00:00
|
|
|
move.w d0,-(sp)
|
1987-03-03 11:22:29 +00:00
|
|
|
jsr __exit
|
1985-01-07 15:43:50 +00:00
|
|
|
|
1992-06-30 16:04:38 +00:00
|
|
|
WRITE: jmp __write
|
|
|
|
|
|
|
|
|
|
BRK: jmp __brk
|
|
|
|
|
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .data
|
1985-01-07 15:43:50 +00:00
|
|
|
begdata:
|
|
|
|
|
hol0:
|
|
|
|
|
.lino:
|
1987-01-27 20:37:46 +00:00
|
|
|
.data2 0,0 ! lino
|
1985-01-07 15:43:50 +00:00
|
|
|
.filn:
|
1987-01-27 20:37:46 +00:00
|
|
|
.data4 0 ! filn
|
1985-01-07 15:43:50 +00:00
|
|
|
.reghp:
|
1987-01-27 20:37:46 +00:00
|
|
|
.data4 endbss
|
1985-01-07 15:43:50 +00:00
|
|
|
.limhp:
|
1987-01-27 20:37:46 +00:00
|
|
|
.data4 endbss
|
1985-01-07 15:43:50 +00:00
|
|
|
.trppc:
|
1987-01-27 20:37:46 +00:00
|
|
|
.data4 0
|
1985-01-07 15:43:50 +00:00
|
|
|
.trpim:
|
1987-01-27 20:37:46 +00:00
|
|
|
.data2 0
|
1985-01-07 15:43:50 +00:00
|
|
|
|
|
|
|
|
|
1987-01-27 20:37:46 +00:00
|
|
|
.sect .bss
|
1985-01-07 15:43:50 +00:00
|
|
|
begbss:
|
