clearer commentary

This commit is contained in:
Peter Ferrie 2018-01-08 13:40:58 -08:00
parent 1273e8dd6b
commit effe887c69

View File

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