     $C8C6/51398:   Format disk

    Jump from $EE3D:

    C8C6: A9 4C     LDA #$4C        ; JMP-command
    C8C8: 8D 00 06  STA $0600
    C8CB: A9 C7     LDA #$C7
    C8CD: 8D 01 06  STA $0601       ; JMP $FAC7 in $600 to $602
    C8D0: A9 FA     LDA #$FA
    C8D2: 8D 02 06  STA $0602
    C8D5: A9 03     LDA #$03
    C8D7: 20 D3 D6  JSR $D6D3       ; set track and sector number
    C8DA: A5 7F     LDA $7F         ; drive number
    C8DC: 09 E0     ORA #$E0        ; command code for formatting
    C8DE: 85 03     STA $03         ; transmit

    Jump from $C8E2:

    C8E0: A5 03     LDA $03
    C8E2: 30 FC     BMI $C8E0       ; wait until formatting done
    C8E4: C9 02     CMP #$02
    C8E6: 90 07     BCC $C8EF       ; smaller than two, then ok
    C8E8: A9 03     LDA #$03
    C8EA: A2 00     LDX #$00
    C8EC: 4C 0A E6  JMP $E60A       ; 21, 'read error'

    Jump from $C8E6:

    C8EF: 60        RTS

        Previous Page / Next Page