seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-26 09:54:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 3.1 SOURCE/D5/DPBS.EQU Normal file
View File

@@ -0,0 +1,40 @@
; CP/M disk control block equates which define the
; disk types and maximum storage capability of each
; disk type.
; CP/M to host disk constants
hstsiz EQU 1024 ;blocking/deblocking buffer size
cpmsib EQU 1024/128 ;standard sectors in block
fpysib EQU 2048/128 ;sectors in floppy disk block
hblksiz EQU 4*1024 ;M20 block size
hhstsiz EQU 512 ;M20 bytes per sector
hdspt EQU 21 ;M20 physical sectors per head/track
hhstspt EQU hdspt*8 ;M20 physical sectors per track
hhstblk EQU hhstsiz/128 ;M20 CP/M records per physical sector
hcpmspt EQU hhstblk*hhstspt ;M20 CP/M records per track
hardsib EQU hblksiz/128 ;standard records in hard disk data block
dskhd EQU 8 ;hard drive, 512-byte sectors
s1dsm EQU ((77-2)*26)/cpmsib
s2dsm EQU ((77-2)*2*26)/fpysib
d1dsm EQU ((77-2)*2*26)/fpysib
d2dsm EQU ((77-2)*2*2*26)/fpysib
d3dsm EQU ((77-2)*4*15)/fpysib
d4dsm EQU ((77-2)*2*4*15)/fpysib
d5dsm EQU ((77-2)*8*8)/fpysib
d6dsm EQU ((77-2)*2*8*8)/fpysib
h0dsm EQU 97*hcpmspt/hardsib ;1st 97 tracks of M20
h1dsm EQU h0dsm ;2nd 97 tracks of M20
h2dsm EQU 49*hcpmspt/hardsib ;last 49 tracks of M20
ndsk EQU 5 ;number of logical disk drives
csvflen equ 256/4 ;csv length for floppies
alvflen equ (d6dsm+7)/8 ;alloc vector length for floppies
alvh0ln EQU (h0dsm+7)/8 ;alv length for logical hard drive 0
alvh1ln EQU (h1dsm+7)/8 ;alv length for logical hard drive 1
alvh2ln EQU (h2dsm+7)/8 ;alv length for logical hard drive 2