#ALT 1-21
%CONTROL X'0FFFFFFF'
!****************************************************
!*
!*  LPUT
!*
!*  EXTRACTED FROM EDINBURGH'S IMP MODULE FCSM10
!*  FOR USE IN BSV53/KSV17 PASCAL SYSTEM (PASCAL 20)
!*
!*  T.MOORE  FEB '80
!*
!****************************************************
!*
!*
#
T22,D/,AUXAREA/
DEL 23-27
DEL 31
DEL 34-691
#INS 694
%SYSTEMROUTINESPEC INITSERVICES
#INS 724
%SYSTEMROUTINE INITLPUT (%INTEGER WRK,TEMP)
!*
      WRKAREA = WRK
      TMPAREA = TEMP
      NULLOBJ = 0
      MAINEPSET = 0
      MAINEPNAME = ""
      LPUTERROR = 0
       INITSERVICES
%END;                          ! INITLPUT
!*
!*
%SYSTEMROUTINE GIVELPUTITEMS (%INTEGERNAME ERRORFLAG,  %C
                              %STRINGNAME MAINENTRYNAME)
!*
      ERRORFLAG = LPUTERROR
      MAINENTRYNAME = MAINEPNAME
%END;                                    ! GIVELPUTITEMS
!*
!*
#
DEL 806
T810,D/COMREG(28)&/
E