;
;       FORTRAN COMPILES
;
F77 RHP=RHP
F77 ERROR=ERROR
F77 GETCDS=GETCDS
F77 QIOSYM=QIOSYM
;
;       MACRO ASSEMBLES
;
MAC GCML=GCML
MAC LENGTH=LENGTH
MAC POS=POS
;
;       TASK BUILD
;
.OPEN RHP.BLD
.ENABLE DATA
RHP/CP/FP=RHP,ERROR,GETCDS,QIOSYM,GCML,LENGTH,POS
LB:[1,1]F77OTS/LB
/
ASG=TI:4:5:6
ASG=SY:2:3
ASG=IE:1
//
.DISABLE DATA
.CLOSE
TKB @RHP.BLD
PIP RHP.OBJ;*/DE,ERROR;*,GETCDS;*,QIOSYM;*,GCML;*,LENGTH;*,POS;*
PIP RHP.BLD;*/DE
PIP RHP.TSK/PU
