mirror of
https://github.com/a2-4am/a2fc.system.git
synced 2024-06-26 23:29:31 +00:00
Merge pull request #3 from peterferrie/master
don't touch display until load completes
This commit is contained in:
commit
b2e509f240
|
@ -52,15 +52,15 @@ Start
|
||||||
+ jsr MLI ; open file
|
+ jsr MLI ; open file
|
||||||
!byte kMLIOpen
|
!byte kMLIOpen
|
||||||
!word mliParamForOpen
|
!word mliParamForOpen
|
||||||
sty <mliparam ; set parameter count for MLI call
|
lda #4
|
||||||
|
sta <mliparam ; set parameter count for MLI call
|
||||||
; both Read and Quit accept four parameters
|
; both Read and Quit accept four parameters
|
||||||
; (Y is 4 from above)
|
|
||||||
jmp ReadFile
|
jmp ReadFile
|
||||||
|
|
||||||
CodeStart
|
CodeStart
|
||||||
!pseudopc $50 {
|
!pseudopc $50 {
|
||||||
softswitches ; array of low bytes for $c0xx accesses
|
softswitches ; array of low bytes for $c0xx accesses
|
||||||
!byte 4,0,$5e,$0d,$50,$52,$54,$57
|
!byte 0,$5e,$0d,$50,$52,$54,$57
|
||||||
softswitches_e
|
softswitches_e
|
||||||
|
|
||||||
mliParamForOpen
|
mliParamForOpen
|
||||||
|
@ -84,21 +84,22 @@ ReadFile
|
||||||
; does not return if error
|
; does not return if error
|
||||||
;DHGRCopy
|
;DHGRCopy
|
||||||
sta $C005 ; read from mainmem, write to auxmem
|
sta $C005 ; read from mainmem, write to auxmem
|
||||||
- lda (CopyToAux,x)
|
- lda (CopyToAux),y ; Y is zero from first loop
|
||||||
sta (CopyToAux,x)
|
sta (CopyToAux),y ; Y is zero from first loop
|
||||||
inc <(CopyToAuxLow)
|
iny
|
||||||
bne -
|
bne -
|
||||||
inc <(CopyToAuxHigh)
|
inc <(CopyToAuxHigh)
|
||||||
bit <(CopyToAuxHigh) ; copy until $4000
|
bit <(CopyToAuxHigh) ; copy until $4000
|
||||||
bvc -
|
bvc -
|
||||||
ldx #(softswitches_e-softswitches)-1
|
sta $C004 ; read from mainmem, write to mainmem
|
||||||
- ldy softswitches,x
|
|
||||||
sta (SoftswitchBase),y ; restore main memory access, enable DHGR graphics display
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
jsr Read ; read second half of graphic (stays in main memory)
|
jsr Read ; read second half of graphic (stays in main memory)
|
||||||
; does not return if error
|
; does not return if error
|
||||||
;DHGRShow
|
;DHGRShow
|
||||||
|
ldx #(softswitches_e-softswitches)-1
|
||||||
|
- ldy softswitches,x
|
||||||
|
sta (SoftswitchBase),y ; enable DHGR graphics display
|
||||||
|
dex
|
||||||
|
bpl -
|
||||||
;WaitForKey
|
;WaitForKey
|
||||||
SoftswitchBase=*+1
|
SoftswitchBase=*+1
|
||||||
- lda $C000
|
- lda $C000
|
||||||
|
|
Loading…
Reference in New Issue
Block a user