$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