home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG008.ARK
/
RECSEC.LIB
< prev
next >
Wrap
Text File
|
1984-04-29
|
583b
|
31 lines
;++++++++++++++++++++++++++++++++++++++++++++++
;
; CONVERT CP/M RECORD NUMBER TO DISK SECTOR
;
; RECSEC.LIB - Version 1.0 - 12 SEP 77
;
; J.W. SHOOK, P.O. BOX 185, ROCKY POINT, NY 11778
;
;++++++++++++++++++++++++++++++++++++++++++++++
; ENTER WITH RECORD IN C, AND
; RETURN WITH SECTOR IN C.
; DESTROY CONTENTS OF B,HL
; COMPUTE TABLE ADDRESS OF SECTOR
RECSEC: LXI H,SECTBL-1
MVI B,0
DAD B
MOV C,M
RET
; CP/M RECORD TO SECTOR CONVERSION TABLE
SECTBL: DB 1,7,13,19,25,5,11,17
DB 23,3,9,15,21,2,8,14
DB 20,26,6,12,18,24,4,10
DB 16,22