ASMB,B,L   HP14912B, HP6940/6941 RTE LIBRARY
      NAM DUMMY,1 
      EXT MPIOT 
* 14912-80001 REV. B    SOURCE TAPE 
* 14912-60001 REV. B    BINARY TAPE 
* 14912-90001 REV. B    LISTING 
* 14912-90002 OCT.1974  MANUAL
*    REVISION B NOV. 1975     R.W.HARRISON
* 
* 
*THIS ROUTINE AND MPIOT,SUPRT,ICFMP,IOUT,INPUT,IPOLL,AND IENIN          
*COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED,SUBROUTINE     
*IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER    
*TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU    
*DVR61 WITHOUT HAVING TO SET MP CONTROL MODES.THE LIBRARY PREVENTS  
*THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT        
*SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION. 
*DUMMY AND MPIOT ARE USED DURING RTE GENERATION.
* 
* 
      END         
                                        ASMB,B,L   HP14912B, HP6940/6941 RTE LIBRARY
      NAM MPIOT,6 
      ENT MPIOT 
*14912-80001  REV. B    SOURCE TAPE 
*14912-60001  REV. B    BINARY TAPE 
*14912-90001  REV. B    LISTING 
*14912-90002  OCT.1974  MANUAL
*    REVISION B NOV. 1975     R.W. HARRISON 
* 
* 
*THIS ROUTINE AND DUMMY,SUPRT,ICFMP,IOUT,INPUT,IPOLL,AND IENIN
*COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE
*IPUT MUST BE SUPPLIED(SE MANUAL).THE RTE LIBRARY ALLOWS THE USER   
*TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU
*DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS 
*THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT
*SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION. 
*MPIOT AND DUMMY ARE USED DURING RTE GENERATION.
* 
* 
MPIOT NOP 
      REP 241 
      NOP 
      END 
                                        ASMB,L,B     HP14912B, HP6940/6941 RTE LIBRARY
      NAM SUPRT,7 
      ENT ICALA,IRDMP,MERGE,ISHFT 
      EXT MPIOT               
* 14912-80001 REV. B    SOURCE TAPE 
* 14912-60001 REV. B    BINARY TAPE 
* 14912-90001 REV. B    LISTING 
* 14912-90002 OCT.1974  MANUAL          
*    REVISION B NOV. 1975      R.W.HARRISON 
* 
* 
*THIS ROUTINE AND DUMMY,MPIOT,ICFMP,IOUT,INPUT,IPOLL,AND IENIN
*COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE
*IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER    
*TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU
*DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS 
*THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT
*SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION. 
*SUPRT USED WHEN PROGRAMS REFERENCING LIBRARY ROUTINES ARE LOADED.
M1    OCT -1
RTN   NOP 
MASK  OCT 077777
STTAB DEF MPIOT   DEFINE START OF MP I/O TABLE
A     EQU 0 
B     EQU 1 
ICALA NOP 
      LDB ICALA,I 
      STB RTN 
      ISZ ICALA   
      LDB ICALA,I    GET THE INDEX
      LDB B,I 
      LDA STTAB       GET THE START OF MP TABLE 
      AND MASK       STRIP OFF THE INDIRECT ADDRESS LINK
      LDA 0,I        GET THE START OF TABLE ADDRESS 
      ADA B          ADD INDEX TO POINT TO DESIRED  
      JMP RTN,I       ADDRESS.
IRDMP NOP 
      LDB IRDMP,I 
      STB RTN 
      ISZ IRDMP 
      LDB IRDMP,I 
      LDB B,I 
      LDA STTAB 
      AND MASK
      LDA A,I 
      ADA B 
      LDA A,I 
      JMP RTN,I 
MERGE NOP 
     LDA MERGE,I
      STA RTN 
      ISZ MERGE 
      LDA MERGE,I 
      LDA A,I 
      ISZ MERGE 
      LDB MERGE,I 
      LDB B,I 
      ADA M1
      ALF,ALF 
      ALF 
      IOR B 
      JMP RTN,I 
ISHFT NOP 
      LDA ISHFT,I 
      STA RTN 
      ISZ ISHFT 
      LDA ISHFT,I 
      LDA A,I 
      ALF 
      JMP RTN,I 
      END 
                                        FTN4,L,B
      SUBROUTINE ICFMP(ISTAT,LUN,IOCDS,LSTSL)         
C      HP14912B, HP6940/6941 RTE LIBRARY
C 14912-80001  REV. B    SOURCE TAPE  
C 14912-60001  REV. B    BINARY TAPE  
C 14912-90001  REV. B    LISTING
C 14912-90002  OCT.1974  MANUAL       
C     REVISION B NOV. 1975      R.W. HARRISON 
C THIS ROUTINE AND DUMMY,MPIOT,SUPRT,IOUT,INPUT,IPOLL,AND IENIN 
C COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE 
C IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER   
C TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU 
C DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS  
C THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT 
C SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION.  
C ICFMP USED WHEN PROGRAMS REFERENCING LIBRARY ROUTINES ARE LOADED. 
C ICFMP MUST BE CALLED BEFORE ANY OTHER LIBRARY ROUTINE IS CALLED.
C           
      DIMENSION IOCDS(240)              
      DATA MASK1/3B/,INTCD/0/   
      DATA IEND/240/
      NDEX=0
C FIRST, CHECK FOR LEGAL LUN AND ADD 100B TO SPECIFY BINARY 
C MODE IF NECESSARY.
      IF(LUN.LT.100B)GO TO 5    
      IF((LUN.LT.107B).OR.(LUN.GT.177B))GO TO 4   
      GO TO 10
5     IF((LUN.LT.7).OR.(LUN.GT.77B))GO TO 4   
      LUN=LUN+100B
C CHECK AND SAVE TOTAL # OF I/O CARDS USER SPECIFIES
10    IF((LSTSL.LE.0).OR.(LSTSL.GT.IEND))GO TO 14   
C CHECK IO SPECS AND BUILD MP TABLE 
15    DO 20 J=1,LSTSL 
      IF(IOCDS(J).EQ.0)GO TO 20 
      IF((IOCDS(J).LT.0).OR.(IOCDS(J).GT.177B))GO TO 24   
      IF(IOCDS(J).GT.77B)GO TO 19 
      IF((IOCDS(J).GT.2).AND.(IOCDS(J).LT.41B))GO TO 24 
      IF((IOCDS(J).GT.42B).AND.(IOCDS(J).LT.100B))GO TO 24    
      GO TO 20
19    ICARD=IAND(IOCDS(J),MASK1)
      IF(ICARD.EQ.1)GO TO 24
20    CONTINUE
C STORE SPECS. IN CORE RESIDENT IO TABLE (MPIOT)
      IADRS=ICALA(NDEX) 
      CALL IPUT(IADRS,LUN)
      NDEX=NDEX+1 
      IADRS=IADRS+1 
      CALL IPUT(IADRS,LSTSL)
      DO 30 I=1,LSTSL 
      NDEX=NDEX+1 
      IADRS=IADRS+1 
      CALL IPUT(IADRS,IOCDS(I)) 
30    CONTINUE
C ZERO CARD SPEC BUFFER IF LSTLS <IEND
      IF (LSTSL.EQ.IEND)GO TO 60
      IADRS=IADRS+1 
      DO 210 I=LSTSL+1,IEND 
      CALL IPUT (IADRS,INTCD) 
      IADRS=IADRS+1 
210   CONTINUE
C TELL USER CONFIG. ACCEPTED VIA ISTAT=1
60    ISTAT=1 
      GO TO 110 
C IF CALL REJECTED,SET LUN=0 AND NOTIFY USER VIA ISTAT<0  
4     ISTAT=-1
      GO TO 100 
14    ISTAT=-5
      GO TO 100 
24    ISTAT=-3
100   IDATA=0 
      M=0 
      IADRS=ICALA(M)        
      CALL IPUT(IADRS,IDATA)  
110   CONTINUE
      END 
      END$
                                        FTN4,L,B      
      SUBROUTINE IOUT(ISTAT,LUN,IFSTO,IOLUN,IDATA,NUMB) 
C      HP14912B, HP6940/6941 RTE LIBRARY
C 14912-80001  REV. B    SOURCE TAPE  
C 14912-60001  REV. B    BINARY TAPE  
C 14912-90001  REV. B    LISTING            
C 14912-90002  OCT. 1974 MANUAL             
C     REVISION B NOV. 1975     R.W.HARRISON 
C THIS ROUTINE AND DUMMY,MPIOT,SUPRT,ICFMP,INPUT,IPOLL,AND IENIN
C COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE 
C IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER   
C TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU 
C DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS  
C THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT 
C SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION.  
C IOUT USED WHEN PROGRAMS REFERENCING IT ARE LOADED.
C ICFMP MUST BE CALLED AT LEAST ONCE BEFORE IOUT IS CALLED. 
C IOUT IS ALSO REQUIRED IF IENIN IS USED. 
C             
      DIMENSION IBUFO(480),IOLUN(240),IDATA(240),ISX(2) 
      EQUIVALENCE (IOCDS,IBUFO,INBUF)         
      EQUIVALENCE(STAT,ISX(1))
      DATA MASK/000004B/,MASK1/000020B/ 
      ICNWD=170140B 
      LSTUN=-1
      NDEX=1
      IDSRM=0 
      IF((ISTAT.EQ.-1).AND.(IFSTO.EQ.-1)) GO TO 101 
      LSTSL=IRDMP(NDEX) 
1     IF((NUMB.LE.0).OR.(NUMB.GT.LSTSL))GO TO 44  
2     IF(LUN.GT.100B)GO TO 5
      LUN=LUN+100B
C CHECK THAT USER'S LUN=CONFIGURED LUN WITH OR W/O M-BIT
5     INDEX=0       
      MDATA=IRDMP(INDEX)
      IF(LUN.NE.MDATA)GO TO 4   
C CHECK EACH OF USERS CARDS AGAINST CONFIGURED SPECS
C AND CHECK THAT EACH DATA VALUE IS -2049<DATA<=4095
C IF THE CALL IS NOT FOR DISARM (0 DATA SENT ON DISARM) 
      DO 100 I=1,NUMB 
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 24    
      INDEX=IOLUN(I)+1          
      MDATA=IRDMP(INDEX)
      IF((MDATA.LE.0).OR.(MDATA.GT.177B)) GO TO 24
      IF((MDATA.GT.117B).AND.(MDATA.LT.140B))GO TO 300
      IF((IDATA(I).LT.-2048).OR.(IDATA(I).GT.4095))GO TO 34 
18    IF(IFSTO.EQ.0)GO TO 20
      IF(IFSTO.NE.1)GO TO 14  
C CHECK H/S OUTPUT SPECS
      IF((MDATA.GT.2).AND.(MDATA.LT.41B))GO TO 24     
      IF((MDATA.GT.42B).AND.(MDATA.LT.140B))GO TO 24      
      GO TO 100 
C CHECK NORMAL WRITE SPECS
20    IF((MDATA.EQ.2).OR.(MDATA.EQ.42B))GO TO 100 
      GO TO 24  
C CHECK FOR DISARM SPECS
300   IF(IAND(MDATA,MASK1).EQ.0)GO TO 24
      IFSTO=1   
      IDATA(I)=0
100   CONTINUE
101   IF(IFSTO.EQ.-1)ICNWD=170240B
      IF(IFSTO.EQ.0)ICNWD=170160B 
      DO 200 L=1,NUMB 
      ISLOT=IOLUN(L)
      DO 150 M=0,15 
      LUNIT=M 
      IF(ISLOT.LE.15)GO TO 175
      ISLOT=ISLOT-15
150   CONTINUE
175   IF(LUNIT.EQ.LSTUN)GO TO 180 
      IBUFO(NDEX)=IOR(ICNWD,LUNIT)
      LSTUN=LUNIT 
      NDEX=NDEX+1 
180   IBUFO(NDEX)=MERGE(ISLOT,IDATA(L)) 
      NDEX=NDEX+1 
200   CONTINUE
      NDEX=NDEX-1 
      IF(IFSTO.EQ.0)GO TO 201 
190   STAT=EXEC(2,LUN,IBUFO,NDEX,1) 
      GO TO 203 
201   STAT=EXEC(2,LUN,IBUFO,NDEX,0) 
203   ISX(1)=IAND(MASK,ISX(1))    
      IF(ISX(1).NE.0)GO TO 1000 
      ISTAT=1 
      GO TO 1010
4     ISTAT=-1
      GO TO 1010
14    ISTAT=-2
      GO TO 1010
24    ISTAT=-3
      GO TO 1010
34    ISTAT=-4
      GO TO 1010
44    ISTAT=-5
      GO TO 1010
1000  ISTAT=0 
1010  CONTINUE
      END 
      END$
                                        FTN4,L,B  
      SUBROUTINE INPUT(ISTAT,LUN,IFSTI,IGATE,IOLUN,INBUF,NUMB)
C         HP14912B, HP6940/6941 RTE LIBRARY 
C 14912-80001  REV. B    SOURCE TAPE  
C 14912-60001  REV. B    BINARY TAPE  
C 14912-90001  REV. B    LISTING      
C 14912-90002  OCT.1974  MANUAL       
C     REVISION B NOV. 1975     R.W.HARRISON 
C THIS ROUTINE AND DUMMY,MPIOT,SUPRT,ICFMP,IOUT,IPOLL,AND IENIN 
C COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE 
C IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER   
C TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU 
C DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS  
C THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT 
C SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION.  
C INPUT USED WHEN PROGRAMS REFERENCING IT ARE LOADED. 
C ICFMP MUST BE CALLED AT LEAST ONCE BEFORE INPUT IS CALLED.
C         
      DIMENSION INBUF(240),IOLUN(240),IBUFO(5),ISX(2) 
      EQUIVALENCE(STAT,ISX(1))
      DATA MASK/000004B/,MASK1/10B/ 
      ICNWD=170260B 
      LSTUN=-1
      IDATA=0 
      IF((NUMB.LE.0).OR.(NUMB.GT.240))GO TO 44    
      IF(LUN.GT.100B)GO TO 5
      LUN=LUN+100B
5     INDEX=0 
      MDATA=IRDMP(INDEX)
      IF(LUN.NE.MDATA)GO TO 4       
      INDEX=1 
      LSTSL=IRDMP(INDEX)
      IF(IFSTI.EQ.1)GO TO 300 
      IF(IFSTI.NE.0)GO TO 14
C CHECK NORMAL READ SPECS 
      DO 100 I=1,NUMB 
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 24  
      INDEX=IOLUN(I)+1
      MDATA=IRDMP(INDEX)
      IF(IAND(MDATA,MASK1).EQ.0)GO TO 24
100   CONTINUE
110   DO 500 L=1,NUMB 
      ISLOT=IOLUN(L)
      DO 150 M=0,15 
      LUNIT=M 
      IF(ISLOT.LE.15)GO TO 250  
      ISLOT=ISLOT-15
150   CONTINUE
C CONSTRUCT A READ REQUEST FOR EACH CARD INSERTING          
C A CONTROL WORD IF REQUIRED. EXECUTE EACH  READ
C AFTER IT IS CONTRUCTED THEN COME BACK FOR THE NEXT ONE. 
250   IF(LUNIT.NE.LSTUN)GO TO 260 
      NWORD=4 
      IBUFO(1)=1  
      IBUFO(2)=MERGE(ISLOT,IDATA) 
      IBUFO(3)=1
      IBUFO(4)=0
      GO TO 270 
260   IBUFO(2)=IOR(ICNWD,LUNIT) 
      NWORD=5 
      IBUFO(1)=2
      IBUFO(3)=MERGE(ISLOT,IDATA) 
      IBUFO(4)=1
      IBUFO(5)=0
      LSTUN=LUNIT 
      IF(IFSTI.NE.0)GO TO 160 
      IFUNC=0 
      GO TO 270 
160   IF(IGATE.NE.0)GO TO 265 
      IFUNC=2 
      GO TO 270 
265   IFUNC=6 
270   STAT=EXEC(1,LUN,IBUFO,NWORD,IFUNC)
      ISX(1)=IAND(MASK,ISX(1))
      IF(ISX(1).NE.0)GO TO 1000 
      INBUF(L)=IBUFO(NWORD)           
500   CONTINUE
      GO TO 900 
C CALL IS FOR A READ DIRECT 
300   ICNWD=170240B 
      IF(IGATE.EQ.1)GO TO 400 
      IF(IGATE.NE.0)GO TO 34
C CALL IS FOR RDDIR W/O GATE CHECK SPECS
      DO 350 I=1,NUMB 
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 24    
      INDEX=IOLUN(I)+1
      MDATA=IRDMP(INDEX)
      IF((MDATA.LT.41B).OR.(MDATA.GT.177B))GO TO 24     
      IF((MDATA.GT.42B).AND.(MDATA.LT.100B))GO TO 24    
350   CONTINUE
      GO TO 110 
C CALL IS FOR RDDIR W/GATE CHECK SPECS
400   DO 450 I=1,NUMB 
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 24    
      INDEX=IOLUN(I)+1
      MDATA=IRDMP(INDEX)
      IF(IAND(MDATA,MASK1).EQ.0)GO TO 24
450   CONTINUE
      GO TO 110 
4     ISTAT=-1
      GO TO 1010
14    ISTAT=-2
      GO TO 1010
24    ISTAT=-3
      GO TO 1010
34    ISTAT=-4
      GO TO 1010
44    ISTAT=-5
      GO TO 1010
900   ISTAT=1 
      GO TO 1010
1000  ISTAT=0 
1010  CONTINUE
      END 
      END$
                                        FTN4,L,B
      SUBROUTINE IPOLL(ISTAT,LUN,IALL,IEVSN,IOLUN,INBUF,NUMB) 
C         HP14912B, HP6940/6941 RTE LIBRARY 
C 14912-80001  REV. B    SOURCE TAPE  
C 14912-60001  REV. B    BINARY TAPE  
C 14912-90001  REV. B    LISTING      
C 14912-90002  OCT.1974  MANUAL       
C     REVISION B NOV. 1975     R.W.HARRISON 
C THIS ROUTINE AND DUMMY,MPIOT,SUPRT,ICFMP,IOUT,INPUT,AND IENIN 
C COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE 
C IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER   
C TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU 
C DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS  
C THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT 
C SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION.  
C IPOLL USED WHEN PROGRAMS REFERENCING IT ARE LOADED. 
C ICFMP MUST BE CALLED AT LEAST ONCE BEFORE IPOLL IS CALLED.
C         
      DIMENSION INBUF(483),IOLUN(240),ISX(2)
      EQUIVALENCE (STAT,ISX(1)) 
      DATA MASK1/100000B/,MASK2/17B/,MASK3/7777B/,MASK4/170000B/
      DATA MASK5/4/ 
      INDEX=1 
      LSTSL=IRDMP(INDEX)
      IF((NUMB.LE.0).OR.(NUMB.GT.LSTSL))GO TO 44
2     IF(LUN.GT.100B)GO TO 5  
      LUN=LUN+100B
C CHECK THAT USER'S LUN=CONFIGURED LUN
5     INDEX=0 
      MDATA=IRDMP(INDEX)
      IF(LUN.NE.MDATA)GO TO 4 
      IF(IEVSN.EQ.1)GO TO 900 
      IF(IEVSN.NE.0)GO TO 14
      IF((IALL.NE.0).AND.(IALL.NE.1))GO TO 34 
C CHECK EACH OF USER'S CARDS AGAINST POLL-ALLOWED SPECS 
      DO 50 I=1,NUMB
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 24
      INDEX=IOLUN(I)+1
      MDATA=IRDMP(INDEX)
      IF((MDATA.LT.104B).OR.(MDATA.GT.177B))GO TO 24
      IF(IAND(MDATA,MASK5).EQ.0)GO TO 24
50    CONTINUE
C CONSTRUCT THE APPROPRIATE POLL BUFFER 
10    IF(IALL.EQ.0)GO TO 12 
      IFUNC=5 
      NWORD=2*NUMB+3
      GO TO 15
12    IFUNC=4 
      NWORD=NUMB+5
15    INBUF(1)=170340B
      INBUF(2)=1
      INBUF(NUMB+3)=177777B 
      K=3 
      DO 500 L=1,NUMB 
      DO 100 M=0,15 
      IF(IOLUN(L).LE.15)GO TO 110 
      IOLUN(L)=IOLUN(L)-15
100   CONTINUE
110   IOLUN(L)=MERGE(IOLUN(L),M)
      INBUF(K)=IOLUN(L) 
      K=K+1 
500   CONTINUE
      STAT=EXEC(1,LUN,INBUF,NWORD,IFUNC)
      ISX(1)=IAND(MASK5,ISX(1)) 
      IF(ISX(1).NE.0)GO TO 1000 
      IF(IALL.EQ.0)GO TO 800
C REQUEST WAS POLL ALL
C SEE WHICH SLOTS INTERRUPTED AND SAVE ONLY THOSE.
      INTOT=0 
      J=2 
      I=1 
      DO 200 N=NUMB+4,NWORD 
      IF(IAND(INBUF(N),MASK1).EQ.0)GO TO 201
      IUNIT=IAND(IOLUN(I),MASK2)
      DO 300 K=0,15 
      IF(IUNIT.EQ.K)GO TO 301 
300   CONTINUE
301   IUNIT=IUNIT*15
      ISLOT=IAND(IOLUN(I),MASK4)
      ISLOT=ISHFT(ISLOT)
      INBUF(J)=IUNIT+ISLOT+1
      INBUF(J+1)=IAND(INBUF(N),MASK3) 
      INTOT=INTOT+1 
      I=I+1 
      J=J+2 
200   CONTINUE
      INBUF(1)=INTOT
210   ISTAT=1 
      GO TO 1010
201   I=I+1 
      GO TO 200 
C REQUEST WAS POLL TO 1ST SEE IF ANY SLOT INTERRUPTED 
C AND PROCESS ACCORDINGLY 
800   IF(IAND(INBUF(NUMB+5),MASK1).EQ.0)GO TO 850 
      IUNIT=IAND(INBUF(NUMB+4),MASK2) 
      DO 810 K=0,15 
      IF(IUNIT.EQ.K)GO TO 820 
810   CONTINUE
820   IUNIT=IUNIT*15
      ISLOT=IAND(INBUF(NUMB+4),MASK4) 
      ISLOT=ISHFT(ISLOT)
      INBUF(1)=1
      INBUF(2)=IUNIT+ISLOT+1
      INBUF(3)=IAND(INBUF(NUMB+5),MASK3)  
      GO TO 210 
850   INBUF(1)=0
      INBUF(2)=177777B
      INBUF(3)=177777B
      GO TO 210 
C REQUEST IS FOR EITHER EVENT SENSE POLL CHECK SPECS
900   DO 910 I=1,NUMB 
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 24
      INDEX=IOLUN(I)+1
      MDATA=IRDMP(INDEX)
      IF((MDATA.LT.160B).OR.(MDATA.GT.177B))GO TO 24
910   CONTINUE
      IF(IALL.EQ.0)GO TO 912
      IF(IALL.NE.1)GO TO 34 
      IFUNC=8 
      NWORD=2*NUMB+3
      GO TO 15
912   IFUNC=7 
      NWORD=NUMB+5
      GO TO 15
4     ISTAT=-1
      GO TO 1010
14    ISTAT=-2
      GO TO 1010
24    ISTAT=-3
      GO TO 1010
34    ISTAT=-4
      GO TO 1010
44    ISTAT=-5
      GO TO 1010
1000  ISTAT=0 
1010  CONTINUE
      END 
      END$
                                        FTN4,L,B
      SUBROUTINE IENIN(ISTAT,LUN,IOLUN,NUMB)
C         HP14912B, HP6940/6941 RTE LIBRARY 
C 14912-80001  REV. B    SOURCE TAPE  
C 14912-60001  REV. B    BINARY TAPE  
C 14912-90001  REV. B    LISTING      
C 14912-90002  OCT.1974  MANUAL       
C     REVISION B NOV. 1975     R.W.HARRISON 
C THIS ROUTINE AND DUMMY,MPIOT,SUPRT,ICFMP,IOUT,INPUT,AND IPOLL 
C COMPRISE THE RTE MP LIBRARY.IF RTE FMGR IS NOT INCLUDED, SUBROUTINE 
C IPUT MUST BE SUPPLIED(SEE MANUAL).THE RTE LIBRARY ALLOWS THE USER   
C TO PROGRAM STANDARD I/O TRANSFERS WITH MULTIPROGRAMMER SYSTEMS THRU 
C DVR61 WITHOUT HAVING TO SET MP CONTROL MODES. THE LIBRARY PREVENTS  
C THE USER FROM INADVERTANTLY MAKING I/O REQUESTS THAT HE HAS NOT 
C SPECIFICALLY ALLOWED DURING LIBRARY CONFIGURATION.  
C IENIN USED WHEN PROGRAMS REFERENCING IT ARE LOADED. 
C ICFMP MUST BE CALLED AT LEAST ONCE BEFORE IENIN IS CALLED.
      DIMENSION IOLUN(240),ISX(2),IFAKE(2),IBUFO(1) 
      EQUIVALENCE (STAT,ISX(1))                 
      DATA MASK/000004B/,MASK1/000001B/,MASK2/000002B/
      IFAKE(1)=-1 
      IFAKE(2)=-1 
      IBUFO=170660B 
      ITOUT=170340B 
      LSTSL=IRDMP(MASK1)
      IF((NUMB.LT.0).OR.(NUMB.GT.LSTSL))GO TO 24  
      IF(LUN.GT.100B)GO TO 5
      LUN=LUN+100B
5     INDEX=0 
      MDATA=IRDMP(INDEX)
      IF(LUN.NE.MDATA)GO TO 4   
C CHECK IEN INPUT SPECS 
      NDATA=0 
C IF NUMB=0 PROGRAM IEN ONLY
      IF(NUMB.EQ.0)GO TO 110
      DO 100 I=1,NUMB 
      IF((IOLUN(I).LE.0).OR.(IOLUN(I).GT.LSTSL))GO TO 14    
      INDEX=IOLUN(I)+1
      MDATA=IRDMP(INDEX)
      IF((MDATA.LT.102B).OR.(MDATA.GT.177B))GO TO 14  
      IF(IAND(MDATA,MASK).EQ.0)GO TO 14                 
      JDATA=IAND(MDATA,MASK1)                           
      NDATA=NDATA+JDATA 
100   CONTINUE
C O.K.--SPECS CHECKOUT FIRST MAKE SURE OUTPUT CARDS HAVE TIMED OUT
      STAT=EXEC(2,LUN,ITOUT,1,0)  
      ISX(1)=IAND(MASK,ISX(1))
      IF(ISX(1).NE.0)GO TO 1000 
      IF(NDATA.EQ.NUMB)GO TO 110  
C CALL IOUT TO ARM INPUT CARDS WITH H/S WRITE 
      ISTAT=IOUT(IFAKE(1),LUN,IFAKE(2),IOLUN,IOLUN,NUMB)  
      IF(ISTAT.EQ.0)GO TO 1000  
C NOW NORMAL OUTPUT (IEN&TME) AND WAIT FOR INPUT INTERRUPT
110   STAT=EXEC(2,LUN,IBUFO,1,0)
      ISX(1)=IAND(MASK,ISX(1))
      IF(ISX(1).NE.0)GO TO 1000 
      ISTAT=1 
      GO TO 1010
4     ISTAT=-1
      GO TO 1010  
14    ISTAT=-3
      GO TO 1010
24    ISTAT=-5
      GO TO 1010
1000  ISTAT=0 
1010  CONTINUE
      END 
      END$
                                                            