mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-16 10:29:32 +00:00
*SPOOL now works the same way as real Beeb.
This commit is contained in:
parent
6a649ae658
commit
f4b0953380
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user