Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-25 15:29:37 +00:00
Code Issues Projects Releases Wiki Activity

*SPOOL now works the same way as real Beeb.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-21 16:37:39 -04:00
parent 6a649ae658
commit f4b0953380
2 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

15
auxmem.oscli.s
View File

@ -570,27 +570,24 @@ SPOOL JSR LPTRtoXY
JSR XYtoLPTR
JSR PARSLPTR ; Just for error handling
BEQ :CLOSE ; No filename - stop spooling
PLY
LDY FXSPOOL ; Already spooling?
BEQ :OPEN
LDA #$00 ; If so, close file
JSR FINDHND
:OPEN PLY
PLX
LDA FXSPOOL
BNE :NOTTWICE
LDA #$80 ; Open for writing
JSR FINDHND ; Try to open file
STA FXSPOOL ; Store SPOOL file handle
RTS
:CLOSE PLY ; Fix the stack
:CLOSE PLY ; Clean up stack
PLX
LDY FXSPOOL
CPY #$00
BEQ :DONE
LDA #$00
JSR FINDHND ; Close file
STZ FXSPOOL
:DONE RTS
:NOTTWICE BRK
DB $D6 ; TODO: WRONG ERROR CODE
ASC 'Already spooling' ; TODO: WHAT MESSAGE HERE?
BRK
* Handle *EXEC command