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