PHA in loop, use X instead of Y in auxmem copy loop

This commit is contained in:
4am 2018-01-07 22:12:39 -05:00
parent 3541e5fb2a
commit a46b819a9d

View File

@ -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