;
; open specified file.lis, compile all files, and build them into
; file.olb
;
;
.ENABLE SUBSTITUTION
.ENABLE QUIET
;
;
; OPEN THE FILE AND CLEAR THE GLOBAL OBJECT FILE
;
PIP 'P1'.OBJ;*/DE
.OPENR 'P1'.LIS
;
; LOOP ARROUND GETTING THE 
.READLP:
.READ FNAM
.IFT <EOF> .GOTO LPEX
XCC -A 'FNAM'
.IF <EXSTAT> <> 1 .GOTO COMERR
PIP 'P1'.OBJ='P1'.OBJ,'FNAM'.OBJ
PIP 'P1'.OBJ/PU
PIP 'FNAM'.OBJ;*/DE
.GOTO READLP
;
; CLOSE THE FILE
;
.LPEX:
.CLOSE
;
; BUILD THE LIBRARY
;
PIP 'P1'.OLB;*/DE
;
LBR 'P1'/CR='P1'
;
PIP 'P1'.OBJ;*/DE
;
.EXIT
;
; WE HAVE A COMPILE ERROR
;
.COMERR:
.CLOSE
.OPEN TI:
.DATA
.DATA
.DATA ******** COMPILE ERROR ON 'FNAM' WHILE MAKING 'P1' *********
.DATA
.DATA
.CLOSE
.EXIT
;
