Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-08 13:30:31 +00:00
Code Issues Projects Releases Wiki Activity

Extended QUIT

Browse Source
This commit is contained in:
Joshua Bell 2018-05-14 00:10:39 -07:00
parent 90bfbb8310
commit 3fabe4b545
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
desktop/invoker.s
View File

@ -39,6 +39,7 @@ prefix_length:
bs_path:
PASCAL_STRING "BASIC.SYSTEM"
;; $EE = extended call signature for IIgs/GS/OS variation.
DEFINE_QUIT_PARAMS quit_params, $EE, FILENAME
;;; ============================================================

10
inc/prodos.inc
View File

@ -331,16 +331,16 @@ int_num: .byte 0
.endproc
.endmacro
.macro DEFINE_QUIT_PARAMS name, arg1, arg2
.macro DEFINE_QUIT_PARAMS name, ext, pathname
.proc name
param_count: .byte 4
.ifnblank arg1
.byte arg1
.ifnblank ext
.byte ext
.else
.byte 0
.endif
.ifnblank arg2
.word arg2
.ifnblank pathname
.word pathname
.else
.word 0
.endif