     $C7B7/51127:   Create header with disk name

    Jump from $C716, $DAA1:

    C7B7: 20 19 F1  JSR $F119       ; initialize if needed
    C7BA: 20 DF F0  JSR $F0DF       ; read disk name
    C7BD: 20 AC C7  JSR $C7AC       ; erase buffer
    C7C0: A9 FF     LDA #$FF
    C7C2: 85 6F     STA $6F
    C7C4: A6 7F     LDX $7F         ; drive number
    C7C6: 8E 72 02  STX $0272       ; as block number lo in buffer
    C7C9: A9 00     LDA #$00
    C7CB: 8D 73 02  STA $0273       ; block number lo
    C7CE: A6 F9     LDX $F9         ; buffer number
    C7D0: BD E0 FE  LDA $FEE0,X     ; hi-byte of the buffer address
    C7D3: 85 95     STA $95
    C7D5: AD 88 FE  LDA $FE88       ; $90, position of disk name
    C7D8: 85 94     STA $94         ; save
    C7DA: A0 16     LDY #$16
    C7DC: B1 94     LDA ($94),Y     ; pad buffer with 'shift blank'
    C7DE: C9 A0     CMP #$A0
    C7E0: D0 0B     BNE $C7ED
    C7E2: A9 31     LDA #$31        ; '1'
    C7E4: 2C        .BYTE $2C

    Jump from $C7F1:

    C7E5: B1 94     LDA ($94),Y     ; character from buffer
    C7E7: C9 A0     CMP #$A0        ; compare with 'shift blank'
    C7E9: D0 02     BNE $C7ED
    C7EB: A9 20     LDA #$20        ; ' ' blank

    Jump from $C7E0, $C7E9:

    C7ED: 99 B3 02  STA $02B3,Y     ; in buffer
    C7F0: 88        DEY
    C7F1: 10 F2     BPL $C7E5
    C7F3: A9 12     LDA #$12        ; 'RVS ON'
    C7F5: 8D B1 02  STA $02B1       ; in buffer
    C7F8: A9 22     LDA #$22        ; '"'
    C7FA: 8D B2 02  STA $02B2       ; write before
    C7FD: 8D C3 02  STA $02C3       ; and after disk name
    C800: A9 20     LDA #$20        ; ' ' blank
    C802: 8D C4 02  STA $02C4       ; behind it
    C805: 60        RTS

        Previous Page / Next Page