.MCALL	.MODULE
.MODULE SYSTEM,VERSION=75,COMMENT=<System Definition library>,LIB=YES

.SbTtl  ...CM.  -- Copyright statement
.MACRO  ...CM.
.REM %

 Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
 All rights reserved

 This software is furnished under a license for use only on a
 single computer system and  may  be  copied  only  with  the
 inclusion of the above copyright notice.  This software,  or
 any other copies thereof, may not be provided  or  otherwise
 made available to any other person except for  use  on  such
 system and to one who agrees to these license  terms.  Title
 to  and  ownership of the software shall at all times remain
 in Mentec, Inc.

 The information in this document is subject to change without
 notice and should not be construed as a commitment by Digital
 Equipment Corporation, or Mentec, Inc.

 Digital and Mentec  assume  no  responsibility for the use or
 reliability of its software on equipment which is not supplied
 by Digital  or Mentec,  and listed  in the  Software  Product
 Description.
%
.ENDM
.MDelete ...CM.
.SbTtl	WHY DOES THIS FILE EXIST?
.Rem	%

This file is the centralized place for symbol definition for
the RT-11 Operating System.  Any location, structure, or
value referenced by 2 or more system components which are
not assembled or linked should be defined here.  Eventually
the definition of these cross component values should come
from this library.  This will prevent errors due to
misdefinition or changes.

It also serves as a reference document for understanding the
system data structures.

It is the registry for some system "resorces" such as
handler device codes (.DEVDF).

	%
.SbTtl	.	Conditional summary
;+
;COND
;	DOC$UN = 0	-- generate only documented interfaces
;
;	DOC$UN = 1	-- generate undocumented interfaces too
;
;	FIX$ED = 0	-- generate all symbols according to other
;				conditional symbol settings (or defaults)
;	FIX$ED = 1	-- generate only symbols defined for all
;				conditional symbol settings.
;
;	MAC$ER = 0	-- if this library is ASSEMBLED generate no
;				test error messages.
;	MAC$ER = 1	-- if this library is ASSEMBLED generate test
;				error messages.
;
;	ONE$DO = 0	-- generate all macro calls
;
;	ONE$DO = n	-- generate just nth macro call
;				and MCALL defn from lib
;
;	ONE$DO = -1	-- test all support macros
;
;	ONE$DO = -2	-- test all ..%%%%
;
;	ONE$DO = -3	-- test first half of .%%%DF
;
;	ONE$DO = -4	-- test second half of .%%%DF
;
;	ONE$DO = 30000	-- indicate last valid ONE$DO positive number
;
;
;	internal conditional, controlled externally by ONE$DO
;
;			Note "negative logic"
;
;	GP1$DO = 0	-- if all or test group 1
;
;	GP1$DO = -1	-- if not all and not test group 1
;
;	GP2$DO = 0	-- if all or test group 2
;
;	GP2$DO = -1	-- if not all and not test group 2
;
;	GP3$DO = 0	-- if all or test group 3
;
;	GP3$DO = -1	-- if not all and not test group 3
;
;	GP4$DO = 0	-- if all or test group 4
;
;	GP4$DO = -1	-- if not all and not test group 4
;
;	Other conditional symbols are used within definitions:
;
;	DHMD$M
;	DLMD$M
;	DZMD$M
;	FPU$11
;	MAT$S
;	MMG$T
;	MTI$M
;	MTT$Y
;	R.BLGH
;	R.GNUM
;	R.GWSZ
;	SB
;	SPC$PS
;	SYT$K
;	TTBF$I
;	TTBF$O
;	W.BLGH
;	W.NNUM
;	WN.WSZ
;-
DOC$UN=1		;allow generation of undocumented interfaces
FIX$ED=0		;allow generation of non-fixed areas too
.IIF NDF MAC$ER MAC$ER=0	;default to no error message testing
.IIF NDF ONE$DO ONE$DO=0	;default to test all macro calls
ONE.DO=0			;initialize definition counter
GP1$DO=-1			;assume not group 1
GP2$DO=-1			;assume not group 2
GP3$DO=-1			;assume not group 3
GP4$DO=-1			;assume not group 4
.IF EQ ONE$DO
GP1$DO=0			;test group 1
GP2$DO=0			;test group 2
GP3$DO=0			;test group 3
GP4$DO=0			;test group 4
.ENDC ;EQ ONE$DO
.IF EQ ONE$DO+1
GP1$DO=0			;test group 1
.Enabl	MCL
.ENDC ;EQ ONE$DO+1
.IF EQ ONE$DO+2
GP2$DO=0			;test group 2
.Enabl	MCL
.ENDC ;EQ ONE$DO+2
.IF EQ ONE$DO+3
GP3$DO=0			;test group 3
.Enabl	MCL
.ENDC ;EQ ONE$DO+3
.IF EQ ONE$DO+4
GP4$DO=0			;test group 4
.Enabl	MCL
.ENDC ;EQ ONE$DO+4
.IF EQ ONE$DO-30000
.NList
.NList	SEQ,SYM,TOC
.ENDC; EQ ONE$DO-30000
.NList	CND
.MCall	.Assume
;+
;ERROR
;?SYSTEM-E-.BS overflow, 'NAME' assigned 0;
;	.BS
;	More bits defined than fit in a 16 bit word
;
;^b<OFFSET>;?SYSTEM-E-.BSECT 'OFFSET' not a single bit quantity;
;	.BSECT
;	The value specified must be a single bit set in a 16 bit word
;
;?SYSTEM-E-.BSECT 'OFFSET' is zero;
;	.BSECT
;	The value specified must not be 0
;
;?SYSTEM-E-Unexpected argument value, use =,==,=: or ==: ;
;	.LIST., hence almost all macros
;	The E argument is used as the equate operator
;
;<SYM>;?SYSTEM-E-.LB 'SYM' is zero;
;	.LB
;	The value specified must not be 0
;-
.SbTtl	General information about SYSTEM.MAC
.REM	~

Information about allocation policy for flags bits and words
is found herein.


In addition, it also contains definitions of macros that are
currently defined in SYSGEN.COM(!) EDTGBL.MAC and some other
system components (in V5.5).

A broad outline of this file is as follows:

(01)	Copyright
(02)	Conditional summary and cross checks
(03)	This outline
(04)	Change log
(05)	Reserved symbol names
(06)	Reserved macro names
(07)	<deleted>
(08)	General use structure macros   (.LIST. .BSECT .BS
					.LB .DSECT .DS .EQU)
(09)	Memory Spaghetti Chart
(10)	Fixed Area Spaghetti Chart
(11)	Impure Area Spaghetti Chart
(12)	Disk Data Spaghetti Chart
(13)	Image File Data Layout

(14)	Handler word and bit policy
(15)	EMT request summary
(16)	...CMA and ...CMT support macros for ..%%%% macros
(17)	Generic information about all macros of the form
	..%%%%
(18)	Macros defining the request blocks used by EMT
	requests.
(19)	Generic information about all macros of the form
	.%%%DF
(20)	Macros defining control blocks and data structures.

	~
.SbTtl	Documentation conventions
.Rem	~

	`xxxxxx`	labels found in RMON%% and other
			modules related to the structure
			being described.

	c(xxxxxx)	Contents of location

	o(xxxxxx)	See xxxxxx for offsets or address

	v(xxxxxx)	See xxxxxx for values

	ov(xxxxxx)	See xxxxxx for values, offsets or
			addresses

	~
.SbTtl	CHANGE LOG
;+CHANGES
;00	JFW	Summer, 1986	Jim Williams
;		Original type-in (and in ...)
;
;01	JFW	Minor changes lost in the dim dark past
;
;02	JFW	Major changes, adding many new structures,
;		forcing all symbols to contain . or $
;
;03	JFW	Add (this) change history
;		Delete H.1LTR and H.UMR from .HANDF & change .HUMDF.
;		Change associated diagrams.
;		This is a change to the support for UMR and 64UNIT
;		Add Handler block 1 to "Image file block 0 formats"
;		Add Handler word and flag bit allocation policy statement
;		Change .DATDF to use AGE rather than EPOch and name ages.
;		Change .DRFMT for newest layout
;		Add HS2.KU bit to H.STS2 which prevents KMON $Unload
;		Change SF.CTL to be 365
;		Add registry of single letter handler names (.DSTDF)
;		Add DEV.(CA,KK,KS,KX,MB,MP,QD,UB,VP,VT,XS,YK)
;
;04	JFW	Add .BSRDF, add RONLY$ to .CSWDF, Add No date and do not
;		set to .DATDF, Add new devices and retirement notes to
;		.DEVDF, add new status bits to .DIEDF, add reference to
;		.DNTDF, changes in .FIXDF and add $DECNT offset, changes
;		to .HANDF, add .HSRDF, changes to .JSXDF, changes to
;		.SFCDF, added new function codes to .SPFDF (mostly DAEMON)
;		added .U64DF, changed .UEBDF, changed .XEDDF, added .XTEDF,
;		changed .ZDUDF and added .ZMUDF.
;
;05	JFW	Change ..READ and ..WRIT to docu "special directory hack"
;		Change .DIEDF for omitted test case.
;		Change .SPFDF to add more DAEMON codes and add a generic
;		section as an aid in future assignments.
;		Change .UEBDF to include NONE$ definition.
;		Add .XCRDF and .YCRDF to document CREF interfaces.
;		Add validation information to .DATDF
;		Add .MLBDF, .MNTDF, .OLBDF, .EPTDF, and .FLBDF to document
;		LIBR interfaces.
;		Add .LDADF to document absolute loader format.
;		Add .OBJDF to document object file format.
;		Add (GP(1,2,3),ONE)$DO conditionals to check individual macros
;
;06	JFW	changes from review and pre-review.
;		added .X%%DF generic chain definitions
;		added .Y%%DF generic structure definitions
;		added .YSPDF SP / SPOOL common structure
;		added .Z%%DF generic data table definitions
;		revisions too numerous to mention from review
;
;11	JRG	Add ..BICO/..BICV/..BISO/..BISV subcodes (.POKE/.PVAL/.EMTDF)
;		Add .ER%DF SPFUN error code macros
;		Add .ESBDF magtape SPFUN error status block format macro
;		Add .N%%DF Ethernet SPFUN argument format macros
;		Add ER.BAD/ER.DEA/ER.RAL codes to .ERRDF
;		Add .SF%DF SPFUN argument format macros (.SFBDF used for
;		  SF.BYP instead of SF.BBR, since SF.BBR needed no args)
;		Add XED.OU bit flag definition to .XEDDF
;		Add EMTER4/EMTER5 macros (for MTTY EMT errors)
;		Update .SP%DF (SPFUN code/subcode) macros
;		Add fixed offsets $RQTOF/$FRK22/$SLOT2 to .FIXDF
;		Remove .SPUDF (unimplemented - error codes defined in .ERRDF)
;		Misc. minor spelling/formatting corrections
;
;23	JFW	Change definitions in .USSDF to match reality
;
;25	JFW	Add HF2.SR, change $FRK22 and $RQTOF to $XTTPS and $XTTPB,
;		changed CF3.US to CF3.UI, added CF3.US and CF3.1S,
;		added HF2.LD, added H1.LDT, revised .SPLDF, 
;		added .EL(D,I,M,S)DF [these still need test code and docu].
;	
;26	LB	Added $PNAM2 table generation to DEV for extended units
;
;29	MSS 	Fix .EL(D,M,S,I)DF macros
;
;31	LB	Added def of UB.NUM to DEV
;
;33	JFW	
;>>>fill in
;39	JFW	Added .FPBDF (File prefix block)
;
;40	LB	Changed second occurrence of HF2.SD to HF2.ND in .HF2DF
;>>>fill in
;46	JFW	Added PUT and GET
;
;47	JFW	Added definitions to IMPDF to match those in EDTL
;		Fixed IMPDF test code
;		Fixed error in FH.xxx crosscheck
;		Added definition to .RDBDF
;		Fixed errors in .GTJDF
;
;(048)	MBG	Added DH definitions to allow DH builds, $GENDH and
;		related definitions have yet to be added, after review
;		by JFW
;
;(049)	MBG	Added definitions for $GENHM, $GENHN and $GENDH.
;		Corrected some errors in internal documentation as
;		well as a few definitions.
;
;50	JFW	Delete definitions that should be in EDTL.MLB
;		Minor misc changes per many action items and QARs
;		Repair one definition at a time testing (ONE$DO=+num)
;
;52	JFW	Remove minor change to ELDDF macro definition
;
;53	JFW	Allow substitution for leading $ in .FIXDF to fix
;		name clashes in BSTRAP
;
;55	DBB	added .MCADF
;
;56	JFW	Add symbols to .EMTDF from other ..%%%% that were
;		omitted by error.  Pulled .SIOT references. added
;		.OWNDF
;
;57	WFG	Fix values of symbols ..BICF,..BISF in various macros
;
;(058)	MBG	For multiterminal handler hooks support, added new
;		error code for MTATC/MTDTC.
;
;58	JFW	Add ER.ATH to comments in .ERRDF.  Delete new ..M* and
;		change old ..* to use the "function" word to code mapping
;		info. Add SV.NID/RL.NID block 0 indicators that preclude
;		loading in separated I/D space
;
;59	???	???
;
;60	DBB	Add ER.IMS to .ERRDF.  Add I.PLSP to .IMPDF.  Add WS.DSI
;		and WS.IDD to .WDBDF
;
;61	DBB	Add I.SSP to .IMPDF.  Change .MCADF layout of M.APR
;
;62	JFW	Add CF3.VB to .CF3DF, define .CVHDF, cleanup cmap
;
;63	JFW	Add NOVBG$ to .JSXDF
;
;64	DBB	Add I.VSTP to .IMPDF
;
;65	JFW	Add $VBGTO to .SYCDF
;
;66	DBB	Add CF3.IM to .CF3DF
;
;67	JFW	Fixes from SML manual review:
;		.ERRDF SERR error codes wrong
;		.ERRDF other error codes wrong
;		remove "fut"s that are now present
;
;68	JFW	Move CMPDF, QELDF, RDBDF, and WDBDF to SYSMAC, but
;		test them in SYSTEM and retain descriptive comments
;		about them.
;		Add new fixed offset $XOFF for address/offset of
;		XOFF flag.
;
;69	MBG	Added bit to TCB for handler hooks disabling of
;		monitor controlled modem control
;
;70	JFW	added H1.NDF to .HBGDF comments and "block 0" chart;
;		fixed comment on WRWT$ in .TSTDF; added WS.DEF to .WDBDF;
;		fixed comments in .MCADF (some RCBs are WCBs);
;		fixed comments and added M.VHI to .RAMDF;
;		fixed comment on P1$EXT in FIXDF.
;
;71	DBB	fixed .JSWDF usage diagram
;		added description for R.GID offset in .RDBDF comment block
;
;72	JFW	added .SLBDF which defines the supervisor library ID structure
;		also changes to comments in other areas to support .SLBDF
;
;73	DBB	deleted ALL64$ from .ISTDF
;
;74	JFW	changed some of the .SLBDF info in the referencing .SAV to
;		be pointed to by $SLB (.SYCDF) rather than in fixed locations
;		changed $TT2RM to be $XTTNR in fixed area
;		added DEV.CI to DEVDF
;
;75	DBB	added I.TRPS and I.FPPS to impure area for supy monitors
;-
;++
;	RESERVED SYMBOL NAMES
;	---------------------
;
;	NOTE: these must be co-ordinated between SYSMAC and SYSTEM
;		so that there are NO global symbol clashes.
;		SYSTEM allocates globals from ...V99 and down,
;		SYSMAC allocates globals from ...V1 and up.
;
;	...V2	LOCAL	-- reusable in macro def'ns as local symbols
;	...V3	LOCAL	-- reusable in macro def'ns as local symbols
;	...V4	LOCAL	-- reusable in macro def'ns as local symbols
;	...V10	LOCAL	-- reusable in macro def'ns as local symbols
;	...V11	LOCAL	-- reusable in macro def'ns as local symbols
;
;	...V99	GLOBAL	-- If defined, indicates that the .LIST. macro
;			   and its friends have been MCALLed.
;		-1	-- indicates nlist
;		+1	-- indicates list
;
;	...V98	GLOBAL	-- communicates bit value between .BSECT & .BS
;	...V97	GLOBAL	-- communicates location value between .DSECT & .DS
;
;	DOC$UN	GLOBAL	-- conditional symbol
;	FIX$ED	GLOBAL	-- conditional symbol
;	MAC$ER	GLOBAL	-- conditional symbol
;--
;++
;	RESERVED MACRO NAMES
;	--------------------
;
;	...CM.		-- copyright notice
;	...CMA		-- EMT375 series request block dsect gen
;	...CME		-- used to pass the equate type among .BSECT,
;				.DSECT, .LIST., .BS, .DS, .LB, and .EQU
;	...CMT		-- .MT* series request block dsect gen
;--
.Page
;++
;	Error Messages
;
;--
.NLIST	LOC,CND
.IF EQ GP1$DO
.SbTtl	.LIST.	-- Listing control for .DS, .BS, .EQU, .LB
;+
;	.LIST.
;
;	This macro generates the definition of ...CME.
;	The ...CME macro is used to generate an equate.
;	The type of equate is passed in to the .LIST. macro.
;	The .LIST. macro also generates defaults for FIX$ED
;	and DOC$UN.
;
;	.LIST.	list, e
;
;		list (NO)	do not list equate
;		     YES	list equate
;
;		e    (=:)	normal equate
;		      =		changable equate
;		      ==	changable global equate
;		      ==:	normal global equate
;
;-
.SbTtl	...CME	-- defined by .LIST. meta-macro
.SbTtl	.	   generate a equate
;+
;	...CME
;
;	Generate an equate and optionally force it to be listed.
;
;	...CME	SYM VAL
;
;		SYM	symbol to be defined
;
;		VAL	value to set symbol to
;-
.MACRO	.LIST.	LIST=NO,EE=<=:>
.IIF NDF ...V99 .MCALL	.DSECT, .DS, .BSECT, .BS, .EQU, .LB
...V2=0
.IRP	x,<=,==,=:,==:>
.IIF	IDN <EE>,<x>	...V2=1
.ENDR
.IIF EQ ...V2 .ERROR;?SYSTEM-E-Unexpected argument value, use =,==,=: or ==: ;
.IIF	NDF	FIX$ED		FIX$ED=1
.IIF	NDF	DOC$UN		DOC$UN=0
.IF	IDN	<LIST> <YES>
...V99=1
.MACRO	...CME	SYM,VAL
	.LIST
SYM	EE VAL
	.NLIST
.ENDM
.MEXIT
.ENDC
...V99=-1
.MACRO	...CME	SYM,VAL
SYM	EE VAL
.ENDM
.ENDM	.LIST.
.SbTtl	.BSECT	-- initialize definition of bits
;+
;	.BSECT	OFFSET,LIST,E
;
;	This macro defines the first bit to be generated by the
;	following .BS macros.  It can also control the listing
;	of the assignment statements in the the following macros.
;
;	OFFSET	(1)	bit value to begin with.
;			must be a single bit pattern
;
;	LIST		listing control.
;			If not specified, leaves listing setting
;			unchanged.
;			If specified as YES, turns listing on
;			If specified as NO, turns listing off
;
;	E	(=:)	Type of assignment
;		=	changable local
;		=:	fixed local
;		==	changable global
;		==:	fixed global
;-
.MACRO	.BSECT	OFFSET=1,LIST,E
.IIF NDF ...V99 .MCALL	.LIST.
.LIST.	LIST,E
.IIF EQ <OFFSET> .ERROR ^b<OFFSET>;?SYSTEM-E-.BSECT 'OFFSET' is zero;
.IIF NE <OFFSET>&^c-<OFFSET> .ERROR ^b<OFFSET>;?SYSTEM-E-.BSECT 'OFFSET' not a single bit quantity;
...V98	= OFFSET
.ENDM	.BSECT
.SbTtl	.BS	-- define 1 or more bits
;+
;	.BS	NAME,BITS
;
;	This macro allocates 1 or more bits and optionally defines a
;	symbol which contains the mask value for the defined bit(s).
;	The definition may be any of the four equates supported by
;	MACRO.
;
;	NAME		Optional name to assign the mask value to
;
;	BITS	(1)	Number of bits in the mask
;-
.MACRO	.BS	NAME,BITS=1
...V2=...V98
.REPT	BITS-1
...V98	= ...V98*2.
...V2=...V2+...V98
.ENDR
...V98	= ...V98*2.
.IIF EQ	...V2	.ERROR;?SYSTEM-E-.BS overflow, 'NAME' assigned 0;
.IF NB	NAME
.IRP	N,\...V2
...CME	NAME <^o'N>
.ENDR
.ENDC
.ENDM	.BS
.SbTtl	.LB	-- Find low bit in bit pattern
;+
; .LB	SYM,POSITION,SHIFT
;
; .LB will scan a symbols (SYM) value for the lowest order bit and
; set POSITION to a bit pattern corresponding to that low bit.	It
; will also set SHIFT to the number of shifts needed to move the SYM
; value right so that the low order bit of SYM's value will be in
; bit position 0.
;
;	SYM	Input bit pattern to be scanned
;
;	POSITION A mask value with one bit set in it.  The bit that
;		is set is the lowest bit set in SYM.
;
;	SHIFT	A value which is the number of right shifts required
;		to shift the lowest set bit in SYM to the 0 bit
;		position (or left shifts, from the bit 0 position to
;		the lowest bit position in SYM).
;
;
;MASK	=:	000300
;	.LB	MASK,LMASK,SMASK
; sets:
;LMASK	=:	000100
;SMASK	=:	6
;
;	See also .DATDF for for more uses
;
; .LB uses ...V2 and ...V3 as internal symbols
;-
.MACRO	.LB	SYM,POSITION,SHIFT
...V2	=	1
...V3	=	0
.IF NE	<SYM>
.REPT	16.
 .IF NE	<SYM>&...V2
  .IF	NB	<POSITION>
.IRP	N,\...V2
...CME	POSITION	<^o'N>
.ENDR
  .ENDC
 .IF	NB	<SHIFT>
.IRP	N,\...V3
...CME	SHIFT	<^o'N>
.ENDR
 .ENDC
.MEXIT
.ENDC
...V2	=	...V2+...V2
...V3	=	...V3+1
.ENDR
.IFF
.ERROR	<SYM>;?SYSTEM-E-.LB 'SYM' is zero;
.ENDC
.ENDM
.Page
	.LIST.	YES
	.LB	<^o177777>,L1,S0
.Assume	L1	EQ	1
.Assume	S0	EQ	0
	.LB	<^o177776>,L2,S1
.Assume	L2	EQ	<^o2>
.Assume	S1	EQ	1
	.LB	<^o177774>,L4,S2
.Assume	L4	EQ	<^o4>
.Assume	S2	EQ	<^o2>
	.LB	<^o177770>,L10,S3
.Assume	L10	EQ	<^o10>
.Assume	S3	EQ	<^o3>
	.LB	<^o177760>,L20,S4
.Assume	L20	EQ	<^o20>
.Assume	S4	EQ	<^o4>
	.LB	<^o177740>,L40,S5
.Assume	L40	EQ	<^o40>
.Assume	S5	EQ	<^o5>
	.LB	<^o177700>,L100,S6
.Assume	L100	EQ	<^o100>
.Assume	S6	EQ	<^o6>
	.LB	<^o100000>,L10000,S15
.Assume	L10000	EQ	<^o100000>
.Assume	S15	EQ	15.
.IF NE	MAC$ER
	.LB	0,LX,SX
.ENDC;NE MAC$ER
.SbTtl	.DSECT	-- initialize definition of storage area
;+
; .DSECT	N,LIST,E
;
; Start a storage layout definition block at 'n' (default is 0)
; Define symbols as global if GLOBAL=YES
; List assignment values if LIST=YES
;
;	N (0)	is the optional base value of the dsect.
;
;	LIST	controls listing of the equates
;		YES means list
;		NO means no list
;		omitted means use previous setting
;
;	E (=:)	type of equate
;		= variable local
;		=: fixed local
;		== variable global
;		==: fixed global
;-
.MACRO	.DSECT	N=0,LIST,E
.IIF NDF ...V99 .MCALL	.LIST.
.LIST.	LIST,E
...V97	= N
.ENDM	.DSECT

...V97=^o52525			;junk in "location counter"
	.DSECT
.Assume	...V99	EQ	-1	;listing control should be set to nlist
.Assume	...V97	EQ	0	;"Location counter" should be 0
.SbTtl	.DS	-- define 1 or more storage locations
;+
; .DS	NAME,SIZE,UNIT
;
; Define storage in a storage layout
; 'NAME' is a symbol that is equated to the current offset in the layout
;	 if blank, no symbol is defined but space is reserved
; 'SIZE' is the size of the entity in units of bytes or words (default 1)
; 'UNIT' is non-blank to define bytes, blank to define words. typical uses:
;
;	.DS	FOO		Reserve 1 word for FOO
;	.DS	FOO,3		Reserve 3 words for FOO
;	.DS	FOO,1 BYTE	Reserve 1 byte for FOO
;	.DS	FOO,0		Define FOO here, but reserve nothing
;	.DS	,3		Reserve 3 words
;-
.MACRO	.DS	NAME,SIZE=1,UNIT
.IF NB	NAME
.IRP	N,\...V97
...CME	NAME	N
.ENDR
.ENDC
.IF NB	UNIT
...V97	= ...V97+SIZE
.IFF
...V97	= 2.*<SIZE>+...V97
.ENDC
.ENDM	.DS
.SbTtl	.EQU	-- generic (=!=:!==!==:) equate
;+
;	.EQU	NAME,VALUE
;
;	This macro generates an equate statement.  The
;	type of equate is determined by the previous setting of "E"
;	in a .DSECT, .BSECT, or .LIST. macro
;
;	NAME	name of symbol to be assigned
;	VALUE	Value to assign.
;-
.MACRO	.EQU	NAME,VALUE
...CME	NAME	<VALUE>
.ENDM	.EQU

.NLIST	SEQ,LOC,BIN
.ENDC ;EQ GP1$DO
.SbTtl	.	MEMORY RESIDENT DATA STRUCTURES DIAGRAM
.REM	%
	S Y S C O M   A R E A
	=====================
	000040:		o(.SYCDF)
		...
		$JSW	v(.JSWDF)
		...
		$ERRBY	v(.ERRDF)
		$USRRB	v(.UEBDF)
		$SYPTR	----------------+
	=====================		|
					v
					v
					|
+---------------------------------------+
|	F I X E D   A R E A
|	=====================
+------->$RMON:		o(.FIXDF)
			JMP	`$INTEN`	  Interrupt declaration
		$CSW	o(.CHNDF)<----------+	  BG channel control blocks
		$SYSCH	o(.CHNDF)<----------)---+ System channel cont. blks.
		$BLKEY			    |	| Dir segment # in `USRBUF`
		$CHKEY			    |	| Dev index & unit for above
		$DATE	v(.DATDF)	    |	| Current date
		$DLFG			    |   | non-zero, delay abort
		$USRLC			    |   | normal addr of USR
		$QCOMP	c(`COMPLT`)	    |	| I/O completion routine
		$SPUSR	v(.ERRDF)	    |	| Special USR request err word
		$SYUNI			    |	| SY unit # in high byte
		$SYSVE	byte		    |	| major system version #
		$SYSUP	byte		    |	| minor system update #
		$CNFG1	v(.CF1DF)	    |	| first config word
		$SCROL			    |	| link word for GT ON
		$TTKS	v(.DLxHD)	    |	| Console recv CSR
		$TTKB	v(.DLxHD)	    |	| Console recv DAT
		$TTPS	v(.DLxHD)	    |	| Console xmit CSR
		$TTPB	v(.DLxHD)	    |	| Console xmit DAT
		$MAXBL			    |	| Largest open w/-1 blksize
		$E16LS	 [offset]-----------)---)--------------------------------------->LST16:	o(.E16DF)
		$CNTXT	----------------+   |	| Ptr to current job impure
		$JOBNU			|   |	| Current job number
		`$TIME` 2 words (SJ)	|   |	| overlays prev 2 words
		$SYNCH	c(`$SYNCH`)	|   |	| .SYNCH routine
		$LOWMA	ov(.LOWDF) 10 W	|   |	| System vector prot bitmap
		$USRLO			|   |	| USR current entry point
		$GTVEC			|   |	| Ptr stop display vector
		$ERRCN			|   |	| Used by BA
		$MTPS	c(`PUTPSW`)	|   |	| CPU independent MTPS
		$MFPS	c(`GETPSW`)	|   |	| CPU independent MFPS
		$SYIND	c(000002)	|   |	| index value for SY device
		$STATW	v(.STWDF)	|   |	| DCL and IND status
		$CNFG2	v(.CF2DF)	|   |	| second config word
		$SYSGE	v(.SGNDF)	|   |	| sysgen word
		$USRAR	c(`USRSIZ`)	|   |   | USR size
		$ERRLE	v(.UEBDF) byte	|   |	| error level to abort @ files
		$IFMXN	byte		|   |	| max file nest level
		$EMTRT c(`EMTRTI`-$RMON)|   |   | EMT exit routine
		$FORK  c(`$FORK`-$RMON)	|   |   | Fork routine
		$PNPTR c(`$PNAME`-$RMON)|   |   | Handler name table offset
		$MONAM c(monitor name)2W|   |   | RAD50 monitor name
		$HSUFF c(handler suffix)|   |   | RAD50 handler suffix
		$SPSTA	v(.SPLDF)	|   |	| SPOOL status word
		$EXTIN	v(.UEBDF) byte	|   |	| Saved user error byte
		$INDST	v(.INDDF) byte	|   |	| IND status byte
		$MEMSZ			|   |	| Total memory size / 64
		$ELTIM c(`GTIHOK`-$RMON)|   |   | ptr to get time routine
					v   v	v
					v   v	v
		$TCFIG	}-(non-mtty)----)---)---)------------------------------------->`TTCNFG`: ov(.TTCDF)
			}-----(mtty)----)---)---)-------+					=====================
		$INDDV	o(.CLDDF)	|   |	|	| ASCII IND device and CLI info pointer
					|   |	|	|					=====================
					|   |	|	|			       `$RAMSZ`:
		$MEMPT	 ---------------)---)---)-------)----------------------------->`CORPTR`: o(.MEMDF)<---+
					|   |	|	|					`CORPTR`------+
					|   |	|	|				(xm)	`$XMSIZ`-`$RMON`
					|   |	|	|				(xm)	[offset]----------------+
					|   |	|	|				(xm)	R.GNUM		 (byte)	|
					|   |	|	|				(xm)	3*SUP$Y+1*W.NNUM (byte)	|
					|   |	|	|				(xm)	[offset to M.RGN]	|
					|   |	|	|				(xm)	[offset to M.WCB]	|
					|   |	|	|				(xm)	[offset to M.APR]	|
					|   |	|	|				(xm)	[offset to I.VHI]	|
					|   |	|	|					=====================	|
		P1$EXT	----------------)---)---)-------)---+-(XM)--------------------->`$P1EXT`: o(.P1XDF)		|
					|   |	|	|   +-(NONXM)------------------>0				|
		$TRPLS------------------)---)---)-------)---+-(XM)--------------------->`TRPLST`: o(.???DF)		|
					|   |	|	|   +-(NONXM)------------------>0				|
		$GETVE	----------------)---)---)-------)---+-(PRO)---------------------->??????: o(.PRODF)		|
		$DWTYP	v(.DWTDF)	|   |	|	|   +-(NOPRO)------------------>`ERRRTN`: o(.RTSDF)		|
		$TRPSE	c(I.TRAP)	|   |	|	| Offset value in IMPURE					|
		$NULJB	----------------)---)---)-------)------------------------------>`..NULJ`: o(.NULDF)		|
		$IMPLO	----------------)---)---)-------)--------------------->`$IMPUR+MXJBNM+2`: o(.IMPDF)		|
		$KMONI			|   |	|	| 0=KMON out, <>KMON in						|
		$DEDIT	v(.PGMDF) byte	|   |	|	| Current default editor					|
		$DFORT	v(.PGMDF) byte	|   |	|	| Current default FORTRAN					|
		$WILDD	byte		|   |	|	| 0=Explicit, 1=Implicit					|
		$JOBS	byte		|   |	|	| Number of job slots (1-8)					|
		$QHOOK	----------------)---)---)-------)------------------------------>`Q2CAHK`: o(.QHKDF)		|
					|   |	|	|					 `C2CAHK`:------+	|
					|   |	|	|				===================	|	|
		$H2UB	----------------)---)---)-------)---+-(UB active)--------------->??????:  o(.UBVDF)	|	|
					|   |	|	|   +-(UB inactive)------------>`ERRRTN`: o(.RTSDF)	|	|
		$XOFF	----------------)---)---)-------)---+-(not MTTY)--------------->`XEDOFF`: XonOff byte	|	|
					|   |	|	|   +-(MTTY)------------------->`T.STAT`offset "  "	|	|
		$RTSPC	----------------)---)---)-------)------------------------------>`ERRRTN`: o(.RTSDF)	|	|
		$CNFG3	v(.CF3DF)	|   |	|	|							|	|
		$XTTNR			|   |	|	| Called if no room for next input char			|	|
		$THKPT	----------------)---)---)-------)------------------------------>`THOOKS`: o(.THKDF)	|	|
		$DECNT	v(.DNTDF)	|   |	|	|							|	|
		$XTTPS			|   |	|	| Called before read of @TTPS and after change of @TTPS	|	|
		$XTTPB			|   |	|	| Called after change of @TTPB	+-----------------------+	|
		$SLOT2			|   |   |       | Max handler table index 	|				|
		$SPSIZ			|   |	|	|				|  ===========================	|
	=====================		|   |	|	|				|  ===========================	|
					|   |	|	|				+------->`C2CAHK`: o(.CHKDF)	|
					|   |	|   +---)---------------------------------------------------------------+
	$IMPUR:-------------------------+   |	|   |	|
	BCNTXT:	------------------------+   |	|   |	|
	...				|   |	|   |	|
	FCNTXT:	------------------------+   |	|   |	|
	TTOUSR:	------------------------+   |	|   |	|
	TTIUSR:	------------------------+   |	|   |	|
					|   |	|   |	|
	FRKQUE:---------------------+---)---)---)---)---)------------------------------>element	o(.QFKDF)
	FRKLQE:---------------------+	|   |	|   |	|					F.BLNK	->[next element]
					|   |	|   |	|					...
					v   ^   ^   v   v
					v   ^   ^   v   v
					|   |	|   |	|
+---------------------------------------+---)---)---)---)-------+
|	I M P U R E   A R E A		    |	|   |	|	|
|	=====================		    |	|   |	|	|
+------>	I.BASE	o(.IMPDF)	    |	|   |	|	|
	'BKGND':I.STAT	v(.ISTDF)	    |	|   |	|	| job state word		=====================
	`BKGND1`:I.QHDR	--------------------)---)---)---)---+---)----------------------->element o(.QELDF)
					    |	|   |	|   |	|				Q.LINK	->[next element]
					    |	|   |	|   |	|				Q.CSW	->[CCB]
					    |	|   |	|   |	|				...
					    |	|   |	|   |	|				=====================
					    |	|   |	|   |	|				=====================
		I.CMPE ---------------------)---)---)---)---+---)----------------------->element o(.QCMDF)
					    |	|   |	|   |	|				QC.LNK	->[next element]
					    |	|   |	|   |	|				...
					    |	|   |	|   |	|				QC.OFS	[offset]->[CCB]
					    |	|   |	|   |	|				...
					    |	|   |	|   |	|				=====================
					    |	|   |	|   |	|				=====================
		I.CMPL ---------------------)---)---)---)---)---)----------------------->element o(.QSYDF)
					    |	|   |	|   |	|				QS.LNK	->[next element]
					    |	|   |	|   |	|				...
					    |	|   |	|   |	|				=====================
		I.CHWT	----------------+---)---)---)---)---)---)----------------------->CCB	o(.CHNDF)
		I.PCHW	----------------+   |	|   |	|   |	| channel and prev chan waited on
		I.PERR	v(.ERBDF)	    |	|   |	|   |	| previous error byte
		I.TTLC	(nonMTTY)	    |	|   |	|   |	| input line count
		I.PTTI	(nonMTTY)	    |   |   |   |   |   | previous input char
       `BKCNSL`:I.CNSL	---(MTTY)-----------)---)---)---+   |	| Addr console term TCB
		c(0)	   (MTTY)	    |	|   |	|   |	| reserved
		I.TID	----------------+   |	|   |	|   |	| addr of prompt string
		I.JNUM	c(Job*2)	|   |	|   |	|   |	| job number (constant)
		I.CNUM			|   |	|   |	|   |	| number of channels for this job
       `BKGND3`:I.CSW	----------------)---+	|   |	|   |	| addr of channel status blocks
		I.IOCT			|	|   |	|   |	| count of outstanding I/Os
		I.SCTR			|	|   |	|   |	| suspend /resume count
		I.BLOK	v(.IBKDF)	|	|   |	|   |	| blocking bits for job
	`BKGID`:I.JID<------------------+	|   |	|   |	| job prompt (8 bytes for non sysjob, 12. for sysjob)
		I.LNAM	6 bytes			|   |   |   |   | job logical name (sysjob only)
	`BNAME`:I.NAME	o(.DBKDF)		|   |   |   |   | file the job was run from
		I.SPLS	------------------------)---)---)---)---)----------------------->list	o(.DVLDF)
		I.TRAP				|   |	|   |	| addr of 4/10 trap routine
		I.FPP	(FPU only)		|   |	|   |	| addr of FPU trap routine
		I.SPSV	(XM only)		|   |	|   |	| kernal SP save area
		I.SWAP	2 words-----------------)---)---)---)---)----------------------->list	o(.SWPDF)
		I.SP				|   |	|   |	| SP save area
		I.BITM  ? bytes			|   |   |   |   | job low memory bit map
		I.CLUN	(MTTY only)		|   |   |   |   | unit number of console
		I.TTLC	(MTTY only)		|   |   |   |   | input line count
       `TTIBUF`:I.IRNG------------------+	|   |	|   |	| input ring low limit
		I.IPUT------------------+	|   |	|   |	| input ring interrupt pointer
		I.ICTR			|	|   |	|   |	| input ring char count
		I.IGET------------------+	|   |	|   |	| input ring EMT pointer
		I.ITOP------------------+	|   |	|   |	| input ring high limit
	`IBUFR`:[buffer]<---------------+	|   |	|   |	| input ring buffer
						^   v	v   v	^
						^   v	v   v	^
       `TTOBUF`:I.OPUT------------------+	|   |	|   |	| output ring EMT pointer
		I.OCTR			|	|   |	|   |	| output ring char count
		I.OGET------------------+	|   |	|   |	| output ring interrupt pointer
		I.OTOP------------------+	|   |	|   |	| output ring high limit
	`OBUFR`:[buffer]<---------------+	|   |	|   |	| output ring buffer
       `BAVAIL`:I.QUE	o(.QELDF)<--------------)---)---)---+	| initial queue element
		I.MSG	o(.CHNDF)		|   |	|	| c(ACTIV$!<`MSGENT`-`$ENTRY`) Message channel ccb
			    "			|   |	|	| Message channel ccb
			    "			|   |   |	|    "       "     "
		I.SERR				|   |   |	| .SERR / .HERR flag word (in msg CCB)
			    " BYTE		|   |   |	| Message channel ccb
			    " BYTE		|   |   |	| c(`MXJBNM`) FG job number
		I.TERM	v(.TSTDF)		|   |	|	| first terminal status word
		I.TRM2	v(.TS2DF)		|   |	|	| second terminal status word
		I.SCCA	------------------------)---)---)-------)----------------------->flag	o(.TASDF)
		I.SCC1	(XM only)		|   |	|	| PAR1 bias for above
		I.SCCV	(XM only)<fut>		|   |	|	| original virt address for above
		I.DEVL	------------------------)---)---)-------)----------------------->list	o(.DVLDF)
       `BGFPPT`:I.FPSA--(FPU and XM only)---+	|   |	|	| addr FPU save			??????	->[next list]
		I.SCOM	(XM only) 15. words |	|   |	|	| SYSCOM and vec save		=====================
			(XM & MTTY only) +1 |	|   |   |	| more if MTTY
		I.RSAV	8 words	(XM only)   |	|   |	|	| register save area
       `BGMPTR`:I.MPTR (XM only)<-----------)---)---+ --)-------)----------------------->block	o(.MCADF)
		I.MPB	7 WORDS (XM only)   |	|	|	| parameter block for PLAS requests
		I.PLSP	(XM only)	    |	|	|	| PLAS request I-D space pass flag
		I.CMAP	(ZM only)	    |	|	|	| Mode/Space mapping context
		I.SSP	(ZM only)	    |	|	|	| Supervisor mode SP save area
       `BJFPSV`:I.FSAV<-(FPU and XM only)---+	|	|	| FPU save area			W.BRCB	->RCB
	`BGVHI`:I.VHI	(XM only)		|	|	| Virtual high limit value
		I.VSTP	(XM only)		|	|	| VBGEXE hi limit value for .SETTOP
		I.ECTR	(SPCPS only)		|	|	| EMT depth counter
		I.SPCP	(SPCPS only)------------)-------)-------)----------------------->block	o(.SPCDF)
		I.SPC1	(SPCPS and XM only)	|	|	| PAR1 offset for above
       `PBSYCH`:I.SCHP	------------------------+	|	| addr of system channel
		I.SYCH	o(.CHNDF)<-(non BG job)-+	|	| CCB for system channel
	=====================				|	|
							V	^
;>>>to here
							V	^
+-------------------------------------------------------+	|
|	T E R M I N A L	 C  B					|
|	=====================					|
+------->DLTCB:		o(.TCBDF)				|
		T.CNFG	v(.TCFDF)				|
		T.CNF2	v(.TC2DF)				|
		...						|
		T.OWNR------------------------------------------+
		T.STAT	v(.TSTDF)
		...
		T.IRNG------------------+
		T.IPUT------------------+
		...			|
		T.IGET------------------+
		T.ITOP------------------+
		[buffer]<---------------+

		T.OPUT------------------+
		...			|
		T.OGET------------------+
		T.OTOP------------------+
		[buffer]<---------------+
		...
		T.TBLK	o(.QTIDF)
		...
		T.AST	---------------------------------------------------------------->flag	v(.TASDF)
		...
%
.NLIST	SEQ,LOC,BIN
.SbTtl	.	Memory Data Structure
.REM	%
[000000].VECHD						(in HARDWA)
[000040].SYCDF	($SYPTR)----------------+
[000060].VECHD	(cont.)			|		(in HARDWA)
[000500].CHADF				|
[000510].CCLDF				|
					|
+---------------------------------------+
|
+------>.FIXDF


[IOPAGE].CPUHD						(in HARDWA)
[IOPAGE].MMUHD						(in HARDWA)
	%
.NLIST	SEQ,LOC,BIN
.SbTtl	.	DISK DATA STRUCTURE
.REM	%
	.DSKDF					disk layout by blocks
[0]	DK.BOT:	o(.BOTDF)			boot block
				ov(.BBSDF)	boot block "standard" info
[1]	DK.HOM:	o(.HOMDF)			home block
			HB.BAD:	o(.BBRDF)	bad block replacement
			HB.INI:	o(.HINDF)*2	Initialize/Restore info
			HB.BUP:	o(.BUPDF)	BUP volume info
			HB.USE:	o(.HUSDF)	user area
			HB.DIR:-+		-> directory
				|
     +--------------------------+
     |			HB.VER:	v(.HSVDF)	file system version
[2]  |	DK.BT2:					secondary boot blocks
[6]  +->DK.DIR:					directory blocks
				ov(.DIHDF)	directory header layout
				ov(.DIEDF)	directory entry layout
%
.NLIST	SEQ,LOC,BIN
.SbTtl	Image file block 0 (& handler block 1) formats
.REM	~
											.HANDF (H.xxxx)
	.SAVDF	(xx=SV)				.RELDF	(xx=RL)
	.SYCDF	($xxxxx)			.MONDF (M.xxxx,$GEN%%)
	.SLBDF	(SL.xxx)

		*.SAV					*.REL					xxs.SYS
		*.SLB				   RTxxxx.SYS
	+-------+-------+			+-------+-------+			+-------+-------+
$VIRT:	| 0 or RAD50 VIR|[000]		M.MON:	|  RAD50 "MON"	|		H.HAN:	|  RAD50 "HAN"	|
	+-------+-------+			+-------+-------+			+-------+-------+
$VIRTO:	|Virt settop val|[002]							H.FETC:	| -> FETCH Rout	|
	+-------+-------+			+-------+-------+			+-------+-------+
$JSX:	|		|[004]v(.JSXDF)	$JSX:	|		|   v(.JSXDF)	H.RELE:	|-> RELEASE Rout|
	+-------+-------+			+-------+-------+			+-------+-------+
$VBGTO:	|     value	|[006]		$VBGTO:	|     value	| [006]		H.LOAD:	| -> LOAD Rout	|[006]
	+-------+-------+			+-------+-------+			+-------+-------+
$SLB:	|-> .SLB ID	|[010]			|     <res>	|		H.UNLO:	| -> UNLOAD Rout|
SL.VEC:	|CSM vec in .SLB|			|		|			|		|
	+-------+-------+			+-------+-------+			+-------+-------+
SL.DAT:	| date in .SLB	|[012]			|     <res>	|		H.FORM:	| -> FORMAT Data| o(.FMTDF)<fut>
	+-------+-------+			+-------+-------+			+-------+-------+
SL.TIM:	| time in .SLB	|[014]			|		|			|		|
xx.BPT:	| -> BPT AST	|		xx.BPT:	| -> BPT AST	|		H.BOOT:	| -> BOOT Rout	| o(.BSRDF)<fut>
	+-------+-------+			+-------+-------+			+-------+-------+
SL.TIM+2|   .SLB (cont)	|[016]			|		|			|		|
	|    BPT PS	|			|    BPT PS	|			|     <res>	|
	+-------+-------+			+-------+-------+			+-------+-------+
xx.IOT:	| -> IOT AST	|[020]		xx.IOT:	| -> IOT AST	|	H.CLAS:		| Class	|[020] v(.DVCDF)
	|		|			|		|			+-------+-------+
SL.NAM:	| name in .SLB	|			|		|		H.MOD:	| Flags	|	 [021] v(.DVMDF)
	+-------+-------+			+-------+-------+			+-------+-------+
SL.NAM+2|   .SLB (cont)	|[022]			|		|			|		|
	|    IOT PS	|			|    IOT PS	|		H.SPF1:	|  Nxx	|  xNN	| v(.DSPDF)
	+-------+-------+			+-------+-------+			+-------+-------+
SL.BLK:	|SLB block #	|[024]			|     <res>	|		H.SPF2:	|  Nxx	|  xNN	| v(.DSPDF)
SL.FLG:	|SLB option flag| o(.SLBDF)		|		|			|	|	|
	+-------+-------+			+-------+-------+			+-------+-------+
	|     <res>	|[026]			|     <res>	|		H.SPF3:	|  Nxx	|  xNN	| v(.DSPDF)
	+-------+-------+			+-------+-------+			+-------+-------+
xx.NID:	|<>0 no sep I/D	|[030]		xx.NID:	|<>0 no sep I/D	|		H.SPFX:	| -> more SPFUNs|
	+-------+-------+			+-------+-------+			+-------+-------+
SV.CVH:	|overlay config	|[032]		RL.CVH:	|overlay config	|		H.REPL	| -> Repl Data	| o(.RGTDF)
	+-------+-------+			+-------+-------+			+-------+-------+
xx.TRP:	| -> TRAP AST	|[034]		xx.TRP:	| -> TRAP AST	|			|     <res>	|
	+-------+-------+			+-------+-------+			+-------+-------+
	|    TRAP PS	|[036]			|    TRAP PS	|		H.STS2:	|2nd Status Word| v(.HS2DF)
$SYCOM:	+-------+-------+			+-------+-------+			+-------+-------+
$USRPC:	|  starting PC	|[040]		$USRPC:	|  starting PC	|
SV.BLK:	|blk#*2+1 Ispace|			|		|
	+-------+-------+			+-------+-------+
$USRSP:	|  starting SP	|[042]		$USRSP:	|  starting SP	|
	+-------+-------+			+-------+-------+
$JSW:	|job status word|[044] v(.JSWDF)$JSW:	|job status word|	v(.JSWDF)
	+-------+-------+			+-------+-------+
	+-------+-------+			+-------+-------+
$UFLOA:	|USR float addr	|[046]		$UFLOA:	|USR float addr	|
	+-------+-------+			+-------+-------+
$USRTO:	|User high addr	|[050]		$USRTO:	|User high addr	|
	+-------+-------+			+-------+-------+			+-------+-------+
	|    <res>	|		RL.RSZ:	|  Root Size	|[052]		H.SIZ:	| Handler Size	|
	+-------+-------+			+-------+-------+			+-------+-------+
	|    <res>	|		RL.SSZ:	|  Stack Size	|[054]		H.DSIZ:	|Dev Size Blocks|
	+-------+-------+			+-------+-------+			+-------+-------+
SV.KWD:	| value from /K	|[056]		RL.OSZ:	| Overlay Size	|		H.DSTS:	| Device Status	| v(.DSTDF)
	+-------+-------+			+-------+-------+			+-------+-------+      v(.DEVDF)
SV.SID	|SV.IDS if IDjob|[060]		RL.RID:	|   RAD50 REL	|		H.GEN:		|Sysgen	|[060] v(.SGNDF)
	| (RAD50 IDS)	|			|		|			+-------+-------+
	|		|			|		|			| <res> |	 [061]
	+-------+-------+			+-------+-------+			+-------+-------+
	|     <res>	|[062]		RL.RDB:	|first REL block|		H.BPTR:	| -> Pri BootStr| v(.BOTDF)
	+-------+-------+			+-------+-------+			+-------+-------+
xx.OVR:	| -> overlay tab|[064] o(.OTBDF)xx.OVR:	| -> overlay tab| o(.OTBDF)	H.BLEN:	| BootStrap Size|
	+-------+-------+			+-------+-------+			+-------+-------+
SV.SEG:	| -> virt seg tb|[066]	o(.VRTDF)					H.READ:	| -> Boot Read	|
	+-------+-------+								+-------+-------+
										H.TYPE:	|  RAD50 "???"	|[070]
											+-------+-------+
										H.DATA:	|-> Data or List|[072] o(.DUSDF)
											+-------+-------+
										H.DLEN:	|   Data size	|[074]
											+-------+-------+
										H.UNIT:	| -> 64 Owner	|[076] o(.U64DF)
											+-------+-------+
										H.64UM:	|letter	& flags	|[100] v(.HUMDF)
											+-------+-------+
											|     <res>	|[102]
											+-------+-------+
											|     <res>	|[104]
											+-------+-------+
										H.USER:	| -> User Table	|[106] o(.DUSDF)
											+-------+-------+
	+-------+-------+			+-------+-------+			+-------+-------+
	:		:[110]	o(.MODDF)	:		:	o(.MODDF)	:		: o(.MODDF)
	|  see .MODDF	|			|  see .MODDF	|			|  see .MODDF	|
	:		:			:		:			:		:
	+-------+-------+			+-------+-------+			+-------+-------+

											+-------+-------+
											|	0	|list terminator
											+-------+-------+
											:		:
											+-------+-------+
										H.DCSR:	|  Display CSR	|[174]
						+-------+-------+			+-------+-------+
					H.ICSR:	|	0	|[176]		H.ICSR:	|  Install CSR	|
						+-------+-------+			+-------+-------+
					H.IDK:	|      NOP	|[200]		H.IDK:	|Code Data Inst.|
						+-------+-------+			+-------+-------+
					H.ISY:	|      SEC	|[202]		H.ISY:	|Code SY Install|
						+-------+-------+			+-------+-------+
						+-------+-------+
						|    RETURN	|[204]
						+-------+-------+
					$GENUS:	| USR gen opts	|[300]
						+-------+-------+
					$GENIN:	|Ins set & other|[302]
						+-------+-------+
					$GENCD:	| Cmnd gen opts	|[304]
						+-------+-------+
					$GENMS:	|Misc. gen opts	|[306]
						+-------+-------+
					$GENXM:	| XM gen opts	|[310]
						+-------+-------+
					$GENTT:	| Term gen opts	|[312]
						+-------+-------+
					$GENLM:		|Rmt DL	|[314]
						+-------+-------+
					$GENLN:	|Tot DL	|	 [315]
						+-------+-------+
					$GENZM:		|Rmt DZ	|[316]
						+-------+-------+
					$GENZN:	|Tot DZ	|	 [317]
						+-------+-------+
					$GENDZ:	| DZ11 hdw opts	|[320]
						+-------+-------+
					$GENTM:	| DL Xmt CSR 	|[322]
						+-------+-------+
					$GENTI:	| TTYIN buf size|[324]
						+-------+-------+
					$GENTO:	|TTYOUT buf size|[326]
						+-------+-------+
					$GENKB:	| V.TKB vector	|[330]
						+-------+-------+
					$GENPS:	| V.TPS vector	|[332]
						+-------+-------+
					$GENVC:	| VT.CSR value	|[334]
						+-------+-------+
					$GENVV:	| VT.VEC vector	|[336]
						+-------+-------+
					$GENLR:		|$LRLPZ	|[340]
						+-------+-------+
					$GENRR:	|$RMLSZ	|	 [341]
						+-------+-------+
					$GENPT:	|Patch area size|[342]
						+-------+-------+
					$GENSP:	|Sys Stack Size	|[344]
						+-------+-------+
					$GENSS:		|STARTx	|[346]
						+-------+-------+
					$GENRC:	|# GRCBs|	 [347]
						+-------+-------+
					$GEND1:	| DCL cmnds	|[350]
						+-------+-------+
					$GEND2:	| DCL cmnds	|[352]
						+-------+-------+
						+-------+-------+
					$GEND3:	| DCL cmnds	|[354]
						+-------+-------+
					$GEND4:	| DCL cmnds	|[356]
						+-------+-------+
					$GENHM:		|Rmt DH |[360]
						+-------+-------+
					$GENHN:	|Tot DH |	 [361]
						+-------+-------+
					$GENDH: | DH11 hdw opts |[362]
						+-------+-------+
	+-------+-------+			+-------+-------+			xx.BIT NOT used in handlers
xx.BIT:	|		|[360]		xx.BIT:	|		|
	+  File useage	+			+  File useage	+
	|   bit map	|			|   bit map	|
	:		:			:		:
	|    8 words	|			|    8 words	|
	+-------+-------+			+-------+-------+

								+-------+-------+--//---+-------+-------+
							H.SET:	|					|[400] ov(.DSEDF)
								+-------+-------+--//---+-------+-------+
								:					:
								+-------+-------+--//---+-------+-------+
								|					|     ov(.DSEDF)
								+-------+-------+--//---+-------+-------+

						+-------+-------+
					H.SET:	|	-1	|[400] dummy new SET form<fut>
						+-------+-------+
					M.RMON:	|    `$RMON`	|[402] file address of fixed area
						+-------+-------+
					H.???:	|	0	|[404] no SETs (for now)<fut>
						+-------+-------+
					H.???:	|     1000	|[406] magic number<fut>
						+-------+-------+

											.HBGDF	(H1.xxx)

											+-------+-------+
										H1.VEC:	|Vector -> table| [1000] ov(.DVTDF)
											+-------+-------+
										H1.ABT:	|offset to DRAST| [1002]
											+-------+-------+
										H1.HLD:	|  34x in file	| [1004]
											+-------+-------+
										H1.LQE:	|-> Last Qel	| [1006]
											+-------+-------+
										H1.CQE:	|-> First Qel	| [1010] ov(.QELDF)
										H1.FLG:	+-------+-------+	  v(.HBFDF)
										H1.NOP:	|   NOP!Flags	| [1012] v(.HNPDF)
											+-------+-------+
										H1.BR:	| BR xxx	| [1014]
											+-------+-------+if 20 in H1.NOP
										H1.FG2:	|2nd flag word	| [1016]v(.HF2DF)
											+-------+-------+ if 20 in H1.NOP
										H1.SCK:	|-> Addr Check	| [1020]
											+-------+-------+ if 1!2!4!10 in H1.FG2
										H1.SDF:	|->SPFUN DMA tab| [1022] v(.DSPDF)
											+-------+-------+ if 2!4!10 in H1.FG2
										H1.LDT:	|->LD table	| [1024] ov(.ZLDDF)
											+-------+-------+ if 4!10 in H1.FG2
										H1.NDF:	|->NonSTD SPF	| [1026] ov(.DSPDF)
											+-------+-------+ if 10 in H1.FG2
						+-------+-------+
					B$RTEV:	|RTEM version #	|[4714] RTEM-11 only
						+-------+-------+
					B$DEVN:	|RAD50 dev name	|[4716] Booted device name
						+-------+-------+
					B$DEVS:	|RAD50 dev name	|[4720] Booted device name w/o suffix
						+-------+-------+
					B$DEVN:	|^RBOT or ^RRTE	|[4722] "Bootable" indicator in file
						| booted unit #	|	unit number in memory
						+-------+-------+-------+-------+
					B$FNAM:	|	 RAD50 monitor name	|[4724] Booted monitor name
						+-------+-------+-------+-------+
					B$READ:	| -> Boot READ	|[4730] Address of boot read routine
						+-------+-------+

						+-------+-------+
					B$SUFF:	|Handler suffix	|[4774] suffix value from monitor
						+-------+-------+
					B$SYOP:		|	|[4776] monitor sysgen options v(.SYGDF)
						+-------+-------+
						| <res>	|	 [4777]
						+-------+-------+-------+-------+
					B$TIME:	|	previous time		|[5000] previous time o(.TIMDF)
						+-------+-------+-------+-------+
					B$DATE:	| prev date	|[5004] previous date v(.DATDF)
						+-------+-------+
					B$HIME:	| high memory	|[5006] RTEM-11 only
						+-------+-------+
					B$SVTK:	|-> RTEM routine|[5010] RTEM-11 only
						+-------+-------+
					B$LK50:	| 50/60 HZ flag	|[5012] RTEM-11 only
						+-------+-------+
					B$LKGR:	| clock exists?	|[5014] RTEM-11 only
						+-------+-------+
					B$FPU:	| FPU exists	|[5016] RTEM-11 only
						+-------+-------+
	~
.NLIST	SEQ,LOC,BIN
.SbTtl	Handler Word and bit allocation policy
.REM	~

Handler files have space constraints both in block 0 and in
the memory resident portion (block 1 +).  The following is
an explanation of the word allocation strategy, followed by
the same for bit flags.

Block 0 and 1 Word strategy:

1) Word at 000 is used to indicate a "new format" block 0.

2) Words in the 002 -- 016 are used as pointers to
executable code that is not contained in the memory resident
part of the handler.  SYSTEM (edit 06) has 016 available for
allocation.

3) Words (and bytes) 020 -- 036 are used to contain flags
and to point to data areas not contained in the memory
resident part of the handler.  SYSTEM (edit 03) has 034
available for allocation.

4) Words 040 -- 050 are used as SYSCOM area for a handler
that is also runnable as a job.

5) Words 052 -- 056 contain .DSTATUS information.

6) Byte 060 contains the SYSGEN bits.  061 should be used
for "don't care" bits related to the SYSGEN.

7) Words 062 -- 066 are used to describe the boot code (if
present).

8) Words 070 -- 074 are used to point to the "DEC" data
table or indirectly to a list of multiple tables.

9) Word 076 and part of 100 are used for 64 unit support.

10) The rest of Word 100 is used for UMR support.

11) Words 102 and 104 are reserved for future expansion.
If all the other words below 104 are allocated, 104 should
not be used for additional "block 0" information, rather it
should point to an area outside block 0 that will contain
overflow "block 0" information.

12) Word 106 points to a list of "user" data table(s).

13) Word 110 and following (ascending) words contain .MODULE
and .AUDIT information.	 This list is terminated by a word
containing -1.

14) Word 174 and preceeding (descending) words contain
Display CSRs.  This list is terminated by a word containing
0.

15) Word 176 contains the Install CSR.
16) Words 200 and following (ascending) words contain the
Install code.  This code must not go above 377.	 Note that
the bitmap is supposed to be suppressed for handler links.

17) Words 400 and following ascending words contain the SET
tables and set code.  This code must not go above 777.


18) Words 1000 -- 1012 are the "fixed" .DRBEG structure.
Note that 1012 is not really fixed in that the system will
ignore its contents if it is not in the range 240 -- 277.

19) Words 1014 and following ascending words are the
"variable" .DRBEG structure.  For information on allocation
within this structure see the policy note under .HBGDF.

Flag bit (and other less than byte) allocation policy:

Use (Mode de employ) classification:

A) Needed for access from the memory-resident portion of the
handler.

B) Needed for access from the non-memory resident portion,
preferably in block 0.

C) Needed for access from the non-memory resident portion,
preferably in block 1.


The Class A flags are allocated as follows:

1) NOP word (filled at SYSTEM edit 03)

2) H1.FG2 beginning with lower bits to moving to upper bits
for flags that imply data words in the "variable" .DRBEG
area.  H1.FG2 from 040000 and descending for flags that do
not imply data words in the "variable" .DRBEG area.  When
all other bits are assigned, 100000 is set and H1.FG3 is
defined as the last word in the "variable" area.  Repeat the
same rules for H1.FG3.

			NOTE:

The 040000 bit in H1.FG2 indicates that the handler supports
64 unit.  By coincidence the extended OWNER table is
contained in the "variable" area, but it is not meant to be
accessed by information in block 1 (there is a pointer in
block 0 for that purpose), so it was assigned a high bit in
the flag word.
The Class B flags are allocated as follows:


i) Generic information

1) Assign added DVC.%% codes if the meaning is a broad
generic handler grouping.

2) Assign high to low bit in DVM.%% if the meaning modifies
more than 1 DVC.%% and is of "general" interest (something
that multiple utilities or applications would need to
know).

3) Assign low to high bit in DVM.%% if the meaning modifies
just 1 DVC.%% class and is of "general" interest (something
that multiple utilities or applications would need to
know).

Be sparing of the above three methods.


ii) Bad block replacement information

1) Assign low to high bits in RGT.FG (.RGTDF) if the
information is of interest to a utility doing bad block
replacement.


iii) General interest

1) Assign to H.DSTS (filled, long time now)


iv) Installation restriction

1) Assign low to high bits in H.GEN if the information is of
interest in rejecting installation.

v) UMR (IO mapping)

1) Assign low to high bits in H.64UM.  In SYSTEM edit 03 1
bit is available.


vi) General and overflow from i-v above

1) Assign bits low to high in H.STS2 (.HS2DF).

2) On overflow allocate H.STS3 if space available, else
allocate a flag word in the block 0 overflow area pointed to
by 104.
The Class C flags are allocated as follows:

1) H1.FLG High bit to low bit (for no good reason).

2) Use bits in block 0 or bits in H1.FGn depending on the
expense of having block 0 accessed against the "waste" of
using memory resident bits when not needed for
memory-resident purposes.

	~
.SbTtl	EMT REQUESTS -- request block formats and response areas
.REM	~
Request Input		Name		Output		Errors (ER.%%%)
-------	-------		--------	--------	------
..ABTI	channel		.ABTIO		<none>		<none>
..ASTX	<none>?		.ASTX		<none>?		<none>?
..CALL	dest		.CALLK		<none>		<none>
..CDFN	buffer		.CDFN		<none>		CHN
..CHAI	o(.CHADF)	.CHAIN		o(.CHADF)	<none>
..CHCO	channels	.CHCOPY		<none>		CHN OCH
..CLOS	channel		.CLOSE		<none>		PRO
..CLOZ	channel		.CLOSZ		<none>		EXT NEN PRO
..CMKT	id		.CMKT		o(.TIMDF)	INF
..CNTX	list||0		.CNTXSW		<none>		ADR
..CMAP	v(.CMPDF)	.CMAP		v(.CMPDF)	???
	v(.CMPDF)	.GCMAP		v(.CMPDF)	???
	v(.CMPDF)	.MSDS		v(.CMPDF)	???
..CRAW	ov(.WDBDF)	.CRAW		ov(.WDBDF)	WAL PAR RID OVR
..CRRG	ov(.RDBDF)	.CRRG		ov(.RDBDF)	NRC MEM RSZ GNF NGC PVT
..CSIG	o(.DFXDF)	.CSIGEN		ov(.OPTDF)	CMD DNC PRE FUC FNC
..CSIS	o(.DFXDF)	.CSISPC		ov(.OPTDF)	CMD DNC
					o(.CSIDF)
..CSTA	channel		.CSTATUS	o(.CSTDF)	CHN
..DATE	<none>		.DATE		o(.DATDF)	<none>
..DELE	o(.DBKDF)	.DELETE		<none>		CHN FNF OPE PRO
..DEVI	o(.DVLDF)	.DEVICE		<none>		<none>
..DSTA	device		.DSTATUS	o(.DSTDF)	DEV
..ELAW	ov(.WDBDF)	.ELAW		ov(.WDBDF)	WID
..ELRG	ov(.RDBDF)	.ELRG		ov(.RDBDF)	RID GIU
..ENTE	o(.DBKDF)	.ENTER		<none>		CHN FUL SHR PRO NNF ISN
..EXIT	o(.XITDF)	.EXIT		<none>		<none>
..FETC			.FETCH		<none>		DEV
..FPRO	o(.DBKDF)	.FPROT		<none>		CHN FNF OPE IPV
..GFDA	o(.DBKDF)	.GFDAT		value		CHN FNF OPE DOF
..GFIN	o(.DBKDF)	.GFINF		value		CHN FNF OPE DOF
..GFST	o(.DBKDF)	.GFSTA		value		CHN FNF OPE DOF
..GMCX	ov(.WDBDF)	.GMCX		ov(.WDBDF)	WID
..GTIM	<none>		.GTIM		o(.TIMDF)	<none>
..GTJB	Jobname		.GTJB		o(.GTJDF)	NJB
..GTLI	Asciz		.GTLIN		Asciz		CMD
..GVAL	.FIXDF		.GVAL		value		HI
..HERR	<none>		.HERR		<none>		<none>
..HRES	<none>		.HRESET		<none>		<none>
..LOCK	<none>		.LOCK		<none>		<none>
..LOOK	o(.DBKDF)	.LOOKUP		<none>		CHN FNF SHR ISN
..MAP	ov(.WDBDF)	.MAP		ov(.WDBDF)	RID WID OVR
..MRKT	o(.TIMDF)	.MRKT		<none>		NQL
Request Input		Name		Output		Errors (ER.%%%)
-------	-------		--------	--------	------
..MTAT	lun,tas		.MTATCH		v(.TASDF)	LUN IFC ATT TAD
..MTDT	lun		.MTDTCH		<none>		NAT LUN IFC
..MTGE	lun		.MTGET		ov(.MGTDF)	NAT LUN IFC ATT TAD
..MTIN	lun,count	.MTIN		Ascii		INP NAT LUN IFC TAD
..MTOU	lun,ascii,count	.MTOUT		<none>		OUT NAT LUN IFC TAD
..MTPR	lun,asciz	.MTPRNT		<none>		NAT LUN IFC TAD
..MTRC	lun		.MTRCTO		<none>		NAT LUN IFC
..MTSE	ov(.MGTDF)	.MTSET		<none>		NAT LUN IFC TAD
..MTST	<none>		.MTSTAT		o(.MSTDF)	IFC TAD
..MWAI	<none>		.MWAIT		<none>		<none>
..PEEK	addr		.PEEK		value		<none>
..POKE	addr,value	.POKE		value		<none>
..PRIN	Asciz		.PRINT		<none>		<none>
..PROT	vector		.PROTECT	<none>		VUI VEC
..PURG	channel		.PURGE		<none>		<none>
..PVAL	.FIXDF,value	.PVAL		value		HI
..QSET	buffer,count	.QSET		<none>		<none>
..RCTR	<none>		.RCTRLO		<none>		<none>
..RCVD	count,routine	.RCVD{|C|W}	Buffer		NJB
..READ	block,cnt,rout	.READ{|C|W}	Buffer		EOF HRD CHC
..RELE	device		.RELEASE	<none>		DEV
..RENA	o(.DBKDF)*2	.RENAME		<none>		CHN FNF OPE PRO
..REOP	o(.CHNDF)	.REOPEN		<none>		CHN
..RSUM	<none>		.RSUM		<none>		<none>
..SAVE	channel		.SAVESTATUS	o(.CHNDF)	CHN ENT
..SCCA	<none>		.SCCA		o(.TASDF)	<none>
..SDAT	buffer,cnt,rout	.SDAT{|C|W}	<none>		NJB
..SDTT	o(.DTMDF)	.SDTTM		<none>		<none>
	v(.DATDF)
..SERR	<none>		.SERR		<none>		UNL DIO FET OVE DFU
						IAD ICH EMT DIR XFE (- values)
..SETT	addr		.SETTOP		o(.SYCDF)	<none>
..SFDA	o(.DBKDF)	.SFDAT		<none>		CHN FNF OPE
	v(.DATDF)
..SFIN	o(.DBKDF)	.SFINF		value		CHN FNF OPE DOF
..SFPA	routine		.SFPA		<none>		<none>
..SFST	o(.DBKDF)	.SFSTA		value		CHN FNF OPE DOF
..SPCP	o(.SPCDF)	.SPCPS		o(.SPCDF)	MAI SIU
..SPND	<none>		.SPND		<none>		<none>
..SPFU	v(.SPFDF)	.SPFUN		ov(.Z%%DF)	EOF HRD CHC
	ov(.Z%%DF)
..SRES	<none>		.SRESET		<none>		<none>
..TLOC	<none>		.TLOCK		<none>		UIU
..TRPS	routine		.TRPSET		<none>		<none>
..TTIN	<none>		.TTINR		char		INP
..TTIN	<none>		.TTYIN		char		<none>
..TTOU	char		.TTOUR		<none>		OUT
..TTOU	char		.TTYOUT		<none>		<none>
..TWAI	o(.TIMDF)	.TWAIT		<none>		NQL
Request Input		Name		Output		Errors (ER.%%%)
-------	-------		--------	--------	------
..UNLO	<none>		.UNLOCK		<none>		<none>
..UNMA	ov(.WDBDF)	.UNMAP		ov(.WDBDF)	WID MAP
..UNPR	vector		.UNPROTECT	<none>		VEC
..WAIT	channel		.WAIT		<none>		CHN HRD
..WRIT	blk,buf,cnt,rout.WRIT{C|E|W}	<none>		EOF HRD CHC
~
.NLIST	LOC
.LIST	SEQ,BIN
.IF EQ GP2$DO
.SbTtl	...CMA	-- Support macro for areas for EMT375 requests
;+
;	...CMA
;
;	This macro is used to generate most of the definitions
;	for the ..%%%% macros.
;
;	LIST	the LIST argument from the calling macro
;	E	the E argument from the calling macro
;	NAME	the first 5 characters of request name
;	CODE	the request code in octal
;	SUBCODE	the request subcode name [optional]
;	SUBVALUE the request subcode value [optional]
;	REST	a list of the additional word arguments [optional]
;	LEN	if non-blank, generate the len value
;
;	If SUBCODE is omitted, SUBVALUE will be ignored.
;-
.MACRO	...CMA	LIST,E,NAME,CODE,SUBCODE,SUBVALUE,REST,LEN
.IIF NDF ...V99 .MCALL	.DSECT
	.DSECT	,LIST,E
	.EQU	...'NAME	<^o375>
.IF B <SUBCODE>
	.DS		,,B
.IFF
	.DS	A.'SUBCODE	,,B
 .IF NB	<SUBVALUE>
	.EQU	..'NAME	<^o'SUBVALUE>
 .ENDC
.ENDC
	.DS	A.CODE	,,B
	.EQU	.'NAME	<^o'CODE>
.IRP	X,<REST>
.IF NB	<X>
	.DS	A.'X
.IFF
	.DS
.ENDC
.ENDR
.IF NB	<LEN>
	.DS	L.'NAME	0
.ENDC
.ENDM	...CMA
.SbTtl	...CMT	-- Support macro for areas for .MT* macros
;+
;	...CMT
;
;	This macro is used to generate most of the definitions
;	for the ..MT%% macros.
;
;	LIST	the LIST argument from the calling macro
;	E	the E argument from the calling macro
;	NAME	the first 5 characters of request name
;	SUBVALUE the request subcode value [optional]
;	WORD	the word argument [optional]
;	BYTE1	the first byte argument [optional]
;	BYTE2	the second byte argument [optional]
;-
.MACRO	...CMT	LIST,E,NAME,SUBVALUE,WORD,BYTE1,BYTE2
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.EQU	...'NAME	<^o375>
	.DS	A.SUBC	,,B
	.EQU	..'NAME	<^o'SUBVALUE>
	.DS	A.CODE	,,B
	.EQU	.'NAME	<^o37>
.IF NB	<WORD>
	.DS	A.'WORD
.IFF
	.DS
.ENDC
.IF NB	<BYTE1>
	.DS	A.'BYTE1	,,B
.IFF
	.DS		,,B
.ENDC
.IF NB	<BYTE2>
	.DS	A.'BYTE2	,,B
.IFF
	.DS		,,B
.ENDC
.IF NB	<LEN>
	.DS	L.'NAME	0
.ENDC
.ENDM	...CMT
.ENDC; EQ GP2$DO
.SbTtl	..%%%%	-- Generic information about definition macros
;+
;	..%%%%
;
;	All the ..%%%% macros have two arguments, the first argument
;	can be specified to generate a list of the definition equates
;	The second argument can be used to override the type of equate
;	being done.
;
;	..%%%%	LIST=NO,E=<=:>
;
;	LIST=NO		do not list equates
;	LIST=YES	do list equates
;
;	E=<=>		do x = value
;	E=<=:>		do x =: value
;	E=<==>		do x == value
;	E=<==:>		do x ==: value
;
;	These macros generate definitions of the values
;	and offsets used to issue these requests.
;	The definitions generated follow one of the following
;	patterns:
;
;	340-341 pattern (..TTIN, ..TTOU):
;
;		...TTI, ...TTO = emt number
;
;	342-343 pattern (..DSTA, ..RELE, ..FETC):
;
;		...DST, ...REL, ...FET = emt number
;		..PHYS = physical (not logical) device name
;
;	344-345 pattern (..CSIG, ..CSIS, ..GTLI):
;
;		...CSG, ..CSS, ...GTL = emt number
;		S.CSTR | S.ZERO = top arg offset
;		S.DEFX | S.PROM = next arg
;		S.DEVS | S.OUTS | S.FLAG = next arg
;		S.LBUF	= last arg
;		..LBUF = S.LBUF present flag
;		..GTIS = is a .GTLIN value
;		..GTAT = get from command file flag
;		..GTTT = get from terminal flag
;
;	346-357 pattern (..LOCK, ..UNLO, ..EXIT, ..PRIN,
;	..SRES, ..QSET, ..SETT, ..RCTR, ..ASTX, ..HRES):
;
;		...xxx = emt number
;		..HXIT = hard exit flag
;
;	373 pattern (..CALL)
;
;		...xxx = emt number
;-
.page
;+
;	374 pattern (..WAIT, ..SPND, ..RSUM, ..PURG, ..SERR,
;	..HERR, ..CLOS, ..TLOC, ..CHAI, ..MWAI, ..DATE,
;	..ABTI):
;
;		.xxxxx = high byte code
;		..xxxx = low byte reserved value (0)
;			omitted if channel number in low byte
;		...xxx = emt number (374)
;
;-
.page
;+
;	375 pattern (..DELE, ..LOOK, ..ENTE, ..RENA,
;	..SAVE, ..REOP, ..READ, ..WRIT, ..CHCO, ..DEVI, ..CDFN, ..GTJB,
;	..GTIM, ..MRKT, ..CMKT, ..TWAI, ..SDAT, ..RCVD, ..CSTA, ..SFPA,
;	..PROT, ..UNPR, ..SPFU, ..CNTX, ..GVAL, ..PEEK, ..PVAL, ..POKE,
;	..SCCA, ..CRRG, ..ELRG, ..CRAW, ..ELAW, ..MAP,  ..UNMA, ..GMCX,
;	..MTSE, ..MTGE, ..MTIN, ..MTOU, ..MTRC, ..MTAT, ..MTDT, ..MTPR,
;	..MTST, ..SDTT, ..SPCP, ..SFDA, ..FPRO, ..GFDA, ..GFIN, ..GFST,
;	..SFIN, ..SFST, ..CLOZ,	..CMAP):
;
;		.xxxxx = high byte code
;		..xxxx = low byte code or reserved value
;			omitted if channel number in low byte
;		...xxx = emt number (375)
;
;     --0- --1- --2- --3- --4- --5- --6- --7- -10- -11- -12- -13- -14- -15- -16- -17-
;CDFN SUBC CODE CCB       NUM       L.CDFN
;CHCO CHAN CODE OCHN      JOB       L.CHCO
;CLOZ CHAN CODE SIZE      L.CLOZ
;CMAP SUBC CODE CMAP      L.CMAP
;CMKT SUBC CODE CID       CTIM      L.CMKT
;CNTX SUBC CODE SWAP      L.CNTX
;CRAW SUBC CODE WDB       L.CRAW
;CRRG SUBC CODE RDB       L.CRRG
;CSTA SUBC CODE CST       L.CSTA
;DELE CHAN CODE DBLK      DSEQ      L.DELE
;DELE*CHAN CODE DBLK      DSEQ      RDEL      URTN      L.DELU
;DEVI LINK CODE EXIT      L.DEVI
;ELAW SUBC CODE WDB       L.ELAW
;ELRG SUBC CODE RDB       L.ELRG
;ENTE CHAN CODE DBLK      LEN       ESEQ      L.ENTE
;ENTE*CHAN CODE DBLK      LEN       ESEQ      URTN      L.ENTU
;FPRO CHAN CODE DBLK      PROT      L.FPRO
;     --0- --1- --2- --3- --4- --5- --6- --7- -10- -11- -12- -13- -14- -15- -16- -17-
;GFDA CHAN CODE DBLK      VALU      OPER      DOFS      L.GFDA
;GFDA*CHAN CODE DBLK      VALU      OPER      DOFS      URTN      L.GFDU
;GFIN CHAN CODE DBLK      VALU      OPER      DOFS      L.GFIN
;GFIN*CHAN CODE DBLK      VALU      OPER      DOFS      URTN      L.GFIU
;GFST CHAN CODE DBLK      VALU      OPER      DOFS      L.GFST
;GFST*CHAN CODE DBLK      VALU      OPER      DOFS      URTN      L.GFSU
;GMCX SUBC CODE WDB       L.GMCX
;GTIM SUBC CODE TIME      L.GTIM
;GTJB GTJT CODE GTJB      JOB       L.GTJB
;GVAL SUBC CODE OFST      L.GVAL
;LOOK CHAN CODE DBLK      LSEQ      L.LOOK
;LOOK*CHAN CODE DBLK      LSEQ      RLOO      URTN      L.LOOU
;     --0- --1- --2- --3- --4- --5- --6- --7- -10- -11- -12- -13- -14- -15- -16- -17-
;MAP  SUBC CODE WDB       L.MAP
;MRKT SUBC CODE TIME      TRTN      MID       L.MRKT
;MTAT SUBC CODE AST       UNIT RMTB L.MTAT
;MTDT SUBC CODE RMT       UNIT RMTB L.MTDT
;MTGE SUBC CODE MGET      UNIT RMTB L.MTGE
;MTIN SUBC CODE SBUF      UNIT SCNT L.MTIN
;MTOU SUBC CODE SBUF      UNIT SCNT L.MTOU
;MTPR SUBC CODE SBUF      UNIT RMTB L.MTPR
;MTRC SUBC CODE RMT       UNIT RMTB L.MTRC
;MTSE SUBC CODE MGET      UNIT RMTB L.MTSE
;MTST SUBC CODE MSTA      RMT2      L.MTST
;     --0- --1- --2- --3- --4- --5- --6- --7- -10- -11- -12- -13- -14- -15- -16- -17-
;PEEK SUBC CODE ADDR      L.PEEK
;POKE SUBC CODE ADDR      VALU      L.POKE
;PROT SUBC CODE ADDR      L.PROT
;PVAL SUBC CODE OFST      VALU      L.PVAL
;RCVD SUBC CODE RRCV      BUF       WCNT      CRTN/TYPE L.RCVD
;RCVD*SUBC CODE RRCV      BUF       WCNT      SPFU FUNC	SRTN	  L.RCVU
;READ CHAN CODE BLK       BUF       WCNT      CRTN/TYPE L.READ
;READ*CHAN CODE BLK       BUF       WCNT      SPFU FUNC SRTN      L.REAU
;RENA CHAN CODE DBK2      L.RENA
;RENA CHAN CODE DBK2      RRE1      RRE2      URTN      L.RENU
;REOP CHAN CODE CBLK      L.REOP
;     --0- --1- --2- --3- --4- --5- --6- --7- -10- -11- -12- -13- -14- -15- -16- -17-
;SAVE CHAN CODE CBLK      L.SAVE
;SCCA SCOP CODE AST       L.SCCA
;SDAT SUBC CODE RSDA      BUF       WCNT      CRTN/TYPE L.SDAT
;SDAT*SUBC CODE RSDA      BUF       WCNT      SPFU FUNC	SRTN	  L.SDAU
;SDTT SUBC CODE DTTM      L.SDTT
;SFDA CHAN CODE DBLK      DATE      L.SFDA
;SFIN CHAN CODE DBLK      VALU      OPER      DOFS      L.SFIN
;SFIN*CHAN CODE DBLK      VALU      OPER      DOFS      URTN      L.SFIU
;SFPA SUBC CODE ADDR      L.SFPA
;SFST CHAN CODE DBLK      VALU      OPER      DOFS      L.SFST
;SFST*CHAN CODE DBLK      VALU      OPER      DOFS      URTN      L.SFSU
;SPCP SUBC CODE PCPS      L.SPCP
;SPFU SUBC CODE BLK       BUF       WCNT      SPFU FUNC SRTN/TYPE L.SPFU
;TRPS SUBC CODE TRPS      L.TRPS
;TWAI SUBC CODE TIME      L.TWAI
;UNMA SUBC CODE WDB       L.UNMA
;UNPR SUBC CODE ADDR      L.UNPR
;WRIT CHAN CODE BLK       BUF       WCNT      CRTN/TYPE L.WRIT
;WRIT*CHAN CODE BLK       BUF       WCNT      SPFU FUNC SRTN      L.WRIU
;-
.page
;+
;		flags and value
;		..URTN = user subroutine flag value
;		..RESV = 0 reserved area filler value
;		..PHYS = physical (not logical) device name
;		..ISIO = issue I/O w/o wait
;		..WTIO = issue I/O, wait for completion
;		..DRIO = issue special directory operation
;		..DNLK = non-linking request
;		..DLNK = linking request
;		..GTNO = no job parameter
;		..GTJB = yes job parameter
;		..GTME = info about this job
;		..GTV3 = V3 answer area
;		..SWFP = swap context only
;		..SPFV = SPFUN flag value
;		..FUNV = required bit in S.FUNC
;		..SCLC = local scca
;		..SCGB = global scca
;		..FUNP = file unprotect
;		..FPRO = file protect
;
;	Error codes returned by EMT requests are defined in
;		.ERRDF
;
;	Error codes returned by SPFUN EMT requests are defined in
;		.ERMDF (Magtape)
;		.ERNDF (Ethernet)
;		.ERSDF (Disk:DU/DM)
;-
.IF EQ GP2$DO
.SbTtl	..ABTI	-- .ABTIO EMT request layout / values
;+
;	..ABTI
;
;	+-------+-------+
;R0:	|   13	|  chan	| .ABTIO = 13
;	+-------+-------+
;
;	EMT	...ABT = 374
;-
.MACRO	..ABTI	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...ABT	<^o374>
	.EQU	.ABTIO	<^o13>
.ENDM	..ABTI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..ABTI
.Print ;..ABTI
	..ABTI	YES,==:

.Assume	...ABT	EQ	<^o374>
.Assume	.ABTIO	EQ	<^o13>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..ASTX	-- .ASTX EMT request layout / values
;+
;	..ASTX
;
;	+-------+-------+
;R0:	|		|
;	+-------+-------+
;
;	If from completion routine, R0 = 0
;
;	If from KMON and R0 = -1 just start program
;
;	If from KMON and R0 <> 0, r0 is number of blocks
;				to read of program
;	EMT	...AST = 356
;-
.MACRO	..ASTX	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...AST	<^o356>
.ENDM	..ASTX
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..ASTX
.Print ;..ASTX
	..ASTX	YES,==:

.Assume	...AST	EQ	<^o356>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CALL	-- .CALLK EMT request layout / values
;+
;	..CALL
;
;	EMT	...CAL = 373
;
;	+-------+-------+
;@SP:	|    dest	|
;	+-------+-------+
;-
.MACRO	..CALL	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...CAL	<^o373>
.ENDM	..CALL
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CALL
.Print ;..CALL
	..CALL	YES,==:

.Assume	...CAL	EQ	<^o373>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CDFN	-- .CDFN EMT request layout / values
;+
;	..CDFN
;
;		+-------+
;A.SUBC:	|   0	|[0] ..CFDN = 0
;	+-------+-------+
;A.CODE:|  15	|	 [1] .CFDN = 15
;	+-------+-------+
;A.CCB:	|-> Chan Ctrl Bk|[2] o(.CHNDF)*n
;	+-------+-------+
;A.NUM:	| number of CCBs|[4]
;	+-------+-------+
;L.CDFN:		 [6]
;
;	EMT	...CDF = 375
;-
.MACRO	..CDFN	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CDFN,15,SUBC,0,<CCB,NUM>,L
.ENDM	..CDFN
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO> .MCALL	..CDFN
.Print ;..CDFN
	..CDFN	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.CCB	EQ	<^o2>
.Assume	A.NUM	EQ	<^o4>
.Assume	L.CDFN	EQ	<^o6>
.Assume	...CDF	EQ	<^o375>
.Assume	..CDFN	EQ	<^o0>
.Assume	.CDFN	EQ	<^o15>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CHAI	-- .CHAIN EMT request layout / values
;+
;	..CHAI
;
;	+-------+-------+
;R0:	|   10	|   0	| .CHAIN = 10
;	+-------+-------+ ..CHAI = 0
;
;	Arguments also in 500+ o(.CHADF)
;
;	EMT	...CHA = 374
;-
.MACRO	..CHAI	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...CHA	<^o374>
	.EQU	..CHAI	<^o0>
	.EQU	.CHAIN	<^o10>
.ENDM	..CHAI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CHAI
.Print ;..CHAI
	..CHAI	YES,==:

.Assume	...CHA	EQ	<^o374>
.Assume	..CHAI	EQ	<^o0>
.Assume	.CHAIN	EQ	<^o10>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CHCO	-- .CHCOPY EMT request layout / values
;+
;	..CHCO
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   13	|	 [1] .CHCOP = 13
;	+-------+-------+
;A.OCHN:|other job's chn|[2]
;	+-------+-------+
;A.JOB:	| -> Job block	|[4]	6 chars ASCII
;	+-------+-------+
;L.CHCO:		 [6]
;
;	EMT	...CHC = 375
;-
.MACRO	..CHCO	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CHCOP,13,CHAN,,<OCHN,JOB>,L
.ENDM	..CHCO
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CHCO
.Print ;..CHCO
	..CHCO	YES,==:

.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.OCHN	EQ	<^o2>
.Assume	A.JOB	EQ	<^o4>
.Assume	L.CHCO	EQ	<^o6>
.Assume	...CHC	EQ	<^o375>
.Assume	.CHCOP	EQ	<^o13>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CLOS	-- .CLOSE EMT request layout / values
;+
;	..CLOS
;
;	+-------+-------+
;R0:	|   6	| Chan	| .CLOSE = 6
;	+-------+-------+
;
;	EMT	...CLO = 374
;-
.MACRO	..CLOS	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...CLO	<^o374>
	.EQU	.CLOSE	<^o6>
.ENDM	..CLOS
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CLOS
.Print ;..CLOS
	..CLOS	YES,==:

.Assume	...CLO	EQ	<^o374>
.Assume	.CLOSE	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CLOZ	-- .CLOSZ EMT request layout / values
;+
;	..CLOZ
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   45	|	 [1] .CLOSZ = 45
;	+-------+-------+
;A.SIZE:|Forced file siz|[2] 
;	+-------+-------+
;L.CLOZ:		 [4]
;
;	EMT	...CLZ = 375
;-
.MACRO	..CLOZ	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	A.CHAN	,,B	;channel number
	.DS	A.CODE	,,B	;request code
	.EQU	.CLOSZ	<^o45>	;request code value
	.DS	A.SIZE		;forced file size
	.DS	L.CLOZ	,0	;length of request block
	.EQU	...CLZ	<^o375>	;EMT value
.ENDM	..CLOZ
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CLOZ
.Print ;..CLOZ
	..CLOZ	YES,==:
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.SIZE	EQ	<^o2>
.Assume	L.CLOZ	EQ	<^o4>
.Assume	...CLZ	EQ	<^o375>
.Assume	.CLOSZ	EQ	<^o45>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CMAP	-- .CMAP/.GCMAP/.MSDS EMT request layout / values
;+
;	..CMAP
;
;		+-------+
;A.SUBC:	|   0	|[0] ..CMAP = 0
;	+-------+-------+
;A.CODE:|  46	|	 [1] .CMAP = 46
;	+-------+-------+
;A.CMAP:| Request mask	|[2]					v(.CMPDF)
;	+-------+-------+
;L.CMAP:		 [4]
;
;	EMT	...CMA = 375
;-
.MACRO	..CMAP	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CMAP,46,SUBC,0,<CMAP>,L
.ENDM	..CMAP
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CMAP
.Print ;..CMAP
	..CMAP	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.CMAP	EQ	<^o2>
.Assume	L.CMAP	EQ	<^o4>
.Assume	...CMA	EQ	<^o375>
.Assume	..CMAP	EQ	<^o0>
.Assume	.CMAP	EQ	<^o46>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CMKT	-- .CMKT EMT request layout / values
;+
;	..CMKT
;
;		+-------+
;A.SUBC:	|   0	|[0] ..CMKT = 0
;	+-------+-------+
;A.CODE:|  23	|	 [1] .CMKT = 23
;	+-------+-------+
;A.CID:	| ID to cancel	|[2]					v(.QTIDF)
;	+-------+-------+
;A.CTIM:| -> remain time|[4]					o(.TIMDF)
;	+-------+-------+
;L.CMKT:			 [6]
;
;	EMT	...CMK = 375
;-
.MACRO	..CMKT	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CMKT,23,SUBC,0,<CID,CTIM>,L
.ENDM	..CMKT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CMKT
.Print ;..CMKT
	..CMKT	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.CID	EQ	<^o2>
.Assume	A.CTIM	EQ	<^o4>
.Assume	L.CMKT	EQ	<^o6>
.Assume	...CMK	EQ	<^o375>
.Assume	..CMKT	EQ	<^o0>
.Assume	.CMKT	EQ	<^o23>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CNTX	-- .CNTXSW EMT request layout / values
;+
;	..CNTX
;
;		+-------+
;A.SUBC:	|   0	|[0] ..CNTX = 0
;	+-------+-------+
;A.CODE:|  33	|	 [1] .CNTXS = 33
;	+-------+-------+
;A.SWAP:| -> swap loc'ns|[2] list terminated by 0
;	+-------+-------+
;L.CNTX:		 [4]
;
;	EMT	...CNT = 375
;-
.MACRO	..CNTX	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CNTXS,33,SUBC,0,<SWAP>,L
.ENDM	..CNTX
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CNTX
.Print ;..CNTX
	..CNTX	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.SWAP	EQ	<^o2>
.Assume	L.CNTX	EQ	<^o4>
.Assume	...CNT	EQ	<^o375>
.Assume	..CNTX	EQ	<^o0>
.Assume	.CNTXS	EQ	<^o33>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CRAW	-- .CRAW EMT request layout / values
;+
;	..CRAW
;
;		+-------+
;A.SUBC:	|   2	|[0] ..CRAW = 2
;	+-------+-------+
;A.CODE:|  36	|	 [1] .CRAW = 36
;	+-------+-------+
;A.WDB:	| -> window DB	|[2] ov(.WDBDF)
;	+-------+-------+
;L.CRAW:		 [4]
;
;	EMT	...CRA = 375
;-
.MACRO	..CRAW	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CRAW,36,SUBC,2,<WDB>,L
.ENDM	..CRAW
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CRAW
.Print ;..CRAW
	..CRAW	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.WDB	EQ	<^o2>
.Assume	L.CRAW	EQ	<^o4>
.Assume	...CRA	EQ	<^o375>
.Assume	..CRAW	EQ	<^o2>
.Assume	.CRAW	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CRRG	-- .CRRG EMT request layout / values
;+
;	..CRRG
;
;		+-------+
;A.SUBC:	|   0	|[0] ..CRRG = 0
;	+-------+-------+
;A.CODE:|  36	|	 [1] .CRRG = 36
;	+-------+-------+
;A.RDB:	| -> region DB	|[2] ov(.RDBDF)
;	+-------+-------+
;L.CRRG:		 [4]
;
;	EMT	...CRR = 375
;-
.MACRO	..CRRG	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CRRG,36,SUBC,0,<RDB>,L
.ENDM	..CRRG
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CRRG
.Print ;..CRRG
	..CRRG	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.RDB	EQ	<^o2>
.Assume	L.CRRG	EQ	<^o4>
.Assume	...CRR	EQ	<^o375>
.Assume	..CRRG	EQ	0
.Assume	.CRRG	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CSIG	-- .CSIGEN EMT request layout / values
;+
;	..CSIG
;
;	+-------+-------+
;@SP+0:	| -> C string	| S.CSTR
;	+-------+-------+
;@SP+2:	| -> Default Ext| S.DEFX				o(.DFXDF)
;	+-------+-----+-+
;@SP+4:	| -> Dev Space|F| S.DEVS	S.FLAG	F=1 S.LBUF (..LBUF)
;	+-------+-------+
;@SP+6:	| -> Line buffer| S.LBUF
;	+-------+-------+
;
;	EMT	...CSG = 344
;
;On return:
;
;	+-------+-------+
;@SP+0:	|Num of switches|
;	+-------+-------+
;@SP+2:	| Switch data	| (if @SP not 0)
;	:		: ov(.OPTDF)
;-
.MACRO	..CSIG	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.EQU	...CSG	<^o344>
	.DS	S.CSTR
	.DS	S.DEFX
	.DS	S.DEVS
	.EQU	..LBUF	1
	.DS	S.LBUF
.ENDM	..CSIG
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CSIG
.Print ;..CSIG
	..CSIG	YES,==:

.Assume	...CSG	EQ	<^o344>
.Assume	S.CSTR	EQ	0
.Assume	S.DEFX	EQ	<^o2>
.Assume	S.DEVS	EQ	<^o4>
.Assume	S.LBUF	EQ	<^o6>
.Assume	..LBUF	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CSIS	-- .CSISPC EMT request layout / values
;+
;	..CSIS
;
;	+-------+-------+
;@SP+0:	| -> C string	| S.CSTR
;	+-------+-------+
;@SP+2:	| -> Default Ext| S.DEFX				o(.DFXDF)
;	+-------+-----+-+
;@SP+4:	| -> Out Spec |F| S.OUTS	S.FLAG			o(.CSIDF)
;	+-------+-------+		F=1 S.LBUF (..LBUF)
;@SP+6:	| -> Line buffer| S.LBUF
;	+-------+-------+
;
;	EMT	...CSS = 345
;
;On return:
;
;	+-------+-------+
;@SP+0:	|Num of switches|
;	+-------+-------+
;@SP+2:	| Switch data	| (if @SP not 0)
;	:		: ov(.OPTDF)
;-
.MACRO	..CSIS	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.EQU	...CSS	<^o345>
	.DS	S.CSTR
	.DS	S.DEFX
	.DS	S.OUTS
	.EQU	..LBUF	1
	.DS	S.LBUF
.ENDM	..CSIS
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CSIS
.Print ;..CSIS
	..CSIS	YES,==:

.Assume	...CSS	EQ	<^o345>
.Assume	S.CSTR	EQ	0
.Assume	S.DEFX	EQ	<^o2>
.Assume	S.OUTS	EQ	<^o4>
.Assume	S.LBUF	EQ	<^o6>
.Assume	..LBUF	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..CSTA	-- .CSTAT EMT request layout / values
;+
;	..CSTA
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   27	|	 [1] .CSTAT = 27
;	+-------+-------+
;A.CST:	|->  reply area	|[2] o(.CSTDF)
;	+-------+-------+
;L.CSTA:		 [4]
;
;	EMT	...CST = 375
;-
.MACRO	..CSTA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,CSTAT,27,CHAN,,<CST>,L
.ENDM	..CSTA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..CSTA
.Print ;..CSTA
	..CSTA	YES,==:

.Assume	...CST	EQ	<^o375>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.CSTAT	EQ	<^o27>
.Assume	A.CST	EQ	<^o2>
.Assume	L.CSTA	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..DATE	-- .DATE EMT request layout / values
;+
;	..DATE
;
;	+-------+-------+
;R0:	|   12	|   0	| .DATE = 12
;	+-------+-------+ ..DATE = 0
;
;				v(.DATDF)
;
;	EMT	...DAT = 374
;-
.MACRO	..DATE	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...DAT	<^o374>
	.EQU	..DATE	<^o0>
	.EQU	.DATE	<^o12>
.ENDM	..DATE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..DATE
.Print ;..DATE
	..DATE	YES,==:

.Assume	...DAT	EQ	<^o374>
.Assume	..DATE	EQ	<^o0>
.Assume	.DATE	EQ	<^o12>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..DELE	-- .DELETE EMT request layout / values
;+
;	..DELE
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   0	|	 [1] .DELET = 0
;	+-------+-----+-+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for user routine
;	+-------+-----+-+
;A.DSEQ:| File seq num	|[4]
;	+-------+-------+
;L.DELE:		 [6]
;
;	+-------+-------+
;A.RDEL:|	0	|[6] <res>		..RESV = 0 reserved
;	+-------+-----+-+
;A.URTN:| -> user rtn |F|[10] (undocumented)	..PHYS = 1 for physical only
;	+-------+-----+-+
;L.DELU:		 [12]
;
;	EMT	...DEL = 375
;-
.MACRO	..DELE	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,DELET,0,CHAN,,<DBLK,DSEQ>,L
.IF NE	DOC$UN
	.DS	A.RDEL
	.EQU	..RESV	0
	.DS	A.URTN
	.EQU	..URTN	1
	.EQU	..PHYS	1
	.DS	L.DELU	0
.ENDC
.ENDM	..DELE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..DELE
.Print ;..DELE
	..DELE	YES,==:
.Page
.Assume	...DEL	EQ	<^o375>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.DELET	EQ	0
.Assume	A.DBLK	EQ	<^o2>
.Assume	A.DSEQ	EQ	<^o4>
.Assume	L.DELE	EQ	<^o6>
.IF	NE	DOC$UN
.Assume	A.RDEL	EQ	<^o6>
.Assume	..RESV	EQ	0
.Assume	A.URTN	EQ	<^o10>
.Assume	L.DELU	EQ	<^o12>
.Assume	..URTN	EQ	1
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..DEVI	-- .DEVICE EMT request layout / values
;+
;	..DEVI
;
;		+-------+		{non-linking = 0 (..DNLK)
;A.LINK:	|  flag	|[0]		{
;	+-------+-------+		{linking = 1 (..DLNK)
;A.CODE:|   14	|	 [1]	.DEVIC = 14
;	+-------+-------+
;A.EXIT:| -> exit list	|[2]	o(.DVLDF)
;	+-------+-------+
;L.DEVI:		 [4]
;
;	EMT	...DEV = 375
;-
.MACRO	..DEVI	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,DEVIC,14,LINK,,<EXIT>,L
	.EQU	..DNLK	0	;not linking
	.EQU	..DLNK	1	;linking
.ENDM	..DEVI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..DEVI
.Print ;..DEVI
	..DEVI	YES,==:

.Assume	...DEV	EQ	<^o375>
.Assume	A.LINK	EQ	0
.Assume	..DNLK	EQ	0
.Assume	..DLNK	EQ	1
.Assume	A.CODE	EQ	1
.Assume	.DEVIC	EQ	<^o14>
.Assume	A.EXIT	EQ	<^o2>
.Assume	L.DEVI	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..DSTA	-- .DSTATUS EMT request layout / values
;+
;	..DSTA
;
;	+-------+-------+
;R0:	| -> Device name|
;	+-------+-------+
;
;	+-------+-----+-+
;@SP	| ->Reply area|F|..PHYS = 1 if physical only	o(.DSTDF)
;	+-------+-----+-+
;
;	EMT	...DST = 342
;-
.MACRO	..DSTA	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...DST	<^O342>
.IF	NE	DOC$UN
	.EQU	..PHYS	1
.ENDC
.ENDM	..DSTA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..DSTA
.Print ;..DSTA
	..DSTA	YES,==:

.Assume	...DST	EQ	<^o342>
.IF	NE	DOC$UN
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..ELAW	-- .ELAW EMT request layout / values
;+
;	..ELAW
;
;		+-------+
;A.SUBC:	|   3	|[0] ..ELAW = 3
;	+-------+-------+
;A.CODE:|  36	|	 [1] .ELAW = 36
;	+-------+-------+
;A.WDB:	| -> window DB	|[2] ov(.WDBDF)
;	+-------+-------+
;L.ELAW:		 [4]
;
;	EMT	...ELA = 375
;-
.MACRO	..ELAW	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,ELAW,36,SUBC,3,<WDB>,L
.ENDM	..ELAW
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..ELAW
.Print ;..ELAW
	..ELAW	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.WDB	EQ	<^o2>
.Assume	L.ELAW	EQ	<^o4>
.Assume	...ELA	EQ	<^o375>
.Assume	..ELAW	EQ	<^o3>
.Assume	.ELAW	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..ELRG	-- .ELRG EMT request layout / values
;+
;	..ELRG
;
;		+-------+
;A.SUBC:	|   1	|[0] ..ELRG = 1
;	+-------+-------+
;A.CODE:|  36	|	 [1] .ELRG = 36
;	+-------+-------+
;A.RDB:	| -> region DB	|[2] ov(.RDBDF)
;	+-------+-------+
;L.ELRG:		 [4]
;
;	EMT	...ELR = 375
;-
.MACRO	..ELRG	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,ELRG,36,SUBC,1,<RDB>,L
.ENDM	..ELRG
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..ELRG
.Print ;..ELRG
	..ELRG	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.RDB	EQ	<^o2>
.Assume	L.ELRG	EQ	<^o4>
.Assume	...ELR	EQ	<^o375>
.Assume	..ELRG	EQ	1
.Assume	.ELRG	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..ENTE	-- .ENTER EMT request layout / values
;+
;	..ENTE
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   2	|	 [1] .ENTER = 2
;	+-------+-----+-+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)	..URTN = 1 for user routine call
;	+-------+-----+-+
;A.LEN	|   File len	|[4]
;	+-------+-------+
;A.ESEQ:| File seq num	|[6]
;	+-------+-------+
;L.ENTE:		 [10]
;	+-------+-----+-+
;A.URTN:| -> user rtn |F|[10] (undocumented) ..PHYS = 1 for physical only
;	+-------+-----+-+
;L.ENTU:		 [12]
;
;	EMT	..ENT = 375
;-
.MACRO	..ENTE	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,ENTER,2,CHAN,,<DBLK,LEN,ESEQ>,L
.IF NE	DOC$UN
	.DS	A.URTN
	.EQU	..URTN	1
	.EQU	..PHYS	1
	.DS	L.ENTU	0
.ENDC
.ENDM	..ENTE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..ENTE
.Print ;..ENTE
	..ENTE	YES,==:
.Page
.Assume	...ENT	EQ	<^o375>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.ENTER	EQ	<^o2>
.Assume	A.DBLK	EQ	<^o2>
.Assume	A.LEN	EQ	<^o4>
.Assume	A.ESEQ	EQ	<^o6>
.Assume	L.ENTE	EQ	<^o10>
.IF	NE	DOC$UN
.Assume	A.URTN	EQ	<^o10>
.Assume	L.ENTU	EQ	<^o12>
.Assume	..URTN	EQ	1
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..EXIT	-- .EXIT EMT request layout / values
;+
;	..EXIT
;
;	EMT	...EXI = 350
;
;	R0 = 0 ..HXIT (hard exit)
;	R0 <> 0 (soft exit)
;
;	Arguments o(.XITDF)
;-
.MACRO	..EXIT	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...EXI	<^o350>
	.EQU	..HXIT	0
.ENDM	..EXIT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..EXIT
.Print ;..EXIT
	..EXIT	YES,==:

.Assume	...EXI	EQ	<^o350>
.Assume	..HXIT	EQ	0
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..FETC	-- .FETCH EMT request layout / values
;+
;	..FETC
;
;	+-------+-------+
;R0:	| -> Device name|
;	+-------+-------+
;
;	+-------+-----+-+
;@SP	| ->Fetch area|F|		..PHYS = 1 if physical only
;	+-------+-----+-+
;
;	EMT	...FET = 343
;-
.MACRO	..FETC	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...FET	<^o343>
.IF	NE	DOC$UN
	.EQU	..PHYS	1
.ENDC
.ENDM	..FETC
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..FETC
.Print ;..FETC
	..FETC	YES,==:

.Assume	...FET	EQ	<^o343>
.IF	NE	DOC$UN
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..FPRO	-- .FPROT EMT request layout / values
;+
;	..FPRO
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   43	|	 [1] .FPROT = 43
;	+-------+-------+
;A.DBLK:| ->  D block	|[2] o(.DBKDF)
;	+-------+-------+		{..FUNP = 0 unprotect
;A.PROT	|  Set / Clear	|[4]		{
;	+-------+-------+		{..FPRO = 1 protect
;L.FPRO:		 [6]
;
;	EMT	...FPR = 375
;-
.MACRO	..FPRO	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,FPROT,43,CHAN,,<DBLK,PROT>,L
	.EQU	..FUNP	0	;unprotect
	.EQU	..FPRO	1	;protect
.ENDM	..FPRO
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..FPRO
.Print ;..FPRO
	..FPRO	YES,==:

.Assume	...FPR	EQ	<^o375>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.FPROT	EQ	<^o43>
.Assume	A.DBLK	EQ	<^o2>
.Assume	A.PROT	EQ	<^o4>
.Assume	..FUNP	EQ	0
.Assume	..FPRO	EQ	1
.Assume	L.FPRO	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GFDA	-- .GFDAT EMT request layout / values
;+
;	..GFDA
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|  44	|	 [1] .GFDAT = 44
;	+-------+-------+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for flag word
;	+-------+-------+
;A.VALU:|     value	|[4] reserved
;	+-------+-------+
;A.OPER:	|   0	|[6] operation		..GETF
;	+-------+-------+
;A.DOFS:|  14	|	 [7] directory entry offset E.DATE
;	+-------+
;L.GFDA:		 [10]
;	+-------+-----+-+
;A.URTN:|   reserved  |F|[10] (undocumented) ..PHYS = 1 for physical only
;	+-------+-----+-+
;L.GFDU:		 [12]
;
;	EMT	...GFD = 375
;-
.MACRO	..GFDA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GFDAT,44,CHAN,,<DBLK,VALU,OPER>
	.EQU	..GETF	0	;get operation
	.EQU	A.DOFS	<^o7>	;offset byte
	.EQU	L.GFDA	<^o10>	;length of request block
.IF 	NE	DOC$UN
	.EQU	..URTN	1	;flag word exists
	.EQU	A.URTN	<^o10>	;flag word for physical only flag
	.EQU	..PHYS	1	;bypass logical translation
	.EQU	L.GFDU	<^o12>	;length with undocumented area
.ENDC	;NE	DOC$UN
.ENDM	..GFDA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GFDA
.Print ;..GFDA
	..GFDA	YES,==:

.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.GFDAT	EQ	<^o44>
.Assume	A.DBLK	EQ	<^o2>
.Assume	..URTN	EQ	1
.Assume	A.VALU	EQ	<^o4>
.Assume	A.OPER	EQ	<^o6>
.Assume	..GETF	EQ	0
.Assume	A.DOFS	EQ	<^o7>
.Assume	L.GFDA	EQ	<^o10>
.Assume	...GFD	EQ	<^o375>
.IF	NE 	DOC$UN
.Assume	A.URTN	EQ	<^o10>
.Assume	..PHYS	EQ	1
.Assume	L.GFDU	EQ	<^o12>
.ENDC	;NE	DOC$UN
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GFIN	-- .GFINF EMT request layout / values
;+
;	..GFIN
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|  44	|	 [1] .GFINF = 44
;	+-------+-------+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for flag word
;	+-------+-------+
;A.VALU:|     value	|[4] reserved
;	+-------+-------+
;A.OPER:	|   0	|[6] operation		..GETF
;	+-------+-------+
;A.DOFS:|	|	 [7] directory entry offset
;	+-------+
;L.GFIN:		 [10]
;	+-------+-----+-+
;A.URTN:|   reserved  |F|[10] (undocumented) ..PHYS = 1 for physical only
;	+-------+-----+-+
;L.GFIU:		 [12]
;
;	EMT	...GFI = 375
;-
.MACRO	..GFIN	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GFINF,44,CHAN,,<DBLK,VALU,OPER>
	.EQU	..GETF	0	;get operation
	.EQU	A.DOFS	<^o7>	;offset byte
	.EQU	L.GFIN	<^o10>	;length of request block
.IF 	NE	DOC$UN
	.EQU	..URTN	1	;flag word exists
	.EQU	A.URTN	<^o10>	;flag word for physical only flag
	.EQU	..PHYS	1	;bypass logical translation
	.EQU	L.GFIU	<^o12>	;length with undocumented area
.ENDC	;NE	DOC$UN
.ENDM	..GFIN
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GFIN
.Print ;..GFIN
	..GFIN	YES,==:

.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.GFINF	EQ	<^o44>
.Assume	A.DBLK	EQ	<^o2>
.Assume	..URTN	EQ	1
.Assume	A.VALU	EQ	<^o4>
.Assume	A.OPER	EQ	<^o6>
.Assume	..GETF	EQ	0
.Assume	A.DOFS	EQ	<^o7>
.Assume	L.GFIN	EQ	<^o10>
.Assume	...GFI	EQ	<^o375>
.IF	NE 	DOC$UN
.Assume	A.URTN	EQ	<^o10>
.Assume	..PHYS	EQ	1
.Assume	L.GFIU	EQ	<^o12>
.ENDC	;NE	DOC$UN
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GFST	-- .GFSTA EMT request layout / values
;+
;	..GFST
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|  44	|	 [1] .GFSTA = 44
;	+-------+-------+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for flag word
;	+-------+-------+
;A.VALU:|     value	|[4] reserved
;	+-------+-------+
;A.OPER:	|   0	|[6] operation		..GETF
;	+-------+-------+
;A.DOFS:|   0	|	 [7] directory entry offset E.STAT
;	+-------+
;L.GFST:		 [10]
;	+-------+-----+-+
;A.URTN:|   reserved  |F|[10] (undocumented) ..PHYS = 1 for physical only
;	+-------+-----+-+
;L.GFSU:		 [12]
;
;	EMT	...GFS = 375
;-
.MACRO	..GFST	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GFSTA,44,CHAN,,<DBLK,VALU,OPER>
	.EQU	..GETF	0	;get operation
	.EQU	A.DOFS	<^o7>	;offset byte
	.EQU	L.GFST	<^o10>	;length of request block
.IF 	NE	DOC$UN
	.EQU	..URTN	1	;flag word exists
	.EQU	A.URTN	<^o10>	;flag word for physical only flag
	.EQU	..PHYS	1	;bypass logical translation
	.EQU	L.GFSU	<^o12>	;length with undocumented area
.ENDC	;NE	DOC$UN
.ENDM	..GFST
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GFST
.Print ;..GFST
	..GFST	YES,==:

.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.GFSTA	EQ	<^o44>
.Assume	A.DBLK	EQ	<^o2>
.Assume	..URTN	EQ	1
.Assume	A.VALU	EQ	<^o4>
.Assume	A.OPER	EQ	<^o6>
.Assume	..GETF	EQ	0
.Assume	A.DOFS	EQ	<^o7>
.Assume	L.GFST	EQ	<^o10>
.Assume	...GFS	EQ	<^o375>
.IF	NE 	DOC$UN
.Assume	A.URTN	EQ	<^o10>
.Assume	..PHYS	EQ	1
.Assume	L.GFSU	EQ	<^o12>
.ENDC	;NE	DOC$UN
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GMCX	-- .GMCX EMT request layout / values
;+
;	..GMCX
;
;		+-------+
;A.SUBC:	|   6	|[0] ..GMCX = 6
;	+-------+-------+
;A.CODE:|  36	|	 [1] .GMCX = 36
;	+-------+-------+
;A.WDB:	| -> window DB	|[2] ov(.WDBDF)
;	+-------+-------+
;L.GMCX:		 [4]
;
;	EMT	...GMC = 375
;-
.MACRO	..GMCX	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GMCX,36,SUBC,6,<WDB>,L
.ENDM	..GMCX
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GMCX
.Print ;..GMCX
	..GMCX	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.WDB	EQ	<^o2>
.Assume	L.GMCX	EQ	<^o4>
.Assume	...GMC	EQ	<^o375>
.Assume	..GMCX	EQ	<^o6>
.Assume	.GMCX	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GTIM	-- .GTIM EMT request layout / values
;+
;	..GTIM
;
;		+-------+
;A.SUBC:	|   0	|[0] ..GTIM = 0
;	+-------+-------+
;A.CODE:|   21	|	 [1] .GTIM = 21
;	+-------+-------+
;A.TIME:| -> time reply	|[2] o(.TIMDF)
;	+-------+-------+
;L.GTIM:		 [4]
;
;	EMT	...GTI = 375
;-
.MACRO	..GTIM	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GTIM,21,SUBC,0,<TIME>,L
.ENDM	..GTIM
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GTIM
.Print ;..GTIM
	..GTIM	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.TIME	EQ	<^o2>
.Assume	L.GTIM	EQ	<^o4>
.Assume	...GTI	EQ	<^o375>
.Assume	..GTIM	EQ	<^o0>
.Assume	.GTIM	EQ	<^o21>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GTJB	-- .GTJB EMT request layout / values
;+
;	..GTJB
;
;		+-------+	{..GTNO = 0 no job parm (or reply)
;A.GTJT:	| type	|[0]	{
;	+-------+-------+	{..GTJB = 1 job parm (and reply)
;A.CODE:|   20	|	 [1]	.GTJB = 20
;	+-------+-------+
;A.GTJB:| -> reply area	|[2] o(.GTJDF)
;	+-------+-------+	{..GTME = -1 info about this job
;A.JOB:	| -> job name	|[4]	{..GTV3 = -3 V3 reply
;	+-------+-------+	{-> 6 char job name
;L.GTJB:		 [6]
;
;	A.JOB is ignored if type is 0
;
;	EMT	...GTJ = 375
;-
.MACRO	..GTJB	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GTJB,20,GTJT,,<GTJB,JOB>,L
	.EQU	..GTNO	0	;no job parameter
	.EQU	..GTJB	1	;job parameter follows
	.EQU	..GTME	-1	;info about current user
	.EQU	..GTV3	<^o<-3>> ;V3 (short reply)
.ENDM	..GTJB
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GTJB
.Print ;..GTJB
	..GTJB	YES,==:

.Assume	...GTJ	EQ	<^o375>
.Assume	A.GTJT	EQ	0
.Assume	..GTNO	EQ	0
.Assume	..GTJB	EQ	1
.Assume	A.CODE	EQ	1
.Assume	.GTJB	EQ	<^o20>
.Assume	A.GTJB	EQ	<^o2>
.Assume	A.JOB	EQ	<^o4>
.Assume	..GTME	EQ	-1
.Assume	..GTV3	EQ	<^o<-3>>
.Assume	L.GTJB	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GTLI	-- .GTLIN EMT request layout / values
;+
;	..GTLI
;
;	+-------+-------+
;@SP+0:	|	0	| S.ZERO	..GTIS = 0
;	+-------+-------+
;@SP+2:	| -> Prompt	| S.PROM
;	+-------+-------+		{..GTAT = 1 "std"
;@SP+4:	|     flags	| S.FLAG	{
;	+-------+-------+		{..GTTT = 3 use TTYIN
;@SP+6:	| -> Line buffer| S.LBUF
;	+-------+-------+
;
;	EMT	...GTL = 345
;-
.MACRO	..GTLI	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.EQU	...GTL	<^o345>
	.DS	S.ZERO
	.EQU	..GTIS 0	;value for S.ZERO
	.DS	S.PROM
	.DS	S.FLAG
	.EQU	..GTAT	1	;from indirect files
	.EQU	..GTTT	<^o3>	;always from TTYIN
	.DS	S.LBUF
.ENDM	..GTLI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GTLI
.Print ;..GTLI
	..GTLI	YES,==:

.Assume	...GTL	EQ	<^o345>
.Assume	S.ZERO	EQ	0
.Assume	..GTIS	EQ	0
.Assume	S.PROM	EQ	<^o2>
.Assume	S.FLAG	EQ	<^o4>
.Assume	..GTAT	EQ	1
.Assume	..GTTT	EQ	<^o3>
.Assume	S.LBUF	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..GVAL	-- .GVAL EMT request layout / values
;+
;	..GVAL
;
;		+-------+
;A.SUBC:	|   0	|[0] ..GVAL = 0
;	+-------+-------+
;A.CODE:|   34	|	 [1] .GVAL = 34
;	+-------+-------+
;A.OFST:|  RMON offset	|[2] o(.FIXDF)
;	+-------+-------+
;L.GVAL:		 [4]
;
;	EMT	...GVA = 375
;-
.MACRO	..GVAL	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,GVAL,34,SUBC,0,<OFST>,L
.ENDM	..GVAL
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..GVAL
.Print ;..GVAL
	..GVAL	YES,==:

.Assume	...GVA	EQ	<^o375>
.Assume	A.SUBC	EQ	0
.Assume	..GVAL	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.GVAL	EQ	<^o34>
.Assume	A.OFST	EQ	<^o2>
.Assume	L.GVAL	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..HERR	-- .HERR EMT request layout / values
;+
;	..HERR
;
;	+-------+-------+
;R0:	|   5	|   0	| .HERR = 5
;	+-------+-------+ ..HERR = 0
;
;	EMT	...HER = 374
;-
.MACRO	..HERR	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...HER	<^o374>
	.EQU	..HERR	<^o0>
	.EQU	.HERR	<^o5>
.ENDM	..HERR
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..HERR
.Print ;..HERR
	..HERR	YES,==:

.Assume	...HER	EQ	<^o374>
.Assume	..HERR	EQ	<^o0>
.Assume	.HERR	EQ	<^o5>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..HRES	-- .HRESET EMT request layout / values
;+
;	..HRES
;
;	EMT	...HRE = 357
;-
.MACRO	..HRES	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...HRE	<^o357>
.ENDM	..HRES
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..HRES
.Print ;..HRES
	..HRES	YES,==:

.Assume	...HRE	EQ	<^o357>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..LIMI	-- .LIMIT Assembler directive
;+
;	..LIMI
;
;	+-------+-------+
;LIM.LO:|lowest addr	|[0]	lowest address in link
;	+-------+-------+
;LIM.HI:|highest addr	|[2]	highest address in link
;	+-------+-------+
;LIM.SZ:		 [4]
;-
.MACRO	..LIMI	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	LIM.LO		;lowest address in link
	.DS	LIM.HI		;highest address in link
	.DS	LIM.SZ	0	;
.ENDM	..LIMI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..LIMI
.Print ;..LIMI
	..LIMI	YES,==:

.Assume	LIM.LO	EQ	0
.Assume	LIM.HI	EQ	2.
.Assume	LIM.SZ	EQ	4.
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..LOCK	-- .LOCK EMT request layout / values
;+
;	..LOCK
;
;	EMT	...LOC = 346
;-
.MACRO	..LOCK	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...LOC	<^o346>
.ENDM	..LOCK
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..LOCK
.Print ;..LOCK
	..LOCK	YES,==:

.Assume	...LOC	EQ	<^o346>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..LOOK	-- .LOOKUP EMT request layout / values
;+
;	..LOOK
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   1	|	 [1] .LOOKU = 1
;	+-------+-----+-+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for user routine
;	+-------+-----+-+
;A.LSEQ:| File seq num	|[4]
;	+-------+-------+
;L.LOOK:		 [6]
;
;	+-------+-------+
;A.RLOO:|	0	|[6] <res>		..RESV = 0 reserved
;	+-------+-----+-+
;A.URTN:| -> user rtn |F|[10] (undocumented)	..PHYS = 1 for physical only
;	+-------+-----+-+
;L.LOOU:		 [12]
;
;	EMT	...LOO = 375
;-
.MACRO	..LOOK	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,LOOKU,1,CHAN,,<DBLK,LSEQ>,L
.IF NE	DOC$UN
	.DS	A.RLOO
	.EQU	..RESV	0
	.DS	A.URTN
	.DS	L.LOOU	0
	.EQU	..URTN	1
	.EQU	..PHYS	1
.ENDC
.ENDM	..LOOK
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..LOOK
.Print ;..LOOK
	..LOOK	YES,==:
.Page
.Assume	...LOO	EQ	<^o375>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.LOOKU	EQ	1
.Assume	A.DBLK	EQ	<^o2>
.Assume	A.LSEQ	EQ	<^o4>
.Assume	L.LOOK	EQ	<^o6>
.IF	NE	DOC$UN
.Assume	A.RLOO	EQ	<^o6>
.Assume	..RESV	EQ	0
.Assume	A.URTN	EQ	<^o10>
.Assume	L.LOOU	EQ	<^o12>
.Assume	..URTN	EQ	1
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MAP	-- .MAP EMT request layout / values
;+
;	..MAP
;
;		+-------+
;A.SUBC:	|   4	|[0] ..MAP = 4
;	+-------+-------+
;A.CODE:|  36	|	 [1] .MAP = 36
;	+-------+-------+
;A.WDB:	| -> window DB	|[2] ov(.WDBDF)
;	+-------+-------+
;L.MAP:			 [4]
;
;	EMT	...MAP = 375
;-
.MACRO	..MAP	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,MAP,36,SUBC,4,<WDB>,L
.ENDM	..MAP
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MAP
.Print ;..MAP
	..MAP	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.WDB	EQ	<^o2>
.Assume	L.MAP	EQ	<^o4>
.Assume	...MAP	EQ	<^o375>
.Assume	..MAP	EQ	<^o4>
.Assume	.MAP	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MRKT	-- .MRKT EMT request layout / values
;+
;	..MRKT
;
;		+-------+
;A.SUBC:	|   0	|[0] ..MRKT = 0
;	+-------+-------+
;A.CODE:|   22	|	 [1] .MRKT = 22
;	+-------+-------+
;A.TIME:| -> time words	|[2]				o(.TIMDF)
;	+-------+-------+
;A.TRTN:| -> Routine	|[4] ..CSUP = 1	odd if Supervisor mode
;	+-------+-------+
;A.MID:	|  request id	|[6]				v(.QTIDF)
;	+-------+-------+
;L.MRKT:		 [10]
;
;	EMT	...MRK = 375
;-
.MACRO	..MRKT	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,MRKT,22,SUBC,0,<TIME,TRTN,MID>,L
	.EQU	..CSUP	1	;if odd, then supervisor mode
.ENDM	..MRKT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MRKT
.Print ;..MRKT
	..MRKT	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.TIME	EQ	<^o2>
.Assume	A.TRTN	EQ	<^o4>
.Assume	A.MID	EQ	<^o6>
.Assume	L.MRKT	EQ	<^o10>
.Assume	.MRKT	EQ	<^o22>
.Assume	..MRKT	EQ	<^o0>
.Assume	...MRK	EQ	<^o375>
.Assume	..CSUP	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTAT	-- .MTATCH EMT request layout / values
;+
;	..MTAT
;
;		+-------+
;A.SUBC:	|   5	|[0] ..MTAT = 5
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTATC = 37
;	+-------+-------+
;A.AST:	| -> Term AST wd|[2] v(.TASDF) ..CSUP = 1 odd if supy address
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.RMTB:|   0	|	 [5] ..RESV = 0
;	+-------+
;L.MTAT:		 [6]
;
;	EMT	...MTA = 375
;-
.MACRO	..MTAT	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTATC,5,AST,UNIT,RMTB
	.EQU	..RESV	0
	.EQU	..CSUP	1	;if odd, then supervisor mode
.ENDM	..MTAT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTAT
.Print ;..MTAT
	..MTAT	YES,==:

.Assume	...MTA	EQ	<^o375>
.Assume	..MTAT	EQ	<^o5>
.Assume	.MTATC	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.AST	EQ	<^o2>
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.RMTB	EQ	<^o5>
.Assume	..RESV	EQ	0
.Assume	L.MTAT	EQ	<^o6>
.Assume	..CSUP	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTDT	-- .MTDTCH EMT request layout / values
;+
;	..MTDT
;
;		+-------+
;A.SUBC:	|   6	|[0] ..MTDT = 6
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTDTC = 37
;	+-------+-------+
;A.RMT:	|	0	|[2] ..RESV
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.RMTB:|   0	|	 [5] ..RESV
;	+-------+
;L.MTDT:		 [6]
;
;	EMT	...MTD = 375
;-
.MACRO	..MTDT	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTDTC,6,RMT,UNIT,RMTB
	.EQU	..RESV	0
.ENDM	..MTDT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTDT
.Print ;..MTDT
	..MTDT	YES,==:

.Assume	...MTD	EQ	<^o375>
.Assume	..MTDT	EQ	<^o6>
.Assume	.MTDTC	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.RMT	EQ	<^o2>
.Assume	..RESV	EQ	0
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.RMTB	EQ	<^o5>
.Assume	..RESV	EQ	0
.Assume	L.MTDT	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTGE	-- .MTGET EMT request layout / values
;+
;	..MTGE
;
;		+-------+
;A.SUBC:	|   1	|[0] ..MTGE = 1
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTGET = 37
;	+-------+-------+
;A.MGET:| -> Term Status|[2] ov(.MGTDF)
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.RMTB:|   0	|	 [5] ..RESV
;	+-------+
;L.MTGE:		 [6]
;
;	EMT	...MTG = 375
;-
.MACRO	..MTGE	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTGET,1,MGET,UNIT,RMTB
	.EQU	..RESV	0
.ENDM	..MTGE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTGE
.Print ;..MTGE
	..MTGE	YES,==:

.Assume	...MTG	EQ	<^o375>
.Assume	..MTGE	EQ	1
.Assume	.MTGET	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.MGET	EQ	<^o2>
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.RMTB	EQ	<^o5>
.Assume	..RESV	EQ	0
.Assume	L.MTGE	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTIN	-- .MTIN EMT request layout / values
;+
;	..MTIN
;
;		+-------+
;A.SUBC:	|   2	|[0] ..MTIN = 2
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTIN = 37
;	+-------+-------+
;A.SBUF:| -> String buf	|[2]
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.SCNT:|chr cnt|	 [5]
;	+-------+
;L.MTIN:		 [6]
;
;	EMT	...MTI = 375
;-
.MACRO	..MTIN	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTIN,2,SBUF,UNIT,SCNT
.ENDM	..MTIN
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTIN
.Print ;..MTIN
	..MTIN	YES,==:

.Assume	...MTI	EQ	<^o375>
.Assume	..MTIN	EQ	<^o2>
.Assume	.MTIN	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.SBUF	EQ	<^o2>
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.SCNT	EQ	<^o5>
.Assume	L.MTIN	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTOU	-- .MTOUT EMT request layout / values
;+
;	..MTOU
;
;		+-------+
;A.SUBC:	|   3	|[0] ..MTOU = 3
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTOUT = 37
;	+-------+-------+
;A.SBUF:| -> String buf	|[2]
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.SCNT:|chr cnt|	 [5]
;	+-------+
;L.MTOU:		 [6]
;
;	EMT	...MTO = 375
;-
.MACRO	..MTOU	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTOUT,3,SBUF,UNIT,SCNT
.ENDM	..MTOU
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTOU
.Print ;..MTOU
	..MTOU	YES,==:

.Assume	...MTO	EQ	<^o375>
.Assume	..MTOU	EQ	<^o3>
.Assume	.MTOUT	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.SBUF	EQ	<^o2>
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.SCNT	EQ	<^o5>
.Assume	L.MTOU	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTPR	-- .MTPRNT EMT request layout / values
;+
;	..MTPR
;
;		+-------+
;A.SUBC:	|   7	|[0] ..MTPR = 7
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTPRN = 37
;	+-------+-------+
;A.SBUF:| -> String buf	|[2]
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.RMTB:|   0	|	 [5] ..RESV
;	+-------+
;L.MTPR:		 [6]
;
;	EMT	...MTP = 375
;-
.MACRO	..MTPR	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTPRNT,7,SBUF,UNIT,RMTB
	.EQU	..RESV	0
.ENDM	..MTPR
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTPR
.Print ;..MTPR
	..MTPR	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.SBUF	EQ	<^o2>
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.RMTB	EQ	<^o5>
.Assume	..RESV	EQ	0
.Assume	L.MTPR	EQ	<^o6>
.Assume	...MTP	EQ	<^o375>
.Assume	..MTPR	EQ	<^o7>
.Assume	.MTPRN	EQ	<^o37>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTRC	-- .MTRCTO EMT request layout / values
;+
;	..MTRC
;
;		+-------+
;A.SUBC:	|   4	|[0] ..MTRC = 4
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTRCT = 37
;	+-------+-------+
;A.RMT:	|	0	|[2] ..RESV
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.RMTB:|   0	|	 [5] ..RESV
;	+-------+
;L.MTRC:		 [6]
;
;	EMT	...MTR = 375
;-
.MACRO	..MTRC	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTRCTRO,4,RMT,UNIT,RMTB
	.EQU	..RESV	0
.ENDM	..MTRC
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTRC
.Print ;..MTRC
	..MTRC	YES,==:

.Assume	...MTR	EQ	<^o375>
.Assume	..MTRC	EQ	<^o4>
.Assume	.MTRCT	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.RMT	EQ	<^o2>
.Assume	..RESV	EQ	0
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.RMTB	EQ	<^o5>
.Assume	L.MTRC	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTSE	-- .MTSET EMT request layout / values
;+
;	..MTSE
;
;		+-------+
;A.SUBC:	|   0	|[0] ..MTSE = 0
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTSET = 37
;	+-------+-------+
;A.MGET:| -> Term Status|[2] o(.MGTDF)
;	+-------+-------+
;A.UNIT:	|  LUN	|[4]
;	+-------+-------+
;A.RMTB:|   0	|	 [5] ..RESV
;	+-------+
;L.MTSE:		 [6]
;
;	EMT	...MTS = 375
;-
.MACRO	..MTSE	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTSET,0,MGET,UNIT,RMTB
	.EQU	..RESV	0
.ENDM	..MTSE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTSE
.Print ;..MTSE
	..MTSE	YES,==:

.Assume	...MTS	EQ	<^o375>
.Assume	..MTSE	EQ	0
.Assume	.MTSET	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.MGET	EQ	<^o2>
.Assume	A.UNIT	EQ	<^o4>
.Assume	A.RMTB	EQ	<^o5>
.Assume	..RESV	EQ	0
.Assume	L.MTSE	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MTST	-- .MTSTAT EMT request layout / values
;+
;	..MTST
;
;		+-------+
;A.SUBC:	|   10	|[0] ..MTST = 10
;	+-------+-------+
;A.CODE:|  37	|	 [1] .MTSTA = 37
;	+-------+-------+
;A.MSTA:| -> Status area|[2] o(.MSTDF)
;	+-------+-------+
;A.RMT2:|	0	|[4] ..RESV
;	+-------+-------+
;L.MTST:		 [6]
;
;	EMT	...MTS = 375
;-
.MACRO	..MTST	LIST,E
.MCALL	...CMT
	...CMT	LIST,E,MTSTAT,10,MSTA,RMT2
	.EQU	..RESV	0
.ENDM	..MTST
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MTST
.Print ;..MTST
	..MTST	YES,==:

.Assume	...MTS	EQ	<^o375>
.Assume	..MTST	EQ	<^o10>
.Assume	.MTSTA	EQ	<^o37>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.MSTA	EQ	<^o2>
.Assume	A.RMT2	EQ	<^o4>
.Assume	..RESV	EQ	0
.Assume	L.MTST	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..MWAI	-- .MWAIT EMT request layout / values
;+
;	..MWAI
;
;	+-------+-------+
;R0:	|   11	|   0	| .MWAIT = 11
;	+-------+-------+ ..MWAI = 0
;
;	EMT	...MWA = 374
;-
.MACRO	..MWAI	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...MWA	<^o374>
	.EQU	..MWAI	<^o0>
	.EQU	.MWAIT	<^o11>
.ENDM	..MWAI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..MWAI
.Print ;..MWAI
	..MWAI	YES,==:

.Assume	...MWA	EQ	<^o374>
.Assume	..MWAI	EQ	<^o0>
.Assume	.MWAIT	EQ	<^o11>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..PEEK	-- .PEEK EMT request layout / values
;+
;	..PEEK
;
;		+-------+
;A.SUBC:	|   1	|[0] ..PEEK = 1
;	+-------+-------+
;A.CODE:|   34	|	 [1] .PEEK = 34
;	+-------+-------+
;A.ADDR:| -> kernel addr|[2]
;	+-------+-------+
;L.PEEK:		 [4]
;
;	EMT	...PEE = 375
;-
.MACRO	..PEEK	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,PEEK,34,SUBC,1,<ADDR>,L
.ENDM	..PEEK
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..PEEK
.Print ;..PEEK
	..PEEK	YES,==:

.Assume	...PEE	EQ	<^o375>
.Assume	A.SUBC	EQ	0
.Assume	..PEEK	EQ	1
.Assume	A.CODE	EQ	1
.Assume	.PEEK	EQ	<^o34>
.Assume	A.ADDR	EQ	<^o2>
.Assume	L.PEEK	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..POKE	-- .POKE EMT request layout / values
;+
;	..POKE
;
;		+-------+
;A.SUBC:	|   	|[0] ..POKE = 3   ..BICO = 5   ..BISO = 7
;	+-------+-------+
;A.CODE:|   34	|	 [1] .POKE = 34
;	+-------+-------+
;A.ADDR:| -> kernel addr|[2]
;	+-------+-------+
;A.VALU:|     value	|[4]
;	+-------+-------+
;L.POKE:		 [6]
;
;	EMT	...POK = 375
;-
.MACRO	..POKE	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,POKE,34,SUBC,3,<ADDR,VALU>,L
	.EQU	..BICO	5	;Subcode for POKE using BIC instruction
	.EQU	..BISO	7	;Subcode for POKE using BIS instruction
.ENDM	..POKE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..POKE
.Print ;..POKE
	..POKE	YES,==:

.Assume	...POK	EQ	<^o375>
.Assume	A.SUBC	EQ	0
.Assume	..POKE	EQ	<^o3>
.Assume	..BICO	EQ	<^o5>
.Assume	..BISO	EQ	<^o7>
.Assume	A.CODE	EQ	1
.Assume	.POKE	EQ	<^o34>
.Assume	A.ADDR	EQ	<^o2>
.Assume	A.VALU	EQ	<^o4>
.Assume	L.POKE	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..PRIN	-- .PRINT EMT request layout / values
;+
;	..PRIN
;
;	+-------+-------+
;R0:	| -> String	|
;	+-------+-------+
;
;	EMT	...PRI = 351
;-
.MACRO	..PRIN	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...PRI	<^o351>
.ENDM	..PRIN
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..PRIN
.Print ;..PRIN
	..PRIN	YES,==:

.Assume	...PRI	EQ	<^o351>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..PROT	-- .PROTECT EMT request layout / values
;+
;	..PROT
;
;		+-------+
;A.SUBC:	|   0	|[0] ..PROT = 0
;	+-------+-------+
;A.CODE:|   31	|	 [1] .PROTE = 31
;	+-------+-------+
;A.ADDR:|Addr to protect|[2]
;	+-------+-------+
;L.PROT:		 [4]
;
;	EMT	...PRO = 375
;-
.MACRO	..PROT	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,PROTECT,31,SUBC,0,<ADDR>,L
.ENDM	..PROT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..PROT
.Print ;..PROT
	..PROT	YES,==:

.Assume	...PRO	EQ	<^o375>
.Assume	..PROT	EQ	0
.Assume	.PROTE	EQ	<^o31>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.ADDR	EQ	<^o2>
.Assume	L.PROT	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..PURG	-- .PURGE EMT request layout / values
;+
;	..PURG
;
;	+-------+-------+
;R0:	|   3	|  chan	| .PURGE = 3
;	+-------+-------+
;
;	EMT	...PUR = 374
;-
.MACRO	..PURG	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...PUR	<^o374>
	.EQU	.PURGE	<^o3>
.ENDM	..PURG
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..PURG
.Print ;..PURG
	..PURG	YES,==:

.Assume	...PUR	EQ	<^o374>
.Assume	.PURGE	EQ	<^o3>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..PVAL	-- .PVAL EMT request layout / values
;+
;	..PVAL
;
;		+-------+
;A.SUBC:	|   	|[0] ..PVAL = 2   ..BICV = 4   ..BISV = 6
;	+-------+-------+
;A.CODE:|   34	|	 [1] .PVAL = 34
;	+-------+-------+
;A.OFST:|  RMON offset	|[2] o(.FIXDF)
;	+-------+-------+
;A.VALU:|     value	|[4]
;	+-------+-------+
;L.PVAL:		 [6]
;
;	EMT	...PVA = 375
;-
.MACRO	..PVAL	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,PVAL,34,SUBC,2,<OFST,VALU>,L
	.EQU	..BICV	4	;Subcode for PVAL using BIC instruction
	.EQU	..BISV	6	;Subcode for PVAL using BIS instruction
.ENDM	..PVAL
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..PVAL
.Print ;..PVAL
	..PVAL	YES,==:

.Assume	...PVA	EQ	<^o375>
.Assume	A.SUBC	EQ	0
.Assume	..PVAL	EQ	<^o2>
.Assume	..BICV	EQ	<^o4>
.Assume	..BISV	EQ	<^o6>
.Assume	A.CODE	EQ	1
.Assume	.PVAL	EQ	<^o34>
.Assume	A.OFST	EQ	<^o2>
.Assume	A.VALU	EQ	<^o4>
.Assume	L.PVAL	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..QSET	-- .QSET EMT request layout / values
;+
;	..QSET
;
;	+-------+-------+
;R0:	|number to alloc|
;	+-------+-------+
;
;	+-------+-------+
;@SP:	|-> area for new|			ov(.QELDF)
;	+-------+-------+
;
;	EMT	...QSE = 353
;-
.MACRO	..QSET	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...QSE	<^o353>
.ENDM	..QSET
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..QSET
.Print ;..QSET
	..QSET	YES,==:

.Assume	...QSE	EQ	<^o353>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..RCTR	-- .RCTRLO EMT request layout / values
;+
;	..RCTR
;
;	EMT	...RCT = 355
;-
.MACRO	..RCTR	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...RCT	<^o355>
.ENDM	..RCTR
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..RCTR
.Print ;..RCTR
	..RCTR	YES,==:

.Assume	...RCT	EQ	<^o355>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..RCVD	-- .RCVD_ EMT request layout / values
;+
;	..RCVD
;
;		+-------+
;A.SUBC:	|   0	|[0] ..RCVD = 0
;	+-------+-------+
;A.CODE:|   26	|	 [1] .RCVD = 26
;	+-------+-------+
;A.RRCV:|	0	|[2] ..RESV = 0
;	+-------+-------+
;A.BUF:	| -> buffer area|[4]
;	+-------+-------+
;A.WCNT:|   Word count	|[6]
;	+-------+-------+		{even non zero = completion routine
;A.CRTN:| -> routine	|[10]		{..ISIO = 1 issue I/O request w/o wait
;A.TYPE:+-------+-------+		{..WTIO = 0 issue I/O request, wait
;					{..EMIO = xxxxx3 see below
;					{..DRIO = xxx377 see below
;L.RCVD:		 [12]
;
;	:		:		if ..DRIO or ..EMIO in A.TYPE
;A.SRTN:|-> routine   | |[12]		same as A.CRTN
;	+-------+-----+-+		{..CSUP = 1 completion to Supy mode
;L.RCVU:		 [14]		if ..DRIO or ..EMIO in A.TYPE
;
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;	| 1 | x | x | x | x | x | 1 | 1 | ..EMIM = 203 mask for testing ..EMIO
;	+---+---+---+---+---+---+---+---+
;	| 0 |reserve|BUF mapping| 1 | 1 | ..EMIO = 3 fixed bits for ext map
;A.TYPE:+---+---+---+---+---+---+---+---+
;	| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | ..DRIO = 377
;	+---+---+---+---+---+---+---+---+
;
;					{..USER = 0  I/O to User mode
;					{..SUPY = 04 I/O to Supy mode (value)
;					{..CURR = 10 I/O to Current mode (value)
;					{         14 reserved (value)
;					{..DSPA = 0  I/O to D space (bit)
;					{..ISPA = 20 I/O to I space (bit)
;					{	  40 reserved
;					{        100 reserved for extending
;					{	     this request block
;
;
;	EMT	...RCV = 375
;-
.MACRO	..RCVD	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,RCVD,26,SUBC,0,<RRCV,BUF,WCNT,CRTN>,L
	.EQU	..RESV	0
	.EQU	..EMIM	<^o203>	;mask for testing ..EMIO
	.EQU	..EMIO	<^o003>	;fixed bits for ext map
	.EQU	..DRIO	<^o377>	;BUF normal mapping, SRTN maybe supy
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..USER	0  	;I/O to User mode
	.EQU	..SUPY	<^o04>	;I/O to Supy mode (value)
	.EQU	..CURR	<^o10>	;I/O to Current mode (value)
	.EQU	..DSPA	0	;I/O to D space (bit)
	.EQU	..ISPA	<^o20>	;I/O to I space (bit)
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	A.SRTN	<^o12>	;A.CRTN value if A.TYPE has 2 lowest bits set
	.EQU	..CSUP  1 	;low bit A.SRTN completion to Supy mode
	.EQU	L.RCVU	<^o14>	;Area length of A.TYPE has 2 lowest bits set
.ENDM	..RCVD
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..RCVD
.Print ;..RCVD
	..RCVD	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.RRCV	EQ	<^o2>
.Assume	..RESV	EQ	0
.Assume	A.BUF	EQ	<^o4>
.Assume	A.WCNT	EQ	<^o6>
.Assume	A.CRTN	EQ	<^o10>
.Assume	A.TYPE	EQ	<^o10>
.Assume	..WTIO	EQ	0
.Assume	..ISIO	EQ	1
.Assume	L.RCVD	EQ	<^o12>
.Assume	...RCV	EQ	<^o375>
.Assume	..RCVD	EQ	<^o0>
.Assume	.RCVD	EQ	<^o26>
.Assume	..EMIM	EQ	<^o203>
.Assume	..EMIO	EQ	<^o003>
.Assume	..DRIO	EQ	<^o377>
.Assume	..ISIO	EQ	1
.Assume	..WTIO	EQ	0
.Assume	..USER	EQ	0
.Assume	..SUPY	EQ	<^o04>
.Assume	..CURR	EQ	<^o10>
.Assume	..DSPA	EQ	0
.Assume	..ISPA	EQ	<^o20>
.Assume	A.TYPE	EQ	A.CRTN
.Assume	A.SRTN	EQ	<^o12>
.Assume	..CSUP  EQ	1
.Assume	L.RCVU	EQ	<^o14>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..READ	-- .READ_ EMT request layout / values
;+
;	..READ
;
;		+-------+
;A.CHAN:	| chan	|[0]
;	+-------+-------+
;A.CODE:|   10	|	 [1] .READ = 10
;	+-------+-------+
;A.BLK:	|  Block number	|[2]
;	+-------+-------+
;A.BUF:	| -> buffer area|[4]
;	+-------+-------+
;A.WCNT:|   Word count	|[6]
;	+-------+-------+		{even non zero = completion routine
;A.CRTN:| -> routine	|[10]		{..ISIO = 1 issue I/O request w/o wait
;A.TYPE:+-------+-------+		{..WTIO = 0 issue I/O request, wait
;					{..EMIO = xxxxx3 see below
;					{..DRIO = xxx377 see below
;L.READ:		 [12]
;
;	:		:		if ..DRIO or ..EMIO in A.TYPE
;A.SRTN:|-> routine   | |[12]		same as A.CRTN
;	+-------+-----+-+		{..CSUP = 1 completion to Supy mode
;L.REAU:		 [14]		if ..DRIO or ..EMIO in A.TYPE
;
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;	| 1 | x | x | x | x | x | 1 | 1 | ..EMIM = 203 mask for testing ..EMIO
;	+---+---+---+---+---+---+---+---+
;	| 0 |reserve|BUF mapping| 1 | 1 | ..EMIO = 3 fixed bits for ext map
;A.TYPE:+---+---+---+---+---+---+---+---+
;	| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | ..DRIO = 377
;	+---+---+---+---+---+---+---+---+
;
;					{..USER = 0  I/O to User mode
;					{..SUPY = 04 I/O to Supy mode (value)
;					{..CURR = 10 I/O to Current mode (value)
;					{         14 reserved (value)
;					{..DSPA = 0  I/O to D space (bit)
;					{..ISPA = 20 I/O to I space (bit)
;					{	  40 reserved
;					{        100 reserved for extending
;					{	     this request block
;
;	EMT	...REA = 375
;-
.MACRO	..READ	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,READ,10,CHAN,,<BLK,BUF,WCNT,CRTN>,L
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..EMIM	<^o203>	;mask for testing ..EMIO
	.EQU	..EMIO	<^o003>	;fixed bits for ext map
	.EQU	..DRIO	<^o377>	;BUF normal mapping, SRTN maybe supy
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..USER	0  	;I/O to User mode
	.EQU	..SUPY	<^o04>	;I/O to Supy mode (value)
	.EQU	..CURR	<^o10>	;I/O to Current mode (value)
	.EQU	..DSPA	0	;I/O to D space (bit)
	.EQU	..ISPA	<^o20>	;I/O to I space (bit)
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	A.SRTN	<^o12>	;A.CRTN value if A.TYPE has 2 lowest bits set
	.EQU	..CSUP  1 	;low bit A.SRTN completion to Supy mode
	.EQU	L.REAU	<^o14>	;Area length of A.TYPE has 2 lowest bits set
.ENDM	..READ
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..READ
.Print ;..READ
	..READ	YES,==:
.Page
.Assume	...REA	EQ	<^o375>
.Assume	.READ	EQ	<^o10>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.BLK	EQ	<^o2>
.Assume	A.BUF	EQ	<^o4>
.Assume	A.WCNT	EQ	<^o6>
.Assume	A.CRTN	EQ	<^o10>
.Assume	A.TYPE	EQ	<^o10>
.Assume	..WTIO	EQ	0
.Assume	..ISIO	EQ	1
.Assume	..DRIO	EQ	<^o377>
.Assume	L.READ	EQ	<^o12>
.Assume	A.SRTN	EQ	<^o12>
.Assume L.REAU	EQ	<^o14>
.Assume	..EMIM	EQ	<^o203>
.Assume	..EMIO	EQ	<^o003>
.Assume	..DRIO	EQ	<^o377>
.Assume	..ISIO	EQ	1
.Assume	..WTIO	EQ	0
.Assume	..USER	EQ	0
.Assume	..SUPY	EQ	<^o04>
.Assume	..CURR	EQ	<^o10>
.Assume	..DSPA	EQ	0
.Assume	..ISPA	EQ	<^o20>
.Assume	A.TYPE	EQ	A.CRTN
.Assume	A.SRTN	EQ	<^o12>
.Assume	..CSUP  EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..RELE	-- .RELEASE EMT request layout / values
;+
;	..RELE
;
;	+-------+-------+
;R0:	| -> Device name|
;	+-------+-------+
;
;	+-------+-------+
;@SP:	|	0     |F|		..PHYS = 1 for physical only
;	+-------+-------+
;
;	EMT	...REL = 343
;-
.MACRO	..RELE	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...REL	<^o343>
.IF	NE	DOC$UN
	.EQU	..PHYS	1
.ENDC
.ENDM	..RELE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..RELE
.Print ;..RELE
	..RELE	YES,==:

.Assume	...REL	EQ	<^o343>
.IF	NE	DOC$UN
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..RENA	-- .RENAME EMT request layout / values
;+
;	..RENA
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   4	|	 [1] .RENAM = 4
;	+-------+-----+-+
;A.DBK2:| -> 2 Dblocks|F|[2] o(.DBKDF)*2	..URTN = 1 for user routine
;	+-------+-----+-+
;L.RENA:		 [4]
;	+-------+-------+
;A.RRE1:|	0	|[4] (undocumented)	..RESV
;	+-------+-------+
;A.RRE2:|	0	|[6] (undocumented)	..RESV
;	+-------+-------+
;A.URTN:| -> user rtn |F|[10] (undocumented)	..PHYS = 1 for physical only
;	+-------+-----+-+
;L.RENU:		 [12]
;
;	EMT	...REN = 375
;-
.MACRO	..RENA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,RENAME,4,CHAN,,<DBK2>,L
.IF NE	DOC$UN
	.DS	A.RRE1
	.DS	A.RRE2
	.EQU	..RESV	0
	.DS	A.URTN
	.EQU	..URTN	1
	.EQU	..PHYS	1
	.DS	L.RENU	0
.ENDC
.ENDM	..RENA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..RENA
.Print ;..RENA
	..RENA	YES,==:
.Page
.Assume	...REN	EQ	<^o375>
.Assume	.RENAM	EQ	<^o4>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.DBK2	EQ	<^o2>
.Assume	L.RENA	EQ	<^o4>
.IF	NE	DOC$UN
.Assume	A.RRE1	EQ	<^o4>
.Assume	A.RRE2	EQ	<^o6>
.Assume	..RESV	EQ	0
.Assume	A.URTN	EQ	<^o10>
.Assume	L.RENU	EQ	<^o12>
.Assume	..URTN	EQ	1
.Assume	..PHYS	EQ	1
.ENDC
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..REOP	-- .REOPEN EMT request layout / values
;+
;	..REOP
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   6	|	 [1] .REOPE = 6
;	+-------+-------+
;A.CBLK:| -> Save Stat	|[2] o(.CHNDF)
;	+-------+-------+
;L.REOP:		 [4]
;
;	EMT	...REO = 375
;-
.MACRO	..REOP	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,REOPEN,6,CHAN,,<CBLK>,L
.ENDM	..REOP
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..REOP
.Print ;..REOP
	..REOP	YES,==:

.Assume	...REO	EQ	<^o375>
.Assume	.REOPE	EQ	<^o6>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.CBLK	EQ	<^o2>
.Assume	L.REOP	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..RSUM	-- .RSUM EMT request layout / values
;+
;	..RSUM
;
;	+-------+-------+
;R0:	|   2	|   0	| .RSUM = 2
;	+-------+-------+ ..RSUM = 0
;
;	EMT	...RSU = 374
;-
.MACRO	..RSUM	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...RSU	<^o374>
	.EQU	..RSUM	<^o0>
	.EQU	.RSUM	<^o2>
.ENDM	..RSUM
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..RSUM
.Print ;..RSUM
	..RSUM	YES,==:

.Assume	...RSU	EQ	<^o374>
.Assume	..RSUM	EQ	<^o0>
.Assume	.RSUM	EQ	<^o2>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SAVE	-- .SAVESTATUS EMT request layout / values
;+
;	..SAVE
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   5	|	 [1] .SAVES = 5
;	+-------+-------+
;A.CBLK:| -> Save Stat	|[2] o(.CHNDF)
;	+-------+-------+
;L.SAVES:		 [4]
;
;	EMT	...SAV = 375
;-
.MACRO	..SAVE	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SAVESTATUS,5,CHAN,,<CBLK>,L
.ENDM	..SAVE
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SAVE
.Print ;..SAVE
	..SAVE	YES,==:

.Assume	...SAV	EQ	<^o375>
.Assume	.SAVES	EQ	<^o5>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.CBLK	EQ	<^o2>
.Assume	L.SAVES	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SCCA	-- .SCCA EMT request layout / values
;+
;	..SCCA
;
;		+-------+		{..SCLC = 0 local
;A.SCOP:	| Scope	|[0]		{
;	+-------+-------+		{..SCGB = 1 global
;A.CODE:|   35	|	 [1] .SCCA = 35
;	+-------+-------+
;A.AST:	| -> Term AST wd|[2] v(.TASDF) ..CSUP = 1 odd if supy address
;	+-------+-------+
;L.SCCA:		 [4]
;
;	EMT	...SCC = 375
;-
.MACRO	..SCCA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SCCA,35,SCOP,,<AST>,L
	.EQU	..SCLC	0	;local SCCA
	.EQU	..SCGB	1	;global SCCA
	.EQU	..CSUP	1	;if odd, then supervisor mode
.ENDM	..SCCA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SCCA
.Print ;..SCCA
	..SCCA	YES,==:

.Assume	...SCC	EQ	<^o375>
.Assume	.SCCA	EQ	<^o35>
.Assume	A.SCOP	EQ	0
.Assume	..SCLC	EQ	0
.Assume	..SCGB	EQ	1
.Assume	A.CODE	EQ	1
.Assume	A.AST	EQ	<^o2>
.Assume	L.SCCA	EQ	<^o4>
.Assume	..CSUP	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SDAT	-- .SDAT_ EMT request layout / values
;+
;	..SDAT
;
;		+-------+
;A.SUBC:	|   0	|[0] ..SDAT = 0
;	+-------+-------+
;A.CODE:|   25	|	 [1] .SDAT = 25
;	+-------+-------+
;A.RSDT:|	0	|[2] ..RESV = 0
;	+-------+-------+
;A.BUF:	| -> buffer area|[4]
;	+-------+-------+
;A.WCNT:|   Word count	|[6]
;	+-------+-------+		{even non zero = completion routine
;A.CRTN:| -> routine	|[10]		{..ISIO = 1 issue I/O request w/o wait
;A.TYPE:+-------+-------+		{..WTIO = 0 issue I/O request, wait
;					{..EMIO = xxxxx3 see below
;					{..DRIO = xxx377 see below
;L.SDAT:		 [12]
;
;	:		:		if ..DRIO or ..EMIO in A.TYPE
;A.SRTN:|-> routine   | |[12]		same as A.CRTN
;	+-------+-----+-+		{..CSUP = 1 completion to Supy mode
;L.SDAU:		 [14]		if ..DRIO or ..EMIO in A.TYPE
;
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;	| 1 | x | x | x | x | x | 1 | 1 | ..EMIM = 203 mask for testing ..EMIO
;	+---+---+---+---+---+---+---+---+
;	| 0 |reserve|BUF mapping| 1 | 1 | ..EMIO = 3 fixed bits for ext map
;A.TYPE:+---+---+---+---+---+---+---+---+
;	| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | ..DRIO = 377
;	+---+---+---+---+---+---+---+---+
;
;					{..USER = 0  I/O to User mode
;					{..SUPY = 04 I/O to Supy mode (value)
;					{..CURR = 10 I/O to Current mode (value)
;					{         14 reserved (value)
;					{..DSPA = 0  I/O to D space (bit)
;					{..ISPA = 20 I/O to I space (bit)
;					{	  40 reserved
;					{        100 reserved for extending
;					{	     this request block
;
;
;	EMT	...SDA = 375
;-
.MACRO	..SDAT	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SDAT,25,SUBC,0,<RSDT,BUF,WCNT,CRTN>,L
	.EQU	..RESV	0
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..EMIM	<^o203>	;mask for testing ..EMIO
	.EQU	..EMIO	<^o003>	;fixed bits for ext map
	.EQU	..DRIO	<^o377>	;BUF normal mapping, SRTN maybe supy
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..USER	0  	;I/O to User mode
	.EQU	..SUPY	<^o04>	;I/O to Supy mode (value)
	.EQU	..CURR	<^o10>	;I/O to Current mode (value)
	.EQU	..DSPA	0	;I/O to D space (bit)
	.EQU	..ISPA	<^o20>	;I/O to I space (bit)
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	A.SRTN	<^o12>	;A.CRTN value if A.TYPE has 2 lowest bits set
	.EQU	..CSUP  1 	;low bit A.SRTN completion to Supy mode
	.EQU	L.SDAU	<^o14>	;Area length of A.TYPE has 2 lowest bits set
.ENDM	..SDAT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SDAT
.Print ;..SDAT
	..SDAT	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.RSDT	EQ	<^o2>
.Assume	..RESV	EQ	0
.Assume	A.BUF	EQ	<^o4>
.Assume	A.WCNT	EQ	<^o6>
.Assume	A.CRTN	EQ	<^o10>
.Assume	A.TYPE	EQ	<^o10>
.Assume	..WTIO	EQ	0
.Assume	..ISIO	EQ	1
.Assume	L.SDAT	EQ	<^o12>
.Assume	...SDA	EQ	<^o375>
.Assume	..SDAT	EQ	<^o0>
.Assume	.SDAT	EQ	<^o25>
.Assume	..EMIM	EQ	<^o203>
.Assume	..EMIO	EQ	<^o003>
.Assume	..DRIO	EQ	<^o377>
.Assume	..ISIO	EQ	1
.Assume	..WTIO	EQ	0
.Assume	..USER	EQ	0
.Assume	..SUPY	EQ	<^o04>
.Assume	..CURR	EQ	<^o10>
.Assume	..DSPA	EQ	0
.Assume	..ISPA	EQ	<^o20>
.Assume	A.TYPE	EQ	A.CRTN
.Assume	A.SRTN	EQ	<^o12>
.Assume	..CSUP  EQ	1
.Assume	L.SDAU	EQ	<^o14>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SDTT	-- .SDTTM EMT request layout / values
;+
;	..SDTT
;
;		+-------+
;A.SUBC:	|   0	|[0] ..SDTTM = 0
;	+-------+-------+
;A.CODE:|   40	|	 [1] .SDTTM = 40
;	+-------+-------+
;A.DTTM:| -> Date & time|[2] o(.DTMDF)
;	+-------+-------+
;L.SDTT:		 [4]
;
;	EMT	...SDT = 375
;-
.MACRO	..SDTT	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SDTTM,40,SUBC,0,<DTTM>,L
.ENDM	..SDTT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SDTT
.Print ;..SDDT
	..SDTT	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.DTTM	EQ	<^o2>
.Assume	L.SDTT	EQ	<^o4>
.Assume	...SDT	EQ	<^o375>
.Assume	..SDTT	EQ	<^o0>
.Assume	.SDTTM	EQ	<^o40>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SERR	-- .SERR EMT request layout / values
;+
;	..SERR
;
;	+-------+-------+
;R0:	|   4	|   0	| .SERR = 4
;	+-------+-------+ ..SERR = 0
;
;	EMT	...SER = 374
;-
.MACRO	..SERR	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...SER	<^o374>
	.EQU	..SERR	<^o0>
	.EQU	.SERR	<^o4>
.ENDM	..SERR
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SERR
.Print ;..SERR
	..SERR	YES,==:

.Assume	...SER	EQ	<^o374>
.Assume	..SERR	EQ	<^o0>
.Assume	.SERR	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SETT	-- .SETTOP EMT request layout / values
;+
;	..SETT
;
;	+-------+-------+
;R0:	| Requested top	|	o(.SYCDF)
;	+-------+-------+
;
;	EMT	...SET = 354
;-
.MACRO	..SETT	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...SET	<^o354>
.ENDM	..SETT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SETT
.Print ;..SETT
	..SETT	YES,==:

.Assume	...SET	EQ	<^o354>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SFDA	-- .SFDAT EMT request layout / values
;+
;	..SFDA
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|   42	|	 [1] .SFDAT = 42
;	+-------+-------+
;A.DBLK:| -> D block	|[2] o(.DBKDF)
;	+-------+-------+
;A.DATE:|     Date	|[4] v(.DATDF)
;	+-------+-------+
;L.SFDA:		 [6]
;
;	EMT	...SFD = 375
;-
.MACRO	..SFDA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SFDAT,42,CHAN,,<DBLK,DATE>,L
.ENDM	..SFDA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SFDA
.Print ;..SFDA
	..SFDA	YES,==:

.Assume	...SFD	EQ	<^o375>
.Assume	.SFDAT	EQ	<^o42>
.Assume	A.CODE	EQ	1
.Assume	A.DBLK	EQ	<^o2>
.Assume	A.DATE	EQ	<^o4>
.Assume	L.SFDA	EQ	<^o6>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SFIN	-- .SFINF EMT request layout / values
;+
;	..SFIN
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|  44	|	 [1] .SFINF = 44
;	+-------+-------+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for flag word
;	+-------+-------+
;A.VALU:|     value	|[4] reserved
;	+-------+-------+
;A.OPER:	|	|[6] operation		{..GETF|..BICF|..BISF|..MOVF}
;	+-------+-------+
;A.DOFS:|	|	 [7] directory entry offset
;	+-------+
;L.SFIN:		 [10]
;	+-------+-----+-+
;A.URTN:|   reserved  |F|[10] (undocumented) ..PHYS = 1 for physical only
;	+-------+-----+-+
;L.SFIU:		 [12]
;
;	EMT	...SFI = 375
;-
.MACRO	..SFIN	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SFINF,44,CHAN,,<DBLK,VALU,OPER>
	.EQU	..GETF	<^o0>	;get operation
	.EQU	..BICF	<^o1>	;clear bits operation
	.EQU	..BISF	<^o2>	;set bits operation
	.EQU	..MOVF	<^o3>	;move bits operation
	.EQU	A.DOFS	<^o7>	;offset byte
	.EQU	L.SFIN	<^o10>	;length of request block
.IF 	NE	DOC$UN
	.EQU	..URTN	1	;flag word exists
	.EQU	A.URTN	<^o10>	;flag word for physical only flag
	.EQU	..PHYS	1	;bypass logical translation
	.EQU	L.SFIU	<^o12>	;length with undocumented area
.ENDC	;NE	DOC$UN
.ENDM	..SFIN
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SFIN
.Print ;..SFIN
	..SFIN	YES,==:

.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.SFINF	EQ	<^o44>
.Assume	A.DBLK	EQ	<^o2>
.Assume	..URTN	EQ	1
.Assume	A.VALU	EQ	<^o4>
.Assume	A.OPER	EQ	<^o6>
.Assume	..GETF	EQ	<^o0>
.Assume	..BICF	EQ	<^o1>
.Assume	..BISF	EQ	<^o2>
.Assume	..MOVF	EQ	<^o3>
.Assume	A.DOFS	EQ	<^o7>
.Assume	L.SFIN	EQ	<^o10>
.Assume	...SFI	EQ	<^o375>
.IF	NE 	DOC$UN
.Assume	A.URTN	EQ	<^o10>
.Assume	..PHYS	EQ	1
.Assume	L.SFIU	EQ	<^o12>
.ENDC	;NE	DOC$UN
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SFPA	-- .SFPA EMT request layout / values
;+
;	..SFPA
;
;		+-------+
;A.SUBC:	|   0	|[0] ..SFPA = 0
;	+-------+-------+
;A.CODE:|   30	|	 [1] .SFPA = 30
;	+-------+-------+
;A.ADDR:| -> Routine	|[2]		..SWFP = 1 just swap FPA context
;	+-------+-------+		..CSUP = 1 addr is supy
;L.SFPA:		 [4]
;
;	EMT	...SFP = 375
;-
.MACRO	..SFPA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SFPA,30,SUBC,0,<ADDR>,L
	.EQU	..SWFP	1
	.EQU	..CSUP	1	;if odd, then supervisor mode
.ENDM	..SFPA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SFPA
.Print ;..SFPA
	..SFPA	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.ADDR	EQ	<^o2>
.Assume	..SWFP	EQ	1
.Assume	L.SFPA	EQ	<^o4>
.Assume	...SFP	EQ	<^o375>
.Assume	..SFPA	EQ	<^o0>
.Assume	.SFPA	EQ	<^o30>
.Assume	..CSUP	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SFST	-- .SFSTA EMT request layout / values
;+
;	..SFST
;
;		+-------+
;A.CHAN:	|channel|[0]
;	+-------+-------+
;A.CODE:|  44	|	 [1] .SFSTA = 44
;	+-------+-------+
;A.DBLK:| ->  D block |F|[2] o(.DBKDF)		..URTN = 1 for flag word
;	+-------+-------+
;A.VALU:|     value	|[4] reserved
;	+-------+-------+
;A.OPER:	|	|[6] operation		{..GETF|..BICF|..BISF|..MOVF}
;	+-------+-------+
;A.DOFS:|   0	|	 [7] directory entry offset E.STAT
;	+-------+
;L.SFST:		 [10]
;	+-------+-----+-+
;A.URTN:|   reserved  |F|[10] (undocumented) ..PHYS = 1 for physical only
;	+-------+-----+-+
;L.SFSU:		 [12]
;
;	EMT	...SFS = 375
;-
.MACRO	..SFST	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SFSTA,44,CHAN,,<DBLK,VALU,OPER>
	.EQU	..GETF	<^o0>	;get operation
	.EQU	..BICF	<^o1>	;clear bits operation
	.EQU	..BISF	<^o2>	;set bits operation
	.EQU	..MOVF	<^o3>	;move bits operation
	.EQU	A.DOFS	<^o7>	;offset byte
	.EQU	L.SFST	<^o10>	;length of request block
.IF 	NE	DOC$UN
	.EQU	..URTN	1	;flag word exists
	.EQU	A.URTN	<^o10>	;flag word for physical only flag
	.EQU	..PHYS	1	;bypass logical translation
	.EQU	L.SFSU	<^o12>	;length with undocumented area
.ENDC	;NE	DOC$UN
.ENDM	..SFST
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SFST
.Print ;..SFST
	..SFST	YES,==:

.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	.SFSTA	EQ	<^o44>
.Assume	A.DBLK	EQ	<^o2>
.Assume	..URTN	EQ	1
.Assume	A.VALU	EQ	<^o4>
.Assume	A.OPER	EQ	<^o6>
.Assume	..GETF	EQ	<^o0>
.Assume	..BICF	EQ	<^o1>
.Assume	..BISF	EQ	<^o2>
.Assume	..MOVF	EQ	<^o3>
.Assume	A.DOFS	EQ	<^o7>
.Assume	L.SFST	EQ	<^o10>
.Assume	...SFS	EQ	<^o375>
.IF	NE 	DOC$UN
.Assume	A.URTN	EQ	<^o10>
.Assume	..PHYS	EQ	1
.Assume	L.SFSU	EQ	<^o12>
.ENDC	;NE	DOC$UN
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SPCP	-- .SPCPS EMT request layout / values
;+
;	..SPCP
;
;		+-------+
;A.SUBC:	|   0	|[0] ..SPCP = 0
;	+-------+-------+
;A.CODE:|   41	|	 [1] .SPCPS = 41
;	+-------+-------+
;A.PCPS:| -> PC PS block|[2] o(.SPCDF)
;	+-------+-------+
;L.SPCP:		 [4]
;
;	EMT	...SPC = 375
;-
.MACRO	..SPCP	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SPCPS,41,SUBC,0,<PCPS>,L
.ENDM	..SPCP
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SPCP
.Print ;..SPCP
	..SPCP	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.PCPS	EQ	<^o2>
.Assume	L.SPCP	EQ	<^o4>
.Assume	...SPC	EQ	<^o375>
.Assume	..SPCP	EQ	<^o0>
.Assume	.SPCPS	EQ	<^o41>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SPFU	-- .SPFUN EMT request layout / values
;+
;	..SPFU
;
;		+-------+
;A.CHAN:	| chan	|[0]
;	+-------+-------+
;A.CODE:|   32	|	 [1] .SPFUN = 32
;	+-------+-------+
;A.BLK:	|  Block number	|[2]		  v(.N%%DF)   v(.SF%DF)
;	+-------+-------+
;A.BUF:	| -> buffer area|[4] ov(.Z%%DF)	 ov(.N%%DF)  ov(.SF%DF)
;	+-------+-------+
;A.WCNT:|   Word count	|[6]
;	+-------+-------+
;A.SPFU:	|	|[10]		..SPFV = 377 see below for others
;	+-------+-------+
;A.FUNC:| func	|	 [11] v(.SPFDF)	..FUNV = 200 required bit in function
;	+-------+-------+
;A.SRTN:|-> routine   | |[12]		same as A.CRTN
;	+-------+-----+-+		{..CSUP = 1 completion to Supy mode
;L.SPFU:		 [14]
;
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;	| 1 | x | x | x | x | x | 1 | 1 | ..EMIM = 203 mask for testing ..EMIO
;	+---+---+---+---+---+---+---+---+
;	| 0 |reserve|BUF mapping| 1 | 1 | ..EMIO = 3 fixed bits for ext map
;A.SPFU:+---+---+---+---+---+---+---+---+
;	| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | ..SPFV = 377 "std" special function
;	+---+---+---+---+---+---+---+---+
;
;					{..USER = 0  I/O to User mode
;					{..SUPY = 04 I/O to Supy mode (value)
;					{..CURR = 10 I/O to Current mode (value)
;					{         14 reserved (value)
;					{..DSPA = 0  I/O to D space (bit)
;					{..ISPA = 20 I/O to I space (bit)
;					{	  40 reserved
;					{        100 reserved for extending
;					{	     this request block
;
;	EMT	...SPF = 375
;-
.MACRO	..SPFU	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,SPFUN,32,CHAN,,<BLK,BUF,WCNT>
	.DS	A.SPFU	,,B	;SPFUN indicator
	.EQU	..SPFV	<^o377>	;value for A.SPFU
	.EQU	..EMIM	<^o203>	;mask for testing ..EMIO
	.EQU	..EMIO	<^o003>	;fixed bits for ext map
	.EQU	..DRIO	<^o377>	;BUF normal mapping, SRTN maybe supy
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..USER	0  	;I/O to User mode
	.EQU	..SUPY	<^o04>	;I/O to Supy mode (value)
	.EQU	..CURR	<^o10>	;I/O to Current mode (value)
	.EQU	..DSPA	0	;I/O to D space (bit)
	.EQU	..ISPA	<^o20>	;I/O to I space (bit)
	.DS	A.FUNC	,,B	;SPFUN function code
	.EQU	..FUNV	<^o200>	;required bit in A.FUNC
	.DS	A.SRTN		;TYPE/completion routine
	.EQU	A.STYP	A.SRTN	;completion I/O
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..CSUP  1 	;low bit A.SRTN completion to Supy mode
	.DS	L.SPFU	0	;len of SPFUN area
.ENDM	..SPFU
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SPFU
.Print ;..SPFU
	..SPFU	YES,==:
.Page
.Assume	...SPF	EQ	<^o375>
.Assume	.SPFUN	EQ	<^o32>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.BLK	EQ	<^o2>
.Assume	A.BUF	EQ	<^o4>
.Assume	A.WCNT	EQ	<^o6>
.Assume	A.SPFU	EQ	<^o10>
.Assume	..SPFV	EQ	<^o377>
.Assume	A.FUNC	EQ	<^o11>
.Assume	..FUNV	EQ	<^o200>
.Assume	A.SRTN	EQ	<^o12>
.Assume	A.STYP	EQ	<^o12>
.Assume	..ISIO	EQ	1
.Assume	..WTIO	EQ	0
.Assume	L.SPFU	EQ	<^o14>
.Assume	..EMIM	EQ	<^o203>
.Assume	..EMIO	EQ	<^o003>
.Assume	..DRIO	EQ	<^o377>
.Assume	..ISIO	EQ	1
.Assume	..WTIO	EQ	0
.Assume	..USER	EQ	0
.Assume	..SUPY	EQ	<^o04>
.Assume	..CURR	EQ	<^o10>
.Assume	..DSPA	EQ	0
.Assume	..ISPA	EQ	<^o20>
.Assume	..CSUP  EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SPND	-- .SPND EMT request layout / values
;+
;	..SPND
;
;	+-------+-------+
;R0:	|   1	|   0	| .SPND = 1
;	+-------+-------+ ..SPND = 0
;
;	EMT	...SPN = 374
;-
.MACRO	..SPND	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...SPN	<^o374>
	.EQU	..SPND	<^o0>
	.EQU	.SPND	<^o1>
.ENDM	..SPND
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SPND
.Print ;..SPND
	..SPND	YES,==:

.Assume	...SPN	EQ	<^o374>
.Assume	..SPND	EQ	0
.Assume	.SPND	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..SRES	-- .SRESET EMT request layout / values
;+
;	..SRES
;
;	EMT	...SRE	= 352
;-
.MACRO	..SRES	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...SRE	<^o352>
.ENDM	..SRES
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..SRES
.Print ;..SRES
	..SRES	YES,==:

.Assume	...SRE	EQ	<^o352>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..TLOC	-- .TLOCK EMT request layout / values
;+
;	..TLOC
;
;	+-------+-------+
;R0:	|   7	|   0	| .TLOCK = 7
;	+-------+-------+ ..TLOC = 0
;
;	EMT	...TLO = 374
;-
.MACRO	..TLOC	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...TLO	<^o374>
	.EQU	..TLOC	<^o0>
	.EQU	.TLOCK	<^o7>
.ENDM	..TLOC
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..TLOC
.Print ;..TLOC
	..TLOC	YES,==:

.Assume	...TLO	EQ	<^o374>
.Assume	..TLOC	EQ	<^o0>
.Assume	.TLOCK	EQ	<^o7>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..TRPS	-- .TRPSET EMT request layout / values
;+
;	..TRPS
;
;		+-------+
;A.SUBC:	|   0	|[0] ..TRPS = 0
;	+-------+-------+
;A.CODE:|   3	|	 [1] .TRPSE = 3
;	+-------+-------+
;A.TRPS:| -> Trap rout. |[2]	..CSUP = 1 odd if supy
;	+-------+-------+
;L.TRPS:		 [4]
;
;	EMT	...TRP = 375
;-
.MACRO	..TRPS	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,TRPSE,3,SUBC,0,<TRPS>,L
	.EQU	..CSUP	1	;if odd, then supervisor mode
.ENDM	..TRPS
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..TRPS
.Print ;..TRPS
	..TRPS	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.TRPS	EQ	<^o2>
.Assume	L.TRPS	EQ	<^o4>
.Assume	...TRP	EQ	<^o375>
.Assume	..TRPS	EQ	<^o0>
.Assume	.TRPSE	EQ	<^o3>
.Assume	..CSUP	EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..TTIN	-- .TTYIN / .TTINR EMT request layout / values
;+
;	..TTIN
;
;	+-------+-------+
;R0:	| <res> | char	|
;	+-------+-------+
;
;	EMT	...TTI	= 340
;
;	.TTYIN has the EMT followed by BCS .-2
;-
.MACRO	..TTIN	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...TTI	<^o340>
.ENDM	..TTIN
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..TTIN
.Print ;..TTIN
	..TTIN	YES,==:

.Assume	...TTI	EQ	<^o340>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..TTOU	-- .TTYOUT / .TTOUTR EMT request layout / values
;+
;	..TTOU
;
;	+-------+-------+
;R0:	| <res> | char	|
;	+-------+-------+
;
;	EMT	...TTO	= 341
;
;	.TTYOUT has the EMT followed by BCS .-2
;-
.MACRO	..TTOU	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...TTO	<^o341>
.ENDM	..TTOU
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..TTOU
.Print ;..TTOU
	..TTOU	YES,==:

.Assume	...TTO	EQ	<^o341>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..TWAI	-- .TWAIT EMT request layout / values
;+
;	..TWAI
;
;		+-------+
;A.SUBC:	|   0	|[0] ..TWAI = 0
;	+-------+-------+
;A.CODE:|   24	|	 [1] .TWAIT = 24
;	+-------+-------+
;A.TIME:| -> Time words	|[2] o(.TIMDF)
;	+-------+-------+
;L.TWAI:		 [4]
;
;	EMT	...TWA = 375
;-
.MACRO	..TWAI	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,TWAIT,24,SUBC,0,<TIME>,L
.ENDM	..TWAI
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..TWAI
.Print ;..TWAI
	..TWAI	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.TIME	EQ	<^o2>
.Assume	L.TWAIT	EQ	<^o4>
.Assume	...TWA	EQ	<^o375>
.Assume	..TWAI	EQ	<^o0>
.Assume	.TWAIT	EQ	<^o24>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..UNLO	-- .UNLOCK EMT request layout / values
;+
;	..UNLO
;
;	EMT	...UNL	= 347
;-
.MACRO	..UNLO	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...UNL	<^o347>
.ENDM	..UNLO
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..UNLO
.Print ;..UNLO
	..UNLO	YES,==:

.Assume	...UNL	EQ	<^o347>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..UNMA	-- .UNMAP EMT request layout / values
;+
;	..UNMA
;
;		+-------+
;A.SUBC:	|   5	|[0] ..UNMA = 5
;	+-------+-------+
;A.CODE:|  36	|	 [1] .UNMAP = 36
;	+-------+-------+
;A.WDB:	| -> window DB	|[2] ov(.WDBDF)
;	+-------+-------+
;L.UNMA:		 [4]
;
;	EMT	...UNM = 375
;-
.MACRO	..UNMA	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,UNMAP,36,SUBC,5,<WDB>,L
.ENDM	..UNMA
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..UNMA
.Print ;..UNMA
	..UNMA	YES,==:

.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.WDB	EQ	<^o2>
.Assume	L.UNMA	EQ	<^o4>
.Assume	...UNM	EQ	<^o375>
.Assume	..UNMA	EQ	<^o5>
.Assume	.UNMAP	EQ	<^o36>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..UNPR	-- .UNPROTECT EMT request layout / values
;+
;	..UNPR
;
;		+-------+
;A.SUBC:	|   1	|[0] ..UNPR = 1
;	+-------+-------+
;A.CODE:|   31	|	 [1] .UNPRO = 31
;	+-------+-------+
;A.ADDR:|Addr to unprot.|[2]
;	+-------+-------+
;L.UNPR:		 [4]
;
;	EMT	...UNP = 375
;-
.MACRO	..UNPR	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,UNPRO,31,SUBC,1,<ADDR>,L
.ENDM	..UNPR
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..UNPR
.Print ;..UNPR
	..UNPR	YES,==:

.Assume	...UNP	EQ	<^o375>
.Assume	..UNPR	EQ	1
.Assume	.UNPRO	EQ	<^o31>
.Assume	A.SUBC	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.ADDR	EQ	<^o2>
.Assume	L.UNPR	EQ	<^o4>
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..WAIT	-- .WAIT EMT request layout / values
;+
;	..WAIT
;
;	+-------+-------+
;R0:	|   0	|  chan	| .WAIT = 0
;	+-------+-------+
;
;	EMT	...WAI = 374
;-
.MACRO	..WAIT	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	...WAI	<^o374>
	.EQU	.WAIT	0
.ENDM	..WAIT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..WAIT
.Print ;..WAIT
	..WAIT	YES,==:

.Assume	...WAI	EQ	<^o374>
.Assume	.WAIT	EQ	0
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.IF EQ GP2$DO
.SbTtl	..WRIT	-- .WRIT_ EMT request layout / values
;+
;	..WRIT
;
;		+-------+
;A.CHAN:	| chan	|[0]
;	+-------+-------+
;A.CODE:|   11	|	 [1] .WRIT = 11
;	+-------+-------+
;A.BLK:	|  Block number	|[2]
;	+-------+-------+
;A.BUF:	| -> buffer area|[4]
;	+-------+-------+
;A.WCNT:|   Word count	|[6]
;	+-------+-------+		{even non zero = completion routine
;A.CRTN:| -> routine	|[10]		{..ISIO = 1 issue I/O request w/o wait
;A.TYPE:+-------+-------+		{..WTIO = 0 issue I/O request, wait
;					{..EMIO = xxxxx3 see below
;					{..DRIO = xxx377 see below
;L.WRIT:		 [12]
;	:		:		if ..DRIO in A.TYPE
;A.SRTN:|-> routine	|[12]		same as A.CRTN / A.TYPE
;	+-------+-------+
;L.WRIU:		 [14]		if ..DRIO in A.TYPE
;
;
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;	| 1 | x | x | x | x | x | 1 | 1 | ..EMIM = 203 mask for testing ..EMIO
;	+---+---+---+---+---+---+---+---+
;	| 0 |reserve|BUF mapping| 1 | 1 | ..EMIO = 3 fixed bits for ext map
;A.TYPE:+---+---+---+---+---+---+---+---+
;	| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | ..DRIO = 377
;	+---+---+---+---+---+---+---+---+
;
;					{..USER = 0  I/O to User mode
;					{..SUPY = 04 I/O to Supy mode (value)
;					{..CURR = 10 I/O to Current mode (value)
;					{         14 reserved (value)
;					{..DSPA = 0  I/O to D space (bit)
;					{..ISPA = 20 I/O to I space (bit)
;					{	  40 reserved
;					{        100 reserved for extending
;					{	     this request block
;
;	EMT	...WRI = 375
;-
.MACRO	..WRIT	LIST,E
.MCALL	...CMA
	...CMA	LIST,E,WRIT,11,CHAN,,<BLK,BUF,WCNT,CRTN>,L
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..EMIM	<^o203>	;mask for testing ..EMIO
	.EQU	..EMIO	<^o003>	;fixed bits for ext map
	.EQU	..DRIO	<^o377>	;BUF normal mapping, SRTN maybe supy
	.EQU	..ISIO	1	;Issue I/O
	.EQU	..WTIO	0	;Wait on I/O
	.EQU	..USER	0  	;I/O to User mode
	.EQU	..SUPY	<^o04>	;I/O to Supy mode (value)
	.EQU	..CURR	<^o10>	;I/O to Current mode (value)
	.EQU	..DSPA	0	;I/O to D space (bit)
	.EQU	..ISPA	<^o20>	;I/O to I space (bit)
	.EQU	A.TYPE	A.CRTN	;completion I/O
	.EQU	A.SRTN	<^o12>	;A.CRTN value if A.TYPE has 2 lowest bits set
	.EQU	..CSUP  1 	;low bit A.SRTN completion to Supy mode
	.EQU	L.WRIU	<^o14>	;Area length of A.TYPE has 2 lowest bits set
.ENDM	..WRIT
.ENDC ;EQ GP2$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP2$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	..WRIT
.Print ;..WRIT
	..WRIT	YES,==:
.Page
.Assume	...WRI	EQ	<^o375>
.Assume	.WRIT	EQ	<^o11>
.Assume	A.CHAN	EQ	0
.Assume	A.CODE	EQ	1
.Assume	A.BLK	EQ	<^o2>
.Assume	A.BUF	EQ	<^o4>
.Assume	A.WCNT	EQ	<^o6>
.Assume	A.CRTN	EQ	<^o10>
.Assume	A.TYPE	EQ	<^o10>
.Assume	..WTIO	EQ	0
.Assume	..ISIO	EQ	1
.Assume	..DRIO	EQ	<^o377>
.Assume	L.WRIT	EQ	<^o12>
.Assume	A.SRTN	EQ	<^o12>
.Assume L.WRIU	EQ	<^o14>
.Assume	..EMIM	EQ	<^o203>
.Assume	..EMIO	EQ	<^o003>
.Assume	..DRIO	EQ	<^o377>
.Assume	..ISIO	EQ	1
.Assume	..WTIO	EQ	0
.Assume	..USER	EQ	0
.Assume	..SUPY	EQ	<^o04>
.Assume	..CURR	EQ	<^o10>
.Assume	..DSPA	EQ	0
.Assume	..ISPA	EQ	<^o20>
.Assume	A.TYPE	EQ	A.CRTN
.Assume	A.SRTN	EQ	<^o12>
.Assume	..CSUP  EQ	1
.ENDC ;EQ GP2$DO&<ONE$DO-ONE.DO>
.SbTtl	.%%%DF	-- Generic information about definition macros
;+
;	.%%%DF
;
;	All the .%%%DF macros have two arguments, the first argument
;	can be specified to generate a list of the definition equates
;	The second argument can be used to override the type of equate
;	being done.
;
;	.%%%DF	LIST=NO,E=<=:>
;
;	LIST=NO		do not list equates
;	LIST=YES	do list equates
;
;	E=<=>		do x = value
;	E=<=:>		do x =: value
;	E=<==>		do x == value
;	E=<==:>		do x ==: value
;
;	.FIXDF also uses P=$ which controls the char used as the first
;	one in the symbol name.
;	It is invoked by BSTRAP with P=Z to avoid name conflicts
;-
.IF EQ GP3$DO
.SbTtl	.BBRDF	-- Bad Block Replacement table (in Home Block)
;+
;	.BBRDF
;
;	+-------+-------+
;BBR.BD:| bad block numb|[0] number of replaced block
;	+-------+-------+
;BBR.GD:| replace block	|[2] number of replacement block
;	+-------+-------+
;BBR.SZ:		 [4] len of an entry
;-
.MACRO	.BBRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;HB.BAD in .HOMDF
	.DS	BBR.BD		;bad block number
	.DS	BBR.GD		;replacement block number
	.DS	BBR.SZ	0	;entry size
.ENDM	.BBRDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.BBRDF
.Print ;.BBRDF
	.BBRDF	YES,==:

.Assume	BBR.BD	EQ	0
.Assume	BBR.GD	EQ	2.
.Assume	BBR.SZ	EQ	4.
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.BBSDF	-- Boot Block "Standard" info
;+
;	.BBSDF
;
;	This macro describes the information found in boot blocks.
;	This information is present if the second word of the boot
;	block is a BR instruction that has as its target another
;	branch instruction (of any sort) which in turn branches to
;	the next location.  This instruction may be a RESET in the
;	case of a "non-bootable" disk.	The four bytes preceeding
;	the second branch must also satisfy a checksum requirement.
;
;	+-------+-------+	BS.NOP = 240
;BS.1ST:| first instruct|[0]	BS.NP1 = 260
;	+-------+-------+	BS.PRO = 000
;				BS.UVX = 10000
;
;		+-------+
;BS.OFS:	|   N	|[2]	offset to BS.ISP
;	+-------+-------+
;BS.BRX:|2nd ins|	 [3]	BS.BR  = 1 PDP-11 BR opcode
;	+-------+		BS.RES = 0 PDP-11 RESET (high byte) opcode
;
;		+-------+
;BS.ISP:	|  code	|[2*N]	instruction set of bootstrap
;	+-------+-------+
;BS.CTL:|  code	|	 [2*N+1] controller type
;	+-------+-------+
;BS.FIL:	|  code	|[2*N+2] file structure
;	+-------+-------+
;BS.CKS:| cksum	|	 [2*N+3] ckecksum v<BS.ISP+BS.CTL+BS.FIL-BS.CKS> == 0
;	+-------+-------+
;BS.OF1:	|   0	|[2*N+4]
;	+-------+-------+
;BS.BR1:|  code	|	 [2*N+5]
;	+-------+
;
;BS.ISP:	BS.UNK = 000	unknown
;		BS.P8  = 010	PDP-8
;		BS.P11 = 020	PDP-11
;		BS.VAX = 030	VAX
;		BS.Z80 = 100	Z-80
;		BS.886 = 110	8086, 8088
;		BS.CUS = 200	200-377 <res> to customers / CSS
.Page
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;BS.CTL:|BS.|res|BS.|BS.|BS.|BS.|BS.|BS.|
;	|CUS|	|MSC|MSQ|MSU|XXC|XXQ|XXU|
;	+---+---+---+---+---+---+---+---+
;
;		BS.XXU = 1	non-MSCP Unibus
;		BS.XXQ = 1	non-MSCP Qbus
;		BS.XXC = 1	non-MSCP CTI bus
;		BS.MSU = 1	MSCP Unibus
;		BS.MSQ = 1	MSCP Qbus
;		BS.MSC = 1	MSCP CTI bus
;				<res>
;		BS.CUS = 1	200-377 <res> to CSS / customers
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;BS.FIL:|BS.|	 BS.TYP	    |  BS.LEV	|
;	|CUS|		    |		|
;	+---+---+---+---+---+---+---+---+
;
;	BS.LEV = 007
;
;	v(BS.TYP)  = BS.PD8
;	-------------------
;	v(BS.LEV)  = BS.WPS = 0	PDP-8 WPS-8
;	v(BS.LEV)  = BS.OS8 = 1	PDP-8 OS-8
;	v(BS.LEV)  = BS.COS = 2 PDP-8 COS
;
;	v(BS.TYP)  = FILES-11
;	---------------------
;	v(BS.LEV)  = BS.FL1 = 1 FILES-11 level 1
;	v(BS.LEV)  = BS.FL2 = 2 FILES-11 level 2
;
;	BS.TYP = 170
;
;	BS.UNK = 000		unknown file system
;	BS.PD8 = 010		PDP-8 file system(s)
;	BS.RT  = 020		RT-11 file system
;	BS.RST = 030		RSTS/E file system
;	BS.F11 = 040		FILES-11 file system
;	BS.UNX = 050		U**X file system
;	BS.DSM = 060		DSM file system
;	BS.CPM = 100		CP/M file system
;	BS.UCS = 110		UCSD P-system file system
;	BS.MSD = 120		MS-DOS file system
;
;	BS.CUS = 200		file system customer / CSS
.Page
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;BS.BR1:|BS.| 0 | 0 | 0 | 0 |	BS.REV	|
;	|SID|		    |		|
;	+---+---+---+---+---+---+---+---+
;
;	BS.REV = 007		standard revision level
;	v(BS.REV)  = BS.RV1 = 1	currently level 1
;
;	BS.SID = 200		Sides (-1)
;	v(BS.SID)  = BS.1SD = 000 BR, means 1 sided
;	v(BS.SID)  = BS.2SD = 200 BMI, means 2 sided
;-
.Page
.MACRO	.BBSDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;beginning of boot block
	.DS	BS.1ST		;NOP instruction
	.EQU	BS.NOP	<^o240>	;normal indicator
	.EQU	BS.NP1	<^o260>	;special NOP
	.EQU	BS.PRO	0	;PROFESSIONAL indicator
	.EQU	BS.UVX	<^o10000> ;uVAX indicator

	.DS	BS.OFS	,,B	;second instruction
				;offset from locn 0 to BS.ISP
	.DS	BS.BRX	,,B	;BR opcode
	.EQU	BS.BR	1	;PDP-11 br instruction
	.EQU	BS.RES	0	;high byte of RESET instruction

	.DSECT	,LIST,E		;beginning of info area
	.DS	BS.ISP	,,B	;Instruction set of boot
	.EQU	BS.UNK	0	;unknown ISP
	.EQU	BS.P8	<^o010>	;PDP-8
	.EQU	BS.P11	<^o020>	;PDP-11
	.EQU	BS.VAX	<^o030>	;VAX
	.EQU	BS.Z80	<^o100>	;Z-80
	.EQU	BS.886	<^o110>	;8086, 8088
	.EQU	BS.CUS	<^o200>	;200-377 <res> to customers / CSS

	.DS	BS.CTL	,,B	;type of controller/bus
	.BSECT	,LIST,E		;controller/bus bits
	.BS	BS.XXU		;non-MSCP Unibus
	.BS	BS.XXQ		;non-MSCP Qbus
	.BS	BS.XXC		;non-MSCP CTI bus
	.BS	BS.MSU		;MSCP Unibus
	.BS	BS.MSQ		;MSCP Qbus
	.BS	BS.MSC		;MSCP CTI bus
	.BS	,	1	;<res>
	.BS	BS.CUS		;200-377 <res> to CSS / customers

	.DS	BS.FIL	,,B	;file structure
	.BSECT	,LIST,E		;file system type
	.BS	BS.LEV	3.	;file system revision level
	.EQU	BS.WPS	0	;PDP-8 WPS-8 level
	.EQU	BS.OS8	1.	;PDP-8 OS-8 level
	.EQU	BS.COS	2.	;PDP-8 COS level
	.EQU	BS.FL1	1.	;FILES-11 level 1
	.EQU	BS.FL2	2.	;FILES-11 level 2
	.BS	BS.TYP	4.	;file system type
	.EQU	BS.UNK	0	;unknown file system
	.EQU	BS.PD8	<^o010>	;PDP-8 file system(s)
	.EQU	BS.RT	<^o020>	;RT-11 file system
	.EQU	BS.RST	<^o030>	;RSTS/E file system
	.EQU	BS.F11	<^o040>	;FILES-11 file system
	.EQU	BS.UNX	<^o050>	;U**X file system
	.EQU	BS.DSM	<^o060>	;DSM file system
	.EQU	BS.CPM	<^o100>	;CP/M file system
	.EQU	BS.UCS	<^o110>	;UCSD P-system file system
	.EQU	BS.MSD	<^o120>	;MS-DOS file system
	.BS	BS.CUS		;file system customer / CSS
.Page
	.DS	BS.CKS	,,B	;This is a checksum value of the
				;previous three bytes.	The sum of
				;the four bytes should be 0

	.DS	BS.OF1	,,B	;This is 0 (B* next location)
	.EQU	BS.OFV	0	;required value

	.DS	BS.BR1	,,B	;This is BR or BMI
	.BSECT	,LIST,E
	.BS	BS.REV	3.	;standard revision level
	.EQU	BS.RV1	1	;currently level 1
	.BS	,	4.	;<res> (0)
	.BS	BS.SID		;Sides (-1)
	.EQU	BS.1SD	0	;BR, means 1 sided
	.EQU	BS.2SD	<^o200>	;BMI, means 2 sided
.ENDM	.BBSDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.BBSDF
.Print ;.BBSDF
	.BBSDF	YES,==:
.Page
.Assume	BS.1ST	EQ	0
.Assume	BS.OFS	EQ	<^o2>
.Assume	BS.BRX	EQ	<^o3>

.Assume	BS.ISP	EQ	0
.Assume	BS.CTL	EQ	1
.Assume	BS.FIL	EQ	<^o2>
.Assume	BS.CKS	EQ	<^o3>
.Assume	BS.OF1	EQ	<^o4>
.Assume	BS.OFV	EQ	0
.Assume	BS.BR1	EQ	<^o5>

.Assume	BS.NOP	EQ	<^o000240>
.Assume	BS.NP1	EQ	<^o000260>
.Assume	BS.PRO	EQ	<^o000000>
.Assume	BS.UVX	EQ	<^o010000>

.Assume	BS.BR	EQ	<^o001>
.Assume	BS.RES	EQ	<^o000>

.Assume	BS.UNK	EQ	0
.Assume	BS.P8	EQ	<^o010>
.Assume	BS.P11	EQ	<^o020>
.Assume	BS.VAX	EQ	<^o030>
.Assume	BS.Z80	EQ	<^o100>
.Assume	BS.886	EQ	<^o110>
.Assume	BS.CUS	EQ	<^o200>

.Assume	BS.XXU	EQ	<^o001>
.Assume	BS.XXQ	EQ	<^o002>
.Assume	BS.XXC	EQ	<^o004>
.Assume	BS.MSU	EQ	<^o010>
.Assume	BS.MSQ	EQ	<^o020>
.Assume	BS.MSC	EQ	<^o040>
.Assume	BS.CUS	EQ	<^o200>

.Assume	BS.LEV	EQ	<^o007>
.Assume	BS.TYP	EQ	<^o170>
.Assume	BS.CUS	EQ	<^o200>

.Assume	BS.WPS	EQ	0
.Assume	BS.OS8	EQ	1
.Assume	BS.COS	EQ	2.

.Assume	BS.FL1	EQ	1
.Assume	BS.FL2	EQ	2.
.Page
.Assume	BS.UNK	EQ	000
.Assume	BS.PD8	EQ	<^o010>
.Assume	BS.RT	EQ	<^o020>
.Assume	BS.RST	EQ	<^o030>
.Assume	BS.F11	EQ	<^o040>
.Assume	BS.UNX	EQ	<^o050>
.Assume	BS.DSM	EQ	<^o060>
.Assume	BS.CPM	EQ	<^o100>
.Assume	BS.UCS	EQ	<^o110>
.Assume	BS.MSD	EQ	<^o120>
.Assume	BS.CUS	EQ	<^o200>

.Assume	BS.REV	EQ	<^o007>
.Assume	BS.SID	EQ	<^o200>

.Assume	BS.RV1	EQ	1.

.Assume	BS.1SD	EQ	0
.Assume	BS.2SD	EQ	<^o200>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.BOTDF	-- memory usage in boot block
;+
;	.BOTDF
;
;	+-------+-------+
;BT.NOP:|      240	|[000]	BT.NOV=240
;	+-------+-------+
;BT.BR:	|		|[002]	BT.RST=5 or BR xxx instruction
;	+-------+-------+
;	:		:
;	:		:
;	+-------+-------+
;BT.IOE:|		|[664]	EP to print ?BOOT-U-IO error
;	+-------+-------+
;	:		:
;	+-------+-------+
;BT.RPT:|		|[672]	EP for generalized print
;	+-------+-------+
;	:		:
;	+-------+-------+-------+-------+
;BT.OFS:|				|[770]	Block offset to add in <fut>
;	+-------+-------+-------+-------+
;BT.SIZ:|		|[774]	Size of area in blocks		       <fut>
;	+-------+-------+
;	|		|[776]	BT.YPT=0 supported; BT.NPT=-1 not supported
;	+-------+-------+
;
;	This is the minimum structure of the boot block.
;	It is also the structure of the handler boot area.
;-
.MACRO	.BOTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;block 0 of a bootable device
				;also boot area in handler (H.BPTR in .HANDF)
	.DS	BT.NOP		;NOP instruction
	.EQU	BT.NOV	<^o240>	;value for bootable volume
	.DS	BT.BR		;BR to ENTRY -2			ov(.BBSDF)
	.EQU	BT.RST	<^o5>	;value for non-bootable volume
	.DSECT	<^o664>,LIST,E	;error area
	.DS	BT.IOE	<^o3>	;entry point to print BOOT-U-IO error
	.DS	BT.RPT		;entry point to print arbitrary message
	.DSECT	<^o770>,LIST,E	;partitioning area
	.DS	BT.OFS	<^o2>	;two word offset to add to block number
	.DS	BT.SIZ	1	;partition size in blocks
	.DS			;<res>
	.EQU	BT.YPT	0	;value for partitioning supported
	.EQU	BT.NPT	-1	;value for partitioning not supported
.ENDM	.BOTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.BOTDF
.Print ;.BOTDF
	.BOTDF	YES,==:

.Assume	BT.NOP	EQ	0
.Assume	BT.NOV	EQ	<^o240>
.Assume	BT.BR	EQ	<^o2>
.Assume	BT.RST	EQ	<^o5>
.Assume	BT.IOE	EQ	<^o664>
.Assume	BT.RPT	EQ	<^o672>
.Assume	BT.OFS	EQ	<^o770>
.Assume	BT.SIZ	EQ	<^o774>
.Assume	BT.YPT	EQ	0
.Assume	BT.NPT	EQ	-1
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.BSRDF	-- Boot service routine structure
;+
;	.BSRDF<fut>
;
;	+-------+-------+
;BSR.NM:|  RAD50 name	|[00] boot type name (handler name)
;	+-------+-------+
;BSR.MA:	| Major	|[02] major revision level
;	+-------+-------+
;BSR.MI:| Minor	|	 [03] minor revision level
;	+-------+-------+
;BSR.CD:| first instruct|[04] first instruction in routine
;	+-------+-------+
;-
.MACRO	.BSRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;H.BOOT in .HANDF
	.DS	BSR.NM		;RAD50 name of handler
	.DS	BSR.MA	1,B	;major (incompatible) revision
	.DS	BSR.MI	1,B	;minor (backwards compatible) revision
	.DS	BSR.CD	0	;first instruction in code
.ENDM	.BSRDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.BSRDF
.Print ;.BSRDF
	.BSRDF	YES,==:

.Assume	BSR.NM	EQ	<^o000000>
.Assume	BSR.MA	EQ	<^o000002>
.Assume	BSR.MI	EQ	<^o000003>
.Assume	BSR.CD	EQ	<^o000004>

.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.BUPDF	-- BUP home block information
;+
;	.BUPDF
;
;	OLD FORM:
;
;	+-------+-------+-------+
;BP.TAG:|  'B'	   'U'	   'P'	|[252]	BP.OT[1,2,3]	OLD BUP ident string
;	+-------+-------+-------+-------+-------+-------+
;BP.FIL:|						|[255] backup name
;	+-------+-------+-------+-------+-------+-------+
;BP.TYP:|			|[263]		backup type
;	+-------+-------+-------+
;BP.VOL:|		|[266]			volume number
;	+-------+-------+
;BP.TOT:|		|[270]			total number of volumes
;	+-------+-------+
;BP.SIZ:|		|[272]			size of smallest volume
;	+-------+-------+
;BP.TSZ:|		|[274]			total size of backup
;	+-------+-------+
;
;	NEW FORM:
;
;	+-------+-------+-------+
;BP.TAG:|  'B'	   'U'	   'Q'	|[252]	BP.TG[1,2,3]	NEWBUP ident string
;	+-------+-------+-------+-------+-------+-------+
;BP.FIL:|  ' '	   ' '	   ' '	   ' '	   ' '	   ' '	|[255] backup name
;	+-------+-------+-------+-------+-------+-------+
;BP.TYP:|  ' '	   ' '	   ' '	|[263]		backup type
;	+-------+-------+-------+
;BP.VOL:|	0	|[266]			volume number
;	+-------+-------+
;BP.TOT:|	0	|[270]			total number of volumes
;	+-------+-------+
;BP.SIZ:|	0	|[272]			size of smallest volume
;	+-------+-------+
;BP.TSZ:|	0	|[274]			total size of backup
;	+-------+-------+
;
;-
.MACRO	.BUPDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o252>,LIST,E	;HB.BUP in .HOMDF
	.DS	BP.TAG	3.,B	;the ascii string BUP
	.EQU	BP.OT1	'B	;expected value
	.EQU	BP.OT2	'U	;expected value
	.EQU	BP.OT3	'P	;expected value
	.EQU	BP.TG1	'B	;expected value
	.EQU	BP.TG2	'U	;expected value
	.EQU	BP.TG3	'Q	;expected value
	.DS	BP.FIL	6.,B	;backup name in ASCII
	.DS	BP.TYP	3.,B	;backup type in ASCII
	.DS	BP.VOL		;current volume number
	.DS	BP.TOT		;maximum volume number
	.DS	BP.SIZ		;size of smallest volume
	.DS	BP.TSZ		;total size of backup
.ENDM	.BUPDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.BUPDF
.Print ;.BUPDF
	.BUPDF	YES,==:
.Page
.Assume	BP.TAG	EQ	<^o252>
.Assume	BP.OT1	EQ	'B
.Assume	BP.OT2	EQ	'U
.Assume	BP.OT3	EQ	'P
.Assume	BP.TG1	EQ	'B
.Assume	BP.TG2	EQ	'U
.Assume	BP.TG3	EQ	'Q
.Assume	BP.FIL	EQ	<^o255>
.Assume	BP.TYP	EQ	<^o263>
.Assume	BP.VOL	EQ	<^o266>
.Assume	BP.TOT	EQ	<^o270>
.Assume	BP.SIZ	EQ	<^o272>
.Assume	BP.TSZ	EQ	<^o274>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CAVDF	-- CA handler entry vector		*UNIMPLEMENTED*
.SbTtl	.CCLDF	-- CCL command string layout
;+
;	.CCLDF
;
;	+-------+-------+
;CCL.CT:|  len of cmd	|[510]	This includes the null terminator
;	+-------+-------+ - - - +-------+
;CCL.CM:|	|	|	|   0	|[512] ASCIZ commmand
;	+-------+-------+ - - - +-------+
;-
.MACRO	.CCLDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;command from CCL form of RUN
	.DS	CCL.CT		;count, count greater than 1 means cmd
	.DS	CCL.CM	0,B	;ASCIZ command line
.ENDM	.CCLDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CCLDF
.PRINT	;.CCLDF
	.CCLDF	YES,==:

.Assume	CCL.CT	EQ	<^o510>
.Assume	CCL.CM	EQ	<^o512>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CF1DF	-- system configuration word
;+
;	.CF1DF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|CLO|KW1|LKC|KT1|LSI|QUE|USR|GTL|FJO|HWF|CLK|SLE|BAT|HWD|SLK|FBM|
;	|CK$|1P$|S$ |1$ |11$|UE$| $ |NK$|B$ |PU$|50$|DI$|CH$|SP$|MO$|ON$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	If On(PRO)						CLOCK$ = 1
;	If RTE$M Value passed into BSTRAP			CLOCK$ = %
;	If Read(172540[LKCS]) & KW11$P				CLOCK$ = 1
;	If Read(177546[LKCS]) & -KW11$P				CLOCK$ = 1
;	If -T4(1)						CLOCK$ = 1
;		System clock is present
;
;	If On(FALCON) & <VT11$!VS60$!-KW11$P>&-<MMG$T!RTE$M>	KW11P$ = 0
;	If On(PDT) & <VT11$!VS60$!-KW11$P>			KW11P$ = 0
;	If -Read(172540[LKCS]) & -<RTE$M!KW11$P>		KW11P$ = 0
;	If Read(172540[LKCS]) & -<RTE$M!KW11$P>			KW11P$ = 1
;		Programmable clock is available to programs
;
;	If RTE$M						LKCS$ = 0
;	If -Read(172540[LKCS]) & KW11$P				LKCS$ = 0
;	If -Read(177546[LKCS]) & -KW11$P			LKCS$ = 0
;	If Read(172540[LKCS]) & KW11$P				LKCS$ = 1
;	If Read(177546[LKCS]) & -KW11$P				LKCS$ = 1
;		The system clock has a status register
;
;	If -MMG$T						KT11$ = 0
;	If Read(177572[SR0]) & MMG$T				KT11$ = 1
;	If MMG$T and no KT-11, boot fails w/message
;		This is an mapped system
;
;	If RTE$M						LSI11$ = 0
;	If Read(177776[PS])					LSI11$ = 0
;	If -Read(177776[PS])					LSI11$ = 1
;	If On(FALCON) & -RTE$M					LSI11$ = 1
;		PS must be accessed using M(T,F)PS
;
;	Set and cleared by QUEUE and QUEMAN			QUEUE$ = %
;		QUEUE is running
;
;	If MMG$T						USR$ = 1
;	If -MMG$T set and cleared by KMOVLY (SET)		USR$ = %
;		USR is set NOSWAP
;
;	Set by ??????, cleared by KMOVLY			GTLNK$ = %
;		User is linked to the graphics display (GT40)
;
;	Set and cleared by KMOVLY				FJOB$ = %
;		A FG or System job is loaded
.page
;	If -RTE$M -Exist(CFCC)					HWFPU$ = 0
;	If RTE$M value passed in & Exist(CFCC)			HWFPU$ = %
;	If -RTE$M Exist(CFCC)					HWFPU$ = 1
;		FP11 Floating point hardware exists
;
;	If CLOCK-50.						CLK50$ = 1
;		0->60Hz clock; 1->50Hz clock
;
;	Set and cleared by SL					SLEDI$ = %
;		SL is set EDIT
;
;	Never set or cleared??					BATCH$ = ?
;		???
;
;	If -Read(172000[VT.CSR]) & VT11$!VS60$			HWDSP$ = 0
;	If -<VT11$!VS60$>					HWDSP$ = 0
;	If On(FALCON) & <VT11$!VS60$!-KW11$P>&-<MMG$T!RTE$M>	HWDSP$ = 0
;	If On(PDT) & <VT11$!VS60$!-KW11$P>			HWDSP$ = 0
;	If Read(172000[VT.CSR]) & VT11$!VS60$			HWDSP$ = 1
;		VT11 or VS60 display hardware exists
;
;	Set and cleared by SL					SLKMO$ = %
;		SL is set KMON
;
;	If BF							FBMON$ = 1
;		0->RMONSJ; 1->RMON[FB], now user settable
;		using $SET MODE [NO]SJ
;
;	Exist(x) means that the instruction does not trap to 10.
;
;	On(F11) means Exist(MFPT) and value returned is 3
;
;	On(FALCON) means Exist(MFPT) and value returned is 4
;
;	On(J11) means Exist(MFPT) and value returned is 5
;
;	On(PDT) means that the system device name is PD.
;
;	On(PRO) means Read(173700) & Write(173700) (alterable)
;		and Exist(XOR)
;
;	Read(x) means that the location can be read.
;
;	T4(x) means that a Trap to 4 occurs accessing x.
;
;	Write(x) means that the location can be written.
;-
.page
.MACRO	.CF1DF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($CNFG1 in .FIXDF)
	.BS	FBMON$		;SB, FB, XB or XM monitor
	.BS	SLKMO$		;SL in use by KMON only
	.BS	HWDSP$		;VT11/VS60 display hardware present
	.BS	BATCH$		;BATCH running
	.BS	SLEDI$		;SL is available
	.BS	CLK50$		;Clock is running at 50HZ
	.BS	HWFPU$		;FPU present
	.BS	FJOB$		;FG or system job running
	.BS	GTLNK$		;user is linked to display scroller
	.BS	USR$		;USR may not be set to swap
	.BS	QUEUE$		;Queue is running
	.BS	LSI11$		;Processor is LSI-11
	.BS	KT11$		;XB or XM system
	.BS	LKCS$		;system clock has status register
	.BS	KW11P$		;KW11-P clock exists and may be use
	.BS	CLOCK$		;system clock exists
.ENDM	.CF1DF
.Page
.ENDC ;EQ GP3$DO
;.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CF1DF
.PRINT	;.CF1DF
	.CF1DF	YES,==:

.Assume	FBMON$	EQ	000001
.Assume	SLKMO$	EQ	<^o000002>
.Assume	HWDSP$	EQ	<^o000004>
.Assume	BATCH$	EQ	<^o000010>
.Assume	SLEDI$	EQ	<^o000020>
.Assume	CLK50$	EQ	<^o000040>
.Assume	HWFPU$	EQ	<^o000100>
.Assume	FJOB$	EQ	<^o000200>
.Assume	GTLNK$	EQ	<^o000400>
.Assume	USR$	EQ	<^o001000>
.Assume	QUEUE$	EQ	<^o002000>
.Assume	LSI11$	EQ	<^o004000>
.Assume	KT11$	EQ	<^o010000>
.Assume	LKCS$	EQ	<^o020000>
.Assume	KW11P$	EQ	<^o040000>
.Assume	CLOCK$	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CF2DF	-- Second configuration word
;+
;	.CF2DF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|PDP|PDP|PRO|GSC|KXC|DBG|VS6|EIS|CIS|BUS|XIT|LDR|LIG|SWR|MPT|CAC|
;	|60$|70$|S$ |CA$|PU$|SY$|$0 | $ | $ | $ |SW$|EL$|HT$|EG$|Y$ |HE$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;			<fut>
;
;	If PROS$ = 0 and BUS$ = 0 => UBUS machine
;	If PROS$ = 0 and BUS$ = 1 => QBUS machine
;	If PROS$ = 1 and BUS$ = 0 => CTI bus machine
;	If PROS$ = 1 and BUS$ = 1 => strange bus(less) machine<fut>
;
;	BUS$M = 020100	mask for bus bits
;	BUS$X = 020100	value for strange bus(less)
;	BUS$C = 020000	value for CTI bus
;	BUS$Q = 000100	value for QBUS
;	BUS$U = 000000	value for UNIBUS
;
;	If LSI11$						PDP60$ = 0
;	If -Exist(MED) -LSI11$					PDP60$ = 0
;	If Exist(MED) & -LSI11$					PDP60$ = 1
;		Running on a PDP11/60
;
;	If RTE$M						PDP70$ = 0
;	If On(PRO) & PRO$S					PDP70$ = 0
;	If On(FALCON)						PDP70$ = 0
;	If -Read(177760[P7.LSS])				PDP70$ = 0
;	If Read(177760[P7.LSS])					PDP70$ = 1
;		Running on a PDP11/70 (unsupported)
;
;	If -On(PRO)						PRO$S = 0
;	If On(PRO)						PRO$S = 1
;	If On(KX{J|T})						PRO$S = 1
;		Running on a PRO3(25,50,80) if BUS$=0
;
;	If -SCCA$G						GSCCA$ = 0
;	If SCCA$G						GSCCA$ = 1
;		Global SCCA is supported
;
;	If not on a KX{J|T}					KXCPU$ = 0
;	If on a KX{J|T}						KXCPU$ = 1
;		Running on a KX{J|T}11-CA
;
;	If On(FALCON) & <VT11$!VS60$!-KW11$P>&-<MMG$T!RTE$M>	VS6$0 = 0
;	If On(PDT) & <VT11$!VS60$!-KW11$P>			VS6$0 = 0
;	If Read(172032[VT.CSR]) & <VT11$!VS60$>			VS6$0 = 1
;		meaningful if $CNFG1::HWDSP$=1
;		0->VT11 hardware; 1->VS60 hardware
.page
;	If -Exist(MUL) ! <bad result>				EIS$ = 0
;	If Exist(MUL) & <good result>				EIS$ = 1
;		ASH, AHSC, MUL, & DIV exist
;		(also implies XOR, [SOB, SXT???])
;
;	If -Exist(CMPN)						CIS$ = 0
;	If Exist(CMPN)						CIS$ = 1
;		CIS instructions
;
;	If On(PRO)						BUS$ = 0
;	If T4(1) & On(J11) & <BIT #1000 @#177750[MAINT]>	BUS$ = 0
;	If T4(1) & -On(J11)					BUS$ = 0
;	If T4(1) & On(J11) & -<BIT #1000 @#177750[MAINT]>	BUS$ = 1
;	If -T4(1) & -On(F11)					BUS$ = 1
;	If -T4(1) & On(F11) & -Write(177570[SR])		BUS$ = 1
;	If On(KX{J|T})						BUS$ = 1
;		see above
;
;	SET EXIT [NO]SWAP					XITSW$ = %
;		EXIT is set NOSWAP
;
;	Set by BSTRAP, USR, KMOVLY; Cleared by LD.SYS		LDREL$ = %
;		Indicates that LD may contain stale data
;
;	If RTE$M						LIGHT$ = 0
;	If -Write(177570[SR])					LIGHT$ = 0
;	If Write(177570[SR])					LIGHT$ = 1
;		Writeable display register exists
;
;	If RTE$M						SWREG$ = 0
;	If -Read(177570[SR])					SWREG$ = 0
;	If Read(177570[SR])					SWREG$ = 1
;		Readable switch register exists
;
;	If <any> Write(172100--172136[PARITY]) & MPT$Y		MPTY$ = 0
;		Parity/ECC memory exists & support generated
;
;	If RTE$M						CACHE$ = 0
;	If On(PRO)						CACHE$ = 0
;	If On(FALCON)						CACHE$ = 0
;	If -Read(177464[CA.CSR])				CACHE$ = 0
;	If Read(177464[CA.CSR])					CACHE$ = 1
;		Cache memory exists
;
;	see .CF1DF for function definitions
;-
.page
.MACRO	.CF2DF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($CNFG2 in .FIXDF)
	.BS	CACHE$		;cache memory present
	.BS	MPTY$		;parity memory
	.BS	SWREG$		;switch register (RO)
	.BS	LIGHT$		;light register (WO)
	.BS	LDREL$		;handler has been removed from memory
	.BS	XITSW$		;swap on exit
	.BS	BUS$		;1 QBUS; 0 UBUS (but see PROS$)
	.BS	CIS$		;commercial instruction set
	.BS	EIS$		;extended instruction set
	.BS	VS6$0		;VS60/VT48 display processor
	.BS	DBGSY$		;BPT is job or system context
	.BS	KXCPU$		;processor is KX{J|T}11-CA
	.BS	GSCCA$		;global SCCA support
	.BS	PROS$		;PROFESSIONAL 300 series
	.BS	PDP70$		;Processor is PDP11/70
	.BS	PDP60$		;Processor is PDP11/60
	.EQU	BUS$M PROS$!BUS$ ;mask for bus bits
	.EQU	BUS$X PROS$!BUS$ ;value for strange bus(less)
	.EQU	BUS$C PROS$	;value for CTI bus
	.EQU	BUS$Q BUS$	;value for QBUS
	.EQU	BUS$U 0		;value for UNIBUS
.ENDM	.CF2DF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CF2DF
.PRINT ;.CF2DF
	.CF2DF	YES,==:

.Assume	CACHE$	EQ	000001
.Assume	MPTY$	EQ	<^o000002>
.Assume	SWREG$	EQ	<^o000004>
.Assume	LIGHT$	EQ	<^o000010>
.Assume	LDREL$	EQ	<^o000020>
.Assume	XITSW$	EQ	<^o000040>
.Assume	BUS$	EQ	<^o000100>
.Assume	CIS$	EQ	<^o000200>
.Assume	EIS$	EQ	<^o000400>
.Assume	VS6$0	EQ	<^o001000>
.Assume	DBGSY$	EQ	<^o002000>
.Assume	KXCPU$	EQ	<^o004000>	;<fut>
.Assume	GSCCA$	EQ	<^o010000>
.Assume	PROS$	EQ	<^o020000>
.Assume	PDP70$	EQ	<^o040000>
.Assume	PDP60$	EQ	<^o100000>
.Assume	BUS$M	EQ	<^o020100>
.Assume	BUS$X	EQ	<^o020100>
.Assume	BUS$C	EQ	<^o020000>
.Assume	BUS$Q	EQ	<^o000100>
.Assume	BUS$U	EQ	<^o000000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CF3DF	-- Third configuration word
;+
;	.CF3DF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|CF3|
;	|.SI|.HI|.AS|.1S|.US|.OW|.AT|.64|.DM|.UB|.UA|.UI|.VB|.IM|.CR|.CO|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	CF3.CO = 1	CO: is ON (0 means off)<fut>
;	CF3.CR = 1	CO: is RESUMEd (0 means SUSPEND)<fut>
;	CF3.IM = 1	If jobs possess an impure area
;	CF3.VB = 1	run programs so marked under VBGEXE
;	CF3.UI = 1	If UB is set NoInstall
;	CF3.UA = 1	If UB is active (SET UB ON in effect)
;	CF3.UB = 1	If UB is loaded
;	CF3.DM = 1	If any installed handlers use DMA
;	CF3.64 = 1	If monitor supports 64 unit handlers
;	CF3.AT = 1	If virtual / physical address xlate is available
;	CF3.OW = 1	If $OWNER table exists
;	CF3.US = 1	If UB is sysgenned into the PNAME (and possibly loaded)
;	CF3.1S = 1	If the monitor supports exactly 1 DL11 console
;			interface (always set in single terminal, set if
;			multi-terminal w/just 1 DL11)
;
;	CF3.AS = 1	If the monitor supports the async word under MTTY
;	CF3.HI = 1	If the hardware supports separated ID space and Supy
;	CF3.SI = 1	If the software supports separated ID space and Supy
;
;	see .CF1DF for function definitions
;-
.MACRO	.CF3DF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($CNFG3 in .FIXDF)
	.BS	CF3.CO		;CO is on
	.BS	CF3.CR		;CO is resumed (not suspended)
	.BS	CF3.IM		;Each job possesses an impure area
	.BS	CF3.VB		;run programs marked as eligible under VBGEXE
	.BS	CF3.UI		;UB is set no install
	.BS	CF3.UA		;UB is active
	.BS	CF3.UB		;UB is loaded
	.BS	CF3.DM		;any installed handlers use DMA
	.BS	CF3.64		;Monitor supports 64 unit handlers
	.BS	CF3.AT		;Address Translation available
	.BS	CF3.OW		;$OWNER table exists
	.BS	CF3.US		;UB is sysgened into PNAME
	.BS	CF3.1S		;Exactly 1 DL11 interface supported
	.BS	CF3.AS		;MAT$S is true
	.BS	CF3.HI		;Hardware support for ID and Supy
	.BS	CF3.SI		;Software support for ID and Supy
.ENDM	.CF3DF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CF3DF
.PRINT ;.CF3DF
	.CF3DF	YES,==:

.Assume CF3.CO	EQ	<^o000001>
.Assume CF3.CR	EQ	<^o000002>
.Assume CF3.IM	EQ	<^o000004>
.Assume CF3.VB	EQ	<^o000010>
.Assume CF3.UI	EQ	<^o000020>
.Assume CF3.UA	EQ	<^o000040>
.Assume	CF3.UB	EQ	<^o000100>
.Assume	CF3.DM	EQ	<^o000200>
.Assume	CF3.64	EQ	<^o000400>
.Assume	CF3.AT	EQ	<^o001000>
.Assume	CF3.OW	EQ	<^o002000>
.Assume	CF3.US	EQ	<^o004000>
.Assume	CF3.1S	EQ	<^o010000>
.Assume	CF3.AS	EQ	<^o020000>
.Assume	CF3.HI	EQ	<^o040000>
.Assume	CF3.SI	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CHADF	-- define chain calling arguments
;+
;	.CHADF
;
;	+-------+-------+
;CH.PGM:|		|[500] o(.DBKDF)
;	+		+
;	|     DBlock	|
;	+   describing	+
;	|    program	|
;	+    to run	+
;	|		|
;	+-------+-------+
;CH.ARG:|		|[510]
;	:		:
;				see the following:
;				.XBADF	batch
;				.XCRDF	cref
;				.XEDDF	edit
;				.XHEDF	help
;				.XKEDF	ked
;				.XLDDF	ld
;				.XMADF	macro
;				.XQUDF	queman
;				.XSPDF	split
;				.XXXDF	preferred
;-
.MACRO	.CHADF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o500>,LIST,E	;chain arguments
	.DS	CH.PGM	4.	;Program chained to	o(.DBKDF)
	.DS	CH.ARG	0	;Argument (indeterminate len and contents)
.ENDM	.CHADF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CHADF
.PRINT ;.CHADF
	.CHADF	YES,==:

.Assume	CH.PGM	EQ	<^o500>
.Assume	CH.ARG	EQ	<^o510>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CHNDF	-- define channel block layout
;+
;	.CHNDF
;
;	+-------+-------+
;C.CSW:	|		|[00] Channel Status Word		v(.CSWDF)
;	+-------+-------+
;C.SBLK:|		|[02] starting block for file
;	+-------+-------+
;C.LENG:|		|[04] len of file
;	+-------+-------+
;C.USED:|		|[06] highest block written (.Entered files only)
;	+-------+-------+
;C.DEVQ:	|	|[10] I/O count (pending requests)
;	+-------+-------+
;C.UNIT:|	|	 [11] Device unit number
;	+-------+
;C.SIZ size in bytes	 [12]
;-
.MACRO	.CHNDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;($CSW in .FIXDF)
	.DS	C.CSW		;Channel status word		v(.CSWDF)
	.DS	C.SBLK		;Starting block of file (0 for nfs)
	.DS	C.LENG		;Len of file
	.DS	C.USED		;Highest block written (.ENTERed files only)
	.DS	C.DEVQ	1,B	;I/O count (number of pending requests)
	.DS	C.UNIT	1,B	;Device unit number
	.DS	C.SIZ	0	;Size of a channel in bytes
.ENDM	.CHNDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CHNDF
.PRINT ;.CHNDF
	.CHNDF	YES,==:

.Assume	C.CSW	EQ	000000
.Assume	C.SBLK	EQ	<^o000002>
.Assume	C.LENG	EQ	<^o000004>
.Assume	C.USED	EQ	<^o000006>
.Assume	C.DEVQ	EQ	<^o000010>	;BYTE
.Assume	C.UNIT	EQ	<^o000011>	;BYTE
.Assume	C.SIZ	EQ	<^o000012>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CLDDF	-- CLI/IND structure
;+
;		+-------+
;CLI.TY:	|	|[-2]				(.CLIDF)
;	+-------+-------+
;CLI.FL:|	|	 [-1]				(.CLIDF)
;	+-------+-------+-------+-------+
;IND.DV:|	|	|	|  ":"	|[0] ASCII device name
;	+-------+-------+-------+-------+	for IND.SAV
;-
.MACRO	.CLDDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	-2.,LIST,E	;$INDDV in .FIXDF
	.DS	CLI.TY	,,B	;type running now byte
	.DS	CLI.FL	,,B	;bit flags
	.DS	IND.DV	4.,B	;ASCII name for device w/:
.ENDM	.CLDDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CLDDF
.PRINT ;.CLDDF
	.CLDDF	YES,==:

.Assume	CLI.TY	EQ	<^o-2>
.Assume	CLI.FL	EQ	<^o-1>
.Assume	IND.DV	EQ	0
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CLIDF	-- Command Line Interpreter bytes
;+
;	.CLIDF
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;CLI.TY:|				|
;	+---+---+---+---+---+---+---+---+
;
;	UCF.RN = 0	running as UCF
;	DCL.RN = 1	running from DCL
;	CCL.RN = 2	running from CCL
;	UCL.RN = 3	running as UCL
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;CLI.FL:|UCF|	<res>	|UCL|CCL|DCL|UCF|
;	|.KM|		|.ON|.ON|.ON|.ON|
;	+---+---+---+---+---+---+---+---+
;
;	UCF.KM = 1	data line passed from UCF to KMON
;	UCL.ON = 1	UCL may be used
;	CCL.ON = 1	CCL may be used
;	DCL.ON = 1	DCL may be used
;	UCF.ON = 1	UCF may be used
;-
.MACRO	.CLIDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;(CLI%%% in .CLDDF)
	.BS	UCF.ON		;UCF may be used
	.BS	DCL.ON		;DCL may be used
	.BS	CCL.ON		;CCL may be used
	.BS	UCL.ON		;UCL may be used
	.BS	,	3.	;<res>
	.BS	UCF.KM		;UCF passing a line to KMON
	.EQU	UCF.RN	0	;Running as UCF
	.EQU	DCL.RN	1	;Running from DCL
	.EQU	CCL.RN	2.	;Running from CCL
	.EQU	UCL.RN	3.	;Running as UCL
.ENDM	.CLIDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CLIDF
.PRINT ;.CLIDF
	.CLIDF	YES,==:
.Page
.Assume	UCF.ON	EQ	001
.Assume	DCL.ON	EQ	<^o002>
.Assume	CCL.ON	EQ	<^o004>
.Assume	UCL.ON	EQ	<^o010>
.Assume	UCF.KM	EQ	<^o200>
.Assume	UCF.RN	EQ	0
.Assume	DCL.RN	EQ	1
.Assume	CCL.RN	EQ	<^o2>
.Assume	UCL.RN	EQ	<^o3>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CMPDF	-- .CMAP request mask (and impure area I.CMAP)
;+
;	.CMPDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	| CM.U	|CM.SUP	|CM.|res| CM.S	|	     CM.PAR		|
;	|	|	|   |	|	|				|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;
;	CM.U   = 140000	User mode I&D separation field
;	CM.UXX = 100000	Change User mode I&D separation
;	CM.UII = 100000 Non-separate User I&D
;	CM.UID = 140000 Separate User I&D
;
;	CM.SUP = 030000	Supy mode support (context switching) field
;	CM.XXS = 020000	Change Supy mode support
;	CM.NOS = 020000 No Supy mode context switching
;	CM.JAS = 030000 Supy mode context switching
;
;	CM.DUS = 004000 Separate data space by PAR
;
;	CM.S   = 001400	Supy  mode I&D separation field
;	CM.SXX = 001000	Change Supy mode I&D separation
;	CM.SII = 001000 Non-separate Supy I&D
;	CM.SID = 001400 Separate Supy I&D
;
;	CM.PAR = 000377	PAR selection byte
;	CM.PR7 = 000200 Separate PAR7
;	CM.PR6 = 000100 Separate PAR6
;	CM.PR5 = 000040 Separate PAR5
;	CM.PR4 = 000020 Separate PAR4
;	CM.PR3 = 000010 Separate PAR3
;	CM.PR2 = 000004 Separate PAR2
;	CM.PR1 = 000002 Separate PAR1
;	CM.PR0 = 000001 Separate PAR0
;-
.MCall	.CmpDf		;pull from SYSMAC.SML
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CMPDF
.PRINT ;.CMPDF
	.CMPDF	YES,==:
.Page
.Assume	CM.U	EQ	<^o140000>
.Assume	CM.UXX	EQ	<^o100000>
.Assume	CM.UII	EQ	<^o100000>
.Assume	CM.UID	EQ	<^o140000>
.Assume	CM.SUP	EQ	<^o030000>
.Assume	CM.XXS	EQ	<^o020000>
.Assume	CM.NOS	EQ	<^o020000>
.Assume	CM.JAS	EQ	<^o030000>
.Assume	CM.DUS	EQ	<^o004000>
.Assume	CM.S	EQ	<^o001400>
.Assume	CM.SXX	EQ	<^o001000>
.Assume	CM.SII	EQ	<^o001000>
.Assume	CM.SID	EQ	<^o001400>
.Assume	CM.PAR	EQ	<^o000377>
.Assume	CM.PR7	EQ	<^o000200>
.Assume	CM.PR6	EQ	<^o000100>
.Assume	CM.PR5	EQ	<^o000040>
.Assume	CM.PR4	EQ	<^o000020>
.Assume	CM.PR3	EQ	<^o000010>
.Assume	CM.PR2	EQ	<^o000004>
.Assume	CM.PR1	EQ	<^o000002>
.Assume	CM.PR0	EQ	<^o000001>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.COCDF	-- CO channel control ...		*UNIMPLEMENTED*
;+
;	.COCDF
;
;	+-------+-------+
;COC.CB:|		|[00] Channel Control Block for 377 ov(.CHNDF)
;	:		:
;	|		|
;	+-------+-------+
;COC.AV:|		|[??] head of available QEL for 377
;	+-------+-------+
;-
.SbTtl	.CPUHD	-- CPU registers			*IN HARDWA.MAC*
.SbTtl	.CSIDF	-- define layout of csi returned info
;+
;	.CSIDF
;
;	+-------+-------+ - - -	+-------+-------+
;CS.OU1:|		  DBLK			|[00] o(.DBKDF)
;	+-------+-------+ - - -	+-------+-------+
;	|     Size	|
;	+-------+-------+ - - -	+-------+-------+
;CS.OU2:|		  DBLK			|[12]
;	+-------+-------+ - - -	+-------+-------+
;	|     Size	|
;	+-------+-------+ - - -	+-------+-------+
;CS.OU3:|		  DBLK			|[24]
;	+-------+-------+ - - -	+-------+-------+
;	|     Size	|
;	+-------+-------+ - - -	+-------+-------+
;CS.IN1:|		  DBLK			|[36]
;	+-------+-------+ - - -	+-------+-------+
;CS.IN2:|		  DBLK			|[46]
;	+-------+-------+ - - -	+-------+-------+
;CS.IN3:|		  DBLK			|[56]
;	+-------+-------+ - - -	+-------+-------+
;CS.IN4:|		  DBLK			|[66]
;	+-------+-------+ - - -	+-------+-------+
;CS.IN5:|		  DBLK			|[76]
;	+-------+-------+ - - -	+-------+-------+
;CS.IN6:|		  DBLK			|[106]
;	+-------+-------+ - - -	+-------+-------+
;CS.CSZ:					 [116]
.MACRO	.CSIDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;returned by CSISPC
	.DS	CS.OU1	5.	;first output file DBLK and size
	.EQU	F.SIZE	8.	;offset to size word
	.DS	CS.OU2	5.	;second output file DBLK and size
	.DS	CS.OU3	5.	;third output file DBLK and size
	.DS	CS.IN1	4.	;first input file
	.DS	CS.IN2	4.	;second input file
	.DS	CS.IN3	4.	;third input file
	.DS	CS.IN4	4.	;fourth input file
	.DS	CS.IN5	4.	;fifth input file
	.DS	CS.IN6	4.	;sixth input file
	.DS	CS.CSZ	0	;total size (in bytes)
.ENDM	.CSIDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CSIDF
.PRINT ;.CSIDF
	.CSIDF	YES,==:

.Assume	CS.OU1	EQ	000000
.Assume	F.SIZE	EQ	<^o000010>
.Assume	CS.OU2	EQ	<^o<1*<5*2>>>
.Assume	CS.OU3	EQ	<^o<2*<5*2>>>
.Assume	CS.IN1	EQ	<^o3*<5*2>>>
.Assume	CS.IN2	EQ	<^o1*<4*2>+<3*<5*2>>>
.Assume	CS.IN3	EQ	<^o2*<4*2>+<3*<5*2>>>
.Assume	CS.IN4	EQ	<^o3*<4*2>+<3*<5*2>>>
.Assume	CS.IN5	EQ	<^o4*<4*2>+<3*<5*2>>>
.Assume	CS.IN6	EQ	<^o5*<4*2>+<3*<5*2>>>
.Assume	CS.CSZ	EQ	<^o6*<4*2>+<3*<5*2>>>
.Assume	CS.CSZ	EQ	39.*2.
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CSTDF	-- define CSTAT return area
;+
;	.CSTDF
;
;	+-------+-------+
;CS.CSW:|		|[00]	Channel Status Word,		v(.CSWDF)
;	+-------+-------+
;CS.SBK:|		|[02]	Starting block number
;	+-------+-------+
;CS.LEN:|		|[04]	File len
;	+-------+-------+
;CS.USE:|		|[06]	Highest block written
;	+-------+-------+
;CS.UNT:|		|[10]	Device unit number
;	+-------+-------+
;CS.NAM:|		|[12]	Device name (physical name w/o unit #)
;	+-------+-------+
;CS.SIZ			 [14]	area size in bytes
;-
.MACRO	.CSTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Returned table from .CSTAT request
	.DS	CS.CSW		;Channel status word		v(.CSWDF)
	.DS	CS.SBK		;Starting block of file (0 for nfs)
	.DS	CS.LEN		;Len of file
	.DS	CS.USE		;Highest block written (.ENTERed files only)
	.DS	CS.UNT		;Device unit number
	.DS	CS.NAM		;Rad50 device name (physical name w/o unit #)
	.DS	CS.SIZ	0	;Size of a reply area in bytes
.ENDM	.CSTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CSTDF
.PRINT ;.CSTDF
	.CSTDF	YES,==:

.Assume	CS.CSW	EQ	000000
.Assume	CS.SBK	EQ	<^o000002>
.Assume	CS.LEN	EQ	<^o000004>
.Assume	CS.USE	EQ	<^o000006>
.Assume	CS.UNT	EQ	<^o000010>
.Assume	CS.NAM	EQ	<^o000012>
.Assume	CS.SIZ	EQ	<^o000014>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CSWDF	-- CSW bit definitions
;+
;	.CSWDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;CSW:	|ACT|RON|EOF|	    DBLK$M	|DWR|REN|	INDX$M	    |HDE|
;	|IV$|LY$| $ |			|IT$|AM$|		    |RR$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	ACTIV$ = 1	Channel is active
;	RONLY$ = 1	Read only (used in .DSCDF also)
;	EOF$ = 1	End of file
;	DBLK$M = 17400	Directory block number (mask)
;	DBLK.M = 8.	Directory block number (shift)
;	DWRIT$ = 1	Close must rewrite directory
;	RENAM$ = 1	Rename in progress
;	INDX$M = 76	Device index (mask)
;	INDX.M = 1	Device index (shift)
;	HDERR$ = 1	Hard error occurred
;-
.MACRO	.CSWDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;(C.CSW in .CHNDF; CS.CSW in .CSTDF)
				;Bits in CSW word 0
	.BS	HDERR$		;Hard error
	.BS	INDX$M	5.	;Device index (mask)
	.LB	INDX$M,,INDX.M	;Device index (shift)
	.BS	RENAM$		;RENAME in progress
	.BS	DWRIT$		;CLOSE must rewrite directory
	.BS	DBLK$M	5.	;directory block # (mask)
	.LB	DBLK$M,,DBLK.M	;directory block # (shift)
	.BS	EOF$		;End of file found on channel
	.BS	RONLY$		;Read-only
	.BS	ACTIV$		;Channel is active
	.EQU	DBLK$N	<^cDBLK$M> ;Complementary mask
.ENDM	.CSWDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CSWDF
.PRINT ;.CSWDF
	.CSWDF	YES,==:

.Assume	HDERR$	EQ	000001
.Assume	INDX$M	EQ	<^o000076>
.Assume	INDX.M	EQ	1.
.Assume	RENAM$	EQ	<^o000100>
.Assume	DWRIT$	EQ	<^o000200>
.Assume	DBLK$M	EQ	<^o017400>
.Assume	DBLK.M	EQ	8.
.Assume	EOF$	EQ	<^o020000>
.Assume	RONLY$	EQ	<^o040000>
.Assume	ACTIV$	EQ	<^o100000>
.Assume	DBLK$N	EQ	<^o160377>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.CVHDF	-- Overlay handler config word
;+
;	.CVHDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;032:	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;SV.CVH:|	      CVH.ED		| reserved  |CVH|CVH|CVH|CVH|CVH|
;RL.CVH:|				|	    |.LO|.XH|.ID|.MP|.DK|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	CVH.DK = 1	disk overlays supported
;	CVH.MP = 1	mapped overlays supported
;	CVH.ID = 1	supervisor and separated I-D supported
;	CVH.XH = 1	"XHANDL" (single overlay only) support
;	CVH.LO = 1	Loader (not overlay handler) inits /O area
;	CVH.ED		area contains the edit level of UHANDL
;-
.MACRO	.CVHDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;block 0 save and rel images
	.BS	CVH.DK		;disk overlays supported
	.BS	CVH.MP		;mapped overlays supported
	.BS	CVH.ID		;supy and separated I-D supported
	.BS	CVH.XH		;single overlay only (XHANDL)
	.BS	CVH.LO		;loader inits /O area
	.BS	,3.		;reserved
	.BS	CVH.ED,8.	;edit level area
.ENDM	.CVHDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.CVHDF
.PRINT ;.CVHDF
	.CVHDF	YES,==:
.Page
.Assume	CVH.DK	EQ	<^o000001>
.Assume	CVH.MP	EQ	<^o000002>
.Assume	CVH.ID	EQ	<^o000004>
.Assume	CVH.XH	EQ	<^o000010>
.Assume	CVH.LO	EQ	<^o000020>
.Assume	CVH.ED	EQ	<^o177400>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.D2BDF	-- DUP to BSTRAP communications
;+
;	.D2BDF
;
;	This describes the interface between DUP(BOT) and BSTRAP
;
;	+-------+-------+				{B$HARD = 240
;B$HSBT:| boot type flag|[0000]		Hard/soft boot	{
;	+-------+-------+
;
;	+-------+-------+				{B$SOFT = 0
;B$RTEV:|RTEM version #	|[4714]		RTEM-11 only
;	+-------+-------+
;B$DEVN:|boot devname	|[4716]		passed in
;	+-------+-------+
;B$DEVS:|above sans suff|[4720]		generated by BSTRAP
;	+-------+-------+
;B$DEVU:|Bootable flag	|[4722]			B$DEVV=^rBOT (RT-11)
;	|		|			B$DEVR=^rRTE (RTEM-11)
;	|		|		sy unit number generated by BSTRAP
;	+-------+-------+-------+-------+
;B$FNAM:|    booted monitor name RAD50	|[4724]
;	+-------+-------+-------+-------+
;B$READ:| ->read rout	|[4730]
;	+-------+-------+
;
;	+-------+-------+
;B$SUFF:|handler suffix	|[4774]		assembled into BSTRAP
;	+-------+-------+
;B$SYOP:| SYSGEN value	|[4776]			v(.SGNDF)
;	+-------+-------+-------+-------+
;B$TIME:|	system time value	|[5000]	o(.TIMDF)
;	+-------+-------+-------+-------+
;B$DATE:|  system date	|[5004]			v(.DATDF)
;	+-------+-------+
;B$HIME:| memory avail	|[5006]		RTEM-11 only
;	+-------+-------+
;B$SVTK:|-> RTEM routine|[5010]		RTEM-11 only
;	+-------+-------+
;B$LK50:|50/60HZ flag	|[5012]		RTEM-11 only
;	+-------+-------+
;B$LKGR:|clock exists?	|[5014]		RTEM-11 only
;	+-------+-------+
;B$FPU:	|FPU exists?	|[5016]		RTEM-11 only
;	+-------+-------+
;-
.MACRO	.D2BDF	LIST,E,BASE=<^o4714>
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	B$HSBT		;Hard/Soft boot flag
	.EQU	B$HARD	<^o240>	;Hard boot (NOP instruction)
	.EQU	B$SOFT	0	;Soft boot
	.DSECT	<BASE>,LIST,E
	.DS	B$RTEV		;RTEM-11 version number
	.DS	B$DEVN		;Boot device name
	.DS	B$DEVS		;Boot device name sans suffix
	.DS	B$DEVU		;Boot device unit number
	.EQU	B$DEVV	<^rBOT>	;Required value in monitor file to
				; indicate bootable
	.EQU	B$DEVR	<^rRTE>	;Value for RTEM-11
	.DS	B$FNAM	2	;Booted monitor name (6 RAD50 chars?)
	.DS	B$READ		;-> Primary boot read routine
	.DSECT	<BASE+^o60>,LIST,E
	.DS	B$SUFF		;Handler suffix
	.DS	B$SYOP		;SYSGEN value			v(.SGNDF)
	.DS	B$TIME	2	;Boot begin time value		o(.TIMDF)
	.DS	B$DATE		;Boot date			v(.DATDF)
	.DS	B$HIME		;RTEM-11 available memory
	.DS	B$SVTK		;RTEM-11 init routine
	.DS	B$LK50		;RTEM-11 50/60 HZ flag
	.DS	B$LKGR		;RTEM-11 clock exists?
	.DS	B$FPU		;RTEM-11 FPU exists?
.ENDM	.D2BDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.D2BDF
.PRINT ;.D2BDF
	.D2BDF	YES,==:
.Page
.Assume	B$HSBT	EQ	0
.Assume	B$HARD	EQ	<^o240>
.Assume	B$SOFT	EQ	0
.Assume	B$RTEV	EQ	<^o4714>
.Assume	B$DEVN	EQ	<^o4716>
.Assume	B$DEVS	EQ	<^o4720>
.Assume	B$DEVU	EQ	<^o4722>
.Assume	B$DEVV	EQ	<^rBOT>
.Assume	B$DEVR	EQ	<^rRTE>
.Assume	B$FNAM	EQ	<^o4724>
.Assume	B$READ	EQ	<^o4730>
.Assume	B$SUFF	EQ	<^o4774>
.Assume	B$SYOP	EQ	<^o4776>
.Assume	B$TIME	EQ	<^o5000>
.Assume	B$DATE	EQ	<^o5004>
.Assume	B$HIME	EQ	<^o5006>
.Assume	B$SVTK	EQ	<^o5010>
.Assume	B$LK50	EQ	<^o5012>
.Assume	B$LKGR	EQ	<^o5014>
.Assume	B$FPU	EQ	<^o5016>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DATDF	-- RT-11 date format
;+
;	.DATDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	| DA.AGE|     DA.MON	|	DA.DAY	    |	    DA.YR	|
;	|	|		|		    |			|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	MASK
;	------
;	DA.AGE		Age number (0 -- 3)
;	 DA.ANE		0.*^o40000 Nebraskan
;	 DA.AKS		1.*^o40000 Kansan
;	 DA.AIL		2.*^o40000 Illinoian
;	 DA.AWI		3.*^o40000 Wisconsin
;
;	DA.MON		Month number (1 -- 12.)
;	DA.DAY		Day number (1 -- 28. -- 31.)
;	DA.YR		Year number (1972+value+<DA.AGE*32.> is current year)
;	 DA.YR0		Base year (1972.)
;	 DA.YRZ		Last year (2099.)
;
;	SHIFT COUNTS
;	------------
;	DA$AGE
;	DA$MON
;	DA$DAY
;	DA$YR
;
;	Mov	day,R0			;get day
;	Ash	#DA$DAY,R0		;position it
;	Mov	month,-(SP)		;get month
;	Ash	#DA$MON,@SP		;position it
;	Bis	(SP)+,R0		;or it in
;	Mov	year,-(SP)		;get year (and age)
;	Sub	#DA.YR0,@SP		;normalize to current dynasty
;	Mov	@SP,-(SP)		;save a copy
;	Ash	#DA$AGE-DA$YR,@SP	;shift top 2 of 7 bits to age locn
;	Bic	#^cDA.AGE,@SP		;clear junk
;	Bis	(SP)+,R0		;into destination reg
;	Bic	#^cDA.YR,@SP		;clear junk from year part
;	.Assume	DA$YR EQ 0		;no need to shift
;	Bis	(SP)+,R0		;or it it
;					;R0 is RT-11 date format
;
.Page
;	Validation information:
;
;	A valid date has the following characteristics
;
;	DA.AGE	may contain any bit pattern
;	DA.YR	may contain any bit pattern
;	DA.MON	may contain 1 thru 12(10) (002000--030000(8))
;	DA.DAY	if month is 1, 3, 5, 7, 8, 10 or 12
;		may contain 1 thru 31(10) (000040--001740(8))
;		if month is 4, 6, 9, or 11
;		may contain 1 thru 30(10) (000040--001700(8))
;		if month is 2 and year low two bits 0
;		may contain 1 thru 29(10) (000040--001640(8))
;		if month is 2 and year low two bits not both 0
;		may contain 1 thru 28(10) (000040--001600(8))
;-
.MACRO	.DATDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($DATE in .FIXDF; E.DATE in .DIEDF)
				;(DTM.DT in .DTMDF)
	.BS	DA.YR	5.	;year-1972 (mask)
	.EQU	DA.YR0	1972.	;Base year
	.EQU	DA.YRZ	2099.	;Last year
	.LB	DA.YR ,,DA$YR	;year-1972 (shift)
	.BS	DA.DAY	5.	;day of month (mask)
	.LB	DA.DAY,,DA$DAY	;Day of month (shift)
	.BS	DA.MON	4.	;month (mask)
	.LB	DA.MON,,DA$MON	;month (shift)
	.BS	DA.AGE	2.	;age (mask)
	.EQU	DA.ANE	0.*^o40000 ;age Nebraskan
	.EQU	DA.AKS	1.*^o40000 ;age Kansan
	.EQU	DA.AIL	2.*^o40000 ;age Illinoian
	.EQU	DA.AWI	3.*^o40000 ;age Wisconsin
	.LB	DA.AGE,,DA$AGE	;age (shift)
	.EQU	DA.NOS	0	;date not set
	.EQU	DA.DNS	-1	;do not set date
.ENDM	.DATDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DATDF
.PRINT ;.DATDF
	.DATDF	YES,==:

.Assume	DA.YR	EQ	<^o000037>
.Assume	DA.YR0	EQ	001972.
.Assume	DA.YRZ	EQ	<DA.YR0+DA.YR+<3*32.>> ; 2099.
.Assume	DA$YR	EQ	0.
.Assume	DA.DAY	EQ	<^o001740>
.Assume	DA$DAY	EQ	5.
.Assume	DA.MON	EQ	<^o036000>
.Assume	DA$MON	EQ	10.
.Assume	DA.AGE	EQ	<^o140000>
.Assume	DA.ANE	EQ	0.
.Assume	DA.AKS	EQ	<^o040000>
.Assume	DA.AIL	EQ	<^o100000>
.Assume	DA.AWI	EQ	<^o140000>
.Assume	DA$AGE	EQ	14.
.Assume	DA.NOS	EQ	0
.Assume	DA.DNS	EQ	-1
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DBKDF	-- define offsets in dblock
;+
;	.DBKDF
;
;	+-------+-------+
;F.DEV:	|     RAD50	|[00] device name
;	+-------+-------+-------+-------+
;F.NAME:|	      RAD50		|[02]file name
;	+-------+-------+-------+-------+
;F.TYPE:|     RAD50	|[06] file type (extension)
;	+-------+-------+
;F.ESIZ:		 [10] dblock size
;-
.MACRO	.DBKDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(.CSIDF,.IMPDF,...)
	.DS	F.DEV		;Device specification
	.DS	F.NAME	2.	;file name
	.DS	F.TYPE		;file type
	.DS	F.ESIZ	0	;size of a dblock
.ENDM	.DBKDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DBKDF
.PRINT ;.DBKDF
	.DBKDF	YES,==:

.Assume	F.DEV	EQ	000000
.Assume	F.NAME	EQ	<^o000002>
.Assume	F.TYPE	EQ	<^o000006>
.Assume	F.ESIZ	EQ	<^o000010>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DEVDF	-- define handler ids for dstat
;+
;	.DEVDF
;
;	The following are the standard handler device codes.
;	The official registration list is DAEMON::HANDLERS$:DSTATU.TXT
;	[until SYSTEM.MAC is placed in SCS, at which point, it
;	should become the official registration list].
;
;	Comments that follow this are the official registry for handler
;	names in RT-11.
;-
.Page
.MACRO	.DEVDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;(H.DSTS in .HANDF, DS.COD in .DSTDF)
	.EQU	DEV.RK	<^o000>	;RK05 removable/fixed disk
	.EQU	DEV.DT	<^o001>	;DECTape I <retire V5.5>
	.EQU	DEV.EL	<^o002>	;Error Logger
	.EQU	DEV.LP	<^o003>	;Line Printer
	.EQU	DEV.TT	<^o004>	;Terminal Handler
	.EQU	DEV.T	DEV.TT
	.EQU	DEV.BA	DEV.TT	;Batch
	.EQU	DEV.DL	<^o005>	;RL01/02 removable disk
	.EQU	DEV.DY	<^o006>	;RX02 floppy disk
	.EQU	DEV.PC	<^o007>	;High speed paper reader/punch <retire V5.5>
	.EQU	DEV.VS	<^o010>	;RTEM virtual device
;	.EQU	DEV.PP	DEV.VS	;Punch??? <retire V5.5>
	.EQU	DEV.MT	<^o011>	;TM11/TU10/TS03 magtape
	.EQU	DEV.RF	<^o012>	;RF11 fixed disk <retire V5.5>
	.EQU	DEV.CT	<^o013>	;TA11 cassette tape <retire V5.5>
	.EQU	DEV.CR	<^o014>	;CR11 card reader <retire V5.5>
				;???
	.EQU	DEV.DS	<^o016>	;RJS03/4 fixed disk <retire V5.5>
	.EQU	DEV.HG	<^o017>	;PC3__ RTI option
	.EQU	DEV.MM	<^o020>	;TJU16 magtape
	.EQU	DEV.MF	DEV.MM	;RTEM T???? magtape
	.EQU	DEV.DP	<^o021>	;RP11/RPR02/RP03 disk <retire V5.5>
	.EQU	DEV.DQ	DEV.DP	;RTEM ???? disk
	.EQU	DEV.DX	<^o022>	;RX01 floppy
	.EQU	DEV.DM	<^o023>	;RK06/7 disk
				;<res>
	.EQU	DEV.NL	<^o025>	;Null device
	.EQU	DNT.AX	<^o026>	;DECNet modem pseudo
	.EQU	DNT.CX	DNT.AX	;DECNet communications executive pseudo
	.EQU	DNT.CP	<^o027>	;DECNet DDCMP protocol pseudo
	.EQU	DNT.NS	DNT.CP	;DECNet NSP protocol pseudo
	.EQU	DNT.NX	DNT.CP	;DECNet DLX protocol pseudo
	.EQU	DNT.VL	<^o030>	;DECNet DLV11E/F port
	.EQU	DNT.VN	DNT.VL	;DECNet DMV11 port
	.EQU	DNT.VP	DNT.VL	;DECNet DPV11 port
	.EQU	DNT.VU	DNT.VL	;DECNet DUV11 port
	.EQU	DNT.WS	DNT.VL	;DECNet DSV11 port
	.EQU	DNT.WL	DNT.VL	;DECNet DL11 port
	.EQU	DNT.XM	DNT.VL	;DECNet DMC11 port
	.EQU	DNT.XN	DNT.VL	;DECNet DMP11 port
	.EQU	DNT.XP	DNT.VL	;DECNet DUP11 port
	.EQU	DNT.XU	DNT.VL	;DECNet DU11 port
	.EQU	CTS.LQ	<^o031>	;Serial printer CTS
	.EQU	CTS.LR	<^o032>	;Serial printer CTS
	.EQU	CTS.LS	<^o033>	;Serial printer CTS
	.EQU	DEV.DD	<^o034>	;TU58 DECTape II <retire V5.5>
	.EQU	DEV.MS	<^o035>	;TK25/TS04/TS05/TS11/TU80 Magtape
	.EQU	DEV.P3	<^o036>	;PDT130 <retire V5.5>
	.EQU	DEV.P5	<^o037>	;PDT150 <retire V5.5>
.Page
	.EQU	DEV.CI	<^o040>	;Console software input
	.EQU	DEV.LS	<^o041>	;Serial printer (DL11)
	.EQU	DEV.MQ	<^o042>	;Message Queue handler
	.EQU	DEV.IB	<^o043>	;IVB11 IEEE 488 interface
	.EQU	DEV.XT	<^o044>	;MRRT?
	.EQU	DEV.CO	<^o045>	;Console software output
	.EQU	DEV.LD	<^o046>	;Logical disk subsetting
	.EQU	DEV.L	DEV.LD
	.EQU	DEV.VM	<^o047>	;KT-11 virtual memory disk
	.EQU	DEV.DU	<^o050>	;MSCP class driver
	.EQU	DEV.D	DEV.DU
	.EQU	DEV.SL	<^o051>	;Single line editor
	.EQU	DEV.DZ	<^o052>	;PRO300 RX50 floppy
	.EQU	DEV.DW	<^o053>	;PRO300 RD5_ fixed disk
	.EQU	DEV.PI	<^o054>	;PRO300 terminal emulation ...
	.EQU	DEV.SP	<^o055>	;Print spooler
	.EQU	DEV.MP	<^o056>	;Memory parity error handler<fut>
	.EQU	DEV.XL	<^o057>	;DL11 modem handler
	.EQU	DEV.XC	DEV.XL	;PRO300 communications handler
	.EQU	DEV.MU	<^o060>	;TK50/TK70/TU81 TMSCP handler
	.EQU	DEV.NC	<^o061>	;PRO300 Ethernet handler
	.EQU	DEV.NQ	DEV.NC	;QBUS Ethernet handler
	.EQU	DEV.NU	DEV.NC	;UBUS Ethernet handler
	.EQU	DEV.SD	<^o062>	;Symbolic debugger
	.EQU	DEV.ST	<^o063>	;Symbol table for symbolic debugger
	.EQU	DEV.DC	<^o064>	;PRO Cipher tape
	.EQU	DEV.UB	<^o065>	;UNIBUS mapping handler
	.EQU	DEV.CA	<^o066>	;Cache handler<fut>
	.EQU	DEV.MB	<^o067>	;Mailbox handler<fut>
	.EQU	DEV.KK	<^o070>	;DAEMON IOP TPR handler<fut>
	.EQU	DEV.KJ	<^o071>	;DAEMON Arbiter TPR handler<fut>
	.EQU	DEV.J	DEV.KJ
	.EQU	DEV.KS	<^o072>	;DAEMON Virtual system device<fut>
	.EQU	DEV.KL	<^o073>	;DAEMON Virtual listing device<fut>
	.EQU	DEV.QD	<^o074>	;DAEMON DMA engine handler<fut>
	.EQU	DEV.KP	<^o075>	;DAEMON Virtual parent (file) handler<fut>
	.EQU	DEV.P	DEV.KP
	.EQU	DEV.KT	<^o076>	;DAEMON Virtual tape handler<fut>
	.EQU	DEV.XS	<^o077>	;DAEMON Synchronous line handler<fut>
	.EQU	DEV.S	DEV.XS
	.EQU	DEV.YK	<^o100>	;DAEMON Parallel port handler<fut>
	.EQU	DNT.EP	<^o101>	;DECnet Ethernet protocol handler<fut>
	.EQU	DEV.AT	<^o102>	;Physical from virt translate pseudo
	.EQU	DEV.CB	<^o105>	;Console software input/output

	.EQU	DEV.CU	<^o200>	;200-377 <res> to customers
	.EQU	UP2.TD	<^o376>	;uPower Pascal modem handler (variation 2)
	.EQU	UPP.KX	<^o377>	;uPower Pascal KX(T/J) arbiter handler
	.EQU	UPP.TD	<^o377>	;uPower Pascal modem handler (variation 1)
.ENDM	.DEVDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DEVDF
.PRINT ;.DEVDF
	.DEVDF	YES,==:
.Page
;Alpha order by device name:

.Assume	DEV.AT	EQ	<^o102>	;Physical from virt translate pseudo
.Assume	DNT.AX	EQ	<^o026>	;DECNet modem pseudo

.Assume	DEV.BA	EQ	<^o004>	;Batch
;	    BIN		logical -- Binary output device

;	    C		logical -- C library device (DECUSC)
;	    Cnn		generic serial lines (TSX+)
.Assume	DEV.CA	EQ	<^o066>	;Cache handler<fut>
.Assume	DEV.CB	EQ	<^o105>	;Console software input/output
;	    CC		logical -- PDP-11 C dev for msg file
;	    CF		logical -- CREF work device
.Assume	DEV.CI	EQ	<^o040>	;Console software input
;	    CL			generic serial lines (TSX+)
;	    CLB		logical -- PDP-11 C dev for #include <>
.Assume	DEV.CO	EQ	<^o045>	;Console software output
.Assume	DNT.CP	EQ	<^o027>	;DECNet DDCMP protocol pseudo
.Assume	DEV.CR	EQ	<^o014>	;CR11 card reader <retire V5.5>
.Assume	DEV.CT	EQ	<^o013>	;TA11 cassette tape <retire V5.5>
.Assume	DEV.CU	EQ	<^o200>	;NOT real name, beginning of customer codes
.Assume	DNT.CX	EQ	<^o026>	;DECNet communications executive pseudo

.Assume	DEV.D	EQ	<^o050>	;MSCP class driver
;	    DB			RP0_ handler (TSX+)
.Assume	DEV.DC	EQ	<^o064>	;PRO Cipher tape
.Assume	DEV.DD	EQ	<^o034>	;TU58 DECTape II <retire V5.5>
;	    DK		logical -- default data device
.Assume	DEV.DL	EQ	<^o005>	;RL01/02 removable disk
.Assume	DEV.DM	EQ	<^o023>	;RK06/7 disk
.Assume	DEV.DP	EQ	<^o021>	;RP11/RPR02/RP03 disk <retire V5.5>
.Assume	DEV.DQ	EQ	<^o021>	;RTEM ???? disk
.Assume	DEV.DS	EQ	<^o016>	;RJS03/4 fixed disk <retire V5.5>
.Assume	DEV.DT	EQ	<^o001>	;DECTape I <retire V5.5>
.Assume	DEV.DU	EQ	<^o050>	;MSCP class driver
.Assume	DEV.DW	EQ	<^o053>	;PRO300 RD5_ fixed disk
.Assume	DEV.DX	EQ	<^o022>	;RX01 floppy
.Assume	DEV.DY	EQ	<^o006>	;RX02 floppy disk
.Assume	DEV.DZ	EQ	<^o052>	;PRO300 RX50 floppy

.Assume	DEV.EL	EQ	<^o002>	;Error Logger
.Assume	DNT.EP	EQ	<^o101>	;DECnet Ethernet protocol handler<fut>

.Assume	DEV.HG	EQ	<^o017>	;PC3__ RTI option
;	    HLP		logical -- DECnet help device

.Assume	DEV.IB	EQ	<^o043>	;IVB11 IEEE 488 interface

.Assume	DEV.J	EQ	<^o071>	;DAEMON Arbiter TPR handler<fut>

.Assume	DEV.KJ	EQ	<^o071>	;DAEMON Arbiter TPR handler<fut>
.Assume	DEV.KK	EQ	<^o070>	;DAEMON IOP TPR handler<fut>
.Assume	DEV.KL	EQ	<^o073>	;DAEMON Virtual listing device<fut>
.Assume	DEV.KP	EQ	<^o075>	;DAEMON Virtual parent (file) handler<fut>
.Assume	DEV.KS	EQ	<^o072>	;DAEMON Virtual system device<fut>
.Assume	UPP.KX	EQ	<^o377>	;uPower Pascal KX(T/J) arbiter handler
.Assume	DEV.KT	EQ	<^o076>	;DAEMON Virtual tape handler<fut>
.Page
.Assume	DEV.L	EQ	<^o046>	;Logical disk subsetting
.Assume	DEV.LD	EQ	<^o046>	;Logical disk subsetting
.Assume	DEV.LP	EQ	<^o003>	;Line Printer
.Assume	CTS.LQ	EQ	<^o031>	;Serial printer CTS
.Assume	CTS.LR	EQ	<^o032>	;Serial printer CTS
.Assume	CTS.LS	EQ	<^o033>	;Serial printer CTS
.Assume	DEV.LS	EQ	<^o041>	;Serial printer (DL11)
;	    LST		logical -- Listing output device

;	    MAP		logical -- Map output device
.Assume	DEV.MB	EQ	<^o067>	;Mailbox handler<fut>
.Assume	DEV.MF	EQ	<^o020>	;RTEM T???? magtape
;	    MFD		logical -- DAEMON Mailbox File Device <fut>
.Assume	DEV.MM	EQ	<^o020>	;TJU16 magtape
.Assume	DEV.MP	EQ	<^o056>	;Memory parity error handler <fut>
.Assume	DEV.MQ	EQ	<^o042>	;Message Queue handler
.Assume	DEV.MS	EQ	<^o035>	;TK25/TS04/TS05/TS11/TU80 Magtape
.Assume	DEV.MT	EQ	<^o011>	;TM11/TU10/TS03 magtape
.Assume	DEV.MU	EQ	<^o060>	;TK50/TK70/TU81 TMSCP handler

.Assume	DEV.NC	EQ	<^o061>	;PRO300 Ethernet handler
.Assume	DEV.NL	EQ	<^o025>	;Null device
.Assume	DEV.NQ	EQ	<^o061>	;QBUS Ethernet handler
.Assume	DNT.NS	EQ	<^o027>	;DECNet NSP protocol pseudo
;	    NT		Logical -- DECnet load device
.Assume	DEV.NU	EQ	<^o061>	;UBUS Ethernet handler
.Assume	DNT.NX	EQ	<^o027>	;DECNet DLX protocol pseudo

;	    OBJ		logical -- Object device

.Assume	DEV.P	EQ	<^o075>	;DAEMON Virtual parent (file) handler<fut>
.Assume	DEV.PC	EQ	<^o007>	;High speed paper reader/punch <retire V5.5>
;	DEV.PD	(either DEV.P3 or .P5)
.Assume	DEV.P3	EQ	<^o036>	;NOT real name, use PD
.Assume	DEV.P5	EQ	<^o037>	;NOT real name, use PD
.Assume	DEV.PI	EQ	<^o054>	;PRO300 terminal emulation ...
;	    PP		Paper tape punch <unofficial?> <retire V5.5>

.Assume	DEV.QD	EQ	<^o074>	;DAEMON DMA engine handler<fut>

.Assume	DEV.RF	EQ	<^o012>	;RF11 fixed disk <retire V5.5>
.Assume	DEV.RK	EQ	<^o000>	;RK05 removable/fixed disk
.Page
.Assume	DEV.S	EQ	<^o077>	;DAEMON Synchronous line handler<fut>
.Assume	DEV.SD	EQ	<^o062>	;Symbolic debugger
;	    SFD		logical -- Spool work file device
;	    SHR		logical -- shared system device (DAEMON) <fut>
.Assume	DEV.SL	EQ	<^o051>	;Single line editor
;	    SLB		logical -- supervisor library device
;	    SOn		logical -- Spool output device(s)
.Assume	DEV.SP	EQ	<^o055>	;Print spooler
;	    SPV		logical -- private system device (DAEMON) <fut>
;	    SRC		logical -- Source device
.Assume	DEV.ST	EQ	<^o063>	;Symbol table for symbolic debugger
;	    SWR		logical -- write area / shared system device (DAEMON)
;	    SY		logical -- booted device

.Assume	DEV.T	EQ	<^o004>	;Terminal Handler <fut>
.Assume	UP2.TD	EQ	<^o376>	;uPower Pascal modem handler (variation 2)
.Assume	UPP.TD	EQ	<^o377>	;uPower Pascal modem handler (variation 1)
.Assume	DEV.TT	EQ	<^o004>	;Terminal Handler

.Assume	DEV.UB	EQ	<^o065>	;UNIBUS mapping handler

.Assume	DNT.VL	EQ	<^o030>	;DECNet DLV11E/F port
.Assume	DEV.VM	EQ	<^o047>	;KT-11 virtual memory disk
.Assume	DNT.VN	EQ	<^o030>	;DECNet DMV11 port
.Assume	DNT.VP	EQ	<^o030>	;DECNet DPV11 port
.Assume	DEV.VS	EQ	<^o010>	;RTEM virtual device
.Assume	DNT.VU	EQ	<^o030>	;DECNet DUV11 port

;	    WF		logical -- BUP & MACRO & CC & F77 work device
.Assume	DNT.WL	EQ	<^o030>	;DECNet DL11 port
.Assume	DNT.WS	EQ	<^o030>	;DECNET DSV11 port

.Assume	DEV.XC	EQ	<^o057>	;PRO300 communications handler
.Assume	DEV.XL	EQ	<^o057>	;DL11 modem handler
.Assume	DNT.XM	EQ	<^o030>	;DECNet DMC11 port
.Assume	DNT.XN	EQ	<^o030>	;DECNet DMP11 port
.Assume	DNT.XP	EQ	<^o030>	;DECNet DUP11 port
.Assume	DEV.XS	EQ	<^o077>	;DAEMON Synchronous line handler<fut>
.Assume	DEV.XT	EQ	<^o044>	;MRRT TU58 simulator?
.Assume	DNT.XU	EQ	<^o030>	;DECNet DU11 port

.Assume	DEV.YK	EQ	<^o100>	;DAEMON Parallel port handler<fut>
.Page
.rem	~
Policy:

D% disk (block replacable)
E% disk like (and D% overflow) (usually solid state)
J% reserved to customers
M% Serial mag tape
O% Obsolete or limited support devices
Q% reserved to customers
W% overflow from X%
X% serial interfaces not connected to terminals
Y% serial interfaces connected to terminals


Other system names (as models for future RT-11 names):

AD uPP	A/D converter
BS RSX	Unibus Bus Switch driver
CD RSTS	CD11 card reader
CL RSX	Logical console listing device
CL TSX	Serial line (generic)
CN VMS	CI Class
CO RSX	Logical console output device
CS uPP	Serial communication line
CV VMS	8600 console disk (RL02)
CW VMS	8xxx console disk
DB RSX	RP0_
DF RSTS	RF11
DK RSX	RK05
DQ VMS	RL02/RM80 (11/730)
DR RSX	RM0_/RP07
EM RSX	ML11 (Solid state disk)
ES VMS	Lance chip driver
FW TSX	???
GR RSX	GT40/VS11
IC RSX	A/D<19
IS RSX	A/D<19
KB RSTS	Current terminal
KK uPP	KX(T/J) TPR (IOP)
KW uPP	KW11-_ (170420)
KX uPP	Arbiter TPR
LA RSX	LPA11 (Lab perip accelerator)
LA VMS	LPA11 (Lab perip accelerator)
LB RSX	Logical library device
LC VMS	Printer (11/730)
LD RSX	Driver loader???
LI VMS	Printer (DMB-32)
LR RSX	PCL11 (Parallel commo link recv)
LS RSX	ADC<17
LT RSX	PCL11 (Parallel commo link xmit)
MB VMS	Mail box
MF RSX	TM78/TU78
MK RSX	MKA11 Memory controller
	~
.Page
.rem	~
NM RSX	???
NO VMS	DDCMP Asynch
NX RSX	???
PD VMS	Memory used as disk (VM)
PK RSTS	Pseudo keyboard
PP RSX	Paper tape punch
PR RSX	Paper tape reader
PU VMS	UDA Port driver
QD uPP	KX(T/J) DMA engine
QN uPP	DEQNA
RD RSX	Reconfiguration driver
RT RSX	???
SP RSX	Logical spooling device
SY RSTS	System Disk
SY RSX	Logical defalt device
TI RSX	Logical terminal input device
TD uPP	"Thrift" modem handler
UD RSX	Universal Digital Controller
VT RSX	Virtual terminal
VX RSX	???
XA uPP	DRV11J
XA VMS	DR11W/DRV11WA
XD VMS	DMP11
XE RSX	DEUNA
XE uPP	IEQ
XE VMS	DEUNA
XF uPP	SBC-21 PIO
XF VMS	DR32
XG VMS	DMF32 synch
XI VMS	DMF32 parallel
XL uPP	DLV11 (E/F/DLART)
XM RSX	DMC11 DMR11
XM VMS	DMC11 DMR11
XP uPP	DPV11
XQ VMS	old DEQNA
XS uPP	KX(T/J) Synch
XW RSX	DUP11
XW VMS	DUP11
YA uPP	DRV11
YB uPP	DRV11B
YK uPP	Parallel & Timer KX(T/J)
	~
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DFXDF	-- default extension list for CSI%%%
;+
;	.DFXDF
;
;	+-------+-------+
;DFX.IN:| Rad50 default	|[0] default for all input files
;	+-------+-------+
;DFX.O1:| Rad50 default	|[2] default for first output file
;	+-------+-------+
;DFX.O2:| Rad50 default	|[4] default for second output file
;	+-------+-------+
;DFX.O3:| Rad50 default	|[6] default for third output file
;	+-------+-------+
;DFX.SZ:		 [10]
;-
.MACRO	.DFXDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;S.DEFX in ..CSI%
	.DS	DFX.IN		;all input defaults
	.DS	DFX.O1		;first output default
	.DS	DFX.O2		;second output default
	.DS	DFX.O3		;third output default
	.DS	DFX.SZ	0	;size of the block
.ENDM	.DFXDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DFXDF
.PRINT ;.DFXDF
	.DFXDF	YES,==:

.Assume	DFX.IN	EQ	0
.Assume	DFX.O1	EQ	<^o2>
.Assume	DFX.O2	EQ	<^o4>
.Assume	DFX.O3	EQ	<^o6>
.Assume	DFX.SZ	EQ	<^o10>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DIEDF	-- directory entry definition
;+
;	.DIEDF
;
;	+-------+-------+
;E.STAT:|		|[00]				 Status flags
;	+-------+-------+-------+-------+-------+-------+
;E.NAME:|						|[02] Name & Extension
;	+-------+-------+-------+-------+-------+-------+
;E.LENG:|		|[10]				 Len in blocks
;	+-------+-------+
;E.CHAN:	|	|[12] (Tentative only) channel number
;	+-------+-------+
;E.JNUM:|	|	 [13] (Tentative only) job number
;	+-------+-------+
;	\		\
;	+-------+-------+
;E.TIME:|		|[12] file closing time <fut>
;	+-------+-------+
;	\		\
;	+-------+-------+
;E.DATE:|		|[14] Creation date			v(.DATDF)
;	+-------+-------+
;E.ELEN:		 [16]
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;E.STAT:|E.P|E.R| <res>	|E. |E.P|E. |E.T|	      <res>		|
;	|ROT|EAD|	|EOS|ERM|MTY|ENT|				|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;fut?	|E.P|E.R|E.H|E. |E. |E.P|E. |E.T|E.X|E.A|E.T|E. |E.C|E. |E. |E. |
;	|ROT|EAD|IGH|FIX|EOS|ERM|MTY|ENT|TRA|RCH|EXT|PRE|UST|RED|GRN|BLU|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	E.PROT = 1	protected file
;	E.READ = 1	read-only file
;	E.HIGH = 1	Squeeze should bubble this up, not down <fut>
;	E.FIX  = 1	Fixed (immovable) <fut>
;	E.EOS  = 1	end of segment
;	E.PERM = 1	permanent entry
;	E.MPTY = 1	empty entry
;	E.TENT = 1	tentative entry
;	E.XTRA = 1	Extra directory words have a (undefined) standard
;			meaning (1st extra word is extension status word)<fut>
;	E.ARCH = 1	Archived <fut>
;	E.TEXT = 1	Text file (type / print / edit able) <fut>
;	E.PRE  = 1	File contains prefix block(s), 1st word is number
;			of prefix blocks, 2nd and 3rd words are a format
;			id for the prefix blocks.  If word 2 contains -1,
;			this is a "customer defined" prefix. <fut>
;
;	E.CUST = 1	Color codes are customer defined <fut>
;	E.RED} = 1
;	E.GRN} = 1	file color pattern for file differentiation within
;	E.BLU} = 1	a single file system.
;-
.MACRO	.DIEDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	E.STAT		;entry status word
	.DS	E.NAME	3.	;RAD50 file name and extension
	.DS	E.LENG		;size of area described, in blocks
	.DS	E.USED	0	;<res> if not TENT
	.DS	E.TIME	0	;time of file closing (seconds/3 since midnight) <fut>
	.DS	E.CHAN	,,B	;channel number for tentative file
	.DS	E.JNUM	,,B	;job number for tentative file
	.DS	E.DATE		;creation date			v(.DATDF)
	.DS	E.ELEN	0	;basic entry len

				;E.STAT word bits
	.BSECT	,,E
	.BS	E.BLU		;blue file code<fut>
	.BS	E.GRN		;green file code<fut>
	.BS	E.RED		;red file code<fut>
	.BS	E.CUST		;customer defined colors<fut>
	.BS	E.PRE		;file contains prefix block(s)<fut>
	.BS	E.TEXT		;file is displayable on ANSI terminal<fut>
	.BS	E.ARCH		;file has been archived<fut>
	.BS	E.XTRA		;extension status word in first extra word<fut>
	.BS	E.TENT		;tentative entry
	.BS	E.MPTY		;empty entry
	.BS	E.PERM		;permanent entry
	.BS	E.EOS		;end of segment
	.BS	E.FIX		;non-movable file<fut>
	.BS	E.HIGH		;move high on squeeze<fut>
	.BS	E.READ		;read-only
	.BS	E.PROT		;protected file
.ENDM	.DIEDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DIEDF
.PRINT ;.DIEDF
	.DIEDF	YES,==:

.Assume	E.STAT	EQ	000000
.Assume	E.NAME	EQ	<^o000002>
.Assume	E.LENG	EQ	<^o000010>
.Assume	E.USED	EQ	<^o000012>
.Assume	E.CHAN	EQ	<^o000012>	;BYTE
.Assume	E.JNUM	EQ	<^o000013>	;BYTE
.Assume	E.TIME	EQ	<^o000012>
.Assume	E.DATE	EQ	<^o000014>
.Assume	E.ELEN	EQ	<^o000016>

.Assume	E.BLU	EQ	<^o000001>
.Assume	E.GRN	EQ	<^o000002>
.Assume	E.RED	EQ	<^o000004>
.Assume	E.CUST	EQ	<^o000010>
.Assume	E.PRE	EQ	<^o000020>
.Assume	E.TEXT	EQ	<^o000040>
.Assume	E.ARCH	EQ	<^o000100>
.Assume	E.XTRA	EQ	<^o000200>
.Assume	E.TENT	EQ	<^o000400>
.Assume	E.MPTY	EQ	<^o001000>
.Assume	E.PERM	EQ	<^o002000>
.Assume	E.EOS	EQ	<^o004000>
.Assume	E.FIX	EQ	<^o010000>
.Assume	E.HIGH	EQ	<^o020000>
.Assume	E.READ	EQ	<^o040000>
.Assume	E.PROT	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DIHDF	-- directory header definition
;+
;	.DIHDF
;
;	+-------+-------+
;D.TOTA:|		|[00] Total number of segments in directory
;	+-------+-------+
;D.NEXT:|		|[02] Number of next segment
;	+-------+-------+
;D.HIGH:|		|[04] Highest segment in use (first segment only)
;	+-------+-------+
;D.EXTR:|		|[06] Number of extra bytes in each entry
;	+-------+-------+
;D.STRT:|		|[10] First data block described in this segment
;	+-------+-------+
;D.LENG:		 [12]					o(.DIEDF)
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;D.TOTA:+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;D.NEXT:|		Must be 0		    |	Segment		|
;D.HIGH:|					    |	    Number	|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;Mask							    D$SEG
;-
.MACRO	.DIHDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(HB.DIR in .HOMDF)
	.DS	D.TOTA		;total number of segments (1--31(decimal))
	.DS	D.NEXT		;next logical directory number
	.DS	D.HIGH		;highest segment number in use
				; valid only in first segment
	.EQU	D$SEG	<^o37>	;valid bits in D.(TOTA,NEXT,HIGH)
	.DS	D.EXTR		;extra bytes per entry (even!)
	.DS	D.STRT		;first data block addr this segment
	.DS	D.LENG	0	;len of a header
.ENDM	.DIHDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DIHDF
.PRINT ;.DIHDF
	.DIHDF	YES,==:

.Assume	D.TOTA	EQ	000000
.Assume	D.NEXT	EQ	<^o000002>
.Assume	D.HIGH	EQ	<^o000004>
.Assume	D$SEG	EQ	<^o000037>
.Assume	D.EXTR	EQ	<^o000006>
.Assume	D.STRT	EQ	<^o000010>
.Assume	D.LENG	EQ	<^o000012>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DNTDF	-- define contents of $DECNT in fixed area *UNIMPLEMENTED*
.SbTtl	.DSCDF	-- define handler codes for dstat
;+
;	.DSCDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|FIL|RON|WON|SPE|HND|SPF|ABT|VAR|	     DEVID$		|
;	|ST$|LY$|LY$|CL$|LR$|UN$|IO$|SZ$|				|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	 100 040 020 010 004 002 001 000 
;	 000 000 000 000 000 000 000 400 
;	+===+---+---+===+---+---+---+---+ XXDIR$ directory type
;	| 0 | x | x | 0 | x | x | x | x | NODIR$ no directory structure
;	| 0 | x | x | 1 | x | x | x | x | UNKDI$ unk directory, or open/close
;	| 1 | x | x | 0 | x | x | x | x | RT1DI$ RT-11 dir & blk 6+ seg avail
;	| 1 | x | x | 1 | x | x | x | x | SRTDI$ RT-11 dir no blk 6+ seg avail
;	+===+---+---+===+---+---+---+---+
;
;	 100 040 020 010 004 002 001 000 
;	 000 000 000 000 000 000 000 400 
;	+---+===+===+---+---+---+---+---+ IOTYP$ type of IO allowed
;	| x | 0 | 0 | x | x | x | x | x | 
;	| x | 0 | 1 | x | x | x | x | x | 
;	| x | 1 | 0 | x | x | x | x | x | 
;	| x | 1 | 1 | x | x | x | x | x | PSEHD$ Pseudo handler (no Std I/O)
;	+---+===+===+---+---+---+---+---+
;
;	 100 040 020 010 004 002 001 000 
;	 000 000 000 000 000 000 000 400 
;	+---+---+---+---+===+---+===+---+ ABTHD$ abort services
;	| x | x | x | x | 0 | x | 0 | x | ORDHD$ ordinary handler
;	| x | x | x | x | 0 | x | 1 | x | INQHD$ internally queued handler
;	| x | x | x | x | 1 | x | 0 | x | SPLHD$ special io count treatment
;	| x | x | x | x | 1 | x | 1 | x | XITHD$ non-internally queued handler
;	+---+---+---+---+===+---+===+---+	 that needs abort on exit...
;
;	FILST$ = 1	implements the RT-11 file structure
;	RONLY$ = 1	read only	(used in .CSWDF also)
;	WONLY$ = 1	write only
;	SPECL$ = 1	special directory structure
;	HNDLR$ = 1	call abort on any hard reset	} bit 
;	SPFUN$ = 1	handler accepts spfuns
;	ABTIO$ = 1	call abort on job exit		} patterns
;	VARSZ$ = 1	variable sized device
;	XXDIR$ = 110000	directory operations support
;	NODIR$ = 000000	no directory structure
;	UNKDI$ = 010000	unk directory, or open/close notice required
;	RT1DI$ = 100000	RT-11 dir & blk 6+ seg avail for wildcarding
;	SRTDI$ = 110000	RT-11 dir but no blk 6+ seg avail
;	IOTYP$ = 060000	types of IO supported
;	PSEHD$ = 060000	Pseudo handler (no Std I/O)
;	ABTHD$ = 006000	Abort services
;	ORDHD$ = 000000	handler with normal abort requirements
;	INQHD$ = 001000	Internally queued handler
;	SPLHD$ = 004000	handler that should not change I.IOCT
;	XITHD$ = 006000	non-int que handler that needs notice on exit ...
;	DEVID$		device code
;-
.MACRO	.DSCDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;(DS.ATT in .DSTDF; H.DSTS in .HANDF)
	.BS	DEVID$	8.	;low byte is device code	v(.DEVDF)
	.BS	VARSZ$		;variable sized device
	.BS	ABTIO$		;call abort entry on job exit
	.BS	SPFUN$		;Handler accepts SPFUNs
	.BS	HNDLR$		;Call abort entry on every hard reset
	.BS	SPECL$		;Special directory structured device
	.BS	WONLY$		;Write-only device
	.BS	RONLY$		;Read-only device
	.BS	FILST$		;RT-11 file structure
	.EQU	XXDIR$	<^o110000> ;directory operations support
	.EQU	NODIR$	<^o000000> ;no directory structure
	.EQU	UNKDI$	<^o010000> ;unk directory, or open/close notice
	.EQU	RT1DI$	<^o100000> ;RT-11 dir & blk 6+ seg avail for *
	.EQU	SRTDI$	<^o110000> ;RT-11 dir but no blk 6+ seg avail
	.EQU	IOTYP$	<^o060000> ;types of IO supported
	.EQU	PSEHD$	<^o060000> ;Pseudo handler (no Std I/O)
	.EQU	ABTHD$	<^o006000> ;Abort services
	.EQU	ORDHD$	<^o000000> ;handler with normal abort requirements
	.EQU	INQHD$	<^o001000> ;Internally queued handler
	.EQU	SPLHD$	<^o004000> ;handler that should not change I.IOCT
	.EQU	XITHD$	<^o006000> ;non-int que handler ... notice on exit ...
.ENDM	.DSCDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DSCDF
.PRINT ;.DSCDF
	.DSCDF	YES,==:

.Assume	DEVID$	EQ	<^o000377>
.Assume	VARSZ$	EQ	<^o000400>
.Assume	ABTIO$	EQ	<^o001000>
.Assume	SPFUN$	EQ	<^o002000>
.Assume	HNDLR$	EQ	<^o004000>
.Assume	SPECL$	EQ	<^o010000>
.Assume	WONLY$	EQ	<^o020000>
.Assume	RONLY$	EQ	<^o040000>
.Assume	FILST$	EQ	<^o100000>
.Assume	XXDIR$	EQ	<^o110000>
.Assume	NODIR$	EQ	<^o000000>
.Assume	UNKDI$	EQ	<^o010000>
.Assume	RT1DI$	EQ	<^o100000>
.Assume	SRTDI$	EQ	<^o110000>
.Assume	IOTYP$	EQ	<^o060000>
.Assume	PSEHD$	EQ	<^o060000>
.Assume	ABTHD$	EQ	<^o006000>
.Assume	ORDHD$	EQ	<^o000000>
.Assume	INQHD$	EQ	<^o001000>
.Assume	SPLHD$	EQ	<^o004000>
.Assume	XITHD$	EQ	<^o006000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DSEDF	-- DRSET generated entries
;+
;	.DSEDF
;
;	+-------+-------+
;DSE.R3:|		|[00] value to pass in R3 (non-zero)
;	+-------+-------+-------+-------+
;DSE.NA:|	      RAD50		|[02] option name
;	+-------+-------+-------+-------+
;DSE.SB:	|	|[06] offset to option routine
;	+-------+-------+
;DSE.PA:|	|	 [07] parsing option bits
;	+-------+
;DSE.ES:		 [10]  entry size
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;DSE.PA:|DSE|DSE|DSE|	    <res>	|
;	|.NO|.NU|.8 |			|
;	+---+---+---+---+---+---+---+---+
;
;	DSE.NO = 1	NO prefix allowed
;	DSE.NU = 1	NUMERIC value allowed
;	DSE.8  = 0	Decimal value
;	DSE.8  = 1	Octal value
;-
.MACRO	.DSEDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(H.SET in .HANDF)
	.DS	DSE.R3		;R3 constant
	.DS	DSE.NA	2	;RAD50 option name
	.DS	DSE.SB	,,B	;offset to subroutine
	.DS	DSE.PA	,,B	;Parsing options
	.BSECT	,LIST,E		;parsing bits
	.BS	,	5	;<res>
	.BS	DSE.8		;OCTAL/DECIMAL number
	.BS	DSE.NU		;NUMBER
	.BS	DSE.NO		;NO prefix allowed
	.DS	DSE.ES	0	;size of an entry
.ENDM	.DSEDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DSEDF
.PRINT ;.DSEDF
	.DSEDF	YES,==:

.Assume	DSE.R3	EQ	000000
.Assume	DSE.NA	EQ	<^o000002>
.Assume	DSE.SB	EQ	<^o000006>
.Assume	DSE.PA	EQ	<^o000007>
.Assume	DSE.8	EQ	<^o040>
.Assume	DSE.NU	EQ	<^o100>
.Assume	DSE.NO	EQ	<^o200>
.Assume	DSE.ES	EQ	<^o000010>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DSKDF	-- Disk layout (by block)
;+
;	.DSKDF
;
;	+-------------------------------+
;DK.BOT:|				|[0] boot block		ov(.BOTDF)
;	|				|			ov(.BBSDF)
;	|				|
;	+-------------------------------+
;DK.HOM:|				|[1] home block		ov(.HOMDF)
;	|				|
;	|				|
;	+-------------------------------+
;DK.BT2:|				|[2] secondary boot	ov(.D2BDF)
;	|				|
;	:				:
;	|				|[5]
;	|				|
;	+-------------------------------+
;DK.DIR:|				|[6] first directory	ov(.DIHDF,.DIEDF)
;	|				|	This is a constant location
;	|				|	even tho a home block pointer
;	:				:	is provided...
;-
.MACRO	.DSKDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	DK.BOT	,,X	;Boot block		o(.BOTDF,.BBSDF)
	.DS	DK.HOM	,,X	;Home block		o(.HOMDF)
	.DS	DK.BT2	4,X	;Secondary boot blocks	ov(.D2BDF)
	.DS	DK.DIR	,,X	;Directory blocks	ov(.DIHDF,.DIEDF)
.ENDM	.DSKDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DSKDF
.PRINT ;.DSKDF
	.DSKDF	YES,==:

.Assume	DK.BOT	EQ	0
.Assume	DK.HOM	EQ	1
.Assume	DK.BT2	EQ	2
.Assume	DK.DIR	EQ	6
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DSPDF	-- .DRSPF data format
;+
;	.DSPDF
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;DSP.XN:|DSP|DSP|DSP|DSP|DSP|DSP|DSP|DSP|[0] xxN part of SPFUN word
;	|.X7|.X6|.X5|.X4|.X3|.X2|.X1|.X0|
;	+---+---+---+---+---+---+---+---+
;
;	+---+---+---+---+---+---+---+---+
;DSP.NX:|       DSP.NN	    |  DSP.TY	|[1] NNx part of SPFUN word
;	+---+---+---+---+---+---+---+---+
;
;	DSP.TY:
;
;	DSP.UK	0	unknown SPFUN action
;	DSP.RD	1	READ SPFUN action
;	DSP.WR	2	WRITE SPFUN action
;	DSP.MV	3	MOVE SPFUN action
;	DSP.RW	4	TRANSFER (READ or WRITE selected by high bit of word count) SPFUN action
;		5-7	reserved
;-
.MACRO	.DSPDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(H.SPF% in .HANDF)
	.DS	DSP.XN	,,B	;XXN mask byte
	.BSECT	,LIST,E
	.BS	DSP.X0		;XX0 mask
	.BS	DSP.X1		;XX1 mask
	.BS	DSP.X2		;XX2 mask
	.BS	DSP.X3		;XX3 mask
	.BS	DSP.X4		;XX4 mask
	.BS	DSP.X5		;XX5 mask
	.BS	DSP.X6		;XX6 mask
	.BS	DSP.X7		;XX7 mask
	.DS	DSP.NX	,,B	;NNX value byte
	.BSECT	,LIST,E		;layout of NNX bytes
	.BS	DSP.TY	3.	;type mask
	.EQU	DSP.UK	0	;unknown type
	.EQU	DSP.RD	1	;READ type
	.EQU	DSP.WR	2.	;WRITE type
	.EQU	DSP.MV	3.	;MOVE type
	.EQU	DSP.RW	4.	;TRANSFER (READ or WRITE selected by high bit of word count) type
;			5-7	;reserved
	.BS	DSP.NN	5.	;NNX mask
.ENDM	.DSPDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DSPDF
.PRINT ;.DSPDF
	.DSPDF	YES,==:

.Assume	DSP.XN	EQ	0
.Assume	DSP.NX	EQ	1
.Assume	DSP.X0	EQ	001
.Assume	DSP.X1	EQ	<^o002>
.Assume	DSP.X2	EQ	<^o004>
.Assume	DSP.X3	EQ	<^o010>
.Assume	DSP.X4	EQ	<^o020>
.Assume	DSP.X5	EQ	<^o040>
.Assume	DSP.X6	EQ	<^o100>
.Assume	DSP.X7	EQ	<^o200>
.Assume	DSP.TY	EQ	<^o007>
.Assume	DSP.UK	EQ	0
.Assume	DSP.RD	EQ	1
.Assume	DSP.WR	EQ	<^o002>
.Assume	DSP.MV	EQ	<^o003>
.Assume	DSP.NN	EQ	<^o370>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DSTDF	-- .DSTATUS return area definition
;+
;	.DSTDF
;
;		+-------+
;DS.COD:	|	|[00] Device code			v(.DEVDF)
;	+-------+-------+
;DS.ATT:|	|	 [01] Device attributes			V(.DSCDF)
;	+-------+-------+
;DS.HSZ:|		|[02] Handler memory size in bytes
;	+-------+-------+				{0 out of memory
;	|		|				{<`SYSLOW` fetched
;DS.ADR:|		|[04] Handler memory addr+6	{>`SYSLOW` loaded
;	|		|				{>`$RMON` resident
;	+-------+-------+				{>160000 SUPY<fut>
;DS.VSZ:|		|[06] Device size, if not VARSZ$ handler
;	+-------+-------+
;DS.SIZ:		 [10]
;-
.MACRO	.DSTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Returned table from .DSTAT request
	.DS	DS.COD	,,B	;RT-11 device code		(.DEVDF)
	.DS	DS.ATT	,,B	;Handler attributes		(.DSCDF)
				;(.DSCDF bits are defined in word mode)
	.DS	DS.HSZ		;Handler size in bytes
	.DS	DS.ADR		;Handler load addr+6
	.DS	DS.VSZ		;Device size in disk blocks
	.DS	DS.SIZ	0	;size of reply area
.ENDM	.DSTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DSTDF
.PRINT ;.DSTDF
	.DSTDF	YES,==:

.Assume	DS.COD	EQ	000000	;BYTE
.Assume	DS.ATT	EQ	000001	;BYTE
.Assume	DS.HSZ	EQ	<^o000002>
.Assume	DS.ADR	EQ	<^o000004>
.Assume	DS.VSZ	EQ	<^o000006>
.Assume	DS.SIZ	EQ	<^o000010>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DTMDF	-- Date / time setting block
;+
;	.DTMDF
;
;	+-------+-------+
;DTM.DT:|     Date	|[0]	or (DTM.NA =) -1 to leave as is	v(.DATDF)
;	+-------+-------+-------+-------+
;DTM.TM:|	      Time		|[2] or -1 (1st word)	o(.TIMDF)
;	+-------+-------+-------+-------+    to leave as is
;DTM.SZ:				 [6]
;-
.MACRO	.DTMDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;A.DTTM in ..SDTT
	.DS	DTM.DT		;new date		v(.DATDF)
	.DS	DTM.TM	2	;new time		o(.TIMDF)
	.DS	DTM.SZ	0	;block size
	.EQU	DTM.NA	-1	;Not apply value
.ENDM	.DTMDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DTMDF
.PRINT ;.DTMDF
	.DTMDF	YES,==:

.Assume	DTM.DT	EQ	0
.Assume	DTM.TM	EQ	<^o2>
.Assume	DTM.SZ	EQ	<^o6>
.Assume	DTM.NA	EQ	-1
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DUSDF	-- DRUSE (and DRTAB) entry definition
;+
;	.DUSDF
;
;	+-------+-------+
;DT.ID:	|     RAD50	|[00] Entry identification
;	+-------+-------+
;DT.PTR:|data / -> table|[02] normally -> table
;	+-------+-------+
;DT.SIZ:|  size in bytes|[04] normally size of table in bytes
;	+-------+-------+
;DT.ESZ:		 [06] len of entry
;DT.EOL = 000000	end of entries (DT.ID value)
;-
.MACRO	.DUSDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(H.DATA, H.USER in .HANDF)
	.DS	DT.ID		;RAD50 table type ID
	.DS	DT.PTR		;-> to table / user data
	.DS	DT.SIZ		;len of table in bytes / user data
	.DS	DT.ESZ	0	;len of an entry
	.EQU	DT.EOL	000000	;end of list
.ENDM	.DUSDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DUSDF
.PRINT ;.DUSDF
	.DUSDF	YES,==:

.Assume	DT.ID	EQ	000000
.Assume	DT.PTR	EQ	<^o000002>
.Assume	DT.SIZ	EQ	<^o000004>
.Assume	DT.ESZ	EQ	<^o000006>
.Assume	DT.EOL	EQ	000000
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DVCDF	-- Device class codes
;+
;	.DVCDF
;
;	The following are the device class codes found in H.CLAS
;	in block 0 of the handler.
;-
.MACRO	.DVCDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;H.CLAS in (.HANDF)
	.EQU	DVC.UK	<^o000>	;unknown device handler
	.EQU	DVC.NL	<^o001>	;Null handler
	.EQU	DVC.TT	<^o002>	;Terminal class handler
	.EQU	DVC.TP	<^o003>	;Terminal port handler
	.EQU	DVC.DK	<^o004>	;Disk device handler
	.EQU	DVC.MT	<^o005>	;Mag tape device handler
	.EQU	DVC.CT	<^o006>	;Cassette tape device handler
	.EQU	DVC.LP	<^o007>	;Printer device handler
	.EQU	DVC.DE	<^o010>	;DECNET class handler
	.EQU	DVC.DP	<^o011>	;DECNET protocol handler
	.EQU	DVC.DL	<^o012>	;DECNET prot handler
	.EQU	DVC.NI	<^o013>	;ETHERNET handler
	.EQU	DVC.PS	<^o014>	;Pseudo-handler
	.EQU	DVC.VT	<^o015>	;VTCOM port handler
	.EQU	DVC.SI	<^o016>	;Generic serial input device (CR PR)
	.EQU	DVC.SO	<^o017>	;Generic serial output device (PP)
				;DVC.LP is non-generic serial out
	.EQU	DVC.SB	<^o020>	;Generic Serial I/O device (PC)
				;I and O disassociated
				;DVC.TT,NI,VT are non-generic I/O
	.EQU	DVC.CU	<^o200>	;<res> to customers
.ENDM	.DVCDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DVCDF
.PRINT ;.DVCDF
	.DVCDF	YES,==:
.Page
.Assume	DVC.UK	EQ	000
.Assume	DVC.NL	EQ	001
.Assume	DVC.TT	EQ	<^o002>
.Assume	DVC.TP	EQ	<^o003>
.Assume	DVC.DK	EQ	<^o004>
.Assume	DVC.MT	EQ	<^o005>
.Assume	DVC.CT	EQ	<^o006>
.Assume	DVC.LP	EQ	<^o007>
.Assume	DVC.DE	EQ	<^o010>
.Assume	DVC.DP	EQ	<^o011>
.Assume	DVC.DL	EQ	<^o012>
.Assume	DVC.NI	EQ	<^o013>
.Assume	DVC.PS	EQ	<^o014>
.Assume	DVC.VT	EQ	<^o015>
.Assume	DVC.SI	EQ	<^o016>
.Assume	DVC.SO	EQ	<^o017>
.Assume	DVC.SB	EQ	<^o020>
.Assume	DVC.CU	EQ	<^o200>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DVLDF	-- .DEVICE list format
;+
;	.DVLDF
;
;	Linking version
;	+-------+-------+
;DVL.NX:| -> next list	|[0]		initially 0
;	+-------+-------+
;DVL.EN:|		|[2]		first entry
;	:		:
;	|		|
;	+-------+-------+
;	|	0	|		DVL.EL = 0
;	+-------+-------+
;
;	Non-linking version
;	+-------+-------+
;	|		|[0]		first entry
;	:		:
;	|		|
;	+-------+-------+
;	|	0	|		DVL.EL = 0
;	+-------+-------+
;
;	     Entries
;	+-------+-------+
;DVL.AD:|  addr to set	|[0]
;	+-------+-------+
;DVL.VA:| value to set	|[2]
;	+-------+-------+
;-
.MACRO	.DVLDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;A.EXIT in ..DEVI; I.SPLS, I.DEVL in .IMPDF
	.DS	DVL.NX		;-> to next list
	.DS	DVL.EN		;first entry in linked version
	.DSECT	,LIST,E		;entry layout
	.DS	DVL.AD		;addr to change on exit
	.DS	DVL.VA		;value to use
	.EQU	DVL.EL	0	;end of list value
.ENDM	.DVLDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DVLDF
.PRINT ;.DVLDF
	.DVLDF	YES,==:

.Assume	DVL.NX	EQ	0
.Assume	DVL.EN	EQ	<^o2>

.Assume	DVL.AD	EQ	0
.Assume	DVL.VA	EQ	<^o2>

.Assume	DVL.EL	EQ	0
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DVMDF	-- Device mode bits
;+
;	.DVMDF
;
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;H.MOD:	|DVM|DVM|    <res>	|   |	|	All classes
;	|.NF|.NL|		|   |	|
;	+---+---+---+---+---+---+---+---+
;	| " | "	|		|DVM|DVM|	DVC.DK (Disk)
;	|   |	|		|.DM|.DX|
;	+---+---+---+---+---+---+---+---+
;	| " | "	|		    |DVM|	DVC.MT (Magtape)
;	|   |	|		    |.NS|
;	+---+---+---+---+---+---+---+---+
;
;	DVM.NF = 1	(DVC.%%) not fetchable
;	DVM.NL = 1	(DVC.%%) not loadable
;	DVM.DM = 1	(DVC.DK) SPFUN 377 & 376 return prefixed error word
;	DVM.DX = 1	(DVC.DK) 8 inch floppy supported
;	DVM.NS = 1	(DVM.MT) Non-file structured MT
;-
.MACRO	.DVMDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;H.MOD in (.HANDF)
	.BS	DVM.DX		;8 inch single density capable DVC.DK
	.EQU	DVM.NS	DVM.DX	;Non-file structured DVC.MT
	.BS	DVM.DM		;SPFUN 377 & 376 returns added word DVC.DK
	.BS	,	4.	;<res>
	.BS	DVM.NL		;non-loadable all classes
	.BS	DVM.NF		;non-fetchable all classes
.ENDM	.DVMDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DVMDF
.PRINT ;.DVMDF
	.DVMDF	YES,==:

.Assume	DVM.DX	EQ	001
.Assume	DVM.NS	EQ	001
.Assume	DVM.DM	EQ	<^o002>
.Assume	DVM.NL	EQ	<^o100>
.Assume	DVM.NF	EQ	<^o200>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DVTDF	-- .DRVTB layout
;+
;	+-------+-------+
;DVT.VE:|    vector	|[0]	vector addr
;	+-------+-------+
;DVT.IR:| offset to ISR	|[2]	offset from this location to ISR
;	+-------+-------+
;DVT.PS:|PS (forced PR7)|[4]	PS value for vector
;	+-------+-------+
;	:		:
;	|		|	DVL.EL = 100000 end of list value
;	+-------+-------+
;
;	If SLOTID is specified
;	+-------+-------+
;DVT.FG:|    100000	|[0]	flag to indicate floating vector
;	+-------+-------+	DVT.FV = 100000
;DVT.ID:|    Slot ID	|[2]	slot ID of device
;	+-------+-------+
;DVT.OF:|offset to addr	|[4]	offset to add to base addr for vector
;	+-------+-------+
;DVT.CR:| offset to ISR	|[6]	offset from this location to ISR
;	+-------+-------+
;DVT.CS:|PS (forced PR7)|[10]	PS value for vector
;	+-------+-------+
;	:		:
;	|		|	DVL.EL = 100000 end of list value
;	+-------+-------+
;-
.MACRO	.DVTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;H1.VEC in .HBGDF
	.DS	DVT.VE		;vector or flag for floating type
	.DS	DVT.IR		;offset to interrupt service routine
	.DS	DVT.PS		;PS value for interrupt vector
	.EQU	DVT.EL	<^o100000> ;end of table value

	.DSECT	,LIST,E		;H1.VEC in .HBGDF for SLOTID specified
	.DS	DVT.FG		;flag word
	.EQU	DVT.FV	<^o100000> ;value for SLOTID flag
	.DS	DVT.ID		;ID word
	.DS	DVT.OF		;value to add to base vector addr
	.DS	DVT.CR		;offset to interrupt service routine
	.DS	DVT.CS		;PS value for interrupt vector
.ENDM	.DVTDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DVTDF
.PRINT ;.DVTDF
	.DVTDF	YES,==:

.Assume	DVT.VE	EQ	0
.Assume	DVT.IR	EQ	<^o2>
.Assume	DVT.PS	EQ	<^o4>
.Assume	DVT.FG	EQ	0
.Assume	DVT.FV	EQ	<^o100000>
.Assume	DVT.ID	EQ	<^o2>
.Assume	DVT.OF	EQ	<^o4>
.Assume	DVT.CR	EQ	<^o6>
.Assume	DVT.CS	EQ	<^o10>
.Assume	DVT.El	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DWHDF	-- DW area in home block
;+
;	+-------+-------+
;DWH.C0:|	0	|[0] first word in home block
;	+-------+-------+	DWH.V0 = 0
;DWH.C1:|    170000	|[2] second word in home block
;	+-------+-------+	DWH.V1 = 170000
;DWH.C2:|    007777	|[4] third word in home block
;	+-------+-------+	DWH.V2 = 007777
;
;	NOTE: the values of DWH.C1 and C2 may be interchanged
;	NOTE: This overlaps the BBR area described in .HOMDF
;-
.MACRO	.DWHDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;HB.DWC in .HOMDF
	.DS	DWH.C0		;first word
	.EQU	DWH.V0	<^o000000> ;first value
	.DS	DWH.C1		;second word
	.EQU	DWH.V1	<^o170000> ;second value
	.DS	DWH.C2		;third word
	.EQU	DWH.V2	<^o007777> ;third value
.ENDM	.DWHDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DWHDF
.PRINT ;.DWHDF
	.DWHDF	YES,==:

.Assume	DWH.C0	EQ	0
.Assume	DWH.C1	EQ	<^o2>
.Assume	DWH.C2	EQ	<^o4>
.Assume	DWH.V0	EQ	0
.Assume	DWH.V1	EQ	<^o170000>
.Assume	DWH.V2	EQ	<^o007777>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.DWTDF	-- layout of DWTYPE in FIXED area
;+
;	.DWTDF
;
;		+-------+
;DWT.SN:	|	|[0]	slot not specified
;	+-------+-------+
;DWT.SY:|	|[1]		slot specified
;	+-------+
;
;	DW.UNK	= 0	geometry unknown
;	DW.50	= 1	RD50
;	DW.51	= 2	RD51
;	DW.31	= 3	RD31
;	DW.52C	= 4	RD52 CDC
;	DW.52Q	= 5	RD52 QUANTUM
;	DW.52A	= 6	RD50 ATASI
;	DW.53	= 7	RD53
;	DW.32	= 8	RD32
;		  9-255 reserved!!!
;-
.MACRO	.DWTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;$DWTYP in .FIXDF
	.DS	DWT.SN	,,B	;no slot specified
	.DS	DWT.SY	,,B	;slot specified
	.EQU	DW.UNK	0	;unknown geometry
	.EQU	DW.50	1.	;RD50
	.EQU	DW.51	2.	;RD51
	.EQU	DW.31	3.	;RD31
	.EQU	DW.52C	4.	;RD52 CDC
	.EQU	DW.52Q	5.	;RD52 QUANTUM
	.EQU	DW.52A	6.	;RD50 ATASI
	.EQU	DW.53	7.	;RD53
	.EQU	DW.32	8.	;RD32
.ENDM	.DWTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.DWTDF
.PRINT ;.DWTDF
	.DWTDF	YES,==:

.Assume	DWT.SN	EQ	0
.Assume	DWT.SY	EQ	1
.Assume	DW.UNK	EQ	0
.Assume	DW.50	EQ	1
.Assume	DW.51	EQ	<^o2>
.Assume	DW.31	EQ	<^o3>
.Assume	DW.52C	EQ	<^o4>
.Assume	DW.52Q	EQ	<^o5>
.Assume	DW.52A	EQ	<^o6>
.Assume	DW.53	EQ	<^o7>
.Assume	DW.32	EQ	<^o10>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.E16DF	-- EMT16 list layout
;+
;	.E16DF
;
;	The following describes a dispatch table containing
;	offsets from the dispatch table [entry?] to the referenced
;	routine.
;
;	These offsets are "officially" used by BA and SL.
;-
.MACRO	.E16DF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;($E16LS in .FIXDF)
	.DS	E6.TTI		;.TTYIN hook
	.DS	E6.TTO		;.TTYOUT hook
	.DS	E6.DST		;.DSTATUS hook
	.DS	E6.FET		;.FETCH hook
	.DS	E6.CSG		;.CSIGEN hook
	.DS	E6.CSS		;.CSISPC hook
	.DS	E6.LOC		;.LOCK hook
	.DS	E6.UNL		;.UNLOCK hook
	.DS	E6.EXI		;.EXIT hook
	.DS	E6.PRI		;.PRINT hook
	.DS	E6.SRE		;.SRESET hook
	.DS	E6.QSE		;.QSET hook
	.DS	E6.SET		;.SETTOP hook
	.DS	E6.RCT		;.RCTRLO hook
	.DS	E6.AST		;.ASTX hook
	.DS	E6.HRE		;.HRESET hook
	.DS	E6.PRX		;"$PRINT" hook (XM only)
.ENDM	.E16DF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.E16DF
.PRINT ;.E16DF
	.E16DF	YES,==:
.Page
.Assume	E6.TTI	EQ	000000
.Assume	E6.TTO	EQ	<^o000002>
.Assume	E6.DST	EQ	<^o000004>
.Assume	E6.FET	EQ	<^o000006>
.Assume	E6.CSG	EQ	<^o000010>
.Assume	E6.CSS	EQ	<^o000012>
.Assume	E6.LOC	EQ	<^o000014>
.Assume	E6.UNL	EQ	<^o000016>
.Assume	E6.EXI	EQ	<^o000020>
.Assume	E6.PRI	EQ	<^o000022>
.Assume	E6.SRE	EQ	<^o000024>
.Assume	E6.QSE	EQ	<^o000026>
.Assume	E6.SET	EQ	<^o000030>
.Assume	E6.RCT	EQ	<^o000032>
.Assume	E6.AST	EQ	<^o000034>
.Assume	E6.HRE	EQ	<^o000036>
.Assume	E6.PRX	EQ	<^o000040>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ELDDF  -- Error log file Device Error record format
;+
;	.ELDDF
;
;		+-------+
;ELD.SZ:	|	|[00]
;	+-------+-------+
;ELD.RN:|	|	 [01]
;	+-------+-------+
;ELD.UN:	|	|[02]
;	+-------+-------+
;ELD.ID:|	|	 [03] 
;	+-------+-------+
;ELD.RT:	|	|[04]
;	+-------+-------+
;ELD.OC:|	|	 [05]
;	+-------+-------+
;ELD.DT:|		|[06]		v(.DATDF)
;	+-------+-------+
;ELD.HT:|		|[10]
;	+-------+-------+
;ELD.LT:|		|[12]
;	+-------+-------+
;ELD.BK:|		|[14]
;	+-------+-------+
;ELD.BF:|		|[16]
;	+-------+-------+
;ELD.WC:|		|[20]
;	+-------+-------+
;					     MMG$T=1
;
;					+-------+-------+
;	     MMG$T=0		ELD.P1:	|		|[22]	
;		+-------+		+-------+-------+
;ELD.DR:	|	|[22]	ELD.DX:		|	|[24]
;	+-------+-------+		+-------+-------+
;ELD.MR:|	|	 [23]	ELD.MX:	|	|	 [25]
;	+-------+-------+		+-------+-------+
;ELD.RG:|		|[24]	ELD.RX:	|		|[26]
;	+-------+-------+		+-------+-------+
;-

.MACRO	.ELDDF LIST,E	; -- Error log file Device Error record format
.IIF	NDF	...V99 .MCALL	.DSECT
	.DSECT	,LIST,E
	.DS	ELD.SZ,1,BYTE	;record size
	.DS	ELD.RN,1,BYTE	;record number
	.DS	ELD.UN,1,BYTE	;unit number
	.DS	ELD.ID,1,BYTE	;device id
	.DS	ELD.RT,1,BYTE	;retry count
	.DS	ELD.OC,1,BYTE	;occurence count
	.DS	ELD.DT		;DATE
	.DS	ELD.HT		;TIME high order
	.DS	ELD.LT		;TIME low order
	.DS	ELD.BK		;physical block number, from Q.BLK
	.DS	ELD.BF		;user buffer, from Q.BUFF
	.DS	ELD.WC		;word count, from Q.WCNT
	.DS	ELD.DR,1,BYTE	;num device registers
	.DS	ELD.MR,1,BYTE	;maximum number of retries
	.DS	ELD.RG		;start of device registers
.IIF NDF MMG$T MMG$T=0
.IF NE MMG$T
	.DSECT	ELD.WC+^o2,LIST,E
	.DS	ELD.P1		;par 1 value, from Q.PAR
	.DS	ELD.DX,1,BYTE	;num device registers
	.DS	ELD.MX,1,BYTE	;maximum number of retries
	.DS	ELD.RX		;start of device registers
.ENDC ;NE MMG$T
	.EQU	ELD.FX,<^o12> ;size of fixed part of device error record
.ENDM	.ELDDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ELDDF
.PRINT ;.ELDDF
MMG$T=0
	.ELDDF	YES,=
.ASSUME		ELD.SZ	EQ	0
.ASSUME		ELD.RN	EQ	1
.ASSUME		ELD.UN	EQ	<^o2>
.ASSUME		ELD.ID	EQ	<^o3>
.ASSUME		ELD.RT	EQ	<^o4>
.ASSUME		ELD.OC	EQ	<^o5>
.ASSUME		ELD.DT	EQ	<^o6>
.ASSUME		ELD.HT	EQ	<^o10>
.ASSUME		ELD.LT	EQ	<^o12>
.ASSUME		ELD.BK	EQ	<^o14>
.ASSUME		ELD.BF	EQ	<^o16>
.ASSUME		ELD.WC	EQ	<^o20>
.ASSUME		ELD.FX	EQ	<^o12>
.ASSUME		ELD.DR	EQ	<^o22>
.ASSUME		ELD.MR	EQ	<^o23>
.ASSUME		ELD.RG	EQ	<^o24>
 
MMG$T=1
	.ELDDF	YES,=
.ASSUME		ELD.SZ	EQ	0
.ASSUME		ELD.RN	EQ	1
.ASSUME		ELD.UN	EQ	<^o2>
.ASSUME		ELD.ID	EQ	<^o3>
.ASSUME		ELD.RT	EQ	<^o4>
.ASSUME		ELD.OC	EQ	<^o5>
.ASSUME		ELD.DT	EQ	<^o6>
.ASSUME		ELD.HT	EQ	<^o10>
.ASSUME		ELD.LT	EQ	<^o12>
.ASSUME		ELD.BK	EQ	<^o14>
.ASSUME		ELD.BF	EQ	<^o16>
.ASSUME		ELD.WC	EQ	<^o20>
.ASSUME		ELD.FX	EQ	<^o12>
.ASSUME		ELD.P1	EQ	<^o22>
.ASSUME		ELD.DX	EQ	<^o24>
.ASSUME		ELD.MX	EQ	<^o25>
.ASSUME		ELD.RX	EQ	<^o26>
 
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ELIDF	-- Error log file record types
 
.MACRO	.ELIDF	LIST,E
.IIF	NDF	...V99 .MCALL	.LIST.
	.LIST.	LIST,E
	.EQU	DEV.ER,0	;hard device error 
	.EQU 	GD.IO,-1	;a successfull I/O
	.EQU	PAR.ER,-2	;a parity error
	.EQU	CCH.ER,-3	;a cache error
	.EQU	PCH.ER,-4	;a parity and cache error
	.EQU	ENM.ER,-5	;a (T)MSCP end message (old-style error log)
.ENDM	.ELIDF
.ENDC ;EQ GP3$DO
ONE.DO = ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ELIDF
	.ELIDF	YES,==:
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ELMDF  -- Error log file Memory Error record format
 
.MACRO	.ELMDF LIST,E
.IIF	NDF	...V99 .MCALL	.DSECT
	.DSECT	,LIST,E
	.DS	ELM.SZ,1,BYTE	;record size
	.DS	ELM.RN,1,BYTE	;record number
	.DS	ELM.TY,1,BYTE	;memory error type
	.DS	ELM.NR,1,BYTE	;number of registers
	.DS	ELM.OC		;occurrences of memory errors with this PC
	.DS	ELM.DT		;DATE
	.DS	ELM.HT		;TIME high order
	.DS	ELM.LT		;TIME low order
	.DS	ELM.PC		;program counter
	.DS	ELM.PS		;PSW
	.EQU	ELM.RG,20	;parity registers save area
	.EQU	ELM.FX,10	;size of fixed part of memory error record
.ENDM	.ELMDF
.ENDC ;EQ GP3$DO
ONE.DO = ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ELMDF
	.ELMDF	YES,==:
 
.ASSUME	ELM.SZ		EQ	0
.ASSUME	ELM.RN		EQ	1
.ASSUME	ELM.TY		EQ	2
.ASSUME	ELM.NR		EQ	3
.ASSUME ELM.OC		EQ	4
.ASSUME ELM.DT		EQ	6
.ASSUME ELM.HT		EQ	10
.ASSUME	ELM.LT		EQ	12
.ASSUME	ELM.PC		EQ	14
.ASSUME	ELM.PS		EQ	16
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ELSDF  -- Error log file header's device statistics record
 
.MACRO	.ELSDF	LIST,E
.IIF	NDF	...V99 .MCALL	.DSECT
	.DSECT	,LIST,E
	.DS	ELS.UN,1,BYTE	;device's unit number
	.DS	ELS.ID,1,BYTE	;device ID
	.DS	ELS.EL		;num errors logged
	.DS	ELS.ER		;num errors received
	.DS	ELS.RS,2	;num read successes, double precision
	.DS	ELS.WS,2	;num write successs, double precision
	.DS	ELS.MS,2	;num motion successes, double precision
	.DS	ELS.OS,2	;num other/unknown successes, double precision
	.EQU	ELS.SZ,13	;length in words of entry
.ENDM	.ELSDF
.ENDC ;EQ GP3$DO
ONE.DO = ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ELSDF
	.ELSDF	YES,==:
.ASSUME		ELS.UN	EQ	0
.ASSUME		ELS.ID	EQ	1
.ASSUME 	ELS.EL	EQ	2
.ASSUME		ELS.ER	EQ	4
.ASSUME		ELS.RS	EQ	6
.ASSUME		ELS.WS	EQ	12
.ASSUME		ELS.MS	EQ	16
.ASSUME		ELS.OS	EQ	22
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.EMTDF	-- define EMT codes and subcodes
;+
;	.EMTDF
;
;	The following defines the codes for the various EMT requests.
;
;	..1aaa	Version 1 EMT codes
;	...aaa	Version 2+ EMT codes
;	.aaaaa	Request codes
;	..aaaa	Request subcodes
;
;	EMT xxx				  USE
;	-------				-------
;	000-017 V1 DELETE		EMT375 00
;	020-037 V1 LOOKUP		EMT375 01
;	040-057 V1 ENTER		EMT375 02
;	060	V1 TRPSET (no macro)	EMT375 03
;	061-077 V1 undefined		undefined
;	100-117 V1 RENAME		EMT375 04
;	120-137 V1 SAVESTATUS		EMT375 05
;	140-157 V1 REOPEN		EMT375 06
;	160-177 V1 CLOSE		EMT374 06
;	200-217 V1 READ			EMT375 10
;	220-237 V1 WRITE		EMT375 11
;	240-257 V1 WAIT			EMT374 00
;	260-277 V1 CHCOPY (no macro)	EMT375 13
;	300-301 V1 DEVICE (no macro)	EMT375 14
;	302-317 V1 undefined		undefined
;	320	V1 CDFN (no macro)	EMT375 15
;	321-337	V1 undefined		undefined
;	340	TTYIN/TTINR		(EMT375 16)
;	341	TTYOUT/TTOUTR		(   "     )
;	342	DSTATUS			(   "     )
;	343	FETCH			(   "     )
;	343	RELEASE			(   "     )
;	344	CSIGEN			(   "     )
;	345	CSISPC			(   "     )
;	345	GTLIN			(   "     )
;	346	LOCK			(   "     )
;	347	UNLOCK			(   "     )
;	350	EXIT			(   "     )
;	351	PRINT			(   "     )
;	352	SRESET			(   "     )
;	353	QSET			(   "     )
;	354	SETTOP			(   "     )
;	355	RCTRLO			(   "     )
;	356	ASTX			(   "     )
;	357	HRESET			(   "     )
;	360	EMTER0			(EMT375 17)
;	361	EMTER1			(   "     )
;	362	EMTER2			(   "     )
;	363	EMTER3			(   "     )
;	364	EMTER4			(   "     )
;	365	EMTER5			(   "     )
;	366-372	added errors?		(   "     )
;	373	CALLK
;	374	R0 argument(s)
;	375	@R0 arguments
;	376	Error
;	377	NOP
.Page
;	EMT 374 code
;	------------
;	00	WAIT
;	01	SPND
;	02	RSUM
;	03	PURGE
;	04	SERR
;	05	HERR
;	06	CLOSE
;	07	TLOCK
;	10	CHAIN
;	11	MWAIT
;	12	DATE
;	13	ABTIO
;
;EMT 375 code
;------------
;	chan	00	01	02	03	04	05	06	07	10
;00	DELETe	x	x	x	x	x	x	x	x	x
;01	LOOKUp	x	x	x	x	x	x	x	x	x
;02	ENTER	x	x	x	x	x	x	x	x	x
;03		TRPSEt	SIOT
;04	RENAMe	x	x	x	x	x	x	x	x	x
;05	SAVEStatus x	x	x	x	x	x	x	x	x
;06	REOPEn	x	x	x	x	x	x	x	x	x
;07	CLOS?	x	x	x	x	x	x	x	x	x
;10	READ_	x	x	x	x	x	x	x	x	x
;11	WRIT_	x	x	x	x	x	x	x	x	x
;12	WAIT?	x	x	x	x	x	x	x	x	x
;13	CHCOPy	x	x	x	x	x	x	x	x	x
;14	DEVICe	nolink	link
;15	CDFN
;16	16 group
;17	internal error
;20	GTJB	V3	V4+
;21	GTIM
;22	MRKT
;23	CMKT
;24	TWAIT
;25	SDAT_
;26	RCVD_
;27	CSTAT	x	x	x	x	x	x	x	x	x
;30	SFPA
;31		PROTEct UNPROtect
;32	SPFUN	x	x	x	x	x	x	x	x	x
;33	CNTXSw
;34		GVAL	PEEK	PVAL	POKE	PVA/BIC	POK/BIC	PVA/BIS	POK/BIS
;35	SCCA	local	global
;36		CRAW	CRRG	ELAW	ELRG	GMCX	MAP	UNMAP
;37		MTATCh	MTDTCh	MTGET	MTIN	MTOUT	MTPRNt	MTRCTo	MTSET	MTSTAt
;40	SDTTM
;41	SPCPS
;42	SFDAT	x	x	x	x	x	x	x	x	x
;43	FPROT	x	x	x	x	x	x	x	x	x
;44	xFxxx	x	x	x	x	x	x	x	x	x
;45	CLOSZ	x	x	x	x	x	x	x	x	x
;46	CMAP
;46	GCMAP
;46	MSDS
;-
.Page
.MACRO	.EMTDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	..1DEL	<^o000>	;EMT 000-017 V1 DELETE
	.EQU	..1LOO	<^o020>	;EMT 020-037 V1 LOOKUP
	.EQU	..1ENT	<^o040>	;EMT 040-057 V1 ENTER
;	.EQU	..1TRP	<^o060>	;EMT 060     V1 TRPSET
	.EQU	..1REN	<^o100>	;EMT 100-117 V1 RENAME
	.EQU	..1SAV	<^o120>	;EMT 120-137 V1 SAVESTATUS
	.EQU	..1REO	<^o140>	;EMT 140-157 V1 REOPEN
	.EQU	..1CLO	<^o160>	;EMT 160-177 V1 CLOSE
	.EQU	..1REA	<^o200>	;EMT 200-217 V1 READ
	.EQU	..1WRI	<^o220>	;EMT 220-237 V1 READ
	.EQU	..1WAI	<^o240>	;EMT 240-257 V1 WAIT
;	.EQU	..1CHC	<^o260>	;EMT 260-277 V1 CHCOPY
;	.EQU	..1DEV	<^o300>	;EMT 300-301 V1 DEVICE
;	.EQU	..1CDF	<^o320>	;EMT 320     V1 CDFN
	.EQU	...TTI	<^o340>	;EMT 340 -- TTYIN/TTINR
	.EQU	...TTO	<^o341>	;EMT 341 -- TTYOUT/TTOUTR
	.EQU	...DST	<^o342>	;EMT 342 -- DSTATUS
	.EQU	...FET	<^o343>	;EMT 343 -- FETCH
	.EQU	...REL	...FET	;EMT 343 -- RELEASE
	.EQU	...CSG	<^o344>	;EMT 344 -- CSIGEN
	.EQU	...CSS	<^o345>	;EMT 345 -- CSISPC
	.EQU	...GTL	...CSS	;EMT 345 -- GTLIN
	.EQU	...LOC	<^o346>	;EMT 346 -- LOCK
	.EQU	...UNL	<^o347>	;EMT 347 -- UNLOCK
	.EQU	...EXI	<^o350>	;EMT 350 -- EXIT
	.EQU	...PRI	<^o351>	;EMT 351 -- PRINT
	.EQU	...SRE	<^o352>	;EMT 352 -- SRESET
	.EQU	...QSE	<^o353>	;EMT 353 -- QSET
	.EQU	...SET	<^o354>	;EMT 354 -- SETTOP
	.EQU	...RCT	<^o355>	;EMT 355 -- RCTRLO
	.EQU	...AST	<^o356>	;EMT 356 -- ASTX
	.EQU	...HRE	<^o357>	;EMT 357 -- HRESET
	.EQU	...ER0	<^o360>	;EMT 360 -- EMTER0
	.EQU	...ER1	<^o361>	;EMT 361 -- EMTER1
	.EQU	...ER2	<^o362>	;EMT 362 -- EMTER2
	.EQU	...ER3	<^o363>	;EMT 363 -- EMTER3
	.EQU	...ER4	<^o364>	;EMT 364 -- EMTER4
	.EQU	...ER5	<^o365>	;EMT 365 -- EMTER5
	.EQU	...ER6	<^o366>	;EMT 366 -- EMTER6
;	.EQU		<^o367--372> ;added errors?
	.EQU	...CAL	<^o373>	;EMT 373 -- CALLK
	.EQU	...R0	<^o374>	;EMT 374 -- R0 argument(s)
	.EQU	...AR0	<^o375>	;EMT 375 -- @R0 arguments
	.EQU	...ERR	<^o376>	;EMT 376 -- Error
	.EQU	...NOP	<^o377>	;EMT 377 -- NOP
.Page
	.EQU	.WAIT	<^o000>	;EMT 374, Code 0
	.EQU	.SPND	<^o001>	;EMT 374, Code 1
	.EQU	.RSUM	<^o002>	;EMT 374, Code 2
	.EQU	.PURGE	<^o003>	;EMT 374, Code 3
	.EQU	.SERR	<^o004>	;EMT 374, Code 4
	.EQU	.HERR	<^o005>	;EMT 374, Code 5
	.EQU	.CLOSE	<^o006>	;EMT 374, Code 6
	.EQU	.TLOCK	<^o007>	;EMT 374, Code 7
	.EQU	.CHAIN	<^o010>	;EMT 374, Code 10
	.EQU	.MWAIT	<^o011>	;EMT 374, Code 11
	.EQU	.DATE	<^o012>	;EMT 374, Code 12
	.EQU	.ABTIO	<^o013>	;EMT 374, Code 13
	.EQU	.DELETe	<^o000>	;EMT 375, Code 0
	.EQU	.LOOKUp	<^o001>	;EMT 375, Code 1
	.EQU	.ENTER	<^o002>	;EMT 375, Code 2
	.EQU	.TRPSEt	<^o003>	;EMT 375, Code 3
	.EQU	.RENAMe	<^o004>	;EMT 375, Code 4
	.EQU	.SAVEStatus <^o005> ;EMT 375, Code 5
	.EQU	.REOPEn	<^o006>	;EMT 375, Code 6
	.EQU	.CLOSx	<^o007>	;EMT 375, Code 7
	.EQU	.READ	<^o010>	;EMT 375, Code 10
	.EQU	.READC	.READ	;EMT 375, Code 10
	.EQU	.READW	.READ	;EMT 375, Code 10
	.EQU	.WRITC	<^o011>	;EMT 375, Code 11
	.EQU	.WRITE	.WRITC	;EMT 375, Code 11
	.EQU	.WRITW	.WRITC	;EMT 375, Code 11
	.EQU	.WAITx	<^o012>	;EMT 375, Code 12
	.EQU	.CHCOPy	<^o013>	;EMT 375, Code 13
	.EQU	.DEVICe	<^o014>	;EMT 375, Code 14
	.EQU	.CDFN	<^o015>	;EMT 375, Code 15
;	.EQU		<^o016>	;EMT 16 group
;	.EQU		<^o017>	;EMT internal error
	.EQU	.GTJB	<^o020>	;EMT 375, Code 20
	.EQU	.GTIM	<^o021>	;EMT 375, Code 21
	.EQU	.MRKT	<^o022>	;EMT 375, Code 22
	.EQU	.CMKT	<^o023>	;EMT 375, Code 23
	.EQU	.TWAIT	<^o024>	;EMT 375, Code 24
	.EQU	.SDAT	<^o025>	;EMT 375, Code 25
	.EQU	.SDATC	.SDAT	;EMT 375, Code 25
	.EQU	.SDATW	.SDAT	;EMT 375, Code 25
	.EQU	.RCVD	<^o026>	;EMT 375, Code 26
	.EQU	.RCVDC	.RCVD	;EMT 375, Code 26
	.EQU	.RCVDW	.RCVD	;EMT 375, Code 26
	.EQU	.CSTAT	<^o027>	;EMT 375, Code 27
	.EQU	.SFPA	<^o030>	;EMT 375, Code 30
	.EQU	.PROTEct <^o031> ;EMT 375, Code 31
	.EQU	.UNPROtect .PROTE ;EMT 375, Code 31
	.EQU	.SPFUN	<^o032>	;EMT 375, Code 32
	.EQU	.CNTXSw	<^o033>	;EMT 375, Code 33
	.EQU	.GVAL	<^o034>	;EMT 375, Code 34
	.EQU	.PEEK	.GVAL	;EMT 375, Code 34
	.EQU	.POKE	.GVAL	;EMT 375, Code 34
	.EQU	.PVAL	.GVAL	;EMT 375, Code 34
.Page
	.EQU	.SCCA	<^o035>	;EMT 375, Code 35
	.EQU	.CRAW	<^o036>	;EMT 375, Code 36
	.EQU	.CRRG	.CRAW	;EMT 375, Code 36
	.EQU	.ELAW	.CRAW	;EMT 375, Code 36
	.EQU	.ELRG	.CRAW	;EMT 375, Code 36
	.EQU	.GMCX	.CRAW	;EMT 375, Code 36
	.EQU	.MAP	.CRAW	;EMT 375, Code 36
	.EQU	.UNMAP	.CRAW	;EMT 375, Code 36
	.EQU	.MTATCh	<^o037>	;EMT 375, Code 37
	.EQU	.MTDTCh	.MTATCh	;EMT 375, Code 37
	.EQU	.MTGET	.MTATCh	;EMT 375, Code 37
	.EQU	.MTIN	.MTATCh	;EMT 375, Code 37
	.EQU	.MTOUT	.MTATCh	;EMT 375, Code 37
	.EQU	.MTPRNt	.MTATCh	;EMT 375, Code 37
	.EQU	.MTRCTo	.MTATCh	;EMT 375, Code 37
	.EQU	.MTSET	.MTATCh	;EMT 375, Code 37
	.EQU	.MTSTAt	.MTATCh	;EMT 375, Code 37
	.EQU	.SDTTM	<^o040>	;EMT 375, Code 40
	.EQU	.SPCPS	<^o041>	;EMT 375, Code 41
	.EQU	.SFDAT	<^o042>	;EMT 375, Code 42
	.EQU	.FPROT	<^o043>	;EMT 375, Code 43
	.EQU	.GFINF	<^o044>	;EMT 375, Code 44
	.EQU	.GFSTA	.GFINF	;EMT 375, Code 44
	.EQU	.GFDAT	.GFINF	;EMT 375, Code 44
	.EQU	.SFINF	.GFINF	;EMT 375, Code 44
	.EQU	.SFSTA	.GFINF	;EMT 375, Code 44
	.EQU	.CLOSZ	<^o045>	;EMT 375, Code 45
	.EQU	.CMAP	<^o046>	;EMT 375, Code 46
	.EQU	.GCMAP	.CMAP	;EMT 375, Code 46
	.EQU	.MSDS	.CMAP	;EMT 375, Code 46
	.EQU	..DNLK	<^o000>	;EMT 375, Code 14, Subcode 0 (non-linking)
	.EQU	..DLNK	<^o001>	;EMT 375, Code 14, Subcode 1 (linking)
	.EQU	..PROTect <^o000> ;EMT 375, Code 31, Subcode 0
	.EQU	..UNPRotect <^o001> ;EMT 375, Code 31, Subcode 1
	.EQU	..LSCCa	<^o000>	;EMT 375, Code 35, Subcode 0 (local)
	.EQU	..GSCCa	<^o001>	;EMT 375, Code 35, Subcode 1 (global)
	.EQU	..CRRG	<^o000>	;EMT 375, Code 36, Subcode 0
	.EQU	..ELRG	<^o001>	;EMT 375, Code 36, Subcode 1
	.EQU	..CRAW	<^o002>	;EMT 375, Code 36, Subcode 2
	.EQU	..ELAW	<^o003>	;EMT 375, Code 36, Subcode 3
	.EQU	..MAP	<^o004>	;EMT 375, Code 36, Subcode 4
	.EQU	..UNMAp	<^o005>	;EMT 375, Code 36, Subcode 5
	.EQU	..GMCX	<^o006>	;EMT 375, Code 36, Subcode 6
	.EQU	..GTNO	<^o000>	;EMT 375, Code 20, Subcode 0
	.EQU	..GTJB	<^o001>	;EMT 375, Code 20, Subcode 1
	.EQU	..GTME	<^o-1>	;EMT 375, Code 20, selection -1
	.EQU	..GTV3	<^o-3>	;EMT 375, Code 20, selection -3
	.EQU	..GTIS	<^o000>	;EMT 345, GTLIN flag
	.EQU	..GTAT	<^o001>	;EMT 345, GTLIN, subcode for standard action
	.EQU	..GTTT	<^o003>	;EMT 345, GTLIN, subcode for TT always action
	.EQU	..GVAL	<^o000>	;EMT 375, Code 34, Subcode 0
	.EQU	..PEEK	<^o001>	;EMT 375, Code 34, Subcode 1
	.EQU	..PVAL	<^o002>	;EMT 375, Code 34, Subcode 2
	.EQU	..POKE	<^o003>	;EMT 375, Code 34, Subcode 3
	.EQU	..BICV	<^o004>	;EMT 375, Code 34, Subcode 4	(PVAL/BIC)
	.EQU	..BICO	<^o005>	;EMT 375, Code 34, Subcode 5	(POKE/BIC)
	.EQU	..BISV	<^o006>	;EMT 375, Code 34, Subcode 6	(PVAL/BIS)
	.EQU	..BISO	<^o007>	;EMT 375, Code 34, Subcode 7	(POKE/BIS)
.Page
	.EQU	..MTSEt	<^o000>	;EMT 375, Code 37, Subcode 0
	.EQU	..MTGEt	<^o001>	;EMT 375, Code 37, Subcode 1
	.EQU	..MTIN	<^o002>	;EMT 375, Code 37, Subcode 2
	.EQU	..MTOUt	<^o003>	;EMT 375, Code 37, Subcode 3
	.EQU	..MTRCto <^o004> ;EMT 375, Code 37, Subcode 4
	.EQU	..MTATch <^o005> ;EMT 375, Code 37, Subcode 5
	.EQU	..MTDTch <^o006> ;EMT 375, Code 37, Subcode 6
	.EQU	..MTPRnt <^o007> ;EMT 375, Code 37, Subcode 7
	.EQU	..MTSTat <^o010> ;EMT 375, Code 37, Subcode 10
	.EQU	..GETF	<^o000>	;EMT375, Code 44, operation code 0 (.GFxxx)
	.EQU	..BICF	<^o001>	;EMT375, Code 44, operation code 1 (.SFxxx)
	.EQU	..BISF	<^o002>	;EMT375, Code 44, operation code 2 (.SFxxx)
	.EQU	..MOVF	<^o003>	;EMT375, Code 44, operation code 3 (.SFxxx)
	.EQU	..ISIO	<^o001>	;EMT375, I/O, issue i/o completion value
	.EQU	..WTIO	<^o000>	;EMT375, I/O, wait i/o completion value
	.EQU	..ISPA	<^o020> ;EMT375, I/O mapping, I space
	.EQU	..DSPA	<^o000> ;EMT375, I/O mapping, D space
	.EQU	..USER	<^o000> ;EMT375, I/O mapping, User mode
	.EQU	..SUPY	<^o004> ;EMT375, I/O mapping, Supy mode
	.EQU	..CURR	<^o010> ;EMT375, I/O mapping, Current mode
	.EQU	..CSUP	<^o001> ;EMT375, I/O completion mapping, Supy mode
	.EQU	..SPFV	<^o377>	;EMT375, Code 26, required value
.ENDM	.EMTDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.EMTDF
.PRINT ;.EMTDF
	.EMTDF	YES,==:
.Page
.Assume	..1DEL	EQ	000
.Assume	..1LOO	EQ	<^o020>
.Assume	..1ENT	EQ	<^o040>
;.Assume ..1TRP	EQ	<^o060>
.Assume	..1REN	EQ	<^o100>
.Assume	..1SAV	EQ	<^o120>
.Assume	..1REO	EQ	<^o140>
.Assume	..1CLO	EQ	<^o160>
.Assume	..1REA	EQ	<^o200>
.Assume	..1WRI	EQ	<^o220>
.Assume	..1WAI	EQ	<^o240>
;.Assume ..1CHC	EQ	<^o260>
;.Assume ..1DEV	EQ	<^o300>
;.Assume ..1CDF	EQ	<^o320>
.Assume	...TTI	EQ	<^o340>
.Assume	...TTO	EQ	<^o341>
.Assume	...DST	EQ	<^o342>
.Assume	...FET	EQ	<^o343>
.Assume	...REL	EQ	...FET
.Assume	...CSG	EQ	<^o344>
.Assume	...CSS	EQ	<^o345>
.Assume	...GTL	EQ	...CSS
.Assume	...LOC	EQ	<^o346>
.Assume	...UNL	EQ	<^o347>
.Assume	...EXI	EQ	<^o350>
.Assume	...PRI	EQ	<^o351>
.Assume	...SRE	EQ	<^o352>
.Assume	...QSE	EQ	<^o353>
.Assume	...SET	EQ	<^o354>
.Assume	...RCT	EQ	<^o355>
.Assume	...AST	EQ	<^o356>
.Assume	...HRE	EQ	<^o357>
.Assume	...ER0	EQ	<^o360>
.Assume	...ER1	EQ	<^o361>
.Assume	...ER2	EQ	<^o362>
.Assume	...ER3	EQ	<^o363>
.Assume	...ER4	EQ	<^o364>
.Assume	...ER5	EQ	<^o365>
.Assume	...ER6	EQ	<^o366>
.Assume	...CAL	EQ	<^o373>
.Assume	...R0	EQ	<^o374>
.Assume	...AR0	EQ	<^o375>
.Assume	...ERR	EQ	<^o376>
.Assume	...NOP	EQ	<^o377>
.Page
.Assume	.WAIT	EQ	00
.Assume	.SPND	EQ	01
.Assume	.RSUM	EQ	<^o02>
.Assume	.PURGE	EQ	<^o03>
.Assume	.SERR	EQ	<^o04>
.Assume	.HERR	EQ	<^o05>
.Assume	.CLOSE	EQ	<^o06>
.Assume	.TLOCK	EQ	<^o07>
.Assume	.CHAIN	EQ	<^o10>
.Assume	.MWAIT	EQ	<^o11>
.Assume	.DATE	EQ	<^o12>
.Assume	.ABTIO	EQ	<^o13>
.Assume	.DELETe	EQ	00
.Assume	.LOOKUp	EQ	01
.Assume	.ENTER	EQ	<^o02>
.Assume	.TRPSEt	EQ	<^o03>
.Assume	.RENAMe	EQ	<^o04>
.Assume	.SAVEStatus EQ	<^o05>
.Assume	.REOPEn	EQ	<^o06>
.Assume	.CLOSx	EQ	<^o07>
.Assume	.READ	EQ	<^o10>
.Assume	.READC	EQ	.READ
.Assume	.READW	EQ	.READ
.Assume	.WRITC	EQ	<^o11>
.Assume	.WRITE	EQ	.WRITC
.Assume	.WRITW	EQ	.WRITC
.Assume	.WAITx	EQ	<^o12>
.Assume	.CHCOPy	EQ	<^o13>
.Assume	.DEVICe	EQ	<^o14>
.Assume	.CDFN	EQ	<^o15>
.Assume	.GTJB	EQ	<^o20>
.Assume	.GTIM	EQ	<^o21>
.Assume	.MRKT	EQ	<^o22>
.Assume	.CMKT	EQ	<^o23>
.Assume	.TWAIT	EQ	<^o24>
.Assume	.SDAT	EQ	<^o25>
.Assume	.SDATC	EQ	.SDAT
.Assume	.SDATW	EQ	.SDAT
.Assume	.RCVD	EQ	<^o26>
.Assume	.RCVDC	EQ	.RCVD
.Assume	.RCVDW	EQ	.RCVD
.Assume	.CSTAT	EQ	<^o27>
.Assume	.SFPA	EQ	<^o30>
.Page
.Assume	.PROTEct EQ	<^o31>
.Assume	.UNPROtect EQ	<^o31>
.Assume	.SPFUN	EQ	<^o32>
.Assume	.CNTXSw	EQ	<^o33>
.Assume	.GVAL	EQ	<^o34>
.Assume	.PEEK	EQ	.GVAL
.Assume	.POKE	EQ	.GVAL
.Assume	.PVAL	EQ	.GVAL
.Assume	.SCCA	EQ	<^o35>
.Assume	.CRAW	EQ	<^o36>
.Assume	.CRRG	EQ	.CRAW
.Assume	.ELAW	EQ	.CRAW
.Assume	.ELRG	EQ	.CRAW
.Assume	.GMCX	EQ	.CRAW
.Assume	.MAP	EQ	.CRAW
.Assume	.UNMAP	EQ	.CRAW
.Assume	.MTATCh	EQ	<^o37>
.Assume	.MTDTCh	EQ	.MTATCh
.Assume	.MTGET	EQ	.MTATCh
.Assume	.MTIN	EQ	.MTATCh
.Assume	.MTOUT	EQ	.MTATCh
.Assume	.MTPRNt	EQ	.MTATCh
.Assume	.MTRCTo	EQ	.MTATCh
.Assume	.MTSET	EQ	.MTATCh
.Assume	.MTSTAt	EQ	.MTATCh
.Assume	.SDTTM	EQ	<^o40>
.Assume	.SPCPS	EQ	<^o41>
.Assume	.SFDAT	EQ	<^o42>
.Assume	.FPROT	EQ	<^o43>
.Assume	.GFINF	EQ	<^o44>
.Assume	.GFSTA	EQ	<^o44>
.Assume	.GFDAT	EQ	<^o44>
.Assume	.SFINF	EQ	<^o44>
.Assume	.SFSTA	EQ	<^o44>
.Assume	.CLOSZ	EQ	<^o45>
.Assume	.CMAP	EQ	<^o46>
.Assume	.GCMAP	EQ	<^o46>
.Assume	.MSDS	EQ	<^o46>
.Assume	..LSCCa	EQ	00
.Assume	..GSCCa	EQ	01
.Assume	..DNLK	EQ	00
.Assume	..DLNK	EQ	01
.Assume	..PROTect EQ	00
.Assume	..UNPRotect EQ	01
.Assume	..LSCCa	EQ	00
.Assume	..GSCCa	EQ	01
.Assume	..CRRG	EQ	00
.Assume	..ELRG	EQ	01
.Assume	..CRAW	EQ	<^o02>
.Assume	..ELAW	EQ	<^o03>
.Assume	..MAP	EQ	<^o04>
.Assume	..UNMAp	EQ	<^o05>
.Assume	..GMCX	EQ	<^o06>
.Assume ..GTNO	EQ	00
.Assume	..GTJB	EQ	01
.Assume	..GTME	EQ	-1
.Assume ..GTV3	EQ	<^o-3>
.Assume ..GTIS	EQ	<^o000>
.Assume	..GTAT	EQ	<^o001>
.Assume	..GTTT	EQ	<^o003>
.Assume	..GVAL	EQ	00
.Assume	..PEEK	EQ	01
.Assume	..PVAL	EQ	<^o02>
.Assume	..POKE	EQ	<^o03>
.Assume	..BICV	EQ	<^o04>
.Assume	..BICO	EQ	<^o05>
.Assume	..BISV	EQ	<^o06>
.Assume	..BISO	EQ	<^o07>
.Page
.Assume	..MTSEt	EQ	00
.Assume	..MTGEt	EQ	01
.Assume	..MTIN	EQ	<^o02>
.Assume	..MTOUt	EQ	<^o03>
.Assume	..MTRCto EQ	<^o04>
.Assume	..MTATch EQ	<^o05>
.Assume	..MTDTch EQ	<^o06>
.Assume	..MTPRnt EQ	<^o07>
.Assume	..MTSTat EQ	<^o10>
.Assume	..GETF	EQ	<^o000>
.Assume	..BICF	EQ	<^o001>
.Assume	..BISF	EQ	<^o002>
.Assume	..MOVF	EQ	<^o003>
.Assume	..ISIO	EQ	<^o001>
.Assume	..WTIO	EQ	<^o000>
.Assume	..ISPA	EQ	<^o020>
.Assume	..DSPA	EQ	<^o000>
.Assume	..USER	EQ	<^o000>
.Assume	..SUPY	EQ	<^o004>
.Assume	..CURR	EQ	<^o010>
.Assume	..CSUP	EQ	<^o001>
.Assume	..SPFV	EQ	<^o377>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.EPTDF	-- Object library entry point table entry
;+
;	.EPTDF
;
;	+-------+-------+-------+-------+
;EPT.SY:|				|[000]	Symbol name in RAD50
;	++------+-------+-------+-------+			EPT.TI=100000
;EPT.BK	||		|[004]			Block number & flag
;	++-----++-------+					EPT.BM=077777
;EPT.BY:| <res>|	|[006]			Byte offset & reserved
;	+------++-------+					EPT.0M=000777
;EPT.SZ:		 [010]			entry size
;-
.MACRO	.EPTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	EPT.SY	2	;Global symbol Title, or PSect name in RAD50
	.DS	EPT.BK		;Block number and flag word
	.EQU	EPT.TI	<^o100000> ;On in EPT.BK if EPT.SY is title entry
	.EQU	EPT.BM	<^o077777> ;mask for block number part
	.DS	EPT.BY		;Byte offset and reserved area
	.EQU	EPT.OM	<^o000777> ;mask for byte offset part
	.DS	EPT.SZ	0	;size of an entry
.ENDM	.EPTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.EPTDF
.PRINT ;.EPTDF
	.EPTDF	YES,==:
.Assume	EPT.SY	EQ	<^o000000>
.Assume	EPT.BK	EQ	<^o000004>
.Assume	EPT.TI	EQ	<^o100000>
.Assume	EPT.BM	EQ	<^o077777>
.Assume	EPT.BY	EQ	<^o000006>
.Assume	EPT.OM	EQ	<^o000777>
.Assume	EPT.SZ	EQ	<^o000010>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ERMDF	-- define magtape handler SPFUN error/status codes
;+
;	.ERMDF
;
;	The following table shows which of the magtape SPFUN error codes
;	are returned for each of the magtape SPFUN values.  The 3 letter
;	abbreviations (prefixed by 'EM.') form the symbol name for each
;	error code.  These error codes qualify the generic EOF or Hard
;	error (stored in $ERRBY, see .ERRDF) and are returned to the
;	user in the first word of the error/status block (see .ESBDF).
;
;
;	 EOF (ERRBYT=ER.EOF=0)	HARD Error (ERRBYT=ER.HRD=1)
;
;	    EOF EOT EFT BOT	 DRV OFL POS NXM WLK BIG SML	<= abbreviation
; SPFUN	     1   2   3   4	  0   1   2   3   4   5   6	<= error code
; -----   -------------------	-----------------------------
;  370	     X   X   X            X   X   X   X       X   X	Read
;  371	     X   X   X            X   X   X   X   X		Write
;  372	                          X   X				Rew. & offline
;  373	                          X   X				Rewind to BOT
;  374	     X   X   X            X   X   X   X   X		Wrt w/Ext. Gap
;  375	     X   X   X   X        X   X   X			Backward space
;  376	     X   X   X            X   X   X			Forward space
;  377	     X                    X   X   X       X		Write tape mark
;
;
;	Error codes for the USR SPFUN (#354: asynchronous LOOKUP/ENTER)
;	are the same as those for standard LOOKUP/ENTER EMTs (defined
;	in .ERRDF), and are returned in $ERRBYT.
;-
.Page
.MACRO	.ERMDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;Magtape handler SPFUN error/status codes
; Error codes for ERRBYT = ER.EOF = 0 (EOF err)
	.EQU	EM.EOF	1	;Tape before EOF (tape mark detected)
	.EQU	EM.EOT	2	;Tape before EOT (no tape mark detected)
	.EQU	EM.EFT	3	;Tape before EOT and EOF (tape mark detected)
	.EQU	EM.BOT	4	;Tape before BOT (no tape mark detected)
; Error codes for ERRBYT = ER.HRD = 1 (hard err)
	.EQU	EM.DRV	0	;Drive dependent error (no additional info)
	.EQU	EM.OFL	1	;Tape drive unavailable/offline
	.EQU	EM.POS	2	;Controller lost tape position
	.EQU	EM.NXM	3	;Non-existent memory accessed
	.EQU	EM.WLK	4	;Tape is write locked
	.EQU	EM.BIG	5	;Block read had more data than requested
	.EQU	EM.SML	6	;Block read had less data than requested
.ENDM	.ERMDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ERMDF
.PRINT ;.ERMDF
	.ERMDF	YES,==:

.Assume	EM.EOF	EQ	<^o1>
.Assume	EM.EOT	EQ	<^o2>
.Assume	EM.EFT	EQ	<^o3>
.Assume	EM.BOT	EQ	<^o4>
.Assume	EM.DRV	EQ	0
.Assume	EM.OFL	EQ	<^o1>
.Assume	EM.POS	EQ	<^o2>
.Assume	EM.NXM	EQ	<^o3>
.Assume	EM.WLK	EQ	<^o4>
.Assume	EM.BIG	EQ	<^o5>
.Assume	EM.SML	EQ	<^o6>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ERNDF	-- define Ethernet handler SPFUN error codes/subcodes
;+
;	.ERNDF
;
;	The following table shows which of the Ethernet SPFUN error codes
;	are returned for each of the Ethernet SPFUN values.  The 3 letter
;	abbreviations (prefixed by 'EN.') form the symbol name for each
;	error code.  These error codes are returned to the user in the
;	low order byte of the status (first) word of the user's buffer.
;	For all SPFUN errors except EN.XMT (transmit), and EN.ABO (<unused>
;	receive aborting) the high order byte is 0, which allows the user
;	to access the status as a word value.  For the EN.XMT/EN.ABO codes,
;	the high order byte is a subcode further catagorizing the error.
;
;
;		     0   1   2   3   4   5   6   7  10  11  12  13  14  15  16
; SPFUN	Descript.   SUC UNK CHN RES TRU NON EXC IMP PRO ACT INC XMT RLN INV ABO
; ----------------  --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
;  200 Allocate	Unit X       X   X           X
;   "  Dealloc. Unit X   X   X   X                       X
;  201 Ena Promisc.  X   X   X   X           X
;   "  Dis Promisc.  X   X   X   X                   X
;  202 Ena Protocol  X   X   X   X                   X
;   "  Dis Protocol  X   X   X   X
;  203 Ena Multicast X   X   X   X
;   "  Dis Multicast X   X   X   X
;  204 Transmit Frm. X   X   X   X                               X
;  205 Receive Frame X   X   X   X   X
;-
.Page
.MACRO	.ERNDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;Ethernet handler SPFUN error codes/subcodes
	.EQU	EN.SUC	0	;Successfully completed
	.EQU	EN.UNK	<^o1>	;Unknown unit
	.EQU	EN.CHN	<^o2>	;Channel not on (controller error)
	.EQU	EN.RES	<^o3>	;No resources (not owned, addr./protocol error)
	.EQU	EN.TRU	<^o4>	;Received frame truncated
;	.EQU	EN.NON	<^o5>	;<unused> None outstanding
	.EQU	EN.EXC	<^o6>	;Promiscuous receiver active
;	.EQU	EN.IMP	<^o7>	;<unused> Not implemented
	.EQU	EN.PRO	<^o10>	;Protocol type already in use
	.EQU	EN.ACT	<^o11>	;Unit still active (I/O outstanding)
;	.EQU	EN.INC	<^o12>	;<unused> (Operation?) Incomplete
	.EQU	EN.XMT	<^o13>	;Transmit Frame failed
		.EQU	ENX.FL	<^o1>	;Frame length error (too short/long)
		.EQU	ENX.BC	<^o2>	;Excessive collisions
		.EQU	ENX.FE	<^o3>	;Carrier check failure
;		.EQU	ENX.FL	<^o4>	;<unused> Short circuit
;		.EQU	ENX.BC	<^o5>	;<unused> Open circuit
;		.EQU	ENX.FE	<^o6>	;<unused> Remote failure to defer
;	.EQU	EN.RLN	<^o14>	;<unused> Receive length error
;	.EQU	EN.INV	<^o15>	;<unused> Receive invalid data
;	.EQU	EN.ABO	<^o16>	;<unused> Receive aborting
;		.EQU	ENR.FL	<^o1>	;<unused> Frame too long
;		.EQU	ENR.BC	<^o2>	;<unused> Block check error
;		.EQU	ENR.FE	<^o3>	;<unused> Framing error
.ENDM	.ERNDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ERNDF
.PRINT ;.ERNDF
	.ERNDF	YES,==:

.Assume	EN.SUC	EQ	0
.Assume	EN.UNK	EQ	<^o1>
.Assume	EN.CHN	EQ	<^o2>
.Assume	EN.RES	EQ	<^o3>
.Assume	EN.TRU	EQ	<^o4>
;.Assume EN.NON	EQ	<^o5>
.Assume	EN.EXC	EQ	<^o6>
;.Assume EN.IMP	EQ	<^o7>
.Assume	EN.PRO	EQ	<^o10>
.Assume	EN.ACT	EQ	<^o11>
;.Assume EN.INC	EQ	<^o12>
.Assume	EN.XMT	EQ	<^o13>
.Assume	ENX.FL	EQ	<^o1>
.Assume	ENX.BC	EQ	<^o2>
.Assume	ENX.FE	EQ	<^o3>
;.Assume ENX.FL	EQ	<^o4>
;.Assume ENX.BC	EQ	<^o5>
;.Assume ENX.FE	EQ	<^o6>
;.Assume EN.RLN	EQ	<^o14>
;.Assume EN.INV	EQ	<^o15>
;.Assume EN.ABO	EQ	<^o16>
;.Assume ENR.FL	EQ	<^o1>
;.Assume ENR.BC	EQ	<^o2>
;.Assume ENR.FE	EQ	<^o3>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ERRDF	-- define error codes in ERRBYT
;+
;	.ERRDF
;
;
;	The following chart is a cross reference of the error byte
;	values and the assigned symbol (to be prefixed with "ER.")
;	for each of the EMTs that return an error indication.
;
; EMT	 0   1	 2   3	 4   5	 6   7	 10  11	 12  13	 14  15  16  17
;------	--- ---	--- ---	--- --- --- --- --- --- --- --- --- --- --- ---
;.CDFN	CHN
;.CHCOP	CHN OCH
;.CLOSE		    PRO
;.CLOSZ     EXT NEN PRO
;.CMKT	INF
;.CNTXS	ADR
;.CRAW	WAL PAR	RID	OVR					    IMS
;.CRRG				NRC MEM	RSZ	GNF NGC	    PVT RAL
;.CSIGE	CMD DNC	PRE FUC	FNC
;.CSISP	CMD DNC
;.CSTAT	CHN
;.DELET	CHN FNF	OPE PRO
;.DSTAT DEV
;.ELAW	WID							    IMS
;.ELRG	RID				    DEA		GIU
;.ENTER	CHN FUL SHR PRO NNF ISN IUN
;.FETCH	DEV
;.FPROT	CHN FNF OPE IPV
;.GFDAT	CHN FNF OPE DOF
;.GFINF	CHN FNF OPE DOF
;.GFSTA CHN FNF OPE DOF
;.GMCX		    WID						    IMS
;.GTJB	NJB
;.GTLIN	CMD
;.GVAL	HI  BAD
;.LOOKU	CHN FNF SHR	    ISN IUN
;.MAP		RID WID OVR					    IMS
;.MRCVD	NJB
;.MRCVC NJB
;.MRCVW NJB
;.MREAD	EOF HRD CHC
;.MREAC	EOF HRD CHC
;.MREAW	EOF HRD CHC
;.MRKT	NQL
;.MSDAT	NJB
;.MSDAC	NJB
;.MSDAW	NJB
;.MSPFU	EOF HRD CHC
;------	--- ---	--- ---	--- --- --- --- --- --- --- --- --- ---
; EMT	 0   1	 2   3	 4   5	 6   7	 10  11	 12  13	 14  15
.Page
; EMT	 0   1	 2   3	 4   5	 6   7	 10  11	 12  13	 14  15
;------	--- ---	--- ---	--- --- --- --- --- --- --- --- --- ---
;.MTATC		LUN IFC ATT TAD ATH
;.MTDTC	    NAT LUN IFC
;.MTGET	    NAT LUN IFC ATT TAD	ATH
;.MTIN	INP NAT LUN IFC	    TAD
;.MTOUT	OUT NAT LUN IFC	    TAD
;.MTPRN	    NAT LUN IFC	    TAD
;.MTRCT	    NAT LUN IFC
;.MTSET	    NAT LUN IFC	    TAD
;.MTSTA		    IFC	    TAD
;.MWRIT	EOF HRD CHC
;.MWRIC	EOF HRD CHC
;.MWRIW	EOF HRD CHC
;.PROTE	VUI VEC
;.PVAL	HI  BAD
;.RCVD	NJB
;.RCVDC NJB
;.RCVDW NJB
;.READ	EOF HRD CHC
;.READC	EOF HRD CHC
;.READW	EOF HRD CHC
;.RELEA	DEV
;.RENAM	CHN FNF OPE PRO
;.REOPE CHN
;.SAVES CHN ENT
;.SDAT	NJB
;.SDATC	NJB
;.SDATW	NJB
;.SERR	    USR UNL DIO FET OVE DFU IAD ICH EMT		DIR XFE (- codes)
;.SFDAT CHN FNF OPE
;.SFINF	CHN FNF OPE DOF VAL
;.SFSTA CHN FNF OPE DOF VAL
;.SPCPS	MAI SIU
;.SPFUN	EOF HRD CHC
;.TLOCK	UIU
;.TTINR	INP
;.TTOUT OUT
;.TWAIT NQL
;.UNMAP		    WID	    MAP					    IMS
;.UNPRO     VEC
;.WAIT	CHN HRD
;.WRITC	EOF HRD CHC
;.WRITE	EOF HRD CHC
;.WRITW	EOF HRD CHC
;------	--- ---	--- ---	--- --- --- --- --- --- --- --- --- ---	--- ---
; EMT	 0   1	 2   3	 4   5	 6   7	 10  11	 12  13	 14  15	 16  17
;-
.Page
.MACRO	.ERRDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;($ERRBY in .SYCDF)
	.EQU	ER.XFE	<^o-15>	;Fetch not supported in this XM monitor	.SERR
	.EQU	ER.DIR	<^o-14>	;Invalid directory			.SERR
	.EQU	ER.EMT	<^o-11>	;Invalid EMT				.SERR
	.EQU	ER.ICH	<^o-10>	;Invalid channel number			.SERR
	.EQU	ER.IAD	<^o-7>	;Invalid addr				.SERR
	.EQU	ER.DFU	<^o-6>	;Directory full				.SERR
	.EQU	ER.OVE	<^o-5>	;Error reading overlay			.SERR
	.EQU	ER.FET	<^o-4>	;Fetch error				.SERR
	.EQU	ER.DIO	<^o-3>	;Directory I/O error			.SERR
	.EQU	ER.UNL	<^o-2>	;Unloaded handler			.SERR
	.EQU	ER.USR	-1	;USR called from completion		.SERR
	.EQU	ER.ADR	0	;Invalid addr				.CNTXS
	.EQU	ER.CHN	0	;Not enough channels			.CDFN
				;No other job, input channel closed	.CHCOP
				;Channel closed				.CSTAT
				;Channel in use				.DELET
				;Channel in use				.ENTER
				;Channel in use				.FPROT
				;Channel in use				.GFDAT
				;Channel in use				.GFINF
				;Channel in use				.GFSTA
				;Channel in use				.LOOKU
				;Channel in use				.RENAM
				;Channel in use				.REOPE
				;Channel in use				.SAVES
				;Channel in use				.SFDAT
				;Channel in use				.SFINF
				;Channel in use				.SFSTA
				;Channel closed				.WAIT
	.EQU	ER.CMD	0	;Invalid command			.CSIGE
				;Invalid command			.CSISP
				;Line too long				.GTLIN
	.EQU	ER.DEV	0	;Device not found			.DSTAT
				;Device not found			.FETCH
				;Device not found			.RELEA
	.EQU	ER.EOF	0	;End of file				.READ
				;End of file				.READC
				;End of file				.READW
				;End of file				.SPFUN
				;End of file				.WRITC
				;End of file				.WRITE
				;End of file				.WRITW
	.EQU	ER.HI	0	;Offset too high			.GVAL
				;Offset too high			.PVAL
	.EQU	ER.INF	0	;ID not found				.CMKT
	.EQU	ER.MAI	0	;Called from mainline (not completion)	.SPCP
	.EQU	ER.NJB	0	;No such job				.GTJB
				;No other job				.RCVD
				;No other job				.RCVDC
				;No other job				.RCVDW
				;No other job				.SDAT
				;No other job				.SDATC
				;No other job				.SDATW
	.EQU	ER.NQL	0	;No queue element available		.MRKT
				;No queue element available		.TWAIT
	.EQU	ER.INP	0	;No input available			.MTIN
				;No input available			.TTINR
.Page
	.EQU	ER.OUT	0	;Output buffer full			.MTOUT
				;Output buffer full			.TTOUT
	.EQU	ER.UIU	0	;USR in use by another job		.TLOCK
	.EQU	ER.VIU	0	;Vector already protected		.PROTE
	.EQU	ER.WAL	0	;Window alignment error			.CRAW

	.EQU	ER.BAD	1	;Bad address				.GVAL
				;Bad address				.PVAL
	.EQU	ER.DNC	1	;Device not found			.CSIGE
				;Device not found			.CSISP
	.EQU	ER.ENT	1	;Channel opened by .ENTER/MT		.SAVES
	.EQU	ER.EXT	1	;Attempting to extend file		.CLOSZ
	.EQU	ER.FNF	1	;File not found				.DELET
				;File not found				.FPROT
				;File not found				.GFDAT
				;File not found				.GFINF
				;File not found				.GFSTA
				;File not found				.LOOKU
				;File not found				.RENAM
				;File not found				.SFDAT
				;File not found				.SFINF
				;File not found				.SFSTA
	.EQU	ER.FUL	1	;Device full				.ENTER
	.EQU	ER.HRD	1	;Hard error				.READ
				;Hard error				.READC
				;Hard error				.READW
				;Hard error				.SPFUN
				;Hard error				.WAIT
				;Hard error				.WRITC
				;Hard error				.WRITE
				;Hard error				.WRITW
	.EQU	ER.NAT	1	;LUN not attached to this job		.MTDTC
				;LUN not attached to this job		.MTGET
				;LUN not attached to this job		.MTIN
				;LUN not attached to this job		.MTOUT
				;LUN not attached to this job		.MTPRN
				;LUN not attached to this job		.MTRCT
				;LUN not attached to this job		.MTSET
	.EQU	ER.OCH	1	;Output channel in use			.CHCOP
	.EQU	ER.PAR	1	;Too many PARs				.CRAW
	.EQU	ER.SIU	1	;Previous .SPCPS pending		.SPCP
	.EQU	ER.VEC	1	;Invalid vector addr			.PROTE
				;Invalid vector addr			.UNPRO

	.EQU	ER.CHC	<^o2>	;Channel closed				.READ
				;Channel closed				.READC
				;Channel closed				.READW
				;Channel closed				.SPFUN
				;Channel closed				.WRITC
				;Channel closed				.WRITE
				;Channel closed				.WRITW
	.EQU	ER.OPE	<^o2>	;Invalid operation (MT)			.DELET
				;Invalid operation (MT)			.FPROT
				;Invalid operation			.GFDAT
				;Invalid operation			.GFINF
				;Invalid operation			.GFSTA
				;Invalid operation (MT)			.RENAM
				;Invalid operation (MT)			.SFDAT
				;Invalid operation			.SFINF
				;Invalid operation			.SFSTA
.Page
	.EQU	ER.LUN	<^o2>	;Invalid LUN number			.MTATC
				;Invalid LUN number			.MTDTC
				;Invalid LUN number			.MTGET
				;Invalid LUN number			.MTIN
				;Invalid LUN number			.MTOUT
				;Invalid LUN number			.MTPRN
				;Invalid LUN number			.MTRCT
				;Invalid LUN number			.MTSET
	.EQU	ER.NEN	<^o2>	;Channel not opened by .ENTER		.CLOSZ
	.EQU	ER.PRE	<^o2>	;Protected file exists			.CSIGE
	.EQU	ER.RID	<^o2>	;Invalid Region ID			.CRAW
				;Invalid Region ID			.ELRG
				;Invalid region ID			.MAP
	.EQU	ER.SHR	<^o2>	;Non-sharable device unavailable	.ENTER
				;Non-sharable device unavailable	.LOOKU

	.EQU	ER.DOF	<^o3>	;Invalid directory offset		.GFDAT
				;Invalid directory offset		.GFINF
				;Invalid directory offset		.GFSTA
				;Invalid directory offset		.SFINF
				;Invalid directory offset		.STSTA
	.EQU	ER.FUC	<^o3>	;Device full				.CSIGE
	.EQU	ER.IFC	<^o3>	;Invalid function code			.MTATC
				;Invalid function code			.MTDTC
				;Invalid function code			.MTGET
				;Invalid function code			.MTIN
				;Invalid function code			.MTOUT
				;Invalid function code			.MTPRN
				;Invalid function code			.MTRCT
				;Invalid function code			.MTSET
				;Invalid function code			.MTSTA
	.EQU	ER.IPV	<^o3>	;Invalid value for PROT			.FPROT
	.EQU	ER.PRO	<^o3>	;Protected file exists			.CLOSE
				;Protected file	exists			.CLOSZ
				;Protected file	exists			.DELET
				;Protected file exists			.ENTER
				;Protected file exists			.RENAM
	.EQU	ER.WID	<^o3>	;Invalid window ID			.ELAW
				;Invalid window ID			.GMCX
				;Invalid Window ID			.MAP
				;Invalid Window ID			.UNMAP

	.EQU	ER.ATT	<^o4>	;LUN attached to another job		.MTATC
				;LUN Attached to another job		.MTGET
	.EQU	ER.FNC	<^o4>	;File not found				.CSIGE
	.EQU	ER.NNF	<^o4>	;File sequence number not found		.ENTER
	.EQU	ER.OVR	<^o4>	;Mapped area overflows region		.CRAW
				;Mapped area overflows region		.MAP
	.EQU	ER.VAL	<^o4>	;Value supplied is invalid		.SFINF
				;Value supplied is invalid		.SFSTA

	.EQU	ER.ISN	<^o5>	;Invalid file sequence number		.ENTER
				;Invalid file sequence number		.LOOKU
	.EQU	ER.TAD	<^o5>	;Invalid status word addr		.MTATC
				;Invalid status block addr		.MTGET
				;Invalid buffer addr			.MTIN
				;Invalid buffer addr			.MTOUT
				;Invalid buffer addr			.MTPRN
				;Invalid status block addr		.MTSET
				;Invalid status block addr		.MTSTA
	.EQU	ER.MAP	<^o5>	;Not mapped				.UNMAP

	.EQU	ER.NRC	<^o6>	;No region control block available	.CRRG
	.EQU	ER.IUN	<^o6>	;Invalid Unit Number			.ENTER
				;Invalid Unit Number			.LOOKU
	.EQU	ER.ATH	<^o6>	;LUN attached to handler		.MTxxx

	.EQU	ER.MEM	<^o7>	;Not enough physical memory		.CRRG
.Page
	.EQU	ER.RSZ	<^o10>	;Invalid region size			.CRRG

	.EQU	ER.DEA	<^o11>	;Deallocation failure			.ELRG

	.EQU	ER.GNF	<^o12>	;Global region name not found		.CRRG

	.EQU	ER.NGC	<^o13>	;No global region control block avail.	.CRRG

	.EQU	ER.GIU	<^o14>	;Global region in use			.ELRG

	.EQU	ER.PVT	<^o15>	;Global region is private		.CRRG

	.EQU	ER.RAL	<^o16>	;Global region base is misaligned	.CRRG

	.EQU	ER.IMS	<^o17>	;Inactive mode/space			.CRAW
				;Inactive mode/space			.ELAW
				;Inactive mode/space			.GMCX
				;Inactive mode/space			.MAP
				;Inactive mode/space			.UNMAP
.ENDM	.ERRDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ERRDF
.PRINT ;.ERRDF
	.ERRDF	YES,==:
.Page
.Assume	ER.CHN	EQ	0	;Not enough channels			.CDFN
.Assume	ER.CHN	EQ	0	;No other job, input channel closed	.CHCOP
.Assume	ER.OCH	EQ	1	;Output channel in use			.CHCOP
.Assume	ER.PRO	EQ	<^o3>	;Protected file exists			.CLOSE
.Assume	ER.EXT	EQ	1	;Attempting to extend file		.CLOSZ
.Assume	ER.NEN	EQ	<^o2>	;Channel not opened by .ENTER		.CLOSZ
.Assume	ER.INF	EQ	0	;ID not found				.CMKT
.Assume	ER.ADR	EQ	0	;Invalid addr				.CNTXS
.Assume	ER.WAL	EQ	0	;Window alignment error			.CRAW
.Assume	ER.PAR	EQ	1	;Too many PARs				.CRAW
.Assume	ER.RID	EQ	<^o2>	;Invalid region ID			.CRAW
.Assume	ER.OVR	EQ	<^o4>	;Mapped area overflows region		.CRAW
.ASSUME	ER.IMS	EQ	<^o17>	;Inactive mode/space			.CRAW
.Assume	ER.NRC	EQ	<^o6>	;No region control block available	.CRRG
.Assume	ER.MEM	EQ	<^o7>	;Not enough physical memory		.CRRG
.Assume	ER.RSZ	EQ	<^o10>	;Invalid region size			.CRRG
.Assume	ER.GNF	EQ	<^o12>	;Global region name not found		.CRRG
.Assume	ER.NGC	EQ	<^o13>	;No global region control block avail.	.CRRG
.Assume	ER.PVT	EQ	<^o15>	;Global region is private		.CRRG
.Assume	ER.RAL	EQ	<^o16>	;Global region base is misaligned	.CRRG
.Assume	ER.CMD	EQ	0	;Invalid command			.CSIGE
.Assume	ER.DNC	EQ	1	;Device not found			.CSIGE
.Assume	ER.PRE	EQ	<^o2>	;Protected file exists			.CSIGE
.Assume	ER.FUC	EQ	<^o3>	;Device full				.CSIGE
.Assume	ER.FNC	EQ	<^o4>	;File not found				.CSIGE
.Assume	ER.CMD	EQ	0	;Invalid command			.CSISP
.Assume	ER.DNC	EQ	1	;Device not found			.CSISP
.Assume	ER.CHN	EQ	0	;Channel closed				.CSTAT
.Assume	ER.CHN	EQ	0	;Channel in use				.DELET
.Assume	ER.FNF	EQ	1	;File not found				.DELET
.Assume	ER.OPE	EQ	<^o2>	;Invalid operation (MT)			.DELET
.Assume	ER.PRO	EQ	<^o3>	;Protected file	exists			.DELET
.Assume	ER.DEV	EQ	0	;Device not found			.DSTAT
.Assume	ER.WID	EQ	<^o3>	;Invalid window ID			.ELAW
.ASSUME	ER.IMS	EQ	<^o17>	;Inactive mode/space			.ELAW
.Assume	ER.RID	EQ	<^o2>	;Invalid Region ID			.ELRG
.Assume	ER.DEA	EQ	<^o11>	;Deallocation failure			.ELRG
.Assume	ER.GIU	EQ	<^o14>	;Global region in use			.ELRG
.Assume	ER.CHN	EQ	0	;Channel in use				.ENTER
.Assume	ER.FUL	EQ	1	;Device full				.ENTER
.Assume	ER.SHR	EQ	<^o2>	;Non-sharable device unavailable	.ENTER
.Assume	ER.PRO	EQ	<^o3>	;Protected file exists			.ENTER
.Assume	ER.NNF	EQ	<^o4>	;File sequence number not found		.ENTER
.Assume	ER.ISN	EQ	<^o5>	;Invalid file sequence number		.ENTER
.Assume	ER.DEV	EQ	0	;Device not found			.FETCH
.Assume	ER.CHN	EQ	0	;Channel in use				.FPROT
.Assume	ER.FNF	EQ	1	;File not found				.FPROT
.Assume	ER.OPE	EQ	<^o2>	;Invalid operation (MT)			.FPROT
.Assume	ER.IPV	EQ	<^o3>	;Invalid value for PROT			.FPROT
.Assume	ER.WID	EQ	<^o3>	;Invalid window ID			.GMCX
.ASSUME	ER.IMS	EQ	<^o17>	;Inactive mode/space			.GMCX
.Assume	ER.NJB	EQ	0	;No such job				.GTJB
.Assume	ER.CMD	EQ	0	;Line too long				.GTLIN
.Assume	ER.HI	EQ	0	;Offset too high			.GVAL
.Assume	ER.BAD	EQ	1	;Bad address				.GVAL
.Assume	ER.CHN	EQ	0	;Channel in use				.LOOKU
.Assume	ER.FNF	EQ	1	;File not found				.LOOKU
.Assume	ER.SHR	EQ	<^o2>	;Non-sharable device unavailable	.LOOKU
.Assume	ER.ISN	EQ	<^o5>	;Invalid file sequence number		.LOOKU
.Assume	ER.IUN	EQ	<^o6>	;Invalid Unit Number			.LOOKU
.Page
.Assume	ER.RID	EQ	<^o2>	;Invalid region ID			.MAP
.Assume	ER.WID	EQ	<^o3>	;Invalid Window ID			.MAP
.Assume	ER.OVR	EQ	<^o4>	;Mapped area overflows region		.MAP
.ASSUME	ER.IMS	EQ	<^o17>	;Inactive mode/space			.MAP
.Assume	ER.NQL	EQ	0	;No queue element available		.MRKT
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTATC
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTATC
.Assume	ER.ATT	EQ	<^o4>	;LUN attached to another job		.MTATC
.Assume	ER.TAD	EQ	<^o5>	;Invalid status word addr		.MTATC
.Assume	ER.ATH	EQ	<^o6>	;LUN attach to handler			.MTATC
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTDTC
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTDTC
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTDTC
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTGET
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTGET
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTGET
.Assume	ER.ATT	EQ	<^o4>	;LUN Attached to another job		.MTGET
.Assume	ER.TAD	EQ	<^o5>	;Invalid status block addr		.MTGET
.Assume	ER.ATH	EQ	<^o6>	;LUN attach to handler			.MTGET
.Assume	ER.INP	EQ	0	;No input available			.MTIN
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTGET
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTIN
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTIN
.Assume	ER.TAD	EQ	<^o5>	;Invalid buffer addr			.MTIN
.Assume	ER.OUT	EQ	0	;Output buffer full			.MTOUT
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTOUT
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTOUT
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTOUT
.Assume	ER.TAD	EQ	<^o5>	;Invalid buffer addr			.MTOUT
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTPRN
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTPRN
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTPRN
.Assume	ER.TAD	EQ	<^o5>	;Invalid buffer addr			.MTPRN
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTRCT
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTRCT
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTRCT
.Assume	ER.NAT	EQ	1	;LUN not attached to this job		.MTSET
.Assume	ER.LUN	EQ	<^o2>	;Invalid LUN number			.MTSET
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTSET
.Assume	ER.TAD	EQ	<^o5>	;Invalid status block addr		.MTSET
.Assume	ER.IFC	EQ	<^o3>	;Invalid function code			.MTSTA
.Assume	ER.TAD	EQ	<^o5>	;Invalid status block addr		.MTSTA
.Assume	ER.VIU	EQ	0	;Vector already protected		.PROTE
.Assume	ER.VEC	EQ	1	;Invalid vector addr			.PROTE
.Assume	ER.HI	EQ	0	;Offset too high			.PVAL
.Assume	ER.BAD	EQ	1	;Bad address				.PVAL
.Assume	ER.NJB	EQ	0	;No other job				.RCVD
.Assume	ER.NJB	EQ	0	;No other job				.RCVDC
.Assume	ER.NJB	EQ	0	;No other job				.RCVDW
.Assume	ER.EOF	EQ	0	;End of file				.READ
.Assume	ER.HRD	EQ	1	;Hard error				.READ
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.READ
.Assume	ER.EOF	EQ	0	;End of file				.READC
.Assume	ER.HRD	EQ	1	;Hard error				.READC
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.READC
.Assume	ER.EOF	EQ	0	;End of file				.READW
.Assume	ER.HRD	EQ	1	;Hard error				.READW
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.READW
.Assume	ER.DEV	EQ	0	;Device not found			.RELEA
.Page
.Assume	ER.CHN	EQ	0	;Channel in use				.RENAM
.Assume	ER.FNF	EQ	1	;File not found				.RENAM
.Assume	ER.OPE	EQ	<^o2>	;Invalid operation (MT)			.RENAM
.Assume	ER.PRO	EQ	<^o3>	;Protected file exists			.RENAM
.Assume	ER.CHN	EQ	0	;Channel in use				.REOPE
.Assume	ER.CHN	EQ	0	;Channel in use				.SAVES
.Assume	ER.ENT	EQ	1	;Channel opened by .ENTER/MT		.SAVES
.Assume	ER.NJB	EQ	0	;No other job				.SDAT
.Assume	ER.NJB	EQ	0	;No other job				.SDATC
.Assume	ER.NJB	EQ	0	;No other job				.SDATW
.Assume	ER.XFE	EQ	<^o-15>	;Fetch not supported in this XM monitor	.SERR
.Assume	ER.DIR	EQ	<^o-14>	;Invalid directory			.SERR
.Assume	ER.EMT	EQ	<^o-11>	;Invalid EMT				.SERR
.Assume	ER.ICH	EQ	<^o-10>	;Invalid channel number			.SERR
.Assume	ER.IAD	EQ	<^o-7>	;Invalid addr				.SERR
.Assume	ER.DFU	EQ	<^o-6>	;Directory full				.SERR
.Assume	ER.OVE	EQ	<^o-5>	;Error reading overlay			.SERR
.Assume	ER.FET	EQ	<^o-4>	;Fetch error				.SERR
.Assume	ER.DIO	EQ	<^o-3>	;Directory I/O error			.SERR
.Assume	ER.UNL	EQ	<^o-2>	;Unloaded handler			.SERR
.Assume	ER.USR	EQ	-1	;USR called from completion		.SERR
.Assume	ER.CHN	EQ	0	;Channel in use				.SFDAT
.Assume	ER.FNF	EQ	1	;File not found				.SFDAT
.Assume	ER.OPE	EQ	<^o2>	;Invalid operation (MT)			.SFDAT
.Assume	ER.VAL	EQ	<^o4>	;Value supplied is invalid		.SFINF
.Assume	ER.MAI	EQ	0	;Called from mainline (not completion)	.SPCP
.Assume	ER.SIU	EQ	1	;Previous .SPCPS pending		.SPCP
.Assume	ER.EOF	EQ	0	;End of file				.SPFUN
.Assume	ER.HRD	EQ	1	;Hard error				.SPFUN
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.SPFUN
.Assume	ER.UIU	EQ	0	;USR in use by another job		.TLOCK
.Assume	ER.INP	EQ	0	;No input available			.TTINR
.Assume	ER.OUT	EQ	0	;Output buffer full			.TTOUT
.Assume	ER.NQL	EQ	0	;No queue element available		.TWAIT
.Assume	ER.WID	EQ	<^o3>	;Invalid Window ID			.UNMAP
.Assume	ER.MAP	EQ	<^o5>	;Not mapped				.UNMAP
.ASSUME	ER.IMS	EQ	<^o17>	;Inactive mode/space			.UNMAP
.Assume	ER.VEC	EQ	1	;Invalid vector addr			.UNPRO
.Assume	ER.CHN	EQ	0	;Channel closed				.WAIT
.Assume	ER.HRD	EQ	1	;Hard error				.WAIT
.Assume	ER.EOF	EQ	0	;End of file				.WRITC
.Assume	ER.HRD	EQ	1	;Hard error				.WRITC
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.WRITC
.Assume	ER.EOF	EQ	0	;End of file				.WRITE
.Assume	ER.HRD	EQ	1	;Hard error				.WRITE
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.WRITE
.Assume	ER.EOF	EQ	0	;End of file				.WRITW
.Assume	ER.HRD	EQ	1	;Hard error				.WRITW
.Assume	ER.CHC	EQ	<^o2>	;Channel closed				.WRITW
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ERSDF	-- define DU/DM handler .SPFUN error codes
;+
;	.ERSDF
;
;	The following table shows which of the disk .SPFUN error codes 
;	are used by the DU and DM handlers.  The error codes are returned
;	to the user in the First word of the user's buffer.
;
;
;	Error Code	DU	DM	Description
;	==========	===	===	=====================================
;	ES.SUC		X	X	;Successful completion
;	ES.FRC		X		;Forced error, data is bad, block is ok
;	ES.BBR		X	X	;Bad Block Detected (BCE error)
;	ES.ERR		X	X	;Error was not recoverable mask 
;	ES.RCL			X	;Error recovered with retry
;	ES.OFF			X	;Error recovered with offset retry
;	ES.RTY			X	;Error recovered after recalibration
;	ES.ECC			X	;ECC error found and corrected
;
;	NOTE: The ES.ERR (unrecoverable error) mask is logical OR'ed with
;	      any of the recovered error codes (ES.RCL|ES.OFF|ES.RTY|ES.ECC)
;	      to indicate that an error of the recovered error code's type
;	      occurred, but was NOT recoverable.
;-
.Page
.MACRO	.ERSDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		   ;DU/DM handler SPFUN error codes
	.EQU	ES.SUC	<^o100000> ;Successful completion
	.EQU	ES.FRC	<^o140000> ;Forced error, data is bad, block is good
	.EQU	ES.BBR	<^o100200> ;Bad Block Detected (BCE error)
	.EQU	ES.UDM	<^o100100> ;Unknown status

	.EQU	ES.ERR	<^o177400> ;Error was not recoverable mask
				   ; (Logical OR w/ 'error recvrd' values below)
	.EQU	ES.RCL	<^o100010> ;Error recovered with retry
	.EQU	ES.OFF	<^o100004> ;Error recovered with offset retry
	.EQU	ES.RTY	<^o100002> ;Error recovered after recalibration
	.EQU	ES.ECC	<^o100001> ;ECC error found and corrected
.ENDM	.ERSDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ERSDF
.PRINT ;.ERSDF
	.ERSDF	YES,==:

.Assume	ES.SUC	EQ	<^o100000>
.Assume	ES.FRC	EQ	<^o140000>
.Assume	ES.BBR	EQ	<^o100200>
.Assume	ES.UDM	EQ	<^o100100>
.Assume	ES.ERR	EQ	<^o177400>
.Assume	ES.RCL	EQ	<^o100010>
.Assume	ES.OFF	EQ	<^o100004>
.Assume	ES.RTY	EQ	<^o100002>
.Assume	ES.ECC	EQ	<^o100001>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ESBDF	-- define magtape SPFUN error/status block format
;+
;	.ESBDF
;
;	+-------+-------+
;ESB.CD:|		|[00]	SPFUN error qualifying code	v(.ERMDF)
;	+-------+-------+
;ESB.QI:|		|[02]	Additional qualifying information (see below)
;	+-------+-------+
;	| 	0	|[04]	<reserved>
;	+-------+-------+
;	| 	0	|[06]	<reserved>
;	+-------+-------+
;ESB.SZ:		 [10]
;
;	The ESB.QI word is used to return additional information about
;	the error, as follows:
;
;	SPFUN 376 (FORWARD SPACE)  - # of blocks not spaced (if at tape mark)
;	SPFUN 375 (BACKWARD SPACE) - # of blocks not spaced (if at tape mark)
;	SPFUN 370 (READ) - # of words in block left to read (if long block)
;	SPFUN 370 (READ) - # of words requested but not read (if short block)
;-
.MACRO	.ESBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Magtape SPFUN error/status block format
	.DS	ESB.CD		;SPFUN error qualifying code 	v(.ERMDF)
	.DS	ESB.QI		;Additional SPFUN error information
	.DS		,2	;<reserved>
	.DS	ESB.SZ	,0	;Size of a magtape SPFUN error/status block
.ENDM	.ESBDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ESBDF
.PRINT ;.ESBDF
	.ESBDF	YES,==:

.Assume	ESB.CD	EQ	0
.Assume	ESB.QI	EQ	<^o2>
.Assume	ESB.SZ	EQ	<^o10>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.FIXDF	-- define RMON fixed area
;+
;	.FIXDF
;
;	See spaghetti chart for layout.
;-
.MACRO	.FIXDF	LIST,E,BASE=0,P=$
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	BASE,LIST,E	;($SYPTR in .SYCDF)
	.DS	P'RMON	2.	;common entry point for handlers
	.DS	P'CSW	16.*5.	;channel status table	ov(.CHNDF/.CSWDF)
	.DS	P'SYSCH	 1.*5.	;system channel
	.DS	P'BLKEY		;directory segment number in memory
	.DS	P'CHKEY		;device index and unit number in memory
	.DS	P'DATE		;current date			v(.DATDF)
	.DS	P'DFLG		;directory operation in progress
	.DS	P'USRLC		;normal addr of USR
	.DS	P'QCOMP		;-> I/O exit routine		o(.QCMDF)
	.DS	P'SPUSR		;special USR request error word	v(.SPUDF)
	.DS	P'SYUNI		;(high byte) unit number of system device
	.DS	P'SYSVE	,,B	;system version (major)
	.DS	P'SYSUP	,,B	;system update (minor)
	.DS	P'CNFG1		;system configuration		v(.CF1DF)
	.DS	P'SCROL		;link word for GTON scroller
	.DS	P'TTKS		;-> console RCSR
	.DS	P'TTKB		;-> console RBUF
	.DS	P'TTPS		;-> console XCSR
	.DS	P'TTPB		;-> console XDAT
	.DS	P'MAXBL		;largest file opened by non-specific request
	.DS	P'E16LS		;offset from $RMON to EMT16s	o(.E16DF)
	.DS	P'CNTXT		;-> current impure area	ov(.IMPDF)
	.DS	P'JOBNU		;current job number
	.DS	P'SYNCH		;.SYNCH addr
	.DS	P'LOWMA	10.	;low memory protection bitmap
	.DS	P'USRLO		;-> USR current entry point
	.DS	P'GTVEC		;-> display stop interrupt vector
	.DS	P'ERRCN		;low byte is error count from CUSPs (used?)
	.DS	P'MTPS		;->  processor independent MTPS
	.DS	P'MFPS		;-> processor independent MFPS
	.DS	P'SYIND		;system device index number (constant 2?)
	.DS	P'STATW		;DCL and IND file state word	v(.STWDF)
	.DS	P'CNFG2		;2nd configuration word		v(.CF2DF)
	.DS	P'SYSGE		;system generation options word	v(.SGNDF)
	.DS	P'USRAR		;USR size in bytes (constant 10000?)
	.DS	P'ERRLE	,,B	;error level to abort DCL/@	v(.UEBDF)
	.DS	P'IFMXN	,,B	;max @ file nest depth
	.DS	P'EMTRT		;offset from $RMON to EMTRTI
	.DS	P'FORK		;offset from $RMON to $FORK
	.DS	P'PNPTR		;offset from $RMON to $PNAME
	.DS	P'MONAM	2.	;monitor name in RAD50
	.DS	P'HSUFF		;handler file suffix in RAD50
	.DS	P'SPSTA		;SPOOL status word		v(.SPLDF)
	.DS	P'EXTIN	,,B	;stored $USRRB			v(.UEBDF)
	.DS	P'INDST	,,B	;IND control status		v(.INDDF)
	.DS	P'MEMSZ		;total memory available to system
	.DS	P'ELTIM		;offset from $RMON to GTIHOK
	.DS	P'TCFIG		;-> terminal option word	ov(.TTCDF)
	.DS	P'INDDV		;-> ASCII IND dev name		o(.CLDDF)
.Page
	.DS	P'MEMPT		;offset from $RMON to mem stuff	o(.MEMDF)
	.DS	P1$EXT		;-> to XM info			o(.P1XDF)
	.DS	P'TRPLS		;-> vectors for FIXTRP		o(.???DF) [XM]
	.DS	P'GETVE		;-> PRO get VECTOR routine	o(.PRODF)
	.DS	P'DWTYP		;configuration info on DW units	v(.DWTDF)
	.DS	P'TRPSE		;offset in Impure area to I.TRAP
	.DS	P'NULJB		;-> {NOP|WAIT}/NOP idle job	o(.NULDF)
	.DS	P'IMPLO		;-> end of impure pointers +2	o(.IMPDF)
	.DS	P'KMONI		;0 BG not KMON, <> BG is KMON
	.DS	P'PROGD	,,B	;BYTE Editor to run from DCL	v(.PGMDF)
	.DS	P'PROGF	,,B	;BYTE FORTRAN complier default	v(.PGMDF)
	.DS	P'WILDD	,,B	;BYTE 0 * Explicit, <> * Implicit
	.DS	P'JOBS	,,B	;BYTE number of job slots (1-8)
	.DS	P'QHOOK		;-> CA/UB hook list begin	o(.QHKDF)
	.DS	P'H2UB		;0 / addr of UB entry list	o(.UBVDF)
	.DS	P'XOFF		;Addr/offset for XOFF flag for console
	.DS	P'RTSPC		;-> RETURN instruction		o(.RTSDF)
	.DS	P'CNFG3		;3nd configuration word		v(.CF3DF)
	.DS	P'XTTNR		;Terminal service calls @$XTTNR if no room
				;is available for an input char
	.DS	P'THKPT		;-> terminal hooks data structure ov(.THKDF)
	.DS	P'DECNT		;DECNet communications word	v(.DNTDF)
	.DS	P'XTTPS		;Terminal service calls @$XTTPS before
				; reading TTPS and after changing same.
	.DS	P'XTTPB		;Terminal service calls @$XTTPS after
				; changing TTPB
	.DS	P'SLOT2	,,B	;BYTE max handler table index ($SLOT*2)
	.DS		,,B	;<reserved>
	.DS	P'SPSIZ		;Special device file size
.ENDM	.FIXDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.FIXDF
.PRINT ;.FIXDF
	.FIXDF	YES,==:
.Page
.Assume	$RMON	EQ	000000
.Assume	$CSW	EQ	<^o000004>
.Assume	$SYSCH	EQ	<^o000244>
.Assume	$BLKEY	EQ	<^o000256>
.Assume	$CHKEY	EQ	<^o000260>
.Assume	$DATE	EQ	<^o000262>
.Assume	$DFLG	EQ	<^o000264>
.Assume	$USRLC	EQ	<^o000266>
.Assume	$QCOMP	EQ	<^o000270>
.Assume	$SPUSR	EQ	<^o000272>
.Assume	$SYUNI	EQ	<^o000274>	;high BYTE
.Assume	$SYSVE	EQ	<^o000276>	;BYTE
.Assume	$SYSUP	EQ	<^o000277>	;BYTE
.Assume	$CNFG1	EQ	<^o000300>
.Assume	$SCROL	EQ	<^o000302>
.Assume	$TTKS	EQ	<^o000304>
.Assume	$TTKB	EQ	<^o000306>
.Assume	$TTPS	EQ	<^o000310>
.Assume	$TTPB	EQ	<^o000312>
.Assume	$MAXBL	EQ	<^o000314>
.Assume	$E16LS	EQ	<^o000316>
.Assume	$CNTXT	EQ	<^o000320>
.Assume	$JOBNU	EQ	<^o000322>
.Assume	$SYNCH	EQ	<^o000324>
.Assume	$LOWMA	EQ	<^o000326>
.Assume	$USRLO	EQ	<^o000352>
.Assume	$GTVEC	EQ	<^o000354>
.Assume	$ERRCN	EQ	<^o000356>
.Assume	$MTPS	EQ	<^o000360>
.Assume	$MFPS	EQ	<^o000362>
.Assume	$SYIND	EQ	<^o000364>
.Assume	$STATW	EQ	<^o000366>
.Assume	$CNFG2	EQ	<^o000370>
.Assume	$SYSGE	EQ	<^o000372>
.Assume	$USRAR	EQ	<^o000374>
.Assume	$ERRLE	EQ	<^o000376>	;BYTE
.Assume	$IFMXN	EQ	<^o000377>	;BYTE
.Assume	$EMTRT	EQ	<^o000400>
.Assume	$FORK	EQ	<^o000402>
.Assume	$PNPTR	EQ	<^o000404>
.Assume	$MONAM	EQ	<^o000406>
.Assume	$HSUFF	EQ	<^o000412>
.Assume	$SPSTA	EQ	<^o000414>
.Assume	$EXTIN	EQ	<^o000416>	;BYTE
.Assume	$INDST	EQ	<^o000417>	;BYTE
.Assume	$MEMSZ	EQ	<^o000420>
.Assume	$ELTIM	EQ	<^o000422>
.Assume	$TCFIG	EQ	<^o000424>
.Assume	$INDDV	EQ	<^o000426>
.Page
.Assume	$MEMPT	EQ	<^o000430>
.Assume	P1$EXT	EQ	<^o000432>
.Assume	$TRPLS	EQ	<^o000434>
.Assume	$GETVE	EQ	<^o000436>
.Assume	$DWTYP	EQ	<^o000440>
.Assume	$TRPSE	EQ	<^o000442>
.Assume	$NULJB	EQ	<^o000444>
.Assume	$IMPLO	EQ	<^o000446>
.Assume	$KMONI	EQ	<^o000450>
.Assume	$PROGD	EQ	<^o000452>	;BYTE
.Assume	$PROGF	EQ	<^o000453>	;BYTE
.Assume	$WILDDF	EQ	<^o000454>	;BYTE
.Assume	$JOBS	EQ	<^o000455>	;BYTE
.Assume	$QHOOK	EQ	<^o000456>
.Assume	$H2UB	EQ	<^o000460>
.Assume	$XOFF	EQ	<^o000462>
.Assume	$RTSPC	EQ	<^o000464>
.Assume	$CNFG3	EQ	<^o000466>
.Assume	$XTTNR	EQ	<^o000470>
.Assume	$THKPT	EQ	<^o000472>
.Assume	$DECNT	EQ	<^o000474>
.Assume	$XTTPS	EQ	<^o000476>
.Assume	$XTTPB	EQ	<^o000500>
.Assume	$SLOT2	EQ	<^o000502>	;BYTE
.Assume	$SPSIZ	EQ	<^o000504>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.FLBDF	-- Form library header
;+
;	.FLBDF
;
;	+-------+-------+
;FL.HC:	|    ^rFLB	|[000]		Form library id		FL.HCV=^rFLB
;	+-------+-------+
;FL.VER:|      500	|[002]		Version number		FL.VEV=500
;	+-------+-------+
;FL.DAT:|		|[004]		date			v(.DATDF)
;	+-------+-------+
;FL.TIM:|		|[006]		time			ov(.TIMDF)
;	+		+
;	|		|
;	+-------+-------+
;	|   <reserved>	|[010]
;	+-------+-------+
;	|   <reserved>	|[012]
;	+-------+-------+
;FL.RSA:|      10	|[014]		EPT relative start address FL.RSV=10
;	+-------+-------+
;FL.EAB:|		|[016]		EPT entries allocated in bytes
;	+-------+-------+
;	|   <reserved>	|[020]
;	+-------+-------+
;FL.NIB:|		|[022]		Next insert relative block number
;	+-------+-------+
;FL.NBB:|		|[024]		Next byute within byte
;	+-------+-------+
;FL.EPT:|		|[026]		First EPT
;-
.MACRO	.FLBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	FL.HC		;Form library ID
	.EQU	FL.HCV	<^rFLB>	;value for FL.HC
	.DS	FL.VER		;Version number
	.EQU	FL.VEV	<^o500>	;value for FL.VER (V0500)
	.DS	FL.DAT		;date				v(.DATDF)
	.DS	FL.TIM		;time				ov(.TIMDF)
	.DS			;<reserved>
	.DS			;<reserved>
	.DS	FL.RSA		;Relative start address
	.EQU	FL.RSV	<^o10>	;value for FL.RSA
	.DS	FL.EAB		;EPT entries allocated in bytes
	.DS			;<reserved>
	.DS	FL.NIB		;next insert relative block number
	.DS	FL.NBB		;next insert byte within block
	.DS	FL.EPT		;first EPT
.ENDM	.FLBDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.FLBDF
.PRINT ;.FLBDF
	.FLBDF	YES,==:
.Assume	FL.HC	EQ	<^o000000>
.Assume	FL.HCV	EQ	<^rFLB>
.Assume	FL.VER	EQ	<^o000002>
.Assume	FL.VEV	EQ	<^o000500>
.Assume	FL.DAT	EQ	<^o000004>
.Assume	FL.TIM	EQ	<^o000006>
.Assume	FL.RSA	EQ	<^o000014>
.Assume	FL.RSV	EQ	<^o000010>
.Assume	FL.EAB	EQ	<^o000016>
.Assume	FL.NIB	EQ	<^o000022>
.Assume	FL.NBB	EQ	<^o000024>
.Assume	FL.EPT	EQ	<^o000026>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.FMTDF	-- Format argument block
;+
;	.FMTDF
;
;		+-------+
;FMT.MI:	|	|[00] Minor interface change (backwards compat)
;	+-------+-------+					= FMT.1I
;FMT.MA:|	|	 [01] Major interface change (not backwards compat)
;	+-------+-------+					= FMT.1A
;FMT.SU:|-> Setup rout.	|[02]
;	+-------+-------+
;FMT.SW:|-> Switch table|[04]
;	+-------+-------+
;FMT.CC:|-> .SCCA flag!0|[06]
;	+-------+-------+
;FMT.FC:|-> Format Code	|[10]
;	+-------+-------+
;FMT.DC:|-> Device Ck Cd|[12]
;	+-------+-------+
;FMT.VA:|-> Verify Begin|[14]
;	+-------+-------+
;FMT.VR:|-> Verify Read	|[16]
;	+-------+-------+
;FMT.VW:|-> Verify Write|[20]
;	+-------+-------+
;FMT.VZ:|-> Verify End	|[22]
;	+-------+-------+
;FMT.AA:|-> Format Begin|[24]
;	+-------+-------+
;FMT.SZ:|-> Format Size	|[26]
;	+-------+-------+
;-
.MACRO	.FMTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;-> by H.FORM in .HANDF
	.DS	FMT.MI	,,B	;minor version byte
	.EQU	FMT.1I	0	;initial value
	.DS	FMT.MA	,,B	;major version byte
	.EQU	FMT.1A	0	;initial value
	.DS	FMT.SU		;-> Setup
	.DS	FMT.SW		;-> Switch table		ov(.SWIDF)
	.DS	FMT.CC		;-> .SCCA flag			v(.TASDF)
	.DS	FMT.FC		;-> Format code
	.DS	FMT.DC		;-> Device check
	.DS	FMT.VA		;-> Verify code begin
	.DS	FMT.VR		;-> Verify code read
	.DS	FMT.VW		;-> Verify code write
	.DS	FMT.VZ		;-> Verify code end
	.DS	FMT.AA		;-> beginning of all this stuff
	.DS	FMT.SZ		;size of all this stuff in bytes
.ENDM	.FMTDF
.ENDC ;EQ GP3$DO
.Page
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.FMTDF
.PRINT ;.FMTDF
	.FMTDF	YES,==:
.Assume	FMT.MI	EQ	<^o000000>
.Assume	FMT.1I	EQ	<^o000000>
.Assume	FMT.MA	EQ	<^o000001>
.Assume	FMT.1A	EQ	<^o000000>
.Assume	FMT.SU	EQ	<^o000002>
.Assume	FMT.SW	EQ	<^o000004>
.Assume	FMT.CC	EQ	<^o000006>
.Assume	FMT.FC	EQ	<^o000010>
.Assume	FMT.DC	EQ	<^o000012>
.Assume	FMT.VA	EQ	<^o000014>
.Assume	FMT.VR	EQ	<^o000016>
.Assume	FMT.VW	EQ	<^o000020>
.Assume	FMT.VZ	EQ	<^o000022>
.Assume	FMT.AA	EQ	<^o000024>
.Assume	FMT.SZ	EQ	<^o000026>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.FPBDF	-- file prefix block
;+
;	.FPBDF
;
;		+-------+
;FPB.BK:	|blocks	|[0]	block in prefix (1..255)
;	+-------+-------+
;FPB.FG:|	|	 [1]	Flags
;	+-------+-------+
;FPB.ID:|		|[2]	2 words id
;	+ RAD50 ident	+
;	|		|[4]
;	+-------+-------+
;FPB.DA:|		|[6]	data area
;	:		:
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;FPB.FG:|FPB|		<res>		|
;	|.US|				|
;	+---+---+---+---+---+---+---+---+
;-
.MACRO	.FPBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;block 0 ... in files with E.PRE set
	.DS	FPB.BK	,,B	;number of blocks in prefix (1 thru 255)
	.DS	FPB.FG	,,B	;bit flags
	.BSECT	,,E		;flags
	.BS	,7.		;<res>
	.BS	FPB.US		;1==user defined prefix block
				;0==Digital defined prefix block
	.DS	FPB.ID	,2.	;2 words of RAD50 id (format of block)
	.DS	FPB.DA	,0	;beginning of data area
.ENDM	.FPBDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.FPBDF
.PRINT ;.FPBDF
	.FPBDF	YES,==:

.Assume	FPB.BK	EQ	0
.Assume	FPB.FG	EQ	1
.Assume	FPB.US	EQ	<^o200>
.Assume	FPB.ID	EQ	2.
.Assume	FPB.DA	EQ	6.
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.FRKDF	-- fork element definition
;+
;	.FRKDF
;
;	+-------+-------+
;F.BLNK:| -> next QEL	|[0]	initially 0	F.BLNV	= 0
;	+-------+-------+
;F.BADR:| routine addr	|[2]
;	+-------+-------+
;F.BR5:	|   saved R5	|[4]
;	+-------+-------+
;F.BR4:	|   saved R4	|[6]
;	+-------+-------+
;F.BSIZ:		 [10]
;-
.MACRO	.FRKDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;-> by offset in .FORK request
	.DS	F.BLNK		;link to next queue element
	.EQU	F.BLNV	0	;initial value
	.DS	F.BADR		;-> routine
	.DS	F.BR5		;saved R5
	.DS	F.BR4		;saved R4
	.DS	F.BSIZ	0	;block size
.ENDM	.FRKDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.FRKDF
.PRINT ;.FRKDF
	.FRKDF	YES,==:

.Assume	F.BLNK	EQ	0
.Assume	F.BLNV	EQ	0
.Assume	F.BADR	EQ	<^o2>
.Assume	F.BR5	EQ	<^o4>
.Assume	F.BR4	EQ	<^o6>
.Assume	F.BSIZ	EQ	<^o10>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.FTVDF	-- define fixed trap vector		*UNIMPLEMENTED*
;+
;-
.SbTtl	.GRBDF	-- Global Region control Block
;+
;	.GRBDF
;
;	+-------+-------+
;GR.SIZ:| Size of region|[00]
;	+-------+-------+
;GR.ADD:|  Start addr	|[02]
;	+-------+-------+
;GR.STA:	|Status	|[04]
;	+-------+-------+
;GR.SHC:|Shr Cnt|	 [05]
;	+-------+-------+-------+-------+
;GR.NAM:|	Name in RAD50		|[06]
;	+-------+-------+-------+-------+
;GR.ESZ:				 [12]
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;GR.STA:|GR.|GR.|GR.|GR.|     <res>	|
;	|AGE|PRM|NRF|CAC|		|
;	+---+---+---+---+---+---+---+---+
;
;	GR.AGE	= 1	Eliminate when last job detaches
;	GR.PRM	= 1	Permanent region (no elimination)
;	GR.NRF	= 1	Do not return to free list
;	GR.CAC	= 1	Set cache bypass for this region
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;GR.SHC:|GR.|	    Use count		|
;	|PRV|				|
;	+---+---+---+---+---+---+---+---+
;
;	GR.PVT	= 1	Private region
;-
.MACRO	.GRBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(.???DF)
	.DS	GR.SIZ		;Size in 32 word units
	.DS	GR.ADD		;addr in 32 word units
	.DS	GR.STA	,,B	;Status bits
	.BSECT	,,E
	.BS	,	4.	;<res>
	.BS	GR.CAC		;Set cache bypass bit for this region
	.BS	GR.NRF		;Not to be returned to free list
	.BS	GR.PRM		;Permanent region (no elimination)
	.BS	GR.AGE		;Eliminate when last job detaches
	.BS	,	7.	;<res>
	.BS	GR.PVT		;Private (bit is in GR.SHC)
	.DS	GR.SHC	,,B	;Shared count
	.DS	GR.NAM	2.	;Name
	.DS	GR.ESZ	0	;Size of a GRCB
.ENDM	.GRBDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.GRBDF
.PRINT ;.GRBDF
	.GRBDF	YES,==:
.Assume	GR.SIZ	EQ	000000
.Assume	GR.ADD	EQ	<^o000002>
.Assume	GR.STA	EQ	<^o000004>
.Assume	GR.CAC	EQ	<^o020>
.Assume	GR.NRF	EQ	<^o040>
.Assume	GR.PRM	EQ	<^o100>
.Assume	GR.AGE	EQ	<^o200>
.Assume	GR.PVT	EQ	<^o100000>
.Assume	GR.SHC	EQ	<^o000005>
.Assume	GR.NAM	EQ	<^o000006>
.Assume	GR.ESZ	EQ	<^o000012>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.GTJDF	-- define layout of GTJB returned info
;+
;	.GTJDF
;
;	+-------+-------+
;J.BNUM:|		|[00] Job number (0, 2 ...)
;	+-------+-------+
;J.BHLM:|		|[02] High Memory Limit
;	+-------+-------+
;J.BLLM:|		|[04] Low Memory Limit
;	+-------+-------+
;J.BCHN:|		|[06] Addr of channel control blocks	o(.CHNDF)
;	+-------+-------+
;J.BIMP:|		|[10] Addr of Job's impure area		o(.IMPDF)
;	+-------+-------+
;J.BLUN:	|	|[12] Unit number of Console
;	+-------+-------+
;	|     <res>	|[13]
;	+-------+-------+
;J.BVHI:|		|[14] Virtual High Limit (XM only)
;	+-------+-------+
;	|     <res>	|[16]
;	+-------+-------+
;J.BLGH:|     <res>	|[20]
;	+-------+-------+-------+-------+-------+-------+ Job Name
;J.BLNM:|	|	|	|	|	|	|[22] (Sys Jobs only)
;	+-------+-------+-------+-------+-------+-------+
;J.BLG4:						 [30]
;-
.MACRO	.GTJDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Returned table from .GTJB request
	.DS	J.BNUM		;Job number
	.DS	J.BHLM		;High addr limit
	.DS	J.BLLM		;Low addr limit
	.DS	J.BCHN		;Channel area			o(.CHNDF)
	.DS	J.BIMP		;Job impure area		o(.IMPDF)
	.DS	J.BLUN	,,B	;(MTTY only) LUN of job's console
	.DS	,	,B	;<res>
	.DS	J.BVHI		;(MMG$T only) virtual high limit of job
	.DS			;<res>
	.DS	J.BLGH	0	;Size of V3B type parameter block
	.DS			;<res>
	.DS	J.BLNM	3.	;(SYT$K only) ascii logical job name
	.DS	J.BLG4	0	;V04 block is 4. words longer
.ENDM	.GTJDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.GTJDF
.PRINT ;.GTJDF
	.GTJDF	YES,==:
.Assume	J.BNUM	EQ	000000
.Assume	J.BHLM	EQ	<^o000002>
.Assume	J.BLLM	EQ	<^o000004>
.Assume	J.BCHN	EQ	<^o000006>
.Assume	J.BIMP	EQ	<^o000010>
.Assume	J.BLUN	EQ	<^o000012>	;BYTE
.Assume	J.BVHI	EQ	<^o000014>
.Assume	J.BLGH	EQ	<^o000020>
.Assume	J.BLNM	EQ	<^o000022>
.Assume	J.BLG4	EQ	<^o000030>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HANDF	-- handler block 0 definition
;+
;	.HANDF
;
;	+-------+-------+
;H.HAN:	|  RAD50 "HAN"	|[000] Handler ID word
;	+-------+-------+
;H.FETC:| -> FETCH Rout	|[002]
;	+-------+-------+
;H.RELE:|-> RELEASE Rout|[004] also job Abort entry
;	+-------+-------+
;H.LOAD:| -> LOAD Rout	|[006] also SY "BSTRAP" load
;	+-------+-------+
;H.UNLO:| -> UNLOAD Rout|[010]
;	+-------+-------+
;H.FORM:| -> FORMAT Data|[012] o(.FMTDF)<fut>
;	+-------+-------+
;H.BOOT:| -> BOOT Rout	|[014] o(.BSRDF)<fut>
;	+-------+-------+
;	|     <res>	|[016]
;	+-------+-------+
;H.CLAS:	| Class	|[020] v(.DVCDF)
;	+-------+-------+
;H.MOD:	| Flags	|	 [021] v(.DVMDF)
;	+-------+-------+
;H.SPF1:|  Nxx	|  xNN	|[022] SPFUNs supported v(.DSPDF)
;	+-------+-------+
;H.SPF2:|  Nxx	|  xNN	|[024] SPFUNs supported v(.DSPDF)
;	+-------+-------+
;H.SPF3:|  Nxx	|  xNN	|[026] SPFUNs supported v(.DSPDF)
;	+-------+-------+
;H.SPFX:| -> more SPFUNs|[030]
;	+-------+-------+
;H.REPL	| -> Repl Data	|[032] Replacement Geometry Table o(.RGTDF)
;	+-------+-------+
;	|     <res>	|[034]
;	+-------+-------+
;H.STS2:|2nd Status Word|[036] more status bits	v(.HS2DF)
;	+-------+-------+
;			 [040] see o(.SAVDF) (handlers can be jobs)
;	+-------+-------+
;H.SIZ:	| Handler Size	|[052]
;	+-------+-------+
;H.DSIZ:|Dev Size Blocks|[054]
;	+-------+-------+
;H.DSTS:| Device Status	|[056] v(.DSCDF/.DEVDF)
;	+-------+-------+
;H.GEN:		|Sysgen	|[060] v(.SGNDF)
;	+-------+-------+
;	| <res>	|	 [061] (don't care bits <fut>)
;	+-------+-------+
;H.BPTR:| -> Pri BootStr|[062] v(.BOTDF)
;	+-------+-------+
;H.BLEN:| BootStrap Size|[064]
;	+-------+-------+
;H.READ:| -> Boot Read	|[066]
;	+-------+-------+
.Page
;	+-------+-------+
;H.TYPE:|  RAD50 "???"	|[070] Data Table Type (-1 means next indirect)
;	+-------+-------+
;H.DATA:|-> Data or List|[072] o(.DUSDF)
;	+-------+-------+
;H.DLEN:|   Data size	|[074]
;	+-------+-------+
;H.UNIT:| -> 64 Owner	|[076] o(.U64DF)
;	+-------+-------+
;H.64UM:|letter	& flags	|[100] 	     64 unit handler 1 letter name
;	+-------+-------+	     & UMR support flags v(.HUMDF)
;	|     <res>	|[102]
;	+-------+-------+
;	|     <res>	|[104]
;	+-------+-------+
;H.USER:| -> User Table	|[106] o(.DUSDF)
;	+-------+-------+
;	|		|[110] o(.MODDF)
;	+-------+-------+
;	|		|[112] o(.MODDF)
;	+-------+-------+
;	:		:
;	:		:
;	+-------+-------+
;	|	-1	|list terminator
;	+-------+-------+
;
;	+-------+-------+
;	|	0	|list terminator
;	+-------+-------+
;	:		:
;	:		:
;	+-------+-------+
;H.DCSR:|  Display CSR	|[174]
;	+-------+-------+
;H.ICSR:|  Install CSR	|[176]
;	+-------+-------+
;H.IDK:	|Code Data Inst.|[200]
;	+-------+-------+
;H.ISY:	|Code SY Install|[202]
;	+-------+-------+
;
;
;	+-------+-------+-------+-------+-------+-------+-------+-------+
;H.SET:	|								|[400] ov(.DSEDF)
;	+-------+-------+-------+-------+-------+-------+-------+-------+
;
;	+-------+-------+
;H.BEG:	|		|[1000]	o(.HBGDF)
;	+-------+-------+
;-
.Page
.MACRO	.HANDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	H.HAN		;ident word
	.EQU	H.HANV	<^rHAN>	;value for H.HAN word
	.DS	H.FETC		;-> Fetch service routine
	.DS	H.RELE		;-> Release service routine
	.DS	H.LOAD		;-> Load service routine
	.DS	H.UNLO		;-> Unload service routine
	.DS	H.FORM		;-> Format support	ov(.FMTDF)
	.DS	H.BOOT		;-> Boot service routineo(.BSRDF)
	.DS			;<res>
	.DS	H.CLAS	,,B	;Device class BYTE	v(.DVCDF)
	.DS	H.MOD	,,B	;Device modifier BYTE	v(.DVMDF)
	.DS	H.SPF1		;First SPFUN word	v(.DSPDF)
	.DS	H.SPF2		;Second SPFUN word	v(.DSPDF)
	.DS	H.SPF3		;Third SPFUN word	v(.DSPDF)
	.DS	H.SPFX		;-> to added SPFUN words
	.DS	H.REPL		;-> to replacement Geometry Table o(.RGTDF)
	.DS			;<res>
	.DS	H.STS2		;added status word	v(.HS2DF)
;				;also see o(.SAVDF) (handlers can be jobs)
	.DSECT	<^o52>,,E
	.DS	H.SIZ		;size of handler in bytes
	.DS	H.DSIZ		;size of device in blocks
	.DS	H.DSTS		;device status value	v(.DSCDF/.DEVDF)
	.DS	H.GEN	,,B	;sysgen options
	.DS	,	,B	;<res>
	.DS	H.BPTR		;-> to primary bootstrap
	.DS	H.BLEN		;len of bootstrap in bytes
	.DS	H.READ		;-> to read routine in bootstrap
	.DS	H.TYPE		;data table type word (RAD50)
	.DS	H.DATA		;-> to handler specific data table o(.DUSDF)
	.DS	H.DLEN		;size of table in bytes
	.DS	H.UNIT		;-> to 64 unit table		o(.U64DF)
	.DS	H.64UM		;64 unit flag and UMR flags	o(.HUMDF)
	.DS			;<res>
	.DS			;<res>
	.DS	H.USER		;-> to user table		o(.DUSDF)
				;				o(.MODDF)
	.DSECT	<^o174>,,E
	.DS	H.DCSR		;top of list of display CSRs
	.DS	H.ICSR		;install CSR
	.DS	H.IDK		;install as data device routine
	.DS	H.ISY		;install as system device routine
	.DSECT	<^o400>,,E
	.DS	H.SET		;beginning of SET table		ov(.DSEDF)
	.DSECT	<^o1000>,,E
	.DS	H.BEG		;beginning of memory-resident part o(.HBGDF)
.ENDM	.HANDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HANDF
.PRINT ;.HANDF
	.HANDF	YES,==:
.Page
.Assume	H.HAN	EQ	000000
.Assume	H.HANV	EQ	<^rHAN>
.Assume	H.FETC	EQ	<^o000002>
.Assume	H.RELE	EQ	<^o000004>
.Assume	H.LOAD	EQ	<^o000006>
.Assume	H.UNLO	EQ	<^o000010>
.Assume	H.FORM	EQ	<^o000012>
.Assume	H.BOOT	EQ	<^o000014>
.Assume	H.CLAS	EQ	<^o000020>	;BYTE
.Assume	H.MOD	EQ	<^o000021>	;BYTE
.Assume	H.SPF1	EQ	<^o000022>
.Assume	H.SPF2	EQ	<^o000024>
.Assume	H.SPF3	EQ	<^o000026>
.Assume	H.SPFX	EQ	<^o000030>
.Assume	H.REPL	EQ	<^o000032>

.Assume	H.STS2	EQ	<^o000036>

.Assume	H.SIZ	EQ	<^o000052>
.Assume	H.DSIZ	EQ	<^o000054>
.Assume	H.DSTS	EQ	<^o000056>
.Assume	H.GEN	EQ	<^o000060>	;BYTE
.Assume	H.BPTR	EQ	<^o000062>
.Assume	H.BLEN	EQ	<^o000064>
.Assume	H.READ	EQ	<^o000066>
.Assume	H.TYPE	EQ	<^o000070>
.Assume	H.DATA	EQ	<^o000072>
.Assume	H.DLEN	EQ	<^o000074>
.Assume	H.UNIT	EQ	<^o000076>
.Assume	H.64UM	EQ	<^o000100>
.Assume	H.USER	EQ	<^o000106>

.Assume	H.DCSR	EQ	<^o000174>
.Assume	H.ICSR	EQ	<^o000176>
.Assume	H.IDK	EQ	<^o000200>
.Assume	H.ISY	EQ	<^o000202>

.Assume	H.SET	EQ	<^o000400>
.Assume	H.BEG	EQ	<^o001000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HBFDF	-- Handler Block 1 flag word bits (H1.FLG)
;+
;	.HBFDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;H1.FLG:|DV2|DV2|DV2|DV2|		  <res>				|[1010]
;	|.NF|.V2|.NL|.DM|						|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	DV2.DM = 1	handler does DMA and is V5.5+ compatible
;	DV2.NF = 1	non-fetchable handler (load only)
;	DV2.V2 = 1	first .DRVTB table is followed by second
;			display only .DRVTB
;	DV2.NL = 1	non-loadable handler
;-
.MACRO	.HBFDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;H1.FLG in .HBGDF
	.BS	,	12.	;<res>
	.BS	DV2.DM		;handler does DMA and is V5.5+ compatible
	.BS	DV2.NL		;non-loadable (by KMON) only by BSTRAP
	.BS	DV2.V2		;second display only DRVTB exists
	.BS	DV2.NF		;non-fetchable handler
.ENDM	.HBFDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HBFDF
.PRINT ;.HBFDF
	.HBFDF	YES,==:

.Assume	DV2.DM	EQ	<^o010000>
.Assume	DV2.NL	EQ	<^o020000>
.Assume	DV2.V2	EQ	<^o040000>
.Assume	DV2.NF	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HBGDF	-- define ".DRBEG" table layout
;+
;	.HBGDF
;
;	+-------+-------+
;H1.VEC:|		| vector or -> vector table	ov(.DVTDF)
;	+-------+-------+
;H1.ABT:|		| offset to first DRAST
;	+-------+-------+
;H1.HLD:|		| 34x in file, handler hold in memory
;	+-------+-------+
;H1.LQE:|		| 0 in file, Last Queue element pointer in memory o(.QELDF)
;	+-------+-------+
;H1.CQE:|		| Flags in file, Current Queue element ptr in mem ov(.QELDF,.HBFDF)
;H1.FLG:+-------+-------+
;H1.NOP:|		| NOP with flags			v(.HNPDF)
;	+-------+-------+
;H1.BR:	| BR xxx	| Branch that skips data
;	+-------+-------+
;H1.FG2:|		|2nd flag word				v(.HF2DF)
;	+-------+-------+
;H1.SCK:|		|-> SPFUN addr check routine
;	+-------+-------+
;H1.SDF:|		|-> SPFUN (DMA) table			V(.DSPDF)
;	+-------+-------+
;H1.LDT:|		|-> LD table				OV(.ZLDDF)
;	+-------+-------+
;H1.NDF:|		|-> non-std DMA SPFUN table		v(.DSPDF)
;	+-------+-------+
;
;POLICY: New bits are allocated in the H1.FG2 word from low to high.
;The bit flags in H1.FG2 are of (potentially) two types:
;
;	1) those that do not have corresponding data words (flag bits)
;	2) those that do have corresponding data words (data bits)
;
;Data words are allocated in the same order, that is, the data word for the
;lowest order data bit is allocated at H1.FG2+2; for the second data bit at
;H1.FG2+4 and so on.
;
;The number of words following H1.FG2 is variable, according to the following
;rules:
;
;	1) Find the highest data bit that is on in H1.FG2
;	2) allocate a data word for that bit and for all data bits lower
;	   in H1.FG2 EVEN IF THEY ARE NOT on.
;
;The intent of this rule is to allow a program to access a data word at a
;fixed offset, simply by checking for the corresponding data bit to be set;
;while minimizing (to some extent) the number of "empty" data words allocated.
;
;The high bit of H1.FG2 is reserved to mean that H1.FG3 exists, so that
;we "never" run out of bits.
;-
.Page
.MACRO	.HBGDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o1000>,LIST,E	;Block 1 of a handler file
	.DS	H1.VEC		;Vector or -> table		ov(.DVTDF)
	.DS	H1.ABT		;Abort code offset
	.DS	H1.HLD		;Handler hold word
	.DS	H1.LQE		;Last Q element			o(.QELDF)
	.DS	H1.CQE	0	;Current Q element		o(.QELDF)
	.DS	H1.FLG		;Flag word (in file)		v(.HBFDF)
	.DS	H1.NOP		;Flag NOP			v(.HNPDF)
;If HNP.F2 on in H1.NOP, H1.BR and H1.FG2 exist.
	.DS	H1.BR		;Branch around data (optional)
	.DS	H1.FG2		;2nd flag word (optional)	v(.HF2DF)
;If HF2.SC or higher bit set in H1.FG2, H1.SCK exists
	.DS	H1.SCK		;-> SPFUN addr routine (optional)
;If HF2.SD or higher bit set in H1.FG2, H1.SDF exists
	.DS	H1.SDF		;-> DMA SPFUN table (optional)	v(.DSPDF)
;If HF2.LD or higher bit set in H1.FG2, H1.LDT exists
	.DS	H1.LDT		;-> LD table (optional)		ov(.ZLDDF)
;If HF2.ND or higher bit set in H1.FG2, H1.NDF exists
	.DS	H1.NDF		;-> non-std DMA SPFUN table (optional) v(.DSPDF)
.ENDM	.HBGDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HBGDF
.PRINT ;.HBGDF
	.HBGDF	YES,==:

.Assume	H1.VEC	EQ	<^o001000>
.Assume	H1.ABT	EQ	<^o001002>
.Assume	H1.HLD	EQ	<^o001004>
.Assume	H1.LQE	EQ	<^o001006>
.Assume	H1.CQE	EQ	<^o001010>
.Assume	H1.FLG	EQ	<^o001010>
.Assume	H1.NOP	EQ	<^o001012>
.Assume	H1.BR	EQ	<^o001014>	;optional
.Assume	H1.FG2	EQ	<^o001016>	;optional
.Assume	H1.SCK	EQ	<^o001020>	;optional
.Assume	H1.SDF	EQ	<^o001022>	;optional
.Assume	H1.LDT	EQ	<^o001024>	;optional
.Assume	H1.NDF	EQ	<^o001026>	;optional
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HF2DF	-- H1.FG2 flag word bit definitions
;+
;	.HF2DF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;H1.FG2:|HF2|HF2|HF2|HF2|HF2|	      <res>		|HF2|HF2|HF2|HF2|
;	|.F3|.64|.S6|.DM|.SR|				|.ND|.LD|.SD|.SC|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	<fut>
;
;	HF2.SC	= 1	SPFUN addr check code exists
;	HF2.SD	= 1	SPFUNs that use DMA are listed
;	HF2.LD	= 1	Pointer to LD table exists
;	HF2.ND	= 1	Non-Standard SPFUNs that use DMA are listed
;	HF2.SR	= 1	Handler requires serialization of requests
;	HF2.DM	= 1	Handler does DMA and is V5.5+ compatible
;	HF2.S6	= 1	Handler supports other 64 unit handlers (no data word)<fut>
;	HF2.64	= 1	Handler accepts 64 unit references (no data word)
;	HF2.F3	= 1	third flag word exists
;-
.MACRO	.HF2DF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;H1.FG2 in .HBGDF
	.BS	HF2.SC		;SPFUN addr check routine exists
	.BS	HF2.SD		;SPFUNs that use DMA are listed
	.BS	HF2.LD		;Pointer to LD table exists
	.BS	HF2.ND		;Non-Standard SPFUNs that use DMA are listed
	.BS	,	7.	;<res>
	.BS	HF2.SR		;Handler requires serialization of requests
	.BS	HF2.DM		;handler does DMA and is V5.5+ compatible
	.BS	HF2.S6		;handler supports other 64 unit handler
	.BS	HF2.64		;handler accepts 64 unit references
	.BS	HF2.F3		;H1.FG3 exists
.ENDM	.HF2DF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HF2DF
.PRINT ;.HF2DF
	.HF2DF	YES,==:

.Assume	HF2.SC	EQ	<^o000001>
.Assume	HF2.SD	EQ	<^o000002>
.Assume	HF2.LD	EQ	<^o000004>
.Assume HF2.ND	EQ	<^o000010>
.Assume HF2.SR	EQ	<^o004000>
.Assume HF2.DM	EQ	<^o010000>
.Assume HF2.S6	EQ	<^o020000>
.Assume	HF2.64	EQ	<^o040000>
.Assume	HF2.F3	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HINDF	-- Init/Restore area in home block
;+
;	.HINDF
;
;	+-------+-------+ - - -	+-------+-------+
;HIN.DH:|					|[204] saved header ov(.DIHDF)
;	+-------+-------+ - - -	+-------+-------+
;HIN.E1:|					|[216] first saved entry ov(.DIEDF)
;	+-------+-------+ - - -	+-------+-------+
;HIN.E2:|					|[234] second saved entry ov(.DIEDF)
;	+-------+-------+ - - -	+-------+-------+
;HIN.EZ:					 [252] end of area
;
;-
.MACRO	.HINDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o204>,LIST,E	;HB.INI in .HOMDF
	.DS	HIN.DH	<^o<12/2>> ;saved directory header
	.DS	HIN.E1	<^o<16/2>> ;first saved entry
	.DS	HIN.E2	<^o<16/2>> ;second saved entry
	.DS	HIN.EZ	0	;end of area
.ENDM	.HINDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HINDF
.PRINT ;.HINDF
	.HINDF	YES,==:

.Assume	HIN.DH	EQ	<^o204>
.Assume	HIN.E1	EQ	<^o216>
.Assume	HIN.E2	EQ	<^o234>
.Assume	HIN.EZ	EQ	<^o252>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HOMDF	-- device home block def
;+
;	.HOMDF
;
;	 0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 5 5 6 6 6 6 7 7 7 7
;	 0 2 4 6 0 2 4 6 0 2 4 6 0 2 4 6 0 2 4 6 0 2 4 6 0 2 4 6 0 2 4 6
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;    0xx|A|A|A|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|
;    1xx|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|B|
;    2xx|B| |C|C|C|C|C|C|C|C|C|C|C|C|C|C|C|C|C|C|C|D|D|D|D|D|D|D|D|D| | |
;    3xx| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
;    4xx| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
;    5xx|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|
;    6xx|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|U|
;    7xx|E|F| | | | | | | |G|H|I|J|J|J|J|J|J|K|K|K|K|K|K|L|L|L|L|L|L| |M|
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;
;	A	BBR table (DL DM); seek wrap test words (DW) ov(.DWHDF); else <res>
;	B	BBR table (DL DM); else <res>			o(.BBRDF)
;	C	INIT/RESTORE area				o(.HINDF)
;	D	BUP area					o(.BUPDF)
;	U	User reserved area				o(.HUSDF)
;	E	???
;	F	???
;	G	Pack cluster size (1)
;	H	Block number of first directory (6)		ov(.DIHDF,.DIEDF)
;	I	System version (latest V3B RAD50)		v(.HSVDF)
;	J	Volume Identification
;	K	Owner Name
;	L	System Identification ("DECRT11A____")
;	M	Checksum
;-
.MACRO	.HOMDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Block 1 of an RT-11 volume
	.DS	HB.DWC	0	;DW check for seek wrap
	.DS	HB.BAD	<^o101>	;Bad block replacement table	o(.BBRDF)
	.DS			;<res>
	.DS	HB.INI	<^o23>	;INIT/RESTORE area		ov(.HINDF)
	.DS	HB.BUP	<^o11>	;BUP information area		ov(.BUPDF)
	.DS	,	<^o102>	;<res>
	.DS	HB.USE	<^o100>	;User area in home block	ov(.HUSDF)
	.DS	HB.USZ	0	;first offset past user area
	.DS	HB.STR		;Block number of first data block (0)
	.DS	HB.RTE		;???
	.DS	,	<^o7>	;<res>
	.DS	HB.CLU		;Pack cluster size (1)
	.EQU	HB.CLV	1	;Pack cluster size value
	.DS	HB.DIR		;Block number of first directory (6) o(.DIHDF)
	.EQU	HB.DIV	<^o6>	;Block number value
	.DS	HB.VER		;System version in RAD50	v(.HSVDF)
	.DS	HB.ID	<^o14>,B ;Volume ID
	.DS	HB.OWN	<^o14>,B ;Owner name
	.DS	HB.SID	<^o14>,B ;System ID (DECRT11A)
	.DS			;<res>
	.DS	HB.CKS		;Checksum
.ENDM	.HOMDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HOMDF
.PRINT ;.HOMDF
	.HOMDF	YES,==:

.Assume	HB.DWC	EQ	000000
.Assume	HB.BAD	EQ	000000
.Assume	HB.INI	EQ	<^o000204>
.Assume	HB.BUP	EQ	<^o000252>
.Assume	HB.USE	EQ	<^o000500>
.Assume	HB.USZ	EQ	<^o000700>
.Assume	HB.STR	EQ	<^o000700>
.Assume	HB.RTE	EQ	<^o000702>
.Assume	HB.CLU	EQ	<^o000722>
.Assume	HB.CLV	EQ	000001
.Assume	HB.DIR	EQ	<^o000724>
.Assume	HB.DIV	EQ	<^o000006>
.Assume	HB.VER	EQ	<^o000726>
.Assume	HB.ID	EQ	<^o000730>
.Assume	HB.OWN	EQ	<^o000744>
.Assume	HB.SID	EQ	<^o000760>
.Assume	HB.CKS	EQ	<^o000776>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HNPDF	-- Handler "NOP" flag bits
;+
;	.HNPDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;H1.NOP:| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 1 |HNP|HNP|HNP|HNP|HNP|[1012]
;	|   |	|   |	|   |	|   |	|   |	|   |.F2|.UN|.LO|.RE|.FE|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	HNP.F2 = 1	Second flag word follows
;	HNP.UN = 1	UNLOAD entry point exists
;	HNP.LO = 1	LOAD entry point exists
;	HNP.RE = 1	RELEASE entry point exists
;	HNP.FE = 1	FETCH entry point exists
;	HNP.N1 = 1	Part of 24x
;	HNP.N2 = 1	Part of 24x
;-
.MACRO	.HNPDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;H1.NOP in .HBGDF
	.BS	HNP.FE		;FETCH entry point exists
	.BS	HNP.RE		;RELEASE entry point exists
	.BS	HNP.LO		;LOAD entry point exists
	.BS	HNP.UN		;UNLOAD entry point exists
	.BS	HNP.F2		;second flag word follows
	.BS	HNP.N1		;1 (part of NOP)
	.BS			;0 (part of NOP)
	.BS	HNP.N2		;1 (part of NOP)
	.BS	,	8.	;0 (part of NOP)
.ENDM	.HNPDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HNPDF
.PRINT ;.HNPDF
	.HNPDF	YES,==:

.Assume	HNP.FE	EQ	000001
.Assume	HNP.RE	EQ	<^o000002>
.Assume	HNP.LO	EQ	<^o000004>
.Assume	HNP.UN	EQ	<^o000010>
.Assume	HNP.F2	EQ	<^o000020>
.Assume	HNP.N1	EQ	<^o000040>
.Assume	HNP.N2	EQ	<^o000200>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HS2DF	-- Second handler status word
;+
;	.HS2DF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|					    |HS2|HS2|HS2|HS2|HS2|
;	|					    |.MO|.KU|.KL|.KI|.BI|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	HS2.KI = 1	NO KMON $Install for this handler
;	HS2.BI = 1	NO BSTRAP install for this handler
;	HS2.KL = 1	NO KMON $Load for this handler
;	HS2.KU = 1	NO KMON $Unload for this handler
;	HS2.MO = 1	This handler accepts $[DIS]MOUNT commands
;-
.MACRO	.HS2DF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;H.STS2 in (.HANDF)
	.BS	HS2.BI		;No BSTRAP install for this handler
	.BS	HS2.KI		;No KMON $Install for this handler
	.BS	HS2.KL		;No KMON $Load for this handler
	.BS	HS2.KU		;No KMON $Unload for this handler
	.BS	HS2.MO		;This handler accepts $[DIS]MOUNT commands
.ENDM	.HS2DF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HS2DF
.PRINT ;.HS2DF
	.HS2DF	YES,==:

.Assume	HS2.BI	EQ	<^o000001>
.Assume HS2.KI	EQ	<^o000002>
.Assume	HS2.KL	EQ	<^o000004>
.Assume	HS2.KU	EQ	<^o000010>
.Assume	HS2.MO	EQ	<^o000020>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HSRDF	-- Handler service routines codes
;+
;	.HSRDF
;
;	This is the value passed in R3 upon entry to routine:
;
;	HSR.FE	00	Fetch service routine
;	HSR.RE	02	Release service routine
;	HSR.LO	04	Load service routine
;	HSR.UN	06	Unload service routine
;	HSR.AB	10	Abort service routine
;	HSR.SY	12	System handler load service routine
;	HSR.BR	14	Booter service routine
;	HSR.BE	16	Bootee service routine
;-
.MACRO	.HSRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;
	.DS	HSR.FE		;Fetch service routine
	.DS	HSR.RE		;Release service routine
	.DS	HSR.LO		;Load service routine
	.DS	HSR.UL		;Unload service routine
	.DS	HSR.AB		;Abort service routine
	.DS	HSR.SY		;SY load service routine
	.DS	HSR.BR		;Booter service routine
	.DS	HSR.BE		;Bootee service routine
.ENDM	.HSRDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HSRDF
.PRINT ;.HSRDF
	.HSRDF	YES,==:

.Assume	HSR.FE	EQ	<^o000000>
.Assume	HSR.RE	EQ	<^o000002>
.Assume	HSR.LO	EQ	<^o000004>
.Assume	HSR.UL	EQ	<^o000006>
.Assume	HSR.AB	EQ	<^o000010>
.Assume	HSR.SY	EQ	<^o000012>
.Assume	HSR.BR	EQ	<^o000014>
.Assume	HSR.BE	EQ	<^o000016>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HSVDF	-- Home block system version values
;+
;	.HSVDF
;
;	Legal values for HB.VER in .HOMDF
;-
.MACRO	.HSVDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;HB.VER in .HOMDF
	.EQU	HS.V3A	<^rV3A>	;original value
	.EQU	HS.V4A	<^rV4A>	;next value
	.EQU	HS.V05	<^rV05>	;current value
.ENDM	.HSVDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HSVDF
.PRINT ;.HSVDF
	.HSVDF	YES,==:

.Assume	HS.V3A	EQ	<^rV3A>
.Assume	HS.V4A	EQ	<^rV4A>
.Assume	HS.V05	EQ	<^rV05>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HUMDF	-- define bits in H.64UM word
;+
;	.HUMDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|		 HUM.64			|HUM|HUM|HUM|  HUM.PU	|
;	|					|.UB|.DM|.S6|		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	HUM.64		RAD50 letter for 64 unit handler
;	HUM.UB = 1	handler is "ready" for UMR support
;	HUM.DM = 1	handler uses DMA
;	HUM.S6 = 1	handler supports other 64 unit handlers<fut>
;	HUM.PU		permanent UMRs required by handler (0--7)
;
;	If HUM.UB is clear, the meaning of HUM.UB, HUM.DM  and HUM.PU
;	is <res>
;	If HUM.PU area is non-zero, HUM.DM must be 1.
;-
.MACRO	.HUMDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;H.64UM in (.HANDF)
	.BS	HUM.PU	,3.	;area for number of permanent UMRS required
	.BS	HUM.S6		;handler supports other 64 unit handlers
	.BS	HUM.DM		;DMA used
	.BS	HUM.UB		;"ready" for UMR support
	.BS	HUM.64	,10.	;RAD50 letter for 64 unit handler
.ENDM	.HUMDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HUMDF
.PRINT ;.HUMDF
	.HUMDF	YES,==:

.Assume	HUM.PU	EQ	<^o000007>
.Assume	HUM.S6	EQ	<^o000010>
.Assume	HUM.DM	EQ	<^o000020>
.Assume	HUM.UB	EQ	<^o000040>
.Assume	HUM.64	EQ	<^o177700>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.HUSDF	-- User area of homeblock
;+
;	.HUSDF
;
;	+-------+-------+
;HUS.LE:|		|[000]	length of entry in bytes (0=end of list)
;	+-------+-------+	MUST BE EVEN
;HUS.ID:|		|[002]	user ID (RAD50 usually)
;	+-------+-------+
;HUS.DA:|		|[004]	user defined data
;	+-------+-------+
;
;	The first entry is at offset 500 in the home block.
;	The next entry begins immediately following the previous.
;-
.MACRO	.HUSDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;HB.USE in .HOMDF
	.DS	HUS.LE		;entry length, or 0 for EOL
	.DS	HUS.ID		;entry ID, usually RAD50
	.DS	HUS.DA		;entry data begins here
.ENDM	.HUSDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.HUSDF
.PRINT ;.HUSDF
	.HUSDF	YES,==:

.Assume	HUS.LE	EQ	<^o000>
.Assume	HUS.ID	EQ	<^o002>
.Assume	HUS.DA	EQ	<^o004>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.IBKDF	-- define bits for I.BLOK
;+
;	.IBKDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|res|TTI|TTO|TTO|CHN|SPN|NOR|EXI|res|KSP|res|USR|     <res>	|
;	|   |WT$|WT$|EM$|WT$|D$ |UN$|T$ |   |ND$|   |WT$|		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	TTIWT$ = 1	Waiting for TTY input
;	TTOWT$ = 1	Waiting for room in output buffer
;	TTOEM$ = 1	Waiting for empty output buffer
;	CHNWT$ = 1	Waiting for channel to complete
;	SPND$ = 1	Suspended by .SPND
;	NORUN$ = 1	Job not loaded (being loaded?)
;	EXIT$ = 1	I/O rundown in progress
;	KSPND$ = 1	Suspended by KMON
;	USRWT$ = 1	Waitng for USR
;-
.MACRO	.IBKDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;(I.BLOK in .IMPDF)
	.BS	,	4.	;<res>
	.BS	USRWT$		;Job is waiting for the USR
	.BS			;<res>
	.BS	KSPND$		;Job suspended from KMON
	.BS			;<res>
	.BS	EXIT$		;Waiting for all I/O to stop
	.BS	NORUN$		;Job is not loaded (cleared only by KMON)
	.BS	SPND$		;Suspended (suspend count > 0)
	.BS	CHNWT$		;Waiting for channel to complete
	.BS	TTOEM$		;Waiting for terminal output ring empty
	.BS	TTOWT$		;Waiting for room in buffer
	.BS	TTIWT$		;Waiting for TTY input
	.BS			;<res>
.ENDM	.IBKDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.IBKDF
.PRINT ;.IBKDF
	.IBKDF	YES,==:
.Page
.Assume	USRWT$	EQ	<^o000020>
.Assume	KSPND$	EQ	<^o000100>
.Assume	EXIT$	EQ	<^o000400>
.Assume	NORUN$	EQ	<^o001000>
.Assume	SPND$	EQ	<^o002000>
.Assume	CHNWT$	EQ	<^o004000>
.Assume	TTOEM$	EQ	<^o010000>
.Assume	TTOWT$	EQ	<^o020000>
.Assume	TTIWT$	EQ	<^o040000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.IMPDF	-- impure area layout
;+
;	.IMPDF
;
;I.BASE:+-------+-------+
;I.STAT:|Job Status Bits|[00]					v(.ISTDF)
;	+-------+-------+
;I.QHDR:| -> Free QEL(s)|[02]					o(.QELDF,.QELDF)
;	+-------+-------+
;I.CMPE:| -> Last Compl	|[04]					o(.QCMDF,.QSYDF)
;	+-------+-------+
;I.CMPL:| -> 1st Compl	|[06]					o(.QCMDF,.QSYDF)
;	+-------+-------+
;I.CHWT:| ->Chn Ctrl Blk|[10]					o(.CHNDF)
;	+-------+-------+
;I.PCHW:|  prev I.CHWT	|[12] during completion routine		o(.CHNDF)
;	+-------+-------+
;I.PERR:|???????|ERRBYT	|[14] during completion routine		v(.ERRDF)
;	+-------+-------+
;
;	    not MTT$Y			      MTT$Y
;	+-------+-------+		+-------+-------+
;I.TTLC:|   Line count	|[16]	I.CNSL:	| -> Console TCB|[16]	o(.TCBDF)
;	+-------+-------+		+-------+-------+
;I.PTTI:|???????|prevChr|[20]	<res>	|	0	|[20]
;	+-------+-------+		+-------+-------+
;
;	       ALL
;	+-------+-------+
;I.TID:	| -> I.JID	|[22]
;	+-------+-------+
;I.JNUM:|   Job Number	|[24]
;	+-------+-------+
;I.CNUM:| Number of Chan|[26]
;	+-------+-------+
;I.CSW:	| -> Channels	|[30]					o(.CHNDF)
;	+-------+-------+
;I.IOCT:| Outstanding IO|[32]
;	+-------+-------+
;I.SCTR:| Suspend count	|[34]
;	+-------+-------+
;I.BLOK:| Blocking bits	|[36]					v(.IBKDF)
;	+-------+-------+
;
;	    not SYT$K			      SYT$K
;	+-------+-------+		+-------+-------+
;I.JID:	|   4 words of	|[40]	I.JID:	|   6 words of	|[40]
;	+		+		+		+
;	|		|		|		|
;	+    prompt	+		+    prompt	+
;	|		|		|		|
;	+    string	+		+		+
;	|		|		|    string	|
;	+-------+-------+		+		+
;			 [50]		:		:
;					+-------+-------+
.Page
;					      SYT$K
;					+-------+-------+
;				I.LNAM:	|  Job Logical	|[54]
;					+		+
;					|		|
;					+     name	+
;					|		|
;					+-------+-------+
;	A=50+<SYT$K*12>
;
;	       ALL
;	+-------+-------+
;I.NAME:|		|[A]					o(.DBKDF)
;	+		+
;	|  Job File	|
;	+		+
;	|   Name DBLK	|
;	+		+
;	|		|
;	+-------+-------+
;I.SPLS:| -> .DEVICE	|[A+10]					o(.DVLDF)
;	+-------+-------+
;I.TRAP:| -> T4/10 rout.|[A+12]
;	+-------+-------+
;					     FPU$11
;					+-------+-------+
;				I.FPP:	| -> FPU AST	|[A+14]
;					+-------+-------+
;	B=A+12+<FPU$11*2>
;					  MMG$T & not SB
;					+-------+-------+
;				I.SPSV:	| bottom save SP|[B]
;					+-------+-------+
;
;	C=B+<MMG$T*BS*2>
;
;					     not SB
;					+-------+-------+
;				 I.SWAP:| -> Extra Swap	|[C]	o(.SWPDF)
;					+		+
;					|		|
;					+-------+-------+
;				I.SP:	| saved SP reg	|[C+4]
;					+-------+-------+
;				I.BITM	| Vector Protect|[C+6]
;					:      Map	:
;					|		|
;					+-------+-------+
;
;	D=C+<BS*24>
.Page
;
;					      MTT$Y
;					+-------+-------+
;				I.CLUN:	| Console LUN	|[D]
;					+-------+-------+
;				I.TTLC:	|   Line Count	|[D+2]
;					+-------+-------+
;
;	E=D+<MTT$Y*4>
;
;	       ALL
;	+-------+-------+
;I.IRNG:|In Ring Low Lim|[E]
;	+-------+-------+
;I.IPUT:| -> put ptr	|[E+2]
;	+-------+-------+
;I.ICTR:|  Char count	|[E+4]
;	+-------+-------+
;I.IGET:| -> get ptr	|[E+6]
;	+-------+-------+
;I.ITOP:|In Ring Hi Lim	|[E+10]
;	+-------+-------+ - - - - - - - +-------+
;	|	|	|		|	|[E+12] TTYIN buffer (aprx206)
;	+-------+-------+ - - - - - - - +-------+
;
;	F=E+10+TTBF$I
;
;	+-------+-------+
;I.OPUT:| -> put ptr	|[F]
;	+-------+-------+
;I.OCTR:	|Chr cnt|[F+2]
;		+-------+
;I.CTLO:	|^O Flag|[F+3]
;	+-------+-------+
;I.OGET:| -> get ptr	|[F+4]
;	+-------+-------+
;I.OTOP:|In Ring Hi Lim	|[F+6]
;	+-------+-------+ - - - - - - - +-------+
;	|	|	|		|	|[F+10] TTYOUT buffer (aprx50)
;	+-------+-------+ - - - - - - - +-------+
;
;	G=F+10+TTBF$O
;
;	    not MMG$T			      MMG$T
;	+-------+-------+		+-------+-------+
;I.QUE:	|    Initial	|[G]	I.QUE:	|    Initial	|[G]	o(.QELDF)
;	+		+		+		+
;	:     Queue	:		:     Queue	:
;	:		:		:		:
;	:    Element	:		:    Element	:
;	+		+		+		+
;	|		|		|		|
;	+-------+-------+		+-------+-------+
;
;	H=G+10+<MMG$T*6>
.Page
;					     not SB
;					+-------+-------+
;				I.MSG:	| Message Chan	|[H]	o(.CHNDF)
;					+		+
;					|		|
;					+-------+-------+
;
;	J=H+<BS*4>
;
;	       ALL
;	+-------+-------+
;I.SERR:| Hard/Soft flag|[J]
;	+-------+-------+
;					     not SB
;					+-------+-------+
;				more	|		|[H+6]
;				I.MSG	+		+
;					|		|
;					+-------+-------+
;
;	K=J+2+<BS*10>
;
;	       ALL
;	+-------+-------+
;I.TERM:|  Term Status	|[K]					v(.TSTDF)
;	+-------+-------+
;I.TRM2:|2nd Term Status|[K+2]					v(.TS2DF)
;	+-------+-------+
;I.SCCA:| -> ^C flag wd	|[K+4]					v(.TASDF)
;	+-------+-------+
;
;					      MMG$T
;					+-------+-------+
;				I.SCC1:	|   PAR1 bias	|[K+6]
;					+-------+-------+
;			{		     MMG$T(V6)			}
;			{		+-------+-------+		}
;			{	I.SCCV:	|  Virtual Addr	|[K+10]	}
;			{		+-------+-------+		}
;
;	L=K+6+<MMG$T*2>
;{	L=K+6+<MMG$T*4>							}
;
;	       ALL
;	+-------+-------+
;I.DEVL:| -> .DEVICE lst|[L]					o(.DVLDF)
;	+-------+-------+
;
;					  MMG$T & FPU$11 & not SB
;					+-------+-------+
;				I.FPSA:	| -> FPU save	|[L+2]
;					+-------+-------+
;
.Page
;	M=L+2+<MMG$T*FPU$11*BS*2>
;
;					  MMG$T & not SB
;					+-------+-------+
;				I.SCOM:	|  SYSCOM save	|[M]
;					:		:
;					:   15. words	:
;					|		|
;					+-------+-------+
;
;	N=M+<MMG$T*BS*36>
;
;					  MMG$T & MTT$Y & not SB
;					+-------+-------+
;					|		|[N]
;					+-------+-------+
;
;	P=N+<MMG$T*MTT$Y*BS*2>
;
;					  MMG$T & not SB
;					+-------+-------+
;				I.RSAV:	| register save	|[P]
;					+		+
;					|		|
;					+		+
;					|		|
;					+		+
;					|		|
;					+		+
;					|		|
;					+		+
;					|		|
;					+-------+-------+
;
;	P5=P+<MMG$T*BS*20>
;
;					      MMG$T
;					+-------+-------+
;				I.MPTR:	| chunk -> MCA	|[P5] ov(.MCADF)
;					+-------+-------+
;				I.MPB:	| copy area for	|[P5+2]
;					+   PLAS user	+
;					|  parameters	|(7)
;					+		+
;					|		|
;					+		+
;					|		|
;					+		+
;					|		|
;					+		+
;					|		|
;					+-------+-------+
;
.Page
;	Q=P5+<MMG$T*<2+<7*2>>>
;					  MMG$T & SUP$Y
;					+-------+-------+
;				I.PLSP:	|PLAS mode/space|[Q]
;					+-------+-------+
;				I.CMAP:	| .CMAP status	|[Q+2]
;					+-------+-------+
;
;	R=Q+<MMG$T*SUP$Y*4>
;
;
;					  MMG$T & FPU$11 & not SB
;					+-------+-------+
;				I.FSAV:	| 25. words	|[R]
;					:		:
;					|		|
;					+-------+-------+
;
;	S=R+<MMG$T*FPU$11*BS*62>
;
;					      MMG$T
;					+-------+-------+
;				I.VHI:	|Virt high limit|[S]
;					+-------+-------+
;				I.VSTP:	|VBGEXE hi limit|[S]
;					+-------+-------+
;
;	T=S+<MMG$T*4>
;
;					     SPC$PS
;					+-------+-------+
;				I.ECTR:	|EMT depth count|[T]
;					+-------+-------+
;				I.SPCP:	|-> SPCPS block	|[T+2]	o(.SPCDF)
;					+-------+-------+
.Page
;	U=T+<SPC$PS*4>
;
;					  MMG$T & SPC$PS
;					+-------+-------+
;				I.SPC1:	|  PAR 1 offset	|[U]
;					+-------+-------+
;
;	V=U+<MMG$T*SPC$PS*2>
;
;					  MMG$T & SUP$Y
;					+-------+-------+
;				I.TRPS:	|->sup T4/10 rtn|[V]
;					+-------+-------+
;
;	W=V+<MMG$T*SUP$Y*2>
;
;					  MMG$T & SUP$Y & FPU$11
;					+-------+-------+
;				I.FPPS:	| ->supy FPU AST|[W]
;					+-------+-------+
;
;	X=W+<MMG$T*SUP$Y*FPU$11*2>
;
;	ALL (not in BG)
;	+-------+-------+
;I.SCHP:|-> Job SYS Chn	|[X]					o(.CHNDF)
;	+-------+-------+
;I.SYCH:| Job SYS Chn	|[X+2]					o(.CHNDF)
;	+		+
;	|		|
;	+		+
;	|		|
;	+		+
;	|		|
;	+		+
;	|		|
;	+-------+-------+
;IMP.SZ:		 [X+14]
;-
.Page
.MACRO	.IMPDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;($CNTXT in .FIXDF; J.BIMP in .GTJDF)
	.EQU I.MAPSZ	10.
	.DS	I.BASE	0	;  base addr of impure DSECT
	.DS	I.STAT		;1 status bits for a job	v(.ISTDF)
	.DS	I.QHDR		;1 I/O queue header		o(.QELDF, .QELDF)
	.DS	I.CMPE		;1 completion queue last element o(.QCMDF, .QSYDF)
	.DS	I.CMPL		;1 completion queue head	o(.QCMDF, .QSYDF)
	.DS	I.CHWT		;1 -> to channel during I/O wait o(.CHNDF)
	.DS	I.PCHW		;1 saved I.CHWT during completion o(.CHNDF)
	.DS	I.PERR		;1 saved ERRBYT during completion v(.ERRDF)
.IIF NDF MTT$Y MTT$Y=0
.IF EQ	MTT$Y
	.DS	I.TTLC		;TTY line count
	.DS	I.PTTI		;previous TTY input char
.IFF ;EQ MTT$Y
	.DS	I.CNSL		;-> to TCB for this job's console o(.TCBDF)
	.DS			;filler, so MTT$Y & non MTT$Y are=size
.ENDC ;EQ MTT$Y
	.DS	I.TID		;-> to job id area
	.DS	I.JNUM		;job number
	.DS	I.CNUM		;2 number of channels defined
	.DS	I.CSW		;2 -> to channel area		o(.CHNDF)
	.DS	I.IOCT		;number of outstanding I/O operations
	.DS	I.SCTR		;suspend counter (<0 => suspended)
	.DS	I.BLOK		;blocking bits for a job	v(.IBKDF)
.IIF NDF SYT$K	.MEXIT
.IF NE	SYT$K
	.DS	I.JID	6.	;job TTY prompt string
.IIF NE	FIX$ED	.MEXIT
	.DS	I.LNAM	3.	;ASCII logical job name
.IFF ;NE SYT$K
	.DS	I.JID	4.	;job TTY prompt string
.IIF NE	FIX$ED	.MEXIT
.ENDC ;NE SYT$K
	.DS	I.NAME	4.	;RAD50 name/ext of job running o(.DBKDF)
	.DS	I.SPLS		;3 -> special device addr list o(.DVLDF)
	.DS	I.TRAP		;3 -> trap to 4/10 routine
.IIF NDF FPU$11	.MEXIT
.IF NE	FPU$11
	.DS	I.FPP		;3 -> FPP exception routine
	.EQU	FPPSWP	1	; indicate swap FPP context, but no routine
.ENDC ;NE FPU$11
.IIF NDF SB	.MEXIT
.IF EQ	SB
.IIF NDF MMG$T	.MEXIT
.IF NE	MMG$T
	.DS	I.SPSV		;3 bottom of saved SP data
.ENDC ;NE MMG$T
	.DS	I.SWAP	2.	;3 -> to extra swap stuff	o(.SWPDF)
	.DS	I.SP		;3 saved stack pointer
	.DS	I.BITM	I.MAPSZ	;3 bit map for protection
.ENDC ;EQ SB
.IF NE	MTT$Y
	.DS	I.CLUN		;LUN of job's console
	.DS	I.TTLC		;4 TTY line count
.ENDC ;NE MTT$Y
	.DS	I.IRNG		;4 input ring low limit
	.DS	I.IPUT		;4 input 'put' -> for interrupts
	.DS	I.ICTR		;4 input char count
	.DS	I.IGET		;4 input 'get' -> for .ttyin emt
	.DS	I.ITOP		;4 input ring buffer high limit
.IIF NDF TTBF$I	.EQU	TTBF$I	134.
	.DS	,	TTBF$I,B	;4 input ring
	.DS	I.OPUT		;5 output 'put' -> for .ttyout emt
	.DS	I.OCTR	,,B	;6 output char count
	.DS	I.CTLO	,,B	;6 The high byte of the I.OCTR word is
				; used as the ^O flag. If the byte is 0
	.EQU	CTLOF$ 177777	; normal output, if the byte is all 1s
				; ^O is in effect
	.DS	I.OGET		;6 output 'get' -> for interrupts
	.DS	I.OTOP		;6 output ring buffer high limit
.IIF NDF TTBF$O	.EQU	TTBF$O	40.
	.DS	,	TTBF$O,B ;6 output ring
.IF EQ	MMG$T
	.EQU	Q.WSIZ	7.
.IFF ;EQ MMG$T
	.EQU	Q.WSIZ	10.
.ENDC ;EQ MMG$T
	.DS	I.QUE	Q.WSIZ	;the initial queue element	o(.QELDF,.QELDF)
.IF EQ	SB
	.DS	I.MSG	2.	;internal message channel	o(.CHNDF)
	.DS	I.SERR	3.	;use word 3 as hard/soft err flag
.IFF ;EQ SB
	.DS	I.SERR		;hard/soft err flag
.ENDC ;EQ SB
	.DS	I.TERM		;terminal status word		v(.TSTDF)
	.DS	I.TRM2		;terminal status word 2		v(.TS2DF)
	.DS	I.SCCA		;^C terminal status word	v(.TASDF)
.IF NE	MMG$T
	.DS	I.SCC1		;PAR1 bias of I.SCCA for XM
;;;;;	.DS	I.SCCV		;Virtual addr of I.SCCA for XM (V6)
.ENDC ;NE MMG$T
	.DS	I.DEVL		;-> to linked .DEVICE list	o(.DVLDF)
.IF NE	MMG$T
.IF EQ	SB
.IF NE	FPU$11
	.DS	I.FPSA		;-> to FPU save area
.ENDC ;NE FPU$11
.IF EQ	MTT$Y
	.DS	I.SCOM	15.	;6 SYSCOM save area
.IFF ;EQ MTT$Y
	.DS	I.SCOM	16.	;6 SYSCOM save area
.ENDC ;EQ MTT$Y
	.DS	I.RSAV	8.	;6 register save area
.ENDC; EQ SB
	.DS	I.MPTR		;chunk -> to job's MCA		ov(.MCADF)
	.DS	I.MPB	7.	;copy area for user PLAS parameters
.IF NE	SUP$Y
	.DS	I.PLSP		;PLAS mode/space pass parameters
	.DS	I.CMAP		;job's .CMAP status		ov(.CMPDF)
	.DS	I.SSP		;job's saved Supervisor SP (SSP)
.ENDC ;NE SUP$Y
.IF EQ	SB
.IF NE	FPU$11
	.DS	I.FSAV	6.*4.+1	;FPU save area (6 DP regs + status)
.ENDC ;NE FPU$11
.ENDC; EQ SB
	.DS	I.VHI		;SETTOP virtual high limit (LINK /V)
	.DS	I.VSTP		;SETTOP high limit for VBGEXE jobs
.ENDC ;NE MMG$T
.IIF NDF SPC$PS	.MEXIT
.IF NE	SPC$PS
	.DS	I.ECTR		;EMT depth counter
	.DS	I.SPCP		;-> SPCPS block		o(.SPCDF)
.IF NE	MMG$T
	.DS	I.SPC1		;PAR1 for SPCPS block
.ENDC ;NE MMG$T
.ENDC ;NE SPC$PS
.IF NE	MMG$T
 .IF NE SUP$Y
	.DS	I.TRPS		;-> to supervisor mode T4/10 routine
  .IF NE FPU$11
	.DS	I.FPPS		;-> to supervisor mode FPP exception routine
  .ENDC ;NE FPU$11
 .ENDC ;NE SUP$Y
.ENDC; NE MMG$T
	.DS	I.SCHP		;-> to job's system channel o(.CHNDF)
	.DS	I.SYCH	5.	;job's system channel		 o(.CHNDF)
	.DS	IMP.SZ	0	;len of impure area
.ENDM	.IMPDF
.ENDC ;EQ GP3$DO
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.IMPDF
.PRINT ;.IMPDF
.Page
.REM	@ model .Assumes
MTT$Y=1
SYT$K=1
FPU$11=1
MMG$T=1
SB=0
BS=1-SB
SPC$PS=1
SUP$Y=1
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.CNSL EQ <^o16>	;MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
.Assume	I.LNAM EQ <^o54>	;SYT$K
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
.Assume	I.FPP  EQ <$A+^o14>	;FPU$11
$B=$A+^o<14+<FPU$11*2>>
.Assume	I.SPSV EQ <$B>		;MMG$T&^SB
$C=$B+^o<<MMG$T*BS*2>>
.Assume	I.SWAP EQ <$C>		;^SB
.Assume	I.SP   EQ <$C+^o4>	;^SB
.Assume	I.BITM EQ <$C+^o6>	;^SB
$D=$C+^o<<BS*32>>
.Assume	I.CLUN EQ <$D>		;MTT$Y
.Assume	I.TTLC EQ <$D+^o2>	;MTT$Y
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
.Assume	I.MSG  EQ <$H>		;^SB
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
.Assume	I.SCC1 EQ <$K+^o6>	;MMG$T
$L=$K+^o<6+<MMG$T*2>>
.REM	%
.Assume	I.SCCV EQ <$K+^o10>	;MMG$T
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
.Assume	I.FPSA EQ <$L+^o2>	;MMG$T&FPU$11&^SB
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
.Assume	I.SCOM EQ <$M>		;MMG$T&^SB
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
.Assume	I.RSAV EQ <$P>		;MMG$T&^SB
$P5=$P+^o<<MMG$T*BS*20>>
.Assume	I.MPTR EQ <$P5>		;MMG$T
.Assume	I.MPB  EQ <$P5+^o2>	;MMG$T
$Q=$P5+^o<MMG$T*<2+<7*2>>>
.Assume	I.PLSP EQ <$Q>		;MMG$T&SUP$Y
.Assume	I.CMAP EQ <$Q+^o2>	;MMG$T&SUP$Y
.Assume	I.SSP  EQ <$Q+^o4>	;MMG$T&SUP$Y
$R=$Q+^o<MMG$T*SUP$Y*6>
.Assume	I.FSAV EQ <$R>		;MMG$T&FPU$11&^SB
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
.Assume	I.VHI  EQ <$S>		;MMG$T
.Assume	I.VSTP EQ <$S+^o2>	;MMG$T
$T=$S+^o<<MMG$T*4>>
.Assume	I.ECTR EQ <$T>		;SPC$PS
.Assume	I.SPCP EQ <$T+^o2>	;SPC$PS
$U=$T+^o<<SPC$PS*4>>
.Assume	I.SPC1 EQ <$U>		;MMG$T&SPC$PS
$V=$U+^o<<MMG$T*SPC$PS*2>>
.Assume I.TRPS EQ <$V>		;MMG$T&SUP$Y
$W=$V+^o<<MMG$T*SUP$Y*2>>
.Assume I.FPPS EQ <$W>		;MMG$T&SUP$Y&FPU$11
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
	@
.Page
MTT$Y=1
SYT$K=1
FPU$11=1
MMG$T=1
SB=0
BS=1-SB
SPC$PS=1
SUP$Y=1
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.CNSL EQ <^o16>	;MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
.Assume	I.LNAM EQ <^o54>	;SYT$K
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
.Assume	I.FPP  EQ <$A+^o14>	;FPU$11
$B=$A+^o<14+<FPU$11*2>>
.Assume	I.SPSV EQ <$B>		;MMG$T&^SB
$C=$B+^o<<MMG$T*BS*2>>
.Assume	I.SWAP EQ <$C>		;^SB
.Assume	I.SP   EQ <$C+^o4>	;^SB
.Assume	I.BITM EQ <$C+^o6>	;^SB
$D=$C+^o<<BS*32>>
.Assume	I.CLUN EQ <$D>		;MTT$Y
.Assume	I.TTLC EQ <$D+^o2>	;MTT$Y
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
.Assume	I.MSG  EQ <$H>		;^SB
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
.Assume	I.SCC1 EQ <$K+^o6>	;MMG$T
$L=$K+^o<6+<MMG$T*2>>
.REM	%
.Assume	I.SCCV EQ <$K+^o10>	;MMG$T
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
.Assume	I.FPSA EQ <$L+^o2>	;MMG$T&FPU$11&^SB
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
.Assume	I.SCOM EQ <$M>		;MMG$T&^SB
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
.Assume	I.RSAV EQ <$P>		;MMG$T&^SB
$P5=$P+^o<<MMG$T*BS*20>>
.Assume	I.MPTR EQ <$P5>		;MMG$T
.Assume	I.MPB  EQ <$P5+^o2>	;MMG$T
$Q=$P5+^o<MMG$T*<2+<7*2>>>
.Assume	I.PLSP EQ <$Q>		;MMG$T&SUP$Y
.Assume	I.CMAP EQ <$Q+^o2>	;MMG$T&SUP$Y
.Assume	I.SSP  EQ <$Q+^o4>	;MMG$T&SUP$Y
$R=$Q+^o<MMG$T*SUP$Y*6>
.Assume	I.FSAV EQ <$R>		;MMG$T&FPU$11&^SB
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
.Assume	I.VHI  EQ <$S>		;MMG$T
.Assume	I.VSTP EQ <$S+^o2>	;MMG$T
$T=$S+^o<<MMG$T*4>>
.Assume	I.ECTR EQ <$T>		;SPC$PS
.Assume	I.SPCP EQ <$T+^o2>	;SPC$PS
$U=$T+^o<<SPC$PS*4>>
.Assume	I.SPC1 EQ <$U>		;MMG$T&SPC$PS
$V=$U+^o<<MMG$T*SPC$PS*2>>
.Assume I.TRPS EQ <$V>		;MMG$T&SUP$Y
$W=$V+^o<<MMG$T*SUP$Y*2>>
.Assume I.FPPS EQ <$W>		;MMG$T&SUP$Y&FPU$11
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.Page
MTT$Y=0
SYT$K=0
FPU$11=0
MMG$T=0
SB=1
BS=1-SB
SPC$PS=0
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
$L=$K+^o<6+<MMG$T*2>>
.REM	%
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
$T=$S+^o<<MMG$T*2>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.Page
MTT$Y=1
SYT$K=0
FPU$11=0
MMG$T=0
SB=1
BS=1-SB
SPC$PS=0
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.CNSL EQ <^o16>	;MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
$L=$K+^o<6+<MMG$T*2>>
.REM	%
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
$T=$S+^o<<MMG$T*2>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.Page
MTT$Y=0
SYT$K=1
FPU$11=0
MMG$T=0
SB=1
BS=1-SB
SPC$PS=0
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
.Assume	I.LNAM EQ <^o54>	;SYT$K
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
$L=$K+^o<6+<MMG$T*2>>
.REM	%
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
$T=$S+^o<<MMG$T*2>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.page
MTT$Y=0
SYT$K=0
FPU$11=1
MMG$T=0
SB=1
BS=1-SB
SPC$PS=0
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
.Assume	I.FPP  EQ <$A+^o14>	;FPU$11
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
$L=$K+^o<6+<MMG$T*2>>
.REM	%
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
$T=$S+^o<<MMG$T*2>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.page
MTT$Y=0
SYT$K=0
FPU$11=0
MMG$T=1
SB=1
BS=1-SB
SPC$PS=0
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
.Assume	I.SCC1 EQ <$K+^o6>	;MMG$T
$L=$K+^o<6+<MMG$T*2>>
.REM	%
.Assume	I.SCCV EQ <$K+^o10>	;MMG$T
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
.Assume	I.MPTR EQ <$P5>		;MMG$T
.Assume	I.MPB  EQ <$P5+^o2>	;MMG$T
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
.Assume	I.VHI  EQ <$S>		;MMG$T
.Assume	I.VSTP EQ <$S+^o2>	;MMG$T
$T=$S+^o<<MMG$T*4>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.page
MTT$Y=0
SYT$K=0
FPU$11=0
MMG$T=1
SB=1
BS=1-SB
SPC$PS=0
SUP$Y=1
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
.Assume	I.SCC1 EQ <$K+^o6>	;MMG$T
$L=$K+^o<6+<MMG$T*2>>
.REM	%
.Assume	I.SCCV EQ <$K+^o10>	;MMG$T
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
.Assume	I.MPTR EQ <$P5>		;MMG$T
.Assume	I.MPB  EQ <$P5+^o2>	;MMG$T
$Q=$P5+^o<MMG$T*<2+<7*2>>>
.Assume	I.PLSP EQ <$Q>		;MMG$T&SUP$Y
.Assume	I.CMAP EQ <$Q+^o2>	;MMG$T&SUP$Y
.Assume	I.SSP  EQ <$Q+^o4>	;MMG$T&SUP$Y
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
.Assume	I.VHI  EQ <$S>		;MMG$T
.Assume	I.VSTP EQ <$S+^o2>	;MMG$T
$T=$S+^o<<MMG$T*4>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
.Assume I.TRPS EQ <$V>		;MMG$T&SUP$Y
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.page
MTT$Y=0
SYT$K=0
FPU$11=0
MMG$T=0
SB=0
BS=1-SB
SPC$PS=0
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
.Assume	I.SWAP EQ <$C>		;^SB
.Assume	I.SP   EQ <$C+^o4>	;^SB
.Assume	I.BITM EQ <$C+^o6>	;^SB
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
.Assume	I.MSG  EQ <$H>		;^SB
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
$L=$K+^o<6+<MMG$T*2>>
.REM	%
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
$T=$S+^o<<MMG$T*2>>
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.page
MTT$Y=0
SYT$K=0
FPU$11=0
MMG$T=0
SB=1
BS=1-SB
SPC$PS=1
SUP$Y=0
	.IMPDF	YES,==
.Page
.Assume I.BASE EQ 0
.Assume	I.STAT EQ 0
.Assume	I.QHDR EQ <^o2>
.Assume	I.CMPE EQ <^o4>
.Assume	I.CMPL EQ <^o6>
.Assume	I.CHWT EQ <^o10>
.Assume	I.PCHW EQ <^o12>
.Assume	I.PERR EQ <^o14>
.Assume	I.TTLC EQ <^o16>	;^MTT$Y
.Assume	I.PTTI EQ <^o20>	;^MTT$Y
.Assume	I.TID  EQ <^o22>
.Assume	I.JNUM EQ <^o24>
.Assume	I.CNUM EQ <^o26>
.Assume	I.CSW  EQ <^o30>
.Assume	I.IOCT EQ <^o32>
.Assume	I.SCTR EQ <^o34>
.Assume	I.BLOK EQ <^o36>
.Assume	I.JID  EQ <^o40>
$A=^o<50+<SYT$K*12>>
.Assume	I.NAME EQ <$A>
.Assume	I.SPLS EQ <$A+^o10>
.Assume	I.TRAP EQ <$A+^o12>
$B=$A+^o<14+<FPU$11*2>>
$C=$B+^o<<MMG$T*BS*2>>
$D=$C+^o<<BS*32>>
$E=$D+^o<<MTT$Y*4>>
.Assume	I.IRNG EQ <$E>
.Assume	I.IPUT EQ <$E+^o2>
.Assume	I.ICTR EQ <$E+^o4>
.Assume	I.IGET EQ <$E+^o6>
.Assume	I.ITOP EQ <$E+^o10>
$F=$E+^o<12+TTBF$I>
.Assume	I.OPUT EQ <$F>
.Assume	I.OCTR EQ <$F+^o2>
.Assume	I.CTLO EQ <$F+^o3>
.Assume	CTLOF$ EQ -1
.Assume	I.OGET EQ <$F+^o4>
.Assume	I.OTOP EQ <$F+^o6>
$G=$F+^o<10+TTBF$O>
.Assume	I.QUE  EQ <$G>
$H=$G+^o<16+<MMG$T*6>>
$J=$H+^o<<BS*4>>
.Assume	I.SERR EQ <$J>
.Page
$K=$J+^o<2+<BS*4>>
.Assume	I.TERM EQ <$K>
.Assume	I.TRM2 EQ <$K+^o2>
.Assume	I.SCCA EQ <$K+^o4>
$L=$K+^o<6+<MMG$T*2>>
.REM	%
$L=$K+^o<6+<MMG$T*4>>
	%
.Assume	I.DEVL EQ <$L>
$M=$L+^o<2+<MMG$T*FPU$11*BS*2>>
$N=$M+^o<<MMG$T*BS*36>>
$P=$N+^o<<MMG$T*MTT$Y*BS*2>>
$P5=$P+^o<<MMG$T*BS*20>>
$Q=$P5+^o<MMG$T*<2+<7*2>>>
$R=$Q+^o<MMG$T*SUP$Y*6>
$S=$R+^o<<MMG$T*FPU$11*BS*62>>
$T=$S+^o<<MMG$T*2>>
.Assume	I.ECTR EQ <$T>		;SPC$PS
.Assume	I.SPCP EQ <$T+^o2>	;SPC$PS
$U=$T+^o<<SPC$PS*4>>
$V=$U+^o<<MMG$T*SPC$PS*2>>
$W=$V+^o<<MMG$T*SUP$Y*2>>
$X=$W+^o<<MMG$T*SUP$Y*FPU$11*2>>
.Assume	I.SCHP EQ <$X>
.Assume	I.SYCH EQ <$X+^o2>
.Assume	IMP.SZ EQ <$X+^o14>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.INDDF	-- IND status byte bit definitions
;+
;	.INDDF
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;	|IN$|IN$|LN$|res|     CC$ALL	|
;	|IND|RUN|IND|	|		|
;	+---+---+---+---+---+---+---+---+
;			|CC$|CC$| <res>	|
;			|GBL|IND|	|
;			+---+---+---+---+
;
;	IN$IND = 1	KMON started by IND
;	IN$RUN = 1	KMON is running IND
;	LN$IND = 1	Current line passed by IND
;	CC$ALL		all the global SCCA bits
;	CC$GBL = 1	Global SCCA established by .SCCA (GLOBAL)
;	CC$IND = 1	Global SCCA established by IND (.DISABLE ...)
;-
.MACRO	.INDDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($INDST in .FIXDF)
	.BS	,	2.	;global SCCA from <res>
	.BS	CC$IND		;global SCCA from IND
	.BS	CC$GLB		;global SCCA from .SCCA
	.BSECT	,,E
	.BS	CC$ALL	4.	;global SCCA on if any bit on
	.BS			;<res>
	.BS	LN$IND		;current line passed by IND
	.BS	IN$RUN		;KMON is running IND
	.BS	IN$IND		;KMON started by IND
.ENDM	.INDDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.INDDF
.PRINT ;.INDDF
	.INDDF	YES,==:

.Assume	CC$ALL	EQ	<^o017>
.Assume	CC$IND	EQ	<^o004>
.Assume	CC$GLB	EQ	<^o010>
.Assume	LN$IND	EQ	<^o040>
.Assume	IN$RUN	EQ	<^o100>
.Assume	IN$IND	EQ	<^o200>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.IOBDF	-- I/O Block (used for system I/O requests)
;+
;	.IOBDF
;
;	+-------+-------+
;IO.BUF:|		|[0]
;	+-------+-------+
;IO.WCN:|		|[2]	<0 for write
;	+-------+-------+
;IO.COM:|	0	|[4]	0 for wait I/O
;	+-------+-------+
;-
.MACRO	.IOBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	IO.BUFF		;-> Buffer
	.DS	IO.WCNT		;Word Count (<0 if write)
	.DS	IO.COMP		;Completion routine (0)
.ENDM	.IOBDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.IOBDF
.PRINT ;.IOBDF
	.IOBDF	YES,==:

.Assume	IO.BUFF	EQ	000000
.Assume	IO.WCNT	EQ	<^o000002>
.Assume	IO.COMP	EQ	<^o000004>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.ISTDF	-- define bits for I.STAT
;+
;	.ISTDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|CMP|VLO|VRU|WIN|LOA|   <res>	|CPE|res|ABO|res|USR|CSI|BAT|ABP|
;	|LT$|AD$|N$ |DW$|D$ |		|ND$|	|RT$|   |RN$|RN$|RN$|ND$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	CMPLT$ = 1	Job is in completion routine
;	VLOAD$ = 1	Job is being loaded by VBGEXE
;	VRUN$  = 1	Job is running under VBGEXE
;	WINDW$ = 1	Job is non-priv, virt job
;	LOAD$  = 1	Job in load phase
;	CPEND$ = 1	Completion routine is pending
;	ABORT$ = 1	Job requires abort
;	USRRN$ = 1	USR is running for this job
;	CSIRN$ = 1	CSI is running for this job
;	BATRN$ = 1	BATCH or EL (or SL?) is running, no addr check
;	ABPND$ = 1	Abort pending
;-
.MACRO	.ISTDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;(I.STAT in .IMPDF)
	.BS	ABPND$		;Abort requested for this job
	.BS	BATRN$		;BATCH or EL is running, no addr check
	.BS	CSIRN$		;CSI is running for this job
	.BS	USRRN$		;USR is running for this job
	.BS			;<res>
	.BS	ABORT$		;Job requires abort
	.BS			;<res>
	.BS	CPEND$		;Completion routine is pending
	.BS	,	3.	;<res>
	.BS	LOAD$		;FG or system job in load phase
	.BS	WINDW$		;Job is non-priv, virt job
	.BS	VRUN$		;Job is running under VBGEXE
	.BS	VLOAD$		;Job is being loaded by VBGEXE
	.BS	CMPLT$		;Job is in completion routine
.ENDM	.ISTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ISTDF
.PRINT ;.ISTDF
	.ISTDF	YES,==:
.Page
.Assume	ABPND$	EQ	000001
.Assume	BATRN$	EQ	<^o000002>
.Assume	CSIRN$	EQ	<^o000004>
.Assume	USRRN$	EQ	<^o000010>
.Assume	ABORT$	EQ	<^o000040>
.Assume	CPEND$	EQ	<^o000200>
.Assume	LOAD$	EQ	<^o004000>
.Assume	WINDW$	EQ	<^o010000>
.Assume	VRUN$	EQ	<^o020000>
.Assume	VLOAD$	EQ	<^o040000>
.Assume	CMPLT$	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.IT2DF	-- Define bits for I.TRM2		*UNIMPLEMENTED*
.SbTtl	.ITSDF	-- Define bits for I.TERM		*UNIMPLEMENTED*
.SbTtl	.JSWDF	-- JSW bits
;+
;	.JSWDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;XM:	|res|TTL|RST|TTS|CHN|VIR|OVL|CHA|VBG|TCB|SPX|EDI|GTL|VRU| <res>	|
;	|   |C$ |RT$|PC$|IF$|T$ |Y$ |IN$|EX$|IT$|IT$|T$ |IN$|NV$|	|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;FB:	|res|TTL|RST|TTS|CHN|res|OVL|CHA|res|TCB|SPX|EDI|GTL|	<res>	|
;	|   |C$ |RT$|PC$|IF$|	|Y$ |IN$|   |IT$|IT$|T$ |IN$|		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;SJ:	|USW|TTL|RST|TTS|CHN|res|OVL|CHA|HLT|TCB|SPX|EDI|GTL|	<res>	|
;	|AP$|C$ |RT$|PC$|IF$|	|Y$ |IN$|ER$|IT$|IT$|T$ |IN$|		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;86x0:	|res|TTL|RST|TTS|CHN|res|OVL|CHA|res|TCB|SPX|EDI|GTL| <res> |PAS|
;	|   |C$ |RT$|PC$|IF$|	|Y$ |IN$|   |IT$|IT$|T$ |IN$|	    |AL$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	  $   +*  +*  +*  +*  $+  +*  $+  $   +*  +*  +*  +*  $*      +*
;
;	$ -- set by system
;	+ -- set in image
;	* -- set while running
;
;	USWAP$ = 1	USR is swappable			(SJ only)
;	TTLC$  = 1	Allow lower case input
;	RSTRT$ = 1	Allow job restart (REENTER)
;	TTSPC$ = 1	Special mode (no echo, char mode)
;	CHNIF$ = 1	Pass command to KMON (R0=0)
;	VIRT$  = 1	Job is non-priv, virt image		(XM only)
;	OVLY$  = 1	Job is overlayed (leave chan 17 open)
;	CHAIN$ = 1	Job is chained to
;			if set in image, 500--777 loaded from file
;			set when job started only if .CHAINed to
;			(e.g. cleared if set in image of job that is run)
;
;	VBGEX$ = 1	VBGEXE is executing in BG		(XM only)
;			set by VBGEXE (should not be changed by job or
;			set in image under XM)
;
;	HLTER$ = 1	Halt on I/O error			(SJ only)
;	TCBIT$ = 1	No wait mode
;	SPXIT$ = 1	Pass command to KMON w/o terminating @file
;	EDIT$  = 1	Supress SL for this job
;	GTLIN$ = 1	Bypass ^C with GTLIN
;	VRUNV$ = 1	running under V or VRUN			(XM only)
;	PASAL$ = 1	pass all characters			(86x0 only)
;-
.Page
.MACRO	.JSWDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($JSW in .SYCDF)
.If NE	DOC$UN
	.BS	PASAL$		;pass all chars (86x0 console)
.IfF;NE	DOC$UN
	.BS			;<res>
.EndC;NE DOC$UN
	.BS		,1	;<res>
	.BS	VRUNV$		;running under V or VRUN (XM only)
	.BS	GTLIN$		;non-terminating .GTLIN
	.BS	EDIT$		;supress SL for this job
	.BS	SPXIT$		;do not terminate @ file
	.BS	TCBIT$		;inhibit TT wait
	.BS	VBGEX$		;VBG is executing in BG
	.EQU	HLTER$	VBGEX$	;halt on I/O error (SJ only)
	.BS	CHAIN$		;job was chained to
	.BS	OVLY$		;job is overlaid
	.BS	VIRT$		;job is non-priv, virt image
	.BS	CHNIF$		;issue commands on exit
	.BS	TTSPC$		;terminal special mode
	.BS	RSTRT$		;job may be re-entered
	.BS	TTLC$		;allow lower character input
	.BS	USWAP$		;USR set non-swap (SJ only)
.ENDM	.JSWDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.JSWDF
.PRINT ;.JSWDF
	.JSWDF	YES,==:

.Assume	PASAL$	EQ	<^o000001>
.Assume	GTLIN$	EQ	<^o000010>
.Assume	EDIT$	EQ	<^o000020>
.Assume	SPXIT$	EQ	<^o000040>
.Assume	TCBIT$	EQ	<^o000100>
.Assume	VBGEX$	EQ	<^o000200>
.Assume	HLTER$	EQ	<^o000200>
.Assume	CHAIN$	EQ	<^o000400>
.Assume	OVLY$	EQ	<^o001000>
.Assume	VIRT$	EQ	<^o002000>
.Assume	CHNIF$	EQ	<^o004000>
.Assume	TTSPC$	EQ	<^o010000>
.Assume	RSTRT$	EQ	<^o020000>
.Assume	TTLC$	EQ	<^o040000>
.Assume	USWAP$	EQ	<^o100000>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.JSXDF	-- JSX bits
;+
;	.JSXDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$JSX:	|	      <res>		|VBG|NOV|IOP|ALL|USE|REQ|USE|REQ|
;	|				|EX$|BG$|AG$|64$|SM$|SM$|ID$|ID$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;					  +   +	  +   +	  +   +	  +   +
;	+ -- set in image
;
;	VBGEX$	= 1	may be run by vbgexe
;	NOVBG$	= 1	must NOT be run by vbgexe
;	IOPAG$	= 1	map to IOPAGE (PAR7)
;	ALL64$	= 1	.SETTOP may be for all 64KB
;	USESM$	= 1	program can run in Supervisor space
;	REQSM$	= 1	program must run in Supervisor space
;	USEID$	= 1	program can run under I&D space
;	REQID$	= 1	program must run under I&D space
;-
.MACRO	.JSXDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;$JSX in (.SYCDF)
	.BS	REQID$		;I&D space support required
	.BS	USEID$		;I&D space will be used, if available
	.BS	REQSM$		;Supy space support required
	.BS	USESM$		;Supy space will be used, if available
	.BS	ALL64$		;allow .SETTOP under VBGEXE to go to -1
	.BS	IOPAG$		;map PAR7 to IOPAGE under VBGEXE
	.BS	NOVBG$		;job MUST NOT be under VBGEXE
	.BS	VBGEX$		;job may run under VBGEXE
.ENDM	.JSXDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.JSXDF
.PRINT ;.JSXDF
	.JSXDF	YES,==:

.Assume	REQID$	EQ	<^o000001>
.Assume	USEID$	EQ	<^o000002>
.Assume	REQSM$	EQ	<^o000004>
.Assume	USESM$	EQ	<^o000010>
.Assume	ALL64$	EQ	<^o000020>
.Assume	IOPAG$	EQ	<^o000040>
.Assume	NOVBG$	EQ	<^o000100>
.Assume	VBGEX$	EQ	<^o000200>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.LDADF	-- Absolute Binary File Format
;+
;	.LDADF
;
;	+-------+
;LDA.H1:|   1	|[0]	Header byte 0	LDA.1H=1
;	+-------+
;LDA.H2:|   0	|[1]	Header byte 1	LDA.2H=0
;	+-------+
;LDA.CL:|	|[2]	Low order byte count	LDA.EL=6 if last block
;	+-------+
;LDA.CH:|	|[3]	High order byte count	LDA.EH=0 if last block
;	+-------+
;LDA.AL:|	|[4]	Low order address
;	+-------+
;LDA.AH:|	|[5]	High order address
;	+-------+
;LDA.DA:|	|[6]	Data
;	+-------+
;	:	:
;	+-------+
;	|	|[LDA.CH||LDA.CL] checksum byte
;	+-------+
;-
.MACRO	.LDADF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	LDA.H1	,,B	;First header byte
	.EQU	LDA.1H	1	;value of first header byte
	.DS	LDA.H2	,,B	;Second header byte
	.EQU	LDA.2H	0	;value of second header byte
	.DS	LDA.CL	,,B	;Low order count
	.EQU	LDA.EL	6.	;Low order count value if end block
	.DS	LDA.CH	,,B	;High order count
	.EQU	LDA.EH	0.	;High order count value if end block
	.DS	LDA.AL	,,B	;Low order address
	.DS	LDA.AH	,,B	;High order address
	.DS	LDA.DA	0,B	;First (if any) data bytes
.ENDM	.LDADF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.LDADF
.PRINT ;.LDADF
	.LDADF	YES,==:
.Page
.Assume	LDA.H1	EQ	<^o000000>
.Assume	LDA.1H	EQ	<^o000001>
.Assume	LDA.H2	EQ	<^o000001>
.Assume	LDA.2H	EQ	<^o000000>
.Assume	LDA.CL	EQ	<^o000002>
.Assume	LDA.EL	EQ	<^o000006>
.Assume	LDA.CH	EQ	<^o000003>
.Assume	LDA.EH	EQ	<^o000000>
.Assume	LDA.AL	EQ	<^o000004>
.Assume	LDA.AH	EQ	<^o000005>
.Assume	LDA.DA	EQ	<^o000006>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.LOWDF	-- Low memory vector protection bitmap
;+
;	.LOWDF
;
;	|<--------LO.BYT = 020--------->|
;	+---+---+---+---+---+---+---+---+
;LO.00X:|LO.|LO.|LO.|LO.|LO.|LO.|LO.|LO.| [000]
;LO.01X:|000|002|004|006|010|012|014|016|
;	+---+---+---+---+---+---+---+---+
;LO.02X:|LO.|LO.|LO.|LO.|LO.|LO.|LO.|LO.| [001]
;LO.03X:|020|022|024|026|030|032|034|036|
;	+---+---+---+---+---+---+---+---+
;LO.04X:|LO.|LO.|LO.|LO.|LO.|LO.|LO.|LO.| [002]
;LO.05X:|040|042|044|046|050|052|054|056|
;	+---+---+---+---+---+---+---+---+
;LO.06X:|LO.|LO.|LO.|LO.|LO.|LO.|LO.|LO.| [003]
;LO.07X:|060|062|064|066|070|072|074|076|
;	+---+---+---+---+---+---+---+---+
;LO.10X:|LO.|LO.|LO.|LO.|LO.|LO.|LO.|LO.| [004]
;LO.11X:|100|102|104|106|110|112|114|116|
;	+---+---+---+---+---+---+---+---+
;	:				:
;	+---+---+---+---+---+---+---+---+
;LO.46X:|LO.|LO.|LO.|LO.|LO.|LO.|LO.|LO.| [017]
;LO.47X:|460|462|464|466|470|472|474|476|
;	+---+---+---+---+---+---+---+---+
;LO.SIZ:      ->|   |<-LO.BIT = 2	  [020]
;-
.MACRO	.LOWDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.IRP z,<00,02,04,06,10,12,14,16,20,22,24,26,30,32,34,36,40,42,44,46>
	.DS	LO.'z'X	,,B
	.EQU	LO.'z'0	<^o200>
	.EQU	LO.'z'2	<^o100>
	.EQU	LO.'z'4	<^o040>
	.EQU	LO.'z'6	<^o020>
	.ENDR
	.DSECT	,LIST,E
	.IRP z,<01,03,05,07,11,13,15,17,21,23,25,27,31,33,35,37,41,43,45,47>
	.DS	LO.'z'X	,,B
	.EQU	LO.'z'0	<^o010>
	.EQU	LO.'z'2	<^o004>
	.EQU	LO.'z'4	<^o002>
	.EQU	LO.'z'6	<^o001>
	.ENDR
	.DS	LO.SIZ	0	;size of table
	.EQU	LO.BYT	<^o020>	;span of a byte
	.EQU	LO.BIT	<^o002>	;span of a bit
.ENDM	.LOWDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.LOWDF
.PRINT ;.LOWDF
	.LOWDF	YES,==:
.Page
.Assume	LO.00X	EQ	0
.Assume	LO.01X	EQ	0
.Assume	LO.02X	EQ	1
.Assume	LO.03X	EQ	1
.Assume	LO.04X	EQ	<^o02>
.Assume	LO.05X	EQ	<^o02>
.Assume	LO.06X	EQ	<^o03>
.Assume	LO.07X	EQ	<^o03>
.Assume	LO.10X	EQ	<^o04>
.Assume	LO.11X	EQ	<^o04>
.Assume	LO.12X	EQ	<^o05>
.Assume	LO.13X	EQ	<^o05>
.Assume	LO.14X	EQ	<^o06>
.Assume	LO.15X	EQ	<^o06>
.Assume	LO.16X	EQ	<^o07>
.Assume	LO.17X	EQ	<^o07>
.Assume	LO.20X	EQ	<^o10>
.Assume	LO.21X	EQ	<^o10>
.Assume	LO.22X	EQ	<^o11>
.Assume	LO.23X	EQ	<^o11>
.Assume	LO.24X	EQ	<^o12>
.Assume	LO.25X	EQ	<^o12>
.Assume	LO.26X	EQ	<^o13>
.Assume	LO.27X	EQ	<^o13>
.Assume	LO.30X	EQ	<^o14>
.Assume	LO.31X	EQ	<^o14>
.Assume	LO.32X	EQ	<^o15>
.Assume	LO.33X	EQ	<^o15>
.Assume	LO.34X	EQ	<^o16>
.Assume	LO.35X	EQ	<^o16>
.Assume	LO.36X	EQ	<^o17>
.Assume	LO.37X	EQ	<^o17>
.Assume	LO.40X	EQ	<^o20>
.Assume	LO.41X	EQ	<^o20>
.Assume	LO.42X	EQ	<^o21>
.Assume	LO.43X	EQ	<^o21>
.Assume	LO.44X	EQ	<^o22>
.Assume	LO.45X	EQ	<^o22>
.Assume	LO.46X	EQ	<^o23>
.Assume	LO.47X	EQ	<^o23>
.Assume	LO.SIZ	EQ	<^o24>
.Assume	LO.BYT	EQ	<^o020>
.Assume	LO.BIT	EQ	<^o002>
.Assume	LO.000	EQ	<^o200>
.Assume	LO.002	EQ	<^o100>
.Assume	LO.004	EQ	<^o040>
.Assume	LO.006	EQ	<^o020>
.Assume	LO.010	EQ	<^o010>
.Assume	LO.012	EQ	<^o004>
.Assume	LO.014	EQ	<^o002>
.Assume	LO.016	EQ	<^o001>
.Assume	LO.020	EQ	<^o200>
.Assume	LO.022	EQ	<^o100>
.Assume	LO.024	EQ	<^o040>
.Assume	LO.026	EQ	<^o020>
.Assume	LO.030	EQ	<^o010>
.Assume	LO.032	EQ	<^o004>
.Assume	LO.034	EQ	<^o002>
.Assume	LO.036	EQ	<^o001>
.Assume	LO.040	EQ	<^o200>
.Assume	LO.042	EQ	<^o100>
.Assume	LO.044	EQ	<^o040>
.Assume	LO.046	EQ	<^o020>
.Assume	LO.050	EQ	<^o010>
.Assume	LO.052	EQ	<^o004>
.Assume	LO.054	EQ	<^o002>
.Assume	LO.056	EQ	<^o001>
.Assume	LO.060	EQ	<^o200>
.Assume	LO.062	EQ	<^o100>
.Assume	LO.064	EQ	<^o040>
.Assume	LO.066	EQ	<^o020>
.Assume	LO.070	EQ	<^o010>
.Assume	LO.072	EQ	<^o004>
.Assume	LO.074	EQ	<^o002>
.Assume	LO.076	EQ	<^o001>
.Assume	LO.100	EQ	<^o200>
.Assume	LO.102	EQ	<^o100>
.Assume	LO.104	EQ	<^o040>
.Assume	LO.106	EQ	<^o020>
.Assume	LO.110	EQ	<^o010>
.Assume	LO.112	EQ	<^o004>
.Assume	LO.114	EQ	<^o002>
.Assume	LO.116	EQ	<^o001>
.Assume	LO.120	EQ	<^o200>
.Assume	LO.122	EQ	<^o100>
.Assume	LO.124	EQ	<^o040>
.Assume	LO.126	EQ	<^o020>
.Assume	LO.130	EQ	<^o010>
.Assume	LO.132	EQ	<^o004>
.Assume	LO.134	EQ	<^o002>
.Assume	LO.136	EQ	<^o001>
.Assume	LO.140	EQ	<^o200>
.Assume	LO.142	EQ	<^o100>
.Assume	LO.144	EQ	<^o040>
.Assume	LO.146	EQ	<^o020>
.Assume	LO.150	EQ	<^o010>
.Assume	LO.152	EQ	<^o004>
.Assume	LO.154	EQ	<^o002>
.Assume	LO.156	EQ	<^o001>
.Assume	LO.160	EQ	<^o200>
.Assume	LO.162	EQ	<^o100>
.Assume	LO.164	EQ	<^o040>
.Assume	LO.166	EQ	<^o020>
.Assume	LO.170	EQ	<^o010>
.Assume	LO.172	EQ	<^o004>
.Assume	LO.174	EQ	<^o002>
.Assume	LO.176	EQ	<^o001>
.Assume	LO.200	EQ	<^o200>
.Assume	LO.202	EQ	<^o100>
.Assume	LO.204	EQ	<^o040>
.Assume	LO.206	EQ	<^o020>
.Assume	LO.210	EQ	<^o010>
.Assume	LO.212	EQ	<^o004>
.Assume	LO.214	EQ	<^o002>
.Assume	LO.216	EQ	<^o001>
.Assume	LO.220	EQ	<^o200>
.Assume	LO.222	EQ	<^o100>
.Assume	LO.224	EQ	<^o040>
.Assume	LO.226	EQ	<^o020>
.Assume	LO.230	EQ	<^o010>
.Assume	LO.232	EQ	<^o004>
.Assume	LO.234	EQ	<^o002>
.Assume	LO.236	EQ	<^o001>
.Assume	LO.240	EQ	<^o200>
.Assume	LO.242	EQ	<^o100>
.Assume	LO.244	EQ	<^o040>
.Assume	LO.246	EQ	<^o020>
.Assume	LO.250	EQ	<^o010>
.Assume	LO.252	EQ	<^o004>
.Assume	LO.254	EQ	<^o002>
.Assume	LO.256	EQ	<^o001>
.Assume	LO.260	EQ	<^o200>
.Assume	LO.262	EQ	<^o100>
.Assume	LO.264	EQ	<^o040>
.Assume	LO.266	EQ	<^o020>
.Assume	LO.270	EQ	<^o010>
.Assume	LO.272	EQ	<^o004>
.Assume	LO.274	EQ	<^o002>
.Assume	LO.276	EQ	<^o001>
.Assume	LO.300	EQ	<^o200>
.Assume	LO.302	EQ	<^o100>
.Assume	LO.304	EQ	<^o040>
.Assume	LO.306	EQ	<^o020>
.Assume	LO.310	EQ	<^o010>
.Assume	LO.312	EQ	<^o004>
.Assume	LO.314	EQ	<^o002>
.Assume	LO.316	EQ	<^o001>
.Assume	LO.320	EQ	<^o200>
.Assume	LO.322	EQ	<^o100>
.Assume	LO.324	EQ	<^o040>
.Assume	LO.326	EQ	<^o020>
.Assume	LO.330	EQ	<^o010>
.Assume	LO.332	EQ	<^o004>
.Assume	LO.334	EQ	<^o002>
.Assume	LO.336	EQ	<^o001>
.Assume	LO.340	EQ	<^o200>
.Assume	LO.342	EQ	<^o100>
.Assume	LO.344	EQ	<^o040>
.Assume	LO.346	EQ	<^o020>
.Assume	LO.350	EQ	<^o010>
.Assume	LO.352	EQ	<^o004>
.Assume	LO.354	EQ	<^o002>
.Assume	LO.356	EQ	<^o001>
.Assume	LO.360	EQ	<^o200>
.Assume	LO.362	EQ	<^o100>
.Assume	LO.364	EQ	<^o040>
.Assume	LO.366	EQ	<^o020>
.Assume	LO.370	EQ	<^o010>
.Assume	LO.372	EQ	<^o004>
.Assume	LO.374	EQ	<^o002>
.Assume	LO.376	EQ	<^o001>
.Assume	LO.400	EQ	<^o200>
.Assume	LO.402	EQ	<^o100>
.Assume	LO.404	EQ	<^o040>
.Assume	LO.406	EQ	<^o020>
.Assume	LO.410	EQ	<^o010>
.Assume	LO.412	EQ	<^o004>
.Assume	LO.414	EQ	<^o002>
.Assume	LO.416	EQ	<^o001>
.Assume	LO.420	EQ	<^o200>
.Assume	LO.422	EQ	<^o100>
.Assume	LO.424	EQ	<^o040>
.Assume	LO.426	EQ	<^o020>
.Assume	LO.430	EQ	<^o010>
.Assume	LO.432	EQ	<^o004>
.Assume	LO.434	EQ	<^o002>
.Assume	LO.436	EQ	<^o001>
.Assume	LO.440	EQ	<^o200>
.Assume	LO.442	EQ	<^o100>
.Assume	LO.444	EQ	<^o040>
.Assume	LO.446	EQ	<^o020>
.Assume	LO.450	EQ	<^o010>
.Assume	LO.452	EQ	<^o004>
.Assume	LO.454	EQ	<^o002>
.Assume	LO.456	EQ	<^o001>
.Assume	LO.460	EQ	<^o200>
.Assume	LO.462	EQ	<^o100>
.Assume	LO.464	EQ	<^o040>
.Assume	LO.466	EQ	<^o020>
.Assume	LO.470	EQ	<^o010>
.Assume	LO.472	EQ	<^o004>
.Assume	LO.474	EQ	<^o002>
.Assume	LO.476	EQ	<^o001>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.MCADF	-- Mapping Context Area (MCA)
;+
;	.MCADF
;
;	      MMG$T
;	+-------+-------+
;M.RGN:	|		|[0]	RCBs for this job
;	:		:
;	|		|
;M.APR:	+-------+-------+	PARs/PDRs for this job
;M.APUI:|		|[2.*R.GWSZ] UI PARs/PDRs
;	: see M.PAR*/	:
;	|     M.PDR*	|
;	+-------+-------+
;	  MMG$T & SUP$Y
;	+-------+-------+
;M.APUD:|		|[2.*R.GWSZ+32.] UD PARs/PDRs
;	: see M.PAR*/	:
;	|     M.PDR*	|
;	+-------+-------+
;M.APSI:|		|[2.*R.GWSZ+64.] SI PARs/PDRs
;	: see M.PAR*/	:
;	|     M.PDR*	|
;	+-------+-------+
;M.APSD:|		|[2.*R.GWSZ+96.] SD PARs/PDRs
;	: see M.PAR*/	:
;	|     M.PDR*	|
;	+-------+-------+
;	      MMG$T
;M.WCB:	+-------+-------+			WCBs for this job
;M.WCUI:|		|[2.*R.GWSZ+32.+SUP$Y*96.] UI WCBs
;	:		:
;	|		|
;	+-------+-------+
;	  MMG$T & SUP$Y
;	+-------+-------+
;M.WCUD:|		|[2.*R.GWSZ+32.+SUP$Y*96.+2.*WN.WSZ]	UD WCBs
;	:		:
;	|		|
;	+-------+-------+
;M.WCSI:|		|[2.*R.GWSZ+32.+SUP$Y*96.+2.*2.*WN.WSZ] SI WCBs
;	:		:
;	|		|
;	+-------+-------+
;M.WCSD:|		|[2.*R.GWSZ+32.+SUP$Y*96.+3.*2.*WN.WSZ] SD WCBs
;	:		:
;	|		|
;	+-------+-------+
;M.MMR3:| Copy of MMR3	|[2.*R.GWSZ+32.+SUP$Y*96.+4.*2.*WN.WSZ] MMR3 contents
;	+-------+-------+
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;M.MMR3:|								|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;>>>fill in above
.page
;
;
;	Structure of M.AP%% areas
;
;M.PAR:	+-------+-------+	PARs
;M.PAR0:|		|[00]	PAR0
;	+-------+-------+
;M.PAR1:|		|[02]	PAR1
;	+-------+-------+
;M.PAR2:|		|[04]	PAR2
;	+-------+-------+
;M.PAR3:|		|[06]	PAR3
;	+-------+-------+
;M.PAR4:|		|[10]	PAR4
;	+-------+-------+
;M.PAR5:|		|[12]	PAR5
;	+-------+-------+
;M.PAR6:|		|[14]	PAR6
;	+-------+-------+
;M.PAR7:|		|[16]	PAR7
;M.PDR:	+-------+-------+	PDRs
;M.PDR0:|		|[20]	PDR0
;	+-------+-------+
;M.PDR1:|		|[22]	PDR1
;	+-------+-------+
;M.PDR2:|		|[24]	PDR2
;	+-------+-------+
;M.PDR3:|		|[26]	PDR3
;	+-------+-------+
;M.PDR4:|		|[30]	PDR4
;	+-------+-------+
;M.PDR5:|		|[32]	PDR5
;	+-------+-------+
;M.PDR6:|		|[34]	PDR6
;	+-------+-------+
;M.PDR7:|		|[36]	PDR7
;	+-------+-------+
;-
.MACRO	.MCADF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
.IF DF	MMG$T
.IF NE	MMG$T
	.MCALL	.RCBDF	.WCBDF
	.RCBDF
	.WCBDF
	.DSECT	,LIST,E		;chunk offset in I.MCA in .IMPDF
	.DS	M.RGN	R.GWSZ	;RCBs for this job
	.DS	M.APR	0	;Base of PDRs/PARs
.IF DF	SUP$Y
.IF NE	SUP$Y
				;U-I PDR0-7, U-D PDR0-7, U-I PAR0-7, U-D PAR07
				;S-I PDR0-7, S-D PDR0-7, S-I PAR0-7, S-D PAR07
.IFF				
				;U-I PDR0-7,   8. words, U-I PAR0-7
.ENDC
.IFF				
				;U-I PDR0-7,   8. words, U-I PAR0-7
.ENDC
	.DS	M.PDUI	8.	;User I Space PDRs
.IF DF	SUP$Y
.IF NE	SUP$Y
	.DS	M.PDUD	8.	;User D Space PDRs
.IFF
	.DS		,8.	;Space to keep offsets aligned
.ENDC
.IFF
	.DS		,8.	;Space to keep offsets aligned
.ENDC
	.DS	M.PAUI	8.	;User I Space PDRs
.IF DF	SUP$Y
.IF NE	SUP$Y
	.DS	M.PAUD	8.	;User D Space PARs
	.DS	M.PDSI	8.	;Supervisor I Space PDRs
	.DS	M.PDSD	8.	;Supervisor D Space PDRs
	.DS	M.PASI	8.	;Supervisor I Space PARs
	.DS	M.PASD	8.	;Supervisor D Space PARs
.ENDC
.ENDC
	.DS	M.WCB	0	;WCBs for this job
	.DS	M.WCUI	WN.WSZ	;User I Space WCBs
.IF DF	SUP$Y
.IF NE	SUP$Y
	.DS	M.WCUD	WN.WSZ	;User D Space WCBs
	.DS	M.WCSI	WN.WSZ	;Supervisor I Space WCBs
	.DS	M.WCSD	WN.WSZ	;Supervisor D Space WCBs
	.DS	M.MMR3		;Partial MMR3 contents for job
;>>>bit pattern?
.ENDC
.ENDC
	.DS	MCA.SZ	0	;MCA job entry size
	.EQU	MCA.CK	<<MCA.SZ+63.>/64.> ;size rounded to chunks
	.DSECT	,LIST,E		;contents of an M.PD%% area
	.DS	M.PDR	0	;base of PDRs
	.DS	M.PDR0		;PDR0
	.DS	M.PDR1		;PDR1
	.DS	M.PDR2		;PDR2
	.DS	M.PDR3		;PDR3
	.DS	M.PDR4		;PDR4
	.DS	M.PDR5		;PDR5
	.DS	M.PDR6		;PDR6
	.DS	M.PDR7		;PDR7
	.DSECT	,LIST,E		;contents of an M.PA%% area
	.DS	M.PAR	0	;base of PARs
	.DS	M.PAR0		;PAR0
	.DS	M.PAR1		;PAR1
	.DS	M.PAR2		;PAR2
	.DS	M.PAR3		;PAR3
	.DS	M.PAR4		;PAR4
	.DS	M.PAR5		;PAR5
	.DS	M.PAR6		;PAR6
	.DS	M.PAR7		;PAR7
.ENDC
.ENDC
.ENDM	.MCADF
.ENDC ;EQ GP3$DO
MMG$T=1
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MCADF
.PRINT ;.MCADF
SUP$Y=0
	.MCADF	YES,==
.Assume	M.RGN	EQ	0
.Assume	M.APR	EQ	2.*R.GWSZ
.Assume	M.PDUI	EQ	2.*R.GWSZ
.Assume	M.PAUI	EQ	<<2.*R.GWSZ>+32.>
.Assume	M.WCB	EQ	<<2.*R.GWSZ>+48.>
.Assume	M.WCUI	EQ	<<2.*R.GWSZ>+48.>
.Assume	MCA.SZ	EQ	<<2.*R.GWSZ>+48.+<2.*WN.WSZ>>
.Assume	MCA.CK	EQ	<<<2.*R.GWSZ>+48.+<2.*WN.WSZ>+63.>/64.>

.Assume	M.PDR	EQ	0
.Assume	M.PDR0	EQ	0
.Assume	M.PDR1	EQ	<^o02>
.Assume	M.PDR2	EQ	<^o04>
.Assume	M.PDR3	EQ	<^o06>
.Assume	M.PDR4	EQ	<^o10>
.Assume	M.PDR5	EQ	<^o12>
.Assume	M.PDR6	EQ	<^o14>
.Assume	M.PDR7	EQ	<^o16>
.Assume	M.PAR	EQ	0
.Assume	M.PAR0	EQ	0
.Assume	M.PAR1	EQ	<^o02>
.Assume	M.PAR2	EQ	<^o04>
.Assume	M.PAR3	EQ	<^o06>
.Assume	M.PAR4	EQ	<^o10>
.Assume	M.PAR5	EQ	<^o12>
.Assume	M.PAR6	EQ	<^o14>
.Assume	M.PAR7	EQ	<^o16>
SUP$Y=1
	.MCADF	YES,==
.Assume	M.RGN	EQ	0
.Assume	M.APR	EQ	2.*R.GWSZ
.Assume	M.PDUI	EQ	2.*R.GWSZ
.Assume	M.PDUD	EQ	<<2.*R.GWSZ>+16.>
.Assume	M.PAUI	EQ	<<2.*R.GWSZ>+32.>
.Assume	M.PAUD	EQ	<<2.*R.GWSZ>+48.>
.Assume	M.PDSI	EQ	<<2.*R.GWSZ>+64.>
.Assume	M.PDSD	EQ	<<2.*R.GWSZ>+80.>
.Assume	M.PASI	EQ	<<2.*R.GWSZ>+96.>
.Assume	M.PASD	EQ	<<2.*R.GWSZ>+112.>
.Assume	M.WCB	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>>
.Assume	M.WCUI	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>>
.Assume	M.WCUD	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>+<2.*WN.WSZ>>
.Assume	M.WCSI	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>+<4.*WN.WSZ>>
.Assume	M.WCSD	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>+<6.*WN.WSZ>>
.Assume	M.MMR3	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>+<8.*WN.WSZ>>
.Assume	MCA.SZ	EQ	<<2.*R.GWSZ>+32.+<SUP$Y*96.>+<8.*WN.WSZ>+2.>
.Assume	MCA.CK	EQ	<<<2.*R.GWSZ>+32.+<SUP$Y*96.>+<8.*WN.WSZ>+2.+63.>/64.>

.Assume	M.PDR	EQ	0
.Assume	M.PDR0	EQ	0
.Assume	M.PDR1	EQ	<^o02>
.Assume	M.PDR2	EQ	<^o04>
.Assume	M.PDR3	EQ	<^o06>
.Assume	M.PDR4	EQ	<^o10>
.Assume	M.PDR5	EQ	<^o12>
.Assume	M.PDR6	EQ	<^o14>
.Assume	M.PDR7	EQ	<^o16>
.Assume	M.PAR	EQ	0
.Assume	M.PAR0	EQ	0
.Assume	M.PAR1	EQ	<^o02>
.Assume	M.PAR2	EQ	<^o04>
.Assume	M.PAR3	EQ	<^o06>
.Assume	M.PAR4	EQ	<^o10>
.Assume	M.PAR5	EQ	<^o12>
.Assume	M.PAR6	EQ	<^o14>
.Assume	M.PAR7	EQ	<^o16>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.MEMDF	-- memory info and routines		*INCOMPLETE*
;+
;	.MEMDF
;
;	+-------+-------+
;$RAMSZ:|  Total Memory	| offset -2
;	+-------+-------+
;$CORPT:|	0	| offset 0
;	+-------+-------+
;	|-> free block	| offset 2
;	+-------+-------+
;
;	      MMG$T
;	+-------+-------+
;$CORPX:|		| offset 4
;	+-------+-------+
;OFS.MC:| o(MCA chk ptr)| offset 6				o(.MCADF)
;	+-------+-------+
;NUM.RG:	|# RCBs	| offset 10
;	+-------+-------+
;NUM.WN:|# WCBs	|	  offset 11
;	+-------+-------+
;OFS.RG:| o(RCBs in MCA)| offset 12				o(.RCBDF)
;	+-------+-------+
;OFS.WN:| o(WCBs in MCA)| offset 14				o(.WCBDF)
;	+-------+-------+
;OFS.AP:| o(APRs in MCA)| offset 16
;	+-------+-------+
;M.VHI:	|o(I.VHI in IMP)| offset 20
;	+-------+-------+
;
;>>>how are these used?
;-
.MACRO	.MEMDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	-2.,LIST,E	;($MEMPT in .FIXDF)
	.DS	$RAMSZ		;Total amount of RAM memory available
	.DS	$CORPT	2	;Free core pointer (low memory)
.IIF NE	FIX$ED	.MEXIT
.IF DF	MMG$T
.IF NE	MMG$T
	.DS	$CORPX		;Free core pointer (high memory)
	.DS	OFS.MC		;Impure offset to MCA chunk pointer ov(.MCADF)
	.DS	NUM.RG	,,B	;Total number of RCBs per job
	.DS	NUM.WN	,,B	;Total number of WCBs per job
	.DS	OFS.RG		;Memory Context Area offset to RCBs ov(.RCBDF)
	.DS	OFS.WN		;Memory Context Area offset to WCBs ov(.WCBDF)
	.DS	OFS.AP		;Memory Context Area offset to APRs
	.DS	M.VHI		;offset in impure area of Virt High word
.ENDC
.ENDC
.ENDM	.MEMDF
.ENDC ;EQ GP3$DO
MMG$T=1
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MEMDF
.PRINT ;.MEMDF
	.MEMDF	YES,==:

.Assume	$RAMSZ	EQ	<^o-2>
.Assume	$CORPT	EQ	0
.Assume	$CORPX	EQ	<^o4>
.Assume	OFS.MC	EQ	<^o6>
.Assume	NUM.RG	EQ	<^o10>
.Assume	NUM.WN	EQ	<^o11>
.Assume	OFS.RG	EQ	<^o12>
.Assume	OFS.WN	EQ	<^o14>
.Assume	OFS.AP	EQ	<^o16>
.Assume	M.VHI	EQ	<^o20>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.MGTDF	-- Define .MTGET returned info
;+
;	.MGTDF
;
;	+-------+-------+
;M.TSTS:|		|[0]	terminal status	v(.TCFDF)
;	+-------+-------+
;M.TST2:|		|[2]	2nd status	v(.TC2DF)
;	+-------+-------+
;M.FCHR:	|fil chr|[4]	fill char
;	+-------+-------+
;M.FCNT:|fil cnt|	 [5]	fill count
;	+-------+-------+
;M.TWID:	|car wid|[6]	carriage width
;	+-------+-------+
;M.TSTW:|	|	 [7]	high byte of	v(.TSTDF)
;	+-------+
;M.TSIZ:		 [10]
;-
.MACRO	.MGTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;A.MGET in ..MTGE
	.DS	M.TSTS		;terminal status word
	.DS	M.TST2		;2nd terminal status word
	.DS	M.FCHR	,,B	;fill char
	.DS	M.FCNT	,,B	;fill count
	.DS	M.TWID	,,B	;terminal width
	.DS	M.TSTW	,,B	;terminal state
	.DS	M.TSIZ	0	;return area size
.ENDM	.MGTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MGTDF
.PRINT ;.MGTDF
	.MGTDF	YES,==:

.Assume	M.TSTS	EQ	0
.Assume	M.TST2	EQ	<^o2>
.Assume	M.FCHR	EQ	<^o4>
.Assume	M.FCNT	EQ	<^o5>
.Assume	M.TWID	EQ	<^o6>
.Assume	M.TSTW	EQ	<^o7>
.Assume	M.TSIZ	EQ	<^o10>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.MLBDF	-- MACRO library file
;+
;	.MLBDF
;
;	+-------+
;ML.TYP:|	|	 [000]	library type			ML.TYV=001
;	+-------+
;ML.ID:	|	|	 [001]	library ID			ML.IDV=002
;	+-------+-------+
;ML.VER:|      500	|[002]	library version			ML.VEV=500
;	+-------+-------+
;	|  <reserved>	|[004]
;	+-------+-------+
;ML.DAT:|		|[006]	library last insert date	o(.DATDF)
;	+-------+-------+
;ML.TIM:|		|[010]	library last insert time	ov(.TIMDF)
;	+		+
;	|		|
;	+-------+-------+
;	|   <reserved>	|[014]
;	:		:
;	+-------+-------+
;ML.ES:	|		|[022]	library size of directory entries ML.ESV=10
;	+-------+-------+
;	|   <reserved>	|[024]
;	:		:
;	+-------+-------+
;ML.MT:	|	1	|[034]	library MNT starting rel block	ML.MTV=1
;	+-------+-------+
;ML.MI:	|		|[036]	library MNT initial (total) count
;	+-------+-------+
;ML.MA:	|		|[040]	library MNT in use count
;	+-------+-------+
;-
.MACRO	.MLBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	ML.TYP	,,B	;Library type byte
	.EQU	ML.TYV	1	;value for ML.TYP
	.DS	ML.ID	,,B	;Library ID type
	.EQU	ML.IDV	2.	;value for ML.ID
	.DS	ML.VER		;Library version
	.EQU	ML.VEV	<^o500>	;value for ML.VER
	.DS	ML.DAT		;Library date		v(.DATDF)
	.DS	ML.TIM	2.	;Library time		ov(.TIMDF)
	.DSECT	<^o22>,LIST,E
	.DS	ML.ES		;Library entry (MNT) size
	.DSECT	<^o34>,LIST,E
	.DS	ML.MT		;Library (MNT) starting rel block ov(.MNTDF)
	.EQU	ML.MTV	1	;value for ML.MT
	.DS	ML.MI		;Library MNT allocated count
	.DS	ML.MA		;Library MNT used count
.ENDM	.MLBDF
.Page
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MLBDF
.PRINT ;.MLBDF
	.MLBDF	YES,==:

.Assume	ML.TYP	EQ	<^o000000>
.Assume	ML.TYV	EQ	<^o000001>
.Assume	ML.ID	EQ	<^o000001>
.Assume	ML.IDV	EQ	<^o000002>
.Assume	ML.VER	EQ	<^o000002>
.Assume	ML.VEV	EQ	<^o000500>
.Assume	ML.DAT	EQ	<^o000004>
.Assume	ML.TIM	EQ	<^o000006>
.Assume	ML.ES	EQ	<^o000022>
.Assume	ML.MT	EQ	<^o000034>
.Assume	ML.MTV	EQ	<^o000001>
.Assume	ML.MI	EQ	<^o000036>
.Assume	ML.MA	EQ	<^o000040>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.MMUHD	-- Memory Management Hardware		*IN HARDWA.MAC*
.SbTtl	.MNTDF	-- Macro library name table entry
;+
;	.MNTDF
;
;	+-------+-------+-------+-------+			MNT.MT=-1
;MNT.SY:|				|[000]	Macro name in RAD50
;	+-------+-------+-------+-------+
;MNT.BK:|		|[004]			Macro def'n block number
;	+-------+-------+
;MNT.BY:|		|[006]			Macro def'n byte in block
;	+-------+-------+
;MNT.SZ:		 [010]
;-
.MACRO	.MNTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		; pointed to by .MLBDF
	.DS	MNT.SY	2	;Macro name in RAD50 (2 words)
	.EQU	MNT.MT	-1	;empty area in directory filled w/-1s
	.DS	MNT.BK		;Macro definition block number
	.DS	MNT.BY		;Macro definition byte within block
	.DS	MNT.SZ	0	;Length of an entry
.ENDM	.MNTDF
.ENDC ;EQ GP3$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MNTDF
.PRINT ;.MNTDF
	.MNTDF	YES,==:

.Assume	MNT.SY	EQ	<^o000000>
.Assume	MNT.MT	EQ	<^o177777>
.Assume	MNT.BK	EQ	<^o000004>
.Assume	MNT.BY	EQ	<^o000006>
.Assume	MNT.SZ	EQ	<^o000010>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ	GP4$DO
.SbTtl	.MODDF	-- define .MODULE area
;+
;	.MODDF
;
;-
.MACRO	.MODDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o110>,LIST,E
	.DS	MD.RLS		;RAD50 release (.audit)
	.DS	MD.VER		;first version word
	.EQU	MD.NA	100000	;not used
	.EQU	MD.EOL	177777	;end of list
.ENDM	.MODDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MODDF
.PRINT ;.MODDF
	.MODDF	YES,==:

.Assume	MD.RLS	EQ	<^o110>
.Assume	MD.VER	EQ	<^o112>
.Assume	MD.NA	EQ	<^o100000>
.Assume	MD.EOL	EQ	<^o177777>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.MONDF	-- Define offsets in system image files	*INCOMPLETE*
;+
;	.MONDF
;
;	+-------+-------+
;M.MON:	|  RAD50 "MON"	|[000] identify bootable image = M.MONV
;	+-------+-------+
;
;	+-------+-------+
;	|	0	|[176] no "install CSR"
;	+-------+-------+
;	|      NOP	|[200] SY install and DK install are the same
;	+-------+-------+
;	|      SEC	|[202] ERROR
;	+-------+-------+
;	|     RETURN	|[204] and return to install caller
;	+-------+-------+
;
;	+-------+-------+
;$GENUS:|		|[300] USR gen opts
;	+-------+-------+
;$GENIN:|		|[302] Instruction set and other hardware opts
;	+-------+-------+
;$GENCD:|		|[304] Command gen options
;	+-------+-------+
;$GENMS:|		|[306] Misc. gen opts
;	+-------+-------+
;$GENXM:|		|[310] XM gen opts
;	+-------+-------+
;$GENTT:|		|[312] terminal gen opts
;	+-------+-------+
;$GENLM:	|	|[314] Remote DL11 lines
;	+-------+-------+
;$GENLN:|	|	 [315] Total DL11 lines
;	+-------+-------+
;$GENZM:	|	|[316] Remote DZ11 lines
;	+-------+-------+
;$GENZN:|	|	 [317] Total DZ11 lines
;	+-------+-------+
;$GENDZ:|		|[320] DZ11 options
;	+-------+-------+
;$GENTM:|		|[322] DL11 xmit CSR mask
;	+-------+-------+
;$GENTI:|		|[324] TTYIN buffer size
;	+-------+-------+
;$GENTO:|		|[326] TTYOUT buffer size
;	+-------+-------+
;$GENKB:|		|[330] V.TKB vector value
;	+-------+-------+
;$GENPS:|		|[332] V.TPS vector value
;	+-------+-------+
;$GENVC:|		|[334] VT.CSR address
;	+-------+-------+
;$GENVV:|		|[336] VT.VEC vector value
;	+-------+-------+
.page
;		+-------+
;$GENLR:	|	|[340] $LRLPZ value
;	+-------+-------+
;$GENRR:|	|	 [341] $RMLSZ value
;	+-------+-------+
;$GENPT:|		|[342] Patch area size
;	+-------+-------+
;$GENSP:|		|[344] System stack size (???)
;	+-------+-------+
;$GENSS:	|	|[346] STARTx.COM suffix (ascii)
;	+-------+-------+
;$GENRC:|	|	 [347] number of dynamic GRCBs
;	+-------+-------+
;$GEND1:|		|[350] DCL commands generated
;	+-------+-------+
;$GEND2:|		|[352] DCL commands generated
;	+-------+-------+
;$GEND3:|		|[354] DCL commands generated
;	+-------+-------+
;$GEND4:|		|[356] DCL commands generated
;	+-------+-------+
;$GENHM:	|	|[360] Remote DH11 lines
;	+-------+-------+
;$GENHN:|	|	 [361] Total DH11 lines
;	+-------+-------+
;$GENDH:|		|[362] DH11 options
;	+-------+-------+
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENUS:|		reserved		|USR|LK4|XFX|GT |GET|CVT|
;	|					|CM.|DV.|XX.|NM.|FD.|NU.|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	CVTNU.	= CVT$NU conditional
;	GETFD.	= GET$FD conditional
;	GTNM.	= GT$NM conditional
;	XFXXX.	= XFX$XX conditional
;	LK4DV.	= LK4$DV conditional
;	USRCM.	= USR$CM conditional
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENIN:|			reserved			|EIS|FPU|
;	|							|I. |11.|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	FPU11.	= FPU$11 conditional
;	EISI.	= EIS$I conditional
.page
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENCD:|	reserved	|AIC|BAT|CON|IND|LNK|STA|UCL|LAN|MIN|UTI|
;	|			|OD.|CH.|TN.|ON.|IF.|RT.|.  |G. |I. |L. |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	UTIL.	= U$TIL conditional
;	MINI.	= M$INI conditional
;	LANG.	= L$ANG conditional
;	UCL.	= UC$L conditional
;	START.	= STAR$T conditional
;	LNKIF.	= LNK$IF conditional
;	INDON.	= IND$ON conditional
;	CONTN.	= CONT$N conditional
;	BATCH.	= BATC$H conditional
;	AICOD.	= AI$COD conditional
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENMS:|		reserved	    |LIG|PAN|PWF|RDF|ROL|ROM|SIL|
;	|				    |HT.|IC.|L. |L. |OV.|.  |NT.|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	SILNT.	= SILN$T conditional
;	ROM.	= RO$M conditional
;	ROLOV.	= ROL$OV conditional
;	RDFL.	= RDF$L conditional
;	PWFL.	= PWF$L conditional
;	PANIC.	= PANI$C conditional
;	LIGHT.	= LIGH$T conditional
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENXM:|			reserved		    |XMF|SPC|MQH|
;	|						    |ET.|PS.|P2.|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	MQHP2.	= MQH$P2 conditional
;	SPCPS.	= SPC$PS conditional
;	XMFET.	= XM$FET conditional
.page
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENTT:|				|VT1|VS6|U.K|PDT|MTI|MAT|HSR|HSR|
;	|				|1. |0. |.. |OP.|M. |S. |O. |B. |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	HSRB.	= HSR$B conditional
;	HSRO.	= HSR$O conditional
;	MATS.	= MAT$S conditional
;	MTIM.	= MTI$M conditional
;	PDTOP.	= PDT$OP conditional
;	U.K..	= U.K. conditional
;	VS60.	= VS60$ conditional
;	VT11.	= VT11$ conditional
;	
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENDZ:|   reserved	|    DZSPD.	|reserve|DZS| DZLEN.| reserved	|
;	|		|		|	|TP.|	    |		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	DZLEN.	= 000030 mask for char length part
;	DZSTP.	= 000040 mask for stop bits part
;	DZSPD.	= 007400 mask for speed part
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GENDH:|   reserved	|    DHSPD.	|reserve|DHS| DHLEN.| reserved	|
;	|		|		|	|TP.|	    |		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	DHLEN.	= 000030 mask for char length part
;	DHSTP.	= 000040 mask for stop bits part
;	DHSPD.	= 007400 mask for speed part
;
; Note:	Though the patterns contained in $GENDH are the same as those
;	contained in $GENDZ, some translation is performed during bootstrap
;	and during calls to .MTSET to place the selected options in the
;	proper place for a DH series interface control register
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GEND1:|DIR|DIF|DIB|DEL|DEA|DAT|D. |CRE|COP|COM|CLO|BOO|BAC|B. |ASS|ABO|
;	|E. |F. |O. |E. |S. |E. |   |A. |Y. |P. |S. |T. |K. |   |I. |R. |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	ABOR.	= ABOR$$ conditional
;	ASSI.	= ASSI$$ conditional
;	B.	= B$$ conditional
;	BACK.	= BACK$$ conditional
;	BOOT.	= BOOT$$ conditional
;	CLOS.	= CLOS$$ conditional
;	COMP.	= COMP$$ conditional
;	COPY.	= COPY$$ conditional
;	CREA.	= CREA$$ conditional
;	D.	= D$$ conditional
;	DATE.	= DATE$$ conditional
;	DEAS.	= DEAS$$ conditional
;	DELE.	= DELE$$ conditional
;	DIBO.	= DIBO$$ conditional
;	DIFF.	= DIFF$$ conditional
;	DIRE.	= DIRE$$ conditional
.page
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GEND2:|MAC|LOA|LIN|LIB|INS|INI|HEL|GET|FRU|FOR|FOR|EXE|EDI|E. |DUM|DIS|
;	|O. |D. |K. |R. |T. |T. |P. |.  |N. |T. |M. |C. |T. |   |P. |M. |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	DISM.	= DISM$$ conditional
;	DUMP.	= DUMP$$ conditional
;	E.	= E$$ conditional
;	EDIT.	= EDIT$$ conditional
;	EXEC.	= EXEC$$ conditional
;	FORM.	= FORM$$ conditional
;	FORT.	= FORT$$ conditional
;	FRUN.	= FRUN$$ conditional
;	GET.	= GET$$ conditional
;	HELP.	= HELP$$ conditional
;	INIT.	= INIT$$ conditional
;	INST.	= INST$$ conditional
;	LIBR.	= LIBR$$ conditional
;	LINK.	= LINK$$ conditional
;	LOAD.	= LOAD$$ conditional
;	MACR.	= MACR$$ conditional
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GEND3:|STA|SRU|SQU|SHO|SET|SAV|RES|RES|REN|REM|REE|PRO|PRI|MUN|MOU|MAK|
;	|R. |N. |E. |W. |.  |E. |U. |E. |A. |O. |N. |T. |N. |G. |N. |E. |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	MAKE.	= MAKE$$ conditional
;	MOUN.	= MOUN$$ conditional
;	MUNG.	= MUNG$$ conditional
;	PRIN.	= PRIN$$ conditional
;	PROT.	= PROT$$ conditional
;	REEN.	= REEN$$ conditional
;	REMO.	= REMO$$ conditional
;	RENA.	= RENA$$ conditional
;	RESE.	= RESE$$ conditional
;	RESU.	= RESU$$ conditional
;	SAVE.	= SAVE$$ conditional
;	SET.	= SET$$ conditional
;	SHOW.	= SHOW$$ conditional
;	SQUE.	= SQUE$$ conditional
;	SRUN.	= SRUN$$ conditional
;	STAR.	= STAR$$ conditional
.page
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;$GEND4:|					|UNP|UNL|TYP|TIM|TEC|SUS|
;	|		reserved		|O. |O. |E. |E. |O. |P. |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	SUSP.	= SUSP$$ conditional
;	TECO.	= TECO$$ conditional
;	TIME.	= TIME$$ conditional
;	TYPE.	= TYPE$$ conditional
;	UNLO.	= UNLO$$ conditional
;	UNPR.	= UNPR$$ conditional
;
;	+-------+-------+
;	|      -1	|[400] invalid RAD50 (flag)
;	+-------+-------+
;M.RMON:|   -> $RMON	|[402] file address of fixed area
;	+-------+-------+
;	|       0	|[404] no sets
;	+-------+-------+
;	|     1000	|[406] another magic value
;	+-------+-------+
;-
.MACRO	.MONDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;block 0 of monitor file
	.DS	M.MON		;monitor ID value
	.EQU	M.MONV	<^rMON>	;value for ID
	.DSECT	<^o300>,LIST,E
	.DS	$GENUS		;USR specific gen options
	.BSECT	,LIST,E
	.BS	CVTNU.		;CVT$NU conditional setting
	.BS	GETFD.		;GET$FD conditional setting
	.BS	GTNM.		;GT$NM conditional setting
	.BS	XFXXX.		;XFX$XX conditional setting
	.BS	LK4DV.		;LK4$DV conditional setting
	.BS	USRCM.		;USR$CM conditional setting
				;rest reserved for other USR options
	.DS	$GENIN		;Instruction set specific gen options
	.BSECT	,LIST,E
	.BS	EISI.		;EIS$I conditional setting
	.BS	FPU11.		;FPU$11 conditiional setting
				;rest reserved for other hardware options
	.DS	$GENCD		;Command processing specific gen options
	.BSECT	,LIST,E
	.BS	AICOD.		;AI$COD conditional setting
	.BS	BATCH.		;BATC$H conditional setting
	.BS	CONTN.		;CONT$N conditional setting
	.BS	INDON.		;IND$ON conditional setting
	.BS	LNKIF.		;LNK$IF conditional setting
	.BS	START.		;STAR$T conditional setting
	.BS	UCL.		;U$CL conditional setting
	.BS	LANG.		;L$ANG conditional setting
	.BS	MINI.		;M$INI conditional setting
	.BS	UTIL.		;U$TIL conditional setting
				;rest reserved to command specific options
	.DS	$GENMS		;Miscellaneous gen options
	.BSECT	,LIST,E
	.BS	LIGHT.		;LIGH$T conditional setting
	.BS	PANIC.		;PANI$C conditional setting
	.BS	PWFL.		;PWF$L conditional setting
	.BS	RDFL.		;RDF$L conditional setting
	.BS	ROLOV.		;ROL$OV conditional setting
	.BS	ROM.		;RO$M conditional setting
	.BS	SILNT.		;SILN$T conditional setting
				;rest reserved for more misc. gen options
	.DS	$GENXM		;XM specific options (mostly)
	.BSECT	,LIST,E
	.BS	MQHP2.		;MQH$P2 conditional setting
	.BS	SPCPS.		;SPC$PS conditional setting
	.BS	XMFET.		;XM$FET conditional setting
				;rest reserved for more XM gen options
	.DS	$GENTT		;Terminal service specific gen options
	.BSECT	,LIST,E
	.BS	HSRB.		;HSR$B conditional setting
	.BS	HSRO.		;HSR$O conditional setting
	.BS	MATS.		;MAT$S conditional setting
	.BS	MTIM.		;MTI$M conditional setting
	.BS	PDTOP.		;PDT$OP conditional setting
	.BS	U.K..		;U.K. conditional setting
	.BS	VS60.		;VS60$ conditional setting
	.BS	VT11.		;VT11$ conditional setting
				;rest reserved for other terminal service options
	.DS	$GENLM	,,B	;DL11$M DL11 remote count
	.DS	$GENLN	,,B	;DL11$N DL11 total count
	.DS	$GENZM	,,B	;DZ11$M DZ11 remote count
	.DS	$GENZN	,,B	;DZ11$N DZ11 total count
	.DS	$GENDZ		;DZLE$N!DZSP$D!DZST$P DZ11 terminal options
	.BSECT	,LIST,E
	.BS		,3.	;reserved
	.BS	DZLEN.	,2.	;DZLE$N char length mask
	.BS	DZSTP.		;DZST$P stop bits mask
	.BS		,2.	;reserved
	.BS	DZSPD.	,4.	;DZSP$D baud rate mask
				;rest reserved
	.DS	$GENTM		;TPS$MK Terminal CSR transmit mask
	.DS	$GENTI		;TTYIN buffer size
	.DS	$GENTO		;TTYOUT buffer size
	.DS	$GENKB		;V.TKB vector
	.DS	$GENPS		;V.TPS vector
	.DS	$GENVC		;VT.CSR register address
	.DS	$GENVV		;VT.VEC vector
	.DS	$GENLR	,,B	;$LRLPZ linkage routine count
	.DS	$GENRR	,,B	;$RMLSZ linkage routine count
	.DS	$GENPT		;PATC$H patch space
	.DS	$GENSP		;STAC$K stack size
	.DS	$GENSS	,,B	;SUFX$S STARTx.COM suffix letter
	.DS	$GENRC	,,B	;X$RCBS number of dynamic GRCBs
	.DS	$GEND1		;First DCL command generated word
	.BSECT	,LIST,E
	.BS	ABOR.		;ABOR$$ conditional setting
	.BS	ASSI.		;ASSI$$ conditional setting
	.BS	B.		;B$$ conditional setting
	.BS	BACK.		;BACK$$ conditional setting
	.BS	BOOT.		;BOOT$$ conditional setting
	.BS	CLOS.		;CLOS$$ conditional setting
	.BS	COMP.		;COMP$$ conditional setting
	.BS	COPY.		;COPY$$ conditional setting
	.BS	CREA.		;CREA$$ conditional setting
	.BS	D.		;D$$ conditional setting
	.BS	DATE.		;DATE$$ conditional setting
	.BS	DEAS.		;DEAS$$ conditional setting
	.BS	DELE.		;DELE$$ conditional setting
	.BS	DIBO.		;DIBO$$ conditional setting
	.BS	DIFF.		;DIFF$$ conditional setting
	.BS	DIRE.		;DIRE$$ conditional setting

	.DS	$GEND2		;Second DCL command generated word
	.BSECT	,LIST,E
	.BS	DISM.		;DISM$$ conditional setting
	.BS	DUMP.		;DUMP$$ conditional setting
	.BS	E.		;E$$ conditional setting
	.BS	EDIT.		;EDIT$$ conditional setting
	.BS	EXEC.		;EXEC$$ conditional setting
	.BS	FORM.		;FORM$$ conditional setting
	.BS	FORT.		;FORT$$ conditional setting
	.BS	FRUN.		;FRUN$$ conditional setting
	.BS	GET.		;GET$$ conditional setting
	.BS	HELP.		;HELP$$ conditional setting
	.BS	INIT.		;INIT$$ conditional setting
	.BS	INST.		;INST$$ conditional setting
	.BS	LIBR.		;LIBR$$ conditional setting
	.BS	LINK.		;LINK$$ conditional setting
	.BS	LOAD.		;LOAD$$ conditional setting
	.BS	MACR.		;MACR$$ conditional setting

	.DS	$GEND3		;Third DCL command generated word
	.BSECT	,LIST,E
	.BS	MAKE.		;MAKE$$ conditional setting
	.BS	MOUN.		;MOUN$$ conditional setting
	.BS	MUNG.		;MUNG$$ conditional setting
	.BS	PRIN.		;PRIN$$ conditional setting
	.BS	PROT.		;PROT$$ conditional setting
	.BS	REEN.		;REEN$$ conditional setting
	.BS	REMO.		;REMO$$ conditional setting
	.BS	RENA.		;RENA$$ conditional setting
	.BS	RESE.		;RESE$$ conditional setting
	.BS	RESU.		;RESU$$ conditional setting
	.BS	SAVE.		;SAVE$$ conditional setting
	.BS	SET.		;SET$$ conditional setting
	.BS	SHOW.		;SHOW$$ conditional setting
	.BS	SQUE.		;SQUE$$ conditional setting
	.BS	SRUN.		;SRUN$$ conditional setting
	.BS	STAR.		;STAR$$ conditional setting

	.DS	$GEND4		;Fourth DCL command generated word
	.BSECT	,LIST,E
	.BS	SUSP.		;SUSP$$ conditional setting
	.BS	TECO.		;TECO$$ conditional setting
	.BS	TIME.		;TIME$$ conditional setting
	.BS	TYPE.		;TYPE$$ conditional setting
	.BS	UNLO.		;UNLO$$ conditional setting
	.BS	UNPR.		;UNPR$$ conditional setting
				;rest reserved for new DCL conditionals

	.DS	$GENHM	,,B	;DH11$M DH11 remote count
	.DS	$GENHN	,,B	;DH11$N DH11 total count
	.DS	$GENDH		;DHLE$N!DHSP$D!DHST$P DH11 terminal options
	.BSECT	,LIST,E
	.BS		,3.	;reserved
	.BS	DHLEN.	,2.	;DHLE$N char length mask
	.BS	DHSTP.		;DHST$P stop bits mask
	.BS		,2.	;reserved
	.BS	DHSPD.	,4.	;DHSP$D baud rate mask
				;rest reserved

	.DSECT	<^o402>,LIST,E
	.DS	M.RMON		;Offset to RMON fixed area in file

.ENDM	.MONDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MONDF
.PRINT ;.MONDF
	.MONDF	YES,==:

.Assume	M.MON	EQ	<^o000000>
.Assume	M.MONV	EQ	<^rMON>
.Assume	$GENUS	EQ	<^o300>
.Assume	$GENIN	EQ	<^o302>
.Assume	$GENCD	EQ	<^o304>
.Assume	$GENMS	EQ	<^o306>
.Assume	$GENXM	EQ	<^o310>
.Assume	$GENTT	EQ	<^o312>
.Assume	$GENLM	EQ	<^o314>
.Assume	$GENLN	EQ	<^o315>
.Assume	$GENZM	EQ	<^o316>
.Assume	$GENZN	EQ	<^o317>
.Assume	$GENDZ	EQ	<^o320>
.Assume	$GENTM	EQ	<^o322>
.Assume	$GENTI	EQ	<^o324>
.Assume	$GENTO	EQ	<^o326>
.Assume	$GENKB	EQ	<^o330>
.Assume	$GENPS	EQ	<^o332>
.Assume	$GENVC	EQ	<^o334>
.Assume	$GENVV	EQ	<^o336>
.Assume	$GENLR	EQ	<^o340>
.Assume	$GENRR	EQ	<^o341>
.Assume	$GENPT	EQ	<^o342>
.Assume	$GENSP	EQ	<^o344>
.Assume	$GENSS	EQ	<^o346>
.Assume	$GENRC	EQ	<^o347>
.Assume	$GEND1	EQ	<^o350>
.Assume	$GEND2	EQ	<^o352>
.Assume	$GEND3	EQ	<^o354>
.Assume	$GEND4	EQ	<^o356>
.Assume	$GENHM	EQ	<^o360>
.Assume	$GENHN	EQ	<^o361>
.Assume	$GENDH	EQ	<^o362>

.Assume	M.RMON	EQ	<^o402>
.Assume	CVTNU.	EQ	<^o000001>
.Assume	GETFD.	EQ	<^o000002>
.Assume	GTNM.	EQ	<^o000004>
.Assume	XFXXX.	EQ	<^o000010>
.Assume	LK4DV.	EQ	<^o000020>
.Assume	USRCM.	EQ	<^o000040>
.Assume	EISI.	EQ	<^o000001>
.Assume	FPU11.	EQ	<^o000002>
.Assume	LIGHT.	EQ	<^o000001>
.Assume	PANIC.	EQ	<^o000002>
.Assume	PWFL.	EQ	<^o000004>
.Assume	RDFL.	EQ	<^o000010>
.Assume	ROLOV.	EQ	<^o000020>
.Assume	ROM.	EQ	<^o000040>
.Assume	SILNT.	EQ	<^o000100>
.Assume	MQHP2.	EQ	<^o000001>
.Assume	SPCPS.	EQ	<^o000002>
.Assume	XMFET.	EQ	<^o000004>
.Assume	HSRB.	EQ	<^o000001>
.Assume	HSRO.	EQ	<^o000002>
.Assume	MATS.	EQ	<^o000004>
.Assume	MTIM.	EQ	<^o000010>
.Assume	PDTOP.	EQ	<^o000020>
.Assume	U.K..	EQ	<^o000040>
.Assume	VS60.	EQ	<^o000100>
.Assume	VT11.	EQ	<^o000200>
.Assume	DZLEN.	EQ	<^o000030>
.Assume	DZSTP.	EQ	<^o000040>
.Assume	DZSPD.	EQ	<^o007400>
.Assume	DHLEN.	EQ	<^o000030>
.Assume	DHSTP.	EQ	<^o000040>
.Assume	DHSPD.	EQ	<^o007400>
.Assume	ABOR.	EQ	<^o000001>
.Assume	ASSI.	EQ	<^o000002>
.Assume	B.	EQ	<^o000004>
.Assume	BACK.	EQ	<^o000010>
.Assume	BOOT.	EQ	<^o000020>
.Assume	CLOS.	EQ	<^o000040>
.Assume	COMP.	EQ	<^o000100>
.Assume	COPY.	EQ	<^o000200>
.Assume	CREA.	EQ	<^o000400>
.Assume	D.	EQ	<^o001000>
.Assume	DATE.	EQ	<^o002000>
.Assume	DEAS.	EQ	<^o004000>
.Assume	DELE.	EQ	<^o010000>
.Assume	DIBO.	EQ	<^o020000>
.Assume	DIFF.	EQ	<^o040000>
.Assume	DIRE.	EQ	<^o100000>
.Assume	DISM.	EQ	<^o000001>
.Assume	DUMP.	EQ	<^o000002>
.Assume	E.	EQ	<^o000004>
.Assume	EDIT.	EQ	<^o000010>
.Assume	EXEC.	EQ	<^o000020>
.Assume	FORM.	EQ	<^o000040>
.Assume	FORT.	EQ	<^o000100>
.Assume	FRUN.	EQ	<^o000200>
.Assume	GET.	EQ	<^o000400>
.Assume	HELP.	EQ	<^o001000>
.Assume	INIT.	EQ	<^o002000>
.Assume	INST.	EQ	<^o004000>
.Assume	LIBR.	EQ	<^o010000>
.Assume	LINK.	EQ	<^o020000>
.Assume	LOAD.	EQ	<^o040000>
.Assume	MACR.	EQ	<^o100000>
.Assume	MAKE.	EQ	<^o000001>
.Assume	MOUN.	EQ	<^o000002>
.Assume	MUNG.	EQ	<^o000004>
.Assume	PRIN.	EQ	<^o000010>
.Assume	PROT.	EQ	<^o000020>
.Assume	REEN.	EQ	<^o000040>
.Assume	REMO.	EQ	<^o000100>
.Assume	RENA.	EQ	<^o000200>
.Assume	RESE.	EQ	<^o000400>
.Assume	RESU.	EQ	<^o001000>
.Assume	SAVE.	EQ	<^o002000>
.Assume	SET.	EQ	<^o004000>
.Assume	SHOW.	EQ	<^o010000>
.Assume	SQUE.	EQ	<^o020000>
.Assume	SRUN.	EQ	<^o040000>
.Assume	STAR.	EQ	<^o100000>
.Assume	SUSP.	EQ	<^o000001>
.Assume	TECO.	EQ	<^o000002>
.Assume	TIME.	EQ	<^o000004>
.Assume	TYPE.	EQ	<^o000010>
.Assume	UNLO.	EQ	<^o000020>
.Assume	UNPR.	EQ	<^o000040>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.MSTDF	-- Define .MTSTAT returned info
;+
;	.MSTDF
;
;	+-------+-------+
;MST.1T:| offset 1st TCB|[0] offset from RMON			o(.TCBDF)
;	+-------+-------+
;MST.CT:| offset console|[2] offset from RMON			o(.TCBDF)
;	+-------+-------+
;MST.LU:| highest LUN no|[4]
;	+-------+-------+
;MST.ST:| size of a TCB	|[6]
;	+-------+-------+
;	|		|[10]<res>
;	+-------+-------+
;	|		|[12]<res>
;	+-------+-------+
;	|		|[14]<res>
;	+-------+-------+
;	|		|[16]<res>
;	+-------+-------+
;MST.SZ:		 [20]
;-
.MACRO	.MSTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;A.MSTA in ..MTST
	.DS	MST.1T		;offset to first TCB
	.DS	MST.CT		;offset to console TCB
	.DS	MST.LU		;maximum LUN number
	.DS	MST.ST		;size of TCB in bytes
	.DS	,	4.	;<res>
	.DS	MST.SZ	0	;size of response area
.ENDM	.MSTDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.MSTDF
.PRINT ;.MSTDF
	.MSTDF	YES,==:

.Assume	MST.1T	EQ	0
.Assume	MST.CT	EQ	<^o2>
.Assume	MST.LU	EQ	<^o4>
.Assume	MST.ST	EQ	<^o6>
.Assume	MST.SZ	EQ	<^o20>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>

.IF EQ GP4$DO
.SbTtl	.NALDF	-- define Ethernet SF.NAL SPFUN argument format
;+
;	.NALDF
;
;	+-------+-------+
;NAL.ST:|    status	|[00]	Request status word	o(.NSTDF) v(.ERNDF)
;	+-------+-----+-+
;NAL.PA:|    unit's   |1|[02]	Physical address of unit allocated
;	+   physical  +-+	(3 words long, low bit of first word = 1)
;	|   address	|	    **** Unused by deallocate!! ****
;	+		+
;	|   (3 words)	|
;	+-------+-------+
;NAL.SZ:		 [10]	
;
;	Q.BLKN	= NAL.DU = 0	Deallocate unit
;		= NAL.AU = 1	Allocate unit
;-
.MACRO	.NALDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;SF.NAL argument block format
	.DS	NAL.ST		;Ethernet request status   o(.NSTDF) v(.ERNDF)
	.DS	NAL.PA	,3	;Physical address of unit (returned by alloc.)
	.DS	NAL.SZ	,0	;Size of SF.NAL argument block
	.EQU	NAL.DU	0	;Value of Q.BLKN to deallocate a unit
	.EQU	NAL.AU	1	;Value of Q.BLKN to allocate a unit
.ENDM	.NALDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.NALDF
.PRINT ;.NALDF
	.NALDF	YES,==:

.Assume	NAL.ST	EQ	0
.Assume	NAL.PA	EQ	<^o2>
.Assume	NAL.SZ	EQ	<^o10>
.Assume	NAL.DU	EQ	0
.Assume	NAL.AU	EQ	1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>

.IF EQ GP4$DO
.SbTtl	.NMUDF	-- define Ethernet SF.NMU SPFUN argument format
;+
;	.NMUDF
;
;	+-------+-------+
;NMU.ST:|    status	|[00]	Request status word	o(.NSTDF) v(.ERNDF)
;	+-------+-----+-+
;NMU.MA:|   multicast |1|[02]	Multicast address to enable/disable
;	+	      +-+	(3 words long, low bit of first word = 1)
;	|    address	|
;	+		+
;	|   (3 words)	|
;	+-------+-------+
;NMU.SZ:		 [10]	
;
;	Q.BLKN	= NMU.DM = 0	Disable multicast address
;		= NMU.EM = 1	Enable multicast address
;-
.MACRO	.NMUDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;SF.NMU argument block format
	.DS	NMU.ST		;Ethernet request status   o(.NSTDF) v(.ERNDF)
	.DS	NMU.MA	,3	;Multicast address to enable/disable
	.DS	NMU.SZ	,0	;Size of SF.NMU argument block
	.EQU	NMU.DM	0	;Value of Q.BLKN to disable multicast address
	.EQU	NMU.EM	1	;Value of Q.BLKN to enable multicast address
.ENDM	.NMUDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.NMUDF
.PRINT ;.NMUDF
	.NMUDF	YES,==:

.Assume	NMU.ST	EQ	0
.Assume	NMU.MA	EQ	<^o2>
.Assume	NMU.SZ	EQ	<^o10>
.Assume	NMU.DM	EQ	0
.Assume	NMU.EM	EQ	1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.NPMDF	-- define Ethernet SF.NPM SPFUN argument format
;+
;	.NPMDF
;
;	+-------+-------+
;NPM.ST:|    status	|[00]	Request status word	o(.NSTDF) v(.ERNDF)
;	+-------+-------+
;NPM.PT:| protocol type	|[02]	Protocol type (if disable promiscuous mode)
;	+-------+-------+
;NPM.SZ:		 [04]
;
;	Q.BLKN	= NPM.DP = 0	Disable promiscuous receive mode
;		= NPM.EP = 1	Enable promiscuous receive mode
;-
.MACRO	.NPMDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;SF.NPM argument block format
	.DS	NPM.ST		;Ethernet request status   o(.NSTDF) v(.ERNDF)
	.DS	NPM.PT		;Protocol type to enable if disable promisc.
	.DS	NPM.SZ	,0	;Size of SF.NPM argument block
	.EQU	NPM.DP	0	;Value of Q.BLKN to disable promiscuous mode
	.EQU	NPM.EP	1	;Value of Q.BLKN to enable promiscuous mode
.ENDM	.NPMDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.NPMDF
.PRINT ;.NPMDF
	.NPMDF	YES,==:

.Assume	NPM.ST	EQ	0
.Assume	NPM.PT	EQ	<^o2>
.Assume	NPM.SZ	EQ	<^o4>
.Assume	NPM.DP	EQ	0
.Assume	NPM.EP	EQ	1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.NPRDF	-- define Ethernet SF.NPR SPFUN argument format
;+
;	.NPRDF
;
;	+-------+-------+
;NPR.ST:|    status	|[00]	Request status word	o(.NSTDF) v(.ERNDF)
;	+-------+-------+
;NPR.PT:| protocol type	|[02]	Protocol type to enable/disable
;	+-------+-------+
;NPR.SZ:		 [04]	
;
;	Q.BLKN	= NPR.DP = 0	Disable protocol type
;		= NPR.EP = 1	Enable protocol type
;-
.MACRO	.NPRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;SF.NPR argument block format
	.DS	NPR.ST		;Ethernet request status   o(.NSTDF) v(.ERNDF)
	.DS	NPR.PT		;Protocol type to enable/disable
	.DS	NPR.SZ	,0	;Size of SF.NPR argument block
	.EQU	NPR.DP	0	;Value of Q.BLKN to disable protocol type
	.EQU	NPR.EP	1	;Value of Q.BLKN to enable protocol type
.ENDM	.NPRDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.NPRDF
.PRINT ;.NPRDF
	.NPRDF	YES,==:

.Assume	NPR.ST	EQ	0
.Assume	NPR.PT	EQ	<^o2>
.Assume	NPR.SZ	EQ	<^o4>
.Assume	NPR.DP	EQ	0
.Assume	NPR.EP	EQ	1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.NRWDF	-- define Ethernet SF.NRD/SF.NWR SPFUN argument format
;+
;	.NRWDF
;
;	+-------+-------+
;NRW.ST:|    status	|[00]	Request status word	o(.NSTDF) v(.ERNDF)
;	+-------+-------+
;NRW.FS:|  frame size	|[02]	Frame size (for read) / <reserved> (for write)
;	+-------+-------+
;NRW.DA:|		|[04]	Destination address (3 words)
;	+  destination	+
;	|		|
;	+    address	+
;	|		|
;	+-------+-------+
;NRW.SA:|		|[12]	Source address (3 words)
;	+    source	+
;	|		|
;	+    address	+
;	|		|
;	+-------+-------+
;NRW.PT:|    protocol	|[20]	Frame type/protocol
;	+-------+-------+
;NRW.DT:|		|[22]	Data (23. to 750. words)
;	:   frame data	:
;	:		:
;	|		|
;	+-------+-------+
;NRW.SZ:		 [2756]	Maximum size of SF.NRW argument
;-
.MACRO	.NRWDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;SF.NRD/SF.NWR argument block format
	.DS	NRW.ST		;Ethernet request status   o(.NSTDF) v(.ERNDF)
	.DS	NRW.FS		;Frame size (read) / <unused> (write)
	.DS	NRW.DA	,3	;Destination address of frame
	.DS	NRW.SA	,3	;Source address of frame
	.DS	NRW.PT		;Protocol type of frame
	.DS	NRW.DT	,750.	;Frame data (23. to 750. bytes)
	.DS	NRW.SZ	,0	;Maximum size of SF.NRW argument block
.ENDM	.NRWDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.NRWDF
.PRINT ;.NRWDF
	.NRWDF	YES,==:

.Assume	NRW.ST	EQ	0
.Assume	NRW.FS	EQ	<^o2>
.Assume	NRW.DA	EQ	<^o4>
.Assume	NRW.SA	EQ	<^o12>
.Assume	NRW.PT	EQ	<^o20>
.Assume	NRW.DT	EQ	<^o22>
.Assume	NRW.SZ	EQ	<^o2756>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.NSTDF	-- define Ethernet SPFUN status word format
;+
;	.NSTDF
;
;		+-------+
;NST.ST:	| status|[00]	} Request status word, high byte is 0 for
;	+-------+-------+	} all values of the low byte except EN.XMT
;NST.SC:|0/subcd|	 [01]	} and EN.ABO (unused).		v(.ERNDF)
;	+-------+-------+
;NST.SZ:		 [02]
;-
.MACRO	.NSTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Error/status block format	v(.ERNDF)
	.DS	NST.ST	,,B	;Ethernet request status (may access as word)
	.DS	NST.SC	,,B	;Ethernet request status subcode (for EN.XMT)
	.DS	NST.SZ	,0	;Size of Ethernet SPFUN error/status block
.ENDM	.NSTDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.NSTDF
.PRINT ;.NSTDF
	.NSTDF	YES,==:

.Assume	NST.ST	EQ	0
.Assume	NST.SC	EQ	<^o1>
.Assume	NST.SZ	EQ	<^o2>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.NULDF	-- Null Job Hook			*UNIMPLEMENTED*
.SbTtl	.OBJDF	-- OBJ file entry formats
;+
;	.OBJDF
;
;UPPERCASE=terminal symbols, lowercase=non-terminal symbols
;
;<object>=<O.HC1><O.HC2><O.LEN><O.RECD>{<gsd> }<CHECKSUM>
;				       {<egsd>}
;				       {<txt> }
;				       {<rld> }
;				       {<isd> }
;				       {<emod>}
;				       {<lib> }
;				       {<elib>}
;
;<gsd> = <O.GSD><gsd_entry>[<gsd_entry>]
;
;<gsd_entry> =	{<O.NAME><0_BYTE><O.GMOD><0_WORD>}
;		{<O.NAME><0_BYTE><O.GCSN><MAX_LENGTH>}
;		{<O.NAME><0_BYTE><O.GINT><UNDEFINED>}
;		{<O.NAME><0_BYTE><O.GXFR><O.VALU>}
;		{<O.NAME><SYMBOL_FLAGS><O.GSYM><O.VALU>}
;		{<O.NAME><PSECT_FLAGS><O.GPSE><O.VALU>}
;		{<O.NAME><0_BYTE><O.GID><0_WORD>}
;		{<O.NAME><0_BYTE><O.GVIR><LENGTH>}
;		{<O.NAME><0_BYTE><O.GSCR><O.VALU>}
;
;<egsd> = <O.EGSD>
;
;<txt> = <O.TXT><O.ADDR><TEXT>
;
;<rld> = <O.BYTM><O.RLD><rld_entry>[<rld_entry>]
;
;<rld_entry> =	{<O.RINT><O.DISP><O.CONS>}
;		{<O.RGBL><O.DISP><O.RNAM>}
;		{<O.RIDR><O.DISP><O.CONS>}
;		{<O.RGDR><O.DISP><O.RNAM>}
;		{<O.RGAR><O.DISP><O.CON2>}
;		{<O.RGAD><O.DISP><O.RNAM><O.CON2>}
;		{<O.RLCD><O.DISP><O.RNAM><O.CON2>}
;		{<O.RLCM><O.DISP><O.CONS>}
;		{<O.RLIM><O.DISP>}
;		{<O.RPSE><O.DISP><O.RNAM>}
;		{<O.RPDR><O.DISP><O.RNAM>}
;		{<O.RPAR><O.DISP><O.RNAM><O.CON2>}
;		{<O.RPAD><O.DISP><O.RNAM><O.CON2>}
;		{<O.RCOM><O.DISP><com>}
;		{<O.RRLR><O.DISP><O.CONS>}
;
;<com> = <com_entry>[<com_entry>]
.Page
;<com_entry> =	{<O.CNOP>}
;		{<O.CADD>}
;		{<O.CSUB>}
;		{<O.CMUL>}
;		{<O.CDIV>}
;		{<O.CAND>}
;		{<O.COR> }
;		{<O.CXOR>}
;		{<O.C2SC>}
;		{<O.C1SC>}
;		{<O.CSTO>}
;		{<O.CSTD>}
;		{<O.CFGS><O.CSYM>}
;		{<O.CFRV><O.SECT><O.OFFS>}
;		{<O.CFCO><O.CCON>}
;		{<O.CFRL>}
;
;<isd> = <O.ISD><O.ITYP><UNDEFINED>
;
;<emod>= <O.EMOD>
;<lib> = <O.LIB><SEE .OLBDF>
;<elib>= <O.ELIB><10_WORD><0_WORD>
.Page
;	+-------+
;O.HC1:	|   1	|	 [000] Header byte 1		O.HC1V=1
;	+-------+
;O.HC2:	|   0	|	 [001] Header byte 2		O.HC2V=0
;	+-------+-------+
;O.LEN:	|		|[002] Length of data area (not including cksum)
;	+-------+-------+
;O.RECD:|		|[004] record type
;	+-------+-------+
;	|		|[006]
;	:		:
;	|		|
;	+-------+-------+
;	|checksm|	 [???] checksum byte (-<sum previous bytes>)
;	+-------+
;
;
;	+-------+-------+
;O.RECD:|	       1|[004]	GSD record type			O.GSD=1
;	+-------+-------+
;O.ENTR:|		|[006]	first GSD entry
;
;
;	+-------+-------+
;O.RECD:|	       2|[004]	ENDGSD record type		O.EGSD=2
;	+-------+-------+
;
;
;	+-------+-------+
;O.RECD:|	       3|[004]	TXT record type			O.TXT=3
;	+-------+-------+
;O.ADDR:|		|[006]	load address
;	+-------+-------+
;O.TEXT:|		|[010]	data to load
;
;
;	+-------+-------+
;O.RECD:|	       4|[004]	RLD record type			O.RLD=4
;	+-------+-------+
;O.1RLD:|		|[006]	first relocation command
;
;
;	+-------+-------+
;O.RECD:|	       5|[004]	ISD record type			O.ISD=5
;	+-------+-------+
;O.ITYP:|	|[005]		ISD type
;	+-------+
;	|   0	|[006]		reserved
;	+-------+
;O.IDEP:|	|[007]		type dependent info
.Page
;	+-------+-------+
;O.RECD:|	       6|[004]	ENDMOD record type		O.EMOD=6
;	+-------+-------+
;O.SREC:		[002]
;
;
;	+-------+-------+
;O.RECD:|	       7|[004]	Library record type		O.LIB=7
;	+-------+-------+	See .OLBDF for more info
;	|		|
;
;
;	+-------+-------+
;O.RECD:|	      10|[004]	End library record type		O.ELIB=10
;	+-------+-------+
;O.LEN:	|	10	|[006]	length of block			O.LLEN=10
;	+-------+-------+
;O.RESE:|	0	|[010]	reserved area			O.RESV=0
;	+-------+-------+
;O.????:|  357	|	 [012]	checksum			O.????=357
;	+-------+
;
;
;				GSD entries
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|	|[004]		modifier flags
;	+-------+
;O.TYPE:|	|[005]		entry type
;	+-------+-------+
;O.VALU:|		|[006]	value
;	+-------+-------+
;O.GSIZ:		 [010]	length of a GSD entry
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|   0	|[004]
;	+-------+
;O.TYPE:|   0	|[005]		Module name entry		O.GMOD
;	+-------+-------+
;O.VALU:|	0	|[006]	value
;	+-------+-------+
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|   0	|[004]
;	+-------+
;O.TYPE:|   1	|[005]		Control Section name entry	O.GCSN
;	+-------+-------+
;O.VALU:|maximum length	|[006]	value
;	+-------+-------+
.Page
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|   0	|[004]
;	+-------+
;O.TYPE:|   2	|[005]		Internal symbol entry		O.GINT
;	+-------+-------+
;O.VALU:|   undefined	|[006]	value
;	+-------+-------+
;
;
;	+-------+-------+-------+-------+
;O.NAME:|	     O.GCSN name	|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|   0	|[004]
;	+-------+
;O.TYPE:|   3	|[005]		Transfer entry		O.GXFR
;	+-------+-------+				O.NOXF=1
;O.VALU:|	0	|[006]	value
;	+-------+-------+
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|	|[004]
;	+-------+
;O.TYPE:|   4	|[005]		Global symbol entry		O.GSYM
;	+-------+-------+
;O.VALU:|		|[006]	value
;	+-------+-------+
;
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;O.FLAG:|reserve|O.F|res|O.F|O.F|res|O.F|
;	|	|REL|	|DEF|LIB|   |WEK|
;	+---+---+---+---+---+---+---+---+
;
;	O.FWEK=0	normal symbol
;	O.FWEK=1	weak definition or reference (see O.FDEF)
;	O.FLIB=1	STB for library (RSX only)
;	O.FDEF=0	reference
;	O.FDEF=1	definition
;	O.FREL=0	absolute
;	O.FREL=1	relative
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|	|[004]
;	+-------+
;O.TYPE:|   5	|[005]		PSect entry			O.GPSE
;	+-------+-------+
;O.VALU:|		|[006]	value
;	+-------+-------+
;O.GSIZ:		 [014]	length of a GSD entry
.Page
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;O.FLAG:|O.F|O.F|O.F|O.F|res|O.F|O.F|O.F|
;	|DAT|GBL|REL|RED|   |OVR|SHR|SAV|
;	+---+---+---+---+---+---+---+---+
;
;	O.FSAV=0	scope determined by O.FGBL
;	O.FSAV=1	force to root
;	O.FSHR=1	shared region (RSX only)
;	O.FOVR=0	Concatinate
;	O.FOVR=1	Overlay
;	O.FRED=0	Read/write
;	O.FRED=1	Read-only<fut>
;	O.FREL=0	absolute
;	O.FREL=1	relative
;	O.FGBL=0	local
;	O.FGBL=1	global
;	O.FDAT=0	I space
;	O.FDAT=1	D space
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|   0	|[004]
;	+-------+
;O.TYPE:|   6	|[005]		Program version ID entry	O.GID
;	+-------+-------+
;O.VALU:|	0	|[006]	value
;	+-------+-------+
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|	|[004]
;	+-------+
;O.TYPE:|   7	|[005]		Mapped Array Declaration Entry	O.GVIR
;	+-------+-------+
;O.VALU:|    length	|[006]	value
;	+-------+-------+
;
;
;	+-------+-------+-------+-------+
;O.NAME:|				|[000] Name in RAD50
;	+-------+-------+-------+-------+
;O.FLAG:|	|[004]
;	+-------+
;O.TYPE:|   10	|[005]		Completion routine Entry	O.GSCR
;	+-------+-------+
;O.VALU:|    value	|[006]	value
;	+-------+-------+
;
;	(RSX only)
.Page
;	++------+				(RSX Only)	O.BYTM=200
;O.CMND:||	|[000]		RLD command byte
;	++------+						O.CMNM=177
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+
;	|	|[002]		RLD added information starts here
;
;
;	++------+
;O.CMND:||  1	|[000]		RLD Internal relocation		O.RINT=1
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.CONS:|		|[002]	Disp := psect-base + cons
;	+-------+-------+
;O.SINT:		 [004]
;
;
;	++------+
;O.CMND:||  2	|[000]		RLD Global relocation		O.RGBL=2
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(global)
;	+		+
;	|		|
;	+-------+-------+
;O.SGBL:		 [006]
;
;
;	++------+
;O.CMND:||  3	|[000]		RLD Internal displaced relocation O.RIDR=3
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.CONS:|		|[002]	Disp := cons - <loc counter + 2>
;	+-------+-------+
;O.SIDR:		 [004]
;
;
;	++------+
;O.CMND:||  4	|[000]		RLD Global displaced relocation	O.RGDR=4
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(global) - <loc counter + 2>
;	+		+
;	|		|
;	+-------+-------+
;O.SGDR:		 [006]
.Page
;	++------+
;O.CMND:||  5	|[000]		RLD Global Additive relocation	O.RGAR=5
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(global) + cons
;	+		+
;	|		|
;	+-------+-------+
;O.CON2:|		|[006]	constant
;	+-------+-------+
;O.SGAR:		 [010]
;
;
;	++------+
;O.CMND:||  6	|[000]		RLD Global Additive Displaced rel O.RGAD=6
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(global) + cons - <loc counter + 2>
;	+		+
;	|		|
;	+-------+-------+
;O.CON2:|		|[006]	constant
;	+-------+-------+
;O.SGAD:		 [010]
;
;
;	++------+
;O.CMND:||  7	|[000]		RLD Location counter definition O.RLCD=7
;	++------+
;	|   0	|[001]
;	+-------+-------+
;O.RNAM:|		|[002]	LC:= v(psect) + cons
;	+		+
;	|		|
;	+-------+-------+
;O.CON2:|		|[006]	constant
;	+-------+-------+
;O.SLCD:		 [010]
;
;
;	++------+
;O.CMND:||  10	|[000]		RLD Location counter modification O.RLCM=10
;	++------+
;	|   0	|[001]
;	+-------+-------+
;O.CONS:|		|[002]	LC := LC + cons
;	+-------+-------+
;O.SLCM:		 [004]
.Page
;	++------+
;O.CMND:||  11	|[000]		RLD Program limits		O.RLIM=11
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+
;O.SLIM:	 [002]
;
;
;	++------+
;O.CMND:||  12	|[000]		RLD P-sect relocation		O.RPSE=12
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(psect)
;	+		+
;	|		|
;	+-------+-------+
;O.SPSE:		 [006]
;
;
;	O.CMND 13 omitted?
;
;	++------+
;O.CMND:||  14	|[000]		RLD P-sect displaced relocation O.RPDR=14
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(psect) - <location counter + 2>
;	+		+
;	|		|
;	+-------+-------+
;O.SPDR:		 [006]
;
;
;	++------+
;O.CMND:||  15	|[000]		RLD Psect Additive relocation	O.RPAR=15
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(psect) + cons
;	+		+
;	|		|
;	+-------+-------+
;O.CON2:|		|[006]	constant
;	+-------+-------+
;O.SPAR:		 [010]
;
;
;	++------+
;O.CMND:||  16	|[000]		RLD Psect Additive Displaced rel O.RPAD=16
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.RNAM:|		|[002]	Disp := v(psect) + cons - <loc counter + 2>
;	+		+
;	|		|
;	+-------+-------+
;O.CON2:|		|[006]	constant
;	+-------+-------+
;O.SPAD:		 [010]
.Page
;	++------+
;O.CMND:||  17	|[000]		RLD complex relocation		O.RCOM=17
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+
;O.1OPR:|	|[002]		First operation code
;
;
;	+-------+
;O.OPER:|   0	|[000]		complex NOP (a contradiction?)	O.CNOP=0
;	+-------+
;O.SNOP:	 [001]
;
;
;	+-------+
;O.OPER:|   1	|[000]		complex addition		O.CADD=1
;	+-------+
;O.SADD:	 [001]
;
;
;	+-------+
;O.OPER:|   2	|[000]		complex subtraction		O.CSUB=2
;	+-------+
;O.SSUB:	 [001]
;
;
;	+-------+
;O.OPER:|   3	|[000]		complex multiplication		O.CMUL=3
;	+-------+
;O.SMUL:	 [001]
;
;
;	+-------+
;O.OPER:|   4	|[000]		complex division		O.CDIV=4
;	+-------+
;O.SDIV:	 [001]
;
;
;	+-------+
;O.OPER:|   5	|[000]		complex logical AND		O.CAND=5
;	+-------+
;O.SAND:	 [001]
;
;
;	+-------+
;O.OPER:|   6	|[000]		complex logical inclusive OR	O.COR=6
;	+-------+
;O.SOR:	 [001]
;
;
;	+-------+
;O.OPER:|   7	|[000]		complex logical exclusive OR	O.CXOR=7
;	+-------+
;O.SXOR:	 [001]
.Page
;	+-------+
;O.OPER:|   10	|[000]		complex negation (2's comp)	O.C2SC=10
;	+-------+
;O.S2SC:	 [001]
;
;
;	+-------+
;O.OPER:|   11	|[000]		complex negation (1's comp)	O.C1SC=11
;	+-------+
;O.S1SC:	 [001]
;
;
;	+-------+
;O.OPER:|   12	|[000]		complex store results		O.CSTO=12
;	+-------+		and terminate complex command
;O.SSTO:	 [001]
;
;
;	+-------+
;O.OPER:|   13	|[000]		complex store results w/ disp rel O.CSTD=13
;	+-------+		and terminate complex command
;O.SSTD:	 [001]
;
;
;	Operations 14 and 15 omitted?
;
;
;	+-------+
;O.OPER:|   16	|[000]		complex fetch global symbol	O.CFGS=16
;	+-------+-------+-------+-------+
;O.CSYM:|				|[001] symbol name
;	+-------+-------+-------+-------+
;O.SFGS:	 [005]
;
;
;	+-------+
;O.OPER:|   17	|[000]		complex fetch relocatable value	O.CFRV=17
;	+-------+
;O.SECT:|	|[001]		section number
;	+-------+-------+
;O.OFFS:|		|[002]	byte offset in section
;	+-------+-------+
;O.SFRV:		 [004]
;
;
;	+-------+
;O.OPER:|   20	|[000]		complex fetch constant		O.CFCO=17
;	+-------+-------+
;O.CCON:|		|[001]	constant
;	+-------+-------+
;O.SFCO:		 [003]
;
;
;	+-------+			(RSX only)
;O.OPER:|   21	|[000]		complex fetch resident lib base addr O.CFRL=21
;	+-------+
;O.SFRL:	 [001]
.Page
;	++------+			(RSX only)
;O.CMND:||  20	|[000]		Resident library relocation	O.RRLR=20
;	++------+
;O.DISP:|	|[001]		RLD displacment into TXT area
;	+-------+-------+
;O.CONS:|		|[002]	disp := res lib base + cons
;	+-------+-------+
;O.SRLR:		 [004]
;-
.MACRO	.OBJDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;basic obj header
	.DS	O.HC1	,,B	;header byte 1
	.EQU	O.HC1V	1	;value for O.HC1
	.DS	O.HC2	,,B	;header byte 2
	.EQU	O.HC2V	0	;value for O.HC2
	.DS	O.LEN		;length of rest of record
	.DS	O.RECD		;record type code
	.EQU	O.GSD	<^o001>	;GSD record value for O.RECD
	.EQU	O.EGSD	<^o002>	;ENDGSD record value for O.RECD
	.EQU	O.TXT	<^o003>	;TXT record value for O.RECD
	.EQU	O.RLD	<^o004>	;RLD record value for O.RECD
	.EQU	O.ISD	<^o005>	;ISD record value for O.RECD
	.EQU	O.EMOD	<^o006>	;ENDMOD record value for O.RECD
	.EQU	O.LIB	<^o007>	;LIB record value for O.RECD
	.EQU	O.ELIB	<^o010>	;ELIB record value for O.RECD

	.DSECT	O.RECD+2.,LIST,E ;for O.GSD in O.RECD
	.DS	O.ENTR	0	;first GSD entry

	.DSECT	,LIST,E		;GSD record entries
	.DS	O.NAME	,2.	;name area in GSD records
	.DS	O.FLAG	,,B	;flag byte in GSD records
	.BSECT	,LIST,E		;Bits in O.FLAG when O.GSYM in O.TYPE
	.BS	O.FWEK		;0=normal symbol; 1=weak symbol
	.BS			;<res>
	.BS	O.FLIB		;0=normal symbol; 1=STB for library <RSX only>
	.BS	O.FDEF		;0=reference; 1=definition
	.BS			;<res>
	.BS	O.FREL		;0=absolute; 1=relative
	.BS			;<res>
	.BS			;<res>
	.BSECT	,LIST,E		;Bits in O.FLAG when O.GPSE in O.TYPE
	.BS	O.FSAV		;0=scope determined by O.FGBL; 1=force to root
	.BS	O.FSHR		;0=normal; 1=shared region <RSX only>
	.BS	O.FOVR		;0=Concat; 1=Overlay
	.BS			;<res>
	.BS	O.FRED		;0=read/write; 1=read-only
	.BS	O.FREL		;0=absolute; 1=relocatable
	.BS	O.FGBL		;0=local; 1=global
	.BS	O.FDAT		;0=I space; 1=D space
	.DS	O.TYPE	,,B	;type byte in GSD records
	.EQU	O.GMOD	<^o000>	;Module name in O.TYPE
	.EQU	O.GCSN	<^o001>	;Control section name in O.TYPE
	.EQU	O.GINT	<^o002>	;Internal symbol name in O.TYPE
	.EQU	O.GXFR	<^o003>	;Transfer address in O.TYPE
	.EQU	O.GSYM	<^o004>	;Global name in O.TYPE
	.EQU	O.GPSE	<^o005>	;Psect entry in O.TYPE
	.EQU	O.GID	<^o006>	;Ident entry in O.TYPE
	.EQU	O.GVIR	<^o007>	;Mapped array declaration in O.TYPE
	.EQU	O.GSCR	<^o010>	;Supervisor Completion routine in O.TYPE<RSX only>
	.DS	O.VALU		;value in GSD record
	.EQU	O.NOXF	1	;value in O.VALU when O.GXFR in O.TYPE and
				; no transfer address

	.DSECT	O.RECD+2.,LIST,E ;for O.TXT in O.RECD
	.DS	O.ADDR		;load address
	.DS	O.TEXT	0	;first text data

	.DSECT	O.RECD+2.,LIST,E ;for O.RLD in O.RECD
	.DS	O.1RLD	0	;first RLD entry

	.DSECT	,LIST,E		;RLD record entries
	.DS	O.CMND	,,B	;RLD command byte
	.BSECT	,LIST,E		;masks for O.CMND
	.BS	O.CMNM	,7.	;mask for command value
	.BS	O.BYTM		;mask for byte relocation<RSX only>
	.EQU	O.RINT	<^o001>	;Internal relocation cmnd in O.CMND[O.CMNM]
	.EQU	O.RGBL	<^o002>	;Global relocation cmnd in O.CMND[O.CMNM]
	.EQU	O.RIDR	<^o003>	;Int disp reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RGDR	<^o004>	;Global disp reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RGAR	<^o005>	;Global add reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RGAD	<^o006>	;Global add disp reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RLCD	<^o007>	;Loc counter def cmnd in O.CMND[O.CMNM]
	.EQU	O.RLCM	<^o010>	;Loc counter mod cmnd in O.CMND[O.CMNM]
	.EQU	O.RLIM	<^o011>	;program .LIMIT cmnd in O.CMND[O.CMNM]
	.EQU	O.RPSE	<^o012>	;PSect relocation cmnd in O.CMND[O.CMNM]
				;<reserved> (avoided?)
	.EQU	O.RPDR	<^o014>	;PSect disp reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RPAR	<^o015>	;PSect add reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RPAD	<^o016>	;Global add disp reloc cmnd in O.CMND[O.CMNM]
	.EQU	O.RCOM	<^o017>	;Complex relocation cmnd in O.CMND[O.CMNM]
	.EQU	O.RRLR	<^o020>	;Res lib cmnd in O.CMND[O.CMNM]<RSX only>
	.DS	O.DISP	,,B	;RLD displacement to modify

	.DSECT	O.DISP+1,LIST,E ;for O.R(INT,RLR) in O.CMND[O.CMNM]
	.DS	O.CONS		;constant
	.DS	O.SINT	0	;size of an O.RINT command entry
	.DS	O.SRLR	0	;size of an O.RRLR command entry

	.DSECT	O.DISP+1,LIST,E	;for O.R(GBL,PSE,PDR) in O.CMND[O.CMNM]
	.DS	O.RNAM	2.	;name
	.DS	O.SGBL	0	;size of an O.RGBL command entry
	.DS	O.SPSE	0	;size of an O.RPSE command entry
	.DS	O.SPDR	0	;size of an O.RPDR command entry

	.DSECT	O.DISP+1,LIST,E	;for O.R(IDR,LCM) in O.CMND[O.CMNM]
	.DS	O.CONS		;constant
	.DS	O.SIDR	0	;size of an O.RIDR command entry
	.DS	O.SLCM	0	;size of an O.RLCM command entry

	.DSECT	O.DISP+1,LIST,E	;for O.RGDR in O.CMND[O.CMNM]
	.DS	O.RNAM	2.	;name
	.DS	O.SGDR	0	;size of an O.RGDR command entry

	.DSECT	O.DISP+1,LIST,E	;for O.R(GAR,GAD,LCD,PAR,PAD) in O.CMND[O.CMNM]
	.DS	O.RNAM	2.	;name
	.DS	O.CON2		;constant (2nd position)
	.DS	O.SGAR	0	;size of an O.RGAR command entry
	.DS	O.SGAD	0	;size of an O.RGAD command entry
	.DS	O.SLCD	0	;size of an O.RLCD command entry
	.DS	O.SPAR	0	;size of an O.RPAR command entry
	.DS	O.SPAD	0	;size of an O.RPAD command entry

	.DSECT	O.DISP+1,LIST,E ;for O.RLIM in O.CMND[O.CMNM]
	.DS	O.SLIM		;size of an O.RLIM command entry

	.DSECT	O.DISP+1,LIST,E ;for O.RINT in O.CMND[O.CMNM]
	.DS	O.1OPR	0,B	;first complex operator

	.DSECT	,LIST,E		;complex operators
	.DS	O.OPER	,,B	;operator byte
	.EQU	O.CNOP	<^o000>	;a complex NOP code
	.EQU	O.CADD	<^o001>	;a complex ADD code
	.EQU	O.CSUB	<^o002>	;a complex SUB code
	.EQU	O.CMUL	<^o003>	;a complex MUL code
	.EQU	O.CDIV	<^o004>	;a complex DIV code
	.EQU	O.CAND	<^o005>	;a complex AND code
	.EQU	O.COR	<^o006>	;a complex OR code
	.EQU	O.CXOR	<^o007>	;a complex XOR code
	.EQU	O.C2SC	<^o010>	;a complex 2's complement code
	.EQU	O.C1SC	<^o011>	;a complex 1's complement code
	.EQU	O.CSTO	<^o012>	;a complex Store and end entry code
	.EQU	O.CSTD	<^o013>	;a complex Store w/disp rel and end entry code
	.EQU	O.CFGS	<^o016>	;a complex fetch global symbol code
	.EQU	O.CFRV	<^o017>	;a complex fetch relocatable value code
	.EQU	O.CFCO	<^o020>	;a complex fetch constant code
	.EQU	O.CFRL	<^o021>	;a complex fetch res lib base code<RSX only>

	.DSECT	O.OPER+1,LIST,E	;for O.C(NOP,ADD,SUB,MUL,DIV,AND,OR,XOR,2SC,
				; 1SC,STO,STD,FRL) in O.OPER
	.DS	O.SNOP	0	;size of O.CNOP entry
	.DS	O.SADD	0	;size of O.CNOP entry
	.DS	O.SSUB	0	;size of O.CNOP entry
	.DS	O.SMUL	0	;size of O.CNOP entry
	.DS	O.SDIV	0	;size of O.CNOP entry
	.DS	O.SAND	0	;size of O.CNOP entry
	.DS	O.SOR	0	;size of O.CNOP entry
	.DS	O.SXOR	0	;size of O.CNOP entry
	.DS	O.S2SC	0	;size of O.CNOP entry
	.DS	O.S1SC	0	;size of O.CNOP entry
	.DS	O.SSTO	0	;size of O.CNOP entry
	.DS	O.SSTD	0	;size of O.CNOP entry
	.DS	O.SFRL	0	;size of O.CNOP entry

	.DSECT	O.OPER+1,LIST,E	;for O.CFGS in O.OPER
	.DS	O.CSYM	2.	;symbol name
	.DS	O.SFGS	0	;size of O.SFGS entry

	.DSECT	O.OPER+1,LIST,E	;for O.CFRV in O.OPER
	.DS	O.SECT	,,B	;section number
	.DS	O.OFFS		;byte offset in section
	.DS	O.SFRV	0	;size of O.CFGS entry

	.DSECT	O.OPER+1,LIST,E	;for O.CFCO in O.OPER
	.DS	O.CCON		;constant
	.DS	O.SFCO	0	;size of O.CFCO entry

	.DSECT	O.RECD+2.,LIST,E ;for O.ELIB in O.RECD
	.EQU	O.LLEN	<^o010>	;value for O.LEN
	.DS	O.RESE		;reserved area
	.EQU	O.RESV	0	;value for O.RESE
	.DS	O.SELI	0	;size of ENDLIB record
	.EQU	O.ELCS	<^o357>	;checksum value for ENDLIB record

.ENDM	.OBJDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OBJDF
.PRINT ;.OBJDF
	.OBJDF	YES,==:
.Page
.Assume	O.HC1	EQ	<^o000000>
.Assume	O.HC1V	EQ	<^o000001>
.Assume	O.HC2	EQ	<^o000001>
.Assume	O.HC2V	EQ	<^o000000>
.Assume	O.LEN	EQ	<^o000002>
.Assume	O.RECD	EQ	<^o000004>
.Assume	O.GSD	EQ	<^o000001>
.Assume	O.EGSD	EQ	<^o000002>
.Assume	O.TXT	EQ	<^o000003>
.Assume	O.RLD	EQ	<^o000004>
.Assume	O.ISD	EQ	<^o000005>
.Assume	O.EMOD	EQ	<^o000006>
.Assume	O.LIB	EQ	<^o000007>
.Assume	O.ELIB	EQ	<^o000010>
.Assume	O.ENTR	EQ	<^o000006>
.Assume	O.NAME	EQ	<^o000000>
.Assume	O.FLAG	EQ	<^o000004>
.Assume	O.FWEK	EQ	<^o000001>
.Assume	O.FLIB	EQ	<^o000004>
.Assume	O.FDEF	EQ	<^o000010>
.Assume	O.FREL	EQ	<^o000040>
.Assume	O.FSAV	EQ	<^o000001>
.Assume	O.FSHR	EQ	<^o000002>
.Assume	O.FOVR	EQ	<^o000004>
.Assume	O.FRED	EQ	<^o000020>
.Assume	O.FREL	EQ	<^o000040>
.Assume	O.FGBL	EQ	<^o000100>
.Assume	O.FDAT	EQ	<^o000200>
.Assume	O.TYPE	EQ	<^o000005>
.Assume	O.GMOD	EQ	<^o000000>
.Assume	O.GCSN	EQ	<^o000001>
.Assume	O.GINT	EQ	<^o000002>
.Assume	O.GXFR	EQ	<^o000003>
.Assume	O.GSYM	EQ	<^o000004>
.Assume	O.GPSE	EQ	<^o000005>
.Assume	O.GID	EQ	<^o000006>
.Assume	O.GVIR	EQ	<^o000007>
.Assume	O.GSCR	EQ	<^o000010>
.Assume	O.VALU	EQ	<^o000006>
.Assume	O.NOXF	EQ	<^o000001>
.Assume	O.ADDR	EQ	<^o000006>
.Page
.Assume	O.TEXT	EQ	<^o000010>
.Assume	O.1RLD	EQ	<^o000006>
.Assume	O.CMND	EQ	<^o000000>
.Assume	O.CMNM	EQ	<^o000177>
.Assume	O.BYTM	EQ	<^o000200>
.Assume	O.RINT	EQ	<^o000001>
.Assume	O.RGBL	EQ	<^o000002>
.Assume	O.RIDR	EQ	<^o000003>
.Assume	O.RGDR	EQ	<^o000004>
.Assume	O.RGAR	EQ	<^o000005>
.Assume	O.RGAD	EQ	<^o000006>
.Assume	O.RLCD	EQ	<^o000007>
.Assume	O.RLCM	EQ	<^o000010>
.Assume	O.RLIM	EQ	<^o000011>
.Assume	O.RPSE	EQ	<^o000012>
.Assume	O.RPDR	EQ	<^o000014>
.Assume	O.RPAR	EQ	<^o000015>
.Assume	O.RPAD	EQ	<^o000016>
.Assume	O.RCOM	EQ	<^o000017>
.Assume	O.RRLR	EQ	<^o000020>
.Assume	O.DISP	EQ	<^o000001>
.Assume	O.CONS	EQ	<^o000002>
.Assume	O.SINT	EQ	<^o000004>
.Assume	O.SRLR	EQ	<^o000004>
.Assume	O.RNAM	EQ	<^o000002>
.Assume	O.SGBL	EQ	<^o000006>
.Assume	O.SPSE	EQ	<^o000006>
.Assume	O.SPDR	EQ	<^o000006>
.Assume	O.CONS	EQ	<^o000002>
.Assume	O.SIDR	EQ	<^o000004>
.Assume	O.SLCM	EQ	<^o000004>
.Assume	O.RNAM	EQ	<^o000002>
.Assume	O.SGDR	EQ	<^o000006>
.Assume	O.RNAM	EQ	<^o000002>
.Assume	O.CON2	EQ	<^o000006>
.Assume	O.SGAR	EQ	<^o000010>
.Assume	O.SGAD	EQ	<^o000010>
.Assume	O.SLCD	EQ	<^o000010>
.Assume	O.SPAR	EQ	<^o000010>
.Assume	O.SPAD	EQ	<^o000010>
.Assume	O.SLIM	EQ	<^o000002>
.Page
.Assume	O.1OPR	EQ	<^o000002>
.Assume	O.OPER	EQ	<^o000000>
.Assume	O.CNOP	EQ	<^o000000>
.Assume	O.CADD	EQ	<^o000001>
.Assume	O.CSUB	EQ	<^o000002>
.Assume	O.CMUL	EQ	<^o000003>
.Assume	O.CDIV	EQ	<^o000004>
.Assume	O.CAND	EQ	<^o000005>
.Assume	O.COR	EQ	<^o000006>
.Assume	O.CXOR	EQ	<^o000007>
.Assume	O.C2SC	EQ	<^o000010>
.Assume	O.C1SC	EQ	<^o000011>
.Assume	O.CSTO	EQ	<^o000012>
.Assume	O.CSTD	EQ	<^o000013>
.Assume	O.CFGS	EQ	<^o000016>
.Assume	O.CFRV	EQ	<^o000017>
.Assume	O.CFCO	EQ	<^o000020>
.Assume	O.CFRL	EQ	<^o000021>
.Assume	O.SNOP	EQ	<^o000001>
.Assume	O.SADD	EQ	<^o000001>
.Assume	O.SSUB	EQ	<^o000001>
.Assume	O.SMUL	EQ	<^o000001>
.Assume	O.SDIV	EQ	<^o000001>
.Assume	O.SAND	EQ	<^o000001>
.Assume	O.SOR	EQ	<^o000001>
.Assume	O.SXOR	EQ	<^o000001>
.Assume	O.S2SC	EQ	<^o000001>
.Assume	O.S1SC	EQ	<^o000001>
.Assume	O.SSTO	EQ	<^o000001>
.Assume	O.SSTD	EQ	<^o000001>
.Assume	O.SFRL	EQ	<^o000001>
.Assume	O.CSYM	EQ	<^o000001>
.Assume	O.SFGS	EQ	<^o000005>
.Assume	O.SECT	EQ	<^o000001>
.Assume	O.OFFS	EQ	<^o000002>
.Assume	O.SFRV	EQ	<^o000004>
.Assume	O.CCON	EQ	<^o000001>
.Assume	O.SFCO	EQ	<^o000003>
.Assume	O.LLEN	EQ	<^o000010>
.Assume	O.RESE	EQ	<^o000006>
.Assume	O.RESV	EQ	<^o000000>
.Assume	O.SELI	EQ	<^o000010>
.Assume	O.ELCS	EQ	<^o000357>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.OLBDF	-- Object library file
;+
;	.OLBDF
;
;	+-------+
;OL.BH1:|	|	 [000]	Binary Block Header Code	OL.VH1=1
;	+-------+
;OL.BH2:|	|	 [001]	  "	 "     "     "		OL.VH2=0
;	+-------+-------+
;OL.LEN:|      42	|[002]	Record length			OL.LEV=42
;	+-------+-------+
;OL.HC:	|	7	|[004]	Librarian code			OL.HCV=7
;	+-------+-------+					OL.VEV=500
;OL.VER:|      500	|[006]	Version number (V05.00)
;	+-------+-------+					OL.VOV=305
;OL.HX:	|      0/1	|[010]	/X library flag			OL.HXY=1
;	+-------+-------+				(no /X)	OL.HXN=0
;OL.DAT:|		|[012]	library last insert date	o(.DATDF)
;	+-------+-------+
;OL.TIM:|		|[014]	library last insert time	ov(.TIMDF)
;	+		+
;	|		|
;	+-------+-------+
;	|   <reserved>	|[020]	See .SLBDF			ov(.SLBDF)
;	:		:
;	+-------+-------+
;OL.RSA:|	10	|[026]	EPT relative start address	OL.RSV=10
;	+-------+-------+
;OL.EAB:|		|[030]	EPT entries allocated in bytes
;	+-------+-------+
;OL.EEA:|		|[032]	EPT entries available
;	+-------+-------+
;OL.NIB:|		|[034]	Next insert relative block number
;	+-------+-------+
;OL.NBB:|		|[036]	Next insert byte within block
;	+-------+-------+
;OL.EPT:|		|[040]	first EPT
;	+-------+-------+
;-
.Page
.MACRO	.OLBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	OL.BH1	,,B	;Binary block header code
	.EQU	OL.VH1	1	;value for OL.BH1
	.DS	OL.BH2	,,B	;Binary block header code
	.EQU	OL.VH2	0	;value for OL.BH2
	.DS	OL.LEN		;Record length
	.EQU	OL.LEV	<^o42>	;value for OL.LEN
	.DS	OL.HC		;Librarian code
	.EQU	OL.HCV	7	;value for OL.HC
	.DS	OL.VER		;Library version
	.EQU	OL.VEV	<^o500>	;value for OL.VER
	.EQU	OL.VOV	<^o305>	;oldest acceptable value for OL.VER
	.DS	OL.HX		;/X library flag
	.EQU	OL.HXY	1	;value for OL.HX if /X specified
	.EQU	OL.HXN	0	;value for OL.HX if /X not specified
	.DS	OL.DAT		;Last insert date	v(.DATDF)
	.DS	OL.TIM	2.	;Last insert time	ov(.TIMDF)
	.DSECT	<^o26>,LIST,E
	.DS	OL.RSA		;EPT relative start address
	.EQU	OL.RSV	<^o10>	;value for OL.RSA
	.DS	OL.EAB		;EPT entries allocated in bytes
	.DS	OL.EEA		;EPT entries available
	.DS	OL.NIB		;Next insert relative block number
	.DS	OL.NBB		;Next insert byte within block
	.DS	OL.EPT		;First EPT		ov(.EPTDF)
.ENDM	.OLBDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OLBDF
.PRINT ;.OLBDF
	.OLBDF	YES,==:
.Assume	OL.BH1	EQ	<^o000000>
.Assume	OL.VH1	EQ	<^o000001>
.Assume	OL.BH2	EQ	<^o000001>
.Assume	OL.VH2	EQ	<^o000000>
.Assume	OL.LEN	EQ	<^o000002>
.Assume	OL.LEV	EQ	<^o000042>
.Assume	OL.HC	EQ	<^o000004>
.Assume	OL.HCV	EQ	<^o000007>
.Assume	OL.VER	EQ	<^o000006>
.Assume	OL.VEV	EQ	<^o000500>
.Assume	OL.VOV	EQ	<^o000305>
.Assume	OL.HX	EQ	<^o000010>
.Assume	OL.HXY	EQ	<^o000001>
.Assume	OL.HXN	EQ	<^o000000>
.Assume	OL.DAT	EQ	<^o000012>
.Assume	OL.TIM	EQ	<^o000014>
.Assume	OL.RSA	EQ	<^o000026>
.Assume	OL.RSV	EQ	<^o000010>
.Assume	OL.EAB	EQ	<^o000030>
.Assume	OL.EEA	EQ	<^o000032>
.Assume	OL.NIB	EQ	<^o000034>
.Assume	OL.NBB	EQ	<^o000036>
.Assume	OL.EPT	EQ	<^o000040>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.OPTDF	-- CSISPC option value return layout
;+
;	.OPTDF
;
;	+-------+-------+
;OPT.ID:|	|	|[00]letter, file number and flag
;OPT.NV:+-------+-------+[02]entry len if no value
;OPT.VA:|		|[02]value
;	+-------+-------+
;OPT.YV:		 [04]entry len if value present
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;OPT.ID:|OPT| 0	  0   0 |    OPT.FI	| 0 |	     OPT.LT		|
;	|.VP|		|		|res|				|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;OPT.VP = 1	value word present
;OPT.FI		file number (0--9.)
;OPT.LT		option letter
;-
.MACRO	.OPTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;found on stack after CSISPC
	.DS	OPT.ID		;switch letter, file num, & flag
	.DS	OPT.NV	0	;entry len if no value present
	.DS	OPT.VA		;value of switch (optional)
	.DS	OPT.YV	0	;entry len value is present
	.BSECT	,,E
	.BS	OPT.LT	7.	;switch letter
	.BS	,	1	;<res> (0)
	.BS	OPT.FI	4.	;file number
	.BS	,	3.	;<res> (0)
	.BS	OPT.VP		;value word present if 1
.ENDM	.OPTDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OPTDF
.PRINT ;.OPTDF
	.OPTDF	YES,==:

.Assume	OPT.ID	EQ	0
.Assume	OPT.NV	EQ	<^o2>
.Assume	OPT.VA	EQ	<^o2>
.Assume	OPT.YV	EQ	<^o4>
.Assume	OPT.VP	EQ	<^o100000>
.Assume	OPT.FI	EQ	<^o007400>
.Assume	OPT.LT	EQ	<^o000177>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.OTBDF	-- Disk overlay table definition
;+
;	+-------+-------+
;OTB.AD:|  memory addr	|[0]
;	+-------+-------+
;OTB.BK:| file block no.|[2]
;	+-------+-------+
;OTB.SZ:| word count	|[4]
;	+-------+-------+
;OTB.ES:		 [6]
;-
.MACRO	.OTBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;RL.OVR in .RELDF; SV.OVR in .SAVDF
	.DS	OTB.AD		;memory addr for overlay
	.DS	OTB.BK		;file block number for overlay
	.DS	OTB.SZ		;word count for .READ
	.DS	OTB.ES	0	;entry size
.ENDM	.OTBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OTBDF
.PRINT ;.OTBDF
	.OTBDF	YES,==:

.Assume	OTB.AD	EQ	0
.Assume	OTB.BK	EQ	<^o2>
.Assume	OTB.SZ	EQ	<^o4>
.Assume	OTB.ES	EQ	<^o6>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.OTJDF	-- Overlay jump table layout
;+
;	+-------+-------+-------+-------+
;OTJ.JS:|     JSR	R5    $OVRH	|[0]
;	+-------+-------+-------+-------+
;OTJ.OV:| overlay num *6|[4]
;	+-------+-------+
;OTJ.AD:|   entry addr	|[6]
;	+-------+-------+
;OTJ.ES:		 [10]
;-
.MACRO	.OTJDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;linker points calls here
	.DS	OTJ.JS	2	;JSR R5 instruction
	.DS	OTJ.OV		;overlay number * 6
	.DS	OTJ.AD		;addr to call
	.DS	OTJ.ES	0	;entry size
.ENDM	.OTJDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OTJDF
.PRINT ;.OTJDF
	.OTJDF	YES,==:

.Assume	OTJ.JS	EQ	0
.Assume	OTJ.OV	EQ	<^o4>
.Assume	OTJ.AD	EQ	<^o6>
.Assume	OTJ.ES	EQ	<^o10>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.OVRDF	-- Overlay data area layout
;+
;	+-------+-------+
;OVR.EW:|-> wd past WDBs|[-16]	word following last WDB
;	+-------+-------+
;OVR.SW:|-> first WDB	|[-14]	first WDB
;	+-------+-------+
;OVR.RD:|      RDB	|[-12]	Region definition block (3 words)
;	+-------+-------+
;OVR.RS:| region size	|[-10]	region size in 32 word units
;	+-------+-------+
;OVR.ST:| region status	|[-6]	Status word in RDB
;	+-------+-------+
;OVR.ER:|-> wd past root|[-4]	First word past root
;	+-------+-------+
;OVR.EO:|-> wd past /O	|[-2]	First word past /O overlays
;	+-------+-------+
;OVR.TB:| overlay table	|[0]	beginning of overlay tables o(.OTBDF, .VTBDF)
;	+-------+-------+
;-
.MACRO	.OVRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o-16>,LIST,E	;overlay data area in (O,V)HANDL
	.DS	OVR.EW		;word following last WDB
	.DS	OVR.SW		;first WDB
	.DS	OVR.RD		;Region definition block (3 words)
	.DS	OVR.RS		;region size in 32 word units
	.DS	OVR.ST		;Status word in RDB
	.DS	OVR.ER		;First word past root
	.DS	OVR.EO		;First word past /O overlays
	.DS	OVR.TB		;beginning of overlay tables o(.OTBDF, .VTBDF)
.ENDM	.OVRDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OVRDF
.PRINT ;.OVRDF
	.OVRDF	YES,==:

.Assume	OVR.EW	EQ <^o-16>
.Assume	OVR.SW	EQ <^o-14>
.Assume	OVR.RD	EQ <^o-12>
.Assume	OVR.RS	EQ <^o-10>
.Assume	OVR.ST	EQ <^o-6>
.Assume	OVR.ER	EQ <^o-4>
.Assume	OVR.EO	EQ <^o-2>
.Assume	OVR.TB	EQ 0
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.OWNDF	-- Ownership table layout
;+
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;OWN.LO:|		|		|		|		|[0]
;	|		|		|		|		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;OWN.HI:|		|		|		|		|[2]
;	|		|		|		|		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;OWN.SZ:	standard owner entry table size				 [4]
;OWN.XZ:	extended owner entry table size				 [20]
;
;	+---+---+---+---+	OWN.NO	= 0	no owner
;	|		|	OWN.JA	= 1	owned
;	|		|	OWN.EX	= 2	flag as extended unit entry
;	+---+---+---+---+	OWN.JB	= 16	job number flag (if OWN.JA)
;
;	If OWN.LO contains OWN.EX, then OWN.HI is the address of an extended
;	ownership table (if it is non-zero).
;
;	Otherwise each nybble of the ownership table (be it standard or
;	extended) has the following intrepretation:
;
;	OWN.NO	0	if the whole nybble is 0, public unit
;	OWN.JA	1	if the low bit is on, the bits under the
;			OWN.JB mask ar the job number (*2)
;-
.MACRO	.OWNDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT, .BSECT
	.DSECT	,LIST,E		;Ownership table entry
	.DS	OWN.LO		;low word of ownership table entry
	.EQU	OWN.EX	<^o2>	;flag value for extended unit pointer
	.DS	OWN.HI		;high word of ownership table entry
	.DS	OWN.SZ	,0	;standard entry size
	.EQU	OWN.XZ	<^o20>	;extended entry size
	.EQU	OWN.NO	0	;unowned unit
	.EQU	OWN.JA	1	;owned unit
	.EQU	OWN.JB	<^o16>	;mask for job number
.ENDM	.OWNDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.OWNDF
.PRINT ;.OWNDF
	.OWNDF	YES,==:

.Assume	OWN.LO	EQ	0
.Assume	OWN.HI	EQ	2.
.Assume	OWN.SZ	EQ	4.
.Assume	OWN.XZ	EQ	16.
.Assume	OWN.NO	EQ	0
.Assume	OWN.JA	EQ	1
.Assume	OWN.EX	EQ	2
.Assume	OWN.JB	EQ	<^o16>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.P1XDF	-- define area -> by P1EXT
;+
;	+-------+-------+
;$CJVPT:|  JMP		|[-26.]	Convert JOB::VIRTUAL to physical rout entry
;	+		+
;	|		|
;	+-------+-------+
;$MPMEM:|  JMP		|[-22.]	Convert MOV virtual to physical
;	+		+
;	|		|
;	+-------+-------+
;$XDEPT:|  JMP		|[-18.]	Deallocation routine entry
;	+		+
;	|		|
;	+-------+-------+
;$CVPPT:|  JMP		|[-14.]	Convert Virtual to Physical routine entry
;	+		+
;	|		|
;	+-------+-------+
;$FGRPT:|  JMP		|[-10.]	Find global region routine
;	+		+
;	|		|
;	+-------+-------+
;$XALPT:|  JMP		|[-06.]	Allocation routine entry
;	+		+
;	|		|
;	+-------+-------+
;$BLMPT:|  BR		|[-02.]	Block move routine entry
;	+-------+-------+
;$P1EXT:|		|[00.]	Par 1 externalization routine entry
;	+-------+-------+
;-
.MACRO	.P1XDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
.IF DF	MMG$T
.IF NE	MMG$T
	.DSECT	-26.,LIST,E	;(P1$EXT in .FIXDF)
	.DS	$CJVPT	2.	;Convert JOB::VIRTUAL to physical rout entry
	.DS	$MPMEM	2.	;Convert MOV virtual to physical
	.DS	$XDEPT	2.	;Deallocation routine entry
	.DS	$CVPPT	2.	;Convert Virtual to Physical routine entry
	.DS	$FGRPT	2.	;Find global region routine
	.DS	$XALPT	2.	;Allocation routine entry
	.DS	$BLMPT		;Block move routine entry
	.DS	$P1EXT		;Par 1 externalization routine entry
.ENDC
.ENDC
.ENDM	.P1XDF
.ENDC ;EQ GP4$DO
MMG$T=1
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.P1XDF
.PRINT ;.P1XDF
	.P1XDF	YES,==:

.Assume	$CJVPT	EQ	-26.
.Assume	$MPMEM	EQ	-22.
.Assume	$XDEPT	EQ	-18.
.Assume	$CVPPT	EQ	-14.
.Assume	$FGRPT	EQ	-10.
.Assume	$XALPT	EQ	-6.
.Assume	$BLMPT	EQ	-2.
.Assume	$P1EXT	EQ	0.
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.PGMDF	-- code for default programs (edit/ftn)
;+
;	.PGMDF
;
;	The following is a list of the codes used to designate programs
;	run by DCL.
;-
.MACRO	.PGMDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;($PROGD in .FIXDF)
	.EQU	$$RESO	001	;Resorc
	.EQU	$$PIP	002	;Pip
	.EQU	$$DIR	003	;Dir
	.EQU	$$DUP	004	;Dup
	.EQU	$$LINK	005	;Link
	.EQU	$$FORT	006	;Fortran (IV)
	.EQU	$$MACR	007	;Macro
	.EQU	$$DUMP	010	;Dump
	.EQU	$$LIBR	011	;Libr
	.EQU	$$SRCC	012	;Srccom
	.EQU	$$FILE	013	;Filex
	.EQU	$$DICO	014	;Dicomp
	.EQU	$$FORM	015	;Format
	.EQU	$$BINC	016	;Bincom
	.EQU	$$ERRO	017	;Errout
	.EQU	$$QUEM	020	;Queman
	.EQU	$$BUP	021	;Bup
	.EQU	$$KED	022	;Ked
	.EQU	$$K52	023	;K52
	.EQU	$$KEX	024	;Kex
	.EQU	$$UCL	025	;Ucl
	.EQU	$$EDIT	026	;Edit
	.EQU	$$TECO	027	;Teco
.ENDM	.PGMDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.PGMDF
.PRINT ;.PGMDF
	.PGMDF	YES,==:
.Page
.Assume	$$RESO	EQ	<^o001>
.Assume	$$PIP	EQ	<^o002>
.Assume	$$DIR	EQ	<^o003>
.Assume	$$DUP	EQ	<^o004>
.Assume	$$LINK	EQ	<^o005>
.Assume	$$FORT	EQ	<^o006>
.Assume	$$MACR	EQ	<^o007>
.Assume	$$DUMP	EQ	<^o010>
.Assume	$$LIBR	EQ	<^o011>
.Assume	$$SRCC	EQ	<^o012>
.Assume	$$FILE	EQ	<^o013>
.Assume	$$DICO	EQ	<^o014>
.Assume	$$FORM	EQ	<^o015>
.Assume	$$BINC	EQ	<^o016>
.Assume	$$ERRO	EQ	<^o017>
.Assume	$$QUEM	EQ	<^o020>
.Assume	$$BUP	EQ	<^o021>
.Assume	$$KED	EQ	<^o022>
.Assume	$$K52	EQ	<^o023>
.Assume	$$KEX	EQ	<^o024>
.Assume	$$UCL	EQ	<^o025>
.Assume	$$EDIT	EQ	<^o026>
.Assume	$$TECO	EQ	<^o027>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.PRODF	-- PRO GET{VEC|CSR|ID} vector
;+
;	+-------+-------+
;GT.VEC:|  BR	$GTVEC	|[0] Get vector routine
;	+-------+-------+
;GT.CSR:|  BR	$GTCSR	|[2] Get CSR routine
;	+-------+-------+
;GT.SLT:| .BR	$GTSLT	|[4] Get Slot routine
;	+-------+-------+
;				if not a PRO -> .RTSDF
;-
.MACRO	.PRODF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;$GETVE in .FIXDF
	.DS	GT.VEC		;routine to get vector addr given ID
	.DS	GT.CSR		;routine to get CSR addr given ID
	.DS	GT.SLT		;routine to get slot number given ID
.ENDM	.PRODF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.PRODF
.PRINT ;.PRODF
	.PRODF	YES,==:

.Assume	GT.VEC	EQ	0
.Assume	GT.CSR	EQ	<^o2>
.Assume	GT.SLT	EQ	<^o4>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.QCMDF	-- completion queue element definition
;+
;	.QCMDF
;
;	+-------+-------+
;QC.LNK:| -> next QEL	|[00]				o(.QCMDF)
;	+-------+-------+
;	|     <res>	|[02]
;	+-------+-------+
;	|     <res>	|[04]
;	+-------+-------+
;	|     <res>	|[06]
;	+-------+-------+
;QC.CSW:|Channel Stat Wd|[10]				v(.CSWDF)
;	+-------+-------+
;QC.OFT:|Offset(Chan Blk|[12]				o(.CHNDF)
;	+-------+-------+
;QC.CMP:| -> Routine	|[14]
;	+-------+-------+
;-
.MACRO	.QCMDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(I.CMPE, I.CMPL in .IMPDF; QC.LNK in .QCMDF;
				;QS.LNK in .QSYDF)
	.DS	QC.LNK		;-> to next queue element
	.DS	,	3.	;<res>
	.DS	QC.CSW		;Channel status word		v(.CSWDF)
	.DS	QC.OFS		;Offset of channel block	o(.CHNDF)
	.DS	QC.CMP		;-> Completion routine
.ENDM	.QCMDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.QCMDF
.PRINT ;.QCMDF
	.QCMDF	YES,==:

.Assume	QC.LNK	EQ	000000
.Assume	QC.CSW	EQ	<^o000010>
.Assume	QC.OFS	EQ	<^o000012>
.Assume	QC.CMP	EQ	<^o000014>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.QELDF	-- io queue element definition		*ALSO IN SYSMAC.SML*
;+
;	.QELDF
;
;	+-------+-------+
;Q.LINK:|-> next element|[000]	Q$LINK [ -4]
;	+-------+-------+
;Q.CSW:	|-> CSW		|[002]	Q$CSW  [ -2]
;	+-------+-------+
;Q.BLKN:| block number	|[004]	Q$BLKN [000]
;	+-------+-------+
;Q.FUNC:	|	|[006]	Q$FUNC [002] BYTE for 8 unit handler
;		+-------+
;		/	/
;		    +---+			for 64 unit handler
;Q.FUNC:	    |	|[006]	Q$FUNC [002] 4 bits function (mask = Q.FMSK)
;		 +--+---+					v(.USSDF)
;Q.2UNI:	 |  |	 [006]	Q$2UNI [002] 3 bits MSBs of unit num (mask = Q.2MSK)
;		++--+
;Q.TYPE:	||	 [006]	Q$TYPE [002] 1 bit 1=spfun (mask = Q.TMSK)
;		++
;		/	/
;	     +--+
;Q.UNIT:     |	|	 [007]	Q$UNIT [003] 3 bits LSBs of unit num (mask = Q.UMSK)
;	 +---+--+
;Q.JNUM: |   |		 [007]	Q$JNUM [003] 4 bits job number (mask = Q.JMSK)
;	++---+
;	||		 <res> (always 0)
;	++------+-------+
;Q.BUFF:|-> buffer	|[010]	Q$BUFF [004] or offset if XM
;	+-------+-------+
;Q.WCNT:|words to transf|[012]	Q$WCNT [006]
;	+-------+-------+
;Q.COMP:|completion or v|[014]	Q$COMP [010]
;	+-------+-------+
;Q.ELGH:		 [016]	if not XM
;	+-------+-------+
;Q.PAR:	|PAR1 DMA offset|[016]	Q$PAR [012]
;	+-------+-------+
;Q.MEM:	|PAR1 MEM offset|[020]	Q$MEM [014]
;	+-------+-------+
;	|		|[022]	<res>
;	+-------+-------+
;Q.ELGH:		 [024]	if XM
;-
.Page
.MCall	.QelDf		;pull from SYSMAC.SML
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.QELDF
.PRINT ;.QELDF
MMG$T=0
	.QELDF	YES,==
.Page
.Assume	Q.LINK	EQ	<^o000000>
.Assume	Q.CSW	EQ	<^o000002>
.Assume	Q.BLKN	EQ	<^o000004>
.Assume	Q.FUNC	EQ	<^o000006>
.Assume	Q.2UNI	EQ	<^o000006>
.Assume	Q.TYPE	EQ	<^o000006>
.Assume	Q.JNUM	EQ	<^o000007>
.Assume	Q.UNIT	EQ	<^o000007>
.Assume	Q.FMSK	EQ	<^o000017>
.Assume	Q.2MSK	EQ	<^o000160>
.Assume	Q.TMSK	EQ	<^o000200>
.Assume	Q.UMSK	EQ	<^o003400>
.Assume	Q.JMSK	EQ	<^o074000>
.Assume	Q.BUFF	EQ	<^o000010>
.Assume	Q.WCNT	EQ	<^o000012>
.Assume	Q.COMP	EQ	<^o000014>
.Assume	Q.ELGH	EQ	<^o000016>
.Assume	Q$LINK	EQ	<^o177774>
.Assume	Q$CSW	EQ	<^o177776>
.Assume	Q$BLKN	EQ	<^o000000>
.Assume	Q$FUNC	EQ	<^o000002>
.Assume	Q$2UNI	EQ	<^o000002>
.Assume	Q$TYPE	EQ	<^o000002>
.Assume	Q$JNUM	EQ	<^o000003>
.Assume	Q$UNIT	EQ	<^o000003>
.Assume	Q$BUFF	EQ	<^o000004>
.Assume	Q$WCNT	EQ	<^o000006>
.Assume	Q$COMP	EQ	<^o000010>
.Page
MMG$T=1
	.QELDF	YES,==
.Assume	Q.LINK	EQ	<^o000000>
.Assume	Q.CSW	EQ	<^o000002>
.Assume	Q.BLKN	EQ	<^o000004>
.Assume	Q.FUNC	EQ	<^o000006>
.Assume	Q.JNUM	EQ	<^o000007>
.Assume	Q.UNIT	EQ	<^o000007>
.Assume	Q.FMSK	EQ	<^o000017>
.Assume	Q.2MSK	EQ	<^o000160>
.Assume	Q.TMSK	EQ	<^o000200>
.Assume	Q.UMSK	EQ	<^o003400>
.Assume	Q.JMSK	EQ	<^o074000>
.Assume	Q.BUFF	EQ	<^o000010>
.Assume	Q.WCNT	EQ	<^o000012>
.Assume	Q.COMP	EQ	<^o000014>
.Assume	Q.PAR	EQ	<^o000016>
.Assume	Q.MEM	EQ	<^o000020>
.Assume	Q.ELGH	EQ	<^o000024>
.Assume	Q$LINK	EQ	<^o177774>
.Assume	Q$CSW	EQ	<^o177776>
.Assume	Q$BLKN	EQ	<^o000000>
.Assume	Q$FUNC	EQ	<^o000002>
.Assume	Q$JNUM	EQ	<^o000003>
.Assume	Q$UNIT	EQ	<^o000003>
.Assume	Q$BUFF	EQ	<^o000004>
.Assume	Q$WCNT	EQ	<^o000006>
.Assume	Q$COMP	EQ	<^o000010>
.Assume	Q$PAR	EQ	<^o000012>
.Assume	Q$MEM	EQ	<^o000014>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.QFKDF	-- fork queue element definition
;+
;	.QFKDF
;
;	+-------+-------+
;F.BLNK:| -> next QEL	|[00]					o(.QFKDF)
;	+-------+-------+
;F.BADR:| -> routine	|[02]
;	+-------+-------+
;F.BR5:	|  R5ea	|[04]
;	+-------+-------+
;F.BR4:	|  R4 save area	|[06]
;	+-------+-------+
;F.BSIZ:		 [10]
;-
.MACRO	.QFKDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(FRKCQE,FRKLQE floating in RMON;
				;F.BLNK in .QFKDF)
	.DS	F.BLNK		;-> next element
	.DS	F.BADR		;-> Fork routine
	.DS	F.BR5		;R5 save area
	.DS	F.BR4		;R4 save area
	.DS	F.BSIZ	0	;Size of fork block
.ENDM	.QFKDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.QFKDF
	.QFKDF	YES,==:

.Assume	F.BLNK	EQ	000000
.Assume	F.BADR	EQ	<^o000002>
.Assume	F.BR5	EQ	<^o000004>
.Assume	F.BR4	EQ	<^o000006>
.Assume	F.BSIZ	EQ	<^o000010>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.QHKDF	-- $QHOOKS structure
;+
;	.QHKDF
;
;	First structure is -> by $QHOOK in .FIXDF is in QMANGR
;
;	+-------+-------+
;QH.CBR:|  BR	  .+6	|[000]	BR to 2nd word following hook pointer QH.CBV
;	+-------+-------+
;QH.CNX:|-> next hook/0	|[002]	-> next CA hook or 0 for end of list
;	+-------+-------+
;QH.CBP:|  BR ...	|[004]	BR to bypass call to handler
;	+-------+-------+
;QH.UBR:|  BR	  .+4	|[006]	BR to word following hook pointer QH.UBV
;	+-------+-------+
;QH.UNX:|-> next hook/0	|[010]	-> next UB hook or 0 for end of list
;	+-------+-------+
;
;	Second structure is -> by first structure, is in CMPLT
;
;	+-------+-------+
;FH.CBR:|  BR	  .+4	|[000]	BR to word following hook pointer FH.CBV
;	+-------+-------+
;FH.CNX:|-> next hook/0	|[002]	-> next CA hook or 0 for end of list
;	+-------+-------+
;FH.UBR:|  BR	  .+6	|[004]	BR to 2nd word following hook pointer FH.UBV
;	+-------+-------+
;FH.UNX:|-> next hook/0	|[006]	-> next UB hook or 0 for end of list
;	+-------+-------+
;
;	Third structure is -> by second structure, is in UNHOLD
;
;	+-------+-------+
;UH.UBR:|  BR	  .+4	|[000]	BR to word following hook pointer UH.UBV
;	+-------+-------+
;UH.UNX:|-> next hook/0	|[002]	-> next UB hook or 0 for end of list
;	+-------+-------+
;
;	Fourth structure is -> by third structure, is in ABTQUE
;
;	+-------+-------+
;AH.UBR:|  BR	  .+4	|[000]	BR to word following hook pointer AH.UBV
;	+-------+-------+
;AH.RQE:| -> REQUE2	|[002]	-> REQUE2
;	+-------+-------+
;-
.MACRO	.QHKDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E
	.DS	QH.CBR		;BR .+6 (for CA)
	.EQU	QH.CBV	<BR+2>	;value
	.DS	QH.CNX		;-> next hook for CA
	.DS	QH.CBP		;Derail call to handler from CA
	.DS	QH.UBR		;BR .+4 (for UB)
	.EQU	QH.UBV	<BR+1>	;value
	.DS	QH.UNX		;-> next hook for UB

	.DSECT	,LIST,E
	.DS	FH.CBR		;first BR .+4 (for CA)
	.EQU	FH.CBV	<BR+1>	;value
	.DS	FH.CNX		;0 (no more hooks for CA)
	.DS	FH.UBR		;second BR .+4 (for UB)
	.EQU	FH.UBV	<BR+2>	;value
	.DS	FH.UNX		;-> next hook for UB

	.DSECT	,LIST,E
	.DS	UH.UBR		;BR .+4 (for UB)
	.EQU	UH.UBV	<BR+1>	;value
	.DS	UH.UNX		;-> NEXT HOOK FOR UB

	.DSECT	,LIST,E
	.DS	AH.UBR		;BR .+4 (FOR UB)
	.EQU	AH.UBV	<BR+1>	;VALUE
	.DS	AH.RQE		;-> RMON's REQUE2 (no more UB hooks)
.ENDM	.QHKDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.QHKDF
.PRINT ;.QHKDF
	.QHKDF	YES,==:

.Assume	QH.CBR	EQ	<^o000000>
.Assume	QH.CBV	EQ	<BR+2>
.Assume	QH.CNX	EQ	<^o000002>
.Assume	QH.CBP	EQ	<^o000004>
.Assume	QH.UBR	EQ	<^o000006>
.Assume	QH.UBV	EQ	<BR+1>
.Assume	QH.UNX	EQ	<^o000010>

.Assume	FH.CBR	EQ	<^o000000>
.Assume	FH.CBV	EQ	<BR+1>
.Assume	FH.CNX	EQ	<^o000002>
.Assume	FH.UBR	EQ	<^o000004>
.Assume	FH.UBV	EQ	<BR+2>
.Assume	FH.UNX	EQ	<^o000006>

.Assume	UH.UBR	EQ	<^o000000>
.Assume	UH.UBV	EQ	<BR+1>
.Assume	UH.UNX	EQ	<^o000002>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.QSYDF	-- synch queue element definition
;+
;	.QSYDF
;
;	+-------+-------+
;QS.LNK:| -> next QEL	|[00]					o(.QSYDF)
;	+-------+-------+
;QS.JOB:|   job number	|[02]
;	+-------+-------+
;	|     <res>	|[04]
;	+-------+-------+
;	|     <res>	|[06]
;	+-------+-------+
;QS.ID:	|   Synch ID	|[10]
;	+-------+-------+
;QS.SYN:|      -1	|[12]
;	+-------+-------+
;QS.CMP:| -> routine	|[14]
;	+-------+-------+
;-
.MACRO	.QSYDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(I.CMPL, I.CMPE in .IMPDF, QC.LNK in .QCMDF;
				;QS.LNK in .QSYDF)
	.DS	QS.LNK		;Link to next synch element
	.DS	QS.JOB		;Job number
	.DS	,	2.	;<res>
	.DS	QS.ID		;Synch ID
	.DS	QS.SYN		;-1 to indicate a SYNCH elememt
	.EQU	QS.SYV	-1	;value for QS.SYN
	.DS	QS.CMP		;-> Synch routine
.ENDM	.QSYDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.QSYDF
.PRINT ;.QSYDF
	.QSYDF	YES,==:

.Assume	QS.LNK	EQ	000000
.Assume	QS.JOB	EQ	<^o000002>
.Assume	QS.ID	EQ	<^o000010>
.Assume	QS.SYN	EQ	<^o000012>
.Assume	QS.SYV	EQ	<^o177777>
.Assume	QS.CMP	EQ	<^o000014>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.QTIDF	-- timer queue element definition
;+
;	.QTIDF
;
;	+-------+-------+
;C.HOT:	|		|[00]High order expiration time		o(.TIMDF)
;	+-------+-------+
;C.LOT:	|		|[02]Low    "	    "	    "
;	+-------+-------+
;C.LINK:|  -> next QEL	|[04]					o(.QTMDF)
;	+-------+-------+
;C.JNUM:|   Job Number	|[06]
;	+-------+-------+
;C.SEQ:	| Request Number|[10]
;	+-------+-------+
;C.SYS:	|		|[12]flag for system requests
;	+-------+-------+
;C.COMP:| -> Routine	|[14]
;	+-------+-------+
;
;	    C.SEQ
;	-------------
;C.USER	000000-176777	;Cancel USER (USER CMKT w/0 code)
;C.HAND	177000-177377	;HANDLER request
;C.MTTY	177400-177477	;MTTY request
;<res>	177500-177677
;C.CJOB	177700		;cancelled with aborting job
;C.TWAIT177700		;TWAIT request
;<res>	177701-177766
;C.DECN	177767-177777	;DECNET
;C.ALL	000000-177777	;Cancel ALL (system request)
;
;	    C.SYS
;	-------------
;C.PERM	-3		;XM .TWAIT
;C.SYSV	-1		;Monitor element
;-
.Page
.MACRO	.QTIDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;(LKQUE floating in RMON; C.LINK in .QTIDF)
	.DS	C.HOT		;High order expiration time
	.DS	C.LOT		;Low   "	"	"
	.DS	C.LINK		;Link to next element
	.DS	C.JNUM		;Job number of owner
	.DS	C.SEQ		;Owner's sequence number
	.EQU	C.USER	<^o176777> ;Cancel USER (USER CMKT w/0 code)
	.EQU	C.HAND	<^o177000> ;-177377 ;HANDLER request
	.EQU	C.MTTY	<^o177400> ;-177477 ;MTTY request
;			177500 ;-177677	;<res>
	.EQU	C.CJOB	<^o177700> ;cancelled with aborting job
	.EQU	C.TWAIT	<^o177700> ;TWAIT request
;			177701 ;-177766	;<res>
	.EQU	C.DECN	<^o177767> ;-177777 ;DECNET
	.EQU	C.ALL	<^o177777> ;Cancel ALL (system request)
	.DS	C.SYS		;If system timer element
	.EQU	C.PERM	-3.	;XM .TWAIT
	.EQU	C.SYSV	-1	;Monitor element
	.DS	C.COMP		;Completion addr
.ENDM	.QTIDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.QTIDF
.PRINT ;.QTIDF
	.QTIDF	YES,==:

.Assume	C.HOT	EQ	000000
.Assume	C.LOT	EQ	<^o000002>
.Assume	C.LINK	EQ	<^o000004>
.Assume	C.JNUM	EQ	<^o000006>
.Assume	C.SEQ	EQ	<^o000010>
.Assume	C.USER	EQ	<^o176777 >;-000000
.Assume	C.HAND	EQ	<^o177000 >;-177377
.Assume	C.MTTY	EQ	<^o177400 >;-177477
.Assume	C.CJOB	EQ	<^o177700>
.Assume	C.TWAIT	EQ	<^o177700>
.Assume	C.DECN	EQ	<^o177767 >;-177777
.Assume	C.ALL	EQ	<^o177777 >;-000000
.Assume	C.SYS	EQ	<^o000012>
.Assume	C.PERM	EQ	<^o-3>
.Assume	C.SYSV	EQ	-1
.Assume	C.COMP	EQ	<^o000014>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.RCBDF	-- region control block
;+
;	.RCBDF
;
;	+-------+-------+
;R.BADD:| Physical Addr	|[00]
;	+-------+-------+
;R.BSIZ:|     Size	|[02]
;	+-------+-------+
;R.BSTA:	|Status	|[04]
;	+-------+-------+
;R.BNWD:|# Windw|	 [05]
;	+-------+
;R.BLGH:		 [06]
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;R.BSTA:|     <res>	|R.C|R.E|R.S|R.S|
;	|		|ACH|XIT|HAR|TOP|
;	+---+---+---+---+---+---+---+---+
;
;	R.EXIT = 1	Eliminate on exit
;	R.SHAR = 1	Shared region
;	R.STOP = 1	Created by SETTOP
;	R.CACH = 1	Bypass cache
;-
.MACRO	.RCBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;???
	.DS	R.BADD		;Starting physical addr (0 => not in use)
	.DS	R.BSIZ		;Size in 32 word blocks
	.DS	R.BSTA	,,B	;Status byte
	.DS	R.BNWD	,,B	;Number of windows mapped to region
	.DS	R.BLGH	0	;Size of region control block
	.EQU	R.GNUM	24.	;Number of region control blocks
	.EQU	R.GWSZ	<<R.BLGH*R.GNUM>/2.> ;Total wd size of region blocks
	.EQU	R.MXRG	<^o177776> ;Maximum region size (32 wd blocks),
				; (no limits)
	.BSECT	,,E
	.BS	R.STOP		;Region created by SETTOP
	.BS	R.SHARE		;Region is shared or is a resident library
	.BS	R.EXIT		;Region is to eliminated on exit/abort
	.BS	R.CACH		;Region is to bypass cache
.ENDM	.RCBDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.RCBDF
.PRINT ;.RCBDF
	.RCBDF	YES,==:

.Assume	R.BADD	EQ	000000
.Assume	R.BSIZ	EQ	<^o000002>
.Assume	R.BSTA	EQ	<^o000004>
.Assume	R.BNWD	EQ	<^o000005>
.Assume	R.BLGH	EQ	<^o000006>
.Assume	R.GNUM	EQ	24.
.Assume	R.GWSZ	EQ	3.*24.
.Assume	R.MXRG	EQ	<^o177776>
.Assume	R.STOP	EQ	001
.Assume	R.SHARE	EQ	<^o002>
.Assume	R.EXIT	EQ	<^o004>
.Assume	R.CACH	EQ	<^o010>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.RDBDF	--  region definition block		*ALSO IN SYSMAC.SML*
;+
;	.RDBDF
;
;	+-------+-------+
;R.GID:	|region id value|[00]
;	+-------+-------+
;R.GSIZ:|size in chunks	|[02]
;	+-------+-------+
;R.GSTS:|  status flags	|[04]
;R.GLLN:+-------+-------+-------+-------+
;R.GNAM:| region name (rad50		|[06]
;	+-------+-------+-------+-------+
;R.GBAS:|   base addr	|[12]
;	+-------+-------+
;R.GLGH:		 [14]
;
;R.GID contains a PAR1 biased pointer to the region's RCB within job's MCA.
;      PAR1 value is contents of that jobs I.MPTR
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;R.GSTS:|RS.|RS.|RS.|RS.|RS.|RS.|RS.|RS.|RS.|RS.|RS.|RS.| <res>	|RS.|RS.|
;	|CRR|UNM|NAL|NEW|GBL|CGR|AGE|EGR|EXI|CAC|BAS|NSM|	|DSP|PVT|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;								<  TSX  >
;
;	RS.CRR	= 1	created region successfully
;	RS.UNM	= 1	one or more windows were eliminated
;	RS.NAL	= 1	region newly allocated
;	RS.NEW	= 1	new global region
;	RS.GBL	= 1	create a region within a global region
;	RS.CGR	= 1	create a new global region if not found
;	RS.AGE	= 1	enable automatic region elimination
;	RS.EGR	= 1	eliminate global region
;	RS.EXI	= 1	eliminate global region on exit or abort
;	RS.CAC	= 1	bypass cache
;	RS.BAS	= 1	base addr supplied
;	RS.NSM	= 1	non-system memory
;	RS.DSP	= 1	Mapped into D-space
;	RS.PVT	= 1	Private local region
;-
.Page
.MCall	.RDBDf		;test copy from SYSMAC
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.RDBDF
.PRINT ;.RDBDF
	.RDBDF	YES,==:

.Assume	R.GID	EQ	<^o000000>
.Assume	R.GSIZ	EQ	<^o000002>
.Assume	R.GSTS	EQ	<^o000004>
.Assume	R.GLLN	EQ	<^o000006>
.Assume	R.GNAM	EQ	<^o000006>
.Assume	R.GBAS	EQ	<^o000012>
.Assume	R.GLGH	EQ	<^o000014>
.Assume	RS.CRR	EQ	<^o100000>
.Assume	RS.UNM	EQ	<^o040000>
.Assume	RS.NAL	EQ	<^o020000>
.Assume	RS.NEW	EQ	<^o010000>
.Assume	RS.GBL	EQ	<^o004000>
.Assume	RS.CGR	EQ	<^o002000>
.Assume	RS.AGE	EQ	<^o001000>
.Assume	RS.EGR	EQ	<^o000400>
.Assume	RS.EXI	EQ	<^o000200>
.Assume	RS.CAC	EQ	<^o000100>
.Assume	RS.BAS	EQ	<^o000040>
.Assume	RS.NSM	EQ	<^o000020>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.RELDF	-- block 0 rel image def
;+
;	.RELDF
;
;	+-------+-------+
;	:		:000
;	| see .SYCDF	|					o(.SYCDF)
;	:		:012
;	+-------+-------+
;RL.BPT:| -> BPT AST	|014	used in XM only
;	+-------+-------+
;	|    BPT PS	|016
;	+-------+-------+
;RL.IOT:| -> IOT AST	|020	used in XM only
;	+-------+-------+
;	|    IOT PS	|022
;	+-------+-------+
;	|     <res>	|024
;	+-------+-------+
;	|     <res>	|026
;	+-------+-------+
;RL.NID:|<>0 no sep I/D	|030
;	+-------+-------+
;RL.CVH:|overlay config	|032					v(.CVHDF)
;	+-------+-------+
;RL.TRP:| -> TRAP AST	|034
;	+-------+-------+
;	|    TRAP PS	|036
;	+-------+-------+
;	:		:040					o(.SYCDF)
;	| see .SYCDF	|
;	:		:060 (overlapped)
;	+-------+-------+
;RL.RSZ:|  Root Size	|052
;	+-------+-------+
;RL.SSZ:|  Stack Size	|054
;	+-------+-------+
;RL.OSZ:| Overlay Size	|056
;	+-------+-------+
;RL.RID	|   RAD50 REL	|060
;	+-------+-------+
;RL.RDB:|first REL block|062
;	+-------+-------+
;RL.OVR:| -> overlay tab|064					o(.OTBDF)
;	+-------+-------+
;RL.SEG:| -> virt seg tb|066					o(.VRTDF)
;	+-------+-------+
.Page
;	+-------+-------+
;	:		:110					o(.MODDF)
;	|  see .MODDF	|
;	:		:
;	+-------+-------+
;
;	+-------+-------+
;RL.BIT:|		|360
;	+  File useage	+
;	|   bit map	|
;	:		:
;	|    8 words	|
;	+-------+-------+
;-
.MACRO	.RELDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Block 0 of a *.REL file
	.DS	,	6.	;see .SYCDF
	.DS	RL.BPT	2.	;BPT vector (XM only)
	.DS	RL.IOT	2.	;IOT vector (XM only)
	.DS	,	2.	;<res>
	.DS	RL.NID		;<>0 flag means do not load in sep I/D
	.DS	RL.CVH	1.	;overlay handler config v(.CVHDF)
	.DS	RL.TRP	2.	;TRAP vector
;				;see .SYCDF
	.DSECT	<^o52>,,E
	.DS	RL.RSZ		;root size
	.DS	RL.SSZ		;stack size
	.DS	RL.OSZ		;overlay size
	.DS	RL.RID		;RAD50 "REL" for .REL format
	.EQU	RL.RIV	<^rREL> ;Value for RL.RID
	.DS	RL.RDB		;first REL block
	.DS	RL.OVR		;-> overlay table
	.DS	RL.SEG		;virt segment table
;				;see .MODDF
	.DSECT	<^o360>,,E
	.DS	RL.BIT	8.	;memory usage bitmap
.ENDM	.RELDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.RELDF
.PRINT ;.RELDF
	.RELDF	YES,==:
.Page
.Assume	RL.BPT	EQ	<^o000014>
.Assume	RL.IOT	EQ	<^o000020>
.Assume	RL.NID	EQ	<^o000030>
.Assume	RL.CVH	EQ	<^o000032>
.Assume	RL.TRP	EQ	<^o000034>
.Assume	RL.RSZ	EQ	<^o000052>
.Assume	RL.SSZ	EQ	<^o000054>
.Assume	RL.OSZ	EQ	<^o000056>
.Assume	RL.RID	EQ	<^o000060>
.Assume	RL.RIV	EQ	<^rREL>
.Assume	RL.RDB	EQ	<^o000062>
.Assume	RL.OVR	EQ	<^o000064>
.Assume	RL.SEG	EQ	<^o000066>
.Assume	RL.BIT	EQ	<^o000360>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.RGTDF	-- Replacement Geometry Table
;+
;	.RGTDF
;
;	+-------+
;RGT.FG:|	|[0] flag byte
;	+-------+
;RGT.PD:|Pad Blk|[1] highest user block + Pad Blk = bad sector file begin
;	+-------+
;RGT.BS:|Bad Siz|[2] Number of sectors in bad sector file
;	+-------+
;RGT.TC:|Trk/Cyl|[3] Number of tracks per cylinder
;	+-------+
;RGT.ST:|Sec/Trk|[4] Number of sectors per track
;	+-------+
;RGT.SB:|   N	|[5] 2**N is the number of sectors per block
;	+-------+
;RGT.SZ:	 [6]
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;RGT.FG:|	    <res>	    |RGT|
;	|			    |.SM|
;	+---+---+---+---+---+---+---+---+
;-
.MACRO	.RGTDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;H.REPL in .HANDF
	.DS	RGT.FG	,,B	;Flag byte
	.BSECT	,LIST,E
	.BS	RGT.SM		;Some (not all) blocks are replacable
	.BS	,	7.	;<res>
	.DS	RGT.PD	,,B	;Highest user block + RGT.PD = begin bad sector file
	.DS	RGT.BS	,,B	;Bad sector file size IN SECTORS
	.DS	RGT.TC	,,B	;Tracks per cylinder
	.DS	RGT.ST	,,B	;Sectors per track
	.DS	RGT.SB	,,B	;2**N = Sectors per block
	.DS	RGT.SZ	0	;table size
.ENDM	.RGTDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.RGTDF
.PRINT ;.RGTDF
	.RGTDF	YES,==:

.Assume	RGT.FG	EQ	0
.Assume	RGT.SM	EQ	001
.Assume	RGT.PD	EQ	1
.Assume	RGT.BS	EQ	<^o2>
.Assume	RGT.TC	EQ	<^o3>
.Assume	RGT.ST	EQ	<^o4>
.Assume	RGT.SB	EQ	<^o5>
.Assume	RGT.SZ	EQ	<^o6>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.RTSDF	-- Return instruction et. al.
;+
;	.RTSPC
;
;	+-------+-------+
;RTS.S3:|      NOP	|[-10]
;	+-------+-------+
;RTS.S2:|      NOP	|[-06]
;	+-------+-------+
;RTS.SC:| CMP  (PC)+,PC	|[-04] (SEC / BR .+4)
;	+-------+-------+
;RTS.CC:|      CLC	|[-02]
;	+-------+-------+
;RTS.RT:|    RETURN	|[ 00]
;	+-------+-------+
;-
.MACRO	.RTSDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o-10>,LIST,E	;($GETVE, ..., $RTSPC in .FIXDF)
	.DS	RTS.S3		;NOP
	.DS	RTS.S2		;NOP
	.DS	RTS.SC		;CMP (PC)+,PC  (SEC /BR .+4)
	.DS	RTS.CC		;CLC
	.DS	RTS.RT		;RETURN
.ENDM	.RTSDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.RTSDF
.PRINT ;.RTSDF
	.RTSDF	YES,==:

.Assume	RTS.S3	EQ	<^o-10>
.Assume	RTS.S2	EQ	<^o-06>
.Assume	RTS.SC	EQ	<^o-04>
.Assume	RTS.CC	EQ	<^o-02>
.Assume	RTS.RT	EQ	<^o-00>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SAVDF	-- block 0 save image def
;+
;	.SAVDF
;
;	+-------+-------+
;	:		:000
;	| see .SYCDF	|					o(.SYCDF)
;	|		|			+-------+-------+
;	:		:012		 SL.DAT:|    SLB date	|ov(.SLBDF)
;	+-------+-------+			+-------+-------+
;SV.BPT:| -> BPT AST	|014	XM only	 SL.TIM:|		|
;	+-------+-------+			+    SLB time	+
;	|    BPT PS	|016			|		|
;	+-------+-------+			+-------+-------+
;SV.IOT:| -> IOT AST	|020	XM only	 SL.NAM:|		|
;	+-------+-------+			+    SLB name	+
;	|    IOT PS	|022			|		|
;	+-------+-------+			+-------+-------+
;	|     <res>	|024		 SL.BLK:|		|
;	+-------+-------+			+-------+-------+
;	|     <res>	|026
;	+-------+-------+
;SV.NID:|<>0 no sep I/D	|030
;	+-------+-------+
;SV.CVH:|overlay config	|032					v(.CVHDF)
;	+-------+-------+
;SV.TRP:| -> TRAP AST	|034
;	+-------+-------+
;	|    TRAP PS	|036
;	+-------+-------+
;SV.BLK:|blk#*2+1 Ispace|040
;	+-------+-------+
;	/		/
;	:		:040 (overlapped)
;	| see .SYCDF	|					o(.SYCDF)
;	:		:060 (overlapped)
;	/		/
;	+-------+-------+
;SV.KWD:| value from /K	|056
;	+-------+-------+
;SV.SID:|		|060	set if separated I-D space job	SV.SIV = ^rIDS
;	+-------+-------+
;	|     <res>	|062
;	+-------+-------+
;SV.OVR:| -> overlay tab|064					o(.OTBDF)
;	+-------+-------+
;SV.SEG:| -> virt seg tb|066					o(.VRTDF)
;	+-------+-------+
.Page
;	+-------+-------+
;	:		:110					o(.MODDF)
;	|  see .MODDF	|
;	:		:
;	+-------+-------+
;
;	+-------+-------+
;SV.BIT:|		|360
;	+  File useage	+
;	|   bit map	|
;	:		:
;	|    8 words	|
;	+-------+-------+
;-
.MACRO	.SAVDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Block 0 of a *.SAV file
	.DS	,	6.	;see .SYCDF
	.DS	SV.BPT	2.	;BPT vector (XM only)
	.DS	SV.IOT	2.	;IOT vector (XM only)
	.DS	,	2.	;<res>
	.DS	SV.NID		;<>0 flag means do not load in sep I/D
	.DS	SV.CVH		;overlay handler config v(.CVHDF)
	.DS	SV.TRP	2.	;TRAP vector
	.DS	SV.BLK		;if odd, Ispace CCB block number * 2 + 1
;				;see .SYCDF
	.DSECT	<^o56>,,E
	.DS	SV.KWD		;value from the /K switch
	.DS	SV.SID		;set to ^rIDS if separated I-D space job
	.EQU	SV.SIV	<^rIDS>	;value used as indicator (see also .RELDF)
	.DS	,	1.	;<res>
	.DS	SV.OVR		;-> overlay table
	.DS	SV.SEG		;virtual segment table
;				;see .MODDF
	.DSECT	<^o360>,,E
	.DS	SV.BIT	8.	;memory usage bitmap
.ENDM	.SAVDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SAVDF
.PRINT ;.SAVDF
	.SAVDF	YES,==:
.Page
.Assume	SV.BPT	EQ	<^o000014>
.Assume	SV.IOT	EQ	<^o000020>
.Assume	SV.NID	EQ	<^o000030>
.Assume	SV.CVH	EQ	<^o000032>
.Assume	SV.TRP	EQ	<^o000034>
.Assume	SV.KWD	EQ	<^o000056>
.Assume	SV.OVR	EQ	<^o000064>
.Assume	SV.SEG	EQ	<^o000066>
.Assume	SV.BIT	EQ	<^o000360>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SF%DF	-- SPFUN function byte definition
;+
;	.SF%DF
;
;	SPFUN function codes (by device) and any subcodes
;
;	SPFUN numbers are subset into several macros:
;
;	.SFDDF	-- Disk SPFUNs
;	.SFKDF	-- KXJ11CA SPFUNs (....)
;	.SFMDF	-- Magtape SPFUNs
;	.SFNDF	-- Ethernet SPFUNs
;	.SFODF	-- Other SPFUNs (CT, PI ...)
;	.SFXDF	-- VTCOM SPFUNs (X(C,L,S))
;
;	Table layouts for SF.TAB:
;
;	ZDUDF	DU
;	ZLDDF	LD
;	ZMUDF	MU
;	ZPIDF	PI
;	ZSLDF	SL
;	ZUBDF	UB
;	ZVSDF	VS
;
;-
.REM	%
		GENERIC CODES (for future assignment)

360	BYP	Bypass operations (direct to hardware)
361	???	2nd form bypass to same handler
362
363	MOU	[Dis]Mount operation
364	XAD	Address translation
365	CTL	Control operations
366	W32	2nd form of special write
367	R32	2nd form of special read
370	DVS	Device status
371	OBY	Old bypass (3rd form bypass?)
372	TAB	Internal table operations
373	SIZ	Size return
374	BBR	Bad block operations
375	WDD	Write deleted data
376	AWR	1st form of special write
377	ARD	2st form of special read

	%
.rem	%
;Magtapes
	.EQU	SF.MTB	<^o352>	;Magtape Data Table		 MU   (.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
;	.EQU		<^o353>	;<res>
	.EQU	SF.USR	<^o354>	;USR functions		MM MS MT MU   (.SFUDF)
;	.EQU		<^o355>	;<res>
;	.EQU		<^o356>	;<res>
;	.EQU		<^o357>	;<res>
	.EQU	SF.BYP	<^o360>	;BYPASS				 MU   (.SFBDF)
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
;	.EQU		<^o361>	;<res>
;	.EQU		<^o362>	;<res>
;	.EQU		<^o363>	;<res>
;	.EQU		<^o364>	;<res>
;	.EQU		<^o365>	;<res>
;	.EQU		<^o366>	;<res>
	.EQU	SF.MST	<^o367>	;Magtape STREAM		   MS	MU*(.SFMDF)
;				 *accepted and ignored
	.EQU	SF.DST	0	;BUFF -> this value to disable streaming
	.EQU	SF.EST	1	;BUFF -> this value to enable streaming
	.EQU	SF.MRD	<^o370>	;Magtape READ		MM MS MT MU
	.EQU	SF.MWR	<^o371>	;Magtape WRITE		MM MS MT MU
	.EQU	SF.MOR	<^o372>	;Magtape Offline REW	MM MS MT MU
	.EQU	SF.MRE	<^o373>	;Magtape REWIND		MM MS MT MU
	.EQU	SF.MWE	<^o374>	;Magtape WRITE gap	MM MS MT MU
	.EQU	SF.MBS	<^o375>	;Magtape BACKSPACE	MM MS MT MU
	.EQU	SF.MFS	<^o376>	;Magtape FORWD SPACE	MM MS MT MU
	.EQU	SF.MTM	<^o377>	;Magtape WRITE TM	MM MS MT MU

;Cassette
	.EQU	SF.CFG	<^o372>	;Cassette WRITE FILE GAP	    CT
	.EQU	SF.CRE	<^o373>	;Cassette REWIND		    CT
	.EQU	SF.CFB	<^o374>	;Cassette FORWARD BLOCK		    CT
	.EQU	SF.CFF	<^o375>	;Cassette FORWARD FILE		    CT
	.EQU	SF.CLB	<^o376>	;Cassette FORWARD to LAST BLOCK	    CT
	.EQU	SF.CLF	<^o377>	;Cassette FORWARD to LAST FILE	    CT

;Disk
	.EQU	SF.BYP	<^o360>	;BYPASS				 DU   (.SFBDF)
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
;	.EQU		<^o361>	;<res>
;	.EQU		<^o362>	;<res>
;	.EQU		<^o363>	;<res>
;	.EQU		<^o364>	;<res>
	.EQU	SF.CTL	<^o365>	;Disk control functions <fut>	 DU   (.SFCDF)
	.EQU	SF.W32	<^o366>	;Write w/32 bit block number	 DU
	.EQU	SF.R32	<^o367>	;Read w/32 bit block number	 DU
	.EQU	SF.DVS	<^o370>	;Device status (86xx)	   DL
	.EQU	SF.OBY	<^o371>	;Old BYPASS			 DU
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
	.EQU	SF.TAB	<^o372>	;Disk Data Table	LD	 DU   (.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
	.EQU	SF.SIZ	<^o373>	;Disk unit size		LD DL DM DU DW	  DY
	.EQU	SF.S16	0	;BLKN for partition size	 DU
	.EQU	SF.S32	1	;BLKN for device size		 DU
	.EQU	SF.BBR	<^o374>	;Disk read BBR table	   DL DM
	.EQU	SF.WDD	<^o375>	;Disk write deleted data	       DX DY DZ
	.EQU	SF.AWR	<^o376>	;Disk Absolute write	   DL DM DU DW DX DY DZ
	.EQU	SF.ARD	<^o377>	;Disk Absolute read	   DL DM DU DW DX DY DZ

;Ethernet
	.EQU	SF.NAL	<^o200>	;[De]Allocate		NC NQ NU      (.NALDF)
;	.EQU	SF.NPM	<^o201>	;En/Disable Promiscious	NC NQ NU      (.NPMDF)
	.EQU	SF.NPR	<^o202>	;En/Disable Protocol	NC NQ NU      (.NPRDF)
	.EQU	SF.NMU	<^o203>	;En/Disable Multicast	NC NQ NU      (.NMUDF)
	.EQU	SF.NWR	<^o204>	;Transmit Data		NC NQ NU      (.NRWDF)
	.EQU	SF.NRD	<^o205>	;Receive Data		NC NQ NU      (.NRWDF)

;PI
	.EQU	SF.PRD	<^o370>	;Status from GIDIS	PI
	.EQU	SF.PWR	<^o371>	;Command to GIDIS	PI

;XC XL XS
	.EQU	SF.CLR	<^o201> ;Clr "xoffed", send XON	XC XL XS
	.EQU	SF.BRK	<^o202> ;Begin/end break	XC XL XS
	.EQU	SF.SRD	<^o203>	;Byte read, cond read	XC XL XS
	.EQU	SF.STS	<^o204> ;Device status		XC XL XS
	.EQU	SF.OFF	<^o205>	;Turn off interrupts	XC XL XS
	.EQU	SF.DTR	<^o206>	;Set/reset Data Term RdyXC XL XS
	.EQU	SF.ABT	<^o207>	;Disable Xmit & Rvc	      XS
	.EQU	SF.DVS	<^o370>	;Device status		      XS

;Pseudo-handlers
	.EQU	SF.CTL	<^o365>	;Control functions	CA    UB      (.SFCDF)
	.EQU	SF.TAB	<^o372>	;Data table access	CA SL UB      (.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
	.EQU	SF.BBR	<^o374>	;Bad block operations	CA

;DAEMON handlers (see also XC XL XS)
	.EQU	SF.TPR	<^o360>	;Send TPR request	KJ
	.EQU	SF.CHA	<^o360> ;Perform "bypass" DMA		       QD
	.EQU	SF.DMA	<^o361> ;Perform DMA operation		       QD
	.EQU	SF.BOT	<^o361>	;Boot IOP		      KS
	.EQU	SF.RWB	<^o362> ;Read/Write Bytes			     YK
	.EQU	SF.BYE	<^o363>	;Halt IOP		      KS
	.EQU	SF.MOU	<^o363>	;[Dis]Mount		      KP KS KT
;			<^o365>
;			<^o366>
;			<^o367>
	.EQU	SF.DVS	<^o370>	;Device status		KJ	       QD XS
	.EQU	SF.ID	<^o371> ;Who are you (host type)      KS
;			<^o372>
	.EQU	SF.SIZ	<^o373>	;Device size		      KS
	.EQU	SF.PAT	<^o374>	;Set pattern matching			     YK
	.EQU	SF.CPM	<^o375>	;Cancel pending match			     YK
	.EQU	SF.WRI	<^o376>	;Write,blk is unit	KJ
	.EQU	SF.RED	<^o377>	;Read, blk is unit	KJ

	%
;Magtapes
.Assume	SF.MTB	EQ	<^o352>
.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.Assume	SF.USR	EQ	<^o354>
.Assume	SF.BYP	EQ	<^o360>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.Assume	SF.MST	EQ	<^o367>
.Assume	SF.DST	EQ	0
.Assume	SF.EST	EQ	1
.Assume	SF.MRD	EQ	<^o370>
.Assume	SF.MWR	EQ	<^o371>
.Assume	SF.MOR	EQ	<^o372>
.Assume	SF.MRE	EQ	<^o373>
.Assume	SF.MWE	EQ	<^o374>
.Assume	SF.MBS	EQ	<^o375>
.Assume	SF.MFS	EQ	<^o376>
.Assume	SF.MTM	EQ	<^o377>

;Cassette
.Assume	SF.CFG	EQ	<^o372>
.Assume	SF.CRE	EQ	<^o373>
.Assume	SF.CFB	EQ	<^o374>
.Assume	SF.CFF	EQ	<^o375>
.Assume	SF.CLB	EQ	<^o376>
.Assume	SF.CLF	EQ	<^o377>
.Page
;Disk
.Assume	SF.BYP	EQ	<^o360>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.Assume	SF.CTL	EQ	<^o365>
.Assume	SF.W32	EQ	<^o366>
.Assume	SF.R32	EQ	<^o367>
.Assume	SF.DVS	EQ	<^o370>
.Assume	SF.OBY	EQ	<^o371>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.Assume	SF.TAB	EQ	<^o372>
.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.Assume	SF.SIZ	EQ	<^o373>
.Assume	SF.S16	EQ	0
.Assume	SF.S32	EQ	1
.Assume	SF.BBR	EQ	<^o374>
.Assume	SF.WDD	EQ	<^o375>
.Assume	SF.AWR	EQ	<^o376>
.Assume	SF.ARD	EQ	<^o377>

;Ethernet
.Assume	SF.NAL	EQ	<^o200>
;.Assume SF.NPM	EQ	<^o201>
.Assume	SF.NPR	EQ	<^o202>
.Assume	SF.NMU	EQ	<^o203>
.Assume	SF.NWR	EQ	<^o204>
.Assume	SF.NRD	EQ	<^o205>

;PI
.Assume	SF.PRD	EQ	<^o370>
.Assume	SF.PWR	EQ	<^o371>

;XC XL XS
.Assume	SF.CLR	EQ	<^o201>
.Assume SF.BRK	EQ	<^o202>
.Assume	SF.SRD	EQ	<^o203>
.Assume	SF.STS	EQ	<^o204>
.Assume	SF.OFF	EQ	<^o205>
.Assume	SF.DTR	EQ	<^o206>
.Assume	SF.ABT	EQ	<^o207>
.Assume	SF.DVS	EQ	<^o370>

;PSEUDO
.Assume	SF.CTL	EQ	<^o365>
.Assume	SF.TAB	EQ	<^o372>
.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.Assume	SF.BBR	EQ	<^o374>

;DAEMON
.Assume	SF.TPR	EQ	<^o360>
.Assume	SF.CHA	EQ	<^o360>
.Assume	SF.DMA	EQ	<^o361>
.Assume	SF.BOT	EQ	<^o361>
.Assume	SF.RWB	EQ	<^o362>
.Assume	SF.BYE	EQ	<^o363>
.Assume	SF.MOU	EQ	<^o363>
.Assume	SF.DVS	EQ	<^o370>
.Assume	SF.ID	EQ	<^o371>
.Assume	SF.SIZ	EQ	<^o373>
.Assume	SF.PAT	EQ	<^o374>
.Assume	SF.CPM	EQ	<^o375>
.Assume	SF.WRI	EQ	<^o376>
.Assume	SF.RED	EQ	<^o377>
.ENDC ;EQ GP4$DO
.IF EQ GP4$DO
.SbTtl	.SFBDF	-- argument format/values for SF.BYP and SF.OBP(obsolete)
;+
;	.SFBDF
;
;	Q.BUFF	-> the following structure:
;
;	+-------+-------+
;SFB.RL:|		|[00] response packet length
;	+-------+-------+
;SFB.CI:|		|[02] controller virtual circuit ID
;	+-------+-------+
;SFB.RB:|		|[04] {T}MSCP response buffer	ov(.???DF)
;	+		+
;	:		:
;	|		|
;	+-------+-------+
;SFB.PL:|  48. = SFB$LV	|[64] command packet length (in bytes)
;	+-------+-------+
;SFB.HI:|		|[66] host virtual circuit ID
;	+-------+-------+
;SFB.CB:|		|[70] {T}MSCP command buffer	ov(.???DF)
;	+		+
;	:		:
;	|		|
;	+-------+-------+
;SFB.SZ:		 [150] SF.USR request block size
;
;
;	Q.BLKN	= SF.NRT = 0	No retry on error
;		= SF.RTY = 1	Retry errors
;-
.Page
.MACRO	.SFBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;{T}MSCP SF.BYP/SF.OBP SPFUN request block
	.DS	SFB.RL		;Response packet length
	.DS	SFB.CI		;Controller virtual circuit ID
	.DS	SFB.RB	24.	;{T}MSCP response buffer	ov(.???DF)
	.DS	SFB.PL		;Command packet length (in bytes)
	.EQU	SFB$LV	48.	;Value for command packet length (in bytes)
	.DS	SFB.HI		;Host virtual circuit ID
	.DS	SFB.CB	24.	;{T}MSCP command buffer		ov(.???DF)
	.DS	SFB.SZ	0	;SF.BYP/SF.OBP request block size
	.EQU	SF.NRT	0	;Value of Q.BLKN for no error retry
	.EQU	SF.RTY	1	;Value of Q.BLKN for error retry
.ENDM	.SFBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFBDF
.PRINT ;.SFBDF
	.SFBDF	YES,==:

.Assume	SFB.RL	EQ	0
.Assume	SFB.CI	EQ	<^o2>
.Assume	SFB.RB	EQ	<^o4>
.Assume	SFB.PL	EQ	<^o64>
.Assume	SFB$LV	EQ	48.
.Assume	SFB.HI	EQ	<^o66>
.Assume	SFB.CB	EQ	<^o70>
.Assume	SFB.SZ	EQ	<^o150>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFCDF	-- argument values associated with SF.CTL
;+
;	.SFCDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;BLK =	|		      <res>		|SFC|SFC|SFC|SFC|SFC|SFC|
;	|					|.WL|.SU|.EL|.BB|.EC|.SE|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	SFC.SE = 1	if enabled, serialize requests (FIFO within a
;			job/channel stream. default = 0
;	SFC.EC = 1	if enabled, do error correction (retries or more
;			depending on the device. default = 1
;	SFC.BB = 1	if enabled, do dynamic BBR (if possible).
;			default 1 for DU, 0 for others.
;			CA given 0 means begin delayed BBR
;	SFC.EL = 1	Enable Error logging
;			Default is 1 if ERL$G = 1
;	SFC.LS = 1	Log success
;			Default is set by $SET xx [NO]SUCCES
;	SFC.WL = 1	software (no)write lock
;
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;WCNT =	|			<res>			    |SFC|SFC|SFC|
;	|						    |.RD|.SU|.ON|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	SFC.ON = 0	means clear options set in BLK argumment
;
;	SFC.ON = 1	means set options set in BLK argument
;
;	SFC.SU = 0	means return old options (prior to set/clear)
;
;	SFC.SU = 1	means return supported options
;
;	SFC.RD = 1	means return a value in word -> by BUF
;
;	SFC.RD = 0	means do not return any values
;-
.Page
.MACRO	.SFCDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;values for BLK arg of SF.CTL SPFUN
	.BS	SFC.SE		;serialize I/O requests
	.BS	SFC.EC		;do error correction
	.BS	SFC.BB		;do bad block replacement
	.BS	SFC.EL		;do error logging
	.BS	SFC.LS		;log success
	.BS	SFC.WL		;write lock
	.BSECT	,LIST,E		;values for WCNT arg of SF.CTL SPFUN
	.BS	SFC.ON		;set options in set in BLK on
	.BS	SFC.SU		;return supported options mask (if set)
				;return old option settings (if clear)
	.BS	SFC.RD		;return a value in buffer
.ENDM	.SFCDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFCDF
.PRINT ;.SFCDF
	.SFCDF	YES,==:

.Assume	SFC.SE	EQ	<^o000001>
.Assume	SFC.EC	EQ	<^o000002>
.Assume	SFC.BB	EQ	<^o000004>
.Assume	SFC.EL	EQ	<^o000010>
.Assume	SFC.LS	EQ	<^o000020>
.Assume	SFC.WL	EQ	<^o000040>
.Assume	SFC.ON	EQ	<^o000001>
.Assume	SFC.SU	EQ	<^o000002>
.Assume	SFC.RD	EQ	<^o000004>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFDDF	-- Disk SPFUN function byte definition
;+
;	.SFDDF
;
;	Disk SPFUN function codes and any subcodes
;
;	Table layouts for SF.TAB:
;
;	ZDUDF	DU
;	ZLDDF	LD
;
;-
.MACRO	.SFDDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	SF.BYP	<^o360>	;BYPASS				(.SFBDF)
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
;	.EQU		<^o361>	;<res>
;	.EQU		<^o362>	;<res>
;	.EQU		<^o363>	;<res>
;	.EQU		<^o364>	;<res>
	.EQU	SF.CTL	<^o365>	;Disk control functions <fut>	(.SFCDF)
	.EQU	SF.W32	<^o366>	;Write w/32 bit block number
	.EQU	SF.R32	<^o367>	;Read w/32 bit block number
	.EQU	SF.DVS	<^o370>	;Device status (86xx)
	.EQU	SF.OBY	<^o371>	;Old BYPASS
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
	.EQU	SF.TAB	<^o372>	;Disk Data Table
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
	.EQU	SF.SIZ	<^o373>	;Disk unit size
	.EQU	SF.S16	0	;BLKN for partition size
	.EQU	SF.S32	1	;BLKN for device size
	.EQU	SF.BBR	<^o374>	;Disk read BBR table
	.EQU	SF.WDD	<^o375>	;Disk write deleted data
	.EQU	SF.AWR	<^o376>	;Disk Absolute write
	.EQU	SF.ARD	<^o377>	;Disk Absolute read
.ENDM	.SFDDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFDDF
.PRINT ;.SFDDF
	.SFDDF	YES,==:
.Page
.REM	%
;Disk handlers (DU/DM)
	.EQU	SF.BYP	<^o360>	;BYPASS				 DU   (.SFBDF)
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
;	.EQU		<^o361>	;<res>
;	.EQU		<^o362>	;<res>
;	.EQU		<^o363>	;<res>
;	.EQU		<^o364>	;<res>
	.EQU	SF.CTL	<^o365>	;Disk control functions <fut>	 DU   (.SFCDF)
	.EQU	SF.W32	<^o366>	;Write w/32 bit block number
	.EQU	SF.R32	<^o367>	;Read w/32 bit block number
	.EQU	SF.DVS	<^o370>	;Device status (86xx)	   DL
	.EQU	SF.OBY	<^o371>	;Old BYPASS			 DU
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
	.EQU	SF.TAB	<^o372>	;Disk Data Table	LD	 DU   (.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
	.EQU	SF.SIZ	<^o373>	;Disk unit size		LD DL DM DU DW	  DY
	.EQU	SF.S16	0	;BLKN for partition size		 DU
	.EQU	SF.S32	1	;BLKN for device size		 DU
	.EQU	SF.BBR	<^o374>	;Disk read BBR table	   DL DM
	.EQU	SF.WDD	<^o375>	;Disk write deleted data	       DX DY DZ
	.EQU	SF.AWR	<^o376>	;Disk Absolute write	   DL DM DU DW DX DY DZ
	.EQU	SF.ARD	<^o377>	;Disk Absolute read	   DL DM DU DW DX DY DZ
	%
;Disk handlers (DU/DM)
.Assume	SF.BYP	EQ	<^o360>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.Assume	SF.CTL	EQ	<^o365>
.Assume	SF.W32	EQ	<^o366>
.Assume	SF.R32	EQ	<^o367>
.Assume	SF.DVS	EQ	<^o370>
.Assume	SF.OBY	EQ	<^o371>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.Assume	SF.TAB	EQ	<^o372>
.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.Assume	SF.SIZ	EQ	<^o373>
.Assume	SF.S16	EQ	0
.Assume	SF.S32	EQ	1
.Assume	SF.BBR	EQ	<^o374>
.Assume	SF.WDD	EQ	<^o375>
.Assume	SF.AWR	EQ	<^o376>
.Assume	SF.ARD	EQ	<^o377>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFKDF	-- KXJ11-CA SPFUN function byte definition
;+
;	.SFKDF
;
;	KXJ11-CA SPFUN function codes and any subcodes
;
;-
.MACRO	.SFKDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	SF.TPR	<^o360>	;Send TPR request
	.EQU	SF.CHA	<^o360> ;Perform "bypass" DMA
	.EQU	SF.DMA	<^o361> ;Perform DMA operation
	.EQU	SF.BOT	<^o361>	;Boot IOP
	.EQU	SF.RWB	<^o362> ;Read/Write Bytes
	.EQU	SF.BYE	<^o363>	;Halt IOP
	.EQU	SF.MOU	<^o363>	;[Dis]Mount
;	.EQU		<^o364>	;<res>
;	.EQU		<^o365>	;<res>
;	.EQU		<^o366>	;<res>
;	.EQU		<^o367>	;<res>
	.EQU	SF.DVS	<^o370>	;Device status
	.EQU	SF.ID	<^o371> ;Who are you (host type)
;	.EQU		<^o372>	;<res>
	.EQU	SF.SIZ	<^o373>	;Device size
	.EQU	SF.PAT	<^o374>	;Set pattern matching
	.EQU	SF.CPM	<^o375>	;Cancel pending match
	.EQU	SF.WRI	<^o376>	;Write,blk is unit
	.EQU	SF.RED	<^o377>	;Read, blk is unit
.ENDM	.SFKDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFKDF
.PRINT ;.SFKDF
	.SFKDF	YES,==:
.Page
.REM	%
;DAEMON handlers (see also XC XL XS)
	.EQU	SF.TPR	<^o360>	;Send TPR request	KJ
	.EQU	SF.CHA	<^o360> ;Perform "bypass" DMA		       QD
	.EQU	SF.DMA	<^o361> ;Perform DMA operation		       QD
	.EQU	SF.BOT	<^o361>	;Boot IOP		      KS
	.EQU	SF.RWB	<^o362> ;Read/Write Bytes			     YK
	.EQU	SF.BYE	<^o363>	;Halt IOP		      KS
	.EQU	SF.MOU	<^o363>	;[Dis]Mount		      KP KS KT
;	.EQU		<^o364>	;<res>
;	.EQU		<^o365>	;<res>
;	.EQU		<^o366>	;<res>
;	.EQU		<^o367>	;<res>
	.EQU	SF.DVS	<^o370>	;Device status		KJ	       QD XS
	.EQU	SF.ID	<^o371> ;Who are you (host type)      KS
;	.EQU		<^o372>	;<res>
	.EQU	SF.SIZ	<^o373>	;Device size		      KS
	.EQU	SF.PAT	<^o374>	;Set pattern matching			     YK
	.EQU	SF.CPM	<^o375>	;Cancel pending match			     YK
	.EQU	SF.WRI	<^o376>	;Write,blk is unit	KJ
	.EQU	SF.RED	<^o377>	;Read, blk is unit	KJ
	%
;DAEMON handlers (see also XC XL XS)
.Assume	SF.TPR	EQ	<^o360>
.Assume	SF.CHA	EQ	<^o360>
.Assume	SF.DMA	EQ	<^o361>
.Assume	SF.BOT	EQ	<^o361>
.Assume	SF.RWB	EQ	<^o362>
.Assume	SF.BYE	EQ	<^o363>
.Assume	SF.MOU	EQ	<^o363>
.Assume	SF.DVS	EQ	<^o370>
.Assume	SF.ID	EQ	<^o371>
.Assume	SF.SIZ	EQ	<^o373>
.Assume	SF.PAT	EQ	<^o374>
.Assume	SF.CPM	EQ	<^o375>
.Assume	SF.WRI	EQ	<^o376>
.Assume	SF.RED	EQ	<^o377>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFMDF	-- Magtape SPFUN function byte definition
;+
;	.SFMDF
;
;	Magtape SPFUN function codes and any subcodes
;
;	Table layout for SF.MTB:
;
;	ZMUDF	MU
;-
.MACRO	.SFMDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	SF.MTB	<^o352>	;Data Table
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
;	.EQU		<^o353>	;<res>
	.EQU	SF.USR	<^o354>	;USR functions
;	.EQU		<^o355>	;<res>
;	.EQU		<^o356>	;<res>
;	.EQU		<^o357>	;<res>
	.EQU	SF.BYP	<^o360>	;BYPASS
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
;	.EQU		<^o361>	;<res>
;	.EQU		<^o362>	;<res>
;	.EQU		<^o363>	;<res>
;	.EQU		<^o364>	;<res>
;	.EQU		<^o365>	;<res>
;	.EQU		<^o366>	;<res>
	.EQU	SF.MST	<^o367>	;STREAM
	.EQU	SF.DST	0	;BUFF -> this value to disable streaming
	.EQU	SF.EST	1	;BUFF -> this value to enable streaming
	.EQU	SF.MRD	<^o370>	;READ
	.EQU	SF.MWR	<^o371>	;WRITE
	.EQU	SF.MOR	<^o372>	;Offline REW
	.EQU	SF.MRE	<^o373>	;REWIND
	.EQU	SF.MWE	<^o374>	;WRITE gap
	.EQU	SF.MBS	<^o375>	;BACKSPACE
	.EQU	SF.MFS	<^o376>	;FORWD SPACE
	.EQU	SF.MTM	<^o377>	;WRITE TM
.ENDM	.SFMDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFMDF
.PRINT ;.SFMDF
	.SFMDF	YES,==:
.Page
.rem	%
;Magtapes
	.EQU	SF.MTB	<^o352>	;Magtape Data Table		 MU	(.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
;	.EQU		<^o353>	;<res>
	.EQU	SF.USR	<^o354>	;USR functions		MM MS MT MU	(.SFUDF)
;	.EQU		<^o355>	;<res>
;	.EQU		<^o356>	;<res>
;	.EQU		<^o357>	;<res>
	.EQU	SF.BYP	<^o360>	;BYPASS				 MU	(.SFBDF)
	.EQU	SF.NRT	0	;BLKN for no error retry
	.EQU	SF.RTY	1	;BLKN for error retry
;	.EQU		<^o361>	;<res>
;	.EQU		<^o362>	;<res>
;	.EQU		<^o363>	;<res>
;	.EQU		<^o364>	;<res>
;	.EQU		<^o365>	;<res>
;	.EQU		<^o366>	;<res>
	.EQU	SF.MST	<^o367>	;Magtape STREAM		   MS	MU*(.SFMDF)
;				*accepted and ignored
	.EQU	SF.DST	0	;BUFF -> this value to disable streaming
	.EQU	SF.EST	1	;BUFF -> this value to enable streaming
	.EQU	SF.MRD	<^o370>	;Magtape READ		MM MS MT MU
	.EQU	SF.MWR	<^o371>	;Magtape WRITE		MM MS MT MU
	.EQU	SF.MOR	<^o372>	;Magtape Offline REW	MM MS MT MU
	.EQU	SF.MRE	<^o373>	;Magtape REWIND		MM MS MT MU
	.EQU	SF.MWE	<^o374>	;Magtape WRITE gap	MM MS MT MU
	.EQU	SF.MBS	<^o375>	;Magtape BACKSPACE	MM MS MT MU
	.EQU	SF.MFS	<^o376>	;Magtape FORWD SPACE	MM MS MT MU
	.EQU	SF.MTM	<^o377>	;Magtape WRITE TM	MM MS MT MU
	%
;Magtapes
.Assume	SF.MTB	EQ	<^o352>
.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.Assume	SF.USR	EQ	<^o354>
.Assume	SF.BYP	EQ	<^o360>
.Assume	SF.NRT	EQ	0
.Assume	SF.RTY	EQ	1
.Assume	SF.MST	EQ	<^o367>
.Assume	SF.DST	EQ	0
.Assume	SF.EST	EQ	1
.Assume	SF.MRD	EQ	<^o370>
.Assume	SF.MWR	EQ	<^o371>
.Assume	SF.MOR	EQ	<^o372>
.Assume	SF.MRE	EQ	<^o373>
.Assume	SF.MWE	EQ	<^o374>
.Assume	SF.MBS	EQ	<^o375>
.Assume	SF.MFS	EQ	<^o376>
.Assume	SF.MTM	EQ	<^o377>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFNDF	-- Ethernet SPFUN function byte definition
;+
;	.SFNDF
;
;	Ethernet SPFUN function codes and any subcodes
;
;-
.MACRO	.SFNDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
	.EQU	SF.NAL	<^o200>	;[De]Allocate			ov(.NALDF)
;	.EQU	SF.NPM	<^o201>	;En/Disable Promiscious		ov(.NPMDF)
	.EQU	SF.NPR	<^o202>	;En/Disable Protocol		ov(.NPRDF)
	.EQU	SF.NMU	<^o203>	;En/Disable Multicast		ov(.NMUDF)
	.EQU	SF.NWR	<^o204>	;Transmit Data			ov(.NRWDF)
	.EQU	SF.NRD	<^o205>	;Receive Data			ov(.NRWDF)
.ENDM	.SFNDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFNDF
.PRINT ;.SFNDF
	.SFNDF	YES,==:
.Page
.rem	%
;Ethernet
	.EQU	SF.NAL	<^o200>	;[De]Allocate		NC NQ NU      (.NALDF)
;	.EQU	SF.NPM	<^o201>	;En/Disable Promiscious	NC NQ NU      (.NPMDF)
	.EQU	SF.NPR	<^o202>	;En/Disable Protocol	NC NQ NU      (.NPRDF)
	.EQU	SF.NMU	<^o203>	;En/Disable Multicast	NC NQ NU      (.NMUDF)
	.EQU	SF.NWR	<^o204>	;Transmit Data		NC NQ NU      (.NRWDF)
	.EQU	SF.NRD	<^o205>	;Receive Data		NC NQ NU      (.NRWDF)
	%
;Ethernet
.Assume	SF.NAL	EQ	<^o200>
;.Assume SF.NPM	EQ	<^o201>
.Assume	SF.NPR	EQ	<^o202>
.Assume	SF.NMU	EQ	<^o203>
.Assume	SF.NWR	EQ	<^o204>
.Assume	SF.NRD	EQ	<^o205>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFODF	-- Other SPFUN function byte definition
;+
;	.SFODF
;
;	Other SPFUN function codes and any subcodes
;
;-
.MACRO	.SFODF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
;Cassette
	.EQU	SF.CFG	<^o372>	;WRITE FILE GAP
	.EQU	SF.CRE	<^o373>	;REWIND
	.EQU	SF.CFB	<^o374>	;FORWARD BLOCK
	.EQU	SF.CFF	<^o375>	;FORWARD FILE
	.EQU	SF.CLB	<^o376>	;FORWARD to LAST BLOCK
	.EQU	SF.CLF	<^o377>	;FORWARD to LAST FILE

;PI
	.EQU	SF.PRD	<^o370>	;Status from GIDIS
	.EQU	SF.PWR	<^o371>	;Command to GIDIS

;Pseudo-handlers
	.EQU	SF.CTL	<^o365>	;Control functions   (.SFCDF)
	.EQU	SF.TAB	<^o372>	;Data table access   (.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
	.EQU	SF.BBR	<^o374>	;Bad block operations

.ENDM	.SFODF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFODF
.PRINT ;.SFODF
	.SFODF	YES,==:
.Page
.rem	%
;Cassette
	.EQU	SF.CFG	<^o372>	;Cassette WRITE FILE GAP	    CT
	.EQU	SF.CRE	<^o373>	;Cassette REWIND		    CT
	.EQU	SF.CFB	<^o374>	;Cassette FORWARD BLOCK		    CT
	.EQU	SF.CFF	<^o375>	;Cassette FORWARD FILE		    CT
	.EQU	SF.CLB	<^o376>	;Cassette FORWARD to LAST BLOCK	    CT
	.EQU	SF.CLF	<^o377>	;Cassette FORWARD to LAST FILE	    CT

;PI
	.EQU	SF.PRD	<^o370>	;Status from GIDIS	PI
	.EQU	SF.PWR	<^o371>	;Command to GIDIS	PI

;Pseudo-handlers
	.EQU	SF.CTL	<^o365>	;Control functions	CA    UB      (.SFCDF)
	.EQU	SF.TAB	<^o372>	;Data table access	CA SL UB      (.SFTDF)
	.EQU	SF.TRD	+1	;WCNT for table read
	.EQU	SF.TWR	-1	;WCNT for table write
	.EQU	SF.BBR	<^o374>	;Bad block operations	CA

	%
;Cassette
.Assume	SF.CFG	EQ	<^o372>
.Assume	SF.CRE	EQ	<^o373>
.Assume	SF.CFB	EQ	<^o374>
.Assume	SF.CFF	EQ	<^o375>
.Assume	SF.CLB	EQ	<^o376>
.Assume	SF.CLF	EQ	<^o377>

;PI
.Assume	SF.PRD	EQ	<^o370>
.Assume	SF.PWR	EQ	<^o371>

;PSEUDO
.Assume	SF.CTL	EQ	<^o365>
.Assume	SF.TAB	EQ	<^o372>
.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.Assume	SF.BBR	EQ	<^o374>

.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFSDF	-- argument values for SF.MST SPFUN
;+
;	.SFSDF
;
;	Q.BUFF -> the following structure:
;
;	+-------+-------+
;SFS.FG:|		| [00]	Flag for enable/disable
;	+-------+-------+
;SFS.SZ:		  [02]
;
;	Flag	= SF.DST = 0	Disable magtape streaming
;		= SF.EST = 1	Enable magtape streaming
;
; NOTE: The SF.MST SPFUN is only valid for TS05/TSV05 on Q-Bus w/ MS handler.
;-
.MACRO	.SFSDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Magtape streaming flag
	.DS	SFS.FG		;Magtape streaming enable/disable flag
	.DS	SFS.SZ	,0	;Size of magtape streaming flag 
	.EQU	SF.DST	0	;Value to disable magtape streaming
	.EQU	SF.EST	1	;Value to enable magtape streaming
.ENDM	.SFSDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFSDF
.PRINT ;.SFSDF
	.SFSDF	YES,==:

.Assume	SFS.FG	EQ	0
.Assume	SFS.SZ	EQ	<^o2>
.Assume	SF.DST	EQ	0
.Assume	SF.EST	EQ	1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFTDF	-- argument values for SF.TAB and SF.MTB SPFUNs
;+
;	.SFTDF
;
;	Q.WCNT	= SF.TRD = +1	Read from handler table
;		= SF.TWR = -1	Write to handler table
;
;	Q.BUFF	-> one of the structures defined in the .Z%%DF macros
;
;		.ZDUDF	DU handler table
;		.ZLDDF	LD handler table
;		.ZMUDF	MU handler table
;		.ZPIDF	PI handler table
;		.ZSLDF	SL handler table
;		.ZUBDF	UB handler table
;		.ZVSDF	VS handler table (??)
;-
.MACRO	.SFTDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E		;Q.WCNT values for SF.TAB/SF.MTB SPFUNs
	.EQU	SF.TRD	+1	;Value for read table from handler
	.EQU	SF.TWR	-1	;Value for write table to handler
.ENDM	.SFTDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFTDF
.PRINT ;.SFTDF
	.SFTDF	YES,==:

.Assume	SF.TRD	EQ	+1
.Assume	SF.TWR	EQ	-1
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFUDF	-- argument format for SF.USR SPFUN
;+
;	.SFUDF
;
;	+-------+-------+-------+-------+
;SFU.NM:|	      RAD50		|[00] file name
;	+-------+-------+-------+-------+
;SFU.TY:|     RAD50	|[04] file type
;	+-------+-------+
;SFU.OP:|  USR opcode	|[06] operation code (LOOK../ENTR..)	v(.USSDF)
;	+-------+-------+
;SFU.SQ:|  sequence #	|[10] file sequence number (or positioning argument)
;	+-------+-------+
;	|	0	|[12] <reserved>
;	+-------+-------+
;	|	0	|[14] <reserved>
;	+-------+-------+
;SFU.SZ:		 [16] SF.USR request block size
;-
.MACRO	.SFUDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Magtape SF.USR SPFUN request block
	.DS	SFU.NM	,2.	;File name
	.DS	SFU.TY		;File type
	.DS	SFU.OP		;Asynchronous USR operation code v(.USSDF)
	.DS	SFU.SQ		;File sequence number (or positioning arg.)
	.DS		,2.	;<reserved>
	.DS	SFU.SZ	,0	;Size of magtape asynch. USR request block
.ENDM	.SFUDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFUDF
.PRINT ;.SFUDF
	.SFUDF	YES,==:

.Assume	SFU.NM	EQ	<^o0>
.Assume	SFU.TY	EQ	<^o4>
.Assume	SFU.OP	EQ	<^o6>
.Assume	SFU.SQ	EQ	<^o10>
.Assume	SFU.SZ	EQ	<^o16>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFXDF	-- X(C,S,L) SPFUN function byte definition
;+
;	.SFXDF
;
;	X(C,S,L) SPFUN function codes and any subcodes
;
;-
.MACRO	.SFXDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
;XC XL XS
	.EQU	SF.CLR	<^o201> ;Clr "xoffed", send XON
	.EQU	SF.BRK	<^o202> ;Begin/end break
	.EQU	SF.SRD	<^o203>	;Byte read, cond read
	.EQU	SF.STS	<^o204> ;Device status
	.EQU	SF.OFF	<^o205>	;Turn off interrupts
	.EQU	SF.DTR	<^o206>	;Set/reset Data Term Rdy
	.EQU	SF.ABT	<^o207>	;Disable Xmit & Rvc
	.EQU	SF.DVS	<^o370>	;Device status

;DAEMON handlers
	.EQU	SF.TPR	<^o360>	;Send TPR request
	.EQU	SF.CHA	<^o360> ;Perform "bypass" DMA
	.EQU	SF.DMA	<^o361> ;Perform DMA operation
	.EQU	SF.BOT	<^o361>	;Boot IOP
	.EQU	SF.RWB	<^o362> ;Read/Write Bytes
	.EQU	SF.BYE	<^o363>	;Halt IOP
	.EQU	SF.MOU	<^o363>	;[Dis]Mount
;	.EQU		<^o364>	;<res>
;	.EQU		<^o365>	;<res>
;	.EQU		<^o366>	;<res>
;	.EQU		<^o367>	;<res>
	.EQU	SF.DVS	<^o370>	;Device status
	.EQU	SF.ID	<^o371> ;Who are you (host type)
;	.EQU		<^o372>	;<res>
	.EQU	SF.SIZ	<^o373>	;Device size
	.EQU	SF.S16	0	;BLKN for partition size
	.EQU	SF.S32	1	;BLKN for device size
	.EQU	SF.PAT	<^o374>	;Set pattern matching
	.EQU	SF.CPM	<^o375>	;Cancel pending match
	.EQU	SF.WRI	<^o376>	;Write,blk is unit
	.EQU	SF.RED	<^o377>	;Read, blk is unit
.ENDM	.SFXDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFXDF
.PRINT ;.SFXDF
	.SFXDF	YES,==:
.Page
.rem	%
;XC XL XS
	.EQU	SF.CLR	<^o201> ;Clr "xoffed", send XON	XC XL XS
	.EQU	SF.BRK	<^o202> ;Begin/end break	XC XL XS
	.EQU	SF.SRD	<^o203>	;Byte read, cond read	XC XL XS
	.EQU	SF.STS	<^o204> ;Device status		XC XL XS
	.EQU	SF.OFF	<^o205>	;Turn off interrupts	XC XL XS
	.EQU	SF.DTR	<^o206>	;Set/reset Data Term RdyXC XL XS
	.EQU	SF.ABT	<^o207>	;Disable Xmit & Rvc	      XS
	.EQU	SF.DVS	<^o370>	;Device status		      XS
	%
;XC XL XS
.Assume	SF.CLR	EQ	<^o201>
.Assume SF.BRK	EQ	<^o202>
.Assume	SF.SRD	EQ	<^o203>
.Assume	SF.STS	EQ	<^o204>
.Assume	SF.OFF	EQ	<^o205>
.Assume	SF.DTR	EQ	<^o206>
.Assume	SF.ABT	EQ	<^o207>
.Assume	SF.DVS	EQ	<^o370>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SFZDF	-- Arguments for SF.SIZ request **Not finished**
;+
;	.SFZDF
;
;>>>
;-
.MACRO	.SFZDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
;>>>
.ENDM	.SFZDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SFZDF
.PRINT ;.SFZDF
	.SFZDF	YES,==:
;>>>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SGNDF	-- System generation options
;+
;	.SGNDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;SYSGEN:|TSX|STA|MTT| <res> |TIM|MPT|FPU|     <res>	|RTE|TIM|MMG|ERL|
;	|P$ |SK$|Y$ |	    |ER$|YS$|11$|		|M$ |IT$|T$ |G$ |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	TSXP$ = 1	Running under TSX+ (at least not DEC RT-11)
;	STASK$ = 1	System task support
;	MTTY$ = 1	Multi-terminal support
;	TIMER$ = 1	Timer support (SJ)
;	MPTYS$ = 1	Memory parity support
;	FPU11$ = 1	Floating point support
;	RTEM$ = 1	Running under RTEM-11
;	TIMIT$ = 1	Device timeout support
;	MMGT$ = 1	Extended memory support
;	ERLG$ = 1	Error logging support
;-
.MACRO	.SGNDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($SYSGE in .FIXDF; (low byte) H.GEN in .HANDF)
	.BS	ERLG$		;error logging
	.BS	MMGT$		;memory management
	.BS	TIMIT$		;device timeout support
	.BS	RTEM$		;RT-11 emulator support
	.BS	,	4.	;<res>
	.BS	FPU11$		;FPU support
	.BS	MPTYS$		;memory parity support
	.BS	TIMER$		;timer support (SJ)
	.BS	,	2.	;<res>
	.BS	MTTY$		;multi-terminal support
	.BS	STASK$		;System task support
	.BS	TSXP$		;TSX PLUS o/s
.ENDM	.SGNDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SGNDF
.PRINT ;.SGNDF
	.SGNDF	YES,==:

.Assume	ERLG$	EQ	000001
.Assume	MMGT$	EQ	<^o000002>
.Assume	TIMIT$	EQ	<^o000004>
.Assume	RTEM$	EQ	<^o000010>
.Assume	FPU11$	EQ	<^o000400>
.Assume	MPTYS$	EQ	<^o001000>
.Assume	TIMER$	EQ	<^o002000>
.Assume	MTTY$	EQ	<^o020000>
.Assume	STASK$	EQ	<^o040000>
.Assume	TSXP$	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SLBDF	-- Supervisor library ID block
;+
;	.SLBDF
;
;	This structure is used in three places:
;	1) in the linked portion of the supervisor library
;	2) in the library stub of a supervisor library (.OLBDF)
;	3) in a .SAV image that uses a supervisory library
;	   in case 3, the SL.NXT through SL.BLK part "floats"
;	   and is pointed to by $SLB (.SYCDF)
;
;	SL.BIC is present in (1)
;	SL.AST is present in (1)
;	SL.VEC is present in (1)
;	SL.BLK is present in (2) and (3)
;	SL.FLG is present in (2)
;	SL.<other> is present in (1), (2) and (3)
;
;	+-------+-------+
;SL.BIC:|   BIC R0,R0	|[000]	Clear R0 instruction	SL.BIV=040000
;	+-------+-------+
;SL.AST:|     .ASTX	|[002]	.ASTX EMT (use ...AST in ..ASTX)
;	+-------+-------+
;	:		:
;	+-------+-------+
;SL.VEC:| CSM vector	|[010]	CSM vector
;	+-------+-------+
;	/		/
;	+-------+-------+
;SL.NXT:|		|[010]	Next SLB structure <fut> (in .SAV)
;	+-------+-------+
;SL.DAT:|      		|[012]	Creation date in RT-11 format	(.DATDF)
;	+-------+-------+
;SL.TIM:|		|[014]	Creation time in RT-11 format	(.???DF)
;	+		+
;	|		|[016]
;	+-------+-------+
;SL.NAM:|		|[020]	Library name (6 RAD50 chars)
;	+		+
;	|		|[022]
;	+-------+-------+
;SL.BLK:|-> "blk 0 SLB"	|[024]	Block number of .SAV part
;	+-------+-------+
;	/		/
;	+-------+-------+
;SL.FLG:|		|[024]	Flag word, attributes of library
;	+-------+-------+
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;SL.FLG:|SL.|			reserved		|SL.|SL.|SL.|res|
;	|RO |						|SL |PC |SH |	|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;		SL.RO  = 1	Library may be set read/only
;		SL.SL  = 1	Supervisor library (definition)
;		SL.PC  = 1	Written in PIC
;		SL.SH  = 1	Sharable
;-
.MACRO	.SLBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Supervisor library ID block
	.DS	SL.BIC		;BIC R0,R0 instruction
	.EQU	SL.BIV	<^o040000> ;value of BIC R0,R0
	.DS	SL.AST		;.ASTX instuction (use ...AST in ..ASTX)
	.DS			;reserved
	.DS			;reserved
	.DS	SL.VEC		;vector for CSM interrupt
	.EQU	SL.NXT	SL.VEC	;<fut> -> next .SLB in .SAV
;				;Next offset pointed to by $SLB in (.SYCDF)
	.DS	SL.DAT		;creation date 			(.DATDF)
	.DS	SL.TIM	,2.	;creation time
	.DS	SL.NAM	,2.	;library name (6 chars RAD50)
	.DS	SL.BLK		;block number of library image
	.EQU	SL.FLG	SL.BLK	;attribute flags in library image
	.BSECT	,LIST,E
	.BS			;reserved
	.BS	SL.SH		;Sharable
	.BS	SL.PC  		;Written in PIC
	.BS	SL.SL		;Supervisor library (definition)
	.BS		,11.	;reserved
	.BS	SL.RO		;Library may be set read/only
.ENDM	.SLBDF
.ENDC ;EQ GP3$DO
ONE.DO=ONE.DO+1
.IF EQ GP3$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SLBDF
	.SLBDF	YES,==:

.Assume	SL.BIC	EQ	0
.Assume	SL.BIV	EQ	<^o040000>
.Assume	SL.AST	EQ	<^o2>
.Assume	SL.VEC	EQ	<^o10>
.Assume	SL.NXT	EQ	<^o10>
.Assume	SL.DAT	EQ	<^o12>
.Assume	SL.TIM	EQ	<^o14>
.Assume	SL.NAM	EQ	<^o20>
.Assume	SL.BLK	EQ	<^o24>
.Assume	SL.FLG	EQ	<^o24>
.Assume	SL.RO	EQ	<^o100000>
.Assume	SL.SL	EQ	<^o10>
.Assume	SL.PC	EQ	<^o4>
.Assume	SL.SH	EQ	<^o2>
.ENDC ;EQ GP3$DO&<ONE$DO-ONE.DO>
.IF EQ GP3$DO
.SbTtl	.SPCDF	-- SPCPS block
;+
;	.SPCDF
;
;	+-------+-------+
;SPC.NU:|		|[0]	New PC
;	+-------+-------+
;SPC.PC:|		|[2]	Old PC
;	+-------+-------+
;SPC.PS:|		|[4]	Old PS
;	+-------+-------+
;SPC.SZ:		 [6]
;-
.MACRO	.SPCDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;A.PCPS in ..SPCP, I.SPCP in .IMPDF
	.DS	SPC.NU		;new PC
	.DS	SPC.PC		;old PC
	.DS	SPC.PS		;old SP
	.DS	SPC.SZ	0	;size
.ENDM	.SPCDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SPCDF
.PRINT ;.SPCDF
	.SPCDF	YES,==:

.Assume	SPC.NU	EQ	0
.Assume	SPC.PC	EQ	<^o2>
.Assume	SPC.PS	EQ	<^o4>
.Assume	SPC.SZ	EQ	<^o6>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SPLDF	-- spooler word bit definitions
;+
;	.SPLDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;SPSTAT:|SP$|SP$|SP$|SP$|SP$|   SP$NFL	|SP$|    SP$OPR     |   SP$UNI	|
;	|ERR|IEN|GTM|SCN|SHO|		|ACT|		    |		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;			      0   0   0 = SP$DEF
;			      1   1   1 = SP$0
;
;				SP$NXT =      0   0   0   1   n   n   n
;				SP$OFF =      0   0   1   0   n   n   n
;				SP$ON  =      0   1   0   0   n   n   n
;				SP$KIL =      1   0   0   0   n   n   n
;
;				SP$ABT =      0	  1   1   0   j   j   j
;				SP$EXI =      1   1   1   0   x   x   x
;
;						jjj = job number
;						nnn = SP unit number
;						xxx = ignored
;	SP$ERR	= 1 Error
;	SP$IEN	= 1 Interrupt enable
;	SP$GTM	= 1 Get time string
;	SP$SCN	= 1 Print Screen (PRO only)
;	SP$SHO	= 1 SHOW QUEUE
;	SP$NFL	= 003400 Number of flag pages
;	  SP$DEF = ^b000*400 use default
;	  SP$0	 = ^b111*400 force NO flag
;	SP$ACT	= 1 SPOOL is Active
;	SP$OPR	= 000170 SET/ABORT/EXIT Operation field
;	  SP$NXT = ^b0001*10 SET SPn NEXT
;	  SP$OFF = ^b0010*10 SET SPn WAIT
;	  SP$ON	 = ^b0100*10 SET SPn NOWAIT
;	  SP$KIL = ^b1000*10 SET SPn KILL
;	  SP$ABT = ^b0110*10 ABORT/EXIT occurred on Job jjj
;	  SP$EXI = ^b1110*10 Cause SPOOL SHUTDOWN
;	SP$UNI	= 000007 unit number field for SET commands
;-
.MACRO	.SPLDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($SPSTA in .FIXDF)
	.BS	SP$UNI,3.	;SP unit number for SET command
	.BS	SP$OPR,4.	;SP SET/ABORT operation field
	.EQU	SP$NXT,<^o10>	;SET SPn NEXT
	.EQU	SP$OFF,<^o20>	;SET SPn OFF
	.EQU	SP$ON, <^o40>	;SET SPn ON
	.EQU	SP$KIL,<^o100>	;SET SPn KILL
	.EQU	SP$ABT,<^o60>	;SET SPn ABORT
	.EQU	SP$EXI,<^o160>	;SET SPn EXIT
	.BS	SP$ACT		;SPOOL is ACTIVE (SPOOL)
	.BS	SP$NFL,3.	;Area for flag page count (KMON)
	.EQU	SP$DEF,0	;Use default flag page count
	.EQU	SP$0,<^o003400>	;Force No flag pages
	.BS	SP$SHO		;SHOW QUEUE (KMON)
	.BS	SP$SCN		;PRINT SCREEN (PI - PRO only)
	.BS	SP$GTM		;Get time string (SP)
	.BS	SP$IEN		;Enable interrupts (SP)
	.BS	SP$ERR		;Error (SPOOL)
.ENDM	.SPLDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SPLDF
.PRINT ;.SPLDF
	.SPLDF	YES,==:

.Assume	SP$UNI	EQ	<^o000007>
.Assume	SP$OPR	EQ	<^o000170>
.Assume	SP$NXT	EQ	<^o010>
.Assume	SP$OFF	EQ	<^o020>
.Assume	SP$ON	EQ	<^o040>
.Assume	SP$KIL	EQ	<^o100>
.Assume	SP$ABT	EQ	<^o060>
.Assume	SP$EXI	EQ	<^o160>
.Assume	SP$ACT	EQ	<^o000200>
.Assume	SP$NFL	EQ	<^o003400>
.Assume	SP$DEF	EQ	<^o000000>
.Assume	SP$0	EQ	<^o003400>
.Assume	SP$SHO	EQ	<^o004000>
.Assume	SP$SCN	EQ	<^o010000>
.Assume	SP$GTM	EQ	<^o020000>
.Assume	SP$IEN	EQ	<^o040000>
.Assume	SP$ERR	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.STWDF	-- DCL and IND state word
;+
;	.STWDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;STATWD:|IFI|IFA|IFE|IFD|IFC|IFE|IFC|IFA|IFG|IFR|IFB|IFS|IFD|IFI|IFL|IFL|
;	|NP$|BT$|OF$|AT$|TC$|KO$|HA$|CT$|TC$|VT$|EX$|PC$|OL$|ND$|EF$|IF$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	IFINP$ = 1	DCLs/indirect file input
;	IFABT$ = 1	Abort DCLs/indirect file input
;	IFEOF$ = 1	EOF on DCLs/indirect file
;	IFDAT$ = 1	Data in buffer above USR
;	IFCTC$ = 1	SJ: user ^C^C; FB: ^C in file
;	IFEKO$ = 1	Don't echo indirect files
;	IFCHA$ = 1	Chain to indirect file
;	IFACT$ = 1	Indirect file active
;	IFGTC$ = 1	^C in @file while GTLIN$ set in JSW
;	IFRVT$ = 1	Revert to TTY input
;	IFBEX$ = 1	BATCH(!!) is forcing exit
;	IFSPC$ = 1	Special chain exit
;	IFDOL$ = 1	$ found on command line
;	IFIND$ = 1	Determines if IND to run in @
;	IFLEF$ = 1	EOF in LINK file (not used?)
;	IFLIF$ = 1	Doing LINK file (not used?)
;-
.MACRO	.STWDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($STATW in .FIXDF)
	.BS	IFLIF$		;Doing LINK overlay @file
	.BS	IFLEF$		;EOF in LINK overlay @file
	.BS	IFIND$		;Determines if IND to RUN on DCL @ command
	.BS	IFDOL$		;Denotes that dollar sign entered in command line
	.BS	IFSPC$		;Special chain exit forcing a copy into special buffer
	.BS	IFBEX$		;BATCH is forcing exit after error in user job
	.BS	IFRVT$		;Revert to TTY input from indirect file
	.BS	IFGTC$		;CTRL/C seen in @file while GTLIN$ set in JSW
	.BS	IFACT$		;Indirect file active
	.BS	IFCHA$		;Chain to indirect file
	.BS	IFEKO$		;Don't echo indirect file lines
	.BS	IFCTC$		;SJ: user typed ^C ^C; FB: ^C seen in @file
	.BS	IFDAT$		;Data in DCLs/indirect file buffer above KMON/USR
	.BS	IFEOF$		;Eof in DCLs/indirect file
	.BS	IFABT$		;Abort DCLs/indirect file
	.BS	IFINP$		;DCLs/indirect file input
.ENDM	.STWDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.STWDF
.PRINT ;.STWDF
	.STWDF	YES,==:

.Assume	IFLIF$	EQ	000001
.Assume	IFLEF$	EQ	<^o000002>
.Assume	IFIND$	EQ	<^o000004>
.Assume	IFDOL$	EQ	<^o000010>
.Assume	IFSPC$	EQ	<^o000020>
.Assume	IFBEX$	EQ	<^o000040>
.Assume	IFRVT$	EQ	<^o000100>
.Assume	IFGTC$	EQ	<^o000200>
.Assume	IFACT$	EQ	<^o000400>
.Assume	IFCHA$	EQ	<^o001000>
.Assume	IFEKO$	EQ	<^o002000>
.Assume	IFCTC$	EQ	<^o004000>
.Assume	IFDAT$	EQ	<^o010000>
.Assume	IFEOF$	EQ	<^o020000>
.Assume	IFABT$	EQ	<^o040000>
.Assume	IFINP$	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SWIDF	-- Switch parsing table (ICSI et. al.)
;+
;	.SWIDF
;
;	+-------+-------+
;SWI.OP:| <res> |letter	|[0]	switch letter
;	+-------+-------+
;SWI.FL:|		|[2]	switch found status
;	+-------+-------+
;SWI.FI:|		|[4]	file number
;	+-------+-------+
;SWI.VA:|		|[6]	switch value
;	+-------+-------+
;
;	SWI.NF	0		switch not found
;	SWI.NV	1		switch found, no value specified
;	SWI.YV	2		switch found, value specified
;-
.MACRO	.SWIDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;entry for switch parsing
	.DS	SWI.OP	,,B	;switch letter for this entry
	.DS		,,B	;<res>
	.DS	SWI.FL		;switch found status
	.EQU	SWI.NF	0	;switch not found
	.EQU	SWI.NV	1	;switch found, no value
	.EQU	SWI.YV	<^o2>	;switch found, value specified
	.DS	SWI.FI		;file number associated with switch
	.DS	SWI.VA		;switch value
.ENDM	.SWIDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SWIDF
.PRINT ;.SWIDF
	.SWIDF	YES,==:

.Assume	SWI.OP	EQ	<^o000000>
.Assume	SWI.FL	EQ	<^o000002>
.Assume	SWI.NF	EQ	<^o000000>
.Assume	SWI.NV	EQ	<^o000001>
.Assume	SWI.YV	EQ	<^o000002>
.Assume	SWI.FI	EQ	<^o000004>
.Assume	SWI.VA	EQ	<^o000006>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.SWPDF	-- .CNTXT swapping table		*UNIMPLEMENTED*
.SbTtl	.SYCDF	-- syscom area
;+
;	.SYCDF
;
;	+-------+-------+
;$VIRT:	|		|[00]	virtual required flag	= VIRTV$
;	+-------+-------+
;$VIRTO:|		|[02]	virtual high top value
;	+-------+-------+
;$JSX:	|		|[04]	XM extended JSW info		v(.JSXDF)
;	+-------+-------+
;$VBGTO:|     value	|[06]	max .SETTOP addr allowed under VBGEXE
;	+-------+-------+
;$SLB:	|		|[10]	file address of .SLBDF (at SL.DAT)
;	+-------+-------+
;
;$SYCOM:+-------+-------+
;$USRPC:|  starting PC	|[40]
;	+-------+-------+
;$USRSP:|  starting SP	|[42]
;	+-------+-------+
;$JSW:	|job status word|[44]					v(.JSWDF)
;	+-------+-------+
;$UFLOA:|USR float addr	|[46]
;	+-------+-------+
;$USRTO:|User high addr	|[50]
;	+-------+-------+
;$ERRBY:	|Emt Err|[52]					v(.ERRDF)
;	+-------+-------+
;$USRRB:|User Er|	 [53]					v(.UEBDF)
;	+-------+-------+
;$SYPTR:| -> RMON FIXED	|[54]					o(.FIXDF)
;	+-------+-------+
;$TTFIL:	|fil chr|[56]
;	+-------+-------+
;$TTNFI:|fil cnt|	 [57]
;	+-------+
;-
.Page
.MACRO	.SYCDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o00>,LIST,E	;defined for file image only
	.DS	$VIRT		;flag for virtual required
	.EQU	VIRTV$	<^rVIR>	;value for $VIRT
	.DS	$VIRTO		;virtual set top value
	.DS	$JSX		;XM job status info		v(.JSXDF)
	.DS	$VBGTO		;maximum .SETTOP allowed under VBGEXE
	.DS	$SLB		;if non-zero, file address of .SLBDF(@ SL.DAT)
	.DSECT	<^o40>,LIST,E	;Absolute locations 40-57
				;partially overlapped by .SAVDF and .RELDF
	.DS	$SYCOM	0	;start of system communications area
	.DS	$USRPC		;job start addr
	.DS	$USRSP		;job stack addr
	.DS	$JSW		;job status word		v(.JSWDF)
	.DS	$UFLOA		;USR float addr
	.DS	$USRTO		;job high limit
	.DS	$ERRBY	,,B	;EMT error byte			v(.ERRDF)
	.DS	$USRRB	,,B	;user program status byte	v(.UEBDF)
	.DS	$SYPTR		;-> RMON			o(.FIXDF)
	.DS	$TTFIL	,,B	;terminal fill chars
	.DS	$TTNFI	,,B	;terminal fill count
.ENDM	.SYCDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.SYCDF
.PRINT ;.SYCDF
	.SYCDF	YES,==:

.Assume	$VIRT	EQ	<^o000000>
.Assume	VIRTV$	EQ	<^rVIR>	;value for $VIRT
.Assume	$VIRTO	EQ	<^o000002>
.Assume	$JSX	EQ	<^o000004>
.Assume	$VBGTO	EQ	<^o000006>
.Assume	$SLB	EQ	<^o000010>
.Assume	$SYCOM	EQ	<^o000040>
.Assume	$USRPC	EQ	<^o000040>
.Assume	$USRSP	EQ	<^o000042>
.Assume	$JSW	EQ	<^o000044>
.Assume	$UFLOA	EQ	<^o000046>
.Assume	$USRTO	EQ	<^o000050>
.Assume	$ERRBY	EQ	<^o000052>
.Assume	$USRRB	EQ	<^o000053>
.Assume	$SYPTR	EQ	<^o000054>
.Assume	$TTFIL	EQ	<^o000056>
.Assume	$TTNFI	EQ	<^o000057>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.Sbttl	.T2RDF	-- entry vector for TTCOM into RMON	*UNIMPLEMENTED*
.SbTtl	.TASDF	-- Asynchronous status word supplied by user
;+
;	.TASDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|AS.|AS.|AS.|	    <res>	|AS.|AS.|	  <res>	    |AS.|
;	|CTC|INP|OUT|			|CAR|HNG|		    |ABO|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;								    <fut>
;	AS.CTC = 1	^C^C found
;	AS.INP = 1	Input available
;	AS.OUT = 1	Output buffer empty
;	AS.CAR = 1	Carrier detected
;	AS.HNG = 1	Hung up
;	AS.ABO = 1	$ABORT command issued againt this job <fut>
;-
.MACRO	.TASDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;
	.BS	AS.ABO		;ABORT issued against this job <fut>
	.BS	,	5.	;<res>
	.BS	AS.HNG		;Terminal is hung up
	.BS	AS.CAR		;Modem carrier is present
	.BS	,	5.	;<res>
	.BS	AS.OUT		;Output buffer empty
	.BS	AS.INP		;Input is available
	.BS	AS.CTC		;Double Ctrl/c
.ENDM	.TASDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TASDF
.PRINT ;.TASDF
	.TASDF	YES,==:

.Assume	AS.ABO	EQ	<^o000001>
.Assume	AS.HNG	EQ	<^o000100>
.Assume	AS.CAR	EQ	<^o000200>
.Assume	AS.OUT	EQ	<^o020000>
.Assume	AS.INP	EQ	<^o040000>
.Assume	AS.CTC	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.TC2DF	-- Terminal status word 2
;+
;	.TC2DF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|WPA|		<res>		|RPA| <res> |ODD|PAR|UST|CHRLN$ |
;	|LL$|				|LL$|	    |PR$|EN$|OP$|	|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;-
.MACRO	.TC2DF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;???
	.BS	CHRLN$	2.	;0-1 Character len
	.BS	USTOP$		;2 Stop code (0=1 unit stop,1=2 unit stop or 1.5)
	.BS	PAREN$		;3 Parity option (0=no parity, 1= parity enabled)
	.BS	ODDPR$		;4 Kind of parity (0=even parity,1=odd parity)
	.BS	,	2.	;<res>
	.BS	RPALL$		;7 Read pass all
	.BS	,	7.	;<res>
	.BS	WPALL$		;15 Write pass all
.ENDM	.TC2DF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TC2DF
.PRINT ;.TC2DF
	.TC2DF	YES,==:

.Assume	CHRLN$	EQ	<^o000003>
.Assume	USTOP$	EQ	<^o000004>
.Assume	PAREN$	EQ	<^o000010>
.Assume	ODDPR$	EQ	<^o000020>
.Assume	RPALL$	EQ	<^o000200>
.Assume	WPALL$	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.TCBDF	-- Terminal Control block Definition
;+
;	.TCBDF
;
;	+-------+-------+
;T.CNFG:|		|[00]					v(.TCFDF)
;	+-------+-------+
;T.CNF2:|		|[02]					v(.TC2DF)
;	+-------+-------+
;T.TFIL:	|fil chr|[04]
;	+-------+-------+
;T.FCNT:|fil cnt|	 [05]
;	+-------+-------+
;T.WID:	|carriage width	|[06]
;	+-------+-------+
;T.OCHR:	|chr out|[10]
;	+-------+-------+
;T.LPOS:|car pos|	 [11]
;	+-------+-------+
;T.OWNR:| -> owning IMP	|[12]					o(.IMPDF)
;	+-------+-------+
;T.STAT:|		|[14]					v(.TSTDF)
;	+-------+-------+
;T.CSR:	| -> recv CSR	|[16]
;	+-------+-------+
;T.VEC:	| device vector	|[20]
;	+-------+-------+
;T.PRI:	|device priority|[22]
;	+-------+-------+
;T.JOB:		|job num|[24]
;	+-------+-------+
;T.PUN:	|phy unt|	 [25]
;	+-------+-------+
;T.NFIL:	|Act FCN|[26]
;	+-------+-------+
;T.PTTI:|prv chr|	 [27]
;	+-------+-------+
;T.TCTF:	|chr spl|[30]
;	+-------+-------+
;T.TNFL:|num spl|	 [31]
;	+-------+-------+
;T.ID:	| Buffer / PAR	|[32]
;	+		+
;	|   of prompt	|
;	+-------+-------+
;T.TTLC:|  line count	|[36]
;	+-------+-------+
;T.IRNG:|In Ring Low Lim|[40]
;	+-------+-------+
;T.IPUT:| -> put ptr	|[42]
;	+-------+-------+
;T.ICTR:|  Char count	|[44]
;	+-------+-------+
;T.IGET:| -> get ptr	|[46]
;	+-------+-------+
.Page
;	+-------+-------+
;T.ITOP:|In Ring Hi Lim	|[50]
;	+-------+-------+ - - - - - - - +-------+
;	|	|	|		|	|[52]TTYIN buffer (aprx206)
;	+-------+-------+ - - - - - - - +-------+
;
;	A=52+<TTBF$I>
;
;	+-------+-------+
;T.OPUT:| -> put ptr	|[A]
;	+-------+-------+
;T.OCTR:	|Chr cnt|[A+2]
;	+-------+-------+
;T.CTLO:|^O Flag|	 [A+3]
;	+-------+-------+
;T.OGET:| -> get ptr	|[A+4]
;	+-------+-------+
;T.OTOP:|In Ring Hi Lim	|[A+6]
;	+-------+-------+ - - - - - - - +-------+
;	|	|	|		|	|[A+10]TTYOUT buffer (aprx50)
;	+-------+-------+ - - - - - - - +-------+
;
;	B=62+<TTBF$I>+<TTBF$O>
;
;				<MTI$M ! DLMD$M ! DZMD$M ! DHMD$M>
;					+-------+-------+
;				T.RTRY:	|  retry count	|[B]
;					+-------+-------+
;				T.TBLK:	|  Timio block	|[B+2]	ov(.QTIDF)
;					:		:
;					|    7 words	|
;					+-------+-------+
;
;	C=102+<TTBF$I>+<TTBF$O>+<<MTI$M!DLMD$M!DZMD$M!DHMD$M>*20>
;
;					      MAT$S
;					+-------+-------+
;				T.AST:	|- > Async word	|[C]	v(.TASDF)
;					+-------+-------+
;
;					  MAT$S & MMG$T
;					+-------+-------+
;					|   PAR offset	|[C+2]
;					+-------+-------+
;
;	D=102+<TTBF$I>+<TTBF$O>+<<MTI$M!DLMD$M!DZMD$M!DHMD$M>*20>+<MAT$S*2>
;		+<<MMG$T*MAT$S>*2>
.Page
;					      SYT$K
;						+-------+
;				T.XFLG:		|^X flag|[D]
;					+-------+-------+
;				T.XCNT:	|chr cnt|	 [D+1]
;					+-------+-------+
;				T.XPRE:	|   prev char	|[D+2]
;					+-------+-------+
;				T.XBUF:	|  input buffer	|[D+4]
;					+		+
;					|		|
;					+		+
;					|		|
;					+-------+-------+
;				T.CNT:	|  owner count	|[D+12]
;					+-------+-------+
;
;	E=102+<TTBF$I>+<TTBF$O>+<<MTI$M!DLMD$M!DZMD$M!DHMD$M>*20>+<MAT$S*2>
;		+<<MMG$T*MAT$S>*2>+<SYT$K*14>
;
;				T.CBSZ:			 [E]
;-
.Page
.MACRO	.TCBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;???
	.DS	T.CNFG		;1 terminal configuration word 1 v(.TCFDF)
	.DS	T.CNF2		;1 terminal configuration word 2 v(.TC2DF)
	.DS	T.TFIL	,,B	;1 char requiring null fillers
	.DS	T.FCNT	,,B	;1 number of fills required
	.DS	T.WID		;1 carriage width
	.DS	T.OCHR	,,B	;1 current char to print
	.DS	T.LPOS	,,B	;1 current carriage position
	.DS	T.OWNR		;-> to owning job's impure area o(.IMPDF)
	.DS	T.STAT		;unit status word		v(.TSTDF)
	.DS	T.CSR		;CSR of keyboard (receiver)
	.DS	T.VEC		;device vector
	.DS	T.PRI		;device priority
	.DS	T.JOB	,,B	;job number of owner
	.DS	T.PUN	,,B	;physical unit number (0 for dl11)
	.DS	T.NFIL	,,B	;active fill count
	.DS	T.PTTI	,,B	;previous char
	.DS	T.TCTF	,,B	;char for special fill
	.DS	T.TNFL	,,B	;number of special fillers
	.DS	T.TID	2.	;buffer, par of prompt string
	.DS	T.TTLC		;2 line count
	.DS	T.IRNG		;2 input ring low limit
	.DS	T.IPUT		;2 input 'put' -> for interrupts
	.DS	T.ICTR		;2 input char count
	.DS	T.IGET		;2 input 'get' -> for TTYIN
	.DS	T.ITOP		;2 input ring hi limit
.IIF NDF TTBF$I	.EQU	TTBF$I 134.
	.DS	,	TTBF$I,B	;2 input ring buffer (same size as console ring)
	.DS	T.OPUT		;2 output 'put' -> for .TTYOUT
	.DS	T.OCTR	,,B	;2 output char count
	.DS		,,B		;2 ^O flag
	.DS	T.OGET		;2 output 'get' -> for interrupt
	.DS	T.OTOP		;2 output ring hi limit
.IIF NDF TTBF$O	.EQU	TTBF$O 40.
	.DS	,	TTBF$O,B ;2 output ring buffer (same size as console ring)
.IIF NE	FIX$ED	.MEXIT
.IIF NDF MTI$M	.MEXIT
.IIF NDF DHMD$M	.MEXIT
.IIF NDF DLMD$M	.MEXIT
.IIF NDF DZMD$M	.MEXIT
.IF NE MTI$M!DHMD$M!DLMD$M!DZMD$M
	.DS	T.RTRY		;retry count for re-transmission of output chr
	.DS	T.TBLK	7.	;time out block
.ENDC ;NE MTI$M!DHMD$M!DLMD$M!DZMD$M
.IIF NDF	MAT$S	.MEXIT
.IF NE MAT$S
.IIF NDF MMG$T	.MEXIT
.IF EQ MMG$T
	.DS	T.AST		;terminal AST flag word		v(.TASDF)
.IFF ;EQ MMG$T
	.DS	T.AST	2.	;terminal AST flag word		v(.TASDF)
.ENDC ;EQ MMG$T
.ENDC ;NE MAT$S
.IIF NDF SYT$K	.MEXIT
.IF NE SYT$K
	.DS	T.XFLG	,,B	;^X sequence in progress
	.DS	T.XCNT	,,B	;^X seq char count
	.DS	T.XPRE		;previous char typed in ^X sequence
	.DS	T.XBUF	6.,B	;6 char buffer
	.DS	T.CNT		;owner count
.ENDC ;NE SYT$K
	.DS	T.CBSZ	0	;size of TCB in bytes
.ENDM	.TCBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TCBDF
.PRINT ;.TCBDF
.Page
MTI$M=1
DHMD$M=1
DLMD$M=1
DZMD$M=1
MAT$S=1
MMG$T=1
SYT$K=1
	.TCBDF	YES,==
.Page
.Assume	T.CNFG	EQ	<^o000000>
.Assume	T.CNF2	EQ	<^o000002>
.Assume	T.TFIL	EQ	<^o000004>
.Assume	T.FCNT	EQ	<^o000005>
.Assume	T.WID	EQ	<^o000006>
.Assume	T.OCHR	EQ	<^o000010>
.Assume	T.LPOS	EQ	<^o000011>
.Assume	T.OWNR	EQ	<^o000012>
.Assume	T.STAT	EQ	<^o000014>
.Assume	T.CSR	EQ	<^o000016>
.Assume	T.VEC	EQ	<^o000020>
.Assume	T.PRI	EQ	<^o000022>
.Assume	T.JOB	EQ	<^o000024>
.Assume	T.PUN	EQ	<^o000025>
.Assume	T.NFIL	EQ	<^o000026>
.Assume	T.PTTI	EQ	<^o000027>
.Assume	T.TCTF	EQ	<^o000030>
.Assume	T.TNFL	EQ	<^o000031>
.Assume	T.TID	EQ	<^o000032>
.Assume	T.TTLC	EQ	<^o000036>
.Assume	T.IRNG	EQ	<^o000040>
.Assume	T.IPUT	EQ	<^o000042>
.Assume	T.ICTR	EQ	<^o000044>
.Assume	T.IGET	EQ	<^o000046>
.Assume	T.ITOP	EQ	<^o000050>
.Assume	T.OPUT	EQ	<^o000260>
.Assume	T.OCTR	EQ	<^o000262>
.Assume	T.OGET	EQ	<^o000264>
.Assume	T.OTOP	EQ	<^o000266>
.Assume	T.RTRY	EQ	<^o000340>
.Assume	T.TBLK	EQ	<^o000342>
.Assume	T.AST	EQ	<^o000360>
.Assume	T.XFLG	EQ	<^o000364>
.Assume	T.XCNT	EQ	<^o000365>
.Assume	T.XPRE	EQ	<^o000366>
.Assume	T.XBUF	EQ	<^o000370>
.Assume	T.CNT	EQ	<^o000376>
.Assume	T.CBSZ	EQ	<^o000400>
.Page
MTI$M=0
DHMD$M=0
DLMD$M=0
DZMD$M=0
MAT$S=0
MMG$T=0
SYT$K=0
	.TCBDF	YES,==
.Page
.Assume	T.CNFG	EQ	000000
.Assume	T.CNF2	EQ	<^o000002>
.Assume	T.TFIL	EQ	<^o000004>
.Assume	T.FCNT	EQ	<^o000005>
.Assume	T.WID	EQ	<^o000006>
.Assume	T.OCHR	EQ	<^o000010>
.Assume	T.LPOS	EQ	<^o000011>
.Assume	T.OWNR	EQ	<^o000012>
.Assume	T.STAT	EQ	<^o000014>
.Assume	T.CSR	EQ	<^o000016>
.Assume	T.VEC	EQ	<^o000020>
.Assume	T.PRI	EQ	<^o000022>
.Assume	T.JOB	EQ	<^o000024>
.Assume	T.PUN	EQ	<^o000025>
.Assume	T.NFIL	EQ	<^o000026>
.Assume	T.PTTI	EQ	<^o000027>
.Assume	T.TCTF	EQ	<^o000030>
.Assume	T.TNFL	EQ	<^o000031>
.Assume	T.TID	EQ	<^o000032>
.Assume	T.TTLC	EQ	<^o000036>
.Assume	T.IRNG	EQ	<^o000040>
.Assume	T.IPUT	EQ	<^o000042>
.Assume	T.ICTR	EQ	<^o000044>
.Assume	T.IGET	EQ	<^o000046>
.Assume	T.ITOP	EQ	<^o000050>
.Assume	T.OPUT	EQ	<^o000260>
.Assume	T.OCTR	EQ	<^o000262>
.Assume	T.OGET	EQ	<^o000264>
.Assume	T.OTOP	EQ	<^o000266>
.Assume	T.CBSZ	EQ	<^o000340>
.Page
MTI$M=1
DHMD$M=1
DLMD$M=1
DZMD$M=1
MAT$S=0
MMG$T=0
SYT$K=0
	.TCBDF	YES,==
.Page
.Assume	T.CNFG	EQ	000000
.Assume	T.CNF2	EQ	<^o000002>
.Assume	T.TFIL	EQ	<^o000004>
.Assume	T.FCNT	EQ	<^o000005>
.Assume	T.WID	EQ	<^o000006>
.Assume	T.OCHR	EQ	<^o000010>
.Assume	T.LPOS	EQ	<^o000011>
.Assume	T.OWNR	EQ	<^o000012>
.Assume	T.STAT	EQ	<^o000014>
.Assume	T.CSR	EQ	<^o000016>
.Assume	T.VEC	EQ	<^o000020>
.Assume	T.PRI	EQ	<^o000022>
.Assume	T.JOB	EQ	<^o000024>
.Assume	T.PUN	EQ	<^o000025>
.Assume	T.NFIL	EQ	<^o000026>
.Assume	T.PTTI	EQ	<^o000027>
.Assume	T.TCTF	EQ	<^o000030>
.Assume	T.TNFL	EQ	<^o000031>
.Assume	T.TID	EQ	<^o000032>
.Assume	T.TTLC	EQ	<^o000036>
.Assume	T.IRNG	EQ	<^o000040>
.Assume	T.IPUT	EQ	<^o000042>
.Assume	T.ICTR	EQ	<^o000044>
.Assume	T.IGET	EQ	<^o000046>
.Assume	T.ITOP	EQ	<^o000050>
.Assume	T.OPUT	EQ	<^o000260>
.Assume	T.OCTR	EQ	<^o000262>
.Assume	T.OGET	EQ	<^o000264>
.Assume	T.OTOP	EQ	<^o000266>
.Assume	T.RTRY	EQ	<^o000340>
.Assume	T.TBLK	EQ	<^o000342>
.Assume	T.CBSZ	EQ	<^o000360>
.Page
MTI$M=0
DHMD$M=0
DLMD$M=0
DZMD$M=0
MAT$S=1
MMG$T=0
SYT$K=0
	.TCBDF	YES,==
.Page
.Assume	T.CNFG	EQ	000000
.Assume	T.CNF2	EQ	<^o000002>
.Assume	T.TFIL	EQ	<^o000004>
.Assume	T.FCNT	EQ	<^o000005>
.Assume	T.WID	EQ	<^o000006>
.Assume	T.OCHR	EQ	<^o000010>
.Assume	T.LPOS	EQ	<^o000011>
.Assume	T.OWNR	EQ	<^o000012>
.Assume	T.STAT	EQ	<^o000014>
.Assume	T.CSR	EQ	<^o000016>
.Assume	T.VEC	EQ	<^o000020>
.Assume	T.PRI	EQ	<^o000022>
.Assume	T.JOB	EQ	<^o000024>
.Assume	T.PUN	EQ	<^o000025>
.Assume	T.NFIL	EQ	<^o000026>
.Assume	T.PTTI	EQ	<^o000027>
.Assume	T.TCTF	EQ	<^o000030>
.Assume	T.TNFL	EQ	<^o000031>
.Assume	T.TID	EQ	<^o000032>
.Assume	T.TTLC	EQ	<^o000036>
.Assume	T.IRNG	EQ	<^o000040>
.Assume	T.IPUT	EQ	<^o000042>
.Assume	T.ICTR	EQ	<^o000044>
.Assume	T.IGET	EQ	<^o000046>
.Assume	T.ITOP	EQ	<^o000050>
.Assume	T.OPUT	EQ	<^o000260>
.Assume	T.OCTR	EQ	<^o000262>
.Assume	T.OGET	EQ	<^o000264>
.Assume	T.OTOP	EQ	<^o000266>
.Assume	T.AST	EQ	<^o000340>
.Assume	T.CBSZ	EQ	<^o000342>
.Page
MTI$M=0
DHMD$M=0
DLMD$M=0
DZMD$M=0
MAT$S=1
MMG$T=1
SYT$K=0
	.TCBDF	YES,==
.Page
.Assume	T.CNFG	EQ	000000
.Assume	T.CNF2	EQ	<^o000002>
.Assume	T.TFIL	EQ	<^o000004>
.Assume	T.FCNT	EQ	<^o000005>
.Assume	T.WID	EQ	<^o000006>
.Assume	T.OCHR	EQ	<^o000010>
.Assume	T.LPOS	EQ	<^o000011>
.Assume	T.OWNR	EQ	<^o000012>
.Assume	T.STAT	EQ	<^o000014>
.Assume	T.CSR	EQ	<^o000016>
.Assume	T.VEC	EQ	<^o000020>
.Assume	T.PRI	EQ	<^o000022>
.Assume	T.JOB	EQ	<^o000024>
.Assume	T.PUN	EQ	<^o000025>
.Assume	T.NFIL	EQ	<^o000026>
.Assume	T.PTTI	EQ	<^o000027>
.Assume	T.TCTF	EQ	<^o000030>
.Assume	T.TNFL	EQ	<^o000031>
.Assume	T.TID	EQ	<^o000032>
.Assume	T.TTLC	EQ	<^o000036>
.Assume	T.IRNG	EQ	<^o000040>
.Assume	T.IPUT	EQ	<^o000042>
.Assume	T.ICTR	EQ	<^o000044>
.Assume	T.IGET	EQ	<^o000046>
.Assume	T.ITOP	EQ	<^o000050>
.Assume	T.OPUT	EQ	<^o000260>
.Assume	T.OCTR	EQ	<^o000262>
.Assume	T.OGET	EQ	<^o000264>
.Assume	T.OTOP	EQ	<^o000266>
.Assume	T.AST	EQ	<^o000340>
.Assume	T.CBSZ	EQ	<^o000344>
.Page
MTI$M=0
DHMD$M=0
DLMD$M=0
DZMD$M=0
MAT$S=0
MMG$T=0
SYT$K=1
	.TCBDF	YES,==
.Page
.Assume	T.CNFG	EQ	000000
.Assume	T.CNF2	EQ	<^o000002>
.Assume	T.TFIL	EQ	<^o000004>
.Assume	T.FCNT	EQ	<^o000005>
.Assume	T.WID	EQ	<^o000006>
.Assume	T.OCHR	EQ	<^o000010>
.Assume	T.LPOS	EQ	<^o000011>
.Assume	T.OWNR	EQ	<^o000012>
.Assume	T.STAT	EQ	<^o000014>
.Assume	T.CSR	EQ	<^o000016>
.Assume	T.VEC	EQ	<^o000020>
.Assume	T.PRI	EQ	<^o000022>
.Assume	T.JOB	EQ	<^o000024>
.Assume	T.PUN	EQ	<^o000025>
.Assume	T.NFIL	EQ	<^o000026>
.Assume	T.PTTI	EQ	<^o000027>
.Assume	T.TCTF	EQ	<^o000030>
.Assume	T.TNFL	EQ	<^o000031>
.Assume	T.TID	EQ	<^o000032>
.Assume	T.TTLC	EQ	<^o000036>
.Assume	T.IRNG	EQ	<^o000040>
.Assume	T.IPUT	EQ	<^o000042>
.Assume	T.ICTR	EQ	<^o000044>
.Assume	T.IGET	EQ	<^o000046>
.Assume	T.ITOP	EQ	<^o000050>
.Assume	T.OPUT	EQ	<^o000260>
.Assume	T.OCTR	EQ	<^o000262>
.Assume	T.OGET	EQ	<^o000264>
.Assume	T.OTOP	EQ	<^o000266>
.Assume	T.XFLG	EQ	<^o000340>
.Assume	T.XCNT	EQ	<^o000341>
.Assume	T.XPRE	EQ	<^o000342>
.Assume	T.XBUF	EQ	<^o000344>
.Assume	T.CNT	EQ	<^o000352>
.Assume	T.CBSZ	EQ	<^o000354>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.TCFDF	-- Terminal configuration bits
;+
;	.TCFDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|BK |TT |REM|TTS|     LINSP$	|PAG|TCB|PCT|TAN|FBT|FOR|CR |HWT|
;	|SP$|LC$|OT$|PC$|		|E$ |IT$|LO$|SI$|TY$|M$ |LF$|AB$|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	BKSP$  = 1	use <BS><SP><BS> for <RUBOUT>
;	TTLC$  = 1	allow LC input
;	REMOT$ = 1	line supports modem
;	TTSPC$ = 1	Char mode input
;	LINSP$ = 00-17	Line speed mask
;	PAGE$  = 1	XON/XOFF on output
;	TCBIT$ = 1	no wait
;	PCTLO$ = 1	Pass Ctrl/O on output
;	TANSI$ = 1	ANSI terminal (for TECO?)
;	FBTTY$ = 1	^F, ^X, and ^B are special
;	FORM$  = 1	<FF> supported by terminal
;	CRLF$  = 1	do wrap
;	HWTAB$ = 1	<HT> supported by terminal
;-
.MACRO	.TCFDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;???
	.BS	HWTAB$		;0 Hardware tab if set
	.BS	CRLF$		;1 Output CR/LF when T.TLPOS>T.WID
	.BS	FORM$		;2 Hardware FF if set
	.BS	FBTTY$		;3 Process CTRL/F & CTRL/B if set
	.BS	TANSI$		;4 Terminal understands ANSI escapes (for TECO)
	.BS	PCTLO$		;5 Pass Ctrl/O on output
	.BS	TCBIT$		;6 Inhibit TT wait if set
	.BS	PAGE$		;7 XON/XOFF processing enabled
	.BS	LINSP$	4.	;8-11 Line speed mask
	.BS	TTSPC$		;12 Char mode input (special mode)
	.BS	REMOT$		;13 Terminal is remote if set
	.BS	TTLC$		;14 Lower to upper case conversion disabled if set
	.BS	BKSP$		;15 Use backspace for rubout
.ENDM	.TCFDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TCFDF
.PRINT ;.TCFDF
	.TCFDF	YES,==:
.Page
.Assume	HWTAB$	EQ	000001
.Assume	CRLF$	EQ	<^o000002>
.Assume	FORM$	EQ	<^o000004>
.Assume	FBTTY$	EQ	<^o000010>
.Assume	TANSI$	EQ	<^o000020>
.Assume	PCTLO$	EQ	<^o000040>
.Assume	TCBIT$	EQ	<^o000100>
.Assume	PAGE$	EQ	<^o000200>
.Assume	LINSP$	EQ	<^o007400>
.Assume	TTSPC$	EQ	<^o010000>
.Assume	REMOT$	EQ	<^o020000>
.Assume	TTLC$	EQ	<^o040000>
.Assume	BKSP$	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.THKDF	-- (Multi) Terminal hooks for handlers
;+
;	.THKDF
;
;		+-------+
;THK.LE:	|THK.SZ	| [00]	Length (bytes) of data structure
;	+-------+-------+
;THK.NU:|TCBMAX |	  [01]	Number of TCBs (number of LUNs)
;	+-------+-------+
;THK.TC:|   ->TCBLST	| [02]	Pointer to TCB list (console TCB)
;	+---------------+
;THK.OE:|   ->MTOENB	| [04]	Pointer to terminal output enable routine
;	+---------------+
;THK.BK:|   ->MTYBRK	| [06]	Pointer to BREAK control routine
;	+---------------+
;THK.CT:|   ->MTYCTL	| [10]	Pointer to modem control routine
;	+---------------+
;THK.ST:|   ->MTYSTA	| [12]	Pointer to modem status routine
;	+---------------+
;THK.SZ			  =014
;
;-
.MACRO	.THKDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;pointed to by $THKPT in .FIXDF
	.DS	THK.LE	,,B	;Length of data structure (=THK.SZ)
	.DS	THK.NU	,,B	;Number of TCBs (LUNs) in system
	.DS	THK.TC		;-> TCB List
	.DS	THK.OE		;-> Output enable routine
	.DS	THK.BK		;-> BREAK control routine
	.DS	THK.CT		;-> Line control routine
	.DS	THK.ST		;-> Line status routine
	.DS	THK.SZ	0	;Length of data structure
	TH.GOC	==: 1		;Hook function code = Get output character
	TH.PIC	==: 2		;Hook function code = Put input character
.ENDM	.THKDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.THKDF
.PRINT ;.THKDF
	.THKDF	YES,==:

.Assume	THK.LE	EQ	0
.Assume	THK.NU	EQ	1
.Assume	THK.TC	EQ	<^o2>
.Assume	THK.OE	EQ	<^o4>
.Assume	THK.BK	EQ	<^o6>
.Assume	THK.CT	EQ	<^o10>
.Assume	THK.ST	EQ	<^o12>
.Assume	THK.SZ	EQ	<^o14>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.TIMDF	-- time word pair
;+
;	.TIMDF
;
;	+-------+-------+
;TIM.HI:|		|[0]
;	+-------+-------+
;TIM.LO:|		|[2]
;	+-------+-------+
;TIM.SZ:		 [4]
;-
.MACRO	.TIMDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;used most everywhere the time is
	.DS	TIM.HI		;high order bits
	.DS	TIM.LO		;low order  bits
	.DS	TIM.SZ	0	;size of area
.ENDM	.TIMDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TIMDF
.PRINT ;.TIMDF
	.TIMDF	YES,==:

.Assume	TIM.HI	EQ	0
.Assume	TIM.LO	EQ	<^o2>
.Assume	TIM.SZ	EQ	<^o4>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.TS2DF	-- define terminal status 2		*UNIMPLEMENTED*
.SbTtl	.TSTDF	-- Terminal Status word
;+
;	.TSTDF
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;	|CON|CTR|DH |DZ |HNG|SHA|<rs|HAN|PAG|INE|WR |DTA|HAN|DHO|CTR|FIL|
;	|SL$|LC$|11$|11$|UP$|RE$|vd>|MC$|GE$|XP$|WT$|CH$|MT$|IP$|LU$|L$ |
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	CONSL$ = 1	Terminal is console
;	CTRLC$ = 1	^C^C entered
;	DZ11$  = 1	Interface is a DZ{|V|Q}11
;	DH11$  = 1	Interface is a DH series interface
;		DZ11$ & DH11$ = 0 Interface is a DL[V]11
;		DZ11$ & DH11$ = 1 undefined and reserved
;	HNGUP$ = 1	Terminal (MODEM) has hung up
;	SHARE$ = 1	Terminal is a shared console
;	HANMC$ = 1	Handler attached to line will handle modem control
;	PAGE$  = 1	Output is suspended by XOFF
;	INEXP$ = 1	Output interrupt is expected
;	WRWT$  = 1	Wait for TT: .WRITE to finish
;	DTACH$ = 1	Detach in progress
;	HANMT$ = 1	LUN owned by a device handler
;	DHOIP$ = 1	Output in progress on DH line
;	CTRLU$ = 1	^U in progress
;	FILL$  = 1	Fill sequence in progress
;-
.MACRO	.TSTDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;T.STAT in TCBDf
	.BS	FILL$		; 0 Fill sequence in progress
	.BS	CTRLU$		; 1 CTRL/U in progress
	.BS	DHOIP$		; 2 Output in progress on DH
	.BS	HANMT$		; 3 LUN owned by a device handler
	.BS	DTACH$		; 4 Detach in progress
	.BS	WRWT$		; 5 .PRINT <-> .WRITE synch flag
	.BS	INEXP$		; 6 Output interrupt expected
	.BS	PAGE$		; 7 Terminal is X-ED OFF
	.BS	HANMC$		; 8 Handler will control modem signals
	.BS	,		;<reserved>
	.BS	SHARE$		;10 Terminal is shared console
	.BS	HNGUP$		;11 Terminal has hung up
	.BS	DZ11$		;12 Terminal interface is DZ11
	.BS	DH11$		;13 Terminal interface is DH11
				;12 and 13 off => interface is DL11
				;12 and 13 on  => undefined and reserved
	.BS	CTRLC$		;14 Double CTRL/C was struck
	.BS	CONSL$		;15 Terminal is acting as console (DL11 only)
.ENDM	.TSTDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TSTDF
.PRINT ;.TSTDF
	.TSTDF	YES,==:
.Page
.Assume	FILL$	EQ	000001
.Assume	CTRLU$	EQ	<^o000002>
.Assume DHOIP$	EQ	<^o000004>
.Assume	HANMT$	EQ	<^o000010>
.Assume	DTACH$	EQ	<^o000020>
.Assume	WRWT$	EQ	<^o000040>
.Assume	INEXP$	EQ	<^o000100>
.Assume	PAGE$	EQ	<^o000200>
.Assume HANMC$	EQ	<^o000400>
.Assume	SHARE$	EQ	<^o002000>
.Assume	HNGUP$	EQ	<^o004000>
.Assume	DZ11$	EQ	<^o010000>
.Assume	DH11$	EQ	<^o020000>
.Assume	CTRLC$	EQ	<^o040000>
.Assume	CONSL$	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.TTCDF	-- TTCNFG area definitions
;+
;	.TTCDF
;
;		+-------+
;$TTWID:	|	|[-6] Carriage width
;	+-------+-------+
;	|   CR	|	 [-5] ???
;	+-------+-------+
;$FILCH:	|	|[-4] Char to fill with
;	+-------+-------+
;$FILCT:|	|	 [-3] number of fills
;	+-------+-------+
;$OUTCH:	|	|[-2] character to print
;	+-------+-------+
;$LINPO:|	|	 [-1] carriage position
;	+-------+-------+
;$TTCNF:|		|[00] Terminal characteristics		v(.TCFDF)
;	+-------+-------+
;-
.MACRO	.TTCDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	-6.,LIST,E	;($TCFIG in .FIXDF)
	.DS	$TTWID	,,B	;Carriage width
	.DS		,,B	;<res> (CR)
	.DS	$FILCH	,,B	;Char to fill with
	.DS	$FILCT	,,B	;number of fills
	.DS	$OUTCH	,,B	;char to print
	.DS	$LINPO	,,B	;position on carriage
	.DS	$TTCNF		;Terminal characteristics	v(.TCFDF)
.ENDM	.TTCDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.TTCDF
.PRINT ;.TTCDF
	.TTCDF	YES,==:

.Assume	$TTWID	EQ	<^o-6>
.Assume	$FILCH	EQ	<^o-4>
.Assume	$FILCT	EQ	<^o-3>
.Assume	$OUTCH	EQ	<^o-2>
.Assume	$LINPO	EQ	<^o-1>
.Assume	$TTCNF	EQ	0
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.UBVDF	-- Entry vector in UBX.SYS
;+
;	.UBVDF
;
;	+-------+-------+
;UB.GET:|   BR GETUMR	|[000]	branch to Get Temp UMR
;	+-------+-------+
;UB.ALL:|   BR ALLUMR	|[002]	branch to Allocate Perm UMR
;	+-------+-------+
;UB.RLS:|   BR RLSUMR	|[004]	branch to Release UMR
;	+-------+-------+
;-
.MACRO	.UBVDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;-> by $H2UB in fixed if UB loaded
	.DS	UB.GET		;Br to GETUMR
	.DS	UB.ALL		;Br to ALLUMR
	.DS	UB.RLS		;Br to RLSUMR
.ENDM	.UBVDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.UBVDF
.PRINT ;.UBVDF
	.UBVDF	YES,==:

.Assume	UB.GET	EQ	<^o000000>
.Assume	UB.ALL	EQ	<^o000002>
.Assume	UB.RLS	EQ	<^o000004>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.UEBDF	-- user error byte codes
;+
;	.UEBDF
;
;	 000 000 000 000 000 000 000 000
;	 200 100 040 020 010 004 002 001
;$USRRB:+---+---+---+---+---+---+---+---+
;I.PERR:|NON| <res> |UNC|FAT|ERR|WAR|SUC|
;$ERRLE:|E$ |	    |ON$|AL$|OR$|N$ |CS$|
;	+---+---+---+---+---+---+---+---+
;
;	NONE$  = 1	if SET ERROR NONE in effect (ERRLEV only)
;	UNCON$ = 1	if unconditional error occurred
;	FATAL$ = 1	if a fatal error occurred
;	ERROR$ = 1	if an error error occurred
;	WARN$  = 1	if a warning error occurred
;	SUCCS$ = 1	if no error
;
;	Pick the highest bit, ignore any lower bit
;-
.MACRO	.UEBDF	LIST,E
.IIF NDF ...V99 .MCALL .BSECT
	.BSECT	,LIST,E		;($USRRB in .SYCDF; I.PERR in .IMPDF;
				;$EXTIN, $ERRLE in .FIXDF)
	.BS	SUCCS$		;Success	I
	.BS	WARN$		;Warning	W
	.BS	ERROR$		;Error		E
	.BS	FATAL$		;Fatal error	F
	.BS	UNCON$		;Unconditional error	U
	.BS	,	2	;<res>
	.BS	NONE$		;Set in ERRLEV if SET ERROR NONE in effect
.ENDM	.UEBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.UEBDF
.PRINT ;.UEBDF
	.UEBDF	YES,==:

.Assume	SUCCS$	EQ	001
.Assume	WARN$	EQ	<^o002>
.Assume	ERROR$	EQ	<^o004>
.Assume	FATAL$	EQ	<^o010>
.Assume	UNCON$	EQ	<^o020>
.Assume	NONE$	EQ	<^o200>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.USSDF	-- codes for special directory requests
;+
;	.USSDF
;
;	These codes are passed to handlers with the SPECL$ bit set
;-
.MACRO	.USSDF	LIST,E
.IIF NDF ...V99 .MCALL .LIST.
	.LIST.	LIST,E
;				;(Q.FUNC in .QELDF)
	.EQU	CLOS..	001	;Close operation
	.EQU	DELE..	002	;Delete operation
	.EQU	LOOK..	003	;Lookup operation
	.EQU	ENTR..	004	;Enter operation
	.EQU	RENM..	005	;Rename operation
	.EQU	PURG..	006	;Purge operation
	.EQU	INFO..	007	;(G,S)F(DAT,STA,INF), FPROT operations
	.EQU	CLOZ..	010	;Close with size operation
;<fut> other file operations
.ENDM	.USSDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.USSDF
.PRINT ;.USSDF
	.USSDF	YES,==:
.Page
.Assume	CLOS..	EQ	001
.Assume	DELE..	EQ	<^o002>
.Assume	LOOK..	EQ	<^o003>
.Assume	ENTR..	EQ	<^o004>
.Assume	RENM..	EQ	<^o005>
.Assume	PURG..	EQ	<^o006>
.Assume	INFO..	EQ	<^o007>
.Assume	CLOZ..	EQ	<^o010>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.VECHD	-- Vector area				*IN HARDWA.MAC*
.SbTtl	.VERDF	-- Version and release area
;+
;	.VERDF
;
;	+-------+-------+
;VER.RL:|		|[110]	release info in RAD50 (vnn)
;	+-------+-------+
;VER.VS:|		|[112]	version information
;	+-------+-------+
;	:		:
;
;VER.NA	= 100000		not apply (omitted)
;VER.EL = 177777		end of list
;-
.MACRO	.VERDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o110>,LIST,E	;block 0 offset 110
	.DS	VER.RL		;release info in RAD50 (vnn)
	.DS	VER.VS		;version (first entry)
	.EQU	VER.NA	<^o100000> ;N/A value
	.EQU	VER.EL	<^o177777> ;EOL value
.ENDM	.VERDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.VERDF
.PRINT ;.VERDF
	.VERDF	YES,==:
.Page
.Assume	VER.RL	EQ	<^o000110>
.Assume	VER.VS	EQ	<^o000112>
.Assume	VER.NA	EQ	<^o100000>
.Assume	VER.EL	EQ	<^o177777>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.VTBDF	-- Virtual overlay table definition
;+
;	+-------+-------+
;VTB.WD:|    -> WDB	|[0]
;	+-------+-------+
;VTB.BK:| file block no.|[2]
;	+-------+-------+
;VTB.SZ:| word count	|[4]
;	+-------+-------+
;VTB.ES:		 [6]
;-
.MACRO	.VTBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;RL.SEG in .RELDF; SV.SEG in .SAVDF
	.DS	VTB.WD		;address of WDB for overlay
	.DS	VTB.BK		;file block number for overlay
	.DS	VTB.SZ		;word count for .READ
	.DS	VTB.ES	0	;entry size
.ENDM	.VTBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.VTBDF
.PRINT ;.VTBDF
	.VTBDF	YES,==:

.Assume	VTB.WD	EQ	0
.Assume	VTB.BK	EQ	<^o2>
.Assume	VTB.SZ	EQ	<^o4>
.Assume	VTB.ES	EQ	<^o6>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.WCBDF	-- window control block
;+
;	.WCBDF
;
;	+-------+-------+
;W.BRCB:|    -> RCB	|[00]					ov(.RCBDF)
;	+-------+-------+
;W.BLVR:| Low Virt Addr	|[02]
;	+-------+-------+
;W.BHVR:| High Virt Addr|[04]
;	+-------+-------+
;W.BSIZ:|  Size(window)	|[06]
;	+-------+-------+
;W.BOFF:| Region Offset	|[10]
;	+-------+-------+
;W.BFPD:	|1st PDR|[12]
;	+-------+-------+
;W.BNPD:|Num PDR|	 [13]
;	+-------+-------+
;W.BLPD:|  v(last PDR)	|[14]
;	+-------+-------+
;-
.MACRO	.WCBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;???
	.DS	W.BRCB		;-> RCB				ov(.RCBDF)
	.DS	W.BLVR		;Low virtual addr
	.DS	W.BHVR		;High virtual addr
	.DS	W.BSIZ		;Size (0 => WCB not in use)
	.DS	W.BOFF		;Offset into region
	.DS	W.BFPD	,,B	;First PDR
	.DS	W.BNPD	,,B	;Number of PDRs
	.DS	W.BLPD		;Contents of last PDR
	.DS	W.BLGH	0	;Size of window control block
	.EQU	W.NNUM	8.	;Number of window control blocks
	.EQU	WN.WSZ	W.BLGH*W.NNUM/2. ;Total wd size of window blocks
.ENDM	.WCBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.WCBDF
.PRINT ;.WCBDF
	.WCBDF	YES,==:
.Page
.Assume	W.BRCB	EQ	000000
.Assume	W.BLVR	EQ	<^o000002>
.Assume	W.BHVR	EQ	<^o000004>
.Assume	W.BSIZ	EQ	<^o000006>
.Assume	W.BOFF	EQ	<^o000010>
.Assume	W.BFPD	EQ	<^o000012>
.Assume	W.BNPD	EQ	<^o000013>
.Assume	W.BLPD	EQ	<^o000014>
.Assume	W.BLGH	EQ	<^o000016>
.Assume	W.NNUM	EQ	8.
.Assume	WN.WSZ	EQ	7.*8.
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.WDBDF	-- window definition block		*ALSO IN SYSMAC.SML*
;+
;	.WDBDF
;
;		+-------+
;W.NID:		|win id |[00]
;	+-------+-------+
;W.NAPR:|APR num|	 [01]
;	+-------+-------+
;W.NBAS:|   base addr	|[02]
;	+-------+-------+
;W.NSIZ:|  window size	|[04]
;	+-------+-------+
;W.NRID:|  region id	|[06]
;	+-------+-------+
;W.NOFF:|  window offset|[10]
;	+-------+-------+
;W.NLEN:|  window len	|[12]
;	+-------+-------+
;W.NSTS:|  window status|[14]
;	+-------+-------+
;W.NLGH:		 [016]
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;W.NSTS:|WS.|WS.|WS.|WS.|WS.|WS.|WS.|WS.|		|WS.|WS.|WS.MOD	|
;	|CRW|UNM|ELW|DSI|IDD|OVR|RO |MAP|		| D | I |	|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;			    <TSX>			|WS.SPA	|
;							|	|WS.DEF = 0
;							+-------+
;	WS.CRW	= 1	window created successfully
;	WS.UNM	= 1	one or more windows were unmapped
;	WS.ELW	= 1	one or more windows were eliminated
;	WS.DSI	= 1	D-space inactive when both WS.D=1 and WS.I=1
;	WS.IDD	= 1	D-space window(s) different than I-space windows
;				when both WS.D=1 and WS.I=1
;	WS.OVR	= 1	window may overlay another<TSX-only>
;	WS.RO	= 1	window is read-only
;	WS.MAP	= 1	create and map window
;	WS.SPA	= 14	field to indicate address space(s)
;	WS.DEF	= 00	If cleared, take default
;	 WS.D	= 1	map into data space
;	 WS.I	= 1	map into instruction space
;	WS.MOD	= 3	field to indicate mode
;	 WS.U	= 0	user mode
;	 WS.S	= 1	supy mode
;	 WS.C	= 2	current mode
;	 <res>	= 3
;-
.MCall	.WDBDF		;test version from SYSMAC
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.WDBDF
.PRINT ;.WDBDF
	.WDBDF	YES,==:

.Assume	W.NID	EQ	<^o000000>
.Assume	W.NAPR	EQ	<^o000001>
.Assume	W.NBAS	EQ	<^o000002>
.Assume	W.NSIZ	EQ	<^o000004>
.Assume	W.NRID	EQ	<^o000006>
.Assume	W.NOFF	EQ	<^o000010>
.Assume	W.NLEN	EQ	<^o000012>
.Assume	W.NSTS	EQ	<^o000014>
.Assume	W.NLGH	EQ	<^o000016>
.Assume	WS.MOD	EQ	<^o000003>
.Assume	WS.U	EQ	<^o000000>
.Assume	WS.S	EQ	<^o000001>
.Assume	WS.C	EQ	<^o000002>
.Assume	WS.SPA	EQ	<^o000014>
.Assume	WS.DEF	EQ	<^o000000>
.Assume	WS.I	EQ	<^o000004>
.Assume	WS.D	EQ	<^o000010>
.Assume	WS.MAP	EQ	<^o000400>
.Assume	WS.RO	EQ	<^o001000>
.Assume	WS.OVR	EQ	<^o002000>
.Assume	WS.IDD	EQ	<^o004000>
.Assume	WS.DSI	EQ	<^o010000>
.Assume	WS.ELW	EQ	<^o020000>
.Assume	WS.UNM	EQ	<^o040000>
.Assume	WS.CRW	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.X%%DF	-- chain to %%* arguments layout (except .XITDF)
;+
;	Model layout is .XXXDF
;-
.SbTtl	.XBADF	-- chain to BATCH argument format
;+
;	.XBADF
;
;	+-------+ - - - +-------+
;XBA.CM:|	|	|	|[510] ASCIZ command
;	+-------+ - - - +-------+
;-
.MACRO	.XBADF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;Chain area for BATCH
	.DS	XBA.CM		;ASCIZ command string
.ENDM	.XBADF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XBADF
.PRINT ;.XBADF
	.XBADF	YES,==:

.Assume	XBA.CM	EQ	<^o510>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XCRDF	-- chain to CREF argument format
;+
;	.XCRDF
;
;	+---------------+
;XCR.CO:|		|[510]	output channel number
;	+---------------+
;XCR.DO:|		|[512]	RAD50 output device name
;	+---------------+
;XCR.BO:|		|[514]	First output block number
;	+---------------+
;XCR.CI:|		|[516]	input channel number
;	+---------------+
;XCR.DI:|		|[520]	RAD50 input device name
;	+---------------+
;XCR.BI:|		|[522]	input highest block written+1
;	+---------------+			(XCR.80 = 0)
;XCR.LI:|		|[524]	listing width
;	+---------------+			(XCR.132 = -1)
;XCR.RT:|		|[526]	Dblock to chain back to (XCR.XT = 0)
;	+		+
;	:		:
;	|		|
;	+-------+-------+ . . .	+-------+
;XCR.TI:|	|	|	|	|[536] ASCIZ title line
;	+-------+-------+ . . .	+-------+
;-
.MACRO	.XCRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;Chain area for CREF
	.DS	XCR.CO		;Output channel number
	.DS	XCR.DO		;Output device name in RAD50
	.DS	XCR.BO		;First output block number
	.DS	XCR.CI		;Input channel number
	.DS	XCR.DI		;Input device name in RAD50
	.DS	XCR.BI		;Last output block number written+1
	.DS	XCR.LI		;Listing width
	.EQU	XCR.80	0	;80 column
	.EQU	XCR.132	-1	;132 column
	.DS	XCR.RT	4.	;return dblock specification
	.EQU	XCR.XT	0	;exit rather than return
	.DS	XCR.TI	0	;ASCIZ title line
.ENDM	.XCRDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XCRDF
.PRINT ;.XCRDF
	.XCRDF	YES,==:

.Assume	XCR.CO	EQ	<^o000510>
.Assume	XCR.DO	EQ	<^o000512>
.Assume	XCR.BO	EQ	<^o000514>
.Assume	XCR.CI	EQ	<^o000516>
.Assume	XCR.DI	EQ	<^o000520>
.Assume	XCR.BI	EQ	<^o000522>
.Assume	XCR.LI	EQ	<^o000524>
.Assume	XCR.80	EQ	<^o000000>
.Assume	XCR.132	EQ	<^o177777>
.Assume	XCR.RT	EQ	<^o000526>
.Assume	XCR.XT	EQ	<^o000000>
.Assume	XCR.TI	EQ	<^o000536>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XEDDF	-- chain to EDIT argument format
;+
;	.XEDDF
;
;	+-------+-------+
;XED.FG:|		|[510]
;	+-------+-------+ - - - +-------+
;XED.1F:|	|	|	|	|[512] first (only) file ASCIZ
;	+-------+-------+ - - - +-------+
;
;	+-------+-------+ - - - +-------+
;XED.2F:|	|	|	|	|[540] second file  ASCIZ
;	+-------+-------+ - - - +-------+
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;XED.FG:|XED|		<res>		|XED|		<res>	    |XED|
;	|.CR|				|.IN|			    |.OU|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	XED.CR = 1	/CREATE
;	XED.IN = 1	/INSPECT
;	XED.OU = 1	/OUTPUT
;-
.MACRO	.XEDDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;chain arguments for EDIT
	.DS	XED.FG		;flag word
	.BSECT	,LIST,E
	.BS	XED.OU		;/OUTPUT
	.BS	,	6.	;<res>
	.BS	XED.IN		;/INSPECT
	.BS	,	7.	;<res>
	.BS	XED.CR		;/CREATE
	.DS	XED.1F	<^o26>,B ;first file ASCIZ
	.DS	XED.2F	<^o26>,B ;Second file ASCIZ
.ENDM	.XEDDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XEDDF
.PRINT ;.XEDDF
	.XEDDF	YES,==:

.Assume	XED.FG	EQ	<^o510>
.Assume	XED.1F	EQ	<^o512>
.Assume	XED.2F	EQ	<^o540>
.Assume	XED.OU	EQ	<^o000001>
.Assume	XED.IN	EQ	<^o000200>
.Assume	XED.CR	EQ	<^o100000>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XHEDF	-- chain to HELP argument format
;+
;	.XHEDF
;
;	+-------+ - - -	+-------+
;XHE.CM:|	|	|	|[600] command ASCIZ
;	+-------+ - - -	+-------+
;
;XHE.T1	= '@	XHE.T{1|2|3|4} first 4 chars of TECO style help command
;XHE.T2 = '^
;XHE.T3 = 'U
;XHE.T4 = '!
;XHE.TZ = '!	terminator for TECO style help command
;-
.MACRO	.XHEDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o600>,LIST,E	;chain to HELP command area
	.DS	XHE.CM		;ASCIZ command or TECO style command
	.EQU	XHE.T1	'@	;first 4 chars of TECO command
	.EQU	XHE.T2	'^
	.EQU	XHE.T3	'U
	.EQU	XHE.T4	'!
	.EQU	XHE.TZ	'!	;terminator for help command
.ENDM	.XHEDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XHEDF
.PRINT ;.XHEDF
	.XHEDF	YES,==:

.Assume	XHE.CM	EQ	<^o600>
.Assume	XHE.T1	EQ	'@
.Assume	XHE.T2	EQ	'^
.Assume	XHE.T3	EQ	'U
.Assume	XHE.T4	EQ	'!
.Assume	XHE.TZ	EQ	'!
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XITDF	-- define EXIT argument area
;+
;	.XITDF
;
;	+-------+-------+
;XIT.NU:|		|[510] bytes in commands(s) including null
;	+-------+-------+
;XIT.AS:	|	|[512] asciz command(s)
;		:	:
;-
.MACRO	.XITDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;area for commands from BG job to KMON
	.DS	XIT.NU		;number of bytes in command(s)
	.DS	XIT.AS		;command(s) in asciz
.ENDM	.XITDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XITDF
.PRINT ;.XITDF
	.XITDF	YES,==:

.Assume	XIT.NU	EQ	<^o000510>
.Assume	XIT.AS	EQ	<^o000512>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XKEDF	-- chain to (and from) KED argument format
;+
;	.XKEDF
;
;	+-------+-------+
;XKE.PN:|		|[510] PPN / 0
;	+-------+-------+
;XKE.DB:|		|[512] DBLK of program to chain back to or 0
;	+		+
;	|		|					o(.DBKDF)
;	+		+
;	|		|
;	+		+
;	|		|
;	+-------+-------+ - - -	+-------+
;XKE.CM:|	|	|	|	|[522] command ASCIZ
;	+-------+-------+ - - -	+-------+
;-
.MACRO	.XKEDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;chain area layout for KED/KEX
	.DS	XKE.PN		;<res> for RSTS/E PPN (0)
	.DS	XKE.DB	4.	;DBlock of program to chain to
	.DS	XKE.CM		;ASCIZ command
.ENDM	.XKEDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XKEDF
.PRINT ;.XKEDF
	.XKEDF	YES,==:

.Assume	XKE.PN	EQ	<^o510>
.Assume	XKE.DB	EQ	<^o512>
.Assume	XKE.CM	EQ	<^o522>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XLDDF	-- chain to (and from) LD argument format
;+
;	.XLDDF
;
;	+-------+-------+
;XLD.PN:|		|[510]	<res> for PPN / 0
;	+-------+-------+
;XLD.DB:|		|[512] DBLK of program to chain back to or 0
;	+		+
;	|		|					o(.DBKDF)
;	+		+
;	|		|
;	+		+
;	|		|
;	+-------+-------+ - - -	+-------+	XLD.TT = 377	TT/@ command
;XLD.CM:|	|	|	|	|[522] command ASCIZ
;	+-------+-------+ - - -	+-------+
;
;		+-------+			XLD.RT = 177	returning
;XLD.TY:	|	|[522]	request type
;	+-------+-------+
;XLD.NO:|	|	 [523]	error number on return
;	+-------+-------+
;XLD.ER:	|	|[524]	error byte mask value on return	v(.UEBDF)
;	+-------+-------+ - - -	+-------+
;XLD.MS:|	|	|	|	|[525] error message text ASCIZ
;	+-------+-------+ - - -	+-------+
;-
.MACRO	.XLDDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;chain area layout for LD
	.DS	XLD.PN		;<res> for RSTS/E PPN (0)
	.DS	XLD.DB	4.	;DBlock of program to chain to
	.DS	XLD.CM		;ASCIZ command
	.DSECT	XLD.CM,LIST,E	;chain area on return from LD
	.DS	XLD.TY	,,B	;type of request
	.EQU	XLD.TT	<^o377>	;get command from TT or @ file
	.EQU	XLD.RT	<^o177>	;this is a chain back
	.DS	XLD.NO	,,B	;error number
	.DS	XLD.ER	,,B	;error byte bit mask	v(.UEBDF)
	.DS	XLD.MS		;error text ASCIZ
.ENDM	.XLDDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XLDDF
.PRINT ;.XLDDF
	.XLDDF	YES,==:
.Page
.Assume	XLD.PN	EQ	<^o510>
.Assume	XLD.DB	EQ	<^o512>
.Assume	XLD.CM	EQ	<^o522>
.Assume	XLD.TY	EQ	<^o522>
.Assume	XLD.NO	EQ	<^o523>
.Assume	XLD.ER	EQ	<^o524>
.Assume	XLD.MS	EQ	<^o525>
.Assume	XLD.TT	EQ	<^o377>
.Assume	XLD.RT	EQ	<^o177>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XMADF	-- chain to (and from) MACRO argument format *UNIMPLEMENTED*
.SbTtl	.XQUDF	-- chain to QUEMAN argument format
;+
;	.XQUDF
;
;	+-------+-------+
;XQU.CT:|		|[510] number of switches following
;	+-------+-------+
;XQU.CM:	|	|[512]
;		+-------+
;		:	:
;		+-------+
;
;		+-------+
;XQU.SL:	|  '/'	|[0] XQU.SV = '/
;		+-------+
;XQU.SW:	|letter	|[1]
;		+-------+
;XQU.SZ:		 [2]
;-
.MACRO	.XQUDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;chain area for QUEMAN
	.DS	XQU.CT		;count of switch words to follow
	.DS	XQU.CM		;command buffer
	.DSECT	,LIST,E		;switch entries
	.DS	XQU.SL	,,B	;slash part of switch
	.EQU	XQU.SV	'/	;slash value
	.DS	XQU.SW	,,B	;letter part of switch
	.DS	XQU.SZ	0	;size of a switch word
.ENDM	.XQUDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XQUDF
.PRINT ;.XQUDF
	.XQUDF	YES,==:

.Assume	XQU.CT	EQ	<^o510>
.Assume	XQU.CM	EQ	<^o512>
.Assume	XQU.SL	EQ	0
.Assume	XQU.SW	EQ	1
.Assume	XQU.SZ	EQ	<^o2>
.Assume	XQU.SV	EQ	'/
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XSPDF	-- chain to SPLIT argument format
;+
;	.XSPDF
;
;	+-------+-------+ - - -	+-------+
;XSP.CM:|	|	|	|	|[522] command ASCIZ
;	+-------+-------+ - - -	+-------+
;-
.MACRO	.XSPDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o522>,LIST,E	;chain area layout for SPLIT
	.DS	XSP.CM		;ASCIZ command
.ENDM	.XSPDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XSPDF
.PRINT ;.XSPDF
	.XSPDF	YES,==:

.Assume	XSP.CM	EQ	<^o522>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XTEDF	-- chain to TECO argument format
;+
;	.XTEDF
;
;	+-------+-------+		XTE=NU = -1 New interface
;XTE.FG:|		|510	Flag word
;	+-------+-------+ . . .	+-------+
;XTE.BU:|	|	|	|	|512	Command (null or esc ended)
;	+-------+-------+ . . .	+-------+
;
;	+-------+-------+
;XTE.FG:|		|[510]
;	+-------+-------+ - - - +-------+
;XTE.1F:|	|	|	|	|[512] first (only) file ASCIZ
;	+-------+-------+ - - - +-------+
;
;	+-------+-------+ - - - +-------+
;XTE.2F:|	|	|	|	|[540] second file  ASCIZ
;	+-------+-------+ - - - +-------+
;
;XTE.FL:
;	XTE.NU	177777	new format chain
;	XTE.EI	100200	Execute (followed by asciz file name)
;???	KMOVLY uses 377 and places file at 600+ ???
;	XTE.CR	100000	Create
;	XTE.IN	000200	Inspect
;	XTE.EB	000000	Edit Backup
;-
.MACRO	.XTEDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;chain area layout for TECO
	.DS	XTE.FG		;Flag word
	.DS	XTE.BU	,0	;Command buffer (new format)
	.DS	XTE.1F		;First file (old format)
	.DSECT	<^o540>,LIST,E
	.DS	XTE.2F		;Second file (old format)

	.EQU	XTE.EB	<^o000000> ;edit back flag value
	.EQU	XTE.IN	<^o000200> ;edit inspect flag value
	.EQU	XTE.CR	<^o100000> ;edit create flag value
	.EQU	XTE.EI	<^o100200> ;edit execute flag value
	.EQU	XTE.NU	<^o177777> ;New format flag value
.ENDM	.XTEDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XTEDF
.PRINT ;.XTEDF
	.XTEDF	YES,==:

.Assume	XTE.FG	EQ	<^o510>
.Assume	XTE.BU	EQ	<^o512>
.Assume	XTE.1F	EQ	<^o512>
.Assume	XTE.2F	EQ	<^o540>
.Assume	XTE.EB	EQ	<^o000000>
.Assume	XTE.IN	EQ	<^o000200>
.Assume	XTE.CR	EQ	<^o100000>
.Assume	XTE.EI	EQ	<^o100200>
.Assume	XTE.NU	EQ	<^o177777>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.XXXDF	-- chain to (and from) "standard" argument format
;+
;	.XXXDF
;
;	+-------+-------+
;XXX.PN:|		|[510]	<res> for PPN / 0
;	+-------+-------+
;XXX.DB:|		|[512] DBLK of program to chain back to or 0
;	+		+
;	|		|					o(.DBKDF)
;	+		+
;	|		|
;	+		+
;	|		|
;	+-------+-------+ - - -	+-------+	XXX.TT = 377	TT/@ command
;XXX.CM:|	|	|	|	|[522] command ASCIZ
;	+-------+-------+ - - -	+-------+
;
;		+-------+			XXX.RT = 177	returning
;XXX.TY:	|	|[522]	request type
;	+-------+-------+
;XXX.NO:|	|	 [523]	error number on return
;	+-------+-------+
;XXX.ER:	|	|[524]	error byte mask value on return	v(.UEBDF)
;	+-------+-------+ - - -	+-------+
;XXX.MS:|	|	|	|	|[525] error message text ASCIZ
;	+-------+-------+ - - -	+-------+
;-
.MACRO	.XXXDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o510>,LIST,E	;"standard" chain area layout
	.DS	XXX.PN		;<res> for RSTS/E PPN (0)
	.DS	XXX.DB	4.	;DBlock of program to chain to
	.DS	XXX.TY	0	;type of request
	.EQU	XXX.TT	<^o377>	;get command from TT or @ file
	.EQU	XXX.RT	<^o177>	;this is a chain back
	.DS	XXX.CM		;ASCIZ command
	.DSECT	XXX.CM,LIST,E	;chain area on return from LD
	.DS	XXX.NO	,,B	;error number
	.DS	XXX.ER	,,B	;error byte bit mask	v(.UEBDF)
	.DS	XXX.MS		;error text ASCIZ
.ENDM	.XXXDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.XXXDF
.PRINT ;.XXXDF
	.XXXDF	YES,==:
.Page
.Assume	XXX.PN	EQ	<^o510>
.Assume	XXX.DB	EQ	<^o512>
.Assume	XXX.TY	EQ	<^o522>
.Assume	XXX.CM	EQ	<^o522>
.Assume	XXX.NO	EQ	<^o522>
.Assume	XXX.ER	EQ	<^o523>
.Assume	XXX.MS	EQ	<^o524>
.Assume	XXX.TT	EQ	<^o377>
.Assume	XXX.RT	EQ	<^o177>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.Y%%DF	-- structure used by %%* and other components
.SbTtl	.YCRDF	-- Entry for CREF file
;+
;	+-------+
;CRF.SE:|	|[000]		Section descriptor
;	+-------+-------+-------+-------+-------+-------+
;CRF.NA:|	|	|	|	|	|	|[001] name ASCII
;	+-------+-------+-------+-------+-------+-------+
;CRF.PG:|		|[007] page number (binary) **NOT WORD ALIGNED**
;	+-------+-------+
;CRF.LI:|		|[011] line number (binary) **NOT WORD ALIGNED**
;	+-------+-------+
;CRF.ID:|	|[013]		ID char to print by name (=,*,# ...)
;	+-------+
;CRF.ES:	 [014]
;
;
;	 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+
;CRF.SE:|  CRF.OR   |	   CRF.LE	|
;	|	    |			|
;	+---+---+---+---+---+---+---+---+
;
;	CRF.OR		Order of sections
;	CRF.LE		low 5 bits of letter for section
;-
.MACRO	.YCRDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;CREF file entry
	.DS	CRF.SE	,,B	;Section order and letter
	.DS	CRF.NA	6.,B	;Ascii symbol name
	.DS	CRF.PG		;Binary page number **NOT WORD ALIGNED**
	.DS	CRF.LI		;Binary line number **NOT WORD ALIGNED**
	.DS	CRF.ID	,,B	;ID char to print by name (=,*,# ...)
	.DS	CRF.ES	0	;Entry size

	.BSECT	,LIST,E		;Section bit definitions
	.BS	CRF.LE	5.	;Lower 5 bits of section letter
	.BS	CRF.OR	3.	;Section order value
.ENDM	.YCRDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.YCRDF
.PRINT ;.YCRDF
	.YCRDF	YES,==:

.Assume	CRF.SE	EQ	<^o000000>
.Assume	CRF.NA	EQ	<^o000001>
.Assume	CRF.PG	EQ	<^o000007>
.Assume	CRF.LI	EQ	<^o000011>
.Assume	CRF.ID	EQ	<^o000013>
.Assume	CRF.ES	EQ	<^o000014>
.Assume	CRF.LE	EQ	<^o000037>
.Assume	CRF.OR	EQ	<^o000340>
.Page
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.YQUDF	-- message format for QUEMAN / QUEUE
;+
;	+-------+-------+
;QUM.FL:|   bit flags	|[0]
;	+-------+-------+-------+-------+-------+-------+
;QUM.JB:|	|	|	|	|	|	|[2] job name
;	+-------+-------+-------+-------+-------+-------+
;QUM.BA:| -> Job req blk|[10]
;	+-------+-------+
;QUM.ZE:|	0?	|[12]
;	+-------+-------+
;QUM.ES:		 [14]
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;QUM.FL:|QUM|	  <res>	    |QUM|QUM|QUM|QUM|QUM| <res> |QUM|QUM|QUM|QUM|
;	|.AB|		    |.RS|.SU|.SP|.SS|.KL|	|.JR|.HD|.CP|.DE|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	QUM.DE = 1	delete file after printing
;	QUM.CP = 1	make multiple copies
;	QUM.HD = 1	create banner pages
;	QUM.JR = 1	job request
;	QUM.KL = 1	kill job / request
;	QUM.SS = 1	send queue status in reply
;	QUM.SP = 1	set default parameters
;	QUM.SU = 1	suspend job
;	QUM.RS = 1	resume job
;	QUM.AB = 1	abort queue immediately
;
;Reply values
;
;queman	QUM.RA = 100000	request accepted
;queue	QUM.IR = 100001	illegal job request
;queman	QUM.IR = 100000 illegal job request
;queue	QUM.QF = 100002 queue full
;queue	QUM.NQ = 100004 queue being aborted
;queman	QUM.QF = 100004 queue full
;
;	+-------+-------+
;QUJ.FL:| bit flags	|[0]
;	+-------+-------+
;QUJ.CP:	|# copy |[2]	if QUM.SP, delete/retain flag
;		+-------+
;QUJ.BN:	|Banner	|[3]	if QUM.SP, default number of banners
;	+-------+-------+
;QUJ.OD:| RAD50 out dev	|[4]
;	+-------+-------+-------+-------+
;QUJ.JB:|	RAD50 job name		|[6]
;	+-------+-------+-------+-------+
;QUJ.NR:| # file req blk|[12]
;	+-------+-------+
;QUJ.FR:| first file req|[14]
;	:		:
.Page
;	+-------+-------+
;QUF.FL:|   bit flags	|[0]
;	+-------+-------+
;QUF.CP:	|# copys|[2]
;		+-------+
;QUF.BN:	|Banner	|[3]
;	+-------+-------+
;QUF.DB:|		|[4]			o(.DBKDF)
;	+		+
;	|		|
;	+		+
;	|		|
;	+		+
;	|		|
;	+-------+-------+
;QUF.ES:		 [14]
;-
.Page
.MACRO	.YQUDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Queman/queue message block
	.DS	QUM.FL		;flag word
	.DS	QUM.JB	6.,B	;job name (6 char ascii)
	.DS	QUM.BA		;-> to QUJ job block
	.DS	QUM.ZE		;word of zeros?
	.DS	QUM.EZ	0	;message block size

	.DSECT	,LIST,E		;QUJ job block
	.DS	QUJ.FL		;flag word
	.DS	QUJ.CP	,,B	;Copies count byte
	.DS	QUJ.BN	,,B	;Banner flag byte
	.DS	QUJ.OD		;RAD50 output device name
	.DS	QUJ.JB	2.	;RAD50 job name
	.DS	QUJ.NR		;number of file request blocks
	.DS	QUJ.FR		;first file request

	.DSECT	,LIST,E		;QUF file block
	.DS	QUF.FL		;flag word
	.DS	QUF.CP	,,B	;Copies word count
	.DS	QUF.BN	,,B	;Banner flag byte
	.DS	QUF.DB	4.	;file DBLOCK		o(.DBKDF)
	.DS	QUF.ES	0	;file block size

	.BSECT	,LIST,E		;flag word bit definitions
	.BS	QUM.DE		;Delete after printing
	.BS	QUM.CP		;Make multiple copies
	.BS	QUM.HD		;Create banner pages
	.BS	QUM.JR		;Job request
	.BS	,	2.	;<res>
	.BS	QUM.KL		;Kill job / request
	.BS	QUM.SS		;Send queue status in reply
	.BS	QUM.SP		;Set default parameters
	.BS	QUM.SU		;Suspend job
	.BS	QUM.RS		;Resume job
	.BS	,	4.	;<res>
	.BS	QUM.AB		;Abort queue immediately
;queman	.EQU	QUM.RA	<^o100000>	;Request accepted
	.EQU	QUM.IR	<^o100001>	;Illegal job request
;queman	.EQU	QUM.IR	<^o100000>	;illegal job request
	.EQU	QUM.QF	<^o100002>	;Queue full
;queman	.EQU	QUM.QF	<^o100004>	;Queue full
	.EQU	QUM.NQ	<^o100004>	;Queue being aborted
.ENDM	.YQUDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.YQUDF
.PRINT ;.YQUDF
	.YQUDF	YES,==:
.Page
.Assume	QUM.FL	EQ	0
.Assume	QUM.JB	EQ	<^o2>
.Assume	QUM.BA	EQ	<^o10>
.Assume	QUM.ZE	EQ	<^o12>
.Assume	QUM.EZ	EQ	<^o14>

.Assume	QUJ.FL	EQ	0
.Assume	QUJ.CP	EQ	<^o2>
.Assume	QUJ.BN	EQ	<^o3>
.Assume	QUJ.OD	EQ	<^o4>
.Assume	QUJ.JB	EQ	<^o6>
.Assume	QUJ.NR	EQ	<^o12>
.Assume	QUJ.FR	EQ	<^o14>

.Assume	QUF.FL	EQ	0
.Assume	QUF.CP	EQ	<^o2>
.Assume	QUF.BN	EQ	<^o3>
.Assume	QUF.DB	EQ	<^o4>
.Assume	QUF.ES	EQ	<^o14>

.Assume	QUM.DE	EQ	<^o000001>
.Assume	QUM.CP	EQ	<^o000002>
.Assume	QUM.HD	EQ	<^o000004>
.Assume	QUM.JR	EQ	<^o000010>

.Assume	QUM.KL	EQ	<^o000100>
.Assume	QUM.SS	EQ	<^o000200>
.Assume	QUM.SP	EQ	<^o000400>
.Assume	QUM.SU	EQ	<^o001000>
.Assume	QUM.RS	EQ	<^o002000>

.Assume	QUM.AB	EQ	<^o100000>

;queman	.EQU	QUM.RA	<^o100000>	;Request accepted
.Assume	QUM.IR	EQ	<^o100001>
;queman	.EQU	QUM.IR	<^o100000>	;illegal job request
.Assume	QUM.QF	EQ	<^o100002>
;queman	.EQU	QUM.QF	<^o100004>	;Queue full
.Assume	QUM.NQ	EQ	<^o100004>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.YSPDF	-- SP / SPOOL communications area
;+
;	.YSPDF
;
;	+-------+ . . .	+-------+
;SP.DAT:|	|	|	|[-42]	Ascii Date
;	+-------+ . . .	+-------+
;SP.TIM:|	|	|	|[-30]	Ascii time
;	+-------+ . . .	+-------+
;	+-------+-------+ . . . +-------+-------+
;SP.FNR:|		|	|		|[-20]	RAD50 name and ext
;	+-------+-------+ . . . +-------+-------+
;SP.BNR:|		|[-12]		Block number
;	+-------+-------+
;SP.JAF:|		|[-10]		Job number and function (like QEL)
;	+-------+-------+
;SP.WCR:|		|[-6]		Word count
;	+-------+-------+
;SP.BPR:|		|[-4]		Buffer pointer
;	+-------+-------+
;	.DRAST	SP,4,SPEXIT		interrupt entry point
;-
.MACRO	.YSPDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	<^o-42>,LIST,E
	.DS	SP.DAT	<^o12>,B ;Date in Ascii
	.DS	SP.TIM	<^o10>,B ;Time in Ascii
	.DS	SP.FNR	<^o3>	;File name (no device) in RAD50
	.DS	SP.BNR		;Block number
	.DS	SP.JAF		;Job number and function
	.DS	SP.WCR		;Word count
	.DS	SP.BPR		;Buffer pointer
.ENDM	.YSPDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.YSPDF
.PRINT ;.YSPDF
	.YSPDF	YES,==:

.Assume	SP.DAT	EQ	<^o-42>
.Assume	SP.TIM	EQ	<^o-30>
.Assume	SP.FNR	EQ	<^o-20>
.Assume	SP.BNR	EQ	<^o-12>
.Assume	SP.JAF	EQ	<^o-10>
.Assume	SP.WCR	EQ	<^o-06>
.Assume	SP.BPR	EQ	<^o-04>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.Z%%DF	-- layout of table for SPFUN SF.TAB for %% handler
.SbTtl	.ZDUDF	-- DU table definition
;+
;	.ZDUDF
;
;	+-------+-------+
;DU.ID:	|		|[00]	RAD50 DU_
;	+-------+-------+
;DU.NUM:	|	|[02]	BYTE number of entries (usually 8 or 64)
;	+-------+-------+
;	| <res>	|	 [03]
;	+-------+-------+-------+-------+
;DU.ENT:|				|[04]
;	+-------+-------+-------+-------+
;	:				:
;
;				Contents of an entry
;	+-------+-------+
;DU.UNI:|		|[0]	Physical (MSCP) unit number
;	+-------+-------+
;DU.PAR:	|	|[2]	Partition number
;	+-------+-------+
;DU.POR:|	|	 [3]	Controller number (2xx -- no controller)
;	+-------+
;DU.ESZ:		 [4]	size of an entry (4 bytes)
;-
.MACRO	.ZDUDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Data table in DU handler
	.DS	DU.ID		;Table ID word
	.EQU	DU.IDV	<^rDU > ;Table ID value
	.DS	DU.NUM	,,B	;Number of entries in table
	.DS	,	1,B	;<res>
	.DS	DU.ENT		;First entry
	.DSECT	,,E		;Entry layout
	.DS	DU.UNI		;MSCP unit number
	.DS	DU.PAR	,,B	;Partition number (byte)
	.DS	DU.POR	,,B	;Port (controller number) (byte)
	.EQU	DU.NOP	<^o200>	;No port
	.DS	DU.ESZ	0	;Entry size
.ENDM	.ZDUDF

.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ZDUDF
.PRINT ;.ZDUDF
	.ZDUDF	YES,==:
.Page
.Assume	DU.ID	EQ	000000
.Assume	DU.IDV	EQ	<^rDU >
.Assume	DU.NUM	EQ	<^o000002>	;Byte
.Assume	DU.ENT	EQ	<^o000004>

.Assume	DU.UNI	EQ	000000
.Assume	DU.PAR	EQ	<^o000002>
.Assume	DU.POR	EQ	<^o000003>
.Assume	DU.NOP	EQ	<^o000200>
.Assume	DU.ESZ	EQ	<^o000004>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.ZLDDF	-- LD table definition
;+
;	.ZLDDF
;
;	+-------+-------+
;LD.ID:	|		|[00]	RAD50 LD_
;	+-------+-------+
;LD.NUM:	|	|[02]	BYTE number of entries (usually 8 or 64)
;	+-------+-------+
;	| <res>	|	 [03]
;	+-------+-------+	+-------+-------+
;LD.FLG:|		| . . .	|		|[04] LD.NUM entries Flags
;	+-------+-------+	+-------+-------+
;LD.FSZ:					 [02] LD.FLG entry len
;	+-------+-------+	+-------+-------+
;LD.OFS:|		| . . .	|		| LD.NUM entries Offset
;	+-------+-------+	+-------+-------+
;LD.OSZ:					 [02] LD.OFS entry len
;	+-------+-------+	+-------+-------+
;LD.SIZ:|		| . . .	|		| LD.NUM entries Size
;	+-------+-------+	+-------+-------+
;LD.SSZ:					 [02] LD.SIZ entry len
;	+-------+-------+	+-------+-------+
;LD.NAM:| 4 words each	| . . . |		| LD.NUM entries o(.DBKDF)
;	+-------+-------+	+-------+-------+
;LD.NSZ:					 [10] LD.NAM entry size
;
;	 100 040 020 010 004 002 001 000 000 000 000 000 000 000 000 000
;	 000 000 000 000 000 000 000 400 200 100 040 020 010 004 002 001
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;LD.FLG:|Act|RdO|	   Unt		|UOf|UNx|	   Ndx		|
;	+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
;
;	LD.Act = 1	entry is active (mounted)
;	LD.RdO = 1	entry is Read Only
;	LD.Unt		unit number of target device MASK
;	LD$Unt		unit number of target device SHIFT
;	LD.UOf = 1	Offset value is wrong
;	LD.UNx = 1	Index value may be wrong
;	LD.Ndx		$Entry index value of target device MASK
;	LD$Ndx		$Entry index value of target device SHIFT
;-
.Page
.MACRO	.ZLDDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Data table in LD handler
	.DS	LD.ID		;Table ID word
	.EQU	LD.IDV	<^rLD >	;Table ID value
	.DS	LD.NUM	,,B	;Number of entries in table
	.DS	,	,B	;<res>
	.DS	LD.FLG		;First Flag word
	.EQU	LD.FSZ	<^o2>	;len of a LD.FLG entry
	.EQU	LD.OSZ	<^o2>	;len of a LD.OFS entry
	.EQU	LD.SSZ	<^o2>	;len of a LD.SIZ entry
	.EQU	LD.NSZ	<^o10>	;len of a LD.NAM entry
	.BSECT	,,E		;LD.FLG bits
	.BS	LD.NDX	6.	;Index value for $entry for target handler
	.LB	LD.NDX,,LD$NDX	; " SHIFT
	.BS	LD.UNX		;Index value may be wrong
	.BS	LD.UOF		;Offset value is wrong
	.BS	LD.UNT	6.	;Unit number for target handler
	.LB	LD.UNT,,LD$UNT	; " SHIFT
	.BS	LD.RDO		;Read only
	.BS	LD.ACT		;active (mounted) entry
;	.DS	LD.OFS		;Offset table = LD.FLG+<@LD.NUM*2>
;	.DS	LD.SIZ		;Size table = LD.OFS+<@LD.NUM*2>
;	.DS	LD.NAM		;name table = LD.SIZ+<@LD.NUM*2>
.ENDM	.ZLDDF
.Page
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ZLDDF
.PRINT ;.ZLDDF
	.ZLDDF	YES,==:

.Assume	LD.ID	EQ	000000
.Assume	LD.IDV	EQ	<^rLD >
.Assume	LD.NUM	EQ	<^o000002>	;BYTE
.Assume	LD.FLG	EQ	<^o000004>

.Assume	LD$NDX	EQ	0
.Assume	LD.NDX	EQ	<^o000077>
.Assume	LD.UNX	EQ	<^o000100>
.Assume	LD.UOF	EQ	<^o000200>
.Assume	LD$UNT	EQ	8.
.Assume	LD.UNT	EQ	<^o037400>
.Assume	LD.RDO	EQ	<^o040000>
.Assume	LD.ACT	EQ	<^o100000>
.Assume	LD.FSZ	EQ	<^o000002>
.Assume	LD.NSZ	EQ	<^o000010>
.Assume	LD.OSZ	EQ	<^o000002>
.Assume	LD.SSZ	EQ	<^o000002>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.ZMUDF	-- MU table definition
;+
;	.ZMUDF
;
;	+-------+-------+
;MU.ID:	|		|[00]	RAD50 MU_
;	+-------+-------+
;MU.NUM:	|	|[02]	BYTE number of entries (usually 8 or 64)
;	+-------+-------+
;	| <res>	|	 [03]
;	+-------+-------+-------+-------+
;MU.ENT:|				|[04]
;	+-------+-------+-------+-------+
;	:				:
;
;				Contents of an entry
;	+-------+-------+
;MU.UNI:|		|[0]	Physical (TMSCP) unit number
;	+-------+-------+
;MU.JOB:	|	|[2]	owning job number
;	+-------+-------+
;MU.POR:|	|	 [3]	Controller number (2xx -- no controller)
;	+-------+
;MU.ESZ:		 [4]	size of an entry (4 bytes)
;-
.MACRO	.ZMUDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;Data table in MU handler
	.DS	MU.ID		;Table ID word
	.EQU	MU.IDV	<^rMU > ;Table ID value
	.DS	MU.NUM	,,B	;Number of entries in table
	.DS	,	1,B	;<res>
	.DS	MU.ENT		;First entry
	.DSECT	,,E		;Entry layout
	.DS	MU.UNI		;MSCP unit number
	.DS	MU.PAR	,,B	;Partition number (byte)
	.DS	MU.POR	,,B	;Port (controller number) (byte)
	.EQU	MU.NOP	<^o200>	;No port
	.DS	MU.ESZ	0	;Entry size
.ENDM	.ZMUDF

.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ZMUDF
.PRINT ;.ZMUDF
	.ZMUDF	YES,==:
.Page
.Assume	MU.ID	EQ	000000
.Assume	MU.IDV	EQ	<^rMU >
.Assume	MU.NUM	EQ	<^o000002>	;Byte
.Assume	MU.ENT	EQ	<^o000004>

.Assume	MU.UNI	EQ	000000
.Assume	MU.PAR	EQ	<^o000002>
.Assume	MU.POR	EQ	<^o000003>
.Assume	MU.NOP	EQ	<^o000200>
.Assume	MU.ESZ	EQ	<^o000004>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ GP4$DO
.SbTtl	.ZPIDF	-- PI table definition			*UNIMPLEMENTED*
.SbTtl	.ZSLDF	-- SL table definition			*UNIMPLEMENTED*
.SbTtl	.ZUBDF	-- UB table definition
;+
;	.ZUBDF
;
;	+-------+-------+
;UB.IDD:| RAD50 "UBD"	|[000] ident word = UB.VDD
;	+-------+-------+
;UB.UMR:|		|[002] allocation word for UMR00
;	+-------+-------+
;	|		|[004] allocation word for UMR01
;	+-------+-------+
;	:		:
;	+-------+-------+
;	|		|[100] allocation word for UMR36
;	+-------+-------+
;	|	-1	|[102] allocation word for UMR37 = UB.IOP
;	+-------+-------+
;UB.NQS:	|	|[104] number of internal queues (byte)
;	+-------+-------+
;	| <res>	|	 [105]
;	+-------+-------+
;UB.QUE:|		|[106] first LQE
;	+-------+-------+
;	|		|[110] first CQE
;	+-------+-------+
;	:		:
;	+-------+-------+
;	|		|[???] last LQE
;	+-------+-------+
;	|		|[???] last CQE
;	+-------+-------+
;-
.Page
.MACRO	.ZUBDF	LIST,E
.IIF NDF ...V99 .MCALL .DSECT
	.DSECT	,LIST,E		;-> by a .DRTAB entry, accessed by SPFUN
	.DS	UB.IDD		;ident word
	.EQU	UB.VDD	<^rUBD>	;ident word value
	.DS	UB.UMR	32.	;UMR allocation words
	.EQU	UB.IOP	-1	;value in UMR37 (IOPAGE UMR)
	.DS	UB.NQS	,,B	;number of queue headers
	.DS		,,B	;<res>
	.DS	UB.QUE		;first queue header
	.EQU	UB.QSZ	4.	;each header is 4 bytes long
.ENDM	.ZUBDF
.ENDC ;EQ GP4$DO
.IIF EQ ONE$DO-ONE.DO .END
ONE.DO=ONE.DO+1
.IF EQ GP4$DO&<ONE$DO-ONE.DO>
.IIF EQ <ONE$DO-ONE.DO>	.MCALL	.ZUBDF
.PRINT ;.ZUBDF
	.ZUBDF	YES,==:

.Assume	UB.IDD	EQ	<^o000000>
.Assume	UB.VDD	EQ	<^rUBD>
.Assume	UB.UMR	EQ	<^o000002>
.Assume	UB.IOP	EQ	<^o177777>
.Assume	UB.NQS	EQ	<32.*2.+2.>
.Assume	UB.QUE	EQ	<32.*2.+2.+2.>
.Assume	UB.QSZ	EQ	<^o000004>
.ENDC ;EQ GP4$DO&<ONE$DO-ONE.DO>
.IF EQ ONE$DO-30000
.NList SEQ
.List
.PRINT ONE.DO;<<<<<-----LAST VALID ONE.DO VALUE
.ENDC; EQ ONE$DO-30000
	.End