Common COMSPFS Part 001

4 Modifications

Listing Sections

Common COMSPFS Start
Common COMSPFS Part 1 (Line 1388)

Source

Seq #  *Modification Id* Act 
----------------------------+

Line S00358 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01388  M01S00358.286l859 +++|* T,      27/,9/ NCAT,16/,4/ SM, 4/ DM
01389  M00S00938.comspfs +++|*
01390  M00S00939.comspfs +++|*                TYPE = EQUIPMENT MNEMONIC OF DEVICE.
01391  M00S00940.comspfs +++|*                TRACK SIZE = SECTOR LIMIT OF DEVICE.
01392  M00S00941.comspfs +++|*                TRACKS AV = TRACKS AVAILABLE ON DEVICE AT START OF
01393  M00S00942.comspfs +++|*                            UTILITY EXECUTION.
01394  M00S00943.comspfs +++|*                TRACKS = NUMBER OF TRACKS ON DEVICE.
01395  M00S00944.comspfs +++|*                U = (NUMBER OF UNITS)-1.
01396  M00S00945.comspfs +++|*                DN = DEVICE NUMBER.
01397  M00S00946.comspfs +++|*                NCAT = NUMBER OF CATALOG TRACKS ON DEVICE.
01398  M00S00947.comspfs +++|*                SM = SECONDARY DEVICE MASK.
01399  M00S00948.comspfs +++|*                DM = MASTER DEVICE MASK.
01400  M00S00949.comspfs +++|          SPACE  4,15
01401  M00S00950.comspfs +++|***       SUMMARY FILE ARCHIVE FILE IDENTIFIER BLOCK
01402  M00S00951.comspfs +++|*           (PFATC, PFCOPY, PFLOAD).
01403  M00S00952.comspfs +++|*
01404  M00S00953.comspfs +++|* T       42/ 7LARCFILE,18/ LENGTH
01405  M00S00954.comspfs +++|* T,      42/ FAMILY NAME,18/ 0
01406  M00S00955.comspfs +++|* T,      42/ PACK NAME,18/ 0
01407  M00S00956.comspfs +++|* T,      18/ 0,36/ PACKED DATE AND TIME
01408  M00S00957.comspfs +++|*
01409  M00S00958.comspfs +++|*                LENGTH = LENGTH OF BLOCK (3).
01410  M00S00959.comspfs +++|*
01411  M00S00960.comspfs +++|*         IF THE UTILITY DID NOT FIND THE ARCHIVE FILE LABEL OR IF AN
01412  M00S00961.comspfs +++|*         ERROR WAS DETECTED IN THE ARCHIVE FILE LABEL, A THREE WORD
01413  M00S00962.comspfs +++|*         BLOCK WILL BE WRITTEN WITH ALL FIELDS ZERO.
01414  M00S00963.comspfs +++|          SPACE  4,20
01415  M00S00964.comspfs +++|***       SUMMARY FILE CATALOG IMAGE RECORD (CIR) ENTRIES BLOCK
01416  M00S00965.comspfs +++|*           (PFATC, PFDUMP, PFLOAD).
01417  M00S00966.comspfs +++|*
01418  M00S00967.comspfs +++|* T       42/ 3LCIR,18/ LENGTH
01419  M00S00968.comspfs +++|* T,      60/ CIR ENTRY 1 WORD 0
01420  M00S00969.comspfs +++|* T,      60/ CIR ENTRY 1 WORD 1
01421  M00S00970.comspfs +++|* T,      ...
01422  M00S00971.comspfs +++|* T,      ...
01423  M00S00972.comspfs +++|* T,      ...
01424  M00S00973.comspfs +++|* T,      60/ CIR ENTRY N WORD 0
01425  M00S00974.comspfs +++|* T,      60/ CIR ENTRY N WORD 1
01426  M00S00975.comspfs +++|*
01427  M00S00976.comspfs +++|*                LENGTH = LENGTH OF BLOCK.
01428  M00S00977.comspfs +++|*                       = (NUMBER OF ENTRIES)*2.
01429  M00S00978.comspfs +++|*                CIR ENTRY = CATALOG IMAGE RECORD ENTRY FROM ARCHIVE
01430  M00S00979.comspfs +++|*                            FILE.
01431  M00S00980.comspfs +++|          SPACE  4,30
01432  M00S00981.comspfs +++|***       SUMMARY FILE CATALOG ENTRIES BLOCK (ALL UTILITIES).
01433  M00S00982.comspfs +++|*
01434  M00S00983.comspfs +++|* T       42/ 4LCATE,18/ LENGTH
01435  M00S00984.comspfs +++|* T,      60/ CATALOG ENTRY 1 WORD 0.
01436  M00S00985.comspfs +++|* T,      60/ ...
01437  M00S00986.comspfs +++|* T,      60/ CATALOG ENTRY 1 WORD 17B.
01438  M00S00987.comspfs +++|* T,      60/ CATALOG ENTRY 1 STATUS WORD.
01439  M00S00988.comspfs +++|* T,      60/ ...
01440  M00S00989.comspfs +++|* T,      60/ ...
01441  M00S00990.comspfs +++|* T,      60/ ...
01442  M00S00991.comspfs +++|* T,      60/ CATALOG ENTRY N WORD 0.
01443  M00S00992.comspfs +++|* T,      60/ ...
01444  M00S00993.comspfs +++|* T,      60/ CATALOG ENTRY N WORD 17B.
01445  M00S00994.comspfs +++|* T,      60/ CATALOG ENTRY N STATUS WORD.
01446  M00S00995.comspfs +++|*
01447  M00S00996.comspfs +++|*                LENGTH = LENGTH OF BLOCK.
01448  M00S00997.comspfs +++|*                       = (NUMBER OF ENTRIES)*21B.
01449  M00S00998.comspfs +++|*                CATALOG ENTRY = CATALOG ENTRY OF FILE PROCESSED.
01450  M00S00999.comspfs +++|*                STATUS WORD = STATUS INFORMATION PERTAINING TO FILE
01451  M00S01000.comspfs +++|*                              PROCESSED.
01452  M00S01001.comspfs +++|*
01453  M00S01002.comspfs +++|*         CATALOG ENTRY STATUS WORD FORMAT.
01454  M00S01003.comspfs +++|*

Line S01004 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01455  M01S01004.286l859 ---|* T       59/,1/P

Line S00359 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01456  M01S00359.286l859 +++|* T       56/,1/P,1/D,1/T,1/C
01457  M00S01005.comspfs +++|*

Line S01006 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01458  M01S01006.286l859 ---|*                P = *PFC* ONLY FILE FLAG.
01459  M01S01007.286l859 ---|*                  = 0 IF NOT *PFC* ONLY FILE.
01460  M01S01008.286l859 ---|*                  = 1 IF *PFC* ONLY FILE.
01461  M01S01009.286l859 ---|          SPACE  4,10
01462  M01S01010.286l859 ---|*         TABLE OF PRINTER PAGE PARAMETERS.

Line S00360 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01463  M01S00360.286l859 +++|*                P   PERMITS MISSING ON ARCHIVE FILE BECAUSE OF ERROR
01464  M01S00361.286l859 +++|*                      DURING DUMP.
01465  M01S00362.286l859 +++|*                D   ERROR DETECTED IN FILE DATA DURING DUMP.
01466  M01S00363.286l859 +++|*                T   FILE DATA TRUNCATED DURING DUMP BECAUSE OF ERROR.
01467  M01S00364.286l859 +++|*                C   FILE DUMPED AS *PFC ONLY*.
01468  M01S00365.286l859 +++|          SPACE  4,10
01469  M01S00366.286l859 +++|**        SUMMARY FILE BLOCK IDENTIFICATION CODES.
01470  M00S01011.comspfs +++|
01471  M00S01012.comspfs +++|

Line S01013 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01472  M01S01013.286l859 ---| PPLN     EQU    0           CURRENT LINE NUMBER
01473  M01S01014.286l859 ---| PPPL     EQU    PPLN+1      PAGE LENGTH
01474  M01S01015.286l859 ---| PPPD     EQU    PPPL+1      PRINT DENSITY FORMAT CONTROL CHARACTER
01475  M01S01016.286l859 ---|          ERRNZ  PPLN+1-PPPL LOCATIONS MUST BE CONTIGUOUS
01476  M01S01017.286l859 ---|          SPACE  4,10
01477  M01S01018.286l859 ---|*         DISPLAY ADDRESS TABLE LOCATIONS.
01478  M01S01019.286l859 ---|
01479  M01S01020.286l859 ---|
01480  M01S01021.286l859 ---| ADM1     EQU    0           ADDRESS OF WAIT MESSAGE LINE
01481  M01S01022.286l859 ---| ADMS     EQU    ADM1+1      ADDRESS OF CURRENT ACTIVITY LINE
01482  M01S01023.286l859 ---| ADM2     EQU    ADMS+1      ADDRESS OF OPERATOR ACTION REQUEST LINE
01483  M01S01024.286l859 ---| ADER     EQU    ADM2+1      ADDRESS OF ERROR MESSAGE LINE
01484  M01S01025.286l859 ---| ADIN     EQU    ADER+1      ADDRESS OF INPUT DISPLAY LINE
01485  M01S01026.286l859 ---|
01486  M01S01027.286l859 ---| KDCW     EQU    ADIN+1      *K* DISPLAY CONTROL WORD

Line S00367 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01487  M01S00367.286l859 +++| BEGIN    BSSN   0
01488  M01S00368.286l859 +++| SYSB     BSSN   1           SYSTEM INFORMATION
01489  M01S00369.286l859 +++| DSSB     BSSN   1           DEVICE STATUS
01490  M01S00370.286l859 +++| AFSB     BSSN   1           ARCHIVE FILE
01491  M01S00371.286l859 +++| CISB     BSSN   1           CATALOG IMAGE RECORD ENTRIES
01492  M01S00372.286l859 +++| CESB     BSSN   1           PROCESSED CATALOG ENTRIES
01493  M01S00373.286l859 +++| MXSB     BSSN   0           MAXIMUM BLOCK TYPE + 1
01494  M01S00374.286l859 +++| END      BSSN
01495  M00S01028.comspfs +++|          TITLE  COMSPFS - COMMON UTILITY MACROS.

Line S01029 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01496  M01S01029.286l859 ---| BOOL     SPACE  4,30
01497  M01S01030.286l859 ---|**        BOOL - BOOLEAN EXPRESSION DEFINITION.
01498  M01S01031.286l859 ---|*
01499  M01S01032.286l859 ---|*         BOOL   BEXP
01500  M01S01033.286l859 ---|*
01501  M01S01034.286l859 ---|*         BEXP = BOOLEAN EXPRESSION.
01502  M01S01035.286l859 ---|*              = BT1.
01503  M01S01036.286l859 ---|*                OR (BT1,BT2,...).  (COMMAS INDICATE THE LOGICAL .OR.
01504  M01S01037.286l859 ---|*                OPERATION.)
01505  M01S01038.286l859 ---|*         BT1,BT2,... = BOOLEAN TERMS.
01506  M01S01039.286l859 ---|*                     = BE1.
01507  M01S01040.286l859 ---|*                       OR (BE1,BE2,...).  (COMMAS INDICATE THE
01508  M01S01041.286l859 ---|*                       LOGICAL .AND. OPERATION.)
01509  M01S01042.286l859 ---|*         BE1,BE2,... = BOOLEAN ELEMENTS.
01510  M01S01043.286l859 ---|*                     = CEXP = ABSOLUTE EVALUATABLE COMPASS EXPRESSION
01511  M01S01044.286l859 ---|*                       (PREVIOUSLY DEFINED SYMBOLS ONLY).
01512  M01S01045.286l859 ---|*
01513  M01S01046.286l859 ---|*                THE COMPASS EXPRESSIONS (*CEXP*) ARE USED TO REPRESENT
01514  M01S01047.286l859 ---|*         BOOLEAN VARIABLES.  THE ABSOLUTE VALUE OF AN EXPRESSION
01515  M01S01048.286l859 ---|*         INDICATES A BIT NUMBER WITHIN A 60 BIT WORD WHICH REPRESENTS
01516  M01S01049.286l859 ---|*         A DESIRED BOOLEAN VARIABLE.  IF AN EXPRESSION IS NEGATIVE THE
01517  M01S01050.286l859 ---|*         VARIABLE WILL BE COMPLEMENTED BEFORE IT IS USED.  IN NORMAL
01518  M01S01051.286l859 ---|*         USAGE AN EXPRESSION WOULD SIMPLY BE A SYMBOL FOR AN
01519  M01S01052.286l859 ---|*         UNCOMPLEMENTED VARIABLE AND A SYMBOL PRECEDED BY A MINUS
01520  M01S01053.286l859 ---|*         SIGN FOR A COMPLEMENTED VARIABLE.  PRECEDING THE CALL TO THE
01521  M01S01054.286l859 ---|*         *BOOL* MACRO THE SYMBOL WOULD BE EQUATED TO THE BIT NUMBER
01522  M01S01055.286l859 ---|*         WHICH IS TO REPRESENT THE VARIABLE.
01523  M01S01056.286l859 ---|*
01524  M01S01057.286l859 ---|*                THE FOLLOWING EXAMPLE CLARIFIES THE USE OF THE *BOOL*
01525  M01S01058.286l859 ---|*         MACRO.  ASSUME THAT THE *EXCLUSIVE OR* FUNCTION OF TWO
01526  M01S01059.286l859 ---|*         VARIABLES IS TO BE REPRESENTED.  A FORTRAN EXPRESSION FOR
01527  M01S01060.286l859 ---|*         THIS OPERATION WOULD BE AS FOLLOWS.
01528  M01S01061.286l859 ---|*
01529  M01S01062.286l859 ---|*         C = (A .AND. B) .OR. (.NOT. A .AND. .NOT. B)
01530  M01S01063.286l859 ---|*
01531  M01S01064.286l859 ---|*         THE FORTRAN REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION
01532  M01S01065.286l859 ---|*         SHOWN ABOVE WOULD BE IMPLEMENTED USING THE *BOOL* MACRO
01533  M01S01066.286l859 ---|*         AS FOLLOWS.
01534  M01S01067.286l859 ---|*
01535  M01S01068.286l859 ---|* A       EQU    0           USE BIT ZERO FOR VARIABLE *A*
01536  M01S01069.286l859 ---|* B       EQU    1           USE BIT ONE FOR VARIABLE *B*
01537  M01S01070.286l859 ---|* C       BOOL   ((A,B),(-A,-B))
01538  M01S01071.286l859 ---|*
01539  M01S01072.286l859 ---|*         THE CODE GENERATED AT ADDRESS *C* WOULD BE THE INTERNAL
01540  M01S01073.286l859 ---|*         REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION.
01541  M01S01074.286l859 ---|*
01542  M01S01075.286l859 ---|*                EACH BOOLEAN TERM (2 IN THIS EXAMPLE) OF AN EXPRESSION
01543  M01S01076.286l859 ---|*         GENERATES TWO WORDS OF CODE.  THE FIRST WORD IS A VARIABLE
01544  M01S01077.286l859 ---|*         SELECT MASK WHICH HAS A BIT SET FOR EACH VARIABLE APPEARING
01545  M01S01078.286l859 ---|*         IN THE TERM.  THE SECOND WORD IS A VARIABLE COMPLEMENT MASK
01546  M01S01079.286l859 ---|*         WHICH HAS A BIT SET FOR EACH VARIABLE THAT APPEARS IN THE
01547  M01S01080.286l859 ---|*         TERM IN UNCOMPLEMENTED FORM.  THE CODE GENERATED BY THE
01548  M01S01081.286l859 ---|*         *BOOL* MACRO IS TERMINATED BY A ZERO WORD.  THE INTERNAL
01549  M01S01082.286l859 ---|*         CODE PRODUCED BY THE *EXCLUSIVE OR* EXAMPLE WOULD BE.
01550  M01S01083.286l859 ---|*
01551  M01S01084.286l859 ---|* C       VFD    58/0,1/1,1/1  *A* AND *B* SELECTED
01552  M01S01085.286l859 ---|*         VFD    58/0,1/1,1/1  *A* AND *B* NOT COMPLEMENTED
01553  M01S01086.286l859 ---|*         VFD    58/0,1/1,1/1  *A* AND *B* SELECTED
01554  M01S01087.286l859 ---|*         VFD    58/0,1/0,1/0  *A* AND *B* COMPLEMENTED
01555  M01S01088.286l859 ---|*         VFD    60/0          TERMINATION FLAG
01556  M01S01089.286l859 ---|
01557  M01S01090.286l859 ---|
01558  M01S01091.286l859 ---|          PURGMAC BOOL
01559  M01S01092.286l859 ---| BOOL     MACRO  PAR
01560  M01S01093.286l859 ---|          MACREF BOOL
01561  M01S01094.286l859 ---|          IRP    PAR
01562  M01S01095.286l859 ---| .2       MICRO  1,, 0
01563  M01S01096.286l859 ---| .3       MICRO  1,,
01564  M01S01097.286l859 ---| TERM     ECHO   0,P=(PAR)
01565  M01S01098.286l859 ---| .1       SET    P
01566  M01S01099.286l859 ---| SIGN     IFPL   .1
01567  M01S01100.286l859 ---| .1       DECMIC .1
01568  M01S01101.286l859 ---| .2       MICRO  1,, ".2"+1S".1"
01569  M01S01102.286l859 ---| SIGN     ELSE
01570  M01S01103.286l859 ---| .1       DECMIC -.1
01571  M01S01104.286l859 ---| .3       MICRO  1,, ".3"+1S".1"
01572  M01S01105.286l859 ---| SIGN     ENDIF
01573  M01S01106.286l859 ---| TERM     ENDD
01574  M01S01107.286l859 ---|          CON    ".2"".3"
01575  M01S01108.286l859 ---|          CON    ".2"
01576  M01S01109.286l859 ---|          IRP
01577  M01S01110.286l859 ---|          CON    0
01578  M01S01111.286l859 ---| BOOL     ENDM
01579  M00S01112.comspfs +++| COMPFET  SPACE  4,10
01580  M00S01113.comspfs +++|**        COMPFET - COMPLETE FETS.
01581  M00S01114.comspfs +++|*
01582  M00S01115.comspfs +++|*         COMPFET  (PAR)
01583  M00S01116.comspfs +++|*
01584  M00S01117.comspfs +++|*         PAR = LIST OF ADDRESSES TO SET COMPLETE.
01585  M00S01118.comspfs +++|*
01586  M00S01119.comspfs +++|*         USES   X - 1, 2, 6.
01587  M00S01120.comspfs +++|*                A - 1, 6.
01588  M00S01121.comspfs +++|
01589  M00S01122.comspfs +++|
01590  M00S01123.comspfs +++|          PURGMAC  COMPFET
01591  M00S01124.comspfs +++| COMPFET  MACRO  PAR
01592  M00S01125.comspfs +++|          MACREF COMPFET
01593  M00S01126.comspfs +++|          SX2    B1
01594  M00S01127.comspfs +++|          IRP    PAR
01595  M00S01128.comspfs +++|          SA1    PAR
01596  M00S01129.comspfs +++|          BX6    X1+X2
01597  M00S01130.comspfs +++|          SA6    A1
01598  M00S01131.comspfs +++|          IRP
01599  M00S01132.comspfs +++| COMPFET  ENDM

Line S00375 Modification History
`M01` (Added by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01600  M01S00375.286l859 +++| CWREAD   SPACE  4,20
01601  M01S00376.286l859 +++|**        CWREAD - CONTROL WORD READ WORDS.
01602  M01S00377.286l859 +++|*
01603  M01S00378.286l859 +++|*         CWREAD FET,BUF,BUFL
01604  M01S00379.286l859 +++|*
01605  M01S00380.286l859 +++|*         FET = FET ADDRESS FOR FILE.
01606  M01S00381.286l859 +++|*         BUF = WORKING BUFFER ADDRESS.
01607  M01S00382.286l859 +++|*         BUFL = LENGTH OF WORKING BUFFER.
01608  M01S00383.286l859 +++|*
01609  M01S00384.286l859 +++|*         *BUFL* WORDS ARE TRANSFERRED FROM THE CIRCULAR BUFFER TO THE
01610  M01S00385.286l859 +++|*         WORKING BUFFER *BUF*.  BUFFER CONTROL WORDS ARE REMOVED AS
01611  M01S00386.286l859 +++|*         NECESSARY.
01612  M01S00387.286l859 +++|*
01613  M01S00388.286l859 +++|*         USES   X - 2.
01614  M01S00389.286l859 +++|*                B - 6, 7.
01615  M01S00390.286l859 +++|*
01616  M01S00391.286l859 +++|*         CALLS  CWR.
01617  M01S00392.286l859 +++|
01618  M01S00393.286l859 +++|
01619  M01S00394.286l859 +++|          PURGMAC CWREAD
01620  M01S00395.286l859 +++| CWREAD   MACRO  FET,BUF,BUFL
01621  M01S00396.286l859 +++|          MACREF CWREAD
01622  M01S00397.286l859 +++|          R=     B6,BUF
01623  M01S00398.286l859 +++|          R=     B7,BUFL
01624  M01S00399.286l859 +++|          R=     X2,FET
01625  M01S00400.286l859 +++|          RJ     CWR
01626  M01S00401.286l859 +++| CWREAD   ENDM

Line S01133 Modification History
`M01` (Removed by)	`286l859`

Seq #  *Modification Id* Act 
----------------------------+
01627  M01S01133.286l859 ---| EDITS    SPACE  4,20
01628  M01S01134.286l859 ---|**        EDITS - EDIT MESSAGE STRING.
01629  M01S01135.286l859 ---|*
01630  M01S01136.286l859 ---|*         EDITS  S,T
01631  M01S01137.286l859 ---|*
01632  M01S01138.286l859 ---|*         S = ADDRESS OF MESSAGE PARAMETER SKELETON TO BE EDITED.
01633  M01S01139.286l859 ---|*         T = MESSAGE DESCRIPTION STRING ADDRESS (0 OR BLANK IF NONE).
01634  M01S01140.286l859 ---|*
01635  M01S01141.286l859 ---|*         USES   X - 6.
01636  M01S01142.286l859 ---|*                B - 6.
01637  M01S01143.286l859 ---|*
01638  M01S01144.286l859 ---|*         CALLS  EDS.
01639  M01S01145.286l859 ---|
01640  M01S01146.286l859 ---|
01641  M01S01147.286l859 ---|          PURGMAC EDITS
01642  M01S01148.286l859 ---| EDITS    MACRO  S,T
01643  M01S01149.286l859 ---|          MACREF EDITS
01644  M01S01150.286l859 ---|          R=     B6,S
01645  M01S01151.286l859 ---| .1       IFC    NE,$T$$
01646  M01S01152.286l859 ---|          R=     X6,T
01647  M01S01153.286l859 ---| .1       ELSE
01648  M01S01154.286l859 ---|          SX6    B0+
01649  M01S01155.286l859 ---| .1       ENDIF
01650  M01S01156.286l859 ---|          RJ     EDS         EDIT STRING
01651  M01S01157.286l859 ---| EDITS    ENDM
01652  M00S01158.comspfs +++| PCINT    SPACE  4,10
01653  M00S01159.comspfs +++|**        PCINT - PROCESS CATALOG INTERLOCK.
01654  M00S01160.comspfs +++|*
01655  M00S01161.comspfs +++|*         PCINT  FET,FNC
01656  M00S01162.comspfs +++|*
01657  M00S01163.comspfs +++|*         FET = ADDRESS OF FET TO PROCESS INTERLOCK WITH.
01658  M00S01164.comspfs +++|*         FNC = PFU FUNCTION CODE TO PROCESS INTERLOCK WITH.
01659  M00S01165.comspfs +++|*
01660  M00S01166.comspfs +++|*         CALLS  PCI.
01661  M00S01167.comspfs +++|*
01662  M00S01168.comspfs +++|*         USES   X - 6, 7.
01663  M00S01169.comspfs +++|
01664  M00S01170.comspfs +++|
01665  M00S01171.comspfs +++|          PURGMAC PCINT
01666  M00S01172.comspfs +++|
01667  M00S01173.comspfs +++| PCINT    MACRO  FET,FNC
01668  M00S01174.comspfs +++|          MACREF PCINT
01669  M00S01175.comspfs +++|          R=     X6,FET
01670  M00S01176.comspfs +++|          R=     X7,FNC
01671  M00S01177.comspfs +++|          RJ     PCI
01672  M00S01178.comspfs +++| PCINT    ENDM
01673  M00S01179.comspfs +++|          SPACE  4
01674  M00S01180.comspfs +++|          QUAL   *
01675  M00S01181.comspfs +++|          ENDX