home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / dskutl / eset.aqm / ESET.ASM
Assembly Source File  |  1985-02-09  |  19KB  |  795 lines
  1. ;+----------------------------------------------------------------------+
  2. ;|                                                                      |
  3. ;|                            ESET.ASM                                  |
  4. ;|     Public Domain - 1984   Konrad Roeder, Albuquerque, NM            |
  5. ;|                                                                      |
  6. ;+----------------------------------------------------------------------+
  7. ;
  8. ;
  9. ; Revision Log:
  10. ;
  11.     7/16/84    V1.0    release to AMPRO-1
  12. ;
  13. ; Purpose:
  14. ;
  15. ; ESET allows any one of the four possible drives A, B, C, and D,
  16. ; to read a foreign format.  The emulated foreign drive is called
  17. ; "E" when it is used with the foreign format and by its regular
  18. ; name when it is used with the normal format of the machine.
  19. ;
  20. ; ESET changes the specifications of the "E" drive in four areas:
  21. ;    1 - Disk Drive Select Byte
  22. ;    2 - Type Byte
  23. ;    3 - Disk Parameter Block
  24. ;    4 - Skew Table
  25. ;
  26. ; The following is a description of those data structures:
  27. ;
  28. ; DISK DRIVE SELECT BYTE
  29. ; Tells the system which drive is aliased to the foreign format "E"
  30. ;    00 - A    01 - B    02 - C    03 - D
  31. ;
  32. ; TYPE BYTE
  33. ;
  34. ;
  35. ;    bit 7      density: 0=single; 1=double
  36. ;    bit 6      double sided media if = 1
  37. ;    bit 5      double sided mode:
  38. ;                1 = continuous sector numbers (first
  39. ;                    sector on side one = last sector
  40. ;                    on side 0 + 1).
  41. ;                    both tracks are treated as a 
  42. ;                    single track with twice as many
  43. ;                    sectors.
  44. ;                0 = same sectors on both sides
  45. ;                    (normal method)
  46. ;    bit 4      reserved 
  47. ;    bits 3-2  00 = 1k allocation blocks
  48. ;          01 = 2k allocation blocks
  49. ;          10 = not used
  50. ;          11 = not used
  51. ;    bits 1-0  00 = 128 byte sectors
  52. ;          01 = 256 byte sectors
  53. ;          10 = 512 byte sectors
  54. ;          11 = 1024 byte sectors 
  55. ;
  56. ;
  57. ; DISK PARAMETER BLOCK
  58. ; The disk parameter block tells the system about how the data
  59. ; is arranged on the disk.  The DPB has ten entries:
  60. ;    SPT    Sectors Per Track        (word)
  61. ;    BSH    Block SHift            (byte)
  62. ;    BLM    BLock Mask            (byte)
  63. ;    EXM    EXtent Mask            (byte)
  64. ;    DSM    Directory Size Minus one    (word)
  65. ;    DRM    DiRectory entries Minus one    (word)
  66. ;    AL0    directory group ALlocation 0    (byte)
  67. ;    AL1    directory group ALlocation 1    (byte)
  68. ;    CKS    ChecK Size            (word)
  69. ;    OFF    OFFset (# reserved tracks)    (word)
  70. ;
  71. ; SKEW TABLE
  72. ; The skew table translates between logical and physical sector
  73. ; numbers.  On some systems the sectors are not contiguously
  74. ; arranged so that access times can be improved.
  75. ;
  76. ; 
  77. *********************************************************************
  78. CR:    EQU    0DH        ;carrige return 
  79. LF:    EQU    0AH        ;line feed
  80. ESC:    EQU    01BH        ;escape
  81. CAPS:    EQU    05FH        ;upper case
  82. FF:    EQU    0CH        ;form feed
  83. ETX:    EQU    3        ;^c
  84.  
  85.     ORG    0100H        ;base of tpa
  86. BEGIN:    JMP    START        ;leave room for copyright
  87.     ;
  88.     DB    ' MULTIDSK Vers 1.4 Copyright (c) 1984'
  89.     DB    ' AMPRO Computers, Inc. '
  90.     ;
  91. START:    LXI    H,0        ;zero out h&l
  92.     DAD    SP        ;add sp to hl
  93.     SHLD    OLDSP        ;save it
  94.     LXI    SP,STACK     ;set up new stack    
  95.     ;
  96.     ;ckdrv loads the default drive and compares it
  97.     ;against the e drive which isn't allowed.  prints
  98.     ;error message if true.
  99.     ;
  100. CKDRV:    LDA    4        ;get default drive
  101.     CPI    4        ;is it drive "e"?
  102.     JZ    WRGDRV        ;get ready to quit if it is
  103.     ;
  104.     ;eaddr gets the location of eparm in the bios.
  105.     ;
  106. EADDR:    LHLD    1        ;get warm boot vector
  107.     MVI    L,36H        ;getedsk offset
  108.     LXI    D,BIORET     ;point to bios return point
  109.     PUSH    D        ;save d
  110.     PCHL            ;return with dpb addr
  111.     ;
  112.     ;bioret returns with the bios location of eparm
  113.     ;and saves it for use later.
  114.     ;
  115. BIORET: DCX    H        ;back up to type byte location
  116.     SHLD    ADDR        ;save location
  117.     ;
  118.     ;print the signon message.
  119.     ;
  120. SIGN:    LXI    D,SIGNON     ;point to sign on message
  121.     CALL    OUTPUT        ;
  122.     ;
  123.     ;getdrv checks which drive is selected as the "e" drive.
  124.     ;
  125. GETDRV:    CALL    CONIN        ;get drive selection
  126.     CPI    ESC        ;esc?
  127.     JZ    DONE        ;endit
  128.     CPI    ETX        ;^c?
  129.     JZ    DONE        ;
  130.     ANI    CAPS        ;force upper case
  131.     CPI    'A'        ;a?
  132.     JZ    PTMAIN        ;
  133.     CPI    'B'        ;b?
  134.     JZ    PTMAIN        ;
  135.     CPI    'C'        ;c?
  136.     JZ    PTMAIN        ;
  137.     CPI    'D'        ;d?
  138.     JZ    PTMAIN        ;
  139.     JMP    GETDRV        ;do it until you get it right!
  140.     ;
  141.     ;
  142.     ; ptmain is the section that builds the type byte
  143.     ;
  144. PTMAIN: STA    DRSEL+7        ;store drive in signoff message
  145.     SUI    41H        ;ascii -> hex
  146.     STA    DRIVE        ;save drive selected
  147.     XRA    A        ;clear type byte
  148.     STA    TYPE
  149.     LXI    D,SELFMT
  150.     CALL     OUTPUT        ;print the format selection
  151. GETFMT:    CALL    CONIN        ;get the format selection
  152.     CPI    ESC        ;esc?
  153.     JZ    PTMAIN        ;start over
  154.     CPI    ETX        ;ctrl-c?
  155.     JZ    DONE
  156.     ANI    CAPS        ;force caps
  157.     CPI    'A'        ;a?
  158.     JZ    FMTA
  159.     CPI    'B'        ;b?
  160.     JZ    FMTB
  161.     CPI    'C'        ;c?
  162.     JZ    FMTC
  163.     CPI    'D'        ;d?
  164.     JZ    FMTD
  165.     JMP    GETFMT        ;back until its ok
  166. FMTA:    JMP    PTALL        ;sssd = 00xxxxxx (no change)
  167. FMTB:    LDA    TYPE        ;ssdd = 10xxxxxx
  168.     ORI    80H
  169.     STA    TYPE
  170.     JMP    PTALL
  171. FMTC:    LDA    TYPE        ;dssd = 01xxxxxx
  172.     ORI    40H
  173.     STA    TYPE
  174.     JMP     PTSEC
  175. FMTD:    LDA    TYPE        ;dsdd = 11xxxxxx
  176.     ORI    0C0H
  177.     STA    TYPE
  178.     JMP    PTSEC
  179. PTSEC:    LXI    D,SELSEC
  180.     CALL    OUTPUT
  181. GETSEC:    CALL    CONIN        ;get sector numbering
  182.     CPI    ESC        ;esc?
  183.     JZ    PTMAIN
  184.     CPI    ETX        ;ctrl-c?
  185.     JZ    DONE
  186.     ANI    CAPS
  187.     CPI    'A'        ;a?
  188.     JZ    SECA
  189.     CPI    'B'        ;b?
  190.     JZ    SECB
  191.     JMP    GETSEC
  192.     ;
  193. SECA:    LDA    TYPE        ; continuous xx1xxxxx
  194.     ORI    20H
  195.     STA    TYPE
  196.     JMP    PTALL
  197. SECB:    JMP    PTALL        ; same       xx0xxxxx (no change)
  198.     ;
  199. PTALL:    LXI    D,SELALL
  200.     CALL    OUTPUT
  201. GETALL:    CALL    CONIN        ; get allocation block size
  202.     CPI    ESC        ;esc?
  203.     JZ    PTMAIN        ; if so -- start over
  204.     CPI    ETX        ;ctrl-c?
  205.     JZ    DONE        ; if so -- bye
  206.     ANI    CAPS        ; convert to caps
  207.     CPI    'A'        ;a?
  208.     JZ    ALLA
  209.     CPI    'B'        ;b?
  210.     JZ    ALLB
  211.     JMP    GETALL
  212. ALLA:    JMP    PTBPS        ; 1k xxxx00xx 
  213. ALLB:    LDA    TYPE        ; 2k xxxx01xx
  214.     ORI    04H
  215.     STA    TYPE
  216. PTBPS:    LXI    D,SELBPS    ; get bytes per sector memu
  217.     CALL     OUTPUT
  218. GETBPS:    CALL    CONIN        ; get bps
  219.     CPI    ESC        ;esc?
  220.     JZ    PTMAIN        ; if so -- start over
  221.     CPI    ETX        ;ctrl-c?
  222.     JZ    DONE        ; if so -- bye
  223.     ANI    CAPS        ; caps to caps
  224.     CPI    'A'        ;a?
  225.     JZ    BPSA
  226.     CPI    'B'        ;b?
  227.     JZ    BPSB
  228.     CPI    'C'        ;c?
  229.     JZ    BPSC
  230.     CPI    'D'        ;d?
  231.     JZ    BPSD
  232.     JMP    GETBPS
  233. BPSA    JMP    FCMAIN        ; 128 bps xxxxxx00
  234. BPSB    LDA    TYPE        ; 256 bps xxxxxx01
  235.     ORI    01H
  236.     STA    TYPE
  237.     JMP    FCMAIN
  238. BPSC    LDA    TYPE        ; 512 bps xxxxxx10
  239.     ORI    02H
  240.     STA    TYPE
  241.     JMP    FCMAIN
  242. BPSD    LDA    TYPE        ;1024 bps xxxxxx11
  243.     ORI    03H
  244.     STA    TYPE
  245. FCMAIN:    LXI    D,SELSPT    ;sectors per track   (word)
  246.     CALL    OUTPUT
  247.     CALL    DBIN
  248.     SHLD    DPB        ;store in dpb & dpb + 1
  249.     LXI    D,SELBSH    ;block shift         (byte)
  250.     CALL    OUTPUT
  251.     CALL    DBIN
  252.     MOV    A,L        ;store in dpb+2
  253.     STA    DPB+2
  254.     LXI    D,SELBLM    ;block mask          (byte)
  255.     CALL    OUTPUT
  256.     CALL    DBIN
  257.     MOV    A,L        ;store in dpb+3
  258.     STA    DPB+3
  259.     LXI    D,SELEXM    ;extent mask         (byte)
  260.     CALL    OUTPUT
  261.     CALL    DBIN
  262.     MOV    A,L        ;store in dpb+4
  263.     STA    DPB+4
  264.     LXI    D,SELDSM    ;disk size - 1       (word)
  265.     CALL    OUTPUT
  266.     CALL    DBIN
  267.     SHLD    DPB+5
  268.     LXI    D,SELDRM    ;# directories - 1   (word)
  269.     CALL    OUTPUT
  270.     CALL    DBIN
  271.     SHLD    DPB+7
  272.     LXI    D,SELAL0    ;allocation 0        (byte)
  273.     CALL    OUTPUT
  274.     CALL    DBIN
  275.     MOV    A,L
  276.     STA    DPB+9
  277.     LXI    D,SELAL1    ;allocation 1        (byte)
  278.     CALL    OUTPUT
  279.     CALL    DBIN
  280.     MOV    A,L
  281.     STA    DPB+10
  282.     LXI    D,SELCKS    ;dir check size      (word)
  283.     CALL    OUTPUT
  284.     CALL    DBIN
  285.     SHLD    DPB+11
  286.     LXI    D,SELOFF    ;reserved tracks     (word)
  287.     CALL    OUTPUT
  288.     CALL    DBIN
  289.     SHLD    DPB+13
  290.     LXI    D,SELOK
  291.     CALL     OUTPUT
  292. GETOK:    CALL    CONIN
  293.     CPI    ETX
  294.     JZ    DONE
  295.     ANI    CAPS
  296.     CPI    'Y'
  297.     JZ    PTSKW
  298.     CPI    'N'
  299.     JZ    FCMAIN
  300.     JMP    GETOK
  301. PTSKW:    LXI    D,SELSKW
  302.     CALL    OUTPUT
  303. GETSKW:    CALL    CONIN
  304.     CPI    ESC        ;esc?
  305.     JZ    PTSKW
  306.     CPI    ETX        ;ctrl-c?
  307.     JZ    DONE
  308.     ANI    CAPS
  309.     CPI    'A'
  310.     JZ    SKWWA
  311.     CPI    'B'
  312.     JZ    SKWWB
  313.     CPI    'C'
  314.     JZ    SKWWC
  315.     CPI    'D'
  316.     JZ    SKWWD
  317.     CPI    'E'
  318.     JZ    SKWWE
  319.     CPI    'F'
  320.     JZ    SKWWF
  321.     CPI    'G'
  322.     JZ    SKWWG
  323.     CPI    'H'
  324.     JZ    SKWWH
  325.     CPI    'I'
  326.     JZ    SKWWI
  327.     CPI    'J'
  328.     JZ    SKWWJ
  329.     CPI    'K'
  330.     JZ    SKWWK
  331.     CPI    'L'
  332.     JZ    SKWWL
  333.     CPI    'M'
  334.     JZ    SKWWM
  335.     CPI    'N'
  336.     JZ    SKWWN
  337.     CPI    'O'
  338.     JZ    SKWWO
  339.     CPI    'P'
  340.     JZ    SKWWP
  341.     CPI    'Z'
  342.     JZ    MKSKW
  343.     JMP    GETSKW
  344. SKWWA:    LXI    D,SKWA
  345.     JMP    SKWFIN
  346. SKWWB:    LXI    D,SKWB
  347.     JMP    SKWFIN
  348. SKWWC:    LXI    D,SKWC
  349.     JMP    SKWFIN
  350. SKWWD:    LXI    D,SKWD
  351.     JMP    SKWFIN
  352. SKWWE:    LXI    D,SKWE
  353.     JMP    SKWFIN
  354. SKWWF:    LXI    D,SKWF
  355.     JMP    SKWFIN
  356. SKWWG:    LXI    D,SKWG
  357.     JMP    SKWFIN
  358. SKWWH:    LXI    D,SKWH
  359.     JMP    SKWFIN
  360. SKWWI:    LXI    D,SKWI
  361.     JMP    SKWFIN
  362. SKWWJ:    LXI    D,SKWJ
  363.     JMP    SKWFIN
  364. SKWWK:    LXI    D,SKWK
  365.     JMP    SKWFIN
  366. SKWWL:    LXI    D,SKWL
  367.     JMP    SKWFIN
  368. SKWWM:    LXI    D,SKWM
  369.     JMP    SKWFIN
  370. SKWWN:    LXI    D,SKWN
  371.     JMP    SKWFIN
  372. SKWWO:    LXI    D,SKWO
  373.     JMP    SKWFIN
  374. SKWWP:    LXI    D,SKWP
  375.     JMP    SKWFIN
  376. MKSKW:    LXI    D,MKMSG        ;did not find the skew table,
  377.                 ;so we will build one!
  378.     CALL    OUTPUT
  379.     LXI    H,SKW        ;hl will point at the temp buffer
  380.     MVI    B,20        ;b will count out twenty entries
  381. MKSKW1:    PUSH    B        ;save b for now
  382.     PUSH    H        ;hl too
  383.     LXI    D,PROMPT    ;print the prompt
  384.     CALL    OUTPUT
  385.     CALL    DBIN        ;get a value in decimal -> hl
  386.     MOV    A,L
  387.     POP    H        ;get the address it goes into
  388.     MOV    M,A        ;and move it there
  389.     INX    H
  390.     POP    B
  391.     DCR    B        ;count down
  392.     JNZ    MKSKW1        ;not done yet - go again
  393.     LXI    D,SKWOK        ;ask 'em if its ok
  394.     CALL    OUTPUT
  395. GETSOK:    CALL    CONIN        ;get their answer
  396.     CPI    ETX        ;ctrl-c?
  397.     JZ    DONE        ;end it
  398.     ANI    CAPS        ;convert to caps
  399.     CPI    'Y'        ;y?
  400.     JZ    LDDPB
  401.     CPI    'N'        ;n?
  402.     JZ    MKSKW
  403.     JMP    GETSOK        ;someday they may type y or n!
  404.     ;
  405. SKWFIN:    LXI    H,SKW
  406.     MVI    B,20
  407.     CALL    LOOP    ;move the appropriate skew table in the
  408.             ;temporary buffer area
  409.     ;
  410.     ;
  411.     ;
  412.     ; move the temporary buffer area into bios
  413.     ;
  414. LDDPB:    LHLD    ADDR    ;get bios pointer back
  415.     MVI    B,37    ;number of bytes to move (1+15+1+20)
  416.     LXI    D,TYPE    ;point to the temporary dpb
  417.     CALL    LOOP
  418. ;
  419. ; clean up
  420. ;
  421.     LXI    D,SGNOFF
  422.     CALL    OUTPUT
  423.     LHLD    OLDSP
  424.     SPHL        ;put the old stack back into use
  425.     JMP    0H    ;go to bios reset address
  426.     ;
  427.     ;
  428.     ;
  429.  
  430.     ;conin gets a character from the console through bios and
  431.     ;puts it in the accumulator.
  432.     ;
  433. CONIN:    MVI    A,9        ; bios call avoids echo to console
  434.     LHLD    1
  435.     MOV    L,A
  436.     PCHL
  437.     ;
  438.     ;
  439.     ;conout gets a single character from the accumulator and
  440.     ;sends it to the console through bios
  441.     ;
  442. CONOUT: MOV    C,A
  443.     MVI    A,12
  444.     LHLD    1
  445.     MOV    L,A
  446.     PCHL
  447.     ;
  448.      ;
  449.     ;output sends the message pointed to by de to the screen.
  450.     ;
  451. OUTPUT:    MVI    C,9        ;print string function
  452.     CALL    5        ;bdos
  453.     RET            ;
  454.     ;
  455.     ;
  456.     ; dbin ascii decimal to 16 bits in hl
  457.     ;
  458. DBIN:    PUSH    D        ;save registers
  459.     LXI    H,0        ;clear hl
  460. DBIN2:    PUSH    H        ;save hl
  461.     CALL    CONIN
  462.     POP    H
  463.     CPI    ETX        ;ctrl-c?
  464.     JZ    ABORT
  465.     CPI    CR        ;return?
  466.     JZ    DBIN3
  467.     PUSH    H
  468.     CALL    CONOUT
  469.     POP    H
  470.     SUI    '0'        ;convert this digit to binary
  471.     JC    DBIN4        ; <0
  472.     CPI    10
  473.     JNC    ERRDB        ; >10
  474.     MOV    D,H        ; hl -> de
  475.     MOV    E,L
  476.     DAD    H        ; *2
  477.     DAD    H        ; *4
  478.     DAD    D        ; *5
  479.     DAD    H        ; *10
  480.     MOV    E,A        ; new byte -> de
  481.     MOV    D,0
  482.     DAD    D        ; de + hl -> hl
  483.     JMP    DBIN2        ; next
  484. DBIN4:    CPI    (' '-'0') AND 0FFH
  485.     JNZ    ERRDB        ;not blank
  486. DBIN3:    POP    D        ;restore
  487.     RET
  488. ERRDB:    LXI    D,DBERR
  489.     CALL    OUTPUT
  490.     POP    D
  491.     JMP    DBIN        ;try again
  492. ABORT:    POP    D
  493.     JMP    DONE
  494. DBERR:    DB    CR,LF,' unrecognizable digit on input -- try again :$'
  495.     ;
  496.     ;
  497.     ;loop moves data from an address pointed to by de
  498.     ;                  to an address pointed to by hl
  499.     ;           for b bytes.
  500.     ;
  501. LOOP:    LDAX    D        
  502.     MOV    M,A
  503.     INX    D
  504.     INX    H
  505.     DCR    B
  506.     JNZ    LOOP    ;loop until done
  507.     RET
  508.     ;
  509.     ;
  510.     ;
  511.     ;
  512.     ;the signon message...
  513.     ;
  514. SIGNON:    DB    CR,LF
  515.     DB    FF
  516.     DB    0,0,0,0,0,0,0,0,0,0
  517.     DB    LF
  518.     DB    0,0,0,0,0,0,0,0,0,0
  519.     DB    LF
  520.     DB    0,0,0,0,0,0,0,0,0,0
  521.     DB    LF
  522.     DB    0,0,0,0,0,0,0,0,0,0
  523.     DB    LF
  524.     DB    0,0,0,0,0,0,0,0,0,0
  525.     DB    LF
  526.     DB    0,0,0,0,0,0,0,0,0,0
  527.     DB    LF
  528.     DB    0,0,0,0,0,0,0,0,0,0
  529.     DB    LF
  530.     DB    0,0,0,0,0,0,0,0,0,0
  531.     DB    LF
  532.     DB    0,0,0,0,0,0,0,0,0,0
  533.     DB    LF
  534.     DB    0,0,0,0,0,0,0,0,0,0
  535.     DB    LF
  536.     DB    0,0,0,0,0,0,0,0,0,0
  537.     DB    LF
  538.     DB    0,0,0,0,0,0,0,0,0,0
  539.     DB    LF
  540.     DB    0,0,0,0,0,0,0,0,0,0
  541.     DB    0,0,0,0,0,0,0,0,0,0
  542.     DB    LF
  543.     DB    LF
  544.     DB    ' ESET prepares your AMPRO system to read, write, '
  545.     DB    'diskettes formatted for',CR,LF,' many other'
  546.     DB    ' computers not supported by MULTIDSK '
  547.     DB    CR,LF
  548.     DB    0,0,0,0,0,0,0,0,0,0
  549.     DB    LF
  550.     DB    0,0,0,0,0,0,0,0,0,0
  551.     DB    LF
  552.     DB    0,0,0,0,0,0,0,0,0,0
  553.     DB    LF
  554.     DB    0,0,0,0,0,0,0,0,0,0
  555.     DB    LF
  556.     DB    0,0,0,0,0,0,0,0,0,0
  557.     DB    LF
  558.     DB    0,0,0,0,0,0,0,0,0,0
  559.     DB    LF
  560.     DB    ' Which drive do you wish to use as the "E" drive? '
  561.     DB    '(A,B,C or D) $'
  562.     ;
  563. SELFMT:    DB    CR,LF
  564.     DB    FF
  565.     DB    0,0,0,0,0,0,0,0,0,0
  566.     DB    LF
  567.     DB    0,0,0,0,0,0,0,0,0,0
  568.     DB    LF
  569.     DB    0,0,0,0,0,0,0,0,0,0
  570.     DB    LF
  571.     DB    0,0,0,0,0,0,0,0,0,0
  572.     DB    'Defining TYPE byte for drive "E" ',CR,LF
  573.     DB    0,0,0,0,0,0,0,0,0,0,LF
  574.     DB    0,0,0,0,0,0,0,0,0,0,LF
  575.     DB    ' A) single sided, single density ',CR,LF
  576.     DB    0,0,0,0,0,0,0,0,0,0
  577.     DB    ' B) single sided, double density ',CR,LF
  578.     DB    0,0,0,0,0,0,0,0,0,0
  579.     DB    ' C) double sided, single density ',CR,LF
  580.     DB    0,0,0,0,0,0,0,0,0,0
  581.     DB    ' D) double sided, double density ',CR,LF
  582.     DB    0,0,0,0,0,0,0,0,0,0
  583.     DB    LF
  584.     DB    0,0,0,0,0,0,0,0,0,0
  585.     DB    ' Select a FORMAT or <ESC> to start over:$'
  586. SELSEC:    DB    CR,LF
  587.     DB    FF
  588.     DB    0,0,0,0,0,0,0,0,0,0
  589.     DB    LF
  590.     DB    0,0,0,0,0,0,0,0,0,0
  591.     DB    LF
  592.     DB    0,0,0,0,0,0,0,0,0,0
  593.     DB    LF
  594.     DB    0,0,0,0,0,0,0,0,0,0
  595.     DB    ' A) Continuous sector numbers -- ',CR,LF
  596.     DB    0,0,0,0,0,0,0,0,0,0
  597.     DB    '    first sector on side 1 = last sector on side 0 + 1'
  598.     DB    CR,LF,0,0,0,0,0,0,0,0,0
  599.     DB    LF,0,0,0,0,0,0,0,0,0
  600.     DB    ' B) Same sector numbers on both sides',CR,LF
  601.     DB    0,0,0,0,0,0,0,0,0,0
  602.     DB    '    (normal method)',CR,LF
  603.     DB    0,0,0,0,0,0,0,0,0,0
  604.     DB    LF,0,0,0,0,0,0,0,0,0
  605.     DB    ' Select the way sectors are numbered ',CR,LF
  606.     DB    0,0,0,0,0,0,0,0,0,0
  607.     DB    ' or <ESC> to start over:$'
  608. SELALL:    DB    CR,LF
  609.     DB    FF
  610.     DB    0,0,0,0,0,0,0,0,0,0,LF
  611.     DB    0,0,0,0,0,0,0,0,0,0,LF
  612.     DB    0,0,0,0,0,0,0,0,0,0,LF
  613.     DB    0,0,0,0,0,0,0,0,0,0,LF
  614.     DB    ' A) 1k allocation blocks ',CR,LF
  615.     DB    0,0,0,0,0,0,0,0,0,0
  616.     DB    ' B) 2k allocation blocks ',CR,LF
  617.     DB    0,0,0,0,0,0,0,0,0,0,LF
  618.     DB    ' Select the size of the allocation blocks',CR,LF
  619.     DB    ' or type <ESC> to start over:$'
  620. SELBPS:    DB    CR,LF
  621.     DB    FF
  622.     DB    0,0,0,0,0,0,0,0,0,0,LF
  623.     DB    0,0,0,0,0,0,0,0,0,0,LF
  624.     DB    0,0,0,0,0,0,0,0,0,0,LF
  625.     DB    0,0,0,0,0,0,0,0,0,0,LF
  626.     DB    ' A)  128 byte sectors ',CR,LF
  627.     DB    0,0,0,0,0,0,0,0,0,0
  628.     DB    ' B)  256 byte sectors ',CR,LF
  629.     DB    0,0,0,0,0,0,0,0,0,0
  630.     DB    ' C)  512 byte sectors ',CR,LF
  631.     DB    0,0,0,0,0,0,0,0,0,0
  632.     DB    ' D) 1024 byte sectors ',CR,LF
  633.     DB    0,0,0,0,0,0,0,0,0,0,LF
  634.     DB    ' Select the sector size or <ESC> to start over:$'
  635. SELSPT:    DB    CR,LF
  636.     DB    FF
  637.     DB    0,0,0,0,0,0,0,0,0,0,LF
  638.     DB    0,0,0,0,0,0,0,0,0,0,LF
  639.     DB    0,0,0,0,0,0,0,0,0,0,LF
  640.     DB    0,0,0,0,0,0,0,0,0,0,LF
  641.     DB    ' Defining Disk Parameter Block for drive "E"',CR,LF
  642.     DB    0,0,0,0,0,0,0,0,0,0,LF
  643.     DB    0,0,0,0,0,0,0,0,0,0,LF
  644.     DB    0,0,0,0,0,0,0,0,0,0,LF
  645.     DB    0,0,0,0,0,0,0,0,0,0,LF
  646.     DB    0,0,0,0,0,0,0,0,0,0,LF
  647.     DB    ' # of logical sectors per track (SPT):$'
  648. SELBSH:    DB    CR,LF
  649.     DB    ' block shift factor             (BSH):$'
  650. SELBLM:    DB    CR,LF
  651.     DB    ' block mask                     (BLM):$'
  652. SELEXM:    DB    CR,LF
  653.     DB    ' extent mask / DB alloc. size   (EXM):$'
  654. SELDSM:    DB    CR,LF
  655.     DB    ' maximum data block number - 1  (DSM):$'
  656. SELDRM:    DB    CR,LF
  657.     DB    ' maximum directory entries - 1  (DRM):$'
  658. SELAL0:    DB    CR,LF
  659.     DB    ' directory group allocation 0   (AL0):$'
  660. SELAL1:    DB    CR,LF
  661.     DB    ' directory group allocation 1   (AL1):$'
  662. SELCKS:    DB    CR,LF
  663.     DB    ' check size                     (CKS):$'
  664. SELOFF:    DB    CR,LF
  665.     DB    ' number of reserved tracks      (OFF):$'
  666. SELOK:    DB    CR,LF
  667.     DB    0,0,0,0,0,0,0,0,0,0,LF
  668.     DB    0,0,0,0,0,0,0,0,0,0,LF
  669.     DB    ' Are all entries in the dpb ok? $'
  670. SELSKW:    DB    CR,LF
  671.     DB    FF
  672.     DB    0,0,0,0,0,0,0,0,0,0,LF
  673.     DB    0,0,0,0,0,0,0,0,0,0,LF
  674.     DB    0,0,0,0,0,0,0,0,0,0,LF
  675.     DB    0,0,0,0,0,0,0,0,0,0,LF
  676.     DB    0,0,0,0,0,0,0,0,0,0,LF
  677.     DB    0,0,0,0,0,0,0,0,0,0
  678.     DB    ' A) 1,2,3,4,5 ',LF,CR
  679.     DB    0,0,0,0,0,0,0,0,0,0
  680.     DB    ' B) 1,3,5,2,4 ',LF,CR
  681.     DB    0,0,0,0,0,0,0,0,0,0
  682.     DB    ' C) 1,4,2,5,3 ',LF,CR
  683.     DB    0,0,0,0,0,0,0,0,0,0
  684.     DB    ' D) 1,2,3,4,5,6,7,8 ',LF,CR
  685.     DB    0,0,0,0,0,0,0,0,0,0
  686.     DB    ' E) 1,2,3,4,5,6,7,8,9 ',LF,CR
  687.     DB    0,0,0,0,0,0,0,0,0,0
  688.     DB    ' F) 1,3,5,7,9,2,4,6,8 ',LF,CR
  689.     DB    0,0,0,0,0,0,0,0,0,0
  690.     DB    ' G) 1,4,7,2,5,8,3,6,9 ',LF,CR
  691.     DB    0,0,0,0,0,0,0,0,0,0
  692.     DB    ' H) 1,2,3,4,5,6,7,8,9,10 ',LF,CR
  693.     DB    0,0,0,0,0,0,0,0,0,0
  694.     DB    ' I) 1,3,5,7,9,2,4,6,8,10 ',LF,CR
  695.     DB    0,0,0,0,0,0,0,0,0,0
  696.     DB    ' J) 0,1,2,3,4,5,6,7,8,9 ',LF,CR
  697.     DB    0,0,0,0,0,0,0,0,0,0
  698.     DB    ' K) 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 ',LF,CR
  699.     DB    0,0,0,0,0,0,0,0,0,0
  700.     DB    ' L) 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 '
  701.     DB    LF,CR,0,0,0,0,0,0,0,0,0,0
  702.     DB    ' M) 1,3,5,7,9,11,13,15,17,2,4,6,8,10,12,14,16,18 '
  703.     DB    LF,CR,0,0,0,0,0,0,0,0,0,0
  704.     DB    ' N) 1,5,9,13,17,3,7,11,15,2,6,10,14,18,4,8,12,16 '
  705.     DB    LF,CR,0,0,0,0,0,0,0,0,0,0
  706.     DB    ' O) 1,6,11,16,3,8,13,18,5,10,15,2,7,12,17,4,9,14 '
  707.     DB    LF,CR,0,0,0,0,0,0,0,0,0,0
  708.     DB    ' P) 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 '
  709.     DB    LF,CR,0,0,0,0,0,0,0,0,0,0
  710.     DB    ' Z) none of the above ',LF,CR
  711.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  712.     DB    LF,CR,0,0,0,0,0,0,0,0,0,0
  713.     DB    ' Select a skew table :$'
  714.  
  715.  
  716. MKMSG:    DB    FF,'Enter the skew table -- enter zeros for '
  717.     DB    'the extra bytes ',CR,LF
  718.     DB    '$'
  719. PROMPT:    DB    CR,LF,' skw:$'
  720. SKWOK:    DB    CR,LF,LF,' Are the skew table entries ok?$'
  721.     ;ending message...
  722.     ;
  723. SGNOFF:    DB    CR,LF
  724.     DB    FF
  725.     DB    0,0,0,0,0,0,0,0,0,0
  726. DRSEL:    DB    LF,'Drive # is now the new format drive when you '
  727.     DB    'call it "E" .',CR,LF,'$'
  728.     ;
  729.     ;
  730.     ;wrgdrv loads the wrong drive error message, prints
  731.     ;it and exits to cp/m. 
  732.     ;
  733. WRGDRV:    LXI    D,ERROR        ;load error message
  734.     CALL    OUTPUT        ;bdos
  735. DONE:    LHLD    OLDSP        ;get stack back
  736.     SPHL            ;put it in sp
  737.     RET            ;return to zcpr3
  738.     ;
  739. ERROR:    DB    7,CR,LF
  740.     DB    0,0,0,0,0,0,0,0,0,0
  741.     DB    LF,'Wrong drive selected.',CR,LF
  742.     DB    'MULTIDSK can only be run from drive A, B, C, or D.'
  743.     DB    CR,LF
  744.     DB    0,0,0,0,0,0,0,0,0,0
  745.     DB    LF,'$'
  746.     ;  
  747.     ;
  748. SKWA:    DB     1, 2, 3, 4, 5, 0, 0, 0, 0, 0
  749.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  750. SKWB:    DB     1, 3, 5, 2, 4, 0, 0, 0, 0, 0
  751.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  752. SKWC:    DB     1, 4, 2, 5, 3, 0, 0, 0, 0, 0
  753.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  754. SKWD:    DB     1, 2, 3, 4, 5, 6, 7, 8, 0, 0
  755.     DB       0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  756. SKWE:    DB     1, 2, 3, 4, 5, 6, 7, 8, 9, 0
  757.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  758. SKWF:    DB     1, 3, 5, 7, 9, 2, 4, 6, 8, 0
  759.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  760. SKWG:    DB     1, 4, 7, 2, 5, 8, 3, 6, 9, 0
  761.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  762. SKWH:    DB     1, 2, 3, 4, 5, 6, 7, 8, 9,10
  763.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  764. SKWI    DB     1, 3, 5, 7, 9, 2, 4, 6, 8,10
  765.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  766. SKWJ    DB     0, 1, 2, 3, 4, 5, 6, 7, 8, 9
  767.     DB     0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  768. SKWK    DB     1, 2, 3, 4, 5, 6, 7, 8, 9,10
  769.     DB    11,12,13,14,15,16, 0, 0, 0, 0
  770. SKWL    DB     1, 2, 3, 4, 5, 6, 7, 8, 9,10
  771.     DB    11,12,13,14,15,16,17,18, 0, 0
  772. SKWM    DB     1, 3, 5, 7, 9,11,13,15,17, 2
  773.     DB     4, 6, 8,10,12,14,16,18, 0, 0
  774. SKWN    DB     1, 5, 9,13,17, 3, 7,11,15, 2
  775.     DB     6,10,14,18, 4, 8,12,16, 0, 0
  776. SKWO    DB     1, 6,11,16, 3, 8,13,18, 5,10
  777.     DB    15, 2, 7,12,17, 4, 9,14, 0, 0
  778. SKWP    DB     0, 1, 2, 3, 4, 5, 6, 7, 8, 9
  779.     DB    10,11,12,13,14,15,16,17, 0, 0
  780.     ;
  781.     ;
  782. TYPE:    DS    1        ;type byte
  783. DPB:    DS    15        ;disk parameter block
  784. DRIVE:    DS    1        ;drive selection
  785. SKW:    DS    32        ;skew table
  786. ADDR:    DS    2        ;"e" drive parms adr.
  787. OLDSP:    DS    2        ;room for old stack pointer
  788.     ; 
  789.     DS    010H        ;16 level stack
  790. STACK:    
  791.     ;
  792.     ;
  793.     END    BEGIN
  794.  
  795.