Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetDistr_7-23-85 - dn20/datml.m11
There are 15 other files named datml.m11 in the archive. Click here to see a list.
	.TITLE	MCB data base building macros
	.IDENT	/003050/
	.ENABL	LC
;
;
;                    COPYRIGHT (c) 1980, 1981, 1982
;                    DIGITAL EQUIPMENT CORPORATION
;
;     This software is furnished under a license and may  be  used
;     and copied only in accordance with the terms of such license
;     and 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.  No  title  to
;     and ownership of the software is hereby transferred.
;
;     The information  in  this  software  is  subject  to  change
;     without  notice  and should not be construed as a commitment
;     by DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL assumes no responsibility for the use or reliability
;     of  its  software  on  equipment  which  is  not supplied by
;     DIGITAL.
;
;++
; Macros for creating MCB data base
;
; The data base binary file is  built  the  same  way  as  a
; process,  except that the partition base is  specified  as
; zero.  It has the following structure:
;
;	+-----------------------+
;	!    Identification     !
;	+-----------------------+
;	!  Primary load block   !
;	+-----------------------+
;	! Secondary load blocks !
;	+-         and         -+
;	!      Data blocks      !
;	+-----------------------+
;
; The identification block provides  verification  that  the
; file is indeed a data base binary file,  and includes  the
; version of the MCB macro set that  the  file  was  created
; with.
;
; The primary load  block  contains  loader  commands  which
; define  the  first  allocation  for  either  a  single  or
; multiplex data base,  and points to secondary load  blocks
; for the formatting of this memory area.
;
; Secondary load blocks describe the  data  to  insert  into
; allocated memory areas and optionally  do  further  memory
; allocations (which could be formatted by load blocks).
;
; Data blocks are refered to by  load  blocks,  and  contain
; constant text to be copied into the allocated areas.
;
;                        ------
;
; All allocations can be made either from the DSR  which  is
; always mapped to the process,  or from  an  unmapped  core
; partition which is only accessable  by  mapping  the  area
; into APR 6.  Primary allocations must  correspond  to  the
; use of the data base,  and thus must be from the  DSR  for
; all cases except for non-driver DLC data bases.
;
; In the descriptions that follow, addresses are relative to
; the beginning of the identification block, and offsets are
; relative to  the  beginning  of  the  memory  block  being
; formatted.
;
; If a load block address is zero,  the allocated  block  is
; assumed to be zeroed,  and no other data  need  be  loaded
; into it.
;
;                        ------
;
; Identification block:
;
;	+-------------------+
;	!  Radix-50 "MCB"   !
;	+---------+---------+
;	!  Minor  !  Major  !
;	+---------+---------+
;
; The major and minor versions will correspond to the "major.minor"
; of the target MCB system.
;
;                        ------
;
; The load blocks will be composed of loader commands:
;
;	+---------+---------+
;	!    0    !    0    !
;	+---------+---------+
;
; Cmd	Description
; ---	-----------
;   0	End of load block
;
;	+---------+---------+
;	!  var #  !   cmd   !
;	+---------+---------+
;	! offset into table !
;	+-------------------+
;
; Cmd	Description
; ---	-----------
;   1	Move variable to word
;   2	Move variable to byte
;   3	Add variable to word
;   4	Add variable to byte
;
;	+---------+---------+
;	!    0    !   cmd   !
;	+---------+---------+
;	! offset into table !
;	+-------------------+
;	!      length       !
;	+-------------------+
;	!data block address !
;	+-------------------+
;
; Cmd	Description
; ---	-----------
;   5	Move text
;
;	+---------+---------+
;	!    0    !   cmd   !
;	+---------+---------+
;	! offset into table !
;	+-------------------+
;	!      length       !
;	+-------------------+
;	!load block address !
;	+-------------------+
;
; Cmd	Description
; ---	-----------
;   6	Verify offset
;
;	+---------+---------+
;	!    0    !   cmd   !
;	+---------+---------+
;	! offset into table !
;	+-------------------+
;	!verification offset!
;	+-------------------+
;
; Cmd	Description
; ---	-----------
;  10	Allocate DSR, move address, and load
;  11	Allocate pool, move bias/address, and load
;
;	+---------+---------+
;	!  var1   !   cmd   !
;	+---------+---------+
;	!      length       !
;	+-------------------+
;	!load block address !
;	+-------------------+
;
; Cmd	Description
; ---	-----------
;  20	Allocate data base from DSR,
;	load, and move address to SLTs until
;	var1 changes
;  21	Allocate data base from pool,
;	load, and move bias/address to SLTs
;	until var1 changes
;
;	+---------+---------+
;	!  var1   !   cmd   !
;	+---------+---------+
;	!         !  var2   !
;	+---------+---------+
;	!  control length   !
;	+-------------------+
;	!load block address !
;	+-------------------+
;	!    unit length    !
;	+-------------------+
;	!load block address !
;	+-------------------+
;
; Cmd	Description
; ---	-----------
;  30	Allocate multiplexor data base from DSR
;	base on number of units specified by the var2,
;	load control table, then repeat:
;	load unit table, and move address to SLTs
;	until var1 changes.
;  31	Allocate multiplexor data base from pool
;	base on number of units specified by the var2,
;	load control table, then repeat:
;	load unit table, and move bias/address to SLTs
;	until var1 changes.
;
; Variables:
;
; Var	Description
; ---	-----------
;   1	Current table base virtual address
;
;  10	Current line index (from L.LIX)
;  11	Current controller (from L.CTL)
;  12	Current unit (from L.UNT)
;  13	Current tributary (from L.TRB)
;
;  20	Number of system lines
;  21	Number of controllers on device
;  22	Number of units on controller
;  23	Number of tributaries on unit
;
;  30	Controller characteristics
;   .	 (#0 = CSR)
;   .	 (#1 = interrupt vector)
;   .	 (#2 = interrupt priority)
;  37
;
;  40	Unit characteristics
;   .	 (#0 = secondary CSR)
;   .
;   .
;  47
;
;  50	Tributary characteristics
;   .	 (#0 = Current station address)
;   .
;   .
;  57	
;
;--

;+
; Psect management
;-

;
; Begin a load block psect
;

	.MACRO	BLK$B
	.IRP	n,<\$$LVL>
$$L'n	= $$BLK
	.ENDM
$$LVL	= $$LVL+1
$$BLK	= $$NXT
$$NXT	= $$NXT+1
	.IRP	n,<\$$BLK>
	.PSECT	$$B'n
$BB'n	= .
	.ENDM
	DAT$B	\$$BLK
	.ENDM	BLK$B

;
; Terminate a load block psect
;

	.MACRO	BLK$E
	DAT$E	\$$BLK
	.IRP	n,<\$$BLK>
	.PSECT	$$B'n
$BL'n	= .-$BB'n
	.ENDM
$$LVL	= $$LVL-1
	.IRP	n,<\$$LVL>
$$BLK	= $$L'n
	.ENDM
	BLK$P
	.ENDM	BLK$E

;
; Enter the current load block psect
;

	.MACRO	BLK$P
	.IRP	n,<\$$BLK>
	.PSECT	$$B'n
	.ENDM
	.ENDM	BLK$P

;
; Get the offset into the current data block
;

	.MACRO	DAT$A	s
	.IRP	n,<\$$BLK>
s	= .-$DB'n
	.ENDM
	.ENDM	DAT$A

;
; Begin a data block
;

	.MACRO	DAT$B	n
	BLK$P
	.BYTE	5,0
	.WORD	0,$DL'n,$DB'n
	.PSECT	$$D'n
$DB'n	= .
	.ENDM	DAT$B

;
; Terminate a data block
;

	.MACRO	DAT$E	n
	.PSECT	$$D'n
$DL'n	= .-$DB'n
	.ENDM	DAT$E

	.MACRO	DAT$P
	.IRP	n,<\$$BLK>
	.PSECT	$$D'n
	.ENDM
	.ENDM	DAT$P

;+
; Top level user directives
;-

;
; Delcare a single-entry data base
;

	.MACRO	DAT$	m,t
	.MCALL	DAT$DF
	DAT$DF
	.IF	B,<m>
$$CMD	= 0
	.IFF
$$CMD	= 20
	.IRP	s,<DSR,COR>
	.IIF	IDN,<m>,<s>,.MEXIT
$$CMD	= $$CMD+1
	.ENDM
	.IF	LE,22-$$CMD
	.ERROR	;"m" is invalid argument, assuming "DSR"
$$CMD	= 20
	.ENDC
	.ENDC
$$VAR	= 12
	.IF	NB,<t>
	.IRP	s,<UNT,TRB>
	.IIF	IDN,<t>,<s>,.MEXIT
$$VAR	= $$VAR+1
	.ENDM
	.IF	LE,14-$$VAR
	.ERROR	;"t" is invalid argument, assuming "UNT"
$$VAR	= 12
	.ENDC
	.ENDC
	BLK$B
	.IRP	n,<\$$BLK>
	.PSECT	$$B0
	.BYTE	$$CMD,$$VAR
	.WORD	$DL'n,$BB'n
	.ENDM
$$TOP	= 0
	DAT$P
	.ENDM	DAT$

;
; Declare a multiplex data base
;

	.MACRO	MPX$	m,t
	.MCALL	DAT$DF
	DAT$DF
$$CMD	= 30
	.IF	NB,<m>
	.IRP	s,<DSR,COR>
	.IIF	IDN,<m>,<s>,.MEXIT
$$CMD	= $$CMD+1
	.ENDM
	.IF	LE,32-$$CMD
	.ERROR	;"m" is invalid argument, assuming "DSR"
$$CMD	= 30
	.ENDC
	.ENDC
$$VAR	= 12
	.IF	NB,<t>
	.IRP	s,<UNT,TRB>
	.IIF	IDN,<t>,<s>,.MEXIT
$$VAR	= $$VAR+1
	.ENDM
	.IF	LE,14-$$VAR
	.ERROR	;"t" is invalid argument, assuming "UNT"
$$VAR	= 12
	.ENDC
	.ENDC
	BLK$B
	.PSECT	$$B0
	.IRP	n,<\$$VAR+10>
	.BYTE	$$CMD,$$VAR,n,0
	.ENDM
	.IRP	n,<\$$BLK>
	.WORD	$DL'n,$BB'n
	.ENDM
$$TOP	= 1
	DAT$P
	.ENDM	MPX$

;
; Declare the data base macros
; and set the identification block.
;

	.MACRO	DAT$DF
	.MCALL	DSR$W,COR$D,END$
	.MCALL	DAT$B,DAT$E,DAT$P
	.MCALL	BLK$B,BLK$E,BLK$P
	.MCALL	LIX$W,LIX$B
	.MCALL	CTL$W,CTL$B
	.MCALL	UNT$W,UNT$B
	.MCALL	TRB$W,TRB$B
	.MCALL	STA$W,STA$B
	.MCALL	CHR$W,CHR$B
	.MCALL	CSR$W,LST$D
	.MCALL	TMB$X,SYN$X
	.MCALL	TMB$,SYN$
$$BLK	= 0
$$LVL	= 0
$$NXT	= 1
	.PSECT	IDENT
	.RAD50	/MCB/
	.BYTE	3,2
	.ENDM	DAT$DF

;
; Terminate formatting of an allocated memory block and
; return to previous block
;

	.MACRO	END$	var
	.IF	NB,<var>
	DAT$A	$$DSP
	BLK$P
	.BYTE	6,0
	.WORD	$$DSP,var
	.IFF
	BLK$P
	.ENDC
	.BYTE	0,0
	.IF	NE,$$LVL
	BLK$E
	.ENDC
	.IF	EQ,$$LVL
	.IF	NE,$$TOP
$$TOP	= 0
	BLK$B
	.IRP	n,<\$$BLK>
	.PSECT	$$B0
	.WORD	$DL'n,$BB'n
	.ENDM
	.ENDC
	.ENDC
	.IF	NE,$$LVL
	DAT$P
	.ENDC
	.ENDM	END$

;+
; Secondary user directives
;-

;
; Store device characteristic(s) in byte(s)
;

	.MACRO	CHR$B	t,list
	.IF	B,<list>
	.PRINT	; The CHR$B macro has changed; consult documentation
	.PRINT	; I will expand it the old way for you...
	.IRP	n,<t>
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,40+n
	.WORD	$$DSP
	DAT$P
	.ENDM
	.IFF
$$VAR	= 30
	.IRP	s,<CTL,UNT,TRB>
	.IIF	IDN,<t>,<s>,.MEXIT
$$VAR	= $$VAR+10
	.ENDM
	.IF	LE,60-$$VAR
	.ERROR	;"t" is invalid argument, assuming "UNT"
$$VAR	= 40
	.ENDC
	.IRP	n,<list>
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,$$VAR+n
	.WORD	$$DSP
	DAT$P
	.ENDM
	.ENDC
	.ENDM	CHR$B

;
; Store device characteristic(s) in word(s)
;

	.MACRO	CHR$W	t,list
	.IF	B,<list>
	.PRINT	; The CHR$W macro has changed; consult documentation
	.PRINT	; I will expand it the old way for you...
	.IRP	n,<t>
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,40+n
	.WORD	$$DSP
	DAT$P
	.ENDM
	.IFF
$$VAR	= 30
	.IRP	s,<CTL,UNT,TRB>
	.IIF	IDN,<t>,<s>,.MEXIT
$$VAR	= $$VAR+10
	.ENDM
	.IF	LE,60-$$VAR
	.ERROR	;"t" is invalid argument, assuming "UNT"
$$VAR	= 40
	.ENDC
	.IRP	n,<list>
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,$$VAR+n
	.WORD	$$DSP
	DAT$P
	.ENDM
	.ENDC
	.ENDM	CHR$W

;
; Allocate block from core and store bias/address
;

	.MACRO	COR$D	l
	DAT$A	$$DSP
	.BLKW	2
	.IF	NB,<l>
	BLK$P
	.BYTE	11,0
	.WORD	$$DSP,l,0
	DAT$P
	.IFF
	BLK$P
	.IRP	n,<\$$NXT>
	.BYTE	11,0
	.WORD	$$DSP,$DL'n,$BB'n
	.ENDM
	BLK$B
	.ENDC
	.ENDM	COR$D

;
; Store device CSR in word
;

	.MACRO	CSR$W	add
	DAT$A	$$DSP
	.WORD	add
	BLK$P
	.BYTE	3,30
	.WORD	$$DSP
	DAT$P
	.ENDM	CSR$W

;
; Store controller number in byte
;

	.MACRO	CTL$B
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,11
	.WORD	$$DSP
	DAT$P
	.ENDM	CTL$B

;
; Store controller number in word
;

	.MACRO	CTL$W
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,11
	.WORD	$$DSP
	DAT$P
	.ENDM	CTL$W

;
; Allocate block from DSR and store address
;

	.MACRO	DSR$W	l
	DAT$A	$$DSP
	.BLKW	1
	.IF	NB,<l>
	BLK$P
	.BYTE	10,0
	.WORD	$$DSP,l,0
	DAT$P
	.IFF
	BLK$P
	.IRP	n,<\$$NXT>
	.BYTE	10,0
	.WORD	$$DSP,$DL'n,$BB'n
	.ENDM
	BLK$B
	.ENDC
	.ENDM	DSR$W

;
; Store line index in byte
;

	.MACRO	LIX$B
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,10
	.WORD	$$DSP
	DAT$P
	.ENDM	LIX$B

;
; Store line index in word
;

	.MACRO	LIX$W
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,10
	.WORD	$$DSP
	DAT$P
	.ENDM	LIX$W

;
; Set up list-head in doubleword
;

	.MACRO	LST$D
	.WORD	0
	DAT$A	$$DSP
	.WORD	$$DSP-2
	BLK$P
	.BYTE	3,1
	.WORD	$$DSP
	DAT$P
	.ENDM	LST$D

;
; Store physical station address in byte
;

	.MACRO	STA$B
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,50
	.WORD	$$DSP
	DAT$P
	.ENDM	STA$B

;
; Store physical station address in word
;

	.MACRO	STA$W
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,50
	.WORD	$$DSP
	DAT$P
	.ENDM	STA$W

;
; Set up a SYNCH block
;

	.MACRO	SYN$
	.PRINT	; The SYN$ macro has been renamed to SYN$X
	.PRINT	; I will call it for you...
	SYN$X
	.ENDM	SYN$

	.MACRO	SYN$X
	.WORD	0,0,0
	.ENDM	SYN$X

;
; Set up a timer block
;

	.MACRO	TMB$	t
	.PRINT	; The TMB$ macro has been renamed to TMB$X
	.PRINT	; I will call it for you...
	TMB$X	t
	.ENDM	TMB$

	.MACRO	TMB$X	t
	.BLKW	1
	.BYTE	6,0
	DAT$A	$$DSP
	.WORD	$$DSP-4
	BLK$P
	.BYTE	3,1
	.WORD	$$DSP
	DAT$P
	.BLKW	4
	.WORD	t
	.WORD	0
	.ENDM	TMB$X

;
; Store tributary number in byte
;

	.MACRO	TRB$B
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,13
	.WORD	$$DSP
	DAT$P
	.ENDM	TRB$B

;
; Store tributary number in word
;

	.MACRO	TRB$W
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,13
	.WORD	$$DSP
	DAT$P
	.ENDM	TRB$W

;
; Store unit number in byte
;

	.MACRO	UNT$B
	DAT$A	$$DSP
	.BLKB	1
	BLK$P
	.BYTE	2,12
	.WORD	$$DSP
	DAT$P
	.ENDM	UNT$B

;
; Store unit number in word
;

	.MACRO	UNT$W
	DAT$A	$$DSP
	.BLKW	1
	BLK$P
	.BYTE	1,12
	.WORD	$$DSP
	DAT$P
	.ENDM	UNT$W

;
; Verify an address
;

	.MACRO	VFY$	var
	DAT$A	$$DSP
	BLK$P
	.BYTE	6,0
	.WORD	$$DSP,var
	DAT$P
	.ENDM	VFY$