2 /------------------------------------------------------
3 /FORMAT ALL OR PART OF A FLOPPY DISC
4 /------------------------------------------------------
6 FRMT, STA /INITIALIZE PORT
8 NEW, JMS XSRA /INITIALIZE DRIVE
10 TAD (FDFI /ABORT COMMAND
13 TAD (FDRS /RESTORE DRIVE
17 INVTN, JMS TYPE /ASK FOR FIRST TRACK #
21 TAD FTN /VALIDITY CHECK
26 JMS TYPE /ASK FOR # OF TRACKS TO FORMAT
32 JMS TYPE /TYPE WARNING
39 NEXT, TAD TCNT /CHECK TRACK COUNT
41 JMP EXIT /EXIT IF ZERO
43 JMS XSRA /SEEK TO TRACK
49 TAD (-SPT /SETUP SECTORS PER TRACK
51 TAD (STAB /SETUP ADDRESS OF SEKTOR TABLE
53 TAD I SNUM /SET FIRST SECTOR #
57 TAD (FSTRT-FEND /SETUP FULL TABLE LENGTH
59 TAD (FSTRT /SETUP START ADDRESS
62 JMS XSRA /ISSUE WRITE TRACK COMMAND
66 JMS XSRA /SWITCH TO DATA REGISTER
69 WDT, TAD I ADDR /WRITE DATA
71 WLP, DBRI /WAIT FOR INTRQ OR DRQ
77 ISZ PNT /INCREMENT BYTE COUNT
80 TAD (FNORM-FEND /RESET BYTE COUNT
82 TAD (FNORM /RESET ADDRESS
84 TAD I SNUM /GET NEXT SECTOR #
89 TRKEND, JMS XWCC /WAIT FOR END OF COMMAND
93 MQL /DISPLAY IN MQ REGISTER