Apple-2-SW/a2fc.system
1
0
Fork 0
mirror of https://github.com/a2-4am/a2fc.system.git synced 2024-06-19 17:30:11 +00:00
Code Issues Projects Releases Wiki Activity

quit without displaying on file read error, run on stack page instead of input page

Browse Source
This commit is contained in:
4am 2018-01-07 20:39:25 -05:00
parent d195ba44e8
commit 2b4e242f1e
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/a2fc.system.a
View File

@ -38,15 +38,16 @@ inputfile
inputfilebuffer inputfilebuffer
!fill $40 !fill $40
Start Start
ldx #$00 ldx #(CodeEnd-CodeStart)
FM lda CodeStart,x - lda CodeStart-1,x
sta Open,x sta Open-1,x
inx dex
bne FM bne -
txs
jmp Open jmp Open
CodeStart
!pseudopc $200 { CodeStart
!pseudopc $100 {
Open Open
jsr CallMLIImmediate jsr CallMLIImmediate
bcs Quit bcs Quit
@ -63,10 +64,9 @@ Open
jsr CallMLI jsr CallMLI
bcs Close bcs Close
;DHGRCopy ;DHGRCopy
tay
sta $C00A sta $C00A
sta $C000 sta $C000
tay ; A is 0 after successful MLI call
; X is still #$20
.writeToAux .writeToAux
sta $C005 ; read from mainmem, write to auxmem sta $C005 ; read from mainmem, write to auxmem
.copya lda $2000,y .copya lda $2000,y
@ -83,9 +83,12 @@ Open
ldy #kMLIReadCount ldy #kMLIReadCount
jsr CallMLI jsr CallMLI
Close Close
php
lda #kMLIClose lda #kMLIClose
ldy #kMLICloseCount ldy #kMLICloseCount
jsr CallMLI jsr CallMLI
plp
bcs Quit
;DHGRShow ;DHGRShow
lda $C05E lda $C05E
sta $C00D sta $C00D
@ -111,5 +114,5 @@ mliparam !byte kMLIOpenCount
!word inputfilebuffer !word inputfilebuffer
!word aFileBuffer !word aFileBuffer
; !byte $00,$00,$00,$00 ; !byte $00,$00,$00,$00
End
} }
CodeEnd