Apple-2-Tools/host-fst
1
0
Fork 0
mirror of https://github.com/ksherlock/host-fst.git synced 2024-06-09 02:29:30 +00:00
Code Issues Projects Releases Wiki Activity

remove debug code

Browse Source
This commit is contained in:
Kelvin Sherlock 2017-02-14 20:04:32 -05:00
parent c2f922cb97
commit 01465f5233
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
host.fst.aii
View File

@ -100,6 +100,7 @@ sys_entry proc
long m,x long m,x
if 0 then
; debug ; debug
pha pha
phx phx
@ -115,6 +116,7 @@ sys_entry proc
ply ply
plx plx
pla pla
endif
cpx #max_sys_call+1 cpx #max_sys_call+1
@ -234,6 +236,9 @@ got_device
ldx #$8001 ldx #$8001
call_host call_host
; wdm will clear carry if active. ; wdm will clear carry if active.
; if carry set, a <> 0, gs/os halts
; "Sorry, system error $xxxx occurred while loading the FST file xxx"
lda #0
rtl rtl
no no
@ -265,6 +270,7 @@ app_entry proc
long m,x long m,x
if 0 then
; debug ; debug
pha pha
phx phx
@ -292,7 +298,7 @@ app_entry proc
plx plx
pla pla
; ;
endif
; x = call number * 2 ; x = call number * 2
; y = call class * 2 ; y = call class * 2