Common COMSEJT

12 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comsejt +++|          CTEXT  COMSEJT - EXECUTING JOB DEFINITIONS.
00002  M01S00002.comsejt +++|          SPACE  4,10
00003  M01S00003.comsejt +++|          BASE   M

Line S00004 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*COMMENT  COMSEJT - EXECUTING JOB DEFINITIONS.

Line S00005 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.comsejt +++|          SPACE  4,10
00008  M01S00007.comsejt +++|***       COMSEJT - EXECUTING JOB DEFINITIONS.
00009  M01S00008.comsejt +++|*
00010  M01S00009.comsejt +++|*         R. M. DANISCH.     81/01/27.
00011  M01S00010.comsejt +++|          SPACE  4,10
00012  M01S00011.comsejt +++|**        COMSEJT DEFINES SYMBOLS USED BY PROGRAMS CONCERNED WITH JOB
00013  M01S00012.comsejt +++|*         CONTROL.
00014  M01S00013.comsejt +++|          SPACE  4,10
00015  M01S00014.comsejt +++|**        JOB STATUS.
00016  M01S00015.comsejt +++|
00017  M01S00016.comsejt +++|
00018  M01S00017.comsejt +++| PRJS     EQU    0           PRE-INITIAL JOB STEP
00019  M01S00018.comsejt +++| EXJS     EQU    1           EXECUTING
00020  M01S00019.comsejt +++| ROJS     EQU    2           SCHEDULER ROLLOUT
00021  M01S00020.comsejt +++| SIJS     EQU    3           SCP ROLLIN
00022  M01S00021.comsejt +++| SOJS     EQU    4           SCP ROLLOUT
00023  M01S00022.comsejt +++| TOJS     EQU    5           TIMED/EVENT ROLLOUT
00024  M01S00023.comsejt +++| IOJS     EQU    6           INTERACTIVE ROLLOUT
00025  M01S00024.comsejt +++| DOJS     EQU    7           DISABLED ROLLOUT
00026  M01S00025.comsejt +++| SUJS     EQU    10          SUSPENDED ROLLOUT

Line S00026 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00026.271l716 ---| ERJS     EQU    11          I/O ERROR ON ROLLOUT FILE

Line S00001 Modification History
`M01` (Added by)	`ns21000`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00001.271l716 ---| NVJS     EQU    12          NVE JOB STATUS

Line S00001 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00001.271l716 ---| PWJS     EQU    13          PRE-INITIAL WAIT JOB STATUS

Line S00027 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns2395`
`M03` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00030  M03S00027.271l716 ---|

Line S00028 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`
`M03` (Updated by)	`ns2395`
`M04` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00031  M04S00028.271l716 ---| MXJS     EQU    12          MAXIMUM JOB STATUS + 1

Line S00002 Modification History
`M01` (Added by)	`ns21000`
`M02` (Updated by)	`242l642`
`M03` (Updated by)	`ns2395`
`M04` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00032  M04S00002.271l716 ---| MXJS     EQU    13          MAXIMUM JOB STATUS+1

Line S00002 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2395`
`M03` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00033  M03S00002.271l716 ---| MXJS     EQU    14          MAXIMUM JOB STATUS+1

Line S00001 Modification History
`M01` (Added by)	`ns2395`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00001.271l716 ---| SWJS     EQU    14          SERVICE LIMIT WAIT JOB STATUS

Line S00002 Modification History
`M01` (Added by)	`ns2395`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00002.271l716 ---| MXJS     EQU    15          MAXIMUM JOB STATUS+1

Line S00029 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00029.271l716 ---|

Line S00030 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`242l642`
`M03` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00037  M03S00030.271l716 ---|*         EQU    12 - 30     RESERVED FOR CDC

Line S00003 Modification History
`M01` (Added by)	`242l642`
`M02` (Updated by)	`ns2395`
`M03` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00038  M03S00003.271l716 ---|*         EQU    14 - 30     RESERVED FOR CDC

Line S00003 Modification History
`M01` (Added by)	`ns2395`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00003.271l716 ---|*         EQU    15-30       RESERVED FOR CDC
00040  M01S00001.271l716 +++| PCJS     EQU    11          PSEUDO-ROLLOUT
00041  M01S00002.271l716 +++|
00042  M01S00003.271l716 +++| RCJS     EQU    11          HIGHEST RECOVERABLE JOB STATUS
00043  M01S00004.271l716 +++|
00044  M01S00005.271l716 +++| ERJS     EQU    12          I/O ERROR ON ROLLOUT FILE
00045  M01S00006.271l716 +++| NVJS     EQU    13          *NVE*
00046  M01S00007.271l716 +++| PWJS     EQU    14          PRE-INITIAL WAIT
00047  M01S00008.271l716 +++| SWJS     EQU    15          SERVICE LIMIT WAIT
00048  M01S00009.271l716 +++| MXJS     EQU    16          MAXIMUM JOB STATUS + 1
00049  M01S00010.271l716 +++|
00050  M01S00011.271l716 +++|*         EQU    16-30       RESERVED FOR CDC
00051  M01S00031.comsejt +++|*         EQU    31 - 37     RESERVED FOR INSTALLATIONS
00052  M01S00032.comsejt +++|          SPACE  4,10
00053  M01S00033.comsejt +++|**        CONNECTION STATUS.
00054  M01S00034.comsejt +++|
00055  M01S00035.comsejt +++|
00056  M01S00036.comsejt +++| NICS     EQU    0           NOT INTERACTIVE
00057  M01S00037.comsejt +++| DTCS     EQU    1           DETACHED
00058  M01S00038.comsejt +++| OLCS     EQU    2           ON-LINE
00059  M01S00039.comsejt +++|
00060  M01S00040.comsejt +++| MXCS     EQU    3           MAXIMUM CONNECTION STATUS + 1
00061  M01S00041.comsejt +++|
00062  M01S00042.comsejt +++|*         EQU    3 - 13      RESERVED FOR CDC
00063  M01S00043.comsejt +++|*         EQU    14 - 17     RESERVED FOR INSTALLATIONS
00064  M01S00044.comsejt +++|          SPACE  4,10
00065  M01S00045.comsejt +++|**        SYSTEM JOB SEQUENCE NUMBER.
00066  M01S00046.comsejt +++|
00067  M01S00047.comsejt +++|
00068  M01S00048.comsejt +++| SJSN     MICRO  1,,*SYS *
00069  M01S00049.comsejt +++|          SPACE  4
00070  M01S00050.comsejt +++|**        EJT RA+1 REQUEST CODES.
00071  M01S00051.comsejt +++|
00072  M01S00052.comsejt +++|

Line S00053 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns2483`

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00053.ns2483  ---|          LIST   G
00074  M01S00054.comsejt +++| BEGIN    BSSN   1
00075  M01S00055.comsejt +++|
00076  M01S00056.comsejt +++| DTEJ     BSSN   1           DETACH JOB
00077  M01S00057.comsejt +++| ENEJ     BSSN   1           ENABLE JOB FOR SCHEDULING
00078  M01S00058.comsejt +++| FJEJ     BSSN   1           FREEZE JOB
00079  M01S00059.comsejt +++| RCEJ     BSSN   1           RECOVER DETACHED JOB
00080  M01S00060.comsejt +++| RSEJ     BSSN   1           RESTART RECOVERED JOB
00081  M01S00061.comsejt +++| RTEJ     BSSN   1           RESET TIMEOUT
00082  M01S00062.comsejt +++| SAEJ     BSSN   1           SET ABORT FLAG
00083  M01S00063.comsejt +++| TJEJ     BSSN   1           TERMINATE JOB
00084  M01S00064.comsejt +++| MXEJ     BSSN   1           MAXIMUM REQUEST VALUE + 1
00085  M01S00065.comsejt +++|          SPACE  4

Line S00066 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns2224`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00066.ns2224  ---| EJPB     EQU    6           PARAMETER BLOCK LENGTH
00087  M01S00001.ns2224  +++| EJPB     EQU    7           PARAMETER BLOCK LENGTH
00088  M01S00067.comsejt +++|          SPACE  4
00089  M01S00068.comsejt +++|**        ERROR RESPONSES FOR EJT RA+1 REQUESTS.
00090  M01S00069.comsejt +++|
00091  M01S00070.comsejt +++|
00092  M01S00071.comsejt +++| BEGIN    BSSN   0
00093  M01S00072.comsejt +++|
00094  M01S00073.comsejt +++| NOER     BSSN   1           NO ERROR
00095  M01S00074.comsejt +++| IEER     BSSN   1           INVALID EJTO
00096  M01S00075.comsejt +++| ISER     BSSN   1           INVALID SERVICE CLASS
00097  M01S00076.comsejt +++| IOER     BSSN   1           INVALID ORIGIN TYPE
00098  M01S00077.comsejt +++| MAER     BSSN   1           MESSAGE BUFFER OUT OF RANGE
00099  M01S00078.comsejt +++| IPER     BSSN   1           INVALID PPI
00100  M01S00079.comsejt +++| JFER     BSSN   1           JOB NOT FOUND
00101  M01S00080.comsejt +++| ERER     BSSN   1           ERROR ON ROLLOUT FILE READ
00102  M01S00081.comsejt +++| NDER     BSSN   1           JOB NOT DISABLED
00103  M01S00082.comsejt +++| ENER     BSSN   1           ENTRY POINT NAME NOT FOUND
00104  M01S00083.comsejt +++| HEER     BSSN   1           HIGHER ERROR FLAG SET
00105  M01S00084.comsejt +++| JDER     BSSN   1           JOB CANNOT BE DETACHED
00106  M01S00085.comsejt +++| NRER     BSSN   1           JOB NOT RECOVERABLE
00107  M01S00086.comsejt +++| DLER     BSSN   1           DETACH LIMIT EXCEEDED
00108  M01S00087.comsejt +++| NTER     BSSN   1           JOB NOT DETACHED
00109  M01S00088.comsejt +++| NSER     BSSN   1           JOB NOT SUSPENDED
00110  M01S00089.comsejt +++| RTER     BSSN   1           RETRY - RESOURCE REJECT OR INTERLOCK
00111  M01S00001.ns22000 +++| SFER     BSSN   1           SERVICE CLASS FULL
00112  M01S00001.ns2091  +++| JOER     BSSN   1           JOB NOT ONLINE CONNECTION STATUS
00113  M01S00001.241l630 +++| SSER     BSSN   1           SYSTEM SOFTWARE ERROR
00114  M01S00001.ns2658  +++| REER     BSSN   1           RECOVERABLE DISK ERROR

Line S00090 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00090.v22l602 ---|

Line S00091 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00091.v22l602 ---| END      BSSN

Line S00092 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00092.v22l602 ---|          LIST   *
00118  M01S00093.comsejt +++|          SPACE  4
00119  M01S00094.comsejt +++|**        REASON CODES FOR DETACH.
00120  M01S00095.comsejt +++|
00121  M01S00096.comsejt +++|

Line S00097 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00097.v22l602 ---| LDRC     EQU    1           LINE DISCONNECT

Line S00098 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00098.v22l602 ---| TORC     EQU    2           TIMEOUT

Line S00099 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00099.v22l602 ---| SARC     EQU    3           SUBSYSTEM ABORT

Line S00100 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`v22l602`

Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00100.v22l602 ---| UDRC     EQU    4           USER DETACH
00126  M01S00001.v22l602 +++| BEGIN    BSSN   1
00127  M01S00002.v22l602 +++|
00128  M01S00003.v22l602 +++| LDRC     BSSN   1           LINE DISCONNECT
00129  M01S00004.v22l602 +++| TORC     BSSN   1           TIMEOUT
00130  M01S00005.v22l602 +++| SARC     BSSN   1           SUBSYSTEM ABORT
00131  M01S00006.v22l602 +++| UDRC     BSSN   1           USER DETACH
00132  M01S00007.v22l602 +++| PDRC     BSSN   1           PROGRAM INITIATED DETACH
00133  M01S00002.241l630 +++| PIDL     BSSN   1           PROGRAM INITIATED DETACH AND LOGOUT
00134  M01S00008.v22l602 +++| MXDT     BSSN   1           MAXIMUM DETACH REASON CODE
00135  M01S00009.v22l602 +++|
00136  M01S00010.v22l602 +++| END      BSSN

Line S00011 Modification History
`M01` (Added by)	`v22l602`
`M02` (Updated by)	`ns2483`

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00011.ns2483  ---|          LIST   *
00138  M01S00101.comsejt +++|          SPACE  4,10
00139  M01S00102.comsejt +++|          BASE   *
00140  M01S00103.comsejt +++|          ENDX
00141  M01S00014.comsejt +++|COMSESS

Line S67154 Modification History
`M01` (Yanked) (Updated by)	`@037319`
`M02` (Yanked) (Added by)	`@019266`
`M03` (Yanked) (Updated by)	`@058641`
`M04` (Yanked) (Updated by)	`@062252`
`M05` (Yanked) (Updated by)	`@016467`
`M06` (Yanked) (Updated by)	`@053454`
`M07` (Yanked) (Added by)	`@009262`
`M08` (Yanked) (Updated by)	`@055075`
`M09` (Yanked) (Updated by)	`@003007`

Seq #  *Modification Id* Act 
----------------------------+
00142  M09S67154.@003007 ---|E

Line S38096 Modification History
`M01` (Yanked) (Updated by)	`@004292`
`M02` (Yanked) (Updated by)	`@056158`
`M03` (Yanked) (Added by)	`@050879`

Seq #  *Modification Id* Act 
----------------------------+
00143  M03S38096.@050879 +++|
00144  M01S00006.comsejt +++|***       COMSESS - ENGINEERING SERVICES SUPPORT DEFINITIONS.
00145  M01S00007.comsejt +++|*         R. L. CLAESON.    75/09/25.
00146  M01S00008.comsejt +++|          SPACE  4,10
00147  M01S00009.comsejt +++|***       COMSESS CONTAINS ALL TAGS REQUIRED BY ENGINEERING SERVICES
00148  M01S00010.comsejt +++|*         SUPPORT TO BE DEFINED IN SCOPE STYLE TAG DEFINITONS IN
00149  M01S00011.comsejt +++|*         CETEXT BUT REQUIRED FOR USE WITHIN THE NOS SYSTEM ITSELF.
00150  M01S00012.comsejt +++|          SPACE  4,10
00151  M01S00013.comsejt +++|          BASE   MIXED
00152  M01S00014.comsejt +++|          SPACE  4,10

Line S00015 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00015.ns21000 ---| CETK     EQU    4000B+1     ECS TRACK RESERVED FOR SEQUENCER

Line S00016 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00016.ns21000 ---| CECSA    SPACE  4,15

Line S00017 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00017.ns21000 ---|***       CECSA - CONVERT ECS ADDRESS FROM A GIVEN TRACK.

Line S00018 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00018.ns21000 ---|*

Line S00019 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00019.ns21000 ---|* TAG     CECSA  TRACK,ROUND

Line S00020 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00020.ns21000 ---|*

Line S00021 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00021.ns21000 ---|*         ENTRY  TRACK = TRACK TO BE CONVERTED BIASED BY 4000B.

Line S00022 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00022.ns21000 ---|*                ROUND = RU100  = ROUND UP BY 100.

Line S00023 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00023.ns21000 ---|*                        RU1000 = ROUND UP BY 1000.

Line S00024 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00024.ns21000 ---|*                        RD100  = ROUND DOWN BY 100.

Line S00025 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00025.ns21000 ---|*                        RD1000 = ROUND DOWN BY 1000.

Line S00026 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00026.ns21000 ---|*

Line S00027 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00027.ns21000 ---|*         EXIT   TAG EQUATED TO ECS ROUNDED ADDRESS IN HUNDREDS.

Line S00028 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00028.ns21000 ---|

Line S00029 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00029.ns21000 ---|

Line S00030 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00030.ns21000 ---|          PURGMAC  CECSA

Line S00031 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00031.ns21000 ---|

Line S00032 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00032.ns21000 ---|          MACRO  CECSA,LOCN,TRACK,ROUND

Line S00033 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00033.ns21000 ---|          LOCAL  A

Line S00034 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00034.ns21000 ---| A        SET    TRACK-4000B

Line S00035 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00035.ns21000 ---|          ERRNG  A

Line S00036 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00036.ns21000 ---| A        SET    A*2020B

Line S00037 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00037.ns21000 ---|

Line S00038 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00038.ns21000 ---| RU100    IFC    EQ,$ROUND$RU100$

Line S00039 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00039.ns21000 ---| A        SET    A+77B

Line S00040 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00040.ns21000 ---| A        SET    A/100B

Line S00041 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00041.ns21000 ---| RU100    ELSE

Line S00042 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00042.ns21000 ---|

Line S00043 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00043.ns21000 ---| RU1000   IFC    EQ,$ROUND$RU1000$

Line S00044 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00044.ns21000 ---| A        SET    A+777B

Line S00045 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00045.ns21000 ---| A        SET    A/1000B*10B

Line S00046 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00046.ns21000 ---| RU1000   ELSE

Line S00047 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00047.ns21000 ---|

Line S00048 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00048.ns21000 ---| RD100    IFC    EQ,$ROUND$RD100$

Line S00049 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00049.ns21000 ---| A        SET    A/100B

Line S00050 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00050.ns21000 ---| RD100    ELSE

Line S00051 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00051.ns21000 ---|

Line S00052 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00052.ns21000 ---| RD1000   IFC    EQ,$ROUND$RD1000$

Line S00053 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00053.ns21000 ---| A        SET    A/1000B*10B

Line S00054 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00054.ns21000 ---| RD1000   ELSE

Line S00055 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00055.ns21000 ---| P        ERR    *ROUND* PARAMETER INCORRECT

Line S00056 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00056.ns21000 ---|          ENDIF

Line S00057 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00057.ns21000 ---| LOCN     EQU    A

Line S00058 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00058.ns21000 ---|          ENDM

Line S00059 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00059.ns21000 ---|          SPACE  4

Line S00060 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00060.ns21000 ---| ECSRA CECSA  CETK,RU1000

Line S00061 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00061.ns21000 ---| ECSFA CECSA  CETK+1,RD1000

Line S00062 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00062.ns21000 ---| ECSFL EQU    ECSFA-ECSRA

Line S00063 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00063.ns21000 ---|          IFLT   ECSFL,10B,1

Line S00064 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00064.ns21000 ---| P        ERR    ECS FL MUST BE 1000B OR GREATER

Line S00065 Modification History
`M01` (Added by)	`comsejt`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00065.ns21000 ---|          SPACE  4,10
00204  M01S00001.ns21000 +++|
00205  M01S00002.ns21000 +++|*         *CETK* DEFINES THE EM TRACK WHEN THE STANDARD TRACK SIZE IS
00206  M01S00003.ns21000 +++|*         USED.  WHEN A LARGER TRACK SIZE IS IN USE, *ECSRA* AND
00207  M01S00004.ns21000 +++|*         *ECSFL* ARE AT THE END OF TRACK ZERO, WHICH IS NORMALLY
00208  M01S00005.ns21000 +++|*         THE LABEL TRACK.  CODE ADDED TO *MSI* CHECKS FOR THIS CASE.
00209  M01S00006.ns21000 +++|
00210  M01S00007.ns21000 +++| CETK     EQU    4001B       EM TRACK FOR SEQUENCER (TRACK SIZE = 20B)
00211  M01S00008.ns21000 +++| ECSRA    EQU    30B
00212  M01S00009.ns21000 +++| ECSFL    EQU    10B
00213  M01S00066.comsejt +++|          BASE   *
00214  M01S00067.comsejt +++|          ENDX