mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
406 lines
11 KiB
Plaintext
406 lines
11 KiB
Plaintext
;*****************************************************
|
||
;*
|
||
;* bdos data area
|
||
;*
|
||
;*****************************************************
|
||
|
||
CCPMOFF equ true
|
||
|
||
DSEG
|
||
|
||
if CCPMOFF
|
||
org 0800h ;org for CCP/M system
|
||
endif
|
||
if not CCPMOFF
|
||
org 0C00h ;org for MP/M system
|
||
endif
|
||
|
||
rlog dw 0 ;removeable logged-in disks
|
||
tlog dw 0 ;removeable disk test login vector
|
||
ntlog dw 0 ;new tlog vector
|
||
rodsk dw 0 ;read only disk vector
|
||
dlog dw 0 ;logged-in disks
|
||
|
||
open_fnd db 0 ;open file found in srch_olist
|
||
|
||
;the following variables are set to zero upon entry to file system
|
||
|
||
fcbdsk db 0 ;disk named in fcb
|
||
parlg db 0 ;length of parameter block copied
|
||
aret dw 0 ;adr value to return
|
||
lret equ byte ptr aret ;low(aret)
|
||
resel db 0 ;reselection flag
|
||
rd_dir_flag db 0 ;must read/locate directory record
|
||
comp_fcb_cks db 0 ;compute fcb checksum flag
|
||
search_user0 db 0 ;search user 0 for file (open)
|
||
make_xfcb db 0 ;make & search xfcb flag
|
||
find_xfcb db 0 ;search find xfcb flag
|
||
xdcnt dw 0 ;empty directory dcnt
|
||
DIR_CNT DB 0 ;DIRECT I/O COUNT
|
||
MULT_NUM DB 0 ;MULTI-SECTOR COUNT used in bdos
|
||
olap_type db 0 ;record lock overlap type
|
||
ff_flag db 0 ;0ffh xios error return flag
|
||
err_type db 0 ;type of error to print if not zero
|
||
RELOG DB 0 ;AUTOMATIC RELOG SWITCH
|
||
; rb 3 ;reserved bytes
|
||
;
|
||
; **3.1M** Record locking patch
|
||
;
|
||
rb 1
|
||
file_id dw 0 ;address of lock list entry
|
||
;
|
||
; **3.1M** End of record locking patch
|
||
;
|
||
zerolength equ (offset $)-(offset fcbdsk)
|
||
mult_sec db 1 ;multi sector count passed to xios
|
||
rb 1 ;reserved - not used 1/19/84
|
||
|
||
BLK_OFF DB 0 ;RECORD OFFSET WITHIN BLOCK
|
||
blk_num dw 0 ;block number
|
||
|
||
ua_lroot dw offset ua0 ;unallocated block list root
|
||
|
||
ua0 dw offset ua1,0
|
||
db 0ffh,0
|
||
ua1 dw offset ua2,0
|
||
db 0ffh,0
|
||
ua2 dw offset ua3,0
|
||
db 0ffh,0
|
||
ua3 dw offset ua4,0
|
||
db 0ffh,0
|
||
ua4 dw offset ua5,0
|
||
db 0ffh,0
|
||
ua5 dw 0,0
|
||
db 0ffh,0
|
||
|
||
HASH RB 4 ;HASH CODE WORK AREA
|
||
HASHL DB 0 ;HASH SEARCH LENGTH
|
||
|
||
DEBLOCK_FX DB 0 ;DEBLOCK FUNCTION #
|
||
PHY_OFF DB 0 ;RECORD OFFSET WITHIN PHYSICAL RECORD
|
||
CUR_BCBA DW 0 ;CURRENT BCB OFFSET
|
||
ROOT_BCBA DW 0 ;ROOT BCB OFFSET
|
||
EMPTY_BCBA DW 0 ;EMPTY BCB OFFSET
|
||
P_LAST_BCBA DW 0 ;PROCESS'S LAST BCB OFFSET
|
||
P_BCB_CNT DB 0 ;PROCESS BCB COUNT IN BCB LIST
|
||
|
||
fx_intrn db 0 ;internal BDOS function number
|
||
|
||
TRACK DW 0 ;BCB RECORD'S TRACK
|
||
SECTOR DW 0 ;BCB RECORD'S SECTOR
|
||
|
||
; seldsk,usrcode are initialized as a pair
|
||
seldsk db 0 ;selected disk num
|
||
usrcode db 0 ;curr user num
|
||
|
||
info dw 0 ;info adr
|
||
searcha dw 0 ;search adr
|
||
|
||
;the following variable order is critical
|
||
|
||
;variables copied from uda for mp/m x
|
||
|
||
;variables included in fcb checksum for mp/m and cp/m x
|
||
|
||
;variables used to access system lock list for mp/m x
|
||
|
||
dma_ofst dw 0 ;dma offset 1
|
||
dma_seg dw 0 ;dma segment 2
|
||
func db 0 ;bdos function # 3
|
||
searchl db 0 ;search len 4
|
||
searchaofst dw 0 ;search adr ofst 5
|
||
searchabase dw 0 ;search adr base 6
|
||
dcnt dw 0 ;directory counter 7
|
||
extcnt dw 0 ;extent count (used by PC/BDOS) 8
|
||
error_mode db 0 ;bdos error mode 9
|
||
mult_cnt db 0 ;bdos multi-sector cnt 10
|
||
df_password rb 8 ;process default pw 11
|
||
pd_cnt db 0 ;bdos process cnt 12 1
|
||
high_ext db 0 ;fcb high extent bits 2
|
||
xfcb_read_only db 0 ;xfcb read only flag 3
|
||
curdsk db 0ffh ;current disk 4 1
|
||
packed_dcnt db 0 ;packed dblk+dcnt 2
|
||
db 0
|
||
db 0
|
||
pdaddr dw 0 ;process descriptor addr 3
|
||
|
||
; org ((offset $) + 1) and 0fffeh
|
||
rb 0 ;adjust for word alignment
|
||
|
||
; curtrka - alloca are set upon disk select
|
||
; (data must be adjacent)
|
||
|
||
cdrmaxa dw 0 ;ptr to cur dir max val
|
||
drvlbla dw 0 ;drive label data byte addr
|
||
buffa dw 0 ;ptr to dir dma addr
|
||
dpbaddr dw 0 ;curr disk param block addr
|
||
checka dw 0 ;curr checksum vector addr
|
||
alloca dw 0 ;curr alloc vector addr
|
||
DIR_BCBA DW 0 ;DIRECTORY BUFFER CONTROL BLOCK ADDR
|
||
DAT_BCBA dw 0 ;DATA BUFFER CONTROL BLOCK ADDR
|
||
HASH_SEG dw 0 ;HASH TABLE SEGMENT
|
||
addlist equ 12 ;"$-buffa" = addr list size
|
||
|
||
; extended DPB parameters for PCDOS media
|
||
; (data must be adjacent to CPM DPB)
|
||
|
||
nfats dw 0
|
||
nfatrecs dw 0
|
||
nclstrs dw 0
|
||
clsize dw 0
|
||
fatadd dw 0
|
||
|
||
; sectpt - offset obtained from disk parm block at dpbaddr
|
||
; (data must be adjacent)
|
||
|
||
sectpt dw 0 ;sectors per track
|
||
blkshf db 0 ;block shift factor
|
||
blkmsk db 0 ;block mask
|
||
extmsk db 0 ;extent mask
|
||
maxall dw 0 ;max alloc num
|
||
dirmax dw 0 ;max dir num
|
||
dirblk dw 0 ;reserved alloc bits for dir
|
||
chksiz dw 0 ;size of checksum vector
|
||
offsetv dw 0 ;offset tracks at beginning
|
||
PHYSHF DB 0 ;PHYSICAL RECORD SHIFT FACTOR
|
||
PHYMSK DB 0 ;PHYSICAL RECORD MASK
|
||
endlist rs 0 ;end of list
|
||
dpblist equ (offset endlist)-(offset sectpt)
|
||
pclist equ (offset endlist)-(offset nfats)
|
||
|
||
; local variables
|
||
|
||
pc_pre_read db 0
|
||
db 0 ; - not used -
|
||
media_format db 0
|
||
|
||
common_dma rb 16 ;copy of user's dma 1st 16 bytes
|
||
make_flag db 0 ;make function flag
|
||
actual_rc db 0 ;directory ext record count
|
||
save_xfcb db 0 ;search xfcb save flag
|
||
save_mod db 0 ;open_reel module save field
|
||
pw_mode db 0 ;password mode
|
||
attributes db 0 ;fcb interface attributes hold byte
|
||
|
||
chk_olist_flag db 0 ;check | test olist flag
|
||
lock_sp dw 0 ;lock stack ptr
|
||
lock_shell db 0 ;lock shell flag
|
||
check_fcb_ret db 0 ;check_fcb return switch
|
||
lock_unlock db 0 ;lock | unlock function flag
|
||
incr_pdcnt db 0 ;increment process_cnt flag ??
|
||
free_mode db 0 ;free lock list entries flag ??
|
||
;1=free entries for curdsk
|
||
;0=free all entries
|
||
cur_pos dw 0 ;current position in lock list
|
||
prv_pos dw 0 ;previous position in lock list
|
||
|
||
dont_close db 0 ;inhibit actual close flag
|
||
open_cnt db 0 ;process open file count
|
||
lock_cnt db 0 ;process locked record count
|
||
;
|
||
; **3.1M** Record locking patch
|
||
;
|
||
;file_id dw 0 ;address of file' lock list entry
|
||
name_root dw 0 ;root of file names and id's
|
||
;
|
||
; **3.1M** End of record lcoking patch
|
||
;
|
||
set_ro_flag db 0 ;set drive r/o flag
|
||
check_disk db 0 ;disk reset open file check flag
|
||
flushed db 0 ;lock list open file flush flag
|
||
|
||
; free_root, lock_max, open_max initialized by sysgen
|
||
|
||
dw offset free_root
|
||
open_root dw 0 ;lock list open file list root
|
||
lock_root dw 0 ;lock list locked record list root
|
||
|
||
sdcnt dw 0 ;saved dcnt of file's 1st fcb
|
||
sdcnt0 dw 0 ;saved dcnt (user 0 pass)
|
||
|
||
rmf db 0 ;read mode flag for open$reel
|
||
wflag db 0 ;xios/bios write flag
|
||
dirloc db 0 ;directory flag in rename, etc.
|
||
linfo db 0 ;low(info)
|
||
dminx db 0 ;local for diskwrite
|
||
single db 0 ;set true if single byte
|
||
;alloc map
|
||
rcount db 0 ;record count in curr fcb
|
||
extval db 0 ;extent num and extmsk
|
||
vrecord db 0 ;curr virtual record
|
||
ADRIVE DB 0 ;CURRENT DISK - must preceed arecord
|
||
arecord dw 0 ;curr actual record
|
||
db 0 ;curr actual record high byte
|
||
ARECORD1 dw 0 ;curr actual block# * blkmsk
|
||
drec dw 0 ;curr actual directory record
|
||
CUR_dma_seg DW 0
|
||
CUR_DMA DW 0
|
||
|
||
; local variables for directory access
|
||
|
||
dptr db 0 ;directory pointer 0,1,2,3
|
||
ldcnt equ byte ptr dcnt ;low(dcnt)
|
||
user_zero_pass db 0 ;search user zero flag
|
||
|
||
; shell variables
|
||
|
||
shell_si dw 0 ;bdos command offset
|
||
shell_rr db 0,0,0 ;r0,r1,r2 save area
|
||
|
||
; special 8086 variables:
|
||
|
||
uda_save dw 0 ;user data area saved value
|
||
parametersegment dw 0 ;user parameter segment
|
||
returnseg dw 0 ;user return segment
|
||
|
||
; error messages
|
||
|
||
err_drv db 0
|
||
err_pd_addr dw 0
|
||
|
||
dskmsg db 13,10,'CP/M Error On '
|
||
dskerr db ' : ',0
|
||
|
||
permsg db 'Disk I/O',0
|
||
rodmsg db 'Read/Only Disk',0
|
||
rofmsg db 'Read/Only File',0
|
||
selmsg db 'Invalid Drive',0
|
||
|
||
xe3 db 'File Opened in Read/Only Mode',0
|
||
|
||
xe5 db 'File Currently Open',0
|
||
xe6 db 'Close Checksum Error',0
|
||
xe7 db 'Password Error',0
|
||
xe8 db 'File Already Exists',0
|
||
xe9 db 'Illegal ? in FCB',0
|
||
xe10 db 'Open File Limit Exceeded',0
|
||
xe11 db 'No Room in System Lock List',0
|
||
|
||
crlf_str db 13,10,0
|
||
pr_fx db 13,10,'Bdos Function = '
|
||
pr_fx1 db ' '
|
||
pr_fcb db ' File = '
|
||
pr_fcb1 rs 12
|
||
db 0
|
||
|
||
deniedmsg db 13,10,'Disk reset denied, Drive '
|
||
denieddrv db 0,':'
|
||
db ' Console '
|
||
deniedcns db 0
|
||
db ' Program '
|
||
deniedprc db '12345678',0
|
||
|
||
; bdos stack switch variables and stack
|
||
; used for all bdos disk functions
|
||
|
||
; org ((offset $) + 1) and 0fffeh
|
||
rb 1 ;adjust for word alignment
|
||
|
||
; 69 word bdos stack
|
||
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
dw 0cccch,0cccch,0cccch
|
||
bdosstack rw 0
|
||
|
||
save_sp rw 1
|
||
ss_save rw 1
|
||
sp_save rw 1
|
||
|
||
; local buffer area:
|
||
|
||
info_fcb rb 40 ;local user FCB
|
||
save_fcb rb 16 ;fcb save area for xfcb search
|
||
|
||
mxdiskqd dw 0 ;link
|
||
db 0,0 ;net,org
|
||
dw qf_keep+qf_mx ;flags (MX queue)
|
||
db 'MXdisk '
|
||
dw 0,1 ;msglen,nmsgs
|
||
dw 0,0 ;nq,dq
|
||
dw 1,0 ;msgcnt,out
|
||
dw 0 ;buffer ptr
|
||
|
||
mxdiskqpb db 0 ;flgs
|
||
db 0 ;net
|
||
dw mxdiskqd ;qaddr
|
||
dw 1 ;nmsgs
|
||
dw 0 ;buffer
|
||
db 'MXdisk '
|
||
|
||
; Error Message sync param block for mutual exclusion
|
||
|
||
msg_spb dw 0 ;link Error Message sync parameter block
|
||
dw 0 ;owner
|
||
dw 0 ;wait
|
||
dw 0 ;next
|
||
|
||
; local variables used by PC_BDOS
|
||
|
||
bdrwflg db 0 ;bdosrw flags
|
||
blk dw 0 ;bdosrw local variable
|
||
blkcnt dw 0 ;bdosrw local variable
|
||
blkidx dw 0 ;bdosrw local variable
|
||
blkoffset dw 0 ;bdosrw local variable
|
||
cpm_tod db 0,0,0,0,0 ;CP/M date work area
|
||
dirp dw 0 ;directory entry pointer
|
||
lprvblk dw 0 ;bdosrw local variable
|
||
|
||
mon_days dw 0,31,59,90,120,151,181,212,243,273,304,334
|
||
|
||
byteoff dw 0 ;bdosrw local variable
|
||
dw 0
|
||
pc_tod db 0,0,0,0,0,0 ;PC date work area
|
||
preread db 0 ;bdosrw local variable
|
||
prvblk dw 0 ;bdosrw local variable
|
||
|
||
update_rc db 0 ;recompute rc flag
|
||
pc_module db 0 ;bdosrw module save byte
|
||
pc_ext db 0 ;bdosrw extent save byte
|
||
pc_cr db 0 ;bdosrw current record save byte
|
||
|
||
; local variables used by PC_BDOS direct disk I/O module
|
||
|
||
ddio_op db 0 ;type of operation read/write
|
||
ddio_drive db 0 ;drive number
|
||
ddio_nsectors db 0 ;number of sectors to transfer
|
||
ddio_head db 0 ;head number for INT 13
|
||
ddio_startrec rw 0 ;starting sector number
|
||
;startrec overlays sector and track
|
||
ddio_sector db 0 ;sector number for INT 13
|
||
ddio_track db 0 ;track number for INT 13
|
||
ddio_dmaoff dw 0 ;DMA offset
|
||
ddio_dmaseg dw 0 ;DMA segment
|
||
ddio_pblen equ offset $ - offset ddio_op
|
||
|
||
;ddio_pd_vector dw 0,0,0,0,0,0,0,0
|
||
; dw 0,0,0,0,0,0,0,0
|
||
|
||
if CCPMOFF
|
||
org 0bffh
|
||
endif
|
||
if not CCPMOFF
|
||
org 0fffh
|
||
endif
|
||
db 0
|
||
|