T/(*T-/ P+1
T/CONST/
TS/GLOBALAREAMINLENWD/ R/100/6/
TS/UCCONST/ R/E,*/Ee,*/
T/TYPE/ TS/GLOBALAREA =/ TS/JUNKA/ R/59/3/ TS/BASELNBAD/ D/  ;/ T+1 PS/END/
TS/UC =/ A/POINT,// P.E T+1 P-1 R/UC = (/      / P./UCEXPON/
R/EXPON/LETTERE, UCSMALLLETTERE/
T/VAR/ TC/POSTMORTEM/ T+1 D/  /
T/PROCEDURE ICL9LPLONGISB (/
I$PROCEDURE ICL9LPMASKUFLOW ;
 
  EXTERN ;
 
 
$
T/PROCEDURE  ICL9LPPMDMPSPACE/ TS/GLOBALBASEAD/
P-1 B/F// P.E I/GLOBALBASEAD,/ T+1
P-1 B/F// P.E I/HEAPBASEAD,/ T+1
P-1 B/F// P.E I/HEAPLASTUSEDAD : ADDRESS;/ T+1 P+1 TS/ARRAY/ D/    /
T/PROCEDURE  ICL9LPFILEDECL (/ R/BALFA8/ALFA/
T/PROCEDURE  INITCTLISTFILE ;/ TS/BEGIN/
I$   CONST
      CTLISTNAME = '**COMPILATION-LISTING**         ';
 
$
I/   / T+1 I/   / B/TYPE// P./,TRUE/ I/CTLISTNAME/ -S/END/(T+1,I/   /) I/   /
T/PROCEDURE  JRNLFILEINIT/ TS/VAR/
I$   CONST
      JRNLNAME = '**JOURNAL-FILE**                ';
$
TS/ICL9LP/ B/TYPE// P.E I/JRNLNAME,/
T/PROCEDURE  JRNLFINISHMSG/ TS/WRITE/ PS/END/
I$    WRITELN(JRNLFP@,'HEAP BYTES USED:',MAXHEAPBYTESUSED:7);
    WRITELN(JRNLFP@,'OCP TIME (SECS.):',(CLOCK/1000):8:3);
$
T/FUNCTION  ICL9LPNEXTPMOBJ/ R/OBJECTRECPT/ADDRESS/
TS/ICL9LP/ B/TYPE// P.A/,/ D/)/
T/FUNCTION/ R/TOKENRECPT/ADDRESS/
TS/ICL9LP/ B/TYPE// P.A/,/ D/)/
T/FUNCTION/ R/MAPRECPT/ADDRESS/
TS/ICL9LP/ B/TYPE// P.A/,/ D/)/
T/PROCEDURE  INITDIAGFILE/ TS/VAR/
I$  CONST
    DIAGNAME = '**DIAGNOSTICS-FILE**            ';
$
TS/ICL9LP/ B/TYPE// P./, TRUE/ I/DIAGNAME/
T/PROCEDURE  EHFLAGERROR (/ TS/IF AT/ T+1 I$      ICL9LPMASKUFLOW;$$$
T/PROCEDURE EHDUMPNAMESPACE (/ T/BEGIN/
I$VAR
   HEAPAD: ADDRESS;
   HEAPSIZEB: SGMTRNGB;
$
TS/IF/ I$   GIVEHEAPBASEANDSIZE(HEAPAD,HEAPSIZEB);$$$
TS/CURRSTACK/ B/C// P.E I/HEAPAD,(HEAPAD+(HEAPSIZEB-1)),/ T+1 P-1
T/FUNCTION  ICL9LPCTINTERRUPTERROR / TS/EHCT/ I$   ICL9LPMASKUFLOW;$$$
T/FUNCTION  ICL9LPPMPROCL  / TS/WRITELN/ I$  ICL9LPMASKUFLOW;$$$
T/FUNCTION  ICL9LPPMPROCR  / TS/BEGIN/ T+1 P+1 I$  ICL9LPMASKUFLOW;$$$
T/PROCEDURE  DATEANDTIME / P/(*#E+/ T/FUNCTION  ICL9LPDATE/ P/(*#E-/
P-100 P/PROCEDURE  DATEANDTIME / R/DATEANDTIME/ICL9LPDATETIME/ T/END/
R/DATEANDTIME/ICL9LPDATETIME/ T/(*#E+/ P/(*#E-/
T/PROCEDURE  ICL9LPFILEDECL / TS/NAME/ R/BALFA8/ALFA/ TS/I :/ P+1
TS/FOR  I :=/ PS/IF TEXTF/ B/I// P.E I/NAMEPRG := NAME ;/ T+1 P-1
T/PROCEDURE  BASICINIT ;/ P/PROCEDURE  INITGLOBALAREA (/
TS/SRCELNNO :=/ P+1 T/PROC/ P-100 P/PROCEDURE  BASICINIT/
TS/INITCHAR/ T+1 P+1 T+1 P+1 T+1 PS/INITHEAP/
I$    INITGLOBALAREA(LIBNUCGLOBALP,NILAD);$$$
T/PROCEDURE  INITGLOBAL/ P+1 P/PROC/ T/BEGIN/
I$CONST
   PASCALFLAGFOREDIN=7;
$
TS/BASICINIT/ PS/ICL9CEZINIT/ R/5/PASCALFLAGFOREDIN/ T+1 P-10 PS/BASICINIT/
TS/ICL9CEZINIT/ P+1
T/PROCEDURE  ICL9LPINITRUN (/ A/(// P+2 P./G/ *2(T+1,*6(I/ /))
TS/PINS32/ PS/PINS16/ TS/CODE32/ P.E I/    ICL9LPMASKUFLOW;/
T/PROCEDURE  ICL9LPTIDYUP/ *2(TC/ICL9LPTIDY/,R/TIDYUP/RTTIDY/,T+1)
T/PROCEDURE  ICL9LPHALT / TS/HALT/ R/HALT/WRITELN (JRNLFP@)/ T+1 P-1
TELE