diff --git a/docs/DiskII Formatter/Format1.1.1-annotated.txt b/docs/DiskII Formatter/Format1.1.1-annotated.txt
new file mode 100644
index 00000000..9eb6d602
--- /dev/null
+++ b/docs/DiskII Formatter/Format1.1.1-annotated.txt	
@@ -0,0 +1,806 @@
+;*
+;*
+;* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+;* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+;* *                                                 * *
+;* * M U S T   B E   O N   P A G E   B O U N D A R Y * *
+;* *                                                 * *
+;* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+;* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+;*                                                     *
+;*  ProDOS DISK ][ Formatter Device Driver             *  
+;*                                                     *
+;*  Copyright Apple Computer, Inc., 1982-1984          *
+;*                                                     *
+;*  Enter with ProDOS device number in A-register:     *
+;*         Zero    = bits 0, 1, 2, 3                   *
+;*         Slot No.= bits 4, 5, 6                      * 
+;*         Drive 1 = bit 7 off                         * 
+;*         Drive 2 = bit 7 on                          * 
+;*                                                     *
+;*  Error codes returned in A-register:                *
+;*         $00 : Good completion                       * 
+;*         $27 : Unable to format                      * 
+;*         $2B : Write-Protected                       * 
+;*         $33 : Drive too SLOW                        * 
+;*         $34 : Drive too FAST                        * 
+;*         NOTE: Carry flag is set if error occured.   *
+;*                                                     *
+;*  Uses zero page locations $D0 thru $DD              *
+;*                                                     *
+;* - - - - - - - - - - - - - - - - - - - - - - - - - - *
+;* Modified 15 December 1983 to disable interrupts     *
+;* Modified 20 December 1983 to increase tolerance     *
+;*    of disk speed check                              *
+;* Modified 30 March 1983 to increase tolerance of     *
+;*    disk speed                                       *
+;* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+
+;
+; Disassembly and annotations by TC (Nov. 2017)
+; . disassembly from prodos_utility.dsk (ProDOS 1.1.1)
+;
+
+;
+; Entrypoint
+; Pre: A=slot*16, ($DE)=#$01=volume#
+;
+7900-   08          PHP
+7901-   78          SEI   			; interrupt disable
+7902-   20 3A 79    JSR   $793A
+7905-   28          PLP				; restore interrupt ena/dis state   
+7906-   C9 00       CMP   #$00
+7908-   D0 02       BNE   $790C
+790A-   18          CLC   			; res=OK
+790B-   60          RTS   
+
+; error:
+790C-   C9 02       CMP   #$02
+790E-   D0 05       BNE   $7915
+7910-   A9 2B       LDA   #$2B		; MLI error: write protected
+7912-   4C 21 79    JMP   $7921
+;
+7915-   C9 01       CMP   #$01
+7917-   D0 05       BNE   $791E
+7919-   A9 27       LDA   #$27		; MLI error: I/O error
+791B-   4C 21 79    JMP   $7921
+;
+791E-   18          CLC   
+791F-   69 30       ADC   #$30		; =>$33 or $34
+7921-   38          SEC   			; res=ERROR
+7922-   60          RTS   
+; end
+
+; Seek to track
+; Pre: A=trk#, X=slot*16
+7923-   0A          ASL   			; A=half track
+7924-   0E 24 7D    ASL   $7D24
+7927-   8D 36 7D    STA   $7D36
+792A-   8A          TXA   
+792B-   4A          LSR   
+792C-   4A          LSR   
+792D-   4A          LSR   
+792E-   4A          LSR				; A=slot   
+792F-   A8          TAY   			; Y=slot
+7930-   AD 36 7D    LDA   $7D36
+7933-   20 C6 7A    JSR   $7AC6
+7936-   4E 24 7D    LSR   $7D24
+7939-   60          RTS   
+; ??? (end)
+
+; FormatDisk (called from Entrypoint)
+; Pre: A=slot*16, A.b7=drive#
+793A-   AA          TAX   
+793B-   29 70       AND   #$70
+793D-   8D 23 7D    STA   $7D23		; set slot*16
+7940-   8A          TXA   
+7941-   AE 23 7D    LDX   $7D23
+7944-   2A          ROL  			; C=drive# 
+7945-   A9 00       LDA   #$00
+7947-   2A          ROL   
+7948-   D0 06       BNE   $7950
+794A-   BD 8A C0    LDA   $C08A,X	; select drive-1
+794D-   4C 53 79    JMP   $7953
+7950-   BD 8B C0    LDA   $C08B,X	; select drive-2
+;
+7953-   BD 89 C0    LDA   $C089,X	; motor on
+7956-   A9 D7       LDA   #$D7
+7958-   85 DA       STA   $DA		; ($DA) = #$D7
+795A-   A9 50       LDA   #$50
+795C-   8D 24 7D    STA   $7D24		; ($7D24) = 80
+
+; Seek to track 0
+795F-   A9 00       LDA   #$00
+7961-   20 23 79    JSR   $7923
+
+; Wait (until motor up to speed?)
+7964-   A5 DA       LDA   $DA		; read_vol
+7966-   F0 06       BEQ   $796E
+7968-   20 3A 7C    JSR   $7C3A		; Wait incs read_vol
+796B-   4C 64 79    JMP   $7964
+
+; Init vars/consts
+796E-   A5 DE       LDA   $DE
+7970-   85 D3       STA   $D3		; ($D3) = write_vol = 1 (constant)
+7972-   A9 AA       LDA   #$AA
+7974-   85 D0       STA   $D0		; ($D0) = #$AA (constant)
+7976-   AD 20 7D    LDA   $7D20		; max_gap3
+7979-   18          CLC   
+797A-   69 02       ADC   #$02
+797C-   85 D4       STA   $D4		; ($D4) = max_gap3 + 2
+797E-   A9 00       LDA   #$00
+7980-   85 D1       STA   $D1		; ($D1) = write_trk = 0
+
+; Write next track
+7982-   A5 D1       LDA   $D1
+7984-   AE 23 7D    LDX   $7D23
+7987-   20 23 79    JSR   $7923
+798A-   AE 23 7D    LDX   $7D23
+798D-   BD 8D C0    LDA   $C08D,X	; load disk write prot to latch(b7=1 => write protected)
+7990-   BD 8E C0    LDA   $C08E,X	; set read mode & read latch
+7993-   A8          TAY   
+7994-   BD 8E C0    LDA   $C08E,X	; set read mode
+7997-   BD 8C C0    LDA   $C08C,X	; read nib to latch & read latch
+799A-   98          TYA   
+799B-   10 05       BPL   $79A2
+799D-   A9 02       LDA   #$02		; Error = write protected
+799F-   4C F9 79    JMP   $79F9
+
+; Write track
+79A2-   20 63 7C    JSR   $7C63
+79A5-   90 0E       BCC   $79B5
+; Error...
+79A7-   A9 01       LDA   #$01
+79A9-   A4 D4       LDY   $D4
+79AB-   CC 1F 7D    CPY   $7D1F
+79AE-   B0 02       BCS   $79B2
+79B0-   A9 04       LDA   #$04
+79B2-   4C F9 79    JMP   $79F9		; error code = 4 (Drive too FAST)
+
+; Succeeded writing track, now check gap3_count tolerance
+79B5-   A4 D4       LDY   $D4
+79B7-   CC 1F 7D    CPY   $7D1F
+79BA-   B0 05       BCS   $79C1
+79BC-   A9 04       LDA   #$04
+79BE-   4C F9 79    JMP   $79F9		; error code = 4 (Drive too FAST)
+;
+79C1-   CC 20 7D    CPY   $7D20
+79C4-   90 05       BCC   $79CB
+79C6-   A9 03       LDA   #$03
+79C8-   4C F9 79    JMP   $79F9		; error code = 3 (Drive too SLOW)
+
+; Read a max of 15 (not 16) address fields, looking for sector 0
+79CB-   AD 22 7D    LDA   $7D22		; A = #$10 (constant)
+79CE-   8D 25 7D    STA   $7D25
+;
+79D1-   CE 25 7D    DEC   $7D25
+79D4-   D0 05       BNE   $79DB
+79D6-   A9 01       LDA   #$01
+79D8-   4C F9 79    JMP   $79F9		; error code = 1 (I/O error)
+79DB-   AE 23 7D    LDX   $7D23
+79DE-   20 6A 7A    JSR   $7A6A		; Read address field
+79E1-   B0 EE       BCS   $79D1
+79E3-   A5 D8       LDA   $D8		; sector 0?
+79E5-   D0 EA       BNE   $79D1		; ... no, so keep reading
+
+; Got address field for sector 0:
+
+; Verify sector
+79E7-   AE 23 7D    LDX   $7D23
+79EA-   20 07 7A    JSR   $7A07		; ???
+79ED-   B0 E2       BCS   $79D1
+
+; Prep for formatting next track
+79EF-   E6 D1       INC   $D1		; inc write_trk
+79F1-   A5 D1       LDA   $D1
+79F3-   C9 23       CMP   #$23		; done 35 tracks?
+79F5-   90 8B       BCC   $7982		; ... no, so write next track
+79F7-   A9 00       LDA   #$00		; res = OK
+
+79F9-   48          PHA   			; push error code
+79FA-   AE 23 7D    LDX   $7D23
+79FD-   BD 88 C0    LDA   $C088,X
+7A00-   A9 00       LDA   #$00
+7A02-   20 23 79    JSR   $7923
+7A05-   68          PLA   			; pop error code
+7A06-   60          RTS   
+; end
+
+;
+; Verify sector
+;
+
+; Read data prologue (D5 AA AD) within 32 nibbles
+7A07-   A0 20       LDY   #$20
+7A09-   88          DEY   
+7A0A-   F0 5C       BEQ   $7A68
+7A0C-   BD 8C C0    LDA   $C08C,X
+7A0F-   10 FB       BPL   $7A0C
+7A11-   49 D5       EOR   #$D5
+7A13-   D0 F4       BNE   $7A09
+7A15-   EA          NOP   
+7A16-   BD 8C C0    LDA   $C08C,X
+7A19-   10 FB       BPL   $7A16
+7A1B-   C9 AA       CMP   #$AA
+7A1D-   D0 F2       BNE   $7A11
+7A1F-   A0 56       LDY   #$56		; Y=#$56
+7A21-   BD 8C C0    LDA   $C08C,X
+7A24-   10 FB       BPL   $7A21
+7A26-   C9 AD       CMP   #$AD
+7A28-   D0 E7       BNE   $7A11
+; Read data
+7A2A-   A9 00       LDA   #$00		; ($D5) = #$FF = Number of #$96 nibbles to read
+7A2C-   88          DEY   
+7A2D-   84 D5       STY   $D5
+7A2F-   BD 8C C0    LDA   $C08C,X
+7A32-   10 FB       BPL   $7A2F
+7A34-   C9 96       CMP   #$96
+7A36-   D0 30       BNE   $7A68
+7A38-   A4 D5       LDY   $D5
+7A3A-   D0 F0       BNE   $7A2C
+;
+7A3C-   84 D5       STY   $D5
+7A3E-   BD 8C C0    LDA   $C08C,X
+7A41-   10 FB       BPL   $7A3E
+7A43-   C9 96       CMP   #$96
+7A45-   D0 21       BNE   $7A68
+7A47-   A4 D5       LDY   $D5
+7A49-   C8          INY   
+7A4A-   D0 F0       BNE   $7A3C
+;
+7A4C-   BD 8C C0    LDA   $C08C,X
+7A4F-   10 FB       BPL   $7A4C
+7A51-   C9 96       CMP   #$96
+7A53-   D0 13       BNE   $7A68
+; Read data epilogue (DE AA)
+7A55-   BD 8C C0    LDA   $C08C,X
+7A58-   10 FB       BPL   $7A55
+7A5A-   C9 DE       CMP   #$DE
+7A5C-   D0 0A       BNE   $7A68		; error
+7A5E-   EA          NOP   
+7A5F-   BD 8C C0    LDA   $C08C,X
+7A62-   10 FB       BPL   $7A5F
+7A64-   C9 AA       CMP   #$AA
+7A66-   F0 5C       BEQ   $7AC4		; CLC & RTS
+7A68-   38          SEC   			; error
+7A69-   60          RTS   
+; end
+
+;
+; Read address field
+;
+; Post:
+; ($D7) = Chksum
+; ($D8) = Sec
+; ($D9) = Trk
+; ($DA) = Vol
+;
+; Carry set => error:
+; . max nibble count read before addr prologue
+; . chksum error
+; . addr epilogue not correct
+;
+
+; Init: nibble count until error: 3+3*256 = 3+768 = 771
+7A6A-   A0 FC       LDY   #$FC
+7A6C-   84 DC       STY   $DC
+
+; Read until address prologue (D5 AA 96)
+7A6E-   C8          INY   
+7A6F-   D0 04       BNE   $7A75
+7A71-   E6 DC       INC   $DC
+7A73-   F0 F3       BEQ   $7A68		; error
+7A75-   BD 8C C0    LDA   $C08C,X
+7A78-   10 FB       BPL   $7A75
+7A7A-   C9 D5       CMP   #$D5
+7A7C-   D0 F0       BNE   $7A6E
+7A7E-   EA          NOP   
+7A7F-   BD 8C C0    LDA   $C08C,X
+7A82-   10 FB       BPL   $7A7F
+7A84-   C9 AA       CMP   #$AA
+7A86-   D0 F2       BNE   $7A7A
+7A88-   A0 03       LDY   #$03		; Y=3
+7A8A-   BD 8C C0    LDA   $C08C,X
+7A8D-   10 FB       BPL   $7A8A
+7A8F-   C9 96       CMP   #$96
+7A91-   D0 E7       BNE   $7A7A
+
+; Read 4&4
+; ($D7) = Chksum
+; ($D8) = Sec
+; ($D9) = Trk
+; ($DA) = Vol
+7A93-   A9 00       LDA   #$00
+7A95-   85 DB       STA   $DB		; update chksum
+7A97-   BD 8C C0    LDA   $C08C,X
+7A9A-   10 FB       BPL   $7A97
+7A9C-   2A          ROL   
+7A9D-   85 DD       STA   $DD
+7A9F-   BD 8C C0    LDA   $C08C,X
+7AA2-   10 FB       BPL   $7A9F
+7AA4-   25 DD       AND   $DD
+7AA6-   99 D7 00    STA   $00D7,Y
+7AA9-   45 DB       EOR   $DB
+7AAB-   88          DEY   
+7AAC-   10 E7       BPL   $7A95
+;
+7AAE-   A8          TAY   
+7AAF-   D0 B7       BNE   $7A68		; chksum error
+; Read epilogue (DE AA)
+7AB1-   BD 8C C0    LDA   $C08C,X
+7AB4-   10 FB       BPL   $7AB1
+7AB6-   C9 DE       CMP   #$DE
+7AB8-   D0 AE       BNE   $7A68		; error
+7ABA-   EA          NOP   
+7ABB-   BD 8C C0    LDA   $C08C,X
+7ABE-   10 FB       BPL   $7ABB
+7AC0-   C9 AA       CMP   #$AA
+7AC2-   D0 A4       BNE   $7A68		; error
+7AC4-   18          CLC   			; res = OK
+7AC5-   60          RTS   
+; end
+
+; Seek to half track
+; Pre: A=half track#, X=slot*16, Y=slot
+7AC6-   8E 37 7D    STX   $7D37
+7AC9-   8D 36 7D    STA   $7D36
+7ACC-   CD 24 7D    CMP   $7D24
+7ACF-   F0 5C       BEQ   $7B2D
+7AD1-   A9 00       LDA   #$00
+7AD3-   8D 38 7D    STA   $7D38
+7AD6-   AD 24 7D    LDA   $7D24
+7AD9-   8D 39 7D    STA   $7D39
+7ADC-   38          SEC   
+7ADD-   ED 36 7D    SBC   $7D36
+7AE0-   F0 37       BEQ   $7B19
+7AE2-   B0 07       BCS   $7AEB
+7AE4-   49 FF       EOR   #$FF
+7AE6-   EE 24 7D    INC   $7D24
+7AE9-   90 05       BCC   $7AF0
+7AEB-   69 FE       ADC   #$FE
+7AED-   CE 24 7D    DEC   $7D24
+7AF0-   CD 38 7D    CMP   $7D38
+7AF3-   90 03       BCC   $7AF8
+7AF5-   AD 38 7D    LDA   $7D38
+7AF8-   C9 0C       CMP   #$0C
+7AFA-   B0 01       BCS   $7AFD
+7AFC-   A8          TAY   
+7AFD-   38          SEC   
+7AFE-   20 1D 7B    JSR   $7B1D
+7B01-   B9 4B 7C    LDA   $7C4B,Y
+7B04-   20 3A 7C    JSR   $7C3A
+7B07-   AD 39 7D    LDA   $7D39
+7B0A-   18          CLC   
+7B0B-   20 20 7B    JSR   $7B20
+7B0E-   B9 57 7C    LDA   $7C57,Y
+7B11-   20 3A 7C    JSR   $7C3A
+7B14-   EE 38 7D    INC   $7D38
+7B17-   D0 BD       BNE   $7AD6
+7B19-   20 3A 7C    JSR   $7C3A
+7B1C-   18          CLC   
+7B1D-   AD 24 7D    LDA   $7D24
+7B20-   29 03       AND   #$03
+7B22-   2A          ROL   
+7B23-   0D 37 7D    ORA   $7D37
+7B26-   AA          TAX   
+7B27-   BD 80 C0    LDA   $C080,X
+7B2A-   AE 37 7D    LDX   $7D37
+7B2D-   60          RTS   
+; end
+
+;
+; Write gap2, Data field, data
+;
+
+7B2E-   20 0E 7D    JSR   $7D0E
+7B31-   BD 8D C0    LDA   $C08D,X
+7B34-   BD 8E C0    LDA   $C08E,X
+
+; Write gap2 (5x 10-bit FF)
+7B37-   A9 FF       LDA   #$FF
+7B39-   9D 8F C0    STA   $C08F,X
+7B3C-   DD 8C C0    CMP   $C08C,X
+7B3F-   48          PHA   
+7B40-   68          PLA   
+7B41-   EA          NOP   
+7B42-   A0 04       LDY   #$04
+7B44-   48          PHA   
+7B45-   68          PLA   
+7B46-   20 A5 7B    JSR   $7BA5
+7B49-   88          DEY   
+7B4A-   D0 F8       BNE   $7B44
+
+; Write Data prologue (D5 AA AD)
+7B4C-   A9 D5       LDA   #$D5
+7B4E-   20 A4 7B    JSR   $7BA4
+7B51-   A9 AA       LDA   #$AA
+7B53-   20 A4 7B    JSR   $7BA4
+7B56-   A9 AD       LDA   #$AD
+7B58-   20 A4 7B    JSR   $7BA4
+
+; Write 86 x #$96
+7B5B-   A0 56       LDY   #$56
+7B5D-   EA          NOP   
+7B5E-   EA          NOP   
+7B5F-   EA          NOP   
+7B60-   D0 03       BNE   $7B65
+7B62-   20 0E 7D    JSR   $7D0E		; RTS
+7B65-   EA          NOP   
+7B66-   EA          NOP   
+7B67-   A9 96       LDA   #$96
+7B69-   9D 8D C0    STA   $C08D,X
+7B6C-   DD 8C C0    CMP   $C08C,X
+7B6F-   88          DEY   
+7B70-   D0 F0       BNE   $7B62
+
+; Write 256 x #$96
+7B72-   24 00       BIT   $00
+7B74-   EA          NOP   
+7B75-   20 0E 7D    JSR   $7D0E		; RTS
+7B78-   A9 96       LDA   #$96
+7B7A-   9D 8D C0    STA   $C08D,X
+7B7D-   DD 8C C0    CMP   $C08C,X
+7B80-   A9 96       LDA   #$96
+7B82-   EA          NOP   
+7B83-   C8          INY   
+7B84-   D0 EF       BNE   $7B75
+
+; Write Data epilogue (DE AA EB FF)
+7B86-   20 A4 7B    JSR   $7BA4
+7B89-   A9 DE       LDA   #$DE
+7B8B-   20 A4 7B    JSR   $7BA4
+7B8E-   A9 AA       LDA   #$AA
+7B90-   20 A4 7B    JSR   $7BA4
+7B93-   A9 EB       LDA   #$EB
+7B95-   20 A4 7B    JSR   $7BA4
+7B98-   A9 FF       LDA   #$FF
+7B9A-   20 A4 7B    JSR   $7BA4
+;
+7B9D-   BD 8E C0    LDA   $C08E,X	; read latch (and set read mode)
+7BA0-   BD 8C C0    LDA   $C08C,X	; read latch
+7BA3-   60          RTS   
+
+; Write nibble
+7BA4-   EA          NOP   
+; Write nibble
+7BA5-   48          PHA   
+7BA6-   68          PLA   
+7BA7-   9D 8D C0    STA   $C08D,X
+7BAA-   DD 8C C0    CMP   $C08C,X
+7BAD-   60          RTS   
+
+;
+; Write gap1(sector-0) or gap3 & address field
+; Pre: X=slot*16, Y=gap count
+;
+
+; Check if disk is write enabled
+7BAE-   38          SEC   			; ? (2 cycles)
+7BAF-   BD 8D C0    LDA   $C08D,X	; load write protect to latch (b7)
+7BB2-   BD 8E C0    LDA   $C08E,X	; read latch (and set read mode)
+7BB5-   30 5E       BMI   $7C15		; branch if write protected
+
+; Gap1 or Gap3: Initial 10-bit FF sync byte
+7BB7-   A9 FF       LDA   #$FF
+7BB9-   9D 8F C0    STA   $C08F,X	; set write mode & write data to latch
+7BBC-   DD 8C C0    CMP   $C08C,X	; start writing latch (start shifting)
+7BBF-   48          PHA   
+7BC0-   68          PLA   
+
+; Gap1 or Gap3: 10-bit FF sync byte (40 cycle loop)
+; Pre: A=#$FF, Y=gap count
+7BC1-   20 1B 7C    JSR   $7C1B		; RTS
+7BC4-   20 1B 7C    JSR   $7C1B		; RTS
+7BC7-   9D 8D C0    STA   $C08D,X	; write data to latch
+7BCA-   DD 8C C0    CMP   $C08C,X	; start writing latch (start shifting)
+7BCD-   EA          NOP   
+7BCE-   88          DEY   
+7BCF-   D0 F0       BNE   $7BC1	; NB. branch taken cross pages
+
+; Write address prologue (D5 AA 96)
+7BD1-   A9 D5       LDA   #$D5
+7BD3-   20 2D 7C    JSR   $7C2D
+7BD6-   A9 AA       LDA   #$AA
+7BD8-   20 2D 7C    JSR   $7C2D
+7BDB-   A9 96       LDA   #$96
+7BDD-   20 2D 7C    JSR   $7C2D
+
+; Write address field
+7BE0-   A5 D3       LDA   $D3		; Vol=01
+7BE2-   20 1C 7C    JSR   $7C1C
+7BE5-   A5 D1       LDA   $D1		; Trk
+7BE7-   20 1C 7C    JSR   $7C1C
+7BEA-   A5 D2       LDA   $D2		; Sec
+7BEC-   20 1C 7C    JSR   $7C1C
+7BEF-   A5 D3       LDA   $D3
+7BF1-   45 D1       EOR   $D1
+7BF3-   45 D2       EOR   $D2
+7BF5-   48          PHA   			; Chksum
+7BF6-   4A          LSR   
+7BF7-   05 D0       ORA   $D0		; OR with #$AA
+; write 4&4 chksum in A
+7BF9-   9D 8D C0    STA   $C08D,X
+7BFC-   BD 8C C0    LDA   $C08C,X
+7BFF-   68          PLA   
+7C00-   09 AA       ORA   #$AA
+7C02-   20 2C 7C    JSR   $7C2C
+
+; write address epilogue (DE AA EB)
+7C05-   A9 DE       LDA   #$DE
+7C07-   20 2D 7C    JSR   $7C2D
+7C0A-   A9 AA       LDA   #$AA
+7C0C-   20 2D 7C    JSR   $7C2D
+7C0F-   A9 EB       LDA   #$EB
+7C11-   20 2D 7C    JSR   $7C2D
+7C14-   18          CLC   
+7C15-   BD 8E C0    LDA   $C08E,X
+7C18-   BD 8C C0    LDA   $C08C,X
+7C1B-   60          RTS   
+
+; write 4&4 byte in A
+7C1C-   48          PHA   
+7C1D-   4A          LSR   
+7C1E-   05 D0       ORA   $D0
+7C20-   9D 8D C0    STA   $C08D,X
+7C23-   DD 8C C0    CMP   $C08C,X
+7C26-   68          PLA   
+7C27-   EA          NOP   
+7C28-   EA          NOP   
+7C29-   EA          NOP   
+7C2A-   09 AA       ORA   #$AA
+7C2C-   EA          NOP   
+; fall through...
+
+; 32 cycle write
+7C2D-   EA          NOP   
+7C2E-   48          PHA   
+7C2F-   68          PLA   
+7C30-   9D 8D C0    STA   $C08D,X
+7C33-   DD 8C C0    CMP   $C08C,X
+7C36-   60          RTS   
+; end
+
+; ??? (unused)
+7C37-   C8          INY   
+7C38-   A0 C3       LDY   #$C3
+; ??? (end)
+
+; Wait: A * (2 + (5*16) + 5+3+5+2+2+3) = A * 102 cycles (roughly)
+; Pre: A = wait value
+7C3A-   A2 11       LDX   #$11		; 2cy
+7C3C-   CA          DEX   			;   2cy
+7C3D-   D0 FD       BNE   $7C3C		;   2+1 (branch taken)
+7C3F-   E6 D9       INC   $D9		; 5cy / read_trk++
+7C41-   D0 02       BNE   $7C45		; 2+1 (branch taken)
+7C43-   E6 DA       INC   $DA		; 5cy / read_vol++
+7C45-   38          SEC   			; 2cy
+7C46-   E9 01       SBC   #$01		; 2cy
+7C48-   D0 F0       BNE   $7C3A		; 2+1 (branch taken)
+7C4A-   60          RTS   
+; end
+
+.data
+7C4B:	; 12 bytes
+ !byte $01,$30,$28
+ !byte $24,$20,$1E
+ !byte $1D,$1C,$1C
+ !byte $1C,$1C,$1C
+7C57:	; 12 bytes
+ !byte $70,$2C,$26
+ !byte $22,$1F,$1E
+ !byte $1D,$1C,$1C
+ !byte $1C,$1C,$1C
+
+.code
+
+;
+; Write track and verify track
+;
+
+; write gap1 & address field
+7C63-   AD 21 7D    LDA   $7D21
+7C66-   85 D6       STA   $D6		; ($D6) = 3 = timeout * 256?
+;
+7C68-   A0 80       LDY   #$80		; gap1 has gap count = 128
+7C6A-   A9 00       LDA   #$00
+7C6C-   85 D2       STA   $D2		; sector = 0
+7C6E-   4C 73 7C    JMP   $7C73
+
+; write gap3 & address field
+7C71-   A4 D4       LDY   $D4		; gap3_count
+;
+7C73-   AE 23 7D    LDX   $7D23		; slot*16
+7C76-   20 AE 7B    JSR   $7BAE		; write gap1|3 & address field
+7C79-   90 03       BCC   $7C7E
+; error:
+7C7B-   4C 0E 7D    JMP   $7D0E
+; success:
+; write gap2, data field, data
+7C7E-   AE 23 7D    LDX   $7D23
+7C81-   20 2E 7B    JSR   $7B2E
+7C84-   E6 D2       INC   $D2		; inc write_sector
+7C86-   A5 D2       LDA   $D2
+7C88-   C9 10       CMP   #$10		; done 16 sectors?
+7C8A-   90 E5       BCC   $7C71		; ... no, write next gap3 & sector
+
+;
+; verify track
+;
+
+7C8C-   A0 0F       LDY   #$0F
+7C8E-   84 D2       STY   $D2		; write_sector = 15 (used as sector loop counter)
+7C90-   AD 22 7D    LDA   $7D22		; A = #$10 (constant)
+7C93-   8D 25 7D    STA   $7D25		; Set retry count = #$10
+
+; Fill sector_flag struct with #$10
+7C96-   99 26 7D    STA   $7D26,Y
+7C99-   88          DEY   
+7C9A-   10 FA       BPL   $7C96
+
+7C9C-   A5 D4       LDA   $D4		; gap3_count
+7C9E-   38          SEC   
+7C9F-   E9 05       SBC   #$05
+7CA1-   A8          TAY   
+
+; Delay for: (gap3_count-5) * 40 cycles
+7CA2-   20 0E 7D    JSR   $7D0E		; 12cy / RTS
+7CA5-   20 0E 7D    JSR   $7D0E		; 12cy / RTS
+7CA8-   48          PHA   			;  3
+7CA9-   68          PLA   			;  4
+7CAA-   EA          NOP   			;  2
+7CAB-   EA          NOP   			;  2
+7CAC-   88          DEY   			;  2
+7CAD-   D0 F3       BNE   $7CA2		;  3 (taken)
+									;  = 40 cycles
+
+7CAF-   AE 23 7D    LDX   $7D23
+7CB2-   20 6A 7A    JSR   $7A6A		; Read address field
+7CB5-   B0 3C       BCS   $7CF3
+7CB7-   A5 D8       LDA   $D8
+7CB9-   F0 13       BEQ   $7CCE		; read sector 0?
+									; ... No:
+7CBB-   C6 D4       DEC   $D4		; gap3_count--
+7CBD-   A5 D4       LDA   $D4
+7CBF-   CD 1F 7D    CMP   $7D1F
+7CC2-   B0 2F       BCS   $7CF3		; rewrite track
+7CC4-   38          SEC   			; error: gap3_count too small
+7CC5-   60          RTS
+
+; Verify next sector
+7CC6-   AE 23 7D    LDX   $7D23
+7CC9-   20 6A 7A    JSR   $7A6A		; Read address field
+7CCC-   B0 1A       BCS   $7CE8
+;
+7CCE-   AE 23 7D    LDX   $7D23
+7CD1-   20 07 7A    JSR   $7A07		; Read sector data
+7CD4-   B0 12       BCS   $7CE8
+7CD6-   A4 D8       LDY   $D8		; Y=read sector#
+7CD8-   B9 26 7D    LDA   $7D26,Y
+7CDB-   30 0B       BMI   $7CE8		; -ve if already read this sector
+7CDD-   A9 FF       LDA   #$FF
+7CDF-   99 26 7D    STA   $7D26,Y	; sector_flag[Y] := #$FF
+7CE2-   C6 D2       DEC   $D2		; write_sector--
+7CE4-   10 E0       BPL   $7CC6
+7CE6-   18          CLC   			; res = OK
+7CE7-   60          RTS   
+;
+7CE8-   CE 25 7D    DEC   $7D25		; retry_count--
+7CEB-   D0 D9       BNE   $7CC6
+7CED-   C6 D6       DEC   $D6
+7CEF-   D0 02       BNE   $7CF3
+7CF1-   38          SEC   			; error (timeout)
+7CF2-   60          RTS   
+
+; Retry 32 times to read sector #$0F
+; On success: rewrite track
+7CF3-   AD 22 7D    LDA   $7D22		; A = #$10 (constant)
+7CF6-   0A          ASL   			; A = #$20
+7CF7-   8D 25 7D    STA   $7D25		; Set retry count = #$20
+; 
+7CFA-   AE 23 7D    LDX   $7D23
+7CFD-   20 6A 7A    JSR   $7A6A		; Read address field
+7D00-   B0 06       BCS   $7D08
+7D02-   A5 D8       LDA   $D8
+7D04-   C9 0F       CMP   #$0F		; read sector == #$0F? (ie. last sector on track)
+7D06-   F0 07       BEQ   $7D0F		; ... yes: wait & rewrite track
+7D08-   CE 25 7D    DEC   $7D25
+7D0B-   D0 ED       BNE   $7CFA
+7D0D-   38          SEC   			; error
+7D0E-   60          RTS   
+;
+
+; wait for 214 x 32-cycle nibbles
+7D0F-   A2 D6       LDX   #$D6		; = 214
+7D11-   20 0E 7D    JSR   $7D0E		; 12cy / RTS
+7D14-   20 0E 7D    JSR   $7D0E		; 12cy / RTS
+7D17-   24 00       BIT   $00		;  3cy
+7D19-   CA          DEX   			;  2cy
+7D1A-   D0 F5       BNE   $7D11		;  3cy (2+1taken)
+									;  = 32
+; JMP to Write track and verify track
+7D1C-   4C 68 7C    JMP   $7C68
+; end
+
+.data
+7D1F:   0E	; min gap3
+7D20:   1B	; max gap3 (gap3 >= 0x1B means DRIVE TOO SLOW)
+7D21:   03	; timeout * 256
+7D22:   10 	; a constant
+7D23:   80	; slot*10
+7D24:   A0	; gets init'd to #$50 (80)
+7D25:	A0	; retry count
+
+; sector_flag[16]:
+7D26:   A0 B1 C5 A0
+7D2A:   A0 C4 A0 B0
+7D2E:   80 A0 A0 C3   
+7D32:   A0 A0 A0 A0
+
+7D36:   A0
+7D37:   A0
+7D38:   A0
+7D39:   A0
+
+; Symbol table:
+  D0 kAA
+  D1 w_Track
+  D2 w_Sector
+  D3 w_Volume
+  D4 w_Gap3Count
+  D5 r_Nib96Count
+  D6 r_NibCount1Hi
+  D7 r_Chksum
+  D8 r_Sector
+  D9 r_Track
+  DA r_Volume
+  DB r_TmpChksum
+  DC r_NibCount2Hi
+  DD r_Tmp4and4
+  DE kVolNum01
+7900 FormatterDiskII
+7923 SeekTrack
+793A FormatDisk
+7982 WriteNextTrack
+79A2 WriteTrack
+79B5 CheckGap3Count
+79CB FindSector00Init
+79D1 FindSector00Cont
+79E7 VerifySector
+79EF NextTrack
+79F9 Done
+7A07 ReadSectorData
+7A6A ReadAddressField
+7AC6 SeekHalfTrack
+7B2E WriteGap2AndData
+7BA4 WriteNibble1a
+7BA5 WriteNibble1b
+7BAE CheckWriteProt
+7BB7 WriteGap0Or3AndAddress
+7C2C WriteNibble2a
+7C2D WriteNibble2b
+7C37 Unused3
+7C3A WaitA
+7C4B Data12_1
+7C57 Data12_2
+7C63 WriteAndVerifyTrack
+7C68 WriteGap1AndAddress2
+7C71 WriteGap3AndAddress
+7C8C VerifyTrack
+7C96 ResetSectorFlags
+7CA2 WaitGap3Count
+7CBB DecGap3Count
+7CC6 VerifyNextSector
+7CCE VerifyNextSector2
+7CE8 Retry
+7CF3 Retry2
+7CFA FindSector0FCont
+7D0E RTS
+7D0F RetryWait
+7D1F kMinGap3
+7D20 kMaxGap3
+7D21 kNibCountHi
+7D22 k10
+7D23 Slotx16
+7D24 HalfTrack
+7D25 RetryCount
+7D26 SectorFlags
diff --git a/docs/DiskII Formatter/Formatter.dsk b/docs/DiskII Formatter/Formatter.dsk
new file mode 100644
index 00000000..fbd83260
Binary files /dev/null and b/docs/DiskII Formatter/Formatter.dsk differ
diff --git a/docs/DiskII Formatter/apple3_SRC_Disk_Formatter.pdf b/docs/DiskII Formatter/apple3_SRC_Disk_Formatter.pdf
new file mode 100644
index 00000000..864a401d
Binary files /dev/null and b/docs/DiskII Formatter/apple3_SRC_Disk_Formatter.pdf differ
diff --git a/docs/DiskII Formatter/formatter.s b/docs/DiskII Formatter/formatter.s
new file mode 100644
index 00000000..ff58084a
--- /dev/null
+++ b/docs/DiskII Formatter/formatter.s	
@@ -0,0 +1,1494 @@
+ ORG $2000 ;Re-ORG as necessary
+ LST ON,S,ASYM,VSYM
+ SBTL 'DISK FORMAT & PREPARATION ROUTINE'
+ REP 50
+*
+*       APPLE'S PRODOS FORMATTING/DISK BUILDING MODULE
+* 
+*                  VERSION 1.0.3
+*           
+*
+*       MODIFIED FOR COMPLIANCE WITH PRODOS TECHNOTE #16
+*       AND, TO CONSOLIDATE BUILDDISK, AND FORMATTER.
+*       INTO ONE MODULE, ACCESSED WITH A SINGLE CALL.
+*       ALSO TO PROVIDE A MECHANISM FOR THE USER TO
+*       DETERMINE THE NUMBER OF BLOCKS ON THE DEVICE,
+*       AND WHETHER IT IS A DISK II, /RAM, OR OTHER.
+*                          ON 10/17/85, BY PETE MC DONALD.
+*
+*       COPYRIGHT APPLE COMPUTER, INC., 1982-85
+*
+ REP 50
+*
+* ENTRY1: (ORG+$10) 
+*   INITIALIZES THE SPECIFIED UNIT #. BY:
+*     -FORMATTING PHYSICAL MEDIA. IF IT CAN BE FORMATTED
+*     -WRITING BOOT LOADER IN BLOCKS 0,1 (EVEN IF IT IS 
+*      NOT A DISK II).
+*     -CREATING VOLUME DIRECTORY IN BLOCKS 2,3,4,5 WITH 
+*      THE NAME CONTAINED IN THE FIRST 16 BYTES OF THE MODULE.
+*     -ALLOCATING BIT MAP IN BLOCKS 6 AND UP.
+*
+*   ON ENTRY, @ ENTRY1 (ORG+$10):
+*     A   = THE UNIT NUMBER, IN THE FORMAT REQUIRED BY THE
+*           PRODOS WRITE BLOCK CALL.
+*     X/Y = THE ADDRESS OF A BUFFER OF AT LEAST 512 BYTES
+*           WHICH THIS ROUTINE CAN FREELY USE.  X = THE
+*           LOW PART OF THE ADDRESS.
+*     THE FIRST 16 BYTES OF THE MODULE MUST CONTAIN THE DESIRED
+*           VOLUME NAME, WHERE THE FIRST BYTE CONTAINS THE LENGTH
+*           OF THE NAME (SHOULD BE 1 THRU 15) AND THE REMAINING 15 
+*           BYTES CONTAIN THE NAME (SHOULD BE A PROPER VOLUME
+*           NAME, WITH NO LEADING SLASH).  THE ORIGINAL
+*           CONTENTS OF THESE 16 BYTES ARE 12 (THE LENGTH), AND THE
+*           NAME 'DEFAULT.NAME   '.  NO CHECKING IS DONE ON THESE
+*           16 BYTES, BUT BIT 7 IS STRIPPED FROM EACH BYTE OF THE
+*           NAME.
+*
+*
+*   ON RETURN:
+*     Z IS UNDEFINED.
+*     C = THE ERROR STATUS:
+*         C = 0 INDICATES NO DETECTED ERRORS.
+*         C = 1 INDICATES AN ERROR, IN WHICH CASE THE ACCUMULATOR
+*               CONTAINS THE PRODOS ERROR CODE.
+*     A = 0 IF THERE WAS NO ERROR (C = 0), OR IT CONTAINS THE
+*         PRODOS ERROR CODE IF THERE WAS AN ERROR (C = 1).
+*     X AND Y ARE DESTROYED.
+*     THE FIRST 512 BYTES OF THE BUFFER ARE DESTROYED.
+*     0-PAGE LOCATIONS 2 AND 3 HAVE BEEN USED, BUT HAVE BEEN RESTORED
+*         TO THEIR VALUES AT ENTRY.
+*     0-PAGE LOCATIONS $42-$47 HAVE BEEN CHANGED AND NOT RESTORED.
+*
+*   IF CALLED FOR A NON-EXISTENT DISK (INCLUDING SLOT 0), 
+*   ERROR $28 WILL BE RETURNED.
+*   IF IT IS AN EXISTENT UNIT NUMBER, THE PROCESS BEGINS,
+*   AND OTHER ERRORS ARE THEN POSSIBLE.
+*  
+*   USES UNIT, ROM ID'S, AND DRIVER ADDRESS TO DETERIME SIZE
+*   THOSE DEVICES FOR WHICH THE SIZE IS GOTTEN BY
+*   A STATUS CALL TO THE SLOT'S ROM, THE DRIVE BIT IS 
+*   PRESENT IN LOCATION $43 AND IS USED TO INDEX INTO THE 
+*   DRIVER VECTOR TABLE.  THEREFORE, THE 2 DRIVES IN A SLOT 
+*   COULD BE DIFFERENT SIZES.
+*
+ page
+ REP 50
+*
+* ENTRY2 (ORG+$13):
+* RETURNS THE SIZE AND WHETHER IS DISK II, /RAM, OR OTHER.
+*
+* ON ENTRY, @ ENTRY2 (ORG+$13):
+* A = UNIT NUMBER, IN FORMAT REQUIRED BY PRODOS.
+* X/Y = THE ADDRESS OF A BUFFER OF AT LEAST 512 BYTES,
+*       WHICH THIS ROUTINE CAN USE FREELY. X = THE
+*       LOW PART OF THE ADDRESS.
+*
+*
+* ON RETURN:
+*   Z IS UNDEFINED.
+*   C = THE ERROR STATUS.
+*       C = 0, NO ERROR
+*       C = 1, AN ERROR WAS DETECTED.
+*   X = (SIZE lo) IF C = 0, X = UNDEFINED IF C = 1
+*   Y = (SIZE HI) IF C = 0. IF C = 1 THEN y = undefined
+*   A = error code if C = 1: IF C = 0 then 
+*   A = 0 FOR DISK II, A = 1 FOR /RAM, A  = 2 FOR ALL OTHERS.
+*
+* THE FIRST 512 BYTES OF THE BUFFER ARE DESTROYED.
+* ZERO PAGE LOCS 2 AND 3 HAVE BEEN USED, BUT HAVE
+* BEEN RESTORED TO THEIR VALUES AT ENTRY.
+* 0 - PAGE LOCATIONS 42-47, HAVE BEEN CHANGED AND 
+* NOT RESTORED.
+*
+* IF CALLED FOR NON EXISTENT DEVICE, ERROR $28 WILL BE RETURNED
+* IF CALLED FOR EXISTENT DEVICE, PROCESS WILL BEGIN, AND THEN
+* OTHER ERRORS ARE POSSIBLE.
+*
+* USES UNIT, ROM ID'S, AND DRIVER ADDRESS TO DETERIME SIZE
+* THOSE DEVICES FOR WHICH THE SIZE IS GOTTEN BY
+* A STATUS CALL TO THE SLOT'S ROM, THE DRIVE BIT IS 
+* PRESENT IN LOCATION $43 AND IS USED TO INDEX INTO THE 
+* DRIVER VECTOR TABLE.  THEREFORE, THE 2 DRIVES IN A SLOT 
+* COULD BE DIFFERENT SIZES.
+*
+ page
+ REP 50
+*
+MLIENTRY EQU $BF00 ;MLI ENTRY POINT 
+DEVADRS01 EQU $BF10 ;DEVICE DRIVER VECTOR TABLE
+DEVCNT EQU $BF31 ;ONLINE DEVICE COUNT
+DEVLST EQU $BF32 ;ONLINE DEVICE LIST
+DATELO EQU $BF90 ;DATE/TIME (4 BYTES)
+KMVERSN EQU $BFFE ;MINIMUM VERSION #
+KVERSION EQU $BFFF ;PRODOS VERSION
+ENTRYB EQU $0D ;ENTRIES/BLOCK IN A DIRECTORY
+ENTRYL EQU $27 ;DIRECTORY ENTRY LENGTH
+*
+* PAGE ZERO LOCATIONS
+*
+BUFFPTR EQU 2 ;AND 3
+DEVCMD EQU $42
+DEVUNIT EQU $43
+DEVBLK EQU $46 ;AND 47
+*
+BUILDDISK EQU *
+*
+DUMSIZE DB 12 ;SIZE OF THE DUMMY NAME
+DUMMYNAM ASC 'DEFAULT.NAME   '
+ page
+*
+* ACTUAL ENTRY POINTS ARE HERE
+*
+entry1 jmp form ;normal builddisk entry
+entry2 jmp stat ;return device size and type.
+*
+* this performs the normal format and disk build operations
+*
+form jsr validate ;save regs/verify unit num
+ bcs out ;error go home zp restored by validate
+ jmp Build ;else do format/build
+*
+* returns device size in x/y y=hi, and a= 0 for DISK II,
+* 1 for /RAM, 2 for all others./
+*
+stat jsr validate ;save zp/validate unit #
+ bcs out ;error go home/zp restored by validate.
+ jsr getblks ;else get and return size/type of unit
+ stx loctemp ;save size hi for a sec
+ jsr error ;no error, but fix zp locs 2,3
+ tax  ;for the sake of consistency swap
+ tya  ;regs around to conform with normal
+ ldy loctemp ;status call.
+out rts  ;bye
+*
+Validate STA UNITNUM1 ;SAVE THE PASSED UNIT NUMBER
+ STA UNITNUM2 ;SAVE THE PASSED UNIT NUMBER
+ STA UNITNUM3 ;SAVE THE PASSED UNIT NUMBER
+*
+ AND #$F0 ;CLEAR LO BITS JUST IN CASE
+ STA UNITLEFT ;SAVE FOR LATER (LEFT JUSTIFIED)
+*
+ LDA BUFFPTR ;SAVE CURRENT CONTENTS OF 0-PAGE LOCATIONS
+ STA SAVEZERO
+ LDA BUFFPTR+1
+ STA SAVEZERO+1
+*
+ STX BUFFPTR ;SAVE PASSED BUFFER ADDRESS IN 0-PAGE
+ STY BUFFPTR+1
+ STX LBUFFPTR ;ALSO SAVE IN LOCAL PARAMETER LIST
+ STY LBUFFPTR+1
+*
+ LDX DEVCNT ; POINT TO LAST ACTIVE DISK
+LOOP LDA DEVLST,X ; GET BYTE FOR ACTIVE DISK
+ AND #$F0 ; CLEAR OUT DISKTYPE INDICATOR
+ CMP UNITLEFT ; FOUND OUR DISK?
+ BEQ FOUND ; YES
+ DEX ; NO, POINT TO NEXT DISK
+ BPL LOOP ; IF X HAS NOT GONE NEGATIVE, THERE ARE MORE DISKS
+*
+* DIDN'T FIND DISK.
+ LDA #$28 ; SIGNAL NO DEVICE
+ SEC ; SIGNAL ERROR
+ BCS ERROR ;ALWAYS
+found clc 
+ RTS
+*
+BUILD equ *
+ jsr doformat ;go format if can
+ bcs error ;taken if error during format.
+ jsr isitram ;is unitnum /RAM ?o-SD
+ BNE OKDISK ;NO
+*
+ LDA #0 ;No error, but do nothing              |
+ CLC ;  since RAMDISK Format does it for us |
+ BCC ERROR ;ALWAYS                                |
+*
+okdisk equ * ;mod
+ lda UNITLEFT ;*mod* recover disktype
+ STA DISKTYPE ;SAVE FOR LATER
+ JSR MLIENTRY ;WRITE BOOT BLOCK 0
+ DB $81
+ DW BLK0PARM
+ BNE ERROR
+*
+ JSR MLIENTRY ;WRITE BOOT BLOCK 1
+ DB $81
+ DW BLK1PARM
+ BNE ERROR
+*
+ JSR ROOTBLK2 ;WRITE ROOT DIRECTORY BLK 2
+ BCS ERROR
+ JSR ROOTBLKS ;WRITE ROOT DIRECTORY BLKS 3-5 
+ BCS ERROR
+ JSR BITMAPS ;WRITE BIT MAP IN BLKS 6 AND UP
+*
+ERROR LDX SAVEZERO ;RESTORE 0-PAGE LOCATIONS
+ STX BUFFPTR
+ LDX SAVEZERO+1
+ STX BUFFPTR+1
+*
+ RTS
+*
+SAVEZERO DW 0
+DISKTYPE DB 0 ;LOW ORDER NIBBLE FROM DEVLST
+*
+BLK0PARM DB 3 ;3 PARAMETERS
+UNITNUM1 DB 0 ;UNIT NUMBER FILLED IN FROM CALLER
+ DW BOOTZERO ;ADDRESS OF BOOT BLOCK
+ DW 0 ;WRITE TO BLOCK 0
+*
+BLK1PARM DB 3 ;3 PARAMETERS
+UNITNUM2 DB 0 ;UNIT NUMBER FILLED IN FROM CALLER
+ DW BOOTONE ;ADDRESS OF BOOT BLOCK
+ DW 1 ;WRITE TO BLOCK 1
+ SBTL 'SETUP & WRITE ROOT DIRECTORY'
+ROOTBLK2 EQU *
+ JSR MLIENTRY ;GET DATE/TIME
+ DB $82
+ DW 0
+*       CANNOT GENERATE AN ERROR FROM THIS CALL
+ JSR CLRBUFF ;CLEAR BUFFER
+ LDY #2 ;POINT TO FORWARD POINTER IN BUFFER 
+ LDA #3 ;BLOCK 2 POINTS FORWARD TO BLOCK 3
+ STA (BUFFPTR),Y
+*
+ LDY #4+0 ;POINT TO STORAGE TYPE/NAME LENGTH
+ LDA DUMSIZE ;USE DUMMY NAME
+ ORA #$F0 ;OR IN THE DIRECTORY MARKER
+ STA (BUFFPTR),Y
+ LDX #0 ;POINT TO FIRST CHARACTER OF NAME
+RTD1 EQU *
+ INY
+ LDA DUMMYNAM,X ;GET VOLUME NAME
+ AND #$7F ;NO HI BIT
+ STA (BUFFPTR),Y ;WRITE TO BUFR
+ INX
+ CPX DUMSIZE ;DONE?
+ BNE RTD1 ;NO
+*
+ LDX #0 ;POINT TO DATE/TIME IN PRODOS
+ LDY #4+$18 ;POINT TO DATE/TIME IN BUFFER
+RT2 LDA DATELO,X ;TRANSFER DATE/TIME TO BUFFER
+ STA (BUFFPTR),Y
+ INX
+ INY
+ CPX #4
+ BNE RT2 
+*
+ LDA KVERSION ;GET VERSION # FROM GLOBALS
+ STA (BUFFPTR),Y
+*
+ INY  
+ LDA KMVERSN ;AND MINIMUM VERSION #
+ STA (BUFFPTR),Y
+ INY
+ LDA #$C3 ;GET ACCESS BYTE VALUE
+ STA (BUFFPTR),Y
+ INY
+ LDA #ENTRYL ;GET ENTRY LENGTH
+ STA (BUFFPTR),Y
+ INY
+ LDA #ENTRYB ;GET ENTRIES/BLOCK
+ STA (BUFFPTR),Y
+ LDY #4+$23 ;POINT TO BITMAP PTR
+ LDA #6 
+ STA (BUFFPTR),Y
+ JSR GETBLKS ;GET TOTAL BLKS (A=LO,X=HI)
+ BCS RTRET ;QUIT ON ERROR
+ LDY #4+$25 ;POINT TO TOTAL BLOCKS IN BUFFER
+ STA (BUFFPTR),Y ;LO
+ STA TEMP ;ALSO STORE IN TEMP AND TEMP1
+ INY
+ TXA
+ STA (BUFFPTR),Y ;HI
+ STA TEMP1
+*
+ LDA #1 ;SET UP TO WRITE BLOCK 2 (GETS INCREMENTED)
+ STA BLKNUM
+ JSR WRTBLK
+RTRET RTS ;C=1 MEANS ERROR ON WRITE, ELSE GOOD
+*
+TEMP DB 0
+TEMP1 DB 0
+ PAGE
+ REP 50
+*
+* isitram - determine if chosen unit, is /ram
+*
+* if vector is $ff00, then is /ram.
+*
+* ENTRY: unitleft contains left justified unitnum
+* EXIT: X unchanged, a,y scrambled
+* is ram, z=1
+* not ram z=0
+*
+isitram equ *
+ lda unitleft ;get justified unit number
+ lsr a ;right justify
+ lsr a
+ lsr a
+ jsr getvect ;get device driver address
+ bne notram ;taken if low order of vect not 0
+ cpy #$FF ;is high byte $FF
+ bne notram ;if not is not /ram and z=0  return
+ lda #00 ;is /ram make z=1
+notram rts  ;bye
+*
+*
+* isitdiskII - is unit number a disk II
+* use signature bytes in CN00
+* derive cn from unitleft
+* ENtry: unitleft contains left just unitnum
+* exit : z=1 is diskII
+*        z=0 not disKII
+* a,x scramble
+* y unchanged 
+*
+isitdiskII equ *
+ lda unitleft ;get unit number
+ and #$70 ;extract slot number
+ lsr a ;move slot to low nibble.
+ lsr a
+ lsr a
+ lsr a
+ ora #$c0 ;append $C for a slot address
+ sta loadd+2 ;mod hi byte of lda to point to CNXX
+ ldx #3 ;init count of bytes to check
+chklp lda dIIlocs,x ;get lowbyte of address to check
+ sta loadd+1 ;save at load instruction
+loadd lda $C000 ; self modifying  get byte at loc
+ cmp dIIids,x ;is it a DiskII signature ?
+ bne endDII ;taken if no
+ dex  ;else check the next one
+ bpl chklp ;are there anymore ?
+ inx  ;make z=1 
+endDII rts  ;bye z=0 is not DII, z=1, is dII
+dIIids dfb $20,0,3,0 ;DiskII signatures,
+dIIlocs dfb 1,3,5,$ff ;and thier respective locations. 
+*
+*
+* DOFORMAT-format physical disk media if possible
+*
+* If disk II, use formatter driver.
+* If ram based. Or if Rom based with can format true, use 
+* device format call.
+* If is Rom based, and can format is not true, then do nothing.
+* called only after it has been determined that unit # is valid
+*
+*       ENTRY: BUFFPTR, & BUFFPTR+1, are user passed buffer address.
+*              UNITLEFT contains left justified unit num.
+*              UNITNUM1, contains originally passed unit num.
+*              A=unitnum, X&Y=don't care.
+*
+*       EXIT: Success a=0 c=0 x,y unknown.
+*             Failure, a=errnum, c=1, x,y unknown.
+*             if ROM call made, $42-$47, destroyed.
+* 
+*
+doformat equ *
+ jsr isitdiskII ;is unit a disk II
+ bne dforcont ;taken if not
+ ldx #$D ;init index/count-1
+savlp lda $d0,x ;save locs $D0 - $DD
+ sta locbuff,x
+ dex  ;next one /any more ?
+ bpl savlp ;taken if yes
+ lda UNITLEFT ;get the original unit num
+ jsr FORMATTII ;format a disk II
+ php  ;save error status
+ pha  ;save error code (if any)
+ ldx #$D ;restore $d0 - $DD
+reslp lda locbuff,x
+ sta $D0,x
+ dex  ;next one /anymore ?
+ bpl reslp ;taken if yes.
+ pla  ;recover Error code
+ plp  ;and error status.
+ rts  ;done bye
+*
+dforcont lda unitleft ;get unit num again
+ lsr a ;right justify
+ lsr a  
+ lsr a
+ jsr getvect ;get vector to device driver.
+ sta devjmp ;save lowbyte 
+ sty devjmp+1 ;and high byte for driver call.
+ tya  ;get high byte of address
+ and #$f0 ;clear low nibble
+ cmp #$c0 ;does it point to $CN ?
+ bne dforcont1 ;taken if no.(is not ROM based)
+*
+ sty modadd+2 ;set up LDA to point at attributes
+modadd lda $C0FE ;modified by previous instruction.
+ and #$08 ;isolate can format bit.
+ bne dforcont1 ;taken if it supports formatting
+ clc  ;does not, but no error, just return for
+ rts  ;builddisk to write dir etc.
+*
+dforcont1 lda unitnum1 ;get back unit num
+ sta devunit ;save it for driver
+ lda #00 ;zero for
+ sta devblk ;block
+ sta devblk+1 ;and block hi
+ lda #03 ;get format command
+ sta devcmd ;save it for driver
+ sta $cfff ;turn off whoever has $c800
+ lda $c08b ;switch language card in
+ lda $c08b
+ jsr asjmp ;jsr to jmp indirect to driver.
+ bit $c082 ;switch rom back in.
+ rts  ;ret to continue build, with error if any
+*
+*  GETBLKS - GET # OF BLOCKS ON DEVICE. 
+*
+*  IF IT'S A DISKII, BLOCKS ARE HARDCODED AT $118.  IF
+*  is /RAM # blocks hardcoded at $7f. If is is an 
+*  OTHER KIND OF DISK, NUMBER OF BLOCKS MAY BE IN
+*  $CNFC,FD.  BUT IF THEY CONTAIN 0, THEN MUST CALL 
+*  ROM CODE WITH STATUS REQUEST TO GET BLOCKS.
+*
+*  ENTRY:  UNITNUM1, UNITLEFT, AND DISKTYPE MUST BE SET.
+*  EXIT: Success: Carry = 0,  X=HI,A=LO BLOCKS
+*               : Y=0 for DISK II, Y=1 for /RAM, Y=2 for all others.
+*        Failure: Carry = 1, Accum = error code
+*               : X and Y undefined
+*        If ROM call is made: $42-$47 destroyed
+*
+ REP 50
+*
+GETBLKS equ * ;was LDA DISKTYPE
+ jsr isitdiskII ;was CMP #DISKII
+ BNE DB1a ;NO
+ lda #0 ;save the fact that this is disk II
+ sta loctemp ;at a local temp
+ LDA #$18 ;YES, SIZE = 280 BLOCKS
+ LDX #1
+ BNE DB2 ;ALWAYS
+*
+db1a equ *
+ jsr isitram ;is this /RAM ?
+ bne db1 ;taken if not
+ lda #1 ;save the fact that tis is /RAM
+ sta loctemp ;at a local temp
+ ldx #0 ;and there are $7f blocks
+ lda #$7f ;get them and reset z
+ bne db2 ;alwayss
+*
+* Not DISK II SO CHECK $CNFC-FD
+*
+DB1 LDA UNITLEFT ; get unit number (left justified)     |
+ LSR A ; SHIFT UNIT NUMBER INTO TABLE INDEX   |
+ LSR A ;                                      |
+ LSR A ;                                      |
+ STA UNITRIGHT ; save it                              |
+ JSR GETVECT ;GET DRIVER VECTOR FROM TABLE          |
+*
+* mod to check if driver is in CN00, if not must ask size.
+*
+ tya
+ and #$F0 ;clear all but high nibble of address
+ cmp #$c0 ;is it in rom space
+ bne ask ;taken if not in ROM
+*
+*
+ STY BUFFPTR+1 ;HI                                    |
+ LDA #$FC
+ STA BUFFPTR ;LO
+ LDY #0
+ LDA (BUFFPTR),Y
+ PHA
+ INY 
+ LDA (BUFFPTR),Y
+ TAX
+ BNE DB3 ; if not zero, then size is hardwired
+ PLA  ; get lo byte
+ BNE DB2 ; if not zero then return
+ask JSR ASKSIZE ; need to go ask device for size
+ BCS RESTORE ; branch if error
+ lda #2 ;save the fact that this is a "other"
+ sta loctemp ;at a local temp
+ TXA  ; get low byte
+ PHA  ; save it
+ TYA  ; get hi byte
+ TAX  ; put in X
+ PLA  ; get low byte back
+ bcc RESTORE ; GO RESTORE BUFFER POINTER AND EXIT
+*
+DB3 PLA
+DB2 CLC  ; clear carry to indicate success
+RESTORE LDY LBUFFPTR ; RESTORE THE POINTER TO THE CALLER'S BUFFER
+ STY BUFFPTR
+ LDY LBUFFPTR+1
+ STY BUFFPTR+1
+ ldy loctemp ;get the kind of device anbd return it.
+ RTS
+*
+ASKSIZE EQU * ; ask device for size via status command
+ LDA #0 ; COMMAND BYTE = 0 (give status)
+ STA DEVCMD ; store in zero page parameters
+ STA DEVBLK ; block #  
+ STA DEVBLK+1
+ LDA UNITRIGHT ; get unit # (right justified)
+ JSR GETVECT ;                                       |
+ STA DEVJMP ;                                       |
+ STY DEVJMP+1 ;                                       |
+ LDA UNITNUM1 ; get unit #, with possible low nibble junk
+ STA DEVUNIT
+ STA $CFFF
+ lda $c08b
+ lda $c08b
+ JSR ASJMP 
+ bit $c082
+ RTS
+ASJMP JMP (DEVJMP) ; indirect jump to ROM entry
+ BRK
+*
+GETVECT EQU * ;                                     |
+ TAY ;VECTOR INTO TABLE IN ACC ON ENTRY    |
+ LDA DEVADRS01,Y ;GET LOW BYTE                         |
+ PHA ;SAVE IT                              |
+ LDA DEVADRS01+1,Y ;GET HI BYTE                          |
+ TAY ;SAVE IT IN Y                         |
+ PLA ;GET LO BYTE BACK                     |
+ RTS ;                                     |
+*
+UNITLEFT DB 0 ; UNIT NUMBER
+UNITRIGHT DB 0 ; reserve a byte for saving slot
+DEVJMP DW 0 ; ADDRESS IN ROM
+*
+ REP 50
+*
+*  WRTBLK -- INCREMENTS THE BLOCK NUMBER AND WRITES
+*            CURRENT BUFFER TO THAT BLOCK
+*
+ REP 50
+*
+WRTBLK EQU *
+ INC BLKNUM
+ JSR MLIENTRY
+ DB $81 ;BLOCK WRITE
+ DW PARMLIST
+ RTS
+*
+PARMLIST EQU * ;PARAMETER LIST FOR WRITING BLOCKS 2 AND UP
+ DB 3 ;PARM COUNT
+UNITNUM3 DB 0
+LBUFFPTR DW 0
+BLKNUM DW 0
+ PAGE
+ REP 50
+*
+*  ROOTBLKS - SETUP AND WRITE FORWARD & BACKWARD POINTERS
+*  INTO BLOCKS 3,4,5 OF ROOT DIRECTORY
+*
+ REP 50
+*
+ROOTBLKS EQU *
+ JSR CLRBUFF ;CLEAR OUT BUFFER AREA
+ LDA #2 ;BACKWARD POINTER FOR BLOCK 3
+ LDX #4 ;FORWARD POINTER FOR BLOCK 3
+ JSR BF1 ;WRITE BLOCK 3 TO DISK
+ BCS BF2 ;ERR
+ LDA #3 ;BACKWARD POINTER FOR BLOCK 4
+ LDX #5 ;FORWARD POINTER FOR BLOCK 4
+ JSR BF1 ;WRITE BLK 4 TO DISK
+ BCS BF2 ;ERR
+ LDA #4 ;BACKWARD POINTER FOR BLOCK 5
+ LDX #0 ;FORWARD POINTER FOR BLOCK 5
+BF1 LDY #0 ;POINT TO BACKWARD POINTER
+ STA (BUFFPTR),Y ;STORE BACKWARD PTR IN BUFFER
+ LDY #2 ;POINT TO FORWARD POINTER
+ TXA
+ STA (BUFFPTR),Y ;STORE FORWARD PTR IN BUFFER
+ JSR WRTBLK ;CALL MLI FOR WRITE TO DISK
+BF2 RTS ;C=1 ERR ON WRITE ELSE OK
+ SBTL 'SETUP AND WRITE BITMAP'
+ REP 50
+*
+*  CONVBLKS - CONVERT # OF BLOCKS ON DEVICE TO # OF 
+*  BYTES TO SET IN BITMAP FOR NEWLY FORMATTED DISK. 
+*
+*   ENTER: TEMP  = LO BLOCKS
+*          TEMP1 = HI BLOCKS
+*
+*    EXIT: TEMP  = LO BYTES
+*          TEMP1 = HI BYTES 
+*          NBITS = EXTRA BITS
+*
+ REP 50
+*
+CONVBLKS EQU *
+ LDA TEMP ; get low order # of blocks
+ AND #$07 ; put remainder of bits in NBITS
+ STA NBITS
+ LDA TEMP ; mask out low bits
+ AND #$F8 ;   so that ROR's work
+ CLC  ; clear carry for first time
+ LDX #3 ; slide bits down 3 places
+CNV1 ROR TEMP1 ;   slide top bits down
+ ROR A ;   slide bottom bits down
+ DEX
+ BNE CNV1 ;   go back and do more 
+ STA TEMP ; put back lower bits
+ RTS
+*
+NBITS DB 0
+ PAGE
+ REP 50
+*
+*  BITMAPS - SETUP AND WRITE BIT MAPS TO NEWLY FORMATTED
+*  DISKS.  WORKS FOR ARBITRARY-SIZED VOLUMES. 
+*
+* INPUTS:
+*    TEMP,TEMP1 -- word containing # blocks in device
+*
+* OUTPUTS:
+*    TEMP,TEMP1 -- destroyed
+*    CARRY --  0 -> success
+*              1 -> failure, code in accumulator
+* 
+ REP 50
+*
+BITMAPS EQU *
+ jsr convblks ;convert # blks to # of bytes & bits
+ LDA NBITS ;ANY EXTRA BITS?
+ BEQ BTMP1 ;BRANCH IF NOT
+ INC TEMP ;DO 1 MORE BYTE IN BITMAP
+ BNE BTMP1 ; IF THERE IS.
+ INC TEMP1
+BTMP1 EQU *
+ lda temp1 ; hi byte of # of bytes in bit map 
+ clc
+ ror A ; get # of blocks in bit map (#/$200)
+ bcs used ; if carry set, then need another bit
+ ldx temp ; did we end on even block boundary?
+ beq used ; branch if so (carry clear) 
+ sec  ; otherwise, set carry for another bit
+used adc #6 ; add in # bits for root dir & boot blks 
+ pha  ; save # of bits to mark as used 
+ LDA NBITS
+ BEQ BTMP2
+ DEC TEMP ;RESTORE # BYTES IN MAP TO # FULL BYTES
+ LDA TEMP
+ CMP #$FF
+ BNE BTMP2
+ DEC TEMP1
+BTMP2 JSR CLRBUFF ;ZERO THE BUFFER
+mapblock lda temp1 ; check # of bytes left TO DO 
+ cmp #2 ; LESS THAN $200 BYTES to do?
+ bcc last ; go do last block if YES. 
+ SBC #2 ;SET COUNT TO DO AT N-$200
+ STA TEMP1
+ jsr setfull ; set the full block with $FF's 
+ pla  ; get # of bits to mark used
+ jsr markused
+ jsr WRTBLK ; write this block of bit map out 
+ bcs bterr ;   branch if error during write
+ lda #0 ;# of bits to be marked as used next time
+ pha
+ beq BTMP2 ; always taken
+last jsr CLRBUFF ; clear buffer first
+ lda temp1 ; 1 PAGE OR LESS?
+ beq last1 ;BRANCH IF YES
+ LDA #$FF
+ jsr WRTBITS ; set first page to $FF's
+ inc BUFFPTR+1 ; point to second page 
+LAST1 LDY TEMP ;ANY FULL BYTES ON THIS PG OF PARTIAL BLOCK?
+ BEQ LAST1.1 ;BRANCH IF NOT
+ jsr setCNT ; ELSE mark final partial block 
+LAST1.1 LDY TEMP
+ INY ;POINT TO BYTE AFTER TEMP
+ JSR EXTRAB ;GO DO EXTRA BITS
+ lda temp1 ; was it the in the 1st or 2nd page ? 
+ beq marklast ; branch if 1st 
+ dec BUFFPTR+1 ; fix BUFFPTR if we did 2nd page 
+marklast pla  ; pull off # of bits to mark as used
+ jsr markused ; mark them used
+ jsr WRTBLK ; write out last block of bit map 
+ rts  ; return (with carry set if error) 
+*
+markused equ * ; mark some bits as used at start of blk
+ ldy #0 ; point to beginning of buffer
+markloop tax  ; store # bits to mark in X
+ beq markrtn ; if no bits to mark as used, return
+ cpx #8 ; more than eight bits to mark?
+ bcc markpart ; branch if less than full byte
+ lda #0 ; zero out whole byte
+ sta (BUFFPTR),y
+ iny  ; point to next byte in block 
+ txa  ; get # bits in accum
+ sec  ; set carry for subtraction
+ sbc #8 ; subtract off bits just marked
+ bpl markloop ; always taken 
+markpart lda #$7F ; at least 1 bit gets cleared 
+partloop dex  ; are we done?
+ beq partdone ; branch if so
+ clc  ; otherwise, rotate in another clear bit
+ ror A
+ bcs partloop ; branch always
+partdone sta (BUFFPTR),y
+markrtn rts
+*
+bterr equ * ; return after error writing block 
+ tax  ; save error code in X
+ pla  ; pull off extraneous byte from stack 
+ txa  ; get error code back 
+ sec  ; mark as error 
+ rts 
+*
+SETCNT EQU * ;SET # OF BYTES IN Y TO $FF
+ LDA #$FF
+SETCNT1 DEY
+ STA (BUFFPTR),Y
+ BNE SETCNT1
+ RTS
+*
+extrab lda nbits ; write leftover bits  
+ beq ex1 ; none left over 
+ jsr getbits ; gives mask in acc, leaves Y intact 
+ DEY
+ sta (BUFFPTR),y 
+ex1 rts 
+*
+CLRBUFF equ * ; clear buffer area 
+ lda #0 ;                                      |
+ BEQ WRTB1 ;                                      |
+SETFULL LDA #$FF ;FILL BUFFER W/$FF                     |
+WRTB1 jsr wrtbits ; write out bits of 00's OR $FF's      |
+ inc BUFFPTR+1 ; set to 2nd page of buffer 
+ jsr wrtbits 
+ dec BUFFPTR+1 ; restore pointer 
+ rts 
+wrtbits ldy #0
+wrtb sta (BUFFPTR),Y
+ iny 
+ bne wrtb 
+ rts 
+*
+ REP 50
+*
+*   GETBITS - GET BIT MASK FOR REMAINING BITS.
+*   USED IN FORMAT FOR SETTING BITS IN VOLUME 
+*   BIT MAPS.
+*
+ REP 50
+*
+GETBITS EQU * ;GET BIT MASK FOR REMAINING BYTE IN UIMEM
+ SEC
+ LDA #$08
+ SBC NBITS
+ BEQ ALLBITS
+ TAX 
+ CPX #8
+ BEQ NOBITS
+ LDA #$FF
+SHFBITS ASL A
+ DEX 
+ BNE SHFBITS
+ BEQ SOMEBITS
+ALLBITS LDA #$FF
+SOMEBITS EQU *
+ RTS
+NOBITS LDA #0
+ BEQ SOMEBITS
+ SBTL 'BOOT BLOCK 0 AND 1 CODE'
+ REP 50
+*
+*  BOOT BLOCK 0 CODE
+*
+ REP 50
+*
+BOOTZERO EQU * ;WRITTEN TO BLOCK 0
+ DFB $01,$38,$B0,$03,$4C,$32,$A1,$86
+ DFB $43,$C9,$03,$08,$8A,$29,$70,$4A
+ DFB $4A,$4A,$4A,$09,$C0,$85,$49,$A0
+ DFB $FF,$84,$48,$28,$C8,$B1,$48,$D0
+ DFB $3A,$B0,$0E,$A9,$03,$8D,$00,$08
+ DFB $E6,$3D,$A5,$49,$48,$A9,$5B,$48
+ DFB $60,$85,$40,$85,$48,$A0,$63,$B1
+ DFB $48,$99,$94,$09,$C8,$C0,$EB,$D0
+ DFB $F6,$A2,$06,$BC,$1D,$09,$BD,$24
+ DFB $09,$99,$F2,$09,$BD,$2B,$09,$9D
+ DFB $7F,$0A,$CA,$10,$EE,$A9,$09,$85
+ DFB $49,$A9,$86,$A0,$00,$C9,$F9,$B0
+ DFB $2F,$85,$48,$84,$60,$84,$4A,$84
+ DFB $4C,$84,$4E,$84,$47,$C8,$84,$42
+ DFB $C8,$84,$46,$A9,$0C,$85,$61,$85
+ DFB $4B,$20,$12,$09,$B0,$68,$E6,$61
+ DFB $E6,$61,$E6,$46,$A5,$46,$C9,$06
+ DFB $90,$EF,$AD,$00,$0C,$0D,$01,$0C
+ DFB $D0,$6D,$A9,$04,$D0,$02,$A5,$4A
+ DFB $18,$6D,$23,$0C,$A8,$90,$0D,$E6
+ DFB $4B,$A5,$4B,$4A,$B0,$06,$C9,$0A
+ DFB $F0,$55,$A0,$04,$84,$4A,$AD,$02
+ DFB $09,$29,$0F,$A8,$B1,$4A,$D9,$02
+ DFB $09,$D0,$DB,$88,$10,$F6,$29,$F0
+ DFB $C9,$20,$D0,$3B,$A0,$10,$B1,$4A
+ DFB $C9,$FF,$D0,$33,$C8,$B1,$4A,$85
+ DFB $46,$C8,$B1,$4A,$85,$47,$A9,$00
+ DFB $85,$4A,$A0,$1E,$84,$4B,$84,$61
+ DFB $C8,$84,$4D,$20,$12,$09,$B0,$17
+ DFB $E6,$61,$E6,$61,$A4,$4E,$E6,$4E
+ DFB $B1,$4A,$85,$46,$B1,$4C,$85,$47
+ DFB $11,$4A,$D0,$E7,$4C,$00,$20,$4C
+ DFB $3F,$09,$26,$50,$52,$4F,$44,$4F
+ DFB $53,$20,$20,$20,$20,$20,$20,$20
+ DFB $20,$20,$A5,$60,$85,$44,$A5,$61
+ DFB $85,$45,$6C,$48,$00,$08,$1E,$24
+ DFB $3F,$45,$47,$76,$F4,$D7,$D1,$B6
+ DFB $4B,$B4,$AC,$A6,$2B,$18,$60,$4C
+ DFB $BC,$09,$A9,$9F,$48,$A9,$FF,$48
+ DFB $A9,$01,$A2,$00,$4C,$79,$F4,$20
+ DFB $58,$FC,$A0,$1C,$B9,$50,$09,$99
+ DFB $AE,$05,$88,$10,$F7,$4C,$4D,$09
+ DFB $AA,$AA,$AA,$A0,$D5,$CE,$C1,$C2
+ DFB $CC,$C5,$A0,$D4,$CF,$A0,$CC,$CF
+ DFB $C1,$C4,$A0,$D0,$D2,$CF,$C4,$CF
+ DFB $D3,$A0,$AA,$AA,$AA,$A5,$53,$29
+ DFB $03,$2A,$05,$2B,$AA,$BD,$80,$C0
+ DFB $A9,$2C,$A2,$11,$CA,$D0,$FD,$E9
+ DFB $01,$D0,$F7,$A6,$2B,$60,$A5,$46
+ DFB $29,$07,$C9,$04,$29,$03,$08,$0A
+ DFB $28,$2A,$85,$3D,$A5,$47,$4A,$A5
+ DFB $46,$6A,$4A,$4A,$85,$41,$0A,$85
+ DFB $51,$A5,$45,$85,$27,$A6,$2B,$BD
+ DFB $89,$C0,$20,$BC,$09,$E6,$27,$E6
+ DFB $3D,$E6,$3D,$B0,$03,$20,$BC,$09
+ DFB $BC,$88,$C0,$60,$A5,$40,$0A,$85
+ DFB $53,$A9,$00,$85,$54,$A5,$53,$85
+ DFB $50,$38,$E5,$51,$F0,$14,$B0,$04
+ DFB $E6,$53,$90,$02,$C6,$53,$38,$20
+ DFB $6D,$09,$A5,$50,$18,$20,$6F,$09
+ DFB $D0,$E3,$A0,$7F,$84,$52,$08,$28
+ DFB $38,$C6,$52,$F0,$CE,$18,$08,$88
+ DFB $F0,$F5,$BD,$8C,$C0,$10,$FB,$00
+ DFB $00,$00,$00,$00,$00,$00,$00,$00
+ PAGE
+ REP 50
+*
+*  BOOT BLOCK 1 CODE
+*
+ REP 50
+*
+BOOTONE EQU * ;WRITTEN TO BLOCK 1
+ DFB $4C,$6E,$A0,$53,$4F,$53,$20,$42
+ DFB $4F,$4F,$54,$20,$20,$31,$2E,$31
+ DFB $20,$0A,$53,$4F,$53,$2E,$4B,$45
+ DFB $52,$4E,$45,$4C,$20,$20,$20,$20
+ DFB $20,$53,$4F,$53,$20,$4B,$52,$4E
+ DFB $4C,$49,$2F,$4F,$20,$45,$52,$52
+ DFB $4F,$52,$08,$00,$46,$49,$4C,$45
+ DFB $20,$27,$53,$4F,$53,$2E,$4B,$45
+ DFB $52,$4E,$45,$4C,$27,$20,$4E,$4F
+ DFB $54,$20,$46,$4F,$55,$4E,$44,$25
+ DFB $00,$49,$4E,$56,$41,$4C,$49,$44
+ DFB $20,$4B,$45,$52,$4E,$45,$4C,$20
+ DFB $46,$49,$4C,$45,$3A,$00,$00,$0C
+ DFB $00,$1E,$0E,$1E,$04,$A4,$78,$D8
+ DFB $A9,$77,$8D,$DF,$FF,$A2,$FB,$9A
+ DFB $2C,$10,$C0,$A9,$40,$8D,$CA,$FF
+ DFB $A9,$07,$8D,$EF,$FF,$A2,$00,$CE
+ DFB $EF,$FF,$8E,$00,$20,$AD,$00,$20
+ DFB $D0,$F5,$A9,$01,$85,$E0,$A9,$00
+ DFB $85,$E1,$A9,$00,$85,$85,$A9,$A2
+ DFB $85,$86,$20,$BE,$A1,$E6,$E0,$A9
+ DFB $00,$85,$E6,$E6,$86,$E6,$86,$E6
+ DFB $E6,$20,$BE,$A1,$A0,$02,$B1,$85
+ DFB $85,$E0,$C8,$B1,$85,$85,$E1,$D0
+ DFB $EA,$A5,$E0,$D0,$E6,$AD,$6C,$A0
+ DFB $85,$E2,$AD,$6D,$A0,$85,$E3,$18
+ DFB $A5,$E3,$69,$02,$85,$E5,$38,$A5
+ DFB $E2,$ED,$23,$A4,$85,$E4,$A5,$E5
+ DFB $E9,$00,$85,$E5,$A0,$00,$B1,$E2
+ DFB $29,$0F,$CD,$11,$A0,$D0,$21,$A8
+ DFB $B1,$E2,$D9,$11,$A0,$D0,$19,$88
+ DFB $D0,$F6,$A0,$00,$B1,$E2,$29,$F0
+ DFB $C9,$20,$F0,$3E,$C9,$F0,$F0,$08
+ DFB $AE,$64,$A0,$A0,$13,$4C,$D4,$A1
+ DFB $18,$A5,$E2,$6D,$23,$A4,$85,$E2
+ DFB $A5,$E3,$69,$00,$85,$E3,$A5,$E4
+ DFB $C5,$E2,$A5,$E5,$E5,$E3,$B0,$BC
+ DFB $18,$A5,$E4,$6D,$23,$A4,$85,$E2
+ DFB $A5,$E5,$69,$00,$85,$E3,$C6,$E6
+ DFB $D0,$95,$AE,$4F,$A0,$A0,$1B,$4C
+ DFB $D4,$A1,$A0,$11,$B1,$E2,$85,$E0
+ DFB $C8,$B1,$E2,$85,$E1,$AD,$66,$A0
+ DFB $85,$85,$AD,$67,$A0,$85,$86,$20
+ DFB $BE,$A1,$AD,$68,$A0,$85,$85,$AD
+ DFB $69,$A0,$85,$86,$AD,$00,$0C,$85
+ DFB $E0,$AD,$00,$0D,$85,$E1,$20,$BE
+ DFB $A1,$A2,$07,$BD,$00,$1E,$DD,$21
+ DFB $A0,$F0,$08,$AE,$64,$A0,$A0,$13
+ DFB $4C,$D4,$A1,$CA,$10,$ED,$A9,$00
+ DFB $85,$E7,$E6,$E7,$E6,$86,$E6,$86
+ DFB $A6,$E7,$BD,$00,$0C,$85,$E0,$BD
+ DFB $00,$0D,$85,$E1,$A5,$E0,$D0,$04
+ DFB $A5,$E1,$F0,$06,$20,$BE,$A1,$4C
+ DFB $8A,$A1,$18,$AD,$6A,$A0,$6D,$08
+ DFB $1E,$85,$E8,$AD,$6B,$A0,$6D,$09
+ DFB $1E,$85,$E9,$6C,$E8,$00,$A9,$01
+ DFB $85,$87,$A5,$E0,$A6,$E1,$20,$79
+ DFB $F4,$B0,$01,$60,$AE,$32,$A0,$A0
+ DFB $09,$4C,$D4,$A1,$84,$E7,$38,$A9
+ DFB $28,$E5,$E7,$4A,$18,$65,$E7,$A8
+ DFB $BD,$29,$A0,$99,$A7,$05,$CA,$88
+ DFB $C6,$E7,$D0,$F4,$AD,$40,$C0,$4C
+ DFB $EF,$A1,$00,$00,$00,$00,$00,$00
+ DFB $00,$00,$00,$00,$00,$00,$00,$00
+ DFB $00,$00,$03,$00,$F6,$50,$52,$4F
+loctemp dfb 0
+locbuff ds $E,0
+ZBDEND EQU *
+poslo equ >ZBDEND ;extract lowbyte of current pc
+ZBDLEN EQU ZBDEND-BUILDDISK ;length of Buildisk, less formatter
+ ds $100-poslo ;fill to next page boundry
+ sbtl 'Disk II FORMATTER'
+ page
+FORMATTII equ * ;here is the diskII formatter.
+*
+*
+* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+* *                                                 * *
+* * M U S T   B E   O N   P A G E   B O U N D A R Y * *
+* *                                                 * *
+* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+*                                                     *
+*  ProDOS DISK ][ Formatter Device Driver             *  
+*                                                     *
+*  Copyright Apple Computer, Inc., 1982-1984          *
+*                                                     *
+*  Enter with ProDOS device number in A-register:     *
+*         Zero    = bits 0, 1, 2, 3                   *
+*         Slot No.= bits 4, 5, 6                      * 
+*         Drive 1 = bit 7 off                         * 
+*         Drive 2 = bit 7 on                          * 
+*                                                     *
+*  Error codes returned in A-register:                *
+*         $00 : Good completion                       * 
+*         $27 : Unable to format                      * 
+*         $2B : Write-Protected                       * 
+*         $33 : Drive too SLOW                        * 
+*         $34 : Drive too FAST                        * 
+*         NOTE: Carry flag is set if error occured.   *
+*                                                     *
+*  Uses zero page locations $D0 thru $DD              *
+*                                                     *
+* - - - - - - - - - - - - - - - - - - - - - - - - - - *
+* Modified 15 December 1983 to disable interrupts     *
+* Modified 20 December 1983 to increase tolerance     *
+*    of disk speed check                              *
+* Modified 30 March 1983 to increase tolerance of     *
+*    disk speed                                       *
+* * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ PHP
+ SEI
+ JSR *+$38 
+ PLP
+ CMP #$00
+ BNE *+$04
+ CLC
+ RTS
+ CMP #$02
+ BNE *+$07
+ LDA #$2B
+ JMP *+$0F 
+ CMP #$01
+ BNE *+$07
+ LDA #$27
+ JMP *+$06 
+ CLC
+ ADC #$30
+ SEC
+ RTS
+ ASL A
+ ASL *+$400
+ STA *+$40F
+ TXA
+ LSR A
+ LSR A
+ LSR A
+ LSR A
+ TAY
+ LDA *+$406
+ JSR *+$193
+ LSR *+$3EE 
+ RTS
+ TAX
+ AND #$70
+ STA *+$3E6
+ TXA
+ LDX *+$3E2 
+ ROL A
+ LDA #$00 
+ ROL A 
+ BNE *+$08
+ LDA $C08A,X
+ JMP *+$06
+ LDA $C08B,X
+ LDA $C089,X
+ LDA #$D7
+ STA $DA
+ LDA #$50
+ STA *+$3C8 
+ LDA #$00
+ JSR *-$3E
+ LDA $DA
+ BEQ *+$08
+ JSR *+$2D2 
+ JMP *-$07
+ LDA #$01
+ STA $D3
+ LDA #$AA
+ STA $D0
+ LDA *+$3AA
+ CLC
+ ADC #$02
+ STA $D4
+ LDA #$00
+ STA $D1 
+ LDA $D1
+ LDX *+$39F
+ JSR *-$64
+ LDX *+$399
+ LDA $C08D,X
+ LDA $C08E,X
+ TAY
+ LDA $C08E,X
+ LDA $C08C,X
+ TYA
+ BPL *+$07
+ LDA #$02 
+ JMP *+$5A 
+ JSR *+$2C1
+ BCC *+$10
+ LDA #$01
+ LDY $D4
+ CPY *+$374
+ BCS *+$04
+ LDA #$04
+ JMP *+$47 
+ LDY $D4
+ CPY *+$368
+ BCS *+$07
+ LDA #$04
+ JMP *+$3B
+ CPY *+$35F 
+ BCC *+$07
+ LDA #$03
+ JMP *+$31 
+ LDA *+$357
+ STA *+$357
+ DEC *+$354
+ BNE *+$07
+ LDA #$01
+ JMP *+$21
+ LDX *+$348
+ JSR *+$8C
+ BCS *-$10
+ LDA $D8
+ BNE *-$14 
+ LDX *+$33C
+ JSR *+$1D
+ BCS *-$1C 
+ INC $D1
+ LDA $D1
+ CMP #$23
+ BCC *-$73 
+ LDA #$00
+ PHA
+ LDX *+$329
+ LDA $C088,X
+ LDA #$00
+ JSR *-$DF
+ PLA
+ RTS
+ LDY #$20
+ DEY
+ BEQ *+$5E 
+ LDA $C08C,X
+ BPL *-$03
+ EOR #$D5
+ BNE *-$0A
+ NOP
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$AA
+ BNE *-$0C
+ LDY #$56
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$AD
+ BNE *-$17 
+ LDA #$00
+ DEY
+ STY $D5
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$96
+ BNE *+$32
+ LDY $D5
+ BNE *-$0E
+ STY $D5
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$96
+ BNE *+$23
+ LDY $D5
+ INY
+ BNE *-$0E
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$96
+ BNE *+$15
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$DE
+ BNE *+$0C
+ NOP
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$AA
+ BEQ *+$5E
+ SEC
+ RTS
+ LDY #$FC
+ STY $DC
+ INY
+ BNE *+$06
+ INC $DC
+ BEQ *-$0B 
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$D5
+ BNE *-$0E
+ NOP
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$AA
+ BNE *-$0C
+ LDY #$03
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$96
+ BNE *-$17
+ LDA #$00
+ STA $DB
+ LDA $C08C,X
+ BPL *-$03
+ ROL A
+ STA $DD
+ LDA $C08C,X
+ BPL *-$03
+ AND $DD
+ STA $D7,Y
+ EOR $DB
+ DEY
+ BPL *-$17
+ TAY
+ BNE *-$47
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$DE
+ BNE *-$50
+ NOP
+ LDA $C08C,X
+ BPL *-$03
+ CMP #$AA
+ BNE *-$5A
+ CLC
+ RTS
+ STX *+$271
+ STA *+$26D
+ CMP *+$258
+ BEQ *+$5E
+ LDA #$00 
+ STA *+$265
+ LDA *+$24E
+ STA *+$260
+ SEC
+ SBC *+$259
+ BEQ *+$39
+ BCS *+$09
+ EOR #$FF
+ INC *+$23E
+ BCC *+$07
+ ADC #$FE
+ DEC *+$237 
+ CMP *+$248
+ BCC *+$05
+ LDA *+$243
+ CMP #$0C
+ BCS *+$03
+ TAY
+ SEC
+ JSR *+$1F
+ LDA *+$14A,Y
+ JSR *+$136
+ LDA *+$232
+ CLC
+ JSR *+$15
+ LDA *+$149,Y
+ JSR *+$129
+ INC *+$224
+ BNE *-$41
+ JSR *+$121 
+ CLC
+ LDA *+$207 
+ AND #$03
+ ROL A
+ ORA *+$214
+ TAX
+ LDA $C080,X
+ LDX *+$20D
+ RTS
+ JSR *+$1E0 
+ LDA $C08D,X
+ LDA $C08E,X
+ LDA #$FF
+ STA $C08F,X 
+ CMP $C08C,X
+ PHA
+ PLA
+ NOP
+ LDY #$04
+ PHA
+ PLA
+ JSR *+$5F
+ DEY
+ BNE *-$06
+ LDA #$D5
+ JSR *+$56
+ LDA #$AA
+ JSR *+$51
+ LDA #$AD
+ JSR *+$4C
+ LDY #$56
+ NOP
+ NOP
+ NOP
+ BNE *+$05
+ JSR *+$1AC
+ NOP
+ NOP
+ LDA #$96
+ STA $C08D,X
+ CMP $C08C,X
+ DEY
+ BNE *-$0E
+ BIT $00
+ NOP
+ JSR *+$199
+ LDA #$96
+ STA $C08D,X
+ CMP $C08C,X
+ LDA #$96
+ NOP
+ INY
+ BNE *-$0F
+ JSR *+$1E
+ LDA #$DE
+ JSR *+$19
+ LDA #$AA
+ JSR *+$14
+ LDA #$EB
+ JSR *+$0F
+ LDA #$FF
+ JSR *+$0A
+ LDA $C08E,X
+ LDA $C08C,X
+ RTS
+ NOP
+ PHA
+ PLA
+ STA $C08D,X
+ CMP $C08C,X
+ RTS
+ SEC
+ LDA $C08D,X
+ LDA $C08E,X
+ BMI *+$60
+ LDA #$FF
+ STA $C08F,X
+ CMP $C08C,X
+ PHA
+ PLA
+ JSR *+$5A
+ JSR *+$57
+ STA $C08D,X
+ CMP $C08C,X
+ NOP
+ DEY
+ BNE *-$0E
+ LDA #$D5
+ JSR *+$5A
+ LDA #$AA
+ JSR *+$55
+ LDA #$96
+ JSR *+$50
+ LDA $D3
+ JSR *+$3A
+ LDA $D1
+ JSR *+$35
+ LDA $D2
+ JSR *+$30
+ LDA $D3
+ EOR $D1
+ EOR $D2
+ PHA
+ LSR A
+ ORA $D0
+ STA $C08D,X
+ LDA $C08C,X
+ PLA
+ ORA #$AA
+ JSR *+$2A
+ LDA #$DE
+ JSR *+$26
+ LDA #$AA
+ JSR *+$21
+ LDA #$EB
+ JSR *+$1C
+ CLC
+ LDA $C08E,X
+ LDA $C08C,X
+ RTS
+ PHA
+ LSR A
+ ORA $D0
+ STA $C08D,X
+ CMP $C08C,X
+ PLA
+ NOP
+ NOP
+ NOP
+ ORA #$AA
+ NOP
+ NOP
+ PHA
+ PLA
+ STA $C08D,X
+ CMP $C08C,X
+ RTS
+ BRK
+ BRK
+ BRK
+ LDX #$11
+ DEX
+ BNE *-$01 
+ INC $D9
+ BNE *+$04
+ INC $DA
+ SEC
+ SBC #$01
+ BNE *-$0E
+ RTS
+ DFB $01,$30,$28
+ DFB $24,$20,$1E
+ DFB $1D,$1C,$1C
+ DFB $1C,$1C,$1C
+ DFB $70,$2C,$26
+ DFB $22,$1F,$1E
+ DFB $1D,$1C,$1C
+ DFB $1C,$1C,$1C
+ LDA *+$BE
+ STA $D6
+ LDY #$80
+ LDA #$00
+ STA $D2
+ JMP *+$05
+ LDY $D4
+ LDX *+$B0
+ JSR *-$C8
+ BCC *+$05
+ JMP *+$93 
+ LDX *+$A5 
+ JSR *-$153 
+ INC $D2
+ LDA $D2
+ CMP #$10
+ BCC *-$19
+ LDY #$0F
+ STY $D2
+ LDA *+$92
+ STA *+$92
+ STA *+$90,Y
+ DEY
+ BPL *-$04
+ LDA $D4
+ SEC
+ SBC #$05
+ TAY
+ JSR *+$6C
+ JSR *+$69
+ PHA
+ PLA
+ NOP
+ NOP
+ DEY
+ BNE *-$0B
+ LDX *+$74
+ JSR *-$248
+ BCS *+$3E
+ LDA $D8
+ BEQ *+$15
+ DEC $D4
+ LDA $D4
+ CMP *+$60
+ BCS *+$31
+ SEC
+ RTS
+ LDX *+$5D
+ JSR *-$25F
+ BCS *+$1C
+ LDX *+$55
+ JSR *-$2CA
+ BCS *+$14
+ LDY $D8
+ LDA *+$4E,Y
+ BMI *+$0D
+ LDA #$FF 
+ STA *+$47,Y
+ DEC $D2
+ BPL *-$1E
+ CLC
+ RTS
+ DEC *+$3D
+ BNE *-$25
+ DEC $D6
+ BNE *+$04
+ SEC
+ RTS
+ LDA *+$2F 
+ ASL A
+ STA *+$2E
+ LDX *+$29
+ JSR *-$293
+ BCS *+$08
+ LDA $D8
+ CMP #$0F 
+ BEQ *+$09
+ DEC *+$1D
+ BNE *-$11
+ SEC
+ RTS
+ LDX #$D6
+ JSR *-$03
+ JSR *-$06
+ BIT $00
+ DEX
+ BNE *-$09
+ JMP *-$B4
+ DFB $0E,$1B,$03 
+ DFB $10,$00,$00
+ DFB $00,$00,$00
+ DFB $00,$00,$00
+ DFB $00,$00,$00
+ DFB $00,$00,$00
+ DFB $00,$00,$00
+ DFB $00,$00,$00
+ DFB $00,$00,$00 
+Zend equ *
+Ztotal equ Zend-Builddisk