Apple-2-SW/a2fc.system
1
0
Fork 0
mirror of https://github.com/a2-4am/a2fc.system.git synced 2024-06-25 17:29:45 +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 !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