Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/interm.mac
There are 17 other files named interm.mac in the archive. Click here to see a list.
UNIVERSAL INTERM FOR COBOL VERSION 10 AND RPGII VERSION 1
SUBTTL	PARAMETER DEFAULTS
;COPYRIGHT 1970,1971,1972,1973,1974,1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
;MODIFICATIONS FOR RPGII COPYRIGHT (C) 1976, ROBERT CURRIER

.DIRECTIVE .NOBIN

	%RPGII==1		;SET TO RPGII VERSION

IFNDEF	%RPGII,<%RPGII==0>	;DEFAULT TO COBOL VERSION

IFE	%RPGII,<
	SEARCH	COBASM
	>

IFN	%RPGII,<
	SEARCH	RPGASM
	>

;ASSEMBLY SWITCHES

IFNDEF	%CPU,<%CPU==0>		;DEFAULT IS KA CPU
IFNDEF	DBMS4,<DBMS4==0>	;DEFAULT IS NO DBMS FEATURES.
IFNDEF	DBMS,<DBMS==0>		;DEFAULT IS NO DBMS FEATURES
IFNDEF	MCS,<MCS==0>		;DEFAULT IS NO MCS FEATURES
IFNDEF	ONESEG,<ONESEG==0>	;DEFAULT IS 5-PHASE COMPILER
IFNDEF	BIS,<BIS==0>		;DEFAULT IS KA OR KI PROCESSOR
IFNDEF	DEBUG,<DEBUG==0>	;DEFAULT IS STANDARD, NON-DEBUG VERSION

;	*** WARNING! ***

;	THE SWITCH SETTINGS GIVEN BELOW ARE THE ONLY SUPPORTED
;SETTINGS FOR THOSE SWITCHES.  IF THESE ARE CHANGED DEC WILL NOT BE
;RESPONSIBLE IF THINGS DO NOT WORK.

	SERCH==1		;DEFAULT IS 'SEARCH' IMPLEMENTED
	RPW==1			;DEFAULT IS REPORT-WRITER IMPLEMENTED
	STRING==1		;DEFAULT IS INCLUDE STRING/UNSTRING
	EBCMP.==1		;DEFAULT IS COMP-3 AND EBCDIC
	MPWCEX==1		;DEFAULT IS SINGLE EXIT FOR MULTPLE
				;PERFORMS
IFE %RPGII,<
	TRAILB==0		;DEFAULT IS TRAILING BLANKS TERMINATE
				; A NUMBER.
	>
IFN %RPGII,<
	TRAILB==1		;DEFAULT IS TRAILING BLANKS ARE ZEROES FOR RPGII

;	THE ISAM SWITCH IS SUPPORTED IN THE OFF POSITION ONLY FOR CSORT.

IFNDEF	ISAM,<ISAM==1>		;DEFAULT IS ISAM IMPLEMENTED

;	THE FOLLOWING SWITCHES APPLY TO RPGII ONLY:

IFN %RPGII,<

IFNDEF	STATS,<STATS==0>	;DEFAULT IS NO RUNTIME STATISTICS
IFNDEF	FTSCAN,<FTSCAN==0>	; DEFAULT IS NO SCAN/WILD

	>
;DEFINE THE ASSEMBLY SWITCH WORD VALUE FOR LIBOL AND THE COMPILER
;THIS WILL APPEAR AT 400010 IN ALL COMPILER PHASES (REFERENCE IN PURE
; .MAC) AND AT  RESET.-1  IN CBLIO

;COMPILER SWITCHES WHICH LIBOL DOES NOT NEED TO KNOW ABOUT.

	CMPSW%==<DEBUG>B0+<SERCH>B1+<BIS>B2+<ONESEG>B3

;LIBOL SWITCHES WHICH THE COMPILER DOES NOT NEED TO KNOW ABOUT.

	LBLSW%==<DEBUG>B0+<TRAILB>B1+<BIS>B2
IFN %RPGII,<
	LBLSW%==LBLSW%+<STATS>B3
	>

;COMMON SWITCHES.
;(NOTE:  USE "B24" NEXT, IT IS CURRENTLY UNUSED.)

	COMSW%==<RPW>B18+<ISAM>B19+<DBMS>B20+<MCS>B21+<STRING>B22
	COMSW%==COMSW%+<EBCMP.>B23+<MPWCEX>B25

;COMPILER SWITCH WORD.

	SWSET%==CMPSW%+COMSW%

;LIBOL SWITCH WORD.

	LIBSW%==LBLSW%+COMSW%

	PURGE CMPSW%,LBLSW%,COMSW%

;MASKS FOR TESTING SWITCH SETTINGS

	MPWC.S==1B25			;MPWCEX
;TYPE OUT THE SWITCH SETTINGS:

IF1,	<
	DEFINE	XPRINT	(X)<
	IFN	X,<	PRINTX	%	X
>>

	PRINTX	Switches which are on:
	XPRINT	%RPGII
	XPRINT	DBMS
	XPRINT	MCS
	XPRINT	ONESEG
	XPRINT	BIS
	XPRINT	DEBUG
	XPRINT	SERCH
	XPRINT	RPW
	XPRINT	STRING
	XPRINT	EBCMP.
	XPRINT	MPWCEX
	XPRINT	TRAILB
	XPRINT	ISAM
IFN %RPGII,<
	XPRINT	STATS
	XPRINT	FTSCAN
	>

	DEFINE	YPRINT (X)<
	X1==<X>B53
	X2==X&777777
	ZPRINT	\X1,\X2
>
	DEFINE	ZPRINT	(X, Y)<
	PRINTX	%	XWD	X',,'Y
>
	PRINTX	Compiler's switch word (SWSET%):
	YPRINT	\SWSET%
	IFE %RPGII,<
	PRINTX	LIBOL's switch word (LIBSW%):
	>
	IFN %RPGII,<
	PRINTX	RPGLIB's switch word (LIBSW%):
	>
	YPRINT	\LIBSW%
	IFE	%CPU,<
	PRINTX	%CPU is set for KA processor
		>
	IFE	%CPU-1,<
	PRINTX	%CPU is set for KI processor (Untested Feature!!)
		>
	IFE	%CPU-2,<
	PRINTX	%CPU is set for KL-10 processor (Untested Feature!!)
		>
	IFE	%CPU-3,<
	PRINTX	%CPU is set for KL processor running TOPS-20
		>
>

	END