cdc:nos2.source:opl.opl871:deck:redo
Deck REDO
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.redo +++| IDENT REDO,FWA 00002 M00S00002.redo +++| ABS 00003 M00S00003.redo +++| SST 00004 M00S00004.redo +++| ENTRY REDO 00005 M00S00005.redo +++| ENTRY R 00006 M00S00006.redo +++| ENTRY ARG= 00007 M00S00007.redo +++| ENTRY RFL= 00008 M00S00008.redo +++| ENTRY SDM= 00009 M00S00009.redo +++| SYSCOM B1 00010 M00S00010.redo +++| TITLE REDO - REENTER PREVIOUS COMMAND. 00011 M00S00011.redo +++|*COMMENT REDO - REENTER PREVIOUS COMMAND.
| Line S00012 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M00S00013.redo +++| SPACE 4,10 00015 M00S00014.redo +++|*** REDO - REENTER PREVIOUS COMMAND. 00016 M00S00015.redo +++|* 00017 M00S00016.redo +++|* R. R. RAGAN 82/12/01. 00018 M00S00017.redo +++| SPACE 4,10 00019 M00S00018.redo +++|*** *REDO* ALLOWS A PREVIOUSLY ENTERED COMMAND TO BE MODIFIED 00020 M00S00019.redo +++|* AND REEXECUTED WITHOUT RETYPING THE ENTIRE COMMAND. 00021 M00S00020.redo +++|* 00022 M00S00021.redo +++|* FOR COMPATIBILITY WITH A PREVIOUS VERSION OF *REDO* RELEASED 00023 M00S00022.redo +++|* IN BINARY AT NOS 2.2, *R* IS ALSO AN ENTRY POINT. ONLY 00024 M00S00023.redo +++|* *REDO* IS DOCUMENTED IN THE MANUALS. *R* MAY THEREFORE 00025 M00S00024.redo +++|* BE REMOVED IF IT CONFLICTS WITH LOCAL CODE. 00026 M00S00025.redo +++| SPACE 4,10 00027 M00S00026.redo +++|** COMMAND FORMAT. 00028 M00S00027.redo +++|* 00029 M00S00028.redo +++|* REDO. 00030 M00S00029.redo +++|* 00031 M00S00030.redo +++|* REDO,STRING. 00032 M00S00031.redo +++|* 00033 M00S00032.redo +++|* CALLING *REDO* WITH NO PARAMETERS WILL CAUSE IT TO DISPLAY 00034 M00S00033.redo +++|* THE PREVIOUS COMMAND AND PROVIDE A MODIFICATION LINE WHERE 00035 M00S00034.redo +++|* CHANGES TO THE COMMAND CAN BE MADE. WHEN A CARRIAGE RETURN 00036 M00S00035.redo +++|* IS ENTERED THE POSSIBLY MODIFIED COMMAND IS EXECUTED. 00037 M00S00036.redo +++|* 00038 M00S00037.redo +++|* FOR EXAMPLE, IF THE LAST COMMAND WAS - MODIFY,Z./*EDIT,CIO 00039 M00S00038.redo +++|* AND YOU WANTED TO EDIT LFM INSTEAD - 00040 M00S00039.redo +++|* 00041 M00S00040.redo +++|* REDO 00042 M00S00041.redo +++|* OLD: MODIFY,Z./*EDIT,CIO 00043 M00S00042.redo +++|* MOD: LFM 00044 M00S00043.redo +++|* NEW: MODIFY,Z./*EDIT,LFM 00045 M00S00044.redo +++|* 00046 M00S00045.redo +++|* THE *OLD* LINE IS OUTPUT BY *REDO* AND YOU ARE PROMPTED 00047 M00S00046.redo +++|* WITH THE *MOD* LINE. MODIFICATIONS ARE ENTERED MUCH AS IN 00048 M00S00047.redo +++|* THE MODIFY COMMAND OF *XEDIT*. THE *NEW* LINE ECHOS THE 00049 M00S00048.redo +++|* COMMAND THAT IS ABOUT TO BE EXECUTED. 00050 M00S00049.redo +++|* 00051 M00S00050.redo +++|* MODIFICATION IS DONE BY VISUAL ALIGNMENT OF THE *OLD* AND 00052 M00S00051.redo +++|* THE *MOD* LINES. THE MODIFICATION COMMAND CHARACTERS ARE: 00053 M00S00052.redo +++|* 00054 M00S00053.redo +++|* SPACE - RETAINS THE CHARACTER FROM *OLD*. 00055 M00S00054.redo +++|* # (NUM. SIGN) - DELETES THE CHARACTER FROM *OLD*. 00056 M00S00055.redo +++|* & (AMPERSAND) - CHANGES THE *OLD* CHARACTER TO A SPACE. 00057 M00S00056.redo +++|* ;(CIRCUMFLEX) - INSERTS FOLLOWING CHARACTERS BEFORE THE 00058 M00S00057.redo +++|* *OLD* CHARACTER ABOVE THE THE; INSERTED TEXT IS 00059 M00S00058.redo +++|* TERMINATED BY A # OR BY CARRIAGE RETURN. 00060 M00S00059.redo +++|* IF A CARAT IS ENTERED FOLLOWED BY END OF LINE 00061 M00S00060.redo +++|* THE LINE WILL BE REDISPLAYED AS SO FAR 00062 M00S00061.redo +++|* MODIFIED AND FURTHER MODS WILL BE ALLOWED. 00063 M00S00062.redo +++|* ! (EXCLAMATION) - DELETES THE REST OF THE TEXT OF *OLD*. 00064 M00S00063.redo +++|* OTHER - REPLACES THE CHARACTER FROM *OLD*. 00065 M00S00064.redo +++|* 00066 M00S00065.redo +++|* IF *REDO* IS CALLED WITH A PARAMETER, A PREVIOUS COMMAND 00067 M00S00066.redo +++|* THAT BEGINS WITH THE SAME CHARACTERS AS THE PARAMETER 00068 M00S00067.redo +++|* IS FOUND AND BECOMES THE COMMAND TO BE REENTERED. NOTE THAT 00069 M00S00068.redo +++|* COMMAS, PARANTHESES, ETC. ARE CONSIDERED TO BE PART OF THE
| Line S00069 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00069.redo5 ---|* STRING. *REDO* DOES NOT PROCESS ANY PARAMETERS ITSELF.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00070.redo +++|* THE FIRST 10 CHARACTERS OF THE PARAMETER OR UP TO A BLANK 00076 M00S00071.redo +++|* END OF COMMAND INPUT ARE USED FOR THE PARAMETER. 00077 M00S00072.redo +++|* THUS COMMANDS SUCH AS THE FOLLOWING WILL WORK - 00078 M00S00073.redo +++|* 00079 M00S00074.redo +++|* REDO,FTN,I=A 00080 M00S00075.redo +++|* REDO,GTR,OPL.AB
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00081 M01S00005.redo5 +++|* REDO, COPY,TAPE 00082 M00S00076.redo +++|* REDO/GO. 00083 M00S00077.redo +++|* REDO./GO. 00084 M00S00078.redo +++|* 00085 M00S00079.redo +++|* IF THE *REDO* COMMAND IS SUFFIXED WITH */GO*, THE *OLD*, 00086 M00S00080.redo +++|* *MOD* AND *NEW* MESSAGES WILL BE SUPPRESSED. THIS IS USEFUL
| Line S00081 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00087 M01S00081.redo5 ---|* FOR SLOW BAUD RATE TERMINALS. A NON-COMMAND LINE HAS A 00088 M01S00082.redo5 ---|* BLANK BEFORE THE TERMINATOR IS FOUND.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00089 M01S00006.redo5 +++|* FOR SLOW BAUD RATE TERMINALS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00083.redo +++| SPACE 4,10 00094 M00S00084.redo +++|* COMMON DECKS. 00095 M00S00085.redo +++| 00096 M00S00086.redo +++|*CALL COMCMAC 00097 M00S00087.redo +++|*CALL COMSIOQ 00098 M00S00088.redo +++|*CALL COMSSFM 00099 M00S00089.redo +++| TITLE DEFINITIONS. 00100 M00S00090.redo +++|* ASSEMBLY CONSTANTS. 00101 M00S00091.redo +++| 00102 M00S00092.redo +++| BUFL EQU 401B DAYFILE BUFFER LENGTH 00103 M00S00093.redo +++| IBUFL EQU 101B INPUT BUFFER LENGTH 00104 M00S00094.redo +++| OBUFL EQU 101B OUTPUT BUFFER LENGTH
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00105 M01S00007.redo5 +++| USBFL EQU 81 UNPACKED STRING BUFFER LENGTH 00106 M00S00095.redo +++| SPACE 4,10 00107 M00S00096.redo +++|* FETS. 00108 M00S00097.redo +++| 00109 M00S00098.redo +++| ORG 105B 00110 M00S00099.redo +++| FWA BSS 0 00111 M00S00100.redo +++| 00112 M00S00101.redo +++| I BSS 0 DAYFILE BUFFER 00113 M00S00102.redo +++| ZZZZZDD FILEB IBUF,BUFL,FET=7 00114 M00S00103.redo +++| 00115 M00S00104.redo +++| O BSS 0 OUTPUT BUFFER 00116 M00S00105.redo +++| OUTPUT FILEB OBUF,OBUFL,FET=7 00117 M00S00106.redo +++| 00118 M00S00107.redo +++| T BSS 0 TERMINAL INPUT BUFFER 00119 M00S00108.redo +++| INPUT FILEB TBUF,IBUFL,FET=7 00120 M00S00109.redo +++| SPACE 4,10 00121 M00S00110.redo +++|* BUFFERS AND WORKING STORAGE. 00122 M00S00111.redo +++| 00123 M00S00112.redo +++| RPVBLK VFD 36/0,12/25,2/0,9/1,1/0 *REPRIEVE* PARAMETER BLOCK 00124 M00S00113.redo +++| VFD 30/0,12/0,18/RED9 00125 M00S00114.redo +++| CON 0 00126 M00S00115.redo +++| VFD 24/200B,36/0
| Line S00116 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00116.redo5 ---| DSTR BSS 81 MODIFICATION COMMANDS
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00008.redo5 +++| DSTR BSS USBFL MODIFICATION COMMANDS 00129 M00S00117.redo +++| ELEN CON 0 *ELEN* MUST PRECEDE *ESTR* 00130 M00S00118.redo +++| USBB BSS 0
| Line S00119 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00119.redo5 ---| ESTR BSS 81 UNPACKED STRING BUFFER 00132 M01S00120.redo5 ---| ESCR BSS 81
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00009.redo5 +++| ESTR BSS USBFL UNPACKED STRING BUFFER 00134 M01S00010.redo5 +++| ESCR BSS USBFL 00135 M00S00121.redo +++| TIME BSS 1 TIME PART OF DAYFILE LINE 00136 M00S00122.redo +++| LINE BSS 9 00137 M00S00123.redo +++| DLINE BSS 10 DISPLAY VERSION OF LINE
| Line S00124 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00124.redo4 ---| PENULT CON 77770000000000000000B 00139 M01S00125.redo4 ---| BSS 8 00140 M00S00126.redo +++| ULT CON 77770000000000000000B 00141 M00S00127.redo +++| BSS 8 00142 M00S00128.redo +++| MLINE VFD 36/6LMOD: ,12/0013B,12/0
| Line S00129 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00143 M01S00129.redo4 ---| NOFIND VFD 12/0011B,48/8HComm 00144 M01S00130.redo4 ---| DIS ,*And not found.* 00145 M00S00131.redo +++| ZERO CON 0
| Line S00132 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00146 M01S00132.redo4 ---| GOFLAG CON 0 NONZERO IF */GO* ON *REDO* COMMAND
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00004.redo4 +++| GOFLAG CON 0 NONZERO IF */GO* OPTION OR NON-INTERACTIVE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00011.redo5 +++| LBFLAG CON 0 NONZERO IF LEADING BLANKS OK ON COMMAND 00149 M00S00133.redo +++| WDCT CON 0 WORD COUNT IN CM BUFFER 00150 M00S00134.redo +++| TIOPTR VFD 42/6LOUTPUT,18/O OUTPUT FET POINTER 00151 M00S00135.redo +++| ARGV CON 0 ARGUMENT VALUE 00152 M00S00136.redo +++| ARGM CON 0 ARGUMENT MASK 00153 M00S00137.redo +++| TITLE MAIN PROGRAM. 00154 M00S00138.redo +++| SPACE 4,10 00155 M00S00139.redo +++|** REDO - MAIN PROGRAM. 00156 M00S00140.redo +++| 00157 M00S00141.redo +++| 00158 M00S00142.redo +++| R BSS 0 00159 M00S00143.redo +++| REDO RJ PRS PRESET 00160 M00S00144.redo +++| 00161 M00S00145.redo +++|* GET THE JOB DAYFILE AND POSITION TO EOI FOR BACK SCAN. 00162 M00S00146.redo +++| 00163 M00S00147.redo +++| CSET NORMAL 00164 M00S00148.redo +++| DAYFILE I,USER 00165 M00S00149.redo +++| READW I,CBUF,BUFL SAVE LAST PART OF DAYFILE 00166 M00S00150.redo +++| SX6 B6 00167 M00S00151.redo +++| SA6 WDCT SAVE IN POINTER FOR CBUF 00168 M00S00152.redo +++| REWIND I,R 00169 M00S00153.redo +++| READ I 00170 M00S00154.redo +++| MX0 -12 00171 M00S00155.redo +++| 00172 M00S00156.redo +++|* SEARCH FOR LINE MATCHING THE ARGUMENT. 00173 M00S00157.redo +++| 00174 M00S00158.redo +++| RED1 READC I,TIME READ A DAYFILE LINE 00175 M00S00159.redo +++| RED2 NZ X1,RED10 IF END OF INPUT
| Line S00160 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00176 M01S00160.redo5 ---| SA2 LINE 00177 M00S00161.redo +++| RJ CCL CHECK COMMAND LINE
| Line S00162 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00178 M01S00162.redo5 ---| ZR X4,RED1 IF NOT A COMMAND LINE 00179 M00S00163.redo +++| SA3 LINE 00180 M00S00164.redo +++| SA4 ARGV 00181 M00S00165.redo +++| SA5 ARGM
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00012.redo5 +++| SA2 LBFLAG 00183 M00S00166.redo +++| BX6 X3-X4 00184 M00S00167.redo +++| BX6 X5*X6
| Line S00168 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00185 M01S00168.redo5 ---| NZ X6,RED1 IF NOT DESIRED LINE
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00169.redo +++| 00191 M00S00170.redo +++|* SAVE THE LINE FOUND AND CONTINUE. 00192 M00S00171.redo +++|
| Line S00172 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00193 M01S00172.redo4 ---| SB6 B0
| Line S00173 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00194 M01S00173.redo5 ---| SB5 B0
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00195 M01S00017.redo5 +++| SB5 B0+
| Line S00174 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00196 M01S00174.redo4 ---| SA2 ULT 00197 M01S00175.redo4 ---| RED3 BX6 X2 00198 M01S00176.redo4 ---| SA6 PENULT+B6 MOVE ULTIMATE TO PENULTIMATE 00199 M01S00177.redo4 ---| BX3 -X0*X2 00200 M01S00178.redo4 ---| SA2 A2+B1 00201 M01S00179.redo4 ---| SB6 B6+B1 00202 M01S00180.redo4 ---| NZ X3,RED3 IF NOT END OF LINE 00203 M00S00181.redo +++| RED4 SA2 LINE+B5 00204 M00S00182.redo +++| BX6 X2 00205 M00S00183.redo +++| SA6 ULT+B5 MOVE LINE TO ULTIMATE 00206 M00S00184.redo +++| BX3 -X0*X2 00207 M00S00185.redo +++| SB5 B5+B1 00208 M00S00186.redo +++| NZ X3,RED4 IF NOT END OF LINE 00209 M00S00187.redo +++| EQ RED1 CONTINUE READING TO EOI 00210 M00S00188.redo +++| 00211 M00S00189.redo +++|* DISPLAY THE ORIGINAL LINE AND GET THE MODS. 00212 M00S00190.redo +++|
| Line S00191 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00191.redo4 ---| RED5 SA2 ARGV 00214 M01S00192.redo4 ---| SA0 ULT 00215 M01S00193.redo4 ---| NZ X2,RED6 IF SEARCHING FOR STRING 00216 M01S00194.redo4 ---| SA2 LWPR 00217 M01S00195.redo4 ---| LX2 59-18 00218 M01S00196.redo4 ---| NG X2,RED6 IF LOADED FROM LIBRARY 00219 M01S00197.redo4 ---| SA0 PENULT USE LAST ONE FOUND 00220 M01S00198.redo4 ---| RED6 SA3 A0
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00005.redo4 +++| RED5 SA3 ULT 00222 M01S00006.redo4 +++| SA0 A3 00223 M00S00199.redo +++| MX4 12 00224 M00S00200.redo +++| IX3 X3-X4 00225 M00S00201.redo +++| ZR X3,RED8 IF NOT FOUND 00226 M00S00202.redo +++| SA2 REDA 00227 M00S00203.redo +++| RJ WOC WRITE OUT COMMAND
| Line S00204 Modification History | |
|---|---|
M01 (Removed by) | redo2 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00204.redo2 ---| RED7 PROMPT OFF 00229 M01S00205.redo2 ---| RJ RMC READ MODIFIED COMMAND
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo2 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00206.redo +++| 00235 M00S00207.redo +++|* DISPLAY MODIFIED COMMAND AND EXECUTE IT. 00236 M00S00208.redo +++| 00237 M00S00209.redo +++| SA0 LINE 00238 M00S00210.redo +++| SA2 REDB 00239 M00S00211.redo +++| RJ WOC WRITE OUT COMMAND 00240 M00S00212.redo +++| SB6 X0+2
| Line S00213 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00241 M01S00213.redo4 ---| ZR B6,RED7 IF REMOD SPECIFIED
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00214.redo +++| WRITER O
| Line S00215 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00246 M01S00215.redo4 ---| RETURN I
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00247 M01S00010.redo4 +++| RED7.3 RETURN I 00248 M00S00216.redo +++| CSET RESTORE 00249 M00S00217.redo +++| EXCST LINE 00250 M00S00218.redo +++| 00251 M00S00219.redo +++|* COMMAND STRING CANNOT BE FOUND. 00252 M00S00220.redo +++|
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00253 M01S00221.redo4 ---| RED8 WRITEC O,NOFIND * COMMAND NOT FOUND.*
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00254 M01S00011.redo4 +++| RED8 MESSAGE CCDR,3 ISSUE COMMAND AND ERROR MESSAGE TO DAYFILE 00255 M01S00012.redo4 +++| MESSAGE (=C*COMMAND NOT FOUND.*),3 00256 M00S00222.redo +++| RED9 RETURN I
| Line S00223 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00257 M01S00223.redo4 ---| MESSAGE ZERO,1 CLEAR *MS1W* 00258 M00S00224.redo +++| CSET RESTORE
| Line S00225 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00259 M01S00225.redo4 ---| ENDRUN
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00013.redo4 +++| ABORT ABORT 00261 M00S00226.redo +++| 00262 M00S00227.redo +++|* HANDLE LINE BROKEN ACROSS DISK/MEMORY. 00263 M00S00228.redo +++| 00264 M00S00229.redo +++| RED10 SA2 I+1 FIRST 00265 M00S00230.redo +++| SB4 X2+ 00266 M00S00231.redo +++| SB5 CBUF 00267 M00S00232.redo +++| EQ B4,B5,RED5 IF REAL EOI 00268 M00S00233.redo +++| SX7 B5 00269 M00S00234.redo +++| MX5 -18 00270 M00S00235.redo +++| BX3 X5*X2 00271 M00S00236.redo +++| IX6 X3+X7 SET FIRST TO *CBUF* 00272 M00S00237.redo +++| SA6 A2 00273 M00S00238.redo +++| SA2 WDCT 00274 M00S00239.redo +++| BX6 X2 00275 M00S00240.redo +++| SA6 A6+B1 SET IN 00276 M00S00241.redo +++| SA7 A6+B1 SET OUT TO *CBUF* 00277 M00S00242.redo +++| SA2 A7+B1 LIMIT 00278 M00S00243.redo +++| BX3 X5*X2 00279 M00S00244.redo +++| SX7 CBUF+BUFL 00280 M00S00245.redo +++| IX6 X3+X7 00281 M00S00246.redo +++| SA6 A2 SET LIMIT 00282 M00S00247.redo +++| READC I,B6 READ REST OF LINE 00283 M00S00248.redo +++| EQ RED2 CONTINUE ON BROKEN RECORD 00284 M00S00249.redo +++| 00285 M00S00250.redo +++| REDA VFD 36/6LOLD: ,24/0 00286 M00S00251.redo +++| REDB VFD 36/6LNEW: ,24/0 00287 M00S00252.redo +++| TITLE SUBROUTINES. 00288 M00S00253.redo +++| ACT SPACE 4,15 00289 M00S00254.redo +++|** ACT - ADD COMMAND TERMINATOR. 00290 M00S00255.redo +++|* 00291 M00S00256.redo +++|* *ACT* ADDS A PERIOD TO THE END OF THE MODIFIED COMMAND IF 00292 M00S00257.redo +++|* THERE IS NO PERIOD OR RIGHT PARENTHESIS ALREADY IN THE
| Line S00258 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00293 M01S00258.redo5 ---|* COMMAND.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00294 M01S00018.redo5 +++|* COMMAND OUTSIDE OF LITERALS. 00295 M00S00259.redo +++|* 00296 M00S00260.redo +++|* ENTRY (B6) = STRING BUFFER ADDRESS. 00297 M00S00261.redo +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00298 M01S00019.redo5 +++|* EXIT (B6) = STRING BUFFER ADDRESS, LEADING BLANKS REMOVED. 00299 M01S00020.redo5 +++|* 00300 M00S00262.redo +++|* USES X - 1, 2, 6, 7. 00301 M00S00263.redo +++|* A - 1, 6, 7. 00302 M00S00264.redo +++|* B - 6. 00303 M00S00265.redo +++| 00304 M00S00266.redo +++| 00305 M00S00267.redo +++| ACT SUBR ENTRY/EXIT
| Line S00268 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00306 M01S00268.redo5 ---| ACT1 SA1 B6 00307 M01S00269.redo5 ---| NG X1,ACT2 IF END OF COMMAND 00308 M01S00270.redo5 ---| SX2 X1-1R.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00271.redo +++| ZR X2,ACTX IF TERMINATOR IN COMMAND 00319 M00S00272.redo +++| SX2 X1-1R)
| Line S00273 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00320 M01S00273.redo5 ---| ZR X2,ACTX IF TERMINATOR IN COMMAND 00321 M01S00274.redo5 ---| SB6 B6+B1
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00275.redo +++| EQ ACT1 CONTINUE 00328 M00S00276.redo +++|
| Line S00277 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00329 M01S00277.redo5 ---| ACT2 SX6 1R. 00330 M01S00278.redo5 ---| SA6 B6 00331 M01S00279.redo5 ---| MX7 2 00332 M01S00280.redo5 ---| SA7 B6+B1
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00281.redo +++| EQ ACTX RETURN 00345 M00S00282.redo +++| CCL SPACE 4,15 00346 M00S00283.redo +++|** CCL - CHECK COMMAND LINE. 00347 M00S00284.redo +++|*
| Line S00285 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00348 M01S00285.redo5 ---|* *CCL* CHECKS TO SEE IF THE LINE FOUND IS A COMMAND LINE OR 00349 M01S00286.redo5 ---|* A MESSAGE LINE. A NON-COMMAND LINE HAS A BLANK 00350 M01S00287.redo5 ---|* BEFORE THE TERMINATOR IS FOUND.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | redo5 |
M02 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00351 M02S00046.redo5b ---|* *CCL* CHECKS TO SEE IF THE LINE FOUND HAS LEADING BLANKS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 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.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00362 M01S00047.redo5 +++|* IF LEADING BLANKS ARE FOUND, THEY ARE REMOVED. 00363 M00S00288.redo +++|*
| Line S00289 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00364 M01S00289.redo5 ---|* ENTRY (A2) = POINTER TO START OF LINE. 00365 M01S00290.redo5 ---|* (X2) = FIRST WORD OF LINE. 00366 M01S00291.redo5 ---|* (X0) = 7777 7777 7777 7777 0000B.
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00048.redo5 +++|* ENTRY (X0) = 7777 7777 7777 7777 0000B. 00368 M01S00049.redo5 +++|* (LINE) = LINE TO BE EXAMINED. 00369 M00S00292.redo +++|*
| Line S00293 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00370 M01S00293.redo5 ---|* EXIT (X4) = 0, IF NOT A COMMAND LINE.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00371 M01S00050.redo5 +++|* EXIT (B5) = NUMBER OF LEADING BLANKS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo5a |
M02 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00372 M02S00001.redo5b ---|* (B5) = -1 IF FIRST NON-BLANK NOT ALPHANUMERIC, $ OR /.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00373 M01S00011.redo5b +++|* (B5) = -1 IF LINE DOES NOT MEET COMMAND CRITERIA. 00374 M00S00294.redo +++|* 00375 M00S00295.redo +++|* USES X - 2, 3, 4, 5, 6, 7.
| Line S00296 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00376 M01S00296.redo5 ---|* A - 2. 00377 M01S00297.redo5 ---|* B - 5, 6.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00298.redo +++| 00383 M00S00299.redo +++|
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00300.redo +++| CCL SUBR ENTRY/EXIT
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00396 M01S00055.redo5 +++| SA2 LINE
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00397 M01S00023.redo5b +++| SB2 B1+ 00398 M01S00024.redo5b +++| SB3 B0+
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00056.redo5 +++| SB5 B0 00400 M00S00301.redo +++| MX7 -6 00401 M00S00302.redo +++|
| Line S00303 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00402 M01S00303.redo5 ---|* SEARCH THE LINE FOR ANY BLANK CHARACTERS.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | redo5 |
M02 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00403 M02S00057.redo5b ---|* SEARCH THE LINE FOR LEADING BLANK CHARACTERS.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00404 M01S00025.redo5b +++|* SEARCH LINE FOR LEADING BLANKS AND START OF COMMAND. 00405 M00S00304.redo +++| 00406 M00S00305.redo +++| CCL1 SB6 B0
| Line S00306 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00407 M01S00306.redo5 ---| SB5 60
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00408 M01S00058.redo5 +++| SB7 60 00409 M00S00307.redo +++| BX5 -X0*X2 EXTRACT END OF LINE FOR TEST 00410 M00S00308.redo +++| CCL2 LX2 6 00411 M00S00309.redo +++| BX3 -X7*X2 00412 M00S00310.redo +++| SX4 X3-1R
| Line S00311 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00413 M01S00311.redo5 ---| ZR X4,CCLX IF NOT A COMMAND LINE 00414 M01S00312.redo5 ---| SX6 X3-1R. 00415 M01S00313.redo5 ---| ZR X6,CCLX IF A TERMINATOR 00416 M01S00314.redo5 ---| SX6 X3-1R) 00417 M01S00315.redo5 ---| ZR X6,CCLX IF A TERMINATOR
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | redo5 |
M02 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00418 M02S00059.redo5b ---| NZ X4,CCL3 IF NOT A BLANK 00419 M02S00060.redo5b ---| SB5 B5+1
| Line S00316 Modification History | |
|---|---|
M01 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00420 M01S00316.redo5b ---| SB6 B6+6
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00424 M01S00317.redo5 ---| NE B6,B5,CCL2 IF WORD NOT ALL SCANNED 00425 M01S00318.redo5 ---| BX4 X4-X4 00426 M01S00319.redo5 ---| SA2 A2+B1 NEXT WORD OF LINE 00427 M01S00320.redo5 ---| ZR X5,CCL IF END OF LINE
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00321.redo +++| EQ CCL1 CONTINUE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00432 M01S00064.redo5 +++|
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | redo5 |
M02 (Removed 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 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00434 M02S00002.redo5b ---| CCL3 SX4 X3-1R9-1 00435 M02S00003.redo5b ---| NG X4,CCL4 IF ALPHANUMERIC
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 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+
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | redo5a |
Seq # *Modification Id* Act ----------------------------+ 00440 M01S00004.redo5a +++| SX4 X3-1R$
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | redo5a |
M02 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00005.redo5b ---| ZR X4,CCL4 IF DOLLAR SYMBOL
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00033.redo5b +++| ZR X4,CCL3 IF DOLLAR SYMBOL
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | redo5a |
Seq # *Modification Id* Act ----------------------------+ 00443 M01S00006.redo5a +++| SX4 X3-1R/
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | redo5a |
M02 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00444 M02S00007.redo5b ---| ZR X4,CCL4 IF SLASH 00445 M02S00008.redo5b ---| SB5 -1 INDICATE NOT A COMMAND
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00446 M01S00034.redo5b +++| ZR X4,CCL3 IF SLASH 00447 M01S00035.redo5b +++| CCL5 SB5 -1 INDICATE NOT A COMMAND
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | redo5a |
Seq # *Modification Id* Act ----------------------------+ 00448 M01S00009.redo5a +++| EQ CCLX RETURN WITH ERROR 00449 M01S00010.redo5a +++|
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | redo5a |
M02 (Removed 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 (Removed by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 00451 M02S00066.redo5b ---| SB2 LINE 00452 M02S00067.redo5b ---| SB3 B0+ SELECT NORMAL MODE 00453 M02S00068.redo5b ---| SB6 USBFL LENGTH OF UNPACK BUFFER 00454 M02S00069.redo5b ---| RJ USB UNPACK TO STRING BUFFER 00455 M02S00070.redo5b ---| MX6 59 00456 M02S00071.redo5b ---| SA6 B7+B1 ADD END OF LINE TERMINATOR 00457 M02S00072.redo5b ---| SB6 USBB+B5 00458 M02S00073.redo5b ---| SB7 LINE 00459 M02S00074.redo5b ---| RJ PSB PACK STRING BUFFER 00460 M02S00075.redo5b ---| EQ CCLX RETURN
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | redo5b |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00322.redo +++| MDY SPACE 4,15 00493 M00S00323.redo +++|** MDY - PROCESS MODIFY DIRECTIVES. 00494 M00S00324.redo +++|* 00495 M00S00325.redo +++|* ENTRY (ESTR) = ORIGINAL LINE (UNPACKED). 00496 M00S00326.redo +++|* (DSTR) = DIRECTIVES LINE (UNPACKED). 00497 M00S00327.redo +++|* 00498 M00S00328.redo +++|* EXIT (X0) = -1, IF TRUNCATION ENCOUNTERED. 00499 M00S00329.redo +++|* (X0) = -2, IF REMODIFICATION SPECIFIED 00500 M00S00330.redo +++|* (ESTR) = NEW TEXT LINE. 00501 M00S00331.redo +++|* 00502 M00S00332.redo +++|* USES X, 0, 1, 2, 6, 7. 00503 M00S00333.redo +++|* A - 1, 2, 6. 00504 M00S00334.redo +++|* B - 2, 3, 4, 5, 6. 00505 M00S00335.redo +++|* 00506 M00S00336.redo +++|* CALLS TSL. 00507 M00S00337.redo +++| 00508 M00S00338.redo +++| 00509 M00S00339.redo +++| MDY5 SX6 1R SET BLANK CHARACTER 00510 M00S00340.redo +++| MDY6 GT B3,B4,MDY1 IF AT END OF BUFFER 00511 M00S00341.redo +++| SA6 B3 00512 M00S00342.redo +++| SB3 B3+B1 SET TO NEXT PLACE TO SAVE 00513 M00S00343.redo +++| MDY7 SA2 A2+B2 GET NEXT *ESTR* CHARACTER 00514 M00S00344.redo +++| PL X2,MDY8 IF NOT AT END OF LINE 00515 M00S00345.redo +++| SX6 1R 00516 M00S00346.redo +++| SB2 B0 SET TO NOT ESCAPE END OF LINE 00517 M00S00347.redo +++| BX2 X2+X6 GET END LINE (WITH BLANK) 00518 M00S00348.redo +++| MDY8 SA1 A1+B1 GET NEXT DIRECTIVES CHARACTER 00519 M00S00349.redo +++| SX6 X2 MOVE CURRENT TEXT CHARACTER 00520 M00S00350.redo +++| SX7 X1-1R 00521 M00S00351.redo +++| ZR X7,MDY11 IF SPACE DIRECTIVE 00522 M00S00352.redo +++| NG X1,MDY17 IF END OF DIRECTIVE LINE 00523 M00S00353.redo +++| SX7 X1-1R# 00524 M00S00354.redo +++| ZR X7,MDY7 IF SHARP (DELETE TEXT CHARACTER) 00525 M00S00355.redo +++| SX7 X1-1R! 00526 M00S00356.redo +++| ZR X7,MDY10 IF ! (TRUNCATE TEXT CHARACTER) 00527 M00S00357.redo +++| SX7 X1-1R& 00528 M00S00358.redo +++| ZR X7,MDY5 IF AMPERSAND (SET TEXT TO BLANK) 00529 M00S00359.redo +++| BX6 X1 00530 M00S00360.redo +++| SB6 X1+B5 B5 = -UP ARROW 00531 M00S00361.redo +++| NZ B6,MDY6 IF CHARACTER (REPLACE TEXT) 00532 M00S00362.redo +++| MDY9 SA1 A1+B1 GET NEXT DIRECTIVES 00533 M00S00363.redo +++| SX3 X1-1R# 00534 M00S00364.redo +++| BX6 X1 00535 M00S00365.redo +++| SX7 B6+B1 SET NUMBER OF CHARACTERS SCANNED 00536 M00S00366.redo +++| NG X1,MDY12 IF END OF DIRECTIVES 00537 M00S00367.redo +++| SB6 B6+B1 INCREMENT COUNT OF CHARACTERS SCANNED 00538 M00S00368.redo +++| ZR X3,MDY13 IF SHARP 00539 M00S00369.redo +++| GT B3,B4,MDY2 IF PAST 80 CHARACTERS 00540 M00S00370.redo +++| SA6 B3 00541 M00S00371.redo +++| SB3 B3+B1 00542 M00S00372.redo +++| EQ MDY9 LOOP 00543 M00S00373.redo +++| 00544 M00S00374.redo +++| MDY10 SX2 -B1 FLAG EARLY END OF *ESTR* 00545 M00S00375.redo +++| EQ MDY17 COPY REST OF TEXT 00546 M00S00376.redo +++| 00547 M00S00377.redo +++| MDY11 PL X2,MDY6 IF MORE IN *ESTR* 00548 M00S00378.redo +++| SX6 1R PRETEND A SPACE IN *ESTR* 00549 M00S00379.redo +++| EQ MDY6 CHECK IF END OF BUFFER 00550 M00S00380.redo +++| 00551 M00S00381.redo +++| MDY12 NZ B6,MDY16 IF SOMETHING WAS AFTER THE UPARROW 00552 M00S00382.redo +++| SB2 -2 SET REMODIFICATION FLAG 00553 M00S00383.redo +++| EQ MDY17 COPY REST OF TEXT 00554 M00S00384.redo +++| 00555 M00S00385.redo +++| MDY13 SX7 B6+B1 00556 M00S00386.redo +++| NE B6,B1,MDY16 IF NOT (UP ARROW)(SHARP) 00557 M00S00387.redo +++| SX7 B1 RESET COPY COUNTER 00558 M00S00388.redo +++| MDY14 GT B3,B4,MDY4 IF POSSIBLE TRUNCATION 00559 M00S00389.redo +++| SA6 B3 00560 M00S00390.redo +++| SB3 B3+B1 00561 M00S00391.redo +++| MDY15 SA2 A2+B2 GET NEXT *ESTR* CHARACTER 00562 M00S00392.redo +++| PL X2,MDY16 IF NOT END OF LINE 00563 M00S00393.redo +++| SB2 B0 00564 M00S00394.redo +++| SX6 1R
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo3 |
Seq # *Modification Id* Act ----------------------------+ 00565 M01S00001.redo3 +++| MX2 2 SET END OF LINE 00566 M00S00395.redo +++| BX2 X2+X6 00567 M00S00396.redo +++| MDY16 SX6 X2+ 00568 M00S00397.redo +++| SX7 X7-1 00569 M00S00398.redo +++| PL X7,MDY14 IF MORE TO MOVE 00570 M00S00399.redo +++| PL X1,MDY8 IF MORE DIRECTIVES 00571 M00S00400.redo +++| 00572 M00S00401.redo +++|* END OF DIRECTIVES, COPY REST OF TEXT. 00573 M00S00402.redo +++| 00574 M00S00403.redo +++| MDY17 NG X2,MDY20 IF END OF TEXT 00575 M00S00404.redo +++| GT B3,B4,MDY3 IF END OF BUFFER 00576 M00S00405.redo +++| SX6 X2+ 00577 M00S00406.redo +++| SA6 B3+ 00578 M00S00407.redo +++| MDY18 SA2 A2+B1 GET NEXT TEXT 00579 M00S00408.redo +++| SB3 B3+B1 00580 M00S00409.redo +++| EQ MDY17 CONTINUE COPY 00581 M00S00410.redo +++| 00582 M00S00411.redo +++|* SET TRUNCATION FLAG AND CLEANUP. 00583 M00S00412.redo +++| 00584 M00S00413.redo +++| MDY19 SB2 -1 00585 M00S00414.redo +++| 00586 M00S00415.redo +++|* SET END OF LINE AND COPY BACK TO *ESTR*. 00587 M00S00416.redo +++| 00588 M00S00417.redo +++| MDY20 MX6 2 00589 M00S00418.redo +++| SA6 B3+ 00590 M00S00419.redo +++| SB6 ESTR 00591 M00S00420.redo +++| SA1 ESCR 00592 M00S00421.redo +++| MDY21 BX6 X1 00593 M00S00422.redo +++| SB6 B6+B1 00594 M00S00423.redo +++| SA1 A1+B1 00595 M00S00424.redo +++| SA6 B6-B1 00596 M00S00425.redo +++| PL X6,MDY21 IF NOT FINISHED 00597 M00S00426.redo +++| SB6 ESTR-1 SET LINE WIDTH CELL 00598 M00S00427.redo +++| SX0 B2+ MOVE TRUNCATION FLAG 00599 M00S00428.redo +++| RJ TSL TRIM ANY TRAILING SPACES 00600 M00S00429.redo +++| 00601 M00S00430.redo +++| MDY SUBR ENTRY/EXIT 00602 M00S00431.redo +++| SB5 -1R 00603 M00S00432.redo +++| SB2 B1+ SET NOT AT END OF TEXT LINE 00604 M00S00433.redo +++| SB3 ESCR SET NEXT SAVE CHARACTER ADDRESS 00605 M00S00434.redo +++| SB4 ESCR+80 SET LWA 00606 M00S00435.redo +++| SA1 DSTR-1 00607 M00S00436.redo +++| SA2 ESTR-1 00608 M00S00437.redo +++| EQ MDY7 BEGIN LOOP 00609 M00S00438.redo +++| 00610 M00S00439.redo +++|* HANDLE SPECIAL CASES OF FULL BUFFER, ADDING CHARACTERS. 00611 M00S00440.redo +++| 00612 M00S00441.redo +++| MDY1 SX7 X6-1R 00613 M00S00442.redo +++| ZR X7,MDY7 IF SPACE (NO TRUNCATION) 00614 M00S00443.redo +++| EQ MDY19 TRUNCATE 00615 M00S00444.redo +++| 00616 M00S00445.redo +++| MDY2 SX7 X6-1R 00617 M00S00446.redo +++| ZR X7,MDY9 IF SPACE (NO TRUNCATION) 00618 M00S00447.redo +++| EQ MDY19 TRUNCATE 00619 M00S00448.redo +++| 00620 M00S00449.redo +++| MDY3 SX7 X6-1R 00621 M00S00450.redo +++| ZR X7,MDY17 IF SPACE (NO TRUNCATION) 00622 M00S00451.redo +++| EQ MDY19 TRUNCATE 00623 M00S00452.redo +++| 00624 M00S00453.redo +++| MDY4 SX7 X6-1R 00625 M00S00454.redo +++| ZR X7,MDY15 IF SPACE (NO TRUNCATION) 00626 M00S00455.redo +++| EQ MDY19 TRUNCATE 00627 M00S00456.redo +++| PSB SPACE 4,10 00628 M00S00457.redo +++|** PSB - PACK STRING BUFFER. 00629 M00S00458.redo +++|* 00630 M00S00459.redo +++|* ENTRY (B6) = INCOMING STRING ADDRESS. 00631 M00S00460.redo +++|* (B7) = OUTGOING STRING ADDRESS. 00632 M00S00461.redo +++|* 00633 M00S00462.redo +++|* EXIT STRING IS CONVERTED. 00634 M00S00463.redo +++|* 00635 M00S00464.redo +++|* USES X - 1, 2, 6, 7. 00636 M00S00465.redo +++|* A - 1, 6. 00637 M00S00466.redo +++|* B - 4, 6, 7. 00638 M00S00467.redo +++| 00639 M00S00468.redo +++| 00640 M00S00469.redo +++| PSB SUBR ENTRY/EXIT 00641 M00S00470.redo +++| SB4 6 SHIFT VALUE 00642 M00S00471.redo +++| BX6 X6-X6 CLEAR ASSEMBLY 00643 M00S00472.redo +++| MX7 1 POSITION INDICATOR 00644 M00S00473.redo +++| SX1 B0+ INITIALIZE FOR POSSIBLE BLANK LINE 00645 M00S00474.redo +++| EQ PSB2 BEGIN CONVERSION 00646 M00S00475.redo +++| 00647 M00S00476.redo +++| PSB1 LX7 6 SHIFT POSITION 00648 M00S00477.redo +++| BX6 X6+X1 MERGE CHARACTERS 00649 M00S00478.redo +++| PL X7,PSB2 IF NOT FULL WORD 00650 M00S00479.redo +++| SA6 B7 00651 M00S00480.redo +++| SB7 B7+B1 00652 M00S00481.redo +++| BX6 X6-X6 CLEAR ASSEMBLY 00653 M00S00482.redo +++| PSB2 BX2 X1 00654 M00S00483.redo +++| SA1 B6 GET NEXT CHARACTER 00655 M00S00484.redo +++| NG X1,PSB4 IF END OF BUFFER REACHED 00656 M00S00485.redo +++| PSB3 LX6 6 00657 M00S00486.redo +++| SB6 B6+B1 00658 M00S00487.redo +++| EQ PSB1 CONTINUE 00659 M00S00488.redo +++| 00660 M00S00489.redo +++| PSB4 SB6 B6-B1 RESET CHARACTER POINTER 00661 M00S00490.redo +++| SA1 =40004000400040004000B 00662 M00S00491.redo +++| SA6 B7 00663 M00S00492.redo +++| BX2 X1*X7 00664 M00S00493.redo +++| NZ X2,PSB5 IF ON BYTE BOUNDRY 00665 M00S00494.redo +++| SX1 1R 00666 M00S00495.redo +++| EQ PSB3 BLANK FILL TO BYTE BOUNDARY 00667 M00S00496.redo +++| 00668 M00S00497.redo +++| PSB5 NG X7,PSBX IF WORD IS FULL, RETURN 00669 M00S00498.redo +++| PSB6 LX7 12 00670 M00S00499.redo +++| LX6 12 00671 M00S00500.redo +++| PL X7,PSB6 IF NOT LEFT JUSTIFIED 00672 M00S00501.redo +++| SA6 B7 00673 M00S00502.redo +++| ZR X6,PSBX IF ASSURE A ZERO WORD, RETURN 00674 M00S00503.redo +++| BX6 X6-X6 00675 M00S00504.redo +++| SA6 A6+B1 00676 M00S00505.redo +++| EQ PSBX RETURN 00677 M00S00506.redo +++| RMC SPACE 4,15 00678 M00S00507.redo +++|** RMC - READ MODIFIED COMMAND. 00679 M00S00508.redo +++|* 00680 M00S00509.redo +++|* ENTRY (A0) = COMMAND LINE TO BE REENTERED. 00681 M00S00510.redo +++|* 00682 M00S00511.redo +++|* EXIT (LINE) = MODIFIED COMMAND. 00683 M00S00512.redo +++|* 00684 M00S00513.redo +++|* USES X - 2. 00685 M00S00514.redo +++|* A - 0, 2. 00686 M00S00515.redo +++|* B - 2, 6, 7. 00687 M00S00516.redo +++|* 00688 M00S00517.redo +++|* CALLS - ACT, MDY, PSB, USB. 00689 M00S00518.redo +++|* 00690 M00S00519.redo +++|* MACROS READ, READS, WRITEC. 00691 M00S00520.redo +++| 00692 M00S00521.redo +++| 00693 M00S00522.redo +++| RMC SUBR ENTRY/EXIT 00694 M00S00523.redo +++| SB6 DSTR 00695 M00S00524.redo +++| SA2 GOFLAG 00696 M00S00525.redo +++| NZ X2,RMC1 IF */GO* SPECIFIED 00697 M00S00526.redo +++| WRITEC O,MLINE *MOD: * 00698 M00S00527.redo +++| READ T 00699 M00S00528.redo +++| READS T,DSTR,80 00700 M00S00529.redo +++| RMC1 MX6 2 00701 M00S00530.redo +++| SA6 B6 SET END OF LINE 00702 M00S00531.redo +++| 00703 M00S00532.redo +++|* UNPACK THE ORIGINAL LINE. 00704 M00S00533.redo +++| 00705 M00S00534.redo +++| SB2 A0 00706 M00S00535.redo +++| SB3 B0 SELECT NORMAL MODE
| Line S00536 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00707 M01S00536.redo5 ---| SB6 81 LENGTH OF UNPACK BUFFER
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00708 M01S00076.redo5 +++| SB6 USBFL LENGTH OF UNPACK BUFFER 00709 M00S00537.redo +++| RJ USB UNPACK TO STRING BUFFER 00710 M00S00538.redo +++| MX6 59 00711 M00S00539.redo +++| SA6 B7+B1 ADD END OF LINE TERMINATOR 00712 M00S00540.redo +++| RJ MDY MODIFY ORIGINAL DATA 00713 M00S00541.redo +++| SB6 USBB 00714 M00S00542.redo +++| RJ ACT ADD COMMAND TERMINATOR
| Line S00543 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00715 M01S00543.redo5 ---| SB6 USBB 00716 M00S00544.redo +++| SB7 LINE 00717 M00S00545.redo +++| RJ PSB PACK STRING BUFFER 00718 M00S00546.redo +++| EQ RMCX RETURN 00719 M00S00547.redo +++| TSL SPACE 4,15 00720 M00S00548.redo +++|** TSL - TRIM SPACES OFF LINE (STRING BUFFER). 00721 M00S00549.redo +++|* 00722 M00S00550.redo +++|* ENTRY (A6) = FWA OF END OF LINE CHARACTER. 00723 M00S00551.redo +++|* (X6) = MASK OF 2. 00724 M00S00552.redo +++|* 00725 M00S00553.redo +++|* EXIT LINE TRIMMED. 00726 M00S00554.redo +++|* (ESTR-1) = NEW LINE LENGTH. 00727 M00S00555.redo +++|* 00728 M00S00556.redo +++|* USES X - 1, 6. 00729 M00S00557.redo +++|* A - 1, 6. 00730 M00S00558.redo +++|* B - 2. 00731 M00S00559.redo +++| 00732 M00S00560.redo +++| 00733 M00S00561.redo +++| TSL SUBR ENTRY/EXIT 00734 M00S00562.redo +++| SB2 A6 00735 M00S00563.redo +++| TSL1 SB2 B2-B1 POSITION BACK TO NEXT CHARACTER 00736 M00S00564.redo +++| LE B2,B6,TSL2 IF AT START OF LINE - 1 00737 M00S00565.redo +++| SA1 B2 00738 M00S00566.redo +++| SX1 X1-1R 00739 M00S00567.redo +++| ZR X1,TSL1 IF CHARACTER WAS A BLANK 00740 M00S00568.redo +++| TSL2 SA6 B2+B1 PUT NEW END CHARACTER 00741 M00S00569.redo +++| SX6 B2-B6 GET NEW LENGTH 00742 M00S00570.redo +++| SA6 B6+ SET NEW LENGTH 00743 M00S00571.redo +++| EQ TSLX RETURN 00744 M00S00572.redo +++| WOC SPACE 4,10 00745 M00S00573.redo +++|** WOC - WRITE OUT COMMAND. 00746 M00S00574.redo +++|* 00747 M00S00575.redo +++|* ENTRY (A0) = COMMAND WITH ZERO BYTE ON END. 00748 M00S00576.redo +++|* (X2) = 6LXXXXXX PREFIX MESSAGE. 00749 M00S00577.redo +++|* 00750 M00S00578.redo +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 00751 M00S00579.redo +++|* A - 1, 3, 6. 00752 M00S00580.redo +++|* B - 6. 00753 M00S00581.redo +++|* 00754 M00S00582.redo +++|* MACROS WRITEC. 00755 M00S00583.redo +++| 00756 M00S00584.redo +++| 00757 M00S00585.redo +++| WOC SUBR ENTRY/EXIT 00758 M00S00586.redo +++| SA1 GOFLAG 00759 M00S00587.redo +++| NZ X1,WOCX IF */GO* SPECIFIED DO N0T DISPLAY 00760 M00S00588.redo +++| SB6 B0 00761 M00S00589.redo +++| SA3 A0 00762 M00S00590.redo +++| MX7 36 00763 M00S00591.redo +++| WOC1 MX4 -12 00764 M00S00592.redo +++| BX5 -X4*X3 EXTRACT END OF LINE INDICATOR 00765 M00S00593.redo +++| LX3 24 00766 M00S00594.redo +++| BX4 -X7*X3 00767 M00S00595.redo +++| BX6 X4+X2 00768 M00S00596.redo +++| SA6 DLINE+B6 00769 M00S00597.redo +++| SB6 B6+B1 00770 M00S00598.redo +++| BX2 X7*X3 00771 M00S00599.redo +++| SA3 A3+B1 NEXT WORD FROM LINE 00772 M00S00600.redo +++| NZ X5,WOC1 IF NOT END OF LINE 00773 M00S00601.redo +++| BX6 X2 00774 M00S00602.redo +++| SA6 DLINE+B6 00775 M00S00603.redo +++| WRITEC O,DLINE OUTPUT COMMAND LINE 00776 M00S00604.redo +++| EQ WOCX RETURN 00777 M00S00605.redo +++| SPACE 4,10 00778 M00S00606.redo +++|* COMMON DECKS. 00779 M00S00607.redo +++| 00780 M00S00608.redo +++|*CALL COMCCIO 00781 M00S00609.redo +++|*CALL COMCRDC 00782 M00S00610.redo +++|*CALL COMCRDS 00783 M00S00611.redo +++|*CALL COMCRDW 00784 M00S00612.redo +++|*CALL COMCSFM 00785 M00S00613.redo +++|*CALL COMCSYS 00786 M00S00614.redo +++| USBL$ EQU 1 SELECT EXTERNAL UNPACK BUFFER 00787 M00S00615.redo +++|*CALL COMCUSB 00788 M00S00616.redo +++|*CALL COMCWTC 00789 M00S00617.redo +++|*CALL COMCWTW 00790 M00S00618.redo +++| SPACE 4,10 00791 M00S00619.redo +++|* BUFFERS. 00792 M00S00620.redo +++| 00793 M00S00621.redo +++| USE BUFFERS FLUSH LITERALS 00794 M00S00622.redo +++| TBUF EQU * TERMINAL INPUT BUFER 00795 M00S00623.redo +++| IBUF EQU TBUF+IBUFL DAYFILE BUFFER 00796 M00S00624.redo +++| OBUF EQU IBUF+BUFL OUTPUT BUFFER 00797 M00S00625.redo +++| CBUF EQU OBUF+OBUFL SAVED TAIL OF DAYFILE 00798 M00S00626.redo +++| TITLE PRESET. 00799 M00S00627.redo +++|** PRS - GET PARAMETER VALUE. 00800 M00S00628.redo +++|* 00801 M00S00629.redo +++|* ENTRY (CCDR)-(CCDR+7) = *REDO* COMMAND. 00802 M00S00630.redo +++|* 00803 M00S00631.redo +++|* EXIT (ARGV) = ARGUMENT VALUE. 00804 M00S00632.redo +++|* (ARGM) = ARGUMENT MASK. 00805 M00S00633.redo +++| 00806 M00S00634.redo +++| 00807 M00S00635.redo +++| PRS SUBR ENTRY/EXIT 00808 M00S00636.redo +++| SB1 1
| Line S00637 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00809 M01S00637.redo4 ---| MX0 42 00810 M01S00638.redo4 ---| SA1 PGNR 00811 M01S00639.redo4 ---| SA2 PRSA 00812 M01S00640.redo4 ---| LX2 -24 00813 M01S00641.redo4 ---| BX3 X2-X1 00814 M01S00642.redo4 ---| BX4 X0*X3 00815 M01S00643.redo4 ---| ZR X4,PRS0 IF CALLED BY NAME
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | redo1 |
M02 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00816 M02S00001.redo4 ---| SA2 PRSB 00817 M02S00002.redo4 ---| BX3 X2-X1 00818 M02S00003.redo4 ---| BX4 X0*X3 00819 M02S00004.redo4 ---| ZR X4,PRS0 IF CALLED BY NAME *R*
| Line S00644 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00820 M01S00644.redo4 ---| SA2 LWPR 00821 M01S00645.redo4 ---| MX0 1 00822 M01S00646.redo4 ---| LX0 1+18 00823 M01S00647.redo4 ---| BX6 -X0*X2 TURN OFF LIBRARY LOAD BIT FOR USER LIBRARY 00824 M01S00648.redo4 ---| SA6 A2 00825 M01S00649.redo4 ---| PRS0 SB2 CCDR AREA TO UNPACK
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00826 M01S00014.redo4 +++| SB2 CCDR AREA TO UNPACK
| Line S00650 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00827 M01S00650.redo5 ---| SB6 81 LENGTH OF UNPACK BUFFER
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00828 M01S00077.redo5 +++| SB6 USBFL LENGTH OF UNPACK BUFFER
| Line S00651 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00829 M01S00651.redo4 ---| SB3 B0 SELECT *NORMAL* CHARACTER SET
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00830 M01S00015.redo4 +++| SB3 0 SELECT *NORMAL* CHARACTER SET 00831 M00S00652.redo +++| RJ USB UNPACK TO STRING BUFFER 00832 M00S00653.redo +++| MX6 59 00833 M00S00654.redo +++| SA6 B7+B1 MARK END OF TEXT 00834 M00S00655.redo +++| SA2 B7+ 00835 M00S00656.redo +++| SX1 X2-1R. 00836 M00S00657.redo +++| NZ X1,PRS1 IF NOT A TERMINATOR 00837 M00S00658.redo +++| SA2 A2-B1 BACK UP ONE 00838 M00S00659.redo +++| PRS1 SA1 A2-B1 00839 M00S00660.redo +++| LX1 6 00840 M00S00661.redo +++| IX2 X1+X2 00841 M00S00662.redo +++| SX2 X2-2RGO 00842 M00S00663.redo +++| NZ X2,PRS2 IF CANNOT BE */GO* 00843 M00S00664.redo +++| SA1 A1-B1 00844 M00S00665.redo +++| SX2 X1-1R/ 00845 M00S00666.redo +++| NZ X2,PRS2 IF NOT */GO* 00846 M00S00667.redo +++| SA6 A1+ CHOP OFF */GO* 00847 M00S00668.redo +++| SA6 GOFLAG MARK *GO* SELECTED 00848 M00S00669.redo +++| PRS2 SB6 USBB 00849 M00S00670.redo +++| BX6 X6-X6 00850 M00S00671.redo +++| MX7 0 00851 M00S00672.redo +++| SB5 B0+ 00852 M00S00673.redo +++| SB3 54 00853 M00S00674.redo +++| SB2 6 00854 M00S00675.redo +++| PRS3 SA1 B6 00855 M00S00676.redo +++| NG X1,PRS8 IF NO PARAMETERS 00856 M00S00677.redo +++| SX2 X1-1R. 00857 M00S00678.redo +++| ZR X2,PRS8 IF NO PARAMETERS 00858 M00S00679.redo +++| SX2 X1-1R, 00859 M00S00680.redo +++| ZR X2,PRS4 IF START OF PARAMETER 00860 M00S00681.redo +++| SX2 X1-1R( 00861 M00S00682.redo +++| ZR X2,PRS4 IF START OF PARAMETER 00862 M00S00683.redo +++| SB6 B6+B1 00863 M00S00684.redo +++| EQ PRS3 CONTINUE 00864 M00S00685.redo +++| 00865 M00S00686.redo +++| PRS4 SB6 B6+B1 00866 M00S00687.redo +++| SA1 B6 00867 M00S00688.redo +++| NG X1,PRS7 IF REAL END OF COMMAND 00868 M00S00689.redo +++| SX2 X1-1R. 00869 M00S00690.redo +++| ZR X2,PRS6 IF POSSIBLE TERMINATOR
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00691.redo +++| PRS5 LX1 X1,B3 00880 M00S00692.redo +++| BX6 X6+X1 COLLECT NEXT CHARACTER OF PARAMETER 00881 M00S00693.redo +++| SB5 B5+B2 00882 M00S00694.redo +++| SB3 B3-B2 DECREMENT SHIFT POSITION BY 6 00883 M00S00695.redo +++| NG B3,PRS7 IF TEN CHARACTERS COLLECTED 00884 M00S00696.redo +++| EQ PRS4 CONTIINUE 00885 M00S00697.redo +++| 00886 M00S00698.redo +++| PRS6 SA3 B6+B1 00887 M00S00699.redo +++| NG X3,PRS7 IF REAL TERMINATOR 00888 M00S00700.redo +++| ZR X3,PRS7 IF REAL TERMINATOR 00889 M00S00701.redo +++| SX3 X3-1R 00890 M00S00702.redo +++| NZ X3,PRS5 IF FOLLOWED BY NON-BLANK, GO ON 00891 M00S00703.redo +++| 00892 M00S00704.redo +++|* GET ARGUMENT AND BUILD ARGUMENT MASK. 00893 M00S00705.redo +++|
| Line S00706 Modification History | |
|---|---|
M01 (Removed by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00894 M01S00706.redo5 ---| PRS7 SB4 B5-B1
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | redo5 |
Seq # *Modification Id* Act ----------------------------+ 00895 M01S00087.redo5 +++| PRS7 SB4 B5-1 00896 M00S00707.redo +++| MX7 1 00897 M00S00708.redo +++| AX7 X7,B4 00898 M00S00709.redo +++| PRS8 SA7 ARGM SET UP ARGUMENT MASK 00899 M00S00710.redo +++| SA6 ARGV SAVE ARGUMENT VALUE 00900 M00S00711.redo +++| SA2 TIOPTR 00901 M00S00712.redo +++| BX6 X2 00902 M00S00713.redo +++| MX7 0 00903 M00S00714.redo +++| SA6 ARGR SET UP RA+2 FILES LIST 00904 M00S00715.redo +++| SA7 A6+1 00905 M00S00716.redo +++| SYSTEM RPV,R,RPVBLK,1 00906 M00S00717.redo +++| 00907 M00S00718.redo +++|* REPLACE *MLINE*, *OLD*, AND *NEW*. 00908 M00S00719.redo +++| 00909 M00S00720.redo +++| SX2 00B 00910 M00S00721.redo +++| SA1 CSMR 00911 M00S00722.redo +++| NG X1,PRS9 IF 64 CHARACTER SET 00912 M00S00723.redo +++| SX2 63B 00913 M00S00724.redo +++| LX2 36 00914 M00S00725.redo +++| PRS9 MX7 -6 00915 M00S00726.redo +++| LX7 36 00916 M00S00727.redo +++| SA1 MLINE CLEAR *MLINE* 00917 M00S00728.redo +++| BX6 X7*X1 00918 M00S00729.redo +++| BX6 X6+X2 00919 M00S00730.redo +++| SA6 A1 00920 M00S00731.redo +++| SA1 REDA CLEAR *OLD* 00921 M00S00732.redo +++| BX6 X7*X1 00922 M00S00733.redo +++| BX6 X6+X2 00923 M00S00734.redo +++| SA6 A1 00924 M00S00735.redo +++| SA1 REDB CEAR *NEW* 00925 M00S00736.redo +++| BX6 X7*X1 00926 M00S00737.redo +++| BX6 X6+X2 00927 M00S00738.redo +++| SA6 A1
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00739.redo +++| EQ PRSX RETURN
| Line S00740 Modification History | |
|---|---|
M01 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00936 M01S00740.redo4 ---| 00937 M01S00741.redo4 ---| PRSA CON 4RREDO
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | redo1 |
M02 (Removed by) | redo4 |
Seq # *Modification Id* Act ----------------------------+ 00938 M02S00005.redo4 ---| PRSB CON 1LR 00939 M00S00742.redo +++| SPACE 4,10 00940 M00S00743.redo +++| LWA EQU * 00941 M00S00744.redo +++| ARG= EQU * DEFINE ARG= ENTRY POINT 00942 M00S00745.redo +++| SDM= EQU * 00943 M00S00746.redo +++| RFL= EQU CBUF+BUFL 00944 M00S00747.redo +++| ERRNG RFL=-LWA PRESET EXCEEDS BUFFERS 00945 M00S00748.redo +++| SPACE 4,10 00946 M00S00749.redo +++| END
cdc/nos2.source/opl.opl871/deck/redo.txt · Last modified: by 127.0.0.1