Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/interm.mac
There are 17 other files named interm.mac in the archive. Click here to see a list.
; UPD ID= 1091 on 5/12/83 at 1:44 PM by NIXON
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
; [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
;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