CTITLESACOM2 -- RECEIVER ORDERED TRACE WINDOW I/O POSITIONER            00010007
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 SACOM2 ( SSP, RCLN, RTNO, SWPN, TPBLK,                       00090007
CA                  ORTN, IPCNT, SPFOLD, TCNT, RTNP                     00090103
CA                  ICSSP, ICSLN, ICFRCV, ICLRCV, ICPN, ICSWPN, NOSPTS, 00091000
CA                  KPBUGF, IPR, NOPANS,                                00100000
CA                  ICFRIP, ICLRIP, ICFDAP )                            00110000
CA                                                                      00120000
C                                                                       00130000
      SUBROUTINE SACOM2 ( SSP, RCLN, RTNO, SWPN, TPBLK,                 00140007
     *                    ORTN, IPCNT, SPFOLD, TCNT, RTNP,              00140104
     *                    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
      FR   = ICFRIP(IPCNT)                                              00680000
      LR   = ICLRIP(IPCNT)                                              00680100
      FDAP = ICFDAP(IPCNT)                                              00680200
C                                                                       00680300
      RTNP   = (LR-FR) / RCINC + 1                                      00681000
C                                                                       00690000
      RTNO = ( FDAP -1 ) * TPBLK  + TCNT                                00700000
      RCLN = FR + (TCNT-1)*RCINC                                        00701000
      ORTN = ORTN + 1                                                   00702000
           IF ( ORTN .LE. SPFOLD) GO TO 250                             00703000
           SSP = SSP + 1                                                00704000
           ORTN = 1                                                     00705000
C                                                                       00706000
  250 CONTINUE                                                          00707000
C                                                                       00708000
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,RTNP,RTNO,ORTN       00780005
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 ***** ',                    01460007
     *       /7X,'  SSP     RCLN    PN      SWPN    FR    ',            01480000
     *           '  FDAP    RTNP    RTNO    ORTN          ')            01490005
 9010 FORMAT(5X,9I8)                                                    01520005
C                                                                       01530000
C                                                                       01540000
C                                                                       01550000
      END                                                               01560000