********************************************************************
* Format - Initialize disk media
*
* $Id$
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------
* 17     Original Microware distribution version

         nam   Format
         ttl   Initialize disk media

* Disassembled 02/07/06 14:23:44 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   defsfile
         endc

tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $01

         mod   eom,name,tylg,atrv,start,size

u0000    rmb   1
u0001    rmb   1
PathNm   rmb   1
u0003    rmb   1
u0004    rmb   1
u0005    rmb   2
u0007    rmb   1
u0008    rmb   1
u0009    rmb   1
u000A    rmb   1
u000B    rmb   1
u000C    rmb   2
u000E    rmb   1
u000F    rmb   1
u0010    rmb   1
u0011    rmb   1
u0012    rmb   1
u0013    rmb   2
u0015    rmb   1
u0016    rmb   1
u0017    rmb   1
u0018    rmb   1
u0019    rmb   1
u001A    rmb   1
u001B    rmb   1
u001C    rmb   1
u001D    rmb   2
u001F    rmb   1
u0020    rmb   2
u0022    rmb   1
u0023    rmb   1
u0024    rmb   1
ClustSz  rmb   1
u0026    rmb   1
u0027    rmb   1
u0028    rmb   1
u0029    rmb   1
u002A    rmb   1
u002B    rmb   1
u002C    rmb   1
u002D    rmb   2
u002F    rmb   1
u0030    rmb   1
u0031    rmb   1
u0032    rmb   1
u0033    rmb   1
u0034    rmb   2
u0036    rmb   2
u0038    rmb   2
u003A    rmb   1
u003B    rmb   2
u003D    rmb   2
u003F    rmb   4
u0043    rmb   1
u0044    rmb   2
u0046    rmb   1
DevPath  rmb   1     Contains "/"
Device   rmb   13
u0055    rmb   15
u0064    rmb   3
u0067    rmb   32
u0087    rmb   40
u00AF    rmb   14
u00BD    rmb   12
DateBf   rmb   5
u00CE    rmb   9
u00D7    rmb   17
u00E8    rmb   6
u00EE    rmb   177
u019F    rmb   2
u01A1    rmb   2
u01A3    rmb   12
DDBuf    rmb   256
u02AF    rmb   3
u02B2    rmb   9924
u2976    rmb   451
size     equ   .

name     fcs   /Format/
         fcb   $11 

L0014    fcb   $00 
         fcb   $00 
L0016    fcb   $00 
         fcb   $00 
L0018    fcb   $00 
         fcb   $00 
L001A    fcb   $80 
         fcb   $E5 e
         fcb   $80 
         fcb   $E5 e
         fcb   $00 
         fcb   $00 
L0020    fcb   $01 
         fcb   $00 
         fcb   $28 (
         fcb   $FF 
         fcb   $06 
         fcb   $00 
         fcb   $01 
         fcb   $FC 
         fcb   $0C 
         fcb   $FF 
         fcb   $00 
         fcb   $00 
         fcb   $06 
         fcb   $00 
         fcb   $01 
         fcb   $FE 
         fcb   $04 
         fcb   $00 
         fcb   $01 
         fcb   $F7 w
         fcb   $0A 
         fcb   $FF 
         fcb   $06 
         fcb   $00 
         fcb   $01 
         fcb   $FB 
         fcb   $80 
         fcb   $E5 e
         fcb   $80 
         fcb   $E5 e
         fcb   $01 
         fcb   $F7 w
         fcb   $0A 
         fcb   $FF 
         fcb   $00 
         fcb   $00 
         fcb   $FF 
         fcb   $00 
         fcb   $43 C
         fcb   $01 
         fcb   $28 (
L0049    fcb   $50 P
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F6 v
         fcb   $01 
         fcb   $FC 
         fcb   $20 
         fcb   $4E N
         fcb   $00 
         fcb   $00 
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FE 
         fcb   $04 
         fcb   $00 
         fcb   $01 
         fcb   $F7 w
         fcb   $16 
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FB 
         fcb   $80 
         fcb   $E5 e
         fcb   $80 
         fcb   $E5 e
         fcb   $01 
         fcb   $F7 w
         fcb   $16 
         fcb   $4E N
         fcb   $00 
         fcb   $00 
         fcb   $4E N
         fcb   $00 
         fcb   $90 
         fcb   $01 
         fcb   $52 R
L0076    fcb   $20 
         fcb   $4E N
         fcb   $00 
         fcb   $00 
         fcb   $08 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FE 
         fcb   $04 
         fcb   $00 
         fcb   $01 
         fcb   $F7 w
         fcb   $16 
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FB 
         fcb   $80 
         fcb   $E5 e
         fcb   $80 
         fcb   $E5 e
         fcb   $01 
         fcb   $F7 w
         fcb   $18 
         fcb   $4E N
         fcb   $00 
         fcb   $00 
         fcb   $4E N
         fcb   $00 
         fcb   $2C ,
         fcb   $01 
         fcb   $50 P
start    equ   *
         stu   <u0000
         bsr   L00BE
         bsr   L00CF
         bsr   L011A
         lbsr  L0295
         lbsr  AskBoth
         lbsr  L04A9
         lbsr  L0586
         lbsr  L05BC
         lbsr  L07B6
         ldu   <u0044
         os9   I$Detach 
         clrb  
Exit     os9   F$Exit   

L00BE    leay  PathNm,u
         pshs  y
         leay  >u00AF,u
L00C6    clr   ,-y
         cmpy  ,s
         bhi   L00C6
         puls  pc,y

L00CF    lda   ,x+
         cmpa  #'/
         beq   L00DA
L00D5    ldb   #E$BPNam
         lbra  ErrExit
L00DA    os9   F$PrsNam 
         lbcs  ErrExit
         lda   #'/
         cmpa  ,y
         beq   L00D5
         sty   <u0020
*
* Copy device name from arg to DevPath
         leay  <DevPath,u
L00ED    sta   ,y+
         lda   ,x+
         decb  
         bpl   L00ED
         leax  <Device,u
         lda   #$20
         sta   ,y

         clra              0 = Use device capabilities
         os9   I$Attach 
         lbcs  ErrExit
         stu   <u0044
         ldu   <u0000
         lda   #$40
         ldb   #$20
         std   ,y
         lda   #WRITE.
         leax  <DevPath,u
         os9   I$Open   
         bcs   Exit
         sta   <PathNm
         rts   
L011A    bsr   L0122
         bsr   L015D
         lbsr  L0216
         rts   

L0122    leax  >DDBuf,u
         clrb  
         os9   I$GetStt 
         bcs   Exit
         ldb   $07,x
         stb   <u0012
         ldb   $04,x
         pshs  b
         andb  #$01
         stb   <u0010
         puls  b
         lsrb  
         andb  #$01
         stb   <u0011
         ldd   $05,x
         std   <u0013
         ldb   $03,x
         stb   <u001B
         andb  #$20
         stb   <u0046
         ldd   $09,x
         std   <u0017
         ldd   $0B,x
         std   <u0019
         ldb   $0D,x
         stb   <u001F
         ldb   #$01
         stb   <ClustSz
         clrb  
         rts   
L015D    ldx   <u0020
L015F    leay  >L0188,pcr
         bsr   L0176
         bcs   L017F
         pshs  b,a
         ldd   $02,y
         leay  d,y
         puls  b,a
         jsr   ,y
         bcc   L015F
         lbra  Exit
L0176    lda   ,x+
L0178    cmpa  ,y
         bne   L0180
         ldb   $01,y
         clra  
L017F    rts   
L0180    leay  $04,y
         tst   ,y
         bne   L0178
         coma  
         rts   
L0188    

         fdb   $5259,$002c,$7259,$0028
         fdb   $2200,$002d,$3a00,$005d,$4300,$0022,$6300,$001e
         fdb   $2800,$0013,$2900,$000f,$2c00,$000b,$2000,$0007
         fdb   $00d7,$1039,$d71c,$39d7,$1239,$0c46,$3931,$c867

         ldb   #$20
L01C2    lda   ,x+
         cmpa  #$22
         beq   L01D9
         sta   ,y+
         decb  
         bne   L01C2
L01CD    ldb   ,x+
         cmpb  #$22
         beq   L01DF
         cmpb  #$20
         bcc   L01CD
         bra   L01DF
L01D9    lda   #$20
         cmpb  #$20
         beq   L01E3
L01DF    leay  -$01,y
         lda   ,y
L01E3    adda  #$80
         sta   ,y
         clrb  
         rts   
         lbsr  L089E
         ldd   <u001D
         std   <u0013
         rts   
         lbsr  L089E
         ldd   <u001D
         tsta  
         beq   L01FB
         ldb   #$01
L01FB    stb   <u001F
L01FD    rts   
         lbsr  L089E
         ldd   <u001D
         tsta  
         beq   L0208
         ldb   #$01
L0208    stb   <ClustSz
         negb  
         decb  
         andb  <ClustSz
         beq   L0214
         ldb   #$01
         stb   <ClustSz
L0214    clrb  
         rts   
L0216    leax  >Title,pcr
         lbsr  L0272
         leay  >DDBuf,u
         ldx   $0B,y
         tst   <u0010
         beq   L0229
         ldx   $09,y
L0229    stx   <u0017
         leax  >FmtMsg,pcr
         ldy   #FmtMLen
         lbsr  L0276
         leax  <DevPath,u
         tfr   x,y
L023B    lda   ,y+
         cmpa  #$40
         bne   L023B
         pshs  y
         lda   #$0D
         sta   -$01,y
         lbsr  L0272
         puls  y
         lda   #$40
         sta   -$01,y
         lda   <u001C
         bne   L01FD
L0254    leax  >Query,pcr
         ldy   #QueryLen
         lbsr  GetYN
         anda  #$DF
         cmpa  #'Y
         beq   L01FD
         clrb  
         cmpa  #'N
         lbeq  Exit
         bra   L0254
L026E    leax  >HelpCR,pcr
L0272    ldy   #$0050
L0276    lda   #$01
         os9   I$WritLn 
         rts   
*
* Read a one-byte answer
*
GetYN    pshs  u,y,x,b,a
         bsr   L0276
         leax  ,s
         ldy   #$0001
         clra  
         os9   I$Read   
         lbcs  Exit
         bsr   L026E
         puls  u,y,x,b,a
         anda  #$7F
         rts   

L0295    leax  >L001A,pcr
         stx   <u000A
         ldb   <u001B
         bitb  #$C0
         bne   L02B9
         ldb   <u0046
         beq   L02AB
         leax  >L0076,pcr
         bra   L02B9
L02AB    leax  >L0020,pcr
         stx   <u000A
         tst   <u0010
         beq   L02B9
         leax  >L0049,pcr
L02B9    stx   <u000C
         clra  
         ldb   <u0012
         tfr   d,y
         clrb  
         ldx   <u0013
         bsr   L0303
         exg   d,x
         subd  #$0001
         bcc   L02CE
         leax  -$01,x
L02CE    exg   d,x
         ldy   <u0017
         bsr   L0303
         exg   d,x
         addd  <u0019
         std   <u0023
         exg   d,x
         adcb  #$00
         stb   <u0022
         lda   #$08
         pshs  a
         ldx   <u0023
         ldb   <u0022
         bsr   L034C
         lda   <ClustSz
         pshs  a
         bsr   L034C
         tstb  
         beq   L02FE
         leax  >ClustMsg,pcr
         lbsr  L0272
         lbra  L0525
L02FE    leas  $02,s
         stx   <u0026
         rts   
L0303    lda   #$08
L0305    clr   ,-s
         deca  
         bne   L0305
         sty   ,s
         stb   $02,s
         stx   $03,s
L0311    ldd   ,s
         beq   L0334
         lsra  
         rorb  
         std   ,s
         bcc   L0327
         ldd   $03,s
         addd  $06,s
         std   $06,s
         lda   $02,s
         adca  $05,s
         sta   $05,s
L0327    ldd   $03,s
         lslb  
         rola  
         std   $03,s
         lda   $02,s
         rola  
         sta   $02,s
         bra   L0311
L0334    leas  $05,s
         puls  pc,x,b
L0338    pshs  x,b
         lsr   ,s
         ror   $01,s
         ror   $02,s
         puls  x,b
         exg   d,x
         adcb  #$00
         adca  #$00
         exg   d,x
         adcb  #$00
L034C    lsr   $02,s
         bne   L0338
         rts   

AskBoth  tst   <u001B
         bpl   L036B
         leax  >Both,pcr
         ldy   #BothLen
         lbsr  GetYN
         anda  #$DF
         cmpa  #'Y
         beq   L036B
         cmpa  #'N
         bne   AskBoth
         rts   

L036B    lda   <PathNm
         ldb   #SS.Reset
         os9   I$SetStt 
         lbcs  Exit
         ldd   #$0000
         std   <u0003
         inca  
         sta   <u0007
L037E    clr   <u0005
L0380    bsr   L03DA
         leax  >u00AF,u
         ldu   <u0003
         clrb  
         tst   <u0010
         beq   L039B
         tst   <u0046
         bne   L0399
         tst   <u0004
         bne   L0399
         tst   <u0005
         beq   L039B
L0399    orb   #$02
L039B    tst   <u0011
         beq   L03A1
         orb   #$04
L03A1    lda   <u0005
         beq   L03A7
         orb   #$01
L03A7    tfr   d,y
         lda   <PathNm
         ldb   #SS.WTrk
         os9   I$SetStt 
         lbcs  Exit
         ldu   <u0000
         ldb   <u0005
         incb  
         stb   <u0005
         cmpb  <u0012
         bcs   L0380
         ldd   <u0003
         addd  #$0001
         std   <u0003
         cmpd  <u0013
         bcs   L037E
         rts   
L03CC    ldy   <u000E
L03CF    ldd   ,y++
         beq   L03E9
L03D3    stb   ,x+
         deca  
         bne   L03D3
         bra   L03CF
L03DA    lda   <u001B
         bita  #$C0
         beq   L03EA
         ldy   <u000C
         leax  >u00AF,u
         bsr   L03CF
L03E9    rts   
L03EA    ldy   <u000C
         ldb   <u0018
         tst   <u0046
         bne   L0400
         tst   <u0004
         bne   L0400
         tst   <u0005
         bne   L0400
         ldy   <u000A
         ldb   <u001A
L0400    sty   <u000E
         stb   <u0009
         stb   <u0016
         bsr   L0466
         leax  >u00AF,u
         bsr   L03CF
         sty   <u000E
L0412    bsr   L03CC
         dec   <u0009
         bne   L0412
         lda   ,y+
         sty   <u000E
         stx   <u003B
         leay  >u2976,u
         sty   <u001D
         tfr   a,b
L0428    std   ,x++
         cmpx  <u001D
         bcs   L0428
         ldy   <u000E
         ldd   ,y++
         std   <u003D
         ldd   ,y
         std   <u003F
         clr   <u0009
         leax  >u00AF,u
         ldd   <u003D
         leay  >u0087,u
L0445    leax  d,x
         ldd   <u0004
         std   ,x
         ldb   <u0009
         lda   b,y
         incb  
         stb   <u0009
         ldb   <u0007
         tst   <u0046
         beq   L0459
         inca  
L0459    std   $02,x
         lda   <u0009
         cmpa  <u0016
         bcc   L0465
         ldd   <u003F
         bra   L0445
L0465    rts   
L0466    pshs  y,b
         tfr   b,a
         ldb   <u0004
         cmpb  #$01
         bhi   L0492
         leax  >u0087,u
         leay  a,x
         ldb   <u001F
         bne   L0481
L047A    leax  >Abort,pcr
         lbra  L066D
L0481    cmpb  <u0016
         bhi   L047A
         nega  
         pshs  y,x,b,a
         clra  
L0489    sta   ,x
         inca  
         cmpa  <u0016
         bne   L0494
         leas  $06,s
L0492    puls  pc,y,b
L0494    ldb   <u001F
         abx   
         cmpx  $04,s
         bcs   L049F
         ldb   ,s
         leax  b,x
L049F    cmpx  $02,s
         bne   L0489
         leax  $01,x
         stx   $02,s
         bra   L0489
L04A9    lbsr  L080A
         ldd   <u0023
         std   $01,x
         ldb   <u0022
         stb   ,x
         ldd   <u0017
         std   <$11,x
         stb   $03,x
         lda   <ClustSz
         sta   $07,x
         clra  
         ldb   <u0026
         tst   <u0027
         beq   L04C9
         addd  #$0001
L04C9    addd  #$0001
         std   $09,x
         clra  
         tst   <u0010
         beq   L04D5
         ora   #$02
L04D5    ldb   <u0012
         cmpb  #$01
         beq   L04DD
         ora   #$01
L04DD    tst   <u0011
         beq   L04E3
         ora   #$04
L04E3    sta   <$10,x
         ldd   <u0026
         std   $04,x
         lda   #$FF
         sta   $0D,x
         leax  >DateBf,u
         os9   F$Time   
         leax  >u00CE,u
         leay  <u0067,u
         tst   ,y
         beq   L0508
L0500    lda   ,y+
         sta   ,x+
         bpl   L0500
         bra   L053B
L0508    leax  >DName,pcr
         ldy   #DNameLen
         lbsr  L0276
         leax  >u00CE,u
         ldy   #$0021
         clra  
         os9   I$ReadLn 
         bcc   L052C
         cmpa  #$D3
         bne   L0508
L0525    leax  >Aborted,pcr
         lbra  L066D
L052C    tfr   y,d
         leax  d,x
         clr   ,-x
         decb  
         beq   L0508
         lda   ,-x
         ora   #$80
         sta   ,x
L053B    leax  >DateBf,u
         leay  <$40,x
         pshs  y
         ldd   #$0000
L0547    addd  ,x++
         cmpx  ,s
         bcs   L0547
         leas  $02,s
         std   >u00BD,u
         ldd   >L0014,pcr
         std   >u019F,u
         ldd   >L0016,pcr
         std   >u01A1,u
         ldd   >L0018,pcr
         std   >u01A3,u
         lda   <PathNm
         ldb   #SS.Opt
         leax  >u00EE,u
         os9   I$GetStt 
         ldb   #SS.Reset
         os9   I$SetStt 
         lbcs  Exit
         leax  >u00AF,u
         lbra  L0816
L0586    lda   <PathNm
         os9   I$Close  
         leax  <DevPath,u
         lda   #READ.
         os9   I$Open   
         lbcs  L0669
         sta   <PathNm
         leax  >u00AF,u
         ldy   #$0100
         os9   I$Read   
         lbcs  L0669
         lda   <PathNm
         os9   I$Close  
         leax  <DevPath,u
         lda   #UPDAT.
         os9   I$Open   
         lbcs  L0669
         sta   <PathNm
         rts   
L05BC    lda   <u001B
         clr   <u0043
         bita  #$80
         beq   L05DB
L05C4    leax  >Verify,pcr
         ldy   #VerifyLen
         lbsr  GetYN
         anda  #$DF
         cmpa  #'Y
         beq   L05DB
         cmpa  #'N
         bne   L05C4

         sta   <u0043
L05DB    ldd   <u0019
         std   <u0015
         clra  
         clrb  
         std   <u0034
         std   <u0003
         std   <u0008
         std   <u0030
         stb   <u002F
         sta   <u003A
         leax  >DDBuf,u
         stx   <u0036
         lbsr  L080E
         leax  >$0100,x
         stx   <u0038
         clra  
         ldb   #$01
         std   <u0032
         lda   <ClustSz
         sta   <u0029
         clr   <u0028
         clra  
         ldb   <u0026
         tst   <u0027
         beq   L0611
         addd  #$0001
L0611    addd  #$0009
         std   <u002B
         lda   <ClustSz
L0618    lsra  
         bcs   L0629
         lsr   <u002B
         ror   <u002C
         bcc   L0618
         inc   <u002C
         bne   L0618
         inc   <u002B
         bra   L0618
L0629    ldb   <u002C
         stb   <u002D
         lda   <ClustSz
         mul   
         std   <u002B
         subd  #$0001
         subb  <u0026
         sbca  #$00
         tst   <u0027
         beq   L0640
         subd  #$0001
L0640    stb   <u002A
L0642    tst   <u0043
         bne   L0674
         lda   <PathNm
         leax  >u00AF,u
         ldy   #$0100
         os9   I$Read   
         bcc   L0674
         os9   F$PErr   
         lbsr  L083A
         lda   #$FF
         sta   <u0028
         tst   <u002F
         bne   L0674
         ldx   <u0030
         cmpx  <u002B
         bhi   L0674
L0669    leax  >BadSect,pcr
L066D    lbsr  L0272
         clrb  
         lbra  Exit
L0674    ldd   <u0008
         addd  #$0001
         std   <u0008
         cmpd  <u0015
         bcs   L06B9
         clr   <u0008
         clr   <u0009
         tst   <u0043
         bne   L06AE
         lda   #$20
         pshs  a
         lda   <u0004
         lbsr  L071B
         pshs  b,a
         lda   <u0003
         lbsr  L071B
         pshs  b
         tfr   s,x
         ldy   #$0004
         lbsr  L0276
         lda   $02,s
         cmpa  #$46
         bne   L06AC
         lbsr  L026E
L06AC    leas  $04,s
L06AE    ldd   <u0003
         addd  #$0001
         std   <u0003
         ldd   <u0017
         std   <u0015
L06B9    dec   <u0029
         bne   L06CF
         bsr   L06F8
         tst   <u0028
         bne   L06C9
         ldx   <u0034
         leax  $01,x
         stx   <u0034
L06C9    clr   <u0028
         lda   <ClustSz
         sta   <u0029
L06CF    ldb   <u002F
         ldx   <u0030
         leax  $01,x
         bne   L06D8
         incb  
L06D8    cmpb  <u0022
         bcs   L06E0
         cmpx  <u0023
         bcc   L06E7
L06E0    stb   <u002F
         stx   <u0030
         lbra  L0642
L06E7    lda   #$FF
         sta   <u0028
         leay  >DDBuf,u
L06EF    cmpy  <u0036
         beq   L0733
         bsr   L06F8
         bra   L06EF
L06F8    ldx   <u0036
         lda   <u0028
         rora  
         rol   ,x+
         inc   <u003A
         lda   <u003A
         cmpa  #$08
         bcs   L071A
         clr   <u003A
         stx   <u0036
         cmpx  <u0038
         bne   L071A
         bsr   L0777
         leax  >DDBuf,u
         stx   <u0036
         lbsr  L080E
L071A    rts   
L071B    tfr   a,b
         lsra  
         lsra  
         lsra  
         lsra  
         andb  #$0F
         addd  #$3030
         cmpa  #$39
         bls   L072C
         adda  #$07
L072C    cmpb  #$39
         bls   L0732
         addb  #$07
L0732    rts   
L0733    lbsr  L026E
         leax  >NumGood,pcr
         ldy   #NumGoodLen
         lbsr  L0276
         ldb   <ClustSz
         clra  
         ldx   <u0034
         pshs  x,a
L0748    lsrb  
         bcs   L0753
         lsl   $02,s
         rol   $01,s
         rol   ,s
         bra   L0748
L0753    puls  x,a
         ldb   #$0D
         pshs  b
         tfr   d,y
         tfr   x,d
         tfr   b,a
         bsr   L071B
         pshs  b,a
         tfr   x,d
         bsr   L071B
         pshs  b,a
         tfr   y,d
         bsr   L071B
         pshs  b,a
         tfr   s,x
         lbsr  L0272
         leas  $07,s
         rts   
L0777    pshs  y
         clra  
         ldb   #$01
         cmpd  <u0032
         bne   L0792
         leax  >DDBuf,u
         clra  
         ldb   <u002D
         tfr   d,y
         clrb  
         os9   F$AllBit 
         lbcs  L0669
L0792    lbsr  L0824
         leax  >DDBuf,u
         bsr   L0816
         ldd   <u0022
         cmpd  <u002F
         bcs   L07AD
         bhi   L07AA
         ldb   <u0024
         cmpb  <u0031
         bcc   L07AD
L07AA    lbsr  L083A
L07AD    ldd   <u0032
         addd  #$0001
         std   <u0032
         puls  pc,y
L07B6    bsr   L0824
         leax  >u02AF,u
         bsr   L080E
         leax  >u02B2,u
         os9   F$Time   
         leax  >u02AF,u
         lda   #$BF
         sta   ,x
         lda   #$02
         sta   $08,x
         clra  
         ldb   #$40
         std   $0B,x
         ldb   <u002A
         decb  
         stb   <$14,x
         ldd   <u0032
         addd  #$0001
         std   <$11,x
         bsr   L0816
         bsr   L080A
         ldd   #$2EAE
         std   ,x
         stb   <$20,x
         ldd   <u0032
         std   <$1E,x
         std   <$3E,x
         bsr   L0816
         bsr   L080A
         ldb   <u002A
L07FE    decb  
         bne   L0802
         rts   
L0802    pshs  b
         bsr   L0816
         puls  b
         bra   L07FE
L080A    leax  >u00AF,u
L080E    clra  
         clrb  
L0810    sta   d,x
         decb  
         bne   L0810
         rts   
L0816    lda   <PathNm
         ldy   #$0100
         os9   I$Write  
         lbcs  Exit
         rts   
L0824    clra  
         ldb   <u0032
         tfr   d,x
         lda   <u0033
         clrb  
         tfr   d,u
L082E    lda   <PathNm
         os9   I$Seek   
         ldu   <u0000
         lbcs  Exit
         rts   
L083A    ldx   <u002F
         lda   <u0031
         clrb  
         addd  #$0100
         tfr   d,u
         bcc   L082E
         leax  $01,x
         bra   L082E
         ldd   ,y
         leau  >u00AF,u
         leax  >L0892,pcr
         ldy   #$2F20
L0858    leay  >$0100,y
         subd  ,x
         bcc   L0858
         addd  ,x++
         pshs  b,a
         ldd   ,x
         tfr   y,d
         beq   L0880
         ldy   #$2F30
         cmpd  #$3020
         bne   L087A
         ldy   #$2F20
         tfr   b,a
L087A    sta   ,u+
         puls  b,a
         bra   L0858
L0880    sta   ,u+
         lda   #$0D
         sta   ,u
         ldu   <u0000
         leas  $02,s
         leax  >u00AF,u
         lbsr  L0272
         rts   
L0892    

         fdb   $2710,$03e8,$0064,$000a,$0001,$0000
         

L089E    ldd   #$0000
L08A1    bsr   L08B1
         bcs   L08AB
         bne   L08A1
         std   <u001D
         bne   L08B0
L08AB    ldd   #$0001
         std   <u001D
L08B0    rts   
L08B1    pshs  y,b,a
         ldb   ,x+
         subb  #$30
         cmpb  #$0A
         bcc   L08CF
         lda   #$00
         ldy   #$000A
L08C1    addd  ,s
         bcs   L08CD
         leay  -$01,y
         bne   L08C1
         std   ,s
         andcc #$FB
L08CD    puls  pc,y,b,a
L08CF    orcc  #$04
         puls  pc,y,b,a

ErrExit  lda   #$02
         os9   F$PErr   
         leax  <HelpMsg,pcr
         ldy   #$0154
         lda   #$02
         os9   I$WritLn 
         clrb  
         os9   F$Exit   
Title    fcb   C$LF
         fcc   "COLOR COMPUTER FORMATTER"
HelpCR   fcb   C$CR

HelpMsg  fcc   "Use: FORMAT /devname <opts>"
         fcb   C$LF
         fcc   "  opts: R  - Ready"
         fcb   C$LF
         fcc   /        "disk name"/
         fcb   C$LF,C$CR

FmtMsg   fcc   "Formatting drive "
FmtMLen  equ   *-FmtMsg

Query    fcc   "y (yes) or n (no)"
         fcb   C$LF
         fcc   "Ready?  "
QueryLen equ   *-Query
Abort    fcc   "ABORT Interleave value out of range"
         fcb   C$CR
DName    fcc   "Disk name: "
DNameLen equ   *-DName
         fcc   "How many Cylinders (Tracks?) : "
BadSect  fcc   "Bad system sector, "
Aborted   fcc   "FORMAT ABORTED"
         fcb   C$CR
ClustMsg fcc   "Cluster size mismatch"
         fcb   C$CR
         fcc   "Double density? "
TPIChg   fcc   "Change from 96tpi to 48tpi? "
DSided   fcc   "Double sided? "
NumGood  fcc   "Number of good sectors: $"
NumGoodLen equ *-NumGood
Both     fcc   "Both PHYSICAL and LOGICAL format? "
BothLen  equ   *-Both
Verify   fcc   "Physical Verify desired? "
VerifyLen equ  *-Verify

         emod
eom      equ   *
         end

