Fix stack imbalance in *SPOOL & *EXEC

2024-06-01 19:41:43 +00:00 · 2022-09-21 00:01:34 -04:00 · 2022-09-21 00:01:34 -04:00 · b7dafc24b5
commit b7dafc24b5
parent 7565681434
2 changed files with 6 additions and 2 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@ -905,7 +905,9 @@ FSCSPOOL     JSR   LPTRtoXY
             JSR   FINDHND                   ; Try to open file
             STA   FXSPOOL                   ; Store SPOOL file handle
             RTS
-:CLOSE       LDY   FXSPOOL
+:CLOSE       PLY                             ; Fix the stack
+             PLX
+             LDY   FXSPOOL
             CPY   #$00
             BEQ   :DONE
             LDA   #$00
@ -936,7 +938,9 @@ FSCEXEC      JSR   LPTRtoXY
             STA   FXEXEC                    ; Store EXEC file handle
             RTS
             RTS
-:SYNTAX      BRK
+:SYNTAX      PLY                             ; Fix the stack
+             PLX
+             BRK
             DB    $DC
             ASC   'Syntax: EXEC <*objspec*>'
             BRK