Common CPCOM

25 Modifications

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00005.ns2011  ---| CPCOM    SPACE  4
00008  M01S00002.ns2011  +++| CPCOM    SPACE  4,10
00009  M01S00006.cpcom   +++|***       CPCOM - CENTRAL PROGRAM SYSTEM COMMUNICATION MACROS.
00010  M01S00003.ns2011  +++|*
00011  M01S00007.cpcom   +++|*         G. R. MANSFIELD.  70/09/21.

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00008.ns2011  ---| CPCOM    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00013  M02S00009.ns2011  ---|***              THE SYSTEM MACROS PROVIDE THE USER WITH PREDEFINED

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00010.ns2011  ---|*         CALLS FOR COMMONLY USED SYSTEM REQUESTS.

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00011.ns2011  ---|*         WHERE A PARAMETER REFERS TO AN ADDRESS EXPRESSION, THE

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00012.ns2011  ---|*         PARAMETER MAY BE A REGISTER NAME, A RELOCATABLE ADDRESS,

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00013.ns2011  ---|*         AN EXTERNAL SYMBOL NAME, OR AN ABSOLUTE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00014.ns2011  ---|*         WHERE A RECALL OPTION IS SPECIFIED, THE PRESENCE OF THE

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00015.ns2011  ---|*         OPTION CAUSES RECALL OPERATION TO TAKE PLACE.

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00016.ns2011  ---|          SPACE  4
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  M01S00017.cpcom   +++|          BASE   DECIMAL
00030  M01S00018.cpcom   +++|          TITLE  GENERAL MACROS.
00031  M01S00019.cpcom   +++| MACREF   SPACE  4,10
00032  M01S00020.cpcom   +++|**        MACREF - GENERATE MACRO SYMBOLIC REFERENCE TABLE LISTING.
00033  M01S00021.cpcom   +++|*
00034  M01S00022.cpcom   +++|*         CAUSES THE MACRO NAME TO BE LISTED IN THE SYMBOLIC
00035  M01S00023.cpcom   +++|*         REFERENCE TABLE UNDER THE QUALIFIER *MACRO$*.
00036  M01S00024.cpcom   +++|*
00037  M01S00025.cpcom   +++|*         MACREF MNAME
00038  M01S00026.cpcom   +++|*                MNAME    MACRO NAME FOR REFERENCE TABLE.
00039  M01S00027.cpcom   +++|
00040  M01S00028.cpcom   +++|
00041  M01S00029.cpcom   +++|          PURGMAC MACREF
00042  M01S00030.cpcom   +++|
00043  M01S00031.cpcom   +++| MACREF   MACRO  N
00044  M01S00032.cpcom   +++|  QUAL MACRO$
00045  M01S00033.cpcom   +++|N SET *
00046  M01S00034.cpcom   +++|  QUAL *
00047  M01S00035.cpcom   +++|  ENDM

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

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00038.ns2011  ---|*
00052  M01S00039.cpcom   +++|*
00053  M01S00040.cpcom   +++|*         SYSCOM B1
00054  M01S00041.cpcom   +++|*         IF *B1* IS PRESENT, USER DEFINES (B1) = 1.
00055  M01S00042.cpcom   +++|
00056  M01S00043.cpcom   +++|
00057  M01S00044.cpcom   +++|          PURGMAC SYSCOM
00058  M01S00045.cpcom   +++|
00059  M01S00046.cpcom   +++| SYSCOM   MACRO  N
00060  M01S00047.cpcom   +++|  MACREF SYSCOM
00061  M01S00048.cpcom   +++|  IFC EQ,$N$B1$,1
00062  M01S00049.cpcom   +++|  B1=1
00063  M01S00050.cpcom   +++|****      PROGRAM CONTROL AREA
00064  M01S00051.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00052.ns2011  ---|*
00066  M01S00053.cpcom   +++|*                            RA+1
00067  M01S00054.cpcom   +++|RA.MTR = 1
00068  M01S00055.cpcom   +++|*                            FIRST ARGUMENT
00069  M01S00056.cpcom   +++|ARGR = 2
00070  M01S00057.cpcom   +++|*                            SPECIAL PROGRAM PARAMETER AREA (27B-47B)
00071  M01S00058.cpcom   +++|SPPR = 27B
00072  M01S00001.242l642 +++|*                            MEMORY LINK BUFFER POINTER (BITS 0 - 17)
00073  M01S00002.242l642 +++|MLBR = 55B
00074  M01S00059.cpcom   +++|*                            PROGRAM NAME (BITS 18 - 59)
00075  M01S00060.cpcom   +++|PGNR = 64B
00076  M01S00061.cpcom   +++|*                            ARGUMENT COUNT (BITS 0 - 17)
00077  M01S00062.cpcom   +++|ACTR = 64B
00078  M01S00063.cpcom   +++|*                            CMU OPTION AVAILABLE (BIT 59)
00079  M01S00064.cpcom   +++|CMUR = 65B
00080  M01S00065.cpcom   +++|*                            LWA+1 ASSIGNED PROGRAM SPACE (BITS 0 - 17)
00081  M01S00066.cpcom   +++|LWPR = 65B
00082  M01S00067.cpcom   +++|*                            CMU OPTION AVAILABLE (BIT 59)
00083  M01S00068.cpcom   +++|RA.CMU = 65B
00084  M01S00069.cpcom   +++|*                            FWA ASSIGNED PROGRAM SPACE (BITS 0 - 17)
00085  M01S00070.cpcom   +++|FWPR = 66B
00086  M01S00071.cpcom   +++|*                            JOB ORIGIN TYPE(BITS 24 - 35)
00087  M01S00072.cpcom   +++|JOPR = 66B
00088  M01S00073.cpcom   +++|*                            CEJ OPTION AVAILABLE (BIT 59)
00089  M01S00074.cpcom   +++|RA.CEJ = 66B
00090  M01S00075.cpcom   +++|*                            CEJ OPTION AVAILABLE (BIT 59)
00091  M01S00076.cpcom   +++|XJPR = 66B
00092  M01S00077.cpcom   +++|*                            *LDR* COMPLETION (BIT 29)
00093  M01S00078.cpcom   +++|LDRR = 67B
00094  M01S00079.cpcom   +++|*                            SYSTEM CHARACTER SET MODE FLAG
00095  M01S00080.cpcom   +++|CSMR = 67B
00096  M01S00081.cpcom   +++|*                            CONTROL CARD (8 LOCATIONS)
00097  M01S00082.cpcom   +++|CCDR = 70B
00098  M01S00083.cpcom   +++|*                            LINES/PRINTER PAGE
00099  M01S00084.cpcom   +++|LINP = 60D
00100  M01S00085.cpcom   +++|****
00101  M01S00086.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00087.ns2011  ---| IDIV     SPACE  4
00103  M01S00013.ns2011  +++| IDIV     SPACE  4,10
00104  M01S00088.cpcom   +++|***       IXI XJ/XK - INTEGER DIVISION.
00105  M01S00089.cpcom   +++|*
00106  M01S00090.cpcom   +++|*         IXI    XJ/XK
00107  M01S00091.cpcom   +++|*         DIVIDE XJ BY XK TO XI.
00108  M01S00092.cpcom   +++|*         DESTROYS XJ, XK, B7.
00109  M01S00093.cpcom   +++|
00110  M01S00094.cpcom   +++|
00111  M01S00095.cpcom   +++|          PURGDEF IXX/X
00112  M01S00096.cpcom   +++|
00113  M01S00097.cpcom   +++| IXX/X    OPDEF  I,J,K
00114  M01S00098.cpcom   +++|  PX.J X.J
00115  M01S00099.cpcom   +++|  PX.K X.K
00116  M01S00100.cpcom   +++|  NX.K X.K
00117  M01S00101.cpcom   +++|  FX.I X.J/X.K
00118  M01S00102.cpcom   +++|  UX.I B7,X.I
00119  M01S00103.cpcom   +++|  LX.I X.I,B7
00120  M01S00104.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00105.ns2011  ---| MOVE     SPACE  4
00122  M01S00014.ns2011  +++| MOVE     SPACE  4,10
00123  M01S00106.cpcom   +++|***       MOVE - MOVE DATA BLOCK.
00124  M01S00107.cpcom   +++|*
00125  M01S00015.ns2011  +++|*         MOVE   COUNT,FROM,TO
00126  M01S00108.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00109.ns2011  ---|*         MOVE   COUNT,FROM,TO
00128  M01S00110.cpcom   +++|*         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED.
00129  M01S00111.cpcom   +++|*                *FROM* = ADDRESS OF FIRST WORD OF BLOCK.
00130  M01S00112.cpcom   +++|*                *TO* = ADDRESS OF FIRST WORD OF DESTINATION.
00131  M01S00016.ns2011  +++|*
00132  M01S00113.cpcom   +++|*         CALLS  MVE=  (COMCMVE).
00133  M01S00114.cpcom   +++|
00134  M01S00115.cpcom   +++|
00135  M01S00116.cpcom   +++|          PURGMAC MOVE
00136  M01S00117.cpcom   +++|
00137  M01S00118.cpcom   +++| MOVE     MACRO  C,F,T
00138  M01S00119.cpcom   +++|  MACREF MOVE
00139  M01S00120.cpcom   +++|  R= X1,C
00140  M01S00121.cpcom   +++|  R= X2,F
00141  M01S00122.cpcom   +++|  R= X3,T
00142  M01S00123.cpcom   +++|  RJ =XMVE=
00143  M01S00124.cpcom   +++|  ENDM
00144  M01S00125.cpcom   +++|          TITLE  SYSTEM REQUESTS.

Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00126.ns2011  ---| SYSTEM   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00127.ns2011  ---|***              SYSTEM REQUEST MACROS FORMAT REQUESTS INTO X REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00128.ns2011  ---|*         AND RETURN JUMP TO THE SYSTEM COMMUNICATION SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00129.ns2011  ---|*         THESE SUBROUTINES ARE AVAILABLE AS ENTRY POINTS FOR

Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00130.ns2011  ---|*         RELOCATABLE PROGRAMS OR AS COMMON DECKS FOR ABSOLUTE

Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00131.ns2011  ---|*         PROGRAMS.
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  M01S00132.cpcom   +++|*
00157  M01S00133.cpcom   +++|*         ENTRY  COMMON DECK

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00134.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00135.ns2011  ---|*         SYS=   COMCSYS

Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00136.ns2011  ---|*         MSG=   COMCSYS

Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00137.ns2011  ---|*         RCL=   COMCSYS

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00138.ns2011  ---|*         WNB=   COMCSYS

Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00139.ns2011  ---|*         CPM=   COMCCPM

Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00140.ns2011  ---|*         OVL=   COMCOVL

Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00141.ns2011  ---| ABORT    SPACE  4
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  M01S00142.cpcom   +++|***       ABORT - ABORT JOB.
00174  M01S00143.cpcom   +++|*
00175  M01S00029.ns2011  +++|*         ABORT
00176  M01S00144.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00145.ns2011  ---|*         ABORT
00178  M01S00146.cpcom   +++|*         CALLS  SYS=.
00179  M01S00147.cpcom   +++|
00180  M01S00148.cpcom   +++|
00181  M01S00149.cpcom   +++|          PURGMAC ABORT
00182  M01S00150.cpcom   +++|
00183  M01S00151.cpcom   +++| ABORT    MACRO
00184  M01S00152.cpcom   +++|  MACREF ABORT

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

Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00156.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00190  M01S00031.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00191  M01S00157.cpcom   +++|  RJ =XSYS=
00192  M01S00158.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00159.ns2011  ---| CLOCK    SPACE  4
00194  M01S00032.ns2011  +++| CLOCK    SPACE  4,10
00195  M01S00160.cpcom   +++|***       CLOCK - RETURN TIME OF DAY.
00196  M01S00161.cpcom   +++|*
00197  M01S00033.ns2011  +++|*         CLOCK  STATUS
00198  M01S00162.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00163.ns2011  ---|*         CLOCK  STATUS
00200  M01S00164.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR TIME OF DAY RESPONSE.
00201  M01S00034.ns2011  +++|*
00202  M01S00165.cpcom   +++|*         EXIT -
00203  M01S00166.cpcom   +++|*T STATUS 60/  * HH.MM.SS.*

Figure STATUS

00204  M01S00035.ns2011  +++|*
00205  M01S00167.cpcom   +++|*         CALLS  SYS=.
00206  M01S00168.cpcom   +++|
00207  M01S00169.cpcom   +++|
00208  M01S00170.cpcom   +++|          PURGMAC CLOCK
00209  M01S00171.cpcom   +++|
00210  M01S00172.cpcom   +++| CLOCK    MACRO  S
00211  M01S00173.cpcom   +++|  MACREF CLOCK

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00174.ns2011  ---|*                            FORM TIME (CLOCK) REQUEST
00213  M01S00036.ns2011  +++|*         FORM TIME (CLOCK) REQUEST.
00214  M01S00175.cpcom   +++|  SX6 3RTIM
00215  M01S00176.cpcom   +++|  R= X1,S
00216  M01S00177.cpcom   +++|  LX6 42D
00217  M01S00178.cpcom   +++|  BX6 X6+X1
00218  M01S00179.cpcom   +++|  SX1 200002B
00219  M01S00180.cpcom   +++|  LX1 24D
00220  M01S00181.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00182.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00222  M01S00037.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00223  M01S00183.cpcom   +++|  RJ =XSYS=
00224  M01S00184.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00185.ns2011  ---| CONTROL  SPACE  4
00226  M01S00038.ns2011  +++| CONTROL  SPACE  4,20
00227  M01S00186.cpcom   +++|***       CONTROL - READ NEXT CONTROL CARD.
00228  M01S00187.cpcom   +++|*
00229  M01S00039.ns2011  +++|*         CONTROL BUF,RSS,LF,SF
00230  M01S00188.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00189.ns2011  ---|*         CONTROL BUF,RSS,LF,SF

Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00190.ns2011  ---|*         ENTRY  *BUF* = ADDRESS TO WHICH CONTROL CARD WILL BE READ.

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

Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00193.ns2011  ---|*                            CONTROL CARDS.  THIS OPTION ALLOWS

Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00194.ns2011  ---|*                            THE NEXT CONTROL CARD TO BE CHECKED.

Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00195.ns2011  ---|*                *LF* IF PRESENT INDICATES TO RETURN CONTROL CARD

Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00196.ns2011  ---|*                IRREGARDLESS OF WHETHER IT POINTS AT A LOCAL FILE.

Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00197.ns2011  ---|*                NORMALLY NO CONTROL CARD WILL BE RETURNED IF IT CALLS

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00198.ns2011  ---|*                FOR EXECUTION OF A LOCAL FILE.  IF THIS OPTION IS

Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00199.ns2011  ---|*                SELECTED BIT 17 IN THE PARAMETER COUNT WORD WILL

Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00200.ns2011  ---|*                BE SET IF A CONTROL CARD IS FOR A LOCAL FILE.
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  M01S00201.cpcom   +++|*                *SF* IF PRESENT INDICATES PARAMETERS UNPACKED IN SCOPE

Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00202.ns2011  ---|*                FORMAT.
00256  M01S00051.ns2011  +++|*                        FORMAT.
00257  M01S00052.ns2011  +++|*
00258  M01S00203.cpcom   +++|*         CALLS  SYS=.
00259  M01S00204.cpcom   +++|
00260  M01S00205.cpcom   +++|
00261  M01S00206.cpcom   +++|          PURGMAC CONTROL
00262  M01S00207.cpcom   +++|
00263  M01S00208.cpcom   +++| CONTROL  MACRO  A,B,C,D
00264  M01S00209.cpcom   +++|  MACREF CONTROL
00265  M01S00210.cpcom   +++|  R= X1,A
00266  M01S00211.cpcom   +++|.1 IFC EQ,$B$$
00267  M01S00212.cpcom   +++|.2 IFC EQ,$D$$
00268  M01S00213.cpcom   +++|  BX6 X6-X6
00269  M01S00214.cpcom   +++|.2 ELSE
00270  M01S00215.cpcom   +++|  SX6 40B
00271  M01S00216.cpcom   +++|.2 ENDIF
00272  M01S00217.cpcom   +++|.1 ELSE
00273  M01S00218.cpcom   +++|.2 IFC EQ,$C$$
00274  M01S00219.cpcom   +++|.3 IFC EQ,$D$$
00275  M01S00220.cpcom   +++|  R= X6,1
00276  M01S00221.cpcom   +++|.3 ELSE
00277  M01S00222.cpcom   +++|  SX6 41B
00278  M01S00223.cpcom   +++|.3 ENDIF
00279  M01S00224.cpcom   +++|.2 ELSE
00280  M01S00225.cpcom   +++|.3 IFC EQ,$D$$
00281  M01S00226.cpcom   +++|  R= X6,2
00282  M01S00227.cpcom   +++|.3 ELSE
00283  M01S00228.cpcom   +++|  SX6 42B
00284  M01S00229.cpcom   +++|.3 ENDIF
00285  M01S00230.cpcom   +++|.2 ENDIF
00286  M01S00231.cpcom   +++|.1 ENDIF
00287  M01S00232.cpcom   +++|  LX6 18D
00288  M01S00233.cpcom   +++|  BX6 X6+X1
00289  M01S00234.cpcom   +++|  SX2 1LP+4
00290  M01S00235.cpcom   +++|  SX1 3RTCS
00291  M01S00236.cpcom   +++|  LX2 24D
00292  M01S00237.cpcom   +++|  LX1 42D
00293  M01S00238.cpcom   +++|  BX6 X6+X2
00294  M01S00239.cpcom   +++|  BX6 X6+X1
00295  M01S00240.cpcom   +++|  RJ =XSYS=
00296  M01S00241.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00242.ns2011  ---| DATE     SPACE  4
00298  M01S00053.ns2011  +++| DATE     SPACE  4,10
00299  M01S00243.cpcom   +++|***       DATE - RETURN DATE.
00300  M01S00244.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00246.ns2011  ---|*         DATE   STATUS
00305  M01S00247.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR DATE RESPONSE.
00306  M01S00002.ns2789  +++|*                *FORMAT* = *4*, RETURN 4-DIGIT YEAR FORMAT.
00307  M01S00055.ns2011  +++|*
00308  M01S00248.cpcom   +++|*         EXIT -

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

Figure STATUS

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

00312  M01S00056.ns2011  +++|*
00313  M01S00250.cpcom   +++|*         CALLS  SYS=.
00314  M01S00251.cpcom   +++|
00315  M01S00252.cpcom   +++|
00316  M01S00253.cpcom   +++|          PURGMAC DATE
00317  M01S00254.cpcom   +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00257.ns2011  ---|*                            FORM TIME (DATE) REQUEST
00322  M01S00057.ns2011  +++|*         FORM TIME (DATE) REQUEST.
00323  M01S00258.cpcom   +++|  SX6 3RTIM
00324  M01S00259.cpcom   +++|  R= X1,S
00325  M01S00260.cpcom   +++|  LX6 42D
00326  M01S00261.cpcom   +++|  BX6 X6+X1
00327  M01S00006.ns2789  +++|A IFC EQ,*F*4*
00328  M01S00007.ns2789  +++|  SX1 200013B
00329  M01S00008.ns2789  +++|A ELSE
00330  M01S00262.cpcom   +++|  SX1 200001B
00331  M01S00009.ns2789  +++|A ENDIF
00332  M01S00263.cpcom   +++|  LX1 24D
00333  M01S00264.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00265.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00335  M01S00058.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00336  M01S00266.cpcom   +++|  RJ =XSYS=
00337  M01S00267.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00268.ns2011  ---| ENDRUN   SPACE  4
00339  M01S00059.ns2011  +++| ENDRUN   SPACE  4,10
00340  M01S00269.cpcom   +++|***       ENDRUN - END CENTRAL PROGRAM.
00341  M01S00270.cpcom   +++|*
00342  M01S00060.ns2011  +++|*         ENDRUN
00343  M01S00271.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00272.ns2011  ---|*         ENDRUN
00345  M01S00273.cpcom   +++|*         CALLS  SYS=.
00346  M01S00274.cpcom   +++|
00347  M01S00275.cpcom   +++|
00348  M01S00276.cpcom   +++|          PURGMAC ENDRUN
00349  M01S00277.cpcom   +++|
00350  M01S00278.cpcom   +++| ENDRUN   MACRO
00351  M01S00279.cpcom   +++|  MACREF ENDRUN

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

Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00283.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00357  M01S00062.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00358  M01S00284.cpcom   +++|  RJ =XSYS=
00359  M01S00285.cpcom   +++|  ENDM

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

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

Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00290.ns2011  ---|*         OR OPERATOR INTERVENTION.  IF THE ERROR WAS DUE TO TIME

Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00291.ns2011  ---|*         LIMIT BEING EXCEEDED,  AN ADDITIONAL 8 SECONDS OF CPU TIME

Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00292.ns2011  ---|*         WILL BE ALLOWED.  ALL ERRORS EXCEPT CPU ABORT WILL BE

Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00293.ns2011  ---|*         PROCESSED.
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  M01S00294.cpcom   +++|*
00375  M01S00069.ns2011  +++|*         EREXIT ADDR
00376  M01S00295.cpcom   +++|*

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

Figure RA

00382  M01S00301.cpcom   +++|*         MO = IF ARITHMETIC ERROR CONTAINS EXIT CONDTION
00383  M01S00302.cpcom   +++|*         EA = ADDRESS WHERE CPU WAS AT WHEN ERROR OCCURED
00384  M01S00303.cpcom   +++|*         EF = ERROR FLAG
00385  M01S00070.ns2011  +++|*
00386  M01S00304.cpcom   +++|*         CALLS  CPM=.
00387  M01S00305.cpcom   +++|
00388  M01S00306.cpcom   +++|
00389  M01S00307.cpcom   +++|          PURGMAC EREXIT
00390  M01S00308.cpcom   +++|
00391  M01S00309.cpcom   +++| EREXIT   MACRO  A
00392  M01S00310.cpcom   +++|  MACREF EREXIT
00393  M01S00311.cpcom   +++|  R= X1,A
00394  M01S00312.cpcom   +++|  SX2 4
00395  M01S00313.cpcom   +++|  RJ =XCPM=
00396  M01S00314.cpcom   +++|  ENDM
00397  M01S00315.cpcom   +++| HTIME    SPACE  4,20
00398  M01S00316.cpcom   +++|***       HTIME - REQUEST ACCUMULATED CYBER 176 CPU CLOCK CYCLE COUNT.
00399  M01S00317.cpcom   +++|*
00400  M01S00318.cpcom   +++|*         HTIME  STATUS,OPTION
00401  M01S00071.ns2011  +++|*
00402  M01S00319.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR CLOCK CYCLE RESPONSE.
00403  M01S00320.cpcom   +++|*                *OPTION* = 0, CONTROL POINT ACCUMULATED CLOCK CYCLE
00404  M01S00321.cpcom   +++|*                              COUNT.
00405  M01S00322.cpcom   +++|*                           1, ACCUMULATED CLOCK CYCLE COUNT SINCE
00406  M01S00323.cpcom   +++|*                              DEADSTART.
00407  M01S00072.ns2011  +++|*
00408  M01S00324.cpcom   +++|*         EXIT -
00409  M01S00325.cpcom   +++|*T STATUS 12/TYPE,48/CLOCK CYCLE COUNT

Figure STATUS

Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00326.ns2011  ---|*
00411  M01S00327.cpcom   +++|*                *TYPE* = 2000B, IF CYBER 176 CPU CLOCK CYCLE COUNT IS
00412  M01S00328.cpcom   +++|*                                AVAILABLE.
00413  M01S00329.cpcom   +++|*                       = 6000B, IF CYBER 176 CPU CLOCK NOT AVAILABLE.
00414  M01S00073.ns2011  +++|*
00415  M01S00330.cpcom   +++|*         CALLS  SYS=.
00416  M01S00331.cpcom   +++|
00417  M01S00332.cpcom   +++|
00418  M01S00333.cpcom   +++|          PURGMAC  HTIME
00419  M01S00334.cpcom   +++|
00420  M01S00335.cpcom   +++| HTIME    MACRO  S,O
00421  M01S00336.cpcom   +++|  MACREF HTIME

Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00337.ns2011  ---|*                            FORM TIME (HTIME) REQUEST.
00423  M01S00074.ns2011  +++|*         FORM TIME (HTIME) REQUEST.
00424  M01S00338.cpcom   +++|  IFNE O,0,2
00425  M01S00339.cpcom   +++|  IFNE O,1,1
00426  M01S00340.cpcom   +++|  ERR ILLEGAL OPTION - O
00427  M01S00341.cpcom   +++|  SX6 3RTIM
00428  M01S00342.cpcom   +++|  R= X1,S
00429  M01S00343.cpcom   +++|  LX6 42D
00430  M01S00344.cpcom   +++|  BX6 X6+X1
00431  M01S00345.cpcom   +++|  SX1 11B+O
00432  M01S00346.cpcom   +++|  LX1 24D
00433  M01S00347.cpcom   +++|  BX6 X6+X1

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

Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00351.ns2011  ---| JDATE    SPACE  4
00439  M01S00076.ns2011  +++| JDATE    SPACE  4,10
00440  M01S00352.cpcom   +++|***       JDATE - JULIAN DATE.
00441  M01S00353.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00355.ns2011  ---|*         JDATE  STATUS
00446  M01S00356.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR JULIAN DATE.
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*.
00451  M01S00078.ns2011  +++|*
00452  M01S00357.cpcom   +++|*         EXIT -

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

Figure STATUS

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

00457  M01S00079.ns2011  +++|*
00458  M01S00359.cpcom   +++|*         CALLS  SYS=.
00459  M01S00360.cpcom   +++|
00460  M01S00361.cpcom   +++|
00461  M01S00362.cpcom   +++|          PURGMAC JDATE
00462  M01S00363.cpcom   +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00366.ns2011  ---|*                            FORM TIME (JDATE) REQUEST.
00467  M01S00080.ns2011  +++|*         FORM TIME (JDATE) REQUEST.
00468  M01S00367.cpcom   +++|  SX6 3RTIM
00469  M01S00368.cpcom   +++|  R= X1,S
00470  M01S00369.cpcom   +++|  LX6 42D
00471  M01S00370.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00371.ns2789  ---|  SX1 200003B
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  M01S00372.cpcom   +++|  LX1 24D
00482  M01S00373.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00374.ns2011  ---|*                            PROCESS SYSTEM REQUEST.
00484  M01S00081.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00485  M01S00375.cpcom   +++|  RJ =XSYS=
00486  M01S00376.cpcom   +++|  ENDM

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

Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00379.ns2011  ---|*
00491  M01S00380.cpcom   +++|*
00492  M01S00381.cpcom   +++|*         MEMORY TYPE,STATUS,RECALL,WORDS,NABORT
00493  M01S00382.cpcom   +++|*                *TYPE* = *CM*, REQUEST CENTRAL MEMORY.
00494  M01S00383.cpcom   +++|*                         BLANK, REQUEST CENTRAL MEMORY.
00495  M01S00384.cpcom   +++|*                         *SCM*, REQUEST CENTRAL MEMORY.
00496  M01S00385.cpcom   +++|*                         *ECS*, REQUEST EXTENDED CORE STORAGE.
00497  M01S00386.cpcom   +++|*                         *LCM*, REQUEST EXTENDED CORE STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00387.ns2011  ---|*                *STATUS* = ADDRESS OF STATUS WORD, IF DESIRED.

Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00388.ns2011  ---|*                  THIS IS REQUIRED IF NOT CENTRAL MEMORY AND/OR

Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00389.ns2011  ---|*                  NABORT IS SELECTED.

Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00390.ns2011  ---|*                *WORDS* = MEMORY ASSIGNMENT REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00391.ns2011  ---|*                  THIS IS NOT REQUIRED IF NUMBER OF WORDS HAS BEEN

Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00392.ns2011  ---|*                  PLACED INTO *STATUS*.  IF THE VALUE OF *WORDS*

Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00393.ns2011  ---|*                  IS GREATER THAN 377777B THE VALUE MUST BE PASSED

Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00394.ns2011  ---|*                  TO THE *MEMORY* MACRO IN AN X REGISTER.
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  M01S00395.cpcom   +++|*                *NABORT* = BLANK IF PROGRAM IS TO BE ABORTED IF THE

Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00396.ns2011  ---|*                  REQUESTED MEMORY IS NOT AVAILABLE. IF NON-BLANK AND

Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00397.ns2011  ---|*                  THE MEMORY IS UNAVAILABLE, THE CURRENT FIELD LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00398.ns2011  ---|*                  IS RETURNED IN BITS 30-59 OF *STATUS*.
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  M01S00399.cpcom   +++|*
00523  M01S00400.cpcom   +++|*T STATUS 30/  N,30/  0

Figure STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00402.ns2011  ---|*                                RETURNED)
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  M01S00403.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00404.ns2011  ---|*                                    N = 12/0,1/N,17/FL

Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00405.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00406.ns2011  ---|*                                        N = NO REDUCE OVERRIDE.

Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00407.ns2011  ---|*                                        FL = CM FIELD LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00408.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00409.ns2011  ---|*                                (IF N = -1 MAX FL IS RETURNED)
00538  M01S00410.cpcom   +++|*         CALLS  SYS=.
00539  M01S00411.cpcom   +++|
00540  M01S00412.cpcom   +++|
00541  M01S00413.cpcom   +++|          PURGMAC MEMORY
00542  M01S00414.cpcom   +++|
00543  M01S00415.cpcom   +++| MEMORY   MACRO  T,S,L,W,N
00544  M01S00416.cpcom   +++|  LOCAL A,B,C,D
00545  M01S00417.cpcom   +++|  MACREF MEMORY
00546  M01S00418.cpcom   +++| C SET 2
00547  M01S00419.cpcom   +++|  ECHO 3,A=(,CM,SCM,ECS,LCM),B=(0,0,0,1,1)
00548  M01S00420.cpcom   +++|  IFC EQ,$T$_A$,2
00549  M01S00421.cpcom   +++| C SET B
00550  M01S00422.cpcom   +++|  STOPDUP
00551  M01S00423.cpcom   +++| D SET C
00552  M01S00424.cpcom   +++|  IFEQ C,2,1
00553  M01S00425.cpcom   +++|  ERR ILLEGAL MEMORY REQUEST - (T)
00554  M01S00426.cpcom   +++|  IFC NE,$N$$,3
00555  M01S00427.cpcom   +++|  IFC EQ,$S$$,1
00556  M01S00428.cpcom   +++|  ERR ILLEGAL MEMORY REQUEST - (S)
00557  M01S00429.cpcom   +++| C SET C+2
00558  M01S00430.cpcom   +++|.1 IFC NE,$W$$
00559  M01S00431.cpcom   +++|.2 IFNE C,0
00560  M01S00432.cpcom   +++|  IFC EQ,$S$$,1
00561  M01S00433.cpcom   +++|  ERR ILLEGAL MEMORY REQUEST - (S)
00562  M01S00434.cpcom   +++|.5 IFNE D,0
00563  M01S00435.cpcom   +++|.5 IF REG,W
00564  M01S00436.cpcom   +++|.3 MICRO 1,, W
00565  M01S00437.cpcom   +++|.4 MICCNT .3
00566  M01S00438.cpcom   +++|.5 IFEQ .4,2
00567  M01S00439.cpcom   +++|.3 MICRO 1,1, W
00568  M01S00440.cpcom   +++|.5 IFC EQ,*X*".3"*
00569  M01S00441.cpcom   +++|  BX6 W

Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00442.cpcom9  ---|  MX1 -21
00571  M01S00001.cpcom9  +++|  MX1 -30
00572  M01S00443.cpcom   +++|  BX6 -X1*X6
00573  M01S00444.cpcom   +++|.5 ELSE
00574  M01S00445.cpcom   +++|  R= X6,W
00575  M01S00446.cpcom   +++|.5 ENDIF
00576  M01S00447.cpcom   +++|  LX6 30D
00577  M01S00448.cpcom   +++|  R= A6,S
00578  M01S00449.cpcom   +++|  SYSTEM MEM,L,S,C
00579  M01S00450.cpcom   +++|.2 ELSE
00580  M01S00451.cpcom   +++|  SYSTEM RFL,L,W,S
00581  M01S00452.cpcom   +++|.2 ENDIF
00582  M01S00453.cpcom   +++|.1 ELSE
00583  M01S00454.cpcom   +++|  SYSTEM MEM,L,S,C
00584  M01S00455.cpcom   +++|.1 ENDIF
00585  M01S00456.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00457.ns2011  ---| MESSAGE  SPACE  4,50
00587  M01S00100.ns2011  +++| MESSAGE  SPACE  4,40
00588  M01S00458.cpcom   +++|***       MESSAGE - DISPLAY MESSAGE.
00589  M01S00459.cpcom   +++|*
00590  M01S00101.ns2011  +++|*         MESSAGE  MESSAGE,OPTION,RECALL
00591  M01S00460.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00461.ns2011  ---|*         MESSAGE MESSAGE,OPTION,RECALL
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  M01S00462.cpcom   +++|*
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  M01S00463.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00464.ns2011  ---|*         ENTRY  *MESSAGE* = ADDRESS OF MESSAGE IN *C* FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00465.ns2011  ---|*                *OPTION* = DISPLAY OPTION AS FOLLOWS.

Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00466.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00467.ns2011  ---|*                0 = PLACE MESSAGE IN SYSTEM DAYFILE, JOB DAYFILE,

Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00468.ns2011  ---|*                    AND DISPLAY AT LINE 1 OF CONTROL POINT.

Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00469.ns2011  ---|*                1 = DISPLAY AT LINE 1 OF CONTROL POINT ONLY.

Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00470.ns2011  ---|*                2 = DISPLAY AT LINE 2 OF CONTROL POINT ONLY.

Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00471.ns2011  ---|*                3 = PLACE MESSAGE IN JOB DAYFILE ONLY.

Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00472.ns2011  ---|*                4 = PLACE MESSAGE IN ERROR LOG (SYOT OR SSJ= ONLY).

Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00473.ns2011  ---|*                5 = PLACE MESSAGE IN ACCOUNT LOG (SYOT OR SSJ= ONLY).

Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00474.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00475.ns2011  ---|*                THE FOLLOWING ARE INCLUDED FOR NOS/BE COMPATIBILITY.

Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00476.ns2011  ---|*                (CONVERTED BY CPUMTR/1MA)

Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00477.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00478.ns2011  ---|*                6 = PROCESS AS OPTION *0*.

Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00479.ns2011  ---|*                7 = PROCESS AS OPTION *3*.

Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00480.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00481.ns2011  ---|*                  FOR *OPTION* THE FOLLOWING RULES APPLY

Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00482.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00483.ns2011  ---|*                   IF *OPTION* IF NOT DEFINED (COMPASS *DEF*), FORCE

Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00484.ns2011  ---|*                     A VALUE OF 1.

Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00485.ns2011  ---|*                   IF *OPTION* IS DEFINED (COMPASS *DEF*), PASS TO

Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00486.ns2011  ---|*                     THE SYSTEM.

Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00487.ns2011  ---|*                   IF *OPTION* IS EMPTY, FORCE A VALUE OF 0.

Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00488.ns2011  ---|*                   IF *OPTION* IS STRING *LOCAL*, FORCE A VALUE OF 3.

Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00489.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00490.ns2011  ---|*                  ILLEGAL *OPTION* VALUES ARE RESET TO *1* BY THE

Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00491.ns2011  ---|*                    SYSTEM.
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  M01S00492.cpcom   +++|*
00646  M01S00493.cpcom   +++|*                *RECALL* = OPTIONAL RECALL PARAMETER
00647  M01S00494.cpcom   +++|*
00648  M01S00495.cpcom   +++|*         CALLS  MSG=.
00649  M01S00496.cpcom   +++|
00650  M01S00497.cpcom   +++|
00651  M01S00498.cpcom   +++|          PURGMAC MESSAGE
00652  M01S00499.cpcom   +++|
00653  M01S00500.cpcom   +++| MESSAGE  MACRO  M,O,L
00654  M01S00501.cpcom   +++|  LOCAL A
00655  M01S00502.cpcom   +++|  MACREF MESSAGE
00656  M01S00503.cpcom   +++|  R= X1,M
00657  M01S00504.cpcom   +++|A SET 200000B
00658  M01S00505.cpcom   +++|  IFC EQ,$L$$,1
00659  M01S00506.cpcom   +++|A SET 0
00660  M01S00507.cpcom   +++|.1 IFC EQ,$O$LOCAL$
00661  M01S00508.cpcom   +++|  R= X6,3+A
00662  M01S00509.cpcom   +++|.1 ELSE 4
00663  M01S00510.cpcom   +++|.2 IF DEF,O
00664  M01S00511.cpcom   +++|  R= X6,O+A
00665  M01S00512.cpcom   +++|.2 ELSE 1
00666  M01S00513.cpcom   +++|  R= X6,1+A
00667  M01S00514.cpcom   +++|*                            PROCESS MESSAGE REQUEST
00668  M01S00515.cpcom   +++|  RJ =XMSG=
00669  M01S00516.cpcom   +++|  ENDM

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

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00519.ns2011  ---|*
00674  M01S00520.cpcom   +++|*
00675  M01S00521.cpcom   +++|*         ONSW   N
00676  M01S00522.cpcom   +++|*
00677  M01S00523.cpcom   +++|*         ENTRY  *N* = SENSE SWITCH BITS. (BIT 0 = SWITCH 1)
00678  M01S00524.cpcom   +++|*                IF A BIT IS SET, THE CORRESPONDING SWITCH IS SET.
00679  M01S00525.cpcom   +++|*                IF N=0, ALL SWITCHES REMAIN UNCHANGED.
00680  M01S00526.cpcom   +++|*
00681  M01S00527.cpcom   +++|*         CALLS  CPM=.
00682  M01S00528.cpcom   +++|
00683  M01S00529.cpcom   +++|
00684  M01S00530.cpcom   +++|          PURGMAC ONSW
00685  M01S00531.cpcom   +++|
00686  M01S00532.cpcom   +++| ONSW     MACRO  N
00687  M01S00533.cpcom   +++|  MACREF ONSW
00688  M01S00534.cpcom   +++|  R= X1,N
00689  M01S00535.cpcom   +++|  SX2 11B
00690  M01S00536.cpcom   +++|  RJ =XCPM=
00691  M01S00537.cpcom   +++|  ENDM

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

Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00540.ns2011  ---|*
00696  M01S00541.cpcom   +++|*
00697  M01S00542.cpcom   +++|*         OFFSW  N
00698  M01S00543.cpcom   +++|*
00699  M01S00544.cpcom   +++|*         ENTRY  *N* = SENSE SWITCH BITS. (BIT 0 = SWITCH 1)
00700  M01S00545.cpcom   +++|*                IF A BIT IS SET, THE CORRESPONDING SWITCH IS CLEARED.
00701  M01S00546.cpcom   +++|*                IF N=0, ALL SWITCHES REMAIN UNCHANGED.
00702  M01S00547.cpcom   +++|*
00703  M01S00548.cpcom   +++|*         CALLS  CPM=.
00704  M01S00549.cpcom   +++|
00705  M01S00550.cpcom   +++|
00706  M01S00551.cpcom   +++|          PURGMAC OFFSW
00707  M01S00552.cpcom   +++|
00708  M01S00553.cpcom   +++| OFFSW    MACRO  N
00709  M01S00554.cpcom   +++|  MACREF OFFSW
00710  M01S00555.cpcom   +++|  R= X1,N
00711  M01S00556.cpcom   +++|  SX2 12B
00712  M01S00557.cpcom   +++|  RJ =XCPM=
00713  M01S00558.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00559.ns2011  ---| OVERLAY  SPACE  4
00715  M01S00126.ns2011  +++| OVERLAY  SPACE  4,15
00716  M01S00560.cpcom   +++|***       OVERLAY - LOAD OVERLAY.
00717  M01S00561.cpcom   +++|*
00718  M01S00127.ns2011  +++|*         OVERLAY NAME,LEVEL,SYSTEM,FWA
00719  M01S00562.cpcom   +++|*

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00728  M02S00570.ns2011  ---|*                            BE LOADED.
00729  M01S00129.ns2011  +++|*                         BE LOADED.
00730  M01S00130.ns2011  +++|*
00731  M01S00571.cpcom   +++|*         EXIT   (X1) = OVERLAY ENTRY ADDRESS.
00732  M01S00131.ns2011  +++|*
00733  M01S00572.cpcom   +++|*         CALLS  OVL=.
00734  M01S00573.cpcom   +++|
00735  M01S00574.cpcom   +++|
00736  M01S00575.cpcom   +++|          PURGMAC OVERLAY
00737  M01S00576.cpcom   +++|
00738  M01S00577.cpcom   +++| OVERLAY  MACRO  N,L,S,F
00739  M01S00578.cpcom   +++|  LOCAL A
00740  M01S00579.cpcom   +++|  MACREF OVERLAY
00741  M01S00580.cpcom   +++|A SET 0
00742  M01S00581.cpcom   +++|  IFC NE,$S$$,1
00743  M01S00582.cpcom   +++|A SET 1
00744  M01S00583.cpcom   +++|  IFC NE,$L$$
00745  M01S00584.cpcom   +++|  SX6 L*100B+A
00746  M01S00585.cpcom   +++|  ELSE 1
00747  M01S00586.cpcom   +++|  SX6 A
00748  M01S00587.cpcom   +++|  R= X2,F
00749  M01S00588.cpcom   +++|  IFC NE,$N$X1$,1
00750  M01S00589.cpcom   +++|  SA1 N
00751  M01S00590.cpcom   +++|  RJ =XOVL=
00752  M01S00591.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00592.ns2011  ---| PDATE    SPACE  4
00754  M01S00132.ns2011  +++| PDATE    SPACE  4,10
00755  M01S00593.cpcom   +++|***       PDATE - RETURN PACKED DATE.
00756  M01S00594.cpcom   +++|*
00757  M01S00133.ns2011  +++|*         PDATE  STATUS
00758  M01S00595.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00596.ns2011  ---|*         PDATE  STATUS
00760  M01S00597.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR PACKED DATE.
00761  M01S00134.ns2011  +++|*
00762  M01S00598.cpcom   +++|*         EXIT -
00763  M01S00599.cpcom   +++|*T STATUS 24/,18/  YYMMDD,18/  HHMMSS

Figure STATUS

00764  M01S00135.ns2011  +++|*
00765  M01S00600.cpcom   +++|*         CALLS  SYS=.
00766  M01S00601.cpcom   +++|
00767  M01S00602.cpcom   +++|
00768  M01S00603.cpcom   +++|          PURGMAC PDATE
00769  M01S00604.cpcom   +++|
00770  M01S00605.cpcom   +++| PDATE    MACRO  S
00771  M01S00606.cpcom   +++|  MACREF PDATE

Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00607.ns2011  ---|*                            FORM TIME (PDATE) REQUEST
00773  M01S00136.ns2011  +++|*         FORM TIME (PDATE) REQUEST.
00774  M01S00608.cpcom   +++|  SX6 3RTIM
00775  M01S00609.cpcom   +++|  R= X1,S
00776  M01S00610.cpcom   +++|  LX6 42D
00777  M01S00611.cpcom   +++|  BX6 X6+X1
00778  M01S00612.cpcom   +++|  SX1 200006B
00779  M01S00613.cpcom   +++|  LX1 24D
00780  M01S00614.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00615.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00782  M01S00137.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00783  M01S00616.cpcom   +++|  RJ =XSYS=
00784  M01S00617.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00618.ns2011  ---| RECALL   SPACE  4
00786  M01S00138.ns2011  +++| RECALL   SPACE  4,10
00787  M01S00619.cpcom   +++|***       RECALL - PLACE PROGRAM IN RECALL STATUS.
00788  M01S00620.cpcom   +++|*
00789  M01S00139.ns2011  +++|*         RECALL STATUS
00790  M01S00621.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00626.ns2011  ---|*         CALLS  RCL= OR WNB=.
00796  M01S00140.ns2011  +++|*
00797  M01S00141.ns2011  +++|*         CALLS  RCL=, WNB=.
00798  M01S00627.cpcom   +++|
00799  M01S00628.cpcom   +++|
00800  M01S00629.cpcom   +++|          PURGMAC RECALL
00801  M01S00630.cpcom   +++|
00802  M01S00631.cpcom   +++| RECALL   MACRO  S
00803  M01S00632.cpcom   +++|  MACREF RECALL

Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00633.ns2011  ---|*                            RECALL
00805  M01S00142.ns2011  +++|*         RECALL.
00806  M01S00634.cpcom   +++|  IFC EQ,$S$$
00807  M01S00635.cpcom   +++|  RJ =XRCL=
00808  M01S00636.cpcom   +++|  ELSE 2

Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00637.ns2011  ---|*                            WAIT NOT BUSY
00810  M01S00143.ns2011  +++|*         WAIT NOT BUSY.
00811  M01S00638.cpcom   +++|  R= X2,S
00812  M01S00639.cpcom   +++|  RJ =XWNB=
00813  M01S00640.cpcom   +++|  ENDIF
00814  M01S00641.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00642.ns2011  ---| RTIME    SPACE  4
00816  M01S00144.ns2011  +++| RTIME    SPACE  4,10
00817  M01S00643.cpcom   +++|***       RTIME - REQUEST REAL TIME CLOCK READING.
00818  M01S00644.cpcom   +++|*
00819  M01S00145.ns2011  +++|*         RTIME  STATUS
00820  M01S00645.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00646.ns2011  ---|*         RTIME  STATUS
00822  M01S00647.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR CLOCK RESPONSE.
00823  M01S00146.ns2011  +++|*
00824  M01S00648.cpcom   +++|*         EXIT -
00825  M01S00649.cpcom   +++|*T STATUS 24/  SECONDS,36/  MILLISECONDS

Figure STATUS

00826  M01S00147.ns2011  +++|*
00827  M01S00650.cpcom   +++|*         CALLS  SYS=.
00828  M01S00651.cpcom   +++|
00829  M01S00652.cpcom   +++|
00830  M01S00653.cpcom   +++|          PURGMAC RTIME
00831  M01S00654.cpcom   +++|
00832  M01S00655.cpcom   +++| RTIME    MACRO  S
00833  M01S00656.cpcom   +++|  MACREF RTIME

Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00657.ns2011  ---|*                            FORM TIME (REAL TIME CLOCK) REQUEST
00835  M01S00148.ns2011  +++|*         FORM TIME (REAL TIME CLOCK) REQUEST.
00836  M01S00658.cpcom   +++|  SX6 3RTIM
00837  M01S00659.cpcom   +++|  R= X1,S
00838  M01S00660.cpcom   +++|  LX6 42D
00839  M01S00661.cpcom   +++|  BX6 X6+X1
00840  M01S00662.cpcom   +++|  SX1 200005B
00841  M01S00663.cpcom   +++|  LX1 24D
00842  M01S00664.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00665.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00844  M01S00149.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00845  M01S00666.cpcom   +++|  RJ =XSYS=
00846  M01S00667.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00847  M02S00668.ns2011  ---| STIME    SPACE 4
00848  M01S00150.ns2011  +++| STIME    SPACE  4,10
00849  M01S00669.cpcom   +++|***       STIME - REQUEST ACCUMULATED SRUS.
00850  M01S00670.cpcom   +++|*
00851  M01S00151.ns2011  +++|*         STIME  STATUS
00852  M01S00671.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00672.ns2011  ---|*         STIME  STATUS
00854  M01S00673.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR RESPONSE.
00855  M01S00152.ns2011  +++|*
00856  M01S00674.cpcom   +++|*         EXIT   -
00857  M01S00675.cpcom   +++|*T STATUS 12/  2000B,12/  0,36/  MILLI-UNITS

Figure STATUS

00858  M01S00153.ns2011  +++|*
00859  M01S00676.cpcom   +++|*         CALLS  SYS=
00860  M01S00677.cpcom   +++|
00861  M01S00678.cpcom   +++|
00862  M01S00679.cpcom   +++|          PURGMAC STIME
00863  M01S00680.cpcom   +++|
00864  M01S00681.cpcom   +++| STIME    MACRO  S
00865  M01S00682.cpcom   +++|  MACREF STIME

Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00683.ns2011  ---|*                            FORM TIME (STIME) REQUEST
00867  M01S00154.ns2011  +++|*         FORM TIME (STIME) REQUEST.
00868  M01S00684.cpcom   +++|  SX6 3RTIM
00869  M01S00685.cpcom   +++|  R=  X1,S
00870  M01S00686.cpcom   +++|  LX6 42D
00871  M01S00687.cpcom   +++|  BX6 X6+X1
00872  M01S00688.cpcom   +++|  SX1 200007B
00873  M01S00689.cpcom   +++|  LX1 24D
00874  M01S00690.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00691.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00876  M01S00155.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00877  M01S00156.ns2011  +++| SYSTEM   SPACE  4,15
00878  M01S00692.cpcom   +++|  RJ  =XSYS=
00879  M01S00693.cpcom   +++|  ENDM
00880  M01S00694.cpcom   +++| SYSTEM   SPACE  4
00881  M01S00695.cpcom   +++|***       SYSTEM - REQUEST SYSTEM FUNCTION.
00882  M01S00696.cpcom   +++|*
00883  M01S00157.ns2011  +++|*         SYSTEM REQUEST,RECALL,P1,P2
00884  M01S00697.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00698.ns2011  ---|*         SYSTEM REQUEST,RECALL,P1,P2
00886  M01S00699.cpcom   +++|*         ENTRY  *REQUEST* = 3 CHARACTER SYSTEM REQUEST.
00887  M01S00700.cpcom   +++|*                *P1* = PARAMETER FOR BITS  0 - 17 OF REQUEST.
00888  M01S00701.cpcom   +++|*                *P2* = PARAMETER FOR BITS 18 - 35 OF REQUEST.
00889  M01S00702.cpcom   +++|*         USES   X2.
00890  M01S00158.ns2011  +++|*
00891  M01S00703.cpcom   +++|*         CALLS  SYS=.
00892  M01S00704.cpcom   +++|
00893  M01S00705.cpcom   +++|
00894  M01S00706.cpcom   +++|          PURGMAC SYSTEM
00895  M01S00707.cpcom   +++|
00896  M01S00708.cpcom   +++| SYSTEM   MACRO  C,L,P1,P2
00897  M01S00709.cpcom   +++|  MACREF SYSTEM
00898  M01S00710.cpcom   +++|  QUAL
00899  M01S00711.cpcom   +++|(C) SET 0
00900  M01S00712.cpcom   +++|  QUAL *
00901  M01S00001.ns22000 +++| .1 IFC NE,/L/=/

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

Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00717.ns2011  ---|*                            PROCESS *P2*
00908  M01S00160.ns2011  +++|*         PROCESS *P2*.
00909  M01S00718.cpcom   +++|  IFC NE,$P2$$,3
00910  M01S00719.cpcom   +++|  R= X2,P2
00911  M01S00720.cpcom   +++|  LX2 18D
00912  M01S00721.cpcom   +++|  IX6 X6+X2

Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00722.ns2011  ---|*                            PROCESS *P1*
00914  M01S00161.ns2011  +++|*         PROCESS *P1*.
00915  M01S00723.cpcom   +++|  IFC NE,$P1$$,2
00916  M01S00724.cpcom   +++|  R= X1,P1
00917  M01S00725.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00726.ns2011  ---|*                            PROCESS RECALL REQUEST
00919  M01S00162.ns2011  +++|*         PROCESS RECALL REQUEST.
00920  M01S00727.cpcom   +++|  IFC NE,$L$$,3
00921  M01S00728.cpcom   +++|  MX1 1
00922  M01S00729.cpcom   +++|  LX1 41D
00923  M01S00730.cpcom   +++|  IX6 X6+X1
00924  M01S00731.cpcom   +++|  RJ =XSYS=
00925  M01S00002.ns22000 +++| .1 ENDIF
00926  M01S00732.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00733.ns2011  ---| TIME     SPACE  4
00928  M01S00163.ns2011  +++| TIME     SPACE  4,15
00929  M01S00734.cpcom   +++|***       TIME - REQUEST ACCUMULATED CPU TIME.
00930  M01S00735.cpcom   +++|*
00931  M01S00164.ns2011  +++|*         TIME   STATUS
00932  M01S00736.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00737.ns2011  ---|*         TIME   STATUS
00934  M01S00738.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR TIME RESPONSE.
00935  M01S00165.ns2011  +++|*
00936  M01S00739.cpcom   +++|*         EXIT -
00937  M01S00740.cpcom   +++|*T STATUS 12/  2000B,12/0,24/  SEC,12/  MS

Figure STATUS

00938  M01S00741.cpcom   +++|*         SEC    SECONDS
00939  M01S00742.cpcom   +++|*         MS     MILLISECONDS
00940  M01S00166.ns2011  +++|*
00941  M01S00743.cpcom   +++|*         CALLS  SYS=.
00942  M01S00744.cpcom   +++|
00943  M01S00745.cpcom   +++|
00944  M01S00746.cpcom   +++|          PURGMAC TIME
00945  M01S00747.cpcom   +++|
00946  M01S00748.cpcom   +++| TIME     MACRO  S
00947  M01S00749.cpcom   +++|  MACREF TIME

Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00750.ns2011  ---|*                            FORM TIME (CPU TIME) REQUEST
00949  M01S00167.ns2011  +++|*         FORM TIME (CPU TIME) REQUEST.
00950  M01S00751.cpcom   +++|  SX6 3RTIM
00951  M01S00752.cpcom   +++|  R= X1,S
00952  M01S00753.cpcom   +++|  LX6 42D
00953  M01S00754.cpcom   +++|  BX6 X6+X1
00954  M01S00755.cpcom   +++|  SX1 200000B
00955  M01S00756.cpcom   +++|  LX1 24D
00956  M01S00757.cpcom   +++|  BX6 X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00758.ns2011  ---|*                            PROCESS SYSTEM REQUEST
00958  M01S00168.ns2011  +++|*         PROCESS SYSTEM REQUEST.
00959  M01S00759.cpcom   +++|  RJ =XSYS=
00960  M01S00760.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00761.ns2011  ---| USECPU   SPACE  4
00962  M01S00169.ns2011  +++| USECPU   SPACE  4,10
00963  M01S00762.cpcom   +++|***       USECPU - SET CPU TO BE USED.
00964  M01S00763.cpcom   +++|*
00965  M01S00170.ns2011  +++|*         USECPU N
00966  M01S00764.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00767.ns2011  ---|*                = 1, USE CPU - 0.

Seq #  *Modification Id* Act 
----------------------------+
00970  M02S00768.ns2011  ---|*                = 2, USE CPU - 1.
00971  M01S00171.ns2011  +++|*             =  1, USE CPU - 0.
00972  M01S00172.ns2011  +++|*             =  2, USE CPU - 1.
00973  M01S00769.cpcom   +++|
00974  M01S00770.cpcom   +++|
00975  M01S00771.cpcom   +++|          PURGMAC USECPU
00976  M01S00772.cpcom   +++|
00977  M01S00773.cpcom   +++| USECPU   MACRO  N
00978  M01S00774.cpcom   +++|  MACREF USECPU
00979  M01S00775.cpcom   +++|  R= X1,N
00980  M01S00776.cpcom   +++|  SX2 31B
00981  M01S00777.cpcom   +++|  RJ =XCPM=
00982  M01S00778.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00779.ns2011  ---| USERNUM  SPACE  4
00984  M01S00173.ns2011  +++| USERNUM  SPACE  4,10
00985  M01S00780.cpcom   +++|***       USERNUM - RETURN USER NUMBER.
00986  M01S00781.cpcom   +++|*
00987  M01S00174.ns2011  +++|*         USERNUM STATUS
00988  M01S00782.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00783.ns2011  ---|*         USERNUM STATUS
00990  M01S00784.cpcom   +++|*         ENTRY  *STATUS* = ADDRESS FOR USER NUMBER RETURN.
00991  M01S00175.ns2011  +++|*
00992  M01S00785.cpcom   +++|*         EXIT -
00993  M01S00786.cpcom   +++|*T STATUS 42/ *USERNUM* ,18/0

Figure STATUS

00994  M01S00176.ns2011  +++|*
00995  M01S00787.cpcom   +++|*         CALLS  CPM=.
00996  M01S00788.cpcom   +++|
00997  M01S00789.cpcom   +++|
00998  M01S00790.cpcom   +++|          PURGMAC USERNUM
00999  M01S00791.cpcom   +++|
01000  M01S00792.cpcom   +++| USERNUM  MACRO  A
01001  M01S00793.cpcom   +++|  MACREF USERNUM
01002  M01S00794.cpcom   +++|  R= X1,A
01003  M01S00795.cpcom   +++|  SX2 32B
01004  M01S00796.cpcom   +++|  RJ =XCPM=
01005  M01S00797.cpcom   +++|  ENDM
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  M01S00798.cpcom   +++|          TITLE  FET CREATION MACROS.

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

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

Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00804.ns2011  ---|*                LENGTH = LENGTH OF CIO BUFFER.
01036  M01S00178.ns2011  +++|*                FWA = FIRST WORD ADDRESS OF *CIO* BUFFER.
01037  M01S00179.ns2011  +++|*                LENGTH = LENGTH OF *CIO* BUFFER.
01038  M01S00805.cpcom   +++|*                PN = PARAMETERS FOR FIELDS IN FET.
01039  M01S00806.cpcom   +++|*
01040  M01S00807.cpcom   +++|*         P1 - P5 MAY BE IN ANY ORDER AND ONE OF THE FOLLOWING -
01041  M01S00180.ns2011  +++|*
01042  M01S00181.ns2011  +++|*                (WSA=I,L)
01043  M01S00182.ns2011  +++|*                SET WORKING STORAGE FIELD TO FWA = I, LENGTH = L.
01044  M01S00808.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00809.ns2011  ---|*         (WSA=I,L)

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

Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00812.ns2011  ---|*         (IND=I,L)

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00813.ns2011  ---|*         SET INDEX FIELD TO FWA = I, LENGTH = L.
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  M01S00814.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00815.ns2011  ---|*         (OWN = I,J)

Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00816.ns2011  ---|*         SET OWNCODE EOI ADDRESS = I.

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00817.ns2011  ---|*         SET OWNCODE ERROR EXIT ADDRESS = J.

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00818.ns2011  ---|*         IF J PRESENT, ERROR PROCESSING BIT IS SET.
01061  M01S00189.ns2011  +++|*                (FET=L)
01062  M01S00190.ns2011  +++|*                SET LENGTH OF FET = L.
01063  M01S00819.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00820.ns2011  ---|*         (FET=L)

Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00821.ns2011  ---|*         SET LENGTH OF FET = L.
01066  M01S00191.ns2011  +++|*                (DTY=N)
01067  M01S00192.ns2011  +++|*                SET DEVICE TYPE = N.
01068  M01S00822.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00823.ns2011  ---|*         (DTY=N)

Seq #  *Modification Id* Act 
----------------------------+
01070  M02S00824.ns2011  ---|*         SET DEVICE TYPE = N.
01071  M01S00193.ns2011  +++|*                (DSC = X)
01072  M01S00194.ns2011  +++|*                VALID PARAMETER BUT IGNORED.
01073  M01S00825.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00826.ns2011  ---|*         (DSC = X)

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00827.ns2011  ---|*         VALID PARAMETER BUT IGNORED.
01076  M01S00195.ns2011  +++|*                (EPR)
01077  M01S00196.ns2011  +++|*                SET ERROR PROCESSING BIT.
01078  M01S00828.cpcom   +++|*
01079  M01S00001.ns2599  +++|*                (IPR)
01080  M01S00002.ns2599  +++|*                SET INTERLOCK PROCESSING BIT.
01081  M01S00003.ns2599  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00829.ns2011  ---|*         (EPR)

Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00830.ns2011  ---|*         SET ERROR PROCESSING BIT.
01084  M01S00197.ns2011  +++|*                (LBL)
01085  M01S00198.ns2011  +++|*                SET FET LENGTH TO 13D.
01086  M01S00831.cpcom   +++|*
01087  M01S00001.cpcom6  +++|*                (RTP)
01088  M01S00002.cpcom6  +++|*                SET REAL-TIME BIT.
01089  M01S00004.ns2599  +++|*
01090  M01S00005.ns2599  +++|*                (SAD)
01091  M01S00006.ns2599  +++|*                SET *SUPPRESS ADDRESS ON ERROR MESSAGE* BIT.
01092  M01S00003.cpcom6  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01093  M02S00832.ns2011  ---|*         (LBL)

Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00833.ns2011  ---|*         SET FET LENGTH TO 13D.
01095  M01S00199.ns2011  +++|*                (UPR)
01096  M01S00200.ns2011  +++|*                SET USER PROCESSING BIT.
01097  M01S00834.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00835.ns2011  ---|*         (UPR)

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

Seq #  *Modification Id* Act 
----------------------------+
01103  M02S00838.ns2011  ---|*         (XL)

Seq #  *Modification Id* Act 
----------------------------+
01104  M02S00839.ns2011  ---|*         SET EXTENDED LABEL BIT AND FET LENGTH TO 13D.
01105  M01S00203.ns2011  +++|*         THE FOLLOWING PARAMETERS ARE FOR COMMUNICATION WITH THE
01106  M01S00204.ns2011  +++|*         PERMANENT FILE MANAGER.  REQUIRES *COMSPFM*.
01107  M01S00840.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01108  M02S00841.ns2011  ---|*         THE FOLLOWING PARAMETERS ARE FOR COMUNICATION WITH THE

Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00842.ns2011  ---|*         PERMANENT FILE MANAGER

Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00843.ns2011  ---|*         REQUIRES COMSPFM
01111  M01S00205.ns2011  +++|*                (PFN=PNAME)
01112  M01S00206.ns2011  +++|*                SET PERMANENT FILE NAME *PNAME*.
01113  M01S00844.cpcom   +++|*
01114  M01S00207.ns2011  +++|*                (USN=UNAME)
01115  M01S00208.ns2011  +++|*                SET USER NAME *UNAME*.
01116  M01S00845.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01117  M02S00846.ns2011  ---|*         (PFN=PNAME)

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

Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00849.ns2011  ---|*         (USN=UNAME)

Seq #  *Modification Id* Act 
----------------------------+
01123  M02S00850.ns2011  ---|*         SET USER NAME *UNAME*.
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  M01S00851.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00852.ns2011  ---|*         (PWD=PASWORD)

Seq #  *Modification Id* Act 
----------------------------+
01129  M02S00853.ns2011  ---|*         SET PERMANENT FILE PASSWORD.

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00854.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00855.ns2011  ---|*         (UCW=USERCON)

Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00856.ns2011  ---|*         SET USER CONTROL BITS (BIT 59 MUST BE SET TO INDICATE

Seq #  *Modification Id* Act 
----------------------------+
01133  M02S00857.ns2011  ---|*         WORD CONTAINS USER CONTROL INFORMATION).

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00858.ns2011  ---|*

Seq #  *Modification Id* Act 
----------------------------+
01135  M02S00859.ns2011  ---|*         (PKN = PACKNAM)

Seq #  *Modification Id* Act 
----------------------------+
01136  M02S00860.ns2011  ---|*         SET PERMANENT FILE PACKNAME TO *PACKNAM*.
01137  M01S00214.ns2011  +++|*                (PKN = PACKNAM)
01138  M01S00215.ns2011  +++|*                SET PERMANENT FILE PACKNAME TO *PACKNAM*.
01139  M01S00861.cpcom   +++|
01140  M01S00862.cpcom   +++|
01141  M01S00863.cpcom   +++|*         BASIC FET CREATION MACRO.
01142  M01S00864.cpcom   +++|
01143  M01S00865.cpcom   +++|          PURGMAC =1
01144  M01S00866.cpcom   +++|
01145  M01S00867.cpcom   +++| =1       MACRO  M,R,S,F,B,L,V

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

Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00004.ns2599  ---|  LOCAL FL,UP,EP,RT,XX
01148  M01S00007.ns2599  +++|  LOCAL FL,SA,UP,EP,RT,IP,XX
01149  M01S00869.cpcom   +++|*         FL = FET LENGTH.
01150  M01S00008.ns2599  +++|*         SA = *SUPPRESS ADDRESS* BIT IN FET+1.
01151  M01S00870.cpcom   +++|*         UP = USER PROCESSING BIT IN FET+1.
01152  M01S00871.cpcom   +++|*         EP = ERROR PROCESSING BIT IN FET+1.
01153  M01S00005.cpcom6  +++|*         RT = REAL-TIME BIT IN FET+1.
01154  M01S00009.ns2599  +++|*         IP = INTERLOCK PROCESSING BIT IN FET+1.
01155  M01S00872.cpcom   +++|*         XX = EXTENDED LABEL PROCESSING BIT IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
01156  M02S00873.cpcom3  ---|F VFD 42D/0L_F,16D/,1/M,1/1
01157  M01S00001.cpcom3  +++| F VFD 42D/0L_F,16D/,1/M,1/1
01158  M01S00874.cpcom   +++|*         SET INITIAL FET LENGTH BY RANDOM DETERMINATION.
01159  M01S00875.cpcom   +++|FL SET 3*R+5
01160  M01S00010.ns2599  +++|SA SET 0
01161  M01S00876.cpcom   +++|UP SET 0
01162  M01S00877.cpcom   +++|EP SET 0
01163  M01S00006.cpcom6  +++|RT SET 0
01164  M01S00011.ns2599  +++|IP SET 0
01165  M01S00878.cpcom   +++|XX SET 0
01166  M01S00879.cpcom   +++|*         INITIALIZE VARIOUS MICROS.
01167  M01S00880.cpcom   +++|  ECHO 1,X=(EOI,ERR,INF,INL,WSF,WSL)
01168  M01S00881.cpcom   +++|=1_X MICRO 1,, 0

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

Seq #  *Modification Id* Act 
----------------------------+
01170  M02S00883.cpcom6  ---|,SA)
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)
01173  M01S00012.ns2599  +++|,SN,WSA,IPR,SAD)
01174  M01S00884.cpcom   +++|=1_X MICRO ,
01175  M01S00885.cpcom   +++|*         PROCESS VALUE SPECIFICATIONS.
01176  M01S00886.cpcom   +++|  ECHO 4,P=(V)
01177  M01S00887.cpcom   +++|  IFC NE,  P

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

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

Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00892.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
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  M01S00893.cpcom   +++|  VFD 42D/0,18D/B
01188  M01S00894.cpcom   +++|  VFD 42D/0,18D/B
01189  M01S00895.cpcom   +++|  VFD 42D/0,18D/B+L
01190  M01S00896.cpcom   +++|  IFGE FL,6D,19D
01191  M01S00897.cpcom   +++|  VFD 30D/"=1WSF",30D/"=1WSF"+"=1WSL"
01192  M01S00898.cpcom   +++|  IFGE FL,7D,17D
01193  M01S00899.cpcom   +++|  CON 0
01194  M01S00900.cpcom   +++|  IFGE FL,8D,15D
01195  M01S00901.cpcom   +++|  VFD 24D/0,18D/"=1INL",18D/"=1INF"
01196  M01S00902.cpcom   +++|  IFGE FL,9D,13D
01197  M01S00903.cpcom   +++|  VFD 30D/"=1EOI"+0L"=1PFN",30D/"=1ERR"+0L"=1PFO"
01198  M01S00904.cpcom   +++|  IFGE FL,10D,11D
01199  M01S00905.cpcom   +++|  IFC EQ,$"=1USN"$$
01200  M01S00906.cpcom   +++|  CON 0
01201  M01S00907.cpcom   +++|  ELSE 1
01202  M01S00908.cpcom   +++|  DATA 0L"=1USN"
01203  M01S00909.cpcom   +++|  IFGE FL,11D,6
01204  M01S00910.cpcom   +++|  CON 0L"=1PWD"
01205  M01S00911.cpcom   +++|  IFGE FL,12D,4
01206  M01S00912.cpcom   +++|  CON 0L"=1UCW"
01207  M01S00913.cpcom   +++|  IFGE FL,13D,2
01208  M01S00914.cpcom   +++|  CON 0L"=1PKN"
01209  M01S00915.cpcom   +++|  BSSZ FL-13D
01210  M01S00916.cpcom   +++|  ENDM
01211  M01S00917.cpcom   +++|          SPACE  4,10
01212  M01S00918.cpcom   +++|**        FET CREATION MACRO SUPPORT MACROS.
01213  M01S00919.cpcom   +++|*
01214  M01S00920.cpcom   +++|*         THE FOLLOWING MACROS ARE USED BY THE *=1* MACRO
01215  M01S00921.cpcom   +++|*         TO ASSIST IN GENERATION OF VALUES FOR EACH INDIVIDUAL
01216  M01S00922.cpcom   +++|*         PARAMETER.  THE *=1A* MACRO IS USED TO CALL EACH OF
01217  M01S00923.cpcom   +++|*         THE INDIVIDUAL MACROS THAT GENERATE EACH INDIVIDUAL
01218  M01S00924.cpcom   +++|*         PARAMETER.  THE *=1B* MACRO IS A STENCIL USED BY MOST
01219  M01S00925.cpcom   +++|*         OF THE INDIVIDUAL PARAMETRIC MACROS TO GENERATE VALUES
01220  M01S00926.cpcom   +++|*         REQUIRED BY THE PARAMETER.
01221  M01S00927.cpcom   +++|*
01222  M01S00928.cpcom   +++|*         THE INDIVIDUAL PARAMETRIC MACROS GENERATE MICROS WHICH

Proceed to Part 1