Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0057/sddndf.mac
There are 2 other files named sddndf.mac in the archive. Click here to see a list.
00100		UNIVERSAL  S$$NDF  NAME DEFINITIONS
00200		SUBTTL	REGISTER NAMES
00300		PASS2
00400	
00500	; STANDARD REGISTER NAMES
00600	
00700		R0=0	; SCRATCH REGISTER
00800		R1=1	; NORMAL ACCUMULATOR, SCRATCH REGISTER
00900		R2=2	; SCRATCH REGISTER
01000		R3=3	; LINK REGISTER, PROGRAM LEVEL 3
01100		R4=4	; LINK, LEVEL 4
01200		R5=5	; LINK, LEVEL 5
01300		R6=6	; LINK, LEVEL 6
01400		R7=7	; LINK, LEVEL 7
01500		R8=10	; LINL, LEVEL 8
01600		R9=11	; LINK, LEVEL 9
01700		R10=12	; LINK, LEVEL 10
01800		R11=13	; LINK, LEVEL 11
01900		R12=14	; LINK, LEVEL 12
02000		R13=15
02100		R14=16
02200		R15=17
02300	
02400	; SPECIAL REGISTER NAMES
02500	
02600		SS=17	; SYSTEM STACK
02700		ES=16	; EXPRESSION STACK
02800		PS=16	; PATTERN STACK (DURING PATTERN MATCHES)
02900		DT=15	; DATA BLOCK POINTER
03000		CR=14	; CURSOR POSITION (DURING PATTERN MATCHES)
03100		RC=13	; REMAINING CHARACTERS (DURING PATTERN MATCHES)
03200		AS=12	; ASSIGNMENT STACK (DURING PATTERN MATCHES)
03300		CS=10	; CONDITIONAL STACK (DURING PATTERN MATCHES)
     
00100		SUBTTL	PARAMETER DEFINITIONS
00200		RADIX	10
00300	
00400	; STACK PARAMETERS
00500	
00600		P$SSSZ=32	; INITIAL SS SIZE (30 ELEMENTS)
00700		P$SSXT=8	; SS EXTENSION SIZE
00800		P$ESSZ=32	; INITIAL ES SIZE (30 ELEMENTS)
00900		P$ESXT=8	; ES EXTENSION SIZE
01000		P$PSSZ=16	; INITIAL PS SIZE (14 ELEMENTS)
01100		P$PSXT=4	; PS EXTENSION SIZE
01200		P$ASSZ=8	; INITIAL AS SIZE (6 ELEMENTS)
01300		P$ASXT=4	; AS EXTENSION SIZE
01400		P$CSSZ=9	; INITIAL CS SIZE (3 COND. VAL.)
01500		P$CSXT=4	; CS EXTENSION SIZE
01600	
01700	; FREE STORAGE PARAMETERS
01800	
01900		P$GBUF=^O203	; INITIAL GARBAGE COLLECT STACK SIZE
02000		P$GBXT=100	; GARBAGE COLLECT STACK EXTENSION SIZE
02100	
02200	; SYMBOL TABLE PARAMETERS
02300	
02400		P$HSHS=127	; DEFAULT HASH SIZE
02500		P$GSXT=42	; GLOBAL SYMBOL TABLE EXTENSION SIZE (10)
02600		P$GVXT=11	; GLOBAL VARIABLE BLOCK SIZE (10 VARIABLES)
02700	
02800	; I/O PARAMETERS
02900	
03000		P$ATXT=16	; ASSOCIATION TABLE EXTENSION SIZE (4)
03100				; MUST BE > OR = 16
03200		P$ALEN=72	; DEFAULT ASSOCIATION LENGTH
03300	
03400	; KEYWORD PARAMETERS
03500	
03600		P$MXLN=^O777777	; DEFAULT VALUE FOR &MAXLNGTH
03700		P$MXST=50000	; DEFAULT VALUE FOR &STLIMIT
03800		P$DENS=75	; DEFAULT VALUE FOR &DENSITY (75% FULL)
03900	
04000	; MACHINE PARAMETERS
04100	
04200		P$PDP6=0	; ON FOR PDP-6, OFF FOR PDP-10
04300		P$KI10=1	; ON FOR KI10, OFF FOR KA10 AND PDP-6
04400		P$VM=0		; OFF FOR NON-VM
     
00100		SUBTTL	OPERATOR DEFINITIONS
00200	
00300	; UUO DEFINITIONS
00400	
00500		OPDEF	UFERR [1B8]	; UNCONDITIONALLY FATAL ERROR
00600		OPDEF	CFERR [2B8]	; CONDITIONALLY FATAL ERROR
00700		OPDEF	FCALV [3B8]	; FUNCTION CALL FOR VALUE
00800		OPDEF	FCALN [4B8]	; FUNCTION CALL FOR NAME
00900		OPDEF	DASGN [5B8]	; DEDICATED ASSIGNMENT
01000		OPDEF	DCONC [6B8]	; DEDICATED STRING CONCATENATION
01100		OPDEF	DICNV [7B8]	; DEDICATED INTEGER CONVERSION
01200		OPDEF	DRCNV [8B8]	; DEDICATED REAL CONVERSION
01300		OPDEF	AREFV [9B8]	; ARRAY/TABLE REFERENCE FOR VALUE
01400		OPDEF	AREFN [10B8]	; ARRAY/TABLE REFERENCE FOR NAME
01500	
01600		END