I/%CONTROL X'1FFFFFFF'///
I/!* RTENV - FOR PASCAL 20 (RUN-TIME)
!*
!* MAINLY DIAGNOSTICS SIMPLIFICATIONS
!*
!* T.MOORE    APRIL 1980
!*
/
TC/PROCL=E"ICL9CERRPROCL"/
I/%CONSTSTRING(40) SWERRMESS=E"ERROR IN PASCAL ENVIRONMENT"///
T/%ROUTINESPEC ICL9CETIDYUP/ I/!    /
T/%SYSTEMROUTINE DATIME/ R/DATIME/DATEANDTIME/
T/%EXTERNALINTEGERFN ICL9CENVINIT/ R/NV/Z/
T/!      %UNLESS LANG=2/ G
*9(R/ /!/ G)
TS/%IF DIAGMODE=1/
I/      SSCOMREG(36)=LNB///
TS/SKIP:/ R/SKIP:/     / G I/!/
G R/     /SKIP:/
T/%SYSTEMROUTINE STOP/
T+2 I/      -> SKIP///
TC/ICL9CETIDYUP/ B/ELSE/; ! /
TS/I=SSCOMREG(36)/ I/SKIP:///
T/%INTEGERFN STRM DEFOUT PROC/
TC/INDEFAULT/ R/5/98/
G R/6/99/
T/%EXTERNALINTEGERFN ICL9CERRPROCR/
TS/%IF INTEGER(MODCHAIN1/ I/      -> SKIP///
G I/SKIP:/
G R/=1/>0/
T+4 I/         PRINTSTRING("IMP PROCEDURE (MODULE ".NAME.")")
         PRINTSTRING(" AT BYTE DISPLACEMENT X")
         PHEX(DISPLACEMENT)
         %RESULT=0
/
A/H/ELSE %RESULT=0/
T/%EXTERNALINTEGERFN ICL9HERRMESSL/
TS/%RESULT=0/
I/      EMESSDESC=X'FFFFFFFFFFFFFFFF'
      %IF ERRNO>0 %THENSTART
         EMESSDESC=((X'18000000'+LENGTH(SWERRMESS))<<32) %C
                   +ADDR(SWERRMESS)+1
      %FINISH
/
?ALT /%ROUTINE ICL9CETIDYUP/
%EXTERNALROUTINE ICL9CEZTIDY
?
T/%ROUTINE ERRPROCS/
TC/ERRPROCL/ P+1
TC/ERRMESSG/ P+1
T/%EXTERNALROUTINE ICL9CECPUTIME/
P/%ENDOFFILE/
E