Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/interm.mac
There are 17 other files named interm.mac in the archive. Click here to see a list.
; UPD ID= 1618 on 5/22/84 at 9:18 AM by HOFFMAN                         
UNIVERSAL INTERM FOR COBOL VERSION 13
SUBTTL	PARAMETER DEFAULTS

	SEARCH COPYRT
	SALL

;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, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION

.DIRECTIVE .NOBIN

; EDITS
; [1126] Add 'BLANKL' switch to rint blank ascii text lines
; [450] ADD NUMSTD SWITCH
; [431] TOPS20 FIXES

SEARCH	COBASM

;ASSEMBLY SWITCHES


IFNDEF TOPS20,<TOPS20==1>	; [431] DEFAULT IS TOPS10
IFN	TOPS20,<ONESEG==1>	;IF TOPS20, THEN ONESEG

IFNDEF	MCS,<	MCS==0>		;DEFAULT IS NO MCS FEATURES
IFNDEF	ONESEG,<ONESEG==0>	;DEFAULT IS 5-PHASE COMPILER

IFE	DBMS,<	DBMS6==0>	;IF NO DBMS THEN NO V-6 FEATURES
IFNDEF	DBMS6,<	DBMS6==1>	;DEFAULT IS DBMS FEATURES.
IFNDEF	DBMS,<	DBMS==1>	;DEFAULT IS DBMS FEATURES
IFN	DBMS6,<	DBMS==1>	;FORCE CONSISTENCY

IFNDEF	DEBUG,<	DEBUG==0>	;DEFAULT IS STANDARD, NON-DEBUG VERSION

IFNDEF	ANS82,< ANS82==-1>	;Default is ANS-82 but default incompatabilities to 74

IFNDEF	XPNTST,<XPNTST==0>	;TABLE EXPANSION TEST (A DEBUG SWITCH)

IFNDEF	NZSORT,<NZSORT==1>	;USE EXTENDED SECTION SORT

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

	MPWCEX==1		;DEFAULT IS SINGLE EXIT FOR MULTPLE PERFORMS
	BLANKL==0		;[1126] DEFAULT IS DON'T PRINT BLANK ASCII
				;[1126] TEXT LINES, (BLANKL==0)
;DEFINE THE ASSEMBLY SWITCH WORD VALUE FOR COBOTS 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+<ONESEG>B3

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

	LBLSW%==<DEBUG>B0

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

	COMSW%==<DBMS>B20+<MCS>B21
	COMSW%==COMSW%+<TOPS20>B24+<MPWCEX>B25

;COMPILER SWITCH WORD.

	SWSET%==CMPSW%+COMSW%

;OTS SWITCH WORD.

	LIBSW%==LBLSW%+COMSW%

	PURGE CMPSW%,LBLSW%,COMSW%

;MASKS FOR TESTING SWITCH SETTINGS

	MPWC.S==1B25			;MPWCEX

;ADDITIONAL FEATURE TEST FLAGS THAT CAN BE SET BY COBOL SYNTAX
;SOME OF THESE USED TO BE FEATURE TEST SWITCHES SET OFF BY DEFAULT

SW.A74==1B17	;ANS-74  DEFAULTS WANTED
SW.A82==1B16	;ANS-8x DEFAULTS WANTED
SW.STB==1B15	;SUPPRESS TRAILING BLANKS ON WRITE
;TYPE OUT THE SWITCH SETTINGS:

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

	PRINTX	SWITCHES WHICH ARE ON:
	XPRINT	DBMS
	XPRINT	MCS
	XPRINT	ONESEG
	XPRINT	DEBUG
	XPRINT	TOPS20		; [431]
	XPRINT	MPWCEX
	XPRINT	ANS82

	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