mirror of
https://github.com/digarok/gslib.git
synced 2024-09-15 12:56:33 +00:00
27 lines
637 B
ArmAsm
27 lines
637 B
ArmAsm
****************************************
|
|
* Quit16 *
|
|
* *
|
|
* Dagen Brock <dagenbrock@gmail.com> *
|
|
* 2013-06-10 *
|
|
****************************************
|
|
|
|
rel ; compile as relocatable code
|
|
dsk Quit16.l ; Save Name
|
|
|
|
phk ; Set Data Bank to Program Bank
|
|
plb ; Always do this first!
|
|
|
|
jsl $E100A8 ; Prodos 16 entry point
|
|
da $29 ; Quit code
|
|
adrl QuitParm ; address of parameter table
|
|
bcs Error ; never taken
|
|
|
|
Error brk ; should never get here
|
|
|
|
QuitParm adrl $0000 ; pointer to pathname (not used here)
|
|
da $00 ; quit type (absolute quit)
|
|
|
|
|
|
|
|
|