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

cut another byte

Browse Source
This commit is contained in:
Peter Ferrie 2018-01-09 08:40:50 -08:00
parent b2e509f240
commit ccf11333ed
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/a2fc.system.a
View File

@ -38,31 +38,27 @@ MACHID = $BF98
inputfilebuffer
!fill $40
Start
ldx #(CodeEnd-CodeStart); copy code to lower memory so we can load graphic at $2000
- ldy CodeStart-1,x
sty $4f,x
dex
ldy #(CodeEnd-CodeStart); copy code to lower memory so we can load graphic at $2000
- ldx CodeStart-1,y
stx $4f,y
dey
bne -
;CheckFor128K
lda MACHID
and #$30
cmp #$30 ; 128K?
beq + ; yes, continue
stx inputfilebuffer ; no, trash inputfilebuffer so open fails and we quit immediately
sty inputfilebuffer ; no, trash inputfilebuffer so open fails and we quit immediately
+ jsr MLI ; open file
!byte kMLIOpen
!word mliParamForOpen
lda #4
sta <mliparam ; set parameter count for MLI call
inx
stx <mliparam ; set parameter count for MLI call, one more than Open
; both Read and Quit accept four parameters
jmp ReadFile
CodeStart
!pseudopc $50 {
softswitches ; array of low bytes for $c0xx accesses
!byte 0,$5e,$0d,$50,$52,$54,$57
softswitches_e
mliParamForOpen
!byte kMLIOpenCount
!word inputfilebuffer
@ -96,7 +92,7 @@ ReadFile
; does not return if error
;DHGRShow
ldx #(softswitches_e-softswitches)-1
- ldy softswitches,x
- ldy <softswitches,x
sta (SoftswitchBase),y ; enable DHGR graphics display
dex
bpl -
@ -116,5 +112,9 @@ mlicmd !byte kMLIRead
!word mliparam
bcs Close ; error during open or read? close & quit
rts
softswitches ; array of low bytes for $c0xx accesses
!byte 0,$5e,$0d,$50,$52,$54,$57
softswitches_e
}
CodeEnd