mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
188 lines
3.9 KiB
NASM
188 lines
3.9 KiB
NASM
$title ('MP/M 1.1 Data Page')
|
||
name datapg
|
||
dseg
|
||
;datapg:
|
||
;do;
|
||
;
|
||
|
||
;/*
|
||
; Copyright (C) 1979,1980
|
||
; Digital Research
|
||
; P.O. Box 579
|
||
; Pacific Grove, CA 93950
|
||
;
|
||
; Revised:
|
||
; 18 Jan 80 by Thomas Rolander
|
||
;*/
|
||
|
||
;$include (proces.lit)
|
||
;$include (memmgr.lit)
|
||
;
|
||
; declare tod structure (
|
||
tod:
|
||
public tod
|
||
; day address,
|
||
; hr byte,
|
||
; min byte,
|
||
; sec byte ) public
|
||
; initial (761,00H,00H,00H);
|
||
dw 761 ; day
|
||
db 0 ; hr
|
||
db 0 ; min
|
||
db 0 ; sec
|
||
; /* 01/31/80 00:00:00 */
|
||
;
|
||
; declare datapg (1) byte public at (.tod);
|
||
datapg equ tod
|
||
public datapg
|
||
;
|
||
; declare initpd process$descriptor external;
|
||
extrn initpd
|
||
|
||
; declare rlr address public initial(initpd);
|
||
rlr: dw initpd
|
||
public rlr
|
||
;
|
||
; declare dlr address public initial(0);
|
||
dlr: dw 0
|
||
public dlr
|
||
;
|
||
; declare drl address public initial(0);
|
||
drl: dw 0
|
||
public drl
|
||
;
|
||
; declare plr address public initial(0);
|
||
plr: dw 0
|
||
public plr
|
||
;
|
||
; declare slr address public initial(0);
|
||
slr: dw 0
|
||
public slr
|
||
;
|
||
; declare qlr address public initial(0);
|
||
qlr: dw 0
|
||
public qlr
|
||
;
|
||
; declare thrdrt address public initial(0);
|
||
thrdrt: dw initpd
|
||
public thrdrt
|
||
;
|
||
; declare max$cns literally '16';
|
||
maxcns equ 16
|
||
;
|
||
; declare nmb$cns byte public;
|
||
nmbcns: ds 1
|
||
public nmbcns
|
||
;
|
||
; declare console$attached (max$cns) address public
|
||
; initial (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
|
||
; declare cnsatt (1) address public at (.console$attached);
|
||
cnsatt:
|
||
public cnsatt
|
||
dw 0,0,0,0
|
||
dw 0,0,0,0
|
||
dw 0,0,0,0
|
||
dw 0,0,0,0
|
||
;
|
||
; declare console$queue (max$cns) address public
|
||
; initial (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
|
||
; declare cnsque (1) address public at (.console$queue);
|
||
cnsque:
|
||
public cnsque
|
||
dw 0,0,0,0
|
||
dw 0,0,0,0
|
||
dw 0,0,0,0
|
||
dw 0,0,0,0
|
||
;
|
||
; declare max$flgs literally '32';
|
||
maxflgs equ 32
|
||
nmbflags:
|
||
public nmbflags
|
||
db maxflgs
|
||
;
|
||
; declare sys$flag (max$flgs) address public initial (
|
||
; 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,
|
||
; 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,
|
||
; 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,
|
||
; 0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH,0FFFFH);
|
||
; declare sysfla address public at (.sys$flag);
|
||
sysfla:
|
||
public sysfla
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
dw 0ffffh,0ffffh,0ffffh,0ffffh
|
||
;
|
||
; declare max$usr$pr literally '8';
|
||
maxusrpr equ 8
|
||
;
|
||
; declare nmb$segs byte public
|
||
; initial (max$usr$pr);
|
||
nmbsegs:
|
||
public nmbsegs
|
||
db maxusrpr
|
||
;
|
||
; declare mem$seg$tbl (max$usr$pr) memory$descriptor public;
|
||
msegtbl:
|
||
public msegtbl
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
db 0,0,0,0
|
||
; declare memseg memory$descriptor public at (.mem$seg$tbl);
|
||
memseg equ msegtbl
|
||
public memseg
|
||
;
|
||
; declare pdtbl (max$usr$pr) process$descriptor public;
|
||
pdtbl:
|
||
public pdtbl
|
||
ds 52
|
||
ds 52
|
||
ds 52
|
||
ds 52
|
||
ds 52
|
||
ds 52
|
||
ds 52
|
||
ds 52
|
||
;
|
||
;
|
||
; *** Note:
|
||
; The user process stack table has been moved to the MPM
|
||
; module where it overlays the initialization code.
|
||
;
|
||
; declare stktbl (max$usr$pr)
|
||
; structure (loc (20) address) public;
|
||
;stktbl:
|
||
; public stktbl
|
||
;
|
||
;table of offsets
|
||
;
|
||
ostod equ tod-datapg
|
||
osrlr equ rlr-datapg
|
||
osdlr equ dlr-datapg
|
||
osdrl equ drl-datapg
|
||
osplr equ plr-datapg
|
||
osslr equ slr-datapg
|
||
osqlr equ qlr-datapg
|
||
osthrdrt equ thrdrt-datapg
|
||
osnmbcns equ nmbcns-datapg
|
||
oscnsatt equ cnsatt-datapg
|
||
oscnsque equ cnsque-datapg
|
||
osnmbflags equ nmbflags-datapg
|
||
ossysfla equ sysfla-datapg
|
||
osnmbsegs equ nmbsegs-datapg
|
||
osmsegtbl equ msegtbl-datapg
|
||
ospdtbl equ pdtbl-datapg
|
||
;osstktbl equ stktbl-datapg
|
||
|
||
;end datapg;
|
||
end
|
||
|