$C6DE/50910:   ?

Jump from $C6D4:

C6DE: A9 11     LDA #$11        ; 17
C6E0: 85 83     STA $83         ; secondary address
C6E2: 20 EB D0  JSR $D0EB       ; open channel to read
C6E5: 20 E8 D4  JSR $D4E8       ; set buffer pointer
C6E8: AD 53 02  LDA $0253
C6EB: 10 0A     BPL $C6F7       ; not yet last entry?
C6ED: AD 8D 02  LDA $028D
C6F0: D0 0A     BNE $C6FC
C6F2: 20 06 C8  JSR $C806       ; write 'blocks free.'
C6F5: 18        CLC
C6F6: 60        RTS

Jump from $C6EB:

C6F7: AD 8D 02  LDA $028D
C6FA: F0 1F     BEQ $C71B

Jump from $C6F0:

C6FC: CE 8D 02  DEC $028D
C6FF: D0 0D     BNE $C70E
C701: CE 8D 02  DEC $028D
C704: 20 8F C3  JSR $C38F       ; change drive
C707: 20 06 C8  JSR $C806       ; write 'blocks free.'
C70A: 38        SEC
C70B: 4C 8F C3  JMP $C38F       ; change drive

Jump from $C6FF:

C70E: A9 00     LDA #$00
C710: 8D 73 02  STA $0273       ; drive no. for header, hi-byte
C713: 8D 8D 02  STA $028D
C716: 20 B7 C7  JSR $C7B7       ; write header
C719: 38        SEC
C71A: 60        RTS

Jump from $C6FA:

C71B: A2 18     LDX #$18
C71D: A0 1D     LDY #$1D
C71F: B1 94     LDA ($94),Y     ; number of blocks hi
C721: 8D 73 02  STA $0273       ; in buffer
C724: F0 02     BEQ $C728       ; zero?
C726: A2 16     LDX #$16

Jump from $C724:

C728: 88        DEY
C729: B1 94     LDA ($94),Y     ; number of blocks lo
C72B: 8D 72 02  STA $0272       ; in buffer
C72E: E0 16     CPX #$16
C730: F0 0A     BEQ $C73C
C732: C9 0A     CMP #$0A        ; 10
C734: 90 06     BCC $C73C
C736: CA        DEX
C737: C9 64     CMP #$64        ; 100
C739: 90 01     BCC $C73C
C73B: CA        DEX

Jump from $C730, $C734, $C739:

C73C: 20 AC C7  JSR $C7AC       ; erase buffer
C73F: B1 94     LDA ($94),Y     ; file type
C741: 48        PHA
C742: 0A        ASL             ; bit 7 in carry
C743: 10 05     BPL $C74A       ; bit 6 not set?
C745: A9 3C     LDA #$3C        ; '<' for protected file
C747: 9D B2 02  STA $02B2,X     ; write behind file type

Jump from $C743:

C74A: 68        PLA
C74B: 29 0F     AND #$0F        ; isolate bits 0-3
C74D: A8        TAY             ; as file type marker
C74E: B9 C5 FE  LDA $FEC5,Y     ; 3rd letter of the file type
C751: 9D B1 02  STA $02B1,X     ; in buffer
C754: CA        DEX
C755: B9 C0 FE  LDA $FEC0,Y     ; 2nd letter of the file type
C758: 9D B1 02  STA $02B1,X     ; in buffer
C75B: CA        DEX
C75C: B9 BB FE  LDA $FEBB,Y     ; 1st letter of the file type
C75F: 9D B1 02  STA $02B1,X     ; in buffer
C762: CA        DEX
C763: CA        DEX
C764: B0 05     BCS $C76B       ; file not closed?
C766: A9 2A     LDA #$2A        ; '*'
C768: 9D B2 02  STA $02B2,X     ; before file type in buffer

Jump from $C764:

C76B: A9 A0     LDA #$A0        ; pad with 'shift blank'
C76D: 9D B1 02  STA $02B1,X     ; in buffer
C770: CA        DEX
C771: A0 12     LDY #$12

Jump from $C77C:

C773: B1 94     LDA ($94),Y     ; filenames
C775: 9D B1 02  STA $02B1,X     ; write in buffer
C778: CA        DEX
C779: 88        DEY
C77A: C0 03     CPY #$03
C77C: B0 F5     BCS $C773
C77E: A9 22     LDA #$22        ; '='
C780: 9D B1 02  STA $02B1,X     ; write before file type

Jump from $C791:

C783: E8        INX
C784: E0 20     CPX #$20
C786: B0 0B     BCS $C793
C788: BD B1 02  LDA $02B1,X     ; character from buffer
C78B: C9 22     CMP #$22        ; '='?
C78D: F0 04     BEQ $C793
C78F: C9 A0     CMP #$A0        ; 'shift blank' at end of name
C791: D0 F0     BNE $C783

Jump from $C786, $C78D:

C793: A9 22     LDA #$22        ; fill through '='
C795: 9D B1 02  STA $02B1,X

Jump from $C7A5:

C798: E8        INX
C799: E0 20     CPX #$20
C79B: B0 0A     BCS $C7A7
C79D: A9 7F     LDA #$7F        ; bit 7
C79F: 3D B1 02  AND $02B1,X
C7A2: 9D B1 02  STA $02B1,X     ; erase in the remaining chars
C7A5: 10 F1     BPL $C798

Jump from $C79B:

C7A7: 20 B5 C4  JSR $C4B5       ; search for the directory entry
C7AA: 38        SEC
C7AB: 60        RTS

    Previous Page / Next Page