home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug025.ark / FORMAT.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  8.5 KB  |  265 lines
  1. ; MODIFIED BY FRED KAHL 3.24.78 FOR DRIVE VERIFICATION
  2. ; FORMAT
  3. ; FORMATTING PROGRAM FOR TARBELL FLOPPY DISK INTERFACE.
  4. ; MOST DISKS THAT COME FROM THE MANUFACTURER ARE
  5. ; ALREADY FORMATTED IN THE IBM FORMAT, ESPECIALLY IF
  6. ; YOU SPECIFY THIS.  THERE ARE TIMES, HOWEVER, THAT
  7. ; YOU MAY WANT TO FORMAT OR REFORMAT A DISK YOURSELF.
  8. ; USUALLY THIS IS WHEN THE SYSTEM CRASHED AND
  9. ; MESSED UP THE DISK SO BADLY THAT YOU CAN NO LONGER
  10. ; WRITE ONTO IT OR READ FROM IT IN THE NORMAL FASHION.
  11. ; SOMETIMES SURPLUS DISKS ARE AVAILABLE THAT ARE
  12. ; NOT FORMATTED PROPERLY.
  13. ;
  14. ; THIS PROGRAM FORMATS A BLANK DISK INTO A IBM FORMAT.
  15. ; NOTE THAT IT IS COMPLETELY SELF-CONTAINED, SO
  16. ; THAT NO OPERATING SYSTEM IS REQUIRED TO RUN IT.  NOTE
  17. ; THEREFORE, THAT IF YOUR CONSOLE I/O SET-UP IS
  18. ; DIFFERENT THAN THAT OF THIS PROGRAM, YOU WILL NEED
  19. ; TO MAKE THE NECESSARY CHANGES.
  20. ;
  21. ; DURINTG THE DEVELOPMENT OF THIS PROGRAM, IT WAS
  22. ; DETERMINED THAT THE 1000 PF CAPACITOR C4 SHOULD BE
  23. ; CHANGED TO A VALUE OF .1 MFD TO MAKE THIS ROUTINE
  24. ; RUN PROPERLY.  IT WAS FOUND THAT THE STEP ONE-SHOT
  25. ; WAS NOT ALWAYS LONG ENOUGH TO RELIABLY STEP THE
  26. ; HEAD.  THIS IS NOT A PROBLEM DURING NORMAL SEEK
  27. ; OPERATIONS, SINCE THE 1771 AUTOMATICALLY STEPS A
  28. ; FEW TRACKS AHEAD TO LOOK FOR THE CORRECT TRACK.
  29. ;
  30. ; ***** CAUTION *****
  31. ; DO NOT RUN THIS PROGRAM WITH A DISK THAT HAS DATA
  32. ; OR PROGRAMS ON IT THAT YOU WANT TO SAVE.  THIS PROGRAM
  33. ; ERASES ALL MATERIAL ON THE DISK THAT IT FORMATS.
  34. ; 
  35. BDOS:      EQU  0005       ;BDOS ENTRY POINT
  36. DCOM      EQU  0F8H        ;DISK COMMAND PORT
  37. DSTAT     EQU  0F8H        ;DISK STATUS PORT
  38. TRACK     EQU  0F9H        ;DISK TRACK COMMAND
  39. SECTP     EQU  0FAH        ;DISK SECTOR PORT
  40. DDATA     EQU  0FBH        ;DISK DATA PORT
  41. WAIT      EQU  0FCH        ;DISK WAIT CONTROL PORT
  42.           ORG  0100H       ;LOAD & EX HERE
  43. ;
  44.     JMP START        ;JUMP AROUND MESSAGES
  45. MSG1:    DB 'MICRO-SERVE DISK FORMATTING PROGRAM'
  46.     DB 0DH,0AH,0DH,0AH
  47.     DB 'DRIVE TO BE FORMATTED? $'
  48. MSG2:    DB 0DH,0AH,'READY TO FORMAT IN DRIVE '
  49. DISKNO:    DS 1
  50.     DB 0DH,0AH,'IS BLANK DISK READY TO FORMAT (Y-N)? $'
  51. DISKTMP DB 0
  52. ;
  53. START:    MVI C,25        ;INTERROGATE DRIVE NUMBER
  54.     CALL BDOS
  55.     STA DISKTMP        ;SAVE COPY CURRENT DRIVE
  56.     MVI C,9            ;GET CODE FOR PRINT
  57.     LXI D,MSG1        ;GET ADDR OF MSG
  58.     CALL BDOS
  59.     MVI C,1            ;GET CONSOLE CHAR
  60.     CALL BDOS
  61.     STA DISKNO        ;PUT IN MSG
  62.     SBI 65            ;CONVERT TO BINARY
  63.     CALL SELDSK        ;SET DRIVE # TO FORMAT
  64. NXTDSK:    MVI C,9            ;GET CODE FOR PRINT
  65.     LXI D,MSG2        ;GET ADDR OF MSG
  66.     CALL BDOS    
  67.     MVI C,1            ;GET CONSOLE CHAR
  68.     CALL BDOS
  69.     CPI 'Y'            ;WAS IT A YES
  70.     JZ BEGIN        ;START FORMATTING
  71.     LDA DISKTMP        ;GET COPY OF ORIG LOGGED DISK
  72. SELDSK:    CMA
  73.     ADD A    
  74.     ADD A
  75.     ADD A    
  76.     ADD A
  77.     ORI 2
  78.     OUT WAIT
  79.     RET
  80. ;
  81. ;
  82. ; RESTORE DRIVE TO TRACK 00
  83. ;
  84. BEGIN:    MVI A,3          ;LOAD RESTORE CMD
  85.           OUT  DCOM        ;ISSUE HOME CMD
  86.       IN WAIT        ;WAIT FOR HOME
  87.           MVI  C,0         ;SET TRACK NUMBER TO 0
  88.           MVI  H,77        ;SET TOTAL TRACKS TO 77
  89. NXTTRK    MVI  D,1         ;SECTOR CNT TO 0
  90.           MVI  E,26        ;SET MAX # SECTORS -1 
  91.           MVI  B,46        ;GAP 4 PREINDEX 40 BYTES OF FF
  92.           MVI  A,0F4H      ;LOAD TRACK WRITE COMMAND
  93.           OUT  DCOM        ;ISSUE TRACK WRITE
  94. ; WRITE PREINDEX FILL
  95. PREIND    IN   WAIT        ;WAIT FOR DRQ
  96.           ORA  A           ;SET FLAGS
  97.           JP   ERRMSG      ;JMP OUT IF ERROR
  98.           XRA  A           ;LOAD PREINDEX FILL
  99.           OUT  DDATA       ;WRITE IT ON DISK
  100.           DCR  B           ;COUNT =COUNT - 1
  101.           JNZ  PREIND      ;GO BACK TILL B =0
  102. ;
  103. ; WRITE ADDRESS MARK ON TRACK
  104. ;
  105.           IN   WAIT        ;WAIT FOR DRQ
  106.           ORA  A           ;SET FLAGS
  107.           JP   ERRMSG      ;JMP OUT IF ERROR
  108.           MVI  A,0FCH      ;LOAD ADDRESS MARK
  109.           OUT  DDATA       ;WRITE IT ON DISK
  110. ;
  111. ; POST INDEX GAP
  112. ;
  113.           MVI  B,26        ;SET # OF BYTES
  114. POSTID    IN   WAIT        ;WAIT FOR DRQ
  115.           ORA  A           ;SET FLAGS
  116.           JP  ERRMSG       ;JMP OUT IF ERROR
  117.           MVI  A,0FFH      ;LOAD FILL DATA
  118.           OUT  DDATA       ;WRITE IT ON DISK
  119.           DCR  B           ;COUNT = COUNT - 1
  120.           JNZ  POSTID      ;IF NOT 0 GO BACK
  121. ;
  122. ; PRE ID SECTION
  123. ;
  124. ASECT     MVI  B,6         ;GET # OF BYTES
  125. SECTOR    IN   WAIT        ;WAIT FOR DRQ
  126.           ORA  A           ;SET FLAGS
  127.           JP   ERRMSG      ;JMP OUT IF ERROR
  128.           XRA  A           ;MAKE A = 0
  129.           OUT  DDATA       ;WRITE IT ON TRACK
  130.           DCR  B           ;COUNT = COUNT=1
  131.           JNZ  SECTOR      ;JMP BACK IF NOT DONE
  132. ;
  133. ; WRITE ID ADDRESS MARK
  134. ;
  135.           IN   WAIT        ;WAIT FOR DRQ
  136.           ORA  A           ;SET FLAGS
  137.           JP   ERRMSG      ;IF ERROR JMP OUT
  138.           MVI  A,0FEH      ;GET ADDRESS MARK
  139.           OUT  DDATA       ;WRITE IT ON DISK
  140. ;
  141. ; WRITE TRACK NUMBER ON DISK
  142. ;
  143.           IN   WAIT        ;WAIT FOR DRQ
  144.           ORA  A           ;SET FLAGS
  145.           JP   ERRMSG      ;JMP OUT IF ERROR
  146.           MOV  A,C         ;GET TRACK NUMBER
  147.           OUT  DDATA       ;WRITE IT ON DISK
  148. ;
  149. ; WRITE ONE BYTE OF 00
  150. ;
  151.           IN   WAIT        ;WAIT FOR DRQ
  152.           ORA  A           ;SET FLAGS
  153.           JP   ERRMSG      ;JMP OUT IF ERROR
  154.           XRA  A           ;SET A TO 0
  155.           OUT DDATA        ;WRITE IT ON DISK
  156. ;
  157. ; WRITE SECTOR # ON DISK
  158. ;
  159.           IN   WAIT        ;WAIT FOR DRQ
  160.           ORA  A           ;SET FLAGS
  161.           JP   ERRMSG      ;JMP OUT IF ERROR
  162.           MOV  A,D         ;GET SECTOR #
  163.           OUT DDATA        ;WRITE IT ON DISK
  164. ;
  165. ; ONE MORE BYTE 0
  166. ;
  167.           IN   WAIT        ;WAIT FOR DRQ
  168.           ORA  A           ;SET FLAGS
  169.           JP   ERRMSG      ;JMP OUT IF ERROR
  170.           XRA  A           ;SET A TO 00
  171.           OUT  DDATA       ;WRITE IT ON DISK
  172.           INR  D           ;BUMP SECT. #
  173. ;
  174. ; WRITE 2 CRC'S ON THIS SECTOR
  175. ;
  176.           IN   WAIT        ;WAIT FOR DRQ
  177.           ORA  A           ;SET FLAGS
  178.           JP   ERRMSG      ;JMP OUT IF ERROR
  179.           MVI  A,0F7H      ;GET CRC PATTERN
  180.           OUT DDATA        ;WRITE IT ON DISK
  181. ;
  182. ; PRE DATA 17 BYTES 00
  183. ;
  184.           MVI  B,17        ;SET COUNT
  185. PREDAT    IN   WAIT        ;WAIT FOR DRQ
  186.           ORA  A           ;SET FLAGS
  187.           JP   ERRMSG      ;JMP OUT IF ERROR
  188.           XRA  A           ;SET A TO 00
  189.           OUT  DDATA       ;WRITE IT ON DISK
  190.           DCR  B           ;REDUCE COUNT BY 1
  191.           JNZ  PREDAT      ;GO BACK IF NOT DONE
  192. ;
  193. ; DATA ADDRESS MARK
  194. ;
  195.           IN   WAIT        ;WAIT FOR DRQ
  196.           ORA  A           ;SET FLAGS
  197.           JP   ERRMSG      ;JMP OUT IF ERROR
  198.           MVI  A,0FBH      ;GET DATA ADDRESS MARK
  199.           OUT  DDATA       ;WRITE IT ON DISK
  200. ;
  201. ; FILL DATA FIELD WITH E5
  202. ;
  203.           MVI  B,128       ;SET FIELD LENGTH
  204. DFILL     IN   WAIT        ;WAIT FOR DRQ
  205.           ORA  A           ;YOU KNOW WHAT
  206.           JP   ERRMSG      ;HAPPENS HERE BY NOW
  207.           MVI  A,0E5H      ;GET FILL BYTE
  208.           OUT  DDATA       ;WRITE IT ON DISK
  209.           DCR  B           ;DROP 1 FROM COUNT
  210.           JNZ  DFILL       ;DO TILL 00
  211. ;
  212. ; WRITE CRC'S
  213. ;
  214.           IN   WAIT        ;WAIT TILL DRQ
  215.           ORA  A           ;SET FLAGS
  216.           JP   ERRMSG      ;JMP OUT IF ERROR
  217.           MVI  A,0F7H      ;GET CRC BYTE
  218.           OUT  DDATA       ;WRITE IT ON DISK
  219. ;
  220. ; END OF SECTOR FILL
  221. ;
  222.       DCR  E       ;REDUCE SECTOR COUNT
  223.       JZ  ENDTRK       ;IF 0 DO END OF TRACK RTN
  224. DATGAP    IN WAIT          ;WAIT FOR DRQ
  225.           ORA  A           ;SET FLAGS   
  226.           JP   ERRMSG      ;JMP OUT IF ERROR
  227.       MVI  A,0FFH       ;GET FILL CHARACTER
  228.           OUT  DDATA       ;WRITE IT ON DISK
  229.       JMP  POSTID-2    ;GO BACK FOR MORE
  230. ;
  231. ; DO TRACK & SECTOR HOUSE KEEPING
  232. ;
  233. ENDTRK    IN   WAIT        ;WAIT FOR DRQ OR INTRQ
  234.           ORA  A           ;SET FLAGS
  235.           JP   DONE        ;JMP OUT IF ERROR
  236.       MVI  A,0FFH       ;LOAD A WITH FFH
  237.           OUT  DDATA       ;WRITE IT ON DISK
  238.           JMP  ENDTRK      ;DO UNTIL INTRQ
  239. ;
  240. ; ERROR SORT ROUTINE
  241. ;
  242. DONE      IN   DSTAT       ;READ STATUS
  243.           ANI  0FFH        ;TEST FOR FLAG
  244.       JNZ  ERRMSG       ;IF ERR GO TO ERR PRINT RTN
  245.           INR  C           ;BUMP TRACK #
  246.           DCR  H           ;TRK COUNT =COUNT -1
  247.           JNZ  BMPTRK      ;IF NOT 0 THEN DO MORE
  248.       JMP NXTDSK       ;GO AGAIN
  249.  
  250. BMPTRK    MVI  A,43H       ;LOAD STEP IN
  251.           OUT  DCOM        ;STEP IN
  252.       IN  WAIT         ;WAIT TIL DONE
  253.       ORA A            ;SET FLAGS
  254.       IN   WAIT       ;WAIT FOR DRQ
  255.       IN   DSTAT       ;CHECK STATUS
  256.       ANI  0FFH       ;MASK NON ERR BITS
  257.       JNZ  ERRMSG
  258.       JMP  NXTTRK
  259. ;
  260. ;ERROR ROUTINE
  261. ;
  262. ERRMSG      STA 0000H
  263.       HLT
  264.           
  265.