Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.cpcom   +++|          TTL    CPCOM - CENTRAL PROGRAM SYSTEM COMMUNICATION MACROS.
00002  M00S00002.cpcom   +++|          TITLE

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.ns2011  ---| CPCOM    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.ns2011  +++| CPCOM    SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00005.ns2011  ---| CPCOM    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00002.ns2011  +++| CPCOM    SPACE  4,10
00009  M00S00006.cpcom   +++|***       CPCOM - CENTRAL PROGRAM SYSTEM COMMUNICATION MACROS.

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00003.ns2011  +++|*
00011  M00S00007.cpcom   +++|*         G. R. MANSFIELD.  70/09/21.

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00008.ns2011  ---| CPCOM    SPACE  4
00013  M01S00009.ns2011  ---|***              THE SYSTEM MACROS PROVIDE THE USER WITH PREDEFINED
00014  M01S00010.ns2011  ---|*         CALLS FOR COMMONLY USED SYSTEM REQUESTS.
00015  M01S00011.ns2011  ---|*         WHERE A PARAMETER REFERS TO AN ADDRESS EXPRESSION, THE
00016  M01S00012.ns2011  ---|*         PARAMETER MAY BE A REGISTER NAME, A RELOCATABLE ADDRESS,
00017  M01S00013.ns2011  ---|*         AN EXTERNAL SYMBOL NAME, OR AN ABSOLUTE ADDRESS.
00018  M01S00014.ns2011  ---|*         WHERE A RECALL OPTION IS SPECIFIED, THE PRESENCE OF THE
00019  M01S00015.ns2011  ---|*         OPTION CAUSES RECALL OPERATION TO TAKE PLACE.
00020  M01S00016.ns2011  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00004.ns2011  +++| CPCOM    SPACE  4,10
00022  M01S00005.ns2011  +++|***       THE SYSTEM MACROS PROVIDE THE USER WITH PREDEFINED CALLS FOR
00023  M01S00006.ns2011  +++|*         COMMONLY USED SYSTEM REQUESTS.  WHERE A PARAMETER REFERS TO
00024  M01S00007.ns2011  +++|*         AN ADDRESS EXPRESSION, THE PARAMETER MAY BE A REGISTER NAME,
00025  M01S00008.ns2011  +++|*         A RELOCATABLE ADDRESS, AN EXTERNAL SYMBOL NAME, OR AN
00026  M01S00009.ns2011  +++|*         ABSOLUTE ADDRESS.  WHERE A RECALL OPTION IS SPECIFIED, THE
00027  M01S00010.ns2011  +++|*         PRESENCE OF THE OPTION CAUSES RECALL OPERATION TO TAKE PLACE.
00028  M01S00011.ns2011  +++|          SPACE  4,10
00029  M00S00017.cpcom   +++|          BASE   DECIMAL
00030  M00S00018.cpcom   +++|          TITLE  GENERAL MACROS.
00031  M00S00019.cpcom   +++| MACREF   SPACE  4,10
00032  M00S00020.cpcom   +++|**        MACREF - GENERATE MACRO SYMBOLIC REFERENCE TABLE LISTING.
00033  M00S00021.cpcom   +++|*
00034  M00S00022.cpcom   +++|*         CAUSES THE MACRO NAME TO BE LISTED IN THE SYMBOLIC
00035  M00S00023.cpcom   +++|*         REFERENCE TABLE UNDER THE QUALIFIER *MACRO$*.
00036  M00S00024.cpcom   +++|*
00037  M00S00025.cpcom   +++|*         MACREF MNAME
00038  M00S00026.cpcom   +++|*                MNAME    MACRO NAME FOR REFERENCE TABLE.
00039  M00S00027.cpcom   +++|
00040  M00S00028.cpcom   +++|
00041  M00S00029.cpcom   +++|          PURGMAC MACREF
00042  M00S00030.cpcom   +++|
00043  M00S00031.cpcom   +++| MACREF   MACRO  N
00044  M00S00032.cpcom   +++|  QUAL MACRO$
00045  M00S00033.cpcom   +++|N SET *
00046  M00S00034.cpcom   +++|  QUAL *
00047  M00S00035.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00048  M01S00036.ns2011  ---| GENERAL  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00012.ns2011  +++| SYSCOM   SPACE  4,10
00050  M00S00037.cpcom   +++|***       SYSCOM - DEFINE SYSTEMS COMMUNICATION SYMBOLS.

Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00038.ns2011  ---|*
00052  M00S00039.cpcom   +++|*
00053  M00S00040.cpcom   +++|*         SYSCOM B1
00054  M00S00041.cpcom   +++|*         IF *B1* IS PRESENT, USER DEFINES (B1) = 1.
00055  M00S00042.cpcom   +++|
00056  M00S00043.cpcom   +++|
00057  M00S00044.cpcom   +++|          PURGMAC SYSCOM
00058  M00S00045.cpcom   +++|
00059  M00S00046.cpcom   +++| SYSCOM   MACRO  N
00060  M00S00047.cpcom   +++|  MACREF SYSCOM
00061  M00S00048.cpcom   +++|  IFC EQ,$N$B1$,1
00062  M00S00049.cpcom   +++|  B1=1
00063  M00S00050.cpcom   +++|****      PROGRAM CONTROL AREA
00064  M00S00051.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00052.ns2011  ---|*
00066  M00S00053.cpcom   +++|*                            RA+1
00067  M00S00054.cpcom   +++|RA.MTR = 1
00068  M00S00055.cpcom   +++|*                            FIRST ARGUMENT
00069  M00S00056.cpcom   +++|ARGR = 2
00070  M00S00057.cpcom   +++|*                            SPECIAL PROGRAM PARAMETER AREA (27B-47B)
00071  M00S00058.cpcom   +++|SPPR = 27B

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00001.242l642 +++|*                            MEMORY LINK BUFFER POINTER (BITS 0 - 17)
00073  M01S00002.242l642 +++|MLBR = 55B
00074  M00S00059.cpcom   +++|*                            PROGRAM NAME (BITS 18 - 59)
00075  M00S00060.cpcom   +++|PGNR = 64B
00076  M00S00061.cpcom   +++|*                            ARGUMENT COUNT (BITS 0 - 17)
00077  M00S00062.cpcom   +++|ACTR = 64B
00078  M00S00063.cpcom   +++|*                            CMU OPTION AVAILABLE (BIT 59)
00079  M00S00064.cpcom   +++|CMUR = 65B
00080  M00S00065.cpcom   +++|*                            LWA+1 ASSIGNED PROGRAM SPACE (BITS 0 - 17)
00081  M00S00066.cpcom   +++|LWPR = 65B
00082  M00S00067.cpcom   +++|*                            CMU OPTION AVAILABLE (BIT 59)
00083  M00S00068.cpcom   +++|RA.CMU = 65B
00084  M00S00069.cpcom   +++|*                            FWA ASSIGNED PROGRAM SPACE (BITS 0 - 17)
00085  M00S00070.cpcom   +++|FWPR = 66B
00086  M00S00071.cpcom   +++|*                            JOB ORIGIN TYPE(BITS 24 - 35)
00087  M00S00072.cpcom   +++|JOPR = 66B
00088  M00S00073.cpcom   +++|*                            CEJ OPTION AVAILABLE (BIT 59)
00089  M00S00074.cpcom   +++|RA.CEJ = 66B
00090  M00S00075.cpcom   +++|*                            CEJ OPTION AVAILABLE (BIT 59)
00091  M00S00076.cpcom   +++|XJPR = 66B
00092  M00S00077.cpcom   +++|*                            *LDR* COMPLETION (BIT 29)
00093  M00S00078.cpcom   +++|LDRR = 67B
00094  M00S00079.cpcom   +++|*                            SYSTEM CHARACTER SET MODE FLAG
00095  M00S00080.cpcom   +++|CSMR = 67B
00096  M00S00081.cpcom   +++|*                            CONTROL CARD (8 LOCATIONS)
00097  M00S00082.cpcom   +++|CCDR = 70B
00098  M00S00083.cpcom   +++|*                            LINES/PRINTER PAGE
00099  M00S00084.cpcom   +++|LINP = 60D
00100  M00S00085.cpcom   +++|****
00101  M00S00086.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00087.ns2011  ---| IDIV     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00013.ns2011  +++| IDIV     SPACE  4,10
00104  M00S00088.cpcom   +++|***       IXI XJ/XK - INTEGER DIVISION.
00105  M00S00089.cpcom   +++|*
00106  M00S00090.cpcom   +++|*         IXI    XJ/XK
00107  M00S00091.cpcom   +++|*         DIVIDE XJ BY XK TO XI.
00108  M00S00092.cpcom   +++|*         DESTROYS XJ, XK, B7.
00109  M00S00093.cpcom   +++|
00110  M00S00094.cpcom   +++|
00111  M00S00095.cpcom   +++|          PURGDEF IXX/X
00112  M00S00096.cpcom   +++|
00113  M00S00097.cpcom   +++| IXX/X    OPDEF  I,J,K
00114  M00S00098.cpcom   +++|  PX.J X.J
00115  M00S00099.cpcom   +++|  PX.K X.K
00116  M00S00100.cpcom   +++|  NX.K X.K
00117  M00S00101.cpcom   +++|  FX.I X.J/X.K
00118  M00S00102.cpcom   +++|  UX.I B7,X.I
00119  M00S00103.cpcom   +++|  LX.I X.I,B7
00120  M00S00104.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00121  M01S00105.ns2011  ---| MOVE     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00122  M01S00014.ns2011  +++| MOVE     SPACE  4,10
00123  M00S00106.cpcom   +++|***       MOVE - MOVE DATA BLOCK.
00124  M00S00107.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00015.ns2011  +++|*         MOVE   COUNT,FROM,TO
00126  M00S00108.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00109.ns2011  ---|*         MOVE   COUNT,FROM,TO
00128  M00S00110.cpcom   +++|*         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED.
00129  M00S00111.cpcom   +++|*                *FROM* = ADDRESS OF FIRST WORD OF BLOCK.
00130  M00S00112.cpcom   +++|*                *TO* = ADDRESS OF FIRST WORD OF DESTINATION.

Seq #  *Modification Id* Act 
----------------------------+
00131  M01S00016.ns2011  +++|*
00132  M00S00113.cpcom   +++|*         CALLS  MVE=  (COMCMVE).
00133  M00S00114.cpcom   +++|
00134  M00S00115.cpcom   +++|
00135  M00S00116.cpcom   +++|          PURGMAC MOVE
00136  M00S00117.cpcom   +++|
00137  M00S00118.cpcom   +++| MOVE     MACRO  C,F,T
00138  M00S00119.cpcom   +++|  MACREF MOVE
00139  M00S00120.cpcom   +++|  R= X1,C
00140  M00S00121.cpcom   +++|  R= X2,F
00141  M00S00122.cpcom   +++|  R= X3,T
00142  M00S00123.cpcom   +++|  RJ =XMVE=
00143  M00S00124.cpcom   +++|  ENDM
00144  M00S00125.cpcom   +++|          TITLE  SYSTEM REQUESTS.

Seq #  *Modification Id* Act 
----------------------------+
00145  M01S00126.ns2011  ---| SYSTEM   SPACE  4
00146  M01S00127.ns2011  ---|***              SYSTEM REQUEST MACROS FORMAT REQUESTS INTO X REGISTERS
00147  M01S00128.ns2011  ---|*         AND RETURN JUMP TO THE SYSTEM COMMUNICATION SUBROUTINES.
00148  M01S00129.ns2011  ---|*         THESE SUBROUTINES ARE AVAILABLE AS ENTRY POINTS FOR
00149  M01S00130.ns2011  ---|*         RELOCATABLE PROGRAMS OR AS COMMON DECKS FOR ABSOLUTE
00150  M01S00131.ns2011  ---|*         PROGRAMS.

Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00017.ns2011  +++| SYSTEM   SPACE  4,15
00152  M01S00018.ns2011  +++|***       SYSTEM REQUEST MACROS FORMAT REQUESTS INTO X REGISTERS AND
00153  M01S00019.ns2011  +++|*         RETURN JUMP TO THE SYSTEM COMMUNICATION SUBROUTINES.  THESE
00154  M01S00020.ns2011  +++|*         SUBROUTINES ARE AVAILABLE AS ENTRY POINTS FOR RELOCATABLE
00155  M01S00021.ns2011  +++|*         PROGRAMS OR AS COMMON DECKS FOR ABSOLUTE PROGRAMS.
00156  M00S00132.cpcom   +++|*
00157  M00S00133.cpcom   +++|*         ENTRY  COMMON DECK

Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00134.ns2011  ---|*
00159  M01S00135.ns2011  ---|*         SYS=   COMCSYS
00160  M01S00136.ns2011  ---|*         MSG=   COMCSYS
00161  M01S00137.ns2011  ---|*         RCL=   COMCSYS
00162  M01S00138.ns2011  ---|*         WNB=   COMCSYS
00163  M01S00139.ns2011  ---|*         CPM=   COMCCPM
00164  M01S00140.ns2011  ---|*         OVL=   COMCOVL
00165  M01S00141.ns2011  ---| ABORT    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00166  M01S00022.ns2011  +++|*                SYS=  *COMCSYS*
00167  M01S00023.ns2011  +++|*                MSG=  *COMCSYS*
00168  M01S00024.ns2011  +++|*                RCL=  *COMCSYS*
00169  M01S00025.ns2011  +++|*                WNB=  *COMCSYS*
00170  M01S00026.ns2011  +++|*                CPM=  *COMCCPM*
00171  M01S00027.ns2011  +++|*                OVL=  *COMCOVL*
00172  M01S00028.ns2011  +++| ABORT    SPACE  4,10
00173  M00S00142.cpcom   +++|***       ABORT - ABORT JOB.
00174  M00S00143.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00029.ns2011  +++|*         ABORT
00176  M00S00144.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00177  M01S00145.ns2011  ---|*         ABORT
00178  M00S00146.cpcom   +++|*         CALLS  SYS=.
00179  M00S00147.cpcom   +++|
00180  M00S00148.cpcom   +++|
00181  M00S00149.cpcom   +++|          PURGMAC ABORT
00182  M00S00150.cpcom   +++|
00183  M00S00151.cpcom   +++| ABORT    MACRO
00184  M00S00152.cpcom   +++|  MACREF ABORT

Seq #  *Modification Id* Act 
----------------------------+
00185  M01S00153.ns2011  ---|*                            FORM ABORT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00030.ns2011  +++|*         FORM ABORT REQUEST.
00187  M00S00154.cpcom   +++|  SX6 4RABTP/16D
00188  M00S00155.cpcom   +++|  LX6 40D

Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00156.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00031.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00191  M00S00157.cpcom   +++|  RJ =XSYS=
00192  M00S00158.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00159.ns2011  ---| CLOCK    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00194  M01S00032.ns2011  +++| CLOCK    SPACE  4,10
00195  M00S00160.cpcom   +++|***       CLOCK - RETURN TIME OF DAY.
00196  M00S00161.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00033.ns2011  +++|*         CLOCK  STATUS
00198  M00S00162.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00163.ns2011  ---|*         CLOCK  STATUS
00200  M00S00164.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR TIME OF DAY RESPONSE.

Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00034.ns2011  +++|*
00202  M00S00165.cpcom   +++|*         EXIT -
00203  M00S00166.cpcom   +++|*T STATUS 60/  * HH.MM.SS.*

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00204  M01S00035.ns2011  +++|*
00205  M00S00167.cpcom   +++|*         CALLS  SYS=.
00206  M00S00168.cpcom   +++|
00207  M00S00169.cpcom   +++|
00208  M00S00170.cpcom   +++|          PURGMAC CLOCK
00209  M00S00171.cpcom   +++|
00210  M00S00172.cpcom   +++| CLOCK    MACRO  S
00211  M00S00173.cpcom   +++|  MACREF CLOCK

Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00174.ns2011  ---|*                            FORM TIME (CLOCK) REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00036.ns2011  +++|*         FORM TIME (CLOCK) REQUEST.
00214  M00S00175.cpcom   +++|  SX6 3RTIM
00215  M00S00176.cpcom   +++|  R= X1,S
00216  M00S00177.cpcom   +++|  LX6 42D
00217  M00S00178.cpcom   +++|  BX6 X6+X1
00218  M00S00179.cpcom   +++|  SX1 200002B
00219  M00S00180.cpcom   +++|  LX1 24D
00220  M00S00181.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00182.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00037.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00223  M00S00183.cpcom   +++|  RJ =XSYS=
00224  M00S00184.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00225  M01S00185.ns2011  ---| CONTROL  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00038.ns2011  +++| CONTROL  SPACE  4,20
00227  M00S00186.cpcom   +++|***       CONTROL - READ NEXT CONTROL CARD.
00228  M00S00187.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00229  M01S00039.ns2011  +++|*         CONTROL BUF,RSS,LF,SF
00230  M00S00188.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00231  M01S00189.ns2011  ---|*         CONTROL BUF,RSS,LF,SF
00232  M01S00190.ns2011  ---|*         ENTRY  *BUF* = ADDRESS TO WHICH CONTROL CARD WILL BE READ.
00233  M01S00191.ns2011  ---|*                            (ALLOW 8 WORDS)

Seq #  *Modification Id* Act 
----------------------------+
00234  M01S00040.ns2011  +++|*         ENTRY  *BUF* = ADDRESS TO WHICH CONTROL STATEMENT WILL BE
00235  M01S00041.ns2011  +++|*                        READ.  (ALLOW 8 WORDS)
00236  M00S00192.cpcom   +++|*                *RSS* IF PRESENT SUPPRESSES THE ADVANCEMENT OF THE

Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00193.ns2011  ---|*                            CONTROL CARDS.  THIS OPTION ALLOWS
00238  M01S00194.ns2011  ---|*                            THE NEXT CONTROL CARD TO BE CHECKED.
00239  M01S00195.ns2011  ---|*                *LF* IF PRESENT INDICATES TO RETURN CONTROL CARD
00240  M01S00196.ns2011  ---|*                IRREGARDLESS OF WHETHER IT POINTS AT A LOCAL FILE.
00241  M01S00197.ns2011  ---|*                NORMALLY NO CONTROL CARD WILL BE RETURNED IF IT CALLS
00242  M01S00198.ns2011  ---|*                FOR EXECUTION OF A LOCAL FILE.  IF THIS OPTION IS
00243  M01S00199.ns2011  ---|*                SELECTED BIT 17 IN THE PARAMETER COUNT WORD WILL
00244  M01S00200.ns2011  ---|*                BE SET IF A CONTROL CARD IS FOR A LOCAL FILE.

Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00042.ns2011  +++|*                        CONTROL STATEMENTS.  THIS OPTION ALLOWS THE
00246  M01S00043.ns2011  +++|*                        NEXT CONTROL STATEMENT TO BE CHECKED.
00247  M01S00044.ns2011  +++|*                *LF* IF PRESENT INDICATES TO RETURN CONTROL STATEMENT
00248  M01S00045.ns2011  +++|*                        IRREGARDLESS OF WHETHER IT POINTS AT A LOCAL
00249  M01S00046.ns2011  +++|*                        FILE.  NORMALLY NO CONTROL STATEMENT WILL BE
00250  M01S00047.ns2011  +++|*                        RETURNED IF IT CALLS FOR EXECUTION OF A LOCAL
00251  M01S00048.ns2011  +++|*                        FILE.  IF THIS OPTION IS SELECTED BIT 17 IN
00252  M01S00049.ns2011  +++|*                        THE PARAMETER COUNT WORD WILL BE SET IF A
00253  M01S00050.ns2011  +++|*                        CONTROL STATEMENT IS FOR A LOCAL FILE.
00254  M00S00201.cpcom   +++|*                *SF* IF PRESENT INDICATES PARAMETERS UNPACKED IN SCOPE

Seq #  *Modification Id* Act 
----------------------------+
00255  M01S00202.ns2011  ---|*                FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
00256  M01S00051.ns2011  +++|*                        FORMAT.
00257  M01S00052.ns2011  +++|*
00258  M00S00203.cpcom   +++|*         CALLS  SYS=.
00259  M00S00204.cpcom   +++|
00260  M00S00205.cpcom   +++|
00261  M00S00206.cpcom   +++|          PURGMAC CONTROL
00262  M00S00207.cpcom   +++|
00263  M00S00208.cpcom   +++| CONTROL  MACRO  A,B,C,D
00264  M00S00209.cpcom   +++|  MACREF CONTROL
00265  M00S00210.cpcom   +++|  R= X1,A
00266  M00S00211.cpcom   +++|.1 IFC EQ,$B$$
00267  M00S00212.cpcom   +++|.2 IFC EQ,$D$$
00268  M00S00213.cpcom   +++|  BX6 X6-X6
00269  M00S00214.cpcom   +++|.2 ELSE
00270  M00S00215.cpcom   +++|  SX6 40B
00271  M00S00216.cpcom   +++|.2 ENDIF
00272  M00S00217.cpcom   +++|.1 ELSE
00273  M00S00218.cpcom   +++|.2 IFC EQ,$C$$
00274  M00S00219.cpcom   +++|.3 IFC EQ,$D$$
00275  M00S00220.cpcom   +++|  R= X6,1
00276  M00S00221.cpcom   +++|.3 ELSE
00277  M00S00222.cpcom   +++|  SX6 41B
00278  M00S00223.cpcom   +++|.3 ENDIF
00279  M00S00224.cpcom   +++|.2 ELSE
00280  M00S00225.cpcom   +++|.3 IFC EQ,$D$$
00281  M00S00226.cpcom   +++|  R= X6,2
00282  M00S00227.cpcom   +++|.3 ELSE
00283  M00S00228.cpcom   +++|  SX6 42B
00284  M00S00229.cpcom   +++|.3 ENDIF
00285  M00S00230.cpcom   +++|.2 ENDIF
00286  M00S00231.cpcom   +++|.1 ENDIF
00287  M00S00232.cpcom   +++|  LX6 18D
00288  M00S00233.cpcom   +++|  BX6 X6+X1
00289  M00S00234.cpcom   +++|  SX2 1LP+4
00290  M00S00235.cpcom   +++|  SX1 3RTCS
00291  M00S00236.cpcom   +++|  LX2 24D
00292  M00S00237.cpcom   +++|  LX1 42D
00293  M00S00238.cpcom   +++|  BX6 X6+X2
00294  M00S00239.cpcom   +++|  BX6 X6+X1
00295  M00S00240.cpcom   +++|  RJ =XSYS=
00296  M00S00241.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00297  M01S00242.ns2011  ---| DATE     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00053.ns2011  +++| DATE     SPACE  4,10
00299  M00S00243.cpcom   +++|***       DATE - RETURN DATE.
00300  M00S00244.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00054.ns2789  ---|*         DATE   STATUS

Seq #  *Modification Id* Act 
----------------------------+
00302  M01S00001.ns2789  +++|*         DATE   STATUS,FORMAT
00303  M00S00245.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00304  M01S00246.ns2011  ---|*         DATE   STATUS
00305  M00S00247.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR DATE RESPONSE.

Seq #  *Modification Id* Act 
----------------------------+
00306  M01S00002.ns2789  +++|*                *FORMAT* = *4*, RETURN 4-DIGIT YEAR FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
00307  M01S00055.ns2011  +++|*
00308  M00S00248.cpcom   +++|*         EXIT -

Seq #  *Modification Id* Act 
----------------------------+
00309  M01S00249.ns2789  ---|*T STATUS 60/  * YY/MM/DD.*

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00003.ns2789  +++|*T STATUS 60/  * YY/MM/DD.*  (IF *FORMAT* OMITTED OR .NE. *4*)

Figure STATUS

00311  M01S00004.ns2789  +++|*T STATUS 60/  *YYYY/MM/DD*  (IF *FORMAT* = *4*)

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00056.ns2011  +++|*
00313  M00S00250.cpcom   +++|*         CALLS  SYS=.
00314  M00S00251.cpcom   +++|
00315  M00S00252.cpcom   +++|
00316  M00S00253.cpcom   +++|          PURGMAC DATE
00317  M00S00254.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00255.ns2789  ---| DATE     MACRO  S

Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00005.ns2789  +++| DATE     MACRO  S,F
00320  M00S00256.cpcom   +++|  MACREF DATE

Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00257.ns2011  ---|*                            FORM TIME (DATE) REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00322  M01S00057.ns2011  +++|*         FORM TIME (DATE) REQUEST.
00323  M00S00258.cpcom   +++|  SX6 3RTIM
00324  M00S00259.cpcom   +++|  R= X1,S
00325  M00S00260.cpcom   +++|  LX6 42D
00326  M00S00261.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00327  M01S00006.ns2789  +++|A IFC EQ,*F*4*
00328  M01S00007.ns2789  +++|  SX1 200013B
00329  M01S00008.ns2789  +++|A ELSE
00330  M00S00262.cpcom   +++|  SX1 200001B

Seq #  *Modification Id* Act 
----------------------------+
00331  M01S00009.ns2789  +++|A ENDIF
00332  M00S00263.cpcom   +++|  LX1 24D
00333  M00S00264.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00334  M01S00265.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00335  M01S00058.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00336  M00S00266.cpcom   +++|  RJ =XSYS=
00337  M00S00267.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00268.ns2011  ---| ENDRUN   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00339  M01S00059.ns2011  +++| ENDRUN   SPACE  4,10
00340  M00S00269.cpcom   +++|***       ENDRUN - END CENTRAL PROGRAM.
00341  M00S00270.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00060.ns2011  +++|*         ENDRUN
00343  M00S00271.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00272.ns2011  ---|*         ENDRUN
00345  M00S00273.cpcom   +++|*         CALLS  SYS=.
00346  M00S00274.cpcom   +++|
00347  M00S00275.cpcom   +++|
00348  M00S00276.cpcom   +++|          PURGMAC ENDRUN
00349  M00S00277.cpcom   +++|
00350  M00S00278.cpcom   +++| ENDRUN   MACRO
00351  M00S00279.cpcom   +++|  MACREF ENDRUN

Seq #  *Modification Id* Act 
----------------------------+
00352  M01S00280.ns2011  ---|*                            FORM END REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00353  M01S00061.ns2011  +++|*         FORM END REQUEST.
00354  M00S00281.cpcom   +++|  SX6 4RENDP/16D
00355  M00S00282.cpcom   +++|  LX6 40D

Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00283.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00062.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00358  M00S00284.cpcom   +++|  RJ =XSYS=
00359  M00S00285.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00286.ns2011  ---| EREXIT   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00361  M01S00063.ns2011  +++| EREXIT   SPACE  4,20
00362  M00S00287.cpcom   +++|***       EREXIT - SET ERROR RETURN ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00363  M01S00288.ns2011  ---|*         THIS WILL SET CPU PROGRAM ADDRESS TO RESTART THE PROGRAM AT

Seq #  *Modification Id* Act 
----------------------------+
00364  M01S00064.ns2011  +++|*
00365  M01S00065.ns2011  +++|*         THIS WILL SET CPU PROGRAM ADDRESS TO RESTART THE PROGRAM
00366  M00S00289.cpcom   +++|*         AFTER IT HAS BEEN ABORTED DUE TO EITHER AN ILLEGAL OPERATION

Seq #  *Modification Id* Act 
----------------------------+
00367  M01S00290.ns2011  ---|*         OR OPERATOR INTERVENTION.  IF THE ERROR WAS DUE TO TIME
00368  M01S00291.ns2011  ---|*         LIMIT BEING EXCEEDED,  AN ADDITIONAL 8 SECONDS OF CPU TIME
00369  M01S00292.ns2011  ---|*         WILL BE ALLOWED.  ALL ERRORS EXCEPT CPU ABORT WILL BE
00370  M01S00293.ns2011  ---|*         PROCESSED.

Seq #  *Modification Id* Act 
----------------------------+
00371  M01S00066.ns2011  +++|*         OR OPERATOR INTERVENTION.  IF THE ERROR WAS DUE TO TIME LIMIT
00372  M01S00067.ns2011  +++|*         BEING EXCEEDED, AN ADDITIONAL 8 SECONDS OF CPU TIME WILL BE
00373  M01S00068.ns2011  +++|*         ALLOWED.  ALL ERRORS EXCEPT CPU ABORT WILL BE PROCESSED.
00374  M00S00294.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00069.ns2011  +++|*         EREXIT ADDR
00376  M00S00295.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00377  M01S00296.ns2011  ---|*         EREXIT ADDR
00378  M00S00297.cpcom   +++|*         ENTRY  *ADDR* = ADDRESS FOR ERROR RETURN.
00379  M00S00298.cpcom   +++|*
00380  M00S00299.cpcom   +++|*         THE CPU WILL BE STARTED AT *ADDR* WITH RA =
00381  M00S00300.cpcom   +++|*T,RA     6/0,6/MO,18/EA,6/EF,24/0

Figure RA

00382  M00S00301.cpcom   +++|*         MO = IF ARITHMETIC ERROR CONTAINS EXIT CONDTION
00383  M00S00302.cpcom   +++|*         EA = ADDRESS WHERE CPU WAS AT WHEN ERROR OCCURED
00384  M00S00303.cpcom   +++|*         EF = ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00070.ns2011  +++|*
00386  M00S00304.cpcom   +++|*         CALLS  CPM=.
00387  M00S00305.cpcom   +++|
00388  M00S00306.cpcom   +++|
00389  M00S00307.cpcom   +++|          PURGMAC EREXIT
00390  M00S00308.cpcom   +++|
00391  M00S00309.cpcom   +++| EREXIT   MACRO  A
00392  M00S00310.cpcom   +++|  MACREF EREXIT
00393  M00S00311.cpcom   +++|  R= X1,A
00394  M00S00312.cpcom   +++|  SX2 4
00395  M00S00313.cpcom   +++|  RJ =XCPM=
00396  M00S00314.cpcom   +++|  ENDM
00397  M00S00315.cpcom   +++| HTIME    SPACE  4,20
00398  M00S00316.cpcom   +++|***       HTIME - REQUEST ACCUMULATED CYBER 176 CPU CLOCK CYCLE COUNT.
00399  M00S00317.cpcom   +++|*
00400  M00S00318.cpcom   +++|*         HTIME  STATUS,OPTION

Seq #  *Modification Id* Act 
----------------------------+
00401  M01S00071.ns2011  +++|*
00402  M00S00319.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR CLOCK CYCLE RESPONSE.
00403  M00S00320.cpcom   +++|*                *OPTION* = 0, CONTROL POINT ACCUMULATED CLOCK CYCLE
00404  M00S00321.cpcom   +++|*                              COUNT.
00405  M00S00322.cpcom   +++|*                           1, ACCUMULATED CLOCK CYCLE COUNT SINCE
00406  M00S00323.cpcom   +++|*                              DEADSTART.

Seq #  *Modification Id* Act 
----------------------------+
00407  M01S00072.ns2011  +++|*
00408  M00S00324.cpcom   +++|*         EXIT -
00409  M00S00325.cpcom   +++|*T STATUS 12/TYPE,48/CLOCK CYCLE COUNT

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00410  M01S00326.ns2011  ---|*
00411  M00S00327.cpcom   +++|*                *TYPE* = 2000B, IF CYBER 176 CPU CLOCK CYCLE COUNT IS
00412  M00S00328.cpcom   +++|*                                AVAILABLE.
00413  M00S00329.cpcom   +++|*                       = 6000B, IF CYBER 176 CPU CLOCK NOT AVAILABLE.

Seq #  *Modification Id* Act 
----------------------------+
00414  M01S00073.ns2011  +++|*
00415  M00S00330.cpcom   +++|*         CALLS  SYS=.
00416  M00S00331.cpcom   +++|
00417  M00S00332.cpcom   +++|
00418  M00S00333.cpcom   +++|          PURGMAC  HTIME
00419  M00S00334.cpcom   +++|
00420  M00S00335.cpcom   +++| HTIME    MACRO  S,O
00421  M00S00336.cpcom   +++|  MACREF HTIME

Seq #  *Modification Id* Act 
----------------------------+
00422  M01S00337.ns2011  ---|*                            FORM TIME (HTIME) REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
00423  M01S00074.ns2011  +++|*         FORM TIME (HTIME) REQUEST.
00424  M00S00338.cpcom   +++|  IFNE O,0,2
00425  M00S00339.cpcom   +++|  IFNE O,1,1
00426  M00S00340.cpcom   +++|  ERR ILLEGAL OPTION - O
00427  M00S00341.cpcom   +++|  SX6 3RTIM
00428  M00S00342.cpcom   +++|  R= X1,S
00429  M00S00343.cpcom   +++|  LX6 42D
00430  M00S00344.cpcom   +++|  BX6 X6+X1
00431  M00S00345.cpcom   +++|  SX1 11B+O
00432  M00S00346.cpcom   +++|  LX1 24D
00433  M00S00347.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00434  M01S00348.ns2011  ---|*                            PROCESS SYSTEM REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00075.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00436  M00S00349.cpcom   +++|  RJ =XSYS=
00437  M00S00350.cpcom   +++|  ENDM HTIME

Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00351.ns2011  ---| JDATE    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00439  M01S00076.ns2011  +++| JDATE    SPACE  4,10
00440  M00S00352.cpcom   +++|***       JDATE - JULIAN DATE.
00441  M00S00353.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00077.ns2789  ---|*         JDATE  STATUS

Seq #  *Modification Id* Act 
----------------------------+
00443  M01S00010.ns2789  +++|*         JDATE  STATUS,FORMAT
00444  M00S00354.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00445  M01S00355.ns2011  ---|*         JDATE  STATUS
00446  M00S00356.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR JULIAN DATE.

Seq #  *Modification Id* Act 
----------------------------+
00447  M01S00011.ns2789  +++|*                *FORMAT* OMITTED, RETURN NORMAL FORMAT *YYDDD*.
00448  M01S00012.ns2789  +++|*                         = *I*, RETURN *ISO* FORMAT *CYYDDD*
00449  M01S00013.ns2789  +++|*                         = *4*, RETURN 4-DIGIT YEAR FORMAT *YYYYDDD*.
00450  M01S00014.ns2789  +++|*                         = ANY OTHER, RETURN NORMAL FORMAT *YYDDD*.

Seq #  *Modification Id* Act 
----------------------------+
00451  M01S00078.ns2011  +++|*
00452  M00S00357.cpcom   +++|*         EXIT -

Seq #  *Modification Id* Act 
----------------------------+
00453  M01S00358.ns2789  ---|*T STATUS 30/,30/ *YYDDD*

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00015.ns2789  +++|*T STATUS 30/,30/ *YYDDD*    (IF *FORMAT* OMITTED OR .NE. *I* AND *4*)

Figure STATUS

00455  M01S00016.ns2789  +++|*T STATUS 24/,36/ *CYYDDD*   (IF *FORMAT* = *I*)

Figure STATUS

00456  M01S00017.ns2789  +++|*T STATUS 18/,42/ *YYYYDDD*  (IF *FORMAT* = *4*)

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00079.ns2011  +++|*
00458  M00S00359.cpcom   +++|*         CALLS  SYS=.
00459  M00S00360.cpcom   +++|
00460  M00S00361.cpcom   +++|
00461  M00S00362.cpcom   +++|          PURGMAC JDATE
00462  M00S00363.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00364.ns2789  ---| JDATE    MACRO  S

Seq #  *Modification Id* Act 
----------------------------+
00464  M01S00018.ns2789  +++| JDATE    MACRO  S,F
00465  M00S00365.cpcom   +++|  MACREF JDATE

Seq #  *Modification Id* Act 
----------------------------+
00466  M01S00366.ns2011  ---|*                            FORM TIME (JDATE) REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
00467  M01S00080.ns2011  +++|*         FORM TIME (JDATE) REQUEST.
00468  M00S00367.cpcom   +++|  SX6 3RTIM
00469  M00S00368.cpcom   +++|  R= X1,S
00470  M00S00369.cpcom   +++|  LX6 42D
00471  M00S00370.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00371.ns2789  ---|  SX1 200003B

Seq #  *Modification Id* Act 
----------------------------+
00473  M01S00019.ns2789  +++|A IFC EQ,*F*4*
00474  M01S00020.ns2789  +++|  SX1 200014B    RETURN *YYYYDDD* FORMAT
00475  M01S00021.ns2789  +++|A ELSE
00476  M01S00022.ns2789  +++|B IFC EQ,*F*I*
00477  M01S00023.ns2789  +++|  SX1 200015B    RETURN *CYYDDD* FORMAT
00478  M01S00024.ns2789  +++|B ELSE
00479  M01S00025.ns2789  +++|  SX1 200003B    RETURN *YYDDD* FORMAT
00480  M01S00026.ns2789  +++|  ENDIF
00481  M00S00372.cpcom   +++|  LX1 24D
00482  M00S00373.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00483  M01S00374.ns2011  ---|*                            PROCESS SYSTEM REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
00484  M01S00081.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00485  M00S00375.cpcom   +++|  RJ =XSYS=
00486  M00S00376.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00487  M01S00377.ns2011  ---| MEMORY   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00488  M01S00082.ns2011  +++| MEMORY   SPACE  4,35
00489  M00S00378.cpcom   +++|***       MEMORY - REQUEST MEMORY.

Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00379.ns2011  ---|*
00491  M00S00380.cpcom   +++|*
00492  M00S00381.cpcom   +++|*         MEMORY TYPE,STATUS,RECALL,WORDS,NABORT
00493  M00S00382.cpcom   +++|*                *TYPE* = *CM*, REQUEST CENTRAL MEMORY.
00494  M00S00383.cpcom   +++|*                         BLANK, REQUEST CENTRAL MEMORY.
00495  M00S00384.cpcom   +++|*                         *SCM*, REQUEST CENTRAL MEMORY.
00496  M00S00385.cpcom   +++|*                         *ECS*, REQUEST EXTENDED CORE STORAGE.
00497  M00S00386.cpcom   +++|*                         *LCM*, REQUEST EXTENDED CORE STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00387.ns2011  ---|*                *STATUS* = ADDRESS OF STATUS WORD, IF DESIRED.
00499  M01S00388.ns2011  ---|*                  THIS IS REQUIRED IF NOT CENTRAL MEMORY AND/OR
00500  M01S00389.ns2011  ---|*                  NABORT IS SELECTED.
00501  M01S00390.ns2011  ---|*                *WORDS* = MEMORY ASSIGNMENT REQUEST.
00502  M01S00391.ns2011  ---|*                  THIS IS NOT REQUIRED IF NUMBER OF WORDS HAS BEEN
00503  M01S00392.ns2011  ---|*                  PLACED INTO *STATUS*.  IF THE VALUE OF *WORDS*
00504  M01S00393.ns2011  ---|*                  IS GREATER THAN 377777B THE VALUE MUST BE PASSED
00505  M01S00394.ns2011  ---|*                  TO THE *MEMORY* MACRO IN AN X REGISTER.

Seq #  *Modification Id* Act 
----------------------------+
00506  M01S00083.ns2011  +++|*                *STATUS* = ADDRESS OF STATUS WORD, IF DESIRED.  THIS
00507  M01S00084.ns2011  +++|*                         IS REQUIRED IF NOT CENTRAL MEMORY AND/OR
00508  M01S00085.ns2011  +++|*                         *NABORT* IS SELECTED.
00509  M01S00086.ns2011  +++|*                *WORDS* = MEMORY ASSIGNMENT REQUEST.  THIS IS NOT
00510  M01S00087.ns2011  +++|*                         REQUIRED IF NUMBER OF WORDS HAS BEEN PLACED
00511  M01S00088.ns2011  +++|*                         INTO *STATUS*.  IF THE VALUE OF *WORDS* IS
00512  M01S00089.ns2011  +++|*                         GREATER THAN 377777B THE VALUE MUST BE PASSED
00513  M01S00090.ns2011  +++|*                         TO THE *MEMORY* MACRO IN AN X REGISTER.
00514  M00S00395.cpcom   +++|*                *NABORT* = BLANK IF PROGRAM IS TO BE ABORTED IF THE

Seq #  *Modification Id* Act 
----------------------------+
00515  M01S00396.ns2011  ---|*                  REQUESTED MEMORY IS NOT AVAILABLE. IF NON-BLANK AND
00516  M01S00397.ns2011  ---|*                  THE MEMORY IS UNAVAILABLE, THE CURRENT FIELD LENGTH
00517  M01S00398.ns2011  ---|*                  IS RETURNED IN BITS 30-59 OF *STATUS*.

Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00091.ns2011  +++|*                         REQUESTED MEMORY IS NOT AVAILABLE.  IF NON-
00519  M01S00092.ns2011  +++|*                         BLANK AND THE MEMORY IS UNAVAILABLE, THE
00520  M01S00093.ns2011  +++|*                         CURRENT FIELD LENGTH IS RETURNED IN BITS
00521  M01S00094.ns2011  +++|*                         30-59 OF *STATUS*.
00522  M00S00399.cpcom   +++|*
00523  M00S00400.cpcom   +++|*T STATUS 30/  N,30/  0

Figure STATUS

00524  M00S00401.cpcom   +++|*         N      MEMORY REQUEST  (IF N .GT. 0 THEN THE FOLLOWING IS

Seq #  *Modification Id* Act 
----------------------------+
00525  M01S00402.ns2011  ---|*                                RETURNED)

Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00095.ns2011  +++|*                         RETURNED)
00527  M01S00096.ns2011  +++|*                         N = 12/0,1/R,17/FL
00528  M01S00097.ns2011  +++|*                             R = NO REDUCE OVERRIDE.
00529  M01S00098.ns2011  +++|*                             FL = CM FIELD LENGTH.
00530  M01S00099.ns2011  +++|*                         (IF N = -1 MAX FL IS RETURNED)
00531  M00S00403.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00532  M01S00404.ns2011  ---|*                                    N = 12/0,1/N,17/FL
00533  M01S00405.ns2011  ---|*
00534  M01S00406.ns2011  ---|*                                        N = NO REDUCE OVERRIDE.
00535  M01S00407.ns2011  ---|*                                        FL = CM FIELD LENGTH.
00536  M01S00408.ns2011  ---|*
00537  M01S00409.ns2011  ---|*                                (IF N = -1 MAX FL IS RETURNED)
00538  M00S00410.cpcom   +++|*         CALLS  SYS=.
00539  M00S00411.cpcom   +++|
00540  M00S00412.cpcom   +++|
00541  M00S00413.cpcom   +++|          PURGMAC MEMORY
00542  M00S00414.cpcom   +++|
00543  M00S00415.cpcom   +++| MEMORY   MACRO  T,S,L,W,N
00544  M00S00416.cpcom   +++|  LOCAL A,B,C,D
00545  M00S00417.cpcom   +++|  MACREF MEMORY
00546  M00S00418.cpcom   +++| C SET 2
00547  M00S00419.cpcom   +++|  ECHO 3,A=(,CM,SCM,ECS,LCM),B=(0,0,0,1,1)
00548  M00S00420.cpcom   +++|  IFC EQ,$T$_A$,2
00549  M00S00421.cpcom   +++| C SET B
00550  M00S00422.cpcom   +++|  STOPDUP
00551  M00S00423.cpcom   +++| D SET C
00552  M00S00424.cpcom   +++|  IFEQ C,2,1
00553  M00S00425.cpcom   +++|  ERR ILLEGAL MEMORY REQUEST - (T)
00554  M00S00426.cpcom   +++|  IFC NE,$N$$,3
00555  M00S00427.cpcom   +++|  IFC EQ,$S$$,1
00556  M00S00428.cpcom   +++|  ERR ILLEGAL MEMORY REQUEST - (S)
00557  M00S00429.cpcom   +++| C SET C+2
00558  M00S00430.cpcom   +++|.1 IFC NE,$W$$
00559  M00S00431.cpcom   +++|.2 IFNE C,0
00560  M00S00432.cpcom   +++|  IFC EQ,$S$$,1
00561  M00S00433.cpcom   +++|  ERR ILLEGAL MEMORY REQUEST - (S)
00562  M00S00434.cpcom   +++|.5 IFNE D,0
00563  M00S00435.cpcom   +++|.5 IF REG,W
00564  M00S00436.cpcom   +++|.3 MICRO 1,, W
00565  M00S00437.cpcom   +++|.4 MICCNT .3
00566  M00S00438.cpcom   +++|.5 IFEQ .4,2
00567  M00S00439.cpcom   +++|.3 MICRO 1,1, W
00568  M00S00440.cpcom   +++|.5 IFC EQ,*X*".3"*
00569  M00S00441.cpcom   +++|  BX6 W

Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00442.cpcom9  ---|  MX1 -21

Seq #  *Modification Id* Act 
----------------------------+
00571  M01S00001.cpcom9  +++|  MX1 -30
00572  M00S00443.cpcom   +++|  BX6 -X1*X6
00573  M00S00444.cpcom   +++|.5 ELSE
00574  M00S00445.cpcom   +++|  R= X6,W
00575  M00S00446.cpcom   +++|.5 ENDIF
00576  M00S00447.cpcom   +++|  LX6 30D
00577  M00S00448.cpcom   +++|  R= A6,S
00578  M00S00449.cpcom   +++|  SYSTEM MEM,L,S,C
00579  M00S00450.cpcom   +++|.2 ELSE
00580  M00S00451.cpcom   +++|  SYSTEM RFL,L,W,S
00581  M00S00452.cpcom   +++|.2 ENDIF
00582  M00S00453.cpcom   +++|.1 ELSE
00583  M00S00454.cpcom   +++|  SYSTEM MEM,L,S,C
00584  M00S00455.cpcom   +++|.1 ENDIF
00585  M00S00456.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00457.ns2011  ---| MESSAGE  SPACE  4,50

Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00100.ns2011  +++| MESSAGE  SPACE  4,40
00588  M00S00458.cpcom   +++|***       MESSAGE - DISPLAY MESSAGE.
00589  M00S00459.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00590  M01S00101.ns2011  +++|*         MESSAGE  MESSAGE,OPTION,RECALL
00591  M00S00460.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00461.ns2011  ---|*         MESSAGE MESSAGE,OPTION,RECALL

Seq #  *Modification Id* Act 
----------------------------+
00593  M01S00102.ns2011  +++|*         ENTRY  *MESSAGE* = ADDRESS OF MESSAGE IN *C* FORMAT.
00594  M01S00103.ns2011  +++|*                    0 = PLACE MESSAGE IN SYSTEM DAYFILE, JOB DAYFILE,
00595  M01S00104.ns2011  +++|*                        AND DISPLAY AT LINE 1 OF CONTROL POINT.
00596  M01S00105.ns2011  +++|*                    1 = DISPLAY AT LINE 1 OF CONTROL POINT ONLY.
00597  M01S00106.ns2011  +++|*                    2 = DISPLAY AT LINE 2 OF CONTROL POINT ONLY.
00598  M01S00107.ns2011  +++|*                    3 = PLACE MESSAGE IN JOB DAYFILE ONLY.
00599  M01S00108.ns2011  +++|*                    4 = PLACE MESSAGE IN ERROR LOG (SYOT OR *SSJ=*
00600  M01S00109.ns2011  +++|*                        ONLY).
00601  M01S00110.ns2011  +++|*                    5 = PLACE MESSAGE IN ACCOUNT LOG (SYOT OR *SSJ=*
00602  M01S00111.ns2011  +++|*                        ONLY).
00603  M00S00462.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00604  M01S00112.ns2011  +++|*                THE FOLLOWING ARE INCLUDED FOR NOS/BE COMPATIBILITY.
00605  M01S00113.ns2011  +++|*                (CONVERTED BY *CPUMTR*/*1MA*)
00606  M01S00114.ns2011  +++|*                    6 = PROCESS AS OPTION *0*.
00607  M01S00115.ns2011  +++|*                    7 = PROCESS AS OPTION *3*.
00608  M00S00463.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00609  M01S00464.ns2011  ---|*         ENTRY  *MESSAGE* = ADDRESS OF MESSAGE IN *C* FORMAT.
00610  M01S00465.ns2011  ---|*                *OPTION* = DISPLAY OPTION AS FOLLOWS.
00611  M01S00466.ns2011  ---|*
00612  M01S00467.ns2011  ---|*                0 = PLACE MESSAGE IN SYSTEM DAYFILE, JOB DAYFILE,
00613  M01S00468.ns2011  ---|*                    AND DISPLAY AT LINE 1 OF CONTROL POINT.
00614  M01S00469.ns2011  ---|*                1 = DISPLAY AT LINE 1 OF CONTROL POINT ONLY.
00615  M01S00470.ns2011  ---|*                2 = DISPLAY AT LINE 2 OF CONTROL POINT ONLY.
00616  M01S00471.ns2011  ---|*                3 = PLACE MESSAGE IN JOB DAYFILE ONLY.
00617  M01S00472.ns2011  ---|*                4 = PLACE MESSAGE IN ERROR LOG (SYOT OR SSJ= ONLY).
00618  M01S00473.ns2011  ---|*                5 = PLACE MESSAGE IN ACCOUNT LOG (SYOT OR SSJ= ONLY).
00619  M01S00474.ns2011  ---|*
00620  M01S00475.ns2011  ---|*                THE FOLLOWING ARE INCLUDED FOR NOS/BE COMPATIBILITY.
00621  M01S00476.ns2011  ---|*                (CONVERTED BY CPUMTR/1MA)
00622  M01S00477.ns2011  ---|*
00623  M01S00478.ns2011  ---|*                6 = PROCESS AS OPTION *0*.
00624  M01S00479.ns2011  ---|*                7 = PROCESS AS OPTION *3*.
00625  M01S00480.ns2011  ---|*
00626  M01S00481.ns2011  ---|*                  FOR *OPTION* THE FOLLOWING RULES APPLY
00627  M01S00482.ns2011  ---|*
00628  M01S00483.ns2011  ---|*                   IF *OPTION* IF NOT DEFINED (COMPASS *DEF*), FORCE
00629  M01S00484.ns2011  ---|*                     A VALUE OF 1.
00630  M01S00485.ns2011  ---|*                   IF *OPTION* IS DEFINED (COMPASS *DEF*), PASS TO
00631  M01S00486.ns2011  ---|*                     THE SYSTEM.
00632  M01S00487.ns2011  ---|*                   IF *OPTION* IS EMPTY, FORCE A VALUE OF 0.
00633  M01S00488.ns2011  ---|*                   IF *OPTION* IS STRING *LOCAL*, FORCE A VALUE OF 3.
00634  M01S00489.ns2011  ---|*
00635  M01S00490.ns2011  ---|*                  ILLEGAL *OPTION* VALUES ARE RESET TO *1* BY THE
00636  M01S00491.ns2011  ---|*                    SYSTEM.

Seq #  *Modification Id* Act 
----------------------------+
00637  M01S00116.ns2011  +++|*                FOR *OPTION* THE FOLLOWING RULES APPLY -
00638  M01S00117.ns2011  +++|*                    IF *OPTION* IF NOT DEFINED (COMPASS *DEF*), FORCE
00639  M01S00118.ns2011  +++|*                        A VALUE OF 1.
00640  M01S00119.ns2011  +++|*                    IF *OPTION* IS DEFINED (COMPASS *DEF*), PASS TO
00641  M01S00120.ns2011  +++|*                        THE SYSTEM.
00642  M01S00121.ns2011  +++|*                    IF *OPTION* IS EMPTY, FORCE A VALUE OF 0.
00643  M01S00122.ns2011  +++|*                    IF *OPTION* IS STRING *LOCAL*, FORCE A VALUE OF 3.
00644  M01S00123.ns2011  +++|*                ILLEGAL *OPTION* VALUES ARE RESET TO 1 BY THE SYSTEM.
00645  M00S00492.cpcom   +++|*
00646  M00S00493.cpcom   +++|*                *RECALL* = OPTIONAL RECALL PARAMETER
00647  M00S00494.cpcom   +++|*
00648  M00S00495.cpcom   +++|*         CALLS  MSG=.
00649  M00S00496.cpcom   +++|
00650  M00S00497.cpcom   +++|
00651  M00S00498.cpcom   +++|          PURGMAC MESSAGE
00652  M00S00499.cpcom   +++|
00653  M00S00500.cpcom   +++| MESSAGE  MACRO  M,O,L
00654  M00S00501.cpcom   +++|  LOCAL A
00655  M00S00502.cpcom   +++|  MACREF MESSAGE
00656  M00S00503.cpcom   +++|  R= X1,M
00657  M00S00504.cpcom   +++|A SET 200000B
00658  M00S00505.cpcom   +++|  IFC EQ,$L$$,1
00659  M00S00506.cpcom   +++|A SET 0
00660  M00S00507.cpcom   +++|.1 IFC EQ,$O$LOCAL$
00661  M00S00508.cpcom   +++|  R= X6,3+A
00662  M00S00509.cpcom   +++|.1 ELSE 4
00663  M00S00510.cpcom   +++|.2 IF DEF,O
00664  M00S00511.cpcom   +++|  R= X6,O+A
00665  M00S00512.cpcom   +++|.2 ELSE 1
00666  M00S00513.cpcom   +++|  R= X6,1+A
00667  M00S00514.cpcom   +++|*                            PROCESS MESSAGE REQUEST
00668  M00S00515.cpcom   +++|  RJ =XMSG=
00669  M00S00516.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00670  M01S00517.ns2011  ---| ONSW     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00671  M01S00124.ns2011  +++| ONSW     SPACE  4,10
00672  M00S00518.cpcom   +++|***       ONSW - TURN ON SENSE SWITCHES.

Seq #  *Modification Id* Act 
----------------------------+
00673  M01S00519.ns2011  ---|*
00674  M00S00520.cpcom   +++|*
00675  M00S00521.cpcom   +++|*         ONSW   N
00676  M00S00522.cpcom   +++|*
00677  M00S00523.cpcom   +++|*         ENTRY  *N* = SENSE SWITCH BITS. (BIT 0 = SWITCH 1)
00678  M00S00524.cpcom   +++|*                IF A BIT IS SET, THE CORRESPONDING SWITCH IS SET.
00679  M00S00525.cpcom   +++|*                IF N=0, ALL SWITCHES REMAIN UNCHANGED.
00680  M00S00526.cpcom   +++|*
00681  M00S00527.cpcom   +++|*         CALLS  CPM=.
00682  M00S00528.cpcom   +++|
00683  M00S00529.cpcom   +++|
00684  M00S00530.cpcom   +++|          PURGMAC ONSW
00685  M00S00531.cpcom   +++|
00686  M00S00532.cpcom   +++| ONSW     MACRO  N
00687  M00S00533.cpcom   +++|  MACREF ONSW
00688  M00S00534.cpcom   +++|  R= X1,N
00689  M00S00535.cpcom   +++|  SX2 11B
00690  M00S00536.cpcom   +++|  RJ =XCPM=
00691  M00S00537.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00692  M01S00538.ns2011  ---| OFFSW    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00693  M01S00125.ns2011  +++| OFFSW    SPACE  4,10
00694  M00S00539.cpcom   +++|***       OFFSW - TURN OFF SENSE SWITCHES.

Seq #  *Modification Id* Act 
----------------------------+
00695  M01S00540.ns2011  ---|*
00696  M00S00541.cpcom   +++|*
00697  M00S00542.cpcom   +++|*         OFFSW  N
00698  M00S00543.cpcom   +++|*
00699  M00S00544.cpcom   +++|*         ENTRY  *N* = SENSE SWITCH BITS. (BIT 0 = SWITCH 1)
00700  M00S00545.cpcom   +++|*                IF A BIT IS SET, THE CORRESPONDING SWITCH IS CLEARED.
00701  M00S00546.cpcom   +++|*                IF N=0, ALL SWITCHES REMAIN UNCHANGED.
00702  M00S00547.cpcom   +++|*
00703  M00S00548.cpcom   +++|*         CALLS  CPM=.
00704  M00S00549.cpcom   +++|
00705  M00S00550.cpcom   +++|
00706  M00S00551.cpcom   +++|          PURGMAC OFFSW
00707  M00S00552.cpcom   +++|
00708  M00S00553.cpcom   +++| OFFSW    MACRO  N
00709  M00S00554.cpcom   +++|  MACREF OFFSW
00710  M00S00555.cpcom   +++|  R= X1,N
00711  M00S00556.cpcom   +++|  SX2 12B
00712  M00S00557.cpcom   +++|  RJ =XCPM=
00713  M00S00558.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00559.ns2011  ---| OVERLAY  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00715  M01S00126.ns2011  +++| OVERLAY  SPACE  4,15
00716  M00S00560.cpcom   +++|***       OVERLAY - LOAD OVERLAY.
00717  M00S00561.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00718  M01S00127.ns2011  +++|*         OVERLAY NAME,LEVEL,SYSTEM,FWA
00719  M00S00562.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00720  M01S00563.ns2011  ---|*         OVERLAY NAME,LEVEL,SYSTEM,FWA
00721  M00S00564.cpcom   +++|*         ENTRY  *NAME* = ADDRESS OF FILE NAME IN *L* FORMAT.
00722  M00S00565.cpcom   +++|*                *LEVEL* = OVERLAY LEVEL.
00723  M00S00566.cpcom   +++|*                *SYSTEM* IF SPECIFIED, OVERLAY WILL BE LOADED FROM

Seq #  *Modification Id* Act 
----------------------------+
00724  M01S00567.ns2011  ---|*                            SYSTEM LIBRARY, AND (NAME) = NAME OF
00725  M01S00568.ns2011  ---|*                            OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
00726  M01S00128.ns2011  +++|*                         SYSTEM LIBRARY, AND (NAME) = NAME OF OVERLAY.
00727  M00S00569.cpcom   +++|*                *FWA* IF SPECIFIED = ADDRESS AT WHICH OVERLAY WILL

Seq #  *Modification Id* Act 
----------------------------+
00728  M01S00570.ns2011  ---|*                            BE LOADED.

Seq #  *Modification Id* Act 
----------------------------+
00729  M01S00129.ns2011  +++|*                         BE LOADED.
00730  M01S00130.ns2011  +++|*
00731  M00S00571.cpcom   +++|*         EXIT   (X1) = OVERLAY ENTRY ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00732  M01S00131.ns2011  +++|*
00733  M00S00572.cpcom   +++|*         CALLS  OVL=.
00734  M00S00573.cpcom   +++|
00735  M00S00574.cpcom   +++|
00736  M00S00575.cpcom   +++|          PURGMAC OVERLAY
00737  M00S00576.cpcom   +++|
00738  M00S00577.cpcom   +++| OVERLAY  MACRO  N,L,S,F
00739  M00S00578.cpcom   +++|  LOCAL A
00740  M00S00579.cpcom   +++|  MACREF OVERLAY
00741  M00S00580.cpcom   +++|A SET 0
00742  M00S00581.cpcom   +++|  IFC NE,$S$$,1
00743  M00S00582.cpcom   +++|A SET 1
00744  M00S00583.cpcom   +++|  IFC NE,$L$$
00745  M00S00584.cpcom   +++|  SX6 L*100B+A
00746  M00S00585.cpcom   +++|  ELSE 1
00747  M00S00586.cpcom   +++|  SX6 A
00748  M00S00587.cpcom   +++|  R= X2,F
00749  M00S00588.cpcom   +++|  IFC NE,$N$X1$,1
00750  M00S00589.cpcom   +++|  SA1 N
00751  M00S00590.cpcom   +++|  RJ =XOVL=
00752  M00S00591.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00753  M01S00592.ns2011  ---| PDATE    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00754  M01S00132.ns2011  +++| PDATE    SPACE  4,10
00755  M00S00593.cpcom   +++|***       PDATE - RETURN PACKED DATE.
00756  M00S00594.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00757  M01S00133.ns2011  +++|*         PDATE  STATUS
00758  M00S00595.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00759  M01S00596.ns2011  ---|*         PDATE  STATUS
00760  M00S00597.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR PACKED DATE.

Seq #  *Modification Id* Act 
----------------------------+
00761  M01S00134.ns2011  +++|*
00762  M00S00598.cpcom   +++|*         EXIT -
00763  M00S00599.cpcom   +++|*T STATUS 24/,18/  YYMMDD,18/  HHMMSS

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00764  M01S00135.ns2011  +++|*
00765  M00S00600.cpcom   +++|*         CALLS  SYS=.
00766  M00S00601.cpcom   +++|
00767  M00S00602.cpcom   +++|
00768  M00S00603.cpcom   +++|          PURGMAC PDATE
00769  M00S00604.cpcom   +++|
00770  M00S00605.cpcom   +++| PDATE    MACRO  S
00771  M00S00606.cpcom   +++|  MACREF PDATE

Seq #  *Modification Id* Act 
----------------------------+
00772  M01S00607.ns2011  ---|*                            FORM TIME (PDATE) REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00773  M01S00136.ns2011  +++|*         FORM TIME (PDATE) REQUEST.
00774  M00S00608.cpcom   +++|  SX6 3RTIM
00775  M00S00609.cpcom   +++|  R= X1,S
00776  M00S00610.cpcom   +++|  LX6 42D
00777  M00S00611.cpcom   +++|  BX6 X6+X1
00778  M00S00612.cpcom   +++|  SX1 200006B
00779  M00S00613.cpcom   +++|  LX1 24D
00780  M00S00614.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00615.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00782  M01S00137.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00783  M00S00616.cpcom   +++|  RJ =XSYS=
00784  M00S00617.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00785  M01S00618.ns2011  ---| RECALL   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00138.ns2011  +++| RECALL   SPACE  4,10
00787  M00S00619.cpcom   +++|***       RECALL - PLACE PROGRAM IN RECALL STATUS.
00788  M00S00620.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00139.ns2011  +++|*         RECALL STATUS
00790  M00S00621.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00791  M01S00622.ns2011  ---|*         RECALL STATUS
00792  M00S00623.cpcom   +++|*         ENTRY  *STATUS* IF PRESENT, PROGRAM WILL BE RECALLED WHEN
00793  M00S00624.cpcom   +++|*                            BIT 0 OF (STATUS) IS SET.  UNLESS
00794  M00S00625.cpcom   +++|*                            (STATUS) = 0.

Seq #  *Modification Id* Act 
----------------------------+
00795  M01S00626.ns2011  ---|*         CALLS  RCL= OR WNB=.

Seq #  *Modification Id* Act 
----------------------------+
00796  M01S00140.ns2011  +++|*
00797  M01S00141.ns2011  +++|*         CALLS  RCL=, WNB=.
00798  M00S00627.cpcom   +++|
00799  M00S00628.cpcom   +++|
00800  M00S00629.cpcom   +++|          PURGMAC RECALL
00801  M00S00630.cpcom   +++|
00802  M00S00631.cpcom   +++| RECALL   MACRO  S
00803  M00S00632.cpcom   +++|  MACREF RECALL

Seq #  *Modification Id* Act 
----------------------------+
00804  M01S00633.ns2011  ---|*                            RECALL

Seq #  *Modification Id* Act 
----------------------------+
00805  M01S00142.ns2011  +++|*         RECALL.
00806  M00S00634.cpcom   +++|  IFC EQ,$S$$
00807  M00S00635.cpcom   +++|  RJ =XRCL=
00808  M00S00636.cpcom   +++|  ELSE 2

Seq #  *Modification Id* Act 
----------------------------+
00809  M01S00637.ns2011  ---|*                            WAIT NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
00810  M01S00143.ns2011  +++|*         WAIT NOT BUSY.
00811  M00S00638.cpcom   +++|  R= X2,S
00812  M00S00639.cpcom   +++|  RJ =XWNB=
00813  M00S00640.cpcom   +++|  ENDIF
00814  M00S00641.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00815  M01S00642.ns2011  ---| RTIME    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00816  M01S00144.ns2011  +++| RTIME    SPACE  4,10
00817  M00S00643.cpcom   +++|***       RTIME - REQUEST REAL TIME CLOCK READING.
00818  M00S00644.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00819  M01S00145.ns2011  +++|*         RTIME  STATUS
00820  M00S00645.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00821  M01S00646.ns2011  ---|*         RTIME  STATUS
00822  M00S00647.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR CLOCK RESPONSE.

Seq #  *Modification Id* Act 
----------------------------+
00823  M01S00146.ns2011  +++|*
00824  M00S00648.cpcom   +++|*         EXIT -
00825  M00S00649.cpcom   +++|*T STATUS 24/  SECONDS,36/  MILLISECONDS

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00826  M01S00147.ns2011  +++|*
00827  M00S00650.cpcom   +++|*         CALLS  SYS=.
00828  M00S00651.cpcom   +++|
00829  M00S00652.cpcom   +++|
00830  M00S00653.cpcom   +++|          PURGMAC RTIME
00831  M00S00654.cpcom   +++|
00832  M00S00655.cpcom   +++| RTIME    MACRO  S
00833  M00S00656.cpcom   +++|  MACREF RTIME

Seq #  *Modification Id* Act 
----------------------------+
00834  M01S00657.ns2011  ---|*                            FORM TIME (REAL TIME CLOCK) REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00835  M01S00148.ns2011  +++|*         FORM TIME (REAL TIME CLOCK) REQUEST.
00836  M00S00658.cpcom   +++|  SX6 3RTIM
00837  M00S00659.cpcom   +++|  R= X1,S
00838  M00S00660.cpcom   +++|  LX6 42D
00839  M00S00661.cpcom   +++|  BX6 X6+X1
00840  M00S00662.cpcom   +++|  SX1 200005B
00841  M00S00663.cpcom   +++|  LX1 24D
00842  M00S00664.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00843  M01S00665.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00844  M01S00149.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00845  M00S00666.cpcom   +++|  RJ =XSYS=
00846  M00S00667.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00847  M01S00668.ns2011  ---| STIME    SPACE 4

Seq #  *Modification Id* Act 
----------------------------+
00848  M01S00150.ns2011  +++| STIME    SPACE  4,10
00849  M00S00669.cpcom   +++|***       STIME - REQUEST ACCUMULATED SRUS.
00850  M00S00670.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00851  M01S00151.ns2011  +++|*         STIME  STATUS
00852  M00S00671.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00853  M01S00672.ns2011  ---|*         STIME  STATUS
00854  M00S00673.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR RESPONSE.

Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00152.ns2011  +++|*
00856  M00S00674.cpcom   +++|*         EXIT   -
00857  M00S00675.cpcom   +++|*T STATUS 12/  2000B,12/  0,36/  MILLI-UNITS

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00858  M01S00153.ns2011  +++|*
00859  M00S00676.cpcom   +++|*         CALLS  SYS=
00860  M00S00677.cpcom   +++|
00861  M00S00678.cpcom   +++|
00862  M00S00679.cpcom   +++|          PURGMAC STIME
00863  M00S00680.cpcom   +++|
00864  M00S00681.cpcom   +++| STIME    MACRO  S
00865  M00S00682.cpcom   +++|  MACREF STIME

Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00683.ns2011  ---|*                            FORM TIME (STIME) REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00867  M01S00154.ns2011  +++|*         FORM TIME (STIME) REQUEST.
00868  M00S00684.cpcom   +++|  SX6 3RTIM
00869  M00S00685.cpcom   +++|  R=  X1,S
00870  M00S00686.cpcom   +++|  LX6 42D
00871  M00S00687.cpcom   +++|  BX6 X6+X1
00872  M00S00688.cpcom   +++|  SX1 200007B
00873  M00S00689.cpcom   +++|  LX1 24D
00874  M00S00690.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00875  M01S00691.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00876  M01S00155.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00877  M01S00156.ns2011  +++| SYSTEM   SPACE  4,15
00878  M00S00692.cpcom   +++|  RJ  =XSYS=
00879  M00S00693.cpcom   +++|  ENDM
00880  M00S00694.cpcom   +++| SYSTEM   SPACE  4
00881  M00S00695.cpcom   +++|***       SYSTEM - REQUEST SYSTEM FUNCTION.
00882  M00S00696.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00883  M01S00157.ns2011  +++|*         SYSTEM REQUEST,RECALL,P1,P2
00884  M00S00697.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00885  M01S00698.ns2011  ---|*         SYSTEM REQUEST,RECALL,P1,P2
00886  M00S00699.cpcom   +++|*         ENTRY  *REQUEST* = 3 CHARACTER SYSTEM REQUEST.
00887  M00S00700.cpcom   +++|*                *P1* = PARAMETER FOR BITS  0 - 17 OF REQUEST.
00888  M00S00701.cpcom   +++|*                *P2* = PARAMETER FOR BITS 18 - 35 OF REQUEST.
00889  M00S00702.cpcom   +++|*         USES   X2.

Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00158.ns2011  +++|*
00891  M00S00703.cpcom   +++|*         CALLS  SYS=.
00892  M00S00704.cpcom   +++|
00893  M00S00705.cpcom   +++|
00894  M00S00706.cpcom   +++|          PURGMAC SYSTEM
00895  M00S00707.cpcom   +++|
00896  M00S00708.cpcom   +++| SYSTEM   MACRO  C,L,P1,P2
00897  M00S00709.cpcom   +++|  MACREF SYSTEM
00898  M00S00710.cpcom   +++|  QUAL
00899  M00S00711.cpcom   +++|(C) SET 0
00900  M00S00712.cpcom   +++|  QUAL *

Seq #  *Modification Id* Act 
----------------------------+
00901  M01S00001.ns22000 +++| .1 IFC NE,/L/=/

Seq #  *Modification Id* Act 
----------------------------+
00902  M01S00713.ns2011  ---|*                            FORM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00903  M01S00159.ns2011  +++|*         FORM REQUEST.
00904  M00S00714.cpcom   +++|  IFC  NE,$C$$,2
00905  M00S00715.cpcom   +++|  SX6 3R;A
00906  M00S00716.cpcom   +++|  LX6 42D

Seq #  *Modification Id* Act 
----------------------------+
00907  M01S00717.ns2011  ---|*                            PROCESS *P2*

Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00160.ns2011  +++|*         PROCESS *P2*.
00909  M00S00718.cpcom   +++|  IFC NE,$P2$$,3
00910  M00S00719.cpcom   +++|  R= X2,P2
00911  M00S00720.cpcom   +++|  LX2 18D
00912  M00S00721.cpcom   +++|  IX6 X6+X2

Seq #  *Modification Id* Act 
----------------------------+
00913  M01S00722.ns2011  ---|*                            PROCESS *P1*

Seq #  *Modification Id* Act 
----------------------------+
00914  M01S00161.ns2011  +++|*         PROCESS *P1*.
00915  M00S00723.cpcom   +++|  IFC NE,$P1$$,2
00916  M00S00724.cpcom   +++|  R= X1,P1
00917  M00S00725.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00918  M01S00726.ns2011  ---|*                            PROCESS RECALL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00919  M01S00162.ns2011  +++|*         PROCESS RECALL REQUEST.
00920  M00S00727.cpcom   +++|  IFC NE,$L$$,3
00921  M00S00728.cpcom   +++|  MX1 1
00922  M00S00729.cpcom   +++|  LX1 41D
00923  M00S00730.cpcom   +++|  IX6 X6+X1
00924  M00S00731.cpcom   +++|  RJ =XSYS=

Seq #  *Modification Id* Act 
----------------------------+
00925  M01S00002.ns22000 +++| .1 ENDIF
00926  M00S00732.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00927  M01S00733.ns2011  ---| TIME     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00928  M01S00163.ns2011  +++| TIME     SPACE  4,15
00929  M00S00734.cpcom   +++|***       TIME - REQUEST ACCUMULATED CPU TIME.
00930  M00S00735.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00931  M01S00164.ns2011  +++|*         TIME   STATUS
00932  M00S00736.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00933  M01S00737.ns2011  ---|*         TIME   STATUS
00934  M00S00738.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR TIME RESPONSE.

Seq #  *Modification Id* Act 
----------------------------+
00935  M01S00165.ns2011  +++|*
00936  M00S00739.cpcom   +++|*         EXIT -
00937  M00S00740.cpcom   +++|*T STATUS 12/  2000B,12/0,24/  SEC,12/  MS

Figure STATUS

00938  M00S00741.cpcom   +++|*         SEC    SECONDS
00939  M00S00742.cpcom   +++|*         MS     MILLISECONDS

Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00166.ns2011  +++|*
00941  M00S00743.cpcom   +++|*         CALLS  SYS=.
00942  M00S00744.cpcom   +++|
00943  M00S00745.cpcom   +++|
00944  M00S00746.cpcom   +++|          PURGMAC TIME
00945  M00S00747.cpcom   +++|
00946  M00S00748.cpcom   +++| TIME     MACRO  S
00947  M00S00749.cpcom   +++|  MACREF TIME

Seq #  *Modification Id* Act 
----------------------------+
00948  M01S00750.ns2011  ---|*                            FORM TIME (CPU TIME) REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00167.ns2011  +++|*         FORM TIME (CPU TIME) REQUEST.
00950  M00S00751.cpcom   +++|  SX6 3RTIM
00951  M00S00752.cpcom   +++|  R= X1,S
00952  M00S00753.cpcom   +++|  LX6 42D
00953  M00S00754.cpcom   +++|  BX6 X6+X1
00954  M00S00755.cpcom   +++|  SX1 200000B
00955  M00S00756.cpcom   +++|  LX1 24D
00956  M00S00757.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00957  M01S00758.ns2011  ---|*                            PROCESS SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00958  M01S00168.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00959  M00S00759.cpcom   +++|  RJ =XSYS=
00960  M00S00760.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00961  M01S00761.ns2011  ---| USECPU   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00962  M01S00169.ns2011  +++| USECPU   SPACE  4,10
00963  M00S00762.cpcom   +++|***       USECPU - SET CPU TO BE USED.
00964  M00S00763.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00965  M01S00170.ns2011  +++|*         USECPU N
00966  M00S00764.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00967  M01S00765.ns2011  ---|*         USECPU N
00968  M00S00766.cpcom   +++|*         *N* =  0, USE ANY CPU.

Seq #  *Modification Id* Act 
----------------------------+
00969  M01S00767.ns2011  ---|*                = 1, USE CPU - 0.
00970  M01S00768.ns2011  ---|*                = 2, USE CPU - 1.

Seq #  *Modification Id* Act 
----------------------------+
00971  M01S00171.ns2011  +++|*             =  1, USE CPU - 0.
00972  M01S00172.ns2011  +++|*             =  2, USE CPU - 1.
00973  M00S00769.cpcom   +++|
00974  M00S00770.cpcom   +++|
00975  M00S00771.cpcom   +++|          PURGMAC USECPU
00976  M00S00772.cpcom   +++|
00977  M00S00773.cpcom   +++| USECPU   MACRO  N
00978  M00S00774.cpcom   +++|  MACREF USECPU
00979  M00S00775.cpcom   +++|  R= X1,N
00980  M00S00776.cpcom   +++|  SX2 31B
00981  M00S00777.cpcom   +++|  RJ =XCPM=
00982  M00S00778.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00983  M01S00779.ns2011  ---| USERNUM  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00984  M01S00173.ns2011  +++| USERNUM  SPACE  4,10
00985  M00S00780.cpcom   +++|***       USERNUM - RETURN USER NUMBER.
00986  M00S00781.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00987  M01S00174.ns2011  +++|*         USERNUM STATUS
00988  M00S00782.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00989  M01S00783.ns2011  ---|*         USERNUM STATUS
00990  M00S00784.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR USER NUMBER RETURN.

Seq #  *Modification Id* Act 
----------------------------+
00991  M01S00175.ns2011  +++|*
00992  M00S00785.cpcom   +++|*         EXIT -
00993  M00S00786.cpcom   +++|*T STATUS 42/ *USERNUM* ,18/0

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00994  M01S00176.ns2011  +++|*
00995  M00S00787.cpcom   +++|*         CALLS  CPM=.
00996  M00S00788.cpcom   +++|
00997  M00S00789.cpcom   +++|
00998  M00S00790.cpcom   +++|          PURGMAC USERNUM
00999  M00S00791.cpcom   +++|
01000  M00S00792.cpcom   +++| USERNUM  MACRO  A
01001  M00S00793.cpcom   +++|  MACREF USERNUM
01002  M00S00794.cpcom   +++|  R= X1,A
01003  M00S00795.cpcom   +++|  SX2 32B
01004  M00S00796.cpcom   +++|  RJ =XCPM=
01005  M00S00797.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01006  M01S00001.ns21000 +++| WAIT     SPACE  4,10
01007  M01S00002.ns21000 +++|***       WAIT - PLACE PROGRAM IN RECALL STATUS FOR SPECIFIC TIME.
01008  M01S00003.ns21000 +++|*
01009  M01S00004.ns21000 +++|*
01010  M01S00005.ns21000 +++|*         WAIT   DELAY
01011  M01S00006.ns21000 +++|*         ENTRY  *DELAY* = TIME IN MILLESECONDS FOR JOB TO REMAIN
01012  M01S00007.ns21000 +++|*                IN RECALL (10D .LE. *DELAY* .LE. 4095D).  A VALUE
01013  M01S00008.ns21000 +++|*                .LT. 10D DEFAULTS TO 10D AND A VALUE .GT. 4095D
01014  M01S00009.ns21000 +++|*                DEFAULTS TO 4095D.
01015  M01S00010.ns21000 +++|*         CALLS  SYS=.
01016  M01S00011.ns21000 +++|
01017  M01S00012.ns21000 +++|
01018  M01S00013.ns21000 +++|          PURGMAC WAIT
01019  M01S00014.ns21000 +++|
01020  M01S00015.ns21000 +++| WAIT     MACRO  S
01021  M01S00016.ns21000 +++|  MACREF WAIT
01022  M01S00017.ns21000 +++|  SX6 3RWCL
01023  M01S00018.ns21000 +++|  R= X2,S
01024  M01S00019.ns21000 +++|  LX6 42D
01025  M01S00020.ns21000 +++|  BX6 X6+X2
01026  M01S00021.ns21000 +++|  RJ =XSYS=
01027  M01S00022.ns21000 +++|  ENDM
01028  M00S00798.cpcom   +++|          TITLE  FET CREATION MACROS.

Seq #  *Modification Id* Act 
----------------------------+
01029  M01S00799.ns2011  ---| FET      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01030  M01S00177.ns2011  +++| FET      SPACE  4,60
01031  M00S00800.cpcom   +++|***       THE FOLLOWING MACROS INITIALIZE FETS FOR FILES.
01032  M00S00801.cpcom   +++|*         PARAMETERS ARE AS FOLLOWS -
01033  M00S00802.cpcom   +++|*                FILE = FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
01034  M01S00803.ns2011  ---|*                FWA = FIRST WORD ADDRESS OF CIO BUFFER.
01035  M01S00804.ns2011  ---|*                LENGTH = LENGTH OF CIO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
01036  M01S00178.ns2011  +++|*                FWA = FIRST WORD ADDRESS OF *CIO* BUFFER.
01037  M01S00179.ns2011  +++|*                LENGTH = LENGTH OF *CIO* BUFFER.
01038  M00S00805.cpcom   +++|*                PN = PARAMETERS FOR FIELDS IN FET.
01039  M00S00806.cpcom   +++|*
01040  M00S00807.cpcom   +++|*         P1 - P5 MAY BE IN ANY ORDER AND ONE OF THE FOLLOWING -

Seq #  *Modification Id* Act 
----------------------------+
01041  M01S00180.ns2011  +++|*
01042  M01S00181.ns2011  +++|*                (WSA=I,L)
01043  M01S00182.ns2011  +++|*                SET WORKING STORAGE FIELD TO FWA = I, LENGTH = L.
01044  M00S00808.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00809.ns2011  ---|*         (WSA=I,L)
01046  M01S00810.ns2011  ---|*         SET WORKING STORAGE FIELD TO FWA = I, LENGTH = L.

Seq #  *Modification Id* Act 
----------------------------+
01047  M01S00183.ns2011  +++|*                (IND=I,L)
01048  M01S00184.ns2011  +++|*                SET INDEX FIELD TO FWA = I, LENGTH = L.
01049  M00S00811.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01050  M01S00812.ns2011  ---|*         (IND=I,L)
01051  M01S00813.ns2011  ---|*         SET INDEX FIELD TO FWA = I, LENGTH = L.

Seq #  *Modification Id* Act 
----------------------------+
01052  M01S00185.ns2011  +++|*                (OWN = I,J)
01053  M01S00186.ns2011  +++|*                SET OWNCODE EOI ADDRESS = I.
01054  M01S00187.ns2011  +++|*                SET OWNCODE ERROR EXIT ADDRESS = J.
01055  M01S00188.ns2011  +++|*                IF J PRESENT, ERROR PROCESSING BIT IS SET.
01056  M00S00814.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01057  M01S00815.ns2011  ---|*         (OWN = I,J)
01058  M01S00816.ns2011  ---|*         SET OWNCODE EOI ADDRESS = I.
01059  M01S00817.ns2011  ---|*         SET OWNCODE ERROR EXIT ADDRESS = J.
01060  M01S00818.ns2011  ---|*         IF J PRESENT, ERROR PROCESSING BIT IS SET.

Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00189.ns2011  +++|*                (FET=L)
01062  M01S00190.ns2011  +++|*                SET LENGTH OF FET = L.
01063  M00S00819.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01064  M01S00820.ns2011  ---|*         (FET=L)
01065  M01S00821.ns2011  ---|*         SET LENGTH OF FET = L.

Seq #  *Modification Id* Act 
----------------------------+
01066  M01S00191.ns2011  +++|*                (DTY=N)
01067  M01S00192.ns2011  +++|*                SET DEVICE TYPE = N.
01068  M00S00822.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01069  M01S00823.ns2011  ---|*         (DTY=N)
01070  M01S00824.ns2011  ---|*         SET DEVICE TYPE = N.

Seq #  *Modification Id* Act 
----------------------------+
01071  M01S00193.ns2011  +++|*                (DSC = X)
01072  M01S00194.ns2011  +++|*                VALID PARAMETER BUT IGNORED.
01073  M00S00825.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01074  M01S00826.ns2011  ---|*         (DSC = X)
01075  M01S00827.ns2011  ---|*         VALID PARAMETER BUT IGNORED.

Seq #  *Modification Id* Act 
----------------------------+
01076  M01S00195.ns2011  +++|*                (EPR)
01077  M01S00196.ns2011  +++|*                SET ERROR PROCESSING BIT.
01078  M00S00828.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01079  M01S00001.ns2599  +++|*                (IPR)
01080  M01S00002.ns2599  +++|*                SET INTERLOCK PROCESSING BIT.
01081  M01S00003.ns2599  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01082  M01S00829.ns2011  ---|*         (EPR)
01083  M01S00830.ns2011  ---|*         SET ERROR PROCESSING BIT.

Seq #  *Modification Id* Act 
----------------------------+
01084  M01S00197.ns2011  +++|*                (LBL)
01085  M01S00198.ns2011  +++|*                SET FET LENGTH TO 13D.
01086  M00S00831.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01087  M01S00001.cpcom6  +++|*                (RTP)
01088  M01S00002.cpcom6  +++|*                SET REAL-TIME BIT.

Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00004.ns2599  +++|*
01090  M01S00005.ns2599  +++|*                (SAD)
01091  M01S00006.ns2599  +++|*                SET *SUPPRESS ADDRESS ON ERROR MESSAGE* BIT.

Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00003.cpcom6  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00832.ns2011  ---|*         (LBL)
01094  M01S00833.ns2011  ---|*         SET FET LENGTH TO 13D.

Seq #  *Modification Id* Act 
----------------------------+
01095  M01S00199.ns2011  +++|*                (UPR)
01096  M01S00200.ns2011  +++|*                SET USER PROCESSING BIT.
01097  M00S00834.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00835.ns2011  ---|*         (UPR)
01099  M01S00836.ns2011  ---|*         SET USER PROCESSING BIT.

Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00201.ns2011  +++|*                (XL)
01101  M01S00202.ns2011  +++|*                SET EXTENDED LABEL BIT AND FET LENGTH TO 13D.
01102  M00S00837.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00838.ns2011  ---|*         (XL)
01104  M01S00839.ns2011  ---|*         SET EXTENDED LABEL BIT AND FET LENGTH TO 13D.

Seq #  *Modification Id* Act 
----------------------------+
01105  M01S00203.ns2011  +++|*         THE FOLLOWING PARAMETERS ARE FOR COMMUNICATION WITH THE
01106  M01S00204.ns2011  +++|*         PERMANENT FILE MANAGER.  REQUIRES *COMSPFM*.
01107  M00S00840.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00841.ns2011  ---|*         THE FOLLOWING PARAMETERS ARE FOR COMUNICATION WITH THE
01109  M01S00842.ns2011  ---|*         PERMANENT FILE MANAGER
01110  M01S00843.ns2011  ---|*         REQUIRES COMSPFM

Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00205.ns2011  +++|*                (PFN=PNAME)
01112  M01S00206.ns2011  +++|*                SET PERMANENT FILE NAME *PNAME*.
01113  M00S00844.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01114  M01S00207.ns2011  +++|*                (USN=UNAME)
01115  M01S00208.ns2011  +++|*                SET USER NAME *UNAME*.
01116  M00S00845.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01117  M01S00846.ns2011  ---|*         (PFN=PNAME)
01118  M01S00847.ns2011  ---|*         SET PERMANENT FILE NAME *PNAME*.

Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00209.ns2011  +++|*                (PWD=PASWORD)
01120  M01S00210.ns2011  +++|*                SET PERMANENT FILE PASSWORD.
01121  M00S00848.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01122  M01S00849.ns2011  ---|*         (USN=UNAME)
01123  M01S00850.ns2011  ---|*         SET USER NAME *UNAME*.

Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00211.ns2011  +++|*                (UCW=USERCON)
01125  M01S00212.ns2011  +++|*                SET USER CONTROL BITS (BIT 59 MUST BE SET TO INDICATE
01126  M01S00213.ns2011  +++|*                WORD CONTAINS USER CONTROL INFORMATION).
01127  M00S00851.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00852.ns2011  ---|*         (PWD=PASWORD)
01129  M01S00853.ns2011  ---|*         SET PERMANENT FILE PASSWORD.
01130  M01S00854.ns2011  ---|*
01131  M01S00855.ns2011  ---|*         (UCW=USERCON)
01132  M01S00856.ns2011  ---|*         SET USER CONTROL BITS (BIT 59 MUST BE SET TO INDICATE
01133  M01S00857.ns2011  ---|*         WORD CONTAINS USER CONTROL INFORMATION).
01134  M01S00858.ns2011  ---|*
01135  M01S00859.ns2011  ---|*         (PKN = PACKNAM)
01136  M01S00860.ns2011  ---|*         SET PERMANENT FILE PACKNAME TO *PACKNAM*.

Seq #  *Modification Id* Act 
----------------------------+
01137  M01S00214.ns2011  +++|*                (PKN = PACKNAM)
01138  M01S00215.ns2011  +++|*                SET PERMANENT FILE PACKNAME TO *PACKNAM*.
01139  M00S00861.cpcom   +++|
01140  M00S00862.cpcom   +++|
01141  M00S00863.cpcom   +++|*         BASIC FET CREATION MACRO.
01142  M00S00864.cpcom   +++|
01143  M00S00865.cpcom   +++|          PURGMAC =1
01144  M00S00866.cpcom   +++|
01145  M00S00867.cpcom   +++| =1       MACRO  M,R,S,F,B,L,V

Seq #  *Modification Id* Act 
----------------------------+
01146  M01S00868.cpcom6  ---|  LOCAL FL,UP,EP,XX

Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00004.ns2599  ---|  LOCAL FL,UP,EP,RT,XX

Seq #  *Modification Id* Act 
----------------------------+
01148  M01S00007.ns2599  +++|  LOCAL FL,SA,UP,EP,RT,IP,XX
01149  M00S00869.cpcom   +++|*         FL = FET LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
01150  M01S00008.ns2599  +++|*         SA = *SUPPRESS ADDRESS* BIT IN FET+1.
01151  M00S00870.cpcom   +++|*         UP = USER PROCESSING BIT IN FET+1.
01152  M00S00871.cpcom   +++|*         EP = ERROR PROCESSING BIT IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00005.cpcom6  +++|*         RT = REAL-TIME BIT IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
01154  M01S00009.ns2599  +++|*         IP = INTERLOCK PROCESSING BIT IN FET+1.
01155  M00S00872.cpcom   +++|*         XX = EXTENDED LABEL PROCESSING BIT IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
01156  M01S00873.cpcom3  ---|F VFD 42D/0L_F,16D/,1/M,1/1

Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00001.cpcom3  +++| F VFD 42D/0L_F,16D/,1/M,1/1
01158  M00S00874.cpcom   +++|*         SET INITIAL FET LENGTH BY RANDOM DETERMINATION.
01159  M00S00875.cpcom   +++|FL SET 3*R+5

Seq #  *Modification Id* Act 
----------------------------+
01160  M01S00010.ns2599  +++|SA SET 0
01161  M00S00876.cpcom   +++|UP SET 0
01162  M00S00877.cpcom   +++|EP SET 0

Seq #  *Modification Id* Act 
----------------------------+
01163  M01S00006.cpcom6  +++|RT SET 0

Seq #  *Modification Id* Act 
----------------------------+
01164  M01S00011.ns2599  +++|IP SET 0
01165  M00S00878.cpcom   +++|XX SET 0
01166  M00S00879.cpcom   +++|*         INITIALIZE VARIOUS MICROS.
01167  M00S00880.cpcom   +++|  ECHO 1,X=(EOI,ERR,INF,INL,WSF,WSL)
01168  M00S00881.cpcom   +++|=1_X MICRO 1,, 0

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00882.cpcom6  ---|  ECHO 1,X=(EPR,UPR,XL,DSC,DTY,FET,IND,LBL,OWN,PFN,PFO,PKN,PWD,UCW,USN,W
01170  M01S00883.cpcom6  ---|,SA)

Seq #  *Modification Id* Act 
----------------------------+
01171  M01S00007.cpcom6  +++|  ECHO 1,X=(EPR,UPR,RTP,XL,DSC,DTY,FET,IND,LBL,OWN,PFN,PFO,PKN,PWD,UCW,U

Seq #  *Modification Id* Act 
----------------------------+
01172  M02S00008.ns2599  ---|,SN,WSA)

Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00012.ns2599  +++|,SN,WSA,IPR,SAD)
01174  M00S00884.cpcom   +++|=1_X MICRO ,
01175  M00S00885.cpcom   +++|*         PROCESS VALUE SPECIFICATIONS.
01176  M00S00886.cpcom   +++|  ECHO 4,P=(V)
01177  M00S00887.cpcom   +++|  IFC NE,  P

Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00888.cpcom6  ---|  =1A FL,UP,EP,XX,P

Seq #  *Modification Id* Act 
----------------------------+
01179  M02S00009.ns2599  ---|  =1A FL,UP,EP,RT,XX,P

Seq #  *Modification Id* Act 
----------------------------+
01180  M01S00013.ns2599  +++|  =1A FL,SA,UP,EP,RT,IP,XX,P
01181  M00S00889.cpcom   +++|  ELSE 1
01182  M00S00890.cpcom   +++|  STOPDUP
01183  M00S00891.cpcom   +++|*         GENERATE REMAINDER OF FET.

Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00892.cpcom6  ---|  VFD 12D/"=1DTY",1/R,2/UP,1/EP,3/XX,17D/,6/FL-5,18D/B

Seq #  *Modification Id* Act 
----------------------------+
01185  M02S00010.ns2599  ---|  VFD 12D/"=1DTY",1/R,2/UP,1/EP,1/RT,2/XX,17D/,6/FL-5,18D/B

Seq #  *Modification Id* Act 
----------------------------+
01186  M01S00014.ns2599  +++|  VFD 12D/"=1DTY",1/R,1/SA,1/UP,1/EP,1/RT,1/IP,1/XX,17D/,6/FL-5,18D/B
01187  M00S00893.cpcom   +++|  VFD 42D/0,18D/B
01188  M00S00894.cpcom   +++|  VFD 42D/0,18D/B
01189  M00S00895.cpcom   +++|  VFD 42D/0,18D/B+L
01190  M00S00896.cpcom   +++|  IFGE FL,6D,19D
01191  M00S00897.cpcom   +++|  VFD 30D/"=1WSF",30D/"=1WSF"+"=1WSL"
01192  M00S00898.cpcom   +++|  IFGE FL,7D,17D
01193  M00S00899.cpcom   +++|  CON 0
01194  M00S00900.cpcom   +++|  IFGE FL,8D,15D
01195  M00S00901.cpcom   +++|  VFD 24D/0,18D/"=1INL",18D/"=1INF"
01196  M00S00902.cpcom   +++|  IFGE FL,9D,13D
01197  M00S00903.cpcom   +++|  VFD 30D/"=1EOI"+0L"=1PFN",30D/"=1ERR"+0L"=1PFO"
01198  M00S00904.cpcom   +++|  IFGE FL,10D,11D
01199  M00S00905.cpcom   +++|  IFC EQ,$"=1USN"$$
01200  M00S00906.cpcom   +++|  CON 0
01201  M00S00907.cpcom   +++|  ELSE 1
01202  M00S00908.cpcom   +++|  DATA 0L"=1USN"
01203  M00S00909.cpcom   +++|  IFGE FL,11D,6
01204  M00S00910.cpcom   +++|  CON 0L"=1PWD"
01205  M00S00911.cpcom   +++|  IFGE FL,12D,4
01206  M00S00912.cpcom   +++|  CON 0L"=1UCW"
01207  M00S00913.cpcom   +++|  IFGE FL,13D,2
01208  M00S00914.cpcom   +++|  CON 0L"=1PKN"
01209  M00S00915.cpcom   +++|  BSSZ FL-13D
01210  M00S00916.cpcom   +++|  ENDM
01211  M00S00917.cpcom   +++|          SPACE  4,10
01212  M00S00918.cpcom   +++|**        FET CREATION MACRO SUPPORT MACROS.
01213  M00S00919.cpcom   +++|*
01214  M00S00920.cpcom   +++|*         THE FOLLOWING MACROS ARE USED BY THE *=1* MACRO
01215  M00S00921.cpcom   +++|*         TO ASSIST IN GENERATION OF VALUES FOR EACH INDIVIDUAL
01216  M00S00922.cpcom   +++|*         PARAMETER.  THE *=1A* MACRO IS USED TO CALL EACH OF
01217  M00S00923.cpcom   +++|*         THE INDIVIDUAL MACROS THAT GENERATE EACH INDIVIDUAL
01218  M00S00924.cpcom   +++|*         PARAMETER.  THE *=1B* MACRO IS A STENCIL USED BY MOST
01219  M00S00925.cpcom   +++|*         OF THE INDIVIDUAL PARAMETRIC MACROS TO GENERATE VALUES
01220  M00S00926.cpcom   +++|*         REQUIRED BY THE PARAMETER.
01221  M00S00927.cpcom   +++|*
01222  M00S00928.cpcom   +++|*         THE INDIVIDUAL PARAMETRIC MACROS GENERATE MICROS WHICH
01223  M00S00929.cpcom   +++|*         ARE THEN USED BY THE *=1* MACRO FOR GENERATION OF THE
01224  M00S00930.cpcom   +++|*         RESULTANT FET.
01225  M00S00931.cpcom   +++|
01226  M00S00932.cpcom   +++|
01227  M00S00933.cpcom   +++|          PURGMAC =1A
01228  M00S00934.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
01229  M01S00935.cpcom6  ---| =1A      MACRO  FL,UP,EP,XX,A,B

Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00011.ns2599  ---| =1A      MACRO  FL,UP,EP,RT,XX,A,B

Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00015.ns2599  +++| =1A      MACRO  FL,SA,UP,EP,RT,IP,XX,A,B
01232  M00S00936.cpcom   +++|)1 MICRO 1,3, A
01233  M00S00937.cpcom   +++|)2 MICRO 5,, A
01234  M00S00938.cpcom   +++|  IF -MIC,=1")1"
01235  M00S00939.cpcom   +++|  ERR - ILLEGAL FET PARAMETER (")1").
01236  M00S00940.cpcom   +++|  ELSE 1

Seq #  *Modification Id* Act 
----------------------------+
01237  M01S00941.cpcom6  ---|  =1")1" FL,")2",B,UP,EP,XX

Seq #  *Modification Id* Act 
----------------------------+
01238  M02S00012.ns2599  ---|  =1")1" FL,")2",B,UP,EP,RT,XX

Seq #  *Modification Id* Act 
----------------------------+
01239  M01S00016.ns2599  +++|  =1")1" FL,")2",B,UP,EP,RT,XX,IP,SA
01240  M00S00942.cpcom   +++|  ENDM
01241  M00S00943.cpcom   +++|
01242  M00S00944.cpcom   +++|
01243  M00S00945.cpcom   +++|          PURGMAC =1B
01244  M00S00946.cpcom   +++|
01245  M00S00947.cpcom   +++| =1B      MACRO  FL,LEN,M,S
01246  M00S00948.cpcom   +++|FL MAX FL,LEN
01247  M00S00949.cpcom   +++|  ECHO 1,A=(M),B=(S)
01248  M00S00950.cpcom   +++|=1_A MICRO 1,, B
01249  M00S00951.cpcom   +++|  ENDM
01250  M00S00952.cpcom   +++|          SPACE  4,10
01251  M00S00953.cpcom   +++|**        PARAMETER PROCESSING MACROS.
01252  M00S00954.cpcom   +++|
01253  M00S00955.cpcom   +++|          PURGMAC =1DSC
01254  M00S00956.cpcom   +++|
01255  M00S00957.cpcom   +++| =1DSC    MACRO

Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00958.ns2011  ---|*                            VALID PARAMETER BUT A NO-OP.

Proceed to Part 1