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