CTITLESACOMD -- RECEIVER ORDERED TRACE WINDOW I/O POSITIONER            00010006
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       B.NEAL MCEWEN                                        00020000
CA    DESIGNER     B.NEAL MCEWEN                                        00030000
CA    LANGUAGE     S/370 VS   FORTRAN                                   00040000
CA    WRITTEN      10-24-85                                             00050000
C     REVISED       X-XX-XX BY                                          00060000
CA                                                                      00070000
CA                                                                      00080000
CA    CALL SACOMD ( SSP, RCLN, RTNO, SWPN, TPBLK,                       00090006
CA                  ICSSP, ICSLN, ICFRCV, ICLRCV, ICPN, ICSWPN, NOSPTS, 00091000
CA                  KPBUGF, IPR, NOPANS,                                00100000
CA                  ICFRIP, ICLRIP, ICFDAP )                            00110000
CA                                                                      00120000
C                                                                       00130000
      SUBROUTINE SACOMD ( SSP, RCLN, RTNO, SWPN, TPBLK,                 00140006
     *                    ICSSP, ICSLN, ICFRCV, ICLRCV, ICPN, ICSWPN,   00141000
     *                    NOSPTS, KPBUGF, IPR ,NOPANS,                  00150000
     *                    ICFRIP, ICLRIP, ICFDAP )                      00151000
C                                                                       00160000
C                                                                       00170000
      IMPLICIT INTEGER(A-Z)                                             00180000
C                                                                       00190000
C                                                                       00200000
C                                                                       00210000
C                                                                       00220000
      DIMENSION ICSSP(1), ICSLN(1), ICFRCV(1), ICLRCV(1), ICPN(1),      00230000
     *          ICSWPN(1), TRCHDR(1),                                   00240000
     *          ICFRIP(1), ICLRIP(1), ICFDAP(1)                         00241000
C                                                                       00250000
C                                                                       00260000
C                                                                       00270000
C                                                                       00670000
C***********************************************************************00670100
C*       FIND ENTRIES INTO I/O PANELING TABLE                          *00671000
C***********************************************************************00672000
C                                                                       00673000
C                                                                       00674000
      RCINC = 100                                                       00675000
C                                                                       00676000
C                                                                       00677000
      DO 1000 I=1,NOSPTS                                                00678000
C                                                                       00679000
      IF ( SSP .EQ. ICSSP(I) ) GO TO 2000                               00679100
C                                                                       00679200
 1000 CONTINUE                                                          00679500
C                                                                       00679600
C                                                                       00679704
      RTNO = -1                                                         00679804
      GO TO 260                                                         00679905
C                                                                       00680004
C                                                                       00680100
 2000 PN   = ICPN(I)                                                    00680200
      SWPN = ICSWPN(I)                                                  00680300
      FR   = ICFRIP(PN)                                                 00680400
      FDAP = ICFDAP(PN)                                                 00680500
C                                                                       00680600
      TRNONP = (RCLN -FR) / RCINC + 1                                   00681000
C                                                                       00690000
      RTNO = ( ICFDAP(PN) -1 ) * TPBLK  + TRNONP                        00700000
C                                                                       00710000
  260 IF ( KPBUGF .NE. 3 ) GO TO 270                                    00720000
C                                                                       00730000
      WRITE ( IPR, 9000 )                                               00740000
      WRITE ( IPR, 9010 ) SSP, RCLN, PN, SWPN, FR, FDAP, TRNONP, RTNO   00780000
C                                                                       00800000
C                                                                       00810000
  270 CONTINUE                                                          00830000
C                                                                       00840000
C                                                                       01414000
C                                                                       01415000
  590 RETURN                                                            01420000
C                                                                       01430000
C                 FORMAT STATEMENTS                                     01440000
C                                                                       01450000
 9000 FORMAT(//5X,'***** SACOMD DIAGNSOTICS ***** ',                    01460006
     *       /7X,'  SSP     RCLN    PN      SWPN    FR    ',            01480000
     *           '  FDAP    TRNONP  RTNO',  )                           01490002
 9010 FORMAT(5X,8I8)                                                    01520001
C                                                                       01530000
C                                                                       01540000
C                                                                       01550000
      END                                                               01560000