Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/misc/c680.s
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

12 lines
360 B
ArmAsm

* Initial start up for programs on Regulus, loaded at location 0 of
* program.
.globl _main,_exit,_environ
ori.b #0,d0 // 0 at 0 changed 29 Aug 1983
move.l 6(sp),_environ //save ptr to environment block
jsr _main //call main routine
move #0,-(sp) //do an exit(0)
jsr _exit
.bss
_environ: .ds 4 //four bytes for ptr
.end