$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