Meta FORTRAN 	 V09.08		1988-07-22 02:53:19	PAGE	1
SC:GETDRV.MET	FORTRAN IV

        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C FILE NAME GETDRV
        C
0001          PROGRAM GETDRV
        C
        C
        C     FUNKTION: L[SER FRONTSTATUS (DRV-11-KORTET)
        C               KOMMUNICERAR VIA SEND DATA
        C
        C     HISTORIK:
        C     DATUM   NAMN                    ]TG[RD
        C     880721  B-E TAPPER              URUPPF\RANDE
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     VARIABLER
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0002          INTEGER RECBUF(15)      <RECEIVE DATA BUFFER,(1-2)=TASK,(3)=TIMEOUT
        C
0003          INTEGER SNDBUF(13)      <SEND DATA BUFFER
0004          LOGICAL*1       STATE(16)
0005          EQUIVALENCE(SNDBUF,STATE)
0006          INTEGER         STAWRD  <STATUS WORD AT DRV11
0007          EQUIVALENCE(SNDBUF(9),STAWRD)
        C
0008          INTEGER IDS             <DIRECTIVE STATUS RETURN CODE
        C
        C
0009          INTEGER IPARAM(6)       <QIO PARAMETER BLOCK
        C
0010          INTEGER IOSB(2)
0011          BYTE ISB(4)     <WORD ALIGNED
0012          EQUIVALENCE(ISB,IOSB)
Meta FORTRAN 	 V09.08		1988-07-22 02:53:19	PAGE	2
SC:GETDRV.MET	FORTRAN IV

        C
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     DATA
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0013          BYTE    ERRBUF(30)
0014          'ASCII' ERRBUF/  GETDRV - COMMUNICATION ERROR/
0015          INTEGER ERRSIZ
0016          DATA    ERRSIZ/30/
        C
0017          BYTE    CR4
0018          DATA    CR4/"15/
0019          BYTE    LF4
0020          DATA    LF4/"12/
0021          EQUIVALENCE(CR4,ERRBUF)
0022          EQUIVALENCE(LF4,ERRBUF(2))
        C
        C
0023          INTEGER IOWBT
0024          DATA IOWBT/"000500/
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     STYRSEKTION
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0025          'POSIT'         <EJ FEL
        C
0026          .  CALL RECEIV(,RECBUF,,IDS)    <Receive data from any task
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:53:19	PAGE	3
SC:GETDRV.MET	FORTRAN IV

0027          .  'WHILE'(IDS.EQ.1)
        C
0030          .  .  CALL DRV11(STATE,STAWRD) <Read the DRV11 input buffer (I/O page)
        C
0031          .  .  CALL SEND(RECBUF,SNDBUF,,IDS)   <Send the data back to the task
0032          .  .  'QUITIF'(IDS.NE.1)
        C
0034          .  .  CALL EMST(RECBUF,1,IDS)     <Tell the task that data is ready
0035          .  .  'QUITIF'(IDS.NE.1)      
        C
0037          .  .  CALL WAIT(RECBUF(3),2)    <Hold on a second as specified
        C
0038          .  .  CALL RECOEX(,RECBUF,,IDS) <Receive next request or exit
        C
0039          .  'ENDDO'
        C
0041          'ADMIT'              <FEL
0043          'ENDPOSIT'
        C
0044          CALL GETADR(IPARAM(1),ERRBUF)   <Adress of errorbuffer
0045          IPARAM(2)=ERRSIZ
0046          IPARAM(3)=0                     <NO time out
0047          CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
        C
0048          CALL EXST(IDS)
        C
        C
0049          END


Errors detected:     0
SC:GETDRV,SC:GETDRV.MLS/-SP=SC:GETDRV