0400 LDA #$11 Anzahl der Sektoren für die 0402 STA $43 Spuren über 35 übergeben 0404 LDA $1C00 Control-Port laden 0407 AND #$9F und Speed für diese Tracks 0409 ORA #$00 einstellen (kann hier geändert werden) 040B STA $1C00 Wert speichern 040E LDA $08 Track-Nummer laden 0410 STA $51 und die Nummer übergeben 0412 JMP $FAC7 Formatroutine anspringen Das Programm wird hier gestartet. 0415 JSR $0042 initialisieren 0418 LDA #$24 Track, bei dem die Formatierung beginnt, 041A STA $37 laden $24 (36) und Zwischenspeichern 041C STA $08 Track-Nummer an Job übergeben 041E LDA #$E0 Job-Code E0 für Programm ausführen 0420 STA $01 in Job-Speicher schreiben 0422 LDA $01 Rückmeldung erwarten 0424 BMI $0422 verzweige, wenn Job nicht abgearbeitet 0426 CMP #$02 Rückmeldung auf Fehler prüfen 0428 BCS $0432 verzweige, wem Fehler aufgetreten 042A INC $37 Track-Nummer erhöhen 042C LDA $37 und vergleichen, 042E CMP #$2A ob Spur 41 schon überschritten 0430 BNE $041A wenn nicht, nächsten Track formatieren 0432 RTS Rücksprung