$C7B7/51127:   Create header with disk name

C7B7: 20 19 F1  JSR $F119
C7BA: 20 DF F0  JSR $F0DF
C7BD: 20 AC C7  JSR $C7AC
C7C0: A9 FF     LDA #$FF
C7C2: 85 6F     STA $6F
C7C4: A6 7F     LDX $7F
C7C6: 8E 72 02  STX $0272
C7C9: A9 00     LDA #$00
C7CB: 8D 73 02  STA $0273
C7CE: A6 F9     LDX $F9
C7D0: BD E0 FE  LDA $FEE0,X
C7D3: 85 95     STA $95
C7D5: AD 88 FE  LDA $FE88
C7D8: 85 94     STA $94
C7DA: A0 16     LDY #$16
C7DC: B1 94     LDA ($94),Y
C7DE: C9 A0     CMP #$A0
C7E0: D0 0B     BNE $C7ED
C7E2: A9 31     LDA #$31
C7E4: 2C        .BYTE $2C
C7E5: B1 94     LDA ($94),Y
C7E7: C9 A0     CMP #$A0
C7E9: D0 02     BNE $C7ED
C7EB: A9 20     LDA #$20
C7ED: 99 B3 02  STA $02B3,Y
C7F0: 88        DEY
C7F1: 10 F2     BPL $C7E5
C7F3: A9 12     LDA #$12
C7F5: 8D B1 02  STA $02B1
C7F8: A9 22     LDA #$22
C7FA: 8D B2 02  STA $02B2
C7FD: 8D C3 02  STA $02C3
C800: A9 20     LDA #$20
C802: 8D C4 02  STA $02C4
C805: 60        RTS

    Previous Page / Next Page