.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.SETS DIR <DIRECT>
.SETS UIC <UIC>
.IF DIR <> "[]" .SETS UIC <LOGUIC>
.SETS CLI <CLI>
.IF CLI NE "MCR" MCR SET /CLI=TI:MCR
SET /NONAMED
SET /UIC=[5,1]
;
; Building DECUS C at '<DATE>' '<TIME>'
;
; General section
;
.ASKS [::"C:"] $BINDI Destination for tasks
.ASKS [::"C:"] $LIBDI Destination for library
.ASKS [::"C:"] $INCDI Destination for include files
;
.ASK [<TRUE>] BUILD Have the files already been built
.ASK [<TRUE>] INST Should the files be installed
.IFT BUILD .GOTO 500
;
.ASK [<FALSE>] $OLD Is your processor an 11/04, 11/05, 11/10 or 11/20
.IFT $OLD .SETF $EIS
.IFNDF $EIS .ASK [<TRUE>] $EIS Does the machine have EIS
.ASK [<FALSE>] $FLT Should the floating-point default be (non-standard) single precision
.ASK [<FALSE>] $XAS Limit char to 7 bits
;
; Compiler section
;
.ASK [<FALSE>] $V32 Are you running on RSX-11M V3.2
.ASK [<FALSE>] $UMAP Will the compiler be running on an unmapped system
.IFF $UMAP .GOTO 120
.ASKS $PAR Enter partition parameters TKB style [name:base:size]
.120:
.ASK [<TRUE>] $FPPIN Should the compiler do float constant folding
;
; You may alter the default p-section maximum and/or branch table
; size. The default values represent a good compromise between task
; size and capability. They allow for 10 p-sections and 250 branch
; table entries. To choose the default, answer with a carriage return.
;
.ASKN [::10.] $PSIZE Maximum number of p-sections
.ASKN [::250.] $FSIZE Branch table size
.ASK [<FALSE>] $FCSRE Task build with FCSRES shared library
.IFF $FCSRE .ASK [<TRUE>] $FCSFS Task build with FCSFSL supervisor mode library
.IFNDF $FCSFS .SETF $FCSFS
;
; Library questions
;
.ASK [<TRUE>] $RMS Build RMS version of library
.ASKN [1:16.:4.] $FILES Default number of files in FCS library
;
; You must override the assignments in this file if you want the following
; logical devices to be assigned to other than SY:
;
;	SR:	Source and command files must be on this device.
;	LS:	Listings go to this device.
;	OB:	Objects go to this device.
;	MP:	Maps go to this device.
;	OU:	Task images go to this device.
;
ASN SY:=SR:
ASN NL:=LS:
ASN SY:=OB:
ASN SY:=MP:
ASN SY:=OU:
;
.ASK OK Are the above assignments OK
.IFT OK .GOTO 100
;
; We will now pause so that you may change assignment(s)...
.PAUSE
.100:
.SETT $ASNOK
;
; All qustions asked. Time to build system.
;
@[5,4]MMAKCC
.IF <EXSTAT> NE 1 .GOTO 700
.SETT CBLD
@[5,4]MMAKAS
.IF <EXSTAT> NE 1 .GOTO 700
@[5,16]MMAKLB
.IF <EXSTAT> NE 1 .GOTO 700
@[5,24]CXMAK
.IF <EXSTAT> NE 1 .GOTO 700
@[5,10]CNGEN
.IF <EXSTAT> NE 1 .GOTO 700
@[5,26]MTOOL
.IF <EXSTAT> NE 1 .GOTO 700
@[5,3]MGTDOC
.IF <EXSTAT> NE 1 .GOTO 700
RNO [5,24]=[5,24]CX.RNO
.IF <EXSTAT> NE 1 .GOTO 700
RNO [5,10]=[5,10]CN.RNO
.IF <EXSTAT> NE 1 .GOTO 700
;
; Build finished.
;
.500:
.SETT OK
.IFF INST .GOTO 1000
PIP '$BINDI'/NV=[5,4]CC.TSK,AS.TSK,[5,26]*.TSK
PIP '$LIBDI'/NV=[5,16]C.OLB,CR.OLB,ATOF.OBJ,DTOA.OBJ,[5,24]CX.OLB,[5,10]CN.OLB
PIP '$INCDI'/NV=[5,2]*.H,[5,24]*.H,[5,10]*.H
PIP '$BINDI'/NV=[5,3]*.DOC,[5,10]*.DOC,[5,24]*.DOC
PIP '$BINDI'*.*/PU/LD,'$LIBDI'*.*,'$INCDI'*.*
.GOTO 1000
.700:
;
; Build failed.
;
.SETF OK
.1000:
.IF DIR = "[]" .GOTO DONE
SET /NAMED
SET /DEF='DIR'
.DONE:
SET /UIC='UIC'
SET /CLI=TI:'CLI'
.IFF OK .EXIT 2
.EXIT 1