Deck CUESHEL

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.cueshel +++|          IDENT  CUESHEL,FWA
00002  M00S00002.cueshel +++|          ABS
00003  M00S00003.cueshel +++|          ENTRY  CDSHELL
00004  M00S00004.cueshel +++|          ENTRY  RMSHELL
00005  M00S00005.cueshel +++|          ENTRY  RFL=
00006  M00S00006.cueshel +++|          SYSCOM B1
00007  M00S00007.cueshel +++|          TITLE  CUESHEL - CUSTOMIZED USER ENVIRONMENT VALIDATOR.
00008  M00S00008.cueshel +++|*COMMENT  CUESHEL - CUSTOMIZED USER VALIDATOR.

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1982.

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00010.cueshel +++| RMSHELL  SPACE  4,10
00012  M00S00011.cueshel +++| CUESHEL  SPACE  4,10
00013  M00S00012.cueshel +++|***       CUESHEL - CUSTOMIZED USER ENVIRONMENT VALIDATOR.
00014  M00S00013.cueshel +++|*
00015  M00S00014.cueshel +++|*         M. D. LEMBCKE.     81/10/30.
00016  M00S00015.cueshel +++|*         P. A. GILLESBY.    84/10/15.
00017  M00S00016.cueshel +++|
00018  M00S00017.cueshel +++|          SPACE  4,10
00019  M00S00018.cueshel +++|***       CUESHEL - CUSTOMIZED USER ENVIRONMENT VALIDATOR.
00020  M00S00019.cueshel +++|*
00021  M00S00020.cueshel +++|*         *CUESHEL* IS DESIGNED TO ACCOMODATE MULTIPLE SHELL PROGRAMS,
00022  M00S00021.cueshel +++|*         EACH SPECIFIED WITH A SEPARATE ENTRY POINT.
00023  M00S00022.cueshel +++|*
00024  M00S00023.cueshel +++|*         FLAG = 1 IF RMSHELL
00025  M00S00024.cueshel +++|*         FLAG = 2 IF CDSHELL
00026  M00S00025.cueshel +++|*
00027  M00S00026.cueshel +++|*         WHEN A COMMAND IS DETECTED, THE COMMAND WILL BE MATCHED
00028  M00S00027.cueshel +++|*         AGAINST A VALIDATED LIST.  IF A MATCH IS FOUND,
00029  M00S00028.cueshel +++|*         THE VALIDATION BITS WILL BE CHECKED TO ENSURE THE COMMAND
00030  M00S00029.cueshel +++|*         IS VALID FOR THE SHELL PROGRAM SPECIFIED.  IF VALID,
00031  M00S00030.cueshel +++|*         THE COMMAND WILL BE ISSUED TO THE SYSTEM VIA *EXCST*
00032  M00S00031.cueshel +++|*         (WITH A *$* PREFIX TO FORCE SYSTEM LIBRARY LOAD).  IF
00033  M00S00032.cueshel +++|*         NO MATCH IS FOUND BUT *CDSHELL* WAS SELECTED, THE
00034  M00S00033.cueshel +++|*         COMMAND WILL STILL BE ISSUED TO THE SYSTEM.
00035  M00S00034.cueshel +++|*         HOWEVER, IF NO MATCH IS FOUND AND *RMSHELL* WAS
00036  M00S00035.cueshel +++|*         SELECTED, AN ERROR MESSAGE WILL BE ISSUED TO THE
00037  M00S00036.cueshel +++|*         DAYFILE.
00038  M00S00037.cueshel +++|*
00039  M00S00038.cueshel +++|*         THERE ARE FOUR ERRORS THAT WILL CAUSE THE PROGRAM TO
00040  M00S00039.cueshel +++|*         TERMINATE.  THE FIRST IS WHEN THE STATEMENT EXCEEDS SEVEN
00041  M00S00040.cueshel +++|*         CHARACTERS.  SECOND IS NO MATCH; WHERE THE USER IS
00042  M00S00041.cueshel +++|*         UNAUTHORIZED TO USE THE STATEMENT AND/OR THE STATEMENT WAS
00043  M00S00042.cueshel +++|*         NOT RECOGNIZED.  THE THIRD IS WHEN THE COMMAND EXCEEDS
00044  M00S00043.cueshel +++|*         80 CHARACTERS AND THE FOURTH IS WHEN A TERMINATING
00045  M00S00044.cueshel +++|*         DELIMITER IS NOT FOUND WITHIN THE COMMAND PARAMETERS.
00046  M00S00045.cueshel +++|*
00047  M00S00046.cueshel +++|*
00048  M00S00047.cueshel +++|*         NOTES  USB (LINE FOLLOWING CUE1) RETURNS THE LWA OF THE
00049  M00S00048.cueshel +++|*                BUFFER IN REGISTER B7.  THIS VALUE IS NEEDED WHEN
00050  M00S00049.cueshel +++|*                REPACKING THE COMMAND.  ANY MODIFICATIONS SHOULD
00051  M00S00050.cueshel +++|*                AVOID USING B7.
00052  M00S00051.cueshel +++|          SPACE  4,10
00053  M00S00052.cueshel +++|***       DAYFILE ERROR MESSAGES.
00054  M00S00053.cueshel +++|*
00055  M00S00054.cueshel +++|*         * COMMAND KEYWORD TOO LONG.*  THIS MESSAGE WILL BE
00056  M00S00055.cueshel +++|*         ISSUED WHEN THE COMMAND EXCEEDS SEVEN CHARACTERS.
00057  M00S00056.cueshel +++|*

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00057.ns2728  ---|*         * UNAUTHORIZED COMMAND.* THE USER IS LIMITED
00059  M01S00058.ns2728  ---|*         TO WHICH COMMANDS MAY BE USE.  THE MESSAGE IS SENT WHENEVER
00060  M01S00059.ns2728  ---|*         THE COMMAND IS LESS THAN EIGHT CHARACTERS AND DOES
00061  M01S00060.ns2728  ---|*         NOT MATCH AGAINST THE VALIDATED LIST.

Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00001.ns2728  +++|*         * INCORRECT COMMAND.*  THIS MESSAGE IS ISSUED IF ONE OF THE
00063  M01S00002.ns2728  +++|*         *CUESHEL* ENTRY POINTS IS EXECUTED AS A COMMAND RATHER THAN
00064  M01S00003.ns2728  +++|*         AS A SHELL PROCESSOR.
00065  M00S00061.cueshel +++|*

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00062.ns2728  ---|*         * INPUT LINE TOO LONG.*  THIS MESSAGE WILL BE PRINTED TO THE

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00004.ns2728  +++|*         * INPUT LINE TOO LONG.*  THIS MESSAGE WILL BE ISSUED TO THE
00068  M00S00063.cueshel +++|*         DAYFILE WHEN THE COMMAND IS GREATER THAN 80 CHARACTERS.
00069  M00S00064.cueshel +++|*
00070  M00S00065.cueshel +++|*         * NO MATCHING DELIMITER.*  THIS MESSAGE WILL BE
00071  M00S00066.cueshel +++|*         ISSUED WHENEVER A DOLLAR SIGN ($) APPEARS AS A
00072  M00S00067.cueshel +++|*         DELIMITER AND AN ENDING DELIMITER IS NOT FOUND.

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00005.ns2728  +++|*
00074  M01S00006.ns2728  +++|*         * UNAUTHORIZED COMMAND.*  THE USER IS AUTHORIZED TO EXECUTE
00075  M01S00007.ns2728  +++|*         ONLY A LIMITED SUBSET OF COMMANDS.  THIS MESSAGE IS ISSUED
00076  M01S00008.ns2728  +++|*         WHENEVER THE COMMAND IS LESS THAN EIGHT CHARACTERS AND DOES
00077  M01S00009.ns2728  +++|*         NOT MATCH AGAINST THE VALIDATED LIST (*RMSHELL*), OR MATCHES
00078  M01S00010.ns2728  +++|*         AN ENTRY IN THE LIST WHICH IS NOT AUTHORIZED FOR THE ENTRY
00079  M01S00011.ns2728  +++|*         POINT IN USE (*CDSHELL* OR *RMSHELL*).
00080  M00S00068.cueshel +++|
00081  M00S00069.cueshel +++|          SPACE  4,10
00082  M00S00070.cueshel +++|***       COMMON DECKS.
00083  M00S00071.cueshel +++|
00084  M00S00072.cueshel +++|*CALL     COMCCMD
00085  M00S00073.cueshel +++|*CALL     COMCMAC
00086  M00S00074.cueshel +++|          TITLE  MAIN PROGRAM.
00087  M00S00075.cueshel +++|
00088  M00S00076.cueshel +++|          ORG    111B
00089  M00S00077.cueshel +++| FWA      BSS    0
00090  M00S00078.cueshel +++| CDSHELL  SX7    2           SET (X7) TO 2 IF *CDSHELL* PROGRAM
00091  M00S00079.cueshel +++|          EQ     CUESHEL     ENTER MAIN PROGRAM
00092  M00S00080.cueshel +++|
00093  M00S00081.cueshel +++| RMSHELL  SX7    1           SET (X7) TO 1 IF *RMSHELL* PROGRAM
00094  M00S00082.cueshel +++|*         EQ     CUESHEL     ENTER MAIN PROGRAM
00095  M00S00083.cueshel +++|          SPACE  4,10
00096  M00S00084.cueshel +++| CUESHEL  SA7    SHELFLG     SAVE VALUE
00097  M00S00085.cueshel +++|          SB1    1

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00086.ns2728  ---|          SA2    CCDR        FWA OF PACKED DATA = RA + 70

Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00012.ns2728  +++|          GETSHC USBB        CHECK SHELL CONTROLS
00100  M01S00013.ns2728  +++|          SA1    USBB
00101  M01S00014.ns2728  +++|          LX1    59-11
00102  M01S00015.ns2728  +++|          NG     X1,CUE0     IF EXECUTING AS A SHELL
00103  M01S00016.ns2728  +++|          MESSAGE  CUED,0,R  * INCORRECT COMMAND.*
00104  M01S00017.ns2728  +++|          ABORT
00105  M01S00018.ns2728  +++|
00106  M01S00019.ns2728  +++| CUE0     SA2    CCDR        FWA OF PACKED DATA = RA + 70
00107  M00S00087.cueshel +++|          NZ     X2,CUE1     IF INPUT PRESENT
00108  M00S00088.cueshel +++|          RJ     GII         GET INTERACTIVE INPUT

Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00089.cuesh3  ---|          EQ     B7,B1,CUE23 IF NO INPUT

Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00001.cuesh3  +++|          EQ     B7,B1,CUE22 IF NO INPUT
00111  M00S00090.cueshel +++|
00112  M00S00091.cueshel +++|*         UNPACK INPUT STRING INTO BUFFER.  THEN CHECK FIRST NON-BLANK
00113  M00S00092.cueshel +++|*         CHARACTER.  IF IT IS A $, REPLACE IT WITH A BLANK.
00114  M00S00093.cueshel +++|
00115  M00S00094.cueshel +++| CUE1     SB2    CCDR
00116  M00S00095.cueshel +++|          RJ     USB         UNPACKS 1 CHARACTER/WORD RIGHT JUSTIFIED
00117  M00S00096.cueshel +++|          SB3    -1
00118  M00S00097.cueshel +++|          SB5    B7-USBB+1   MAXIMUM CHARACTER INDEX
00119  M00S00098.cueshel +++| CUE2     SB3    B3+1
00120  M00S00099.cueshel +++|          SA2    USBB+B3

Seq #  *Modification Id* Act 
----------------------------+
00121  M01S00100.cuesh3  ---|          GE     B3,B5,CUE23 IF INPUT IS ALL BLANKS

Seq #  *Modification Id* Act 
----------------------------+
00122  M01S00002.cuesh3  +++|          GE     B3,B5,CUE22 IF INPUT IS ALL BLANKS
00123  M00S00101.cueshel +++|          SX3    X2-1R
00124  M00S00102.cueshel +++|          ZR     X3,CUE2     IF A BLANK
00125  M00S00103.cueshel +++|          SX3    X2-1R$
00126  M00S00104.cueshel +++|          SB3    B3-1
00127  M00S00105.cueshel +++|          NZ     X3,CUE4     IF NOT *$*
00128  M00S00106.cueshel +++|          SX6    1R
00129  M00S00107.cueshel +++|          SA6    A2+         REPLACE *$* WITH BLANK
00130  M00S00108.cueshel +++|
00131  M00S00109.cueshel +++|*         CHECK FOR EXISTING TERMINATOR TO DETERMINE IF ONE
00132  M00S00110.cueshel +++|*         MUST BE ADDED.
00133  M00S00111.cueshel +++|
00134  M00S00112.cueshel +++| CUE4     SB3    B3+1
00135  M00S00113.cueshel +++|          SA2    USBB+B3     GET NEXT CHARACTER
00136  M00S00114.cueshel +++|          GE     B3,B5,CUE5  IF AT END OF COMMAND
00137  M00S00115.cueshel +++|          SX3    X2-1R)
00138  M00S00116.cueshel +++|          ZR     X3,CUE8     IF TERMINATOR FOUND
00139  M00S00117.cueshel +++|          SX3    X2-1R.
00140  M00S00118.cueshel +++|          ZR     X3,CUE8     IF TERMINATOR FOUND
00141  M00S00119.cueshel +++|          SX3    X2-1R$
00142  M00S00120.cueshel +++|          ZR     X3,CUE6     IF *$* DELIMITER FOUND
00143  M00S00121.cueshel +++|          EQ     CUE4        CHECK NEXT CHARACTER
00144  M00S00122.cueshel +++|
00145  M00S00123.cueshel +++| CUE5     SA5    RI
00146  M00S00124.cueshel +++|          ZR     X5,CUE8     IF INPUT RECEIVED FROM SYSTEM
00147  M00S00125.cueshel +++|          SX6    1R.         APPEND *.* TO INTERACTIVE INPUT
00148  M00S00126.cueshel +++|          SB7    B7+B1
00149  M00S00127.cueshel +++|          SA6    B7
00150  M00S00128.cueshel +++|          EQ     CUE8        PACK COMMAND
00151  M00S00129.cueshel +++|
00152  M00S00130.cueshel +++|*         LOOK FOR MATCHING *$*.
00153  M00S00131.cueshel +++|
00154  M00S00132.cueshel +++| CUE6     SB3    B3+1
00155  M00S00133.cueshel +++|          SA2    USBB+B3     CHECK NEXT CHARACTER
00156  M00S00134.cueshel +++|          LE     B3,B5,CUE7  IF NOT END OF COMMAND
00157  M00S00135.cueshel +++|          SX7    CUEC        *NO MATCHING DELIMITER.*
00158  M00S00136.cueshel +++|          SA5    RI
00159  M00S00137.cueshel +++|          ZR     X5,CUE15    IF INPUT RECEIVED FROM SYSTEM
00160  M00S00138.cueshel +++|          SX6    1R.         APPEND *.* TO INTERACTIVE INPUT
00161  M00S00139.cueshel +++|          SB7    B7+B1
00162  M00S00140.cueshel +++|          SA6    B7
00163  M00S00141.cueshel +++|          EQ     CUE15       SET ERROR AND COMPLETE
00164  M00S00142.cueshel +++|
00165  M00S00143.cueshel +++| CUE7     SX3    X2-1R$
00166  M00S00144.cueshel +++|          ZR     X3,CUE4     IF MATCHING DELIMITER FOUND
00167  M00S00145.cueshel +++|          EQ     CUE6        CHECK NEXT CHARACTER
00168  M00S00146.cueshel +++|

Seq #  *Modification Id* Act 
----------------------------+
00169  M01S00147.cuesh3  ---|*         PACK TOGETHER THE COMMAND AND CHECK FOR *BYE*.

Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00003.cuesh3  +++|*         PACK COMMAND TOGETHER.
00171  M00S00148.cueshel +++|
00172  M00S00149.cueshel +++| CUE8     SB6    B0+         SET NO ERROR
00173  M00S00150.cueshel +++|          SA2    CTRLC
00174  M00S00151.cueshel +++|          BX3    X3-X3
00175  M00S00152.cueshel +++|          SB3    0           SET CHARACTER COUNTER
00176  M00S00153.cueshel +++|          SB4    7           SET MAXIMUM CHARACTERS PER COMMAND
00177  M00S00154.cueshel +++| CUE9     SA2    A2+1
00178  M00S00155.cueshel +++|          SX6    X2-1R
00179  M00S00156.cueshel +++|          ZR     X6,CUE9     IF CHARACTER = BLANK
00180  M00S00157.cueshel +++|          SX6    X2-1R+
00181  M00S00158.cueshel +++|          PL     X6,CUE10    IF SEPARATOR FOUND
00182  M00S00159.cueshel +++|          SB3    B3+1
00183  M00S00160.cueshel +++|          SB4    B4-1        DECREASE CHARACTER COUNT
00184  M00S00161.cueshel +++|          SX7    CUEA        *COMMAND KEYWORD TOO LONG.*
00185  M00S00162.cueshel +++|          NG     B4,CUE15    IF MAXIMUM LENGTH EXCEEDED
00186  M00S00163.cueshel +++|          LX3    6
00187  M00S00164.cueshel +++|          BX3    X3+X2       APPEND CHARACTER TO COMMAND
00188  M00S00165.cueshel +++|          EQ     CUE9        GET NEXT CHARACTER
00189  M00S00166.cueshel +++|
00190  M00S00167.cueshel +++| CUE10    SB4    10          LEFT JUSTIFY CONTROL STATEMENT
00191  M00S00168.cueshel +++|          SX2    6
00192  M00S00169.cueshel +++|          SX4    B4-B3       CHARACTER POSITIONS TO SHIFT
00193  M00S00170.cueshel +++|          IX4    X4*X2       BITS TO SHIFT
00194  M00S00171.cueshel +++|          SB4    X4
00195  M00S00172.cueshel +++|          LX6    X3,B4
00196  M00S00173.cueshel +++|          SA6    PCS

Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00174.cuesh3  ---|          SA5    BYECMD
00198  M01S00175.cuesh3  ---|          IX5    X5-X6
00199  M01S00176.cuesh3  ---|          ZR     X5,CUE22    IF USER ISSUED *BYE* COMMAND
00200  M00S00177.cueshel +++|
00201  M00S00178.cueshel +++|*         DO A BINARY TREE SEARCH TO FIND STATEMENT WITHIN THE LIST.
00202  M00S00179.cueshel +++|
00203  M00S00180.cueshel +++|          SX3    CMDSL       LENGTH OF LIST TO CHECK (MAX)
00204  M00S00181.cueshel +++|          SX0    B1
00205  M00S00182.cueshel +++|          IX4    X3+X0       ADD IN ROUND UP FACTOR
00206  M00S00183.cueshel +++|          AX4    1           X4 = (MAX/2)   ROUNDED UP
00207  M00S00184.cueshel +++|          BX5    X4          X5 = CURRENT POSITION IN LIST (CUR)
00208  M00S00185.cueshel +++|          SA1    PCS         X1 = PACKED CONTROL WORD
00209  M00S00186.cueshel +++| CUE11    SA2    X5+CMDS     GET COMMAND AND VALIDATION BITS
00210  M00S00187.cueshel +++|          MX0    42          MASK OFF COMMAND ONLY
00211  M00S00188.cueshel +++|          BX2    X0*X2
00212  M00S00189.cueshel +++|          IX2    X2-X1
00213  M00S00190.cueshel +++|          IX4    X3-X5       HOW MANY POSITIONS LEFT TO CHECK (MAX-CUR)
00214  M00S00191.cueshel +++|          ZR     X2,CUE14    IF COMMAND MATCH FOUND IN TABLE
00215  M00S00192.cueshel +++|          NZ     X4,CUE12    IF MORE ENTRIES IN TABLE TO CHECK
00216  M00S00193.cueshel +++|          SB3    2
00217  M00S00194.cueshel +++|          SA2    SHELFLG
00218  M00S00195.cueshel +++|          SB4    X2
00219  M00S00196.cueshel +++|          EQ     B3,B4,CUE16 IF *CDSHELL* AND NOT IN TABLE
00220  M00S00197.cueshel +++|          SX7    CUEB        *UNAUTHORIZED COMMAND.*
00221  M00S00198.cueshel +++|          EQ     CUE15       IF ERROR
00222  M00S00199.cueshel +++| CUE12    SX0    B1
00223  M00S00200.cueshel +++|          IX4    X4+X0       ADD IN ROUND-UP FACTOR
00224  M00S00201.cueshel +++|          AX4    1           (MAX-CUR)/2 HALF THE AMOUNT LEFT TO CHECK
00225  M00S00202.cueshel +++|          PL     X2,CUE13    IF POSITIVE, SKIPPED AHEAD TOO FAR
00226  M00S00203.cueshel +++|          IX5    X5+X4       SEARCH AHEAD     CUR+((MAX-CUR)/2)
00227  M00S00204.cueshel +++|          EQ     CUE11       CHECK NEXT CALCULATED ENTRY IN THE LIST
00228  M00S00205.cueshel +++|
00229  M00S00206.cueshel +++| CUE13    BX3    X5          NUMBER COMMANDS LEFT TO CHECK (MAX=CUR)
00230  M00S00207.cueshel +++|          IX5    X5-X4       SEARCH BACKWARDS HALFWAY OF WHAT IS LEFT
00231  M00S00208.cueshel +++|          EQ     CUE11       CHECK NEXT CALCULATED ENTRY IN THE LIST
00232  M00S00209.cueshel +++|
00233  M00S00210.cueshel +++|*         DETERMINE IF COMMAND IS VALIDATED FOR THE SHELL PROGRAM
00234  M00S00211.cueshel +++|*         SPECIFIED.
00235  M00S00212.cueshel +++|
00236  M00S00213.cueshel +++| CUE14    SA2    A2          RESET COMMAND AT CURRENT POSITION
00237  M00S00214.cueshel +++|          SA3    SHELFLG     RETRIEVE SHELL FLAG
00238  M00S00215.cueshel +++|          BX2    X3*X2
00239  M00S00216.cueshel +++|          NZ     X2,CUE16    IF VALID COMMAND
00240  M00S00217.cueshel +++|          SX7    CUEB        *UNAUTHORIZED COMMAND.*
00241  M00S00218.cueshel +++|
00242  M00S00219.cueshel +++|*         STORE APPROPRIATE ERROR MESSAGE AND SET ERROR FLAG.
00243  M00S00220.cueshel +++|
00244  M00S00221.cueshel +++| CUE15    SA7    ERRM
00245  M00S00222.cueshel +++|          SB6    1
00246  M00S00223.cueshel +++|
00247  M00S00224.cueshel +++|*         REPACK COMMAND WITH *$* PREFIX AND CALL *EXCST*.
00248  M00S00225.cueshel +++|
00249  M00S00226.cueshel +++| CUE16    SA1    CTRLC-1     B7 = LWA IN *USBB*  (SET BY *COMCUSB*)

Seq #  *Modification Id* Act 
----------------------------+
00250  M01S00227.cuesh1  ---|          SB4    B0+         B4 = COUNT NUMBER OF WORDS REPACKED

Seq #  *Modification Id* Act 
----------------------------+
00251  M01S00001.cuesh1  +++|          SB4    B0          B4 = COUNT OF WORDS REPACKED
00252  M01S00002.cuesh1  +++|          SB2    B0
00253  M00S00228.cueshel +++| CUE17    SX6    B0+         INITIALIZE EMPTY WORD
00254  M00S00229.cueshel +++|          SB3    10          B3 = NUMBER CHARACTERS PER WORD (0-9)
00255  M00S00230.cueshel +++| CUE18    SA1    A1+B1       GET NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00256  M01S00003.cuesh1  +++|          SX3    X1-1R$
00257  M01S00004.cuesh1  +++|          ZR     X3,CUE18.1  IF CHARACTER IS *$*
00258  M01S00005.cuesh1  +++|          NZ     B2,CUE18.1  IF HAVE FOUND FIRST NON-BLANK
00259  M01S00006.cuesh1  +++|          SX3    X1-1R
00260  M01S00007.cuesh1  +++|          ZR     X3,CUE18    IF CHARACTER IS BLANK
00261  M01S00008.cuesh1  +++|          SB2    1           SET B2 TO INDICATE FIRST NON-BLANK

Seq #  *Modification Id* Act 
----------------------------+
00262  M01S00231.cuesh1  ---|          LX6    6

Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00009.cuesh1  +++| CUE18.1  LX6    6
00264  M00S00232.cueshel +++|          BX6    X6+X1       APPEND CHARACTER
00265  M00S00233.cueshel +++|          SB5    A1          B5 = CURRENT ADDRESS IN *USBB*
00266  M00S00234.cueshel +++|          EQ     B5,B7,CUE19 IF END OF BUFFER
00267  M00S00235.cueshel +++|          SB3    B3-1
00268  M00S00236.cueshel +++|          NZ     B3,CUE18    IF CURRENT WORD NOT YET FULL
00269  M00S00237.cueshel +++|          SA6    MCCDR+B4    STORE FULL WORD
00270  M00S00238.cueshel +++|          SB4    B4+1        INCREASE WORD COUNT
00271  M00S00239.cueshel +++|          EQ     CUE17       PROCESS UNTIL LWA OF BUFFER IS REACHED
00272  M00S00240.cueshel +++|
00273  M00S00241.cueshel +++| CUE19    SX2    B3-B1       LEFT JUSTIFY LAST WORD OF COMMAND
00274  M00S00242.cueshel +++|          SX3    6
00275  M00S00243.cueshel +++|          IX2    X2*X3
00276  M00S00244.cueshel +++|          SB2    X2
00277  M00S00245.cueshel +++|          LX6    B2
00278  M00S00246.cueshel +++|          SA6    MCCDR+B4
00279  M00S00247.cueshel +++|          NZ     B6,CUE20    IF ERROR FLAG SET
00280  M00S00248.cueshel +++|          EXCST  MCCDR       PASS MODIFIED COMMAND TO SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00249.cuesh3  ---|          EQ     CUE23       EXIT

Seq #  *Modification Id* Act 
----------------------------+
00282  M01S00004.cuesh3  +++|          EQ     CUE22       EXIT
00283  M00S00250.cueshel +++|
00284  M00S00251.cueshel +++|*         ISSUE ERROR MESSAGE.
00285  M00S00252.cueshel +++|
00286  M00S00253.cueshel +++| CUE20    SA5    ERRM
00287  M00S00254.cueshel +++|          SA2    RI
00288  M00S00255.cueshel +++|          ZR     X2,CUE21    IF NO REQUESTED INPUT
00289  M00S00256.cueshel +++|          WRITEW OUTPUT,X5,3
00290  M00S00257.cueshel +++|          WRITER OUTPUT,R

Seq #  *Modification Id* Act 
----------------------------+
00291  M01S00258.ns2728  ---| CUE21    MESSAGE  MCCDR,3,R
00292  M01S00259.ns2728  ---|          MESSAGE  X5,3,R

Seq #  *Modification Id* Act 
----------------------------+
00293  M01S00020.ns2728  +++| CUE21    SX0    CUEB
00294  M01S00021.ns2728  +++|          BX0    X0-X5
00295  M01S00022.ns2728  +++|          ZR     X0,CUE21.1  IF *UNAUTHORIZED COMMAND*
00296  M01S00023.ns2728  +++|          SX0    3
00297  M01S00024.ns2728  +++| CUE21.1  MESSAGE  MCCDR,X0,R
00298  M01S00025.ns2728  +++|          MESSAGE  X5,X0,R
00299  M00S00260.cueshel +++|          ABORT
00300  M00S00261.cueshel +++|

Seq #  *Modification Id* Act 
----------------------------+
00301  M01S00262.cuesh3  ---|*         LOG USER OFF THE TERMINAL.
00302  M01S00263.cuesh3  ---|
00303  M01S00264.cuesh3  ---| CUE22    RJ     SUT         SET UP TERMINAL
00304  M01S00265.cuesh3  ---|          WRITEW OUTPUT,LOTOUT,1
00305  M01S00266.cuesh3  ---|          WRITER OUTPUT,R
00306  M01S00267.cuesh3  ---|
00307  M01S00268.cuesh3  ---| CUE23    ENDRUN

Seq #  *Modification Id* Act 
----------------------------+
00308  M01S00005.cuesh3  +++| CUE22    ENDRUN
00309  M00S00269.cueshel +++|
00310  M00S00270.cueshel +++|*         ERROR MESSAGE DATA.
00311  M00S00271.cueshel +++|
00312  M00S00272.cueshel +++| CUEA     DATA     C* COMMAND KEYWORD TOO LONG.*
00313  M00S00273.cueshel +++| CUEB     DATA     C* UNAUTHORIZED COMMAND.*
00314  M00S00274.cueshel +++| CUEC     DATA     C* NO MATCHING DELIMITER.*

Seq #  *Modification Id* Act 
----------------------------+
00315  M01S00026.ns2728  +++| CUED     DATA     C* INCORRECT COMMAND.*
00316  M00S00275.cueshel +++|          TITLE  SUBROUTINES.
00317  M00S00276.cueshel +++| GII      SPACE    4,15
00318  M00S00277.cueshel +++|***       GII - GET INTERACTIVE INPUT.
00319  M00S00278.cueshel +++|*
00320  M00S00279.cueshel +++|*         CALLED TO PROMPT AND GET A SINGLE INPUT LINE.
00321  M00S00280.cueshel +++|*
00322  M00S00281.cueshel +++|*         ENTRY  CCDR = ADDRESS OF 8-WORD AREA.
00323  M00S00282.cueshel +++|*
00324  M00S00283.cueshel +++|*         EXIT   CCDR = INPUT LINE.
00325  M00S00284.cueshel +++|*                CCDR = 0 IF EOR/EOF/EOI.
00326  M00S00285.cueshel +++|*                (B7) = 1 IF ENDRUN REQUIRED.
00327  M00S00286.cueshel +++|*
00328  M00S00287.cueshel +++|*         USES   X - 2, 6, 7.
00329  M00S00288.cueshel +++|*                A - 2, 6, 7.
00330  M00S00289.cueshel +++|*                B - 7.
00331  M00S00290.cueshel +++|*
00332  M00S00291.cueshel +++|*         CALLS  SUT.
00333  M00S00292.cueshel +++|*
00334  M00S00293.cueshel +++|*         MACROS CSET, MESSAGE, PROMPT, READ, READW, WRITER, WRITEW.
00335  M00S00294.cueshel +++|
00336  M00S00295.cueshel +++|
00337  M00S00296.cueshel +++| GII1     SB7    B1+         FLAG TO END-RUN
00338  M00S00297.cueshel +++|
00339  M00S00298.cueshel +++| GII      SUBR
00340  M00S00299.cueshel +++|          CSET   NORMAL
00341  M00S00300.cueshel +++|          RJ     SUT         SET UP TERMINAL
00342  M00S00301.cueshel +++|          SX6    B0
00343  M00S00302.cueshel +++|          SA6    CCDR        ZERO FIRST AND LAST WORD OF BUFFER
00344  M00S00303.cueshel +++|          SA6    CCDR+8
00345  M00S00304.cueshel +++|          SX7    B1
00346  M00S00305.cueshel +++|          SA7    RI          SET FLAG FOR THE REQUESTED INPUT
00347  M00S00306.cueshel +++|          PROMPT OFF         TURN OFF AUTO PROMPT
00348  M00S00307.cueshel +++|          WRITEW OUTPUT,OUT,1  WRITE PROMPT
00349  M00S00308.cueshel +++|          READ   INPUT,R     GET INPUT LINE
00350  M00S00309.cueshel +++|          READW  INPUT,CCDR,9
00351  M00S00310.cueshel +++|          CSET   RESTORE
00352  M00S00311.cueshel +++|          SB7    B0+
00353  M00S00312.cueshel +++|          SA2    CCDR
00354  M00S00313.cueshel +++|          ZR     X2,GII1     IF NO INPUT DATA
00355  M00S00314.cueshel +++|          SA2    CCDR+8
00356  M00S00315.cueshel +++|          ZR     X2,GIIX     IF NOT TOO MUCH DATA
00357  M00S00316.cueshel +++|          MESSAGE  CCDR,3,R  ISSUE ERROR MESSAGE AND ENDRUN
00358  M00S00317.cueshel +++|          MESSAGE  GIIA,3,R
00359  M00S00318.cueshel +++|          WRITEW OUTPUT,GIIA,3
00360  M00S00319.cueshel +++|          WRITER OUTPUT,R
00361  M00S00320.cueshel +++|          EQ     GII1        SET FLAG TO REQUIRE ENDRUN
00362  M00S00321.cueshel +++|
00363  M00S00322.cueshel +++| GIIA     DATA     C* INPUT LINE TOO LONG.*
00364  M00S00323.cueshel +++| SUT      SPACE    4,15
00365  M00S00324.cueshel +++|***       SUT - SET UP TERMINAL.
00366  M00S00325.cueshel +++|*
00367  M00S00326.cueshel +++|*         SETS UP THE LIST-OF-FILES FOR *OUTPUT*.
00368  M00S00327.cueshel +++|*         SUT CAN ONLY BE CALLED FOR AN INTERACTIVE JOB; IT VERIFIES
00369  M00S00328.cueshel +++|*         THAT FILES *INPUT* AND *OUTPUT* HAVE DEVICE TYPE *TT*
00370  M00S00329.cueshel +++|*         BY RETURNING THEM.
00371  M00S00330.cueshel +++|*         ONLY THE FIRST CALL TO SUT IS ACTED UPON.
00372  M00S00331.cueshel +++|*
00373  M00S00332.cueshel +++|*         USES   X - 1, 6.
00374  M00S00333.cueshel +++|*                A - 1, 6.
00375  M00S00334.cueshel +++|*
00376  M00S00335.cueshel +++|*         MACROS RETURN, SETLOF.
00377  M00S00336.cueshel +++|
00378  M00S00337.cueshel +++|
00379  M00S00338.cueshel +++| SUT      SUBR
00380  M00S00339.cueshel +++|          SA1    LOFF        CHECK FOR LIST OF FILES ALREADY PRESENT
00381  M00S00340.cueshel +++|          NZ     X1,SUTX     IF ALREADY SET UP, RETURN
00382  M00S00341.cueshel +++|          MX6    1           SET LIST OF FILES PRESENT FLAG
00383  M00S00342.cueshel +++|          SA6    A1
00384  M00S00343.cueshel +++|          RETURN INPUT,R     RETURN FILES
00385  M00S00344.cueshel +++|          RETURN OUTPUT,R
00386  M00S00345.cueshel +++|          SA1    OUTPUT      CLEAR FET STATUS
00387  M00S00346.cueshel +++|          MX6    49
00388  M00S00347.cueshel +++|          LX6    1
00389  M00S00348.cueshel +++|          BX6    X6*X1
00390  M00S00349.cueshel +++|          SA6    A1
00391  M00S00350.cueshel +++|          MX6    1           SET FLUSH BIT
00392  M00S00351.cueshel +++|          LX6    36+1
00393  M00S00352.cueshel +++|          SA1    OUTPUT+1
00394  M00S00353.cueshel +++|          BX6    X6+X1
00395  M00S00354.cueshel +++|          SA6    A1
00396  M00S00355.cueshel +++|          SETLOF LOFP        SET LIST-OF-FILES
00397  M00S00356.cueshel +++|          EQ     SUTX        RETURN
00398  M00S00357.cueshel +++|          SPACE  4,10
00399  M00S00358.cueshel +++|***       COMMON DECKS.
00400  M00S00359.cueshel +++|
00401  M00S00360.cueshel +++|*         BUFFER FOR *COMCUSB*.  *CTRLC* MUST BE JUST BEFORE *USBB*.
00402  M00S00361.cueshel +++|
00403  M00S00362.cueshel +++| CTRLC    DATA   1R$         CONTROL CARD BUFFER
00404  M00S00363.cueshel +++| USBB     BSSZ   81          USED IN COMCUSB TO UNPACK STRING OF CHARS
00405  M00S00364.cueshel +++|
00406  M00S00365.cueshel +++|*CALL     COMCCIO
00407  M00S00366.cueshel +++|*CALL     COMCCPM
00408  M00S00367.cueshel +++|*CALL     COMCRDH
00409  M00S00368.cueshel +++|*CALL     COMCRDW
00410  M00S00369.cueshel +++|*CALL     COMCSYS
00411  M00S00370.cueshel +++|*CALL     COMCUSB
00412  M00S00371.cueshel +++|*CALL     COMCWTW
00413  M00S00372.cueshel +++|          TITLE  TABLES AND BUFFERS.
00414  M00S00373.cueshel +++| CMDS     SPACE  4,10
00415  M00S00374.cueshel +++|**        CMDS - TABLE OF VALID COMMANDS.
00416  M00S00375.cueshel +++|*
00417  M00S00376.cueshel +++|*T        42/COMMAND,16/0,1/C,1/R

Figure

00418  M00S00377.cueshel +++|*
00419  M00S00378.cueshel +++|*         COMMAND = COMMAND NAME.
00420  M00S00379.cueshel +++|*         C = 1 IF CDSHELL COMMAND.
00421  M00S00380.cueshel +++|*         R = 1 IF RMSHELL COMMAND.
00422  M00S00381.cueshel +++|*
00423  M00S00382.cueshel +++|*         NOTE - THIS TABLE MUST BE IN ALPHABETICAL ORDER.
00424  M00S00383.cueshel +++|
00425  M00S00384.cueshel +++|
00426  M00S00385.cueshel +++| CMDS     BSS    0
00427  M00S00386.cueshel +++|          VFD    42/0LACCESS,16/0,1/1,1/0
00428  M00S00387.cueshel +++|          VFD    42/0LALGOL5,16/0,1/0,1/0
00429  M00S00388.cueshel +++|          VFD    42/0LALX,16/0,1/0,1/1
00430  M00S00389.cueshel +++|          VFD    42/0LAPEX,16/0,1/0,1/0
00431  M00S00390.cueshel +++|          VFD    42/0LAPL,16/0,1/0,1/0
00432  M00S00391.cueshel +++|          VFD    42/0LAPPEND,16/0,1/1,1/0
00433  M00S00392.cueshel +++|          VFD    42/0LAP1,16/0,1/0,1/1
00434  M00S00393.cueshel +++|          VFD    42/0LASCII,16/0,1/1,1/0
00435  M00S00394.cueshel +++|          VFD    42/0LASSIGN,16/0,1/1,1/1
00436  M00S00395.cueshel +++|          VFD    42/0LATTACH,16/0,1/1,1/1

Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00396.cuesh4  ---|          VFD    42/0LAUTO,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00001.cuesh4  +++|          VFD    42/0LAUTO,16/0,1/1,1/1
00439  M00S00397.cueshel +++|          VFD    42/0LBASIC,16/0,1/0,1/0

Seq #  *Modification Id* Act 
----------------------------+
00440  M01S00002.cuesh4  +++|          VFD    42/0LBATCH,16/0,1/1,1/1
00441  M00S00398.cueshel +++|          VFD    42/0LBEGIN,16/0,1/1,1/1
00442  M00S00399.cueshel +++|          VFD    42/0LBINDER,16/0,1/1,1/0
00443  M00S00400.cueshel +++|          VFD    42/0LBKSP,16/0,1/1,1/0
00444  M00S00401.cueshel +++|          VFD    42/0LBLANK,16/0,1/1,1/0
00445  M00S00402.cueshel +++|          VFD    42/0LBRIEF,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00446  M01S00006.cuesh3  +++|          VFD    42/0LBYE,16/0,1/1,1/1
00447  M00S00403.cueshel +++|          VFD    42/0LCATALOG,16/0,1/1,1/1
00448  M00S00404.cueshel +++|          VFD    42/0LCATLIST,16/0,1/1,1/1
00449  M00S00405.cueshel +++|          VFD    42/0LCD2UTIL,16/0,1/1,1/0
00450  M00S00406.cueshel +++|          VFD    42/0LCD2000,16/0,1/1,1/0
00451  M00S00407.cueshel +++|          VFD    42/0LCFO,16/0,1/1,1/0
00452  M00S00408.cueshel +++|          VFD    42/0LCHANGE,16/0,1/1,1/1
00453  M00S00409.cueshel +++|          VFD    42/0LCHARGE,16/0,1/1,1/1
00454  M00S00410.cueshel +++|          VFD    42/0LCHVAL,16/0,1/1,1/0
00455  M00S00411.cueshel +++|          VFD    42/0LCKP,16/0,1/1,1/0
00456  M00S00412.cueshel +++|          VFD    42/0LCLASS,16/0,1/1,1/0
00457  M00S00413.cueshel +++|          VFD    42/0LCLEAR,16/0,1/1,1/1
00458  M00S00414.cueshel +++|          VFD    42/0LCOBOL5,16/0,1/0,1/0
00459  M00S00415.cueshel +++|          VFD    42/0LCOMMENT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00460  M01S00416.cuesh2  ---|          VFD    42/0LCOMMON,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00461  M01S00001.cuesh2  +++|          VFD    42/0LCOMMON,16/0,1/0,1/0
00462  M00S00417.cueshel +++|          VFD    42/0LCOMPASS,16/0,1/0,1/0
00463  M00S00418.cueshel +++|          VFD    42/0LCOPY,16/0,1/1,1/1
00464  M00S00419.cueshel +++|          VFD    42/0LCOPYBF,16/0,1/1,1/1
00465  M00S00420.cueshel +++|          VFD    42/0LCOPYBR,16/0,1/1,1/1
00466  M00S00421.cueshel +++|          VFD    42/0LCOPYCF,16/0,1/1,1/1
00467  M00S00422.cueshel +++|          VFD    42/0LCOPYCR,16/0,1/1,1/1
00468  M00S00423.cueshel +++|          VFD    42/0LCOPYEI,16/0,1/1,1/1
00469  M00S00424.cueshel +++|          VFD    42/0LCOPYER,16/0,1/0,1/1
00470  M00S00425.cueshel +++|          VFD    42/0LCOPYL,16/0,1/1,1/0
00471  M00S00426.cueshel +++|          VFD    42/0LCOPYLM,16/0,1/1,1/0
00472  M00S00427.cueshel +++|          VFD    42/0LCOPYSBF,16/0,1/1,1/1
00473  M00S00428.cueshel +++|          VFD    42/0LCOPYX,16/0,1/1,1/0
00474  M00S00429.cueshel +++|          VFD    42/0LCSET,16/0,1/1,1/0
00475  M00S00430.cueshel +++|          VFD    42/0LCSU,16/0,1/0,1/1
00476  M00S00431.cueshel +++|          VFD    42/0LCTB,16/0,1/0,1/1
00477  M00S00432.cueshel +++|          VFD    42/0LCTIME,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00478  M01S00003.cuesh4  +++|          VFD    42/0LCT3,16/0,1/1,1/1
00479  M01S00004.cuesh4  +++|          VFD    42/0LCT7,16/0,1/1,1/1
00480  M01S00005.cuesh4  +++|          VFD    42/0LCT8,16/0,1/1,1/1
00481  M00S00433.cueshel +++|          VFD    42/0LCU1,16/0,1/0,1/1
00482  M00S00434.cueshel +++|          VFD    42/0LDAYFILE,16/0,1/1,1/1
00483  M00S00435.cueshel +++|          VFD    42/0LDEBUG,16/0,1/0,1/0
00484  M00S00436.cueshel +++|          VFD    42/0LDEFINE,16/0,1/1,1/1
00485  M00S00437.cueshel +++|          VFD    42/0LDETACH,16/0,1/1,1/0
00486  M00S00438.cueshel +++|          VFD    42/0LDIAL,16/0,1/1,1/0
00487  M00S00439.cueshel +++|          VFD    42/0LDISPLAY,16/0,1/1,1/1
00488  M00S00440.cueshel +++|          VFD    42/0LDMB,16/0,1/1,1/0
00489  M00S00441.cueshel +++|          VFD    42/0LDMD,16/0,1/1,1/1
00490  M00S00442.cueshel +++|          VFD    42/0LDMDECS,16/0,1/1,1/1
00491  M00S00443.cueshel +++|          VFD    42/0LDMP,16/0,1/1,1/1
00492  M00S00444.cueshel +++|          VFD    42/0LDMPECS,16/0,1/1,1/1
00493  M00S00445.cueshel +++|          VFD    42/0LDOCMENT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00494  M01S00446.cuesh4  ---|          VFD    42/0LDROP,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00006.cuesh4  +++|          VFD    42/0LDROP,16/0,1/1,1/1
00496  M00S00447.cueshel +++|          VFD    42/0LEALOGCD,16/0,1/1,1/0
00497  M00S00448.cueshel +++|          VFD    42/0LEALOGSV,16/0,1/1,1/0
00498  M00S00449.cueshel +++|          VFD    42/0LEALOGVS,16/0,1/1,1/0
00499  M00S00450.cueshel +++|          VFD    42/0LEAPREVC,16/0,1/1,1/0
00500  M00S00451.cueshel +++|          VFD    42/0LEAPREVS,16/0,1/1,1/0
00501  M00S00452.cueshel +++|          VFD    42/0LEAUL101,16/0,1/1,1/0
00502  M00S00453.cueshel +++|          VFD    42/0LEAVL105,16/0,1/1,1/0
00503  M00S00454.cueshel +++|          VFD    42/0LEC3,16/0,1/0,1/1
00504  M00S00455.cueshel +++|          VFD    42/0LEC8,16/0,1/0,1/1
00505  M00S00456.cueshel +++|          VFD    42/0LEDIT,16/0,1/1,1/1
00506  M00S00457.cueshel +++|          VFD    42/0LELD,16/0,1/0,1/1
00507  M00S00458.cueshel +++|          VFD    42/0LELSE,16/0,1/1,1/0
00508  M00S00459.cueshel +++|          VFD    42/0LENDIF,16/0,1/1,1/0
00509  M00S00460.cueshel +++|          VFD    42/0LENDW,16/0,1/1,1/0
00510  M00S00461.cueshel +++|          VFD    42/0LENQUIRE,16/0,1/1,1/1
00511  M00S00462.cueshel +++|          VFD    42/0LENTER,16/0,1/1,1/0
00512  M00S00463.cueshel +++|          VFD    42/0LEVICT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00464.cuesh4  ---|          VFD    42/0LEXECUTE,16/0,1/0,1/0

Seq #  *Modification Id* Act 
----------------------------+
00514  M01S00007.cuesh4  +++|          VFD    42/0LEXECUTE,16/0,1/0,1/1
00515  M00S00465.cueshel +++|          VFD    42/0LEXIT,16/0,1/1,1/1
00516  M00S00466.cueshel +++|          VFD    42/0LEXPLAIN,16/0,1/1,1/0
00517  M00S00467.cueshel +++|          VFD    42/0LFCOPY,16/0,1/1,1/0
00518  M00S00468.cueshel +++|          VFD    42/0LFILE,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00519  M01S00469.cuesh4  ---|          VFD    42/0LFSE,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00008.cuesh4  +++|          VFD    42/0LFSE,16/0,1/1,1/1
00521  M00S00470.cueshel +++|          VFD    42/0LFS8,16/0,1/0,1/1
00522  M00S00471.cueshel +++|          VFD    42/0LFTN,16/0,1/0,1/0
00523  M00S00472.cueshel +++|          VFD    42/0LFTN5,16/0,1/0,1/0
00524  M00S00473.cueshel +++|          VFD    42/0LF45,16/0,1/0,1/0
00525  M00S00474.cueshel +++|          VFD    42/0LGET,16/0,1/1,1/1
00526  M00S00475.cueshel +++|          VFD    42/0LGETLOG,16/0,1/0,1/1

Seq #  *Modification Id* Act 
----------------------------+
00527  M01S00476.cuesh4  ---|          VFD    42/0LGO,16/0,1/1,1/0
00528  M01S00477.cuesh4  ---|          VFD    42/0LGOODBYE,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00009.cuesh4  +++|          VFD    42/0LGO,16/0,1/1,1/1
00530  M01S00010.cuesh4  +++|          VFD    42/0LGOODBYE,16/0,1/1,1/1
00531  M00S00478.cueshel +++|          VFD    42/0LGPSS,16/0,1/0,1/0
00532  M00S00479.cueshel +++|          VFD    42/0LGTR,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00533  M01S00480.cuesh4  ---|          VFD    42/0LHELLO,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00011.cuesh4  +++|          VFD    42/0LHELLO,16/0,1/1,1/1
00535  M00S00481.cueshel +++|          VFD    42/0LHELLO7,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00536  M01S00482.cuesh4  ---|          VFD    42/0LHELP,16/0,1/1,1/0
00537  M01S00483.cuesh4  ---|          VFD    42/0LHELPME,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00538  M01S00012.cuesh4  +++|          VFD    42/0LHELP,16/0,1/1,1/1
00539  M01S00013.cuesh4  +++|          VFD    42/0LHELPME,16/0,1/1,1/1
00540  M00S00484.cueshel +++|          VFD    42/0LHPA,16/0,1/0,1/1
00541  M00S00485.cueshel +++|          VFD    42/0LHTIME,16/0,1/1,1/0
00542  M00S00486.cueshel +++|          VFD    42/0LICEMDDN,16/0,1/1,1/0
00543  M00S00487.cueshel +++|          VFD    42/0LIEDIT,16/0,1/1,1/0
00544  M00S00488.cueshel +++|          VFD    42/0LIF,16/0,1/1,1/0
00545  M00S00489.cueshel +++|          VFD    42/0LIFE,16/0,1/1,1/0
00546  M00S00490.cueshel +++|          VFD    42/0LITEMIZE,16/0,1/1,1/0
00547  M00S00491.cueshel +++|          VFD    42/0LKRONREF,16/0,1/1,1/0
00548  M00S00492.cueshel +++|          VFD    42/0LLABEL,16/0,1/1,1/1
00549  M00S00493.cueshel +++|          VFD    42/0LLBC,16/0,1/0,1/0
00550  M00S00494.cueshel +++|          VFD    42/0LLDI,16/0,1/1,1/0
00551  M00S00495.cueshel +++|          VFD    42/0LLDSET,16/0,1/1,1/0
00552  M00S00496.cueshel +++|          VFD    42/0LLENGTH,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00553  M01S00014.cuesh4  +++|          VFD    42/0LLGO,16/0,1/0,1/1
00554  M00S00497.cueshel +++|          VFD    42/0LLIB,16/0,1/0,1/0
00555  M00S00498.cueshel +++|          VFD    42/0LLIBEDIT,16/0,1/1,1/0
00556  M00S00499.cueshel +++|          VFD    42/0LLIBGEN,16/0,1/1,1/0
00557  M00S00500.cueshel +++|          VFD    42/0LLIBLOAD,16/0,1/1,1/0
00558  M00S00501.cueshel +++|          VFD    42/0LLIBRARY,16/0,1/1,1/0
00559  M00S00502.cueshel +++|          VFD    42/0LLIBTASK,16/0,1/1,1/0
00560  M00S00503.cueshel +++|          VFD    42/0LLIMITS,16/0,1/1,1/1

Seq #  *Modification Id* Act 
----------------------------+
00561  M01S00504.cuesh4  ---|          VFD    42/0LLINE,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00015.cuesh4  +++|          VFD    42/0LLINE,16/0,1/1,1/1
00563  M00S00505.cueshel +++|          VFD    42/0LLISTLB,16/0,1/1,1/1
00564  M00S00506.cueshel +++|          VFD    42/0LLIST80,16/0,1/1,1/0
00565  M00S00507.cueshel +++|          VFD    42/0LLOAD,16/0,1/0,1/0
00566  M00S00508.cueshel +++|          VFD    42/0LLOC,16/0,1/0,1/0
00567  M00S00509.cueshel +++|          VFD    42/0LLOCK,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00568  M01S00510.cuesh4  ---|          VFD    42/0LLOGIN,16/0,1/1,1/0
00569  M01S00511.cuesh4  ---|          VFD    42/0LLOGOUT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00016.cuesh4  +++|          VFD    42/0LLOGIN,16/0,1/1,1/1
00571  M01S00017.cuesh4  +++|          VFD    42/0LLOGOUT,16/0,1/1,1/1
00572  M00S00512.cueshel +++|          VFD    42/0LLO72,16/0,1/1,1/0
00573  M00S00513.cueshel +++|          VFD    42/0LMACHINE,16/0,1/1,1/0
00574  M00S00514.cueshel +++|          VFD    42/0LMALET,16/0,1/0,1/1

Seq #  *Modification Id* Act 
----------------------------+
00575  M01S00515.cuesh4  ---|          VFD    42/0LMAP,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00576  M01S00018.cuesh4  +++|          VFD    42/0LMAP,16/0,1/1,1/1
00577  M00S00516.cueshel +++|          VFD    42/0LMAPINI,16/0,1/0,1/1
00578  M00S00517.cueshel +++|          VFD    42/0LMFL,16/0,1/1,1/1
00579  M00S00518.cueshel +++|          VFD    42/0LMFLINK,16/0,1/1,1/0
00580  M00S00519.cueshel +++|          VFD    42/0LMFQUEUE,16/0,1/1,1/0
00581  M00S00520.cueshel +++|          VFD    42/0LMODE,16/0,1/1,1/1
00582  M00S00521.cueshel +++|          VFD    42/0LMODIFY,16/0,1/1,1/0
00583  M00S00522.cueshel +++|          VFD    42/0LMRG,16/0,1/0,1/1
00584  M00S00523.cueshel +++|          VFD    42/0LNEW,16/0,1/1,1/1

Seq #  *Modification Id* Act 
----------------------------+
00585  M01S00524.cuesh4  ---|          VFD    42/0LNOEXIT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00019.cuesh4  +++|          VFD    42/0LNOEXIT,16/0,1/1,1/1
00587  M00S00525.cueshel +++|          VFD    42/0LNORERUN,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00020.cuesh4  +++|          VFD    42/0LNORM,16/0,1/1,1/1
00589  M00S00526.cueshel +++|          VFD    42/0LNORMAL,16/0,1/1,1/1
00590  M00S00527.cueshel +++|          VFD    42/0LNOSORT,16/0,1/1,1/0
00591  M00S00528.cueshel +++|          VFD    42/0LNOTE,16/0,1/1,1/0
00592  M00S00529.cueshel +++|          VFD    42/0LNULL,16/0,1/1,1/0
00593  M00S00530.cueshel +++|          VFD    42/0LOFFSW,16/0,1/1,1/1
00594  M00S00531.cueshel +++|          VFD    42/0LOLD,16/0,1/1,1/1
00595  M00S00532.cueshel +++|          VFD    42/0LOMREF,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00533.cuesh4  ---|          VFD    42/0LONEXIT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00021.cuesh4  +++|          VFD    42/0LONEXIT,16/0,1/1,1/1
00598  M00S00534.cueshel +++|          VFD    42/0LONSW,16/0,1/1,1/1
00599  M00S00535.cueshel +++|          VFD    42/0LOPLEDIT,16/0,1/1,1/0
00600  M00S00536.cueshel +++|          VFD    42/0LOPMSG,16/0,1/0,1/1

Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00537.cuesh4  ---|          VFD    42/0LOUT,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00022.cuesh4  +++|          VFD    42/0LOUT,16/0,1/1,1/1
00603  M00S00538.cueshel +++|          VFD    42/0LOVWRITE,16/0,1/1,1/0
00604  M00S00539.cueshel +++|          VFD    42/0LPACK,16/0,1/1,1/1
00605  M00S00540.cueshel +++|          VFD    42/0LPACKNAM,16/0,1/1,1/1
00606  M00S00541.cueshel +++|          VFD    42/0LPASCAL,16/0,1/0,1/0
00607  M00S00542.cueshel +++|          VFD    42/0LPASSWOR,16/0,1/1,1/0
00608  M00S00543.cueshel +++|          VFD    42/0LPAUSE,16/0,1/1,1/0
00609  M00S00544.cueshel +++|          VFD    42/0LPBC,16/0,1/0,1/0
00610  M00S00545.cueshel +++|          VFD    42/0LPDU,16/0,1/1,1/0
00611  M00S00546.cueshel +++|          VFD    42/0LPERMIT,16/0,1/1,1/1
00612  M00S00547.cueshel +++|          VFD    42/0LPLI,16/0,1/0,1/0

Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00023.cuesh4  +++|          VFD    42/0LPRESET,16/0,1/1,1/1
00614  M00S00548.cueshel +++|          VFD    42/0LPRIMARY,16/0,1/1,1/1
00615  M00S00549.cueshel +++|          VFD    42/0LPROFILE,16/0,1/1,1/0
00616  M00S00550.cueshel +++|          VFD    42/0LPROTECT,16/0,1/1,1/0
00617  M00S00551.cueshel +++|          VFD    42/0LPURGALL,16/0,1/1,1/0
00618  M00S00552.cueshel +++|          VFD    42/0LPURGE,16/0,1/1,1/1
00619  M00S00553.cueshel +++|          VFD    42/0LQGET,16/0,1/1,1/0
00620  M00S00554.cueshel +++|          VFD    42/0LQUEUE7,16/0,1/1,1/0
00621  M00S00555.cueshel +++|          VFD    42/0LRBR,16/0,1/0,1/0
00622  M00S00556.cueshel +++|          VFD    42/0LRECOVER,16/0,1/1,1/1
00623  M00S00557.cueshel +++|          VFD    42/0LREDO,16/0,1/1,1/0
00624  M00S00558.cueshel +++|          VFD    42/0LREDUCE,16/0,1/1,1/1
00625  M00S00559.cueshel +++|          VFD    42/0LREGEN,16/0,1/0,1/1
00626  M00S00560.cueshel +++|          VFD    42/0LRENAME,16/0,1/1,1/1
00627  M00S00561.cueshel +++|          VFD    42/0LREPLACE,16/0,1/1,1/1
00628  M00S00562.cueshel +++|          VFD    42/0LREQUEST,16/0,1/1,1/1
00629  M00S00563.cueshel +++|          VFD    42/0LRERUN,16/0,1/1,1/0
00630  M00S00564.cueshel +++|          VFD    42/0LRESEQ,16/0,1/1,1/0
00631  M00S00565.cueshel +++|          VFD    42/0LRESOURC,16/0,1/1,1/1
00632  M00S00566.cueshel +++|          VFD    42/0LRESTART,16/0,1/1,1/0
00633  M00S00567.cueshel +++|          VFD    42/0LRETURN,16/0,1/1,1/1
00634  M00S00568.cueshel +++|          VFD    42/0LREVERT,16/0,1/1,1/1
00635  M00S00569.cueshel +++|          VFD    42/0LREVIEW,16/0,1/1,1/0
00636  M00S00570.cueshel +++|          VFD    42/0LREWIND,16/0,1/1,1/1
00637  M00S00571.cueshel +++|          VFD    42/0LRFL,16/0,1/1,1/1
00638  M00S00572.cueshel +++|          VFD    42/0LROLLOUT,16/0,1/1,1/0
00639  M00S00573.cueshel +++|          VFD    42/0LROUTE,16/0,1/1,1/1
00640  M00S00574.cueshel +++|          VFD    42/0LRTIME,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00641  M01S00575.cuesh4  ---|          VFD    42/0LRUN,16/0,1/0,1/0

Seq #  *Modification Id* Act 
----------------------------+
00642  M01S00024.cuesh4  +++|          VFD    42/0LRUN,16/0,1/0,1/1
00643  M00S00576.cueshel +++|          VFD    42/0LSATISFY,16/0,1/1,1/0
00644  M00S00577.cueshel +++|          VFD    42/0LSAVE,16/0,1/1,1/1
00645  M00S00578.cueshel +++|          VFD    42/0LSCOPY,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00579.cuesh4  ---|          VFD    42/0LSCREEN,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00647  M01S00025.cuesh4  +++|          VFD    42/0LSCREEN,16/0,1/1,1/1
00648  M00S00580.cueshel +++|          VFD    42/0LSECHDR,16/0,1/1,1/0
00649  M00S00581.cueshel +++|          VFD    42/0LSET,16/0,1/1,1/1
00650  M00S00582.cueshel +++|          VFD    42/0LSETASL,16/0,1/1,1/0
00651  M00S00583.cueshel +++|          VFD    42/0LSETCORE,16/0,1/1,1/0
00652  M00S00584.cueshel +++|          VFD    42/0LSETFAL,16/0,1/1,1/0
00653  M00S00585.cueshel +++|          VFD    42/0LSETFS,16/0,1/1,1/0
00654  M00S00586.cueshel +++|          VFD    42/0LSETJAL,16/0,1/1,1/0
00655  M00S00587.cueshel +++|          VFD    42/0LSETJOB,16/0,1/1,1/0
00656  M00S00588.cueshel +++|          VFD    42/0LSETJSL,16/0,1/1,1/0
00657  M00S00589.cueshel +++|          VFD    42/0LSETPFAC,16/0,1/1,1/0
00658  M00S00590.cueshel +++|          VFD    42/0LSETPFAL,16/0,1/1,1/0
00659  M00S00591.cueshel +++|          VFD    42/0LSETPR,16/0,1/1,1/0
00660  M00S00592.cueshel +++|          VFD    42/0LSETTL,16/0,1/1,1/1
00661  M00S00593.cueshel +++|          VFD    42/0LSHELL,16/0,1/0,1/0
00662  M00S00594.cueshel +++|          VFD    42/0LSKIP,16/0,1/1,1/1
00663  M00S00595.cueshel +++|          VFD    42/0LSKIPEI,16/0,1/1,1/1
00664  M00S00596.cueshel +++|          VFD    42/0LSKIPF,16/0,1/1,1/1
00665  M00S00597.cueshel +++|          VFD    42/0LSKIPFB,16/0,1/1,1/1
00666  M00S00598.cueshel +++|          VFD    42/0LSKIPR,16/0,1/1,1/1
00667  M00S00599.cueshel +++|          VFD    42/0LSLOAD,16/0,1/1,1/0
00668  M00S00600.cueshel +++|          VFD    42/0LSORT,16/0,1/1,1/0
00669  M00S00601.cueshel +++|          VFD    42/0LSORTMRG,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00670  M01S00602.cuesh4  ---|          VFD    42/0LSTATUS,16/0,1/0,1/1

Seq #  *Modification Id* Act 
----------------------------+
00671  M01S00026.cuesh4  +++|          VFD    42/0LSTATUS,16/0,1/1,1/1
00672  M00S00603.cueshel +++|          VFD    42/0LSTIME,16/0,1/1,1/0
00673  M00S00604.cueshel +++|          VFD    42/0LSUBMIT,16/0,1/1,1/1

Seq #  *Modification Id* Act 
----------------------------+
00674  M01S00605.cuesh5  ---|          VFD    42/0LSUMMARY,16/0,1/1,1/0
00675  M00S00606.cueshel +++|          VFD    42/0LSWITCH,16/0,1/1,1/1
00676  M00S00607.cueshel +++|          VFD    42/0LTCOPY,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00027.cuesh4  +++|          VFD    42/0LTDU,16/0,1/1,1/1
00678  M00S00608.cueshel +++|          VFD    42/0LTDUMP,16/0,1/1,1/1
00679  M00S00609.cueshel +++|          VFD    42/0LTEXT,16/0,1/1,1/1
00680  M00S00610.cueshel +++|          VFD    42/0LTIMEOUT,16/0,1/1,1/0
00681  M00S00611.cueshel +++|          VFD    42/0LTIO,16/0,1/0,1/1

Seq #  *Modification Id* Act 
----------------------------+
00682  M01S00612.cuesh4  ---|          VFD    42/0LTRMDEF,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00683  M01S00028.cuesh4  +++|          VFD    42/0LTRMDEF,16/0,1/1,1/1
00684  M00S00613.cueshel +++|          VFD    42/0LULIB,16/0,1/1,1/0
00685  M00S00614.cueshel +++|          VFD    42/0LUNIPOST,16/0,1/1,1/0
00686  M00S00615.cueshel +++|          VFD    42/0LUNLOAD,16/0,1/1,1/1
00687  M00S00616.cueshel +++|          VFD    42/0LUNLOCK,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00688  M01S00617.cuesh4  ---|          VFD    42/0LUPDATE,16/0,1/1,1/0

Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00029.cuesh4  +++|          VFD    42/0LUPDATE,16/0,1/1,1/1
00690  M00S00618.cueshel +++|          VFD    42/0LUPROC,16/0,1/1,1/0
00691  M00S00619.cueshel +++|          VFD    42/0LUSECPU,16/0,1/1,1/1
00692  M00S00620.cueshel +++|          VFD    42/0LUSER,16/0,1/1,1/1
00693  M00S00621.cueshel +++|          VFD    42/0LVERIFY,16/0,1/1,1/1
00694  M00S00622.cueshel +++|          VFD    42/0LVFYLIB,16/0,1/1,1/0
00695  M00S00623.cueshel +++|          VFD    42/0LVSN,16/0,1/1,1/1
00696  M00S00624.cueshel +++|          VFD    42/0LWBR,16/0,1/0,1/0
00697  M00S00625.cueshel +++|          VFD    42/0LWHATJSN,16/0,1/1,1/0
00698  M00S00626.cueshel +++|          VFD    42/0LWHILE,16/0,1/1,1/0
00699  M00S00627.cueshel +++|          VFD    42/0LWRITEF,16/0,1/1,1/1
00700  M00S00628.cueshel +++|          VFD    42/0LWRITER,16/0,1/1,1/1
00701  M00S00629.cueshel +++|          VFD    42/0LX,16/0,1/0,1/0
00702  M00S00630.cueshel +++|          VFD    42/0LXEDIT,16/0,1/1,1/1
00703  M00S00631.cueshel +++| CMDSL    EQU    *-CMDS      LENGTH OF COMMAND LIST
00704  M00S00632.cueshel +++| BUFFERS  SPACE  4,10
00705  M00S00633.cueshel +++|
00706  M00S00634.cueshel +++|*         BUFFERS.
00707  M00S00635.cueshel +++|
00708  M00S00636.cueshel +++| ERRM     BSSZ   1           STORE APPROPRIATE ERROR MESSAGE
00709  M00S00637.cueshel +++| SHELFLG  BSSZ   1           SHELL PROGRAM FLAG

Seq #  *Modification Id* Act 
----------------------------+
00710  M01S00638.cuesh3  ---| BYECMD   DATA   0LBYE       COMPARED TO INPUT CHECKING FOR *BYE*
00711  M00S00639.cueshel +++| MCCDR    BSSZ   9           MODIFIED CCDR
00712  M00S00640.cueshel +++| PCS      BSSZ   1           PACKED CONTROL STATEMENT
00713  M00S00641.cueshel +++| RI       BSSZ   1           REQUESTED INPUT FROM TERMINAL
00714  M00S00642.cueshel +++| INPUT    FILEC  IBUF,101B
00715  M00S00643.cueshel +++| OUTPUT   FILEC  OBUF,101B
00716  M00S00644.cueshel +++| LOFP     VFD    12/0,18/LOF,30/0
00717  M00S00645.cueshel +++| LOFF     CON    0           LIST OF FILES FLAG
00718  M00S00646.cueshel +++| LOF      VFD    1/0,41/0,18/3
00719  M00S00647.cueshel +++|          VFD    42/0LOUTPUT,18/OUTPUT
00720  M00S00648.cueshel +++|          VFD    60/0
00721  M00S00649.cueshel +++| OUT      VFD    12/1L/,12/1,36/0

Seq #  *Modification Id* Act 
----------------------------+
00722  M01S00650.cuesh3  ---| LOTOUT   VFD    12/4,48/0
00723  M00S00651.cueshel +++| IBUF     EQU    *
00724  M00S00652.cueshel +++| OBUF     EQU    IBUF+101B
00725  M00S00653.cueshel +++| RFL=     EQU    OBUF+101B+10B
00726  M00S00654.cueshel +++|
00727  M00S00655.cueshel +++|          END