mirror of
https://github.com/a2-4am/a2fc.system.git
synced 2024-06-28 06:29:31 +00:00
"better" labelling
This commit is contained in:
parent
af85740836
commit
ae0bbf6127
|
@ -68,6 +68,9 @@ mliParamForClose ; first handle will be 1, the same as kMLIC
|
||||||
!word $2000 ; data address
|
!word $2000 ; data address
|
||||||
!byte $00
|
!byte $00
|
||||||
Open
|
Open
|
||||||
|
CopyToAux=*+2 ; +1 of real address because indexed by X (#$FF) below
|
||||||
|
CopyToAuxLow=*+1
|
||||||
|
CopyToAuxHigh=*+2
|
||||||
JSR MLI ; JSR (#$20) is high part of data length
|
JSR MLI ; JSR (#$20) is high part of data length
|
||||||
; MLI is replaced by read length ($2000)
|
; MLI is replaced by read length ($2000)
|
||||||
; and then used by main->aux copy loop
|
; and then used by main->aux copy loop
|
||||||
|
@ -79,12 +82,12 @@ Open
|
||||||
; 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 (Open+2,x) ; reads from Open+1 because X is #$FF from above
|
- lda (CopyToAux,x)
|
||||||
sta (Open+2,x) ; reads from Open+1 because X is #$FF from above
|
sta (CopyToAux,x)
|
||||||
inc <(Open+1)
|
inc <(CopyToAuxLow)
|
||||||
bne -
|
bne -
|
||||||
inc <(Open+2)
|
inc <(CopyToAuxHigh)
|
||||||
bit <(Open+2) ; copy until $4000
|
bit <(CopyToAuxHigh) ; copy until $4000
|
||||||
bvc -
|
bvc -
|
||||||
ldx #(softswitches_e-softswitches)-1
|
ldx #(softswitches_e-softswitches)-1
|
||||||
- ldy softswitches,x
|
- ldy softswitches,x
|
||||||
|
|
Loading…
Reference in New Issue
Block a user