mirror of
https://github.com/a2-4am/a2fc.system.git
synced 2024-06-26 23:29:31 +00:00
clearer commentary
This commit is contained in:
parent
1273e8dd6b
commit
effe887c69
|
@ -50,32 +50,32 @@ Start
|
||||||
cmp #$30 ; 128K?
|
cmp #$30 ; 128K?
|
||||||
beq + ; yes, continue
|
beq + ; yes, continue
|
||||||
stx inputfilebuffer ; no, trash inputfilebuffer so open fails and we quit immediately
|
stx inputfilebuffer ; no, trash inputfilebuffer so open fails and we quit immediately
|
||||||
+ jmp MLI ; exit via MLI (stack is arranged to execute Open MLI call)
|
+ jmp $00ff
|
||||||
|
|
||||||
CodeStart
|
CodeStart
|
||||||
!pseudopc $f7 {
|
!pseudopc $f7 {
|
||||||
softswitches
|
softswitches ; array of low bytes for $c0xx accesses
|
||||||
!byte $50,$52,$54,$57,$0d,$5e
|
!byte $50,$52,$54,$57,$0d,$5e
|
||||||
|
|
||||||
mliParamForClose
|
mliParamForClose
|
||||||
!byte kMLICloseCount
|
!byte kMLICloseCount
|
||||||
!byte 0 ; close all files, also low part of pointer
|
!byte 0 ; close all files, also low part of pointer
|
||||||
|
|
||||||
!byte $20 ; used by main->aux copy loop
|
!byte $20 ; used by main->aux copy loop, also JSR
|
||||||
!word Open-1 ; on stack for first MLI call
|
!word MLI ; JSR MLI
|
||||||
Open
|
Open
|
||||||
!byte kMLIOpen ; stack-based params for Open MLI call
|
!byte kMLIOpen ; stack-based params for Open MLI call
|
||||||
!word mliParamForOpen
|
!word mliParamForOpen
|
||||||
ldx #kMLIReadOrQuitCount ; they just happen to be the same number
|
ldx #4 ; both Read and Quit accept four parameters
|
||||||
stx mliparam
|
stx mliparam ; set parameter count for MLI call
|
||||||
jsr Read ; read first half of graphic (belongs in auxmem)
|
jsr Read ; read first half of graphic (belongs in auxmem)
|
||||||
; does not return if error
|
; does not return if error
|
||||||
;DHGRCopy
|
;DHGRCopy
|
||||||
sta $C00A
|
sta $C00A
|
||||||
sta $C000
|
sta $C000
|
||||||
sta $C005 ; read from mainmem, write to auxmem
|
sta $C005 ; read from mainmem, write to auxmem
|
||||||
- lda ($fe-kMLIReadOrQuitCount,x)
|
- lda ($fa,x) ; X is 4 from above
|
||||||
sta ($fe-kMLIReadOrQuitCount,x)
|
sta ($fa,x) ; X is 4 from above
|
||||||
inc $fe
|
inc $fe
|
||||||
bne -
|
bne -
|
||||||
inc $ff
|
inc $ff
|
||||||
|
|
Loading…
Reference in New Issue
Block a user