Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

; UPD ID= 1602 on 12/30/78 at 11:40 AM by N:<NIXON>
UNIVERSAL INTERM FOR COBOL VERSION 12
SUBTTL	PARAMETER DEFAULTS



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1975, 1979 BY DIGITAL EQUIPMENT CORPORATION

; EDITS
; [450] ADD NUMSTD SWITCH
; [431] TOPS20 FIXES

SEARCH	COBASM

;ASSEMBLY SWITCHES


IFNDEF TOPS20,<TOPS20==0>	; [431] DEFAULT IS TOPS10
IFN	TOPS20,<BIS==1		;IF TOPS20, THEN BIS AND ONESEG
		ONESEG==1
		MCS==0		;AND NOT MCS
    IFNDEF TCS,<TCS==1>		;DEFAULT IS ON IF TOPS20
>

IFNDEF TCS,<	TCS==0>		;OFF IF TOPS10
IFNDEF	MCS,<	MCS==1>		;DEFAULT IS MCS FEATURES
IFNDEF	ONESEG,<ONESEG==0>	;DEFAULT IS 5-PHASE COMPILER

IFE	DBMS,<	DBMS4==0	;IF NO DBMS THEN NO V-4 FEATURES
		DBMS6==0>	;OR V-6 FEATURES
IFNDEF	DBMS6,<	DBMS6==0>	;COBOL-V12 GOES BEFORE DBMS-V6
IFNDEF	DBMS4,<	DBMS4==1>	;DEFAULT IS DBMS FEATURES.
IFNDEF	DBMS,<	DBMS==1>	;DEFAULT IS DBMS FEATURES
IFN	DBMS6,<	DBMS4==1>	;FORCE CONSISTENCY
IFN	DBMS4,<	DBMS==1>	;FORCE CONSISTENCY

IFNDEF	BIS,<	BIS==1>		;DEFAULT IS KL PROCESSOR
IFE BIS,<BISCMP==0>		;NO BIS THEN NO D.P. FLOATING POINT
IFNDEF BISCMP,<BISCMP==0>	;DEFAULT IS OFF FOR NOW
IFNDEF	DEBUG,<	DEBUG==0>	;DEFAULT IS STANDARD, NON-DEBUG VERSION

IFNDEF	ANS68,<	ANS68==1>	;DEFAULT IS NOT ANS-68
IFNDEF	ANS74,<	ANS74==0>	;DEFAULT IS ANS-74
IFN	ANS68&ANS74,<PRINTX ?ANS68 & ANS74 CAN NOT BOTH BE ON>

IFNDEF	NUMSTD,<NUMSTD==1>	; [450] DEFAULT IS ANSII STANDARD, OFF IS DEC STD
;CARRY OVER DEFINITION OF MJSYSN, IF GIVEN IN COBASM.MAC
IFDEF MJSYSN,<MJSYSN==MJSYSN>

;	*** 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
	TRAILB==0		;DEFAULT IS TRAILING BLANKS TERMINATE A NUMBER.
	IFNDEF EBCLBL,<EBCLBL=0>	;NO EBCDIC TAPE LABELS

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

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

;CSTATS IS NOT SUPPORTED BY DEC
IFNDEF	CSTATS,<CSTATS==0>	;DEFAULT SETTING IS OFF

;LSTATS IS NOT SUPPORTED BY DEC
IFNDEF	LSTATS,<LSTATS==0>	;DEFAULT SETTING IS OFF

;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+<NUMSTD>B3	; [450]

;COMMON SWITCHES.
;(NOTE:  USE "B27" NEXT, IT IS CURRENTLY UNUSED.)
;	B35 IS USED BY COBDDT TO TELL WHICH COMPILER PRODUCED THE OBJECT CODE

	COMSW%==<RPW>B18+<ISAM>B19+<DBMS>B20+<MCS>B21+<STRING>B22
	COMSW%==COMSW%+<EBCMP.>B23+<TOPS20>B24+<MPWCEX>B25+<TCS>B26+<ANS74>B35
;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	DBMS
	XPRINT	MCS
	XPRINT	NUMSTD		; [450]
	XPRINT	ONESEG
	XPRINT	BIS
	XPRINT	DEBUG
	XPRINT	SERCH
	XPRINT	RPW
	XPRINT	STRING
	XPRINT	EBCMP.
	XPRINT	TOPS20		; [431]
	XPRINT	MPWCEX
	XPRINT	TRAILB
	XPRINT	ISAM
	XPRINT	ANS68
	XPRINT	ANS74
	XPRINT	TCS
	XPRINT	LSTATS

	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%
	PRINTX	LIBOL'S SWITCH WORD (LIBSW%):
	YPRINT	\LIBSW%
>

;TOPS10-TOPS20 COMPATIBILITY MACROS

IFE TOPS20,<
 DEFINE	TYPE (MESSAGE)<
	OUTSTR	[ASCIZ \MESSAGE\]
 >
 DEFINE	TYPEC (ACC),<
	OUTCHR	ACC
>>

IFN TOPS20,<
 DEFINE	TYPE (MESSAGE)<
	HRROI	1,[ASCIZ \MESSAGE\]
	PSOUT
 >
 DEFINE	TYPEC (ACC),<
  IFN ACC-1,<
	HRRZ	1,ACC
  >
	PBOUT
>>

	END