User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:redo

Deck REDO

8 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.redo    +++|          IDENT  REDO,FWA
00002  M01S00002.redo    +++|          ABS
00003  M01S00003.redo    +++|          SST
00004  M01S00004.redo    +++|          ENTRY  REDO
00005  M01S00005.redo    +++|          ENTRY  R
00006  M01S00006.redo    +++|          ENTRY  ARG=
00007  M01S00007.redo    +++|          ENTRY  RFL=
00008  M01S00008.redo    +++|          ENTRY  SDM=
00009  M01S00009.redo    +++|          SYSCOM B1
00010  M01S00010.redo    +++|          TITLE  REDO - REENTER PREVIOUS COMMAND.
00011  M01S00011.redo    +++|*COMMENT  REDO - REENTER PREVIOUS COMMAND.
Line S00012 Modification History
M01 (Added by) redo
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00012.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1984.
00013  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00014  M01S00013.redo    +++|          SPACE  4,10
00015  M01S00014.redo    +++|***       REDO - REENTER PREVIOUS COMMAND.
00016  M01S00015.redo    +++|*
00017  M01S00016.redo    +++|*         R. R. RAGAN        82/12/01.
00018  M01S00017.redo    +++|          SPACE  4,10
00019  M01S00018.redo    +++|***       *REDO* ALLOWS A PREVIOUSLY ENTERED COMMAND TO BE MODIFIED
00020  M01S00019.redo    +++|*         AND REEXECUTED WITHOUT RETYPING THE ENTIRE COMMAND.
00021  M01S00020.redo    +++|*
00022  M01S00021.redo    +++|*         FOR COMPATIBILITY WITH A PREVIOUS VERSION OF *REDO* RELEASED
00023  M01S00022.redo    +++|*         IN BINARY AT NOS 2.2, *R* IS ALSO AN ENTRY POINT.  ONLY
00024  M01S00023.redo    +++|*         *REDO* IS DOCUMENTED IN THE MANUALS.  *R* MAY THEREFORE
00025  M01S00024.redo    +++|*         BE REMOVED IF IT CONFLICTS WITH LOCAL CODE.
00026  M01S00025.redo    +++|          SPACE  4,10
00027  M01S00026.redo    +++|**        COMMAND FORMAT.
00028  M01S00027.redo    +++|*
00029  M01S00028.redo    +++|*         REDO.
00030  M01S00029.redo    +++|*
00031  M01S00030.redo    +++|*         REDO,STRING.
00032  M01S00031.redo    +++|*
00033  M01S00032.redo    +++|*         CALLING *REDO* WITH NO PARAMETERS WILL CAUSE IT TO DISPLAY
00034  M01S00033.redo    +++|*         THE PREVIOUS COMMAND AND PROVIDE A MODIFICATION LINE WHERE
00035  M01S00034.redo    +++|*         CHANGES TO THE COMMAND CAN BE MADE. WHEN A CARRIAGE RETURN
00036  M01S00035.redo    +++|*         IS ENTERED THE POSSIBLY MODIFIED COMMAND IS EXECUTED.
00037  M01S00036.redo    +++|*
00038  M01S00037.redo    +++|*         FOR EXAMPLE, IF THE LAST COMMAND WAS - MODIFY,Z./*EDIT,CIO
00039  M01S00038.redo    +++|*         AND YOU WANTED TO EDIT LFM INSTEAD -
00040  M01S00039.redo    +++|*
00041  M01S00040.redo    +++|*                REDO
00042  M01S00041.redo    +++|*                OLD:  MODIFY,Z./*EDIT,CIO
00043  M01S00042.redo    +++|*                MOD:                  LFM
00044  M01S00043.redo    +++|*                NEW:  MODIFY,Z./*EDIT,LFM
00045  M01S00044.redo    +++|*
00046  M01S00045.redo    +++|*         THE *OLD* LINE IS OUTPUT BY *REDO* AND YOU ARE PROMPTED
00047  M01S00046.redo    +++|*         WITH THE *MOD* LINE. MODIFICATIONS ARE ENTERED MUCH AS IN
00048  M01S00047.redo    +++|*         THE MODIFY COMMAND OF *XEDIT*. THE *NEW* LINE ECHOS THE
00049  M01S00048.redo    +++|*         COMMAND THAT IS ABOUT TO BE EXECUTED.
00050  M01S00049.redo    +++|*
00051  M01S00050.redo    +++|*         MODIFICATION IS DONE BY VISUAL ALIGNMENT OF THE *OLD* AND
00052  M01S00051.redo    +++|*         THE *MOD* LINES. THE MODIFICATION COMMAND CHARACTERS ARE:
00053  M01S00052.redo    +++|*
00054  M01S00053.redo    +++|*         SPACE - RETAINS THE CHARACTER FROM *OLD*.
00055  M01S00054.redo    +++|*         # (NUM. SIGN) - DELETES THE CHARACTER FROM *OLD*.
00056  M01S00055.redo    +++|*         & (AMPERSAND) - CHANGES THE *OLD* CHARACTER TO A SPACE.
00057  M01S00056.redo    +++|*         ;(CIRCUMFLEX) - INSERTS FOLLOWING CHARACTERS BEFORE THE
00058  M01S00057.redo    +++|*                 *OLD* CHARACTER ABOVE THE  THE; INSERTED TEXT IS
00059  M01S00058.redo    +++|*                 TERMINATED BY A # OR BY CARRIAGE RETURN.
00060  M01S00059.redo    +++|*                 IF A CARAT IS ENTERED FOLLOWED BY END OF LINE
00061  M01S00060.redo    +++|*                 THE LINE WILL BE REDISPLAYED AS SO FAR
00062  M01S00061.redo    +++|*                 MODIFIED AND FURTHER MODS WILL BE ALLOWED.
00063  M01S00062.redo    +++|*         ! (EXCLAMATION) - DELETES THE REST OF THE TEXT OF *OLD*.
00064  M01S00063.redo    +++|*         OTHER - REPLACES THE CHARACTER FROM *OLD*.
00065  M01S00064.redo    +++|*
00066  M01S00065.redo    +++|*         IF *REDO* IS CALLED WITH A PARAMETER, A PREVIOUS COMMAND
00067  M01S00066.redo    +++|*         THAT BEGINS WITH THE SAME CHARACTERS AS THE PARAMETER
00068  M01S00067.redo    +++|*         IS FOUND AND BECOMES THE COMMAND TO BE REENTERED.  NOTE THAT
00069  M01S00068.redo    +++|*         COMMAS, PARANTHESES, ETC. ARE CONSIDERED TO BE PART OF THE
Line S00069 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00069.redo5   ---|*         STRING.  *REDO* DOES NOT PROCESS ANY PARAMETERS ITSELF.
00071  M01S00001.redo5   +++|*         STRING, BUT THAT LEADING BLANKS ARE NOT.  IF THE PARAMETER
00072  M01S00002.redo5   +++|*         BEGINS WITH LEADING ASTERISKS(*) OR BLANKS, THE COMMAND
00073  M01S00003.redo5   +++|*         BEING LOCATED MAY HAVE AN ARBITRARY NUMBER OF LEADING
00074  M01S00004.redo5   +++|*         BLANKS.  *REDO* DOES NOT PROCESS ANY PARAMETERS ITSELF.
00075  M01S00070.redo    +++|*         THE FIRST 10 CHARACTERS OF THE PARAMETER OR UP TO A BLANK
00076  M01S00071.redo    +++|*         END OF COMMAND INPUT ARE USED FOR THE PARAMETER.
00077  M01S00072.redo    +++|*         THUS COMMANDS SUCH AS THE FOLLOWING WILL WORK -
00078  M01S00073.redo    +++|*
00079  M01S00074.redo    +++|*                REDO,FTN,I=A
00080  M01S00075.redo    +++|*                REDO,GTR,OPL.AB
00081  M01S00005.redo5   +++|*                REDO, COPY,TAPE
00082  M01S00076.redo    +++|*                REDO/GO.
00083  M01S00077.redo    +++|*                REDO./GO.
00084  M01S00078.redo    +++|*
00085  M01S00079.redo    +++|*         IF THE *REDO* COMMAND IS SUFFIXED WITH */GO*, THE *OLD*,
00086  M01S00080.redo    +++|*         *MOD* AND *NEW* MESSAGES WILL BE SUPPRESSED. THIS IS USEFUL
Line S00081 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00081.redo5   ---|*         FOR SLOW BAUD RATE TERMINALS.  A NON-COMMAND LINE HAS A
Line S00082 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00082.redo5   ---|*         BLANK BEFORE THE TERMINATOR IS FOUND.
00089  M01S00006.redo5   +++|*         FOR SLOW BAUD RATE TERMINALS.
00090  M01S00001.redo4   +++|*
00091  M01S00002.redo4   +++|*         IF THE *REDO* COMMAND IS USED IN A NON-INTERACTIVE JOB, THE
00092  M01S00003.redo4   +++|*         */GO* OPTION IS FORCED ON.
00093  M01S00083.redo    +++|          SPACE  4,10
00094  M01S00084.redo    +++|*         COMMON DECKS.
00095  M01S00085.redo    +++|
00096  M01S00086.redo    +++|*CALL     COMCMAC
00097  M01S00087.redo    +++|*CALL     COMSIOQ
00098  M01S00088.redo    +++|*CALL     COMSSFM
00099  M01S00089.redo    +++|          TITLE  DEFINITIONS.
00100  M01S00090.redo    +++|*         ASSEMBLY CONSTANTS.
00101  M01S00091.redo    +++|
00102  M01S00092.redo    +++| BUFL     EQU    401B        DAYFILE BUFFER LENGTH
00103  M01S00093.redo    +++| IBUFL    EQU    101B        INPUT BUFFER LENGTH
00104  M01S00094.redo    +++| OBUFL    EQU    101B        OUTPUT BUFFER LENGTH
00105  M01S00007.redo5   +++| USBFL    EQU    81          UNPACKED STRING BUFFER LENGTH
00106  M01S00095.redo    +++|          SPACE  4,10
00107  M01S00096.redo    +++|*         FETS.
00108  M01S00097.redo    +++|
00109  M01S00098.redo    +++|          ORG    105B
00110  M01S00099.redo    +++| FWA      BSS    0
00111  M01S00100.redo    +++|
00112  M01S00101.redo    +++| I        BSS    0           DAYFILE BUFFER
00113  M01S00102.redo    +++| ZZZZZDD  FILEB  IBUF,BUFL,FET=7
00114  M01S00103.redo    +++|
00115  M01S00104.redo    +++| O        BSS    0           OUTPUT BUFFER
00116  M01S00105.redo    +++| OUTPUT   FILEB  OBUF,OBUFL,FET=7
00117  M01S00106.redo    +++|
00118  M01S00107.redo    +++| T        BSS    0           TERMINAL INPUT BUFFER
00119  M01S00108.redo    +++| INPUT    FILEB  TBUF,IBUFL,FET=7
00120  M01S00109.redo    +++|          SPACE  4,10
00121  M01S00110.redo    +++|*         BUFFERS AND WORKING STORAGE.
00122  M01S00111.redo    +++|
00123  M01S00112.redo    +++| RPVBLK   VFD    36/0,12/25,2/0,9/1,1/0  *REPRIEVE* PARAMETER BLOCK
00124  M01S00113.redo    +++|          VFD    30/0,12/0,18/RED9
00125  M01S00114.redo    +++|          CON    0
00126  M01S00115.redo    +++|          VFD    24/200B,36/0
Line S00116 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00116.redo5   ---| DSTR     BSS    81          MODIFICATION COMMANDS
00128  M01S00008.redo5   +++| DSTR     BSS    USBFL       MODIFICATION COMMANDS
00129  M01S00117.redo    +++| ELEN     CON    0           *ELEN* MUST PRECEDE *ESTR*
00130  M01S00118.redo    +++| USBB     BSS    0
Line S00119 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00119.redo5   ---| ESTR     BSS    81          UNPACKED STRING BUFFER
Line S00120 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00120.redo5   ---| ESCR     BSS    81
00133  M01S00009.redo5   +++| ESTR     BSS    USBFL       UNPACKED STRING BUFFER
00134  M01S00010.redo5   +++| ESCR     BSS    USBFL
00135  M01S00121.redo    +++| TIME     BSS    1           TIME PART OF DAYFILE LINE
00136  M01S00122.redo    +++| LINE     BSS    9
00137  M01S00123.redo    +++| DLINE    BSS    10          DISPLAY VERSION OF LINE
Line S00124 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00124.redo4   ---| PENULT   CON    77770000000000000000B
Line S00125 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00125.redo4   ---|          BSS    8
00140  M01S00126.redo    +++| ULT      CON    77770000000000000000B
00141  M01S00127.redo    +++|          BSS    8
00142  M01S00128.redo    +++| MLINE    VFD    36/6LMOD:  ,12/0013B,12/0
Line S00129 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00129.redo4   ---| NOFIND   VFD    12/0011B,48/8HComm
Line S00130 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00130.redo4   ---|          DIS    ,*And not found.*
00145  M01S00131.redo    +++| ZERO     CON    0
Line S00132 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00132.redo4   ---| GOFLAG   CON    0           NONZERO IF */GO* ON *REDO* COMMAND
00147  M01S00004.redo4   +++| GOFLAG   CON    0           NONZERO IF */GO* OPTION OR NON-INTERACTIVE
00148  M01S00011.redo5   +++| LBFLAG   CON    0           NONZERO IF LEADING BLANKS OK ON COMMAND
00149  M01S00133.redo    +++| WDCT     CON    0           WORD COUNT IN CM BUFFER
00150  M01S00134.redo    +++| TIOPTR   VFD    42/6LOUTPUT,18/O  OUTPUT FET POINTER
00151  M01S00135.redo    +++| ARGV     CON    0           ARGUMENT VALUE
00152  M01S00136.redo    +++| ARGM     CON    0           ARGUMENT MASK
00153  M01S00137.redo    +++|          TITLE  MAIN PROGRAM.
00154  M01S00138.redo    +++|          SPACE  4,10
00155  M01S00139.redo    +++|**        REDO - MAIN PROGRAM.
00156  M01S00140.redo    +++|
00157  M01S00141.redo    +++|
00158  M01S00142.redo    +++| R        BSS    0
00159  M01S00143.redo    +++| REDO     RJ     PRS         PRESET
00160  M01S00144.redo    +++|
00161  M01S00145.redo    +++|*         GET THE JOB DAYFILE AND POSITION TO EOI FOR BACK SCAN.
00162  M01S00146.redo    +++|
00163  M01S00147.redo    +++|          CSET   NORMAL
00164  M01S00148.redo    +++|          DAYFILE I,USER
00165  M01S00149.redo    +++|          READW  I,CBUF,BUFL  SAVE LAST PART OF DAYFILE
00166  M01S00150.redo    +++|          SX6    B6
00167  M01S00151.redo    +++|          SA6    WDCT        SAVE IN POINTER FOR CBUF
00168  M01S00152.redo    +++|          REWIND I,R
00169  M01S00153.redo    +++|          READ   I
00170  M01S00154.redo    +++|          MX0    -12
00171  M01S00155.redo    +++|
00172  M01S00156.redo    +++|*         SEARCH FOR LINE MATCHING THE ARGUMENT.
00173  M01S00157.redo    +++|
00174  M01S00158.redo    +++| RED1     READC  I,TIME      READ A DAYFILE LINE
00175  M01S00159.redo    +++| RED2     NZ     X1,RED10    IF END OF INPUT
Line S00160 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00160.redo5   ---|          SA2    LINE
00177  M01S00161.redo    +++|          RJ     CCL         CHECK COMMAND LINE
Line S00162 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00162.redo5   ---|          ZR     X4,RED1     IF NOT A COMMAND LINE
00179  M01S00163.redo    +++|          SA3    LINE
00180  M01S00164.redo    +++|          SA4    ARGV
00181  M01S00165.redo    +++|          SA5    ARGM
00182  M01S00012.redo5   +++|          SA2    LBFLAG
00183  M01S00166.redo    +++|          BX6    X3-X4
00184  M01S00167.redo    +++|          BX6    X5*X6
Line S00168 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00168.redo5   ---|          NZ     X6,RED1     IF NOT DESIRED LINE
00186  M01S00013.redo5   +++|          ZR     B5,RED3     IF NO LEADING BLANKS
00187  M01S00014.redo5   +++|          ZR     X5,RED1     IF NO SEARCH ARGUMENT - NOT A COMMAND
00188  M01S00015.redo5   +++|          ZR     X2,RED1     IF LEADING BLANKS NOT ACCEPTABLE
00189  M01S00016.redo5   +++| RED3     NZ     X6,RED1     IF NOT DESIRED LINE
00190  M01S00169.redo    +++|
00191  M01S00170.redo    +++|*         SAVE THE LINE FOUND AND CONTINUE.
00192  M01S00171.redo    +++|
Line S00172 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00172.redo4   ---|          SB6    B0
Line S00173 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00173.redo5   ---|          SB5    B0
00195  M01S00017.redo5   +++|          SB5    B0+
Line S00174 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00174.redo4   ---|          SA2    ULT
Line S00175 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00175.redo4   ---| RED3     BX6    X2
Line S00176 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00176.redo4   ---|          SA6    PENULT+B6   MOVE ULTIMATE TO PENULTIMATE
Line S00177 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00177.redo4   ---|          BX3    -X0*X2
Line S00178 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00178.redo4   ---|          SA2    A2+B1
Line S00179 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00179.redo4   ---|          SB6    B6+B1
Line S00180 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00180.redo4   ---|          NZ     X3,RED3     IF NOT END OF LINE
00203  M01S00181.redo    +++| RED4     SA2    LINE+B5
00204  M01S00182.redo    +++|          BX6    X2
00205  M01S00183.redo    +++|          SA6    ULT+B5      MOVE LINE TO ULTIMATE
00206  M01S00184.redo    +++|          BX3    -X0*X2
00207  M01S00185.redo    +++|          SB5    B5+B1
00208  M01S00186.redo    +++|          NZ     X3,RED4     IF NOT END OF LINE
00209  M01S00187.redo    +++|          EQ     RED1        CONTINUE READING TO EOI
00210  M01S00188.redo    +++|
00211  M01S00189.redo    +++|*         DISPLAY THE ORIGINAL LINE AND GET THE MODS.
00212  M01S00190.redo    +++|
Line S00191 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00191.redo4   ---| RED5     SA2    ARGV
Line S00192 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00192.redo4   ---|          SA0    ULT
Line S00193 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00193.redo4   ---|          NZ     X2,RED6     IF SEARCHING FOR STRING
Line S00194 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00194.redo4   ---|          SA2    LWPR
Line S00195 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00195.redo4   ---|          LX2    59-18
Line S00196 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00196.redo4   ---|          NG     X2,RED6     IF LOADED FROM LIBRARY
Line S00197 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00197.redo4   ---|          SA0    PENULT      USE LAST ONE FOUND
Line S00198 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00220  M02S00198.redo4   ---| RED6     SA3    A0
00221  M01S00005.redo4   +++| RED5     SA3    ULT
00222  M01S00006.redo4   +++|          SA0    A3
00223  M01S00199.redo    +++|          MX4    12
00224  M01S00200.redo    +++|          IX3    X3-X4
00225  M01S00201.redo    +++|          ZR     X3,RED8     IF NOT FOUND
00226  M01S00202.redo    +++|          SA2    REDA
00227  M01S00203.redo    +++|          RJ     WOC         WRITE OUT COMMAND
Line S00204 Modification History
M01 (Added by) redo
M02 (Updated by) redo2
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00204.redo2   ---| RED7     PROMPT OFF
Line S00205 Modification History
M01 (Added by) redo
M02 (Updated by) redo2
Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00205.redo2   ---|          RJ     RMC         READ MODIFIED COMMAND
00230  M01S00001.redo2   +++| RED7     SA2    GOFLAG
00231  M01S00002.redo2   +++|          NZ     X2,RED7.1   IF *GO* SPECIFIED
00232  M01S00003.redo2   +++|          PROMPT OFF
00233  M01S00004.redo2   +++| RED7.1   RJ     RMC         READ MODIFIED COMMAND
00234  M01S00206.redo    +++|
00235  M01S00207.redo    +++|*         DISPLAY MODIFIED COMMAND AND EXECUTE IT.
00236  M01S00208.redo    +++|
00237  M01S00209.redo    +++|          SA0    LINE
00238  M01S00210.redo    +++|          SA2    REDB
00239  M01S00211.redo    +++|          RJ     WOC         WRITE OUT COMMAND
00240  M01S00212.redo    +++|          SB6    X0+2
Line S00213 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00213.redo4   ---|          ZR     B6,RED7     IF REMOD SPECIFIED
00242  M01S00007.redo4   +++|          ZR     B6,RED7.1   IF REMOD SPECIFIED
00243  M01S00008.redo4   +++|          SA2    GOFLAG
00244  M01S00009.redo4   +++|          NZ     X2,RED7.3   IF *GO* SPECIFIED
00245  M01S00214.redo    +++|          WRITER O
Line S00215 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00215.redo4   ---|          RETURN I
00247  M01S00010.redo4   +++| RED7.3   RETURN I
00248  M01S00216.redo    +++|          CSET   RESTORE
00249  M01S00217.redo    +++|          EXCST  LINE
00250  M01S00218.redo    +++|
00251  M01S00219.redo    +++|*         COMMAND STRING CANNOT BE FOUND.
00252  M01S00220.redo    +++|
Line S00221 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00221.redo4   ---| RED8     WRITEC O,NOFIND    * COMMAND NOT FOUND.*
00254  M01S00011.redo4   +++| RED8     MESSAGE CCDR,3     ISSUE COMMAND AND ERROR MESSAGE TO DAYFILE
00255  M01S00012.redo4   +++|          MESSAGE (=C*COMMAND NOT FOUND.*),3
00256  M01S00222.redo    +++| RED9     RETURN I
Line S00223 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00223.redo4   ---|          MESSAGE ZERO,1     CLEAR *MS1W*
00258  M01S00224.redo    +++|          CSET   RESTORE
Line S00225 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00225.redo4   ---|          ENDRUN
00260  M01S00013.redo4   +++|          ABORT              ABORT
00261  M01S00226.redo    +++|
00262  M01S00227.redo    +++|*         HANDLE LINE BROKEN ACROSS DISK/MEMORY.
00263  M01S00228.redo    +++|
00264  M01S00229.redo    +++| RED10    SA2    I+1         FIRST
00265  M01S00230.redo    +++|          SB4    X2+
00266  M01S00231.redo    +++|          SB5    CBUF
00267  M01S00232.redo    +++|          EQ     B4,B5,RED5  IF REAL EOI
00268  M01S00233.redo    +++|          SX7    B5
00269  M01S00234.redo    +++|          MX5    -18
00270  M01S00235.redo    +++|          BX3    X5*X2
00271  M01S00236.redo    +++|          IX6    X3+X7       SET FIRST TO *CBUF*
00272  M01S00237.redo    +++|          SA6    A2
00273  M01S00238.redo    +++|          SA2    WDCT
00274  M01S00239.redo    +++|          BX6    X2
00275  M01S00240.redo    +++|          SA6    A6+B1       SET IN
00276  M01S00241.redo    +++|          SA7    A6+B1       SET OUT TO *CBUF*
00277  M01S00242.redo    +++|          SA2    A7+B1       LIMIT
00278  M01S00243.redo    +++|          BX3    X5*X2
00279  M01S00244.redo    +++|          SX7    CBUF+BUFL
00280  M01S00245.redo    +++|          IX6    X3+X7
00281  M01S00246.redo    +++|          SA6    A2          SET LIMIT
00282  M01S00247.redo    +++|          READC  I,B6        READ REST OF LINE
00283  M01S00248.redo    +++|          EQ     RED2        CONTINUE ON BROKEN RECORD
00284  M01S00249.redo    +++|
00285  M01S00250.redo    +++| REDA     VFD    36/6LOLD:  ,24/0
00286  M01S00251.redo    +++| REDB     VFD    36/6LNEW:  ,24/0
00287  M01S00252.redo    +++|          TITLE  SUBROUTINES.
00288  M01S00253.redo    +++| ACT      SPACE  4,15
00289  M01S00254.redo    +++|**        ACT - ADD COMMAND TERMINATOR.
00290  M01S00255.redo    +++|*
00291  M01S00256.redo    +++|*         *ACT* ADDS A PERIOD TO THE END OF THE MODIFIED COMMAND IF
00292  M01S00257.redo    +++|*         THERE IS NO PERIOD OR RIGHT PARENTHESIS ALREADY IN THE
Line S00258 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00258.redo5   ---|*         COMMAND.
00294  M01S00018.redo5   +++|*         COMMAND OUTSIDE OF LITERALS.
00295  M01S00259.redo    +++|*
00296  M01S00260.redo    +++|*         ENTRY  (B6) = STRING BUFFER ADDRESS.
00297  M01S00261.redo    +++|*
00298  M01S00019.redo5   +++|*         EXIT   (B6) = STRING BUFFER ADDRESS, LEADING BLANKS REMOVED.
00299  M01S00020.redo5   +++|*
00300  M01S00262.redo    +++|*         USES   X - 1, 2, 6, 7.
00301  M01S00263.redo    +++|*                A - 1, 6, 7.
00302  M01S00264.redo    +++|*                B - 6.
00303  M01S00265.redo    +++|
00304  M01S00266.redo    +++|
00305  M01S00267.redo    +++| ACT      SUBR               ENTRY/EXIT
Line S00268 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00268.redo5   ---| ACT1     SA1    B6
Line S00269 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00269.redo5   ---|          NG     X1,ACT2     IF END OF COMMAND
Line S00270 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00270.redo5   ---|          SX2    X1-1R.
00309  M01S00021.redo5   +++|          SX6    B0
00310  M01S00022.redo5   +++|          SX7    B0
00311  M01S00023.redo5   +++|          SA1    B6+
00312  M01S00024.redo5   +++| ACT1     NG     X1,ACT5     IF END OF COMMAND
00313  M01S00025.redo5   +++|          ZR     X7,ACT3     IF CHECKING LEADING BLANKS
00314  M01S00026.redo5   +++|          SX2    X1-1R$
00315  M01S00027.redo5   +++|          ZR     X2,ACT2     IF A LITERAL DELIMITER
00316  M01S00028.redo5   +++|          NZ     X6,ACT4     IF INSIDE A LITERAL
00317  M01S00029.redo5   +++|          SX2    X1-1R.
00318  M01S00271.redo    +++|          ZR     X2,ACTX     IF TERMINATOR IN COMMAND
00319  M01S00272.redo    +++|          SX2    X1-1R)
Line S00273 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00273.redo5   ---|          ZR     X2,ACTX     IF TERMINATOR IN COMMAND
Line S00274 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00274.redo5   ---|          SB6    B6+B1
00322  M01S00030.redo5   +++|          NZ     X2,ACT4     IF NOT TERMINATOR
00323  M01S00031.redo5   +++|          EQ     ACTX        RETURN
00324  M01S00032.redo5   +++|
00325  M01S00033.redo5   +++| ACT2     BX6    X6-X7       TOGGLE LITERAL FLAG
00326  M01S00034.redo5   +++|          SA1    A1+B1
00327  M01S00275.redo    +++|          EQ     ACT1        CONTINUE
00328  M01S00276.redo    +++|
Line S00277 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00277.redo5   ---| ACT2     SX6    1R.
Line S00278 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00278.redo5   ---|          SA6    B6
Line S00279 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00279.redo5   ---|          MX7    2
Line S00280 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00280.redo5   ---|          SA7    B6+B1
00333  M01S00035.redo5   +++| ACT3     SX2    X1-1R
00334  M01S00036.redo5   +++|          ZR     X2,ACT4     IF BLANK
00335  M01S00037.redo5   +++|          SB6    A1+
00336  M01S00038.redo5   +++|          SX7    B1+
00337  M01S00039.redo5   +++| ACT4     SA1    A1+1
00338  M01S00040.redo5   +++|          EQ     ACT1        CONTINUE
00339  M01S00041.redo5   +++|
00340  M01S00042.redo5   +++| ACT5     SX6    1R.
00341  M01S00043.redo5   +++|          MX7    2
00342  M01S00044.redo5   +++|          SA6    A1
00343  M01S00045.redo5   +++|          SA7    A1+1
00344  M01S00281.redo    +++|          EQ     ACTX        RETURN
00345  M01S00282.redo    +++| CCL      SPACE  4,15
00346  M01S00283.redo    +++|**        CCL -  CHECK COMMAND LINE.
00347  M01S00284.redo    +++|*
Line S00285 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00285.redo5   ---|*         *CCL* CHECKS TO SEE IF THE LINE FOUND IS A COMMAND LINE OR
Line S00286 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00286.redo5   ---|*         A MESSAGE LINE. A NON-COMMAND LINE HAS A BLANK
Line S00287 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00287.redo5   ---|*         BEFORE THE TERMINATOR IS FOUND.
Line S00046 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00046.redo5b  ---|*         *CCL* CHECKS TO SEE IF THE LINE FOUND HAS LEADING BLANKS.
00352  M01S00001.redo5b  +++|*         *CCL* CHECKS TO SEE IF THE LINE FOUND SEEMS TO BE A COMMAND.
00353  M01S00002.redo5b  +++|*         COMMAND CRITERIA - 1)  FIRST NON-BLANK MUST BE ALPHANUMERIC,
00354  M01S00003.redo5b  +++|*                                $ OR /.
00355  M01S00004.redo5b  +++|*                            2)  AT LEAST ONE BUT NO MORE THAN SEVEN
00356  M01S00005.redo5b  +++|*                                ALPHANUMERIC CHARACTERS MUST OCCUR
00357  M01S00006.redo5b  +++|*                                BEFORE THE FIRST SEPARATOR/TERMINATOR.
00358  M01S00007.redo5b  +++|*                            3)  A LITERAL DELIMITER ($) MAY NOT OCCUR
00359  M01S00008.redo5b  +++|*                                BEFORE THE FIRST SEPARATOR/TERMINATOR.
00360  M01S00009.redo5b  +++|*                            4)  THE LINE MUST HAVE A TERMINATOR WHICH
00361  M01S00010.redo5b  +++|*                                IS NOT ENCLOSED WITHIN A LITERAL.
00362  M01S00047.redo5   +++|*         IF LEADING BLANKS ARE FOUND, THEY ARE REMOVED.
00363  M01S00288.redo    +++|*
Line S00289 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00289.redo5   ---|*         ENTRY  (A2) = POINTER TO START OF LINE.
Line S00290 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00290.redo5   ---|*                (X2) = FIRST WORD OF LINE.
Line S00291 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00291.redo5   ---|*                (X0) = 7777 7777 7777 7777 0000B.
00367  M01S00048.redo5   +++|*         ENTRY  (X0) = 7777 7777 7777 7777 0000B.
00368  M01S00049.redo5   +++|*                (LINE) = LINE TO BE EXAMINED.
00369  M01S00292.redo    +++|*
Line S00293 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00293.redo5   ---|*         EXIT   (X4) = 0, IF NOT A COMMAND LINE.
00371  M01S00050.redo5   +++|*         EXIT   (B5) = NUMBER OF LEADING BLANKS.
Line S00001 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00372  M02S00001.redo5b  ---|*                (B5) = -1 IF FIRST NON-BLANK NOT ALPHANUMERIC, $ OR /.
00373  M01S00011.redo5b  +++|*                (B5) = -1 IF LINE DOES NOT MEET COMMAND CRITERIA.
00374  M01S00294.redo    +++|*
00375  M01S00295.redo    +++|*         USES   X - 2, 3, 4, 5, 6, 7.
Line S00296 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00296.redo5   ---|*                A - 2.
Line S00297 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00297.redo5   ---|*                B - 5, 6.
00378  M01S00051.redo5   +++|*                A - 2, 6.
00379  M01S00052.redo5   +++|*                B - 2, 3, 5, 6, 7.
00380  M01S00053.redo5   +++|*
00381  M01S00054.redo5   +++|*         CALLS  PSB, USB.
00382  M01S00298.redo    +++|
00383  M01S00299.redo    +++|
00384  M01S00012.redo5b  +++| CCL11    ZR     B5,CCLX     IF NO LEADING BLANKS
00385  M01S00013.redo5b  +++|          SB2    LINE
00386  M01S00014.redo5b  +++|          SB3    B0+         SELECT NORMAL MODE
00387  M01S00015.redo5b  +++|          SB6    USBFL       LENGTH OF UNPACK BUFFER
00388  M01S00016.redo5b  +++|          RJ     USB         UNPACK TO STRING BUFFER
00389  M01S00017.redo5b  +++|          MX6    59
00390  M01S00018.redo5b  +++|          SA6    B7+B1       ADD END OF LINE TERMINATOR
00391  M01S00019.redo5b  +++|          SB6    USBB+B5
00392  M01S00020.redo5b  +++|          SB7    LINE
00393  M01S00021.redo5b  +++|          RJ     PSB         PACK STRING BUFFER
00394  M01S00022.redo5b  +++|
00395  M01S00300.redo    +++| CCL      SUBR               ENTRY/EXIT
00396  M01S00055.redo5   +++|          SA2    LINE
00397  M01S00023.redo5b  +++|          SB2    B1+
00398  M01S00024.redo5b  +++|          SB3    B0+
00399  M01S00056.redo5   +++|          SB5    B0
00400  M01S00301.redo    +++|          MX7    -6
00401  M01S00302.redo    +++|
Line S00303 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00303.redo5   ---|*         SEARCH THE LINE FOR ANY BLANK CHARACTERS.
Line S00057 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00057.redo5b  ---|*         SEARCH THE LINE FOR LEADING BLANK CHARACTERS.
00404  M01S00025.redo5b  +++|*         SEARCH LINE FOR LEADING BLANKS AND START OF COMMAND.
00405  M01S00304.redo    +++|
00406  M01S00305.redo    +++| CCL1     SB6    B0
Line S00306 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00306.redo5   ---|          SB5    60
00408  M01S00058.redo5   +++|          SB7    60
00409  M01S00307.redo    +++|          BX5    -X0*X2      EXTRACT END OF LINE FOR TEST
00410  M01S00308.redo    +++| CCL2     LX2    6
00411  M01S00309.redo    +++|          BX3    -X7*X2
00412  M01S00310.redo    +++|          SX4    X3-1R
Line S00311 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00311.redo5   ---|          ZR     X4,CCLX     IF NOT A COMMAND LINE
Line S00312 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00312.redo5   ---|          SX6    X3-1R.
Line S00313 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00313.redo5   ---|          ZR     X6,CCLX     IF A TERMINATOR
Line S00314 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00314.redo5   ---|          SX6    X3-1R)
Line S00315 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00315.redo5   ---|          ZR     X6,CCLX     IF A TERMINATOR
Line S00059 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00059.redo5b  ---|          NZ     X4,CCL3     IF NOT A BLANK
Line S00060 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00060.redo5b  ---|          SB5    B5+1
Line S00316 Modification History
M01 (Added by) redo
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00316.redo5b  ---|          SB6    B6+6
00421  M01S00026.redo5b  +++|          NZ     X4,CCL4     IF NOT A BLANK
00422  M01S00027.redo5b  +++|          SB5    B5+B2       INCREMENT COUNT OF LEADING BLANKS
00423  M01S00028.redo5b  +++| CCL3     SB6    B6+6
Line S00317 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00317.redo5   ---|          NE     B6,B5,CCL2  IF WORD NOT ALL SCANNED
Line S00318 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00318.redo5   ---|          BX4    X4-X4
Line S00319 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00319.redo5   ---|          SA2    A2+B1       NEXT WORD OF LINE
Line S00320 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00320.redo5   ---|          ZR     X5,CCL      IF END OF LINE
00428  M01S00061.redo5   +++|          NE     B6,B7,CCL2  IF WORD NOT ALL SCANNED
00429  M01S00062.redo5   +++|          ZR     X5,CCLX     IF END OF LINE
00430  M01S00063.redo5   +++|          SA2    A2+1        NEXT WORD OF LINE
00431  M01S00321.redo    +++|          EQ     CCL1        CONTINUE
00432  M01S00064.redo5   +++|
Line S00065 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5a
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00065.redo5a  ---| CCL3     ZR     B5,CCLX     IF NO LEADING BLANKS
Line S00002 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00002.redo5b  ---| CCL3     SX4    X3-1R9-1
Line S00003 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00003.redo5b  ---|          NG     X4,CCL4     IF ALPHANUMERIC
00436  M01S00029.redo5b  +++| CCL4     SX4    X3-1R9-1
00437  M01S00030.redo5b  +++|          NG     X4,CCL9     IF ALPHANUMERIC
00438  M01S00031.redo5b  +++|          ZR     B2,CCL5     IF SEPARATOR AFTER $ OR /
00439  M01S00032.redo5b  +++|          SB2    B0+
00440  M01S00004.redo5a  +++|          SX4    X3-1R$
Line S00005 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00005.redo5b  ---|          ZR     X4,CCL4     IF DOLLAR SYMBOL
00442  M01S00033.redo5b  +++|          ZR     X4,CCL3     IF DOLLAR SYMBOL
00443  M01S00006.redo5a  +++|          SX4    X3-1R/
Line S00007 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00007.redo5b  ---|          ZR     X4,CCL4     IF SLASH
Line S00008 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00008.redo5b  ---|          SB5    -1          INDICATE NOT A COMMAND
00446  M01S00034.redo5b  +++|          ZR     X4,CCL3     IF SLASH
00447  M01S00035.redo5b  +++| CCL5     SB5    -1          INDICATE NOT A COMMAND
00448  M01S00009.redo5a  +++|          EQ     CCLX        RETURN WITH ERROR
00449  M01S00010.redo5a  +++|
Line S00011 Modification History
M01 (Added by) redo5a
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00011.redo5b  ---| CCL4     ZR     B5,CCLX     IF NO LEADING BLANKS
Line S00066 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00066.redo5b  ---|          SB2    LINE
Line S00067 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00067.redo5b  ---|          SB3    B0+         SELECT NORMAL MODE
Line S00068 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00068.redo5b  ---|          SB6    USBFL       LENGTH OF UNPACK BUFFER
Line S00069 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00069.redo5b  ---|          RJ     USB         UNPACK TO STRING BUFFER
Line S00070 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00070.redo5b  ---|          MX6    59
Line S00071 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00071.redo5b  ---|          SA6    B7+B1       ADD END OF LINE TERMINATOR
Line S00072 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00072.redo5b  ---|          SB6    USBB+B5
Line S00073 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00073.redo5b  ---|          SB7    LINE
Line S00074 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00074.redo5b  ---|          RJ     PSB         PACK STRING BUFFER
Line S00075 Modification History
M01 (Added by) redo5
M02 (Updated by) redo5b
Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00075.redo5b  ---|          EQ     CCLX        RETURN
00461  M01S00036.redo5b  +++| CCL6     SB6    B0
00462  M01S00037.redo5b  +++|          SB7    60
00463  M01S00038.redo5b  +++|          BX5    -X0*X2      EXTRACT END OF LINE FOR TEST
00464  M01S00039.redo5b  +++| CCL7     LX2    6
00465  M01S00040.redo5b  +++|          BX3    -X7*X2
00466  M01S00041.redo5b  +++|          SX4    X3-1R$
00467  M01S00042.redo5b  +++|          NZ     X4,CCL8     IF NOT A LITERAL DELIMITER
00468  M01S00043.redo5b  +++|          SX4    B3-8
00469  M01S00044.redo5b  +++|          NG     X4,CCL5     IF LITERAL BEFORE FIRST SEPARATOR
00470  M01S00045.redo5b  +++|          SB2    B2-1
00471  M01S00046.redo5b  +++|          ZR     B2,CCL10    IF END OF LITERAL
00472  M01S00047.redo5b  +++|          SB2    B1+         INDICATE START OF LITERAL
00473  M01S00048.redo5b  +++| CCL8     NZ     B2,CCL10    IF WITHIN A LITERAL
00474  M01S00049.redo5b  +++|          SX4    X3-1R9-1
00475  M01S00050.redo5b  +++|          NG     X4,CCL9     IF ALPHANUMERIC
00476  M01S00051.redo5b  +++|          SX4    X3-1R
00477  M01S00052.redo5b  +++|          ZR     X4,CCL10    IF BLANK (IGNORE)
00478  M01S00053.redo5b  +++|          SX4    X3-1R.
00479  M01S00054.redo5b  +++|          ZR     X4,CCL11    IF TERMINATOR FOUND
00480  M01S00055.redo5b  +++|          SX4    X3-1R)
00481  M01S00056.redo5b  +++|          ZR     X4,CCL11    IF TERMINATOR FOUND
00482  M01S00057.redo5b  +++|          SB3    8           INDICATE PAST COMMAND NAME
00483  M01S00058.redo5b  +++| CCL9     SB3    B3+1        COUNT COMMAND CHARACTER
00484  M01S00059.redo5b  +++|          SX3    B3-8
00485  M01S00060.redo5b  +++|          SB2    B0+         CLEAR LITERAL FLAG
00486  M01S00061.redo5b  +++|          ZR     X3,CCL5     IF TOO MANY CHARACTERS
00487  M01S00062.redo5b  +++| CCL10    SB6    B6+6
00488  M01S00063.redo5b  +++|          NE     B6,B7,CCL7  IF WORD NOT ALL SCANNED
00489  M01S00064.redo5b  +++|          ZR     X5,CCL5     IF END OF LINE (NO TERMINATOR)
00490  M01S00065.redo5b  +++|          SA2    A2+1        NEXT WORD OF LINE
00491  M01S00066.redo5b  +++|          EQ     CCL6        CONTINUE
00492  M01S00322.redo    +++| MDY      SPACE  4,15
00493  M01S00323.redo    +++|**        MDY - PROCESS MODIFY DIRECTIVES.
00494  M01S00324.redo    +++|*
00495  M01S00325.redo    +++|*         ENTRY  (ESTR) = ORIGINAL LINE (UNPACKED).
00496  M01S00326.redo    +++|*                (DSTR) = DIRECTIVES LINE (UNPACKED).
00497  M01S00327.redo    +++|*
00498  M01S00328.redo    +++|*         EXIT   (X0) = -1, IF TRUNCATION ENCOUNTERED.
00499  M01S00329.redo    +++|*                (X0) = -2, IF REMODIFICATION SPECIFIED
00500  M01S00330.redo    +++|*                (ESTR) = NEW TEXT LINE.
00501  M01S00331.redo    +++|*
00502  M01S00332.redo    +++|*         USES   X, 0, 1, 2, 6, 7.
00503  M01S00333.redo    +++|*                A - 1, 2, 6.
00504  M01S00334.redo    +++|*                B - 2, 3, 4, 5, 6.
00505  M01S00335.redo    +++|*
00506  M01S00336.redo    +++|*         CALLS  TSL.
00507  M01S00337.redo    +++|
00508  M01S00338.redo    +++|
00509  M01S00339.redo    +++| MDY5     SX6    1R          SET BLANK CHARACTER
00510  M01S00340.redo    +++| MDY6     GT     B3,B4,MDY1  IF AT END OF BUFFER
00511  M01S00341.redo    +++|          SA6    B3
00512  M01S00342.redo    +++|          SB3    B3+B1       SET TO NEXT PLACE TO SAVE
00513  M01S00343.redo    +++| MDY7     SA2    A2+B2       GET NEXT *ESTR* CHARACTER
00514  M01S00344.redo    +++|          PL     X2,MDY8     IF NOT AT END OF LINE
00515  M01S00345.redo    +++|          SX6    1R
00516  M01S00346.redo    +++|          SB2    B0          SET TO NOT ESCAPE END OF LINE
00517  M01S00347.redo    +++|          BX2    X2+X6       GET END LINE (WITH BLANK)
00518  M01S00348.redo    +++| MDY8     SA1    A1+B1       GET NEXT DIRECTIVES CHARACTER
00519  M01S00349.redo    +++|          SX6    X2          MOVE CURRENT TEXT CHARACTER
00520  M01S00350.redo    +++|          SX7    X1-1R
00521  M01S00351.redo    +++|          ZR     X7,MDY11    IF SPACE DIRECTIVE
00522  M01S00352.redo    +++|          NG     X1,MDY17    IF END OF DIRECTIVE LINE
00523  M01S00353.redo    +++|          SX7    X1-1R#
00524  M01S00354.redo    +++|          ZR     X7,MDY7     IF SHARP (DELETE TEXT CHARACTER)
00525  M01S00355.redo    +++|          SX7    X1-1R!
00526  M01S00356.redo    +++|          ZR     X7,MDY10    IF ! (TRUNCATE TEXT CHARACTER)
00527  M01S00357.redo    +++|          SX7    X1-1R&
00528  M01S00358.redo    +++|          ZR     X7,MDY5     IF AMPERSAND (SET TEXT TO BLANK)
00529  M01S00359.redo    +++|          BX6    X1
00530  M01S00360.redo    +++|          SB6    X1+B5       B5 = -UP ARROW
00531  M01S00361.redo    +++|          NZ     B6,MDY6     IF CHARACTER (REPLACE TEXT)
00532  M01S00362.redo    +++| MDY9     SA1    A1+B1       GET NEXT DIRECTIVES
00533  M01S00363.redo    +++|          SX3    X1-1R#
00534  M01S00364.redo    +++|          BX6    X1
00535  M01S00365.redo    +++|          SX7    B6+B1       SET NUMBER OF CHARACTERS SCANNED
00536  M01S00366.redo    +++|          NG     X1,MDY12    IF END OF DIRECTIVES
00537  M01S00367.redo    +++|          SB6    B6+B1       INCREMENT COUNT OF CHARACTERS SCANNED
00538  M01S00368.redo    +++|          ZR     X3,MDY13    IF SHARP
00539  M01S00369.redo    +++|          GT     B3,B4,MDY2  IF PAST 80 CHARACTERS
00540  M01S00370.redo    +++|          SA6    B3
00541  M01S00371.redo    +++|          SB3    B3+B1
00542  M01S00372.redo    +++|          EQ     MDY9        LOOP
00543  M01S00373.redo    +++|
00544  M01S00374.redo    +++| MDY10    SX2    -B1         FLAG EARLY END OF *ESTR*
00545  M01S00375.redo    +++|          EQ     MDY17       COPY REST OF TEXT
00546  M01S00376.redo    +++|
00547  M01S00377.redo    +++| MDY11    PL     X2,MDY6     IF MORE IN *ESTR*
00548  M01S00378.redo    +++|          SX6    1R          PRETEND A SPACE IN *ESTR*
00549  M01S00379.redo    +++|          EQ     MDY6        CHECK IF END OF BUFFER
00550  M01S00380.redo    +++|
00551  M01S00381.redo    +++| MDY12    NZ     B6,MDY16    IF SOMETHING WAS AFTER THE UPARROW
00552  M01S00382.redo    +++|          SB2    -2          SET REMODIFICATION FLAG
00553  M01S00383.redo    +++|          EQ     MDY17       COPY REST OF TEXT
00554  M01S00384.redo    +++|
00555  M01S00385.redo    +++| MDY13    SX7    B6+B1
00556  M01S00386.redo    +++|          NE     B6,B1,MDY16 IF NOT (UP ARROW)(SHARP)
00557  M01S00387.redo    +++|          SX7    B1          RESET COPY COUNTER
00558  M01S00388.redo    +++| MDY14    GT     B3,B4,MDY4  IF POSSIBLE TRUNCATION
00559  M01S00389.redo    +++|          SA6    B3
00560  M01S00390.redo    +++|          SB3    B3+B1
00561  M01S00391.redo    +++| MDY15    SA2    A2+B2       GET NEXT *ESTR* CHARACTER
00562  M01S00392.redo    +++|          PL     X2,MDY16    IF NOT END OF LINE
00563  M01S00393.redo    +++|          SB2    B0
00564  M01S00394.redo    +++|          SX6    1R
00565  M01S00001.redo3   +++|          MX2    2           SET END OF LINE
00566  M01S00395.redo    +++|          BX2    X2+X6
00567  M01S00396.redo    +++| MDY16    SX6    X2+
00568  M01S00397.redo    +++|          SX7    X7-1
00569  M01S00398.redo    +++|          PL     X7,MDY14    IF MORE TO MOVE
00570  M01S00399.redo    +++|          PL     X1,MDY8     IF MORE DIRECTIVES
00571  M01S00400.redo    +++|
00572  M01S00401.redo    +++|*         END OF DIRECTIVES, COPY REST OF TEXT.
00573  M01S00402.redo    +++|
00574  M01S00403.redo    +++| MDY17    NG     X2,MDY20    IF END OF TEXT
00575  M01S00404.redo    +++|          GT     B3,B4,MDY3  IF END OF BUFFER
00576  M01S00405.redo    +++|          SX6    X2+
00577  M01S00406.redo    +++|          SA6    B3+
00578  M01S00407.redo    +++| MDY18    SA2    A2+B1       GET NEXT TEXT
00579  M01S00408.redo    +++|          SB3    B3+B1
00580  M01S00409.redo    +++|          EQ     MDY17       CONTINUE COPY
00581  M01S00410.redo    +++|
00582  M01S00411.redo    +++|*         SET TRUNCATION FLAG AND CLEANUP.
00583  M01S00412.redo    +++|
00584  M01S00413.redo    +++| MDY19    SB2    -1
00585  M01S00414.redo    +++|
00586  M01S00415.redo    +++|*         SET END OF LINE AND COPY BACK TO *ESTR*.
00587  M01S00416.redo    +++|
00588  M01S00417.redo    +++| MDY20    MX6    2
00589  M01S00418.redo    +++|          SA6    B3+
00590  M01S00419.redo    +++|          SB6    ESTR
00591  M01S00420.redo    +++|          SA1    ESCR
00592  M01S00421.redo    +++| MDY21    BX6    X1
00593  M01S00422.redo    +++|          SB6    B6+B1
00594  M01S00423.redo    +++|          SA1    A1+B1
00595  M01S00424.redo    +++|          SA6    B6-B1
00596  M01S00425.redo    +++|          PL     X6,MDY21    IF NOT FINISHED
00597  M01S00426.redo    +++|          SB6    ESTR-1      SET LINE WIDTH CELL
00598  M01S00427.redo    +++|          SX0    B2+         MOVE TRUNCATION FLAG
00599  M01S00428.redo    +++|          RJ     TSL         TRIM ANY TRAILING SPACES
00600  M01S00429.redo    +++|
00601  M01S00430.redo    +++| MDY      SUBR               ENTRY/EXIT
00602  M01S00431.redo    +++|          SB5    -1R
00603  M01S00432.redo    +++|          SB2    B1+         SET NOT AT END OF TEXT LINE
00604  M01S00433.redo    +++|          SB3    ESCR        SET NEXT SAVE CHARACTER ADDRESS
00605  M01S00434.redo    +++|          SB4    ESCR+80     SET LWA
00606  M01S00435.redo    +++|          SA1    DSTR-1
00607  M01S00436.redo    +++|          SA2    ESTR-1
00608  M01S00437.redo    +++|          EQ     MDY7        BEGIN LOOP
00609  M01S00438.redo    +++|
00610  M01S00439.redo    +++|*         HANDLE SPECIAL CASES OF FULL BUFFER, ADDING CHARACTERS.
00611  M01S00440.redo    +++|
00612  M01S00441.redo    +++| MDY1     SX7    X6-1R
00613  M01S00442.redo    +++|          ZR     X7,MDY7     IF SPACE (NO TRUNCATION)
00614  M01S00443.redo    +++|          EQ     MDY19       TRUNCATE
00615  M01S00444.redo    +++|
00616  M01S00445.redo    +++| MDY2     SX7    X6-1R
00617  M01S00446.redo    +++|          ZR     X7,MDY9     IF SPACE (NO TRUNCATION)
00618  M01S00447.redo    +++|          EQ     MDY19       TRUNCATE
00619  M01S00448.redo    +++|
00620  M01S00449.redo    +++| MDY3     SX7    X6-1R
00621  M01S00450.redo    +++|          ZR     X7,MDY17    IF SPACE (NO TRUNCATION)
00622  M01S00451.redo    +++|          EQ     MDY19       TRUNCATE
00623  M01S00452.redo    +++|
00624  M01S00453.redo    +++| MDY4     SX7    X6-1R
00625  M01S00454.redo    +++|          ZR     X7,MDY15    IF SPACE (NO TRUNCATION)
00626  M01S00455.redo    +++|          EQ     MDY19       TRUNCATE
00627  M01S00456.redo    +++| PSB      SPACE  4,10
00628  M01S00457.redo    +++|**        PSB - PACK STRING BUFFER.
00629  M01S00458.redo    +++|*
00630  M01S00459.redo    +++|*         ENTRY  (B6) = INCOMING STRING ADDRESS.
00631  M01S00460.redo    +++|*                (B7) = OUTGOING STRING ADDRESS.
00632  M01S00461.redo    +++|*
00633  M01S00462.redo    +++|*         EXIT   STRING IS CONVERTED.
00634  M01S00463.redo    +++|*
00635  M01S00464.redo    +++|*         USES   X - 1, 2, 6, 7.
00636  M01S00465.redo    +++|*                A - 1, 6.
00637  M01S00466.redo    +++|*                B - 4, 6, 7.
00638  M01S00467.redo    +++|
00639  M01S00468.redo    +++|
00640  M01S00469.redo    +++| PSB      SUBR               ENTRY/EXIT
00641  M01S00470.redo    +++|          SB4    6           SHIFT VALUE
00642  M01S00471.redo    +++|          BX6    X6-X6       CLEAR ASSEMBLY
00643  M01S00472.redo    +++|          MX7    1           POSITION INDICATOR
00644  M01S00473.redo    +++|          SX1    B0+         INITIALIZE FOR POSSIBLE BLANK LINE
00645  M01S00474.redo    +++|          EQ     PSB2        BEGIN CONVERSION
00646  M01S00475.redo    +++|
00647  M01S00476.redo    +++| PSB1     LX7    6           SHIFT POSITION
00648  M01S00477.redo    +++|          BX6    X6+X1       MERGE CHARACTERS
00649  M01S00478.redo    +++|          PL     X7,PSB2     IF NOT FULL WORD
00650  M01S00479.redo    +++|          SA6    B7
00651  M01S00480.redo    +++|          SB7    B7+B1
00652  M01S00481.redo    +++|          BX6    X6-X6       CLEAR ASSEMBLY
00653  M01S00482.redo    +++| PSB2     BX2    X1
00654  M01S00483.redo    +++|          SA1    B6          GET NEXT CHARACTER
00655  M01S00484.redo    +++|          NG     X1,PSB4     IF END OF BUFFER REACHED
00656  M01S00485.redo    +++| PSB3     LX6    6
00657  M01S00486.redo    +++|          SB6    B6+B1
00658  M01S00487.redo    +++|          EQ     PSB1        CONTINUE
00659  M01S00488.redo    +++|
00660  M01S00489.redo    +++| PSB4     SB6    B6-B1       RESET CHARACTER POINTER
00661  M01S00490.redo    +++|          SA1    =40004000400040004000B
00662  M01S00491.redo    +++|          SA6    B7
00663  M01S00492.redo    +++|          BX2    X1*X7
00664  M01S00493.redo    +++|          NZ     X2,PSB5     IF ON BYTE BOUNDRY
00665  M01S00494.redo    +++|          SX1    1R
00666  M01S00495.redo    +++|          EQ     PSB3        BLANK FILL TO BYTE BOUNDARY
00667  M01S00496.redo    +++|
00668  M01S00497.redo    +++| PSB5     NG     X7,PSBX     IF WORD IS FULL, RETURN
00669  M01S00498.redo    +++| PSB6     LX7    12
00670  M01S00499.redo    +++|          LX6    12
00671  M01S00500.redo    +++|          PL     X7,PSB6     IF NOT LEFT JUSTIFIED
00672  M01S00501.redo    +++|          SA6    B7
00673  M01S00502.redo    +++|          ZR     X6,PSBX     IF ASSURE A ZERO WORD, RETURN
00674  M01S00503.redo    +++|          BX6    X6-X6
00675  M01S00504.redo    +++|          SA6    A6+B1
00676  M01S00505.redo    +++|          EQ     PSBX        RETURN
00677  M01S00506.redo    +++| RMC      SPACE  4,15
00678  M01S00507.redo    +++|**        RMC - READ MODIFIED COMMAND.
00679  M01S00508.redo    +++|*
00680  M01S00509.redo    +++|*         ENTRY  (A0) = COMMAND LINE TO BE REENTERED.
00681  M01S00510.redo    +++|*
00682  M01S00511.redo    +++|*         EXIT   (LINE) = MODIFIED COMMAND.
00683  M01S00512.redo    +++|*
00684  M01S00513.redo    +++|*         USES   X - 2.
00685  M01S00514.redo    +++|*                A - 0, 2.
00686  M01S00515.redo    +++|*                B - 2, 6, 7.
00687  M01S00516.redo    +++|*
00688  M01S00517.redo    +++|*         CALLS - ACT, MDY, PSB, USB.
00689  M01S00518.redo    +++|*
00690  M01S00519.redo    +++|*         MACROS READ, READS, WRITEC.
00691  M01S00520.redo    +++|
00692  M01S00521.redo    +++|
00693  M01S00522.redo    +++| RMC      SUBR               ENTRY/EXIT
00694  M01S00523.redo    +++|          SB6    DSTR
00695  M01S00524.redo    +++|          SA2    GOFLAG
00696  M01S00525.redo    +++|          NZ     X2,RMC1     IF */GO* SPECIFIED
00697  M01S00526.redo    +++|          WRITEC O,MLINE     *MOD:  *
00698  M01S00527.redo    +++|          READ   T
00699  M01S00528.redo    +++|          READS  T,DSTR,80
00700  M01S00529.redo    +++| RMC1     MX6    2
00701  M01S00530.redo    +++|          SA6    B6          SET END OF LINE
00702  M01S00531.redo    +++|
00703  M01S00532.redo    +++|*         UNPACK THE ORIGINAL LINE.
00704  M01S00533.redo    +++|
00705  M01S00534.redo    +++|          SB2    A0
00706  M01S00535.redo    +++|          SB3    B0          SELECT NORMAL MODE
Line S00536 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00536.redo5   ---|          SB6    81          LENGTH OF UNPACK BUFFER
00708  M01S00076.redo5   +++|          SB6    USBFL       LENGTH OF UNPACK BUFFER
00709  M01S00537.redo    +++|          RJ     USB         UNPACK TO STRING BUFFER
00710  M01S00538.redo    +++|          MX6    59
00711  M01S00539.redo    +++|          SA6    B7+B1       ADD END OF LINE TERMINATOR
00712  M01S00540.redo    +++|          RJ     MDY         MODIFY ORIGINAL DATA
00713  M01S00541.redo    +++|          SB6    USBB
00714  M01S00542.redo    +++|          RJ     ACT         ADD COMMAND TERMINATOR
Line S00543 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00543.redo5   ---|          SB6    USBB
00716  M01S00544.redo    +++|          SB7    LINE
00717  M01S00545.redo    +++|          RJ     PSB         PACK STRING BUFFER
00718  M01S00546.redo    +++|          EQ     RMCX        RETURN
00719  M01S00547.redo    +++| TSL      SPACE  4,15
00720  M01S00548.redo    +++|**        TSL - TRIM SPACES OFF LINE (STRING BUFFER).
00721  M01S00549.redo    +++|*
00722  M01S00550.redo    +++|*         ENTRY  (A6) = FWA OF END OF LINE CHARACTER.
00723  M01S00551.redo    +++|*                (X6) = MASK OF 2.
00724  M01S00552.redo    +++|*
00725  M01S00553.redo    +++|*         EXIT   LINE TRIMMED.
00726  M01S00554.redo    +++|*                (ESTR-1) = NEW LINE LENGTH.
00727  M01S00555.redo    +++|*
00728  M01S00556.redo    +++|*         USES   X - 1, 6.
00729  M01S00557.redo    +++|*                A - 1, 6.
00730  M01S00558.redo    +++|*                B - 2.
00731  M01S00559.redo    +++|
00732  M01S00560.redo    +++|
00733  M01S00561.redo    +++| TSL      SUBR               ENTRY/EXIT
00734  M01S00562.redo    +++|          SB2    A6
00735  M01S00563.redo    +++| TSL1     SB2    B2-B1       POSITION BACK TO NEXT CHARACTER
00736  M01S00564.redo    +++|          LE     B2,B6,TSL2  IF AT START OF LINE - 1
00737  M01S00565.redo    +++|          SA1    B2
00738  M01S00566.redo    +++|          SX1    X1-1R
00739  M01S00567.redo    +++|          ZR     X1,TSL1     IF CHARACTER WAS A BLANK
00740  M01S00568.redo    +++| TSL2     SA6    B2+B1       PUT NEW END CHARACTER
00741  M01S00569.redo    +++|          SX6    B2-B6       GET NEW LENGTH
00742  M01S00570.redo    +++|          SA6    B6+         SET NEW LENGTH
00743  M01S00571.redo    +++|          EQ     TSLX        RETURN
00744  M01S00572.redo    +++| WOC      SPACE  4,10
00745  M01S00573.redo    +++|**        WOC - WRITE OUT COMMAND.
00746  M01S00574.redo    +++|*
00747  M01S00575.redo    +++|*         ENTRY  (A0) = COMMAND WITH ZERO BYTE ON END.
00748  M01S00576.redo    +++|*                (X2) = 6LXXXXXX PREFIX MESSAGE.
00749  M01S00577.redo    +++|*
00750  M01S00578.redo    +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
00751  M01S00579.redo    +++|*                A - 1, 3, 6.
00752  M01S00580.redo    +++|*                B - 6.
00753  M01S00581.redo    +++|*
00754  M01S00582.redo    +++|*         MACROS  WRITEC.
00755  M01S00583.redo    +++|
00756  M01S00584.redo    +++|
00757  M01S00585.redo    +++| WOC      SUBR               ENTRY/EXIT
00758  M01S00586.redo    +++|          SA1    GOFLAG
00759  M01S00587.redo    +++|          NZ     X1,WOCX     IF */GO* SPECIFIED DO N0T DISPLAY
00760  M01S00588.redo    +++|          SB6    B0
00761  M01S00589.redo    +++|          SA3    A0
00762  M01S00590.redo    +++|          MX7    36
00763  M01S00591.redo    +++| WOC1     MX4    -12
00764  M01S00592.redo    +++|          BX5    -X4*X3      EXTRACT END OF LINE INDICATOR
00765  M01S00593.redo    +++|          LX3    24
00766  M01S00594.redo    +++|          BX4    -X7*X3
00767  M01S00595.redo    +++|          BX6    X4+X2
00768  M01S00596.redo    +++|          SA6    DLINE+B6
00769  M01S00597.redo    +++|          SB6    B6+B1
00770  M01S00598.redo    +++|          BX2    X7*X3
00771  M01S00599.redo    +++|          SA3    A3+B1       NEXT WORD FROM LINE
00772  M01S00600.redo    +++|          NZ     X5,WOC1     IF NOT END OF LINE
00773  M01S00601.redo    +++|          BX6    X2
00774  M01S00602.redo    +++|          SA6    DLINE+B6
00775  M01S00603.redo    +++|          WRITEC O,DLINE     OUTPUT COMMAND LINE
00776  M01S00604.redo    +++|          EQ     WOCX        RETURN
00777  M01S00605.redo    +++|          SPACE  4,10
00778  M01S00606.redo    +++|*         COMMON DECKS.
00779  M01S00607.redo    +++|
00780  M01S00608.redo    +++|*CALL     COMCCIO
00781  M01S00609.redo    +++|*CALL     COMCRDC
00782  M01S00610.redo    +++|*CALL     COMCRDS
00783  M01S00611.redo    +++|*CALL     COMCRDW
00784  M01S00612.redo    +++|*CALL     COMCSFM
00785  M01S00613.redo    +++|*CALL     COMCSYS
00786  M01S00614.redo    +++| USBL$    EQU    1           SELECT EXTERNAL UNPACK BUFFER
00787  M01S00615.redo    +++|*CALL     COMCUSB
00788  M01S00616.redo    +++|*CALL     COMCWTC
00789  M01S00617.redo    +++|*CALL     COMCWTW
00790  M01S00618.redo    +++|          SPACE  4,10
00791  M01S00619.redo    +++|*         BUFFERS.
00792  M01S00620.redo    +++|
00793  M01S00621.redo    +++|          USE    BUFFERS     FLUSH LITERALS
00794  M01S00622.redo    +++| TBUF     EQU    *           TERMINAL INPUT BUFER
00795  M01S00623.redo    +++| IBUF     EQU    TBUF+IBUFL  DAYFILE BUFFER
00796  M01S00624.redo    +++| OBUF     EQU    IBUF+BUFL   OUTPUT BUFFER
00797  M01S00625.redo    +++| CBUF     EQU    OBUF+OBUFL  SAVED TAIL OF DAYFILE
00798  M01S00626.redo    +++|          TITLE  PRESET.
00799  M01S00627.redo    +++|**        PRS - GET PARAMETER VALUE.
00800  M01S00628.redo    +++|*
00801  M01S00629.redo    +++|*         ENTRY  (CCDR)-(CCDR+7) = *REDO* COMMAND.
00802  M01S00630.redo    +++|*
00803  M01S00631.redo    +++|*         EXIT   (ARGV) = ARGUMENT VALUE.
00804  M01S00632.redo    +++|*                (ARGM) = ARGUMENT MASK.
00805  M01S00633.redo    +++|
00806  M01S00634.redo    +++|
00807  M01S00635.redo    +++| PRS      SUBR               ENTRY/EXIT
00808  M01S00636.redo    +++|          SB1    1
Line S00637 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00637.redo4   ---|          MX0    42
Line S00638 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00638.redo4   ---|          SA1    PGNR
Line S00639 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00639.redo4   ---|          SA2    PRSA
Line S00640 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00640.redo4   ---|          LX2    -24
Line S00641 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00641.redo4   ---|          BX3    X2-X1
Line S00642 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00642.redo4   ---|          BX4    X0*X3
Line S00643 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00643.redo4   ---|          ZR     X4,PRS0     IF CALLED BY NAME
Line S00001 Modification History
M01 (Added by) redo1
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00001.redo4   ---|          SA2    PRSB
Line S00002 Modification History
M01 (Added by) redo1
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00002.redo4   ---|          BX3    X2-X1
Line S00003 Modification History
M01 (Added by) redo1
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00003.redo4   ---|          BX4    X0*X3
Line S00004 Modification History
M01 (Added by) redo1
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00004.redo4   ---|          ZR     X4,PRS0     IF CALLED BY NAME *R*
Line S00644 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00644.redo4   ---|          SA2    LWPR
Line S00645 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00645.redo4   ---|          MX0    1
Line S00646 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00646.redo4   ---|          LX0    1+18
Line S00647 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00647.redo4   ---|          BX6    -X0*X2      TURN OFF LIBRARY LOAD BIT FOR USER LIBRARY
Line S00648 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00648.redo4   ---|          SA6    A2
Line S00649 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00649.redo4   ---| PRS0     SB2    CCDR        AREA TO UNPACK
00826  M01S00014.redo4   +++|          SB2    CCDR        AREA TO UNPACK
Line S00650 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00650.redo5   ---|          SB6    81          LENGTH OF UNPACK BUFFER
00828  M01S00077.redo5   +++|          SB6    USBFL       LENGTH OF UNPACK BUFFER
Line S00651 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00651.redo4   ---|          SB3    B0          SELECT *NORMAL* CHARACTER SET
00830  M01S00015.redo4   +++|          SB3    0           SELECT *NORMAL* CHARACTER SET
00831  M01S00652.redo    +++|          RJ     USB         UNPACK TO STRING BUFFER
00832  M01S00653.redo    +++|          MX6    59
00833  M01S00654.redo    +++|          SA6    B7+B1       MARK END OF TEXT
00834  M01S00655.redo    +++|          SA2    B7+
00835  M01S00656.redo    +++|          SX1    X2-1R.
00836  M01S00657.redo    +++|          NZ     X1,PRS1     IF NOT A TERMINATOR
00837  M01S00658.redo    +++|          SA2    A2-B1       BACK UP ONE
00838  M01S00659.redo    +++| PRS1     SA1    A2-B1
00839  M01S00660.redo    +++|          LX1    6
00840  M01S00661.redo    +++|          IX2    X1+X2
00841  M01S00662.redo    +++|          SX2    X2-2RGO
00842  M01S00663.redo    +++|          NZ     X2,PRS2     IF CANNOT BE */GO*
00843  M01S00664.redo    +++|          SA1    A1-B1
00844  M01S00665.redo    +++|          SX2    X1-1R/
00845  M01S00666.redo    +++|          NZ     X2,PRS2     IF NOT */GO*
00846  M01S00667.redo    +++|          SA6    A1+         CHOP OFF */GO*
00847  M01S00668.redo    +++|          SA6    GOFLAG      MARK *GO* SELECTED
00848  M01S00669.redo    +++| PRS2     SB6    USBB
00849  M01S00670.redo    +++|          BX6    X6-X6
00850  M01S00671.redo    +++|          MX7    0
00851  M01S00672.redo    +++|          SB5    B0+
00852  M01S00673.redo    +++|          SB3    54
00853  M01S00674.redo    +++|          SB2    6
00854  M01S00675.redo    +++| PRS3     SA1    B6
00855  M01S00676.redo    +++|          NG     X1,PRS8     IF NO PARAMETERS
00856  M01S00677.redo    +++|          SX2    X1-1R.
00857  M01S00678.redo    +++|          ZR     X2,PRS8     IF NO PARAMETERS
00858  M01S00679.redo    +++|          SX2    X1-1R,
00859  M01S00680.redo    +++|          ZR     X2,PRS4     IF START OF PARAMETER
00860  M01S00681.redo    +++|          SX2    X1-1R(
00861  M01S00682.redo    +++|          ZR     X2,PRS4     IF START OF PARAMETER
00862  M01S00683.redo    +++|          SB6    B6+B1
00863  M01S00684.redo    +++|          EQ     PRS3        CONTINUE
00864  M01S00685.redo    +++|
00865  M01S00686.redo    +++| PRS4     SB6    B6+B1
00866  M01S00687.redo    +++|          SA1    B6
00867  M01S00688.redo    +++|          NG     X1,PRS7     IF REAL END OF COMMAND
00868  M01S00689.redo    +++|          SX2    X1-1R.
00869  M01S00690.redo    +++|          ZR     X2,PRS6     IF POSSIBLE TERMINATOR
00870  M01S00078.redo5   +++|          SX2    X1-1R
00871  M01S00079.redo5   +++|          ZR     X2,PRS4.1   IF A BLANK
00872  M01S00080.redo5   +++|          SX2    X1-1R*
00873  M01S00081.redo5   +++|          NZ     X2,PRS5     IF NOT AN ASTERISK
00874  M01S00082.redo5   +++| PRS4.1   NZ     B5,PRS5     IF NOT LEADING
00875  M01S00083.redo5   +++|          SX7    1           MARK LEADING BLANKS ACCEPTABLE
00876  M01S00084.redo5   +++|          SA7    LBFLAG
00877  M01S00085.redo5   +++|          EQ     PRS4        CONTINUE, IGNORING ASTERISK OR BLANK
00878  M01S00086.redo5   +++|
00879  M01S00691.redo    +++| PRS5     LX1    X1,B3
00880  M01S00692.redo    +++|          BX6    X6+X1       COLLECT NEXT CHARACTER OF PARAMETER
00881  M01S00693.redo    +++|          SB5    B5+B2
00882  M01S00694.redo    +++|          SB3    B3-B2       DECREMENT SHIFT POSITION BY 6
00883  M01S00695.redo    +++|          NG     B3,PRS7     IF TEN CHARACTERS COLLECTED
00884  M01S00696.redo    +++|          EQ     PRS4        CONTIINUE
00885  M01S00697.redo    +++|
00886  M01S00698.redo    +++| PRS6     SA3    B6+B1
00887  M01S00699.redo    +++|          NG     X3,PRS7     IF REAL TERMINATOR
00888  M01S00700.redo    +++|          ZR     X3,PRS7     IF REAL TERMINATOR
00889  M01S00701.redo    +++|          SX3    X3-1R
00890  M01S00702.redo    +++|          NZ     X3,PRS5     IF FOLLOWED BY NON-BLANK, GO ON
00891  M01S00703.redo    +++|
00892  M01S00704.redo    +++|*         GET ARGUMENT AND BUILD ARGUMENT MASK.
00893  M01S00705.redo    +++|
Line S00706 Modification History
M01 (Added by) redo
M02 (Updated by) redo5
Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00706.redo5   ---| PRS7     SB4    B5-B1
00895  M01S00087.redo5   +++| PRS7     SB4    B5-1
00896  M01S00707.redo    +++|          MX7    1
00897  M01S00708.redo    +++|          AX7    X7,B4
00898  M01S00709.redo    +++| PRS8     SA7    ARGM        SET UP ARGUMENT MASK
00899  M01S00710.redo    +++|          SA6    ARGV        SAVE ARGUMENT VALUE
00900  M01S00711.redo    +++|          SA2    TIOPTR
00901  M01S00712.redo    +++|          BX6    X2
00902  M01S00713.redo    +++|          MX7    0
00903  M01S00714.redo    +++|          SA6    ARGR        SET UP RA+2 FILES LIST
00904  M01S00715.redo    +++|          SA7    A6+1
00905  M01S00716.redo    +++|          SYSTEM RPV,R,RPVBLK,1
00906  M01S00717.redo    +++|
00907  M01S00718.redo    +++|*         REPLACE *MLINE*, *OLD*, AND *NEW*.
00908  M01S00719.redo    +++|
00909  M01S00720.redo    +++|          SX2    00B
00910  M01S00721.redo    +++|          SA1    CSMR
00911  M01S00722.redo    +++|          NG     X1,PRS9     IF 64 CHARACTER SET
00912  M01S00723.redo    +++|          SX2    63B
00913  M01S00724.redo    +++|          LX2    36
00914  M01S00725.redo    +++| PRS9     MX7    -6
00915  M01S00726.redo    +++|          LX7    36
00916  M01S00727.redo    +++|          SA1    MLINE       CLEAR *MLINE*
00917  M01S00728.redo    +++|          BX6    X7*X1
00918  M01S00729.redo    +++|          BX6    X6+X2
00919  M01S00730.redo    +++|          SA6    A1
00920  M01S00731.redo    +++|          SA1    REDA        CLEAR *OLD*
00921  M01S00732.redo    +++|          BX6    X7*X1
00922  M01S00733.redo    +++|          BX6    X6+X2
00923  M01S00734.redo    +++|          SA6    A1
00924  M01S00735.redo    +++|          SA1    REDB        CEAR *NEW*
00925  M01S00736.redo    +++|          BX6    X7*X1
00926  M01S00737.redo    +++|          BX6    X6+X2
00927  M01S00738.redo    +++|          SA6    A1
00928  M01S00016.redo4   +++|          SA2    JOPR        CHECK ORGIN TYPE
00929  M01S00017.redo4   +++|          MX0    -12
00930  M01S00018.redo4   +++|          LX2    -24
00931  M01S00019.redo4   +++|          BX3    -X0*X2
00932  M01S00020.redo4   +++|          SX6    X3-IAOT
00933  M01S00021.redo4   +++|          ZR     X6,PRSX     IF INTERACTIVE JOB
00934  M01S00022.redo4   +++|          SA6    GOFLAG      FORCE *GO* OPTION
00935  M01S00739.redo    +++|          EQ     PRSX        RETURN
Line S00740 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00740.redo4   ---|
Line S00741 Modification History
M01 (Added by) redo
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00741.redo4   ---| PRSA     CON    4RREDO
Line S00005 Modification History
M01 (Added by) redo1
M02 (Updated by) redo4
Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00005.redo4   ---| PRSB     CON    1LR
00939  M01S00742.redo    +++|          SPACE  4,10
00940  M01S00743.redo    +++| LWA      EQU    *
00941  M01S00744.redo    +++| ARG=     EQU    *           DEFINE ARG= ENTRY POINT
00942  M01S00745.redo    +++| SDM=     EQU    *
00943  M01S00746.redo    +++| RFL=     EQU    CBUF+BUFL
00944  M01S00747.redo    +++|          ERRNG  RFL=-LWA    PRESET EXCEEDS BUFFERS
00945  M01S00748.redo    +++|          SPACE  4,10
00946  M01S00749.redo    +++|          END
cdc/nos2.source/opl.opl871/deck/redo.txt ยท Last modified: by 127.0.0.1