mirror of https://github.com/digarok/gslib.git
28 lines
1.1 KiB
ArmAsm
28 lines
1.1 KiB
ArmAsm
****************************************
|
|
* Quit16 *
|
|
* *
|
|
* Dagen Brock <dagenbrock@gmail.com> *
|
|
* 2013-06-10 *
|
|
****************************************
|
|
|
|
rel ; compile as relocatable code
|
|
dsk Quit16.sys16 ; Save Name
|
|
typ $B3 ; s16
|
|
|
|
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)
|
|
|
|
|
|
|
|
|