mirror of
https://github.com/a2-4am/a2fc.system.git
synced 2024-06-19 17:30:11 +00:00
PHA in loop, use X instead of Y in auxmem copy loop
This commit is contained in:
parent
3541e5fb2a
commit
a46b819a9d
|
@ -39,17 +39,17 @@ inputfilebuffer
|
||||||
!fill $40
|
!fill $40
|
||||||
Start
|
Start
|
||||||
ldx #(CodeEnd-CodeStart)
|
ldx #(CodeEnd-CodeStart)
|
||||||
|
txs
|
||||||
- lda CodeStart-1,x
|
- lda CodeStart-1,x
|
||||||
sta Open-1,x
|
pha
|
||||||
dex
|
dex
|
||||||
bne -
|
bne -
|
||||||
txs
|
jmp MLI
|
||||||
jmp Open
|
|
||||||
|
|
||||||
CodeStart
|
CodeStart
|
||||||
!pseudopc $100 {
|
!pseudopc $101 {
|
||||||
|
!word Open-1
|
||||||
Open
|
Open
|
||||||
jsr MLI
|
|
||||||
!byte kMLIOpen
|
!byte kMLIOpen
|
||||||
!word mliParamForOpen
|
!word mliParamForOpen
|
||||||
bcs Quit
|
bcs Quit
|
||||||
|
@ -58,12 +58,11 @@ Open
|
||||||
;DHGRCopy
|
;DHGRCopy
|
||||||
sta $C00A
|
sta $C00A
|
||||||
sta $C000
|
sta $C000
|
||||||
tay
|
|
||||||
.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,x
|
||||||
.copyb sta $2000,y
|
.copyb sta $2000,x
|
||||||
iny
|
inx
|
||||||
bne .copya
|
bne .copya
|
||||||
sta $C004 ; read/write from mainmem
|
sta $C004 ; read/write from mainmem
|
||||||
inc .copya+2
|
inc .copya+2
|
||||||
|
|
Loading…
Reference in New Issue
Block a user