T/CONST/
TS/GLOBALAREAMINLENWD/ R/6/8/
T/TYPE/
TS/GLOBALAREA =/ TS/BASELNBAD/ A/ADDRESS/ ;/ T+1
I/      JLKLINKREF : ADDRESS ;
      SPARE : WORD
/
TS/KINDOFBLOCK =/ T+2
I/  JLKDIAGDATAREC =
    RECORD
      ADATTOPOFSTACKFRAME,
      ADOFGLOBALAREA : ADDRESS
    END;
   
/
TC/TIME ROUTINES/ PC/MATHS./
T/VAR/
TS/COMPILERSTACKBASEAD/ T+1
I/  TEMPJLKDIAGDATA : JLKDIAGDATAREC ;///
T/PROCEDURE  JRNLFINISHMSG/
TC/HEAP BYTES/ R/USED:/USED : / R/7/1/
TC/OCP TIME/ B/SECS./MILLI/ R/SECS.):/SECS.) : / B/(CLOCK// P./);/ I/CLOCK:1/
T/FUNCTION  ICL9LPNEXTPMMAP :/ TS/END (* ICL/ T+1
I$
    
FUNCTION ICL9LPPRELINKPM : SGMTRNGB;
   
   VAR
      PCVALUE : ADDRESS;
      MODULENAME : ALFA;
      IIN : POSINT;
      CODEOFFSET : SGMTRNGB;
   BEGIN
   PCVALUE := WORDAT (TEMPJLKDIAGDATA.ADATTOPOFSTACKFRAME);
   ICL9LPCTMRMLD (PCVALUE, MODULENAME, IIN, CODEOFFSET);
   ICL9LPPRELINKPM := CODEOFFSET;
   END (* ICL9LPPRELINKPM *);
   
FUNCTION ICL9LPPOSTLINKPM : SGMTRNGB;
   
   CONST
      JLKLINKOFFSETB = 24;   (* C.F. "GLOBALAREA" DEFINITION *)
   VAR
      PCVALUE : ADDRESS;
      MODULENAME : ALFA;
      IIN : POSINT;
      CODEOFFSET : SGMTRNGB;
   BEGIN
   PCVALUE := WORDAT (WORDAT(TEMPJLKDIAGDATA.ADOFGLOBALAREA+JLKLINKOFFSETB)
                      - BINWD);
   ICL9LPCTMRMLD (PCVALUE, MODULENAME, IIN, CODEOFFSET);
   ICL9LPPOSTLINKPM := CODEOFFSET;
   END (* ICL9LPPOSTLINKPM *);
$
T/PROCEDURE EHDUMPNAMESPACE (/ TS/END (* EHDUMP/ T+1
I$
    
PROCEDURE SETJLKDIAGDATA (STACKFRAMEDESC : WVDESC);
    
   CONST
      PLTOFFSETINFRAME = 16;  (* C.F. "STACKFRAMELAYOUT" DEFINITION *)
      GLOBALOFFSETINPLT = 36;  (* C.F. "PLTLAYOUT" DEFINITION *)
   BEGIN
   WITH TEMPJLKDIAGDATA DO
      BEGIN
      ADATTOPOFSTACKFRAME:=DEADDR(STACKFRAMEDESC)+
                           (DEBOUND(STACKFRAMEDESC)-1)*BINWD;
      ADOFGLOBALAREA:=WORDAT( WORDAT(DEADDR(STACKFRAMEDESC)+PLTOFFSETINFRAME) +
                              GLOBALOFFSETINPLT );
      END;
   END (* SETJLKDIAGDATA *) ;
$
T/BEGIN/ TS/WRITELN/
I/  SETJLKDIAGDATA(STACKFRAME);///
T/FUNCTION  ICL9LPPMPROCR / TS/STACKFRAMEPT :=/
I/  SETJLKDIAGDATA(STACKFRAME);///
T/FUNCTION  ICL9LPREADINT (/
TS/BEGIN/
I$  PROCEDURE ERROR (ERRORID: FERRORTYPE);
    BEGIN
      IF NOT FV.FEOF THEN FV.CHAD:=BFSTARTAD+IX;
      FERROR (FV,ERRORID);
    END (* ERROR *);
 
$
*4(TC/FERROR (/, R/FERROR/ERROR/, D/FV, /, T+1)
TELE