MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00001 

              00001 ;FORMAT1/ASM - Format Program
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00002 

'<Format Execution Code

              00004 ;
42E0          00005 PASSWORD        EQU     42E0H
0063          00006 RLS     EQU     63H
000A          00007 LF      EQU     10
000D          00008 CR      EQU     13
3C00          00009 CRT3    EQU     3C00H
F800          00010 CRT4    EQU     0F800H
              00011 ;
0000          00012 *GET    SVCMAC:3                ;SVC Macro equivalents
              00013 ;SVCMAC/ASM - LS-DOS Version VI
              00014 *LIST   OFF
              00406 *LIST   ON
0000          00408 *GET    COPYCOM:3               ;Copyright message
              00409 ; COPYCOM - File for Copyright COMment block
              00410 ;
0000          00411 *GET BUILDVER/ASM:3
              00412 ;
              00413 ;       Buildver/asm is a bit of a kludge since not all utilities can load
              00414 ;       equates from LDOS60 and still compile.  LOWCORE and everybody else
              00415 ;       relies on this setting, and it eventually ends up in LDOS60/EQU
              00416 ;       for programs that can use that.
              00417 ;
FFFF          00418 @BLD631         EQU     -1      ;<631>Build 631 distribution (LEVEL 1B)
              00419 ;       These switches activate patches made since the 1B release.
              00420 ;       It is important that all earlier patches be enabled when a higher
              00421 ;       patch is enabled.
              00422 ;       Patches C thru F were published in TMQ IV.iv, page 32 (NOTE: the
              00423 ;       patch addresses listed for SPOOL in SPOOL1/FIX are 19H high.)
FFFF          00424 @BLD631C        EQU     -1      ;<631>Apply 1C patches (SETKI)
FFFF          00425 @BLD631D        EQU     -1      ;<631>Apply 1D patches (DIR)
FFFF          00426 @BLD631E        EQU     -1      ;<631>Apply 1E patches (DIR & MEMDISK/DCT)
FFFF          00427 @BLD631F        EQU     -1      ;<631>Apply 1F patches (SPOOL)
              00428 ;       Patches G and H were published in TMQ V.i, pages 10 and 18/19.
FFFF          00429 @BLD631G        EQU     -1      ;<631>Apply 1G patches (//KEYIN,DIR,DO *)
FFFF          00430 @BLD631H        EQU     -1      ;<631>Apply 1H patches (MEMORY)
              00431 ;
              00432 ;End of BUILDVER/ASM
              00433         IF      @BLD631
              00435         ELSE
              00436         COM     '<*(C) 1982,3,4,6 by LSI*>'
              00437         ENDIF
              00438 *LIST   ON
              00439 ;
2600          00440         ORG     2600H
              00441 ;
              00442         IF      @MOD4
2600 9D       00443 BOOTST$ DB      9DH             ;Boot step rate offset
              00444         ENDIF
              00445         IF      @MOD2
              00446 BOOTST$ DB      03H
              00447         ENDIF
              00448 ;
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00003 

'<Format Execution Code

2601 FDCB0466 00449 GOFMT   BIT     4,(IY+4)        ;Jump if alien controller
2605 C2C127   00450         JP      NZ,HRDRV
2608 110000   00451 FMTTBL  LD      DE,0            ;P/u table pointer
260B 1A       00452         LD      A,(DE)          ;P/u # of sectors to fmt
260C 13       00453         INC     DE              ;Adj for zero offset
260D 32E52A   00454         LD      (SECTRK),A
2610 47       00455         LD      B,A
2611 FDCB046E 00456         BIT     5,(IY+4)        ;Need twice as many
2615 2801     00457         JR      Z,$+3           ;  if 2-sided drive
2617 07       00458         RLCA
2618 32E42A   00459         LD      (SECCYL),A
261B 210000   00460 SYSPRM  LD      HL,0            ;P/u system info parm
261E 7C       00461         LD      A,H             ;Don't format if system
261F B5       00462         OR      L               ;  info only is req
2620 C29427   00463         JP      NZ,MOVFREE
2623 1A       00464         LD      A,(DE)          ;P/u track skew
2624 13       00465         INC     DE
2625 320327   00466         LD      (TRKSKEW+1),A
2628 ED53A226 00467         LD      (SECSKEW+1),DE  ;Format sector skew
              00468 ;
              00469 ;       Index past sector info
              00470 ;
262C 3C       00471         INC     A               ;Add DE -> begin of sec #
262D 80       00472         ADD     A,B             ;B -> # of sectors/side
262E 83       00473         ADD     A,E             ; A+1 -> a code byte
262F 5F       00474         LD      E,A
2630 8A       00475         ADC     A,D
2631 93       00476         SUB     E
2632 57       00477         LD      D,A
2633 210031   00478         LD      HL,FORMAT       ;Buffer for format data
2636 010030   00479         LD      BC,HITBUF       ;Tempy ptrs to trk,sect info
              00480 ;
              00481 ;       Create the formatting data without trk,sect info
              00482 ;
2639 1A       00483 FMTDAT  LD      A,(DE)          ;P/u table format byte
263A 13       00484         INC     DE              ;Bump table ptr
263B FEF1     00485         CP      0F1H            ;Start of cylinder?
263D 282A     00486         JR      Z,CODF1
263F FEF2     00487         CP      0F2H            ;Start of track trailer?
2641 282D     00488         JR      Z,CODF2
2643 FEF3     00489         CP      0F3H            ;Start of track ID info?
2645 2833     00490         JR      Z,CODF3
2647 FEF4     00491         CP      0F4H            ;End of table parms?
2649 2837     00492         JR      Z,CODF4
264B FEF5     00493         CP      0F5H            ;Start of data?
264D C5       00494         PUSH    BC
264E 200F     00495         JR      NZ,CODE1        ;Go if not
              00496 ;
              00497 ;       Write 2 byte data pattern to format buffer
              00498 ;
2650 1A       00499         LD      A,(DE)          ;P/u length to write
2651 13       00500         INC     DE              ;Bump to 1st data byte
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00004 

'<Format Execution Code

2652 47       00501         LD      B,A             ;Xfer length to B
2653 1A       00502         LD      A,(DE)          ;P/u a data byte
2654 13       00503         INC     DE              ;Bump again for 2nd byte
2655 4F       00504         LD      C,A             ;Xfer 1st byte
2656 1A       00505         LD      A,(DE)          ;P/u 2nd byte
2657 71       00506 CODF5   LD      (HL),C          ;Stuff into buf
2658 23       00507         INC     HL
2659 77       00508         LD      (HL),A
265A 23       00509         INC     HL
265B 10FA     00510         DJNZ    CODF5           ;Loop til xfered
265D 1806     00511         JR      CODRET
              00512 ;
              00513 ;       Xfer bytes to the format buffer area
              00514 ;       A => count to move
              00515 ;       DE=> data byte to duplicate
              00516 ;
265F 47       00517 CODE1   LD      B,A             ;Count to B
2660 1A       00518         LD      A,(DE)          ;P/u data byte to move
2661 77       00519 CODE1A  LD      (HL),A          ;Fill buf with byte
2662 23       00520         INC     HL
2663 10FC     00521         DJNZ    CODE1A          ;Loop til done
2665 C1       00522 CODRET  POP     BC
2666 13       00523         INC     DE              ;Bump table ptr
2667 18D0     00524         JR      FMTDAT          ;Back for more
              00525 ;
              00526 ;       Save the current table posn and the number of
              00527 ;       sectors per cylinder on the stack.
              00528 ;
2669 3AE52A   00529 CODF1   LD      A,(SECTRK)      ;P/u # of sectors/side
266C D5       00530 CODF1A  PUSH    DE              ;Save table pointer
266D F5       00531         PUSH    AF              ;Save value
266E 18C9     00532         JR      FMTDAT
              00533 ;
              00534 ;       Done with a sector. Are there more on this cyl?
              00535 ;
2670 F1       00536 CODF2   POP     AF              ;Count down the # of
2671 3D       00537         DEC     A               ;  sectors to format
2672 2803     00538         JR      Z,CODF2A        ;Go if last one done
2674 D1       00539         POP     DE              ;Recover table ptr
2675 18F5     00540         JR      CODF1A          ;Loop for more
              00541 ;
2677 F1       00542 CODF2A  POP     AF              ;Clean the stack
2678 18BF     00543         JR      FMTDAT          ;  and finish off the cyl
              00544 ;
              00545 ;       Build a table of the location in the format buffer of
              00546 ;       the track and sector ID bytes, to be filled in during
              00547 ;       the actual formatting.
              00548 ;
267A 7D       00549 CODF3   LD      A,L             ;Stuff pointer to where
267B 02       00550         LD      (BC),A          ;  track & sector info
267C 03       00551         INC     BC              ;  is to be placed
267D 7C       00552         LD      A,H
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00005 

'<Format Execution Code

267E 02       00553         LD      (BC),A
267F 03       00554         INC     BC
2680 18B7     00555         JR      FMTDAT
              00556 ;
              00557 ;       Finished building format cyl info. Terminate the ID table
              00558 ;       with an extra 256 bytes in case of overrun.
              00559 ;
2682 ED536527 00560 CODF4   LD      (VERSKEW+1),DE  ;Table posn of verify order
2686 AF       00561         XOR     A               ;Stuff two X'00's to
2687 02       00562         LD      (BC),A          ;  indicate the end
2688 03       00563         INC     BC              ;  of the ID posn table
2689 02       00564         LD      (BC),A
268A 0600     00565         LD      B,0             ;Stuff 256 FF's into the
268C 3EFF     00566         LD      A,0FFH          ;  format buffer
268E 77       00567         LD      (HL),A
268F 23       00568         INC     HL
2690 10FC     00569         DJNZ    $-2
              00570 ;
              00571 ;       Begin the formatting
              00572 ;
2692          00573         @@DSPLY FMTCYL$         ;"formatting clinder...
              00574         IFEQ    01H,1
2692+21352C   00575         LD      HL,FMTCYL$
              00576         ENDIF
2695+3E0A     00577         LD      A,10
2697+EF       00578         RST     40
2698 FD7E05   00579 BGNFMT  LD      A,(IY+5)        ;P/u cylinder position
269B CD4C2A   00580         CALL    CVDEC           ;Cvrt to decimal
269E CD852A   00581         CALL    DSPCYL
26A1 010000   00582 SECSKEW LD      BC,0            ;Begin of sector table
26A4 210030   00583 BFMT1   LD      HL,HITBUF       ;P/u ptr to ID posn table
              00584 ;
              00585 BFMT2
26A7          00586         @@CKBRKC                ;Check for break
26A7+3E6A     00587         LD      A,106
26A9+EF       00588         RST     40
26AA C2BC29   00589         JP      NZ,BREAK        ;Go if so
              00590 ;
26AD 5E       00591         LD      E,(HL)          ;P/u positions having
26AE 23       00592         INC     HL              ;  sector & cylinder
26AF 56       00593         LD      D,(HL)          ;  info to be stuffed
26B0 23       00594         INC     HL              ;  into format data
26B1 7A       00595         LD      A,D             ;Finished?
26B2 B3       00596         OR      E
26B3 2820     00597         JR      Z,BFMT4
26B5 FD7E05   00598         LD      A,(IY+5)        ;P/u cylinder # & stuff
26B8 12       00599         LD      (DE),A          ;  into format data
26B9 13       00600         INC     DE
26BA FD7E03   00601         LD      A,(IY+3)        ;Stuff the side-select
26BD E610     00602         AND     10H             ;  bit
26BF 0F       00603         RRCA
26C0 0F       00604         RRCA
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00006 

'<Format Execution Code

26C1 0F       00605         RRCA
26C2 0F       00606         RRCA
26C3 12       00607         LD      (DE),A          ;  into the format data
26C4 13       00608         INC     DE
26C5 0A       00609         LD      A,(BC)          ;P/u the sector number
26C6 B7       00610         OR      A
26C7 F2CF26   00611         JP      P,BFMT3         ;Go if a good number
26CA 81       00612         ADD     A,C             ;  else off the end,
26CB 4F       00613         LD      C,A             ;  calculate the beginning
26CC 3801     00614         JR      C,BFMT3         ;  of the sector table
26CE 05       00615         DEC     B
26CF 0A       00616 BFMT3   LD      A,(BC)          ;P/u the next sector #
26D0 12       00617         LD      (DE),A          ;  and stuff in format data
26D1 13       00618         INC     DE
26D2 03       00619         INC     BC
26D3 18D2     00620         JR      BFMT2           ;Loop until cylinder done
              00621 ;
26D5 ED43A226 00622 BFMT4   LD      (SECSKEW+1),BC  ;Save end of sector table
26D9 FD5605   00623         LD      D,(IY+5)        ;P/u current cylinder
26DC 210031   00624         LD      HL,FORMAT       ;Pt to format data
26DF CDFF29   00625         CALL    SELECT          ;Drive select
26E2 C2A829   00626         JP      NZ,IOERR        ;Go on error
26E5 CD0F2A   00627         CALL    WRCYL           ;Cylinder write
26E8 C2A829   00628         JP      NZ,IOERR
26EB FDCB046E 00629         BIT     5,(IY+4)        ;Double sided?
26EF 280D     00630         JR      Z,BFMT5
26F1 FDCB0366 00631         BIT     4,(IY+3)        ;Flip bit for 2nd side
26F5 2007     00632         JR      NZ,BFMT5        ;  if not already on it,
26F7 FDCB03E6 00633         SET     4,(IY+3)        ;  else go to next
26FB 03       00634         INC     BC              ;Bump to start side 2
26FC 18A6     00635         JR      BFMT1           ;  at different sector #
26FE FDCB03A6 00636 BFMT5   RES     4,(IY+3)        ;Turn off side 2
2702 3E00     00637 TRKSKEW LD      A,0             ;P/u the track skew byte
2704 81       00638         ADD     A,C             ;Repoint to beginning
2705 4F       00639         LD      C,A             ;  of sector table
2706 88       00640         ADC     A,B             ;Skew start of next track
2707 91       00641         SUB     C
2708 47       00642         LD      B,A
2709 ED43A226 00643         LD      (SECSKEW+1),BC
270D FD7E05   00644         LD      A,(IY+5)        ;Finished?
2710 FDBE06   00645         CP      (IY+6)
2713 2820     00646         JR      Z,BGNVER        ;Begin verify if so
2715 014200   00647         LD      BC,1000/15      ;Approx 1 ms pause
2718          00648         @@PAUSE                 ;  before STEPIN
2718+3E10     00649         LD      A,16
271A+EF       00650         RST     40
271B CD072A   00651         CALL    STEPIN          ;Step in
271E C2A829   00652         JP      NZ,IOERR        ;Go on error
2721 019826   00653         LD      BC,BGNFMT       ;Place RET addr on stack
2724 CD0B2A   00654 CKWAIT  CALL    RSELCT          ;Wait for idle FDC
2727 C2A829   00655         JP      NZ,IOERR        ;Go on error
272A C5       00656         PUSH    BC              ;Save RET addr
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00007 

'<Format Execution Code

              00657 ;
              00658 ;       WAIT parameter for time delay after STEPIN
              00659 ;
272B 01C800   00660 WAITPRM LD      BC,3000/15      ;Approx 3 ms delay
272E 78       00661         LD      A,B             ;  after STEPIN
272F B1       00662         OR      C
2730 C8       00663         RET     Z               ;Do next track if no wait
2731          00664         @@PAUSE                 ;  else wait for count
2731+3E10     00665         LD      A,16
2733+EF       00666         RST     40
2734 C9       00667         RET
              00668 ;
              00669 ;       Begin the verification process
              00670 ;
2735 0E0D     00671 BGNVER  LD      C,CR            ;Posn to next dsply line
2737          00672         @@DSP
2737+3E02     00673         LD      A,2
2739+EF       00674         RST     40
273A CD032A   00675         CALL    RESTOR          ;Restore to cyl 0
273D 206A     00676         JR      NZ,BVER9        ;Go on error
273F          00677         @@DSPLY VERCYL$         ;"verifying cylinder...
              00678         IFEQ    01H,1
273F+214D2C   00679         LD      HL,VERCYL$
              00680         ENDIF
2742+3E0A     00681         LD      A,10
2744+EF       00682         RST     40
2745 1600     00683         LD      D,0             ;Init track count
              00684 BVER1
2747          00685         @@CKBRKC                ;Check for break
2747+3E6A     00686         LD      A,106
2749+EF       00687         RST     40
274A C2BC29   00688         JP      NZ,BREAK        ; and abort if so
              00689 ;
274D 6A       00690         LD      L,D             ;Pt to GAT byte for this
274E 262E     00691         LD      H,GATBUF<-8     ;  track & bypass verify
2750 7E       00692         LD      A,(HL)          ;  if track not formatted
2751 3C       00693         INC     A
2752 2836     00694         JR      Z,BVER8
              00695 ;
2754 7A       00696         LD      A,D
2755 CD4C2A   00697         CALL    CVDEC           ;Convert cyl # to ASCII
2758 D5       00698         PUSH    DE
2759 CD852A   00699         CALL    DSPCYL          ;Display the current cyl
275C D1       00700         POP     DE
275D AF       00701         XOR     A               ;Initialize starting sector
275E 327227   00702         LD      (BVER5+1),A
2761 326927   00703         LD      (BVER4+1),A
2764 010000   00704 VERSKEW LD      BC,0            ;P/u start of sector tbl
2767 0A       00705 BVER3   LD      A,(BC)          ;P/u sector #
2768 C600     00706 BVER4   ADD     A,0             ;Add in a side's sectors
276A 5F       00707         LD      E,A             ;  if on side 2
276B CD232A   00708         CALL    VERSEC          ;Sector verify
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00008 

'<Format Execution Code

276E 2039     00709         JR      NZ,BVER9        ;Go on error
2770 03       00710         INC     BC              ;Bump sector table ptr
2771 3E00     00711 BVER5   LD      A,0             ;P/u sector #
2773 3C       00712         INC     A               ;Bump it up
2774 327227   00713         LD      (BVER5+1),A     ;  and save new #
2777 5F       00714         LD      E,A             ;Xfer to sector register
2778 3AE42A   00715         LD      A,(SECCYL)      ;Is this = a cyl?
277B BB       00716         CP      E
277C 280C     00717         JR      Z,BVER8         ;Go if cyl done
277E 3AE52A   00718         LD      A,(SECTRK)      ;Is this a track's worth?
2781 BB       00719         CP      E
2782 20E3     00720         JR      NZ,BVER3        ;Loop if not
2784 326927   00721         LD      (BVER4+1),A     ;Update the add for side2
2787 03       00722         INC     BC
2788 18DA     00723         JR      VERSKEW
              00724 ;
              00725 ;       Readjust for end of cylinder
              00726 ;
278A 7A       00727 BVER8   LD      A,D             ;P/u current cyl position
278B 14       00728         INC     D               ;Bump to next cyl
278C FDBE06   00729         CP      (IY+6)          ;Cp to highest # cyl
278F 014727   00730         LD      BC,BVER1        ;Go if more to verify
2792 2090     00731         JR      NZ,CKWAIT       ;  after checking WAIT
              00732 ;
              00733 ;       Shift the FREE table to LOCKOUT table
              00734 ;
2794 21002E   00735 MOVFREE LD      HL,GATBUF       ;Ptr to allocation info
2797 11602E   00736         LD      DE,GATBUF+60H   ;Lockout table
279A 0600     00737         LD      B,0
279C FD4E06   00738         LD      C,(IY+6)        ;P/u hi cyl
279F 0C       00739         INC     C               ;Offset from 0
27A0 EDB0     00740         LDIR                    ;Shift info to the lockout tbl
27A2 0E0D     00741         LD      C,CR            ;Print a newline
27A4          00742         @@DSP
27A4+3E02     00743         LD      A,2
27A6+EF       00744         RST     40
27A7 185D     00745         JR      CALCDIR         ;Go finish DIR init
              00746 ;
              00747 ;       Got verify error
              00748 ;
27A9 FE05     00749 BVER9   CP      5               ;Data rec not found?
27AB 2805     00750         JR      Z,BVER10
27AD FE04     00751         CP      4               ;Parity error?
27AF C2A829   00752         JP      NZ,IOERR        ;Quit on any other
27B2 D5       00753 BVER10  PUSH    DE
27B3          00754         @@DSPLY STAR$           ;Show the * lockout
              00755         IFEQ    01H,1
27B3+21652C   00756         LD      HL,STAR$
              00757         ENDIF
27B6+3E0A     00758         LD      A,10
27B8+EF       00759         RST     40
27B9 D1       00760         POP     DE
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00009 

'<Format Execution Code

27BA 6A       00761         LD      L,D             ;Pt to this cyl
27BB 262E     00762         LD      H,GATBUF<-8     ;  in the GAT
27BD 36FF     00763         LD      (HL),0FFH       ;Lockout this cylinder
27BF 18C9     00764         JR      BVER8           ;Continue verifying
              00765 ;
              00766 ;       Hard drive format - most work done by controller
              00767 ;
27C1 216539   00768 HRDRV   LD      HL,LASTMSG      ;Give one last chance to
27C4 FDCB035E 00769         BIT     3,(IY+3)        ;  abort before wiping
27C8 2809     00770         JR      Z,AFLOP         ;  disk unless floppy
27CA CD592A   00771         CALL    GET3            ;Is hard, get response
27CD 7E       00772         LD      A,(HL)          ;P/u 1st char of resp
27CE FE59     00773         CP      'Y'             ;Must be yes to continue
27D0 C2BC29   00774         JP      NZ,FMTABT
27D3 3A1C26   00775 AFLOP   LD      A,(SYSPRM+1)    ;Bypass the formatting
27D6 B7       00776         OR      A               ;  if system info only
27D7 200C     00777         JR      NZ,HRDRV1
27D9          00778         @@DSPLY FMTG$           ;"formatting - be patient
              00779         IFEQ    01H,1
27D9+216A2C   00780         LD      HL,FMTG$
              00781         ENDIF
27DC+3E0A     00782         LD      A,10
27DE+EF       00783         RST     40
27DF CD132A   00784         CALL    FMTHD           ;Format hard drive
27E2 C2A829   00785         JP      NZ,IOERR
27E5 FD7E07   00786 HRDRV1  LD      A,(IY+7)        ;# of sectors/gran
27E8 57       00787         LD      D,A             ;-> reg E
27E9 E61F     00788         AND     1FH
27EB 5F       00789         LD      E,A
27EC 1C       00790         INC     E               ;Bump for 0 offset
27ED AA       00791         XOR     D
27EE 07       00792         RLCA                    ;Get # of heads
27EF 07       00793         RLCA                    ;Into reg D
27F0 07       00794         RLCA
27F1 3C       00795         INC     A               ;Adjust for zero offset
27F2 4F       00796         LD      C,A
27F3          00797         @@MUL8                  ;Multiply E x C
27F3+3E5A     00798         LD      A,90
27F5+EF       00799         RST     40
27F6 FDCB046E 00800         BIT     5,(IY+4)        ;2-sided?
27FA 2801     00801         JR      Z,$+3
27FC 87       00802         ADD     A,A             ;Twice the number
27FD 32E42A   00803         LD      (SECCYL),A
2800 FDCB035E 00804         BIT     3,(IY+3)        ;Floppy?
2804 288E     00805         JR      Z,MOVFREE       ;Form lock table instead
              00806 ;
              00807 ;       Routine to calculate the directory cylinder
              00808 ;
2806 CD032A   00809 CALCDIR CALL    RESTOR          ;Step in
2809 C2A829   00810         JP      NZ,IOERR        ;Go on error
280C 262E     00811         LD      H,GATBUF<-8
280E FD6E06   00812         LD      L,(IY+6)        ;P/u highest # cylinder
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00010 

'<Format Execution Code

2811 010000   00813 DIRPARM LD      BC,0000         ;P/U 'DIR=' parm
2814 79       00814         LD      A,C             ;Check if entered
2815 B0       00815         OR      B
2816 2806     00816         JR      Z,NODIR         ;Calc one if not entered
2818 BD       00817         CP      L               ;Entered so check if
2819 3003     00818         JR      NC,NODIR        ;  within cylinders
281B 6F       00819         LD      L,A             ;Is ok, use it
281C 1803     00820         JR      DIRSET
281E 2C       00821 NODIR   INC     L               ;Adj for zero offset
281F CB3D     00822         SRL     L               ;Divide by 2 to find
2821 0E00     00823 DIRSET  LD      C,0             ;  disk midpoint
              00824 ;
              00825 ;       Perform expanding binary search to find
              00826 ;       A cylinder available for the directory
              00827 ;
2823 7E       00828 CALC1   LD      A,(HL)          ;Is this cylinder
2824 3C       00829         INC     A               ;Available or locked out?
2825 2019     00830         JR      NZ,GENSYS       ;Bypass if available
2827 0C       00831         INC     C               ;Bump C
2828 79       00832         LD      A,C
2829 0F       00833         RRCA                    ;Test if odd or even
282A 7D       00834         LD      A,L             ;Get current test pos
282B 3009     00835         JR      NC,CALC2        ;Jump if C was even
282D 81       00836         ADD     A,C             ;Add to previous pos
282E 6F       00837         LD      L,A
282F FDBE06   00838         CP      (IY+6)          ;Go over the top?
2832 20EF     00839         JR      NZ,CALC1        ;Loop if not
2834 1804     00840         JR      CALC3           ;Else abort
2836 91       00841 CALC2   SUB     C               ;Try a lower cylinder #
2837 6F       00842         LD      L,A
2838 20E9     00843         JR      NZ,CALC1        ;At cylinder 0?
283A 21782C   00844 CALC3   LD      HL,NOCYL$       ;"no dir space avail...
283D C3BC29   00845         JP      FMTABT
              00846 ;
              00847 ;       Generate the system initialization
              00848 ;
2840 FD7509   00849 GENSYS  LD      (IY+9),L        ;Stuff the dir cyl
2843 7D       00850         LD      A,L
2844 CD4C2A   00851         CALL    CVDEC           ;Cvrt reg A to 2 dec digs
2847 ED43C22C 00852         LD      (DIRASC$),BC    ;Stuff into the message
284B          00853         @@DSPLY DIRCYL$         ;"dir will be placed...
              00854         IFEQ    01H,1
284B+219D2C   00855         LD      HL,DIRCYL$
              00856         ENDIF
284E+3E0A     00857         LD      A,10
2850+EF       00858         RST     40
2851          00859         @@DSPLY IPLSYS$         ;"initializing...
              00860         IFEQ    01H,1
2851+21C52C   00861         LD      HL,IPLSYS$
              00862         ENDIF
2854+3E0A     00863         LD      A,10
2856+EF       00864         RST     40
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00011 

'<Format Execution Code

2857 21002E   00865         LD      HL,GATBUF
285A 7E       00866         LD      A,(HL)          ;P/u GAT byte for 1st
285B F601     00867         OR      1               ;  cylinder & show 1st
285D 77       00868         LD      (HL),A          ;  gran in use for BOOTs
285E FD7E09   00869         LD      A,(IY+9)        ;Dir cyl # into DIR/SYS
2861 32CF2A   00870         LD      (DIRDIR+16H),A
2864 6F       00871         LD      L,A             ;Show entire directory
2865 36FF     00872         LD      (HL),0FFH       ;  cylinder used
              00873 ;
              00874 ;       Update BOOT for DIR & step rate
              00875 ;
2867 FD7E09   00876         LD      A,(IY+9)        ;Dir cyl into BOOT
286A 32022F   00877         LD      (BOOT+2),A
286D 3A0026   00878         LD      A,(BOOTST$)     ;P/u offset
2870 6F       00879         LD      L,A
2871 262F     00880         LD      H,BOOT<-8
2873 3AE32A   00881         LD      A,(STEPDFT)     ;P/u boot step rate
              00882         IF      @MOD2
              00883         OR      80H             ;Create single byte opcod
              00884         ENDIF
2876 77       00885         LD      (HL),A          ;  & set into BOOT
2877 110000   00886         LD      DE,0            ;Init for cyl 0, sect 0
287A CD232A   00887         CALL    VERSEC          ;Test if formatted
287D 21312D   00888         LD      HL,NOTFMT$      ;"Can't, not formatted
2880 C2BF29   00889         JP      NZ,EXTERR       ;Error if not
2883 21002F   00890         LD      HL,BOOT         ;Pt to Data disk BOOT
2886 CD172A   00891         CALL    WRSEC           ;  & write it
2889 CC402A   00892         CALL    Z,WRDIR1        ;Verify after write
288C C2A829   00893         JP      NZ,IOERR        ;  & display '.'
288F 110100   00894         LD      DE,1            ;Pt to cyl 0, sector 1
2892 21002F   00895         LD      HL,BOOT         ;Pt to the sector 1 boot
2895 CD172A   00896         CALL    WRSEC           ;Write 0/1
2898 CC402A   00897         CALL    Z,WRDIR+3       ;Verify after write
289B C2A829   00898         JP      NZ,IOERR
              00899 ;
              00900 ;       Complete GAT construction
              00901 ;
289E FD7E06   00902         LD      A,(IY+6)        ;P/u highest # cylinder
28A1 D622     00903         SUB     22H             ;  & adj offset from 34
28A3 32CC2E   00904         LD      (GATBUF+0CCH),A ;Stuff GAT cyl excess
28A6 FD7E04   00905         LD      A,(IY+4)        ;P/u # of sides
28A9 E6A0     00906         AND     80H+20H
28AB 47       00907         LD      B,A             ;Save tempy in B
28AC FD7E03   00908         LD      A,(IY+3)        ;P/u density
28AF E640     00909         AND     40H             ;Mask it,
28B1 B0       00910         OR      B               ;  merge in sides
28B2 47       00911         LD      B,A             ;  and save it
28B3 FD7E08   00912         LD      A,(IY+8)        ;P/u # of grans/cyl
28B6 07       00913         RLCA
28B7 07       00914         RLCA                    ;  to bits 0-2
28B8 07       00915         RLCA
28B9 E607     00916         AND     7               ;Mask it
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00012 

'<Format Execution Code

28BB 325529   00917         LD      (CYLGRN+1),A
28BE B0       00918         OR      B               ;Merge the two
28BF F688     00919         OR      88H             ;Data disk, new date style
28C1 32CD2E   00920         LD      (GATBUF+0CDH),A ;Stuff into GAT
              00921 ;
28C4 11F52E   00922         LD      DE,GATBUF+255-10        ;6.2 Media Data Block
28C7 21DB28   00923         LD      HL,LSIID        ;Point to header
28CA 010400   00924         LD      BC,04           ;Set length &
28CD EDB0     00925         LDIR                    ;  move it
28CF FDE5     00926         PUSH    IY              ;Get DCT address
28D1 E1       00927         POP     HL              ;  into HL
28D2 23       00928         INC     HL              ;Bypass the driver vector
28D3 23       00929         INC     HL
28D4 23       00930         INC     HL
28D5 0E07     00931         LD      C,7             ;Bytes to move
28D7 EDB0     00932         LDIR
28D9 1804     00933         JR      WRGAT1          ;Skip around string
              00934         IF      @BLD631
28DB 03       00935 LSIID   DB      03,'631'        ;<631>
     36 33 31 
              00936         ELSE
              00937 LSIID   DB      03,'LSI'
              00938         ENDIF
              00939 ;
              00940 ;       Write copy of GAT into 0/3
              00941 ;
              00942 WRGAT1
28DF 21002E   00943         LD      HL,GATBUF       ;Pt to GAT buffer
28E2 1600     00944         LD      D,0             ;Write it out to
28E4 1E03     00945         LD      E,3             ;Cyl 0, sector 3
28E6 CD172A   00946         CALL    WRSEC           ;Write 0/3
28E9 CC402A   00947         CALL    Z,WRDIR1        ;Verify after write
28EC C2A829   00948         JP      NZ,IOERR        ;Quit on error
              00949 ;
              00950 ;       Write the system information sector
              00951 ;
28EF 210030   00952         LD      HL,HITBUF       ;Zero out buffer
28F2 3600     00953 GSYS1   LD      (HL),0
28F4 2C       00954         INC     L
28F5 20FB     00955         JR      NZ,GSYS1
              00956         IF      @BLD631
              00957         ELSE
              00958         LD      HL,HITBUF       ;Set first byte to OSVER
              00959         ENDIF
28F7 3663     00960         LD      (HL),RLS        ;  for release number
28F9 2E20     00961         LD      L,20H           ;Point hl to AUTO buffer
28FB 360D     00962         LD      (HL),0DH        ;Put in terminator
28FD 110200   00963         LD      DE,2            ;Pt to cyl 0, sector 2
2900 6A       00964         LD      L,D             ;Hl now points to HITBUF
2901 CD172A   00965         CALL    WRSEC           ;Write 0/2
2904 CC402A   00966         CALL    Z,WRDIR1        ;Verify after write
              00967         IF      @BLD631
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00013 

'<Format Execution Code

              00968         ELSE
              00969         JP      NZ,IOERR        ;Quit on error
              00970         ENDIF
2907 2E20     00971         LD      L,20H           ;Zero this out for use
2909 3600     00972         LD      (HL),0          ;  when writing HIT
              00973 ;
              00974 ;       Write out the directory GAT
              00975 ;
290B 21002E   00976         LD      HL,GATBUF       ;Pt to GAT sector buffer
290E FD5609   00977         LD      D,(IY+9)        ;P/u the dir cyl
2911 5D       00978         LD      E,L             ;Denote sector 0
              00979         IF      @BLD631
2912 CC3D2A   00980         CALL    Z,WRDIR         ;<631>Write the GAT
              00981         ELSE
              00982         CALL    WRDIR           ;Write the GAT
              00983         JP      NZ,IOERR
              00984         ENDIF
              00985 ;
              00986 ;       Construct the HIT
              00987 ;
2915 210030   00988         LD      HL,HITBUF       ;Point to the HIT buffer
2918 36A2     00989         LD      (HL),0A2H       ;Stuff BOOT/SYS hash code
291A 23       00990         INC     HL
291B 36C4     00991         LD      (HL),0C4H       ;Stuff DIR/SYS hash code
291D 2B       00992         DEC     HL
291E FD5609   00993         LD      D,(IY+9)        ;P/u dir cyl #
2921 1E01     00994         LD      E,1             ;Pt to sector 1
2923 CD3D2A   00995         CALL    WRDIR           ;Write the HIT
2926 C2A829   00996         JP      NZ,IOERR
2929 110030   00997         LD      DE,HITBUF       ;Establish buffer for
292C 21992A   00998         LD      HL,BOOTDIR      ;  dir records
292F 012000   00999         LD      BC,32           ;Move BOOT/SYS dir record
2932 EDB0     01000         LDIR                    ;  into 1st slot
2934 FD5609   01001         LD      D,(IY+9)        ;P/u dir cyl
2937 1E02     01002         LD      E,2             ;This will be sector 2
2939 210030   01003         LD      HL,HITBUF       ;Pt to buffer start
293C CD3D2A   01004         CALL    WRDIR           ;Write the sector
293F C2A829   01005         JP      NZ,IOERR
2942 3AE42A   01006         LD      A,(SECCYL)      ;P/u # of records
              01007         IF      @BLD631
              01008         ELSE
              01009         LD      (DIRDIR+14H),A  ;  & stuff into DIR/SYS
              01010         ENDIF
2945 B7       01011         OR      A               ;Are recs=256?
              01012         IF      @BLD631
2946 2804     01013         JR      Z,L294C         ;<631>
2948 FE23     01014         CP      '#'             ;<631>
294A 3802     01015         JR      C,L294E         ;<631>
294C 3E22     01016 L294C:  LD      A,22H           ;<631>
294E 21E42A   01017 L294E:  LD      HL,SECCYL       ;<631>
2951 32CD2A   01018         LD      (DIRDIR+14H),A  ;<631> set lsb of ERN
              01019         ELSE
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00014 

'<Format Execution Code

              01020         JR      NZ,CYLGRN       ;Go if not
              01021         INC     A
              01022         LD      (DIRDIR+15H),A  ;  else stuff msb of ERN
              01023         ENDIF
2954 3E00     01024 CYLGRN  LD      A,0             ;P/u # grans/cyl
2956 FDCB046E 01025         BIT     5,(IY+4)        ;Test 2-sided
295A 2802     01026         JR      Z,$+4
295C 87       01027         ADD     A,A             ;Double count on 2-sided
295D 3C       01028         INC     A               ;Plus 1 for 0 offset adj
295E 32D02A   01029         LD      (DIRDIR+17H),A  ;Stuf in DIR/SYS
2961 FD7E09   01030         LD      A,(IY+9)        ;P/u the dir cyl # &
2964 32CF2A   01031         LD      (DIRDIR+16H),A  ;  stuff into the DIR rec
2967 21B92A   01032         LD      HL,DIRDIR       ;Pt to start of DIR data
296A 110030   01033         LD      DE,HITBUF       ;Pt to start of dir buf
296D 012000   01034         LD      BC,32           ;Move DIR/SYS into buf
2970 EDB0     01035         LDIR
2972 FD5609   01036         LD      D,(IY+9)        ;P/u dir cyl #
2975 1E03     01037         LD      E,3             ;Write as sector 3
2977 210030   01038         LD      HL,HITBUF       ;Pt to start of buffer
297A CD3D2A   01039         CALL    WRDIR           ;Write the sector
297D 2029     01040         JR      NZ,IOERR
297F 210030   01041         LD      HL,HITBUF       ;Zero the 1st 32 bytes
2982 0620     01042         LD      B,32            ;  of the buffer to clear
2984 3600     01043 GSYS2   LD      (HL),0          ;Where we stuffed the
2986 23       01044         INC     HL              ;  BOOT & DIR dir records
2987 10FB     01045         DJNZ    GSYS2
2989 FD5609   01046         LD      D,(IY+9)        ;P/u dir cyl #
298C 1E04     01047         LD      E,4             ;Cont writing at sect 4
298E 210030   01048 GSYS3   LD      HL,HITBUF       ;Pt to start of buffer
2991 CD3D2A   01049         CALL    WRDIR           ;Write the sector
2994 2012     01050         JR      NZ,IOERR
              01051 ;
              01052 ;       Write the remaining directory
              01053 ;
2996 1C       01054         INC     E               ;Bump the sector pointer
2997 3AE42A   01055         LD      A,(SECCYL)      ;P/u highest # sector
299A BB       01056         CP      E               ;Are we finished yet?
299B 20F1     01057         JR      NZ,GSYS3        ;Loop if not
299D CDE529   01058         CALL    EXIT2           ;Get system disk
29A0          01059         @@DSPLY FMTCAO$         ;"formatting complete...
              01060         IFEQ    01H,1
29A0+210A2D   01061         LD      HL,FMTCAO$
              01062         ENDIF
29A3+3E0A     01063         LD      A,10
29A5+EF       01064         RST     40
29A6 1823     01065         JR      EXIT
              01066 ;
              01067 ;       Exit procedures
              01068 ;
29A8 F5       01069 IOERR   PUSH    AF              ;Save errcod
29A9 CDE529   01070         CALL    EXIT2           ;Interrupts on if needed
29AC F1       01071         POP     AF              ;Rcvr errcod
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00015 

'<Format Execution Code

29AD FE3F     01072         CP      63              ;Extended errror?
29AF 280E     01073         JR      Z,EXTERR        ;Go if so
29B1 6F       01074         LD      L,A             ;Error code to HL
29B2 2600     01075         LD      H,0
29B4 F6C0     01076         OR      0C0H            ;Mask to ABORT with brief
29B6 4F       01077         LD      C,A             ;Error code to C
29B7          01078         @@ERROR                 ;  for error display
29B7+3E1A     01079         LD      A,26
29B9+EF       01080         RST     40
29BA 180C     01081         JR      ERREXIT
              01082 ;
29BC          01083 BREAK   EQU     $
29BC 21202D   01084 FMTABT  LD      HL,FMTABT$      ;"Command aborted
29BF          01085 EXTERR  @@LOGOT                 ;Some error to abort job
              01086         IFEQ    00H,1
              01087         LD      HL,
              01088         ENDIF
29BF+3E0C     01089         LD      A,12
29C1+EF       01090         RST     40
29C2 CDE529   01091         CALL    EXIT2           ;Get system disk
29C5 21FFFF   01092         LD      HL,-1           ;Set abort code
29C8 22CC29   01093 ERREXIT LD      (RETCOD),HL
29CB 210000   01094 EXIT    LD      HL,0            ;Init to no error
29CC          01095 RETCOD  EQU     $-2
29CE E5       01096         PUSH    HL
29CF FDE5     01097         PUSH    IY              ;Transfer the saved
29D1 D1       01098         POP     DE              ;  system DCT back
29D2 21D92A   01099         LD      HL,SYSDCT       ;  into the system
29D5 010A00   01100         LD      BC,10           ;  DCT slot
29D8 EDB0     01101         LDIR
29DA CD032A   01102         CALL    RESTOR          ;Match DCT and drive
29DD E1       01103         POP     HL
29DE 310000   01104 SPSAV   LD      SP,$-$          ;P/u the stack pointer
29E1          01105         @@CKBRKC                ;Clear break bit
29E1+3E6A     01106         LD      A,106
29E3+EF       01107         RST     40
29E4 C9       01108         RET                     ;  & exit to caller
              01109 ;
29E5 3A272A   01110 EXIT2   LD      A,(FMTDRV+1)    ;P/u drive # just fmtd
29E8 3C       01111         INC     A               ;If drive never entered,
29E9 C8       01112         RET     Z               ;  just return
29EA 3D       01113         DEC     A               ;If 0, we need a system
29EB 200D     01114         JR      NZ,EXIT4
29ED 21EB2C   01115         LD      HL,PMTSYS$      ;"load system disk...
29F0          01116         @@DSPLY
              01117         IFEQ    00H,1
              01118         LD      HL,
              01119         ENDIF
29F0+3E0A     01120         LD      A,10
29F2+EF       01121         RST     40
29F3          01122 EXIT3   @@KEY                   ;Request a key
29F3+3E01     01123         LD      A,1
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00016 

'<Format Execution Code

29F5+EF       01124         RST     40
29F6 FE0D     01125         CP      CR              ;Must be <ENTER>
29F8 20F9     01126         JR      NZ,EXIT3
29FA 1807     01127 EXIT4   JR      RESTOR          ;Restore disk to cyl 0
              01128 ;
              01129 ;       Disk I/O requests
              01130 ;
              01131         IF      @BLD631
29FC AF       01132 DRVNOP: XOR     A               ;<631>
29FD 1826     01133         JR      SAVBC           ;<631>
29FF 3E01     01134 SELECT: LD      A,1             ;<631>
2A01 1822     01135         JR      SAVBC           ;<631>
2A03 3E04     01136 RESTOR: LD      A,4             ;<631>
2A05 181E     01137         JR      SAVBC           ;<631>
2A07 3E05     01138 STEPIN: LD      A,5             ;<631>
2A09 181A     01139         JR      SAVBC           ;<631>
2A0B 3E07     01140 RSELCT: LD      A,7             ;<631>
2A0D 1816     01141         JR      SAVBC           ;<631>
2A0F 3E0F     01142 WRCYL:  LD      A,15            ;<631>
2A11 1812     01143         JR      SAVBC           ;<631>
2A13 3E0C     01144 FMTHD:  LD      A,12            ;<631>
2A15 180E     01145         JR      SAVBC           ;<631>
2A17 3E0D     01146 WRSEC:  LD      A,13            ;<631>
2A19 180A     01147         JR      SAVBC           ;<631>
2A1B 3E0E     01148 WRSYS:  LD      A,14            ;<631>
2A1D 1806     01149         JR      SAVBC           ;<631>
2A1F 3E09     01150 RDSEC:  LD      A,9             ;<631>
2A21 1802     01151         JR      SAVBC           ;<631>
2A23 3E0A     01152 VERSEC: LD      A,10            ;<631>
2A25 C5       01153 SAVBC:  PUSH    BC              ;<631>
2A26 0EFF     01154 FMTDRV: LD      C,-1            ;<631>P/u drive #
              01155         ELSE
              01156 DRVNOP  PUSH    BC
              01157         XOR     A
              01158         JR      FMTDRV
              01159 SELECT  PUSH    BC
              01160         LD      A,1
              01161         JR      FMTDRV
              01162 RESTOR  PUSH    BC
              01163         LD      A,4
              01164         JR      FMTDRV
              01165 STEPIN  PUSH    BC
              01166         LD      A,5
              01167         JR      FMTDRV
              01168 RSELCT  PUSH    BC
              01169         LD      A,7
              01170         JR      FMTDRV
              01171 WRCYL   PUSH    BC
              01172         LD      A,15
              01173         JR      FMTDRV
              01174 FMTHD   PUSH    BC
              01175         LD      A,12
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00017 

'<Format Execution Code

              01176         JR      FMTDRV
              01177 WRSEC   PUSH    BC
              01178         LD      A,13
              01179         JR      FMTDRV
              01180 WRSYS   PUSH    BC
              01181         LD      A,14
              01182         JR      FMTDRV
              01183 RDSEC   PUSH    BC
              01184         LD      A,9
              01185         JR      FMTDRV
              01186 VERSEC  PUSH    BC
              01187         LD      A,10
              01188 FMTDRV  LD      C,-1            ;P/u drive #
              01189         ENDIF
2A28 C628     01190         ADD     A,40            ;Adjust SVC #
2A2A EF       01191         RST     40
2A2B C1       01192         POP     BC
2A2C C9       01193         RET
              01194 ;
              01195 ;       Perform a verification to ensure system sector
              01196 ;
2A2D CD232A   01197 VERSYS  CALL    VERSEC          ;Sector verify
2A30 2806     01198         JR      Z,VERS1         ;Bypass if not system
2A32 D606     01199         SUB     6               ;Test read system retcod
2A34 C8       01200         RET     Z               ;Go if that's what it was
2A35 C606     01201         ADD     A,6             ;Restore orig retcod
2A37 C9       01202         RET
2A38 F601     01203 VERS1   OR      1               ;S/b system, found data
2A3A 3E00     01204         LD      A,0
2A3C C9       01205         RET
              01206 ;
2A3D CD1B2A   01207 WRDIR   CALL    WRSYS           ;Write the DIR sector
2A40 C42D2A   01208 WRDIR1  CALL    NZ,VERSYS       ;Verify after write
2A43 C0       01209         RET     NZ
2A44 D5       01210         PUSH    DE
2A45 0E2E     01211         LD      C,'.'           ;Display a period
2A47          01212         @@DSP                   ;  for every sector written
2A47+3E02     01213         LD      A,2
2A49+EF       01214         RST     40
2A4A D1       01215         POP     DE
2A4B C9       01216         RET
              01217 ;
              01218 ;       Routine to convert reg A to 2 decimal digits
              01219 ;
2A4C 0E30     01220 CVDEC   LD      C,30H           ;Init msd to 0
2A4E D60A     01221 CVD1    SUB     10              ;Sub 10 until underflow
2A50 3803     01222         JR      C,CVD2
2A52 0C       01223         INC     C               ;Inc the count
2A53 18F9     01224         JR      CVD1
2A55 C63A     01225 CVD2    ADD     A,3AH           ;Add back 10 + '0'
2A57 47       01226         LD      B,A             ;Lsd to B
2A58 C9       01227         RET
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00018 

'<Format Execution Code

              01228 ;
              01229 ;       Routines to convert input strings to UC
              01230 ;       HL => Prompt string
              01231 ;
2A59          01232 GET3    @@DSPLY                 ;Display the prompt
              01233         IFEQ    00H,1
              01234         LD      HL,
              01235         ENDIF
2A59+3E0A     01236         LD      A,10
2A5B+EF       01237         RST     40
2A5C 010003   01238         LD      BC,3<8          ;Init 3 keys max
2A5F 1803     01239         JR      $+5
2A61 010008   01240 GET8    LD      BC,8<8          ;8-chars max
2A64 210030   01241         LD      HL,HITBUF       ;Buffer area
2A67          01242 GET8A   @@KEYIN                 ;Enter them
2A67+3E09     01243         LD      A,9
2A69+EF       01244         RST     40
2A6A DABC29   01245         JP      C,FMTABT        ;Quit on Break
2A6D 78       01246         LD      A,B             ;Get length of response
2A6E B7       01247         OR      A
2A6F C8       01248         RET     Z               ;Back if Enter only
              01249 ;
              01250 ;       Routine to convert n-character string to UC
              01251 ;
2A70 F5       01252         PUSH    AF              ;Save the registers
2A71 C5       01253         PUSH    BC
2A72 E5       01254         PUSH    HL
2A73 7E       01255 GETUC   LD      A,(HL)          ;P/u a char
2A74 FE61     01256         CP      'a'             ;Skip if below 'a'
2A76 3806     01257         JR      C,GETUC1
2A78 FE7B     01258         CP      'z'+1           ;  or above 'z'
2A7A 3002     01259         JR      NC,GETUC1
2A7C CBAE     01260         RES     5,(HL)          ;  else convert to UC
2A7E 23       01261 GETUC1  INC     HL              ;Bump the buffer ptr
2A7F 10F2     01262         DJNZ    GETUC           ;Loop thru all chars
2A81 E1       01263         POP     HL
2A82 C1       01264         POP     BC
2A83 F1       01265         POP     AF
2A84 C9       01266         RET
              01267 ;
              01268 ;       Routine to display the cylinder number
              01269 ;
2A85 C5       01270 DSPCYL  PUSH    BC              ;Save ASCII cylinder #
2A86 0E08     01271         LD      C,8             ;Back up twice &
2A88          01272         @@DSP                   ;  output new position
2A88+3E02     01273         LD      A,2
2A8A+EF       01274         RST     40
2A8B 0E08     01275         LD      C,8
2A8D          01276         @@DSP
2A8D+3E02     01277         LD      A,2
2A8F+EF       01278         RST     40
2A90 C1       01279         POP     BC              ;Recover cyl #
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00019 

'<Format Execution Code

2A91          01280         @@DSP                   ;Send MSD
2A91+3E02     01281         LD      A,2
2A93+EF       01282         RST     40
2A94 48       01283         LD      C,B
2A95          01284         @@DSP                   ;Send LSD
2A95+3E02     01285         LD      A,2
2A97+EF       01286         RST     40
2A98 C9       01287         RET
              01288 ;
              01289 ;       Formatting data and tables
              01290 ;
              01291         IF      @BLD631
2A99 5E       01292 BOOTDIR DB      5EH,0,0,0,0,'BOOT    SYS',0F4H,71H      ;<631>
     00 00 00 00 42 4F 4F 54
     20 20 20 20 53 59 53 F4
     71 
              01293         ELSE
              01294 BOOTDIR DB      5EH,0,0,0,0,'BOOT    SYS',0F6H,37H
              01295         ENDIF
2AAB 00       01296         DB      0,0,5,0,0,0,0FFH,0FFH,-1,-1,-1,-1,-1,-1
     00 05 00 00 00 FF FF FF
     FF FF FF FF FF 
              01297         IF      @BLD631
2AB9 5D       01298 DIRDIR  DB      5DH,0,0,0,0,'DIR     SYS',0F4H,71H      ;<631>
     00 00 00 00 44 49 52 20
     20 20 20 20 53 59 53 F4
     71 
              01299         ELSE
              01300 DIRDIR  DB      5DH,0,0,0,0,'DIR     SYS',0F6H,37H
              01301         ENDIF
2ACB 96       01302         DB      96H,42H,10,0,11H,1,0FFH,0FFH,0,0,0,0,0,0
     42 0A 00 11 01 FF FF 00
     00 00 00 00 00 
2AD9          01303 SYSDCT  DS      10
2AE3 00       01304 STEPDFT DB      0               ;Boot step rate default
2AE4          01305 SECCYL  DS      1               ;# of sectors per cyl
2AE5          01306 SECTRK  DS      1               ;# of sectors per trk
              01307 ;
              01308 ;       Single density 5" format table
              01309 ;
2AE6 0A       01310 S5TBL   DB      10,7
     07 
2AE8 00       01311         DB      0,5,1,6,2,7,3,8,4,9
     05 01 06 02 07 03 08 04
     09 
2AF2 F6       01312         DB      -10,-10,-10,-10,-10,-10,-10,-10,14,0FFH
     F6 F6 F6 F6 F6 F6 F6 0E
     FF 
2AFC F1       01313         DB      0F1H,6,0,1,0FEH
     06 00 01 FE 
2B01 F3       01314         DB      0F3H,3,0,1,1,1,0F7H,1,0FFH,11,0FFH
     03 00 01 01 01 F7 01 FF
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00020 

'<Format Execution Code

     0B FF 
2B0C 06       01315         DB      6,0,1,0FBH,0,0E5H,1,0F7H,1,0FFH,13,0FFH
     00 01 FB 00 E5 01 F7 01
     FF 0D FF 
2B18 F2       01316         DB      0F2H,47H,0FFH,0F4H
     47 FF F4 
2B1C 00       01317         DB      0,1,2,3,4,5,6,7,8,9
     01 02 03 04 05 06 07 08
     09 
              01318 ;
              01319 ;       Double density 5" format table
              01320 ;
2B26 12       01321 D5TBL   DB      18,10
     0A 
2B28 00       01322         DB      0,9,1,10,2,11,3,12,4
     09 01 0A 02 0B 03 0C 04
2B31 0D       01323         DB      13,5,14,6,15,7,16,8,17
     05 0E 06 0F 07 10 08 11
2B3A EE       01324         DC      11,-18
     EE EE EE EE EE EE EE EE
     EE EE 
2B45 20       01325         DB      32,4EH
     4E 
2B47 F1       01326         DB      0F1H,12,0,3,0F5H,1,0FEH
     0C 00 03 F5 01 FE 
2B4E F3       01327         DB      0F3H,3,0,1,1,1,0F7H,22,4EH,12,0,3,0F5H
     03 00 01 01 01 F7 16 4E
     0C 00 03 F5 
2B5B 01       01328         DB      1,0FBH,0F5H,128,6DH,0B6H
     FB F5 80 6D B6 
2B61 01       01329         DB      1,0F7H,1,4EH,23,04EH
     F7 01 4E 17 4E 
2B67 F2       01330         DB      0F2H,182,4EH,0F4H
     B6 4E F4 
2B6B 00       01331         DB      0,1,2,3,4,5,6,7,8,9
     01 02 03 04 05 06 07 08
     09 
2B75 0A       01332         DB      10,11,12,13,14,15,16,17
     0B 0C 0D 0E 0F 10 11 
              01333 ;
              01334 ;       Single density 8" format table
              01335 ;
2B7D 10       01336 S8TBL   DB      16,2
     02 
2B7F 0A       01337         DB      10,5,0,11,6,1,12,7,2,13,8,3,14,9,4,15
     05 00 0B 06 01 0C 07 02
     0D 08 03 0E 09 04 0F 
2B8F F0       01338         DB      -16,-16,-16,28H,0FFH
     F0 F0 28 FF 
2B94 F1       01339         DB      0F1H,6,0,1,0FEH
     06 00 01 FE 
2B99 F3       01340         DB      0F3H,3,0,1,1,1,0F7H,11,0FFH,6,0,1,0FBH
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00021 

'<Format Execution Code

     03 00 01 01 01 F7 0B FF
     06 00 01 FB 
2BA6 00       01341         DB      0,0E5H,1,0F7H,1,0FFH,20,0FFH
     E5 01 F7 01 FF 14 FF 
2BAE F2       01342         DB      0F2H,208,0FFH,0F4H
     D0 FF F4 
2BB2 0A       01343         DB      10,0,6,12,2,8,14,4,5,11,1,7,13,3,9,15
     00 06 0C 02 08 0E 04 05
     0B 01 07 0D 03 09 0F 
              01344 ;
              01345 ;       Double density 8" format table
              01346 ;
2BC2 1E       01347 D8TBL   DB      30,12
     0C 
2BC4 00       01348         DB      0,10,20,1,11,21,2,12,22,3,13,23,4,14,24
     0A 14 01 0B 15 02 0C 16
     03 0D 17 04 0E 18 
2BD3 05       01349         DB      5,15,25,6,16,26,7,17,27,8,18,28,9,19,29
     0F 19 06 10 1A 07 11 1B
     08 12 1C 09 13 1D 
2BE2 E2       01350         DC      13,-30
     E2 E2 E2 E2 E2 E2 E2 E2
     E2 E2 E2 E2 
2BEF 14       01351         DB      20,4EH
     4E 
2BF1 F1       01352         DB      0F1H,0CH,0,3,0F5H,1,0FEH
     0C 00 03 F5 01 FE 
2BF8 F3       01353         DB      0F3H,3,0,1,1,1,0F7H,22,4EH,12,0,3,0F5H
     03 00 01 01 01 F7 16 4E
     0C 00 03 F5 
2C05 01       01354         DB      1,0FBH,0F5H,128,6DH,0B6H
     FB F5 80 6D B6 
2C0B 01       01355         DB      1,0F7H,1,0FFH,17,4EH
     F7 01 FF 11 4E 
2C11 F2       01356         DB      0F2H,0,4EH,61,4EH,0F4H
     00 4E 3D 4E F4 
2C17 00       01357         DB      0,20,11,2,22,13,4,24,15,6,26,17,8,28,19
     14 0B 02 16 0D 04 18 0F
     06 1A 11 08 1C 13 
2C26 0A       01358         DB      10,1,21,12,3,23,14,5,25,16,7,27,18,9,29
     01 15 0C 03 17 0E 05 19
     10 07 1B 12 09 1D 
              01359 ;
2C35 1D       01360 FMTCYL$ DB      29,'Formatting cylinder   ',3
     46 6F 72 6D 61 74 74 69
     6E 67 20 63 79 6C 69 6E
     64 65 72 20 20 20 03 
2C4D 1D       01361 VERCYL$ DB      29,'Verifying  cylinder   ',3
     56 65 72 69 66 79 69 6E
     67 20 20 63 79 6C 69 6E
     64 65 72 20 20 20 03 
2C65 2A       01362 STAR$   DB      '*   ',3
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00022 

'<Format Execution Code

     20 20 20 03 
2C6A 46       01363 FMTG$   DB      'Formatting...',CR
     6F 72 6D 61 74 74 69 6E
     67 2E 2E 2E 0D 
2C78 4E       01364 NOCYL$  DB      'No cylinders available for directory',CR
     6F 20 63 79 6C 69 6E 64
     65 72 73 20 61 76 61 69
     6C 61 62 6C 65 20 66 6F
     72 20 64 69 72 65 63 74
     6F 72 79 0D 
2C9D 44       01365 DIRCYL$ DB      'Directory will be placed on cylinder '
     69 72 65 63 74 6F 72 79
     20 77 69 6C 6C 20 62 65
     20 70 6C 61 63 65 64 20
     6F 6E 20 63 79 6C 69 6E
     64 65 72 20 
2CC2 30       01366 DIRASC$ DB      '00',CR
     30 0D 
2CC5 0A       01367 IPLSYS$ DB      LF,'Initializing DIRECTORY information: ',3
     49 6E 69 74 69 61 6C 69
     7A 69 6E 67 20 44 49 52
     45 43 54 4F 52 59 20 69
     6E 66 6F 72 6D 61 74 69
     6F 6E 3A 20 03 
2CEB 0A       01368 PMTSYS$ DB      LF,'Load SYSTEM diskette  <ENTER>',CR
     4C 6F 61 64 20 53 59 53
     54 45 4D 20 64 69 73 6B
     65 74 74 65 20 20 3C 45
     4E 54 45 52 3E 0D 
2D0A 0A       01369 FMTCAO$ DB      LF,LF,'Formatting complete',CR
     0A 46 6F 72 6D 61 74 74
     69 6E 67 20 63 6F 6D 70
     6C 65 74 65 0D 
2D20 0A       01370 FMTABT$ DB      LF,'Command aborted',CR
     43 6F 6D 6D 61 6E 64 20
     61 62 6F 72 74 65 64 0D
2D31 0A       01371 NOTFMT$ DB      LF,'Can''t, Diskette not formatted',CR
     43 61 6E 27 74 2C 20 44
     69 73 6B 65 74 74 65 20
     6E 6F 74 20 66 6F 72 6D
     61 74 74 65 64 0D 
              01372 ;
              01373 ;       Patch area
              01374 ;
2E00          01375         ORG     $<-8+1<+8
2E00          01376 GATBUF  DS      203             ;GAT sector buffer
2ECB 63       01377         DB      RLS,0,0,0,0     ;Ver, cyl exc, type, pswd
     00 00 00 00 
2ED0 20       01378         DB      '        MM/DD/YY'
     20 20 20 20 20 20 20 4D
     4D 2F 44 44 2F 59 59 
2EE0 00       01379         DC      32,0
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00023 

'<Format Execution Code

     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 
2F00          01380 BOOT    EQU     $
2F00          01381 CORE$   DEFL    $
4300          01382         ORG     4300H           ;Execute at ROM BOOT
4300          01383         LORG    CORE$           ;  but load here
4300 00       01384         NOP
4301 FE00     01385         CP      0               ;P/u the DIR track
              01386 ;
              01387         IF      @MOD2
              01388         DB      83H
              01389         ENDIF
              01390         IF      @MOD4
4303 F3       01391         DI
              01392         ENDIF
4304 00       01393         DC      12,0
     00 00 00 00 00 00 00 00
     00 00 00 
4310 118DFB   01394         LD      DE,80*11+CRT4+29        ;Mod 4 video locn
4313 212943   01395         LD      HL,DATADSK$     ;Xfer error to vidmem
4316 011700   01396         LD      BC,STRLEN
4319 EDB0     01397         LDIR
431B 11153E   01398         LD      DE,64*8+CRT3+21 ;Mod 3 video locn
431E 212943   01399         LD      HL,DATADSK$     ;Xfer error to vidmem
4321 011700   01400         LD      BC,STRLEN
4324 EDB0     01401         LDIR
4326 C32643   01402 STOP    JP      STOP
4329 43       01403 DATADSK$        DB      'Cannot boot, DATA DISK!'
     61 6E 6E 6F 74 20 62 6F
     6F 74 2C 20 44 41 54 41
     20 44 49 53 4B 21 
0017          01404 STRLEN  EQU     $-DATADSK$
4340 00       01405         DC      -$&0FFH,0
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00024 

'<Format Execution Code

     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 00
     00 00 00 00 00 00 00 
4400          01406 SAFESP  EQU     $
3000          01407         ORG     CORE$+256
3000          01408         LORG    CORE$+256
3000          01409 HITBUF  DS      256
              01410 ;
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00025 

'<Format Init Code

MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00026 

'<Format Init Code

3100          01413 *GET    FORMAT2:3
              01414 ;FORMAT2/ASM - Format Initialization Code
              01415 ;
              01416 ;       FORMAT routine entry point
              01417 ;
              01418 FORMAT
3100          01419         @@CKBRKC                ;Check for break
3100+3E6A     01420         LD      A,106
3102+EF       01421         RST     40
3103 2804     01422         JR      Z,FORMATA       ;Continue if no break
3105 21FFFF   01423         LD      HL,-1           ;  else abort
3108 C9       01424         RET
              01425 ;
3109 ED73DF29 01426 FORMATA LD      (SPSAV+1),SP    ;Save the stack pointer
310D E5       01427         PUSH    HL              ;Save cmdline ptr
310E          01428         @@DSPLY HELLO$          ;Hello message
              01429         IFEQ    01H,1
310E+21BE36   01430         LD      HL,HELLO$
              01431         ENDIF
3111+3E0A     01432         LD      A,10
3113+EF       01433         RST     40
3114 CD5036   01434         CALL    GETSYS2         ;Load SYS2 overlay
              01435 ;
              01436 ;       Read config sector & extract DCT # cyls
              01437 ;
              01438         IF      @MOD4
3117 110200   01439         LD      DE,2            ;Track 0, sector 2
311A 4A       01440         LD      C,D             ;Drive 0
              01441         ENDIF
              01442 ;
              01443         IF      @MOD2
              01444         LD      C,0             ;Drive 0
              01445         @@GTDCT                 ;Fetch DCT
              01446         LD      A,(IY+3)        ;Get dct data
              01447         AND     28H             ;Bit 5/3
              01448         CP      20H             ;8" floppy?
              01449         JR      NZ,SETSYS1      ;Go if not
              01450         LD      A,(IY+4)        ;Get data
              01451         AND     50H             ;Bit 6/4
              01452         CP      40H             ;DD not alien?
              01453         JR      NZ,SETSYS1      ;Go if not
              01454         LD      HL,HITBUF       ;Init buffer
              01455         LD      D,(IY+9)        ;Get dir cyl
              01456         LD      E,0             ;Init GAT table
              01457         @@RDSEC                 ;Read GAT table
              01458         CP      6               ;Directory read?
              01459         JP      NZ,IOERR        ;Go on disk error
              01460         LD      A,(HITBUF+0CDH) ;Get data byte
              01461         BIT     7,A             ;System disk?
              01462 SETSYS1 LD      DE,0<8+2        ;Init cyl 0
              01463         JR      NZ,$+3          ;Go if not system
              01464         INC     D               ;Else on cyl 1
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00027 

'<Format Init Code

              01465         LD      C,0             ;Drive 0
              01466         ENDIF
              01467 ;
311B 210030   01468         LD      HL,HITBUF       ;Set disk buffer
311E          01469         @@RDSEC                 ;Read sysinfo sector
311E+3E31     01470         LD      A,49
3120+EF       01471         RST     40
3121 C2A829   01472         JP      NZ,IOERR        ;Quit on read error
3124 2E76     01473         LD      L,70H+6         ;Pt to default DCTs
              01474 ;
              01475 ;       Establish the default BOOT step rate
              01476 ;
3126 E5       01477         PUSH    HL              ;Pt IY to the
3127 FDE1     01478         POP     IY              ;  start of the DCTs
3129 FD7EFD   01479         LD      A,(IY+3-6)      ;P/u DCT$ default step
312C E603     01480         AND     3               ;  & strip off
312E 329731   01481         LD      (STEPARM+1),A   ;Keep for Step parm
              01482 ;
              01483 ;       Keep cyl count on all 8 drives
              01484 ;
3131 0608     01485         LD      B,8
3133 DD211D36 01486         LD      IX,DCTCYL       ;Pt to where to stuff
3137 110A00   01487         LD      DE,10           ;  10-byte increments
313A 7E       01488 DCTLP1  LD      A,(HL)          ;P/u default # CYL
313B DD7700   01489         LD      (IX),A          ;Save in table
313E DD23     01490         INC     IX
3140 19       01491         ADD     HL,DE
3141 10F7     01492         DJNZ    DCTLP1          ;Loop for 8 DCTs
              01493 ;
3143 E1       01494         POP     HL              ;Rcvr ptr to cmdline
3144 7E       01495 FMT1    LD      A,(HL)          ;Ignore spaces
3145 23       01496         INC     HL
3146 FE20     01497         CP      ' '
3148 28FA     01498         JR      Z,FMT1
314A FE3A     01499         CP      ':'             ;Colon drive indicator?
314C 281F     01500         JR      Z,FMT2          ;Go on drive entry
              01501 ;
              01502 ;       Drive not entered, prompt for it
              01503 ;
314E 2B       01504         DEC     HL              ;Backspace command line
314F 2B       01505         DEC     HL              ;  & adjust for next INC
3150 E5       01506         PUSH    HL              ;Save pointer
3151          01507 WHDRV   @@DSPLY WHDRV$          ;"which drive...
              01508         IFEQ    01H,1
3151+216A37   01509         LD      HL,WHDRV$
              01510         ENDIF
3154+3E0A     01511         LD      A,10
3156+EF       01512         RST     40
3157 210030   01513         LD      HL,HITBUF       ;Input buffer for now
315A 010001   01514         LD      BC,1<8          ;Max 1 char
315D          01515         @@KEYIN                 ;Get a 1-char line
315D+3E09     01516         LD      A,9
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00028 

'<Format Init Code

315F+EF       01517         RST     40
3160 DABC29   01518         JP      C,FMTABT        ;Quit on Break
3163 7E       01519         LD      A,(HL)          ;P/u the entry
3164 D630     01520         SUB     '0'             ;Cvrt to binary
3166 FE08     01521         CP      8               ;Error if > 7
3168 30E7     01522         JR      NC,WHDRV
316A E1       01523         POP     HL              ;Rcvr command pointer
316B 1808     01524         JR      FMT2A
              01525 ;
              01526 ;       Drive entered
              01527 ;
316D 7E       01528 FMT2    LD      A,(HL)          ;P/u drive #
316E D630     01529         SUB     '0'             ;Cvrt to ASCII
3170 FE08     01530         CP      8               ;Make sure not > 7
3172 D24B36   01531         JP      NC,PRMERR
3175 32272A   01532 FMT2A   LD      (FMTDRV+1),A    ;Stuff drive
3178 23       01533         INC     HL              ;Bump cmdline ptr
3179 115C36   01534         LD      DE,PRMTBL$      ;Parse any parameters
317C          01535         @@PARAM
317C+3E11     01536         LD      A,17
317E+EF       01537         RST     40
317F C24B36   01538         JP      NZ,PRMERR       ;Jump on parm error
              01539 ;
              01540 ;       Test if any other parm was entered
              01541 ;
3182 110000   01542 SDPARM  LD      DE,0            ;Single density parm
3185 7A       01543         LD      A,D
3186 B3       01544         OR      E               ;Merge all theses parms
3187 110000   01545 DDPARM  LD      DE,0            ;Double density parm
318A B2       01546         OR      D
318B B3       01547         OR      E
318C 110000   01548 SIDES   LD      DE,0            ;Sides parm
318F B2       01549         OR      D
3190 B3       01550         OR      E
3191 110000   01551 CPARM   LD      DE,0            ;Cylinder parm
3194 B2       01552         OR      D
3195 B3       01553         OR      E
3196 1100FF   01554 STEPARM LD      DE,0FF00H       ;Init to show if entry
3199 14       01555         INC     D               ;Did user enter it?
319A B2       01556         OR      D               ;0=no user entry
319B 32B032   01557         LD      (PRMMRG+1),A    ;Set to non-zero if any
              01558 ;
              01559 ;       If Q-parm, then set NAME & MPW if not entered
              01560 ;
319E ED5BB532 01561         LD      DE,(QPARM+1)    ;P/u Query parm
31A2 2AEB31   01562         LD      HL,(NPARM+1)    ;P/u Name parm
31A5 7C       01563         LD      A,H
31A6 B5       01564         OR      L
31A7 2004     01565         JR      NZ,$+6          ;Go if user entered name
31A9 ED53EB31 01566         LD      (NPARM+1),DE    ;  else use Q-parm value
31AD 2A3B32   01567         LD      HL,(MPARM+1)    ;P/u Password parm
31B0 7C       01568         LD      A,H
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00029 

'<Format Init Code

31B1 B5       01569         OR      L
31B2 2004     01570         JR      NZ,$+6          ;Go if user entered password
31B4 ED533B32 01571         LD      (MPARM+1),DE    ;Set to Q-parm entry
              01572 ;
31B8 3A272A   01573         LD      A,(FMTDRV+1)    ;P/u drive
31BB 4F       01574         LD      C,A             ;Set in drive register
31BC 211D36   01575         LD      HL,DCTCYL       ;Find default # cyls
31BF 85       01576         ADD     A,L             ;Index the DCTCYL table
31C0 6F       01577         LD      L,A             ;  according to drive #
31C1 8C       01578         ADC     A,H
31C2 95       01579         SUB     L
31C3 67       01580         LD      H,A
31C4 7E       01581         LD      A,(HL)          ;P/u cylinder count
31C5 3C       01582         INC     A               ;Offset from 1
31C6 324133   015839         LD      (PCYL2+1),A     ;Stuff default for 5"
31C9          01584         @@GTDCT                 ;Find the DCT pointer
31C9+3E51     01585         LD      A,81
31CB+EF       01586         RST     40
31CC FDE5     01587         PUSH    IY
31CE E1       01588         POP     HL              ;Xfer DCT to HL
31CF 11D92A   01589         LD      DE,SYSDCT       ;Save the system's DCT
31D2 010A00   01590         LD      BC,10           ;  for the drive since
31D5 EDB0     01591         LDIR                    ;  we are altering it
31D7 3A1C26   01592         LD      A,(SYSPRM+1)    ;Check if "SYSTEM" parm
31DA 3C       01593         INC     A               ; entered
31DB 2007     01594         JR      NZ,FMT2B        ;Go if not
31DD FDCB035E 01595         BIT     3,(IY+3)        ;Check if hard drive
31E1 CA4536   01596         JP      Z,NOTHARD       ;Can't "SYSTEM" floppy
31E4 CDFC29   01597 FMT2B   CALL    DRVNOP          ;Test if drive enabled
31E7 C2A829   01598         JP      NZ,IOERR
31EA 210000   01599 NPARM   LD      HL,0            ;NAME parm entered?
31ED 7C       01600         LD      A,H
31EE B5       01601         OR      L
31EF 3C       01602         INC     A               ;Was it just NAME?
31F0 2826     01603         JR      Z,DSKNAM        ;Prompt if so
31F2 3D       01604         DEC     A               ;If entered, use it
31F3 2003     01605         JR      NZ,$+5
31F5 21DF39   01606 DFTNAM  LD      HL,PAKNAM$
31F8 11D02E   01607         LD      DE,GATBUF+0D0H  ;Yes, move name to field
31FB 0608     01608         LD      B,8             ;8-chars max
31FD 7E       01609 MOVNAM  LD      A,(HL)          ;P/u a char
31FE FE22     01610         CP      '"'             ;Closing "
3200 2829     01611         JR      Z,CKNAME        ;Exit if end of parm
3202 FE20     01612         CP      20H             ;Permit all but controls
3204 DA2B32   01613         JP      C,CKNAME
3207 FE61     01614         CP      'a'             ;If char is lower case,
3209 3806     01615         JR      C,MOVNAM1
320B FE7B     01616         CP      'z'+1
320D 3002     01617         JR      NC,MOVNAM1
320F EE20     01618         XOR     20H             ;  make it UC
3211 12       01619 MOVNAM1 LD      (DE),A          ;Put char in buffer
3212 23       01620         INC     HL              ;Bump both ptrs
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00030 

'<Format Init Code

3213 13       01621         INC     DE
3214 10E7     01622         DJNZ    MOVNAM          ;Loop til complete
3216 1813     01623         JR      CKNAME          ;Check if valid name
              01624 ;
              01625 ;       Prompt user for name parameter
              01626 ;
3218          01627 DSKNAM  @@DSPLY DSKNAM$         ;"diskette name?
              01628         IFEQ    01H,1
3218+218737   01629         LD      HL,DSKNAM$
              01630         ENDIF
321B+3E0A     01631         LD      A,10
321D+EF       01632         RST     40
321E CD612A   01633         CALL    GET8            ;Get 8 chars, make UC
3221 28D2     01634         JR      Z,DFTNAM        ;Use default if no entry
3223 48       01635         LD      C,B             ;Only move to name field
3224 0600     01636         LD      B,0             ;  how many were entered
3226 11D02E   01637         LD      DE,GATBUF+0D0H
3229 EDB0     01638         LDIR
322B 11D02E   01639 CKNAME  LD      DE,GATBUF+0D0H  ;Now check if illegal
322E CDB835   01640         CALL    CKMPW0          ;  chars in name
3231 C23D36   01641         JP      NZ,BADNAM       ;  & quit if so
3234 21D82E   01642 GETDAT  LD      HL,GATBUF+0D8H  ;Get today's date & stuff
3237          01643         @@DATE
3237+3E12     01644         LD      A,18
3239+EF       01645         RST     40
              01646 ;
              01647 ;       Master Password handling
              01648 ;
323A 210000   01649 MPARM   LD      HL,0            ;Did user enter the MPW?
323D 7C       01650         LD      A,H
323E B5       01651         OR      L
323F 3C       01652         INC     A               ;If only MPW, then prompt
3240 2821     01653         JR      Z,MPW           ;Go prompt if not
3242 3D       01654         DEC     A
3243 2003     01655         JR      NZ,$+5          ;If entered, use it
3245 21E739   01656 DFTMPW  LD      HL,PAKMPW$      ;  else use ours
3248 115336   01657         LD      DE,MPWBUF       ;Shift to pswd field
324B 0608     01658         LD      B,8
324D 7E       01659 MOVMPW  LD      A,(HL)
324E FE30     01660         CP      30H             ;No spaces permitted
3250 3819     01661         JR      C,PRSMPW        ;End also on closing "
3252 FE61     01662         CP      'a'             ;Need cvrt to UC?
3254 3806     01663         JR      C,MOVMPW1
3256 FE7B     01664         CP      'z'+1
3258 3002     01665         JR      NC,MOVMPW1
325A EE20     01666         XOR     20H             ;Cvrt to UC
325C 12       01667 MOVMPW1 LD      (DE),A          ;Store the char and
325D 13       01668         INC     DE              ;  bump the buffer ptrs
325E 23       01669         INC     HL
325F 10EC     01670         DJNZ    MOVMPW
3261 1808     01671         JR      PRSMPW          ;Check if valid password
              01672 ;
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00031 

'<Format Init Code

              01673 ;       Prompt for master password
              01674 ;
3263 219837   01675 MPW     LD      HL,MPW$         ;"master...
3266 CD9135   01676         CALL    INPMPW
3269 30DA     01677         JR      NC,DFTMPW       ;Use default on <ENTER>
              01678 ;
              01679 ;       Parse the password & stuff into GAT sector buffer
              01680 ;
326B 115336   01681 PRSMPW  LD      DE,MPWBUF
326E CDB135   01682         CALL    CKMPW           ;Check for valid MPW
3271 C2A829   01683         JP      NZ,IOERR
3274 22CE2E   01684         LD      (GATBUF+0CEH),HL        ;Stuff it
3277 FDCB0466 01685         BIT     4,(IY+4)        ;Jump if alien controller
327B C2A833   01686         JP      NZ,CALCGPC
327E 212536   01687         LD      HL,TBLDATA      ;Pt to config tables
3281 110600   01688         LD      DE,6            ;Index the table
3284 FDCB036E 01689         BIT     5,(IY+3)        ;8" drive?
3288 2802     01690         JR      Z,INITDEN       ;Bypass if not
328A 19       01691         ADD     HL,DE           ;  else move to 8" configs
328B 19       01692         ADD     HL,DE
328C 22F332   01693 INITDEN LD      (SETSDEN+1),HL  ;  & stuff for SDEN option
328F EB       01694         EX      DE,HL           ;6->HL, SDEN->DE
3290 19       01695         ADD     HL,DE           ;Pt to DDEN index table
3291 22E332   01696         LD      (SETDDEN+1),HL  ;Stuff DDEN config ptr
3294 EB       01697         EX      DE,HL           ;HL=SDEN, DE=DDEN
3295 FDCB03B6 01698         RES     6,(IY+3)        ;Set DCT to SDEN
3299 FDCB0476 01699         BIT     6,(IY+4)        ;Test if DDEN capability
329D 2805     01700         JR      Z,SETSTD        ;Go if single
329F EB       01701         EX      DE,HL           ;HL->DDEN table
32A0 FDCB03F6 01702         SET     6,(IY+3)        ;Set DCT to DDEN
32A4 CD2D35   01703 SETSTD  CALL    SETUP           ;Init to std config
32A7 FDCB03A6 01704         RES     4,(IY+3)        ;Set i/o to front side
32AB FDCB04AE 01705         RES     5,(IY+4)        ;Set to 1-sided
32AF 3E00     01706 PRMMRG  LD      A,0             ;<>0 if config parms
32B1 B7       01707         OR      A               ;  in command line
32B2 2008     01708         JR      NZ,GETDEN
32B4 11FFFF   01709 QPARM   LD      DE,-1           ;Prompts? Default=Y
32B7 7A       01710         LD      A,D
32B8 B3       01711         OR      E
32B9 CA9D33   01712         JP      Z,PSTEP1        ;Go if no prompting
32BC FDCB0476 01713 GETDEN  BIT     6,(IY+4)        ;Bypass DDEN request msg
32C0 283A     01714         JR      Z,PMTSIDE       ;  if no DDEN capability
32C2 3AB032   01715         LD      A,(PRMMRG+1)    ;Also, don't prompt if
32C5 B7       01716         OR      A               ;  any config parm was
32C6 2013     01717         JR      NZ,GDDEN1       ;  entered with command
32C8 213E38   01718         LD      HL,DEN?$        ;Density <S,D>...
32CB CD592A   01719         CALL    GET3
32CE 282C     01720         JR      Z,PMTSIDE       ;Go on <ENTER>
32D0 7E       01721         LD      A,(HL)          ;P/u respsonse
32D1 FE53     01722         CP      'S'             ;Single Density?
32D3 281D     01723         JR      Z,SETSDEN
32D5 FE44     01724         CP      'D'             ;Double density?
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00032 

'<Format Init Code

32D7 2809     01725         JR      Z,SETDDEN
32D9 18E1     01726         JR      GETDEN          ;Redo if bad response
32DB 3A8831   01727 GDDEN1  LD      A,(DDPARM+1)    ;Not prompted, was DDEN
32DE EEFF     01728         XOR     -1              ;  set in command line?
32E0 2009     01729         JR      NZ,GSDEN1       ;Bypass if not
32E2 210000   01730 SETDDEN LD      HL,$-$          ;P/u DDEN index table
32E5 FDCB03F6 01731         SET     6,(IY+3)        ;Set DCT to DDEN
32E9 180E     01732         JR      CHGDEN
32EB 3A8331   01733 GSDEN1  LD      A,(SDPARM+1)    ;Was SDEN parm
32EE EEFF     01734         XOR     -1              ;  on command line?
32F0 200A     01735         JR      NZ,PMTSIDE      ;Go if not
32F2 210000   01736 SETSDEN LD      HL,$-$          ;P/u SDEN index table
32F5 FDCB03B6 01737         RES     6,(IY+3)        ;Set DCT to SDEN
32F9 CD2D35   01738 CHGDEN  CALL    SETUP           ;Init #CYLs & alloc
32FC 3AB032   01739 PMTSIDE LD      A,(PRMMRG+1)    ;Config parms entered
32FF B7       01740         OR      A               ;On command line?
3300 2020     01741         JR      NZ,PMTS1        ;Bypass if yes
3302 FDE5     01742         PUSH    IY              ;P/u flag table
3304          01743         @@FLAGS                 ;  and check if
3304+3E65     01744         LD      A,101
3306+EF       01745         RST     40
3307 FDCB0B6E 01746         BIT     5,(IY+'L'-'A')  ;  2-side inhibit?
330B FDE1     01747         POP     IY
330D 2013     01748         JR      NZ,PMTS1        ;If set, use 1 side
330F 211F38   01749         LD      HL,SIDES$       ;"double sided...?
3312 CD592A   01750         CALL    GET3            ;Get # sides wanted
3315 2816     01751         JR      Z,PMTCYL        ;Go on <ENTER>
3317 7E       01752         LD      A,(HL)          ;P/u response char
3318 FE31     01753         CP      '1'             ;1 is ok
331A 2811     01754         JR      Z,PMTCYL
331C FE32     01755         CP      '2'             ;  and so is 2
331E 20DC     01756         JR      NZ,PMTSIDE      ;  but redo on anything else
3320 1805     01757         JR      TSTSID
              01758 ;
              01759 ;       Check side parm from command line
              01760 ;
3322 3A8D31   01761 PMTS1   LD      A,(SIDES+1)     ;How many sides?
3325 FE02     01762         CP      2
3327 2004     01763 TSTSID  JR      NZ,PMTCYL       ;DCT ok if not 2
3329 FDCB04EE 01764         SET     5,(IY+4)        ;Set 2-sided drive
332D FD7E03   01765 PMTCYL  LD      A,(IY+3)        ;No cylinder request
3330 E628     01766         AND     28H             ;  if either hard drive
3332 202E     01767         JR      NZ,PMTSTEP      ;  or 8" drive
3334 3AB032   01768 PCYL1   LD      A,(PRMMRG+1)    ;P/u config test byte &
3337 B7       01769         OR      A               ;  bypass cyl req if user
3338 201E     01770         JR      NZ,PCYL4        ;  entered cmd line parms
333A 21AB37   01771         LD      HL,NUMCYL$      ;"number of cyls..?
333D CD592A   01772         CALL    GET3
3340 3E00     01773 PCYL2   LD      A,0             ;P/u default # cyls
3342 C47E35   01774         CALL    NZ,CVBIN        ;Get # of cyls on CR
              01775         IF      @BLD631
3345 CD4C33   01776         CALL    CHKCNT         ;<631>
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00033 

'<Format Init Code

3348 38EA     01777         JR      C,PCYL1         ;<631>Anything out of range
334A 1816     01778         JR      PMTSTEP         ;<631>
334C FE61     01779 CHKCNT: CP      96+1            ;<631>System cannot support
334E 3F       01780         CCF                     ;<631>  anything over 96 (95)
334F D8       01781         RET     C               ;<631>
3350 FE23     01782         CP      35              ;<631>Must be 35 or more
3352 D8       01783         RET     C               ;<631>
3353 3D       01784         DEC     A               ;<631>Adjust to zero offset
3354 FD7706   01785         LD      (IY+6),A        ;<631> & stuff in DCT
3357 C9       01786         RET                     ;<631>
              01787         ELSE
              01788 PCYL3   CP      96+1            ;System cannot support
              01789         JR      NC,PCYL1        ;  anything over 96 (95)
              01790         CP      35
              01791         JR      C,PCYL1         ;Must be 35 or more
              01792         DEC     A               ;Adjust to zero offset
              01793         LD      (IY+6),A        ;  & stuff in DCT
              01794         JR      PMTSTEP
              01795         ENDIF
              01796 ;
              01797 ;       User entered config parms with command line
              01798 ;
3358 3A9231   01799 PCYL4   LD      A,(CPARM+1)     ;Was cyl= one of them?
335B B7       01800         OR      A
              01801         IF      @BLD631
335C C44C33   01802         CALL    NZ,CHKCNT       ;<631>Check for valid range
335F DA4B36   01803         JP      C,PRMERR        ;<631>Parm error if too big
3362 FDCB0466 01804 PMTSTEP:BIT     4,(IY+4)        ;<631>Alien controller?
3366 2040     01805         JR      NZ,CALCGPC      ;<631>No adjustable rate if so
              01806         ELSE
              01807         JR      Z,PMTSTEP       ;Bypass if not
              01808         CP      96+1
              01809         JP      NC,PRMERR       ;Parm error if too big
              01810         CP      35
              01811         JP      C,PRMERR        ;  or too small
              01812         DEC     A               ;Adjust to zero offset
              01813         LD      (IY+6),A        ;  & stuff into DCT
              01814 PMTSTEP BIT     4,(IY+4)        ;Alien controller?
              01815         JR      NZ,PMTSIDE      ;No adjustable step rate if so
              01816         ENDIF
              01817 ;
              01818 ;       If step rate parm wasn't entered, prompt
              01819 ;       for it but first determine 8" or 5" drive
              01820 ;
3368 3AB032   01821         LD      A,(PRMMRG+1)    ;Did user enter config
336B B7       01822         OR      A               ;Parms on command line?
336C 202F     01823         JR      NZ,PSTEP1       ;Go to step prompt if yes
              01824 ;
336E FDE5     01825         PUSH    IY              ;P/u flag table and
3370          01826         @@FLAGS                 ;  check if
3370+3E65     01827         LD      A,101
3372+EF       01828         RST     40
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00034 

'<Format Init Code

3373 FDCB0B46 01829         BIT     0,(IY+'L'-'A')  ;  step prompt inhibited
3377 FDE1     01830         POP     IY
3379 2022     01831         JR      NZ,PSTEP1       ;Bypass if set
              01832 ;
337B FDCB036E 01833         BIT     5,(IY+3)        ;Need prompt, 8"?
337F 200F     01834         JR      NZ,STEP8        ;Jump if 8"
              01835 ;
              01836 ;       5" drive step rate parsing
              01837 ;
3381 21C237   01838 STEP5   LD      HL,STEP5$       ;"...step rate - 5"
              01839         IF      @BLD631
3384 117435   01840         LD      DE,L3574        ;<631>
3387 CD5635   01841         CALL    DOITALL         ;<631>
338A 20F5     01842         JR      NZ,STEP5        ;<631>
338C 380F     01843         JR      C,PSTEP1        ;<631>
338E 1814     01844         JR      GOTSTEP         ;<631>
              01845         ELSE
              01846         CALL    GET3
              01847         CALL    CVBIN           ;Get 5" step rate
              01848         OR      A               ;Use default?
              01849         JR      Z,PSTEP1        ;Go if parm not entered
              01850         LD      B,0             ;Init key to 0
              01851         CP      6
              01852         JR      Z,GOTSTEP
              01853         LD      B,1             ;Init key to 1
              01854         CP      12
              01855         JR      Z,GOTSTEP
              01856         LD      B,2             ;Init key to 2
              01857         CP      20
              01858         JR      Z,GOTSTEP
              01859         LD      B,3             ;Init key to 3
              01860         CP      30
              01861         JR      Z,GOTSTEP
              01862         CP      40
              01863         JR      Z,GOTSTEP
              01864         JR      STEP5           ;Re-request, bad value
              01865         ENDIF
              01866 ;
              01867 ;       8" drive step rate parsing
              01868 ;
3390 21F037   01869 STEP8   LD      HL,STEP8$       ;"step rate - 8"...
              01870         IF      @BLD631
3393 117935   01871         LD      DE,L3579        ;<631>
3396 CD5635   01872         CALL    DOITALL         ;<631>
3399 20F5     01873         JR      NZ,STEP8        ;<631>
339B 3007     01874         JR      NC,GOTSTEP      ;<631>
              01875         ELSE
              01876         CALL    GET3
              01877         CALL    CVBIN           ;Get 8" step rate
              01878         OR      A               ;Use default?
              01879         JR      Z,PSTEP1        ;Go if not entered
              01880         LD      B,0             ;Init key to 0
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00035 

'<Format Init Code

              01881         CP      3
              01882         JR      Z,GOTSTEP
              01883         LD      B,1             ;Init key to 1
              01884         CP      6
              01885         JR      Z,GOTSTEP
              01886         LD      B,2             ;Init key to 2
              01887         CP      10
              01888         JR      Z,GOTSTEP
              01889         LD      B,3             ;Init key to 3
              01890         CP      15
              01891         JR      Z,GOTSTEP
              01892         CP      20
              01893         JR      Z,GOTSTEP
              01894         JR      STEP8           ;Bad entry, re-request
              01895         ENDIF
339D 3A9731   01896 PSTEP1  LD      A,(STEPARM+1)   ;P/u step parm entry
33A0 E603     01897         AND     3               ;Keep 2 lo-order bits
33A2 1801     01898         JR      $+3
33A4 78       01899 GOTSTEP LD      A,B             ;Stuff boot step rate key
33A5 32E32A   01900         LD      (STEPDFT),A
              01901 ;
              01902 ;       Routine to calculate the # of grans per logical
              01903 ;       cylinder so that the GAT byte can be constructed
              01904 ;
33A8 FD7E08   01905 CALCGPC LD      A,(IY+8)        ;P/u # of grans per cyl
33AB 07       01906         RLCA                    ;Rotate to bits 0-2
33AC 07       01907         RLCA
33AD 07       01908         RLCA
33AE E607     01909         AND     7               ;Strip off other data
33B0 3C       01910         INC     A               ;Adj for zero offset
              01911 ;
              01912 ;       If double siding (cylindering), double the count
              01913 ;
33B1 FDCB046E 01914         BIT     5,(IY+4)        ;Test if 2-sided drive
33B5 2801     01915         JR      Z,$+3           ;Bypass if only 1-sided
33B7 87       01916         ADD     A,A             ;Double the grans/cyl
33B8 01FFFF   01917         LD      BC,0FFFFH       ;Init GAT byte to ones
33BB CB20     01918 CGPC1   SLA     B               ;Now keep removing low
33BD 3D       01919         DEC     A               ;  order bits , 1 bit for
33BE 20FB     01920         JR      NZ,CGPC1        ;  each available granule
33C0 21002E   01921         LD      HL,GATBUF       ;Pt to GAT buffer area
33C3 FD7E06   01922         LD      A,(IY+6)        ;P/u highest # cylinder
33C6 70       01923 CGPC2   LD      (HL),B          ;Stuff the GAT byte into
33C7 2C       01924         INC     L               ;Each position of the GAT
33C8 BD       01925         CP      L               ;One byte per cylinder
33C9 30FB     01926         JR      NC,CGPC2
              01927 ;
              01928 ;       Test if we are at 202 first by ignoring the
              01929 ;       first two instructions with LD DE,xxxx
              01930 ;
33CB 3ECB     01931         LD      A,0CBH          ;Continue to stuff GAT
33CD 11       01932         DB      11H             ;  until cyl 202
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00036 

'<Format Init Code

33CE 71       01933 CGPC3   LD      (HL),C          ;Use FFH to show unused
33CF 2C       01934         INC     L
33D0 BD       01935         CP      L               ;First test here for
33D1 20FB     01936         JR      NZ,CGPC3        ;  match against 202
              01937 ;
              01938 ;       Prompt for destination disk & prepare it
              01939 ;
33D3 3A272A   01940         LD      A,(FMTDRV+1)    ;P/u drive
33D6 B7       01941         OR      A
33D7 2020     01942         JR      NZ,PFMT1        ;Bypass if other than 0
33D9          01943 PMTDST  @@DSPLY PMTDST$         ;"load dest disk...
              01944         IFEQ    01H,1
33D9+219938   01945         LD      HL,PMTDST$
              01946         ENDIF
33DC+3E0A     01947         LD      A,10
33DE+EF       01948         RST     40
33DF FDE5     01949         PUSH    IY              ;Save DCT pointer
33E1          01950         @@FLAGS                 ;Point to flags
33E1+3E65     01951         LD      A,101
33E3+EF       01952         RST     40
33E4 FDCB126E 01953         BIT     5,(IY+'S'-'A')  ;Check for JCL active
33E8 FDE1     01954         POP     IY              ;Restore pointer
33EA C2BC29   01955         JP      NZ,FMTABT       ;Abort if in JCL
33ED 210030   01956         LD      HL,HITBUF
33F0 010000   01957         LD      BC,0            ;Zero characters means
33F3          01958         @@KEYIN                 ;Enter or Break only
33F3+3E09     01959         LD      A,9
33F5+EF       01960         RST     40
33F6 DABC29   01961         JP      C,FMTABT        ;Abort if Break
33F9 FDE5     01962 PFMT1   PUSH    IY              ;Xfer DCT ptr to HL
33FB E1       01963         POP     HL              ;  & move DCT again
33FC 111336   01964         LD      DE,TMPDCT       ;  to store tempy
33FF 010A00   01965         LD      BC,10
3402 EDB0     01966         LDIR
              01967         IF      @MOD2
              01968         CALL    SELECT
              01969         JP      NZ,IOERR        ;Go on error
              01970         ENDIF
3404 CD032A   01971         CALL    RESTOR          ;Restore to cyl 0
3407 C2A829   01972         JP      NZ,IOERR        ;Go on error
340A CD0B2A   01973         CALL    RSELCT          ;Reselect drive
340D C2A829   01974         JP      NZ,IOERR        ;Go on error
3410 FDCB0466 01975         BIT     4,(IY+4)        ;Jump if alien controller
3414 2040     01976         JR      NZ,PFMT3
3416 216038   01977         LD      HL,NOTRDY$      ;Init "drive not ready
3419 CB7F     01978         BIT     7,A             ;Test FDC status for READY
341B C2BF29   01979         JP      NZ,EXTERR       ;Quit if not ready
341E 218538   01980         LD      HL,NODRV$       ;Init "drive not in...
3421 CB57     01981         BIT     2,A             ;Test FDC status for TRACK-0
3423 CABF29   01982         JP      Z,EXTERR        ;  & error if not at track 0
3426 CDE835   01983         CALL    CKDRV           ;Ck if floppy not present
3429 20AE     01984         JR      NZ,PMTDST
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00037 

'<Format Init Code

342B 217038   01985         LD      HL,CANTWR$      ;Init "write protected..
342E 07       01986         RLCA                    ;Align to bit 7
342F FDB603   01987         OR      (IY+3)          ;Combine with soft WP
3432 E680     01988         AND     80H             ;WP error?
3434 C2BF29   01989         JP      NZ,EXTERR       ;Can't format over WP
3437 3A1C26   01990         LD      A,(SYSPRM+1)    ;Don't check space needed
343A B7       01991         OR      A               ;  if SYSTEM info only
343B 2019     01992         JR      NZ,PFMT3
343D 210031   01993         LD      HL,FORMAT       ;Start of format buffer
3440 110000   01994 PFMT2   LD      DE,0            ;P/u format space needed
3443 19       01995         ADD     HL,DE           ;Pt to last addr needed
3444 54       01996         LD      D,H             ;Xfer to reg DE
3445 5D       01997         LD      E,L
3446 210000   01998         LD      HL,0            ;Set up for HIGH$ fetch
3449 45       01999         LD      B,L
344A          02000         @@HIGH$                 ;Make sure it won't wrap
344A+3E64     02001         LD      A,100
344C+EF       02002         RST     40
344D AF       02003         XOR     A
344E ED52     02004         SBC     HL,DE           ;  into protected memory
3450 215C37   02005         LD      HL,NOMEM$       ;Init "insufficient mem..
3453 DABF29   02006         JP      C,EXTERR        ;Quit if no memory available
3456 110000   02007 PFMT3   LD      DE,0            ;Init to cyl 0, sect 0
3459 CD232A   02008         CALL    VERSEC          ;Verify BOOT
345C C21935   02009         JP      NZ,PFMT6        ;Assume unformated if err
              02010 ;
              02011 ;       Appears formatted, is there SYSTEM information?
              02012 ;
345F 3A1C26   02013         LD      A,(SYSPRM+1)    ;Ignore data if SYSTEM
3462 B7       02014         OR      A               ;  info only
3463 C21935   02015         JP      NZ,PFMT6
3466 210030   02016         LD      HL,HITBUF       ;Pt to i/o buffer
3469 CD1F2A   02017         CALL    RDSEC           ;Now try to read BOOT
346C C2A829   02018         JP      NZ,IOERR        ;Jump on error
346F          02019         @@LOGOT HASDAT$         ;Show "disk contains data
              02020         IFEQ    01H,1
346F+21BC38   02021         LD      HL,HASDAT$
              02022         ENDIF
3472+3E0C     02023         LD      A,12
3474+EF       02024         RST     40
3475 21D338   02025         LD      HL,NOFMT$       ;Init "non-std format
              02026 ;
              02027 ;       BOOT was read, is there a valid directory pointer
              02028 ;
3478 3A0230   02029         LD      A,(HITBUF+2)    ;P/u dir cyl # (possible)
347B FDBE06   02030         CP      (IY+6)          ;Check against max cyl #
347E 3076     02031         JR      NC,PFMT5        ;Go if bigger (or =)
              02032 ;
              02033 ;       Read the assumed GAT & test it
              02034 ;
3480 210030   02035         LD      HL,HITBUF
3483 5D       02036         LD      E,L
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00038 

'<Format Init Code

3484 57       02037         LD      D,A             ;Pt to assumed GAT sector
3485 210030   02038         LD      HL,HITBUF       ;Pt to buffer
3488 CD1F2A   02039         CALL    RDSEC           ;Read the sector
348B FE06     02040         CP      6               ;Dir errcod returned?
348D 2805     02041         JR      Z,PFMT4         ;Jump if yes & grab data
348F 21E738   02042         LD      HL,CANTRD$      ;Init "unreadable dir...
3492 1862     02043         JR      PFMT5
3494 21FC38   02044 PFMT4   LD      HL,NODIR$       ;Init "non-init dir
3497 3ADA30   02045         LD      A,(HITBUF+0DAH) ;Check if date field
349A FE2F     02046         CP      '/'             ;  is present
349C 2058     02047         JR      NZ,PFMT5        ;Jump if no
              02048 ;
              02049 ;       The directory is readable - request its MPW
              02050 ;
349E 21D030   02051         LD      HL,HITBUF+0D0H
34A1 111B39   02052         LD      DE,PACKID$+5    ;Move name & date into
34A4 010800   02053         LD      BC,8            ;  display message field
34A7 EDB0     02054         LDIR
34A9 112A39   02055         LD      DE,PACKID$+14H
34AC 0E08     02056         LD      C,8
34AE EDB0     02057         LDIR
              02058 ;
              02059 ;       If MPW = "PASSWORD", just ck ABS
              02060 ;
34B0 2ACE30   02061         LD      HL,(HITBUF+0CEH)        ;P/u disk MPW
34B3 11E042   02062         LD      DE,PASSWORD     ;Password=PASSWORD
34B6 AF       02063         XOR     A
34B7 ED52     02064         SBC     HL,DE           ;Is it password?
34B9 211639   02065         LD      HL,PACKID$      ;Init"Name=, Date=
34BC 2838     02066         JR      Z,PFMT5         ;If match, go check ABS
              02067         IF      @BLD631
34BE FDE5     02068         PUSH    IY              ;<631>
34C0          02069         @@FLAGS                 ;<631>
34C0+3E65     02070         LD      A,101
34C2+EF       02071         RST     40
34C3 FDCB0D7E 02072         BIT     7,(IY+0DH)      ;<631>
34C7 FDE1     02073         POP     IY              ;<631>
34C9 202B     02074         JR      NZ,PFMT5        ;<631>
              02075         ENDIF
34CB          02076         @@LOGOT                 ;Log the ID field
              02077         IFEQ    00H,1
              02078         LD      HL,
              02079         ENDIF
34CB+3E0C     02080         LD      A,12
34CD+EF       02081         RST     40
34CE FDE5     02082         PUSH    IY              ;Abort if in JCL
34D0          02083         @@FLAGS
34D0+3E65     02084         LD      A,101
34D2+EF       02085         RST     40
34D3 FDCB126E 02086         BIT     5,(IY+'S'-'A')  ;Test if "DOing"
34D7 FDE1     02087         POP     IY
34D9 C2BC29   02088         JP      NZ,FMTABT       ;Can't get PW if in JCL
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00039 

'<Format Init Code

              02089 ;
              02090 ;       User must enter Current Pack's MPW to proceed
              02091 ;
34DC 213339   02092 OLDMPW  LD      HL,OLDMPW$      ;"What's the old MPW?
34DF CD9135   02093         CALL    INPMPW          ;Grab user input to match
34E2 30F8     02094         JR      NC,OLDMPW
34E4 115336   02095         LD      DE,MPWBUF
34E7 CDB535   02096         CALL    HASHMPW         ;Hash user entry
              02097 ;
              02098 ;       Routine to test master password for match
              02099 ;
34EA EB       02100         EX      DE,HL           ;Xfer hashed MPW to DE
34EB 2ACE30   02101         LD      HL,(HITBUF+0CEH)        ;Else grab pack MPW
34EE AF       02102         XOR     A               ;Clear carry flag
34EF ED52     02103         SBC     HL,DE           ;Did user enter pack MPW?
34F1 C24136   02104         JP      NZ,BADMPW       ;Abort if no match
34F4 1823     02105         JR      PFMT6
              02106 ;
              02107 ;       The directory was not readable - req assurance
              02108 ;
34F6          02109 PFMT5   @@LOGOT
              02110         IFEQ    00H,1
              02111         LD      HL,
              02112         ENDIF
34F6+3E0C     02113         LD      A,12
34F8+EF       02114         RST     40
34F9 110000   02115 APARM   LD      DE,0            ;ABS parameter
34FC 1C       02116         INC     E
34FD 281A     02117         JR      Z,PFMT6         ;Go if ABS used
34FF FDE5     02118         PUSH    IY
3501          02119         @@FLAGS
3501+3E65     02120         LD      A,101
3503+EF       02121         RST     40
3504 FDCB126E 02122         BIT     5,(IY+'S'-'A')  ;Test if "DOing"
3508 FDE1     02123         POP     IY
350A C2BC29   02124         JP      NZ,FMTABT       ;Abort if JCL but no ABS
350D 218D39   02125         LD      HL,SURE?$       ;"are you sure...?
3510 CD592A   02126         CALL    GET3            ;Get response
3513 7E       02127         LD      A,(HL)
3514 FE59     02128         CP      'Y'             ;If not Yes, abort
3516 C2BC29   02129         JP      NZ,FMTABT
3519 FDE5     02130 PFMT6   PUSH    IY              ;Move drive code table
351B D1       02131         POP     DE              ;  back into place
351C 211336   02132         LD      HL,TMPDCT       ;  into system slot
351F 010A00   02133         LD      BC,10
3522 EDB0     02134         LDIR
3524 CD032A   02135         CALL    RESTOR          ;Restore to cylinder 0
3527 C2A829   02136         JP      NZ,IOERR        ;Go on error
352A C30126   02137         JP      GOFMT           ;Go and format it
              02138 ;
              02139 ;       Routine to set up the DCT for format
              02140 ;
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00040 

'<Format Init Code

352D 3A4133   02141 SETUP   LD      A,(PCYL2+1)     ;P/u the highest # cyl
3530 FDCB036E 02142         BIT     5,(IY+3)        ;If 8" drive, use 77
3534 2802     02143         JR      Z,$+4           ;Go if only 5"
3536 3E4D     02144         LD      A,77            ;8" drives are 77 cyls
3538 3D       02145         DEC     A
3539 FD7706   02146         LD      (IY+6),A        ;Stuff in our DCT
353C 5E       02147         LD      E,(HL)          ;Grab address to
353D 23       02148         INC     HL              ;  master formatting table
353E 56       02149         LD      D,(HL)
353F 23       02150         INC     HL
3540 ED530926 02151         LD      (FMTTBL+1),DE   ;Stuff for later use
3544 5E       02152         LD      E,(HL)          ;P/u DCT+7 data
3545 23       02153         INC     HL              ;Max sector, # of heads
3546 56       02154         LD      D,(HL)          ;P/u DCT+8 data, # of
3547 23       02155         INC     HL              ;  sectors/gran & grans/cyl
3548 FD7307   02156         LD      (IY+7),E        ;Stuff these values into
354B FD7208   02157         LD      (IY+8),D        ;  our DCT
354E 5E       02158         LD      E,(HL)          ;P/u space needed for
354F 23       02159         INC     HL              ;  the formatting buffer
3550 56       02160         LD      D,(HL)
3551 ED534134 02161         LD      (PFMT2+1),DE    ;  & stuff that for later
3555 C9       02162         RET
              02163         IF      @BLD631
3556 D5       02164 DOITALL:PUSH    DE              ;<631>
3557 CD592A   02165         CALL    GET3            ;<631>
355A CD7E35   02166         CALL    CVBIN           ;<631>
355D E1       02167         POP     HL              ;<631>
355E B7       02168         OR      A               ;<631>
355F 37       02169         SCF                     ;<631>
3560 C8       02170         RET     Z               ;<631>
3561 0600     02171         LD      B,0             ;<631>
3563 BE       02172         CP      (HL)            ;<631>
3564 C8       02173         RET     Z               ;<631>
3565 23       02174         INC     HL              ;<631>
3566 04       02175         INC     B               ;<631>
3567 BE       02176         CP      (HL)            ;<631>
3568 C8       02177         RET     Z               ;<631>
3569 04       02178         INC     B               ;<631>
356A 23       02179         INC     HL              ;<631>
356B BE       02180         CP      (HL)            ;<631>
356C C8       02181         RET     Z               ;<631>
356D 23       02182         INC     HL              ;<631>
356E 04       02183         INC     B               ;<631>
356F BE       02184         CP      (HL)            ;<631>
3570 C8       02185         RET     Z               ;<631>
3571 23       02186         INC     HL              ;<631>
3572 BE       02187         CP      (HL)            ;<631>
3573 C9       02188         RET                     ;<631>
3574 06       02189 L3574:  DB      06H,0CH,14H,1EH,28H     ;<631>
     0C 14 1E 28 
3579 03       02190 L3579:  DB      03H,06H,0AH,0FH,14H     ;<631>
     06 0A 0F 14 
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00041 

'<Format Init Code

              02191         ENDIF
              02192 ;
              02193 ;       Convert decimal ASCII to binary
              02194 ;
357E 1E00     02195 CVBIN   LD      E,0             ;Init value to 0
3580 7E       02196 CVB1    LD      A,(HL)          ;Get a character
3581 23       02197         INC     HL              ;Bump buff ptr
3582 D630     02198         SUB     30H             ;Make binary
3584 47       02199         LD      B,A
3585 FE0A     02200         CP      0AH             ;Was it a decimal digit?
3587 7B       02201         LD      A,E
3588 D0       02202         RET     NC              ;Return if not
3589 87       02203         ADD     A,A             ;Mult previous value X 10
358A 87       02204         ADD     A,A
358B 83       02205         ADD     A,E
358C 87       02206         ADD     A,A
358D 80       02207         ADD     A,B             ;Add in new digit
358E 5F       02208         LD      E,A             ;Put results in E
358F 18EF     02209         JR      CVB1            ;Loop
              02210 ;
3591          02211 INPMPW  @@DSPLY
              02212         IFEQ    00H,1
              02213         LD      HL,
              02214         ENDIF
3591+3E0A     02215         LD      A,10
3593+EF       02216         RST     40
3594 215336   02217         LD      HL,MPWBUF       ;Use this buffer
3597 0608     02218         LD      B,8             ;8 chars max
3599 CD672A   02219         CALL    GET8A           ;Input the pswd
359C C8       02220         RET     Z               ;Go if Enter only
359D EB       02221         EX      DE,HL
359E 83       02222         ADD     A,E             ;Find where the X'0D' was
359F 6F       02223         LD      L,A             ;  stuffed & cover it
35A0 7A       02224         LD      A,D
35A1 CE00     02225         ADC     A,0
35A3 67       02226         LD      H,A
35A4 3E08     02227         LD      A,8             ;If 8 chars entered,
35A6 90       02228         SUB     B
35A7 37       02229         SCF                     ;  done
35A8 C8       02230         RET     Z
35A9 47       02231         LD      B,A             ;  else pad the buffer
35AA 3620     02232 FILLBLK LD      (HL),' '        ;  w/spaces
35AC 23       02233         INC     HL
35AD 10FB     02234         DJNZ    FILLBLK
35AF 37       02235         SCF
35B0 C9       02236         RET
              02237 ;
35B1 CDB835   02238 CKMPW   CALL    CKMPW0
35B4 C0       02239         RET     NZ
              02240 ;
              02241 ;       Hash a diskette password
              02242 ;
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00042 

'<Format Init Code

35B5 3EE4     02243 HASHMPW LD      A,0E4H          ;Use SYS2 routine
35B7 EF       02244         RST     40
              02245 ;
35B8 0608     02246 CKMPW0  LD      B,8             ;8 char to check
35BA D5       02247         PUSH    DE              ;Xfer start of PW
35BB E1       02248         POP     HL              ;  to HL
35BC 7E       02249         LD      A,(HL)          ;P/u 1st char
35BD 180E     02250         JR      CKMPW2          ;  & check <A-Z>
35BF 23       02251 CKMPW1  INC     HL              ;Advance to next char
35C0 7E       02252         LD      A,(HL)          ;P/u the char
35C1 FE20     02253         CP      ' '
35C3 2818     02254         JR      Z,CKMPW7        ;Go on space
35C5 FE30     02255         CP      '0'
35C7 3818     02256         JR      C,INVMPW        ;Bad if less than o
35C9 FE3A     02257         CP      '9'+1           ;  or greater than 9
35CB 3808     02258         JR      C,CKMPW3
35CD FE41     02259 CKMPW2  CP      'A'
35CF 3810     02260         JR      C,INVMPW        ;  but less than A
35D1 FE5B     02261         CP      'Z'+1
35D3 300C     02262         JR      NC,INVMPW       ;More than Z also bad
35D5 10E8     02263 CKMPW3  DJNZ    CKMPW1          ;Char ok, do another
35D7 AF       02264         XOR     A               ;Set Z, PW good
35D8 C9       02265         RET
              02266 ;
35D9 23       02267 CKMPW5  INC     HL              ;Next char position
35DA BE       02268         CP      (HL)            ;No imbedded spaces
35DB 2004     02269         JR      NZ,INVMPW
35DD 10FA     02270 CKMPW7  DJNZ    CKMPW5          ;Loop til 8 checked
35DF AF       02271         XOR     A               ;Set Z = PW good
35E0 C9       02272         RET
              02273 ;
35E1 21B339   02274 INVMPW  LD      HL,INVMPW$      ;Init "Invalid PW
35E4 3E3F     02275         LD      A,63            ;Indicate extended error
35E6 B7       02276         OR      A               ;Set NZ condition
35E7 C9       02277         RET
              02278 ;
              02279 ;       Brief routine to check a drive for availability
              02280 ;
35E8 210030   02281 CKDRV   LD      HL,HITBUF
35EB          02282         @@TIME                  ;P/u the timer pointer
35EB+3E13     02283         LD      A,19
35ED+EF       02284         RST     40
35EE EB       02285         EX      DE,HL           ;TIME$ to HL
35EF 2B       02286         DEC     HL              ;TIMER$ to HL
35F0 7E       02287         LD      A,(HL)          ;P/u current timer value
35F1 C60F     02288         ADD     A,15            ;Set timeout to 500ms
35F3 57       02289         LD      D,A             ;Save for test later
              02290 ;
              02291 ;       Test for diskette in drive & rotating
              02292 ;
35F4 CD0436   02293 CKDR1   CALL    CKDR6           ;Test index pulse
35F7 20FB     02294         JR      NZ,CKDR1        ;Jump on index
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00043 

'<Format Init Code

35F9 CD0436   02295 CKDR2   CALL    CKDR6           ;Test index pulse
35FC 28FB     02296         JR      Z,CKDR2         ;Jump on no index
35FE CD0436   02297 CKDR2A  CALL    CKDR6
3601 20FB     02298         JR      NZ,CKDR2A       ;Jump on index
3603 C9       02299         RET
3604 FB       02300 CKDR6   EI                      ;Make sure they're ON
3605 7E       02301         LD      A,(HL)          ;P/u latest TIMER$ value
3606 92       02302         SUB     D               ;500ms passed?
3607 2806     02303         JR      Z,CKDR7
3609 CD0B2A   02304         CALL    RSELCT          ;Select & wait not busy
360C CB4F     02305         BIT     1,A             ;Test index
360E C9       02306         RET
360F D1       02307 CKDR7   POP     DE              ;Pop the ret address
3610 F601     02308         OR      1               ;Set "Illegal drive #
3612 C9       02309         RET                     ;With NZ
              02310 ;
              02311 ;       Temporary storage space for format drive DCT
              02312 ;
3613          02313 TMPDCT  DS      10
361D          02314 DCTCYL  DS      8               ;Default # cyls
              02315 ;
              02316 ;       Config table for single density 5"
              02317 ;
3625          02318 TBLDATA EQU     $
3625 E62A     02319         DW      S5TBL,2409H,3381
     0924 350D 
              02320 ;
              02321 ;       Config table for double density 5"
              02322 ;
362B 262B     02323         DW      D5TBL,4511H,6506
     1145 6A19 
              02324 ;
              02325 ;       Config table for single density 8"
              02326 ;
3631 7D2B     02327         DW      S8TBL,270FH,5464
     0F27 5815 
              02328 ;
              02329 ;       Config table for double density 8"
              02330 ;
3637 C22B     02331         DW      D8TBL,491DH,10673
     1D49 B129 
              02332 ;
              02333 ;       Parm error exit
              02334 ;
363D 21CD39   02335 BADNAM  LD      HL,BADNAM$
3640 DD       02336         DB      0DDH
3641 21B339   02337 BADMPW  LD      HL,INVMPW$
3644 DD       02338         DB      0DDH
3645 214337   02339 NOTHARD LD      HL,HARD$
3648 C3BF29   02340         JP      EXTERR
364B 3E2C     02341 PRMERR  LD      A,44            ;Init Parm ERROR
364D C3A829   02342         JP      IOERR
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00044 

'<Format Init Code

              02343 ;
              02344 ;       Load SYS2 overlay
              02345 ;
3650 3E84     02346 GETSYS2 LD      A,84H
3652 EF       02347         RST     28H
              02348 ;
3653 20       02349 MPWBUF  DB      '         '
     20 20 20 20 20 20 20 20
              02350 PRMTBL$
0080          02351 VAL     EQU     80H
0040          02352 SW      EQU     40H
0020          02353 STR     EQU     20H
0010          02354 SGL     EQU     10H
365C 80       02355         DB      80H
365D 74       02356         DB      SW!STR!SGL!4,'NAME',0
     4E 41 4D 45 00 
3662          02357 NRESP   EQU     $-1
3663 EB31     02358         DW      NPARM+1
3665 73       02359         DB      SW!STR!SGL!3,'MPW',0
     4D 50 57 00 
3669          02360 MRESP   EQU     $-1
366A 3B32     02361         DW      MPARM+1
366C 44       02362         DB      SW!4,'SDEN',0
     53 44 45 4E 00 
3672 8331     02363         DW      SDPARM+1
3674 44       02364         DB      SW!4,'DDEN',0
     44 44 45 4E 00 
367A 8831     02365         DW      DDPARM+1
367C 85       02366         DB      VAL!5,'SIDES',0
     53 49 44 45 53 00 
3683 8D31     02367         DW      SIDES+1
3685 93       02368         DB      VAL!SGL!3,'CYL',0
     43 59 4C 00 
368A 9231     02369         DW      CPARM+1
368C 84       02370         DB      VAL!4,'STEP',0
     53 54 45 50 00 
3692 9731     02371         DW      STEPARM+1
3694 53       02372         DB      SW!SGL!3,'ABS',0
     41 42 53 00 
3699 FA34     02373         DW      APARM+1
369B 55       02374         DB      SW!SGL!5,'QUERY',0
     51 55 45 52 59 00 
36A2 B532     02375         DW      QPARM+1
36A4 46       02376         DB      SW!6,'SYSTEM',0
     53 59 53 54 45 4D 00 
36AC 1C26     02377         DW      SYSPRM+1
36AE 94       02378         DB      VAL!SGL!4,'WAIT',0
     57 41 49 54 00 
36B4 2C27     02379         DW      WAITPRM+1
36B6 93       02380         DB      VAL!SGL!3,'DIR',0
     44 49 52 00 
36BB 1228     02381         DW      DIRPARM+1
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00045 

'<Format Init Code

36BD 00       02382         NOP
              02383 ;
36BE 46       02384 HELLO$  DB      'FORMAT'
     4F 52 4D 41 54 
36C4          02385 *GET    CLIENT:3
              02386 ;CLIENT/ASM - File to establish sign-on headers
              02387 ; and version numbers.
              02388 ;
              02389 ; EACH STRING SHOULD CONTAIN ONLY 63 CHARACTERS !!
              02390 ;
              02391         IF      @BLD631
              02392 ;                12345678901234567890123456789012345678901234567890
36C4 20       02393         DB      ' - 6.3.1 - Copyright 1982/83/84/86/90 by MISOSYS, ';<631>
     2D 20 36 2E 33 2E 31 20
     2D 20 43 6F 70 79 72 69
     67 68 74 20 31 39 38 32
     2F 38 33 2F 38 34 2F 38
     36 2F 39 30 20 62 79 20
     4D 49 53 4F 53 59 53 2C
     20 
36F6 49       02394         DB      'Inc.,       ',10       ;<631>
     6E 63 2E 2C 20 20 20 20
     20 20 20 0A 
              02395         ELSE
              02396         DB      ' - 6.3.0 - Copyright 1982/83/84/86 by Logical Syst'
              02397         DB      'ems, Inc.   ',10
              02398         ENDIF
              02399 ;
              02400 ;       DB      'All Rights Reserved. Licensed 1982/83/84 to Tandy '
              02401 ;       DB      'Corporation.',10,13
              02402 ;
              02403 ;       DB      'All Rights Reserved. Beta-TEST Level/AD, DO NOT DI'
              02404 ;       DB      'STRIBUTE !! ',10,13
              02405 ;       DB      'All Rights reserved by LSI, 8970 N. 55th St. Milwa'
              02406 ;       DB      'ukee, Wisc. ',10,13
3703 41       02407         DB      'All Rights Reserved. Unauthorized duplication is p'
     6C 6C 20 52 69 67 68 74
     73 20 52 65 73 65 72 76
     65 64 2E 20 55 6E 61 75
     74 68 6F 72 69 7A 65 64
     20 64 75 70 6C 69 63 61
     74 69 6F 6E 20 69 73 20
     70 
3735 72       02408         DB      'rohibited.  ',10,13
     6F 68 69 62 69 74 65 64
     2E 20 20 0A 0D 
3743 43       02409 HARD$   DB      'Cannot "SYSTEM" a floppy',CR
     61 6E 6E 6F 74 20 22 53
     59 53 54 45 4D 22 20 61
     20 66 6C 6F 70 70 79 0D
              02410         IF      @BLD631
375C 4F       02411 NOMEM$  DB      'Out of memory',CR      ;<631>
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00046 

'<Format Init Code

     75 74 20 6F 66 20 6D 65
     6D 6F 72 79 0D 
              02412         ELSE
              02413 NOMEM$  DB      'Insufficient memory for '
              02414         DB      'specified format',CR
              02415         ENDIF
376A 57       02416 WHDRV$  DB      'Which drive is to be used ? ',3
     68 69 63 68 20 64 72 69
     76 65 20 69 73 20 74 6F
     20 62 65 20 75 73 65 64
     20 3F 20 03 
3787 44       02417 DSKNAM$ DB      'Diskette name ? ',3
     69 73 6B 65 74 74 65 20
     6E 61 6D 65 20 3F 20 03
3798 4D       02418 MPW$    DB      'Master password ? ',3
     61 73 74 65 72 20 70 61
     73 73 77 6F 72 64 20 3F
     20 03 
37AB 4E       02419 NUMCYL$ DB      'Number of cylinders ? ',3
     75 6D 62 65 72 20 6F 66
     20 63 79 6C 69 6E 64 65
     72 73 20 3F 20 03 
              02420         IF      @BLD631
37C2 42       02421 STEP5$  DB      'Boot strap step rate ' ;<631>
     6F 6F 74 20 73 74 72 61
     70 20 73 74 65 70 20 72
     61 74 65 20 
              02422         ELSE
              02423 STEP5$  DB      'Boot strap stepping rate '
              02424         ENDIF
37D7 3C       02425         DB      '<6, 12, 20, 30 msecs> ? ',3
     36 2C 20 31 32 2C 20 32
     30 2C 20 33 30 20 6D 73
     65 63 73 3E 20 3F 20 03
              02426         IF      @BLD631
37F0 42       02427 STEP8$  DB      'Bootstrap step rate '  ;<631>
     6F 6F 74 73 74 72 61 70
     20 73 74 65 70 20 72 61
     74 65 20 
              02428         ELSE
              02429 STEP8$  DB      'Bootstrap stepping rate '
              02430         ENDIF
3804 3C       02431         DB      '<3, 6, 10, 15/20 msecs> ? ',3
     33 2C 20 36 2C 20 31 30
     2C 20 31 35 2F 32 30 20
     6D 73 65 63 73 3E 20 3F
     20 03 
381F 45       02432 SIDES$  DB      'Enter number of sides <1,2> ? ',3
     6E 74 65 72 20 6E 75 6D
     62 65 72 20 6F 66 20 73
     69 64 65 73 20 3C 31 2C
     32 3E 20 3F 20 03 
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00047 

'<Format Init Code

383E 53       02433 DEN?$   DB      'Single or Double density <S,D> ? ',3
     69 6E 67 6C 65 20 6F 72
     20 44 6F 75 62 6C 65 20
     64 65 6E 73 69 74 79 20
     3C 53 2C 44 3E 20 3F 20
     03 
3860 44       02434 NOTRDY$ DB      'Drive not ready',CR
     72 69 76 65 20 6E 6F 74
     20 72 65 61 64 79 0D 
3870 57       02435 CANTWR$ DB      'Write protected disk',CR
     72 69 74 65 20 70 72 6F
     74 65 63 74 65 64 20 64
     69 73 6B 0D 
3885 44       02436 NODRV$  DB      'Drive not in system',CR
     72 69 76 65 20 6E 6F 74
     20 69 6E 20 73 79 73 74
     65 6D 0D 
3899 4C       02437 PMTDST$ DB      'Load destination diskette  <ENTER>',CR
     6F 61 64 20 64 65 73 74
     69 6E 61 74 69 6F 6E 20
     64 69 73 6B 65 74 74 65
     20 20 3C 45 4E 54 45 52
     3E 0D 
38BC 44       02438 HASDAT$ DB      'Disk contains data -- ',3
     69 73 6B 20 63 6F 6E 74
     61 69 6E 73 20 64 61 74
     61 20 2D 2D 20 03 
38D3 4E       02439 NOFMT$  DB      'Non-standard format',CR
     6F 6E 2D 73 74 61 6E 64
     61 72 64 20 66 6F 72 6D
     61 74 0D 
38E7 55       02440 CANTRD$ DB      'Unreadable directory',CR
     6E 72 65 61 64 61 62 6C
     65 20 64 69 72 65 63 74
     6F 72 79 0D 
38FC 4E       02441 NODIR$  DB      'Non-initialized directory',CR
     6F 6E 2D 69 6E 69 74 69
     61 6C 69 7A 65 64 20 64
     69 72 65 63 74 6F 72 79
     0D 
3916 4E       02442 PACKID$ DB      'Name=XXXXXXXX  Date=MM/DD/YY',CR
     61 6D 65 3D 58 58 58 58
     58 58 58 58 20 20 44 61
     74 65 3D 4D 4D 2F 44 44
     2F 59 59 0D 
3933 20       02443 OLDMPW$ DB      '  Enter its Master Password'
     20 45 6E 74 65 72 20 69
     74 73 20 4D 61 73 74 65
     72 20 50 61 73 73 77 6F
     72 64 
394E 20       02444         DB      ' or <BREAK> to abort: ',3
     6F 72 20 3C 42 52 45 41
MISOSYS EDAS-4.3 04/19/99 21:44:32 FORMAT - LS-DOS 6.3          Page 00048 

'<Format Init Code

     4B 3E 20 74 6F 20 61 62
     6F 72 74 3A 20 03 
3965 2A       02445 LASTMSG DB      '*** The target drive is a hard disk ***',LF
     2A 2A 20 54 68 65 20 74
     61 72 67 65 74 20 64 72
     69 76 65 20 69 73 20 61
     20 68 61 72 64 20 64 69
     73 6B 20 2A 2A 2A 0A 
398D 41       02446 SURE?$  DB      'Are you sure you want to format it ? ',3
     72 65 20 79 6F 75 20 73
     75 72 65 20 79 6F 75 20
     77 61 6E 74 20 74 6F 20
     66 6F 72 6D 61 74 20 69
     74 20 3F 20 03 
39B3 0A       02447 INVMPW$ DB      LF,'Invalid Master Password',LF,CR
     49 6E 76 61 6C 69 64 20
     4D 61 73 74 65 72 20 50
     61 73 73 77 6F 72 64 0A
     0D 
39CD 49       02448 BADNAM$ DB      'Invalid Disk Name',CR
     6E 76 61 6C 69 64 20 44
     69 73 6B 20 4E 61 6D 65
     0D 
39DF 44       02449 PAKNAM$ DB      'DATADISK'
     41 54 41 44 49 53 4B 
39E7 50       02450 PAKMPW$ DB      'PASSWORD'
     41 53 53 57 4F 52 44 
              02451 ;
3100          02452         END     FORMAT
3100 is the transfer address
00000 Total errors