home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol147 / findbad.a86 < prev    next >
Encoding:
Text File  |  1984-04-29  |  31.3 KB  |  1,156 lines
  1.     TITLE    'FINDBAD Ver 1.0 - Universal Version for CP/M-86'
  2. ;
  3. ;            FINDBAD.A86 Ver. 1.0
  4. ;
  5. ;    Modified for CP/M-86 from FINDBAD52.ASM of 02/16/82
  6. ;
  7. ;FINDBAD will find all bad blocks on a disk and build a file
  8. ;named [UNUSED].BAD to allocate them, thus "locking out" the
  9. ;bad blocks so CP/M-86 will not use them.
  10. ;
  11. ;Originally written by Gene Cotton,  published in "Interface
  12. ;Age", September 1980 issue, page 80.
  13. ;
  14. ;               SYSTST and BADUSR options:
  15. ;
  16. ;  Many double-density disk systems have single-density system 
  17. ;tracks.  If this is true with your system, you can change the 
  18. ;program to skip the system tracks,  without re-assembling it.  
  19. ;To do this, set the byte at 103H to a 0 if you don't want the 
  20. ;system  tracks tested,  otherwise leave it 0.   This is  also 
  21. ;necessary if you have a "blocked" disk system;  that is, when 
  22. ;the same physical disk is seperated into logical disks by use 
  23. ;of the SYSTRK word in the disk parameter block.
  24. ;
  25. ;   If  you  are a CP/M-86 1.x user,  you may assign the  user 
  26. ;number  where  [UNUSED.BAD] will be created by  changing  the  
  27. ;byte  at 104H  to  the  desired useru may assign the  user 
  28. ;number  where  [UNUSED.BAD] will be created by  changing  the  
  29. ;byte  at 104H  to  the  desired user--------------
  30. ;NOTE: If you want to  update this program, make sure you have 
  31. ;the latest version first.   After adding your changes, please 
  32. ;modem  a  copy of the new file to CP/M-NET  in  Simi  Valley, 
  33. ;California - phone (805) 527-9321 (50,  110,  300, 450 or 600 
  34. ;baud). Use the filename FNDBDA86.NEW. (K. Smith)
  35. ;
  36. ;Modifications/updates:
  37. ;
  38. ;02/03/82  Changed to CP/M-86 compatibility with the help  of 
  39. ;          DR's XLT86 utility, made changes for goofs made by 
  40. ;           XLT86,  removed ANYTHING to do with CP/M-80  Ver. 
  41. ;          1.4. (K. Smith, CP/M-Net 'SYSOP')
  42. ; 
  43. ;         Note: You must assemble with ASM86.CMD as follows:
  44. ;
  45. ;               ASM86 FINDBAD<cr>
  46. ;
  47. ;               Then create a '.CMD' as,
  48. ;
  49. ;               GENCMD FINDBAD 8080<cr>
  50. ;
  51. ;04/10/81 Changed extent DB from -1 to 0FFH so program can be
  52. ;      assembled by ASM.  Added BADUSR info to instructions
  53. ;      for altering with DDT.  (KBP)
  54. ;
  55. ;04/09/81 Changed sign-on message, added control-c abort test,
  56. ;      added '*' to console once each track    (RGF)
  57. ;
  58. ;04/07/81 Re-wrote to add the following features:
  59. ;        1) "universal" operation
  60. ;        2) DDT-changeable "SYSTRK" boolean (see above)
  61. ;        3) Report to console when bad blocks are detected
  62. ;        4) Changed the method of printing the number of
  63. ;           bad blocks found (at end of run)...the old
  64. ;           method used too much code, and was too cum-
  65. ;           bersome.
  66. ;        5) Made several cosmetic changes
  67. ;
  68. ;            Ron Fowler
  69. ;            Westland, Mich
  70. ;
  71. ;03/23/81 Set equates to standard drive and not double-sided. (KBP)
  72. ;
  73. ;03/01/81 Corrected error for a Horizon with double sided drive.
  74. ;      This uses 32k extents, which code did not take into account.
  75. ;      (Bob Clyne)
  76. ;
  77. ;02/05/81 Merged 2/2/81 and 1/24/81 changes, which were done
  78. ;      independently by Clyne and Mack.  (KBP)
  79. ;
  80. ;02/02/81 Added equates for North Star Horizon - 5.25" drives,
  81. ;      double density, single and double sided. (Bob Clyne)
  82. ;
  83. ;01/24/81 Added equates for Jade DD disk controller
  84. ;      (Pete H. Mack)
  85. ;
  86. ;01/19/81 Added equates for Icom Microfloppy 5.25" drives.
  87. ;      (Eddie Currie)
  88. ;
  89. ;01/05/81 Added equates for Heath H-17 5.25" drives.
  90. ;      (Ben Goldfarb)
  91. ;
  92. ;12/08/80 Added equates for National Multiplex D3S/D4S
  93. ;      double-density board in various formats.
  94. ;      (David Fiedler)
  95. ;
  96. ;09/22/80 Added equates for Morrow Disk Jockey 2D/SS, 256,
  97. ;      512 and 1024-byte sector options.  Fix 'S2' update
  98. ;      flag for larger max number of extents. Cleaned up
  99. ;      file. (Ben Bronson and KBP)
  100. ;
  101. ;09/14/80 Corrected DGROUP equate for MMDBL. Added new routine
  102. ;      to correct for IMDOS group allocation.  Corrected
  103. ;      error in instructions for using TEST routine.
  104. ;      (CHS) (AJ) (KBP) - (a group effort)
  105. ;
  106. ;09/08/80 Fixed several errors in Al Jewer's mods.  Changed
  107. ;      return to CP/M to warm boot so bitmap in memory will
  108. ;      be properly updated. Added conditional assembly for
  109. ;      testing program. (KBP)
  110. ;
  111. ;09/02/80 Added IMDOS double-density equates & modified for 
  112. ;      more then 256 blocks per disk. (Al Jewer)
  113. ;
  114. ;09/01/80 Changed equates so that parameters are automatically
  115. ;      set for each disk system conditional assembly (KBP)
  116. ;
  117. ;08/31/80 Add conditional assembly for Digital Microsystems FDC3
  118. ;      controller board in double-density format and fix to
  119. ;      do 256 blocks in one register. (Thomas V. Churbuck)
  120. ;
  121. ;08/31/80 Correct MAXB equate - MAXB must include the directory
  122. ;      blocks as well as the data blocks.  Fix to make sure
  123. ;      any [UNUSED].BAD file is erased before data area is
  124. ;      checked. (KBP)
  125. ;
  126. ;08/30/80 Added conditional assembly for Micromation
  127. ;      double-density format. (Charles H. Strom)
  128. ;
  129. ;08/27/80 Fix missing conditional assembly in FINDB routine.
  130. ;      Put version number in sign-on message. (KBP)
  131. ;
  132. ;08/26/80 Modified by Keith Petersen, W8SDZ, to:
  133. ;      (1) Add conditional assembly for 1k/2k groups
  134. ;      (2) Add conditional assembly for standard drives
  135. ;          and Micropolis MOD II
  136. ;      (3) Make compatible with CP/M-2.x
  137. ;      (4) Remove unneeded code to check for drive name
  138. ;          (CP/M does it for you and returns it in the FCB)
  139. ;      (5) Changed to open additional extents as needed for
  140. ;          overflow, instead of additional files
  141. ;      (6) Add conditional assembly for system tracks check
  142. ;          (some double-density disks have single-density
  143. ;        .
  144. ;
  145. ;08/06/80 Added comments and crunched some code.
  146. ;      KELLY SMITH.    805-527-9321 (Modem, 300 Baud)
  147. ;            805-527-0518 (Verba files
  148. ;      (6) Add conditional assembly for system tracks check
  149. ;          (some double-density disks have single-density
  150. ;        l)
  151. ;
  152. ;
  153. ;            Using the Program
  154. ;
  155. ; Before  using this program to "reclaim" a diskette,  it  is
  156. ;recommended that the diskette be reformatted. If this is not
  157. ;possible,  at least assure yourself that any existing    files
  158. ;on the diskette  do not contain unreadable  sectors.  If you
  159. ;have changed disks since the last warm-boot, you  must warm-
  160. ;boot again before running this program.
  161. ;
  162. ; To  use the program,    insert    both the disk containing  the
  163. ;program  FINDBAD.CMD and the diskette to be checked into the
  164. ;disk drives. It is possible that the diskette containing the
  165. ;program is the one to be checked. Assume that the program is
  166. ;on drive "A" and the suspected bad disk is on drive "B".  In
  167. ;response to the CP/M prompt "A>",  type in FINDBAD B:.  This
  168. ;will  load the file FINDBAD.CMD from drive "A" and test  the
  169. ;diskette  on  drive "B" for  unreadable  sectors.  The  only
  170. ;allowable  parameter  after  the  program name  is  a    drive
  171. ;specification    (of the form " N:") for up to four (A  to  D)
  172. ;disk drives.  If no drive is specified, the currently logged
  173. ;in drive is assumed to contain the diskette to check.
  174. ;
  175. ; The  program first checks the CP/M System tracks (0 and 1),
  176. ;and  any  errors here prohibit the disk from being  used  on
  177. ;drive    "A",  since all "warm  boots" occur using the  system
  178. ;tracks from the "A" drive.
  179. ;
  180. ; The  program next checks the first two data blocks  (groups
  181. ;to some of us) containing the directory of the diskette.  If
  182. ;errors  occur    here,  the  program  terminates  and  control
  183. ;returns  to  CP/M  (no other data blocks are  checked    since
  184. ;errors in the directory render the disk useless).
  185. ;
  186. ; Finally,  all  the remaining data blocks are    checked.  Any
  187. ;sectors  which  are  unreadable cause the data  block    which
  188. ;contains them to be stored temporarily as a "bad block".  At
  189. ;the end of this phase,  the message "XX bad blocks found" is
  190. ;d;contains them to be stored temporarily as a "bad block".  At
  191. ;the end of this phase,  the message "XX bad blocks found" is
  192. ;dname [UNUSED].BAD is created, the list of "bad blocks" is
  193. ;placed  in  the allocation map of the    directory  entry  for
  194. ;[UNUSED].BAD,    and the file is closed.  Note,    that when the
  195. ;number of "bad blocks" exceeds 16,  the  program  will  open
  196. ;additional  extents  as  required  to    hold the overflow.  I
  197. ;suggest that if the diskette has more than  32 "bad blocks",
  198. ;perhaps it should be sent to the "big disk drive in the sky"
  199. ;for the rest it deserves.
  200. ;
  201. ; The  nifty part of all this is that if any "bad blocks"  do
  202. ;occur, they are allocated to [UNUSED].BAD and no longer will
  203. ;be available to CP/M-86 for future allocation... bad sectors
  204. ;are logically locked out on the diskette
  205. ;
  206. ;
  207. ;           Using the TEST conditional assembly
  208. ;
  209. ;A  conditional  assembly has been added to allow  testing  this 
  210. ;program  to  make sure it is reading all sectors on  your  disk 
  211. ;that  are accessible to CP/M.    The program reads the disk on  a 
  212. ;block by block basis, so it is necessary to first determine the 
  213. ;number of blocks present.  To start, we must know the number of 
  214. ;sectors/block (8 sectors/block for standard IBM single  density 
  215. ;format).  If  this  value  is    not  known,  it  can  easily  be 
  216. ;determined  by saving one page in a test file and interrogating 
  217. ;using the STAT command:
  218. ;
  219. ;For standard single-density STAT will report this file as being
  220. ;1k.  The file size reported (in bytes) is the size of a  block. 
  221. ;This  value  divided  by 128 bytes/sector  (the  standard  CP/M 
  222. ;sector  size)    will  give sectors/block.  For    our  IBM  single 
  223. ;density example, we have:
  224. ;
  225. ;  (1024 bytes/block) / (128 bytes/sector) = 8 sectors/block.
  226. ;
  227. ;We  can now calculate blocks/track (assuming we know the number 
  228. ;sectors/track). In our example:
  229. ;
  230. ;  (26 sectors/track) / (8 sectors/block) = 3.25 blocks/track
  231. ;
  232. ;Now  armed with the total number of data tracks (75 in our  IBM 
  233. ;single density example), we get total blocks accessible: 
  234. ;
  235. ;  75 (tracks/disk) x (3.25 blocks/track) = 243.75 blocks/disk 
  236. ;
  237. ;CP/M cannot access a fractional block, so we round down (to 243 
  238. ;blocks  in  our  example).  Now  multiplying  total  blocks  by 
  239. ;sectors/block    results in total sectors as should  be    reported 
  240. ;when TEST is set TRUE and a good disk is read. For our example, 
  241. ;this value is 1944 sectors. 
  242. ;
  243. ;Finally,  note that if SYSTEM is set TRUE,  the sectors present 
  244. ;on  the  first  two tracks must be added in  as  well.  In  the 
  245. ;previous  example,  this  results in  1944 + 52 = 1996  sectors 
  246. ;reported by the TEST conditional.
  247. ;
  248. ;Run the program on a KNOWN-GOOD disk.    It should report that it
  249. ;has read  the    correct number of sectors.  The test conditional
  250. ;assembly should then be set FALSE and the program re-assembled.
  251. ;The test routines  cannot be left in  because this program does
  252. ;not read all the sectors in a block that is found to be bad and
  253. ;thus will report an inaccurate number of sectors read.
  254. ;
  255. ;
  256. ;Define TRUE and FALSE
  257. ;
  258. FALSE    EQU    0
  259. TRUE    EQU    NOT FALSE
  260. ;
  261. ;******************************************************************
  262. ;
  263. ;Conditional assembly switch for testing this program
  264. ;(for initial testing phase only - see remarks above)
  265. ;
  266. TEST    EQU    FALSE            ;TRUE FOR TESTING ONLY
  267. ;
  268. ;******************************************************************
  269. ;
  270. ;System equates
  271. ;
  272. BASE    EQU    0            ;STANDARD CP/M BASE ADDRESS
  273. FCB    EQU    BASE+5CH        ;CP/M DEFAULT FCB LOCATION
  274. ;
  275. ;Define ASCII characters used
  276. ;
  277. CR    EQU    0DH            ;CARRIAGE RETURN CHARACTER
  278. LF    EQU    0AH            ;LINE FEED CHARACTER
  279. TAB    EQU    09H            ;TAB CHARACTER
  280. BEL    EQU    07H            ;BELL CHARACTER
  281. ;
  282. M    EQU    Byte Ptr    0[BX]
  283. ;
  284.     cseg
  285.     ORG    BASE+100H
  286. ;
  287.     JMPS    START            ;JMP AROUND OPTION BYTES
  288. ;
  289. ;If you want the system tracks tested, then put a 1 here, otherwise 0.
  290. ;
  291. SYSTST    DB    0            ;0 IF NO SYS TRACKS, OTHERWISE 1
  292. ;
  293. ;   Change this byte to the user number you want [UNUSED].BAD 
  294. ;to reside in.  If you want it in the default user, then leave 
  295. ;it 0FFH.
  296. ;
  297. BADUSR    DB    0FFH            ;USER # WHERE [UNUSED.BAD] GOES
  298. ;0FFH = DEFAULT USER
  299. ;
  300. START:    CALL    START2            ;GO PRINT SIGNON
  301. ;
  302.     DB    CR,LF,'FINDBAD - Ver 1.0, Bad Sector Lockout Utility'
  303.     DB    CR,LF
  304.     DB    '------- Universal Version for CP/M-86 -------'
  305.     DB    CR,LF,CR,LF,'Type CTL-C to abort',CR,LF,'$'
  306. ;
  307. START2:    POP    DX            ;GET MSG ADRS
  308.     MOV    CL,9            ;bdos PRINT BUFFER function
  309.     NOBAD            ;SAY NO BAD BLOCKS, IF SO
  310.     CALL    SETDM            ;FIX DM BYTES IN FCB
  311. ;
  312. NOBAD:    CALL    CRLF
  313.     MOV    AL,TAB
  314.     CALL    DISPLAY
  315.     MOV    DX'
  316.     DB    CR,LF,CR,LF,'Type CTL-C to abort',CR,LF,'$'
  317. ;
  318. START2:    POP    DX            ;GET MSG ADRS
  319.     MOV    CL,9            ;bdos PRINT BUFFER function
  320. ,(Offset NOMSG)    ;POINT FIRST TO 'NO'
  321.     MOV    BX,Word Ptr BADBKS    ;PICK UP # BAD BLOCKS
  322.     MOV    AL,BH            ;CHECK FOR ZERO
  323.     OR    AL,BL
  324.     JZ    PMSG1            ;JUMP IF NONE
  325.     CALL    DECOUT            ;OOPS..HAD SOME BAD ONES, REPORT
  326.     JMPS    PMSG2
  327. ;
  328. PMSG1:    MOV    CL,9            ;bdos PRINT BUFFER function
  329.     INT    224
  330. ;
  331. PMSG2:    MOV    DX,(Offset ENDMSG)    ;REST OF EXIT MESSAGE
  332. ;
  333. PMSG:    MOV    CL,9
  334.     INT    224
  335. ;
  336.     MOV    CL,0            ;EXIT TO CP/M WARM BOOT
  337.     MOV    DL,0
  338.     INT    224
  339. ;
  340. ;Get actual address of BIOS routines
  341. ;
  342. SETUP    EQU    $    ;Check for drive specification
  343. ;
  344. GDRIV:    MOV    AL,Byte Ptr .FCB    ;GET DRIVE NAME
  345.     MOV    CL,AL
  346.     OR    AL,AL            ;ZERO?
  347.     JNZ    GD2            ;IF NOT,THEN GO SPECIFY DRIVE
  348.     MOV    CL,25            ;GET LOGGED-IN DRIVE
  349.     INT    224
  350.     INC    AL            ;MAKE 1-RELATIVE
  351.     MOV    CL,AL
  352. ;
  353. GD2:    CMP    AL,15+1            ;CHECK FOR HIGHEST DRIVE NUMBER
  354.     JNAE    GD3    
  355.     JMP    SELERR            ;SELECT ERROR
  356. ;
  357. GD3:    DEC    CL            ;BACK OFF FOR CP/M
  358.     PUSH    CX            ;SAVE DISK SELECTION
  359.     MOV    DL,CL            ;ALIGN FOR BDOS
  360.     MOV    CL,14            ;SELECT DISK function
  361.     INT    224
  362.     POP    CX            ;GET BACK DISK NUMBER
  363. ;
  364. SETDSK:    MOV    Byte Ptr FUNC,9        ;bios select disk function
  365.     MOV    Word Ptr BIOS_DESC,CX    ;pass disk number to bios descriptor
  366.     MOV    Word Ptr BIOS_DESC+2,0    ;fill remaining descriptor (DX) zero
  367.     MOV    DX,(Offset FUNC)    ;point to function parameter block
  368.     MOV    CL,50            ;direct bios call
  369.     INT    224            ;do it, to it...
  370. ;
  371.     MOV    DL,ES: M        ;GET SECTOR TABLE PNTR
  372.     LAHF
  373.     INC    BX
  374.     SAHF
  375.     MOV    DH,ES: M
  376.     LAHF
  377.     INC    BX
  378.     SAHF
  379.     XCHG    BX,DX
  380.     MOV    Word Ptr SECTBL,BX    ;STORE IT AWAY
  381.     MOV    BX,8            ;OFFSET TO DPB POINTER
  382.     LAHF
  383.     ADD    BX,DX
  384.     RCR    SI,1
  385.     SAHF
  386.     RCL    SI,1
  387.     MOV    AL,ES: M            ;PICK UP DPB POINTER
  388.     LAHF                ;  TO USE
  389.     INC    BX
  390.     SAHF
  391.     MOV    BH,ES: M            ;  AS PARAMETER
  392.     MOV    BL,AL            ;  TO LOGIT
  393. ;
  394. DOLOG:    CALL    LOGIT            ;LOG IN DRIVE, GET DISK PARMS
  395.     CALL    GETDIR            ;CALCULATE DIRECTORY INFORMATION
  396. ;
  397. ;
  398. HOMDSK:    MOV    Byte Ptr FUNC,8        ;bios HOME DISK function
  399.     MOV    Word Ptr BIOS_DESC,0    ;pass 'nothing' number to bios descriptor
  400.     MOV    Word PtrOV    Byte Ptr FUNC,8        ;bios HOME DISK function
  401.     MOV    Word Ptr BIOS_DESC,0    ;pass 'nothing' number to bios descriptor
  402.     MOV    Word Ptrect bios call
  403.     INT    224            ;do it, to it...
  404. ;
  405. ;Now set the required user number
  406. ;
  407.     MOV    AL,Byte Ptr BADUSR    ;GET THE USER NUMBER
  408.     CMP    AL,0FFH            ;IF IT IS 0FFH, THEN RETURN
  409.     JNZ    L_6
  410.     RET
  411. L_6:
  412.     MOV    CL,32            ;GET/SET USER CODE
  413.     INT    224
  414.     RET
  415. ;
  416. ;Look for bad blocks
  417. ;
  418. FINDB:    MOV    AL,Byte Ptr SYSTST
  419.     OR    AL,AL
  420.     JZ    DODIR            ;JUMP IF NO SYS TRACKS TO BE TESTED
  421.     CALL    CHKSYS            ;CHECK FOR BAD BLOCKS ON TRACK 0 AND 1
  422. ;
  423. DODIR:    CALL    CHKDIR            ;CHECK FOR BAD BLOCKS IN DIRECTORY
  424.     CALL    TELL1
  425. ;
  426.     DB    CR,LF,'Testing data area...',CR,LF,'$'
  427. ;
  428. TELL1:    POP    DX
  429.     MOV    CL,9            ;bdos PRINT STRING function
  430.     INT    224
  431.     CALL    ERAB            ;ERASE ANY [UNUSED].BAD FILE
  432.     MOV    BX,Word Ptr DIRBKS    ;START AT FIRST DATA BLOCK
  433.     MOV    CX,BX            ;PUT INTO [CX]
  434. ;
  435. FINDBA:    CALL    READB            ;READ THE BLOCK
  436.     JZ    L_7    
  437.     CALL    SETBD            ;IF BAD, ADD BLOCK TO LIST
  438. L_7:
  439.     LAHF                ;BUMP TO NEXT BLOCK
  440.     INC    CX
  441.     SAHF
  442.     MOV    BX,Word Ptr DSM
  443.     MOV    DX,CX            ;SET UP FOR (MAXGRP - CURGRP)
  444.     SBB    BX,DX            ;DO SUBTRACT: (MAXGRP - CURGRP)
  445.     JNB    FINDBA            ;UNTIL CURGRP>MAXGRP
  446.     CALL    CRLF
  447.     MOV    BX,Word Ptr DMCNT    ;GET NUMBER OF BAD SECTORS
  448.     MOV    AL,BH
  449.     OR    AL,BL            ;SET ZERO FLAG, IF NO BAD BLOCKS
  450.     RET                ;RETURN FROM "FINDB"
  451. ;
  452. ;Check system tracks, notify user if bad, but continue
  453. ;
  454. CHKSYS:    CALL    CHSY1            ;bdos PRINT MESSAGE
  455. ;
  456.     DB    CR,LF,'Testing system tracks...',CR,LF,'$'
  457. ;
  458. CHSY1:    POP    DX
  459.     MOV    CL,9            ;bdos PRINT STRING function
  460.     INT    224
  461.     MOV    BX,0            ;SET TRACK 0, SECTOR 1
  462.     MOV    Word Ptr TRACK,BX
  463.     LAHF
  464.     INC    BX
  465.     SAHF
  466.     MOV    Word Ptr SECTOR,BX
  467. ;
  468. CHKSY1:    CALL    READS            ;READ A SECTOR
  469.     JNZ    SYSERR            ;NOTIFY, IF BAD BLOCKS HERE
  470.     MOV    BX,Word Ptr SYSTRK    ;SET UP (TRACK-SYSTRK)
  471.     XCHG    BX,DX
  472.     MOV    BX,Word Ptr TRACK
  473.     SBB    BX,DX            ;DO THE SUBTRACT
  474.     JB    CHKSY1            ;LOOP WHILE TRACK < SYSTRK
  475.     RET                ;RETURN FROM "CHKSYS"
  476. ;
  477. SYSERR:    MOV    DX,(Offset ERMSG5)    ;SAY NO GO, AND BAIL OUT
  478.     MOV    CL,9            ;bdos PRINT BUFFER function
  479.     INT    224
  480.     RET                ;RETURN FROM "SYSERR"
  481. ;
  482. ;Check for bad blocks in directory area
  483. ;
  484. CHKDIR:    CALL    CHKD1
  485. ;
  486.     DB    CR,LF,'Testing directory area...',CR,LF,'$'
  487. ;
  488. CHKD1:    POP    DX
  489.     MOV    CL,9            ;bdos PRINT STRING function
  490.     INT    224
  491.     MOV    CX,0            ;START AT BLOCK 0
  492. ;
  493. CHKDI1:    CALL    READB            ;READ A BLOCK
  494.     JZ    L_8    
  495.     JMP    ERROR6            ;IF BAD, INDICATE ERROR IN DIRECTORY AREA
  496. L_8:
  497.     LAHF                ;BUMP FOR NEXT BLOCK
  498.     INC    CX
  499.     SAHF
  500.     MOV    BX,Word Ptr DIRBKS    ;SET UP (CURGRP - DIRBKS)
  501.     LAHF                ;MAKE 0-RELATIVE
  502.     DEC    BX
  503.     SAHF
  504.     MOV    DX,CX
  505.     SBB    BX,DX            ;DO THE SUBTRACT
  506.     JNB    CHKDI1            ;LOOP UNTIL CURGRP > DIRGRP
  507.     RET                ;RETURN FROM "CHKDIR"
  508. ;
  509. ;Read all sectors in block, and return zero flag set if none bad
  510. ;
  511. READB:    CALL    CNVRTB            ;CONVERT TO TRACK/SECTOR IN H&L REGS.
  512.     MOV    AL,Byte Ptr BLM
  513.     INC    AL            ;NUMBER OF SECTORS/BLOCK
  514.     MOV    DH,AL            ;  IN D REG
  515. ;
  516. READBA:    PUSH    DX
  517.     CALL    READS            ;READ SKEWED SECTOR
  518.     POP    DX
  519.     JZ    L_9    
  520.     RET                ;ERROR IF NOT ZERO...
  521. L_9:
  522.     DEC    DH            ;DEBUMP SECTOR/BLOCK
  523.     JNZ    READBA            ;DO NEXT, IF NOT FINISHED
  524.     RET                ;RETURN FROM "READBA"
  525. ;
  526. ;Convert block number to track and skewed sector number
  527. ;
  528. CNVRTB:    PUSH    CX            ;SAVE CURRENT GROUP
  529.     MOV    BX,CX            ;NEED IT IN [BX], FOR EASY SHIFTING
  530.     MOV    AL,Byte Ptr BSH        ;DPB VALUE THAT TELLS HOW TO
  531. ;
  532. SHIFT:    SHL    BX,1            ;  SHIFT GROUP NUMBER TO GET
  533.     DEC    AL            ;  DISK-DATA-AREA RELATIVE
  534.     JNZ    SHIFT            ;  SECTOR NUMBER
  535.     XCHG    BX,DX            ;REL SECTOR # INTO DE
  536.     MOV    BX,Word Ptr SPT        ;SECTORS PER TRACK FROM DPB
  537.     NOT    BX            ;1ST 1'S COMPLEMENT...
  538.     INC    BX            ;...THEN 2'S COMPLEMENT
  539.     XCHG    BX,DX
  540.     MOV    CX,0            ;INITIALIZE QUOTIENT
  541. ;
  542. ;Divide by number of sectors
  543. ;    quotient = track
  544. ;         mod = sector
  545. ;
  546. DIVLP:    LAHF                ;DIRTY DIVISION
  547.     INC    CX
  548.     SAHF
  549.     LAHF
  550.     ADD    BX,DX
  551.     RCR    SI,1
  552.     SAHF
  553.     RCL    SI,1
  554.     JB    DIVLP
  555.     LAHF                ;FIXUP LAST
  556.     DEC    CX
  557.     SAHF
  558.     XCHG    BX,DX
  559.     MOV    BX,Word Ptr SPT
  560.     LAHF
  561.     ADD    BX,DX
  562.     SAHF
  563.     LAHF
  564.     INC    BX
  565.     SAHF
  566.     MOV    Word Ptr SECTOR,BX    ;NOW HAVE LOGICAL SECTOR
  567.     MOV    BX,Word Ptr SYSTRK    ;BUT BEFORE WE HAVE TRACK #,
  568.     LAHF                ;  WE HAVE TO ADD SYS TRACK OFFSET
  569.     ADD    BX,CX
  570.     RCR    SI,1
  571.     SAHF
  572.     RCL    SI,1
  573.     MOV    Word Ptr TRACK,BX
  574.     POP    CX            ;THIS WAS OUR GROUP NUMBER
  575.     RET
  576. ;
  577. ;READS reads a logical sector (if it can)
  578. ;and returns zero flag set if no error.
  579. ;
  580. READS:    PUSH    CX            ;SAVE THE GROUP NUMBER
  581. ;
  582.     CALL    LTOP            ;CONVERT LOGICAL TO PHYSICAL
  583.     MOV    BX,Word Ptr PHYSEC    ;GET PHYSICAL SECTOR
  584.     MOV    CX,BX            ;INTO [CX]
  585. ;
  586. SETSEC:    MOV    BYTE PTR FUNC,11    ;bios SET SECTOR function
  587.     MOV    WORD PX,(Offset FUNC)    ;point to function parameter block
  588.     MOV    CL,50            ;direct bios call
  589.     INT    224            ;do it, to it...
  590. ;
  591.     MOV    BX,WordPtr PHYSEC    ;GET PHYSICAL SECTOR
  592.     MOV    CX,BX            ;INTO [CX]
  593. ;
  594. SETSEC:    MOV    BYTE PTR FUNC,11    ;bios SET SECTOR function
  595.     MOV    WORD P Ptr TRACK    ;NOW SET THE TRACK
  596.     MOV    CX,BX            ;CP/M WANTS IT IN [CX]
  597. ;
  598. SETTRK:    MOV    BYTE PTR FUNC,10    ;bios SELECT TRACK function
  599.     MOV    WORD PTR BIOS_DESC,CX    ;pass track number to bios descriptor
  600.     MOV    WORD PTR BIOS_DESC+2,0    ;fill remaining descriptor (DX) zero
  601.     MOV    DX,(Offset FUNC)    ;point to function parameter block
  602.     MOV    CL,50            ;direct bios call
  603.     INT    224            ;do it, to it...
  604. ;
  605. ;Now do the sector read
  606. ;
  607. DREAD:    MOV    BYTE PTR FUNC,13    ;bios READ SECTOR function
  608.     MOV    WORD PTR BIOS_DESC,0    ;pass 'nothing' number to bios descriptor
  609.     MOV    WORD PTR BIOS_DESC+2,0    ;fill remaining descriptor (DX) zero
  610.     MOV    DX,(Offset FUNC)    ;point to function parameter block
  611.     MOV    CL,50            ;direct bios call
  612.     INT    224            ;do it, to it...
  613. ;
  614.     OR    AL,AL            ;SET FLAGS
  615.     LAHF                ;SAVE ERROR FLAG
  616.     XCHG    AL,AH
  617.     PUSH    AX
  618.     MOV    BX,Word Ptr SECTOR    ;GET LOGICAL SECTOR #
  619.     LAHF                ;WE WANT TO INCREMENT TO NEXT
  620.     INC    BX
  621.     SAHF
  622.     XCHG    BX,DX            ;BUT FIRST...CHECK OVERFLOW
  623.     MOV    BX,Word Ptr SPT        ;  BY DOING (SECPERTRK-SECTOR)
  624.     SBB    BX,DX            ;DO THE SUBTRACTION
  625.     XCHG    BX,DX
  626.     JNB    NOOVF            ;JUMP IF NOT SECTOR>SECPERTRK
  627. ;
  628. ;Sector overflow...bump track number, reset sector
  629. ;
  630.     MOV    BX,Word Ptr TRACK
  631.     LAHF
  632.     INC    BX
  633.     SAHF
  634.     MOV    Word Ptr TRACK,BX
  635.     MOV    AL,'*'            ;TELL CONSOLE ANOTHER TRACK DONE
  636.     CALL    DISPLAY
  637.     CALL    STOP            ;SEE IF CONSOLE WANTS TO QUIT
  638.     MOV    BX,1            ;NEW SECTOR NUMBER ON NEXT TRACK
  639. ;
  640. NOOVF:    MOV    Word Ptr SECTOR,BX    ;PUT SECTOR AWAY
  641.     POP    AX            ;GET BACK ERROR FLAGS
  642.     XCHG    AL,AH
  643.     SAHF
  644.     POP    CX            ;RESTORE GROUP NUMBER
  645.     RET
  646. ;
  647. ;Convert logical sector # to physical
  648. ;
  649. LTOP:    MOV    BX,Word Ptr SECTBL    ;SET UP PARAMETERS
  650.     XCHG    BX,DX            ;  FOR CALL TO SECTRAN
  651.     MOV    BX,Word Ptr SECTOR
  652.     MOV    CX,BX
  653.     DEC    CX            ;ALWAYS CALL SECTRAN W/ZERO-REL SEC #
  654. ;
  655. SECT1:    CALL    SECTRN            ;DO THE SECTOR TRANSLATION
  656.     MOV    AL,Byte Ptr SPT+1    ;CHECK IF BIG TRACKS
  657.     OR    AL,AL            ;SET FLAGS (TRACKS > 256 SECTORS)
  658.     JNZ    LTOP1            ;NO SO SKIP
  659.     MOV    BH,AL            ;ZEROByte Ptr SPT+1    ;CHECK IF BIG TRACKS
  660.     OR    AL,AL            ;SET FLAGS (TRACKS > 256 SECTORS)
  661.     JNZ    LTOP1            ;NO SO SKIP
  662.     MOV    BH,AL            ;ZEROOV    BYTE PTR FUNC,16    ;bios SECTOR TRANSLATE function
  663.     MOV    WORD PTR BIOS_DESC,CX    ;pass sector to bios descriptor
  664.     MOV    WORD PTR BIOS_DESC+2,DX    ;translate table offset
  665.     MOV    DX,(Offset FUNC)    ;point to function parameter block
  666.     MOV    CL,50            ;direct bios call
  667.     INT    224            ;do it, to it...
  668.     ret                ;return from 'sectrn'
  669. ;
  670. ;Put bad block in bad block list
  671. ;
  672. SETBD:    PUSH    CX
  673.     CALL    SETBD1
  674.     DB    CR,LF,BEL,'Bad block: $'
  675. ;
  676. SETBD1:    POP    DX            ;RETRIEVE ARG
  677.     MOV    CL,9            ;bdos PRINT STRING
  678.     INT    224
  679.     POP    CX            ;GET BACK BLOCK NUMBER
  680.     MOV    AL,CH
  681.     CALL    HEXO            ;bdos PRINT IN HEX
  682.     MOV    AL,CL
  683.     CALL    HEXO
  684.     CALL    CRLF
  685.     MOV    BX,Word Ptr DMCNT    ;GET NUMBER OF SECTORS
  686.     MOV    AL,Byte Ptr BLM        ;GET BLOCK SHIFT VALUE
  687.     INC    AL            ;MAKES SECTOR/GROUP VALUE
  688.     MOV    DL,AL            ;WE WANT 16 BITS
  689.     MOV    DH,0
  690.     ADD    BX,DX            ;BUMP BY NUMBER IN THIS BLOCK
  691.     MOV    Word Ptr DMCNT,BX    ;UPDATE NUMBER OF SECTORS
  692.     MOV    BX,Word Ptr BADBKS    ;INCREMENT NUMBER OF BAD BLOCKS
  693.     INC    BX
  694.     MOV    Word Ptr BADBKS,BX
  695.     MOV    BX,Word Ptr DMPTR    ;GET POINTER INTO DM
  696.     MOV    M,CL            ;...AND PUT BAD BLOCK NUMBER
  697.     INC    BX            ;BUMP TO NEXT AVAILABLE EXTENT
  698.     MOV    AL,Byte Ptr DSM+1    ;CHECK IF 8 OR 16 BIT BLOCK SIZE
  699.     OR    AL,AL
  700.     JZ    SMGRP            ;JUMP IF 8 BIT BLOCKS
  701.     MOV    M,CH            ;ELSE STORE HI BYTE OF BLOCK #
  702.     LAHF                ;AND BUMP POINTER
  703.     INC    BX
  704.     SAHF
  705. ;
  706. SMGRP:    MOV    Word Ptr DMPTR,BX    ;SAVE DM POINTER, FOR NEXT TIME THROUGH HERE
  707.     RET                ;RETURN FROM "SETBD"
  708. ;
  709. ;Eliminate any previous [UNUSED].BAD entries
  710. ;
  711. ERAB:    MOV    DX,(Offset BFCB)    ;POINT TO BAD FCB
  712.     MOV    CL,19            ;bdos DELETE FILE function
  713.     INT    224
  714.     RET
  715. ;
  716. ;Create [UNUSED].BAD file entry
  717. ;
  718. OPENB:    MOV    DX,(Offset BFCB)    ;POINT TO BAD FCB
  719.     MOV    CL,22            ;bdos MAKE FILE function
  720.     INT    224
  721.     CMP    AL,0FFH            ;CHECK FOR OPEN ERROR
  722.     JZ    L_10    
  723.     RET                ;RETURN FROM "OPENB", IF NO ERROR
  724. L_10:
  725.     JMP    ERROR7            ;BAIL OUT...CAN'T CREATE [UNUSED].BAD
  726. ;
  727. CLOSEB:    XOR    AL,AL
  728.     MOV    AL,Byte Ptr BFCB+14    ;GET CP/M 'S2' BYTE
  729.     AND    AL,1FH            ;ZERO UPDATE FLAGS
  730.     MOV    Byte Ptr BFCB+14,AL    ;RESTORE IT TO OUR FCB
  731.     MOV    DX,(Offset BFCB)    ;FCB FOR [UNUSED].BAD
  732.     MOV    CL,16            ;bdos CLOSE FILE function
  733.     INT    224
  734.     RET                ;RETURN FROM "CLOSEB"
  735. ;
  736. ;Move bad area DM to BFCB
  737. ;
  738. SETDM:    MOV    BX,(Offset DM)        ;GET DM
  739.     MOV    Word Ptr DMPTR,BX    ;SAVE AS NEW POINTER
  740.     MOV    AL,Byte Ptr EXM        ;GET THE EXTENT SHIFT FACTOR
  741.     MOV    CL,0            ;INIT BIT COUNT
  742.     CALL    COLECT            ;GET SHIFT VALUE
  743.     MOV    BX,128            ;STARTING EXTENT SIZE
  744.     MOV    AL,CL            ;FIRST SEE IF ANY SHIFTS TO DO
  745.     OR    AL,AL
  746.     JZ    NOSHFT            ;JUMP IF NONE
  747. ;
  748. ESHFT:    SHL    BX,1            ;SHIFT
  749.     DEC    AL            ;BUMP
  750.     JNZ    ESHFT            ;LOOP
  751. ;
  752. NOSHFT:    PUSH    BX            ;SAVE THIS, IT IS RECORDS PER EXTENT
  753.     MOV    AL,Byte Ptr BSH        ;GET BLOCK SHIFT
  754.     MOV    CH,AL
  755. ;
  756. BSHFT:    CLC                ;CLEAR CARRY FLAG
  757.     RCR    BX,1            ;SHIFT RIGHT
  758.     DEC    CH
  759.     JNZ    BSHFT            ;TO GET BLOCKS PER EXTENT
  760.     MOV    AL,BL            ;IT'S IN [BL] (CAN'T BE >16)
  761.     MOV    Byte Ptr BLKEXT,AL    ;SET BLOCK EXTENT, WILL NEED THIS LATER
  762.     POP    BX            ;GET BACK REC/EXT
  763. ;
  764. SET1:    XCHG    BX,DX            ;NOW HAVE REC/EXTENT IN [DX]
  765.     MOV    BX,Word Ptr DMCNT    ;COUNT OF BAD SECTORS
  766. ;
  767. SETDMO:    PUSH    BX            ;SET FLAGS ON (DMCNT-BADCNT)
  768.     SBB    BX,DX            ;HAVE TO SUBTRACT FIRST
  769.     MOV    CX,BX            ;SAVE RESULT IN [CX]
  770.     POP    BX            ;THIS POP MAKES IT COMPARE ONLY
  771.     JB    SETDME            ;JUMP IF LESS THAN 1 EXTENT WORTH
  772.     MOV    AL,CH
  773.     OR    AL,CL            ;TEST IF SUBTRACT WAS 0
  774.     JZ    EVENEX            ;EXTENT IS EXACTLY FILLED (SPL CASE)
  775.     MOV    BX,CX            ;RESTORE RESULT TO [BX]
  776.     PUSH    BX            ;SAVE TOTAL
  777.     PUSH    DX            ;AND SECTORS/EXTENT
  778.     XCHG    BX,DX
  779.     CALL    SETDME            ;PUT AWAY ONE EXTENT
  780.     XCHG    BX,DX
  781.     MOV    Word Ptr DMPTR,BX    ;PUT BACK NEW DM POINTER
  782.     POP    DX            ;GET BACK SECTORS/EXTENT
  783.     POP    BX            ;AND COUNT OF BAD SECTORS
  784.     JMPS    SETDMO            ;AND LOOP
  785. ;
  786. ;Handle the special case of a file that ends on an extent
  787. ;boundary.  CP/M requires that such a file have a succeeding
  788. ;empty extent in order for the BDOS to properly access the file.
  789. ;
  790. EVENEX:    XCHG    BX,DX            ;FIRST SET EXTENT W/BAD BLOCKS
  791.     CALL    SETDME
  792.     XCHG    BX,DX
  793.     MOV    Word Ptr DMPTR,BX
  794.     MOV    BX,0            ;NOW SET ONE WITH NO DATA BLOCKS
  795. ;
  796. ;Fill in an extent's worth of bad sectors/block numbers.
  797. ;Also fill in the extent number in the FCB.
  798. ;
  799. SETDME:    PUSH    BX            ;SAVE RECORD COUNT
  800.     MOV    AL,Byte Ptr EXTNUM    ;UPDATE EXTENT BYTE
  801.     INC    AL
  802.     MOV    Byte Ptr EXTNUM,AL    ;SAVE FOR LATER
  803.     MOV    Byte Ptr BFCB+12,AL    ; AND PUT IN FCB
  804.     CALL    OPENB            ;OPEN THIS EXTENT
  805.     POP    BX            ;RETRIEVE REC COUNT
  806. ;
  807. ;Divide record count by 128 to get the number
  808. ;of l
  809.     OR    AL,BL            ;  OF NO RECORDS
  810.     JZ    SKIP
  811. ;
  812. DIVLOP:    ADD    BX,DX            ;SUBTRACT
  813.     INC    CH            ;BUMP QUOTIENT
  814.     JB    DIVLOP
  815.     MOV    DX,128            ; IN FCB
  816.     CALL    OPENB            ;OPEN THIS EXTENT
  817.     POP    BX            ;RETRIEVE REC COUNT
  818. ;
  819. ;Divide record count by 128 to get the number
  820. ;of lFIX UP OVERSHOOT
  821.     ADD    BX,DX
  822.     DEC    CH
  823.     MOV    AL,BH            ;TEST FOR WRAPAROUND
  824.     OR    AL,BL
  825.     JNZ    SKIP
  826.     MOV    BL,80H            ;RECORD LENGTH
  827.     DEC    CH
  828. ;
  829. SKIP:    MOV    AL,Byte Ptr EXTNUM    ;NOW FIX UP EXTENT NUM
  830.     ADD    AL,CH
  831.     MOV    Byte Ptr EXTNUM,AL
  832.     MOV    Byte Ptr BFCB+12,AL
  833.     MOV    AL,BL            ;MOD IS RECORD COUNT
  834.     MOV    Byte Ptr BFCB+15,AL    ;THAT GOES IN RC BYTE
  835. ;
  836. MOVDM:    MOV    AL,Byte Ptr BLKEXT    ;GET BLOCKS PER EXTENT
  837.     MOV    CH,AL            ;INTO B
  838. ;
  839. SETD1:    MOV    BX,Word Ptr DMPTR    ;POINT TO BAD ALLOCATION MAP
  840.     XCHG    BX,DX
  841.     MOV    BX,(Offset BFCB)+16    ;DISK ALLOC MAP IN FCB
  842. ;
  843. SETDML:    MOV    SI,DX
  844.     MOV    AL,[SI]
  845.     MOV    M,AL
  846.     INC    BX
  847.     INC    DX
  848. ;
  849. ;Now see if 16 bit groups...if so,
  850. ;we have to move another byte
  851. ;
  852.     MOV    AL,Byte Ptr DSM+1    ;THIS TELLS US
  853.     OR    AL,AL
  854.     JZ    BUMP1            ;IF ZERO, THEN NOT
  855.     MOV    SI,DX            ;IS 16 BITS, SO DO ANOTHER
  856.     MOV    AL,[SI]
  857.     MOV    M,AL
  858.     LAHF
  859.     INC    BX
  860.     SAHF
  861.     LAHF
  862.     INC    DX
  863.     SAHF
  864. ;
  865. BUMP1:    DEC    CH            ;COUNT DOWN
  866.     JNZ    SETDML
  867.     PUSH    DX
  868.     CALL    CLOSEB            ;CLOSE THIS EXTENT
  869.     POP    DX
  870.     RET
  871. ;
  872. ;Error messages
  873. ;
  874. SELERR:    MOV    DX,(Offset SELEMS)    ;SAY NO GO, AND BAIL OUT
  875.     JMP    PMSG
  876. ;
  877. SELEMS    DB    CR,LF,'Drive specifier out of range$'
  878. ;
  879. ERMSG5    DB    CR,LF,BEL,'+++ Warning...System tracks'
  880.     DB    ' bad +++',CR,LF,CR,LF,'$'
  881. ;
  882. ERROR6:    MOV    DX,(Offset ERMSG6)    ;OOPS...CLOBBERED DIRECTORY
  883.     JMP    PMSG
  884. ;
  885. ERMSG6    DB    CR,LF,BEL,'Bad directory area, try reformatting$'
  886. ;
  887. ERROR7:    MOV    DX,(Offset ERMSG7)    ;SAY NO GO, AND BAIL OUT
  888.     JMP    PMSG
  889. ;
  890. ERMSG7    DB    CR,LF,'Can''t create [UNUSED].BAD$'
  891. ;
  892. ;
  893. ;==== SUBROUTINES ====
  894. ;
  895. ;Decimal output routine
  896. ;
  897. DECOUT:    PUSH    CX
  898.     PUSH    DX
  899.     PUSH    BX
  900.     MOV    CX,-10
  901.     MOV    DX,-1
  902. ;
  903. DECOU2:    ADD    BX,CX
  904.     INC    DX
  905.     JB    DECOU2
  906.     MOV    CX,10
  907.     ADD    BX,CX
  908.     XCHG    BX,DX
  909.     MOV    AL,BH
  910.     OR    AL,BL
  911.     JZ    L_17    
  912.     CALL    DECOUT
  913. L_17:
  914.     MOV    AL,DL
  915.     ADD    AL,'0'
  916.     CALL    DISPLAY
  917.     POP    BX
  918.     POP    DX
  919.     POP    CX
  920.     RET
  921. ;
  922. ;Carriage-return/line-feed to console
  923. ;
  924. CRLF:    MOV    AL,CR
  925.     CALL    DISPLAY
  926.     MOV    AL,LF            ;FALL INTO 'DISPLAY'
  927. ;
  928. DISPLAY:PET
  929. ;
  930. ;Carriage-return/line-feed to console
  931. ;
  932. CRLF:    MOV    AL,CR
  933.     CALL    DISPLAY
  934.     MOV    AL,LF            ;FALL INTO 'DISPLAY'
  935. ;
  936. DISPLAY:P PRINT CHARACTER
  937.     POP    BX
  938.     POP    DX
  939.     POP    CX
  940.     RET
  941. ;
  942. ;Subroutine to test console for control-c abort
  943. ;
  944. STOP:    MOV    BYTE PTR FUNC,2        ;BIOS CONSOLE STATUS FUNCTION
  945.     MOV    WORD PTR BIOS_DESC,0    ;PASS 'NOTHING' NUMBER TO BIOS DESCRIPTOR
  946.     MOV    WORD PTR BIOS_DESC+2,0    ;FILL REMAINING DESCRIPTOR (DX) ZERO
  947.     MOV    DX,(OFFSET FUNC)    ;POINT TO FUNCTION PARAMETER BLOCK
  948.     MOV    CL,50            ;direct bios call
  949.     INT    224            ;do it, to it...
  950. ;
  951.     OR    AL,AL            ;TEST FLAGS ON ZERO
  952.     JNZ    L_18    
  953.     RET                ;RETURN IF NO CHAR
  954. L_18:    MOV    BYTE PTR FUNC,3        ;BIOS READ CONSOLE CHARACTER FUNCTION
  955.     MOV    WORD PTR BIOS_DESC,0    ;PASS 'NOTHING' NUMBER TO BIOS DESCRIPTOR
  956.     MOV    WORD PTR BIOS_DESC+2,0    ;FILL REMAINING DESCRIPTOR (DX) ZERO
  957.     MOV    DX,(OFFSET FUNC)    ;POINT TO FUNCTION PARAMETER BLOCK
  958.     MOV    CL,50            ;direct bios call
  959.     INT    224            ;do it, to it...
  960. ;
  961.     CMP    AL,'C'-40H        ;IS IT CONTROL-C?
  962.     JZ    L_19    
  963.     RET                ;RETURN IF NOT
  964. L_19:
  965.     MOV    DX,(Offset ABORTM)    ;EXIT WITH MESSAGE
  966.     JMP    PMSG
  967. ;
  968. ABORTM    DB    CR,LF
  969.     DB    'Test aborted by control-C'
  970.     DB    CR,LF,'$'
  971. ;
  972. ;Move from [BX] to [DX], Count in [CX]
  973. ;
  974. MOVE:    MOV    AL,ES: M
  975.     MOV    SI,DX
  976.     MOV    [SI],AL
  977.     LAHF
  978.     INC    BX
  979.     SAHF
  980.     LAHF
  981.     INC    DX
  982.     SAHF
  983.     DEC    CH
  984.     JNZ    MOVE
  985.     RET
  986. ;
  987. ;Print byte in accumulator in hex
  988. ;
  989. HEXO:    LAHF                ;SAVE FOR SECOND HALF
  990.     XCHG    AL,AH
  991.     PUSH    AX
  992.     XCHG    AL,AH
  993.     ROR    AL,1            ;MOVE INTO POSITION
  994.     ROR    AL,1
  995.     ROR    AL,1
  996.     ROR    AL,1
  997.     CALL    NYBBLE            ;bdos PRINT MS NYBBLE
  998.     POP    AX
  999.     XCHG    AL,AH
  1000. ;
  1001. NYBBLE:    AND    AL,0FH            ;LO NYBBLE ONLY
  1002.     ADD    AL,90H
  1003.     DAA
  1004.     ADC    AL,40H
  1005.     DAA
  1006.     JMP    DISPLAY            ;bdos PRINT IN HEX
  1007. ;
  1008. ;Subroutine to determine the number
  1009. ;of groups reserved for the directory
  1010. ;
  1011. GETDIR:    MOV    CL,0            ;INIT BIT COUNT
  1012.     MOV    AL,Byte Ptr AL0        ;READ DIR GRP BITS
  1013.     CALL    COLECT            ;COLLECT COUNT OF DIR GRPS..
  1014.     MOV    AL,Byte Ptr AL1        ;..IN REGISTER [CL]
  1015.     CALL    COLECT
  1016.     MOV    BL,CL
  1017.     MOV    BH,0            ;[CX] NOW HAS A DEFAULT START GRP #
  1018.     MOV    Word Ptr DIRBKS,BX    ;SAVE FOR LATER
  1019.     RET
  1020. ;
  1021. ;Collect the number of '1' bits in A as a count in [CL]
  1022. ;
  1023. COLECT:    MOV    CH,8
  1024. ;
  1025. COLOP:    RCL    AL,1
  1026.     JNB    COSKIP
  1027.     INC    CL
  1028. ;
  1029. COSKIP:    DEC    CH
  1030.     JNZ    COLOP
  1031.     RET
  1032. ;
  1033. ;Routine to fill in disk parameters
  1034. ;
  1035. LOGIT:    MOV    DX,(Offset DPB)        ;   THEN MOVE TO LOCAL
  1036.     MOV    CH,(Offset DPBLEN)    ;  WORKSPACE
  1037.     CALL    MOVE
  1038.     RET
  1039. ;
  1040. L_22    EQU    $
  1041.     dseg    $
  1042.     ORG    Offset L_22
  1043. ;
  1044. ;--------------------------------------------------
  1045. ;The disk parameter block is moved here from CP/M-86
  1046. ;
  1047. DPB    EQU    (Offset $)        ;DISK PARAMETER BLOCK (COPY)
  1048. ;
  1049. SPT    RS    2            ;SECTORS PER TRACK
  1050. BSH    RS    1            ;BLOCK SHIFT
  1051. BLM    RS    1            ;BLOCK MASK
  1052. EXM    RS    1            ;EXTENT MASK
  1053. DSM    RS    2            ;MAXIMUM BLOCK NUMBER
  1054. DRM    RS    2            ;MAXIMUM DIRECTORY BLOCK NUMBER
  1055. AL0    RS    1            ;DIRECTORY ALLOCATION VECTOR
  1056. AL1    RS    1            ;DIRECTORY ALLOCATION VECTOR
  1057. CKS    RS    2            ;CHECKED DIRECTORY ENTRIES
  1058. SYSTRK    RS    2            ;SYSTEM TRACKS
  1059. ;
  1060. ;End of disk parameter block
  1061. ;
  1062. DPBLEN    EQU    (Offset $)-(Offset DPB)    ;LENGTH OF DISK PARM BLOCK
  1063. ;
  1064. ;--------------------------------------------------
  1065. BLKEXT    DB    0            ;BLOCKS PER EXTENT
  1066. DIRBKS    DW    0            ;CALCULATED # OF DIR BLOCKS
  1067. ;
  1068. BFCB    DB    0,'[UNUSED]BAD',0,0,0,0
  1069. FCBDM    RS    17
  1070. ;
  1071. NOMSG    DB    'No$'
  1072. ENDMSG    DB    ' bad blocks found',CR,LF,'$'
  1073. ;
  1074. BADBKS    DW    0            ;COUNT OF BAD BLOCKS
  1075. SECTOR    DW    0            ;CURRENT SECTOR NUMBER
  1076. TRACK    DW    0            ;CURRENT TRACK NUMBER
  1077. PHYSEC    DW    0            ;CURRENT PHYSICAL SECTOR NUMBER
  1078. SECTBL    DW    0            ;SECTOR SKEW TABLE POINTER
  1079. ;
  1080. EXTNUM    DB    0FFH            ;USED FOR UPDATING EXTENT NUMBER
  1081. DMCNT    DW    0            ;NUMBER OF BAD SECTORS
  1082. DMPTR    DW    (Offset DM)        ;POINTER TO NEXT BLOCK ID
  1083. ;
  1084. ;storage for 5 byte BIOS function descriptor
  1085. ;
  1086. FUNC        RS    1        ;bios function code goes here
  1087. BIOS_DESC    RS    2        ;[CX] data goes here
  1088.         RS    2        ;[DX] data goes here
  1089. ;
  1090. DM    EQU    (Offset $)        ;BAD BLOCK ALLOCATION MAP
  1091. ;
  1092.     DW    0            ;RESERVE 2 BYTES
  1093.     DW    0            ;RESERVE 2 BYTES
  1094.     DW    0            ;RESERVE 2 BYTES
  1095.     DW    0            ;RESERVE 2 BYTES
  1096.     DW    0            ;RESERVE 2 BYTES
  1097.     DW    0            ;RESERVE 2 BYTES
  1098.     DW    0            ;RESERVE 2 BYTES
  1099.     DW    0            ;RESERVE 2 BYTES
  1100.     DW    0            ;RESERVE 2 BYTES
  1101.     DW    0            ;RESERVE 2 BYTES
  1102.     DW    0            ;RESERVE 2 BYTES
  1103.     DW    0            ;RESERVE 2 BYTES
  1104.     DW    0            ;RESERVE 2 BYTES
  1105.     DW    0            ;RESERVE 2 BYTES
  1106.     DW    0            ;RESERVE 2 BYTES
  1107.     DW    0            ;RESERVE 2 BYTES
  1108.     DW    0            ;RESERVE 2 BYTES
  1109.     DW    0            ;RESERVE 2 BYTES
  1110.     DW    0            ;RESERVE 2 BYTES
  1111.     DW    0            ;RESERVE 2 BYTES
  1112.     DW    0            ;RESERVE 2 BYTES
  1113.     DW    0            ;RESERVE 2 BYTES
  1114.     DW    0            ;RESERVE 2 BYTES
  1115.     DW    0            ;RESERVE 2 BYTES
  1116.     DW    0            ;RESERVE 2 BYTES
  1117.     DW    0            ;RESERVE 2 BYTES
  1118.     DW    0            ;RESERVE 2 2 BYTES
  1119.     DW    0            ;RESERVE 2 BYTES
  1120.     DW    0            ;RESERVE 2 BYTES
  1121.     DW    0            ;RESERVE 2 BYTES
  1122.     DW    0            ;RESERVE 2 BYTES
  1123.     DW    0            ;RESERVTES
  1124.     DW    0            ;RESERVE 2 BYTES
  1125.     DW    0            ;RESERVE 2 BYTES
  1126.     DW    0            ;RESERVE 2 BYTES
  1127.     DW    0            ;RESERVE 2 BYTES
  1128.     DW    0            ;RESERVE 2 E 2 BYTES
  1129.     DW    0            ;RESERVE 2 BYTES
  1130.     DW    0            ;RESERVE 2 BYTES
  1131.     DW    0            ;RESERVE 2 BYTES
  1132.     DW    0            ;RESERVE 2 BYTES
  1133.     DW    0            ;RESERVE 2 BYTES
  1134.     DW    0            ;RESERVE 2 BYTES
  1135.     DW    0            ;RESERVE 2 BYTES
  1136.     DW    0            ;RESERVE 2 BYTES
  1137.     DW    0            ;RESERVE 2 BYTES
  1138.     DW    0            ;RESERVE 2 BYTES
  1139.     DW    0            ;RESERVE 2 BYTES
  1140.     DW    0            ;RESERVE 2 BYTES
  1141.     DW    0            ;RESERVE 2 BYTES
  1142.     DW    0            ;RESERVE 2 BYTES
  1143.     DW    0            ;RESERVE 2 BYTES
  1144.     DW    0            ;RESERVE 2 BYTES
  1145.     DW    0            ;RESERVE 2 BYTES
  1146.     DW    0            ;RESERVE 2 BYTES
  1147.     DW    0            ;RESERVE 2 BYTES
  1148.     DW    0            ;RESERVE 2 BYTES
  1149.     DW    0            ;RESERVE 2 BYTES
  1150.     DW    0            ;RESERVE 2 BYTES
  1151.     DW    0            ;RESERVE 2 BYTES
  1152.     DW    0            ;RESERVE 2 BYTES
  1153.     DW    0            ;RESERVE 2 BYTES
  1154. ;
  1155.     END
  1156.