     $CF9B/53147:   Write data in buffer

    Jump from $C9D5, $C9E7:

    CF9B: A2 12     LDX #$12        ; channel 18
    CF9D: 86 83     STX $83
    CF9F: 20 07 D1  JSR $D107       ; open write channel
    CFA2: 20 00 C1  JSR $C100       ; turn LED on
    CFA5: 20 25 D1  JSR $D125       ; check file type
    CFA8: 90 05     BCC $CFAF       ; no rel-file
    CFAA: A9 20     LDA #$20
    CFAC: 20 9D DD  JSR $DD9D       ; change buffer

    Jump from $CFA8:

    CFAF: A5 83     LDA $83         ; secondary address
    CFB1: C9 0F     CMP #$0F        ; 15?
    CFB3: F0 23     BEQ $CFD8       ; yes
    CFB5: D0 08     BNE $CFBF       ; no

    Jump from $EA48:

    CFB7: A5 84     LDA $84         ; secondary address
    CFB9: 29 8F     AND #$8F
    CFBB: C9 0F     CMP #$0F        ; greater than 15?
    CFBD: B0 19     BCS $CFD8       ; then input buffer

    Jump from $CFB5:

    CFBF: 20 25 D1  JSR $D125       ; check file type
    CFC2: B0 05     BCS $CFC9       ; rel-file or direct access?
    CFC4: A5 85     LDA $85         ; data byte
    CFC6: 4C 9D D1  JMP $D19D       ; write in buffer

    Jump from $CFC2:

    CFC9: D0 03     BNE $CFCE       ; direct access file?
    CFCB: 4C AB E0  JMP $E0AB       ; write data byte in rel-file

    Jump from $CFC9:

    CFCE: A5 85     LDA $85
    CFD0: 20 F1 CF  JSR $CFF1       ; write data byte in buffer
    CFD3: A4 82     LDY $82         ; channel number
    CFD5: 4C EE D3  JMP $D3EE       ; prepare next byte for output

    Jump from $CFB3, $CFBD:

    CFD8: A9 04     LDA #$04        ; channel 4
    CFDA: 85 82     STA $82         ; corresponding input buffer
    CFDC: 20 E8 D4  JSR $D4E8       ; set buffer pointer
    CFDF: C9 2A     CMP #$2A        ; 40
    CFE1: F0 05     BEQ $CFE8       ; buffer end?
    CFE3: A5 85     LDA $85
    CFE5: 20 F1 CF  JSR $CFF1       ; write data byte in buffer

    Jump from $CFE1:

    CFE8: A5 F8     LDA $F8         ; end flag set?
    CFEA: F0 01     BEQ $CFED       ; yes
    CFEC: 60        RTS

    Jump from $CFEA:

    CFED: EE 55 02  INC $0255       ; set command flag
    CFF0: 60        RTS

        Previous Page / Next Page