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

; UPD ID= 3357 on 1/28/81 at 10:12 AM by WRIGHT                         
UNIVERSAL INTERM FOR COBOL VERSION 12B
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, 1981 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==1>	;DEFAULT IS DBMS FEATURES.
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
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

IFNDEF	NUMSTD,<NUMSTD==1>	; [450] DEFAULT IS ANSII STANDARD, OFF IS DEC STD
IFNDEF	XPNTST,<XPNTST==0>	;TABLE EXPANSION TEST (A DEBUG SWITCH)
IFDEF	SUPPTB,<SUPPTB==SUPPTB>	;Carry over definition if given in COBASM

;CARRY OVER DEFINITION OF MJSYSN, IF GIVEN IN COBASM.MAC
IFDEF	MJSYSN,<MJSYSN==MJSYSN>
IFNDEF	FT68274,<FT68274==0>	;DEFAULT IS NOT THE CONVERSION UTILITY
IFN	FT68274,<ANS68==1>	;MUST BE COBOL-68 FOR CONVERTER

IFN	ANS68&ANS74,<PRINTX ?ANS68 & ANS74 CAN NOT BOTH BE ON>
IFE	ANS68!ANS74,<PRINTX ?ANS68 & ANS74 CAN NOT BOTH BE OFF>

;	*** 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.

	RPW==1			;DEFAULT IS REPORT-WRITER IMPLEMENTED
	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

;THE FOLLOWING SWITCHES HAVE BEEN DECOMMITED, THE CODE IS ALWAYS ON.
;	SERCH==1		;DEFAULT IS 'SEARCH' IMPLEMENTED
;	STRING==1		;DEFAULT IS INCLUDE STRING/UNSTRING

;THE FOLLOWING IN HOUSE DEVELOPMENT SWITCHES ARE NOT SUPPORTED
IFNDEF	CSTATS,<CSTATS==0>	;DEFAULT SETTING IS OFF
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+1B1+<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+1B22
	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	RPW
	XPRINT	EBCMP.
	XPRINT	TOPS20		; [431]
	XPRINT	MPWCEX
	XPRINT	TRAILB
	XPRINT	ISAM
	XPRINT	ANS68
	XPRINT	ANS74
	XPRINT	TCS
	XPRINT	LSTATS
	XPRINT	FT68274

	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