processor 6502 include "format2_runtime.i" org $080d start: ldx #<fmt_cmd ldy #>fmt_cmd lda #9 jsr $ffbd lda #0 jsr fmt2_format ; format disk rts fmt_cmd: dc.b "N0:TLR,00"
fj_ex1: lda #18 jsr seek_track lda #$01 ; format ok! fj_ex2: sta $1c ; flag the disk as changed rts ; jmp $fddb