Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	1
SC:CAMSER.MET	FORTRAN IV

        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C FILE NAME CAMSER
        C
0001          PROGRAM CAMSER
        C
        C
        C     FUNKTION: L[SER och PRESENTERAR FRONTSTATUS (DRV-11-KORTET)
        C
        C     INVOKE BY MCR:
        C
        C                             >CMS
        C
        C     HISTORIK:
        C     DATUM   NAMN                    ]TG[RD
        C     880720  B-E TAPPER              URUPPF\RANDE fr}n CAMUS
        C     880721  B-E TAPPER              NY VERSION (GETDRV)
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     VARIABLER
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0002          LOGICAL*1       STATE(16)       <.TRUE. =1, .FALSE.=0 FROM DRV11
0003          INTEGER         RECBUF(15)      <RECEIVE BUFFER FROM GETDRV
0004          EQUIVALENCE(STATE,RECBUF(3))
0005          INTEGER         NEW             <THE DRV11 BUFFER
0006          EQUIVALENCE(NEW,RECBUF(11))
        C
0007          INTEGER         SNDBUF(13)      <(1)=TIME TO WAIT FOR NEXT RECEIVE
        C                                     < IN SECONDS BEFORE EXITING
        C
0008          LOGICAL*1       OSTATE(16)      <SAVED OLD VALUES OF STATE
0009          INTEGER         OLD             <THE OLD DRV11 BUFFER
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	2
SC:CAMSER.MET	FORTRAN IV

0010          INTEGER IDS             <DIRECTIVE STATUS RETURN CODE
        C
0011          INTEGER HIGH            <TERSEQ CODE FOR DRV11 BIT=1
0012          INTEGER LOW             <TERSEQ CODE FOR DRV11 BIT=0
        C
0013          INTEGER IPARAM(6)       <QIO PARAMETER BLOCK
0014          INTEGER I2PARAM(6)      <QIO PARAMETER BLOCK
        C
0015          BYTE    INBUF(10)       <INPUT BUFFER
        C     
0016          INTEGER IESB(8)         <EXIT STATUS BLOCK
        C
0017          INTEGER IOSB(2)
0018          BYTE ISB(4)     <WORD ALIGNED
0019          EQUIVALENCE(ISB,IOSB)
        C
0020          BYTE OUTBUF(80)         <BUFFER WRITTEN FROM PROGRAM
0021          INTEGER OUTLEN          <LENGTH OF BUFFER
        C
0022          INTEGER ILOOP           <LOOPVARIABEL
        C
0023          BYTE    FRONT           <I F\R BILL, U F\R BULL
        C
0024          INTEGER         PRM1
0025          INTEGER         PRM2
        C
        C
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     DATA
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
0026          INTEGER IOWLB
0027          DATA IOWLB/"000400/
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	3
SC:CAMSER.MET	FORTRAN IV

        C
0028          INTEGER IORVB
0029          DATA IORVB/"010400/
        C
0030          BYTE    TYPE(10,3)
0031          'ASCII' TYPE/S[NDNING  MOTTAGNINGLINJESTR\M/
        C
0032          REAL    TASK    <GETDRV TASK NAME
0033          DATA    TASK/6RGETDRV/
        C
0034          BYTE    CR
0035          DATA    CR/"15/
0036          BYTE    LF
0037          DATA    LF/"12/
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     STYRSEKTION
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0038          'POSIT'         <EJ FEL
        C
        C
0039          .  CALL    TERSEQ(85,PRM1,PRM2) <HOME
0040          .  CALL    TERSEQ(50,PRM1,PRM2) <CLEAR SCREEN
        C
0041          .  CALL GETADR(IPARAM,OUTBUF)   <Adress of OUTPUT BUFFER
0042          .  IPARAM(3)=0                  <NO time out
        C
0043          .  OUTLEN=33
0044          .  CALL MOVE01(OUTLEN,'Kom ih}g: "SET /FDX=TI:", "VT1" !',
             *.   OUTBUF)
0045          .  OUTBUF(OUTLEN+1)=CR
0046          .  OUTBUF(OUTLEN+2)=LF
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	4
SC:CAMSER.MET	FORTRAN IV

0047          .  OUTLEN=OUTLEN+2
0048          .  'PERFORM' WRITE
        C
0051          .  OUTLEN=50
0052          .  CALL MOVE01(OUTLEN,'Vidare att "INS $GETDRV" och "FIX GETDRV" beh|vs !',
             *.   OUTBUF)
0053          .  OUTBUF(OUTLEN+1)=CR
0054          .  OUTBUF(OUTLEN+2)=LF
0055          .  OUTLEN=OUTLEN+2
0056          .  'PERFORM' WRITE
        C
0059          .  OUTLEN=47
0060          .  CALL MOVE01(OUTLEN,'Allt detta g|rs enklast genom "@LB:[1,2]CAMUS".',
             *.   OUTBUF)
0061          .  OUTBUF(OUTLEN+1)=CR
0062          .  OUTBUF(OUTLEN+2)=LF
0063          .  OUTLEN=OUTLEN+2
0064          .  'PERFORM' WRITE
        C
0067          .  OUTLEN=41
0068          .  CALL MOVE01(OUTLEN,'START och STOPP: Tryck p} valfri tangent>',
             *.   OUTBUF)
0069          .  'PERFORM' WRITE
        C
        C
0072          .  'PERFORM' READ
        C
0075          .  CALL    TERSEQ(85,PRM1,PRM2) <HOME
0076          .  CALL    TERSEQ(50,PRM1,PRM2) <CLEAR SCREEN
        C
0077          .  SNDBUF(1)=10                 <TELL GETDRV TO WAIT 10 SECONDS
        C
0078          .  'PERFORM' GETDRV     <READ DATA FROM DRV11 VIA GETDRV.TSK
0081          .  'QUITIF'(IDS.NE.1)
        C
0083          .  SNDBUF(1)=1          <NEXT TIME WE CALL, SAMPLE EACH SECOND
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	5
SC:CAMSER.MET	FORTRAN IV

        C
0084          .  'DOLOOP' ILOOP=1,12
0085          .  .  OSTATE(ILOOP)=.NOT.STATE(ILOOP)
0086          .  'ENDLOOP'
0088          .  'IF'(NEW.EQ.0)
0090          .  .  OLD=1
0091          .  'ELSE'
0093          .  .  OLD=0
0094          .  'ENDIF'
        C
        C
0095          .  CALL    TERSEQ(48,3,18) <RAD 3, KOL 18
0096          .  CALL    TERSEQ(29,PRM1,PRM2) <DHDW TOP
0097          .  CALL CHANGE(,' ',OUTBUF,80)
0098          .  OUTLEN=4
0099          .  CALL MOVE01(OUTLEN,'BxLL',OUTBUF)
0100          .  'IF'(STATE(13))
0102          .  .  OUTBUF(2)='I'
0103          .  'ELSE'
0105          .  .  OUTBUF(2)='U'
0106          .  'ENDIF'
0107          .  'PERFORM' WRITE
0110          .  CALL    TERSEQ(48,4,18) <RAD 4, KOL 18
0111          .  CALL    TERSEQ(30,PRM1,PRM2) <DHDW BOT
0112          .  'PERFORM' WRITE
        C
0115          .  CALL    TERSEQ(48,5,10) <RAD 5, KOL 10
0116          .  CALL    TERSEQ(31,PRM1,PRM2) <SHSW
0117          .  CALL    TERSEQ(61,PRM1,PRM2) <UNDERLINE
        C
0118          .  CALL CHANGE(,' ',OUTBUF,80)
0119          .  OUTLEN=53
0120          .  CALL MOVE01(OUTLEN,'STATUSSIGNALER fr}n UPPSALABUSS radiofront
             *.   CAMUS 2200',OUTBUF)
0121          .  'PERFORM' WRITE
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	6
SC:CAMSER.MET	FORTRAN IV

        C
0124          .  CALL CHANGE(,' ',OUTBUF,80)
0125          .  OUTLEN=9
0126          .  CALL MOVE01(OUTLEN,'KANAL x :',
             *.   OUTBUF)
        C
0127          .  CALL    TERSEQ(48,8,1)  <RAD 8, KOL 1
0128          .  OUTBUF(7)='1'
0129          .  'PERFORM' WRITE
        C
0132          .  CALL    TERSEQ(48,12,1) <RAD 12, KOL 1
0133          .  OUTBUF(7)='2'
0134          .  'PERFORM' WRITE
        C
0137          .  CALL    TERSEQ(48,16,1) <RAD 16, KOL 1
0138          .  OUTBUF(7)='3'
0139          .  'PERFORM' WRITE
        C
0142          .  CALL    TERSEQ(48,20,1) <RAD 20, KOL 1
0143          .  OUTBUF(7)='4'
0144          .  'PERFORM' WRITE
        C
0147          .  CALL    TERSEQ(59,PRM1,PRM2) <ATTRIBUTES OFF
        C
0148          .  'WHILE'(.TRUE.)
        C
        C
0151          .  .  'IF'(OLD.NE.NEW)
        C
0153          .  .  .  OLD=NEW
        C
0154          .  .  .  CALL    TERSEQ(2,PRM1,PRM2)     <BELL
        C
0155          .  .  .  'DOLOOP' ILOOP=1,12
        C
0156          .  .  .  .  'IF'(STATE(ILOOP) .NE. OSTATE(ILOOP))
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	7
SC:CAMSER.MET	FORTRAN IV

        C
0158          .  .  .  .  .  'IF'(ILOOP.EQ.3 .OR. ILOOP.EQ.6 .OR. ILOOP.EQ.9 .OR.
             *.  .  .  .  .  .   ILOOP.EQ.12)
0160          .  .  .  .  .  .  HIGH=63 <INVERSE VIDEO
0161          .  .  .  .  .  .  LOW=59  <ATTRIBUTES OFF
0162          .  .  .  .  .  'ELSE'
0164          .  .  .  .  .  .  HIGH=59 <ATTRIBUTES OFF
0165          .  .  .  .  .  .  LOW=63  <INVERSE VIDEO
0166          .  .  .  .  .  'ENDIF'
        C
0167          .  .  .  .  .  'IF'(STATE(ILOOP))
0169          .  .  .  .  .  .  CALL TERSEQ(HIGH,PRM1,PRM2) <SET ATTRIBUTES
0170          .  .  .  .  .  'ELSE'
0172          .  .  .  .  .  .  CALL TERSEQ(LOW,PRM1,PRM2) <SET ATTRIBUTES
0173          .  .  .  .  .  'ENDIF'
        C
0174          .  .  .  .  .  OUTLEN=10
0175          .  .  .  .  .  'CASE' ILOOP
0176          .  .  .  .  .  'WHEN' 1
0178          .  .  .  .  .  .  CALL    TERSEQ(48,8,20) <RAD 8, KOL 20
0179          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,1),OUTBUF)
0180          .  .  .  .  .  'WHEN' 2
0184          .  .  .  .  .  .  CALL    TERSEQ(48,8,40) <RAD 8, KOL 40
0185          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,2),OUTBUF)
0186          .  .  .  .  .  'WHEN' 3
0190          .  .  .  .  .  .  CALL    TERSEQ(48,8,60) <RAD 8, KOL 60
0191          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,3),OUTBUF)
0192          .  .  .  .  .  'WHEN' 4
0196          .  .  .  .  .  .  CALL    TERSEQ(48,12,20)        <RAD 12, KOL 20
0197          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,1),OUTBUF)
0198          .  .  .  .  .  'WHEN' 5
0202          .  .  .  .  .  .  CALL    TERSEQ(48,12,40)        <RAD 12, KOL 40
0203          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,2),OUTBUF)
0204          .  .  .  .  .  'WHEN' 6
0208          .  .  .  .  .  .  CALL    TERSEQ(48,12,60)        <RAD 12, KOL 60
0209          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,3),OUTBUF)
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	8
SC:CAMSER.MET	FORTRAN IV

0210          .  .  .  .  .  'WHEN' 7
0214          .  .  .  .  .  .  CALL    TERSEQ(48,16,20)        <RAD 16, KOL 20
0215          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,1),OUTBUF)
0216          .  .  .  .  .  'WHEN' 8
0220          .  .  .  .  .  .  CALL    TERSEQ(48,16,40)        <RAD 16, KOL 40
0221          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,2),OUTBUF)
0222          .  .  .  .  .  'WHEN' 9
0226          .  .  .  .  .  .  CALL    TERSEQ(48,16,60)        <RAD 16, KOL 60
0227          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,3),OUTBUF)
0228          .  .  .  .  .  'WHEN' 10
0232          .  .  .  .  .  .  CALL    TERSEQ(48,20,20)        <RAD 20, KOL 20
0233          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,1),OUTBUF)
0234          .  .  .  .  .  'WHEN' 11
0238          .  .  .  .  .  .  CALL    TERSEQ(48,20,40)        <RAD 20, KOL 40
0239          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,2),OUTBUF)
0240          .  .  .  .  .  'WHEN' 12
0244          .  .  .  .  .  .  CALL    TERSEQ(48,20,60)        <RAD 20, KOL 60
0245          .  .  .  .  .  .  CALL MOVE01(OUTLEN,TYPE(1,3),OUTBUF)
0246          .  .  .  .  .  'ENDCASE'
        C
0248          .  .  .  .  .  'PERFORM' WRITE
        C
0251          .  .  .  .  'ENDIF'
        C
0252          .  .  .  'ENDLOOP'
        C
0254          .  .  .  CALL MOVE01(16,STATE,OSTATE)
        C
0255          .  .  'ENDIF'
        C
0256          .  .  CALL READEF(3,IDS)
0257          .  .  'BREAKIF'(IDS.NE.0)
        C
0259          .  .  'PERFORM' GETDRV
0262          .  .  'QUITIF'(IDS.NE.1)
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	9
SC:CAMSER.MET	FORTRAN IV

0264          .  'ENDDO'
        C
0266          .  CALL    TERSEQ(59,PRM1,PRM2) <CLEAR ATTRIBUTES
0267          .  CALL    TERSEQ(85,PRM1,PRM2) <HOME
0268          .  CALL    TERSEQ(50,PRM1,PRM2) <CLEAR SCREEN
        C
0269          'ADMIT'              <FEL
0271          .  CALL    TERSEQ(59,PRM1,PRM2) <CLEAR ATTRIBUTES
0272          .  CALL    TERSEQ(85,PRM1,PRM2) <HOME
0273          .  CALL    TERSEQ(50,PRM1,PRM2) <CLEAR SCREEN
0274          .  OUTLEN=28
0275          .  CALL MOVE01(OUTLEN,'...CMS - FEL I KOMMUNIKATION',OUTBUF)
0276          .  'PERFORM' WRITE
0279          'ENDPOSIT'
        C
        C
0280          CALL EXIT
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     #WRITE
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0281          'SECTION' WRITE
        C
0283          .  IPARAM(2)=OUTLEN
0284          .  CALL WTQIO(IOWLB,5,2,,,IPARAM,IDS)
        C
0285          .  'IF'(IDS.NE.1)
0287          .  .  STOP 'CMS WTQIO WRITE IDS'
0288          .  'ENDIF'
        C
0289          'ENDSECT'    <WRITE
        C
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	10
SC:CAMSER.MET	FORTRAN IV

        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     #READ
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0291          'SECTION' READ
        C
0293          .  CALL GETADR(I2PARAM(1),INBUF)<Adress of INPUT BUFFER
0294          .  I2PARAM(2)=1
0295          .  CALL WTQIO(IORVB,5,3,,IOSB,I2PARAM,IDS)
        C
0296          .  'IF'(IDS.NE.1)
0298          .  .  STOP 'CMS WTQIO READ IDS'
0299          .  'ENDIF'
        C
0300          .  CALL QIO(IORVB,5,3,,IOSB,I2PARAM,IDS)
        C
0301          .  'IF'(IDS.NE.1)
0303          .  .  STOP 'CMS QIO READ IDS'
0304          .  'ENDIF'
        C
0305          'ENDSECT'    <READ
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     #GETDRV
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
0307          'SECTION' GETDRV
        C
0309          .  'POSIT' <EJ FEL
        C
0310          .  .  CALL SDRCN(TASK,SNDBUF,4,,IESB,,IDS)
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	11
SC:CAMSER.MET	FORTRAN IV

0311          .  .  'QUITIF'(IDS.NE.1)
        C
0313          .  .  CALL WAITFR(4,IDS)
0314          .  .  'QUITIF'(IDS.NE.1)
0316          .  .  'QUITIF'(IESB(1).NE.1)
        C
0318          .  .  CALL RECEIV(TASK,RECBUF,,IDS)
0319          .  .  'QUITIF'(IDS.NE.1)
        C
0321          .  'ADMIT' <FEL
0323          .  .  IDS=-1
0324          .  'ENDPOSIT'
        C
0325          'ENDSECT'    <GETDRV
        C
0327          END
Meta FORTRAN 	 V09.08		1988-07-22 02:52:05	PAGE	12
SC:CAMSER.MET	FORTRAN IV



Page   Section                         References

  10   GETDRV                             78  259
  10   READ                               72
   9   WRITE                              48   56   64   69  107  112  121
                                         129  134  139  144  248  276


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