mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-25 15:29:37 +00:00
Less buggy *BUILD.
This commit is contained in:
parent
c397a92ec1
commit
29a688c5f3
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -710,17 +710,20 @@ CMDBUILD LDA #$80 ; A=OPENOUT, for writing
|
||||||
LDX #<OSTEXT ; XY -> control block
|
LDX #<OSTEXT ; XY -> control block
|
||||||
LDY #>OSTEXT
|
LDY #>OSTEXT
|
||||||
JSR OSWORD ; Read line from console
|
JSR OSWORD ; Read line from console
|
||||||
BCS :CLOSE ; Escape pressed
|
PHP
|
||||||
|
LDA #$0D ; Carriage return
|
||||||
|
STA :LINEBUF+1,Y ; Force carriage return
|
||||||
INY ; Include the carriage return
|
INY ; Include the carriage return
|
||||||
STY :LINELEN ; Number of chars read
|
STY :LINELEN ; Number of chars read
|
||||||
JSR :BUILDLN ; Write one line to disk
|
JSR :BUILDLN ; Write one line to disk
|
||||||
|
PLP
|
||||||
|
BCS :CLOSE ; Escape pressed
|
||||||
BRA :RDLINE
|
BRA :RDLINE
|
||||||
:CLOSE
|
:CLOSE JSR OSNEWL
|
||||||
* JSR :BUILDLN ; Write one line to disk
|
|
||||||
JSR OSNEWL
|
|
||||||
LDA #$00 ; A=CLOSE
|
LDA #$00 ; A=CLOSE
|
||||||
LDY :FILENUM ; Recover file number
|
LDY :FILENUM ; Recover file number
|
||||||
JSR OSFIND ; Close build file
|
JSR OSFIND ; Close build file
|
||||||
|
STZ ESCFLAG
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
* Helper function for CMDBUILD
|
* Helper function for CMDBUILD
|
||||||
|
|
Loading…
Reference in New Issue
Block a user