mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 09:54:20 +00:00
Upload
Digital Research
This commit is contained in:
241
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE 2/nucleus/datapg.asm
Normal file
241
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE 2/nucleus/datapg.asm
Normal file
@@ -0,0 +1,241 @@
|
||||
title 'MP/M II V2.0 Data Page'
|
||||
name 'datapg'
|
||||
|
||||
bnkxdos equ 0ffffh
|
||||
|
||||
dseg
|
||||
;datapg:
|
||||
@@datapg:
|
||||
public @@datapg
|
||||
;do;
|
||||
;
|
||||
|
||||
;/*
|
||||
; Copyright (C) 1979,1980,1981
|
||||
; Digital Research
|
||||
; P.O. Box 579
|
||||
; Pacific Grove, CA 93950
|
||||
;
|
||||
; Revised:
|
||||
; 14 Sept 81 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 (1353,00H,00H,00H);
|
||||
dw 1353 ; day
|
||||
db 0 ; hr
|
||||
db 0 ; min
|
||||
db 0 ; sec
|
||||
; /* 09/14/81 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
|
||||
;
|
||||
if bnkxdos
|
||||
; declare MXProccqcb address external;
|
||||
extrn MXProccqcb
|
||||
; declare qlr address public initial(0);
|
||||
qlr: dw MXProccqcb
|
||||
else
|
||||
qlr: dw 0
|
||||
endif
|
||||
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
|
||||
dw 0
|
||||
db 0
|
||||
db 0
|
||||
dw 0
|
||||
db 'MP/M-80',' '+80h
|
||||
db 0
|
||||
db 0ffh
|
||||
ds 36
|
||||
|
||||
ds 52
|
||||
ds 52
|
||||
ds 52
|
||||
ds 52
|
||||
ds 52
|
||||
ds 52
|
||||
ds 52
|
||||
;
|
||||
; declare max$lst literally '16';
|
||||
maxlst equ 16
|
||||
;
|
||||
; declare nmb$lst byte public;
|
||||
nmblst: ds 1
|
||||
public nmblst
|
||||
;
|
||||
; declare list$attached (max$lst) address public
|
||||
; initial (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
|
||||
; declare lstatt (1) address public at (.list$attached);
|
||||
lstatt:
|
||||
public lstatt
|
||||
dw 0,0,0,0
|
||||
dw 0,0,0,0
|
||||
dw 0,0,0,0
|
||||
dw 0,0,0,0
|
||||
;
|
||||
; declare list$queue (max$lst) address public
|
||||
; initial (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
|
||||
; declare lstque (1) address public at (.list$queue);
|
||||
lstque:
|
||||
public lstque
|
||||
dw 0,0,0,0
|
||||
dw 0,0,0,0
|
||||
dw 0,0,0,0
|
||||
dw 0,0,0,0
|
||||
|
||||
;
|
||||
; *** 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
|
||||
osnmblst equ nmblst-datapg
|
||||
oslstatt equ lstatt-datapg
|
||||
oslstque equ lstque-datapg
|
||||
|
||||
|
||||
|
||||
;osstktbl equ stktbl-datapg
|
||||
|
||||
;end datapg;
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user