$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