.;
.; Quickie CN Library gen procedure
.;
.; Use GETCMD tool to get a CNASM.MAC file built for this UIC!!
.;
.ENABLE SUBSTITUTION
.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,10]
;	Generate CN library
.IFDF $ASNOK .GOTO 10
;
; All .OB files, as well as old versions of CN.OLB will be
; deleted by this procedure ...
;
.ASK OK Is this OK
.IFF OK .EXIT
.10:
;
; Clean up old junk
;
PIP *.OB;*/DE/NM,CN.OLB;*
;
; Assemble the library modules
;
.IFNINS MAC INS $MAC
MAC @CNASM
.IF <EXSTAT> NE 1 .GOTO ERR
;
; Concatenate objects and build new library
;
PIP T.TMP=*.OB
.IFNINS LBR INS $LBR/INC=10000
LBR CN/CR=T.TMP
.IF <EXSTAT> NE 1 .GOTO ERR
PIP T.TMP;*/DE,*.OB;*
;
; New CN library built.
;
.SETT OK
.GOTO 1000
.ERR:
;
;  There has been an error.  Correct the problem and try again.
;
.1000:
.IF DIR = "[]" .GOTO DONE
SET /NAMED
SET /DEF='DIR'
.DONE:
SET /UIC='UIC'
SET /CLI=TI:'CLI'
.IFF OK .EXIT 2
.EXIT 1