TC/MESSAGE TEXT BASE NUMBERS/
TC/EHDOCNMESSBASE = 1000/
R/(IE ERRORLINE,ROUTE,ETC*)//,T+1
I/                                 (I.E. ERRORLINE,ROUTE,ETC *)///
TC/P79/,R/P79INITDIAGTABLES/ICL9LPPMINITTABS/
T+1,R/ O/O/
T+1,R/ U/U/
T+1,R/ F/F/
T+1,R/V/  V/
TC/P79/,R/P79GETLINENO/ICL9LPPMLINENO/
T+1,R/V/      V/
TC/P79/,R/P79GETROUTINEID/ICL9LPPMBLOCKID/
*2(T+1,R/V/  V/)
TC/P79/,R/P79DUMPNAMESPACE/ICL9LPPMDMPSPACE/
R/     C/C/
T+1,R/     F/F/
T+1,R/     G/G/
T+1,R/     F/F/
T+1,R/ V/V/
TC/P78/,R/P78READR/ICL9LPRIOREAD/
T+1,R/V/     V/
TC/P78/,R/P78WRFIX/ICL9LPRIOWRFIX/
T+1,R/V/  V/
TC/P78/,R/P78WRFLT/ICL9LPRIOWRFLOAT/
T+1,R/V/        V/
TC/P77/,R/P77FDEC/ICL9LPFILEDECL/
R/TEXTF, PERMF : BOOLEAN ;//,T+1
I#                           TEXTF, PERMF : BOOLEAN ;###
P+1
I/                           TXKIND : TXFCLASS ;  UNITNO : FUNITRNG ;
                           RCLENWD : POSINT)  ;///
 
*2(TC/P77/,R/P77WRBST/ICL9LPWRITEBSTR/)
*2(TC/P77/,R/P77CODE/ICL9LPCHARCODEIS/)
TC/P77/,R/P77CHAR/ICL9LPGETCHARTAB/
R/VAR CCTTPVAR : CCTTPT)  ;//,T+1
I/                              VAR CCTTPVAR : CCTTPT)  ;///
TC/P77/,R/P77CHAR/ICL9LPGETCHARTAB/
TC/P77/,R/P77FDEC/ICL9LPFILEDECL/
T+1,R/C/       C/
TC/P77/,R/P77FDEC/ICL9LPFILEDECL/
R/TRUE, TRUE, TXKIND,//
T+1,I/                    TRUE, TRUE, TXKIND,///
R/F/       F/
TC/P79/,R/P79INITDIAGTABLES/ICL9LPPMINITTABS/
T+1,R/ C/C/
*2(TC/P77/,R/P77RESETOBJECTAREA/ICL9LPRESETPMOBJ/)
*2(TC/P77/,R/P77RESETTOKENAREA/ICL9LPRESETPMTOK/)
*2(TC/P77/,R/P77RESETMAPAREA/ICL9LPRESETPMMAP/)
*3(TC/P77/,R/P77NEXTOBJECT/ICL9LPNEXTPMOBJ/)
*3(TC/P77/,R/P77NEXTTOKEN/ICL9LPNEXTPMTOK/)
*3(TC/P77/,R/P77NEXTMAPREC/ICL9LPNEXTPMMAP/)
 
TC/P77/,R/P77FDEC/ICL9LPFILEDECL/
TC/P79/,R/P79GETLINENO/ICL9LPPMLINENO/
TC/P79/,R/P79GETROUTINEID/ICL9LPPMBLOCKID/
TC/P79/,R/P79DUMPNAMESPACE/ICL9LPPMDMPSPACE/
T+1,R/C/ C/
*2(TC/P77/,R/P77RNGR/ICL9LPRANGEERROR/)
*2(TC/P77/,R/P77CASER/ICL9LPCASEERROR/)
*15(TC/P77/,R/P77/ICL9LP/)
*3(TC/P77/,R/P77ARCTN/ICL9LPARCTAN/)
*10(TC/P77/,R/P77/ICL9LP/)
TC/P77/,R/P77DISP/ICL9LPDISPOSE/
R/KNOWS ABOUT IT *)//
T+1,I/               KNOWS ABOUT IT *)///
*3(TC/P77/,R/P77/ICL9LP/)
TC/P77/,R/P77DISP/ICL9LPDISPOSE/
TC/P77/,R/P77/ICL9LP/
TC/P77/,R/P77DISP/ICL9LPDISPOSE/
TC/P77/,R/P77/ICL9LP/
TC/P77/,R/P77DISP/ICL9LPDISPOSE/
TC/P77/,R/P77/ICL9LP/
*2(TC/P77/,R/P77RDLN/ICL9LPREADLINE/)
*2(TC/P77/,R/P77WRLN/ICL9LPWRITELINE/)
*2(TC/P77/,R/P77GREC/ICL9LPGETRECORD/)
*2(TC/P77/,R/P77PREC/ICL9LPPUTRECORD/)
TC/P77/,R/P77/ICL9LP/
TC/P77/,R/P77RDLN/ICL9LPREADLINE/
TC/P77/,R/P77GREC/ICL9LPGETRECORD/
TC/P77/,R/P77/ICL9LP/
*2(TC/P77/,R/P77REWRT/ICL9LPREWRITE/)
TC/P77/,R/P77FDEC/ICL9LPFILEDECL/
TC/P77/,R/P77/ICL9LP/
TC/P77/,R/P77REWRT/ICL9LPREWRITE/ 
TC/P77/,R/P77FDEC/ICL9LPFILEDECL/
TC/P77/,R/P77WRLN/ICL9LPWRITELINE/
*2(TC/P77/,R/P77RRERR/ICL9LPREADRERR/)
TC/P77/,R/P77WRLN/ICL9LPWRITELINE/
TC/DEVARSETUP/
R/FV.CHAD)  ;//,T+1
I/                        FV.CHAD)  ;///
TC/P77/,R/P77WRLN/ICL9LPREADLINE/
TC/P77/,R/P77RDINT/ICL9LPREADINT/
TC/P77/,R/P77RDLN/ICL9LPREADLINE/
*2(TC/P77/,R/P77RDINT/ICL9LPREADINT/)
TC/P77/,R/P77RDRL/ICL9LPREADREAL/
TC/P78/,R/P78READR/ICL9LPRIOREAD/
*2(TC/P77/,R/P77RDRL/ICL9LPREADREAL/)
TC/P77/,R/P77/ICL9LP/
TC/P77/,R/P77WRLN/ICL9LPWRITELINE/
TC/P77/,R/P77/ICL9LP/
TC/P77/,R/P77WRFCH/ICL9LPWRITECHAR/
R/VAR FV : FVAR)  ;//
T+1,I/                            VAR FV : FVAR)  ;///
TC/P77/,R/P77WRFCH/ICL9LPWRITECHAR/
TC/P77/,R/P77WRBST/ICL9LPWRITEBSTR/
*2(TC/P77/,R/P77WRLN/ICL9LPWRITELINE/)
TC/P77/,R/P77WRBST/ICL9LPWRITEBSTR/
TC/P77/,R/P77WRSTR/ICL9LPWRITESTR/
R/VAR FV : FVAR)  ;//
T+1,I/                           VAR FV : FVAR)  ;///
TC/P77/,R/P77WRBST/ICL9LPWRITEBSTR/
TC/P77/,R/P77WRSTR/ICL9LPWRITESTR/
TC/P77/,R/P77WRWST/ICL9LPWRITEWDSTR/
R/VAR FV : FVAR)  ;//
T+1,I/                             VAR FV : FVAR)  ;///
TC/P77/,R/P77WRBST/ICL9LPWRITEBSTR/
TC/P77/,R/P77WRWST/ICL9LPWRITEWDSTR/
TC/P77/,R/P77WRINT/ICL9LPWRITEINT/
TC/P77/,R/P77WRSTR/ICL9LPWRITESTR/
TC/P77/,R/P77WRBST/ICL9LPWRITEBSTR/
TC/P77/,R/P77WRINT/ICL9LPWRITEINT/
TC/P77/,R/P77WRRL/ICL9LPWRITEREAL/
T+1,R#V#        V#
TC/P78/,R/P78WRFLT/ICL9LPRIOWRFLOAT/
TC/P78/,R/P78WRFIX/ICL9LPRIOWRFIX/
 
R/FV.FCBLK@.FUCRUPVCP@, FV)  ;//
T+1,I/                            FV.FCBLK@.FUCRUPVCP@, FV)  ;///
TC/P77/,R/P77WRRL/ICL9LPWRITEREAL/
TC/P77/,R/P77WBOOL/ICL9LPWRITEBOOL/
R/VAR FV : FVAR)  ;//
T+1,I/                            VAR FV : FVAR)  ;///
TC/P77/,R/P77WRSTR/ICL9LPWRITESTR/
TC/P77/,R/P77WBOOL/ICL9LPWRITEBOOL/
*3(TC/P77/,R/P77INIT/ICL9LPINITRUN/)
*2(TC/P77/,R/P77FINSH/ICL9LPFINISHRUN/)
*2(TC/P77/,R/P77TIDY/ICL9LPTIDYUP/)
*2(TC/P77/,R/P77HALT/ICL9LPHALT/)
TELE