cdc:nos2.source:opl.opl871:deck:sfs
Deck SFS
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.sfs +++| IDENT SFS,SFSS,,01,00 00002 M00S00002.sfs +++| ABS 00003 M00S00003.sfs +++| SST 00004 M00S00004.sfs +++| TITLE SFS - SPECIAL SYSTEM FILE SUPERVISOR. 00005 M00S00005.sfs +++| SYSCOM B1 00006 M00S00006.sfs +++| SPACE 4 00007 M00S00007.sfs +++|*COMMENT SFS - SPECIAL SYSTEM FILE SUPERVISOR.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1972.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.sfs +++| SPACE 4 00011 M00S00010.sfs +++|*** SFS - SPECIAL SYSTEM FILE SUPERVISOR. 00012 M00S00011.sfs +++|* D. A. HIVELEY. 72/05/23. 00013 M00S00012.sfs +++| SPACE 4 00014 M00S00013.sfs +++|*** SFS PROVIDES MACROS AND A FUNCTION PROCESSOR FOR COMMON 00015 M00S00014.sfs +++|* ROUTINES THAT PERFORM BASIC TABLE MANAGEMENT, DATA 00016 M00S00015.sfs +++|* MANIPULATION AND I/O PROCESSING FOR THE SPECIAL SYSTEM FILE 00017 M00S00016.sfs +++|* PROCESSORS, WHICH PROCESS TREE STRUCTURED FILES. 00018 M00S00017.sfs +++|* SFS MUST BE LOADED AS A 01,00 OVERLAY TO ONE OF THE SYSTEM 00019 M00S00018.sfs +++|* FILE PROCESSORS. 00020 M00S00019.sfs +++| SPACE 4 00021 M00S00020.sfs +++|*** SFS IS DESIGNED TO PROCESS TREE-STRUCTURED FILES OF A GIVEN 00022 M00S00021.sfs +++|* FORMAT. THE FUNCTIONS ARE DESIGNED TO PROCESS ANY NUMBER 00023 M00S00022.sfs +++|* LEVELS OF TREE STRUCTURE, HOWEVER, TABLE SPACE IS ONLY 00024 M00S00023.sfs +++|* ALLOCATED FOR A THREE-LEVEL TREE STRUCTURED FILE (3 DIRECTORY 00025 M00S00024.sfs +++|* LEVELS + 1 DATA LEVEL). 00026 M00S00025.sfs +++|* 00027 M00S00026.sfs +++|* THE FIRST WORD OF EACH RECORD ON THE FILE IS THE CONTROL WORD 00028 M00S00027.sfs +++|* CONTAINING SUFFICIENT INFORMATION TO DESCRIBE THE DATA WITHIN 00029 M00S00028.sfs +++|* THE RECORD. THE SECOND WORD IS NOT USED FOR MOST RECORDS 00030 M00S00029.sfs +++|* (LEVEL-0, RECORD 1, WORD 2 CONTAINS FILE CREATION AND UPDATE 00031 M00S00030.sfs +++|* DATES, AND A 24 BIT FIELD TO BE USED BY THE PROCESSOR PROGRAM. 00032 M00S00031.sfs +++|* THE THIRD WORD CONTAINS THE LINKAGE (RANDOM ADDRESS 00033 M00S00032.sfs +++|* POINTER) TO THE NEXT LOGICAL BLOCK ON THAT LEVEL, IF ONE IS 00034 M00S00033.sfs +++|* PRESENT. THE REMAINING WORDS IN THE RECORD ARE DIRECTORY 00035 M00S00034.sfs +++|* ENTRIES FOR DIRECTORY LEVEL RECORDS. A TOTAL OF 63 WORDS 00036 M00S00035.sfs +++|* (60 WORDS OF ENTRIES + 3 CONTROL WORDS) CAN BE USED IN EACH 00037 M00S00036.sfs +++|* RECORD IN THE DIRECTORY LEVELS. FOR THE DATA LEVEL, THE 00038 M00S00037.sfs +++|* CONTROL WORD SHOULD BE COMPATIBLE WITH THE CONTROL WORDS FOR 00039 M00S00038.sfs +++|* DIRECTORY LEVELS. THE REMAINDER CAN BE ANY LENGTH AND FORMAT 00040 M00S00039.sfs +++|* DESIRED. BECAUSE OF THIS FLEXIBLE FORMAT, THE PROCESSOR 00041 M00S00040.sfs +++|* PROGRAM MUST HANDLE I/O OF THE DATA-LEVEL RECORD. HOWEVER, 00042 M00S00041.sfs +++|* IF THE DATA-LEVEL IS CONSTRUCTED SIMILAR TO THE DIRECTORY- 00043 M00S00042.sfs +++|* LEVEL RECORDS, SFS FUNCTIONS CAN BE USED TO PERFORM THE I/O. 00044 M00S00043.sfs +++|* THE INFORMATION IN ALL LEVELS IS MAINTAINED IN 00045 M00S00044.sfs +++|* COLLATED SEQUENCE. 00046 M00S00045.sfs +++|* 00047 M00S00046.sfs +++|* CONTROL WORD FORMAT IS AS FOLLOWS - 00048 M00S00047.sfs +++|* 00049 M00S00048.sfs +++|*T 12/DL,12/WIR,12/WPE,12/NOE,12/FWAD
Figure
00050 M00S00049.sfs +++|* DL = DATA LEVEL. 00051 M00S00050.sfs +++|* WIR = WORDS IN RECORD. 00052 M00S00051.sfs +++|* WPE = WORDS PER ENTRY. 00053 M00S00052.sfs +++|* NOE = NUMBER OF ENTRIES. 00054 M00S00053.sfs +++|* FWAD = FIRST WORD ADDRESS OF DATA ENTRIES. 00055 M00S00054.sfs +++|* 00056 M00S00055.sfs +++|* THE 0 AND 1 DIRECTORY LEVELS CORRESPOND TO THE PRIMARY LEVEL 00057 M00S00056.sfs +++|* OF THE TREE. THE ENTRIES IN THE 0-LEVEL CONSIST OF THE FIRST 00058 M00S00057.sfs +++|* ENTRY (AND CORRESPONDING RANDOM ADDRESS) OF EACH 1-LEVEL 00059 M00S00058.sfs +++|* RECORD. ALL PRIMARY ENTRIES CAN BE FOUND IN THE 1-LEVEL 00060 M00S00059.sfs +++|* DIRECTORY. THIS METHOD ENABLES QUICKER ACCESS TO A GIVEN 00061 M00S00060.sfs +++|* PRIMARY ENTRY. THE FIRST SECTOR OF THE FILE IS DEFINED TO BE 00062 M00S00061.sfs +++|* THE FIRST 0-LEVEL DIRECTORY RECORD WHICH IS LINKED TO THE 00063 M00S00062.sfs +++|* NEXT 0-LEVEL RECORD. EXCEPT FOR THE PRIMARY LEVEL, THERE 00064 M00S00063.sfs +++|* EXISTS 1 DIRECTORY LEVEL FOR EACH TREE LEVEL TERMINATING 00065 M00S00064.sfs +++|* WITH THE DATA LEVEL. 00066 M00S00065.sfs +++| SPACE 4 00067 M00S00066.sfs +++|*** TREE-STRUCTURE FILE LAYOUT. 00068 M00S00067.sfs +++|* 00069 M00S00068.sfs +++|* LEVEL-0 LEVEL-1 LEVEL-2 DATA-LEVEL 00070 M00S00069.sfs +++|* RECORD 0 1 3 5 00071 M00S00070.sfs +++|* ******** ******** ******** ********* 00072 M00S00071.sfs +++|* * * * * * * * * 00073 M00S00072.sfs +++|* *CH1 * *CH1 * *P1 * *CONTROL* 00074 M00S00073.sfs +++|* * 1*.......* 3*.......* 5*.......*FIELDS * 00075 M00S00074.sfs +++|* *CH7 * *CH2 * *P2 * * * 00076 M00S00075.sfs +++|* * 2*. * ... *. * ... *. *U1 * 00077 M00S00076.sfs +++|* * ... * . * ... * . * ... * . *U2 * 00078 M00S00077.sfs +++|* * ... *. . * *. . * *. . * ... * 00079 M00S00078.sfs +++|* ******** . . ******** . . ******** . . ********* 00080 M00S00079.sfs +++|* . . . . 00081 M00S00080.sfs +++|* . 2 4 6 00082 M00S00081.sfs +++|* .******** ******** ********* 00083 M00S00082.sfs +++|* * * * * * * 00084 M00S00083.sfs +++|* *CH7 * *P1 * *CONTROL* 00085 M00S00084.sfs +++|* * 4*.......* 6*.......*FIELDS * 00086 M00S00085.sfs +++|* *CH8 * *P2 * * * 00087 M00S00086.sfs +++|* * ... *. * ... *. *U1 * 00088 M00S00087.sfs +++|* * ... * . * ... * . *U2 * 00089 M00S00088.sfs +++|* * *. . * *. . * ... * 00090 M00S00089.sfs +++|* ******** . . ******** . . ********* 00091 M00S00090.sfs +++|* . . 00092 M00S00091.sfs +++|* CHN = PRIMARY ENTRIES. 00093 M00S00092.sfs +++|* PN = SECONDARY ENTRIES RELATED TO SPECIFIC PRIMARY ENTRY. 00094 M00S00093.sfs +++|* UN = TERTIARY ENTRIES RELATED TO SPECIFIC SECONDARY ENTRY. 00095 M00S00094.sfs +++| SPACE 4 00096 M00S00095.sfs +++|*CALL COMCMAC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00097 M01S00001.v23l617 +++|*CALL COMCDCM 00098 M00S00096.sfs +++|*CALL COMCMTM 00099 M00S00097.sfs +++| LIST X 00100 M00S00098.sfs +++|*CALL COMSSFS 00101 M00S00099.sfs +++| LIST -X
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 00102 M01S00001.ns2538 +++| SPACE 4,10 00103 M01S00002.ns2538 +++|**** ASSEMBLY CONSTANTS. 00104 M00S00100.sfs +++| 00105 M00S00101.sfs +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 00106 M01S00003.ns2538 +++| MWK$ EQU 1 DEFINE MULTIPLE WORD SORT KEY FOR *GMS* 00107 M00S00102.sfs +++| OV EQU 1 OVERLAY TYPE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00004.ns2538 +++|**** 00109 M00S00103.sfs +++| TITLE PROCESSOR PROGRAM COMMUNICATION AREA. 00110 M00S00104.sfs +++| SFSS EQU FUNC 00111 M00S00105.sfs +++| 00112 M00S00106.sfs +++| 00113 M00S00107.sfs +++| IDIRC INITIALIZE DIRECT CELLS 00114 M00S00108.sfs +++| 00115 M00S00109.sfs +++| 00116 M00S00110.sfs +++| ITAB 0,0,0,0 INITIALIZE TABLES 00117 M00S00111.sfs +++| TITLE FUNCTION PROCESSOR CALL. 00118 M00S00112.sfs +++| LOV SPACE 4 00119 M00S00113.sfs +++| ERRNG OVLA-.3-1 00120 M00S00114.sfs +++| SPACE 4 00121 M00S00115.sfs +++|** FUNCTION PROCESSOR. 00122 M00S00116.sfs +++|* 00123 M00S00117.sfs +++|* (B5) FUNCTION NUMBER. 00124 M00S00118.sfs +++|* 00125 M00S00119.sfs +++|* USES A - 2, 7. 00126 M00S00120.sfs +++|* X - 2, 7. 00127 M00S00121.sfs +++|* B - 1, 5. 00128 M00S00122.sfs +++| 00129 M00S00123.sfs +++| 00130 M00S00124.sfs +++| ORG FUNC 00131 M00S00125.sfs +++|*FUNC 00132 M00S00126.sfs +++| PS ENTRY/EXIT 00133 M00S00127.sfs +++| SX2 B5-MAXT 00134 M00S00128.sfs +++| PL X2,FUNC1 IF FUNCTION NUMBER EXCEEDS MAXIMUM 00135 M00S00129.sfs +++| SA2 B5+FUNCT 00136 M00S00130.sfs +++| SB5 X2 00137 M00S00131.sfs +++| SA2 FUNC 00138 M00S00132.sfs +++| BX7 X2 00139 M00S00133.sfs +++| SA7 B5 00140 M00S00134.sfs +++| SB5 B5+B1 00141 M00S00135.sfs +++| JP B5 00142 M00S00136.sfs +++| 00143 M00S00137.sfs +++| FUNCA DATA C* ILLEGAL SFS FUNCTION.* 00144 M00S00138.sfs +++| FUNC1 SX2 FUNCA 00145 M00S00139.sfs +++| MESSAGE X2 00146 M00S00140.sfs +++| ABORT 00147 M00S00141.sfs +++| 00148 M00S00142.sfs +++| FUNCT INDEX CON,MAXT,( ) 00149 M00S00143.sfs +++| INDEX ,ASCT,(/ASC/) 00150 M00S00144.sfs +++| INDEX ,SCIT,(/SCI/) 00151 M00S00145.sfs +++| INDEX ,ANBT,(/ANB/) 00152 M00S00146.sfs +++| INDEX ,CCWT,(/CCW/) 00153 M00S00147.sfs +++| INDEX ,SBTT,(/SBT/) 00154 M00S00148.sfs +++| INDEX ,SPBT,(/SPB/) 00155 M00S00149.sfs +++| INDEX ,PNAT,(/PNA/) 00156 M00S00150.sfs +++| INDEX ,PNET,(/PNE/) 00157 M00S00151.sfs +++| INDEX ,DZET,(/DZE/) 00158 M00S00152.sfs +++| INDEX ,MWST,(/MWS/) 00159 M00S00153.sfs +++| INDEX ,SDFT,(/SDF/) 00160 M00S00154.sfs +++| INDEX ,SFTT,(/SFT/) 00161 M00S00155.sfs +++| INDEX ,STBT,(/STB/) 00162 M00S00156.sfs +++| INDEX ,BLDT,(/BLD/) 00163 M00S00157.sfs +++| INDEX ,RBAT,(/RBA/) 00164 M00S00158.sfs +++| INDEX ,UDDT,(/UDD/) 00165 M00S00159.sfs +++| INDEX ,WTBT,(/WTB/) 00166 M00S00160.sfs +++| LOC *O 00167 M00S00161.sfs +++| TITLE INPUT PROCESSING ROUTINES. 00168 M00S00162.sfs +++|*** TO PROCESS INPUT DIRECTIVES, A CALL TO *ASC* IS ALL 00169 M00S00163.sfs +++|* THAT IS REQUIRED. *ASC* ASSEMBLES CHARACTERS UNTIL A 00170 M00S00164.sfs +++|* SEPARATOR IS ENCOUNTERED UP TO A MAXIMUM OF TEN CHARACTERS 00171 M00S00165.sfs +++|* PER CALL. 00172 M00S00166.sfs +++|* THE CONTENTS OF *B6* AND *ET* REFLECT FILE 00173 M00S00167.sfs +++|* POSITION UPON EXIT. 00174 M00S00168.sfs +++|* 00175 M00S00169.sfs +++|* DEPENDING ON STATUS OF *OP* AND *OT* DATA WILL BE 00176 M00S00170.sfs +++|* RETRIEVED FROM THE INPUT FILE, TERMINAL OR K-DISPLAY. 00177 M00S00171.sfs +++|* FOR K-DISPLAY PROCESSING, *KD* SHOULD CONTAIN THE 00178 M00S00172.sfs +++|* ADDRESS OF THE K-DISPLAY CONTROL WORD. IF K-DISPLAY 00179 M00S00173.sfs +++|* MESSAGE ADDRESSES ARE SET IN *M1* AND *M2* THESE 00180 M00S00174.sfs +++|* MESSAGE AREAS WILL BE CLEARED UPON RECEIVING INPUT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00175.sfs +++| ASC SPACE 4 00186 M00S00176.sfs +++|** ASC - ASSEMBLE CHARACTERS. 00187 M00S00177.sfs +++|* 00188 M00S00178.sfs +++|* ENTRY (SP) STRING BUFFER ADDRESS OF PREVIOUS CHAR. 00189 M00S00179.sfs +++|* (SM) STRING BUFFER LIMIT. 00190 M00S00180.sfs +++|* (X0) INPUT FET ADDRESS. 00191 M00S00181.sfs +++|* (X1) BIT STRING OF CHARACTERS TO PERMIT. 00192 M00S00182.sfs +++|* (X6) BIT STRING OF CHARACTERS TO SUPPRESS. 00193 M00S00183.sfs +++|* IF BIT POSITION EQUALING (SPECIAL CHARACTER DISPLAY 00194 M00S00184.sfs +++|* CODE - 45B) IS SET, THAT CHARACTER IS SUPPRESSED OR 00195 M00S00185.sfs +++|* PERMITTED AS DATA (NOT TREATED AS SEPARATOR). 00196 M00S00186.sfs +++|* 00197 M00S00187.sfs +++|* EXIT (SP) UPDATED STRING BUFFER ADDRESS. 00198 M00S00188.sfs +++|* (X6) LEFT -JUSTIFIED ASSEMBLED CHARACTERS. 00199 M00S00189.sfs +++|* (X5) RIGHT-JUSTIFIED ASSEMBLED CHARACTERS. 00200 M00S00190.sfs +++|* (X4) NUMBER OF CHARACTERS 00201 M00S00191.sfs +++|* (B5) SEPARATOR (0 IF END OF LINE). 00202 M00S00192.sfs +++|* (B6) = 0 IF ENTRY TERMINATION */*. 00203 M00S00193.sfs +++|* (B6) " 0 ASSEMBLY COMPLETE. 00204 M00S00194.sfs +++|* (ET) = -1 IF EOF. 00205 M00S00195.sfs +++|* = +1 IF */*. 00206 M00S00196.sfs +++|* 00207 M00S00197.sfs +++|* CALLS ISB. 00208 M00S00198.sfs +++|* 00209 M00S00199.sfs +++|* USES ALL REGISTERS EXCEPT A0 AND A5. 00210 M00S00200.sfs +++| 00211 M00S00201.sfs +++| 00212 M00S00202.sfs +++| ASC6 SX4 -B4 00213 M00S00203.sfs +++| SX4 X4+10D 00214 M00S00204.sfs +++| SX6 B2 00215 M00S00205.sfs +++| SA6 SP 00216 M00S00206.sfs +++| BX6 X6-X6 00217 M00S00207.sfs +++| SB3 B4+B4 00218 M00S00208.sfs +++| ZR X4,ASCX RETURN - NO CHARACTERS ASSEMBLED 00219 M00S00209.sfs +++| SB4 B3+B3 00220 M00S00210.sfs +++| SB4 B4+B3 00221 M00S00211.sfs +++| ZR X5,ASCX RETURN - ASSEMBLY REGISTER EMPTY 00222 M00S00212.sfs +++| LX6 X5,B4 00223 M00S00213.sfs +++| 00224 M00S00214.sfs +++| ASC SUBR ENTRY/EXIT 00225 M00S00215.sfs +++| BX5 X5-X5 00226 M00S00216.sfs +++| SB4 10D 00227 M00S00217.sfs +++| BX7 X1 00228 M00S00218.sfs +++| SB6 B1 00229 M00S00219.sfs +++| 00230 M00S00220.sfs +++| ASC1 SA1 SP SET STRING POINTER 00231 M00S00221.sfs +++| SB2 X1 00232 M00S00222.sfs +++| SB5 B0 SET END OF LINE INDICATOR 00233 M00S00223.sfs +++| SA1 SM SET MAXIMUM SCAN CHARACTERS 00234 M00S00224.sfs +++| SB7 SBCAL CHARACTER ASSEMBLY LIMIT 00235 M00S00225.sfs +++| SB3 X1 00236 M00S00226.sfs +++| LE B3,B7,ASC1.1 IF LINE LENGTH .LE. CHARACTER LIMIT 00237 M00S00227.sfs +++| SB3 B7 00238 M00S00228.sfs +++| ASC1.1 GE B2,B3,ASC4 IF BUFFER EMPTY 00239 M00S00229.sfs +++| ASC2 SB2 B2+B1 00240 M00S00230.sfs +++| GE B2,B3,ASC6 IF END OF STRING BUFFER 00241 M00S00231.sfs +++| SA1 B2 00242 M00S00232.sfs +++| SB5 X1 SET SEPARTOR 00243 M00S00233.sfs +++| SB7 X1-1R+ 00244 M00S00234.sfs +++| LT B7,ASC3 IF NOT SPECIAL CHARACTER 00245 M00S00235.sfs +++| AX4 X6,B7 00246 M00S00236.sfs +++| LX4 59 00247 M00S00237.sfs +++| NG X4,ASC2 IF CHARACTER TO BE SUPPRESSED 00248 M00S00238.sfs +++| AX4 X7,B7 00249 M00S00239.sfs +++| LX4 59 00250 M00S00240.sfs +++| PL X4,ASC6 IF CHARACTER NOT TO BE PERMITTED 00251 M00S00241.sfs +++| ASC3 LX5 6 00252 M00S00242.sfs +++| SB4 B4-1 00253 M00S00243.sfs +++| BX5 X5+X1 00254 M00S00244.sfs +++| NE B4,ASC2 IF MORE CHARACTERS TO ASSEMBLE 00255 M00S00245.sfs +++| SB6 B1+ 00256 M00S00246.sfs +++| EQ ASC6 00257 M00S00247.sfs +++| 00258 M00S00248.sfs +++| ASC4 SA6 ASCA 00259 M00S00249.sfs +++| SA7 A6+B1 00260 M00S00250.sfs +++| SX6 B4 SAVE CHARACTER COUNT 00261 M00S00251.sfs +++| SA6 ASCB 00262 M00S00252.sfs +++| RJ ISB INPUT STRING BUFFER 00263 M00S00253.sfs +++| SA2 ASCB RESTORE CHARACTER COUNT 00264 M00S00254.sfs +++| SA1 ASCA 00265 M00S00255.sfs +++| SB4 X2 00266 M00S00256.sfs +++| BX6 X1 00267 M00S00257.sfs +++| SA1 A1+B1
| Line S00258 Modification History | |
|---|---|
M01 (Removed by) | sfs1 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00258.sfs1 ---| SX7 X1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sfs1 |
Seq # *Modification Id* Act ----------------------------+ 00269 M01S00001.sfs1 +++| BX7 X1 00270 M00S00259.sfs +++| NE B6,ASC1 LOOP FOR NEXT CHARACTER 00271 M00S00260.sfs +++| SA1 SP RESET STRING POINTER 00272 M00S00261.sfs +++| SB2 X1 00273 M00S00262.sfs +++| SB5 B0 RESET END OF LINE INDICATOR 00274 M00S00263.sfs +++| EQ ASC6 RETURN - IF EOF OR NEW CHARGE NUMBER 00275 M00S00264.sfs +++| 00276 M00S00265.sfs +++| ASCA CON 0,0 HOLD FOR SPECIAL CHARACTER BIT CODES 00277 M00S00266.sfs +++| ASCB CON 0 HOLD AREA FOR CHARACTER COUNT 00278 M00S00267.sfs +++| ISB SPACE 4 00279 M00S00268.sfs +++|** ISB - INPUT STRING BUFFER. 00280 M00S00269.sfs +++|* IF (LP) " 0, EXECUTE LIST PROCESSOR AFTER READING SOURCE LINE 00281 M00S00270.sfs +++|* TO STRING BUFFER. 00282 M00S00271.sfs +++|* 00283 M00S00272.sfs +++|* ENTRY (X0) INPUT FET ADDRESS, IF NOT K-DISPLAY. 00284 M00S00273.sfs +++|* 00285 M00S00274.sfs +++|* EXIT (SP) BEGINNING OF STRING BUFFER. 00286 M00S00275.sfs +++|* (SM) STRING BUFFER LIMIT. 00287 M00S00276.sfs +++|* (B6) = 0 IF NEW PRIMARY ENTRY OR EOF. 00288 M00S00277.sfs +++|* (NP) " 0 IF NEW PRIMARY ENTRY. 00289 M00S00278.sfs +++|* (ET) = -1 IF EOF. 00290 M00S00279.sfs +++|* = +1 IF */*. 00291 M00S00280.sfs +++|* 00292 M00S00281.sfs +++|* CALLS KIP, RDS, SIN. 00293 M00S00282.sfs +++|* 00294 M00S00283.sfs +++|* USES ALL REGISTERS EXCEPT A0, A5, X5. 00295 M00S00284.sfs +++| 00296 M00S00285.sfs +++| 00297 M00S00286.sfs +++| ISB SUBR ENTRY/EXIT 00298 M00S00287.sfs +++| SA1 OP 00299 M00S00288.sfs +++| SX1 X1-KOPT 00300 M00S00289.sfs +++| NZ X1,ISB1 IF NOT K-DISPLAY 00301 M00S00290.sfs +++| RJ KIP KEYBOARD INPUT 00302 M00S00291.sfs +++| EQ ISB2 00303 M00S00292.sfs +++| 00304 M00S00293.sfs +++| ISB1 READS X0,USBB,-NCSI READ DATA TO STRING BUFFER 00305 M00S00294.sfs +++| SX7 B6 SET LWA+1 OF CHARACTER STRING 00306 M00S00295.sfs +++| SA7 SM 00307 M00S00296.sfs +++| SX6 -B1 PRESET EOF 00308 M00S00297.sfs +++| SB6 B0 00309 M00S00298.sfs +++| NZ X1,ISB4 IF EOR OR EOF 00310 M00S00299.sfs +++| ISB2 SX7 USBB-1 00311 M00S00300.sfs +++| SA1 LP READ LIST PROCESSOR ADDRESS 00312 M00S00301.sfs +++| SA7 SP SET STRING BUFFER CHARACTER POINTER 00313 M00S00302.sfs +++| SX7 USBB SET STRING BUFFER ADDRESS 00314 M00S00303.sfs +++| SB7 X1+ 00315 M00S00304.sfs +++| SA7 SB 00316 M00S00305.sfs +++| ZR X1,ISB3 IF NO LIST PROCESSOR DEFINED 00317 M00S00306.sfs +++| RJ SIN EXECUTE LIST PROCESSOR 00318 M00S00307.sfs +++| ISB3 SA3 USBB CHECK NEW ENTRY 00319 M00S00308.sfs +++| BX6 X6-X6 00320 M00S00309.sfs +++| SX7 A3 00321 M00S00310.sfs +++| SB6 X3-1R/ 00322 M00S00311.sfs +++| NZ B6,ISBX RETURN - IF NOT NEW ENTRY 00323 M00S00312.sfs +++| SX6 1 FLAG *NEW ENTRY* 00324 M00S00313.sfs +++| SA7 SP 00325 M00S00314.sfs +++| ISB4 SA6 ET 00326 M00S00315.sfs +++| EQ ISBX 00327 M00S00316.sfs +++| SIN SPACE 4 00328 M00S00317.sfs +++|** SIN - SUBROUTINE INTERFACE. 00329 M00S00318.sfs +++|* 00330 M00S00319.sfs +++|* ENTRY (B7) SUBROUTINE ADDRESS. 00331 M00S00320.sfs +++|* 00332 M00S00321.sfs +++|* EXIT TO ROUTINE WITH RETURN ADDRESS SET. 00333 M00S00322.sfs +++|* 00334 M00S00323.sfs +++|* CALLS NONE. 00335 M00S00324.sfs +++|* 00336 M00S00325.sfs +++|* USES A - 1, 6. 00337 M00S00326.sfs +++|* X - 1, 6. 00338 M00S00327.sfs +++|* B - 7. 00339 M00S00328.sfs +++| 00340 M00S00329.sfs +++| 00341 M00S00330.sfs +++| SIN SUBR ENTRY/EXIT 00342 M00S00331.sfs +++| SA1 SIN SET RETURN ADDRESS 00343 M00S00332.sfs +++| BX6 X1 00344 M00S00333.sfs +++| SA6 B7 00345 M00S00334.sfs +++| JP B7+1 JUMP TO ROUTINE 00346 M00S00335.sfs +++| KIP SPACE 4 00347 M00S00336.sfs +++|** KIP - KEYBOARD INPUT PROCESSOR. 00348 M00S00337.sfs +++|*
| Line S00338 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00349 M01S00338.v23l617 ---|* ENTRY (KD) CONTROL ADDRESS OF DISPLAY.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00350 M01S00006.v23l617 +++|* ENTRY (IL) = ADDRESS OF KEYBOARD INPUT DISPLAY LINE. 00351 M01S00007.v23l617 +++|* (KD) = CONTROL ADDRESS OF DISPLAY. 00352 M00S00339.sfs +++|* 00353 M00S00340.sfs +++|* EXIT DATA MOVED TO STRING BUFFER.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00354 M01S00008.v23l617 +++|* KEYBOARD INPUT MOVED TO DISPLAY BUFFER. 00355 M00S00341.sfs +++|*
| Line S00342 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00356 M01S00342.v23l617 ---|* CALLS MVE, RCL, USB.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00343.sfs +++|*
| Line S00344 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00363 M01S00344.v23l617 ---|* USES A - 1, 2, 4, 6, 7. 00364 M01S00345.v23l617 ---|* X - 0, 1, 2, 3, 4, 6, 7. 00365 M01S00346.v23l617 ---|* B - 2, 3, 6, 7.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00014.v23l617 +++|* MACROS CONSOLE, MOVE, RECALL. 00367 M00S00347.sfs +++| 00368 M00S00348.sfs +++| 00369 M00S00349.sfs +++| KIP SUBR ENTRY/EXIT
| Line S00350 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00370 M01S00350.v23l617 ---| SA1 KD SET DISPLAY
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00351.sfs +++| CONSOLE X1
| Line S00352 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00383 M01S00352.v23l617 ---| 00384 M01S00353.v23l617 ---| KIP1 SA1 KD SET KEYBOARD BUFFER ADDRESS
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00385 M01S00026.v23l617 +++| KIP3 SA1 KD SET KEYBOARD BUFFER ADDRESS 00386 M00S00354.sfs +++| SA1 X1 00387 M00S00355.sfs +++| AX1 36
| Line S00356 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00388 M01S00356.v23l617 ---| SA1 X1
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00389 M01S00027.v23l617 +++| SA1 X1+
| Line S00357 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00390 M01S00357.v23l617 ---| NZ X1,KIP2 IF INPUT PRESENT
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00028.v23l617 +++| NZ X1,KIP4 IF INPUT PRESENT 00392 M00S00358.sfs +++| RECALL
| Line S00359 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00393 M01S00359.v23l617 ---| EQ KIP1
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00394 M01S00029.v23l617 +++| EQ KIP3 CHECK FOR INPUT 00395 M00S00360.sfs +++|
| Line S00361 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00396 M01S00361.v23l617 ---| KIP2 SA3 M1 00397 M01S00362.v23l617 ---| ZR X3,KIP3 IF NO ADDRESS
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00398 M01S00030.v23l617 +++| KIP4 SA3 M1 CLEAR MESSAGE LINE 00399 M01S00031.v23l617 +++| ZR X3,KIP5 IF NO ADDRESS 00400 M00S00363.sfs +++| MOVE 4,KIPA,X3
| Line S00364 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00401 M01S00364.v23l617 ---| KIP3 SA3 M2 00402 M01S00365.v23l617 ---| ZR X3,KIP4 IF NO ADDRESS
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00403 M01S00032.v23l617 +++| KIP5 SA3 M2 00404 M01S00033.v23l617 +++| ZR X3,KIP6 IF NO ADDRESS 00405 M00S00366.sfs +++| MOVE 4,KIPA,X3
| Line S00367 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00406 M01S00367.v23l617 ---| KIP4 SA1 KD SET KEYBOARD BUFFER ADDRESS
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00407 M01S00034.v23l617 +++| KIP6 SA1 KD SET KEYBOARD BUFFER ADDRESS 00408 M00S00368.sfs +++| SA1 X1 00409 M00S00369.sfs +++| AX1 36 00410 M00S00370.sfs +++| SB2 X1
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00411 M01S00035.v23l617 +++| MOVE 5,B2,KIPB STORE KEYBOARD INPUT 00412 M00S00371.sfs +++| RJ USB MOVE INPUT TO STRING BUFFER 00413 M00S00372.sfs +++| SX7 X6+1 SET LWA+1 OF CHARACTER STRING 00414 M00S00373.sfs +++| SA7 SM 00415 M00S00374.sfs +++| SA1 KD 00416 M00S00375.sfs +++| SA1 X1 00417 M00S00376.sfs +++| AX1 36 00418 M00S00377.sfs +++| BX6 X6-X6 CLEAR BUFFER 00419 M00S00378.sfs +++| SA6 X1 00420 M00S00379.sfs +++| EQ KIPX RETURN 00421 M00S00380.sfs +++|
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00422 M01S00036.v23l617 +++|* CHARACTER STRING TO BLANK OUT MESSAGE AREAS IN DISPLAYS.
| Line S00381 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00423 M01S00381.v23l617 ---| KIPA DIS 4,
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00382.sfs +++| 00431 M00S00383.sfs +++| 00432 M00S00384.sfs +++|** STRING BUFFER. 00433 M00S00385.sfs +++| 00434 M00S00386.sfs +++| NCSI EQU 80 NUMBER OF CHARACTERS TO SCAN ON INPUT 00435 M00S00387.sfs +++| DATA 1R 00436 M00S00388.sfs +++| USBB BSS NCSI+10 STRING BUFFER 00437 M00S00389.sfs +++| USBBL EQU *-USBB STRING BUFFER LENGTH 00438 M00S00390.sfs +++| SBCAL EQU USBB+72 STRING BUFFER CHARACTER ASSEMBLY LIMIT 00439 M00S00391.sfs +++| SCI SPACE 4 00440 M00S00392.sfs +++|** SCI - SCAN FOR CODE IDENTIFIER. 00441 M00S00393.sfs +++|* 00442 M00S00394.sfs +++|* ENTRY (SP) ADDRESS OF LAST CHARACTER PROCESSED. 00443 M00S00395.sfs +++|* (SM) STRING BUFFER LIMIT. 00444 M00S00396.sfs +++|* (X0) INPUT FET ADDRESS. 00445 M00S00397.sfs +++|* (X1) BIT STRING OF CHARACTERS TO PERMIT. 00446 M00S00398.sfs +++|* (X3) TABLE ADDRESS OF K-DISPLAY ENTRIES. 00447 M00S00399.sfs +++|* TABLE ENTRIES HVE FOLLOWING FORMAT, 00448 M00S00400.sfs +++|* 42/ENTRY,18/STATUS 00449 M00S00401.sfs +++|* ENTRY = DISPLAY CODE ENTRY TO SEARCH FOR. 00450 M00S00402.sfs +++|* STATUS = RETURN INFORMATION FOR CALLER. 00451 M00S00403.sfs +++|* BOTH TABLES MUST BE TERMINATED BY A ZERO WORD. 00452 M00S00404.sfs +++|* (X6) TABLE ADDRESS OF TABLE INFORMATION. 00453 M00S00405.sfs +++|* TABLE ENTRIES HAVE FOLLOWING FORMAT, 00454 M00S00406.sfs +++|* 18/I,18/M,6/U,6/S,6/F,6/P 00455 M00S00407.sfs +++|* I = IDENTIFIER. 00456 M00S00408.sfs +++|* M = ADDRESS OF MAXIMUM VALUE (0 = INFINITE). 00457 M00S00409.sfs +++|* U = UPPER BIT POSITION IN FIELD. 00458 M00S00410.sfs +++|* S = FIELD SIZE IN BITS. 00459 M00S00411.sfs +++|* F = FIRST WORD ADDRESS WITHIN DATA BLOCK. 00460 M00S00412.sfs +++|* P = PROCESSOR INDEX. 00461 M00S00413.sfs +++|* 00462 M00S00414.sfs +++|* EXIT (X1) = 0 IF ERROR. 00463 M00S00415.sfs +++|* (B5) = 0 IF SEPARATOR IS *=*. 00464 M00S00416.sfs +++|* (B6) = 0 IF ENTRY TERMINATION, */*. 00465 M00S00417.sfs +++|* (B7) PROCESSOR INDEX OR STATUS(K-DISPLAY). 00466 M00S00418.sfs +++|* (DF-DF+4) M, U, S, F, AND I ENTRIES FROM TABLE 00467 M00S00419.sfs +++|* (ET) = -1 IF EOF. 00468 M00S00420.sfs +++|* = +1 IF */*. 00469 M00S00421.sfs +++|* 00470 M00S00422.sfs +++|* CALLS ASC. 00471 M00S00423.sfs +++|* 00472 M00S00424.sfs +++|* USES ALL REGISTERS EXCEPT A5 AND A0. 00473 M00S00425.sfs +++| 00474 M00S00426.sfs +++| 00475 M00S00427.sfs +++| SCI SUBR ENTRY/EXIT 00476 M00S00428.sfs +++| SA6 SCIA 00477 M00S00429.sfs +++| BX6 X3 00478 M00S00430.sfs +++| LX7 X1 00479 M00S00431.sfs +++| SA6 A6+1 00480 M00S00432.sfs +++| SA7 A6+1 00481 M00S00433.sfs +++| 00482 M00S00434.sfs +++| SCI1 SA2 SCIB CHARACTERS TO SUPPRESS 00483 M00S00435.sfs +++| SA1 SCIA+2 CHARACTERS TO PERMIT 00484 M00S00436.sfs +++| BX6 X2 00485 M00S00437.sfs +++| RJ ASC ASSEMBLE CHARACTERS 00486 M00S00438.sfs +++| SX1 B1+ 00487 M00S00439.sfs +++| SB5 B5-1R= 00488 M00S00440.sfs +++| EQ B6,SCIX RETURN - IF EOF OR NEW CHARGE NUMBER 00489 M00S00441.sfs +++| ZR X4,SCI1 IF NO CHARACTERS 00490 M00S00442.sfs +++| BX1 X1-X1 00491 M00S00443.sfs +++| MX0 18 00492 M00S00444.sfs +++| NZ B5,SCI3 IF NOT IDENTIFIER SEPARATOR 00493 M00S00445.sfs +++| ZR X4,SCI1 IF NO DATA ASSEMBLED 00494 M00S00446.sfs +++| SA2 SCIA 00495 M00S00447.sfs +++| SA1 X2-1 FWA OF TABLE 00496 M00S00448.sfs +++| SCI2 SA1 A1+B1 00497 M00S00449.sfs +++| ZR X1,SCI3 IF END OF TABLE 00498 M00S00450.sfs +++| BX2 X0*X1 00499 M00S00451.sfs +++| BX2 X2-X6 00500 M00S00452.sfs +++| NZ X2,SCI2 IF IDENTIFIER NOT FOUND 00501 M00S00453.sfs +++| MX0 -6 00502 M00S00454.sfs +++| SA6 DF+4 SET IDENTIFIER 00503 M00S00455.sfs +++| BX6 -X0*X1 SET PROCESSOR ADDRESS 00504 M00S00456.sfs +++| SB7 X6 00505 M00S00457.sfs +++| LX1 54 00506 M00S00458.sfs +++| BX7 -X0*X1 SET FWA OF FIELD 00507 M00S00459.sfs +++| MX0 -24 SET MAXIMUM VALUE 00508 M00S00460.sfs +++| LX1 42 00509 M00S00461.sfs +++| BX6 -X0*X1 00510 M00S00462.sfs +++| SA2 X6 00511 M00S00463.sfs +++| BX6 X2 00512 M00S00464.sfs +++| AX0 18 SET UPPER BIT OF FIELD 00513 M00S00465.sfs +++| SA6 DF 00514 M00S00466.sfs +++| LX1 6 00515 M00S00467.sfs +++| BX6 -X0*X1 00516 M00S00468.sfs +++| SA6 A6+B1 00517 M00S00469.sfs +++| LX1 6 SET SIZE OF FIELD 00518 M00S00470.sfs +++| BX6 -X0*X1 00519 M00S00471.sfs +++| SA6 A6+B1 00520 M00S00472.sfs +++| SA7 A6+B1 00521 M00S00473.sfs +++| SX1 B1 00522 M00S00474.sfs +++| EQ SCIX RETURN 00523 M00S00475.sfs +++| 00524 M00S00476.sfs +++|* CHECK FOR K-DISPLAY TERMINATION. 00525 M00S00477.sfs +++| 00526 M00S00478.sfs +++| SCI3 SA2 OP 00527 M00S00479.sfs +++| SX2 X2-KOPT 00528 M00S00480.sfs +++| NZ X2,SCIX RETURN 00529 M00S00481.sfs +++| SA2 SCIA+1 00530 M00S00482.sfs +++| MX0 42 00531 M00S00483.sfs +++| SA1 X2-1 00532 M00S00484.sfs +++| SCI4 SA1 A1+B1 00533 M00S00485.sfs +++| ZR X1,SCIX IF END OF TABLE 00534 M00S00486.sfs +++| BX2 X0*X1 00535 M00S00487.sfs +++| BX2 X2-X6 00536 M00S00488.sfs +++| NZ X2,SCI4 IF NO MATCH 00537 M00S00489.sfs +++| BX2 -X0*X1 00538 M00S00490.sfs +++| SB7 X2 00539 M00S00491.sfs +++| SX1 B1 00540 M00S00492.sfs +++| EQ SCIX RETURN 00541 M00S00493.sfs +++| 00542 M00S00494.sfs +++| SCIA CON 0,0,0 HOLD AREAS 00543 M00S00495.sfs +++| SCIB BITCON ( ) SUPPRESS CHARACTERS 00544 M00S00496.sfs +++| TITLE READ FILE ROUTINES. 00545 M00S00497.sfs +++|*** THE ROUTINES *SPB*, *SBT* AND *ANB* ARE DESIGNED FOR USE 00546 M00S00498.sfs +++|* WITH THE INQUIRE AND UPDATE OPTIONS TO SET SELECTED 00547 M00S00499.sfs +++|* BLOCKS IN THE RESPECTIVE TABLES. *ANB* ADDS THE NEXT 00548 M00S00500.sfs +++|* LINKED BLOCK TO A TABLE AND *SBT* SEARCHES FOR THE BLOCK 00549 M00S00501.sfs +++|* ASSOCIATED WITH A GIVEN ENTRY AND PLACES IT IN THE TABLE. 00550 M00S00502.sfs +++|* 00551 M00S00503.sfs +++|* *PNA* AND *PNE* ARE PROVIDED FOR USE WITH THE REFORMAT 00552 M00S00504.sfs +++|* AND SOURCE OPTIONS TO PROCESS EACH ENTRY IN THE CHAIN 00553 M00S00505.sfs +++|* OF LINKED BLOCKS. 00554 M00S00506.sfs +++|* 00555 M00S00507.sfs +++|* ALL READ FUNCTIONS REQUIRE (X0) = FET ADDRESS OF FILE. 00556 M00S00508.sfs +++| ANB SPACE 4 00557 M00S00509.sfs +++|** ANB - ADD NEXT BLOCK TO TABLE. 00558 M00S00510.sfs +++|* 00559 M00S00511.sfs +++|* ENTRY (A0) TABLE NUMBER. 00560 M00S00512.sfs +++|* (X0) FET ADDRESS (FOR READ). 00561 M00S00513.sfs +++|* (X3) RANDOM ADDRESS OF BLOCK. 00562 M00S00514.sfs +++|* 00563 M00S00515.sfs +++|* EXIT (CW+2) ADDRESS OF LINKED BLOCK. 00564 M00S00516.sfs +++|* BLOCK ADDED TO TABLE. 00565 M00S00517.sfs +++|* LENGTH UPDATED. 00566 M00S00518.sfs +++|* (X6) = 0 IF NO ERROR. 00567 M00S00519.sfs +++|* ((A0*2)+RA0+1) ADDRESS OF READ. 00568 M00S00520.sfs +++|* 00569 M00S00521.sfs +++|* CALLS RDW, CCW, ATS. 00570 M00S00522.sfs +++|* 00571 M00S00523.sfs +++|* USES ALL REGISTERS. 00572 M00S00524.sfs +++| 00573 M00S00525.sfs +++| 00574 M00S00526.sfs +++| ANB SUBR ENTRY/EXIT 00575 M00S00527.sfs +++| RECALL X0 00576 M00S00528.sfs +++| BX6 X3 SET RANDOM ADDRESS 00577 M00S00529.sfs +++| SX2 A0 00578 M00S00530.sfs +++| LX2 1 00579 M00S00531.sfs +++| BX7 X3 00580 M00S00532.sfs +++| SA7 X2+RA0+1 00581 M00S00533.sfs +++| SA6 X0+6 00582 M00S00534.sfs +++| READ X0 00583 M00S00535.sfs +++| READW X0,CW,3 00584 M00S00536.sfs +++| NZ X1,ANB1 IF EOR OR EOF 00585 M00S00537.sfs +++| RJ CCW CRACK CONTROL WORD 00586 M00S00538.sfs +++| SB4 A0-B4 00587 M00S00539.sfs +++| NE B4,ANB1 IF NOT RIGHT LEVEL 00588 M00S00540.sfs +++| BX6 X6-X6 00589 M00S00541.sfs +++| SA5 A0+LTAB 00590 M00S00542.sfs +++| ZR B3,ANBX IF ZERO LENGTH 00591 M00S00543.sfs +++| ALLOC A0,B3 00592 M00S00544.sfs +++| SA3 FTAB+A0 00593 M00S00545.sfs +++| IX3 X3+X5 00594 M00S00546.sfs +++| READW X0,X3,X1 00595 M00S00547.sfs +++| BX6 X6-X6 00596 M00S00548.sfs +++| ZR X1,ANBX RETURN - IF TRANSFER COMPLETE 00597 M00S00549.sfs +++| ANB1 REWIND X0,R 00598 M00S00550.sfs +++| SX6 B1 00599 M00S00551.sfs +++| EQ ANBX RETURN 00600 M00S00552.sfs +++| CCW SPACE 4 00601 M00S00553.sfs +++|** CCW - CRACK CONTROL WORD. 00602 M00S00554.sfs +++|* 00603 M00S00555.sfs +++|* ENTRY (CW) CONTROL WORD. 00604 M00S00556.sfs +++|* 00605 M00S00557.sfs +++|* EXIT (B2) FWA OF DATA BLOCK. 00606 M00S00558.sfs +++|* (B3) LENGTH OF DATA BLOCK. 00607 M00S00559.sfs +++|* (B4) LEVEL NUMBER. 00608 M00S00560.sfs +++|* (B5) NUMBER OF ENTRIES. 00609 M00S00561.sfs +++|* (B7) WORD COUNT/ENTRY. 00610 M00S00562.sfs +++|* 00611 M00S00563.sfs +++|* CALLS NONE. 00612 M00S00564.sfs +++|* 00613 M00S00565.sfs +++|* USES A - 1. 00614 M00S00566.sfs +++|* X - 1, 2, 6. 00615 M00S00567.sfs +++|* B - 1, 2, 3, 4, 5, 7. 00616 M00S00568.sfs +++| 00617 M00S00569.sfs +++| 00618 M00S00570.sfs +++| CCW SUBR ENTRY/EXIT 00619 M00S00571.sfs +++| SA1 CW 00620 M00S00572.sfs +++| MX6 -12 00621 M00S00573.sfs +++| BX2 -X6*X1 FWA 00622 M00S00574.sfs +++| SB2 X2 00623 M00S00575.sfs +++| LX1 12 00624 M00S00576.sfs +++| BX2 -X6*X1 LEVEL NUMBER 00625 M00S00577.sfs +++| SB4 X2 00626 M00S00578.sfs +++| LX1 12 00627 M00S00579.sfs +++| BX2 -X6*X1 LENGTH OF DATA BLOCK (LENGTH-FWA+1) 00628 M00S00580.sfs +++| SB3 B1-B2 00629 M00S00581.sfs +++| SB3 X2+B3 00630 M00S00582.sfs +++| LX1 12 00631 M00S00583.sfs +++| BX2 -X6*X1 WORD COUNT/ENTRY 00632 M00S00584.sfs +++| SB7 X2 00633 M00S00585.sfs +++| LX1 12 00634 M00S00586.sfs +++| BX2 -X6*X1 NUMBER OF ENTRIES 00635 M00S00587.sfs +++| SB5 X2 00636 M00S00588.sfs +++| EQ CCWX RETURN 00637 M00S00589.sfs +++| PNA SPACE 4 00638 M00S00590.sfs +++|** PNA - PICK NEXT ADDRESS. 00639 M00S00591.sfs +++|* 00640 M00S00592.sfs +++|* ENTRY (A0) TABLE NUMBER. 00641 M00S00593.sfs +++|* (X0) FET ADDRESS (FOR READ). 00642 M00S00594.sfs +++|* ((A0)+PNAA) POINTER RO NEXT TABLE ENTRY. 00643 M00S00595.sfs +++|* ((A0*2)+RA0+1) ADDRESS OF LINKED BLOCK. 00644 M00S00596.sfs +++|* 00645 M00S00597.sfs +++|* EXIT (A3) ADDRESS OF RANDOM INDEX WORD IN ENTRY. 00646 M00S00598.sfs +++|* (X3) ADDRESS OF NEXT HIGHER-LEVEL BLOCK. 00647 M00S00599.sfs +++|* (X6) = 0 IF END OF TABLE. 00648 M00S00600.sfs +++|* ((A0)+PNAA) UPDATED. 00649 M00S00601.sfs +++|* 00650 M00S00602.sfs +++|* CALLS ANB, MSG. 00651 M00S00603.sfs +++|* 00652 M00S00604.sfs +++|* USES ALL REGISTERS. 00653 M00S00605.sfs +++| 00654 M00S00606.sfs +++| 00655 M00S00607.sfs +++| PNA SUBR ENTRY/EXIT 00656 M00S00608.sfs +++| PNA1 SA2 A0+LTAB TABLE LENGTH 00657 M00S00609.sfs +++| SA4 A0+PNAA 00658 M00S00610.sfs +++| SX6 A0 00659 M00S00611.sfs +++| IX3 X4-X2 00660 M00S00612.sfs +++| PL X3,PNA2 IF TABLE EXHAUSTED 00661 M00S00613.sfs +++| SA2 A0+CTAB INCREMENT TABLE POINTER 00662 M00S00614.sfs +++| IX6 X4+X2 00663 M00S00615.sfs +++| SA6 A4 00664 M00S00616.sfs +++| SA1 A0+FTAB FWA 00665 M00S00617.sfs +++| SX6 X6-1 00666 M00S00618.sfs +++| IX2 X1+X6 00667 M00S00619.sfs +++| SA3 X2 00668 M00S00620.sfs +++| EQ PNAX RETURN 00669 M00S00621.sfs +++| 00670 M00S00622.sfs +++| PNA2 LX6 1 00671 M00S00623.sfs +++| SA3 X6+RA0+1 ADDRESS OF LINKED BLOCK 00672 M00S00624.sfs +++| BX6 X6-X6 00673 M00S00625.sfs +++| ZR X3,PNAX RETURN - IF NO LINK 00674 M00S00626.sfs +++| SA1 OP 00675 M00S00627.sfs +++| SX1 X1-ROPT 00676 M00S00628.sfs +++| ZR X1,PNA3 IF REFORMAT 00677 M00S00629.sfs +++| SA6 A2 CLEAR LENGTH 00678 M00S00630.sfs +++| SA6 A0+PNAA CLEAR TABLE POINTER 00679 M00S00631.sfs +++| PNA3 RJ ANB ADD NEXT BLOCK TO TABLE 00680 M00S00632.sfs +++| NZ X6,PNA4 IF ERROR 00681 M00S00633.sfs +++| SA1 CW+2 SET ADDRESS OF NEXT BLOCK 00682 M00S00634.sfs +++| SX2 A0 00683 M00S00635.sfs +++| BX6 X1 00684 M00S00636.sfs +++| LX2 1 00685 M00S00637.sfs +++| SA6 X2+RA0+1 00686 M00S00638.sfs +++| EQ PNA1 LOOP FOR NEXT BLOCK 00687 M00S00639.sfs +++| 00688 M00S00640.sfs +++| PNA4 MESSAGE PNAB,3 ISSUE *DATA BASE ERROR.* MESSAGE 00689 M00S00641.sfs +++| BX3 X3-X3 00690 M00S00642.sfs +++| MX6 0 00691 M00S00643.sfs +++| EQ PNAX RETURN 00692 M00S00644.sfs +++| 00693 M00S00645.sfs +++| PNAA BSSZ NTAB-2 TABLE POINTERS 00694 M00S00646.sfs +++| PNAB DATA C* DATA BASE ERROR.* 00695 M00S00647.sfs +++| PNE SPACE 4 00696 M00S00648.sfs +++|** PNE - PICK NEXT ENTRY. 00697 M00S00649.sfs +++|* 00698 M00S00650.sfs +++|* ENTRY (A0) TABLE NUMBER. 00699 M00S00651.sfs +++|* (X0) FET ADDRESS (FOR READ). 00700 M00S00652.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 00701 M00S00653.sfs +++|* ((A0)+PNEC) ADDRESS OF LAST BLOCK WRITTEN. 00702 M00S00654.sfs +++|* 00703 M00S00655.sfs +++|* EXIT ((A0)+PNEC) UPDATED. 00704 M00S00656.sfs +++|* IF FULL BLOCK IS PRESENT IN TABLE AND IT HAS BEEN 00705 M00S00657.sfs +++|* PROCESSED, IT IS THEN WRITTEN TO THE FILE. 00706 M00S00658.sfs +++|* (A3) ADDRESS OF RANDOM INDEX WORD IN ENTRY. 00707 M00S00659.sfs +++|* (X3) ADDRESS FROM NEXT TABLE ENTRY. 00708 M00S00660.sfs +++|* (X6) = 0 IF END OF TABLE. 00709 M00S00661.sfs +++|* 00710 M00S00662.sfs +++|* CALLS WTB, PNA. 00711 M00S00663.sfs +++|* 00712 M00S00664.sfs +++|* USES ALL REGISTERS. 00713 M00S00665.sfs +++| 00714 M00S00666.sfs +++| 00715 M00S00667.sfs +++| PNE SUBR ENTRY/EXIT 00716 M00S00668.sfs +++| BX7 X5 SAVE FET ADDRESS 00717 M00S00669.sfs +++| SA7 PNEF 00718 M00S00670.sfs +++| PNE1 SA1 A0+PNAA GET TABLE INDEX 00719 M00S00671.sfs +++| SA2 A0+TFBL 00720 M00S00672.sfs +++| SA3 A0+FTAB SAVE FWA TABLE 00721 M00S00673.sfs +++| IX6 X1-X2 00722 M00S00674.sfs +++| BX7 X3 00723 M00S00675.sfs +++| NG X6,PNE2 IF NOT FULL BLOCK. 00724 M00S00676.sfs +++| SA7 PNEG 00725 M00S00677.sfs +++| RJ STB SORT TABLE TO ELIMINATE ZERO ENTRIES 00726 M00S00678.sfs +++| SA3 A0+FTAB NEW FWA TABLE 00727 M00S00679.sfs +++| SA2 PNEG OLD FWA TABLE 00728 M00S00680.sfs +++| IX2 X3-X2 00729 M00S00681.sfs +++| SA1 A0+PNAA ADJUST NEXT TABLE ENTRY POINTER 00730 M00S00682.sfs +++| IX6 X1-X2 00731 M00S00683.sfs +++| SA6 A1 00732 M00S00684.sfs +++| BX1 X6 00733 M00S00685.sfs +++| NZ X2,PNE1 IF SORT DELETED ZERO ENTRIES 00734 M00S00686.sfs +++| BX7 X0 SAVE FET ADDRESS 00735 M00S00687.sfs +++| SA7 PNED 00736 M00S00688.sfs +++| IX6 X3+X1 SAVE NEW FWA 00737 M00S00689.sfs +++| SA6 PNEA 00738 M00S00690.sfs +++| SX3 A0+ 00739 M00S00691.sfs +++| SA4 A0+LTAB SAVE NEW LENGTH 00740 M00S00692.sfs +++| IX6 X4-X1 00741 M00S00693.sfs +++| LX3 1 00742 M00S00694.sfs +++| SA6 PNEB 00743 M00S00695.sfs +++| BX6 X1 SET LENGTH FOR WRITE 00744 M00S00696.sfs +++| SA6 A4 00745 M00S00697.sfs +++| SA3 X3+RA0+1 SAVE LINK 00746 M00S00698.sfs +++| SA1 A0+PNEC LINK TO LAST BLOCK 00747 M00S00699.sfs +++| BX7 X3 00748 M00S00700.sfs +++| BX6 X1 00749 M00S00701.sfs +++| SA6 A3+ 00750 M00S00702.sfs +++| SA7 PNEE 00751 M00S00703.sfs +++| RJ WTB WRITE BLOCK 00752 M00S00704.sfs +++| SA1 PNED RESET FET ADDRESS 00753 M00S00705.sfs +++| SA2 PNEE RESTORE LINK 00754 M00S00706.sfs +++| SX0 X1 00755 M00S00707.sfs +++| SX6 A0 00756 M00S00708.sfs +++| BX7 X2 00757 M00S00709.sfs +++| LX6 1 00758 M00S00710.sfs +++| SA1 X6+RA0+1 SAVE RANDOM ADDRESS OF WRITE 00759 M00S00711.sfs +++| SA7 A1 00760 M00S00712.sfs +++| BX7 X1 00761 M00S00713.sfs +++| SA1 PNEA RESET FWA 00762 M00S00714.sfs +++| BX6 X1 00763 M00S00715.sfs +++| SA7 A0+PNEC 00764 M00S00716.sfs +++| SA6 A0+FTAB 00765 M00S00717.sfs +++| SA2 PNEB RESET LENGTH 00766 M00S00718.sfs +++| BX7 X2 00767 M00S00719.sfs +++| BX6 X6-X6 RESET TABLE INDEX 00768 M00S00720.sfs +++| SA7 A0+LTAB 00769 M00S00721.sfs +++| SA6 A0+PNAA 00770 M00S00722.sfs +++| PNE2 RJ PNA PICK NEXT ADDRESS 00771 M00S00723.sfs +++| SA5 PNEF RESET FET ADDRESS 00772 M00S00724.sfs +++| EQ PNEX RETURN 00773 M00S00725.sfs +++| 00774 M00S00726.sfs +++| PNEA BSSZ 1 HOLD FOR FWA 00775 M00S00727.sfs +++| PNEB BSSZ 1 HOLD FOR LENGTH 00776 M00S00728.sfs +++| PNEC BSSZ NTAB-2 TABLE INDICES 00777 M00S00729.sfs +++| PNED CON 0 FET ADDRESS HOLD AREA 00778 M00S00730.sfs +++| PNEE CON 0 HOLD FOR LINK 00779 M00S00731.sfs +++| PNEF CON 0 FET ADDRESS HOLD AREA 00780 M00S00732.sfs +++| PNEG CON 0 HOLD FOR TABLE FWA BEFORE SORT 00781 M00S00733.sfs +++| SBT SPACE 4 00782 M00S00734.sfs +++|** SBT - SET BLOCK IN TABLE. 00783 M00S00735.sfs +++|* 00784 M00S00736.sfs +++|* ENTRY (A0) TABLE NUMBER. 00785 M00S00737.sfs +++|* (X0) ADDRESS OF FET (FOR READ). 00786 M00S00738.sfs +++|* (SE) ADDRESS OF SEARCH ELEMENT. 00787 M00S00739.sfs +++|* (B6) RANDOM ADDRESS OF FIRST SEARCH BLOCK. 00788 M00S00740.sfs +++|* 00789 M00S00741.sfs +++|* EXIT ((A0*2)+RA0) RANDOM ADDRESS OF BLOCK IN TABLE. 00790 M00S00742.sfs +++|* ((A0*2)+RA0+1) RANDOM ADDRESS OF LINKED BLOCK. 00791 M00S00743.sfs +++|* (X3) ADDRESS OF ENTRY IN TABLE(IF X4=0). 00792 M00S00744.sfs +++|* (X4) = 0 IF EXACT ENTRY FOUND. 00793 M00S00745.sfs +++|* (X5) RANDOM ADDRESS OF NEXT LEVEL BLOCK. 00794 M00S00746.sfs +++|* (X6) " 0 IF ERROR. 00795 M00S00747.sfs +++|* 00796 M00S00748.sfs +++|* CALLS ANB, MVE, MWS. 00797 M00S00749.sfs +++|* 00798 M00S00750.sfs +++|* USES ALL REGISTERS. 00799 M00S00751.sfs +++| 00800 M00S00752.sfs +++| 00801 M00S00753.sfs +++| SBT0 SA4 SBTA 00802 M00S00754.sfs +++| SA3 SBTD ADDRESS OF ENTRY 00803 M00S00755.sfs +++| SA1 A4+B1 RESET FET ADDRESSES 00804 M00S00756.sfs +++| BX0 X1 00805 M00S00757.sfs +++| 00806 M00S00758.sfs +++| SBT SUBR ENTRY/EXIT 00807 M00S00759.sfs +++| BX6 X6-X6 00808 M00S00760.sfs +++| SA6 SBTE CLEAR PREVIOUS RANDOM ADDRESS 00809 M00S00761.sfs +++| BX6 X0 SAVE FET ADDRESS 00810 M00S00762.sfs +++| SA6 SBTB 00811 M00S00763.sfs +++| SBT1 SX3 B6 00812 M00S00764.sfs +++| SX5 B0 00813 M00S00765.sfs +++| ZR X3,SBT2 IF NO BLOCK ADDRESS 00814 M00S00766.sfs +++| SA1 A0+LTAB SAVE LENGTH OF TABLE 00815 M00S00767.sfs +++| BX6 X1 00816 M00S00768.sfs +++| SA6 SBTC 00817 M00S00769.sfs +++| SA1 SBTB SET FET ADDRESS 00818 M00S00770.sfs +++| SX6 B6 00819 M00S00771.sfs +++| BX0 X1 00820 M00S00772.sfs +++| SA6 SBTF SAVE CURRENT RANDOM ADDRESS 00821 M00S00773.sfs +++| RJ ANB ADD NEXT BLOCK 00822 M00S00774.sfs +++| NZ X6,SBTX IF ERROR 00823 M00S00775.sfs +++| SA5 SBTC 00824 M00S00776.sfs +++| SBT2 BX0 X5 00825 M00S00777.sfs +++| SA3 SE ENTRY BLOCK ADDRESS 00826 M00S00778.sfs +++| SB6 X3 00827 M00S00779.sfs +++| SA2 A0+LTAB LENGTH 00828 M00S00780.sfs +++| NZ X2,SBT3 IF NOT EMPTY TABLE 00829 M00S00781.sfs +++| SA1 CW+2 GET LINK 00830 M00S00782.sfs +++| SB6 X1 00831 M00S00783.sfs +++| NZ X1,SBT1 IF LINKED 00832 M00S00784.sfs +++| SBT3 IX6 X2-X0 00833 M00S00785.sfs +++| SA1 A0+FTAB FWA 00834 M00S00786.sfs +++| BX7 X2 00835 M00S00787.sfs +++| SA7 SBTC SAVE LENGTH 00836 M00S00788.sfs +++| BX7 X1 00837 M00S00789.sfs +++| SA7 A7+B1 SAVE FWA 00838 M00S00790.sfs +++| SA6 A2 SET NEW BLOCK LENGTH 00839 M00S00791.sfs +++| IX7 X1+X0 00840 M00S00792.sfs +++| SA7 A1 SET NEW BLOCK FWA 00841 M00S00793.sfs +++| RJ MWS SEARCH FOR ENTRY 00842 M00S00794.sfs +++| SA1 SBTC RESTORE TABLE LENGTH 00843 M00S00795.sfs +++| SA3 SBTE 00844 M00S00796.sfs +++| BX6 X1 00845 M00S00797.sfs +++| SA1 A1+B1 RESTORE TABLE FWA 00846 M00S00798.sfs +++| BX7 X1 00847 M00S00799.sfs +++| BX5 X5-X5 00848 M00S00800.sfs +++| SA6 A0+LTAB 00849 M00S00801.sfs +++| SA7 A0+FTAB 00850 M00S00802.sfs +++| PL X3,SBT3.1 IF NOT FORCED READ OF BLOCK 00851 M00S00803.sfs +++| SB7 B1 00852 M00S00804.sfs +++| SX2 B0 00853 M00S00805.sfs +++| SBT3.1 SA5 A0+CTAB 00854 M00S00806.sfs +++| SB3 B2-B1 00855 M00S00807.sfs +++| SA5 B3+X5 00856 M00S00808.sfs +++| SX6 B2 SAVE ADDRESS OF ENTRY 00857 M00S00809.sfs +++| SA6 SBTD 00858 M00S00810.sfs +++| BX6 X2 00859 M00S00811.sfs +++| SA6 SBTA 00860 M00S00812.sfs +++| SA1 SBTF 00861 M00S00813.sfs +++| SB6 B0 00862 M00S00814.sfs +++| BX6 X1 00863 M00S00815.sfs +++| PL B7,SBT5 IF ENTRY FOUND OR BEFORE TABLE 00864 M00S00816.sfs +++| SA2 CW+2 00865 M00S00817.sfs +++| SB6 X2 00866 M00S00818.sfs +++| SA6 A3 UPDATE PREVIOUS RANDOM ADDRESS 00867 M00S00819.sfs +++| SBT5 SA1 A0+FTAB 00868 M00S00820.sfs +++| IX1 X1-X4 00869 M00S00821.sfs +++| SX2 A0 00870 M00S00822.sfs +++| LX2 1 00871 M00S00823.sfs +++| SA2 RA0+X2 00872 M00S00824.sfs +++| SA3 A2+B1 00873 M00S00825.sfs +++| SB5 B7 00874 M00S00826.sfs +++| BX6 X3 00875 M00S00827.sfs +++| SA6 A2 00876 M00S00828.sfs +++| ZR X1,SBT7 IF FIRST BLOCK 00877 M00S00829.sfs +++| ZR B5,SBT6 IF ENTRY BEFORE BLOCK 00878 M00S00830.sfs +++| SA1 A0+LTAB SET LENGTH 00879 M00S00831.sfs +++| IX6 X1-X0 00880 M00S00832.sfs +++| SA6 A1 00881 M00S00833.sfs +++| SA3 A0+FTAB SET FWA 00882 M00S00834.sfs +++| SA2 SBTD ADJUST ENTRY ADDRESS 00883 M00S00835.sfs +++| IX7 X4-X3 00884 M00S00836.sfs +++| IX7 X2-X7 00885 M00S00837.sfs +++| SA7 A2 00886 M00S00838.sfs +++| MOVE X6,X4,X3 MOVE BLOCK DOWN 00887 M00S00839.sfs +++| EQ SBT7 00888 M00S00840.sfs +++| 00889 M00S00841.sfs +++| SBT6 BX6 X2 RESET RANDOM ADDRESS 00890 M00S00842.sfs +++| SA6 A2 00891 M00S00843.sfs +++| BX7 X0 RESET LENGTH 00892 M00S00844.sfs +++| BX6 X6-X6 00893 M00S00845.sfs +++| SA1 SBTE 00894 M00S00846.sfs +++| SA7 A0+LTAB 00895 M00S00847.sfs +++| SB6 A0 00896 M00S00848.sfs +++| MX7 1 00897 M00S00849.sfs +++| NZ B6,SBT0 IF NOT LEVEL - 0 00898 M00S00850.sfs +++| SB6 X1 00899 M00S00851.sfs +++| SA7 A1 SET FORCED READ OF BLOCK 00900 M00S00852.sfs +++| EQ SBT1 GO READ BLOCK 00901 M00S00853.sfs +++| 00902 M00S00854.sfs +++| SBT7 ZR B5,SBT9 IF ENTRY BEFORE BLOCK 00903 M00S00855.sfs +++| NZ B6,SBT1 IF MORE BLOCKS TO PROCESS 00904 M00S00856.sfs +++| SBT8 SX2 A0 00905 M00S00857.sfs +++| LX2 1 00906 M00S00858.sfs +++| SA1 CW+2 SET RANDOM ADDRESS OF NEXT BLOCK 00907 M00S00859.sfs +++| BX7 X1 00908 M00S00860.sfs +++| BX6 X6-X6 00909 M00S00861.sfs +++| SA7 X2+RA0+1 00910 M00S00862.sfs +++| EQ SBT0 RETURN 00911 M00S00863.sfs +++| 00912 M00S00864.sfs +++| SBT9 SX6 B1 00913 M00S00865.sfs +++| SA6 SBTA 00914 M00S00866.sfs +++| EQ SBT8 00915 M00S00867.sfs +++| 00916 M00S00868.sfs +++| SBTA BSSZ 1 ENTRY FOUND FLAG 00917 M00S00869.sfs +++| SBTB CON 0 FET ADDRESS HOLD AREA 00918 M00S00870.sfs +++| SBTC CON 0,0 TABLE LENGTH AND FWA HOLD AREA 00919 M00S00871.sfs +++| SBTD CON 0 ADDRESS OF ENTRY 00920 M00S00872.sfs +++| SBTE CON 0 PREVIOUS RANDOM ADDRESS 00921 M00S00873.sfs +++| SBTF CON 0 CURRENT RANDOM ADDRESS 00922 M00S00874.sfs +++| SPB SPACE 4 00923 M00S00875.sfs +++|** SPB - SET PRIMARY BLOCK. 00924 M00S00876.sfs +++|* 00925 M00S00877.sfs +++|* ENTRY (X1) ADDRESS OF SEARCH ELEMENT. 00926 M00S00878.sfs +++|* (X0) ADDRESS OF FET(FOR READ). 00927 M00S00879.sfs +++|* 00928 M00S00880.sfs +++|* EXIT (SL) RANDOM ADDRESS OF NEXT LEVEL BLOCK. 00929 M00S00881.sfs +++|* (X3) ADDRESS OF ENTRY (IF X4=0). 00930 M00S00882.sfs +++|* (X4) = 0 IF EXACT ENTRY FOUND. 00931 M00S00883.sfs +++|* (X5) RANDOM ADDRESS OF NEXT LEVEL BLOCK. 00932 M00S00884.sfs +++|* (X6) " 0 IF ERROR. 00933 M00S00885.sfs +++|* TABLES AND POINTERS FOR UPDATE. 00934 M00S00886.sfs +++|* 00935 M00S00887.sfs +++|* CALLS SBT. 00936 M00S00888.sfs +++|* 00937 M00S00889.sfs +++|* USES ALL REGISTERS. 00938 M00S00890.sfs +++| 00939 M00S00891.sfs +++| 00940 M00S00892.sfs +++| SPB SUBR ENTRY/EXIT 00941 M00S00893.sfs +++| BX6 X1 SAVE ADDRESS OF SEARCH ELEMENT 00942 M00S00894.sfs +++| SA6 SE 00943 M00S00895.sfs +++| BX6 X6-X6 RESET LENGTH 00944 M00S00896.sfs +++| SA6 L.TAB0 00945 M00S00897.sfs +++| SA6 L.TAB1 00946 M00S00898.sfs +++| SA6 SL 00947 M00S00899.sfs +++| SA0 B0 TABLE 0 00948 M00S00900.sfs +++| SB6 B1 00949 M00S00901.sfs +++| RJ SBT SET BLOCK IN TABLE 00950 M00S00902.sfs +++| NZ X6,SPBX RETURN - IF ERROR 00951 M00S00903.sfs +++| ZR X5,SPB1 IF NO ENTRY 00952 M00S00904.sfs +++| SA0 B1 TABLE 1 00953 M00S00905.sfs +++| SB6 X5 00954 M00S00906.sfs +++| RJ SBT SET BLOCK IN TABLE 00955 M00S00907.sfs +++| NZ X6,SPBX RETURN - IF ERROR 00956 M00S00908.sfs +++| NZ X4,SPB1 IF ENTRY NOT FOUND 00957 M00S00909.sfs +++| BX6 X5 00958 M00S00910.sfs +++| SA6 SL 00959 M00S00911.sfs +++| SPB1 BX6 X6-X6 00960 M00S00912.sfs +++| EQ SPBX RETURN 00961 M00S00913.sfs +++| TITLE TABLE MANIPULATION ROUTINES. 00962 M00S00914.sfs +++|*** THE FOLLOWING ROUTINES ARE PROVIDED TO PERFORM VARIOUS 00963 M00S00915.sfs +++|* TABLE MANIPULATION FUNCTIONS. 00964 M00S00916.sfs +++|* 00965 M00S00917.sfs +++|* *MWS* PROVIDES A MULTIPLE WORD SEARCH WHERE WORD COUNT PER 00966 M00S00918.sfs +++|* ENTRY AND WORDS PER ENTRY TO COMPARE ON MUST BE DEFINED. 00967 M00S00919.sfs +++|* 00968 M00S00920.sfs +++|* *SDF* WILL PLACE DATA IN THE PROPER FIELD FROM THE CONTROL 00969 M00S00921.sfs +++|* INFORMATION SUPPLIED THROUGH THE IDENTIFIER TABLE USED IN 00970 M00S00922.sfs +++|* THE INPUT PROCESSING FUNCTION *SCI*. 00971 M00S00923.sfs +++|* 00972 M00S00924.sfs +++|* *SFT* REPLACES UNNEEDED TABLE AREAS WITH BLANKS IN ARDER THAT 00973 M00S00925.sfs +++|* THE DATA IS IN AN OUTPUT TYPE FORMAT. (USED MAINLY WITH THE 00974 M00S00926.sfs +++|* INQUIRE OPTION). 00975 M00S00927.sfs +++|* 00976 M00S00928.sfs +++|* *STB* SORTS A GIVEN TABLE, WHICH INCLUDES DELETING ZEROED 00977 M00S00929.sfs +++|* ENTRIES FROM THE TABLE. 00978 M00S00930.sfs +++| DZE SPACE 4 00979 M00S00931.sfs +++|** DZE - DELETE ZERO ENTRIES. 00980 M00S00932.sfs +++|* 00981 M00S00933.sfs +++|* ENTRY (A0) TABLE NUMBER. 00982 M00S00934.sfs +++|* 00983 M00S00935.sfs +++|* EXIT LEADING ZERO ENTRIES DELETED FROM TABLE. 00984 M00S00936.sfs +++|* TABLE POINTERS UPDATED. 00985 M00S00937.sfs +++|* 00986 M00S00938.sfs +++|* CALLS NONE. 00987 M00S00939.sfs +++|* 00988 M00S00940.sfs +++|* USES A - 1, 2, 3, 4, 6. 00989 M00S00941.sfs +++|* X - 1, 2, 3, 4, 6. 00990 M00S00942.sfs +++| 00991 M00S00943.sfs +++| 00992 M00S00944.sfs +++| DZE SUBR ENTRY/EXIT 00993 M00S00945.sfs +++| SA1 A0+FTAB FWA 00994 M00S00946.sfs +++| SA2 A0+LTAB LENGTH 00995 M00S00947.sfs +++| SA4 A0+CTAB WORDS/ENTRY 00996 M00S00948.sfs +++| IX2 X1+X2 00997 M00S00949.sfs +++| SB3 X4 00998 M00S00950.sfs +++| DZE1 IX4 X1-X2 00999 M00S00951.sfs +++| SA3 X1 01000 M00S00952.sfs +++| SX1 X1+B3 01001 M00S00953.sfs +++| PL X4,DZE2 IF END OF TABLE 01002 M00S00954.sfs +++| ZR X3,DZE1 IF ZERO ENTRY 01003 M00S00955.sfs +++| DZE2 SX6 B3 SET FWA 01004 M00S00956.sfs +++| IX6 X1-X6 01005 M00S00957.sfs +++| SA6 A1 01006 M00S00958.sfs +++| IX6 X2-X6 SET LENGTH 01007 M00S00959.sfs +++| SA6 A2 01008 M00S00960.sfs +++| EQ DZEX RETURN 01009 M00S00961.sfs +++| MWS SPACE 4 01010 M00S00962.sfs +++|** MWS - MULTIPLE WORD TABLE SEARCH. 01011 M00S00963.sfs +++|* IF TABLE IS INDICATED AS SORTED, ENTRIES ARE SEARCHED 01012 M00S00964.sfs +++|* ASSUMING LOWEST DISPLAY CODE VALUES ARE FIRST. (IF 01013 M00S00965.sfs +++|* VALUES ARE INTEGER VALUES, THEY WILL NOT BE SEARCHED 01014 M00S00966.sfs +++|* FOR PROPERLY.) 01015 M00S00967.sfs +++|* 01016 M00S00968.sfs +++|* ENTRY (A0) TABLE NUMBER. 01017 M00S00969.sfs +++|* (X1) = 0 IF TABLE NOT SORTED. 01018 M00S00970.sfs +++|* (B6) ENTRY BLOCK ADDRESS. 01019 M00S00971.sfs +++|* ((A0)+CTAB) WORD COUNT/ENTRY 01020 M00S00972.sfs +++|* ((A0)+STAB) WORD COUNT/ENTRY TO COMPARE. 01021 M00S00973.sfs +++|* 01022 M00S00974.sfs +++|* EXIT (X2) = 0 IF ENTRY FOUND. 01023 M00S00975.sfs +++|* (X4) FWA OF TABLE. 01024 M00S00976.sfs +++|* (B2) ADDRESS OF REQUIRED ENTRY. 01025 M00S00977.sfs +++|* (B7) = - IF ENTRY BEYOND TABLE. 01026 M00S00978.sfs +++|* = 0 IF ENTRY BEFORE TABLE. 01027 M00S00979.sfs +++|* = + IF ENTRY IN TABLE. 01028 M00S00980.sfs +++|* 01029 M00S00981.sfs +++|* CALLS NONE. 01030 M00S00982.sfs +++|* 01031 M00S00983.sfs +++|* USES A - 2, 3, 4. 01032 M00S00984.sfs +++|* X - 2, 3, 4. 01033 M00S00985.sfs +++|* B - 1, 2, 3, 4, 5, 6, 7. 01034 M00S00986.sfs +++| 01035 M00S00987.sfs +++| 01036 M00S00988.sfs +++| MWS SUBR ENTRY/EXIT 01037 M00S00989.sfs +++| SA4 A0+FTAB FWA 01038 M00S00990.sfs +++| SA2 A0+LTAB LENGTH 01039 M00S00991.sfs +++| SB2 X4 01040 M00S00992.sfs +++| SB3 X2 01041 M00S00993.sfs +++| SA2 A0+STAB WORD COUNT/ENTRY TO COMPARE 01042 M00S00994.sfs +++| SB4 X2-1 01043 M00S00995.sfs +++| SA2 A0+CTAB WORD COUNT/ENTRY 01044 M00S00996.sfs +++| SB7 X2 01045 M00S00997.sfs +++| SB3 B2+B3 LWA 01046 M00S00998.sfs +++| SX2 -B1 01047 M00S00999.sfs +++| MWS1 EQ B2,B3,MWS7 IF EMPTY TABLE 01048 M00S01000.sfs +++| SB5 -B1 01049 M00S01001.sfs +++| MWS2 SB5 B5+B1 INDEX 01050 M00S01002.sfs +++| SA2 B2+B5 TABLE ENTRY 01051 M00S01003.sfs +++| SA3 B6+B5 SEARCH ENTRY 01052 M00S01004.sfs +++| NG X2,MWS3 IF FIRST OPERAND NEGATIVE 01053 M00S01005.sfs +++| PL X3,MWS4 IF SAME SIGN 01054 M00S01006.sfs +++| SX2 -B1 01055 M00S01007.sfs +++| EQ MWS5 01056 M00S01008.sfs +++| MWS3 NG X3,MWS4 IF SAME SIGN 01057 M00S01009.sfs +++| SX2 B1 01058 M00S01010.sfs +++| EQ MWS5 01059 M00S01011.sfs +++| MWS4 IX2 X2-X3 01060 M00S01012.sfs +++| NZ X2,MWS5 IF NO MATCH 01061 M00S01013.sfs +++| GE B5,B4,MWSX RETURN - IF END OF SEARCH 01062 M00S01014.sfs +++| EQ MWS2 01063 M00S01015.sfs +++| 01064 M00S01016.sfs +++| MWS5 ZR X1,MWS6 IF NOT SORTED 01065 M00S01017.sfs +++| PL X2,MWS8 IF PAST ENTRY 01066 M00S01018.sfs +++| MWS6 SB2 B2+B7 INCREMENT TABLE ENTRY 01067 M00S01019.sfs +++| LT B2,B3,MWS1 IF MORE TABLE 01068 M00S01020.sfs +++| SB2 B2-B7 BACK UP ONE ENTRY 01069 M00S01021.sfs +++| MWS7 SB7 -B1 01070 M00S01022.sfs +++| EQ MWSX RETURN 01071 M00S01023.sfs +++| 01072 M00S01024.sfs +++| MWS8 SB5 X4 01073 M00S01025.sfs +++| EQ B5,B2,MWS9 IF FIRST ENTRY 01074 M00S01026.sfs +++| SB2 B2-B7 BACK UP ONE ENTRY 01075 M00S01027.sfs +++| EQ B5,B2,MWSX RETURN - IF FIRST ENTRY 01076 M00S01028.sfs +++| MWS9 SB7 B2-B5 01077 M00S01029.sfs +++| EQ MWSX RETURN 01078 M00S01030.sfs +++| SDF SPACE 4 01079 M00S01031.sfs +++|** SDF - SET DATA IN FIELD. 01080 M00S01032.sfs +++|* 01081 M00S01033.sfs +++|* ENTRY (DF) DATA FIELD POSITIONS (SET BY SCI). 01082 M00S01034.sfs +++|* (X3) FIRST WORD ADDRESS OF DATA. 01083 M00S01035.sfs +++|* (X6) DATA. 01084 M00S01036.sfs +++|* 01085 M00S01037.sfs +++|* EXIT DATA FIELDS SET. 01086 M00S01038.sfs +++|* 01087 M00S01039.sfs +++|* CALLS NONE. 01088 M00S01040.sfs +++|* 01089 M00S01041.sfs +++|* USES A - 1, 2, 6. 01090 M00S01042.sfs +++|* X - 1, 2, 3, 6. 01091 M00S01043.sfs +++|* B - 1, 4, 5, 6. 01092 M00S01044.sfs +++| 01093 M00S01045.sfs +++| 01094 M00S01046.sfs +++| SDF SUBR ENTRY/EXIT 01095 M00S01047.sfs +++| SA1 DF+1 GET UPPER BIT POSITION 01096 M00S01048.sfs +++| SB6 X1+B1 01097 M00S01049.sfs +++| SA2 A1+B1 GET FIELD SIZE 01098 M00S01050.sfs +++| SB5 X2-60D+1 01099 M00S01051.sfs +++| SB4 X2 01100 M00S01052.sfs +++| SA2 A2+B1 GET WORD ADDRESS 01101 M00S01053.sfs +++| IX3 X3+X2 01102 M00S01054.sfs +++| SA2 X3 01103 M00S01055.sfs +++| EQ B5,B1,SDF1 IF FULL WORD 01104 M00S01056.sfs +++| MX1 1 SET MASK 01105 M00S01057.sfs +++| LX1 X1,B5 01106 M00S01058.sfs +++| SB5 B6-B4 01107 M00S01059.sfs +++| BX6 -X1*X6 CLEAR DATA FIELD 01108 M00S01060.sfs +++| LX1 X1,B5 MOVE MASK TO POSITION 01109 M00S01061.sfs +++| LX6 X6,B5 01110 M00S01062.sfs +++| BX2 X1*X2 MERGE DATA 01111 M00S01063.sfs +++| BX6 X6+X2 01112 M00S01064.sfs +++| SDF1 SA6 A2 01113 M00S01065.sfs +++| EQ SDFX RETURN 01114 M00S01066.sfs +++| SFT SPACE 4 01115 M00S01067.sfs +++|** SFT - SPACE FILL TABLE. 01116 M00S01068.sfs +++|* 01117 M00S01069.sfs +++|* ENTRY (A0) TABLE NUMBER. 01118 M00S01070.sfs +++|* 01119 M00S01071.sfs +++|* EXIT ALL WORDS IN TABLE SPACE FILLED. 01120 M00S01072.sfs +++|* WORD PRECEEDING TABLE SET TO BLANKS. 01121 M00S01073.sfs +++|* 01122 M00S01074.sfs +++|* CALLS SFN. 01123 M00S01075.sfs +++|* 01124 M00S01076.sfs +++|* USES A - 1, 2, 3, 4, 6. 01125 M00S01077.sfs +++|* X - 1, 2, 3, 4, 6, 7. 01126 M00S01078.sfs +++|* B - 2, 3, 4, 5, 6. 01127 M00S01079.sfs +++| 01128 M00S01080.sfs +++| 01129 M00S01081.sfs +++| SFT SUBR ENTRY/EXIT 01130 M00S01082.sfs +++| SA2 A0+FTAB FWA 01131 M00S01083.sfs +++| SA4 A0+LTAB LENGTH 01132 M00S01084.sfs +++| SB4 X2 01133 M00S01085.sfs +++| SB6 X4 01134 M00S01086.sfs +++| SA4 SFTA 01135 M00S01087.sfs +++| BX6 X4 01136 M00S01088.sfs +++| SA6 B4-B1 01137 M00S01089.sfs +++| SB5 B0 01138 M00S01090.sfs +++| SFT1 SA2 A0+CTAB WORDS/ENTRY 01139 M00S01091.sfs +++| SB3 X2 01140 M00S01092.sfs +++| 01141 M00S01093.sfs +++| SFT2 GE B5,B6,SFTX RETURN - IF END OF TABLE 01142 M00S01094.sfs +++| SA1 B4+B5 01143 M00S01095.sfs +++| RJ SFN SPACE FILL 01144 M00S01096.sfs +++| SA6 A1 01145 M00S01097.sfs +++| SB5 B5+B1 01146 M00S01098.sfs +++| EQ B3,B1,SFT2 IF ONLY ONE WORD/ENTRY 01147 M00S01099.sfs +++| SB3 B3-B1 01148 M00S01100.sfs +++| GT B3,B1,SFT2 IF MORE WORDS IN ENTRY. 01149 M00S01101.sfs +++| BX6 X4 01150 M00S01102.sfs +++| SA6 A6+B1 01151 M00S01103.sfs +++| SB5 B5+B1 01152 M00S01104.sfs +++| EQ SFT1 LOOP FOR NEXT ENTRY 01153 M00S01105.sfs +++| 01154 M00S01106.sfs +++| SFTA DATA 10H
| Line S01107 Modification History | |
|---|---|
M01 (Removed by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01155 M01S01107.ns2538 ---| STB SPACE 4
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01156 M01S00005.ns2538 +++| STB SPACE 4,20 01157 M00S01108.sfs +++|** STB - SORT TABLE. 01158 M00S01109.sfs +++|* ENTRIES ARE SORTED WITH LOWEST DISPLAY CODE VALUES 01159 M00S01110.sfs +++|* COMING FIRST. WITH THIS METHOD, NEGATIVE INTEGER 01160 M00S01111.sfs +++|* VALUES ARE NOT SORTED PROPERLY. 01161 M00S01112.sfs +++|* 01162 M00S01113.sfs +++|* ENTRY (A0) TABLE NUMBER. 01163 M00S01114.sfs +++|* ((A0)+CTAB) WORD COUNT/ENTRY. 01164 M00S01115.sfs +++|* ((A0)+STAB) WORD COUNT/ENTRY TO COMPARE. 01165 M00S01116.sfs +++|* 01166 M00S01117.sfs +++|* EXIT TABLE SORTED. 01167 M00S01118.sfs +++|*
| Line S01119 Modification History | |
|---|---|
M01 (Removed by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01168 M01S01119.ns2538 ---|* CALLS DZE. 01169 M01S01120.ns2538 ---|* 01170 M01S01121.ns2538 ---|* USES A - 1, 2, 6, 7. 01171 M01S01122.ns2538 ---|* X - 1, 2, 3, 4, 6, 7. 01172 M01S01123.ns2538 ---|* B - 2, 3, 4, 5, 6, 7. 01173 M01S01124.ns2538 ---| 01174 M01S01125.ns2538 ---| 01175 M01S01126.ns2538 ---| STB0 RJ DZE DELETE ZERO ENTRIES 01176 M01S01127.ns2538 ---| 01177 M01S01128.ns2538 ---| STB SUBR ENTRY/EXIT 01178 M01S01129.ns2538 ---| SA1 A0+CTAB WORD COUNT/ENTRY 01179 M01S01130.ns2538 ---| SB3 X1 01180 M01S01131.ns2538 ---| SA1 A0+FTAB (B4) = FWA 01181 M01S01132.ns2538 ---| SA2 A0+LTAB (B5) = LENGTH 01182 M01S01133.ns2538 ---| SB4 X1 01183 M01S01134.ns2538 ---| SB5 X2 01184 M01S01135.ns2538 ---| SB5 B5-B3 DECREMENT ONE ENTRY 01185 M01S01136.ns2538 ---| SB6 B0 01186 M01S01137.ns2538 ---| 01187 M01S01138.ns2538 ---| STB1 SX7 B0+ CLEAR EXCHANGE INDICATOR 01188 M01S01139.ns2538 ---| SA7 STBA 01189 M01S01140.ns2538 ---| STB2 SX4 B6 01190 M01S01141.ns2538 ---| SA1 A0+STAB WORD COUNT/ENTRY TO COMPARE 01191 M01S01142.ns2538 ---| SB7 X1 01192 M01S01143.ns2538 ---| 01193 M01S01144.ns2538 ---| STB3 GE B6,B5,STB9 IF END OF TABLE 01194 M01S01145.ns2538 ---| SA1 B4+B6 A(I) 01195 M01S01146.ns2538 ---| SA2 A1+B3 A(I+1) 01196 M01S01147.ns2538 ---| NG X1,STB4 IF A(I) NEGATIVE 01197 M01S01148.ns2538 ---| PL X2,STB5 IF SAME SIGN 01198 M01S01149.ns2538 ---| EQ STB6 01199 M01S01150.ns2538 ---| STB4 PL X2,STB7 IF OPOSITE SIGN 01200 M01S01151.ns2538 ---| STB5 IX7 X2-X1 01201 M01S01152.ns2538 ---| NG X7,STB7 IF A(I) .GT. A(I+1) - EXCHANGE 01202 M01S01153.ns2538 ---| SB6 B6+B1 I = I+1 01203 M01S01154.ns2538 ---| NZ X7,STB6 IF A(I) .LT. A(I+1) - ADVANCE 01204 M01S01155.ns2538 ---| SB7 B7-1 01205 M01S01156.ns2538 ---| GE B7,B1,STB3 IF MORE WORDS TO COMPARE 01206 M01S01157.ns2538 ---| STB6 SB6 X4+B3 INCREMENT TO NEXT ENTRY 01207 M01S01158.ns2538 ---| EQ STB2 COMPARE NEXT ENTRY 01208 M01S01159.ns2538 ---| 01209 M01S01160.ns2538 ---| STB7 SB7 B3 01210 M01S01161.ns2538 ---| SX7 B1 INDICATE EXCHANGE 01211 M01S01162.ns2538 ---| SA7 A7 01212 M01S01163.ns2538 ---| SB6 X4 01213 M01S01164.ns2538 ---| 01214 M01S01165.ns2538 ---| STB8 SA1 B4+B6 EXCHANGE A(I) AND A(I+1) 01215 M01S01166.ns2538 ---| SA2 A1+B3 01216 M01S01167.ns2538 ---| BX6 X1 01217 M01S01168.ns2538 ---| SA6 A2 01218 M01S01169.ns2538 ---| LX6 X2 01219 M01S01170.ns2538 ---| SA6 A1 01220 M01S01171.ns2538 ---| SB6 B6+B1 INCREMENT TO NEXT WORD 01221 M01S01172.ns2538 ---| SB7 B7-B1 01222 M01S01173.ns2538 ---| EQ B7,STB2 IF EXCHANGE COMPLETE 01223 M01S01174.ns2538 ---| EQ STB8 01224 M01S01175.ns2538 ---| 01225 M01S01176.ns2538 ---| STB9 SA1 A7 01226 M01S01177.ns2538 ---| ZR X1,STB0 IF SORT COMPLETE 01227 M01S01178.ns2538 ---| SB6 B0 01228 M01S01179.ns2538 ---| EQ STB1 01229 M01S01180.ns2538 ---| 01230 M01S01181.ns2538 ---| STBA CON 0 EXCHANGE INDICATOR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 01262 M01S01182.ns2290 ---| TOV SPACE 4 01263 M01S01183.ns2290 ---|** TOV - TABLE OVERFLOW. 01264 M01S01184.ns2290 ---|* 01265 M01S01185.ns2290 ---|* ENTRY FROM *ATS* ONLY. 01266 M01S01186.ns2290 ---|* (B6) = EXIT ADDRESS IN *COMCMTP* TO CONTINUE 01267 M01S01187.ns2290 ---|* PROCESSING. 01268 M01S01188.ns2290 ---|* 01269 M01S01189.ns2290 ---|* EXIT TO (B6). 01270 M01S01190.ns2290 ---|* FIELD LENGTH INCREASED BY 1000B WORDS. 01271 M01S01191.ns2290 ---|* (TV) .NE. 0, IF FIELD LENGTH LIMIT REACHED. 01272 M01S01192.ns2290 ---|* 01273 M01S01193.ns2290 ---|* USES A - 3, 6. 01274 M01S01194.ns2290 ---|* X - 3, 4, 6. 01275 M01S01195.ns2290 ---|* 01276 M01S01196.ns2290 ---|* MACROS MEMORY. 01277 M01S01197.ns2290 ---| 01278 M01S01198.ns2290 ---| 01279 M01S01199.ns2290 ---| TOV BSS 0 ENTRY 01280 M01S01200.ns2290 ---| SA3 ML CURRENT FIELD LENGTH 01281 M01S01201.ns2290 ---| SX3 X3+1000B 01282 M01S01202.ns2290 ---| SX4 X3-FLLM LIMIT FIELD LENGTH 01283 M01S01203.ns2290 ---| NG X4,TOV1 IF ADEQUATE FIELD LENGTH 01284 M01S01204.ns2290 ---| SX6 B1 INDICATE OVERFLOW 01285 M01S01205.ns2290 ---| SA6 TV 01286 M01S01206.ns2290 ---| TOV1 MEMORY CM,TOVB,R,X3 01287 M01S01207.ns2290 ---| SA3 TOVB GET FIELD LENGTH ASSIGNED 01288 M01S01208.ns2290 ---| AX3 30 01289 M01S01209.ns2290 ---| BX6 X3 01290 M01S01210.ns2290 ---| SA6 ML SET NEW FIELD LENGTH 01291 M01S01211.ns2290 ---| SX6 X6-100B 01292 M01S01212.ns2290 ---| SA6 F.TEND ADJUST TABLE LENGTH 01293 M01S01213.ns2290 ---| JP B6 EXIT 01294 M01S01214.ns2290 ---| 01295 M01S01215.ns2290 ---| 01296 M01S01216.ns2290 ---| TO CON TOV TABLE OVERFLOW PROCESSOR ADDRESS FOR *ATS* 01297 M01S01217.ns2290 ---| TOVB CON 0 FIELD LENGTH STATUS RETURN 01298 M00S01218.sfs +++| TITLE FILE WRITE ROUTINES 01299 M00S01219.sfs +++|*** THESE ROUTINES PROVIDE ALL FUNCTIONS NECESSARY FOR 01300 M00S01220.sfs +++|* WRITING TO THE FILE. 01301 M00S01221.sfs +++|* 01302 M00S01222.sfs +++|* *WTB* PERFORMS ALL WRITES OR REWRITES REQUIRED WHEN 01303 M00S01223.sfs +++|* MANIPULATING THE FILE. 01304 M00S01224.sfs +++|* 01305 M00S01225.sfs +++|* *BLD* WRITES THE LEVEL-1 TABLE ON CREATE, BUILDS LEVEL-0 01306 M00S01226.sfs +++|* AND WRITES IT TO THE FILE. 01307 M00S01227.sfs +++|* 01308 M00S01228.sfs +++|* *UDD* UPDATES LEVEL-0 INFORMATION UPON COMPLETION 01309 M00S01229.sfs +++|* OF AN UPDATE. 01310 M00S01230.sfs +++|* 01311 M00S01231.sfs +++|* *RBA* RESETS BLOCK ADDRESSES TO REFLECT PROPER LINKAGE 01312 M00S01232.sfs +++|* UPON COMPETION OF VARIOUS STAGES OF A REFORMAT RUN. 01313 M00S01233.sfs +++|* 01314 M00S01234.sfs +++|* ALL WRITE FUNCTIONS REQUIRE (X5) = FET ADDRESS OF FILE. 01315 M00S01235.sfs +++| BLD SPACE 4 01316 M00S01236.sfs +++|** BLD - BUILD DIRECTORY. 01317 M00S01237.sfs +++|* 01318 M00S01238.sfs +++|* ENTRY EOF ENCOUNTERED ON INPUT FILE. 01319 M00S01239.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 01320 M00S01240.sfs +++|* (X0) UPPER 24 BITS = CALLER INFORMATION, 01321 M00S01241.sfs +++|* FOR LEVEL-0, WORD 1. 01322 M00S01242.sfs +++|* 01323 M00S01243.sfs +++|* EXIT DIRECTORY BUILT AND WRITTEN TO FILE. 01324 M00S01244.sfs +++|* 01325 M00S01245.sfs +++|* CALLS STB, WTB. 01326 M00S01246.sfs +++|* 01327 M00S01247.sfs +++|* USES ALL REGISTERS. 01328 M00S01248.sfs +++| 01329 M00S01249.sfs +++| 01330 M00S01250.sfs +++| BLD SUBR ENTRY/EXIT 01331 M00S01251.sfs +++| SA0 B0 01332 M00S01252.sfs +++| SA1 L.TAB1 01333 M00S01253.sfs +++| ZR X1,BLD1 IF NULL CREATE 01334 M00S01254.sfs +++| BX6 X0 SAVE CALLER INFORMATION 01335 M00S01255.sfs +++| SA0 B1 01336 M00S01256.sfs +++| SA6 BLDA 01337 M00S01257.sfs +++| RJ STB SORT TABLE 01338 M00S01258.sfs +++| SX7 B1 01339 M00S01259.sfs +++| SA7 CZ 01340 M00S01260.sfs +++| RJ WTB WRITE TABLE 01341 M00S01261.sfs +++| BX7 X7-X7 01342 M00S01262.sfs +++| SA7 CZ 01343 M00S01263.sfs +++| SA0 B0+ 01344 M00S01264.sfs +++| RJ STB SORT TABLE 01345 M00S01265.sfs +++| SA1 BLDA RESTORE CALLER INFORMATION 01346 M00S01266.sfs +++| BX0 X1 01347 M00S01267.sfs +++| BLD1 RJ WTB WRITE TABLE 01348 M00S01268.sfs +++| EQ BLDX RETURN 01349 M00S01269.sfs +++| 01350 M00S01270.sfs +++| BLDA CON 0 HOLD FOR CALLER INFORMATION 01351 M00S01271.sfs +++| RBA SPACE 4 01352 M00S01272.sfs +++|** RBA - RESET BLOCK ADDRESSES. 01353 M00S01273.sfs +++|* 01354 M00S01274.sfs +++|* ENTRY (A0) TABLE NUMBER. 01355 M00S01275.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 01356 M00S01276.sfs +++|* 01357 M00S01277.sfs +++|* EXIT ALL BLOCKS WRITTEN TO FILE. 01358 M00S01278.sfs +++|* BLOCK ADDRESSES RESET TO REFLECT CORRECT LINKAGE. 01359 M00S01279.sfs +++|* IF LEVEL-1, THEN LEVEL-0 IS CREATED. 01360 M00S01280.sfs +++|* (X6) ADDRESS OF FIRST BLOCK. 01361 M00S01281.sfs +++|* 01362 M00S01282.sfs +++|* CALLS ADW, ANB, WTB. 01363 M00S01283.sfs +++|* 01364 M00S01284.sfs +++|* USES ALL REGISTERS. 01365 M00S01285.sfs +++| 01366 M00S01286.sfs +++| 01367 M00S01287.sfs +++| RBA0 BX7 X7-X7 CLEAR TABLE POINTER 01368 M00S01288.sfs +++| SA7 A0+PNAA 01369 M00S01289.sfs +++| 01370 M00S01290.sfs +++| RBA SUBR ENTRY/EXIT 01371 M00S01291.sfs +++| SA1 A0+LTAB CHECK LENGTH 01372 M00S01292.sfs +++| BX2 X2-X2 01373 M00S01293.sfs +++| SX0 X5 01374 M00S01294.sfs +++| ZR X1,RBA3 IF EMPTY TABLE 01375 M00S01295.sfs +++| 01376 M00S01296.sfs +++| RBA1 SX4 A0-1 01377 M00S01297.sfs +++| NZ X4,RBA2 IF NOT LEVEL-1 01378 M00S01298.sfs +++| BX6 X6-X6 CLEAR LINK 01379 M00S01299.sfs +++| SA6 RA1+1 01380 M00S01300.sfs +++| RBA2 RJ WTB WRITE LAST BLOCK 01381 M00S01301.sfs +++| SX6 A0 01382 M00S01302.sfs +++| LX6 1 01383 M00S01303.sfs +++| SA2 X6+RA0+1 PICK UP ADDRESS OF WRITE 01384 M00S01304.sfs +++| 01385 M00S01305.sfs +++| RBA3 BX6 X2 01386 M00S01306.sfs +++| SX1 A0 SAVE ADDRESS OF BLOCK 01387 M00S01307.sfs +++| SA6 RBAA 01388 M00S01308.sfs +++| SA3 A0+PNEC ADDRESS OF PREVIOUS WRITE 01389 M00S01309.sfs +++| ZR X3,RBA0 IF FINISHED 01390 M00S01310.sfs +++| BX6 X3 01391 M00S01311.sfs +++| LX1 1 01392 M00S01312.sfs +++| SA6 X1+RA0 01393 M00S01313.sfs +++| SX0 X5 01394 M00S01314.sfs +++| RJ ANB ADD NEXT BLOCK 01395 M00S01315.sfs +++| SA1 CW+2 LINKED BLOCK 01396 M00S01316.sfs +++| SA2 RBAA 01397 M00S01317.sfs +++| BX6 X1 01398 M00S01318.sfs +++| BX7 X2 01399 M00S01319.sfs +++| SA6 A0+PNEC 01400 M00S01320.sfs +++| SX1 A0 01401 M00S01321.sfs +++| LX1 1 01402 M00S01322.sfs +++| SA7 X1+RA0+1 01403 M00S01323.sfs +++| SX5 X0 RESET FET ADDRESSES 01404 M00S01324.sfs +++| EQ RBA1 LOOP TO WRITE BLOCK 01405 M00S01325.sfs +++| 01406 M00S01326.sfs +++| RBAA CON 0 HOLD FOR ADDRESS OF WRITE 01407 M00S01327.sfs +++| UDD SPACE 4 01408 M00S01328.sfs +++|** UDD - UPDATE DIRECTORY. 01409 M00S01329.sfs +++|* 01410 M00S01330.sfs +++|* ENTRY (X0) FET ADDRESS (FOR READ). 01411 M00S01331.sfs +++|* (X5) FET ADDRESS (FOR WRITE). 01412 M00S01332.sfs +++|* (X6) UPPER 24 BITS = CALLER INFORMATION, 01413 M00S01333.sfs +++|* FOR LEVEL-0, WORD 1. 01414 M00S01334.sfs +++|* 01415 M00S01335.sfs +++|* EXIT MODIFICATION DATE UPDATED. 01416 M00S01336.sfs +++|* FIRST ENTRY UPDATED IF NECESSARY. 01417 M00S01337.sfs +++|* (X6) " 0 IF ERROR. 01418 M00S01338.sfs +++|* 01419 M00S01339.sfs +++|* CALLS ANB, MVE, WTB. 01420 M00S01340.sfs +++|* 01421 M00S01341.sfs +++|* USES ALL REGISTERS. 01422 M00S01342.sfs +++| 01423 M00S01343.sfs +++| 01424 M00S01344.sfs +++| UDD SUBR ENTRY/EXIT 01425 M00S01345.sfs +++| MX3 24 01426 M00S01346.sfs +++| BX6 X3*X6 01427 M00S01347.sfs +++| SA6 UDDA 01428 M00S01348.sfs +++| BX6 X5 SAVE WRITE FET ADDRESS 01429 M00S01349.sfs +++| SA6 UDDB 01430 M00S01350.sfs +++| BX6 X6-X6 RESET LENGTH 01431 M00S01351.sfs +++| SA6 L.TAB0 01432 M00S01352.sfs +++| SA6 L.TAB1 01433 M00S01353.sfs +++| SA0 B0 TABLE NUMBER 01434 M00S01354.sfs +++| SX3 B1 RANDOM ADDRESS 01435 M00S01355.sfs +++| RJ ANB ADD NEXT BLOCK TO TABLE 01436 M00S01356.sfs +++| NZ X6,UDDX IF ERROR 01437 M00S01357.sfs +++| SA1 CW+2 01438 M00S01358.sfs +++| BX6 X1 01439 M00S01359.sfs +++| SA6 RA0+1 01440 M00S01360.sfs +++| SA1 L.TAB0 01441 M00S01361.sfs +++| ZR X1,UDDX IF EMPTY FILE 01442 M00S01362.sfs +++| SA1 CW+1 UPDATE MODIFICATION DATE 01443 M00S01363.sfs +++| SA2 PD 01444 M00S01364.sfs +++| MX3 18 01445 M00S01365.sfs +++| LX3 36 01446 M00S01366.sfs +++| BX6 X3*X1 01447 M00S01367.sfs +++| BX6 X6+X2 01448 M00S01368.sfs +++| SA3 UDDA 01449 M00S01369.sfs +++| BX6 X6+X3 01450 M00S01370.sfs +++| SA6 A3 01451 M00S01371.sfs +++| SA3 F.TAB0 01452 M00S01372.sfs +++| SA1 CTAB 01453 M00S01373.sfs +++| SB3 X1-1 01454 M00S01374.sfs +++| SA3 X3+B3 RETRIEVE RANDOM ADDRESS OF FIRST BLOCK 01455 M00S01375.sfs +++| SA0 B1 TABLE NUMBER 01456 M00S01376.sfs +++| RJ ANB ADD NEXT BLOCK TO TABLE 01457 M00S01377.sfs +++| NZ X6,UDDX IF ERROR 01458 M00S01378.sfs +++| SA1 L.TAB1 01459 M00S01379.sfs +++| ZR X1,UDDX RETURN - IF EMPTY TABLE 01460 M00S01380.sfs +++| SA3 F.TAB0 01461 M00S01381.sfs +++| SA2 F.TAB1 01462 M00S01382.sfs +++| SA1 CTAB 01463 M00S01383.sfs +++| MOVE X1-1,X2,X3 REPLACE FIRST ENTRY 01464 M00S01384.sfs +++| SA1 UDDA 01465 M00S01385.sfs +++| BX6 X1 01466 M00S01386.sfs +++| SA6 CW+1 01467 M00S01387.sfs +++| SA0 B0 TABLE NUMBER 01468 M00S01388.sfs +++| SX6 B1 SET RANDOM ADDRESS 01469 M00S01389.sfs +++| SA6 RA0 01470 M00S01390.sfs +++| SA5 UDDB RESET FET ADDRESS 01471 M00S01391.sfs +++| BX0 X0-X0 01472 M00S01392.sfs +++| RJ WTB WRITE BLOCK 01473 M00S01393.sfs +++| BX6 X6-X6 01474 M00S01394.sfs +++| EQ UDDX RETURN 01475 M00S01395.sfs +++| 01476 M00S01396.sfs +++| UDDA CON 0 HOLD AREA 01477 M00S01397.sfs +++| UDDB CON 0 FET ADDRESS HOLD AREA 01478 M00S01398.sfs +++| WTB SPACE 4 01479 M00S01399.sfs +++|** WTB - WRITE BLOCK TO FILE. 01480 M00S01400.sfs +++|* 01481 M00S01401.sfs +++|* ENTRY (A0) TABLE NUMBER. 01482 M00S01402.sfs +++|* (X0) UPPER 24 BITS = CALLER INFORMATION, 01483 M00S01403.sfs +++|* FOR LEVEL-0, WORD 1. 01484 M00S01404.sfs +++|* (X5) FET ADDRESS FOR WRITE). 01485 M00S01405.sfs +++|* ((A0*2)+RA0) RANDOM ADDRESS IF UPDATING EXISTING BLOCK. 01486 M00S01406.sfs +++|* ((A0*2)+RA0+1) LINK,IF PRESENT. 01487 M00S01407.sfs +++|* (CZ) " 0 IF LEVEL-0 TO BE BUILT WHILE WRITING L-1. 01488 M00S01408.sfs +++|* 01489 M00S01409.sfs +++|* EXIT TABLE WRITTEN TO FILE. 01490 M00S01410.sfs +++|* ((A0*2)+RA0+1) RANDOM ADDRESS OF LAST WRITE. 01491 M00S01411.sfs +++|* 01492 M00S01412.sfs +++|* CALLS ADW, WTW. 01493 M00S01413.sfs +++|* 01494 M00S01414.sfs +++|* USES ALL REGISTERS. 01495 M00S01415.sfs +++| 01496 M00S01416.sfs +++| 01497 M00S01417.sfs +++| WTB0 SX7 A0 01498 M00S01418.sfs +++| SX0 B0 RESET LENGTH 01499 M00S01419.sfs +++| ZR X7,WTB12 IF EMPTY LEVEL-O TABLE 01500 M00S01420.sfs +++| SA5 WTBD RESET FET ADDRESS 01501 M00S01421.sfs +++| 01502 M00S01422.sfs +++| WTB SUBR ENTRY/EXIT 01503 M00S01423.sfs +++| BX6 X5 SAVE FET ADDRESS 01504 M00S01424.sfs +++| SA6 WTBD 01505 M00S01425.sfs +++| BX6 X0 SAVE STATUS WORD 01506 M00S01426.sfs +++| SA6 WTBE 01507 M00S01427.sfs +++| BX7 X7-X7 01508 M00S01428.sfs +++| SA7 WTBB 01509 M00S01429.sfs +++| SX4 A0 PICK UP RANDOM ADDRESS, IF PRESENT 01510 M00S01430.sfs +++| LX4 1 01511 M00S01431.sfs +++| SA4 X4+RA0 01512 M00S01432.sfs +++| 01513 M00S01433.sfs +++|* DETERMINE IF BLOCK IN TABLE REPLACES AN EXISTING BLOCK ON THE 01514 M00S01434.sfs +++|* FILE; AND IF SO, DETERMINE IF BLOCK SPLITTING IS REQUIRED. 01515 M00S01435.sfs +++|* SET APPROPRIATE BLOCK LENGTHS. 01516 M00S01436.sfs +++| 01517 M00S01437.sfs +++| SA3 A0+TFBL FULL BLOCK LENGTH 01518 M00S01438.sfs +++| WTB1 BX7 X3 SAVE BLOCK LENGTH 01519 M00S01439.sfs +++| SA7 WTBA 01520 M00S01440.sfs +++| SX0 X3 01521 M00S01441.sfs +++| SA1 A0+LTAB LENGTH 01522 M00S01442.sfs +++| NZ X1,WTB2 IF NOT EMPTY TABLE 01523 M00S01443.sfs +++| ZR X4,WTB0 RETURN - IF NOT REPLACING BLOCK 01524 M00S01444.sfs +++| SX0 B0 01525 M00S01445.sfs +++| WTB2 BX6 X1 01526 M00S01446.sfs +++| IX3 X6/X3 FULL PRUS 01527 M00S01447.sfs +++| SX7 WTBB 01528 M00S01448.sfs +++| SB2 X3 01529 M00S01449.sfs +++| BX6 X0 01530 M00S01450.sfs +++| IX3 X3*X6 FULL PRUS LENGTH 01531 M00S01451.sfs +++| IX6 X1-X3 REMAINING LENGTH 01532 M00S01452.sfs +++| ZR X4,WTB4 IF NO CHECK REQUIRED FOR SPLIT BLOCK 01533 M00S01453.sfs +++| EQ B2,WTB4 IF NO FULL PRUS - BLOCK FITS(NO SPLIT) 01534 M00S01454.sfs +++| GT B2,B1,WTB3 IF MORE THAN 1 FULL PRU (SPLIT BLOCKS) 01535 M00S01455.sfs +++| ZR X6,WTB5 IF NO PARTIAL PRU - BLOCK FITS(NO SPLIT) 01536 M00S01456.sfs +++| 01537 M00S01457.sfs +++| WTB3 SA3 A0+TPBL PARTIAL BLOCK LENGTH 01538 M00S01458.sfs +++| SX4 B0+ 01539 M00S01459.sfs +++| EQ WTB1 01540 M00S01460.sfs +++| WTB4 ZR X6,WTB5 IF NO PARTIAL BLOCK 01541 M00S01461.sfs +++| BX0 X6 BLOCK LENGTH 01542 M00S01462.sfs +++| WTB5 EQ B2,WTB11 IF NO FULL PRUS - LAST BLOCK 01543 M00S01463.sfs +++| GT B2,B1,WTB6 IF MORE THAN ONE FULL PRU 01544 M00S01464.sfs +++| ZR X6,WTB11 IF NO PARTIAL PRU - LAST BLOCK 01545 M00S01465.sfs +++| 01546 M00S01466.sfs +++|* BUILD CONTROL WORD. 01547 M00S01467.sfs +++| 01548 M00S01468.sfs +++| WTB6 SA4 A0+CWL0 CONTROL WORD 01549 M00S01469.sfs +++| SA3 A0+CTAB 01550 M00S01470.sfs +++| BX2 X0 01551 M00S01471.sfs +++| IX6 X2/X3 ENTRIES IN BLOCK 01552 M00S01472.sfs +++| LX6 12 01553 M00S01473.sfs +++| BX6 X4+X6 01554 M00S01474.sfs +++| SX2 X0+2 01555 M00S01475.sfs +++| LX2 36 01556 M00S01476.sfs +++| BX6 X6+X2 01557 M00S01477.sfs +++| SA6 CW 01558 M00S01478.sfs +++| SX3 A0 SET LINK 01559 M00S01479.sfs +++| 01560 M00S01480.sfs +++|* SET RANDOM ADDRESS. 01561 M00S01481.sfs +++| 01562 M00S01482.sfs +++| SA2 WTBD 01563 M00S01483.sfs +++| RECALL X2 01564 M00S01484.sfs +++| SA7 X2+6 01565 M00S01485.sfs +++| 01566 M00S01486.sfs +++|* SET LINKAGE AND WRITE BLOCK. 01567 M00S01487.sfs +++| 01568 M00S01488.sfs +++| LX3 1 01569 M00S01489.sfs +++| BX6 X6-X6 CLEAR LINK 01570 M00S01490.sfs +++| SA3 X3+RA0+1 01571 M00S01491.sfs +++| BX7 X3 01572 M00S01492.sfs +++| SA6 A3 01573 M00S01493.sfs +++| SA1 CZ 01574 M00S01494.sfs +++| ZR X1,WTB7 IF NOT LEVEL-0 BUILD 01575 M00S01495.sfs +++| SB3 A0 01576 M00S01496.sfs +++| NE B3,B1,WTB7 IF NOT LEVEL-1 01577 M00S01497.sfs +++| BX7 X7-X7 01578 M00S01498.sfs +++| WTB7 SA7 CW+2 01579 M00S01499.sfs +++| WRITEW X2,CW,3 WRITE CONTROL WORDS 01580 M00S01500.sfs +++| ZR X0,WTB8 IF NO WORDS 01581 M00S01501.sfs +++| SA5 A0+FTAB SET FWA 01582 M00S01502.sfs +++| SA1 A0+LTAB SET LENGTH 01583 M00S01503.sfs +++| IX6 X1-X0 01584 M00S01504.sfs +++| SA6 A1 01585 M00S01505.sfs +++| IX5 X6+X5 01586 M00S01506.sfs +++| SA2 WTBD 01587 M00S01507.sfs +++| WRITEW X2,X5,X0 WRITE BLOCK 01588 M00S01508.sfs +++| WTB8 SA2 WTBD 01589 M00S01509.sfs +++| WRITER X2,R 01590 M00S01510.sfs +++| 01591 M00S01511.sfs +++|* MAKE LEVEL-0 ENTRIES IF PROCESSING LEVEL-1 CREATE. 01592 M00S01512.sfs +++| 01593 M00S01513.sfs +++| SB3 A0 01594 M00S01514.sfs +++| NE B3,B1,WTB9 IF NOT LEVEL-1 01595 M00S01515.sfs +++| SA1 CZ 01596 M00S01516.sfs +++| ZR X1,WTB9 IF NOT LEVEL-0 BUILD 01597 M00S01517.sfs +++| SA1 X5 SET ELEMENT 01598 M00S01518.sfs +++| ADDWRD TAB0,X1 01599 M00S01519.sfs +++| SA2 WTBB 01600 M00S01520.sfs +++| ADDWRD TAB0,X2 01601 M00S01521.sfs +++| SA0 B1 01602 M00S01522.sfs +++| 01603 M00S01523.sfs +++|* SET RANDOM ADDRESSES OF LAST WRITE AND RESET BLOCK LENGTH. 01604 M00S01524.sfs +++| 01605 M00S01525.sfs +++| WTB9 SA2 WTBB 01606 M00S01526.sfs +++| BX6 X6-X6 CLEAR RETURN ADDRESS 01607 M00S01527.sfs +++| SA6 A2 01608 M00S01528.sfs +++| ZR X2,WTB10 IF NO RETURN ADDRESS 01609 M00S01529.sfs +++| SX3 A0 01610 M00S01530.sfs +++| LX3 1 01611 M00S01531.sfs +++| BX7 X2 01612 M00S01532.sfs +++| SA7 X3+RA0+1 01613 M00S01533.sfs +++| WTB10 SA1 A0+LTAB 01614 M00S01534.sfs +++| ZR X1,WTB15 IF END OF TABLE 01615 M00S01535.sfs +++| SA3 WTBA RESET BLOCK LENGTH 01616 M00S01536.sfs +++| BX0 X3 01617 M00S01537.sfs +++| SX4 B0 01618 M00S01538.sfs +++| SA1 A0+LTAB 01619 M00S01539.sfs +++| IX7 X1-X0 01620 M00S01540.sfs +++| NZ X7,WTB2 IF NOT FIRST BLOCK 01621 M00S01541.sfs +++| 01622 M00S01542.sfs +++|* SET CONTROL WORDS FOR LAST BLOCK. 01623 M00S01543.sfs +++| 01624 M00S01544.sfs +++| WTB11 SX2 A0 01625 M00S01545.sfs +++| LX2 1 01626 M00S01546.sfs +++| SA3 X2+RA0 01627 M00S01547.sfs +++| NZ X3,WTB13 IF RANDOM ADDRESS PRESENT 01628 M00S01548.sfs +++| SX7 WTBB 01629 M00S01549.sfs +++| NZ X2,WTB14 IF NOT LEVEL-0 01630 M00S01550.sfs +++| WTB12 SA1 PD SET CREATION DATE AND MODIFICATION DATE 01631 M00S01551.sfs +++| SB2 18 01632 M00S01552.sfs +++| LX6 X1,B2 01633 M00S01553.sfs +++| BX6 X6+X1 01634 M00S01554.sfs +++| MX3 24 01635 M00S01555.sfs +++| SA2 WTBE PICK UP STATUS WORD 01636 M00S01556.sfs +++| BX2 X3*X2 01637 M00S01557.sfs +++| BX6 X6+X2 01638 M00S01558.sfs +++| SA6 CW+1 01639 M00S01559.sfs +++| SX3 B1 01640 M00S01560.sfs +++| WTB13 SX7 B1 SET RANDOM ADDRESS IN FET 01641 M00S01561.sfs +++| LX7 29 01642 M00S01562.sfs +++| BX7 X7+X3 01643 M00S01563.sfs +++| WTB14 BX6 X3 01644 M00S01564.sfs +++| SA6 WTBB 01645 M00S01565.sfs +++| EQ WTB6 LOOP FOR LAST BLOCK 01646 M00S01566.sfs +++| 01647 M00S01567.sfs +++| WTB15 SX4 A0 CLEAR RANDOM ADDRESS 01648 M00S01568.sfs +++| BX6 X6-X6 01649 M00S01569.sfs +++| LX4 1 01650 M00S01570.sfs +++| SA5 WTBD RESET FET ADDRESS 01651 M00S01571.sfs +++| SA6 X4+RA0 01652 M00S01572.sfs +++| EQ WTBX RETURN 01653 M00S01573.sfs +++| 01654 M00S01574.sfs +++| WTBA CON 0 HOLD AREA FOR BLOCK LENGTH 01655 M00S01575.sfs +++| WTBB CON 0 RANDOM ADDRESS RETURN 01656 M00S01576.sfs +++| WTBD CON 0 FET ADDRESS HOLD AREA 01657 M00S01577.sfs +++| WTBE CON 0 STATUS WORD HOLD AREA 01658 M00S01578.sfs +++| TITLE COMMON DECKS. 01659 M00S01579.sfs +++|*CALL COMCCIO 01660 M00S01580.sfs +++|*CALL COMCCPM
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01661 M01S00037.ns2538 +++|*CALL COMCGMS 01662 M00S01581.sfs +++|*CALL COMCMTP 01663 M00S01582.sfs +++|*CALL COMCMVE 01664 M00S01583.sfs +++|*CALL COMCRDS 01665 M00S01584.sfs +++|*CALL COMCRDW 01666 M00S01585.sfs +++|*CALL COMCSFN 01667 M00S01586.sfs +++|*CALL COMCSYS 01668 M00S01587.sfs +++|*CALL COMCUSB 01669 M00S01588.sfs +++|*CALL COMCWTW
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01670 M01S00043.v23l617 +++|*CALL COMCZTB 01671 M00S01589.sfs +++| SPACE 4
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01672 M01S00038.ns2538 +++|* OVERFLOW CHECK. 01673 M01S00039.ns2538 +++| 01674 M01S00040.ns2538 +++| 01675 M01S00041.ns2538 +++| USE OVERFLOW 01676 M01S00042.ns2538 +++| 01677 M00S01590.sfs +++| MEML EQU *
| Line S01591 Modification History | |
|---|---|
M01 (Removed by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01678 M01S01591.ns2538 ---| ERRNG DIRC-MEML-5
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 01679 M01S00043.ns2538 +++| ERRNG DIRC-MEML-5 PROGRAM OVERFLOWS INTO DIRECT CELL AREA 01680 M00S01592.sfs +++| SPACE 4 01681 M00S01593.sfs +++| END
cdc/nos2.source/opl.opl871/deck/sfs.txt · Last modified: by 127.0.0.1