Upload

Digital Research

MPM OPERATING SYSTEMS/MPM I/MPM I SOURCE/03/datapg.asm

@@ -0,0 +1,188 @@
+$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
+