mirror of
https://github.com/a2-4am/a2fc.system.git
synced 2024-06-26 23:29:31 +00:00
smaller
This commit is contained in:
parent
4c202ea9e1
commit
8b2716a73c
|
@ -39,8 +39,8 @@ inputfilebuffer
|
||||||
!fill $40
|
!fill $40
|
||||||
Start
|
Start
|
||||||
ldx #(CodeEnd-CodeStart)-1; copy code to lower memory so we can load graphic at $2000
|
ldx #(CodeEnd-CodeStart)-1; copy code to lower memory so we can load graphic at $2000
|
||||||
- lda CodeStart,x
|
- ldy CodeStart,x
|
||||||
sta $50,x
|
sty $50,x
|
||||||
dex
|
dex
|
||||||
bpl -
|
bpl -
|
||||||
;CheckFor128K
|
;CheckFor128K
|
||||||
|
@ -54,7 +54,7 @@ Start
|
||||||
CodeStart
|
CodeStart
|
||||||
!pseudopc $50 {
|
!pseudopc $50 {
|
||||||
softswitches ; array of low bytes for $c0xx accesses
|
softswitches ; array of low bytes for $c0xx accesses
|
||||||
!byte 0,$5e,$0d,$50,$52,$54,$57,4
|
!byte 4, 0,$5e,$0d,$50,$52,$54,$57
|
||||||
softswitches_e
|
softswitches_e
|
||||||
|
|
||||||
mliParamForOpen
|
mliParamForOpen
|
||||||
|
@ -76,8 +76,9 @@ CopyToAuxHigh=*+2
|
||||||
; and then used by main->aux copy loop
|
; and then used by main->aux copy loop
|
||||||
!byte kMLIOpen
|
!byte kMLIOpen
|
||||||
!word mliParamForOpen
|
!word mliParamForOpen
|
||||||
lda #4 ; both Read and Quit accept four parameters
|
sty mliparam ; set parameter count for MLI call
|
||||||
sta mliparam ; set parameter count for MLI call
|
; both Read and Quit accept four parameters
|
||||||
|
; (Y is 4 from above)
|
||||||
jsr Read ; read first half of graphic (belongs in auxmem)
|
jsr Read ; read first half of graphic (belongs in auxmem)
|
||||||
; does not return if error
|
; does not return if error
|
||||||
;DHGRCopy
|
;DHGRCopy
|
||||||
|
|
Loading…
Reference in New Issue
Block a user