cdc:nos2.source:opl.opl871:deck:sfs
Deck SFS
5 Modifications
Listing Sections
- Deck SFS Start
- Deck SFS Part 1 (Line 1574)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.sfs +++| IDENT SFS,SFSS,,01,00 00002 M01S00002.sfs +++| ABS 00003 M01S00003.sfs +++| SST 00004 M01S00004.sfs +++| TITLE SFS - SPECIAL SYSTEM FILE SUPERVISOR. 00005 M01S00005.sfs +++| SYSCOM B1 00006 M01S00006.sfs +++| SPACE 4 00007 M01S00007.sfs +++|*COMMENT SFS - SPECIAL SYSTEM FILE SUPERVISOR.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1972. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.sfs +++| SPACE 4 00011 M01S00010.sfs +++|*** SFS - SPECIAL SYSTEM FILE SUPERVISOR. 00012 M01S00011.sfs +++|* D. A. HIVELEY. 72/05/23. 00013 M01S00012.sfs +++| SPACE 4 00014 M01S00013.sfs +++|*** SFS PROVIDES MACROS AND A FUNCTION PROCESSOR FOR COMMON 00015 M01S00014.sfs +++|* ROUTINES THAT PERFORM BASIC TABLE MANAGEMENT, DATA 00016 M01S00015.sfs +++|* MANIPULATION AND I/O PROCESSING FOR THE SPECIAL SYSTEM FILE 00017 M01S00016.sfs +++|* PROCESSORS, WHICH PROCESS TREE STRUCTURED FILES. 00018 M01S00017.sfs +++|* SFS MUST BE LOADED AS A 01,00 OVERLAY TO ONE OF THE SYSTEM 00019 M01S00018.sfs +++|* FILE PROCESSORS. 00020 M01S00019.sfs +++| SPACE 4 00021 M01S00020.sfs +++|*** SFS IS DESIGNED TO PROCESS TREE-STRUCTURED FILES OF A GIVEN 00022 M01S00021.sfs +++|* FORMAT. THE FUNCTIONS ARE DESIGNED TO PROCESS ANY NUMBER 00023 M01S00022.sfs +++|* LEVELS OF TREE STRUCTURE, HOWEVER, TABLE SPACE IS ONLY 00024 M01S00023.sfs +++|* ALLOCATED FOR A THREE-LEVEL TREE STRUCTURED FILE (3 DIRECTORY 00025 M01S00024.sfs +++|* LEVELS + 1 DATA LEVEL). 00026 M01S00025.sfs +++|* 00027 M01S00026.sfs +++|* THE FIRST WORD OF EACH RECORD ON THE FILE IS THE CONTROL WORD 00028 M01S00027.sfs +++|* CONTAINING SUFFICIENT INFORMATION TO DESCRIBE THE DATA WITHIN 00029 M01S00028.sfs +++|* THE RECORD. THE SECOND WORD IS NOT USED FOR MOST RECORDS 00030 M01S00029.sfs +++|* (LEVEL-0, RECORD 1, WORD 2 CONTAINS FILE CREATION AND UPDATE 00031 M01S00030.sfs +++|* DATES, AND A 24 BIT FIELD TO BE USED BY THE PROCESSOR PROGRAM. 00032 M01S00031.sfs +++|* THE THIRD WORD CONTAINS THE LINKAGE (RANDOM ADDRESS 00033 M01S00032.sfs +++|* POINTER) TO THE NEXT LOGICAL BLOCK ON THAT LEVEL, IF ONE IS 00034 M01S00033.sfs +++|* PRESENT. THE REMAINING WORDS IN THE RECORD ARE DIRECTORY 00035 M01S00034.sfs +++|* ENTRIES FOR DIRECTORY LEVEL RECORDS. A TOTAL OF 63 WORDS 00036 M01S00035.sfs +++|* (60 WORDS OF ENTRIES + 3 CONTROL WORDS) CAN BE USED IN EACH 00037 M01S00036.sfs +++|* RECORD IN THE DIRECTORY LEVELS. FOR THE DATA LEVEL, THE 00038 M01S00037.sfs +++|* CONTROL WORD SHOULD BE COMPATIBLE WITH THE CONTROL WORDS FOR 00039 M01S00038.sfs +++|* DIRECTORY LEVELS. THE REMAINDER CAN BE ANY LENGTH AND FORMAT 00040 M01S00039.sfs +++|* DESIRED. BECAUSE OF THIS FLEXIBLE FORMAT, THE PROCESSOR 00041 M01S00040.sfs +++|* PROGRAM MUST HANDLE I/O OF THE DATA-LEVEL RECORD. HOWEVER, 00042 M01S00041.sfs +++|* IF THE DATA-LEVEL IS CONSTRUCTED SIMILAR TO THE DIRECTORY- 00043 M01S00042.sfs +++|* LEVEL RECORDS, SFS FUNCTIONS CAN BE USED TO PERFORM THE I/O. 00044 M01S00043.sfs +++|* THE INFORMATION IN ALL LEVELS IS MAINTAINED IN 00045 M01S00044.sfs +++|* COLLATED SEQUENCE. 00046 M01S00045.sfs +++|* 00047 M01S00046.sfs +++|* CONTROL WORD FORMAT IS AS FOLLOWS - 00048 M01S00047.sfs +++|* 00049 M01S00048.sfs +++|*T 12/DL,12/WIR,12/WPE,12/NOE,12/FWAD
Figure
00050 M01S00049.sfs +++|* DL = DATA LEVEL. 00051 M01S00050.sfs +++|* WIR = WORDS IN RECORD. 00052 M01S00051.sfs +++|* WPE = WORDS PER ENTRY. 00053 M01S00052.sfs +++|* NOE = NUMBER OF ENTRIES. 00054 M01S00053.sfs +++|* FWAD = FIRST WORD ADDRESS OF DATA ENTRIES. 00055 M01S00054.sfs +++|* 00056 M01S00055.sfs +++|* THE 0 AND 1 DIRECTORY LEVELS CORRESPOND TO THE PRIMARY LEVEL 00057 M01S00056.sfs +++|* OF THE TREE. THE ENTRIES IN THE 0-LEVEL CONSIST OF THE FIRST 00058 M01S00057.sfs +++|* ENTRY (AND CORRESPONDING RANDOM ADDRESS) OF EACH 1-LEVEL 00059 M01S00058.sfs +++|* RECORD. ALL PRIMARY ENTRIES CAN BE FOUND IN THE 1-LEVEL 00060 M01S00059.sfs +++|* DIRECTORY. THIS METHOD ENABLES QUICKER ACCESS TO A GIVEN 00061 M01S00060.sfs +++|* PRIMARY ENTRY. THE FIRST SECTOR OF THE FILE IS DEFINED TO BE 00062 M01S00061.sfs +++|* THE FIRST 0-LEVEL DIRECTORY RECORD WHICH IS LINKED TO THE 00063 M01S00062.sfs +++|* NEXT 0-LEVEL RECORD. EXCEPT FOR THE PRIMARY LEVEL, THERE 00064 M01S00063.sfs +++|* EXISTS 1 DIRECTORY LEVEL FOR EACH TREE LEVEL TERMINATING 00065 M01S00064.sfs +++|* WITH THE DATA LEVEL. 00066 M01S00065.sfs +++| SPACE 4 00067 M01S00066.sfs +++|*** TREE-STRUCTURE FILE LAYOUT. 00068 M01S00067.sfs +++|* 00069 M01S00068.sfs +++|* LEVEL-0 LEVEL-1 LEVEL-2 DATA-LEVEL 00070 M01S00069.sfs +++|* RECORD 0 1 3 5 00071 M01S00070.sfs +++|* ******** ******** ******** ********* 00072 M01S00071.sfs +++|* * * * * * * * * 00073 M01S00072.sfs +++|* *CH1 * *CH1 * *P1 * *CONTROL* 00074 M01S00073.sfs +++|* * 1*.......* 3*.......* 5*.......*FIELDS * 00075 M01S00074.sfs +++|* *CH7 * *CH2 * *P2 * * * 00076 M01S00075.sfs +++|* * 2*. * ... *. * ... *. *U1 * 00077 M01S00076.sfs +++|* * ... * . * ... * . * ... * . *U2 * 00078 M01S00077.sfs +++|* * ... *. . * *. . * *. . * ... * 00079 M01S00078.sfs +++|* ******** . . ******** . . ******** . . ********* 00080 M01S00079.sfs +++|* . . . . 00081 M01S00080.sfs +++|* . 2 4 6 00082 M01S00081.sfs +++|* .******** ******** ********* 00083 M01S00082.sfs +++|* * * * * * * 00084 M01S00083.sfs +++|* *CH7 * *P1 * *CONTROL* 00085 M01S00084.sfs +++|* * 4*.......* 6*.......*FIELDS * 00086 M01S00085.sfs +++|* *CH8 * *P2 * * * 00087 M01S00086.sfs +++|* * ... *. * ... *. *U1 * 00088 M01S00087.sfs +++|* * ... * . * ... * . *U2 * 00089 M01S00088.sfs +++|* * *. . * *. . * ... * 00090 M01S00089.sfs +++|* ******** . . ******** . . ********* 00091 M01S00090.sfs +++|* . . 00092 M01S00091.sfs +++|* CHN = PRIMARY ENTRIES. 00093 M01S00092.sfs +++|* PN = SECONDARY ENTRIES RELATED TO SPECIFIC PRIMARY ENTRY. 00094 M01S00093.sfs +++|* UN = TERTIARY ENTRIES RELATED TO SPECIFIC SECONDARY ENTRY. 00095 M01S00094.sfs +++| SPACE 4 00096 M01S00095.sfs +++|*CALL COMCMAC 00097 M01S00001.v23l617 +++|*CALL COMCDCM 00098 M01S00096.sfs +++|*CALL COMCMTM 00099 M01S00097.sfs +++| LIST X 00100 M01S00098.sfs +++|*CALL COMSSFS 00101 M01S00099.sfs +++| LIST -X 00102 M01S00001.ns2538 +++| SPACE 4,10 00103 M01S00002.ns2538 +++|**** ASSEMBLY CONSTANTS. 00104 M01S00100.sfs +++| 00105 M01S00101.sfs +++| 00106 M01S00003.ns2538 +++| MWK$ EQU 1 DEFINE MULTIPLE WORD SORT KEY FOR *GMS* 00107 M01S00102.sfs +++| OV EQU 1 OVERLAY TYPE 00108 M01S00004.ns2538 +++|**** 00109 M01S00103.sfs +++| TITLE PROCESSOR PROGRAM COMMUNICATION AREA. 00110 M01S00104.sfs +++| SFSS EQU FUNC 00111 M01S00105.sfs +++| 00112 M01S00106.sfs +++| 00113 M01S00107.sfs +++| IDIRC INITIALIZE DIRECT CELLS 00114 M01S00108.sfs +++| 00115 M01S00109.sfs +++| 00116 M01S00110.sfs +++| ITAB 0,0,0,0 INITIALIZE TABLES 00117 M01S00111.sfs +++| TITLE FUNCTION PROCESSOR CALL. 00118 M01S00112.sfs +++| LOV SPACE 4 00119 M01S00113.sfs +++| ERRNG OVLA-.3-1 00120 M01S00114.sfs +++| SPACE 4 00121 M01S00115.sfs +++|** FUNCTION PROCESSOR. 00122 M01S00116.sfs +++|* 00123 M01S00117.sfs +++|* (B5) FUNCTION NUMBER. 00124 M01S00118.sfs +++|* 00125 M01S00119.sfs +++|* USES A - 2, 7. 00126 M01S00120.sfs +++|* X - 2, 7. 00127 M01S00121.sfs +++|* B - 1, 5. 00128 M01S00122.sfs +++| 00129 M01S00123.sfs +++| 00130 M01S00124.sfs +++| ORG FUNC 00131 M01S00125.sfs +++|*FUNC 00132 M01S00126.sfs +++| PS ENTRY/EXIT 00133 M01S00127.sfs +++| SX2 B5-MAXT 00134 M01S00128.sfs +++| PL X2,FUNC1 IF FUNCTION NUMBER EXCEEDS MAXIMUM 00135 M01S00129.sfs +++| SA2 B5+FUNCT 00136 M01S00130.sfs +++| SB5 X2 00137 M01S00131.sfs +++| SA2 FUNC 00138 M01S00132.sfs +++| BX7 X2 00139 M01S00133.sfs +++| SA7 B5 00140 M01S00134.sfs +++| SB5 B5+B1 00141 M01S00135.sfs +++| JP B5 00142 M01S00136.sfs +++| 00143 M01S00137.sfs +++| FUNCA DATA C* ILLEGAL SFS FUNCTION.* 00144 M01S00138.sfs +++| FUNC1 SX2 FUNCA 00145 M01S00139.sfs +++| MESSAGE X2 00146 M01S00140.sfs +++| ABORT 00147 M01S00141.sfs +++| 00148 M01S00142.sfs +++| FUNCT INDEX CON,MAXT,( ) 00149 M01S00143.sfs +++| INDEX ,ASCT,(/ASC/) 00150 M01S00144.sfs +++| INDEX ,SCIT,(/SCI/) 00151 M01S00145.sfs +++| INDEX ,ANBT,(/ANB/) 00152 M01S00146.sfs +++| INDEX ,CCWT,(/CCW/) 00153 M01S00147.sfs +++| INDEX ,SBTT,(/SBT/) 00154 M01S00148.sfs +++| INDEX ,SPBT,(/SPB/) 00155 M01S00149.sfs +++| INDEX ,PNAT,(/PNA/) 00156 M01S00150.sfs +++| INDEX ,PNET,(/PNE/) 00157 M01S00151.sfs +++| INDEX ,DZET,(/DZE/) 00158 M01S00152.sfs +++| INDEX ,MWST,(/MWS/) 00159 M01S00153.sfs +++| INDEX ,SDFT,(/SDF/) 00160 M01S00154.sfs +++| INDEX ,SFTT,(/SFT/) 00161 M01S00155.sfs +++| INDEX ,STBT,(/STB/) 00162 M01S00156.sfs +++| INDEX ,BLDT,(/BLD/) 00163 M01S00157.sfs +++| INDEX ,RBAT,(/RBA/) 00164 M01S00158.sfs +++| INDEX ,UDDT,(/UDD/) 00165 M01S00159.sfs +++| INDEX ,WTBT,(/WTB/) 00166 M01S00160.sfs +++| LOC *O 00167 M01S00161.sfs +++| TITLE INPUT PROCESSING ROUTINES. 00168 M01S00162.sfs +++|*** TO PROCESS INPUT DIRECTIVES, A CALL TO *ASC* IS ALL 00169 M01S00163.sfs +++|* THAT IS REQUIRED. *ASC* ASSEMBLES CHARACTERS UNTIL A 00170 M01S00164.sfs +++|* SEPARATOR IS ENCOUNTERED UP TO A MAXIMUM OF TEN CHARACTERS 00171 M01S00165.sfs +++|* PER CALL. 00172 M01S00166.sfs +++|* THE CONTENTS OF *B6* AND *ET* REFLECT FILE 00173 M01S00167.sfs +++|* POSITION UPON EXIT. 00174 M01S00168.sfs +++|* 00175 M01S00169.sfs +++|* DEPENDING ON STATUS OF *OP* AND *OT* DATA WILL BE 00176 M01S00170.sfs +++|* RETRIEVED FROM THE INPUT FILE, TERMINAL OR K-DISPLAY. 00177 M01S00171.sfs +++|* FOR K-DISPLAY PROCESSING, *KD* SHOULD CONTAIN THE 00178 M01S00172.sfs +++|* ADDRESS OF THE K-DISPLAY CONTROL WORD. IF K-DISPLAY 00179 M01S00173.sfs +++|* MESSAGE ADDRESSES ARE SET IN *M1* AND *M2* THESE 00180 M01S00174.sfs +++|* MESSAGE AREAS WILL BE CLEARED UPON RECEIVING INPUT. 00181 M01S00002.v23l617 +++|* IF *IL* IS NON-ZERO, K-DISPLAY INPUT WILL BE MOVED TO 00182 M01S00003.v23l617 +++|* THE ADDRESS CONTAINED IN *IL* BEFORE ISSUING THE 00183 M01S00004.v23l617 +++|* THE CONSOLE MACRO. THIS LOCATION WILL BE BLANK-FILLED 00184 M01S00005.v23l617 +++|* TO FIVE WORDS AFTER ISSUING THE CONSOLE MACRO. 00185 M01S00175.sfs +++| ASC SPACE 4 00186 M01S00176.sfs +++|** ASC - ASSEMBLE CHARACTERS. 00187 M01S00177.sfs +++|* 00188 M01S00178.sfs +++|* ENTRY (SP) STRING BUFFER ADDRESS OF PREVIOUS CHAR. 00189 M01S00179.sfs +++|* (SM) STRING BUFFER LIMIT. 00190 M01S00180.sfs +++|* (X0) INPUT FET ADDRESS. 00191 M01S00181.sfs +++|* (X1) BIT STRING OF CHARACTERS TO PERMIT. 00192 M01S00182.sfs +++|* (X6) BIT STRING OF CHARACTERS TO SUPPRESS. 00193 M01S00183.sfs +++|* IF BIT POSITION EQUALING (SPECIAL CHARACTER DISPLAY 00194 M01S00184.sfs +++|* CODE - 45B) IS SET, THAT CHARACTER IS SUPPRESSED OR 00195 M01S00185.sfs +++|* PERMITTED AS DATA (NOT TREATED AS SEPARATOR). 00196 M01S00186.sfs +++|* 00197 M01S00187.sfs +++|* EXIT (SP) UPDATED STRING BUFFER ADDRESS. 00198 M01S00188.sfs +++|* (X6) LEFT -JUSTIFIED ASSEMBLED CHARACTERS. 00199 M01S00189.sfs +++|* (X5) RIGHT-JUSTIFIED ASSEMBLED CHARACTERS. 00200 M01S00190.sfs +++|* (X4) NUMBER OF CHARACTERS 00201 M01S00191.sfs +++|* (B5) SEPARATOR (0 IF END OF LINE). 00202 M01S00192.sfs +++|* (B6) = 0 IF ENTRY TERMINATION */*. 00203 M01S00193.sfs +++|* (B6) " 0 ASSEMBLY COMPLETE. 00204 M01S00194.sfs +++|* (ET) = -1 IF EOF. 00205 M01S00195.sfs +++|* = +1 IF */*. 00206 M01S00196.sfs +++|* 00207 M01S00197.sfs +++|* CALLS ISB. 00208 M01S00198.sfs +++|* 00209 M01S00199.sfs +++|* USES ALL REGISTERS EXCEPT A0 AND A5. 00210 M01S00200.sfs +++| 00211 M01S00201.sfs +++| 00212 M01S00202.sfs +++| ASC6 SX4 -B4 00213 M01S00203.sfs +++| SX4 X4+10D 00214 M01S00204.sfs +++| SX6 B2 00215 M01S00205.sfs +++| SA6 SP 00216 M01S00206.sfs +++| BX6 X6-X6 00217 M01S00207.sfs +++| SB3 B4+B4 00218 M01S00208.sfs +++| ZR X4,ASCX RETURN - NO CHARACTERS ASSEMBLED 00219 M01S00209.sfs +++| SB4 B3+B3 00220 M01S00210.sfs +++| SB4 B4+B3 00221 M01S00211.sfs +++| ZR X5,ASCX RETURN - ASSEMBLY REGISTER EMPTY 00222 M01S00212.sfs +++| LX6 X5,B4 00223 M01S00213.sfs +++| 00224 M01S00214.sfs +++| ASC SUBR ENTRY/EXIT 00225 M01S00215.sfs +++| BX5 X5-X5 00226 M01S00216.sfs +++| SB4 10D 00227 M01S00217.sfs +++| BX7 X1 00228 M01S00218.sfs +++| SB6 B1 00229 M01S00219.sfs +++| 00230 M01S00220.sfs +++| ASC1 SA1 SP SET STRING POINTER 00231 M01S00221.sfs +++| SB2 X1 00232 M01S00222.sfs +++| SB5 B0 SET END OF LINE INDICATOR 00233 M01S00223.sfs +++| SA1 SM SET MAXIMUM SCAN CHARACTERS 00234 M01S00224.sfs +++| SB7 SBCAL CHARACTER ASSEMBLY LIMIT 00235 M01S00225.sfs +++| SB3 X1 00236 M01S00226.sfs +++| LE B3,B7,ASC1.1 IF LINE LENGTH .LE. CHARACTER LIMIT 00237 M01S00227.sfs +++| SB3 B7 00238 M01S00228.sfs +++| ASC1.1 GE B2,B3,ASC4 IF BUFFER EMPTY 00239 M01S00229.sfs +++| ASC2 SB2 B2+B1 00240 M01S00230.sfs +++| GE B2,B3,ASC6 IF END OF STRING BUFFER 00241 M01S00231.sfs +++| SA1 B2 00242 M01S00232.sfs +++| SB5 X1 SET SEPARTOR 00243 M01S00233.sfs +++| SB7 X1-1R+ 00244 M01S00234.sfs +++| LT B7,ASC3 IF NOT SPECIAL CHARACTER 00245 M01S00235.sfs +++| AX4 X6,B7 00246 M01S00236.sfs +++| LX4 59 00247 M01S00237.sfs +++| NG X4,ASC2 IF CHARACTER TO BE SUPPRESSED 00248 M01S00238.sfs +++| AX4 X7,B7 00249 M01S00239.sfs +++| LX4 59 00250 M01S00240.sfs +++| PL X4,ASC6 IF CHARACTER NOT TO BE PERMITTED 00251 M01S00241.sfs +++| ASC3 LX5 6 00252 M01S00242.sfs +++| SB4 B4-1 00253 M01S00243.sfs +++| BX5 X5+X1 00254 M01S00244.sfs +++| NE B4,ASC2 IF MORE CHARACTERS TO ASSEMBLE 00255 M01S00245.sfs +++| SB6 B1+ 00256 M01S00246.sfs +++| EQ ASC6 00257 M01S00247.sfs +++| 00258 M01S00248.sfs +++| ASC4 SA6 ASCA 00259 M01S00249.sfs +++| SA7 A6+B1 00260 M01S00250.sfs +++| SX6 B4 SAVE CHARACTER COUNT 00261 M01S00251.sfs +++| SA6 ASCB 00262 M01S00252.sfs +++| RJ ISB INPUT STRING BUFFER 00263 M01S00253.sfs +++| SA2 ASCB RESTORE CHARACTER COUNT 00264 M01S00254.sfs +++| SA1 ASCA 00265 M01S00255.sfs +++| SB4 X2 00266 M01S00256.sfs +++| BX6 X1 00267 M01S00257.sfs +++| SA1 A1+B1
| Line S00258 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | sfs1 |
Seq # *Modification Id* Act ----------------------------+ 00268 M02S00258.sfs1 ---| SX7 X1 00269 M01S00001.sfs1 +++| BX7 X1 00270 M01S00259.sfs +++| NE B6,ASC1 LOOP FOR NEXT CHARACTER 00271 M01S00260.sfs +++| SA1 SP RESET STRING POINTER 00272 M01S00261.sfs +++| SB2 X1 00273 M01S00262.sfs +++| SB5 B0 RESET END OF LINE INDICATOR 00274 M01S00263.sfs +++| EQ ASC6 RETURN - IF EOF OR NEW CHARGE NUMBER 00275 M01S00264.sfs +++| 00276 M01S00265.sfs +++| ASCA CON 0,0 HOLD FOR SPECIAL CHARACTER BIT CODES 00277 M01S00266.sfs +++| ASCB CON 0 HOLD AREA FOR CHARACTER COUNT 00278 M01S00267.sfs +++| ISB SPACE 4 00279 M01S00268.sfs +++|** ISB - INPUT STRING BUFFER. 00280 M01S00269.sfs +++|* IF (LP) " 0, EXECUTE LIST PROCESSOR AFTER READING SOURCE LINE 00281 M01S00270.sfs +++|* TO STRING BUFFER. 00282 M01S00271.sfs +++|* 00283 M01S00272.sfs +++|* ENTRY (X0) INPUT FET ADDRESS, IF NOT K-DISPLAY. 00284 M01S00273.sfs +++|* 00285 M01S00274.sfs +++|* EXIT (SP) BEGINNING OF STRING BUFFER. 00286 M01S00275.sfs +++|* (SM) STRING BUFFER LIMIT. 00287 M01S00276.sfs +++|* (B6) = 0 IF NEW PRIMARY ENTRY OR EOF. 00288 M01S00277.sfs +++|* (NP) " 0 IF NEW PRIMARY ENTRY. 00289 M01S00278.sfs +++|* (ET) = -1 IF EOF. 00290 M01S00279.sfs +++|* = +1 IF */*. 00291 M01S00280.sfs +++|* 00292 M01S00281.sfs +++|* CALLS KIP, RDS, SIN. 00293 M01S00282.sfs +++|* 00294 M01S00283.sfs +++|* USES ALL REGISTERS EXCEPT A0, A5, X5. 00295 M01S00284.sfs +++| 00296 M01S00285.sfs +++| 00297 M01S00286.sfs +++| ISB SUBR ENTRY/EXIT 00298 M01S00287.sfs +++| SA1 OP 00299 M01S00288.sfs +++| SX1 X1-KOPT 00300 M01S00289.sfs +++| NZ X1,ISB1 IF NOT K-DISPLAY 00301 M01S00290.sfs +++| RJ KIP KEYBOARD INPUT 00302 M01S00291.sfs +++| EQ ISB2 00303 M01S00292.sfs +++| 00304 M01S00293.sfs +++| ISB1 READS X0,USBB,-NCSI READ DATA TO STRING BUFFER 00305 M01S00294.sfs +++| SX7 B6 SET LWA+1 OF CHARACTER STRING 00306 M01S00295.sfs +++| SA7 SM 00307 M01S00296.sfs +++| SX6 -B1 PRESET EOF 00308 M01S00297.sfs +++| SB6 B0 00309 M01S00298.sfs +++| NZ X1,ISB4 IF EOR OR EOF 00310 M01S00299.sfs +++| ISB2 SX7 USBB-1 00311 M01S00300.sfs +++| SA1 LP READ LIST PROCESSOR ADDRESS 00312 M01S00301.sfs +++| SA7 SP SET STRING BUFFER CHARACTER POINTER 00313 M01S00302.sfs +++| SX7 USBB SET STRING BUFFER ADDRESS 00314 M01S00303.sfs +++| SB7 X1+ 00315 M01S00304.sfs +++| SA7 SB 00316 M01S00305.sfs +++| ZR X1,ISB3 IF NO LIST PROCESSOR DEFINED 00317 M01S00306.sfs +++| RJ SIN EXECUTE LIST PROCESSOR 00318 M01S00307.sfs +++| ISB3 SA3 USBB CHECK NEW ENTRY 00319 M01S00308.sfs +++| BX6 X6-X6 00320 M01S00309.sfs +++| SX7 A3 00321 M01S00310.sfs +++| SB6 X3-1R/ 00322 M01S00311.sfs +++| NZ B6,ISBX RETURN - IF NOT NEW ENTRY 00323 M01S00312.sfs +++| SX6 1 FLAG *NEW ENTRY* 00324 M01S00313.sfs +++| SA7 SP 00325 M01S00314.sfs +++| ISB4 SA6 ET 00326 M01S00315.sfs +++| EQ ISBX 00327 M01S00316.sfs +++| SIN SPACE 4 00328 M01S00317.sfs +++|** SIN - SUBROUTINE INTERFACE. 00329 M01S00318.sfs +++|* 00330 M01S00319.sfs +++|* ENTRY (B7) SUBROUTINE ADDRESS. 00331 M01S00320.sfs +++|* 00332 M01S00321.sfs +++|* EXIT TO ROUTINE WITH RETURN ADDRESS SET. 00333 M01S00322.sfs +++|* 00334 M01S00323.sfs +++|* CALLS NONE. 00335 M01S00324.sfs +++|* 00336 M01S00325.sfs +++|* USES A - 1, 6. 00337 M01S00326.sfs +++|* X - 1, 6. 00338 M01S00327.sfs +++|* B - 7. 00339 M01S00328.sfs +++| 00340 M01S00329.sfs +++| 00341 M01S00330.sfs +++| SIN SUBR ENTRY/EXIT 00342 M01S00331.sfs +++| SA1 SIN SET RETURN ADDRESS 00343 M01S00332.sfs +++| BX6 X1 00344 M01S00333.sfs +++| SA6 B7 00345 M01S00334.sfs +++| JP B7+1 JUMP TO ROUTINE 00346 M01S00335.sfs +++| KIP SPACE 4 00347 M01S00336.sfs +++|** KIP - KEYBOARD INPUT PROCESSOR. 00348 M01S00337.sfs +++|*
| Line S00338 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00349 M02S00338.v23l617 ---|* ENTRY (KD) CONTROL ADDRESS OF DISPLAY. 00350 M01S00006.v23l617 +++|* ENTRY (IL) = ADDRESS OF KEYBOARD INPUT DISPLAY LINE. 00351 M01S00007.v23l617 +++|* (KD) = CONTROL ADDRESS OF DISPLAY. 00352 M01S00339.sfs +++|* 00353 M01S00340.sfs +++|* EXIT DATA MOVED TO STRING BUFFER. 00354 M01S00008.v23l617 +++|* KEYBOARD INPUT MOVED TO DISPLAY BUFFER. 00355 M01S00341.sfs +++|*
| Line S00342 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00356 M02S00342.v23l617 ---|* CALLS MVE, RCL, USB. 00357 M01S00009.v23l617 +++|* USES X - 1, 3, 4, 6, 7. 00358 M01S00010.v23l617 +++|* A - 1, 3, 4, 6, 7. 00359 M01S00011.v23l617 +++|* B - 2. 00360 M01S00012.v23l617 +++|* 00361 M01S00013.v23l617 +++|* CALLS USB, ZTB. 00362 M01S00343.sfs +++|*
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00363 M02S00344.v23l617 ---|* USES A - 1, 2, 4, 6, 7.
| Line S00345 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00364 M02S00345.v23l617 ---|* X - 0, 1, 2, 3, 4, 6, 7.
| Line S00346 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00365 M02S00346.v23l617 ---|* B - 2, 3, 6, 7. 00366 M01S00014.v23l617 +++|* MACROS CONSOLE, MOVE, RECALL. 00367 M01S00347.sfs +++| 00368 M01S00348.sfs +++| 00369 M01S00349.sfs +++| KIP SUBR ENTRY/EXIT
| Line S00350 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00370 M02S00350.v23l617 ---| SA1 KD SET DISPLAY 00371 M01S00015.v23l617 +++| SA4 IL 00372 M01S00016.v23l617 +++| ZR X4,KIP2 IF NO INPUT DISPLAY LINE 00373 M01S00017.v23l617 +++| SB3 5 BLANK FILL KEYBOARD INPUT 00374 M01S00018.v23l617 +++| SB2 B0+ 00375 M01S00019.v23l617 +++| KIP1 SA1 KIPB+B2 00376 M01S00020.v23l617 +++| RJ ZTB CONVERT ZEROS TO BLANKS 00377 M01S00021.v23l617 +++| SA6 A1 00378 M01S00022.v23l617 +++| SB2 B2+B1 00379 M01S00023.v23l617 +++| GT B3,B2,KIP1 IF NOT END OF INPUT BUFFER 00380 M01S00024.v23l617 +++| MOVE 5,KIPB,X4 MOVE KEYBOARD INPUT TO DISPLAY BUFFER 00381 M01S00025.v23l617 +++| KIP2 SA1 KD SET DISPLAY 00382 M01S00351.sfs +++| CONSOLE X1
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00383 M02S00352.v23l617 ---|
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00384 M02S00353.v23l617 ---| KIP1 SA1 KD SET KEYBOARD BUFFER ADDRESS 00385 M01S00026.v23l617 +++| KIP3 SA1 KD SET KEYBOARD BUFFER ADDRESS 00386 M01S00354.sfs +++| SA1 X1 00387 M01S00355.sfs +++| AX1 36
| Line S00356 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00356.v23l617 ---| SA1 X1 00389 M01S00027.v23l617 +++| SA1 X1+
| Line S00357 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00390 M02S00357.v23l617 ---| NZ X1,KIP2 IF INPUT PRESENT 00391 M01S00028.v23l617 +++| NZ X1,KIP4 IF INPUT PRESENT 00392 M01S00358.sfs +++| RECALL
| Line S00359 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00359.v23l617 ---| EQ KIP1 00394 M01S00029.v23l617 +++| EQ KIP3 CHECK FOR INPUT 00395 M01S00360.sfs +++|
| Line S00361 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00396 M02S00361.v23l617 ---| KIP2 SA3 M1
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00397 M02S00362.v23l617 ---| ZR X3,KIP3 IF NO ADDRESS 00398 M01S00030.v23l617 +++| KIP4 SA3 M1 CLEAR MESSAGE LINE 00399 M01S00031.v23l617 +++| ZR X3,KIP5 IF NO ADDRESS 00400 M01S00363.sfs +++| MOVE 4,KIPA,X3
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00401 M02S00364.v23l617 ---| KIP3 SA3 M2
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00402 M02S00365.v23l617 ---| ZR X3,KIP4 IF NO ADDRESS 00403 M01S00032.v23l617 +++| KIP5 SA3 M2 00404 M01S00033.v23l617 +++| ZR X3,KIP6 IF NO ADDRESS 00405 M01S00366.sfs +++| MOVE 4,KIPA,X3
| Line S00367 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00406 M02S00367.v23l617 ---| KIP4 SA1 KD SET KEYBOARD BUFFER ADDRESS 00407 M01S00034.v23l617 +++| KIP6 SA1 KD SET KEYBOARD BUFFER ADDRESS 00408 M01S00368.sfs +++| SA1 X1 00409 M01S00369.sfs +++| AX1 36 00410 M01S00370.sfs +++| SB2 X1 00411 M01S00035.v23l617 +++| MOVE 5,B2,KIPB STORE KEYBOARD INPUT 00412 M01S00371.sfs +++| RJ USB MOVE INPUT TO STRING BUFFER 00413 M01S00372.sfs +++| SX7 X6+1 SET LWA+1 OF CHARACTER STRING 00414 M01S00373.sfs +++| SA7 SM 00415 M01S00374.sfs +++| SA1 KD 00416 M01S00375.sfs +++| SA1 X1 00417 M01S00376.sfs +++| AX1 36 00418 M01S00377.sfs +++| BX6 X6-X6 CLEAR BUFFER 00419 M01S00378.sfs +++| SA6 X1 00420 M01S00379.sfs +++| EQ KIPX RETURN 00421 M01S00380.sfs +++| 00422 M01S00036.v23l617 +++|* CHARACTER STRING TO BLANK OUT MESSAGE AREAS IN DISPLAYS.
| Line S00381 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00423 M02S00381.v23l617 ---| KIPA DIS 4, 00424 M01S00037.v23l617 +++| 00425 M01S00038.v23l617 +++| KIPA DATA 40H 00426 M01S00039.v23l617 +++| 00427 M01S00040.v23l617 +++|* BUFFER TO STORE KEYBOARD INPUT. 00428 M01S00041.v23l617 +++| 00429 M01S00042.v23l617 +++| KIPB DATA 50H 00430 M01S00382.sfs +++| 00431 M01S00383.sfs +++| 00432 M01S00384.sfs +++|** STRING BUFFER. 00433 M01S00385.sfs +++| 00434 M01S00386.sfs +++| NCSI EQU 80 NUMBER OF CHARACTERS TO SCAN ON INPUT 00435 M01S00387.sfs +++| DATA 1R 00436 M01S00388.sfs +++| USBB BSS NCSI+10 STRING BUFFER 00437 M01S00389.sfs +++| USBBL EQU *-USBB STRING BUFFER LENGTH 00438 M01S00390.sfs +++| SBCAL EQU USBB+72 STRING BUFFER CHARACTER ASSEMBLY LIMIT 00439 M01S00391.sfs +++| SCI SPACE 4 00440 M01S00392.sfs +++|** SCI - SCAN FOR CODE IDENTIFIER. 00441 M01S00393.sfs +++|* 00442 M01S00394.sfs +++|* ENTRY (SP) ADDRESS OF LAST CHARACTER PROCESSED. 00443 M01S00395.sfs +++|* (SM) STRING BUFFER LIMIT. 00444 M01S00396.sfs +++|* (X0) INPUT FET ADDRESS. 00445 M01S00397.sfs +++|* (X1) BIT STRING OF CHARACTERS TO PERMIT. 00446 M01S00398.sfs +++|* (X3) TABLE ADDRESS OF K-DISPLAY ENTRIES. 00447 M01S00399.sfs +++|* TABLE ENTRIES HVE FOLLOWING FORMAT, 00448 M01S00400.sfs +++|* 42/ENTRY,18/STATUS 00449 M01S00401.sfs +++|* ENTRY = DISPLAY CODE ENTRY TO SEARCH FOR. 00450 M01S00402.sfs +++|* STATUS = RETURN INFORMATION FOR CALLER. 00451 M01S00403.sfs +++|* BOTH TABLES MUST BE TERMINATED BY A ZERO WORD. 00452 M01S00404.sfs +++|* (X6) TABLE ADDRESS OF TABLE INFORMATION. 00453 M01S00405.sfs +++|* TABLE ENTRIES HAVE FOLLOWING FORMAT, 00454 M01S00406.sfs +++|* 18/I,18/M,6/U,6/S,6/F,6/P 00455 M01S00407.sfs +++|* I = IDENTIFIER. 00456 M01S00408.sfs +++|* M = ADDRESS OF MAXIMUM VALUE (0 = INFINITE). 00457 M01S00409.sfs +++|* U = UPPER BIT POSITION IN FIELD. 00458 M01S00410.sfs +++|* S = FIELD SIZE IN BITS. 00459 M01S00411.sfs +++|* F = FIRST WORD ADDRESS WITHIN DATA BLOCK. 00460 M01S00412.sfs +++|* P = PROCESSOR INDEX. 00461 M01S00413.sfs +++|* 00462 M01S00414.sfs +++|* EXIT (X1) = 0 IF ERROR. 00463 M01S00415.sfs +++|* (B5) = 0 IF SEPARATOR IS *=*. 00464 M01S00416.sfs +++|* (B6) = 0 IF ENTRY TERMINATION, */*. 00465 M01S00417.sfs +++|* (B7) PROCESSOR INDEX OR STATUS(K-DISPLAY). 00466 M01S00418.sfs +++|* (DF-DF+4) M, U, S, F, AND I ENTRIES FROM TABLE 00467 M01S00419.sfs +++|* (ET) = -1 IF EOF. 00468 M01S00420.sfs +++|* = +1 IF */*. 00469 M01S00421.sfs +++|* 00470 M01S00422.sfs +++|* CALLS ASC. 00471 M01S00423.sfs +++|* 00472 M01S00424.sfs +++|* USES ALL REGISTERS EXCEPT A5 AND A0. 00473 M01S00425.sfs +++| 00474 M01S00426.sfs +++| 00475 M01S00427.sfs +++| SCI SUBR ENTRY/EXIT 00476 M01S00428.sfs +++| SA6 SCIA 00477 M01S00429.sfs +++| BX6 X3 00478 M01S00430.sfs +++| LX7 X1 00479 M01S00431.sfs +++| SA6 A6+1 00480 M01S00432.sfs +++| SA7 A6+1 00481 M01S00433.sfs +++| 00482 M01S00434.sfs +++| SCI1 SA2 SCIB CHARACTERS TO SUPPRESS 00483 M01S00435.sfs +++| SA1 SCIA+2 CHARACTERS TO PERMIT 00484 M01S00436.sfs +++| BX6 X2 00485 M01S00437.sfs +++| RJ ASC ASSEMBLE CHARACTERS 00486 M01S00438.sfs +++| SX1 B1+ 00487 M01S00439.sfs +++| SB5 B5-1R= 00488 M01S00440.sfs +++| EQ B6,SCIX RETURN - IF EOF OR NEW CHARGE NUMBER 00489 M01S00441.sfs +++| ZR X4,SCI1 IF NO CHARACTERS 00490 M01S00442.sfs +++| BX1 X1-X1 00491 M01S00443.sfs +++| MX0 18 00492 M01S00444.sfs +++| NZ B5,SCI3 IF NOT IDENTIFIER SEPARATOR 00493 M01S00445.sfs +++| ZR X4,SCI1 IF NO DATA ASSEMBLED 00494 M01S00446.sfs +++| SA2 SCIA 00495 M01S00447.sfs +++| SA1 X2-1 FWA OF TABLE 00496 M01S00448.sfs +++| SCI2 SA1 A1+B1 00497 M01S00449.sfs +++| ZR X1,SCI3 IF END OF TABLE 00498 M01S00450.sfs +++| BX2 X0*X1 00499 M01S00451.sfs +++| BX2 X2-X6 00500 M01S00452.sfs +++| NZ X2,SCI2 IF IDENTIFIER NOT FOUND 00501 M01S00453.sfs +++| MX0 -6 00502 M01S00454.sfs +++| SA6 DF+4 SET IDENTIFIER 00503 M01S00455.sfs +++| BX6 -X0*X1 SET PROCESSOR ADDRESS 00504 M01S00456.sfs +++| SB7 X6 00505 M01S00457.sfs +++| LX1 54 00506 M01S00458.sfs +++| BX7 -X0*X1 SET FWA OF FIELD 00507 M01S00459.sfs +++| MX0 -24 SET MAXIMUM VALUE 00508 M01S00460.sfs +++| LX1 42 00509 M01S00461.sfs +++| BX6 -X0*X1 00510 M01S00462.sfs +++| SA2 X6 00511 M01S00463.sfs +++| BX6 X2 00512 M01S00464.sfs +++| AX0 18 SET UPPER BIT OF FIELD 00513 M01S00465.sfs +++| SA6 DF 00514 M01S00466.sfs +++| LX1 6 00515 M01S00467.sfs +++| BX6 -X0*X1 00516 M01S00468.sfs +++| SA6 A6+B1 00517 M01S00469.sfs +++| LX1 6 SET SIZE OF FIELD 00518 M01S00470.sfs +++| BX6 -X0*X1 00519 M01S00471.sfs +++| SA6 A6+B1 00520 M01S00472.sfs +++| SA7 A6+B1 00521 M01S00473.sfs +++| SX1 B1 00522 M01S00474.sfs +++| EQ SCIX RETURN 00523 M01S00475.sfs +++| 00524 M01S00476.sfs +++|* CHECK FOR K-DISPLAY TERMINATION. 00525 M01S00477.sfs +++| 00526 M01S00478.sfs +++| SCI3 SA2 OP 00527 M01S00479.sfs +++| SX2 X2-KOPT 00528 M01S00480.sfs +++| NZ X2,SCIX RETURN 00529 M01S00481.sfs +++| SA2 SCIA+1 00530 M01S00482.sfs +++| MX0 42 00531 M01S00483.sfs +++| SA1 X2-1 00532 M01S00484.sfs +++| SCI4 SA1 A1+B1 00533 M01S00485.sfs +++| ZR X1,SCIX IF END OF TABLE 00534 M01S00486.sfs +++| BX2 X0*X1 00535 M01S00487.sfs +++| BX2 X2-X6 00536 M01S00488.sfs +++| NZ X2,SCI4 IF NO MATCH 00537 M01S00489.sfs +++| BX2 -X0*X1 00538 M01S00490.sfs +++| SB7 X2 00539 M01S00491.sfs +++| SX1 B1 00540 M01S00492.sfs +++| EQ SCIX RETURN 00541 M01S00493.sfs +++| 00542 M01S00494.sfs +++| SCIA CON 0,0,0 HOLD AREAS 00543 M01S00495.sfs +++| SCIB BITCON ( ) SUPPRESS CHARACTERS 00544 M01S00496.sfs +++| TITLE READ FILE ROUTINES. 00545 M01S00497.sfs +++|*** THE ROUTINES *SPB*, *SBT* AND *ANB* ARE DESIGNED FOR USE 00546 M01S00498.sfs +++|* WITH THE INQUIRE AND UPDATE OPTIONS TO SET SELECTED 00547 M01S00499.sfs +++|* BLOCKS IN THE RESPECTIVE TABLES. *ANB* ADDS THE NEXT 00548 M01S00500.sfs +++|* LINKED BLOCK TO A TABLE AND *SBT* SEARCHES FOR THE BLOCK 00549 M01S00501.sfs +++|* ASSOCIATED WITH A GIVEN ENTRY AND PLACES IT IN THE TABLE. 00550 M01S00502.sfs +++|* 00551 M01S00503.sfs +++|* *PNA* AND *PNE* ARE PROVIDED FOR USE WITH THE REFORMAT 00552 M01S00504.sfs +++|* AND SOURCE OPTIONS TO PROCESS EACH ENTRY IN THE CHAIN 00553 M01S00505.sfs +++|* OF LINKED BLOCKS. 00554 M01S00506.sfs +++|* 00555 M01S00507.sfs +++|* ALL READ FUNCTIONS REQUIRE (X0) = FET ADDRESS OF FILE. 00556 M01S00508.sfs +++| ANB SPACE 4 00557 M01S00509.sfs +++|** ANB - ADD NEXT BLOCK TO TABLE. 00558 M01S00510.sfs +++|* 00559 M01S00511.sfs +++|* ENTRY (A0) TABLE NUMBER. 00560 M01S00512.sfs +++|* (X0) FET ADDRESS (FOR READ). 00561 M01S00513.sfs +++|* (X3) RANDOM ADDRESS OF BLOCK. 00562 M01S00514.sfs +++|* 00563 M01S00515.sfs +++|* EXIT (CW+2) ADDRESS OF LINKED BLOCK. 00564 M01S00516.sfs +++|* BLOCK ADDED TO TABLE. 00565 M01S00517.sfs +++|* LENGTH UPDATED. 00566 M01S00518.sfs +++|* (X6) = 0 IF NO ERROR. 00567 M01S00519.sfs +++|* ((A0*2)+RA0+1) ADDRESS OF READ. 00568 M01S00520.sfs +++|* 00569 M01S00521.sfs +++|* CALLS RDW, CCW, ATS. 00570 M01S00522.sfs +++|* 00571 M01S00523.sfs +++|* USES ALL REGISTERS. 00572 M01S00524.sfs +++| 00573 M01S00525.sfs +++| 00574 M01S00526.sfs +++| ANB SUBR ENTRY/EXIT 00575 M01S00527.sfs +++| RECALL X0 00576 M01S00528.sfs +++| BX6 X3 SET RANDOM ADDRESS 00577 M01S00529.sfs +++| SX2 A0 00578 M01S00530.sfs +++| LX2 1 00579 M01S00531.sfs +++| BX7 X3 00580 M01S00532.sfs +++| SA7 X2+RA0+1 00581 M01S00533.sfs +++| SA6 X0+6 00582 M01S00534.sfs +++| READ X0 00583 M01S00535.sfs +++| READW X0,CW,3 00584 M01S00536.sfs +++| NZ X1,ANB1 IF EOR OR EOF 00585 M01S00537.sfs +++| RJ CCW CRACK CONTROL WORD 00586 M01S00538.sfs +++| SB4 A0-B4 00587 M01S00539.sfs +++| NE B4,ANB1 IF NOT RIGHT LEVEL 00588 M01S00540.sfs +++| BX6 X6-X6 00589 M01S00541.sfs +++| SA5 A0+LTAB 00590 M01S00542.sfs +++| ZR B3,ANBX IF ZERO LENGTH 00591 M01S00543.sfs +++| ALLOC A0,B3 00592 M01S00544.sfs +++| SA3 FTAB+A0 00593 M01S00545.sfs +++| IX3 X3+X5 00594 M01S00546.sfs +++| READW X0,X3,X1 00595 M01S00547.sfs +++| BX6 X6-X6 00596 M01S00548.sfs +++| ZR X1,ANBX RETURN - IF TRANSFER COMPLETE 00597 M01S00549.sfs +++| ANB1 REWIND X0,R 00598 M01S00550.sfs +++| SX6 B1 00599 M01S00551.sfs +++| EQ ANBX RETURN 00600 M01S00552.sfs +++| CCW SPACE 4 00601 M01S00553.sfs +++|** CCW - CRACK CONTROL WORD. 00602 M01S00554.sfs +++|* 00603 M01S00555.sfs +++|* ENTRY (CW) CONTROL WORD. 00604 M01S00556.sfs +++|* 00605 M01S00557.sfs +++|* EXIT (B2) FWA OF DATA BLOCK. 00606 M01S00558.sfs +++|* (B3) LENGTH OF DATA BLOCK. 00607 M01S00559.sfs +++|* (B4) LEVEL NUMBER. 00608 M01S00560.sfs +++|* (B5) NUMBER OF ENTRIES. 00609 M01S00561.sfs +++|* (B7) WORD COUNT/ENTRY. 00610 M01S00562.sfs +++|* 00611 M01S00563.sfs +++|* CALLS NONE. 00612 M01S00564.sfs +++|* 00613 M01S00565.sfs +++|* USES A - 1. 00614 M01S00566.sfs +++|* X - 1, 2, 6. 00615 M01S00567.sfs +++|* B - 1, 2, 3, 4, 5, 7. 00616 M01S00568.sfs +++| 00617 M01S00569.sfs +++| 00618 M01S00570.sfs +++| CCW SUBR ENTRY/EXIT 00619 M01S00571.sfs +++| SA1 CW 00620 M01S00572.sfs +++| MX6 -12 00621 M01S00573.sfs +++| BX2 -X6*X1 FWA 00622 M01S00574.sfs +++| SB2 X2 00623 M01S00575.sfs +++| LX1 12 00624 M01S00576.sfs +++| BX2 -X6*X1 LEVEL NUMBER 00625 M01S00577.sfs +++| SB4 X2 00626 M01S00578.sfs +++| LX1 12 00627 M01S00579.sfs +++| BX2 -X6*X1 LENGTH OF DATA BLOCK (LENGTH-FWA+1) 00628 M01S00580.sfs +++| SB3 B1-B2 00629 M01S00581.sfs +++| SB3 X2+B3 00630 M01S00582.sfs +++| LX1 12 00631 M01S00583.sfs +++| BX2 -X6*X1 WORD COUNT/ENTRY 00632 M01S00584.sfs +++| SB7 X2 00633 M01S00585.sfs +++| LX1 12 00634 M01S00586.sfs +++| BX2 -X6*X1 NUMBER OF ENTRIES 00635 M01S00587.sfs +++| SB5 X2 00636 M01S00588.sfs +++| EQ CCWX RETURN 00637 M01S00589.sfs +++| PNA SPACE 4 00638 M01S00590.sfs +++|** PNA - PICK NEXT ADDRESS. 00639 M01S00591.sfs +++|* 00640 M01S00592.sfs +++|* ENTRY (A0) TABLE NUMBER. 00641 M01S00593.sfs +++|* (X0) FET ADDRESS (FOR READ). 00642 M01S00594.sfs +++|* ((A0)+PNAA) POINTER RO NEXT TABLE ENTRY. 00643 M01S00595.sfs +++|* ((A0*2)+RA0+1) ADDRESS OF LINKED BLOCK. 00644 M01S00596.sfs +++|* 00645 M01S00597.sfs +++|* EXIT (A3) ADDRESS OF RANDOM INDEX WORD IN ENTRY. 00646 M01S00598.sfs +++|* (X3) ADDRESS OF NEXT HIGHER-LEVEL BLOCK. 00647 M01S00599.sfs +++|* (X6) = 0 IF END OF TABLE. 00648 M01S00600.sfs +++|* ((A0)+PNAA) UPDATED. 00649 M01S00601.sfs +++|* 00650 M01S00602.sfs +++|* CALLS ANB, MSG. 00651 M01S00603.sfs +++|* 00652 M01S00604.sfs +++|* USES ALL REGISTERS. 00653 M01S00605.sfs +++| 00654 M01S00606.sfs +++| 00655 M01S00607.sfs +++| PNA SUBR ENTRY/EXIT 00656 M01S00608.sfs +++| PNA1 SA2 A0+LTAB TABLE LENGTH 00657 M01S00609.sfs +++| SA4 A0+PNAA 00658 M01S00610.sfs +++| SX6 A0 00659 M01S00611.sfs +++| IX3 X4-X2 00660 M01S00612.sfs +++| PL X3,PNA2 IF TABLE EXHAUSTED 00661 M01S00613.sfs +++| SA2 A0+CTAB INCREMENT TABLE POINTER 00662 M01S00614.sfs +++| IX6 X4+X2 00663 M01S00615.sfs +++| SA6 A4 00664 M01S00616.sfs +++| SA1 A0+FTAB FWA 00665 M01S00617.sfs +++| SX6 X6-1 00666 M01S00618.sfs +++| IX2 X1+X6 00667 M01S00619.sfs +++| SA3 X2 00668 M01S00620.sfs +++| EQ PNAX RETURN 00669 M01S00621.sfs +++| 00670 M01S00622.sfs +++| PNA2 LX6 1 00671 M01S00623.sfs +++| SA3 X6+RA0+1 ADDRESS OF LINKED BLOCK 00672 M01S00624.sfs +++| BX6 X6-X6 00673 M01S00625.sfs +++| ZR X3,PNAX RETURN - IF NO LINK 00674 M01S00626.sfs +++| SA1 OP 00675 M01S00627.sfs +++| SX1 X1-ROPT 00676 M01S00628.sfs +++| ZR X1,PNA3 IF REFORMAT 00677 M01S00629.sfs +++| SA6 A2 CLEAR LENGTH 00678 M01S00630.sfs +++| SA6 A0+PNAA CLEAR TABLE POINTER 00679 M01S00631.sfs +++| PNA3 RJ ANB ADD NEXT BLOCK TO TABLE 00680 M01S00632.sfs +++| NZ X6,PNA4 IF ERROR 00681 M01S00633.sfs +++| SA1 CW+2 SET ADDRESS OF NEXT BLOCK 00682 M01S00634.sfs +++| SX2 A0 00683 M01S00635.sfs +++| BX6 X1 00684 M01S00636.sfs +++| LX2 1 00685 M01S00637.sfs +++| SA6 X2+RA0+1 00686 M01S00638.sfs +++| EQ PNA1 LOOP FOR NEXT BLOCK 00687 M01S00639.sfs +++| 00688 M01S00640.sfs +++| PNA4 MESSAGE PNAB,3 ISSUE *DATA BASE ERROR.* MESSAGE 00689 M01S00641.sfs +++| BX3 X3-X3 00690 M01S00642.sfs +++| MX6 0 00691 M01S00643.sfs +++| EQ PNAX RETURN 00692 M01S00644.sfs +++| 00693 M01S00645.sfs +++| PNAA BSSZ NTAB-2 TABLE POINTERS 00694 M01S00646.sfs +++| PNAB DATA C* DATA BASE ERROR.* 00695 M01S00647.sfs +++| PNE SPACE 4 00696 M01S00648.sfs +++|** PNE - PICK NEXT ENTRY. 00697 M01S00649.sfs +++|* 00698 M01S00650.sfs +++|* ENTRY (A0) TABLE NUMBER. 00699 M01S00651.sfs +++|* (X0) FET ADDRESS (FOR READ). 00700 M01S00652.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 00701 M01S00653.sfs +++|* ((A0)+PNEC) ADDRESS OF LAST BLOCK WRITTEN. 00702 M01S00654.sfs +++|* 00703 M01S00655.sfs +++|* EXIT ((A0)+PNEC) UPDATED. 00704 M01S00656.sfs +++|* IF FULL BLOCK IS PRESENT IN TABLE AND IT HAS BEEN 00705 M01S00657.sfs +++|* PROCESSED, IT IS THEN WRITTEN TO THE FILE. 00706 M01S00658.sfs +++|* (A3) ADDRESS OF RANDOM INDEX WORD IN ENTRY. 00707 M01S00659.sfs +++|* (X3) ADDRESS FROM NEXT TABLE ENTRY. 00708 M01S00660.sfs +++|* (X6) = 0 IF END OF TABLE. 00709 M01S00661.sfs +++|* 00710 M01S00662.sfs +++|* CALLS WTB, PNA. 00711 M01S00663.sfs +++|* 00712 M01S00664.sfs +++|* USES ALL REGISTERS. 00713 M01S00665.sfs +++| 00714 M01S00666.sfs +++| 00715 M01S00667.sfs +++| PNE SUBR ENTRY/EXIT 00716 M01S00668.sfs +++| BX7 X5 SAVE FET ADDRESS 00717 M01S00669.sfs +++| SA7 PNEF 00718 M01S00670.sfs +++| PNE1 SA1 A0+PNAA GET TABLE INDEX 00719 M01S00671.sfs +++| SA2 A0+TFBL 00720 M01S00672.sfs +++| SA3 A0+FTAB SAVE FWA TABLE 00721 M01S00673.sfs +++| IX6 X1-X2 00722 M01S00674.sfs +++| BX7 X3 00723 M01S00675.sfs +++| NG X6,PNE2 IF NOT FULL BLOCK. 00724 M01S00676.sfs +++| SA7 PNEG 00725 M01S00677.sfs +++| RJ STB SORT TABLE TO ELIMINATE ZERO ENTRIES 00726 M01S00678.sfs +++| SA3 A0+FTAB NEW FWA TABLE 00727 M01S00679.sfs +++| SA2 PNEG OLD FWA TABLE 00728 M01S00680.sfs +++| IX2 X3-X2 00729 M01S00681.sfs +++| SA1 A0+PNAA ADJUST NEXT TABLE ENTRY POINTER 00730 M01S00682.sfs +++| IX6 X1-X2 00731 M01S00683.sfs +++| SA6 A1 00732 M01S00684.sfs +++| BX1 X6 00733 M01S00685.sfs +++| NZ X2,PNE1 IF SORT DELETED ZERO ENTRIES 00734 M01S00686.sfs +++| BX7 X0 SAVE FET ADDRESS 00735 M01S00687.sfs +++| SA7 PNED 00736 M01S00688.sfs +++| IX6 X3+X1 SAVE NEW FWA 00737 M01S00689.sfs +++| SA6 PNEA 00738 M01S00690.sfs +++| SX3 A0+ 00739 M01S00691.sfs +++| SA4 A0+LTAB SAVE NEW LENGTH 00740 M01S00692.sfs +++| IX6 X4-X1 00741 M01S00693.sfs +++| LX3 1 00742 M01S00694.sfs +++| SA6 PNEB 00743 M01S00695.sfs +++| BX6 X1 SET LENGTH FOR WRITE 00744 M01S00696.sfs +++| SA6 A4 00745 M01S00697.sfs +++| SA3 X3+RA0+1 SAVE LINK 00746 M01S00698.sfs +++| SA1 A0+PNEC LINK TO LAST BLOCK 00747 M01S00699.sfs +++| BX7 X3 00748 M01S00700.sfs +++| BX6 X1 00749 M01S00701.sfs +++| SA6 A3+ 00750 M01S00702.sfs +++| SA7 PNEE 00751 M01S00703.sfs +++| RJ WTB WRITE BLOCK 00752 M01S00704.sfs +++| SA1 PNED RESET FET ADDRESS 00753 M01S00705.sfs +++| SA2 PNEE RESTORE LINK 00754 M01S00706.sfs +++| SX0 X1 00755 M01S00707.sfs +++| SX6 A0 00756 M01S00708.sfs +++| BX7 X2 00757 M01S00709.sfs +++| LX6 1 00758 M01S00710.sfs +++| SA1 X6+RA0+1 SAVE RANDOM ADDRESS OF WRITE 00759 M01S00711.sfs +++| SA7 A1 00760 M01S00712.sfs +++| BX7 X1 00761 M01S00713.sfs +++| SA1 PNEA RESET FWA 00762 M01S00714.sfs +++| BX6 X1 00763 M01S00715.sfs +++| SA7 A0+PNEC 00764 M01S00716.sfs +++| SA6 A0+FTAB 00765 M01S00717.sfs +++| SA2 PNEB RESET LENGTH 00766 M01S00718.sfs +++| BX7 X2 00767 M01S00719.sfs +++| BX6 X6-X6 RESET TABLE INDEX 00768 M01S00720.sfs +++| SA7 A0+LTAB 00769 M01S00721.sfs +++| SA6 A0+PNAA 00770 M01S00722.sfs +++| PNE2 RJ PNA PICK NEXT ADDRESS 00771 M01S00723.sfs +++| SA5 PNEF RESET FET ADDRESS 00772 M01S00724.sfs +++| EQ PNEX RETURN 00773 M01S00725.sfs +++| 00774 M01S00726.sfs +++| PNEA BSSZ 1 HOLD FOR FWA 00775 M01S00727.sfs +++| PNEB BSSZ 1 HOLD FOR LENGTH 00776 M01S00728.sfs +++| PNEC BSSZ NTAB-2 TABLE INDICES 00777 M01S00729.sfs +++| PNED CON 0 FET ADDRESS HOLD AREA 00778 M01S00730.sfs +++| PNEE CON 0 HOLD FOR LINK 00779 M01S00731.sfs +++| PNEF CON 0 FET ADDRESS HOLD AREA 00780 M01S00732.sfs +++| PNEG CON 0 HOLD FOR TABLE FWA BEFORE SORT 00781 M01S00733.sfs +++| SBT SPACE 4 00782 M01S00734.sfs +++|** SBT - SET BLOCK IN TABLE. 00783 M01S00735.sfs +++|* 00784 M01S00736.sfs +++|* ENTRY (A0) TABLE NUMBER. 00785 M01S00737.sfs +++|* (X0) ADDRESS OF FET (FOR READ). 00786 M01S00738.sfs +++|* (SE) ADDRESS OF SEARCH ELEMENT. 00787 M01S00739.sfs +++|* (B6) RANDOM ADDRESS OF FIRST SEARCH BLOCK. 00788 M01S00740.sfs +++|* 00789 M01S00741.sfs +++|* EXIT ((A0*2)+RA0) RANDOM ADDRESS OF BLOCK IN TABLE. 00790 M01S00742.sfs +++|* ((A0*2)+RA0+1) RANDOM ADDRESS OF LINKED BLOCK. 00791 M01S00743.sfs +++|* (X3) ADDRESS OF ENTRY IN TABLE(IF X4=0). 00792 M01S00744.sfs +++|* (X4) = 0 IF EXACT ENTRY FOUND. 00793 M01S00745.sfs +++|* (X5) RANDOM ADDRESS OF NEXT LEVEL BLOCK. 00794 M01S00746.sfs +++|* (X6) " 0 IF ERROR. 00795 M01S00747.sfs +++|* 00796 M01S00748.sfs +++|* CALLS ANB, MVE, MWS. 00797 M01S00749.sfs +++|* 00798 M01S00750.sfs +++|* USES ALL REGISTERS. 00799 M01S00751.sfs +++| 00800 M01S00752.sfs +++| 00801 M01S00753.sfs +++| SBT0 SA4 SBTA 00802 M01S00754.sfs +++| SA3 SBTD ADDRESS OF ENTRY 00803 M01S00755.sfs +++| SA1 A4+B1 RESET FET ADDRESSES 00804 M01S00756.sfs +++| BX0 X1 00805 M01S00757.sfs +++| 00806 M01S00758.sfs +++| SBT SUBR ENTRY/EXIT 00807 M01S00759.sfs +++| BX6 X6-X6 00808 M01S00760.sfs +++| SA6 SBTE CLEAR PREVIOUS RANDOM ADDRESS 00809 M01S00761.sfs +++| BX6 X0 SAVE FET ADDRESS 00810 M01S00762.sfs +++| SA6 SBTB 00811 M01S00763.sfs +++| SBT1 SX3 B6 00812 M01S00764.sfs +++| SX5 B0 00813 M01S00765.sfs +++| ZR X3,SBT2 IF NO BLOCK ADDRESS 00814 M01S00766.sfs +++| SA1 A0+LTAB SAVE LENGTH OF TABLE 00815 M01S00767.sfs +++| BX6 X1 00816 M01S00768.sfs +++| SA6 SBTC 00817 M01S00769.sfs +++| SA1 SBTB SET FET ADDRESS 00818 M01S00770.sfs +++| SX6 B6 00819 M01S00771.sfs +++| BX0 X1 00820 M01S00772.sfs +++| SA6 SBTF SAVE CURRENT RANDOM ADDRESS 00821 M01S00773.sfs +++| RJ ANB ADD NEXT BLOCK 00822 M01S00774.sfs +++| NZ X6,SBTX IF ERROR 00823 M01S00775.sfs +++| SA5 SBTC 00824 M01S00776.sfs +++| SBT2 BX0 X5 00825 M01S00777.sfs +++| SA3 SE ENTRY BLOCK ADDRESS 00826 M01S00778.sfs +++| SB6 X3 00827 M01S00779.sfs +++| SA2 A0+LTAB LENGTH 00828 M01S00780.sfs +++| NZ X2,SBT3 IF NOT EMPTY TABLE 00829 M01S00781.sfs +++| SA1 CW+2 GET LINK 00830 M01S00782.sfs +++| SB6 X1 00831 M01S00783.sfs +++| NZ X1,SBT1 IF LINKED 00832 M01S00784.sfs +++| SBT3 IX6 X2-X0 00833 M01S00785.sfs +++| SA1 A0+FTAB FWA 00834 M01S00786.sfs +++| BX7 X2 00835 M01S00787.sfs +++| SA7 SBTC SAVE LENGTH 00836 M01S00788.sfs +++| BX7 X1 00837 M01S00789.sfs +++| SA7 A7+B1 SAVE FWA 00838 M01S00790.sfs +++| SA6 A2 SET NEW BLOCK LENGTH 00839 M01S00791.sfs +++| IX7 X1+X0 00840 M01S00792.sfs +++| SA7 A1 SET NEW BLOCK FWA 00841 M01S00793.sfs +++| RJ MWS SEARCH FOR ENTRY 00842 M01S00794.sfs +++| SA1 SBTC RESTORE TABLE LENGTH 00843 M01S00795.sfs +++| SA3 SBTE 00844 M01S00796.sfs +++| BX6 X1 00845 M01S00797.sfs +++| SA1 A1+B1 RESTORE TABLE FWA 00846 M01S00798.sfs +++| BX7 X1 00847 M01S00799.sfs +++| BX5 X5-X5 00848 M01S00800.sfs +++| SA6 A0+LTAB 00849 M01S00801.sfs +++| SA7 A0+FTAB 00850 M01S00802.sfs +++| PL X3,SBT3.1 IF NOT FORCED READ OF BLOCK 00851 M01S00803.sfs +++| SB7 B1 00852 M01S00804.sfs +++| SX2 B0 00853 M01S00805.sfs +++| SBT3.1 SA5 A0+CTAB 00854 M01S00806.sfs +++| SB3 B2-B1 00855 M01S00807.sfs +++| SA5 B3+X5 00856 M01S00808.sfs +++| SX6 B2 SAVE ADDRESS OF ENTRY 00857 M01S00809.sfs +++| SA6 SBTD 00858 M01S00810.sfs +++| BX6 X2 00859 M01S00811.sfs +++| SA6 SBTA 00860 M01S00812.sfs +++| SA1 SBTF 00861 M01S00813.sfs +++| SB6 B0 00862 M01S00814.sfs +++| BX6 X1 00863 M01S00815.sfs +++| PL B7,SBT5 IF ENTRY FOUND OR BEFORE TABLE 00864 M01S00816.sfs +++| SA2 CW+2 00865 M01S00817.sfs +++| SB6 X2 00866 M01S00818.sfs +++| SA6 A3 UPDATE PREVIOUS RANDOM ADDRESS 00867 M01S00819.sfs +++| SBT5 SA1 A0+FTAB 00868 M01S00820.sfs +++| IX1 X1-X4 00869 M01S00821.sfs +++| SX2 A0 00870 M01S00822.sfs +++| LX2 1 00871 M01S00823.sfs +++| SA2 RA0+X2 00872 M01S00824.sfs +++| SA3 A2+B1 00873 M01S00825.sfs +++| SB5 B7 00874 M01S00826.sfs +++| BX6 X3 00875 M01S00827.sfs +++| SA6 A2 00876 M01S00828.sfs +++| ZR X1,SBT7 IF FIRST BLOCK 00877 M01S00829.sfs +++| ZR B5,SBT6 IF ENTRY BEFORE BLOCK 00878 M01S00830.sfs +++| SA1 A0+LTAB SET LENGTH 00879 M01S00831.sfs +++| IX6 X1-X0 00880 M01S00832.sfs +++| SA6 A1 00881 M01S00833.sfs +++| SA3 A0+FTAB SET FWA 00882 M01S00834.sfs +++| SA2 SBTD ADJUST ENTRY ADDRESS 00883 M01S00835.sfs +++| IX7 X4-X3 00884 M01S00836.sfs +++| IX7 X2-X7 00885 M01S00837.sfs +++| SA7 A2 00886 M01S00838.sfs +++| MOVE X6,X4,X3 MOVE BLOCK DOWN 00887 M01S00839.sfs +++| EQ SBT7 00888 M01S00840.sfs +++| 00889 M01S00841.sfs +++| SBT6 BX6 X2 RESET RANDOM ADDRESS 00890 M01S00842.sfs +++| SA6 A2 00891 M01S00843.sfs +++| BX7 X0 RESET LENGTH 00892 M01S00844.sfs +++| BX6 X6-X6 00893 M01S00845.sfs +++| SA1 SBTE 00894 M01S00846.sfs +++| SA7 A0+LTAB 00895 M01S00847.sfs +++| SB6 A0 00896 M01S00848.sfs +++| MX7 1 00897 M01S00849.sfs +++| NZ B6,SBT0 IF NOT LEVEL - 0 00898 M01S00850.sfs +++| SB6 X1 00899 M01S00851.sfs +++| SA7 A1 SET FORCED READ OF BLOCK 00900 M01S00852.sfs +++| EQ SBT1 GO READ BLOCK 00901 M01S00853.sfs +++| 00902 M01S00854.sfs +++| SBT7 ZR B5,SBT9 IF ENTRY BEFORE BLOCK 00903 M01S00855.sfs +++| NZ B6,SBT1 IF MORE BLOCKS TO PROCESS 00904 M01S00856.sfs +++| SBT8 SX2 A0 00905 M01S00857.sfs +++| LX2 1 00906 M01S00858.sfs +++| SA1 CW+2 SET RANDOM ADDRESS OF NEXT BLOCK 00907 M01S00859.sfs +++| BX7 X1 00908 M01S00860.sfs +++| BX6 X6-X6 00909 M01S00861.sfs +++| SA7 X2+RA0+1 00910 M01S00862.sfs +++| EQ SBT0 RETURN 00911 M01S00863.sfs +++| 00912 M01S00864.sfs +++| SBT9 SX6 B1 00913 M01S00865.sfs +++| SA6 SBTA 00914 M01S00866.sfs +++| EQ SBT8 00915 M01S00867.sfs +++| 00916 M01S00868.sfs +++| SBTA BSSZ 1 ENTRY FOUND FLAG 00917 M01S00869.sfs +++| SBTB CON 0 FET ADDRESS HOLD AREA 00918 M01S00870.sfs +++| SBTC CON 0,0 TABLE LENGTH AND FWA HOLD AREA 00919 M01S00871.sfs +++| SBTD CON 0 ADDRESS OF ENTRY 00920 M01S00872.sfs +++| SBTE CON 0 PREVIOUS RANDOM ADDRESS 00921 M01S00873.sfs +++| SBTF CON 0 CURRENT RANDOM ADDRESS 00922 M01S00874.sfs +++| SPB SPACE 4 00923 M01S00875.sfs +++|** SPB - SET PRIMARY BLOCK. 00924 M01S00876.sfs +++|* 00925 M01S00877.sfs +++|* ENTRY (X1) ADDRESS OF SEARCH ELEMENT. 00926 M01S00878.sfs +++|* (X0) ADDRESS OF FET(FOR READ). 00927 M01S00879.sfs +++|* 00928 M01S00880.sfs +++|* EXIT (SL) RANDOM ADDRESS OF NEXT LEVEL BLOCK. 00929 M01S00881.sfs +++|* (X3) ADDRESS OF ENTRY (IF X4=0). 00930 M01S00882.sfs +++|* (X4) = 0 IF EXACT ENTRY FOUND. 00931 M01S00883.sfs +++|* (X5) RANDOM ADDRESS OF NEXT LEVEL BLOCK. 00932 M01S00884.sfs +++|* (X6) " 0 IF ERROR. 00933 M01S00885.sfs +++|* TABLES AND POINTERS FOR UPDATE. 00934 M01S00886.sfs +++|* 00935 M01S00887.sfs +++|* CALLS SBT. 00936 M01S00888.sfs +++|* 00937 M01S00889.sfs +++|* USES ALL REGISTERS. 00938 M01S00890.sfs +++| 00939 M01S00891.sfs +++| 00940 M01S00892.sfs +++| SPB SUBR ENTRY/EXIT 00941 M01S00893.sfs +++| BX6 X1 SAVE ADDRESS OF SEARCH ELEMENT 00942 M01S00894.sfs +++| SA6 SE 00943 M01S00895.sfs +++| BX6 X6-X6 RESET LENGTH 00944 M01S00896.sfs +++| SA6 L.TAB0 00945 M01S00897.sfs +++| SA6 L.TAB1 00946 M01S00898.sfs +++| SA6 SL 00947 M01S00899.sfs +++| SA0 B0 TABLE 0 00948 M01S00900.sfs +++| SB6 B1 00949 M01S00901.sfs +++| RJ SBT SET BLOCK IN TABLE 00950 M01S00902.sfs +++| NZ X6,SPBX RETURN - IF ERROR 00951 M01S00903.sfs +++| ZR X5,SPB1 IF NO ENTRY 00952 M01S00904.sfs +++| SA0 B1 TABLE 1 00953 M01S00905.sfs +++| SB6 X5 00954 M01S00906.sfs +++| RJ SBT SET BLOCK IN TABLE 00955 M01S00907.sfs +++| NZ X6,SPBX RETURN - IF ERROR 00956 M01S00908.sfs +++| NZ X4,SPB1 IF ENTRY NOT FOUND 00957 M01S00909.sfs +++| BX6 X5 00958 M01S00910.sfs +++| SA6 SL 00959 M01S00911.sfs +++| SPB1 BX6 X6-X6 00960 M01S00912.sfs +++| EQ SPBX RETURN 00961 M01S00913.sfs +++| TITLE TABLE MANIPULATION ROUTINES. 00962 M01S00914.sfs +++|*** THE FOLLOWING ROUTINES ARE PROVIDED TO PERFORM VARIOUS 00963 M01S00915.sfs +++|* TABLE MANIPULATION FUNCTIONS. 00964 M01S00916.sfs +++|* 00965 M01S00917.sfs +++|* *MWS* PROVIDES A MULTIPLE WORD SEARCH WHERE WORD COUNT PER 00966 M01S00918.sfs +++|* ENTRY AND WORDS PER ENTRY TO COMPARE ON MUST BE DEFINED. 00967 M01S00919.sfs +++|* 00968 M01S00920.sfs +++|* *SDF* WILL PLACE DATA IN THE PROPER FIELD FROM THE CONTROL 00969 M01S00921.sfs +++|* INFORMATION SUPPLIED THROUGH THE IDENTIFIER TABLE USED IN 00970 M01S00922.sfs +++|* THE INPUT PROCESSING FUNCTION *SCI*. 00971 M01S00923.sfs +++|* 00972 M01S00924.sfs +++|* *SFT* REPLACES UNNEEDED TABLE AREAS WITH BLANKS IN ARDER THAT 00973 M01S00925.sfs +++|* THE DATA IS IN AN OUTPUT TYPE FORMAT. (USED MAINLY WITH THE 00974 M01S00926.sfs +++|* INQUIRE OPTION). 00975 M01S00927.sfs +++|* 00976 M01S00928.sfs +++|* *STB* SORTS A GIVEN TABLE, WHICH INCLUDES DELETING ZEROED 00977 M01S00929.sfs +++|* ENTRIES FROM THE TABLE. 00978 M01S00930.sfs +++| DZE SPACE 4 00979 M01S00931.sfs +++|** DZE - DELETE ZERO ENTRIES. 00980 M01S00932.sfs +++|* 00981 M01S00933.sfs +++|* ENTRY (A0) TABLE NUMBER. 00982 M01S00934.sfs +++|* 00983 M01S00935.sfs +++|* EXIT LEADING ZERO ENTRIES DELETED FROM TABLE. 00984 M01S00936.sfs +++|* TABLE POINTERS UPDATED. 00985 M01S00937.sfs +++|* 00986 M01S00938.sfs +++|* CALLS NONE. 00987 M01S00939.sfs +++|* 00988 M01S00940.sfs +++|* USES A - 1, 2, 3, 4, 6. 00989 M01S00941.sfs +++|* X - 1, 2, 3, 4, 6. 00990 M01S00942.sfs +++| 00991 M01S00943.sfs +++| 00992 M01S00944.sfs +++| DZE SUBR ENTRY/EXIT 00993 M01S00945.sfs +++| SA1 A0+FTAB FWA 00994 M01S00946.sfs +++| SA2 A0+LTAB LENGTH 00995 M01S00947.sfs +++| SA4 A0+CTAB WORDS/ENTRY 00996 M01S00948.sfs +++| IX2 X1+X2 00997 M01S00949.sfs +++| SB3 X4 00998 M01S00950.sfs +++| DZE1 IX4 X1-X2 00999 M01S00951.sfs +++| SA3 X1 01000 M01S00952.sfs +++| SX1 X1+B3 01001 M01S00953.sfs +++| PL X4,DZE2 IF END OF TABLE 01002 M01S00954.sfs +++| ZR X3,DZE1 IF ZERO ENTRY 01003 M01S00955.sfs +++| DZE2 SX6 B3 SET FWA 01004 M01S00956.sfs +++| IX6 X1-X6 01005 M01S00957.sfs +++| SA6 A1 01006 M01S00958.sfs +++| IX6 X2-X6 SET LENGTH 01007 M01S00959.sfs +++| SA6 A2 01008 M01S00960.sfs +++| EQ DZEX RETURN 01009 M01S00961.sfs +++| MWS SPACE 4 01010 M01S00962.sfs +++|** MWS - MULTIPLE WORD TABLE SEARCH. 01011 M01S00963.sfs +++|* IF TABLE IS INDICATED AS SORTED, ENTRIES ARE SEARCHED 01012 M01S00964.sfs +++|* ASSUMING LOWEST DISPLAY CODE VALUES ARE FIRST. (IF 01013 M01S00965.sfs +++|* VALUES ARE INTEGER VALUES, THEY WILL NOT BE SEARCHED 01014 M01S00966.sfs +++|* FOR PROPERLY.) 01015 M01S00967.sfs +++|* 01016 M01S00968.sfs +++|* ENTRY (A0) TABLE NUMBER. 01017 M01S00969.sfs +++|* (X1) = 0 IF TABLE NOT SORTED. 01018 M01S00970.sfs +++|* (B6) ENTRY BLOCK ADDRESS. 01019 M01S00971.sfs +++|* ((A0)+CTAB) WORD COUNT/ENTRY 01020 M01S00972.sfs +++|* ((A0)+STAB) WORD COUNT/ENTRY TO COMPARE. 01021 M01S00973.sfs +++|* 01022 M01S00974.sfs +++|* EXIT (X2) = 0 IF ENTRY FOUND. 01023 M01S00975.sfs +++|* (X4) FWA OF TABLE. 01024 M01S00976.sfs +++|* (B2) ADDRESS OF REQUIRED ENTRY. 01025 M01S00977.sfs +++|* (B7) = - IF ENTRY BEYOND TABLE. 01026 M01S00978.sfs +++|* = 0 IF ENTRY BEFORE TABLE. 01027 M01S00979.sfs +++|* = + IF ENTRY IN TABLE. 01028 M01S00980.sfs +++|* 01029 M01S00981.sfs +++|* CALLS NONE. 01030 M01S00982.sfs +++|* 01031 M01S00983.sfs +++|* USES A - 2, 3, 4. 01032 M01S00984.sfs +++|* X - 2, 3, 4. 01033 M01S00985.sfs +++|* B - 1, 2, 3, 4, 5, 6, 7. 01034 M01S00986.sfs +++| 01035 M01S00987.sfs +++| 01036 M01S00988.sfs +++| MWS SUBR ENTRY/EXIT 01037 M01S00989.sfs +++| SA4 A0+FTAB FWA 01038 M01S00990.sfs +++| SA2 A0+LTAB LENGTH 01039 M01S00991.sfs +++| SB2 X4 01040 M01S00992.sfs +++| SB3 X2 01041 M01S00993.sfs +++| SA2 A0+STAB WORD COUNT/ENTRY TO COMPARE 01042 M01S00994.sfs +++| SB4 X2-1 01043 M01S00995.sfs +++| SA2 A0+CTAB WORD COUNT/ENTRY 01044 M01S00996.sfs +++| SB7 X2 01045 M01S00997.sfs +++| SB3 B2+B3 LWA 01046 M01S00998.sfs +++| SX2 -B1 01047 M01S00999.sfs +++| MWS1 EQ B2,B3,MWS7 IF EMPTY TABLE 01048 M01S01000.sfs +++| SB5 -B1 01049 M01S01001.sfs +++| MWS2 SB5 B5+B1 INDEX 01050 M01S01002.sfs +++| SA2 B2+B5 TABLE ENTRY 01051 M01S01003.sfs +++| SA3 B6+B5 SEARCH ENTRY 01052 M01S01004.sfs +++| NG X2,MWS3 IF FIRST OPERAND NEGATIVE 01053 M01S01005.sfs +++| PL X3,MWS4 IF SAME SIGN 01054 M01S01006.sfs +++| SX2 -B1 01055 M01S01007.sfs +++| EQ MWS5 01056 M01S01008.sfs +++| MWS3 NG X3,MWS4 IF SAME SIGN 01057 M01S01009.sfs +++| SX2 B1 01058 M01S01010.sfs +++| EQ MWS5 01059 M01S01011.sfs +++| MWS4 IX2 X2-X3 01060 M01S01012.sfs +++| NZ X2,MWS5 IF NO MATCH 01061 M01S01013.sfs +++| GE B5,B4,MWSX RETURN - IF END OF SEARCH 01062 M01S01014.sfs +++| EQ MWS2 01063 M01S01015.sfs +++| 01064 M01S01016.sfs +++| MWS5 ZR X1,MWS6 IF NOT SORTED 01065 M01S01017.sfs +++| PL X2,MWS8 IF PAST ENTRY 01066 M01S01018.sfs +++| MWS6 SB2 B2+B7 INCREMENT TABLE ENTRY 01067 M01S01019.sfs +++| LT B2,B3,MWS1 IF MORE TABLE 01068 M01S01020.sfs +++| SB2 B2-B7 BACK UP ONE ENTRY 01069 M01S01021.sfs +++| MWS7 SB7 -B1 01070 M01S01022.sfs +++| EQ MWSX RETURN 01071 M01S01023.sfs +++| 01072 M01S01024.sfs +++| MWS8 SB5 X4 01073 M01S01025.sfs +++| EQ B5,B2,MWS9 IF FIRST ENTRY 01074 M01S01026.sfs +++| SB2 B2-B7 BACK UP ONE ENTRY 01075 M01S01027.sfs +++| EQ B5,B2,MWSX RETURN - IF FIRST ENTRY 01076 M01S01028.sfs +++| MWS9 SB7 B2-B5 01077 M01S01029.sfs +++| EQ MWSX RETURN 01078 M01S01030.sfs +++| SDF SPACE 4 01079 M01S01031.sfs +++|** SDF - SET DATA IN FIELD. 01080 M01S01032.sfs +++|* 01081 M01S01033.sfs +++|* ENTRY (DF) DATA FIELD POSITIONS (SET BY SCI). 01082 M01S01034.sfs +++|* (X3) FIRST WORD ADDRESS OF DATA. 01083 M01S01035.sfs +++|* (X6) DATA. 01084 M01S01036.sfs +++|* 01085 M01S01037.sfs +++|* EXIT DATA FIELDS SET. 01086 M01S01038.sfs +++|* 01087 M01S01039.sfs +++|* CALLS NONE. 01088 M01S01040.sfs +++|* 01089 M01S01041.sfs +++|* USES A - 1, 2, 6. 01090 M01S01042.sfs +++|* X - 1, 2, 3, 6. 01091 M01S01043.sfs +++|* B - 1, 4, 5, 6. 01092 M01S01044.sfs +++| 01093 M01S01045.sfs +++| 01094 M01S01046.sfs +++| SDF SUBR ENTRY/EXIT 01095 M01S01047.sfs +++| SA1 DF+1 GET UPPER BIT POSITION 01096 M01S01048.sfs +++| SB6 X1+B1 01097 M01S01049.sfs +++| SA2 A1+B1 GET FIELD SIZE 01098 M01S01050.sfs +++| SB5 X2-60D+1 01099 M01S01051.sfs +++| SB4 X2 01100 M01S01052.sfs +++| SA2 A2+B1 GET WORD ADDRESS 01101 M01S01053.sfs +++| IX3 X3+X2 01102 M01S01054.sfs +++| SA2 X3 01103 M01S01055.sfs +++| EQ B5,B1,SDF1 IF FULL WORD 01104 M01S01056.sfs +++| MX1 1 SET MASK 01105 M01S01057.sfs +++| LX1 X1,B5 01106 M01S01058.sfs +++| SB5 B6-B4 01107 M01S01059.sfs +++| BX6 -X1*X6 CLEAR DATA FIELD 01108 M01S01060.sfs +++| LX1 X1,B5 MOVE MASK TO POSITION 01109 M01S01061.sfs +++| LX6 X6,B5 01110 M01S01062.sfs +++| BX2 X1*X2 MERGE DATA 01111 M01S01063.sfs +++| BX6 X6+X2 01112 M01S01064.sfs +++| SDF1 SA6 A2 01113 M01S01065.sfs +++| EQ SDFX RETURN 01114 M01S01066.sfs +++| SFT SPACE 4 01115 M01S01067.sfs +++|** SFT - SPACE FILL TABLE. 01116 M01S01068.sfs +++|* 01117 M01S01069.sfs +++|* ENTRY (A0) TABLE NUMBER. 01118 M01S01070.sfs +++|* 01119 M01S01071.sfs +++|* EXIT ALL WORDS IN TABLE SPACE FILLED. 01120 M01S01072.sfs +++|* WORD PRECEEDING TABLE SET TO BLANKS. 01121 M01S01073.sfs +++|* 01122 M01S01074.sfs +++|* CALLS SFN. 01123 M01S01075.sfs +++|* 01124 M01S01076.sfs +++|* USES A - 1, 2, 3, 4, 6. 01125 M01S01077.sfs +++|* X - 1, 2, 3, 4, 6, 7. 01126 M01S01078.sfs +++|* B - 2, 3, 4, 5, 6. 01127 M01S01079.sfs +++| 01128 M01S01080.sfs +++| 01129 M01S01081.sfs +++| SFT SUBR ENTRY/EXIT 01130 M01S01082.sfs +++| SA2 A0+FTAB FWA 01131 M01S01083.sfs +++| SA4 A0+LTAB LENGTH 01132 M01S01084.sfs +++| SB4 X2 01133 M01S01085.sfs +++| SB6 X4 01134 M01S01086.sfs +++| SA4 SFTA 01135 M01S01087.sfs +++| BX6 X4 01136 M01S01088.sfs +++| SA6 B4-B1 01137 M01S01089.sfs +++| SB5 B0 01138 M01S01090.sfs +++| SFT1 SA2 A0+CTAB WORDS/ENTRY 01139 M01S01091.sfs +++| SB3 X2 01140 M01S01092.sfs +++| 01141 M01S01093.sfs +++| SFT2 GE B5,B6,SFTX RETURN - IF END OF TABLE 01142 M01S01094.sfs +++| SA1 B4+B5 01143 M01S01095.sfs +++| RJ SFN SPACE FILL 01144 M01S01096.sfs +++| SA6 A1 01145 M01S01097.sfs +++| SB5 B5+B1 01146 M01S01098.sfs +++| EQ B3,B1,SFT2 IF ONLY ONE WORD/ENTRY 01147 M01S01099.sfs +++| SB3 B3-B1 01148 M01S01100.sfs +++| GT B3,B1,SFT2 IF MORE WORDS IN ENTRY. 01149 M01S01101.sfs +++| BX6 X4 01150 M01S01102.sfs +++| SA6 A6+B1 01151 M01S01103.sfs +++| SB5 B5+B1 01152 M01S01104.sfs +++| EQ SFT1 LOOP FOR NEXT ENTRY 01153 M01S01105.sfs +++| 01154 M01S01106.sfs +++| SFTA DATA 10H
| Line S01107 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01155 M02S01107.ns2538 ---| STB SPACE 4 01156 M01S00005.ns2538 +++| STB SPACE 4,20 01157 M01S01108.sfs +++|** STB - SORT TABLE. 01158 M01S01109.sfs +++|* ENTRIES ARE SORTED WITH LOWEST DISPLAY CODE VALUES 01159 M01S01110.sfs +++|* COMING FIRST. WITH THIS METHOD, NEGATIVE INTEGER 01160 M01S01111.sfs +++|* VALUES ARE NOT SORTED PROPERLY. 01161 M01S01112.sfs +++|* 01162 M01S01113.sfs +++|* ENTRY (A0) TABLE NUMBER. 01163 M01S01114.sfs +++|* ((A0)+CTAB) WORD COUNT/ENTRY. 01164 M01S01115.sfs +++|* ((A0)+STAB) WORD COUNT/ENTRY TO COMPARE. 01165 M01S01116.sfs +++|* 01166 M01S01117.sfs +++|* EXIT TABLE SORTED. 01167 M01S01118.sfs +++|*
| Line S01119 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01168 M02S01119.ns2538 ---|* CALLS DZE.
| Line S01120 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01169 M02S01120.ns2538 ---|*
| Line S01121 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01170 M02S01121.ns2538 ---|* USES A - 1, 2, 6, 7.
| Line S01122 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01171 M02S01122.ns2538 ---|* X - 1, 2, 3, 4, 6, 7.
| Line S01123 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01172 M02S01123.ns2538 ---|* B - 2, 3, 4, 5, 6, 7.
| Line S01124 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01173 M02S01124.ns2538 ---|
| Line S01125 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01174 M02S01125.ns2538 ---|
| Line S01126 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01175 M02S01126.ns2538 ---| STB0 RJ DZE DELETE ZERO ENTRIES
| Line S01127 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01176 M02S01127.ns2538 ---|
| Line S01128 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01177 M02S01128.ns2538 ---| STB SUBR ENTRY/EXIT
| Line S01129 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01178 M02S01129.ns2538 ---| SA1 A0+CTAB WORD COUNT/ENTRY
| Line S01130 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01179 M02S01130.ns2538 ---| SB3 X1
| Line S01131 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01180 M02S01131.ns2538 ---| SA1 A0+FTAB (B4) = FWA
| Line S01132 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01181 M02S01132.ns2538 ---| SA2 A0+LTAB (B5) = LENGTH
| Line S01133 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01182 M02S01133.ns2538 ---| SB4 X1
| Line S01134 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01183 M02S01134.ns2538 ---| SB5 X2
| Line S01135 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01184 M02S01135.ns2538 ---| SB5 B5-B3 DECREMENT ONE ENTRY
| Line S01136 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01185 M02S01136.ns2538 ---| SB6 B0
| Line S01137 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01186 M02S01137.ns2538 ---|
| Line S01138 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01187 M02S01138.ns2538 ---| STB1 SX7 B0+ CLEAR EXCHANGE INDICATOR
| Line S01139 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01188 M02S01139.ns2538 ---| SA7 STBA
| Line S01140 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01189 M02S01140.ns2538 ---| STB2 SX4 B6
| Line S01141 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01190 M02S01141.ns2538 ---| SA1 A0+STAB WORD COUNT/ENTRY TO COMPARE
| Line S01142 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01191 M02S01142.ns2538 ---| SB7 X1
| Line S01143 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S01143.ns2538 ---|
| Line S01144 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01193 M02S01144.ns2538 ---| STB3 GE B6,B5,STB9 IF END OF TABLE
| Line S01145 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01194 M02S01145.ns2538 ---| SA1 B4+B6 A(I)
| Line S01146 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01195 M02S01146.ns2538 ---| SA2 A1+B3 A(I+1)
| Line S01147 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01196 M02S01147.ns2538 ---| NG X1,STB4 IF A(I) NEGATIVE
| Line S01148 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01197 M02S01148.ns2538 ---| PL X2,STB5 IF SAME SIGN
| Line S01149 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01198 M02S01149.ns2538 ---| EQ STB6
| Line S01150 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01199 M02S01150.ns2538 ---| STB4 PL X2,STB7 IF OPOSITE SIGN
| Line S01151 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01200 M02S01151.ns2538 ---| STB5 IX7 X2-X1
| Line S01152 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01201 M02S01152.ns2538 ---| NG X7,STB7 IF A(I) .GT. A(I+1) - EXCHANGE
| Line S01153 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01202 M02S01153.ns2538 ---| SB6 B6+B1 I = I+1
| Line S01154 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01203 M02S01154.ns2538 ---| NZ X7,STB6 IF A(I) .LT. A(I+1) - ADVANCE
| Line S01155 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01204 M02S01155.ns2538 ---| SB7 B7-1
| Line S01156 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01205 M02S01156.ns2538 ---| GE B7,B1,STB3 IF MORE WORDS TO COMPARE
| Line S01157 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01206 M02S01157.ns2538 ---| STB6 SB6 X4+B3 INCREMENT TO NEXT ENTRY
| Line S01158 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01207 M02S01158.ns2538 ---| EQ STB2 COMPARE NEXT ENTRY
| Line S01159 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01208 M02S01159.ns2538 ---|
| Line S01160 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01209 M02S01160.ns2538 ---| STB7 SB7 B3
| Line S01161 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01210 M02S01161.ns2538 ---| SX7 B1 INDICATE EXCHANGE
| Line S01162 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01211 M02S01162.ns2538 ---| SA7 A7
| Line S01163 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01212 M02S01163.ns2538 ---| SB6 X4
| Line S01164 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01213 M02S01164.ns2538 ---|
| Line S01165 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01214 M02S01165.ns2538 ---| STB8 SA1 B4+B6 EXCHANGE A(I) AND A(I+1)
| Line S01166 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01215 M02S01166.ns2538 ---| SA2 A1+B3
| Line S01167 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01216 M02S01167.ns2538 ---| BX6 X1
| Line S01168 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01217 M02S01168.ns2538 ---| SA6 A2
| Line S01169 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S01169.ns2538 ---| LX6 X2
| Line S01170 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01219 M02S01170.ns2538 ---| SA6 A1
| Line S01171 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01220 M02S01171.ns2538 ---| SB6 B6+B1 INCREMENT TO NEXT WORD
| Line S01172 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01221 M02S01172.ns2538 ---| SB7 B7-B1
| Line S01173 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01222 M02S01173.ns2538 ---| EQ B7,STB2 IF EXCHANGE COMPLETE
| Line S01174 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01223 M02S01174.ns2538 ---| EQ STB8
| Line S01175 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01224 M02S01175.ns2538 ---|
| Line S01176 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01225 M02S01176.ns2538 ---| STB9 SA1 A7
| Line S01177 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01226 M02S01177.ns2538 ---| ZR X1,STB0 IF SORT COMPLETE
| Line S01178 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01227 M02S01178.ns2538 ---| SB6 B0
| Line S01179 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01228 M02S01179.ns2538 ---| EQ STB1
| Line S01180 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01229 M02S01180.ns2538 ---|
| Line S01181 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01230 M02S01181.ns2538 ---| STBA CON 0 EXCHANGE INDICATOR 01231 M01S00006.ns2538 +++|* USES X - 1, 2, 3, 6. 01232 M01S00007.ns2538 +++|* A - 0, 1, 2, 3, 6. 01233 M01S00008.ns2538 +++|* B - 2, 3, 4, 5, 6, 7. 01234 M01S00009.ns2538 +++|* 01235 M01S00010.ns2538 +++|* CALLS DZE, GMS. 01236 M01S00011.ns2538 +++|* 01237 M01S00012.ns2538 +++|* NOTES SAVES AND RESTORES (A0). 01238 M01S00013.ns2538 +++| 01239 M01S00014.ns2538 +++| 01240 M01S00015.ns2538 +++| STB SUBR ENTRY/EXIT 01241 M01S00016.ns2538 +++| SA1 A0+CTAB GET NUMBER OF WORDS PER ENTRY 01242 M01S00017.ns2538 +++| SB5 X1 SET LENGTH OF EACH COLUMN 01243 M01S00018.ns2538 +++| SX6 A0 SAVE TABLE NUMBER 01244 M01S00019.ns2538 +++| SA6 STBA 01245 M01S00020.ns2538 +++| SA2 A0+LTAB GET LENGTH OF TABLE 01246 M01S00021.ns2538 +++| IX6 X2/X1 GET NUMBER OF ENTRIES IN TABLE 01247 M01S00022.ns2538 +++| SA1 A0+STAB GET NUMBER OF WORDS IN EACH KEY 01248 M01S00023.ns2538 +++| SA2 A0+FTAB GET FWA OF TABLE 01249 M01S00024.ns2538 +++| SB2 B0 SET CHARACTER SORT 01250 M01S00025.ns2538 +++| SB3 B0 SET ASCENDING SORT 01251 M01S00026.ns2538 +++| SB4 B1 SET TO SORT ON FIRST COLUMN 01252 M01S00027.ns2538 +++| SB6 X6 SET NUMBER OF ENTRIES TO SORT 01253 M01S00028.ns2538 +++| SB7 X2+ SET FWA OF TABLE 01254 M01S00029.ns2538 +++| RJ GMS SORT TABLE 01255 M01S00030.ns2538 +++| SA1 STBA RESTORE TABLE NUMBER 01256 M01S00031.ns2538 +++| SA0 X1+ 01257 M01S00032.ns2538 +++| RJ DZE DELETE ZERO ENTRIES 01258 M01S00033.ns2538 +++| EQ STBX RETURN 01259 M01S00034.ns2538 +++| 01260 M01S00035.ns2538 +++| 01261 M01S00036.ns2538 +++| STBA CON 0 TABLE NUMBER
| Line S01182 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01262 M02S01182.ns2290 ---| TOV SPACE 4
| Line S01183 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01263 M02S01183.ns2290 ---|** TOV - TABLE OVERFLOW.
| Line S01184 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01264 M02S01184.ns2290 ---|*
| Line S01185 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01265 M02S01185.ns2290 ---|* ENTRY FROM *ATS* ONLY.
| Line S01186 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01266 M02S01186.ns2290 ---|* (B6) = EXIT ADDRESS IN *COMCMTP* TO CONTINUE
| Line S01187 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01267 M02S01187.ns2290 ---|* PROCESSING.
| Line S01188 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01268 M02S01188.ns2290 ---|*
| Line S01189 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01269 M02S01189.ns2290 ---|* EXIT TO (B6).
| Line S01190 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01270 M02S01190.ns2290 ---|* FIELD LENGTH INCREASED BY 1000B WORDS.
| Line S01191 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01271 M02S01191.ns2290 ---|* (TV) .NE. 0, IF FIELD LENGTH LIMIT REACHED.
| Line S01192 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01272 M02S01192.ns2290 ---|*
| Line S01193 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01273 M02S01193.ns2290 ---|* USES A - 3, 6.
| Line S01194 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01274 M02S01194.ns2290 ---|* X - 3, 4, 6.
| Line S01195 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01275 M02S01195.ns2290 ---|*
| Line S01196 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01276 M02S01196.ns2290 ---|* MACROS MEMORY.
| Line S01197 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01277 M02S01197.ns2290 ---|
| Line S01198 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01278 M02S01198.ns2290 ---|
| Line S01199 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01279 M02S01199.ns2290 ---| TOV BSS 0 ENTRY
| Line S01200 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01280 M02S01200.ns2290 ---| SA3 ML CURRENT FIELD LENGTH
| Line S01201 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01281 M02S01201.ns2290 ---| SX3 X3+1000B
| Line S01202 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01282 M02S01202.ns2290 ---| SX4 X3-FLLM LIMIT FIELD LENGTH
| Line S01203 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01283 M02S01203.ns2290 ---| NG X4,TOV1 IF ADEQUATE FIELD LENGTH
| Line S01204 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01284 M02S01204.ns2290 ---| SX6 B1 INDICATE OVERFLOW
| Line S01205 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01285 M02S01205.ns2290 ---| SA6 TV
| Line S01206 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01286 M02S01206.ns2290 ---| TOV1 MEMORY CM,TOVB,R,X3
| Line S01207 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01287 M02S01207.ns2290 ---| SA3 TOVB GET FIELD LENGTH ASSIGNED
| Line S01208 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01288 M02S01208.ns2290 ---| AX3 30
| Line S01209 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01289 M02S01209.ns2290 ---| BX6 X3
| Line S01210 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01290 M02S01210.ns2290 ---| SA6 ML SET NEW FIELD LENGTH
| Line S01211 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01291 M02S01211.ns2290 ---| SX6 X6-100B
| Line S01212 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01292 M02S01212.ns2290 ---| SA6 F.TEND ADJUST TABLE LENGTH
| Line S01213 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01293 M02S01213.ns2290 ---| JP B6 EXIT
| Line S01214 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S01214.ns2290 ---|
| Line S01215 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01295 M02S01215.ns2290 ---|
| Line S01216 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01296 M02S01216.ns2290 ---| TO CON TOV TABLE OVERFLOW PROCESSOR ADDRESS FOR *ATS*
| Line S01217 Modification History | |
|---|---|
M01 (Added by) | sfs |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01297 M02S01217.ns2290 ---| TOVB CON 0 FIELD LENGTH STATUS RETURN 01298 M01S01218.sfs +++| TITLE FILE WRITE ROUTINES 01299 M01S01219.sfs +++|*** THESE ROUTINES PROVIDE ALL FUNCTIONS NECESSARY FOR 01300 M01S01220.sfs +++|* WRITING TO THE FILE. 01301 M01S01221.sfs +++|* 01302 M01S01222.sfs +++|* *WTB* PERFORMS ALL WRITES OR REWRITES REQUIRED WHEN 01303 M01S01223.sfs +++|* MANIPULATING THE FILE. 01304 M01S01224.sfs +++|* 01305 M01S01225.sfs +++|* *BLD* WRITES THE LEVEL-1 TABLE ON CREATE, BUILDS LEVEL-0 01306 M01S01226.sfs +++|* AND WRITES IT TO THE FILE. 01307 M01S01227.sfs +++|* 01308 M01S01228.sfs +++|* *UDD* UPDATES LEVEL-0 INFORMATION UPON COMPLETION 01309 M01S01229.sfs +++|* OF AN UPDATE. 01310 M01S01230.sfs +++|* 01311 M01S01231.sfs +++|* *RBA* RESETS BLOCK ADDRESSES TO REFLECT PROPER LINKAGE 01312 M01S01232.sfs +++|* UPON COMPETION OF VARIOUS STAGES OF A REFORMAT RUN. 01313 M01S01233.sfs +++|* 01314 M01S01234.sfs +++|* ALL WRITE FUNCTIONS REQUIRE (X5) = FET ADDRESS OF FILE. 01315 M01S01235.sfs +++| BLD SPACE 4 01316 M01S01236.sfs +++|** BLD - BUILD DIRECTORY. 01317 M01S01237.sfs +++|* 01318 M01S01238.sfs +++|* ENTRY EOF ENCOUNTERED ON INPUT FILE. 01319 M01S01239.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 01320 M01S01240.sfs +++|* (X0) UPPER 24 BITS = CALLER INFORMATION, 01321 M01S01241.sfs +++|* FOR LEVEL-0, WORD 1. 01322 M01S01242.sfs +++|* 01323 M01S01243.sfs +++|* EXIT DIRECTORY BUILT AND WRITTEN TO FILE. 01324 M01S01244.sfs +++|* 01325 M01S01245.sfs +++|* CALLS STB, WTB. 01326 M01S01246.sfs +++|* 01327 M01S01247.sfs +++|* USES ALL REGISTERS. 01328 M01S01248.sfs +++| 01329 M01S01249.sfs +++| 01330 M01S01250.sfs +++| BLD SUBR ENTRY/EXIT 01331 M01S01251.sfs +++| SA0 B0 01332 M01S01252.sfs +++| SA1 L.TAB1 01333 M01S01253.sfs +++| ZR X1,BLD1 IF NULL CREATE 01334 M01S01254.sfs +++| BX6 X0 SAVE CALLER INFORMATION 01335 M01S01255.sfs +++| SA0 B1 01336 M01S01256.sfs +++| SA6 BLDA 01337 M01S01257.sfs +++| RJ STB SORT TABLE 01338 M01S01258.sfs +++| SX7 B1 01339 M01S01259.sfs +++| SA7 CZ 01340 M01S01260.sfs +++| RJ WTB WRITE TABLE 01341 M01S01261.sfs +++| BX7 X7-X7 01342 M01S01262.sfs +++| SA7 CZ 01343 M01S01263.sfs +++| SA0 B0+ 01344 M01S01264.sfs +++| RJ STB SORT TABLE 01345 M01S01265.sfs +++| SA1 BLDA RESTORE CALLER INFORMATION 01346 M01S01266.sfs +++| BX0 X1 01347 M01S01267.sfs +++| BLD1 RJ WTB WRITE TABLE 01348 M01S01268.sfs +++| EQ BLDX RETURN 01349 M01S01269.sfs +++| 01350 M01S01270.sfs +++| BLDA CON 0 HOLD FOR CALLER INFORMATION 01351 M01S01271.sfs +++| RBA SPACE 4 01352 M01S01272.sfs +++|** RBA - RESET BLOCK ADDRESSES. 01353 M01S01273.sfs +++|* 01354 M01S01274.sfs +++|* ENTRY (A0) TABLE NUMBER. 01355 M01S01275.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 01356 M01S01276.sfs +++|* 01357 M01S01277.sfs +++|* EXIT ALL BLOCKS WRITTEN TO FILE. 01358 M01S01278.sfs +++|* BLOCK ADDRESSES RESET TO REFLECT CORRECT LINKAGE. 01359 M01S01279.sfs +++|* IF LEVEL-1, THEN LEVEL-0 IS CREATED. 01360 M01S01280.sfs +++|* (X6) ADDRESS OF FIRST BLOCK. 01361 M01S01281.sfs +++|* 01362 M01S01282.sfs +++|* CALLS ADW, ANB, WTB. 01363 M01S01283.sfs +++|* 01364 M01S01284.sfs +++|* USES ALL REGISTERS. 01365 M01S01285.sfs +++| 01366 M01S01286.sfs +++| 01367 M01S01287.sfs +++| RBA0 BX7 X7-X7 CLEAR TABLE POINTER 01368 M01S01288.sfs +++| SA7 A0+PNAA 01369 M01S01289.sfs +++| 01370 M01S01290.sfs +++| RBA SUBR ENTRY/EXIT 01371 M01S01291.sfs +++| SA1 A0+LTAB CHECK LENGTH 01372 M01S01292.sfs +++| BX2 X2-X2 01373 M01S01293.sfs +++| SX0 X5 01374 M01S01294.sfs +++| ZR X1,RBA3 IF EMPTY TABLE 01375 M01S01295.sfs +++| 01376 M01S01296.sfs +++| RBA1 SX4 A0-1 01377 M01S01297.sfs +++| NZ X4,RBA2 IF NOT LEVEL-1 01378 M01S01298.sfs +++| BX6 X6-X6 CLEAR LINK 01379 M01S01299.sfs +++| SA6 RA1+1 01380 M01S01300.sfs +++| RBA2 RJ WTB WRITE LAST BLOCK 01381 M01S01301.sfs +++| SX6 A0 01382 M01S01302.sfs +++| LX6 1 01383 M01S01303.sfs +++| SA2 X6+RA0+1 PICK UP ADDRESS OF WRITE 01384 M01S01304.sfs +++| 01385 M01S01305.sfs +++| RBA3 BX6 X2 01386 M01S01306.sfs +++| SX1 A0 SAVE ADDRESS OF BLOCK 01387 M01S01307.sfs +++| SA6 RBAA 01388 M01S01308.sfs +++| SA3 A0+PNEC ADDRESS OF PREVIOUS WRITE 01389 M01S01309.sfs +++| ZR X3,RBA0 IF FINISHED 01390 M01S01310.sfs +++| BX6 X3 01391 M01S01311.sfs +++| LX1 1 01392 M01S01312.sfs +++| SA6 X1+RA0 01393 M01S01313.sfs +++| SX0 X5 01394 M01S01314.sfs +++| RJ ANB ADD NEXT BLOCK 01395 M01S01315.sfs +++| SA1 CW+2 LINKED BLOCK 01396 M01S01316.sfs +++| SA2 RBAA 01397 M01S01317.sfs +++| BX6 X1 01398 M01S01318.sfs +++| BX7 X2 01399 M01S01319.sfs +++| SA6 A0+PNEC 01400 M01S01320.sfs +++| SX1 A0 01401 M01S01321.sfs +++| LX1 1 01402 M01S01322.sfs +++| SA7 X1+RA0+1 01403 M01S01323.sfs +++| SX5 X0 RESET FET ADDRESSES 01404 M01S01324.sfs +++| EQ RBA1 LOOP TO WRITE BLOCK 01405 M01S01325.sfs +++| 01406 M01S01326.sfs +++| RBAA CON 0 HOLD FOR ADDRESS OF WRITE 01407 M01S01327.sfs +++| UDD SPACE 4 01408 M01S01328.sfs +++|** UDD - UPDATE DIRECTORY. 01409 M01S01329.sfs +++|* 01410 M01S01330.sfs +++|* ENTRY (X0) FET ADDRESS (FOR READ). 01411 M01S01331.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 01412 M01S01332.sfs +++|* (X6) UPPER 24 BITS = CALLER INFORMATION, 01413 M01S01333.sfs +++|* FOR LEVEL-0, WORD 1. 01414 M01S01334.sfs +++|* 01415 M01S01335.sfs +++|* EXIT MODIFICATION DATE UPDATED. 01416 M01S01336.sfs +++|* FIRST ENTRY UPDATED IF NECESSARY. 01417 M01S01337.sfs +++|* (X6) " 0 IF ERROR. 01418 M01S01338.sfs +++|* 01419 M01S01339.sfs +++|* CALLS ANB, MVE, WTB. 01420 M01S01340.sfs +++|* 01421 M01S01341.sfs +++|* USES ALL REGISTERS. 01422 M01S01342.sfs +++| 01423 M01S01343.sfs +++| 01424 M01S01344.sfs +++| UDD SUBR ENTRY/EXIT 01425 M01S01345.sfs +++| MX3 24 01426 M01S01346.sfs +++| BX6 X3*X6 01427 M01S01347.sfs +++| SA6 UDDA 01428 M01S01348.sfs +++| BX6 X5 SAVE WRITE FET ADDRESS 01429 M01S01349.sfs +++| SA6 UDDB 01430 M01S01350.sfs +++| BX6 X6-X6 RESET LENGTH 01431 M01S01351.sfs +++| SA6 L.TAB0 01432 M01S01352.sfs +++| SA6 L.TAB1 01433 M01S01353.sfs +++| SA0 B0 TABLE NUMBER 01434 M01S01354.sfs +++| SX3 B1 RANDOM ADDRESS 01435 M01S01355.sfs +++| RJ ANB ADD NEXT BLOCK TO TABLE 01436 M01S01356.sfs +++| NZ X6,UDDX IF ERROR 01437 M01S01357.sfs +++| SA1 CW+2 01438 M01S01358.sfs +++| BX6 X1 01439 M01S01359.sfs +++| SA6 RA0+1 01440 M01S01360.sfs +++| SA1 L.TAB0 01441 M01S01361.sfs +++| ZR X1,UDDX IF EMPTY FILE 01442 M01S01362.sfs +++| SA1 CW+1 UPDATE MODIFICATION DATE 01443 M01S01363.sfs +++| SA2 PD 01444 M01S01364.sfs +++| MX3 18 01445 M01S01365.sfs +++| LX3 36 01446 M01S01366.sfs +++| BX6 X3*X1 01447 M01S01367.sfs +++| BX6 X6+X2 01448 M01S01368.sfs +++| SA3 UDDA 01449 M01S01369.sfs +++| BX6 X6+X3 01450 M01S01370.sfs +++| SA6 A3 01451 M01S01371.sfs +++| SA3 F.TAB0 01452 M01S01372.sfs +++| SA1 CTAB 01453 M01S01373.sfs +++| SB3 X1-1 01454 M01S01374.sfs +++| SA3 X3+B3 RETRIEVE RANDOM ADDRESS OF FIRST BLOCK 01455 M01S01375.sfs +++| SA0 B1 TABLE NUMBER 01456 M01S01376.sfs +++| RJ ANB ADD NEXT BLOCK TO TABLE 01457 M01S01377.sfs +++| NZ X6,UDDX IF ERROR 01458 M01S01378.sfs +++| SA1 L.TAB1 01459 M01S01379.sfs +++| ZR X1,UDDX RETURN - IF EMPTY TABLE 01460 M01S01380.sfs +++| SA3 F.TAB0 01461 M01S01381.sfs +++| SA2 F.TAB1 01462 M01S01382.sfs +++| SA1 CTAB 01463 M01S01383.sfs +++| MOVE X1-1,X2,X3 REPLACE FIRST ENTRY 01464 M01S01384.sfs +++| SA1 UDDA 01465 M01S01385.sfs +++| BX6 X1 01466 M01S01386.sfs +++| SA6 CW+1 01467 M01S01387.sfs +++| SA0 B0 TABLE NUMBER 01468 M01S01388.sfs +++| SX6 B1 SET RANDOM ADDRESS 01469 M01S01389.sfs +++| SA6 RA0 01470 M01S01390.sfs +++| SA5 UDDB RESET FET ADDRESS 01471 M01S01391.sfs +++| BX0 X0-X0 01472 M01S01392.sfs +++| RJ WTB WRITE BLOCK 01473 M01S01393.sfs +++| BX6 X6-X6 01474 M01S01394.sfs +++| EQ UDDX RETURN 01475 M01S01395.sfs +++| 01476 M01S01396.sfs +++| UDDA CON 0 HOLD AREA 01477 M01S01397.sfs +++| UDDB CON 0 FET ADDRESS HOLD AREA 01478 M01S01398.sfs +++| WTB SPACE 4 01479 M01S01399.sfs +++|** WTB - WRITE BLOCK TO FILE. 01480 M01S01400.sfs +++|* 01481 M01S01401.sfs +++|* ENTRY (A0) TABLE NUMBER. 01482 M01S01402.sfs +++|* (X0) UPPER 24 BITS = CALLER INFORMATION, 01483 M01S01403.sfs +++|* FOR LEVEL-0, WORD 1. 01484 M01S01404.sfs +++|* (X5) FET ADDRESS FOR WRITE). 01485 M01S01405.sfs +++|* ((A0*2)+RA0) RANDOM ADDRESS IF UPDATING EXISTING BLOCK. 01486 M01S01406.sfs +++|* ((A0*2)+RA0+1) LINK,IF PRESENT. 01487 M01S01407.sfs +++|* (CZ) " 0 IF LEVEL-0 TO BE BUILT WHILE WRITING L-1. 01488 M01S01408.sfs +++|* 01489 M01S01409.sfs +++|* EXIT TABLE WRITTEN TO FILE. 01490 M01S01410.sfs +++|* ((A0*2)+RA0+1) RANDOM ADDRESS OF LAST WRITE. 01491 M01S01411.sfs +++|* 01492 M01S01412.sfs +++|* CALLS ADW, WTW. 01493 M01S01413.sfs +++|* 01494 M01S01414.sfs +++|* USES ALL REGISTERS. 01495 M01S01415.sfs +++| 01496 M01S01416.sfs +++| 01497 M01S01417.sfs +++| WTB0 SX7 A0 01498 M01S01418.sfs +++| SX0 B0 RESET LENGTH 01499 M01S01419.sfs +++| ZR X7,WTB12 IF EMPTY LEVEL-O TABLE 01500 M01S01420.sfs +++| SA5 WTBD RESET FET ADDRESS 01501 M01S01421.sfs +++| 01502 M01S01422.sfs +++| WTB SUBR ENTRY/EXIT 01503 M01S01423.sfs +++| BX6 X5 SAVE FET ADDRESS 01504 M01S01424.sfs +++| SA6 WTBD 01505 M01S01425.sfs +++| BX6 X0 SAVE STATUS WORD 01506 M01S01426.sfs +++| SA6 WTBE 01507 M01S01427.sfs +++| BX7 X7-X7 01508 M01S01428.sfs +++| SA7 WTBB 01509 M01S01429.sfs +++| SX4 A0 PICK UP RANDOM ADDRESS, IF PRESENT 01510 M01S01430.sfs +++| LX4 1 01511 M01S01431.sfs +++| SA4 X4+RA0 01512 M01S01432.sfs +++| 01513 M01S01433.sfs +++|* DETERMINE IF BLOCK IN TABLE REPLACES AN EXISTING BLOCK ON THE 01514 M01S01434.sfs +++|* FILE; AND IF SO, DETERMINE IF BLOCK SPLITTING IS REQUIRED. 01515 M01S01435.sfs +++|* SET APPROPRIATE BLOCK LENGTHS. 01516 M01S01436.sfs +++| 01517 M01S01437.sfs +++| SA3 A0+TFBL FULL BLOCK LENGTH 01518 M01S01438.sfs +++| WTB1 BX7 X3 SAVE BLOCK LENGTH 01519 M01S01439.sfs +++| SA7 WTBA 01520 M01S01440.sfs +++| SX0 X3 01521 M01S01441.sfs +++| SA1 A0+LTAB LENGTH 01522 M01S01442.sfs +++| NZ X1,WTB2 IF NOT EMPTY TABLE 01523 M01S01443.sfs +++| ZR X4,WTB0 RETURN - IF NOT REPLACING BLOCK 01524 M01S01444.sfs +++| SX0 B0 01525 M01S01445.sfs +++| WTB2 BX6 X1 01526 M01S01446.sfs +++| IX3 X6/X3 FULL PRUS 01527 M01S01447.sfs +++| SX7 WTBB 01528 M01S01448.sfs +++| SB2 X3 01529 M01S01449.sfs +++| BX6 X0 01530 M01S01450.sfs +++| IX3 X3*X6 FULL PRUS LENGTH 01531 M01S01451.sfs +++| IX6 X1-X3 REMAINING LENGTH 01532 M01S01452.sfs +++| ZR X4,WTB4 IF NO CHECK REQUIRED FOR SPLIT BLOCK 01533 M01S01453.sfs +++| EQ B2,WTB4 IF NO FULL PRUS - BLOCK FITS(NO SPLIT) 01534 M01S01454.sfs +++| GT B2,B1,WTB3 IF MORE THAN 1 FULL PRU (SPLIT BLOCKS) 01535 M01S01455.sfs +++| ZR X6,WTB5 IF NO PARTIAL PRU - BLOCK FITS(NO SPLIT) 01536 M01S01456.sfs +++| 01537 M01S01457.sfs +++| WTB3 SA3 A0+TPBL PARTIAL BLOCK LENGTH 01538 M01S01458.sfs +++| SX4 B0+ 01539 M01S01459.sfs +++| EQ WTB1 01540 M01S01460.sfs +++| WTB4 ZR X6,WTB5 IF NO PARTIAL BLOCK 01541 M01S01461.sfs +++| BX0 X6 BLOCK LENGTH 01542 M01S01462.sfs +++| WTB5 EQ B2,WTB11 IF NO FULL PRUS - LAST BLOCK 01543 M01S01463.sfs +++| GT B2,B1,WTB6 IF MORE THAN ONE FULL PRU 01544 M01S01464.sfs +++| ZR X6,WTB11 IF NO PARTIAL PRU - LAST BLOCK 01545 M01S01465.sfs +++| 01546 M01S01466.sfs +++|* BUILD CONTROL WORD. 01547 M01S01467.sfs +++| 01548 M01S01468.sfs +++| WTB6 SA4 A0+CWL0 CONTROL WORD 01549 M01S01469.sfs +++| SA3 A0+CTAB 01550 M01S01470.sfs +++| BX2 X0 01551 M01S01471.sfs +++| IX6 X2/X3 ENTRIES IN BLOCK 01552 M01S01472.sfs +++| LX6 12 01553 M01S01473.sfs +++| BX6 X4+X6 01554 M01S01474.sfs +++| SX2 X0+2 01555 M01S01475.sfs +++| LX2 36 01556 M01S01476.sfs +++| BX6 X6+X2 01557 M01S01477.sfs +++| SA6 CW 01558 M01S01478.sfs +++| SX3 A0 SET LINK 01559 M01S01479.sfs +++| 01560 M01S01480.sfs +++|* SET RANDOM ADDRESS. 01561 M01S01481.sfs +++| 01562 M01S01482.sfs +++| SA2 WTBD 01563 M01S01483.sfs +++| RECALL X2 01564 M01S01484.sfs +++| SA7 X2+6 01565 M01S01485.sfs +++| 01566 M01S01486.sfs +++|* SET LINKAGE AND WRITE BLOCK. 01567 M01S01487.sfs +++| 01568 M01S01488.sfs +++| LX3 1 01569 M01S01489.sfs +++| BX6 X6-X6 CLEAR LINK 01570 M01S01490.sfs +++| SA3 X3+RA0+1 01571 M01S01491.sfs +++| BX7 X3 01572 M01S01492.sfs +++| SA6 A3 01573 M01S01493.sfs +++| SA1 CZ
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/sfs.txt · Last modified: by 127.0.0.1