Deck CUESHEL

7 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.cueshel +++|          IDENT  CUESHEL,FWA
00002  M01S00002.cueshel +++|          ABS
00003  M01S00003.cueshel +++|          ENTRY  CDSHELL
00004  M01S00004.cueshel +++|          ENTRY  RMSHELL
00005  M01S00005.cueshel +++|          ENTRY  RFL=
00006  M01S00006.cueshel +++|          SYSCOM B1
00007  M01S00007.cueshel +++|          TITLE  CUESHEL - CUSTOMIZED USER ENVIRONMENT VALIDATOR.
00008  M01S00008.cueshel +++|*COMMENT  CUESHEL - CUSTOMIZED USER VALIDATOR.

Line S00009 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1982.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.cueshel +++| RMSHELL  SPACE  4,10
00012  M01S00011.cueshel +++| CUESHEL  SPACE  4,10
00013  M01S00012.cueshel +++|***       CUESHEL - CUSTOMIZED USER ENVIRONMENT VALIDATOR.
00014  M01S00013.cueshel +++|*
00015  M01S00014.cueshel +++|*         M. D. LEMBCKE.     81/10/30.
00016  M01S00015.cueshel +++|*         P. A. GILLESBY.    84/10/15.
00017  M01S00016.cueshel +++|
00018  M01S00017.cueshel +++|          SPACE  4,10
00019  M01S00018.cueshel +++|***       CUESHEL - CUSTOMIZED USER ENVIRONMENT VALIDATOR.
00020  M01S00019.cueshel +++|*
00021  M01S00020.cueshel +++|*         *CUESHEL* IS DESIGNED TO ACCOMODATE MULTIPLE SHELL PROGRAMS,
00022  M01S00021.cueshel +++|*         EACH SPECIFIED WITH A SEPARATE ENTRY POINT.
00023  M01S00022.cueshel +++|*
00024  M01S00023.cueshel +++|*         FLAG = 1 IF RMSHELL
00025  M01S00024.cueshel +++|*         FLAG = 2 IF CDSHELL
00026  M01S00025.cueshel +++|*
00027  M01S00026.cueshel +++|*         WHEN A COMMAND IS DETECTED, THE COMMAND WILL BE MATCHED
00028  M01S00027.cueshel +++|*         AGAINST A VALIDATED LIST.  IF A MATCH IS FOUND,
00029  M01S00028.cueshel +++|*         THE VALIDATION BITS WILL BE CHECKED TO ENSURE THE COMMAND
00030  M01S00029.cueshel +++|*         IS VALID FOR THE SHELL PROGRAM SPECIFIED.  IF VALID,
00031  M01S00030.cueshel +++|*         THE COMMAND WILL BE ISSUED TO THE SYSTEM VIA *EXCST*
00032  M01S00031.cueshel +++|*         (WITH A *$* PREFIX TO FORCE SYSTEM LIBRARY LOAD).  IF
00033  M01S00032.cueshel +++|*         NO MATCH IS FOUND BUT *CDSHELL* WAS SELECTED, THE
00034  M01S00033.cueshel +++|*         COMMAND WILL STILL BE ISSUED TO THE SYSTEM.
00035  M01S00034.cueshel +++|*         HOWEVER, IF NO MATCH IS FOUND AND *RMSHELL* WAS
00036  M01S00035.cueshel +++|*         SELECTED, AN ERROR MESSAGE WILL BE ISSUED TO THE
00037  M01S00036.cueshel +++|*         DAYFILE.
00038  M01S00037.cueshel +++|*
00039  M01S00038.cueshel +++|*         THERE ARE FOUR ERRORS THAT WILL CAUSE THE PROGRAM TO
00040  M01S00039.cueshel +++|*         TERMINATE.  THE FIRST IS WHEN THE STATEMENT EXCEEDS SEVEN
00041  M01S00040.cueshel +++|*         CHARACTERS.  SECOND IS NO MATCH; WHERE THE USER IS
00042  M01S00041.cueshel +++|*         UNAUTHORIZED TO USE THE STATEMENT AND/OR THE STATEMENT WAS
00043  M01S00042.cueshel +++|*         NOT RECOGNIZED.  THE THIRD IS WHEN THE COMMAND EXCEEDS
00044  M01S00043.cueshel +++|*         80 CHARACTERS AND THE FOURTH IS WHEN A TERMINATING
00045  M01S00044.cueshel +++|*         DELIMITER IS NOT FOUND WITHIN THE COMMAND PARAMETERS.
00046  M01S00045.cueshel +++|*
00047  M01S00046.cueshel +++|*
00048  M01S00047.cueshel +++|*         NOTES  USB (LINE FOLLOWING CUE1) RETURNS THE LWA OF THE
00049  M01S00048.cueshel +++|*                BUFFER IN REGISTER B7.  THIS VALUE IS NEEDED WHEN
00050  M01S00049.cueshel +++|*                REPACKING THE COMMAND.  ANY MODIFICATIONS SHOULD
00051  M01S00050.cueshel +++|*                AVOID USING B7.
00052  M01S00051.cueshel +++|          SPACE  4,10
00053  M01S00052.cueshel +++|***       DAYFILE ERROR MESSAGES.
00054  M01S00053.cueshel +++|*
00055  M01S00054.cueshel +++|*         * COMMAND KEYWORD TOO LONG.*  THIS MESSAGE WILL BE
00056  M01S00055.cueshel +++|*         ISSUED WHEN THE COMMAND EXCEEDS SEVEN CHARACTERS.
00057  M01S00056.cueshel +++|*

Line S00057 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00057.ns2728  ---|*         * UNAUTHORIZED COMMAND.* THE USER IS LIMITED

Line S00058 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00058.ns2728  ---|*         TO WHICH COMMANDS MAY BE USE.  THE MESSAGE IS SENT WHENEVER

Line S00059 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00059.ns2728  ---|*         THE COMMAND IS LESS THAN EIGHT CHARACTERS AND DOES

Line S00060 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00060.ns2728  ---|*         NOT MATCH AGAINST THE VALIDATED LIST.
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  M01S00061.cueshel +++|*

Line S00062 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00062.ns2728  ---|*         * INPUT LINE TOO LONG.*  THIS MESSAGE WILL BE PRINTED TO THE
00067  M01S00004.ns2728  +++|*         * INPUT LINE TOO LONG.*  THIS MESSAGE WILL BE ISSUED TO THE
00068  M01S00063.cueshel +++|*         DAYFILE WHEN THE COMMAND IS GREATER THAN 80 CHARACTERS.
00069  M01S00064.cueshel +++|*
00070  M01S00065.cueshel +++|*         * NO MATCHING DELIMITER.*  THIS MESSAGE WILL BE
00071  M01S00066.cueshel +++|*         ISSUED WHENEVER A DOLLAR SIGN ($) APPEARS AS A
00072  M01S00067.cueshel +++|*         DELIMITER AND AN ENDING DELIMITER IS NOT FOUND.
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  M01S00068.cueshel +++|
00081  M01S00069.cueshel +++|          SPACE  4,10
00082  M01S00070.cueshel +++|***       COMMON DECKS.
00083  M01S00071.cueshel +++|
00084  M01S00072.cueshel +++|*CALL     COMCCMD
00085  M01S00073.cueshel +++|*CALL     COMCMAC
00086  M01S00074.cueshel +++|          TITLE  MAIN PROGRAM.
00087  M01S00075.cueshel +++|
00088  M01S00076.cueshel +++|          ORG    111B
00089  M01S00077.cueshel +++| FWA      BSS    0
00090  M01S00078.cueshel +++| CDSHELL  SX7    2           SET (X7) TO 2 IF *CDSHELL* PROGRAM
00091  M01S00079.cueshel +++|          EQ     CUESHEL     ENTER MAIN PROGRAM
00092  M01S00080.cueshel +++|
00093  M01S00081.cueshel +++| RMSHELL  SX7    1           SET (X7) TO 1 IF *RMSHELL* PROGRAM
00094  M01S00082.cueshel +++|*         EQ     CUESHEL     ENTER MAIN PROGRAM
00095  M01S00083.cueshel +++|          SPACE  4,10
00096  M01S00084.cueshel +++| CUESHEL  SA7    SHELFLG     SAVE VALUE
00097  M01S00085.cueshel +++|          SB1    1

Line S00086 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00086.ns2728  ---|          SA2    CCDR        FWA OF PACKED DATA = RA + 70
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  M01S00087.cueshel +++|          NZ     X2,CUE1     IF INPUT PRESENT
00108  M01S00088.cueshel +++|          RJ     GII         GET INTERACTIVE INPUT

Line S00089 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00089.cuesh3  ---|          EQ     B7,B1,CUE23 IF NO INPUT
00110  M01S00001.cuesh3  +++|          EQ     B7,B1,CUE22 IF NO INPUT
00111  M01S00090.cueshel +++|
00112  M01S00091.cueshel +++|*         UNPACK INPUT STRING INTO BUFFER.  THEN CHECK FIRST NON-BLANK
00113  M01S00092.cueshel +++|*         CHARACTER.  IF IT IS A $, REPLACE IT WITH A BLANK.
00114  M01S00093.cueshel +++|
00115  M01S00094.cueshel +++| CUE1     SB2    CCDR
00116  M01S00095.cueshel +++|          RJ     USB         UNPACKS 1 CHARACTER/WORD RIGHT JUSTIFIED
00117  M01S00096.cueshel +++|          SB3    -1
00118  M01S00097.cueshel +++|          SB5    B7-USBB+1   MAXIMUM CHARACTER INDEX
00119  M01S00098.cueshel +++| CUE2     SB3    B3+1
00120  M01S00099.cueshel +++|          SA2    USBB+B3

Line S00100 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00100.cuesh3  ---|          GE     B3,B5,CUE23 IF INPUT IS ALL BLANKS
00122  M01S00002.cuesh3  +++|          GE     B3,B5,CUE22 IF INPUT IS ALL BLANKS
00123  M01S00101.cueshel +++|          SX3    X2-1R
00124  M01S00102.cueshel +++|          ZR     X3,CUE2     IF A BLANK
00125  M01S00103.cueshel +++|          SX3    X2-1R$
00126  M01S00104.cueshel +++|          SB3    B3-1
00127  M01S00105.cueshel +++|          NZ     X3,CUE4     IF NOT *$*
00128  M01S00106.cueshel +++|          SX6    1R
00129  M01S00107.cueshel +++|          SA6    A2+         REPLACE *$* WITH BLANK
00130  M01S00108.cueshel +++|
00131  M01S00109.cueshel +++|*         CHECK FOR EXISTING TERMINATOR TO DETERMINE IF ONE
00132  M01S00110.cueshel +++|*         MUST BE ADDED.
00133  M01S00111.cueshel +++|
00134  M01S00112.cueshel +++| CUE4     SB3    B3+1
00135  M01S00113.cueshel +++|          SA2    USBB+B3     GET NEXT CHARACTER
00136  M01S00114.cueshel +++|          GE     B3,B5,CUE5  IF AT END OF COMMAND
00137  M01S00115.cueshel +++|          SX3    X2-1R)
00138  M01S00116.cueshel +++|          ZR     X3,CUE8     IF TERMINATOR FOUND
00139  M01S00117.cueshel +++|          SX3    X2-1R.
00140  M01S00118.cueshel +++|          ZR     X3,CUE8     IF TERMINATOR FOUND
00141  M01S00119.cueshel +++|          SX3    X2-1R$
00142  M01S00120.cueshel +++|          ZR     X3,CUE6     IF *$* DELIMITER FOUND
00143  M01S00121.cueshel +++|          EQ     CUE4        CHECK NEXT CHARACTER
00144  M01S00122.cueshel +++|
00145  M01S00123.cueshel +++| CUE5     SA5    RI
00146  M01S00124.cueshel +++|          ZR     X5,CUE8     IF INPUT RECEIVED FROM SYSTEM
00147  M01S00125.cueshel +++|          SX6    1R.         APPEND *.* TO INTERACTIVE INPUT
00148  M01S00126.cueshel +++|          SB7    B7+B1
00149  M01S00127.cueshel +++|          SA6    B7
00150  M01S00128.cueshel +++|          EQ     CUE8        PACK COMMAND
00151  M01S00129.cueshel +++|
00152  M01S00130.cueshel +++|*         LOOK FOR MATCHING *$*.
00153  M01S00131.cueshel +++|
00154  M01S00132.cueshel +++| CUE6     SB3    B3+1
00155  M01S00133.cueshel +++|          SA2    USBB+B3     CHECK NEXT CHARACTER
00156  M01S00134.cueshel +++|          LE     B3,B5,CUE7  IF NOT END OF COMMAND
00157  M01S00135.cueshel +++|          SX7    CUEC        *NO MATCHING DELIMITER.*
00158  M01S00136.cueshel +++|          SA5    RI
00159  M01S00137.cueshel +++|          ZR     X5,CUE15    IF INPUT RECEIVED FROM SYSTEM
00160  M01S00138.cueshel +++|          SX6    1R.         APPEND *.* TO INTERACTIVE INPUT
00161  M01S00139.cueshel +++|          SB7    B7+B1
00162  M01S00140.cueshel +++|          SA6    B7
00163  M01S00141.cueshel +++|          EQ     CUE15       SET ERROR AND COMPLETE
00164  M01S00142.cueshel +++|
00165  M01S00143.cueshel +++| CUE7     SX3    X2-1R$
00166  M01S00144.cueshel +++|          ZR     X3,CUE4     IF MATCHING DELIMITER FOUND
00167  M01S00145.cueshel +++|          EQ     CUE6        CHECK NEXT CHARACTER
00168  M01S00146.cueshel +++|

Line S00147 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00147.cuesh3  ---|*         PACK TOGETHER THE COMMAND AND CHECK FOR *BYE*.
00170  M01S00003.cuesh3  +++|*         PACK COMMAND TOGETHER.
00171  M01S00148.cueshel +++|
00172  M01S00149.cueshel +++| CUE8     SB6    B0+         SET NO ERROR
00173  M01S00150.cueshel +++|          SA2    CTRLC
00174  M01S00151.cueshel +++|          BX3    X3-X3
00175  M01S00152.cueshel +++|          SB3    0           SET CHARACTER COUNTER
00176  M01S00153.cueshel +++|          SB4    7           SET MAXIMUM CHARACTERS PER COMMAND
00177  M01S00154.cueshel +++| CUE9     SA2    A2+1
00178  M01S00155.cueshel +++|          SX6    X2-1R
00179  M01S00156.cueshel +++|          ZR     X6,CUE9     IF CHARACTER = BLANK
00180  M01S00157.cueshel +++|          SX6    X2-1R+
00181  M01S00158.cueshel +++|          PL     X6,CUE10    IF SEPARATOR FOUND
00182  M01S00159.cueshel +++|          SB3    B3+1
00183  M01S00160.cueshel +++|          SB4    B4-1        DECREASE CHARACTER COUNT
00184  M01S00161.cueshel +++|          SX7    CUEA        *COMMAND KEYWORD TOO LONG.*
00185  M01S00162.cueshel +++|          NG     B4,CUE15    IF MAXIMUM LENGTH EXCEEDED
00186  M01S00163.cueshel +++|          LX3    6
00187  M01S00164.cueshel +++|          BX3    X3+X2       APPEND CHARACTER TO COMMAND
00188  M01S00165.cueshel +++|          EQ     CUE9        GET NEXT CHARACTER
00189  M01S00166.cueshel +++|
00190  M01S00167.cueshel +++| CUE10    SB4    10          LEFT JUSTIFY CONTROL STATEMENT
00191  M01S00168.cueshel +++|          SX2    6
00192  M01S00169.cueshel +++|          SX4    B4-B3       CHARACTER POSITIONS TO SHIFT
00193  M01S00170.cueshel +++|          IX4    X4*X2       BITS TO SHIFT
00194  M01S00171.cueshel +++|          SB4    X4
00195  M01S00172.cueshel +++|          LX6    X3,B4
00196  M01S00173.cueshel +++|          SA6    PCS

Line S00174 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00174.cuesh3  ---|          SA5    BYECMD

Line S00175 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00175.cuesh3  ---|          IX5    X5-X6

Line S00176 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00176.cuesh3  ---|          ZR     X5,CUE22    IF USER ISSUED *BYE* COMMAND
00200  M01S00177.cueshel +++|
00201  M01S00178.cueshel +++|*         DO A BINARY TREE SEARCH TO FIND STATEMENT WITHIN THE LIST.
00202  M01S00179.cueshel +++|
00203  M01S00180.cueshel +++|          SX3    CMDSL       LENGTH OF LIST TO CHECK (MAX)
00204  M01S00181.cueshel +++|          SX0    B1
00205  M01S00182.cueshel +++|          IX4    X3+X0       ADD IN ROUND UP FACTOR
00206  M01S00183.cueshel +++|          AX4    1           X4 = (MAX/2)   ROUNDED UP
00207  M01S00184.cueshel +++|          BX5    X4          X5 = CURRENT POSITION IN LIST (CUR)
00208  M01S00185.cueshel +++|          SA1    PCS         X1 = PACKED CONTROL WORD
00209  M01S00186.cueshel +++| CUE11    SA2    X5+CMDS     GET COMMAND AND VALIDATION BITS
00210  M01S00187.cueshel +++|          MX0    42          MASK OFF COMMAND ONLY
00211  M01S00188.cueshel +++|          BX2    X0*X2
00212  M01S00189.cueshel +++|          IX2    X2-X1
00213  M01S00190.cueshel +++|          IX4    X3-X5       HOW MANY POSITIONS LEFT TO CHECK (MAX-CUR)
00214  M01S00191.cueshel +++|          ZR     X2,CUE14    IF COMMAND MATCH FOUND IN TABLE
00215  M01S00192.cueshel +++|          NZ     X4,CUE12    IF MORE ENTRIES IN TABLE TO CHECK
00216  M01S00193.cueshel +++|          SB3    2
00217  M01S00194.cueshel +++|          SA2    SHELFLG
00218  M01S00195.cueshel +++|          SB4    X2
00219  M01S00196.cueshel +++|          EQ     B3,B4,CUE16 IF *CDSHELL* AND NOT IN TABLE
00220  M01S00197.cueshel +++|          SX7    CUEB        *UNAUTHORIZED COMMAND.*
00221  M01S00198.cueshel +++|          EQ     CUE15       IF ERROR
00222  M01S00199.cueshel +++| CUE12    SX0    B1
00223  M01S00200.cueshel +++|          IX4    X4+X0       ADD IN ROUND-UP FACTOR
00224  M01S00201.cueshel +++|          AX4    1           (MAX-CUR)/2 HALF THE AMOUNT LEFT TO CHECK
00225  M01S00202.cueshel +++|          PL     X2,CUE13    IF POSITIVE, SKIPPED AHEAD TOO FAR
00226  M01S00203.cueshel +++|          IX5    X5+X4       SEARCH AHEAD     CUR+((MAX-CUR)/2)
00227  M01S00204.cueshel +++|          EQ     CUE11       CHECK NEXT CALCULATED ENTRY IN THE LIST
00228  M01S00205.cueshel +++|
00229  M01S00206.cueshel +++| CUE13    BX3    X5          NUMBER COMMANDS LEFT TO CHECK (MAX=CUR)
00230  M01S00207.cueshel +++|          IX5    X5-X4       SEARCH BACKWARDS HALFWAY OF WHAT IS LEFT
00231  M01S00208.cueshel +++|          EQ     CUE11       CHECK NEXT CALCULATED ENTRY IN THE LIST
00232  M01S00209.cueshel +++|
00233  M01S00210.cueshel +++|*         DETERMINE IF COMMAND IS VALIDATED FOR THE SHELL PROGRAM
00234  M01S00211.cueshel +++|*         SPECIFIED.
00235  M01S00212.cueshel +++|
00236  M01S00213.cueshel +++| CUE14    SA2    A2          RESET COMMAND AT CURRENT POSITION
00237  M01S00214.cueshel +++|          SA3    SHELFLG     RETRIEVE SHELL FLAG
00238  M01S00215.cueshel +++|          BX2    X3*X2
00239  M01S00216.cueshel +++|          NZ     X2,CUE16    IF VALID COMMAND
00240  M01S00217.cueshel +++|          SX7    CUEB        *UNAUTHORIZED COMMAND.*
00241  M01S00218.cueshel +++|
00242  M01S00219.cueshel +++|*         STORE APPROPRIATE ERROR MESSAGE AND SET ERROR FLAG.
00243  M01S00220.cueshel +++|
00244  M01S00221.cueshel +++| CUE15    SA7    ERRM
00245  M01S00222.cueshel +++|          SB6    1
00246  M01S00223.cueshel +++|
00247  M01S00224.cueshel +++|*         REPACK COMMAND WITH *$* PREFIX AND CALL *EXCST*.
00248  M01S00225.cueshel +++|
00249  M01S00226.cueshel +++| CUE16    SA1    CTRLC-1     B7 = LWA IN *USBB*  (SET BY *COMCUSB*)

Line S00227 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh1`

Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00227.cuesh1  ---|          SB4    B0+         B4 = COUNT NUMBER OF WORDS REPACKED
00251  M01S00001.cuesh1  +++|          SB4    B0          B4 = COUNT OF WORDS REPACKED
00252  M01S00002.cuesh1  +++|          SB2    B0
00253  M01S00228.cueshel +++| CUE17    SX6    B0+         INITIALIZE EMPTY WORD
00254  M01S00229.cueshel +++|          SB3    10          B3 = NUMBER CHARACTERS PER WORD (0-9)
00255  M01S00230.cueshel +++| CUE18    SA1    A1+B1       GET NEXT CHARACTER
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

Line S00231 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh1`

Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00231.cuesh1  ---|          LX6    6
00263  M01S00009.cuesh1  +++| CUE18.1  LX6    6
00264  M01S00232.cueshel +++|          BX6    X6+X1       APPEND CHARACTER
00265  M01S00233.cueshel +++|          SB5    A1          B5 = CURRENT ADDRESS IN *USBB*
00266  M01S00234.cueshel +++|          EQ     B5,B7,CUE19 IF END OF BUFFER
00267  M01S00235.cueshel +++|          SB3    B3-1
00268  M01S00236.cueshel +++|          NZ     B3,CUE18    IF CURRENT WORD NOT YET FULL
00269  M01S00237.cueshel +++|          SA6    MCCDR+B4    STORE FULL WORD
00270  M01S00238.cueshel +++|          SB4    B4+1        INCREASE WORD COUNT
00271  M01S00239.cueshel +++|          EQ     CUE17       PROCESS UNTIL LWA OF BUFFER IS REACHED
00272  M01S00240.cueshel +++|
00273  M01S00241.cueshel +++| CUE19    SX2    B3-B1       LEFT JUSTIFY LAST WORD OF COMMAND
00274  M01S00242.cueshel +++|          SX3    6
00275  M01S00243.cueshel +++|          IX2    X2*X3
00276  M01S00244.cueshel +++|          SB2    X2
00277  M01S00245.cueshel +++|          LX6    B2
00278  M01S00246.cueshel +++|          SA6    MCCDR+B4
00279  M01S00247.cueshel +++|          NZ     B6,CUE20    IF ERROR FLAG SET
00280  M01S00248.cueshel +++|          EXCST  MCCDR       PASS MODIFIED COMMAND TO SYSTEM

Line S00249 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00249.cuesh3  ---|          EQ     CUE23       EXIT
00282  M01S00004.cuesh3  +++|          EQ     CUE22       EXIT
00283  M01S00250.cueshel +++|
00284  M01S00251.cueshel +++|*         ISSUE ERROR MESSAGE.
00285  M01S00252.cueshel +++|
00286  M01S00253.cueshel +++| CUE20    SA5    ERRM
00287  M01S00254.cueshel +++|          SA2    RI
00288  M01S00255.cueshel +++|          ZR     X2,CUE21    IF NO REQUESTED INPUT
00289  M01S00256.cueshel +++|          WRITEW OUTPUT,X5,3
00290  M01S00257.cueshel +++|          WRITER OUTPUT,R

Line S00258 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00258.ns2728  ---| CUE21    MESSAGE  MCCDR,3,R

Line S00259 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`ns2728`

Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00259.ns2728  ---|          MESSAGE  X5,3,R
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  M01S00260.cueshel +++|          ABORT
00300  M01S00261.cueshel +++|

Line S00262 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00262.cuesh3  ---|*         LOG USER OFF THE TERMINAL.

Line S00263 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00302  M02S00263.cuesh3  ---|

Line S00264 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00264.cuesh3  ---| CUE22    RJ     SUT         SET UP TERMINAL

Line S00265 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00265.cuesh3  ---|          WRITEW OUTPUT,LOTOUT,1

Line S00266 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00266.cuesh3  ---|          WRITER OUTPUT,R

Line S00267 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00267.cuesh3  ---|

Line S00268 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00268.cuesh3  ---| CUE23    ENDRUN
00308  M01S00005.cuesh3  +++| CUE22    ENDRUN
00309  M01S00269.cueshel +++|
00310  M01S00270.cueshel +++|*         ERROR MESSAGE DATA.
00311  M01S00271.cueshel +++|
00312  M01S00272.cueshel +++| CUEA     DATA     C* COMMAND KEYWORD TOO LONG.*
00313  M01S00273.cueshel +++| CUEB     DATA     C* UNAUTHORIZED COMMAND.*
00314  M01S00274.cueshel +++| CUEC     DATA     C* NO MATCHING DELIMITER.*
00315  M01S00026.ns2728  +++| CUED     DATA     C* INCORRECT COMMAND.*
00316  M01S00275.cueshel +++|          TITLE  SUBROUTINES.
00317  M01S00276.cueshel +++| GII      SPACE    4,15
00318  M01S00277.cueshel +++|***       GII - GET INTERACTIVE INPUT.
00319  M01S00278.cueshel +++|*
00320  M01S00279.cueshel +++|*         CALLED TO PROMPT AND GET A SINGLE INPUT LINE.
00321  M01S00280.cueshel +++|*
00322  M01S00281.cueshel +++|*         ENTRY  CCDR = ADDRESS OF 8-WORD AREA.
00323  M01S00282.cueshel +++|*
00324  M01S00283.cueshel +++|*         EXIT   CCDR = INPUT LINE.
00325  M01S00284.cueshel +++|*                CCDR = 0 IF EOR/EOF/EOI.
00326  M01S00285.cueshel +++|*                (B7) = 1 IF ENDRUN REQUIRED.
00327  M01S00286.cueshel +++|*
00328  M01S00287.cueshel +++|*         USES   X - 2, 6, 7.
00329  M01S00288.cueshel +++|*                A - 2, 6, 7.
00330  M01S00289.cueshel +++|*                B - 7.
00331  M01S00290.cueshel +++|*
00332  M01S00291.cueshel +++|*         CALLS  SUT.
00333  M01S00292.cueshel +++|*
00334  M01S00293.cueshel +++|*         MACROS CSET, MESSAGE, PROMPT, READ, READW, WRITER, WRITEW.
00335  M01S00294.cueshel +++|
00336  M01S00295.cueshel +++|
00337  M01S00296.cueshel +++| GII1     SB7    B1+         FLAG TO END-RUN
00338  M01S00297.cueshel +++|
00339  M01S00298.cueshel +++| GII      SUBR
00340  M01S00299.cueshel +++|          CSET   NORMAL
00341  M01S00300.cueshel +++|          RJ     SUT         SET UP TERMINAL
00342  M01S00301.cueshel +++|          SX6    B0
00343  M01S00302.cueshel +++|          SA6    CCDR        ZERO FIRST AND LAST WORD OF BUFFER
00344  M01S00303.cueshel +++|          SA6    CCDR+8
00345  M01S00304.cueshel +++|          SX7    B1
00346  M01S00305.cueshel +++|          SA7    RI          SET FLAG FOR THE REQUESTED INPUT
00347  M01S00306.cueshel +++|          PROMPT OFF         TURN OFF AUTO PROMPT
00348  M01S00307.cueshel +++|          WRITEW OUTPUT,OUT,1  WRITE PROMPT
00349  M01S00308.cueshel +++|          READ   INPUT,R     GET INPUT LINE
00350  M01S00309.cueshel +++|          READW  INPUT,CCDR,9
00351  M01S00310.cueshel +++|          CSET   RESTORE
00352  M01S00311.cueshel +++|          SB7    B0+
00353  M01S00312.cueshel +++|          SA2    CCDR
00354  M01S00313.cueshel +++|          ZR     X2,GII1     IF NO INPUT DATA
00355  M01S00314.cueshel +++|          SA2    CCDR+8
00356  M01S00315.cueshel +++|          ZR     X2,GIIX     IF NOT TOO MUCH DATA
00357  M01S00316.cueshel +++|          MESSAGE  CCDR,3,R  ISSUE ERROR MESSAGE AND ENDRUN
00358  M01S00317.cueshel +++|          MESSAGE  GIIA,3,R
00359  M01S00318.cueshel +++|          WRITEW OUTPUT,GIIA,3
00360  M01S00319.cueshel +++|          WRITER OUTPUT,R
00361  M01S00320.cueshel +++|          EQ     GII1        SET FLAG TO REQUIRE ENDRUN
00362  M01S00321.cueshel +++|
00363  M01S00322.cueshel +++| GIIA     DATA     C* INPUT LINE TOO LONG.*
00364  M01S00323.cueshel +++| SUT      SPACE    4,15
00365  M01S00324.cueshel +++|***       SUT - SET UP TERMINAL.
00366  M01S00325.cueshel +++|*
00367  M01S00326.cueshel +++|*         SETS UP THE LIST-OF-FILES FOR *OUTPUT*.
00368  M01S00327.cueshel +++|*         SUT CAN ONLY BE CALLED FOR AN INTERACTIVE JOB; IT VERIFIES
00369  M01S00328.cueshel +++|*         THAT FILES *INPUT* AND *OUTPUT* HAVE DEVICE TYPE *TT*
00370  M01S00329.cueshel +++|*         BY RETURNING THEM.
00371  M01S00330.cueshel +++|*         ONLY THE FIRST CALL TO SUT IS ACTED UPON.
00372  M01S00331.cueshel +++|*
00373  M01S00332.cueshel +++|*         USES   X - 1, 6.
00374  M01S00333.cueshel +++|*                A - 1, 6.
00375  M01S00334.cueshel +++|*
00376  M01S00335.cueshel +++|*         MACROS RETURN, SETLOF.
00377  M01S00336.cueshel +++|
00378  M01S00337.cueshel +++|
00379  M01S00338.cueshel +++| SUT      SUBR
00380  M01S00339.cueshel +++|          SA1    LOFF        CHECK FOR LIST OF FILES ALREADY PRESENT
00381  M01S00340.cueshel +++|          NZ     X1,SUTX     IF ALREADY SET UP, RETURN
00382  M01S00341.cueshel +++|          MX6    1           SET LIST OF FILES PRESENT FLAG
00383  M01S00342.cueshel +++|          SA6    A1
00384  M01S00343.cueshel +++|          RETURN INPUT,R     RETURN FILES
00385  M01S00344.cueshel +++|          RETURN OUTPUT,R
00386  M01S00345.cueshel +++|          SA1    OUTPUT      CLEAR FET STATUS
00387  M01S00346.cueshel +++|          MX6    49
00388  M01S00347.cueshel +++|          LX6    1
00389  M01S00348.cueshel +++|          BX6    X6*X1
00390  M01S00349.cueshel +++|          SA6    A1
00391  M01S00350.cueshel +++|          MX6    1           SET FLUSH BIT
00392  M01S00351.cueshel +++|          LX6    36+1
00393  M01S00352.cueshel +++|          SA1    OUTPUT+1
00394  M01S00353.cueshel +++|          BX6    X6+X1
00395  M01S00354.cueshel +++|          SA6    A1
00396  M01S00355.cueshel +++|          SETLOF LOFP        SET LIST-OF-FILES
00397  M01S00356.cueshel +++|          EQ     SUTX        RETURN
00398  M01S00357.cueshel +++|          SPACE  4,10
00399  M01S00358.cueshel +++|***       COMMON DECKS.
00400  M01S00359.cueshel +++|
00401  M01S00360.cueshel +++|*         BUFFER FOR *COMCUSB*.  *CTRLC* MUST BE JUST BEFORE *USBB*.
00402  M01S00361.cueshel +++|
00403  M01S00362.cueshel +++| CTRLC    DATA   1R$         CONTROL CARD BUFFER
00404  M01S00363.cueshel +++| USBB     BSSZ   81          USED IN COMCUSB TO UNPACK STRING OF CHARS
00405  M01S00364.cueshel +++|
00406  M01S00365.cueshel +++|*CALL     COMCCIO
00407  M01S00366.cueshel +++|*CALL     COMCCPM
00408  M01S00367.cueshel +++|*CALL     COMCRDH
00409  M01S00368.cueshel +++|*CALL     COMCRDW
00410  M01S00369.cueshel +++|*CALL     COMCSYS
00411  M01S00370.cueshel +++|*CALL     COMCUSB
00412  M01S00371.cueshel +++|*CALL     COMCWTW
00413  M01S00372.cueshel +++|          TITLE  TABLES AND BUFFERS.
00414  M01S00373.cueshel +++| CMDS     SPACE  4,10
00415  M01S00374.cueshel +++|**        CMDS - TABLE OF VALID COMMANDS.
00416  M01S00375.cueshel +++|*
00417  M01S00376.cueshel +++|*T        42/COMMAND,16/0,1/C,1/R

Figure

00418  M01S00377.cueshel +++|*
00419  M01S00378.cueshel +++|*         COMMAND = COMMAND NAME.
00420  M01S00379.cueshel +++|*         C = 1 IF CDSHELL COMMAND.
00421  M01S00380.cueshel +++|*         R = 1 IF RMSHELL COMMAND.
00422  M01S00381.cueshel +++|*
00423  M01S00382.cueshel +++|*         NOTE - THIS TABLE MUST BE IN ALPHABETICAL ORDER.
00424  M01S00383.cueshel +++|
00425  M01S00384.cueshel +++|
00426  M01S00385.cueshel +++| CMDS     BSS    0
00427  M01S00386.cueshel +++|          VFD    42/0LACCESS,16/0,1/1,1/0
00428  M01S00387.cueshel +++|          VFD    42/0LALGOL5,16/0,1/0,1/0
00429  M01S00388.cueshel +++|          VFD    42/0LALX,16/0,1/0,1/1
00430  M01S00389.cueshel +++|          VFD    42/0LAPEX,16/0,1/0,1/0
00431  M01S00390.cueshel +++|          VFD    42/0LAPL,16/0,1/0,1/0
00432  M01S00391.cueshel +++|          VFD    42/0LAPPEND,16/0,1/1,1/0
00433  M01S00392.cueshel +++|          VFD    42/0LAP1,16/0,1/0,1/1
00434  M01S00393.cueshel +++|          VFD    42/0LASCII,16/0,1/1,1/0
00435  M01S00394.cueshel +++|          VFD    42/0LASSIGN,16/0,1/1,1/1
00436  M01S00395.cueshel +++|          VFD    42/0LATTACH,16/0,1/1,1/1

Line S00396 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00396.cuesh4  ---|          VFD    42/0LAUTO,16/0,1/1,1/0
00438  M01S00001.cuesh4  +++|          VFD    42/0LAUTO,16/0,1/1,1/1
00439  M01S00397.cueshel +++|          VFD    42/0LBASIC,16/0,1/0,1/0
00440  M01S00002.cuesh4  +++|          VFD    42/0LBATCH,16/0,1/1,1/1
00441  M01S00398.cueshel +++|          VFD    42/0LBEGIN,16/0,1/1,1/1
00442  M01S00399.cueshel +++|          VFD    42/0LBINDER,16/0,1/1,1/0
00443  M01S00400.cueshel +++|          VFD    42/0LBKSP,16/0,1/1,1/0
00444  M01S00401.cueshel +++|          VFD    42/0LBLANK,16/0,1/1,1/0
00445  M01S00402.cueshel +++|          VFD    42/0LBRIEF,16/0,1/1,1/0
00446  M01S00006.cuesh3  +++|          VFD    42/0LBYE,16/0,1/1,1/1
00447  M01S00403.cueshel +++|          VFD    42/0LCATALOG,16/0,1/1,1/1
00448  M01S00404.cueshel +++|          VFD    42/0LCATLIST,16/0,1/1,1/1
00449  M01S00405.cueshel +++|          VFD    42/0LCD2UTIL,16/0,1/1,1/0
00450  M01S00406.cueshel +++|          VFD    42/0LCD2000,16/0,1/1,1/0
00451  M01S00407.cueshel +++|          VFD    42/0LCFO,16/0,1/1,1/0
00452  M01S00408.cueshel +++|          VFD    42/0LCHANGE,16/0,1/1,1/1
00453  M01S00409.cueshel +++|          VFD    42/0LCHARGE,16/0,1/1,1/1
00454  M01S00410.cueshel +++|          VFD    42/0LCHVAL,16/0,1/1,1/0
00455  M01S00411.cueshel +++|          VFD    42/0LCKP,16/0,1/1,1/0
00456  M01S00412.cueshel +++|          VFD    42/0LCLASS,16/0,1/1,1/0
00457  M01S00413.cueshel +++|          VFD    42/0LCLEAR,16/0,1/1,1/1
00458  M01S00414.cueshel +++|          VFD    42/0LCOBOL5,16/0,1/0,1/0
00459  M01S00415.cueshel +++|          VFD    42/0LCOMMENT,16/0,1/1,1/0

Line S00416 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh2`

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00416.cuesh2  ---|          VFD    42/0LCOMMON,16/0,1/1,1/0
00461  M01S00001.cuesh2  +++|          VFD    42/0LCOMMON,16/0,1/0,1/0
00462  M01S00417.cueshel +++|          VFD    42/0LCOMPASS,16/0,1/0,1/0
00463  M01S00418.cueshel +++|          VFD    42/0LCOPY,16/0,1/1,1/1
00464  M01S00419.cueshel +++|          VFD    42/0LCOPYBF,16/0,1/1,1/1
00465  M01S00420.cueshel +++|          VFD    42/0LCOPYBR,16/0,1/1,1/1
00466  M01S00421.cueshel +++|          VFD    42/0LCOPYCF,16/0,1/1,1/1
00467  M01S00422.cueshel +++|          VFD    42/0LCOPYCR,16/0,1/1,1/1
00468  M01S00423.cueshel +++|          VFD    42/0LCOPYEI,16/0,1/1,1/1
00469  M01S00424.cueshel +++|          VFD    42/0LCOPYER,16/0,1/0,1/1
00470  M01S00425.cueshel +++|          VFD    42/0LCOPYL,16/0,1/1,1/0
00471  M01S00426.cueshel +++|          VFD    42/0LCOPYLM,16/0,1/1,1/0
00472  M01S00427.cueshel +++|          VFD    42/0LCOPYSBF,16/0,1/1,1/1
00473  M01S00428.cueshel +++|          VFD    42/0LCOPYX,16/0,1/1,1/0
00474  M01S00429.cueshel +++|          VFD    42/0LCSET,16/0,1/1,1/0
00475  M01S00430.cueshel +++|          VFD    42/0LCSU,16/0,1/0,1/1
00476  M01S00431.cueshel +++|          VFD    42/0LCTB,16/0,1/0,1/1
00477  M01S00432.cueshel +++|          VFD    42/0LCTIME,16/0,1/1,1/0
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  M01S00433.cueshel +++|          VFD    42/0LCU1,16/0,1/0,1/1
00482  M01S00434.cueshel +++|          VFD    42/0LDAYFILE,16/0,1/1,1/1
00483  M01S00435.cueshel +++|          VFD    42/0LDEBUG,16/0,1/0,1/0
00484  M01S00436.cueshel +++|          VFD    42/0LDEFINE,16/0,1/1,1/1
00485  M01S00437.cueshel +++|          VFD    42/0LDETACH,16/0,1/1,1/0
00486  M01S00438.cueshel +++|          VFD    42/0LDIAL,16/0,1/1,1/0
00487  M01S00439.cueshel +++|          VFD    42/0LDISPLAY,16/0,1/1,1/1
00488  M01S00440.cueshel +++|          VFD    42/0LDMB,16/0,1/1,1/0
00489  M01S00441.cueshel +++|          VFD    42/0LDMD,16/0,1/1,1/1
00490  M01S00442.cueshel +++|          VFD    42/0LDMDECS,16/0,1/1,1/1
00491  M01S00443.cueshel +++|          VFD    42/0LDMP,16/0,1/1,1/1
00492  M01S00444.cueshel +++|          VFD    42/0LDMPECS,16/0,1/1,1/1
00493  M01S00445.cueshel +++|          VFD    42/0LDOCMENT,16/0,1/1,1/0

Line S00446 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00446.cuesh4  ---|          VFD    42/0LDROP,16/0,1/1,1/0
00495  M01S00006.cuesh4  +++|          VFD    42/0LDROP,16/0,1/1,1/1
00496  M01S00447.cueshel +++|          VFD    42/0LEALOGCD,16/0,1/1,1/0
00497  M01S00448.cueshel +++|          VFD    42/0LEALOGSV,16/0,1/1,1/0
00498  M01S00449.cueshel +++|          VFD    42/0LEALOGVS,16/0,1/1,1/0
00499  M01S00450.cueshel +++|          VFD    42/0LEAPREVC,16/0,1/1,1/0
00500  M01S00451.cueshel +++|          VFD    42/0LEAPREVS,16/0,1/1,1/0
00501  M01S00452.cueshel +++|          VFD    42/0LEAUL101,16/0,1/1,1/0
00502  M01S00453.cueshel +++|          VFD    42/0LEAVL105,16/0,1/1,1/0
00503  M01S00454.cueshel +++|          VFD    42/0LEC3,16/0,1/0,1/1
00504  M01S00455.cueshel +++|          VFD    42/0LEC8,16/0,1/0,1/1
00505  M01S00456.cueshel +++|          VFD    42/0LEDIT,16/0,1/1,1/1
00506  M01S00457.cueshel +++|          VFD    42/0LELD,16/0,1/0,1/1
00507  M01S00458.cueshel +++|          VFD    42/0LELSE,16/0,1/1,1/0
00508  M01S00459.cueshel +++|          VFD    42/0LENDIF,16/0,1/1,1/0
00509  M01S00460.cueshel +++|          VFD    42/0LENDW,16/0,1/1,1/0
00510  M01S00461.cueshel +++|          VFD    42/0LENQUIRE,16/0,1/1,1/1
00511  M01S00462.cueshel +++|          VFD    42/0LENTER,16/0,1/1,1/0
00512  M01S00463.cueshel +++|          VFD    42/0LEVICT,16/0,1/1,1/0

Line S00464 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00464.cuesh4  ---|          VFD    42/0LEXECUTE,16/0,1/0,1/0
00514  M01S00007.cuesh4  +++|          VFD    42/0LEXECUTE,16/0,1/0,1/1
00515  M01S00465.cueshel +++|          VFD    42/0LEXIT,16/0,1/1,1/1
00516  M01S00466.cueshel +++|          VFD    42/0LEXPLAIN,16/0,1/1,1/0
00517  M01S00467.cueshel +++|          VFD    42/0LFCOPY,16/0,1/1,1/0
00518  M01S00468.cueshel +++|          VFD    42/0LFILE,16/0,1/1,1/0

Line S00469 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00469.cuesh4  ---|          VFD    42/0LFSE,16/0,1/1,1/0
00520  M01S00008.cuesh4  +++|          VFD    42/0LFSE,16/0,1/1,1/1
00521  M01S00470.cueshel +++|          VFD    42/0LFS8,16/0,1/0,1/1
00522  M01S00471.cueshel +++|          VFD    42/0LFTN,16/0,1/0,1/0
00523  M01S00472.cueshel +++|          VFD    42/0LFTN5,16/0,1/0,1/0
00524  M01S00473.cueshel +++|          VFD    42/0LF45,16/0,1/0,1/0
00525  M01S00474.cueshel +++|          VFD    42/0LGET,16/0,1/1,1/1
00526  M01S00475.cueshel +++|          VFD    42/0LGETLOG,16/0,1/0,1/1

Line S00476 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

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

Line S00477 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00477.cuesh4  ---|          VFD    42/0LGOODBYE,16/0,1/1,1/0
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  M01S00478.cueshel +++|          VFD    42/0LGPSS,16/0,1/0,1/0
00532  M01S00479.cueshel +++|          VFD    42/0LGTR,16/0,1/1,1/0

Line S00480 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

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

Line S00482 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

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

Line S00483 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00483.cuesh4  ---|          VFD    42/0LHELPME,16/0,1/1,1/0
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  M01S00484.cueshel +++|          VFD    42/0LHPA,16/0,1/0,1/1
00541  M01S00485.cueshel +++|          VFD    42/0LHTIME,16/0,1/1,1/0
00542  M01S00486.cueshel +++|          VFD    42/0LICEMDDN,16/0,1/1,1/0
00543  M01S00487.cueshel +++|          VFD    42/0LIEDIT,16/0,1/1,1/0
00544  M01S00488.cueshel +++|          VFD    42/0LIF,16/0,1/1,1/0
00545  M01S00489.cueshel +++|          VFD    42/0LIFE,16/0,1/1,1/0
00546  M01S00490.cueshel +++|          VFD    42/0LITEMIZE,16/0,1/1,1/0
00547  M01S00491.cueshel +++|          VFD    42/0LKRONREF,16/0,1/1,1/0
00548  M01S00492.cueshel +++|          VFD    42/0LLABEL,16/0,1/1,1/1
00549  M01S00493.cueshel +++|          VFD    42/0LLBC,16/0,1/0,1/0
00550  M01S00494.cueshel +++|          VFD    42/0LLDI,16/0,1/1,1/0
00551  M01S00495.cueshel +++|          VFD    42/0LLDSET,16/0,1/1,1/0
00552  M01S00496.cueshel +++|          VFD    42/0LLENGTH,16/0,1/1,1/0
00553  M01S00014.cuesh4  +++|          VFD    42/0LLGO,16/0,1/0,1/1
00554  M01S00497.cueshel +++|          VFD    42/0LLIB,16/0,1/0,1/0
00555  M01S00498.cueshel +++|          VFD    42/0LLIBEDIT,16/0,1/1,1/0
00556  M01S00499.cueshel +++|          VFD    42/0LLIBGEN,16/0,1/1,1/0
00557  M01S00500.cueshel +++|          VFD    42/0LLIBLOAD,16/0,1/1,1/0
00558  M01S00501.cueshel +++|          VFD    42/0LLIBRARY,16/0,1/1,1/0
00559  M01S00502.cueshel +++|          VFD    42/0LLIBTASK,16/0,1/1,1/0
00560  M01S00503.cueshel +++|          VFD    42/0LLIMITS,16/0,1/1,1/1

Line S00504 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00504.cuesh4  ---|          VFD    42/0LLINE,16/0,1/1,1/0
00562  M01S00015.cuesh4  +++|          VFD    42/0LLINE,16/0,1/1,1/1
00563  M01S00505.cueshel +++|          VFD    42/0LLISTLB,16/0,1/1,1/1
00564  M01S00506.cueshel +++|          VFD    42/0LLIST80,16/0,1/1,1/0
00565  M01S00507.cueshel +++|          VFD    42/0LLOAD,16/0,1/0,1/0
00566  M01S00508.cueshel +++|          VFD    42/0LLOC,16/0,1/0,1/0
00567  M01S00509.cueshel +++|          VFD    42/0LLOCK,16/0,1/1,1/0

Line S00510 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

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

Line S00511 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00511.cuesh4  ---|          VFD    42/0LLOGOUT,16/0,1/1,1/0
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  M01S00512.cueshel +++|          VFD    42/0LLO72,16/0,1/1,1/0
00573  M01S00513.cueshel +++|          VFD    42/0LMACHINE,16/0,1/1,1/0
00574  M01S00514.cueshel +++|          VFD    42/0LMALET,16/0,1/0,1/1

Line S00515 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00515.cuesh4  ---|          VFD    42/0LMAP,16/0,1/1,1/0
00576  M01S00018.cuesh4  +++|          VFD    42/0LMAP,16/0,1/1,1/1
00577  M01S00516.cueshel +++|          VFD    42/0LMAPINI,16/0,1/0,1/1
00578  M01S00517.cueshel +++|          VFD    42/0LMFL,16/0,1/1,1/1
00579  M01S00518.cueshel +++|          VFD    42/0LMFLINK,16/0,1/1,1/0
00580  M01S00519.cueshel +++|          VFD    42/0LMFQUEUE,16/0,1/1,1/0
00581  M01S00520.cueshel +++|          VFD    42/0LMODE,16/0,1/1,1/1
00582  M01S00521.cueshel +++|          VFD    42/0LMODIFY,16/0,1/1,1/0
00583  M01S00522.cueshel +++|          VFD    42/0LMRG,16/0,1/0,1/1
00584  M01S00523.cueshel +++|          VFD    42/0LNEW,16/0,1/1,1/1

Line S00524 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00524.cuesh4  ---|          VFD    42/0LNOEXIT,16/0,1/1,1/0
00586  M01S00019.cuesh4  +++|          VFD    42/0LNOEXIT,16/0,1/1,1/1
00587  M01S00525.cueshel +++|          VFD    42/0LNORERUN,16/0,1/1,1/0
00588  M01S00020.cuesh4  +++|          VFD    42/0LNORM,16/0,1/1,1/1
00589  M01S00526.cueshel +++|          VFD    42/0LNORMAL,16/0,1/1,1/1
00590  M01S00527.cueshel +++|          VFD    42/0LNOSORT,16/0,1/1,1/0
00591  M01S00528.cueshel +++|          VFD    42/0LNOTE,16/0,1/1,1/0
00592  M01S00529.cueshel +++|          VFD    42/0LNULL,16/0,1/1,1/0
00593  M01S00530.cueshel +++|          VFD    42/0LOFFSW,16/0,1/1,1/1
00594  M01S00531.cueshel +++|          VFD    42/0LOLD,16/0,1/1,1/1
00595  M01S00532.cueshel +++|          VFD    42/0LOMREF,16/0,1/1,1/0

Line S00533 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00533.cuesh4  ---|          VFD    42/0LONEXIT,16/0,1/1,1/0
00597  M01S00021.cuesh4  +++|          VFD    42/0LONEXIT,16/0,1/1,1/1
00598  M01S00534.cueshel +++|          VFD    42/0LONSW,16/0,1/1,1/1
00599  M01S00535.cueshel +++|          VFD    42/0LOPLEDIT,16/0,1/1,1/0
00600  M01S00536.cueshel +++|          VFD    42/0LOPMSG,16/0,1/0,1/1

Line S00537 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00537.cuesh4  ---|          VFD    42/0LOUT,16/0,1/1,1/0
00602  M01S00022.cuesh4  +++|          VFD    42/0LOUT,16/0,1/1,1/1
00603  M01S00538.cueshel +++|          VFD    42/0LOVWRITE,16/0,1/1,1/0
00604  M01S00539.cueshel +++|          VFD    42/0LPACK,16/0,1/1,1/1
00605  M01S00540.cueshel +++|          VFD    42/0LPACKNAM,16/0,1/1,1/1
00606  M01S00541.cueshel +++|          VFD    42/0LPASCAL,16/0,1/0,1/0
00607  M01S00542.cueshel +++|          VFD    42/0LPASSWOR,16/0,1/1,1/0
00608  M01S00543.cueshel +++|          VFD    42/0LPAUSE,16/0,1/1,1/0
00609  M01S00544.cueshel +++|          VFD    42/0LPBC,16/0,1/0,1/0
00610  M01S00545.cueshel +++|          VFD    42/0LPDU,16/0,1/1,1/0
00611  M01S00546.cueshel +++|          VFD    42/0LPERMIT,16/0,1/1,1/1
00612  M01S00547.cueshel +++|          VFD    42/0LPLI,16/0,1/0,1/0
00613  M01S00023.cuesh4  +++|          VFD    42/0LPRESET,16/0,1/1,1/1
00614  M01S00548.cueshel +++|          VFD    42/0LPRIMARY,16/0,1/1,1/1
00615  M01S00549.cueshel +++|          VFD    42/0LPROFILE,16/0,1/1,1/0
00616  M01S00550.cueshel +++|          VFD    42/0LPROTECT,16/0,1/1,1/0
00617  M01S00551.cueshel +++|          VFD    42/0LPURGALL,16/0,1/1,1/0
00618  M01S00552.cueshel +++|          VFD    42/0LPURGE,16/0,1/1,1/1
00619  M01S00553.cueshel +++|          VFD    42/0LQGET,16/0,1/1,1/0
00620  M01S00554.cueshel +++|          VFD    42/0LQUEUE7,16/0,1/1,1/0
00621  M01S00555.cueshel +++|          VFD    42/0LRBR,16/0,1/0,1/0
00622  M01S00556.cueshel +++|          VFD    42/0LRECOVER,16/0,1/1,1/1
00623  M01S00557.cueshel +++|          VFD    42/0LREDO,16/0,1/1,1/0
00624  M01S00558.cueshel +++|          VFD    42/0LREDUCE,16/0,1/1,1/1
00625  M01S00559.cueshel +++|          VFD    42/0LREGEN,16/0,1/0,1/1
00626  M01S00560.cueshel +++|          VFD    42/0LRENAME,16/0,1/1,1/1
00627  M01S00561.cueshel +++|          VFD    42/0LREPLACE,16/0,1/1,1/1
00628  M01S00562.cueshel +++|          VFD    42/0LREQUEST,16/0,1/1,1/1
00629  M01S00563.cueshel +++|          VFD    42/0LRERUN,16/0,1/1,1/0
00630  M01S00564.cueshel +++|          VFD    42/0LRESEQ,16/0,1/1,1/0
00631  M01S00565.cueshel +++|          VFD    42/0LRESOURC,16/0,1/1,1/1
00632  M01S00566.cueshel +++|          VFD    42/0LRESTART,16/0,1/1,1/0
00633  M01S00567.cueshel +++|          VFD    42/0LRETURN,16/0,1/1,1/1
00634  M01S00568.cueshel +++|          VFD    42/0LREVERT,16/0,1/1,1/1
00635  M01S00569.cueshel +++|          VFD    42/0LREVIEW,16/0,1/1,1/0
00636  M01S00570.cueshel +++|          VFD    42/0LREWIND,16/0,1/1,1/1
00637  M01S00571.cueshel +++|          VFD    42/0LRFL,16/0,1/1,1/1
00638  M01S00572.cueshel +++|          VFD    42/0LROLLOUT,16/0,1/1,1/0
00639  M01S00573.cueshel +++|          VFD    42/0LROUTE,16/0,1/1,1/1
00640  M01S00574.cueshel +++|          VFD    42/0LRTIME,16/0,1/1,1/0

Line S00575 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00575.cuesh4  ---|          VFD    42/0LRUN,16/0,1/0,1/0
00642  M01S00024.cuesh4  +++|          VFD    42/0LRUN,16/0,1/0,1/1
00643  M01S00576.cueshel +++|          VFD    42/0LSATISFY,16/0,1/1,1/0
00644  M01S00577.cueshel +++|          VFD    42/0LSAVE,16/0,1/1,1/1
00645  M01S00578.cueshel +++|          VFD    42/0LSCOPY,16/0,1/1,1/0

Line S00579 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00579.cuesh4  ---|          VFD    42/0LSCREEN,16/0,1/1,1/0
00647  M01S00025.cuesh4  +++|          VFD    42/0LSCREEN,16/0,1/1,1/1
00648  M01S00580.cueshel +++|          VFD    42/0LSECHDR,16/0,1/1,1/0
00649  M01S00581.cueshel +++|          VFD    42/0LSET,16/0,1/1,1/1
00650  M01S00582.cueshel +++|          VFD    42/0LSETASL,16/0,1/1,1/0
00651  M01S00583.cueshel +++|          VFD    42/0LSETCORE,16/0,1/1,1/0
00652  M01S00584.cueshel +++|          VFD    42/0LSETFAL,16/0,1/1,1/0
00653  M01S00585.cueshel +++|          VFD    42/0LSETFS,16/0,1/1,1/0
00654  M01S00586.cueshel +++|          VFD    42/0LSETJAL,16/0,1/1,1/0
00655  M01S00587.cueshel +++|          VFD    42/0LSETJOB,16/0,1/1,1/0
00656  M01S00588.cueshel +++|          VFD    42/0LSETJSL,16/0,1/1,1/0
00657  M01S00589.cueshel +++|          VFD    42/0LSETPFAC,16/0,1/1,1/0
00658  M01S00590.cueshel +++|          VFD    42/0LSETPFAL,16/0,1/1,1/0
00659  M01S00591.cueshel +++|          VFD    42/0LSETPR,16/0,1/1,1/0
00660  M01S00592.cueshel +++|          VFD    42/0LSETTL,16/0,1/1,1/1
00661  M01S00593.cueshel +++|          VFD    42/0LSHELL,16/0,1/0,1/0
00662  M01S00594.cueshel +++|          VFD    42/0LSKIP,16/0,1/1,1/1
00663  M01S00595.cueshel +++|          VFD    42/0LSKIPEI,16/0,1/1,1/1
00664  M01S00596.cueshel +++|          VFD    42/0LSKIPF,16/0,1/1,1/1
00665  M01S00597.cueshel +++|          VFD    42/0LSKIPFB,16/0,1/1,1/1
00666  M01S00598.cueshel +++|          VFD    42/0LSKIPR,16/0,1/1,1/1
00667  M01S00599.cueshel +++|          VFD    42/0LSLOAD,16/0,1/1,1/0
00668  M01S00600.cueshel +++|          VFD    42/0LSORT,16/0,1/1,1/0
00669  M01S00601.cueshel +++|          VFD    42/0LSORTMRG,16/0,1/1,1/0

Line S00602 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

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

Line S00605 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh5`

Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00605.cuesh5  ---|          VFD    42/0LSUMMARY,16/0,1/1,1/0
00675  M01S00606.cueshel +++|          VFD    42/0LSWITCH,16/0,1/1,1/1
00676  M01S00607.cueshel +++|          VFD    42/0LTCOPY,16/0,1/1,1/0
00677  M01S00027.cuesh4  +++|          VFD    42/0LTDU,16/0,1/1,1/1
00678  M01S00608.cueshel +++|          VFD    42/0LTDUMP,16/0,1/1,1/1
00679  M01S00609.cueshel +++|          VFD    42/0LTEXT,16/0,1/1,1/1
00680  M01S00610.cueshel +++|          VFD    42/0LTIMEOUT,16/0,1/1,1/0
00681  M01S00611.cueshel +++|          VFD    42/0LTIO,16/0,1/0,1/1

Line S00612 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00612.cuesh4  ---|          VFD    42/0LTRMDEF,16/0,1/1,1/0
00683  M01S00028.cuesh4  +++|          VFD    42/0LTRMDEF,16/0,1/1,1/1
00684  M01S00613.cueshel +++|          VFD    42/0LULIB,16/0,1/1,1/0
00685  M01S00614.cueshel +++|          VFD    42/0LUNIPOST,16/0,1/1,1/0
00686  M01S00615.cueshel +++|          VFD    42/0LUNLOAD,16/0,1/1,1/1
00687  M01S00616.cueshel +++|          VFD    42/0LUNLOCK,16/0,1/1,1/0

Line S00617 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh4`

Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00617.cuesh4  ---|          VFD    42/0LUPDATE,16/0,1/1,1/0
00689  M01S00029.cuesh4  +++|          VFD    42/0LUPDATE,16/0,1/1,1/1
00690  M01S00618.cueshel +++|          VFD    42/0LUPROC,16/0,1/1,1/0
00691  M01S00619.cueshel +++|          VFD    42/0LUSECPU,16/0,1/1,1/1
00692  M01S00620.cueshel +++|          VFD    42/0LUSER,16/0,1/1,1/1
00693  M01S00621.cueshel +++|          VFD    42/0LVERIFY,16/0,1/1,1/1
00694  M01S00622.cueshel +++|          VFD    42/0LVFYLIB,16/0,1/1,1/0
00695  M01S00623.cueshel +++|          VFD    42/0LVSN,16/0,1/1,1/1
00696  M01S00624.cueshel +++|          VFD    42/0LWBR,16/0,1/0,1/0
00697  M01S00625.cueshel +++|          VFD    42/0LWHATJSN,16/0,1/1,1/0
00698  M01S00626.cueshel +++|          VFD    42/0LWHILE,16/0,1/1,1/0
00699  M01S00627.cueshel +++|          VFD    42/0LWRITEF,16/0,1/1,1/1
00700  M01S00628.cueshel +++|          VFD    42/0LWRITER,16/0,1/1,1/1
00701  M01S00629.cueshel +++|          VFD    42/0LX,16/0,1/0,1/0
00702  M01S00630.cueshel +++|          VFD    42/0LXEDIT,16/0,1/1,1/1
00703  M01S00631.cueshel +++| CMDSL    EQU    *-CMDS      LENGTH OF COMMAND LIST
00704  M01S00632.cueshel +++| BUFFERS  SPACE  4,10
00705  M01S00633.cueshel +++|
00706  M01S00634.cueshel +++|*         BUFFERS.
00707  M01S00635.cueshel +++|
00708  M01S00636.cueshel +++| ERRM     BSSZ   1           STORE APPROPRIATE ERROR MESSAGE
00709  M01S00637.cueshel +++| SHELFLG  BSSZ   1           SHELL PROGRAM FLAG

Line S00638 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00638.cuesh3  ---| BYECMD   DATA   0LBYE       COMPARED TO INPUT CHECKING FOR *BYE*
00711  M01S00639.cueshel +++| MCCDR    BSSZ   9           MODIFIED CCDR
00712  M01S00640.cueshel +++| PCS      BSSZ   1           PACKED CONTROL STATEMENT
00713  M01S00641.cueshel +++| RI       BSSZ   1           REQUESTED INPUT FROM TERMINAL
00714  M01S00642.cueshel +++| INPUT    FILEC  IBUF,101B
00715  M01S00643.cueshel +++| OUTPUT   FILEC  OBUF,101B
00716  M01S00644.cueshel +++| LOFP     VFD    12/0,18/LOF,30/0
00717  M01S00645.cueshel +++| LOFF     CON    0           LIST OF FILES FLAG
00718  M01S00646.cueshel +++| LOF      VFD    1/0,41/0,18/3
00719  M01S00647.cueshel +++|          VFD    42/0LOUTPUT,18/OUTPUT
00720  M01S00648.cueshel +++|          VFD    60/0
00721  M01S00649.cueshel +++| OUT      VFD    12/1L/,12/1,36/0

Line S00650 Modification History
`M01` (Added by)	`cueshel`
`M02` (Updated by)	`cuesh3`

Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00650.cuesh3  ---| LOTOUT   VFD    12/4,48/0
00723  M01S00651.cueshel +++| IBUF     EQU    *
00724  M01S00652.cueshel +++| OBUF     EQU    IBUF+101B
00725  M01S00653.cueshel +++| RFL=     EQU    OBUF+101B+10B
00726  M01S00654.cueshel +++|
00727  M01S00655.cueshel +++|          END