     $CB20/52000:   M-R memory read

    Jump from $CB10:

    CB20: B1 6F     LDA ($6F),Y     ; read byte
    CB22: 85 85     STA $85
    CB24: AD 74 02  LDA $0274       ; length of command line
    CB27: C9 06     CMP #$06        ; less than 6?
    CB29: 90 1A     BCC $CB45       ; yes
    CB2B: AE 05 02  LDX $0205       ; number
    CB2E: CA        DEX
    CB2F: F0 14     BEQ $CB45       ; only one byte?
    CB31: 8A        TXA             ; number of bytes
    CB32: 18        CLC
    CB33: 65 6F     ADC $6F         ; plus start address
    CB35: E6 6F     INC $6F
    CB37: 8D 49 02  STA $0249       ; end pointer
    CB3A: A5 6F     LDA $6F
    CB3C: 85 A5     STA $A5         ; buffer pointer for error message
    CB3E: A5 70     LDA $70         ; set to start address for 'M-R'
    CB40: 85 A6     STA $A6
    CB42: 4C 43 D4  JMP $D443       ; byte out

    Jump from $CB29, $CB2F:

    CB45: 20 EB D0  JSR $D0EB       ; open read channel
    CB48: 4C 3A D4  JMP $D43A       ; byte out

    Jump from $CAFD, $CB1B:

    CB4B: A9 31     LDA #$31
    CB4D: 4C C8 C1  JMP $C1C8       ; 31, 'syntax error'

        Previous Page / Next Page