Apple-2-SW/a2fc.system
1
0
Fork 0
mirror of https://github.com/a2-4am/a2fc.system.git synced 2024-06-05 00:29:29 +00:00
Code Issues Projects Releases Wiki Activity

"better" labelling

Browse Source
This commit is contained in:
Peter Ferrie 2018-01-08 15:01:40 -08:00
parent af85740836
commit ae0bbf6127
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/a2fc.system.a
View File

@ -68,6 +68,9 @@ mliParamForClose ; first handle will be 1, the same as kMLIC
!word $2000 ; data address
!byte $00
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
; MLI is replaced by read length ($2000)
; and then used by main->aux copy loop
@ -79,12 +82,12 @@ Open
; does not return if error
;DHGRCopy
sta $C005 ; read from mainmem, write to auxmem
- lda (Open+2,x) ; reads from Open+1 because X is #$FF from above
sta (Open+2,x) ; reads from Open+1 because X is #$FF from above
inc <(Open+1)
- lda (CopyToAux,x)
sta (CopyToAux,x)
inc <(CopyToAuxLow)
bne -
inc <(Open+2)
bit <(Open+2) ; copy until $4000
inc <(CopyToAuxHigh)
bit <(CopyToAuxHigh) ; copy until $4000
bvc -
ldx #(softswitches_e-softswitches)-1
- ldy softswitches,x