d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

adapted to new assembler syntax

Browse source
This commit is contained in:
ceriel 1987-01-21 15:21:49 +00:00
parent 959800d9b5
commit 9acc354608
1 changed files with 19 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
mach/m68k4/libsys/head_em.s
View file

@ -1,15 +1,16 @@
.define .lino,.filn
.define F_DUM,EXIT
.define EXIT
.define begtext,begdata,begbss
.define EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
.define EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE,EBADGTO
.define hol0,.reghp,.limhp,.trpim,.trppc
.define LINO_AD,FILN_AD
.sect .text
.sect .rom
.sect .data
.sect .bss
! m68k4 runtime start-off for the Bleasdale 68000 system
F_DUM = 0
! EM runtime start-off for the Bleasdale 68000 system
LINO_AD = 0
@ -22,9 +23,9 @@ EIDIVZ = 6
EHEAP = 17
EILLINS = 18
ECASE = 20
EBADGTO = 27
.base 0x20000
.text
.sect .text
begtext:
! Bleasdale puts the argument and environment vectors
! themselves on top of the stack, instead of POINTERS
@ -49,33 +50,27 @@ begtext:
! Now the stack contains an argc (4 bytes), argv-pointer and
! envp pointer.
pea endbss
jsr _brk
add.l #4,sp
jsr _m_a_i_n
add #012,sp
EXIT:
jsr __exit
! As a temporary measure
jsr .trp
.data
.sect .data
begdata:
hol0:
.lino:
.long 0 ! lino
.data4 0 ! lino
.filn:
.long 0 ! filn
.data4 0 ! filn
.reghp:
.long endbss
.data4 endbss
.limhp:
.long endbss
.data4 endbss
.trppc:
.long 0
.data4 0
.trpim:
.long 0 ! was short
.data4 0
.bss
begbss:
.sect .bss
begbss: !initialization is not needed because ALL entries are in zero space!