cdc:nos2.source:opl.opl871:deck:reseq
Deck RESEQ
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.reseq +++| IDENT RESEQ,FWA,RESEQ 00002 M00S00002.reseq +++| ABS 00003 M00S00003.reseq +++| SST 00004 M00S00004.reseq +++| SYSCOM B1 00005 M00S00005.reseq +++| ENTRY RESEQ 00006 M00S00006.reseq +++| ENTRY RFL= 00007 M00S00007.reseq +++| SPACE 4 00008 M00S00008.reseq +++|*COMMENT RESEQ - TIME SHARING RESEQUENCE ROUTINE.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00010.reseq +++| TITLE RESEQ - TIME SHARING RESEQUENCE ROUTINE. 00012 M00S00011.reseq +++| SPACE 4 00013 M00S00012.reseq +++|*** RESEQ - TIME SHARING RESEQUENCE ROUTINE. 00014 M00S00013.reseq +++|* 00015 M00S00014.reseq +++|* D.A. HIVELEY 71/02/14. 00016 M00S00015.reseq +++| SPACE 4 00017 M00S00016.reseq +++|*** RESEQ IS USED TO RESEQUENCE SOURCE FILES WHICH HAVE LEADING 00018 M00S00017.reseq +++|* SEQUENCE NUMBERS OR TO ADD SEQUENCE NUMBERS TO AN 00019 M00S00018.reseq +++|* UNSEQUENCED FILE. THIS MAINLY INCLUDES FORTRAN AND BASIC
| Line S00019 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00019.v23l617 ---|* SOURCE CODE. THE FORMAT OF THE SOURCE STATEMENT IS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00001.v23l617 +++|* SOURCE CODE. THE FORMAT OF EACH INDIVIDUAL SOURCE LINE 00022 M00S00020.reseq +++|* MAINTAINED. FOR BASIC PROGRAMS AN INTERNAL CHANGE OF LINE 00023 M00S00021.reseq +++|* NUMBERS MUST BE MADE. FOR NON-BASIC PROGRAMS, ALL 00024 M00S00022.reseq +++|* SUBROUTINES REQUIRED BY BASIC ONLY ARE OVERLAYED WITH 00025 M00S00023.reseq +++|* BUFFERS. IF THE FILE TYPE IS DECLARED *T*, THEN THE FILE 00026 M00S00024.reseq +++|* DATA IS NOT INSPECTED AT ALL. FIVE DIGIT SEQUENCE NUMBERS 00027 M00S00025.reseq +++|* PLUS A BLANK ARE MERELY ADDED TO THE BEGINNING OF EACH LINE. 00028 M00S00026.reseq +++|* DIRECT ACCESS FILES MAY BE RESEQUENCED. 00029 M00S00027.reseq +++| 00030 M00S00028.reseq +++|
| Line S00029 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00031 M01S00029.v23l617 ---|*** CONTROL CARD CALL.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00032 M01S00002.v23l617 +++|*** THE FORMAT COMMAND. 00033 M00S00030.reseq +++|* 00034 M00S00031.reseq +++|* RESEQ(PFILE,TYPE,SLINO,INCR) 00035 M00S00032.reseq +++|* 00036 M00S00033.reseq +++|* PFILE = PRIMARY FILE NAME. 00037 M00S00034.reseq +++|* TYPE = B - BASIC. 00038 M00S00035.reseq +++|* = F - FORTRAN. 00039 M00S00036.reseq +++|* = T - TEXT. 00040 M00S00037.reseq +++|* = OTHER. 00041 M00S00038.reseq +++|* SLINO = STARTING LINE NUMBER. 00042 M00S00039.reseq +++|* INCR = INCREMENT. 00043 M00S00040.reseq +++| 00044 M00S00041.reseq +++| 00045 M00S00042.reseq +++|*** DAYFILE MESSAGES. 00046 M00S00043.reseq +++|* 00047 M00S00044.reseq +++|* *LINE NUMBER LIMIT EXCEEDED* - IF LINE NUMBER ENCOUNTERED 00048 M00S00045.reseq +++|* OR REQUIRED GREATER THAN 99999.
| Line S00046 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00049 M01S00046.v23l617 ---|* *RESEQ CONTROL CARD ERROR.* - NO PARAMETERS OR SPECIAL 00050 M01S00047.v23l617 ---|* CHARACTER USED AS A PARAMETER ON THE CONTROL CARD.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00051 M01S00003.v23l617 +++|* *RESEQ COMMAND ERROR.* - NO PARAMETERS WERE GIVEN OR A SPECIAL 00052 M01S00004.v23l617 +++|* CHARACTER WAS USED AS A PARAMETER ON THE COMMAND. 00053 M00S00048.reseq +++|* * RESEQ ERRORS.* - IF UNABLE TO FIND LINE NUMBERS, 00054 M00S00049.reseq +++|* ALL ERRORS WRITTEN TO FILE OUTPUT. 00055 M00S00050.reseq +++|* *RESEQ NUMERIC PARAM ERROR.* - ROUTINE *CVD* TRIED TO
| Line S00051 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00056 M01S00051.v23l617 ---|* CONVERT A NON-NUMERIC PARAMETER. CHECK THE CONTROL CARD. 00057 M01S00052.v23l617 ---|* * ILLEGAL WRITE ON READ ONLY FILE.* (CIO ERROR 03) = DIRECT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00058 M01S00005.v23l617 +++|* CONVERT A NON-NUMERIC PARAMETER. 00059 M01S00006.v23l617 +++|* * INCORRECT WRITE ON READ ONLY FILE.* (CIO ERROR 03) = DIRECT 00060 M00S00053.reseq +++|* ACCESS INPUT FILE WAS NOT ATTACHED IN WRITE MODE. 00061 M00S00054.reseq +++| 00062 M00S00055.reseq +++| 00063 M00S00056.reseq +++|*CALL COMCMAC 00064 M00S00057.reseq +++| TITLE WORKING STORAGE AND ASSEMBLY CONSTANTS. 00065 M00S00058.reseq +++| ORG 111B 00066 M00S00059.reseq +++| FWA BSS 0 00067 M00S00060.reseq +++| SPACE 4 00068 M00S00061.reseq +++|**** ASSEMBLY CONSTANTS. 00069 M00S00062.reseq +++| 00070 M00S00063.reseq +++| 00071 M00S00064.reseq +++| FETL EQU 10 FET LENGTH 00072 M00S00065.reseq +++| LIMIT EQU 99999 LINE NUMBER LIMIT FOR RESEQUENCE 00073 M00S00066.reseq +++| MNCL EQU 160 MAXIMUM NUMBER OF CHARACTERS IN A LINE 00074 M00S00067.reseq +++| MWBL EQU MNCL/5 MAXIMUM NUMBER OF WORDS IN A LINE 00075 M00S00068.reseq +++| NUMD EQU 5 MAXIMUM NUMBER OF DIGITS IN A LINE NUMBER 00076 M00S00069.reseq +++| OBUFL EQU 101B OUTPUT BUFFER LENGTH 00077 M00S00070.reseq +++| USBA$ SET 1 ENABLES UNPACKING OF 6/12 CHARACTERS 00078 M00S00071.reseq +++| USBL$ SET 1 SPECIFIES STRING BUFFER IN USER PROGRAM 00079 M00S00072.reseq +++| SPACE 4 00080 M00S00073.reseq +++|** WORKING STORAGE. 00081 M00S00074.reseq +++| 00082 M00S00075.reseq +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00083 M01S00001.reseq2 +++| CSET CON 0 CHARACTER SET (0 = NORMAL, 1 = 6/12 ASCII) 00084 M00S00076.reseq +++| DAF CON 0 FILE TYPE (0 = DIRECT ACCESS) 00085 M00S00077.reseq +++| FLDL CON 0 FIELD LENGTH 00086 M00S00078.reseq +++| INCR CON 10 DEFAULT LINE NUMBER INCREMENT 00087 M00S00079.reseq +++| LNTE CON 0 LWA+1 OF LINE NUMBER TABLE 00088 M00S00080.reseq +++| LNTS CON 0 FWA OF LINE NUMBER TABLE 00089 M00S00081.reseq +++| LNUM CON 100 DEFAULT INITIAL LINE NUMBER 00090 M00S00082.reseq +++| SYST CON 2 FILE TYPE (-1 = FORTRAN) 00091 M00S00083.reseq +++| ( 0 = BASIC ) 00092 M00S00084.reseq +++| ( 1 = TEXT ) 00093 M00S00085.reseq +++| ( 2 = OTHER ) 00094 M00S00086.reseq +++| SPACE 4 00095 M00S00087.reseq +++|** FET DEFINITIONS. 00096 M00S00088.reseq +++| 00097 M00S00089.reseq +++| 00098 M00S00090.reseq +++| O BSS 0 00099 M00S00091.reseq +++| OUTPUT FILEB OBUF,OBUFL,EPR,FET=FETL OUTPUT FET 00100 M00S00092.reseq +++| SCR FILEB 2,1,FET=FETL SCRATCH FILE FET 00101 M00S00093.reseq +++| SCR1 FILEB 2,1,FET=FETL SCRATCH FILE FET 00102 M00S00094.reseq +++| INP FILEB 2,1,FET=FETL INPUT FILE FET 00103 M00S00095.reseq +++| TITLE SUBROUTINES 00104 M00S00096.reseq +++|** RES - RESEQUENCE. 00105 M00S00097.reseq +++|* 00106 M00S00098.reseq +++|* USES X - ALL. 00107 M00S00099.reseq +++|* A - ALL. 00108 M00S00100.reseq +++|* B - 2, 3, 4, 5, 6. 00109 M00S00101.reseq +++|* 00110 M00S00102.reseq +++|* CALLS ADL, CDD, CVD, PLB, PRE, RBF, STF, USB. 00111 M00S00103.reseq +++|* 00112 M00S00104.reseq +++|* MACROS ABORT, ENDRUN, MEMORY, MESSAGE, READC, READEI, READO, 00113 M00S00105.reseq +++|* READW, RENAME, RETURN, REWIND, WRITEC, WRITER, WRITEW. 00114 M00S00106.reseq +++| 00115 M00S00107.reseq +++| 00116 M00S00108.reseq +++| RESEQ BSS 0 ENTRY 00117 M00S00109.reseq +++| RJ PRE PRESET 00118 M00S00110.reseq +++| REWIND INP 00119 M00S00111.reseq +++| READEI X2 00120 M00S00112.reseq +++| RES1 SX6 B0+ 00121 M00S00113.reseq +++| SA6 RESA CLEAR TRUNCATED LINE FLAG 00122 M00S00114.reseq +++| READC INP,WBUF,MWBL+1 00123 M00S00115.reseq +++| NZ X1,RES16 IF EOI REACHED 00124 M00S00116.reseq +++| BX6 X4 00125 M00S00117.reseq +++| MX0 -12 00126 M00S00118.reseq +++| RES2 BX6 -X0*X6 00127 M00S00119.reseq +++| ZR X6,RES3 IF EOL ENCOUNTERED 00128 M00S00120.reseq +++| READO X2 00129 M00S00121.reseq +++| EQ RES2 CHECK FOR EOL 00130 M00S00122.reseq +++| 00131 M00S00123.reseq +++| RES3 SB2 WBUF UNPACK LINE INTO STRING BUFFER 00132 M00S00124.reseq +++| SB6 MNCL+1
| Line S00125 Modification History | |
|---|---|
M01 (Removed by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00125.reseq2 ---| SB3 B1+ EXTENDED CHARACTER SET
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00002.reseq2 +++| SA1 CSET GET CHARACTER SET 00135 M01S00003.reseq2 +++| SB3 X1+ 00136 M00S00126.reseq +++| RJ USB 00137 M00S00127.reseq +++| SA2 SYST 00138 M00S00128.reseq +++| SB6 SBUF 00139 M00S00129.reseq +++| SB5 NUMD 00140 M00S00130.reseq +++| SX2 X2-1 00141 M00S00131.reseq +++| ZR X2,RES6 IF TEXT 00142 M00S00132.reseq +++| SX2 B0+ 00143 M00S00133.reseq +++| SB4 60 00144 M00S00134.reseq +++| RES4 SA3 B6 00145 M00S00135.reseq +++| GT B6,B7,RES5 IF END OF LINE 00146 M00S00136.reseq +++| SX4 X3-1R0 00147 M00S00137.reseq +++| SX5 X3-1R+ 00148 M00S00138.reseq +++| NG X4,RES5 IF LETTER 00149 M00S00139.reseq +++| PL X5,RES5 IF SPECIAL CHARACTER 00150 M00S00140.reseq +++| SB5 B5-B1 00151 M00S00141.reseq +++| LX2 6 00152 M00S00142.reseq +++| SB4 B4-6 00153 M00S00143.reseq +++| IX2 X2+X3 00154 M00S00144.reseq +++| SB6 B6+B1 00155 M00S00145.reseq +++| NZ B5,RES4 IF NOT *NUMD* DIGITS 00156 M00S00146.reseq +++| RES5 LX6 X2,B4 00157 M00S00147.reseq +++| SA6 RESB OLD LINE NUMBER 00158 M00S00148.reseq +++| SX6 B5-NUMD 00159 M00S00149.reseq +++| NZ X6,RES7 IF LINE NUMBER PRESENT 00160 M00S00150.reseq +++| SA4 SYST 00161 M00S00151.reseq +++| SX4 X4+1 00162 M00S00152.reseq +++| ZR X4,RES7 IF FORTRAN 00163 M00S00153.reseq +++| RES6 SB6 B6-B1 00164 M00S00154.reseq +++| SX6 1R 00165 M00S00155.reseq +++| SA6 B6 INSERT BLANK 00166 M00S00156.reseq +++| RES7 SA1 LNUM 00167 M00S00157.reseq +++| RJ CDD CONVERT LINE NUMBER TO DISPLAY CODE 00168 M00S00158.reseq +++| BX2 X6 00169 M00S00159.reseq +++| RJ ADL GO ADD NEW LINE NUMBER TO LINE 00170 M00S00160.reseq +++| SB4 B7-B6 00171 M00S00161.reseq +++| SB4 B4+B1 00172 M00S00162.reseq +++| SB3 MNCL 00173 M00S00163.reseq +++| LE B4,B3,RES8 IF NO TRUNCATION 00174 M00S00164.reseq +++| SB4 B3 00175 M00S00165.reseq +++| SX7 B1 00176 M00S00166.reseq +++| SA7 RESA 00177 M00S00167.reseq +++| RES8 SA1 WBUF PACK LINE INTO WORKING BUFFER 00178 M00S00168.reseq +++| SA2 B6+ 00179 M00S00169.reseq +++| RJ PLB 00180 M00S00170.reseq +++| SA2 INCR 00181 M00S00171.reseq +++| SX3 LIMIT 00182 M00S00172.reseq +++| SA1 LNUM 00183 M00S00173.reseq +++| IX6 X1+X2 00184 M00S00174.reseq +++| IX3 X3-X1 00185 M00S00175.reseq +++| NG X3,RES12 IF LIMIT EXCEEDED 00186 M00S00176.reseq +++| SA6 LNUM 00187 M00S00177.reseq +++| SA2 SYST 00188 M00S00178.reseq +++| NZ X2,RES9 IF NOT BASIC 00189 M00S00179.reseq +++| SA2 RESB 00190 M00S00180.reseq +++| RJ CVD 00191 M00S00181.reseq +++| NG X6,RES23 IF CONVERSION ERROR 00192 M00S00182.reseq +++| LX6 24-0 SET UP *LNT* ENTRY 00193 M00S00183.reseq +++| LX1 42-0 00194 M00S00184.reseq +++| BX6 X1+X6 MERGE OLD NUMBER WITH NEW NUMBER 00195 M00S00185.reseq +++| SA3 LNTE 00196 M00S00186.reseq +++| SX7 X3+B1 00197 M00S00187.reseq +++| SA5 FLDL 00198 M00S00188.reseq +++| SA6 X3+ 00199 M00S00189.reseq +++| SA7 A3 00200 M00S00190.reseq +++| IX7 X5-X7 00201 M00S00191.reseq +++| PL X7,RES9 IF NO TABLE OVERFLOW 00202 M00S00192.reseq +++| SX7 X5+2000B 00203 M00S00193.reseq +++| SA7 A5+ 00204 M00S00194.reseq +++| MEMORY CM,,R,X7 00205 M00S00195.reseq +++| RES9 WRITEC SCR1,WBUF 00206 M00S00196.reseq +++| SA1 RESA 00207 M00S00197.reseq +++| ZR X1,RES1 IF LINE WAS NOT TRUNCATED 00208 M00S00198.reseq +++| RJ ITM ISSUE TRUNCATION MESSAGE 00209 M00S00199.reseq +++| EQ RES1 PROCESS NEXT LINE 00210 M00S00200.reseq +++| 00211 M00S00201.reseq +++| RES12 SX2 O SET ADDRESS OF FET 00212 M00S00202.reseq +++| RJ STF CHECK IF OUTPUT ASSIGNED TO TERMINAL 00213 M00S00203.reseq +++| NZ X6,RES13 IF NOT TELEX ORIGIN 00214 M00S00204.reseq +++| WRITEC O,(=C*LINE NUMBER LIMIT EXCEEDED.*) 00215 M00S00205.reseq +++| EQ RES23 SKIP ISSUING THE DAYFILE MESSAGE 00216 M00S00206.reseq +++| 00217 M00S00207.reseq +++| RES13 MESSAGE (=C*LINE NUMBER LIMIT EXCEEDED.*) 00218 M00S00208.reseq +++| EQ RES23 COMPLETE ERROR TERMINATION 00219 M00S00209.reseq +++| 00220 M00S00210.reseq +++| RES16 REWIND INP,R 00221 M00S00211.reseq +++| SA1 SYST 00222 M00S00212.reseq +++| NZ X1,RES17 IF NOT BASIC 00223 M00S00213.reseq +++| RJ RBF RESEQUENCE BASIC FILE 00224 M00S00214.reseq +++| RETURN SCR1 00225 M00S00215.reseq +++| SA1 SCR 00226 M00S00216.reseq +++| EQ RES18 FINISH FILE PROCESSING 00227 M00S00217.reseq +++| 00228 M00S00218.reseq +++| RES17 SA1 SCR1 00229 M00S00219.reseq +++| RES18 SA0 A1 00230 M00S00220.reseq +++| SX0 77B 00231 M00S00221.reseq +++| BX2 X0*X1 00232 M00S00222.reseq +++| SX2 X2-3 00233 M00S00223.reseq +++| NZ X2,RES19 IF FILE USED 00234 M00S00224.reseq +++| SA2 ARGR 00235 M00S00225.reseq +++| SX3 B1 00236 M00S00226.reseq +++| MX0 42 MASK OFF NAME 00237 M00S00227.reseq +++| BX2 X0*X2 00238 M00S00228.reseq +++| IX6 X2+X3 00239 M00S00229.reseq +++| SA6 A1 00240 M00S00230.reseq +++| WRITER A0,R 00241 M00S00231.reseq +++| EQ RES22 COMPLETE NORMAL TERMINATION 00242 M00S00232.reseq +++| 00243 M00S00233.reseq +++| RES19 WRITER A0 00244 M00S00234.reseq +++| REWIND X2,R 00245 M00S00235.reseq +++| SA3 DAF 00246 M00S00236.reseq +++| ZR X3,RES20 IF DIRECT ACCESS INPUT FILE 00247 M00S00237.reseq +++| RENAME A0,ARGR 00248 M00S00238.reseq +++| EQ RES22 COMPLETE NORMAL TERMINATION 00249 M00S00239.reseq +++| 00250 M00S00240.reseq +++| RES20 READEI X2 00251 M00S00241.reseq +++| RES21 READW A0,SBUF,MNCL 00252 M00S00242.reseq +++| BX0 X1 00253 M00S00243.reseq +++| SX4 B6-SBUF 00254 M00S00244.reseq +++| WRITEW INP,SBUF,X4 00255 M00S00245.reseq +++| PL X0,RES21 IF NOT EOF, COMPLETE COPY 00256 M00S00246.reseq +++| WRITER X2 00257 M00S00247.reseq +++| REWIND X2,R 00258 M00S00248.reseq +++| RES22 WRITER O NORMAL TERMINATION 00259 M00S00249.reseq +++| ENDRUN 00260 M00S00250.reseq +++| 00261 M00S00251.reseq +++| RES23 REWIND INP 00262 M00S00252.reseq +++| RETURN SCR 00263 M00S00253.reseq +++| RETURN SCR1 00264 M00S00254.reseq +++| MESSAGE (=C* RESEQ ERRORS.*) 00265 M00S00255.reseq +++| WRITER O 00266 M00S00256.reseq +++| ABORT ERROR TERMINATION 00267 M00S00257.reseq +++| 00268 M00S00258.reseq +++| RESA CON 0 TRUNCATED LINE FLAG 00269 M00S00259.reseq +++| RESB CON 0 OLD LINE NUMBER 00270 M00S00260.reseq +++| ADL SPACE 4,15 00271 M00S00261.reseq +++|** ADL - ADD LINE NUMBER 00272 M00S00262.reseq +++|* 00273 M00S00263.reseq +++|* ENTRY (B6) = STRING BUFFER ADDRESS+1 OF START OF STATEMENT. 00274 M00S00264.reseq +++|* (X2) = LINE NO. RIGHT JUSTIFIED WITH LEADING BLANKS. 00275 M00S00265.reseq +++|* 00276 M00S00266.reseq +++|* EXIT NUMBER STORED IN STRING BUFFER. 00277 M00S00267.reseq +++|* (B6) = STRING BUFFER ADDRESS OF LAST DIGIT STORED. 00278 M00S00268.reseq +++|* 00279 M00S00269.reseq +++|* USES X - 0, 2, 5, 6, 7. 00280 M00S00270.reseq +++|* A - 6, 7. 00281 M00S00271.reseq +++|* B - 5, 6. 00282 M00S00272.reseq +++| 00283 M00S00273.reseq +++| 00284 M00S00274.reseq +++| 00285 M00S00275.reseq +++| ADL SUBR ENTRY/EXIT 00286 M00S00276.reseq +++| SB5 NUMD 00287 M00S00277.reseq +++| SX7 1R0 00288 M00S00278.reseq +++| SX0 77B 00289 M00S00279.reseq +++| ADL1 BX6 X0*X2 00290 M00S00280.reseq +++| SX5 X6-1R 00291 M00S00281.reseq +++| ZR X5,ADL2 IF SPACE 00292 M00S00282.reseq +++| SB6 B6-B1 00293 M00S00283.reseq +++| SA6 B6 00294 M00S00284.reseq +++| SB5 B5-B1 00295 M00S00285.reseq +++| ZR B5,ADLX IF *NUMD* DIGITS 00296 M00S00286.reseq +++| AX2 6 00297 M00S00287.reseq +++| EQ ADL1 ADD NEXT DIGIT 00298 M00S00288.reseq +++| 00299 M00S00289.reseq +++| ADL2 SB6 B6-B1 00300 M00S00290.reseq +++| SA7 B6 00301 M00S00291.reseq +++| SB5 B5-B1 00302 M00S00292.reseq +++| NZ B5,ADL2 IF NOT *NUMD* DIGITS 00303 M00S00293.reseq +++| EQ ADLX RETURN 00304 M00S00294.reseq +++| CVD SPACE 4,15 00305 M00S00295.reseq +++|** CVD - CONVERT DISPLAY CODE NUMBER TO OCTAL. 00306 M00S00296.reseq +++|* 00307 M00S00297.reseq +++|* ENTRY (X2) = LEFT JUSTIFIED NUMBER WITH TRAILING ZEROES. 00308 M00S00298.reseq +++|* 00309 M00S00299.reseq +++|* EXIT (X6) = RIGHT JUSTIFIED NUMBER (IN OCTAL). 00310 M00S00300.reseq +++|* (X6) = NEG., ERROR IN PARAMETER. 00311 M00S00301.reseq +++|* 00312 M00S00302.reseq +++|* USES X - 0, 2, 4, 6, 7. 00313 M00S00303.reseq +++|* 00314 M00S00304.reseq +++|* MACROS MESSAGE. 00315 M00S00305.reseq +++| 00316 M00S00306.reseq +++| 00317 M00S00307.reseq +++| CVD SUBR ENTRY/EXIT 00318 M00S00308.reseq +++| SX6 B0+ 00319 M00S00309.reseq +++| MX0 -6 00320 M00S00310.reseq +++| CVD1 LX2 6 00321 M00S00311.reseq +++| BX4 -X0*X2 00322 M00S00312.reseq +++| ZR X4,CVDX IF END OF NUMBER 00323 M00S00313.reseq +++| SX7 X4-1R+ 00324 M00S00314.reseq +++| SX4 X4-1R0 00325 M00S00315.reseq +++| NG X4,CVD2 IF ALPHA 00326 M00S00316.reseq +++| PL X7,CVD2 IF SPECIAL CHARACTER 00327 M00S00317.reseq +++| LX7 X6,B1 00328 M00S00318.reseq +++| LX6 3 00329 M00S00319.reseq +++| IX6 X6+X7 00330 M00S00320.reseq +++| IX6 X6+X4 00331 M00S00321.reseq +++| EQ CVD1 CHECK NEXT CHARACTER 00332 M00S00322.reseq +++| 00333 M00S00323.reseq +++| CVD2 MESSAGE (=C*RESEQ NUMERIC PARAM ERROR.*) 00334 M00S00324.reseq +++| SX6 -B1 00335 M00S00325.reseq +++| EQ CVDX RETURN 00336 M00S00326.reseq +++| ITM SPACE 4,15 00337 M00S00327.reseq +++|** ITM - ISSUE TRUNCATION MESSAGE. 00338 M00S00328.reseq +++|* 00339 M00S00329.reseq +++|* ENTRY (WBUF) = LINE NUMBER IN PACKED FORM. 00340 M00S00330.reseq +++|* 00341 M00S00331.reseq +++|* EXIT MESSAGE WRITTEN TO *OUTPUT*. 00342 M00S00332.reseq +++|* 00343 M00S00333.reseq +++|* USES X - 1, 2. 00344 M00S00334.reseq +++|* A - 1. 00345 M00S00335.reseq +++|* B - 2, 3, 5. 00346 M00S00336.reseq +++|* 00347 M00S00337.reseq +++|* CALLS SNM. 00348 M00S00338.reseq +++|* 00349 M00S00339.reseq +++|* MACROS WRITEC. 00350 M00S00340.reseq +++| 00351 M00S00341.reseq +++| 00352 M00S00342.reseq +++| ITM SUBR ENTRY/EXIT 00353 M00S00343.reseq +++| SA1 WBUF 00354 M00S00344.reseq +++| MX2 6*NUMD 00355 M00S00345.reseq +++| BX1 X1*X2 MASK OUT LINE NUMBER 00356 M00S00346.reseq +++| SB2 1R0 00357 M00S00347.reseq +++| SB3 WBUF 00358 M00S00348.reseq +++| SB5 -ITMA 00359 M00S00349.reseq +++| RJ SNM SET NAME IN MESSAGE 00360 M00S00350.reseq +++| WRITEC O,WBUF 00361 M00S00351.reseq +++| EQ ITMX RETURN 00362 M00S00352.reseq +++| 00363 M00S00353.reseq +++| ITMA DATA C* LINE 00000 TRUNCATED.* 00364 M00S00354.reseq +++| PLB SPACE 4,15 00365 M00S00355.reseq +++|** PLB - PACK LINE INTO A BUFFER. 00366 M00S00356.reseq +++|* 00367 M00S00357.reseq +++|* ENTRY (A1) = ADDRESS OF WORD TO START PACKING IN. 00368 M00S00358.reseq +++|* (A2) = ADDRESS OF STRING BUFFER TO PACK. 00369 M00S00359.reseq +++|* (B4) = LENGTH OF STRING TO PACK. 00370 M00S00360.reseq +++|* 00371 M00S00361.reseq +++|* EXIT LINE PACKED INTO BUFFER. 00372 M00S00362.reseq +++|* 00373 M00S00363.reseq +++|* USES X - 2, 4, 5, 7. 00374 M00S00364.reseq +++|* A - 2, 7. 00375 M00S00365.reseq +++|* B - 2, 4, 5, 7. 00376 M00S00366.reseq +++| 00377 M00S00367.reseq +++| 00378 M00S00368.reseq +++| PLB3 LX7 B2 LEFT ADJUST FINAL PACKED WORD 00379 M00S00369.reseq +++| SA7 A1+B7 STORE PACKED WORD 00380 M00S00370.reseq +++| SB5 12 00381 M00S00371.reseq +++| GE B2,B5,PLBX IF EOL GUARANTEED IN LAST WORD 00382 M00S00372.reseq +++| BX7 X7-X7 00383 M00S00373.reseq +++| SA7 A7+B1 00384 M00S00374.reseq +++| 00385 M00S00375.reseq +++| PLB SUBR ENTRY/EXIT 00386 M00S00376.reseq +++| MX4 54 00387 M00S00377.reseq +++| SB2 60 00388 M00S00378.reseq +++| SB7 B0 00389 M00S00379.reseq +++| SA2 A2-1 00390 M00S00380.reseq +++| SX7 B0+ 00391 M00S00381.reseq +++| PLB1 ZR B4,PLB3 IF ALL CHARACTERS HAVE BEEN PACKED 00392 M00S00382.reseq +++| SA2 A2+B1 GET NEXT CHARACTER 00393 M00S00383.reseq +++| BX5 X4*X2 00394 M00S00384.reseq +++| ZR X5,PLB2 IF NOT A TWELVE BIT CHARACTER 00395 M00S00385.reseq +++| AX5 6 00396 M00S00386.reseq +++| LX7 6 00397 M00S00387.reseq +++| BX7 X7+X5 PACK ESCAPE PARAT OF CHARACTER 00398 M00S00388.reseq +++| SB2 B2-6 00399 M00S00389.reseq +++| BX2 -X4*X2 GET BOTTOM SIX BITS OF CHARACTER 00400 M00S00390.reseq +++| GT B2,PLB2 IF ROOM LEFT FOR CHARACTER 00401 M00S00391.reseq +++| SA7 A1+B7 00402 M00S00392.reseq +++| SB7 B7+B1 00403 M00S00393.reseq +++| SX7 B0+ 00404 M00S00394.reseq +++| SB2 60 00405 M00S00395.reseq +++| PLB2 LX7 6 00406 M00S00396.reseq +++| BX7 X7+X2 ADD NEW CHARACTER 00407 M00S00397.reseq +++| SB2 B2-6 00408 M00S00398.reseq +++| SB4 B4-B1 00409 M00S00399.reseq +++| GT B2,PLB1 IF ROOM LEFT FOR MORE CHARACTERS 00410 M00S00400.reseq +++| SA7 A1+B7 STORE PACKED WORD 00411 M00S00401.reseq +++| SB7 B7+B1 00412 M00S00402.reseq +++| SX7 B0 00413 M00S00403.reseq +++| SB2 60 00414 M00S00404.reseq +++| EQ PLB1 PROCESS NEXT CHARACTER 00415 M00S00405.reseq +++| TITLE COMMON DECKS, LITERALS AND BUFFERS 00416 M00S00406.reseq +++|** COMMON DECKS. 00417 M00S00407.reseq +++| 00418 M00S00408.reseq +++| 00419 M00S00409.reseq +++| LIST X 00420 M00S00410.reseq +++|*CALL COMCBLP 00421 M00S00411.reseq +++| LIST -X 00422 M00S00412.reseq +++|*CALL COMCCDD 00423 M00S00413.reseq +++|*CALL COMCCIO 00424 M00S00414.reseq +++|*CALL COMCDXB 00425 M00S00415.reseq +++|*CALL COMCLFM 00426 M00S00416.reseq +++|*CALL COMCRDC 00427 M00S00417.reseq +++|*CALL COMCRDO 00428 M00S00418.reseq +++|*CALL COMCRDW 00429 M00S00419.reseq +++|*CALL COMCSNM 00430 M00S00420.reseq +++|*CALL COMCSTF 00431 M00S00421.reseq +++|*CALL COMCSYS 00432 M00S00422.reseq +++|*CALL COMCUSB 00433 M00S00423.reseq +++|*CALL COMCWTC 00434 M00S00424.reseq +++|*CALL COMCWTW 00435 M00S00425.reseq +++| BUFFERS SPACE 4,10 00436 M00S00426.reseq +++|** BUFFERS. 00437 M00S00427.reseq +++| 00438 M00S00428.reseq +++| 00439 M00S00429.reseq +++| OBUF BSS OBUFL+1 00440 M00S00430.reseq +++| NBUF BSS NUMD+1 LINE NUMBER BUFFER 00441 M00S00431.reseq +++| USBB BSS 0 00442 M00S00432.reseq +++| SBUF BSS MNCL+1 STRING BUFFER 00443 M00S00433.reseq +++| WBUF BSS MWBL+1 WORKING BUFFER 00444 M00S00434.reseq +++| SPACE 4 00445 M00S00435.reseq +++| USE LITERALS 00446 M00S00436.reseq +++| SPACE 4 00447 M00S00437.reseq +++|** IF THE FILE TYPE IS NOT BASIC, ALL ROUTINES FROM 00448 M00S00438.reseq +++|* THIS POINT ON ARE OVERLAYED WITH BUFFERS. 00449 M00S00439.reseq +++| 00450 M00S00440.reseq +++| 00451 M00S00441.reseq +++| BUFF BSS 0 00452 M00S00442.reseq +++| TITLE BASIC INTERNAL LINE NUMBER RESEQUENCE ROUTINES 00453 M00S00443.reseq +++| 00454 M00S00444.reseq +++| RBF SPACE 4,10 00455 M00S00445.reseq +++|** RBF - RESEQUENCE BASIC FILE. 00456 M00S00446.reseq +++|* 00457 M00S00447.reseq +++|* EXIT RESEQUENCED FILE RESIDING ON *SCR*. 00458 M00S00448.reseq +++|* 00459 M00S00449.reseq +++|* USES X - ALL. 00460 M00S00450.reseq +++|* A - 1, 2, 6, 7. 00461 M00S00451.reseq +++|* B - 2, 3, 4, 6, 7. 00462 M00S00452.reseq +++|* 00463 M00S00453.reseq +++|* CALLS BLP, PLB, USB. 00464 M00S00454.reseq +++|* 00465 M00S00455.reseq +++|* MACROS READC, READEI, READO, RETURN, REWIND, WRITEC, WRITER. 00466 M00S00456.reseq +++| 00467 M00S00457.reseq +++| 00468 M00S00458.reseq +++| RBF SUBR ENTRY/EXIT 00469 M00S00459.reseq +++| SA2 SCR1 00470 M00S00460.reseq +++| MX1 -18 00471 M00S00461.reseq +++| BX3 -X1*X2 00472 M00S00462.reseq +++| SX3 X3-3 00473 M00S00463.reseq +++| NZ X3,RBF1 IF FILE *SCR1* WAS USED 00474 M00S00464.reseq +++| SX4 1033B 00475 M00S00465.reseq +++| BX2 X1*X2 00476 M00S00466.reseq +++| IX6 X2+X4 00477 M00S00467.reseq +++| SA6 A2+ SET FILE NAME AND STATUS 00478 M00S00468.reseq +++| EQ RBF2 INITIALIZE FET FOR FILE *SCR* 00479 M00S00469.reseq +++| 00480 M00S00470.reseq +++| RBF1 WRITER SCR1 00481 M00S00471.reseq +++| REWIND X2 00482 M00S00472.reseq +++| READEI X2 00483 M00S00473.reseq +++| RBF2 RETURN SCR,R PREPARE SCRATCH FILE 00484 M00S00474.reseq +++| SA2 SCR CLEAR FUNCTION CODE FROM FET 00485 M00S00475.reseq +++| MX0 42 00486 M00S00476.reseq +++| BX7 X0*X2 00487 M00S00477.reseq +++| SX0 3 00488 M00S00478.reseq +++| BX7 X0+X7 00489 M00S00479.reseq +++| SA7 A2 00490 M00S00480.reseq +++| SA1 INP+1 00491 M00S00481.reseq +++| SA2 INP+4 00492 M00S00482.reseq +++| BX7 X1 00493 M00S00483.reseq +++| SA7 SCR+1 SET FIRST 00494 M00S00484.reseq +++| SX7 X7 00495 M00S00485.reseq +++| SA7 A7+B1 SET IN 00496 M00S00486.reseq +++| SX6 X2 00497 M00S00487.reseq +++| SA7 A7+B1 SET OUT 00498 M00S00488.reseq +++| SA6 A7+B1 SET LIMIT 00499 M00S00489.reseq +++| 00500 M00S00490.reseq +++|* READ A LINE. 00501 M00S00491.reseq +++| 00502 M00S00492.reseq +++| RBF3 SX6 B0+ 00503 M00S00493.reseq +++| SA6 RBFA CLEAR TRUNCATE FLAG 00504 M00S00494.reseq +++| READC SCR1,WBUF,MWBL+1 00505 M00S00495.reseq +++| NZ X1,RBFX IF EOI REACHED, RETURN 00506 M00S00496.reseq +++| BX6 X4 00507 M00S00497.reseq +++| MX0 -12 00508 M00S00498.reseq +++| RBF4 BX6 -X0*X6 00509 M00S00499.reseq +++| ZR X6,RBF5 IF EOL ENCOUNTERED 00510 M00S00500.reseq +++| READO X2 00511 M00S00501.reseq +++| EQ RBF4 CHECK FOR EOL 00512 M00S00502.reseq +++| 00513 M00S00503.reseq +++| RBF5 SB2 WBUF UNPACK LINE INTO STRING BUFFER 00514 M00S00504.reseq +++| SB6 MNCL+1
| Line S00505 Modification History | |
|---|---|
M01 (Removed by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00505.reseq2 ---| SB3 B1+ EXTENDED CHARACTER SET
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00516 M01S00004.reseq2 +++| SA1 CSET GET CHARACTER SET 00517 M01S00005.reseq2 +++| SB3 X1+ 00518 M00S00506.reseq +++| RJ USB 00519 M00S00507.reseq +++| SB2 B7-SBUF-MNCL 00520 M00S00508.reseq +++| NG B2,RBF6 IF LINE NOT TOO LONG 00521 M00S00509.reseq +++| SB7 MNCL+SBUF 00522 M00S00510.reseq +++| SX7 B1+ 00523 M00S00511.reseq +++| SA7 RBFA SET TRUNCATION FLAG 00524 M00S00512.reseq +++| RBF6 SB2 B7+B1 BASIC RESEQUENCE THE LINE 00525 M00S00513.reseq +++| SB7 SBUF+NUMD 00526 M00S00514.reseq +++| SX5 B1 SET *LNT* SORTED 00527 M00S00515.reseq +++| SX6 SBUF+MNCL 00528 M00S00516.reseq +++| SA1 LNTS 00529 M00S00517.reseq +++| SA2 LNTE 00530 M00S00518.reseq +++| SX3 B0+ 00531 M00S00519.reseq +++| RJ BLP 00532 M00S00520.reseq +++| SA2 RBFA MARK ANY TRUNCATION 00533 M00S00521.reseq +++| BX6 X1+X2 00534 M00S00522.reseq +++| SA6 A2 00535 M00S00523.reseq +++| SA2 SBUF PACK RESEQUENCED LINE 00536 M00S00524.reseq +++| SA1 WBUF 00537 M00S00525.reseq +++| SB4 B7-SBUF 00538 M00S00526.reseq +++| RJ PLB 00539 M00S00527.reseq +++| WRITEC SCR,WBUF WRITE OUT UPDATED LINE 00540 M00S00528.reseq +++| SA1 RBFA 00541 M00S00529.reseq +++| ZR X1,RBF3 IF LINE WAS NOT TRUNCATED 00542 M00S00530.reseq +++| RJ ITM ISSUE TRUNCATION MESSAGE 00543 M00S00531.reseq +++| EQ RBF3 PROCESS NEXT LINE 00544 M00S00532.reseq +++| 00545 M00S00533.reseq +++| RBFA CON 0 TRUNCATE FLAG 00546 M00S00534.reseq +++| SPACE 4 00547 M00S00535.reseq +++| IBUFF BSS 0 00548 M00S00536.reseq +++| SPACE 4,10 00549 M00S00537.reseq +++| SPACE 4 00550 M00S00538.reseq +++| TITLE PRE-RESEQUENCE PROCESSOR 00551 M00S00539.reseq +++|** PRE - PRE-RESEQUENCE PROCESSOR. 00552 M00S00540.reseq +++|* 00553 M00S00541.reseq +++|* *PRE* SETS UP THE FET FOR THE FILES, DETERMINES THE FILE 00554 M00S00542.reseq +++|* TYPE, STARTING LINE NUMBER AND INCREMENT, AND STORES THESE 00555 M00S00543.reseq +++|* INTO THEIR CORRESPONDING CELLS. IF AN ERROR IS DETECTED IN 00556 M00S00544.reseq +++|* THE STARTING LINE NUMBER, A MESSAGE IS ISSUED AND THE PROGRAM 00557 M00S00545.reseq +++|* IS ENDED. A FET IS ALSO ESTABLISHED FOR *SCR1*. 00558 M00S00546.reseq +++|* *PRE* IS THEN OVERLAYED WITH BUFFERS. 00559 M00S00547.reseq +++|* 00560 M00S00548.reseq +++|* EXIT (SYST) - SYSTEM TYPE(-1=FORTRAN,0=BASIC,1=TEXT, 00561 M00S00549.reseq +++|* 2=OTHER). 00562 M00S00550.reseq +++|* (LNUM) - STARTING LINE NUMBER. 00563 M00S00551.reseq +++|* (INCR) - INCREMENT. 00564 M00S00552.reseq +++|* (LNTS) = FWA OF LINE NUMBER TABLE. 00565 M00S00553.reseq +++|* (LNTE) = LWA+1 OF LINE NUMBER TABLE. 00566 M00S00554.reseq +++|* 00567 M00S00555.reseq +++|* USES X - ALL. 00568 M00S00556.reseq +++|* A - 1, 2, 3, 5, 6, 7. 00569 M00S00557.reseq +++|* 00570 M00S00558.reseq +++|* CALLS CVD. 00571 M00S00559.reseq +++|*
| Line S00560 Modification History | |
|---|---|
M01 (Removed by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00572 M01S00560.reseq2 ---|* MACROS ABORT, MESSAGE, RETURN, STATUS.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00573 M01S00006.reseq2 +++|* MACROS ABORT, MESSAGE, RETURN, STATUS, TSTATUS. 00574 M00S00561.reseq +++| 00575 M00S00562.reseq +++| 00576 M00S00563.reseq +++| PRE SUBR ENTRY/EXIT 00577 M00S00564.reseq +++| SB1 1
| Line S00565 Modification History | |
|---|---|
M01 (Removed by) | reseq1 |
Seq # *Modification Id* Act ----------------------------+ 00578 M01S00565.reseq1 ---| SX6 A0
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | reseq1 |
Seq # *Modification Id* Act ----------------------------+ 00579 M01S00001.reseq1 +++| SX6 A0-4 00580 M00S00566.reseq +++| SA6 FLDL SAVE FIELD LENGTH 00581 M00S00567.reseq +++| RETURN SCR1,R PREPARE SCRATCH FILE 00582 M00S00568.reseq +++| MX0 42 CLEAR FUNCTION CODE FROM FET 00583 M00S00569.reseq +++| SA1 SCR1 00584 M00S00570.reseq +++| BX6 X0*X1 00585 M00S00571.reseq +++| SX0 3 00586 M00S00572.reseq +++| BX6 X0+X6 00587 M00S00573.reseq +++| SA6 A1 00588 M00S00574.reseq +++| SX0 77B 00589 M00S00575.reseq +++| SA3 ACTR 00590 M00S00576.reseq +++| SX3 X3-1 00591 M00S00577.reseq +++| PL X3,PRE3 IF PARAMETER COUNT NOT ZERO
| Line S00578 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00592 M01S00578.v23l617 ---| PRE2 MESSAGE (=C*RESEQ CONTROL CARD ERROR.*)
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00593 M01S00007.v23l617 +++| PRE2 MESSAGE (=C*RESEQ COMMAND ERROR.*) 00594 M00S00579.reseq +++| ABORT 00595 M00S00580.reseq +++| 00596 M00S00581.reseq +++| PRE3 SA2 ARGR 00597 M00S00582.reseq +++| MX5 42 00598 M00S00583.reseq +++| SX4 3 00599 M00S00584.reseq +++| BX6 X5*X2 00600 M00S00585.reseq +++| IX6 X4+X6 00601 M00S00586.reseq +++| SA6 INP SET FIRST WORD OF PRIMARY FILE FET 00602 M00S00587.reseq +++| SX3 X3-1 00603 M00S00588.reseq +++| NG X3,PRE5 IF NO SYSTEM PASSED 00604 M00S00589.reseq +++| SA2 ARGR+1 GET FILE TYPE (B=BASIC) 00605 M00S00590.reseq +++| BX2 X5*X2 00606 M00S00591.reseq +++| LX2 6 00607 M00S00592.reseq +++| SX1 B1+B1 00608 M00S00593.reseq +++| BX6 X2-X1 00609 M00S00594.reseq +++| ZR X6,PRE4 IF TYPE BASIC 00610 M00S00595.reseq +++| SX6 B1 00611 M00S00596.reseq +++| SA1 =1RT 00612 M00S00597.reseq +++| BX7 X2-X1 00613 M00S00598.reseq +++| SA1 =1RF 00614 M00S00599.reseq +++| BX5 X2-X1 00615 M00S00600.reseq +++| NZ X5,PRE3.1 IF TYPE NOT FORTRAN 00616 M00S00601.reseq +++| SX6 -B1 00617 M00S00602.reseq +++| EQ PRE4 STORE FILE TYPE 00618 M00S00603.reseq +++| 00619 M00S00604.reseq +++| PRE3.1 NZ X7,PRE5 IF TYPE NOT TEXT 00620 M00S00605.reseq +++| PRE4 SA6 SYST STORE FILE TYPE
| Line S00606 Modification History | |
|---|---|
M01 (Removed by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00621 M01S00606.reseq2 ---| PRE5 SA5 FLDL
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00622 M01S00007.reseq2 +++| PRE5 SA1 JOPR CHECK JOB ORIGIN TYPE 00623 M01S00008.reseq2 +++| LX1 -24 00624 M01S00009.reseq2 +++| MX0 -12 00625 M01S00010.reseq2 +++| BX1 -X0*X1 00626 M01S00011.reseq2 +++| SX1 X1-IAOT 00627 M01S00012.reseq2 +++| NZ X1,PRE5.1 IF NOT INTERACTIVE ORIGIN JOB 00628 M01S00013.reseq2 +++| TSTATUS PREA GET INTERACTIVE STATUS 00629 M01S00014.reseq2 +++| SA1 PREA+1 CHECK CHARACTER SET 00630 M01S00015.reseq2 +++| SX6 B1+ 00631 M01S00016.reseq2 +++| LX1 0-2 00632 M01S00017.reseq2 +++| BX6 X6*X1 00633 M01S00018.reseq2 +++| SA6 CSET SAVE CHARACTER SET (NORMAL/ASCII) 00634 M01S00019.reseq2 +++| PRE5.1 SA5 FLDL 00635 M00S00607.reseq +++| SA2 SYST 00636 M00S00608.reseq +++| NZ X2,PRE6 IF FILE TYPE NOT BASIC 00637 M00S00609.reseq +++| SX7 IBUFF 00638 M00S00610.reseq +++| IX6 X5-X7 00639 M00S00611.reseq +++| AX6 2 00640 M00S00612.reseq +++| EQ PRE7 INITIALIZE REST OF FET 00641 M00S00613.reseq +++| 00642 M00S00614.reseq +++| PRE6 SX7 BUFF OVERLAY BASIC ONLY ROUTINES 00643 M00S00615.reseq +++| IX6 X5-X7 SUBROUTINES WITH INPUT BUFFERS 00644 M00S00616.reseq +++| AX6 1 00645 M00S00617.reseq +++| PRE7 SX6 X6-50 00646 M00S00618.reseq +++| SX4 FETL-5 FET LENGTH - 5 00647 M00S00619.reseq +++| IX6 X6+X7 00648 M00S00620.reseq +++| LX4 18 00649 M00S00621.reseq +++| IX7 X7+X4 00650 M00S00622.reseq +++| SA7 INP+1 SET FIRST 00651 M00S00623.reseq +++| SX7 X7 00652 M00S00624.reseq +++| SA7 A7+B1 SET IN 00653 M00S00625.reseq +++| SA7 A7+B1 SET OUT 00654 M00S00626.reseq +++| SA6 A7+B1 SET LIMIT 00655 M00S00627.reseq +++| SX3 X3-1 00656 M00S00628.reseq +++| NG X3,PRE9 IF NO STARTING LINE NUMBER PASSED 00657 M00S00629.reseq +++| SA2 ARGR+2 GET STARTING LINE NUMBER 00658 M00S00630.reseq +++| MX0 -6 00659 M00S00631.reseq +++| BX7 -X0*X2 00660 M00S00632.reseq +++| NZ X7,PRE2 IF SPECIAL CHARACTER 00661 M00S00633.reseq +++| ZR X2,PRE9 IF NO PARAMETER 00662 M00S00634.reseq +++| RJ CVD CONVERT STARTING LINE NUMBER 00663 M00S00635.reseq +++| NG X6,PRE8 IF CONVERSION ERROR 00664 M00S00636.reseq +++| SX5 X6-LIMIT 00665 M00S00637.reseq +++| NG X5,PRE8.1 IF LINE NUMBER LIMIT NOT EXCEEDED 00666 M00S00638.reseq +++| MESSAGE (=C*LINE NUMBER LIMIT EXCEEDED.*) 00667 M00S00639.reseq +++| PRE8 ABORT 00668 M00S00640.reseq +++| 00669 M00S00641.reseq +++| PRE8.1 SA6 LNUM SAVE STARTING LINE NUMBER 00670 M00S00642.reseq +++| PRE9 SX3 X3-1 00671 M00S00643.reseq +++| NG X3,PRE10 IF NO INCREMENT PASSED 00672 M00S00644.reseq +++| SA2 ARGR+3 GET LINE INCREMENT 00673 M00S00645.reseq +++| MX0 -6 00674 M00S00646.reseq +++| BX6 -X0*X2 00675 M00S00647.reseq +++| NZ X6,PRE2 IF SPECIAL CHARACTER 00676 M00S00648.reseq +++| ZR X2,PRE10 IF NO PARAMETER 00677 M00S00649.reseq +++| RJ CVD CONVERT LINE NUMBER INCREMENT 00678 M00S00650.reseq +++| NG X6,PRE8 IF CONVERSION ERROR 00679 M00S00651.reseq +++| SA6 INCR SAVE INCREMENT 00680 M00S00652.reseq +++| PRE10 STATUS INP,P 00681 M00S00653.reseq +++| SA1 INP+5 00682 M00S00654.reseq +++| MX3 -6 00683 M00S00655.reseq +++| BX7 X7-X7 00684 M00S00656.reseq +++| AX1 6 00685 M00S00657.reseq +++| BX4 -X3*X1 00686 M00S00658.reseq +++| SX6 X4-PMFT 00687 M00S00659.reseq +++| SA6 DAF STORE DIRECT ACCESS FILE FLAG 00688 M00S00660.reseq +++| SA3 INP+4 00689 M00S00661.reseq +++| SA7 A1+B1 CLEAR RANDOM INDEX 00690 M00S00662.reseq +++| SX7 X3+B1 00691 M00S00663.reseq +++| SX5 FETL-5 FET LENGTH - 5 00692 M00S00664.reseq +++| LX5 18 00693 M00S00665.reseq +++| BX6 X7+X5 00694 M00S00666.reseq +++| SA6 SCR1+1 SET FIRST 00695 M00S00667.reseq +++| SA7 A6+B1 SET IN 00696 M00S00668.reseq +++| SA7 A7+B1 SET OUT 00697 M00S00669.reseq +++| SA5 SYST 00698 M00S00670.reseq +++| NZ X5,PRE11 IF FILE TYPE NOT BASIC 00699 M00S00671.reseq +++| SA1 INP+2 00700 M00S00672.reseq +++| IX4 X3-X1 BUFFER LENGTH 00701 M00S00673.reseq +++| IX6 X7+X4 00702 M00S00674.reseq +++| SX6 X6+100 00703 M00S00675.reseq +++| SX7 X6+B1 00704 M00S00676.reseq +++| SA7 LNTS 00705 M00S00677.reseq +++| SA7 LNTE 00706 M00S00678.reseq +++| EQ PRE12 SET LIMIT 00707 M00S00679.reseq +++| 00708 M00S00680.reseq +++| PRE11 SA1 FLDL 00709 M00S00681.reseq +++| SX6 X1+ 00710 M00S00682.reseq +++| PRE12 SA6 SCR1+4 SET LIMIT 00711 M00S00683.reseq +++| EQ PREX RETURN
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00712 M01S00020.reseq2 +++| 00713 M01S00021.reseq2 +++| 00714 M01S00022.reseq2 +++| PREA BSS 2 BUFFER FOR *TSTATUS* MACRO 00715 M00S00684.reseq +++| SPACE 4 00716 M00S00685.reseq +++| RFL= EQU 6000B 00717 M00S00686.reseq +++| 00718 M00S00687.reseq +++| 00719 M00S00688.reseq +++| END
cdc/nos2.source/opl.opl871/deck/reseq.txt · Last modified: (external edit)