home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug008.ark / RECSEC.LIB < prev    next >
Encoding:
Text File  |  1984-04-29  |  583 b   |  31 lines
  1. ;++++++++++++++++++++++++++++++++++++++++++++++
  2. ;
  3. ; CONVERT CP/M RECORD NUMBER TO DISK SECTOR
  4. ;
  5. ; RECSEC.LIB  -  Version 1.0  -  12 SEP 77
  6. ;
  7. ; J.W. SHOOK, P.O. BOX 185, ROCKY POINT, NY 11778
  8. ;
  9. ;++++++++++++++++++++++++++++++++++++++++++++++
  10.  
  11. ; ENTER WITH RECORD IN C, AND
  12. ; RETURN WITH SECTOR IN C.
  13. ; DESTROY CONTENTS OF B,HL
  14.  
  15.  
  16. ; COMPUTE TABLE ADDRESS OF SECTOR
  17.  
  18. RECSEC:    LXI    H,SECTBL-1
  19.     MVI    B,0
  20.     DAD    B
  21.     MOV    C,M
  22.     RET
  23.  
  24. ; CP/M RECORD TO SECTOR CONVERSION TABLE
  25.  
  26. SECTBL:    DB    1,7,13,19,25,5,11,17
  27.     DB    23,3,9,15,21,2,8,14
  28.     DB    20,26,6,12,18,24,4,10
  29.     DB    16,22
  30.  
  31.