cdc:nos2.source:opl.opl871:deck:reseq
Deck RESEQ
4 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.reseq +++| IDENT RESEQ,FWA,RESEQ 00002 M01S00002.reseq +++| ABS 00003 M01S00003.reseq +++| SST 00004 M01S00004.reseq +++| SYSCOM B1 00005 M01S00005.reseq +++| ENTRY RESEQ 00006 M01S00006.reseq +++| ENTRY RFL= 00007 M01S00007.reseq +++| SPACE 4 00008 M01S00008.reseq +++|*COMMENT RESEQ - TIME SHARING RESEQUENCE ROUTINE.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M01S00010.reseq +++| TITLE RESEQ - TIME SHARING RESEQUENCE ROUTINE. 00012 M01S00011.reseq +++| SPACE 4 00013 M01S00012.reseq +++|*** RESEQ - TIME SHARING RESEQUENCE ROUTINE. 00014 M01S00013.reseq +++|* 00015 M01S00014.reseq +++|* D.A. HIVELEY 71/02/14. 00016 M01S00015.reseq +++| SPACE 4 00017 M01S00016.reseq +++|*** RESEQ IS USED TO RESEQUENCE SOURCE FILES WHICH HAVE LEADING 00018 M01S00017.reseq +++|* SEQUENCE NUMBERS OR TO ADD SEQUENCE NUMBERS TO AN 00019 M01S00018.reseq +++|* UNSEQUENCED FILE. THIS MAINLY INCLUDES FORTRAN AND BASIC
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00019.v23l617 ---|* SOURCE CODE. THE FORMAT OF THE SOURCE STATEMENT IS 00021 M01S00001.v23l617 +++|* SOURCE CODE. THE FORMAT OF EACH INDIVIDUAL SOURCE LINE 00022 M01S00020.reseq +++|* MAINTAINED. FOR BASIC PROGRAMS AN INTERNAL CHANGE OF LINE 00023 M01S00021.reseq +++|* NUMBERS MUST BE MADE. FOR NON-BASIC PROGRAMS, ALL 00024 M01S00022.reseq +++|* SUBROUTINES REQUIRED BY BASIC ONLY ARE OVERLAYED WITH 00025 M01S00023.reseq +++|* BUFFERS. IF THE FILE TYPE IS DECLARED *T*, THEN THE FILE 00026 M01S00024.reseq +++|* DATA IS NOT INSPECTED AT ALL. FIVE DIGIT SEQUENCE NUMBERS 00027 M01S00025.reseq +++|* PLUS A BLANK ARE MERELY ADDED TO THE BEGINNING OF EACH LINE. 00028 M01S00026.reseq +++|* DIRECT ACCESS FILES MAY BE RESEQUENCED. 00029 M01S00027.reseq +++| 00030 M01S00028.reseq +++|
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00031 M02S00029.v23l617 ---|*** CONTROL CARD CALL. 00032 M01S00002.v23l617 +++|*** THE FORMAT COMMAND. 00033 M01S00030.reseq +++|* 00034 M01S00031.reseq +++|* RESEQ(PFILE,TYPE,SLINO,INCR) 00035 M01S00032.reseq +++|* 00036 M01S00033.reseq +++|* PFILE = PRIMARY FILE NAME. 00037 M01S00034.reseq +++|* TYPE = B - BASIC. 00038 M01S00035.reseq +++|* = F - FORTRAN. 00039 M01S00036.reseq +++|* = T - TEXT. 00040 M01S00037.reseq +++|* = OTHER. 00041 M01S00038.reseq +++|* SLINO = STARTING LINE NUMBER. 00042 M01S00039.reseq +++|* INCR = INCREMENT. 00043 M01S00040.reseq +++| 00044 M01S00041.reseq +++| 00045 M01S00042.reseq +++|*** DAYFILE MESSAGES. 00046 M01S00043.reseq +++|* 00047 M01S00044.reseq +++|* *LINE NUMBER LIMIT EXCEEDED* - IF LINE NUMBER ENCOUNTERED 00048 M01S00045.reseq +++|* OR REQUIRED GREATER THAN 99999.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00046.v23l617 ---|* *RESEQ CONTROL CARD ERROR.* - NO PARAMETERS OR SPECIAL
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00047.v23l617 ---|* CHARACTER USED AS A PARAMETER ON THE CONTROL CARD. 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 M01S00048.reseq +++|* * RESEQ ERRORS.* - IF UNABLE TO FIND LINE NUMBERS, 00054 M01S00049.reseq +++|* ALL ERRORS WRITTEN TO FILE OUTPUT. 00055 M01S00050.reseq +++|* *RESEQ NUMERIC PARAM ERROR.* - ROUTINE *CVD* TRIED TO
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00056 M02S00051.v23l617 ---|* CONVERT A NON-NUMERIC PARAMETER. CHECK THE CONTROL CARD.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00057 M02S00052.v23l617 ---|* * ILLEGAL WRITE ON READ ONLY FILE.* (CIO ERROR 03) = DIRECT 00058 M01S00005.v23l617 +++|* CONVERT A NON-NUMERIC PARAMETER. 00059 M01S00006.v23l617 +++|* * INCORRECT WRITE ON READ ONLY FILE.* (CIO ERROR 03) = DIRECT 00060 M01S00053.reseq +++|* ACCESS INPUT FILE WAS NOT ATTACHED IN WRITE MODE. 00061 M01S00054.reseq +++| 00062 M01S00055.reseq +++| 00063 M01S00056.reseq +++|*CALL COMCMAC 00064 M01S00057.reseq +++| TITLE WORKING STORAGE AND ASSEMBLY CONSTANTS. 00065 M01S00058.reseq +++| ORG 111B 00066 M01S00059.reseq +++| FWA BSS 0 00067 M01S00060.reseq +++| SPACE 4 00068 M01S00061.reseq +++|**** ASSEMBLY CONSTANTS. 00069 M01S00062.reseq +++| 00070 M01S00063.reseq +++| 00071 M01S00064.reseq +++| FETL EQU 10 FET LENGTH 00072 M01S00065.reseq +++| LIMIT EQU 99999 LINE NUMBER LIMIT FOR RESEQUENCE 00073 M01S00066.reseq +++| MNCL EQU 160 MAXIMUM NUMBER OF CHARACTERS IN A LINE 00074 M01S00067.reseq +++| MWBL EQU MNCL/5 MAXIMUM NUMBER OF WORDS IN A LINE 00075 M01S00068.reseq +++| NUMD EQU 5 MAXIMUM NUMBER OF DIGITS IN A LINE NUMBER 00076 M01S00069.reseq +++| OBUFL EQU 101B OUTPUT BUFFER LENGTH 00077 M01S00070.reseq +++| USBA$ SET 1 ENABLES UNPACKING OF 6/12 CHARACTERS 00078 M01S00071.reseq +++| USBL$ SET 1 SPECIFIES STRING BUFFER IN USER PROGRAM 00079 M01S00072.reseq +++| SPACE 4 00080 M01S00073.reseq +++|** WORKING STORAGE. 00081 M01S00074.reseq +++| 00082 M01S00075.reseq +++| 00083 M01S00001.reseq2 +++| CSET CON 0 CHARACTER SET (0 = NORMAL, 1 = 6/12 ASCII) 00084 M01S00076.reseq +++| DAF CON 0 FILE TYPE (0 = DIRECT ACCESS) 00085 M01S00077.reseq +++| FLDL CON 0 FIELD LENGTH 00086 M01S00078.reseq +++| INCR CON 10 DEFAULT LINE NUMBER INCREMENT 00087 M01S00079.reseq +++| LNTE CON 0 LWA+1 OF LINE NUMBER TABLE 00088 M01S00080.reseq +++| LNTS CON 0 FWA OF LINE NUMBER TABLE 00089 M01S00081.reseq +++| LNUM CON 100 DEFAULT INITIAL LINE NUMBER 00090 M01S00082.reseq +++| SYST CON 2 FILE TYPE (-1 = FORTRAN) 00091 M01S00083.reseq +++| ( 0 = BASIC ) 00092 M01S00084.reseq +++| ( 1 = TEXT ) 00093 M01S00085.reseq +++| ( 2 = OTHER ) 00094 M01S00086.reseq +++| SPACE 4 00095 M01S00087.reseq +++|** FET DEFINITIONS. 00096 M01S00088.reseq +++| 00097 M01S00089.reseq +++| 00098 M01S00090.reseq +++| O BSS 0 00099 M01S00091.reseq +++| OUTPUT FILEB OBUF,OBUFL,EPR,FET=FETL OUTPUT FET 00100 M01S00092.reseq +++| SCR FILEB 2,1,FET=FETL SCRATCH FILE FET 00101 M01S00093.reseq +++| SCR1 FILEB 2,1,FET=FETL SCRATCH FILE FET 00102 M01S00094.reseq +++| INP FILEB 2,1,FET=FETL INPUT FILE FET 00103 M01S00095.reseq +++| TITLE SUBROUTINES 00104 M01S00096.reseq +++|** RES - RESEQUENCE. 00105 M01S00097.reseq +++|* 00106 M01S00098.reseq +++|* USES X - ALL. 00107 M01S00099.reseq +++|* A - ALL. 00108 M01S00100.reseq +++|* B - 2, 3, 4, 5, 6. 00109 M01S00101.reseq +++|* 00110 M01S00102.reseq +++|* CALLS ADL, CDD, CVD, PLB, PRE, RBF, STF, USB. 00111 M01S00103.reseq +++|* 00112 M01S00104.reseq +++|* MACROS ABORT, ENDRUN, MEMORY, MESSAGE, READC, READEI, READO, 00113 M01S00105.reseq +++|* READW, RENAME, RETURN, REWIND, WRITEC, WRITER, WRITEW. 00114 M01S00106.reseq +++| 00115 M01S00107.reseq +++| 00116 M01S00108.reseq +++| RESEQ BSS 0 ENTRY 00117 M01S00109.reseq +++| RJ PRE PRESET 00118 M01S00110.reseq +++| REWIND INP 00119 M01S00111.reseq +++| READEI X2 00120 M01S00112.reseq +++| RES1 SX6 B0+ 00121 M01S00113.reseq +++| SA6 RESA CLEAR TRUNCATED LINE FLAG 00122 M01S00114.reseq +++| READC INP,WBUF,MWBL+1 00123 M01S00115.reseq +++| NZ X1,RES16 IF EOI REACHED 00124 M01S00116.reseq +++| BX6 X4 00125 M01S00117.reseq +++| MX0 -12 00126 M01S00118.reseq +++| RES2 BX6 -X0*X6 00127 M01S00119.reseq +++| ZR X6,RES3 IF EOL ENCOUNTERED 00128 M01S00120.reseq +++| READO X2 00129 M01S00121.reseq +++| EQ RES2 CHECK FOR EOL 00130 M01S00122.reseq +++| 00131 M01S00123.reseq +++| RES3 SB2 WBUF UNPACK LINE INTO STRING BUFFER 00132 M01S00124.reseq +++| SB6 MNCL+1
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00133 M02S00125.reseq2 ---| SB3 B1+ EXTENDED CHARACTER SET 00134 M01S00002.reseq2 +++| SA1 CSET GET CHARACTER SET 00135 M01S00003.reseq2 +++| SB3 X1+ 00136 M01S00126.reseq +++| RJ USB 00137 M01S00127.reseq +++| SA2 SYST 00138 M01S00128.reseq +++| SB6 SBUF 00139 M01S00129.reseq +++| SB5 NUMD 00140 M01S00130.reseq +++| SX2 X2-1 00141 M01S00131.reseq +++| ZR X2,RES6 IF TEXT 00142 M01S00132.reseq +++| SX2 B0+ 00143 M01S00133.reseq +++| SB4 60 00144 M01S00134.reseq +++| RES4 SA3 B6 00145 M01S00135.reseq +++| GT B6,B7,RES5 IF END OF LINE 00146 M01S00136.reseq +++| SX4 X3-1R0 00147 M01S00137.reseq +++| SX5 X3-1R+ 00148 M01S00138.reseq +++| NG X4,RES5 IF LETTER 00149 M01S00139.reseq +++| PL X5,RES5 IF SPECIAL CHARACTER 00150 M01S00140.reseq +++| SB5 B5-B1 00151 M01S00141.reseq +++| LX2 6 00152 M01S00142.reseq +++| SB4 B4-6 00153 M01S00143.reseq +++| IX2 X2+X3 00154 M01S00144.reseq +++| SB6 B6+B1 00155 M01S00145.reseq +++| NZ B5,RES4 IF NOT *NUMD* DIGITS 00156 M01S00146.reseq +++| RES5 LX6 X2,B4 00157 M01S00147.reseq +++| SA6 RESB OLD LINE NUMBER 00158 M01S00148.reseq +++| SX6 B5-NUMD 00159 M01S00149.reseq +++| NZ X6,RES7 IF LINE NUMBER PRESENT 00160 M01S00150.reseq +++| SA4 SYST 00161 M01S00151.reseq +++| SX4 X4+1 00162 M01S00152.reseq +++| ZR X4,RES7 IF FORTRAN 00163 M01S00153.reseq +++| RES6 SB6 B6-B1 00164 M01S00154.reseq +++| SX6 1R 00165 M01S00155.reseq +++| SA6 B6 INSERT BLANK 00166 M01S00156.reseq +++| RES7 SA1 LNUM 00167 M01S00157.reseq +++| RJ CDD CONVERT LINE NUMBER TO DISPLAY CODE 00168 M01S00158.reseq +++| BX2 X6 00169 M01S00159.reseq +++| RJ ADL GO ADD NEW LINE NUMBER TO LINE 00170 M01S00160.reseq +++| SB4 B7-B6 00171 M01S00161.reseq +++| SB4 B4+B1 00172 M01S00162.reseq +++| SB3 MNCL 00173 M01S00163.reseq +++| LE B4,B3,RES8 IF NO TRUNCATION 00174 M01S00164.reseq +++| SB4 B3 00175 M01S00165.reseq +++| SX7 B1 00176 M01S00166.reseq +++| SA7 RESA 00177 M01S00167.reseq +++| RES8 SA1 WBUF PACK LINE INTO WORKING BUFFER 00178 M01S00168.reseq +++| SA2 B6+ 00179 M01S00169.reseq +++| RJ PLB 00180 M01S00170.reseq +++| SA2 INCR 00181 M01S00171.reseq +++| SX3 LIMIT 00182 M01S00172.reseq +++| SA1 LNUM 00183 M01S00173.reseq +++| IX6 X1+X2 00184 M01S00174.reseq +++| IX3 X3-X1 00185 M01S00175.reseq +++| NG X3,RES12 IF LIMIT EXCEEDED 00186 M01S00176.reseq +++| SA6 LNUM 00187 M01S00177.reseq +++| SA2 SYST 00188 M01S00178.reseq +++| NZ X2,RES9 IF NOT BASIC 00189 M01S00179.reseq +++| SA2 RESB 00190 M01S00180.reseq +++| RJ CVD 00191 M01S00181.reseq +++| NG X6,RES23 IF CONVERSION ERROR 00192 M01S00182.reseq +++| LX6 24-0 SET UP *LNT* ENTRY 00193 M01S00183.reseq +++| LX1 42-0 00194 M01S00184.reseq +++| BX6 X1+X6 MERGE OLD NUMBER WITH NEW NUMBER 00195 M01S00185.reseq +++| SA3 LNTE 00196 M01S00186.reseq +++| SX7 X3+B1 00197 M01S00187.reseq +++| SA5 FLDL 00198 M01S00188.reseq +++| SA6 X3+ 00199 M01S00189.reseq +++| SA7 A3 00200 M01S00190.reseq +++| IX7 X5-X7 00201 M01S00191.reseq +++| PL X7,RES9 IF NO TABLE OVERFLOW 00202 M01S00192.reseq +++| SX7 X5+2000B 00203 M01S00193.reseq +++| SA7 A5+ 00204 M01S00194.reseq +++| MEMORY CM,,R,X7 00205 M01S00195.reseq +++| RES9 WRITEC SCR1,WBUF 00206 M01S00196.reseq +++| SA1 RESA 00207 M01S00197.reseq +++| ZR X1,RES1 IF LINE WAS NOT TRUNCATED 00208 M01S00198.reseq +++| RJ ITM ISSUE TRUNCATION MESSAGE 00209 M01S00199.reseq +++| EQ RES1 PROCESS NEXT LINE 00210 M01S00200.reseq +++| 00211 M01S00201.reseq +++| RES12 SX2 O SET ADDRESS OF FET 00212 M01S00202.reseq +++| RJ STF CHECK IF OUTPUT ASSIGNED TO TERMINAL 00213 M01S00203.reseq +++| NZ X6,RES13 IF NOT TELEX ORIGIN 00214 M01S00204.reseq +++| WRITEC O,(=C*LINE NUMBER LIMIT EXCEEDED.*) 00215 M01S00205.reseq +++| EQ RES23 SKIP ISSUING THE DAYFILE MESSAGE 00216 M01S00206.reseq +++| 00217 M01S00207.reseq +++| RES13 MESSAGE (=C*LINE NUMBER LIMIT EXCEEDED.*) 00218 M01S00208.reseq +++| EQ RES23 COMPLETE ERROR TERMINATION 00219 M01S00209.reseq +++| 00220 M01S00210.reseq +++| RES16 REWIND INP,R 00221 M01S00211.reseq +++| SA1 SYST 00222 M01S00212.reseq +++| NZ X1,RES17 IF NOT BASIC 00223 M01S00213.reseq +++| RJ RBF RESEQUENCE BASIC FILE 00224 M01S00214.reseq +++| RETURN SCR1 00225 M01S00215.reseq +++| SA1 SCR 00226 M01S00216.reseq +++| EQ RES18 FINISH FILE PROCESSING 00227 M01S00217.reseq +++| 00228 M01S00218.reseq +++| RES17 SA1 SCR1 00229 M01S00219.reseq +++| RES18 SA0 A1 00230 M01S00220.reseq +++| SX0 77B 00231 M01S00221.reseq +++| BX2 X0*X1 00232 M01S00222.reseq +++| SX2 X2-3 00233 M01S00223.reseq +++| NZ X2,RES19 IF FILE USED 00234 M01S00224.reseq +++| SA2 ARGR 00235 M01S00225.reseq +++| SX3 B1 00236 M01S00226.reseq +++| MX0 42 MASK OFF NAME 00237 M01S00227.reseq +++| BX2 X0*X2 00238 M01S00228.reseq +++| IX6 X2+X3 00239 M01S00229.reseq +++| SA6 A1 00240 M01S00230.reseq +++| WRITER A0,R 00241 M01S00231.reseq +++| EQ RES22 COMPLETE NORMAL TERMINATION 00242 M01S00232.reseq +++| 00243 M01S00233.reseq +++| RES19 WRITER A0 00244 M01S00234.reseq +++| REWIND X2,R 00245 M01S00235.reseq +++| SA3 DAF 00246 M01S00236.reseq +++| ZR X3,RES20 IF DIRECT ACCESS INPUT FILE 00247 M01S00237.reseq +++| RENAME A0,ARGR 00248 M01S00238.reseq +++| EQ RES22 COMPLETE NORMAL TERMINATION 00249 M01S00239.reseq +++| 00250 M01S00240.reseq +++| RES20 READEI X2 00251 M01S00241.reseq +++| RES21 READW A0,SBUF,MNCL 00252 M01S00242.reseq +++| BX0 X1 00253 M01S00243.reseq +++| SX4 B6-SBUF 00254 M01S00244.reseq +++| WRITEW INP,SBUF,X4 00255 M01S00245.reseq +++| PL X0,RES21 IF NOT EOF, COMPLETE COPY 00256 M01S00246.reseq +++| WRITER X2 00257 M01S00247.reseq +++| REWIND X2,R 00258 M01S00248.reseq +++| RES22 WRITER O NORMAL TERMINATION 00259 M01S00249.reseq +++| ENDRUN 00260 M01S00250.reseq +++| 00261 M01S00251.reseq +++| RES23 REWIND INP 00262 M01S00252.reseq +++| RETURN SCR 00263 M01S00253.reseq +++| RETURN SCR1 00264 M01S00254.reseq +++| MESSAGE (=C* RESEQ ERRORS.*) 00265 M01S00255.reseq +++| WRITER O 00266 M01S00256.reseq +++| ABORT ERROR TERMINATION 00267 M01S00257.reseq +++| 00268 M01S00258.reseq +++| RESA CON 0 TRUNCATED LINE FLAG 00269 M01S00259.reseq +++| RESB CON 0 OLD LINE NUMBER 00270 M01S00260.reseq +++| ADL SPACE 4,15 00271 M01S00261.reseq +++|** ADL - ADD LINE NUMBER 00272 M01S00262.reseq +++|* 00273 M01S00263.reseq +++|* ENTRY (B6) = STRING BUFFER ADDRESS+1 OF START OF STATEMENT. 00274 M01S00264.reseq +++|* (X2) = LINE NO. RIGHT JUSTIFIED WITH LEADING BLANKS. 00275 M01S00265.reseq +++|* 00276 M01S00266.reseq +++|* EXIT NUMBER STORED IN STRING BUFFER. 00277 M01S00267.reseq +++|* (B6) = STRING BUFFER ADDRESS OF LAST DIGIT STORED. 00278 M01S00268.reseq +++|* 00279 M01S00269.reseq +++|* USES X - 0, 2, 5, 6, 7. 00280 M01S00270.reseq +++|* A - 6, 7. 00281 M01S00271.reseq +++|* B - 5, 6. 00282 M01S00272.reseq +++| 00283 M01S00273.reseq +++| 00284 M01S00274.reseq +++| 00285 M01S00275.reseq +++| ADL SUBR ENTRY/EXIT 00286 M01S00276.reseq +++| SB5 NUMD 00287 M01S00277.reseq +++| SX7 1R0 00288 M01S00278.reseq +++| SX0 77B 00289 M01S00279.reseq +++| ADL1 BX6 X0*X2 00290 M01S00280.reseq +++| SX5 X6-1R 00291 M01S00281.reseq +++| ZR X5,ADL2 IF SPACE 00292 M01S00282.reseq +++| SB6 B6-B1 00293 M01S00283.reseq +++| SA6 B6 00294 M01S00284.reseq +++| SB5 B5-B1 00295 M01S00285.reseq +++| ZR B5,ADLX IF *NUMD* DIGITS 00296 M01S00286.reseq +++| AX2 6 00297 M01S00287.reseq +++| EQ ADL1 ADD NEXT DIGIT 00298 M01S00288.reseq +++| 00299 M01S00289.reseq +++| ADL2 SB6 B6-B1 00300 M01S00290.reseq +++| SA7 B6 00301 M01S00291.reseq +++| SB5 B5-B1 00302 M01S00292.reseq +++| NZ B5,ADL2 IF NOT *NUMD* DIGITS 00303 M01S00293.reseq +++| EQ ADLX RETURN 00304 M01S00294.reseq +++| CVD SPACE 4,15 00305 M01S00295.reseq +++|** CVD - CONVERT DISPLAY CODE NUMBER TO OCTAL. 00306 M01S00296.reseq +++|* 00307 M01S00297.reseq +++|* ENTRY (X2) = LEFT JUSTIFIED NUMBER WITH TRAILING ZEROES. 00308 M01S00298.reseq +++|* 00309 M01S00299.reseq +++|* EXIT (X6) = RIGHT JUSTIFIED NUMBER (IN OCTAL). 00310 M01S00300.reseq +++|* (X6) = NEG., ERROR IN PARAMETER. 00311 M01S00301.reseq +++|* 00312 M01S00302.reseq +++|* USES X - 0, 2, 4, 6, 7. 00313 M01S00303.reseq +++|* 00314 M01S00304.reseq +++|* MACROS MESSAGE. 00315 M01S00305.reseq +++| 00316 M01S00306.reseq +++| 00317 M01S00307.reseq +++| CVD SUBR ENTRY/EXIT 00318 M01S00308.reseq +++| SX6 B0+ 00319 M01S00309.reseq +++| MX0 -6 00320 M01S00310.reseq +++| CVD1 LX2 6 00321 M01S00311.reseq +++| BX4 -X0*X2 00322 M01S00312.reseq +++| ZR X4,CVDX IF END OF NUMBER 00323 M01S00313.reseq +++| SX7 X4-1R+ 00324 M01S00314.reseq +++| SX4 X4-1R0 00325 M01S00315.reseq +++| NG X4,CVD2 IF ALPHA 00326 M01S00316.reseq +++| PL X7,CVD2 IF SPECIAL CHARACTER 00327 M01S00317.reseq +++| LX7 X6,B1 00328 M01S00318.reseq +++| LX6 3 00329 M01S00319.reseq +++| IX6 X6+X7 00330 M01S00320.reseq +++| IX6 X6+X4 00331 M01S00321.reseq +++| EQ CVD1 CHECK NEXT CHARACTER 00332 M01S00322.reseq +++| 00333 M01S00323.reseq +++| CVD2 MESSAGE (=C*RESEQ NUMERIC PARAM ERROR.*) 00334 M01S00324.reseq +++| SX6 -B1 00335 M01S00325.reseq +++| EQ CVDX RETURN 00336 M01S00326.reseq +++| ITM SPACE 4,15 00337 M01S00327.reseq +++|** ITM - ISSUE TRUNCATION MESSAGE. 00338 M01S00328.reseq +++|* 00339 M01S00329.reseq +++|* ENTRY (WBUF) = LINE NUMBER IN PACKED FORM. 00340 M01S00330.reseq +++|* 00341 M01S00331.reseq +++|* EXIT MESSAGE WRITTEN TO *OUTPUT*. 00342 M01S00332.reseq +++|* 00343 M01S00333.reseq +++|* USES X - 1, 2. 00344 M01S00334.reseq +++|* A - 1. 00345 M01S00335.reseq +++|* B - 2, 3, 5. 00346 M01S00336.reseq +++|* 00347 M01S00337.reseq +++|* CALLS SNM. 00348 M01S00338.reseq +++|* 00349 M01S00339.reseq +++|* MACROS WRITEC. 00350 M01S00340.reseq +++| 00351 M01S00341.reseq +++| 00352 M01S00342.reseq +++| ITM SUBR ENTRY/EXIT 00353 M01S00343.reseq +++| SA1 WBUF 00354 M01S00344.reseq +++| MX2 6*NUMD 00355 M01S00345.reseq +++| BX1 X1*X2 MASK OUT LINE NUMBER 00356 M01S00346.reseq +++| SB2 1R0 00357 M01S00347.reseq +++| SB3 WBUF 00358 M01S00348.reseq +++| SB5 -ITMA 00359 M01S00349.reseq +++| RJ SNM SET NAME IN MESSAGE 00360 M01S00350.reseq +++| WRITEC O,WBUF 00361 M01S00351.reseq +++| EQ ITMX RETURN 00362 M01S00352.reseq +++| 00363 M01S00353.reseq +++| ITMA DATA C* LINE 00000 TRUNCATED.* 00364 M01S00354.reseq +++| PLB SPACE 4,15 00365 M01S00355.reseq +++|** PLB - PACK LINE INTO A BUFFER. 00366 M01S00356.reseq +++|* 00367 M01S00357.reseq +++|* ENTRY (A1) = ADDRESS OF WORD TO START PACKING IN. 00368 M01S00358.reseq +++|* (A2) = ADDRESS OF STRING BUFFER TO PACK. 00369 M01S00359.reseq +++|* (B4) = LENGTH OF STRING TO PACK. 00370 M01S00360.reseq +++|* 00371 M01S00361.reseq +++|* EXIT LINE PACKED INTO BUFFER. 00372 M01S00362.reseq +++|* 00373 M01S00363.reseq +++|* USES X - 2, 4, 5, 7. 00374 M01S00364.reseq +++|* A - 2, 7. 00375 M01S00365.reseq +++|* B - 2, 4, 5, 7. 00376 M01S00366.reseq +++| 00377 M01S00367.reseq +++| 00378 M01S00368.reseq +++| PLB3 LX7 B2 LEFT ADJUST FINAL PACKED WORD 00379 M01S00369.reseq +++| SA7 A1+B7 STORE PACKED WORD 00380 M01S00370.reseq +++| SB5 12 00381 M01S00371.reseq +++| GE B2,B5,PLBX IF EOL GUARANTEED IN LAST WORD 00382 M01S00372.reseq +++| BX7 X7-X7 00383 M01S00373.reseq +++| SA7 A7+B1 00384 M01S00374.reseq +++| 00385 M01S00375.reseq +++| PLB SUBR ENTRY/EXIT 00386 M01S00376.reseq +++| MX4 54 00387 M01S00377.reseq +++| SB2 60 00388 M01S00378.reseq +++| SB7 B0 00389 M01S00379.reseq +++| SA2 A2-1 00390 M01S00380.reseq +++| SX7 B0+ 00391 M01S00381.reseq +++| PLB1 ZR B4,PLB3 IF ALL CHARACTERS HAVE BEEN PACKED 00392 M01S00382.reseq +++| SA2 A2+B1 GET NEXT CHARACTER 00393 M01S00383.reseq +++| BX5 X4*X2 00394 M01S00384.reseq +++| ZR X5,PLB2 IF NOT A TWELVE BIT CHARACTER 00395 M01S00385.reseq +++| AX5 6 00396 M01S00386.reseq +++| LX7 6 00397 M01S00387.reseq +++| BX7 X7+X5 PACK ESCAPE PARAT OF CHARACTER 00398 M01S00388.reseq +++| SB2 B2-6 00399 M01S00389.reseq +++| BX2 -X4*X2 GET BOTTOM SIX BITS OF CHARACTER 00400 M01S00390.reseq +++| GT B2,PLB2 IF ROOM LEFT FOR CHARACTER 00401 M01S00391.reseq +++| SA7 A1+B7 00402 M01S00392.reseq +++| SB7 B7+B1 00403 M01S00393.reseq +++| SX7 B0+ 00404 M01S00394.reseq +++| SB2 60 00405 M01S00395.reseq +++| PLB2 LX7 6 00406 M01S00396.reseq +++| BX7 X7+X2 ADD NEW CHARACTER 00407 M01S00397.reseq +++| SB2 B2-6 00408 M01S00398.reseq +++| SB4 B4-B1 00409 M01S00399.reseq +++| GT B2,PLB1 IF ROOM LEFT FOR MORE CHARACTERS 00410 M01S00400.reseq +++| SA7 A1+B7 STORE PACKED WORD 00411 M01S00401.reseq +++| SB7 B7+B1 00412 M01S00402.reseq +++| SX7 B0 00413 M01S00403.reseq +++| SB2 60 00414 M01S00404.reseq +++| EQ PLB1 PROCESS NEXT CHARACTER 00415 M01S00405.reseq +++| TITLE COMMON DECKS, LITERALS AND BUFFERS 00416 M01S00406.reseq +++|** COMMON DECKS. 00417 M01S00407.reseq +++| 00418 M01S00408.reseq +++| 00419 M01S00409.reseq +++| LIST X 00420 M01S00410.reseq +++|*CALL COMCBLP 00421 M01S00411.reseq +++| LIST -X 00422 M01S00412.reseq +++|*CALL COMCCDD 00423 M01S00413.reseq +++|*CALL COMCCIO 00424 M01S00414.reseq +++|*CALL COMCDXB 00425 M01S00415.reseq +++|*CALL COMCLFM 00426 M01S00416.reseq +++|*CALL COMCRDC 00427 M01S00417.reseq +++|*CALL COMCRDO 00428 M01S00418.reseq +++|*CALL COMCRDW 00429 M01S00419.reseq +++|*CALL COMCSNM 00430 M01S00420.reseq +++|*CALL COMCSTF 00431 M01S00421.reseq +++|*CALL COMCSYS 00432 M01S00422.reseq +++|*CALL COMCUSB 00433 M01S00423.reseq +++|*CALL COMCWTC 00434 M01S00424.reseq +++|*CALL COMCWTW 00435 M01S00425.reseq +++| BUFFERS SPACE 4,10 00436 M01S00426.reseq +++|** BUFFERS. 00437 M01S00427.reseq +++| 00438 M01S00428.reseq +++| 00439 M01S00429.reseq +++| OBUF BSS OBUFL+1 00440 M01S00430.reseq +++| NBUF BSS NUMD+1 LINE NUMBER BUFFER 00441 M01S00431.reseq +++| USBB BSS 0 00442 M01S00432.reseq +++| SBUF BSS MNCL+1 STRING BUFFER 00443 M01S00433.reseq +++| WBUF BSS MWBL+1 WORKING BUFFER 00444 M01S00434.reseq +++| SPACE 4 00445 M01S00435.reseq +++| USE LITERALS 00446 M01S00436.reseq +++| SPACE 4 00447 M01S00437.reseq +++|** IF THE FILE TYPE IS NOT BASIC, ALL ROUTINES FROM 00448 M01S00438.reseq +++|* THIS POINT ON ARE OVERLAYED WITH BUFFERS. 00449 M01S00439.reseq +++| 00450 M01S00440.reseq +++| 00451 M01S00441.reseq +++| BUFF BSS 0 00452 M01S00442.reseq +++| TITLE BASIC INTERNAL LINE NUMBER RESEQUENCE ROUTINES 00453 M01S00443.reseq +++| 00454 M01S00444.reseq +++| RBF SPACE 4,10 00455 M01S00445.reseq +++|** RBF - RESEQUENCE BASIC FILE. 00456 M01S00446.reseq +++|* 00457 M01S00447.reseq +++|* EXIT RESEQUENCED FILE RESIDING ON *SCR*. 00458 M01S00448.reseq +++|* 00459 M01S00449.reseq +++|* USES X - ALL. 00460 M01S00450.reseq +++|* A - 1, 2, 6, 7. 00461 M01S00451.reseq +++|* B - 2, 3, 4, 6, 7. 00462 M01S00452.reseq +++|* 00463 M01S00453.reseq +++|* CALLS BLP, PLB, USB. 00464 M01S00454.reseq +++|* 00465 M01S00455.reseq +++|* MACROS READC, READEI, READO, RETURN, REWIND, WRITEC, WRITER. 00466 M01S00456.reseq +++| 00467 M01S00457.reseq +++| 00468 M01S00458.reseq +++| RBF SUBR ENTRY/EXIT 00469 M01S00459.reseq +++| SA2 SCR1 00470 M01S00460.reseq +++| MX1 -18 00471 M01S00461.reseq +++| BX3 -X1*X2 00472 M01S00462.reseq +++| SX3 X3-3 00473 M01S00463.reseq +++| NZ X3,RBF1 IF FILE *SCR1* WAS USED 00474 M01S00464.reseq +++| SX4 1033B 00475 M01S00465.reseq +++| BX2 X1*X2 00476 M01S00466.reseq +++| IX6 X2+X4 00477 M01S00467.reseq +++| SA6 A2+ SET FILE NAME AND STATUS 00478 M01S00468.reseq +++| EQ RBF2 INITIALIZE FET FOR FILE *SCR* 00479 M01S00469.reseq +++| 00480 M01S00470.reseq +++| RBF1 WRITER SCR1 00481 M01S00471.reseq +++| REWIND X2 00482 M01S00472.reseq +++| READEI X2 00483 M01S00473.reseq +++| RBF2 RETURN SCR,R PREPARE SCRATCH FILE 00484 M01S00474.reseq +++| SA2 SCR CLEAR FUNCTION CODE FROM FET 00485 M01S00475.reseq +++| MX0 42 00486 M01S00476.reseq +++| BX7 X0*X2 00487 M01S00477.reseq +++| SX0 3 00488 M01S00478.reseq +++| BX7 X0+X7 00489 M01S00479.reseq +++| SA7 A2 00490 M01S00480.reseq +++| SA1 INP+1 00491 M01S00481.reseq +++| SA2 INP+4 00492 M01S00482.reseq +++| BX7 X1 00493 M01S00483.reseq +++| SA7 SCR+1 SET FIRST 00494 M01S00484.reseq +++| SX7 X7 00495 M01S00485.reseq +++| SA7 A7+B1 SET IN 00496 M01S00486.reseq +++| SX6 X2 00497 M01S00487.reseq +++| SA7 A7+B1 SET OUT 00498 M01S00488.reseq +++| SA6 A7+B1 SET LIMIT 00499 M01S00489.reseq +++| 00500 M01S00490.reseq +++|* READ A LINE. 00501 M01S00491.reseq +++| 00502 M01S00492.reseq +++| RBF3 SX6 B0+ 00503 M01S00493.reseq +++| SA6 RBFA CLEAR TRUNCATE FLAG 00504 M01S00494.reseq +++| READC SCR1,WBUF,MWBL+1 00505 M01S00495.reseq +++| NZ X1,RBFX IF EOI REACHED, RETURN 00506 M01S00496.reseq +++| BX6 X4 00507 M01S00497.reseq +++| MX0 -12 00508 M01S00498.reseq +++| RBF4 BX6 -X0*X6 00509 M01S00499.reseq +++| ZR X6,RBF5 IF EOL ENCOUNTERED 00510 M01S00500.reseq +++| READO X2 00511 M01S00501.reseq +++| EQ RBF4 CHECK FOR EOL 00512 M01S00502.reseq +++| 00513 M01S00503.reseq +++| RBF5 SB2 WBUF UNPACK LINE INTO STRING BUFFER 00514 M01S00504.reseq +++| SB6 MNCL+1
| Line S00505 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00515 M02S00505.reseq2 ---| SB3 B1+ EXTENDED CHARACTER SET 00516 M01S00004.reseq2 +++| SA1 CSET GET CHARACTER SET 00517 M01S00005.reseq2 +++| SB3 X1+ 00518 M01S00506.reseq +++| RJ USB 00519 M01S00507.reseq +++| SB2 B7-SBUF-MNCL 00520 M01S00508.reseq +++| NG B2,RBF6 IF LINE NOT TOO LONG 00521 M01S00509.reseq +++| SB7 MNCL+SBUF 00522 M01S00510.reseq +++| SX7 B1+ 00523 M01S00511.reseq +++| SA7 RBFA SET TRUNCATION FLAG 00524 M01S00512.reseq +++| RBF6 SB2 B7+B1 BASIC RESEQUENCE THE LINE 00525 M01S00513.reseq +++| SB7 SBUF+NUMD 00526 M01S00514.reseq +++| SX5 B1 SET *LNT* SORTED 00527 M01S00515.reseq +++| SX6 SBUF+MNCL 00528 M01S00516.reseq +++| SA1 LNTS 00529 M01S00517.reseq +++| SA2 LNTE 00530 M01S00518.reseq +++| SX3 B0+ 00531 M01S00519.reseq +++| RJ BLP 00532 M01S00520.reseq +++| SA2 RBFA MARK ANY TRUNCATION 00533 M01S00521.reseq +++| BX6 X1+X2 00534 M01S00522.reseq +++| SA6 A2 00535 M01S00523.reseq +++| SA2 SBUF PACK RESEQUENCED LINE 00536 M01S00524.reseq +++| SA1 WBUF 00537 M01S00525.reseq +++| SB4 B7-SBUF 00538 M01S00526.reseq +++| RJ PLB 00539 M01S00527.reseq +++| WRITEC SCR,WBUF WRITE OUT UPDATED LINE 00540 M01S00528.reseq +++| SA1 RBFA 00541 M01S00529.reseq +++| ZR X1,RBF3 IF LINE WAS NOT TRUNCATED 00542 M01S00530.reseq +++| RJ ITM ISSUE TRUNCATION MESSAGE 00543 M01S00531.reseq +++| EQ RBF3 PROCESS NEXT LINE 00544 M01S00532.reseq +++| 00545 M01S00533.reseq +++| RBFA CON 0 TRUNCATE FLAG 00546 M01S00534.reseq +++| SPACE 4 00547 M01S00535.reseq +++| IBUFF BSS 0 00548 M01S00536.reseq +++| SPACE 4,10 00549 M01S00537.reseq +++| SPACE 4 00550 M01S00538.reseq +++| TITLE PRE-RESEQUENCE PROCESSOR 00551 M01S00539.reseq +++|** PRE - PRE-RESEQUENCE PROCESSOR. 00552 M01S00540.reseq +++|* 00553 M01S00541.reseq +++|* *PRE* SETS UP THE FET FOR THE FILES, DETERMINES THE FILE 00554 M01S00542.reseq +++|* TYPE, STARTING LINE NUMBER AND INCREMENT, AND STORES THESE 00555 M01S00543.reseq +++|* INTO THEIR CORRESPONDING CELLS. IF AN ERROR IS DETECTED IN 00556 M01S00544.reseq +++|* THE STARTING LINE NUMBER, A MESSAGE IS ISSUED AND THE PROGRAM 00557 M01S00545.reseq +++|* IS ENDED. A FET IS ALSO ESTABLISHED FOR *SCR1*. 00558 M01S00546.reseq +++|* *PRE* IS THEN OVERLAYED WITH BUFFERS. 00559 M01S00547.reseq +++|* 00560 M01S00548.reseq +++|* EXIT (SYST) - SYSTEM TYPE(-1=FORTRAN,0=BASIC,1=TEXT, 00561 M01S00549.reseq +++|* 2=OTHER). 00562 M01S00550.reseq +++|* (LNUM) - STARTING LINE NUMBER. 00563 M01S00551.reseq +++|* (INCR) - INCREMENT. 00564 M01S00552.reseq +++|* (LNTS) = FWA OF LINE NUMBER TABLE. 00565 M01S00553.reseq +++|* (LNTE) = LWA+1 OF LINE NUMBER TABLE. 00566 M01S00554.reseq +++|* 00567 M01S00555.reseq +++|* USES X - ALL. 00568 M01S00556.reseq +++|* A - 1, 2, 3, 5, 6, 7. 00569 M01S00557.reseq +++|* 00570 M01S00558.reseq +++|* CALLS CVD. 00571 M01S00559.reseq +++|*
| Line S00560 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00572 M02S00560.reseq2 ---|* MACROS ABORT, MESSAGE, RETURN, STATUS. 00573 M01S00006.reseq2 +++|* MACROS ABORT, MESSAGE, RETURN, STATUS, TSTATUS. 00574 M01S00561.reseq +++| 00575 M01S00562.reseq +++| 00576 M01S00563.reseq +++| PRE SUBR ENTRY/EXIT 00577 M01S00564.reseq +++| SB1 1
| Line S00565 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | reseq1 |
Seq # *Modification Id* Act ----------------------------+ 00578 M02S00565.reseq1 ---| SX6 A0 00579 M01S00001.reseq1 +++| SX6 A0-4 00580 M01S00566.reseq +++| SA6 FLDL SAVE FIELD LENGTH 00581 M01S00567.reseq +++| RETURN SCR1,R PREPARE SCRATCH FILE 00582 M01S00568.reseq +++| MX0 42 CLEAR FUNCTION CODE FROM FET 00583 M01S00569.reseq +++| SA1 SCR1 00584 M01S00570.reseq +++| BX6 X0*X1 00585 M01S00571.reseq +++| SX0 3 00586 M01S00572.reseq +++| BX6 X0+X6 00587 M01S00573.reseq +++| SA6 A1 00588 M01S00574.reseq +++| SX0 77B 00589 M01S00575.reseq +++| SA3 ACTR 00590 M01S00576.reseq +++| SX3 X3-1 00591 M01S00577.reseq +++| PL X3,PRE3 IF PARAMETER COUNT NOT ZERO
| Line S00578 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00592 M02S00578.v23l617 ---| PRE2 MESSAGE (=C*RESEQ CONTROL CARD ERROR.*) 00593 M01S00007.v23l617 +++| PRE2 MESSAGE (=C*RESEQ COMMAND ERROR.*) 00594 M01S00579.reseq +++| ABORT 00595 M01S00580.reseq +++| 00596 M01S00581.reseq +++| PRE3 SA2 ARGR 00597 M01S00582.reseq +++| MX5 42 00598 M01S00583.reseq +++| SX4 3 00599 M01S00584.reseq +++| BX6 X5*X2 00600 M01S00585.reseq +++| IX6 X4+X6 00601 M01S00586.reseq +++| SA6 INP SET FIRST WORD OF PRIMARY FILE FET 00602 M01S00587.reseq +++| SX3 X3-1 00603 M01S00588.reseq +++| NG X3,PRE5 IF NO SYSTEM PASSED 00604 M01S00589.reseq +++| SA2 ARGR+1 GET FILE TYPE (B=BASIC) 00605 M01S00590.reseq +++| BX2 X5*X2 00606 M01S00591.reseq +++| LX2 6 00607 M01S00592.reseq +++| SX1 B1+B1 00608 M01S00593.reseq +++| BX6 X2-X1 00609 M01S00594.reseq +++| ZR X6,PRE4 IF TYPE BASIC 00610 M01S00595.reseq +++| SX6 B1 00611 M01S00596.reseq +++| SA1 =1RT 00612 M01S00597.reseq +++| BX7 X2-X1 00613 M01S00598.reseq +++| SA1 =1RF 00614 M01S00599.reseq +++| BX5 X2-X1 00615 M01S00600.reseq +++| NZ X5,PRE3.1 IF TYPE NOT FORTRAN 00616 M01S00601.reseq +++| SX6 -B1 00617 M01S00602.reseq +++| EQ PRE4 STORE FILE TYPE 00618 M01S00603.reseq +++| 00619 M01S00604.reseq +++| PRE3.1 NZ X7,PRE5 IF TYPE NOT TEXT 00620 M01S00605.reseq +++| PRE4 SA6 SYST STORE FILE TYPE
| Line S00606 Modification History | |
|---|---|
M01 (Added by) | reseq |
M02 (Updated by) | reseq2 |
Seq # *Modification Id* Act ----------------------------+ 00621 M02S00606.reseq2 ---| PRE5 SA5 FLDL 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 M01S00607.reseq +++| SA2 SYST 00636 M01S00608.reseq +++| NZ X2,PRE6 IF FILE TYPE NOT BASIC 00637 M01S00609.reseq +++| SX7 IBUFF 00638 M01S00610.reseq +++| IX6 X5-X7 00639 M01S00611.reseq +++| AX6 2 00640 M01S00612.reseq +++| EQ PRE7 INITIALIZE REST OF FET 00641 M01S00613.reseq +++| 00642 M01S00614.reseq +++| PRE6 SX7 BUFF OVERLAY BASIC ONLY ROUTINES 00643 M01S00615.reseq +++| IX6 X5-X7 SUBROUTINES WITH INPUT BUFFERS 00644 M01S00616.reseq +++| AX6 1 00645 M01S00617.reseq +++| PRE7 SX6 X6-50 00646 M01S00618.reseq +++| SX4 FETL-5 FET LENGTH - 5 00647 M01S00619.reseq +++| IX6 X6+X7 00648 M01S00620.reseq +++| LX4 18 00649 M01S00621.reseq +++| IX7 X7+X4 00650 M01S00622.reseq +++| SA7 INP+1 SET FIRST 00651 M01S00623.reseq +++| SX7 X7 00652 M01S00624.reseq +++| SA7 A7+B1 SET IN 00653 M01S00625.reseq +++| SA7 A7+B1 SET OUT 00654 M01S00626.reseq +++| SA6 A7+B1 SET LIMIT 00655 M01S00627.reseq +++| SX3 X3-1 00656 M01S00628.reseq +++| NG X3,PRE9 IF NO STARTING LINE NUMBER PASSED 00657 M01S00629.reseq +++| SA2 ARGR+2 GET STARTING LINE NUMBER 00658 M01S00630.reseq +++| MX0 -6 00659 M01S00631.reseq +++| BX7 -X0*X2 00660 M01S00632.reseq +++| NZ X7,PRE2 IF SPECIAL CHARACTER 00661 M01S00633.reseq +++| ZR X2,PRE9 IF NO PARAMETER 00662 M01S00634.reseq +++| RJ CVD CONVERT STARTING LINE NUMBER 00663 M01S00635.reseq +++| NG X6,PRE8 IF CONVERSION ERROR 00664 M01S00636.reseq +++| SX5 X6-LIMIT 00665 M01S00637.reseq +++| NG X5,PRE8.1 IF LINE NUMBER LIMIT NOT EXCEEDED 00666 M01S00638.reseq +++| MESSAGE (=C*LINE NUMBER LIMIT EXCEEDED.*) 00667 M01S00639.reseq +++| PRE8 ABORT 00668 M01S00640.reseq +++| 00669 M01S00641.reseq +++| PRE8.1 SA6 LNUM SAVE STARTING LINE NUMBER 00670 M01S00642.reseq +++| PRE9 SX3 X3-1 00671 M01S00643.reseq +++| NG X3,PRE10 IF NO INCREMENT PASSED 00672 M01S00644.reseq +++| SA2 ARGR+3 GET LINE INCREMENT 00673 M01S00645.reseq +++| MX0 -6 00674 M01S00646.reseq +++| BX6 -X0*X2 00675 M01S00647.reseq +++| NZ X6,PRE2 IF SPECIAL CHARACTER 00676 M01S00648.reseq +++| ZR X2,PRE10 IF NO PARAMETER 00677 M01S00649.reseq +++| RJ CVD CONVERT LINE NUMBER INCREMENT 00678 M01S00650.reseq +++| NG X6,PRE8 IF CONVERSION ERROR 00679 M01S00651.reseq +++| SA6 INCR SAVE INCREMENT 00680 M01S00652.reseq +++| PRE10 STATUS INP,P 00681 M01S00653.reseq +++| SA1 INP+5 00682 M01S00654.reseq +++| MX3 -6 00683 M01S00655.reseq +++| BX7 X7-X7 00684 M01S00656.reseq +++| AX1 6 00685 M01S00657.reseq +++| BX4 -X3*X1 00686 M01S00658.reseq +++| SX6 X4-PMFT 00687 M01S00659.reseq +++| SA6 DAF STORE DIRECT ACCESS FILE FLAG 00688 M01S00660.reseq +++| SA3 INP+4 00689 M01S00661.reseq +++| SA7 A1+B1 CLEAR RANDOM INDEX 00690 M01S00662.reseq +++| SX7 X3+B1 00691 M01S00663.reseq +++| SX5 FETL-5 FET LENGTH - 5 00692 M01S00664.reseq +++| LX5 18 00693 M01S00665.reseq +++| BX6 X7+X5 00694 M01S00666.reseq +++| SA6 SCR1+1 SET FIRST 00695 M01S00667.reseq +++| SA7 A6+B1 SET IN 00696 M01S00668.reseq +++| SA7 A7+B1 SET OUT 00697 M01S00669.reseq +++| SA5 SYST 00698 M01S00670.reseq +++| NZ X5,PRE11 IF FILE TYPE NOT BASIC 00699 M01S00671.reseq +++| SA1 INP+2 00700 M01S00672.reseq +++| IX4 X3-X1 BUFFER LENGTH 00701 M01S00673.reseq +++| IX6 X7+X4 00702 M01S00674.reseq +++| SX6 X6+100 00703 M01S00675.reseq +++| SX7 X6+B1 00704 M01S00676.reseq +++| SA7 LNTS 00705 M01S00677.reseq +++| SA7 LNTE 00706 M01S00678.reseq +++| EQ PRE12 SET LIMIT 00707 M01S00679.reseq +++| 00708 M01S00680.reseq +++| PRE11 SA1 FLDL 00709 M01S00681.reseq +++| SX6 X1+ 00710 M01S00682.reseq +++| PRE12 SA6 SCR1+4 SET LIMIT 00711 M01S00683.reseq +++| EQ PREX RETURN 00712 M01S00020.reseq2 +++| 00713 M01S00021.reseq2 +++| 00714 M01S00022.reseq2 +++| PREA BSS 2 BUFFER FOR *TSTATUS* MACRO 00715 M01S00684.reseq +++| SPACE 4 00716 M01S00685.reseq +++| RFL= EQU 6000B 00717 M01S00686.reseq +++| 00718 M01S00687.reseq +++| 00719 M01S00688.reseq +++| END
cdc/nos2.source/opl.opl871/deck/reseq.txt · Last modified: by 127.0.0.1