diff --git a/host.fst.aii b/host.fst.aii index 1c0f9e9..bb8750d 100644 --- a/host.fst.aii +++ b/host.fst.aii @@ -100,6 +100,7 @@ sys_entry proc long m,x + if 0 then ; debug pha phx @@ -115,6 +116,7 @@ sys_entry proc ply plx pla + endif cpx #max_sys_call+1 @@ -234,6 +236,9 @@ got_device ldx #$8001 call_host ; 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 no @@ -265,6 +270,7 @@ app_entry proc long m,x + if 0 then ; debug pha phx @@ -292,7 +298,7 @@ app_entry proc plx pla ; - + endif ; x = call number * 2 ; y = call class * 2