%CONTROL X'0FFFFFFF'
!* RTNDIAG - FOR PASCAL 20 (RUNTIME)
!*
!* SHORTENED VERSION OF NDIAG CONTAINING:-
!*      NDIAG
!*      NOMDESC
!*
!* T.MOORE    APRIL 1980
!*
%SYSTEMROUTINESPEC OPEHUSERERROR(%INTEGER ERRNO,ADDINF,LANG,STACK)
%EXTERNALINTEGERFNSPEC ICL9HENOMDESC(%LONGINTEGER NAMEDESC,  %C
                                     %INTEGER P0,P1,P2,P3)
  
%SYSTEMROUTINE NDIAG(%INTEGER PCOUNT,LNB,FAULT,INF)
 
      OPEHUSERERROR(FAULT,0,1,5)
 
%END; ! NDIAG
 
%SYSTEMINTEGERFN NOMDESC(%LONGINTEGER NAMEDESC, %INTEGER P0,P1,P2,P3)
 
      %RESULT=ICL9HENOMDESC(NAMEDESC,X'B0000002',P1,0,0)
 
%END; ! NOMDESC
 
%ENDOFFILE