cdc:nos2.source:opl.opl871:deck:o26.004
Deck O26 Part 004
26 Modifications
Listing Sections
- Deck O26 Start
- Deck O26 Part 1 (Line 1103)
- Deck O26 Part 2 (Line 2201)
- Deck O26 Part 3 (Line 3751)
- Deck O26 Part 4 (Line 5056)
- Deck O26 Part 5 (Line 6569)
Source
Seq # *Modification Id* Act ----------------------------+ 05056 M01S03988.o26 +++| STD OT 05057 M01S03989.o26 +++| LDD T3 05058 M01S03990.o26 +++| STD OT+1 05059 M01S03991.o26 +++| JMP RET RETURN 05060 M01S03992.o26 +++| DS,. SPACE 4,25 05061 M01S03993.o26 +++|*** DS,NNNNNN. 05062 M01S03994.o26 +++|* 05063 M01S03995.o26 +++|* START DISPLAY AT LINE *NNNNNN* OF FILE. 05064 M01S03996.o26 +++| DS, SPACE 4,20 05065 M01S03997.o26 +++|*** DS, 05066 M01S03998.o26 +++|* 05067 M01S03999.o26 +++|* COUNT THE NUMBER OF LINES FROM THE START OF THE 05068 M01S04000.o26 +++|* DISPLAY UP TO THE INSERT MARK OR END OF FILE. 05069 M01S04001.o26 +++|* ENTER RESULT OF COUNT AFTER THE *DS,* IN THE 05070 M01S04002.o26 +++|* KEYBOARD BUFFER. 05071 M01S04003.o26 +++| 05072 M01S04004.o26 +++| 05073 M01S04005.o26 +++| DSC ENTRY 05074 M01S04006.o26 +++| LDN ZERL SET COUNT TO ZERO 05075 M01S04007.o26 +++| CRD AB 05076 M01S04008.o26 +++| LDN IP SET END OF BUFFER 05077 M01S04009.o26 +++| STD T7 05078 M01S04010.o26 +++| LDD IF CHECK INSERT FLAG 05079 M01S04011.o26 +++| NJN DSC1 IF INSERT SET 05080 M01S04012.o26 +++| LDN IN SET END OF BUFFER 05081 M01S04013.o26 +++| STD T7 05082 M01S04014.o26 +++| DSC1 LDD CA CHECK KEYBOARD ENTRY 05083 M01S04015.o26 +++| ADC -KBUF 05084 M01S04016.o26 +++| LMD KI 05085 M01S04017.o26 +++| ZJN DSC3 IF COUNT TO CURRENT LINE 05086 M01S04018.o26 +++| LDN IN 05087 M01S04019.o26 +++| STD T7 05088 M01S04020.o26 +++| LDD CA 05089 M01S04021.o26 +++| RJM ADD ASSEMBLE DIGITS 05090 M01S04022.o26 +++| STD AB 05091 M01S04023.o26 +++| SBN 1R. 05092 M01S04024.o26 +++| ZJN DSC2 IF *.* 05093 M01S04025.o26 +++| JMP ERR FORMAT ERROR 05094 M01S04026.o26 +++| 05095 M01S04027.o26 +++| DSC2 LDD AB+3 CHECK COUNT 05096 M01S04028.o26 +++| ADD AB+4 05097 M01S04029.o26 +++| NJN DSC3 IF NOT FIRST LINE 05098 M01S04030.o26 +++| LJM DSF DISPLAY FIRST LINE 05099 M01S04031.o26 +++| 05100 M01S04032.o26 +++| DSC3 LDN 0 CLEAR COUNT 05101 M01S04033.o26 +++| STD T4 05102 M01S04034.o26 +++| STD T5 05103 M01S04035.o26 +++| LDD FT SET START OF BUFFER 05104 M01S04036.o26 +++| STD T2 05105 M01S04037.o26 +++| LDD FT+1 05106 M01S04038.o26 +++| STD T3 05107 M01S04039.o26 +++| LDI T7 STORE BUFFER CHECK 05108 M01S04040.o26 +++| SHN 6 05109 M01S04041.o26 +++| ADD RA 05110 M01S04042.o26 +++| SHN 6 05111 M01S04043.o26 +++| ADM 1,T7 05112 M01S04044.o26 +++| STM DSCA+1 05113 M01S04045.o26 +++| SHN -14 05114 M01S04046.o26 +++| LMC LMCI 05115 M01S04047.o26 +++| STM DSCA 05116 M01S04048.o26 +++| 05117 M01S04049.o26 +++|* SEARCH BUFFER AND COUNT LINES. 05118 M01S04050.o26 +++| 05119 M01S04051.o26 +++| DSC4 LDD T2 READ BUFFER 05120 M01S04052.o26 +++| SHN 6 05121 M01S04053.o26 +++| ADD RA 05122 M01S04054.o26 +++| SHN 6 05123 M01S04055.o26 +++| ADD T3 05124 M01S04056.o26 +++| CRD CM 05125 M01S04057.o26 +++| DSCA LMC ** 05126 M01S04058.o26 +++| ZJN DSC5 IF END OF BUFFER 05127 M01S04059.o26 +++| AOD T3 ADVANCE INDEX 05128 M01S04060.o26 +++| SHN -14 05129 M01S04061.o26 +++| RAD T2 05130 M01S04062.o26 +++| LDD CM+4 05131 M01S04063.o26 +++| NJN DSC4 IF NOT END OF LINE 05132 M01S04064.o26 +++| 05133 M01S04065.o26 +++|* PROCESS END OF LINE. 05134 M01S04066.o26 +++| 05135 M01S04067.o26 +++| AOD T5 ADVANCE LINE COUNT 05136 M01S04068.o26 +++| SHN -14 05137 M01S04069.o26 +++| RAD T4 05138 M01S04070.o26 +++| LMD AB+3 05139 M01S04071.o26 +++| NJN DSC4 IF NOT END OF COUNT 05140 M01S04072.o26 +++| LDD T5 05141 M01S04073.o26 +++| LMD AB+4 05142 M01S04074.o26 +++| NJN DSC4 IF NOT END OF COUNT 05143 M01S04075.o26 +++| 05144 M01S04076.o26 +++|* PROCESS END OF COUNT OR END OF BUFFER. 05145 M01S04077.o26 +++| 05146 M01S04078.o26 +++| DSC5 LDN 0 CONVERT COUNT TO DECIMAL 05147 M01S04079.o26 +++| STD T1 05148 M01S04080.o26 +++| DSC6 LDN 0 CLEAR BUFFER 05149 M01S04081.o26 +++| STM BUFM,T1 05150 M01S04082.o26 +++| AOD T1 05151 M01S04083.o26 +++| LMN 6 05152 M01S04084.o26 +++| NJN DSC6 IF BUFFER NOT COMPLETELY CLEARED 05153 M01S04085.o26 +++| STD T1 05154 M01S04086.o26 +++| DSC7 LDD T4 05155 M01S04087.o26 +++| SBM DSCB,T1 05156 M01S04088.o26 +++| SHN 14 05157 M01S04089.o26 +++| ADD T5 05158 M01S04090.o26 +++| SBM DSCC,T1 05159 M01S04091.o26 +++| MJN DSC8 IF NO POWER OF TEN THIS DIGIT 05160 M01S04092.o26 +++| STD T5 05161 M01S04093.o26 +++| SHN -14 05162 M01S04094.o26 +++| STD T4 05163 M01S04095.o26 +++| AOM BUFM,T1 ADVANCE TEN-S COUNT 05164 M01S04096.o26 +++| UJN DSC7 LOOP 05165 M01S04097.o26 +++| 05166 M01S04098.o26 +++| DSC8 AOD T1 ADVANCE INDEX 05167 M01S04099.o26 +++| LMN 6 05168 M01S04100.o26 +++| NJN DSC7 IF NOT 6 DIGITS LOOP 05169 M01S04101.o26 +++| STD T1 05170 M01S04102.o26 +++| 05171 M01S04103.o26 +++|* ASSEMBLE COUNT. 05172 M01S04104.o26 +++| 05173 M01S04105.o26 +++| LDD AB CHECK TYPE OF CALL 05174 M01S04106.o26 +++| ZJN DSC9 IF COUNT TO LINE 05175 M01S04107.o26 +++| LDD T2 SET DISPLAY 05176 M01S04108.o26 +++| STD OT 05177 M01S04109.o26 +++| LDD T3 05178 M01S04110.o26 +++| STD OT+1 05179 M01S04111.o26 +++| JMP RET RETURN 05180 M01S04112.o26 +++| 05181 M01S04113.o26 +++| DSC9 LDM BUFM,T1 SUPPRESS LEADING ZEROS 05182 M01S04114.o26 +++| NJN DSC10 IF NOT LEADING ZERO 05183 M01S04115.o26 +++| AOD T1 05184 M01S04116.o26 +++| LMN 5 05185 M01S04117.o26 +++| NJN DSC9 IF WORD NOT COMPLETE LOOP 05186 M01S04118.o26 +++| DSC10 LDM BUFM,T1 CONVERT TO DISPLAY CODE 05187 M01S04119.o26 +++| ADN 1R0 05188 M01S04120.o26 +++| STM KBUF,KI 05189 M01S04121.o26 +++| AOD KI 05190 M01S04122.o26 +++| AOD T1 05191 M01S04123.o26 +++| LMN 6 05192 M01S04124.o26 +++| NJN DSC10 IF NOT END OF NUMBER LOOP 05193 M01S04125.o26 +++| LDN 1R. 05194 M01S04126.o26 +++| STM KBUF,KI 05195 M01S04127.o26 +++| AOD KI 05196 M01S04128.o26 +++| JMP KBIX RETURN 05197 M01S04129.o26 +++| 05198 M01S04130.o26 +++| DSCB CON 100000D/1S12 05199 M01S04131.o26 +++| CON 10000D/1S12 05200 M01S04132.o26 +++| CON 1000D/1S12 05201 M01S04133.o26 +++| CON 100D/1S12 05202 M01S04134.o26 +++| CON 10D/1S12 05203 M01S04135.o26 +++| CON 1D/1S12 05204 M01S04136.o26 +++| 05205 M01S04137.o26 +++| DSCC CON 100000D-100000D/1S12*1S12 05206 M01S04138.o26 +++| CON 10000D-10000D/1S12*1S12 05207 M01S04139.o26 +++| CON 1000D 05208 M01S04140.o26 +++| CON 100D 05209 M01S04141.o26 +++| CON 10D 05210 M01S04142.o26 +++| CON 1D 05211 M01S04143.o26 +++| TAB SPACE 4,20 05212 M01S04144.o26 +++|*** TAB,X,Y,...,Z. 05213 M01S04145.o26 +++|* 05214 M01S04146.o26 +++|* SET TABS TO COLUMNS X, Y, Z. IF X = 0, CLEAR TABS. 05215 M01S04147.o26 +++|* 05216 M01S04148.o26 +++|* DEFAULT TABS ARE - 11, 18, 30, 40, 50, 60, 73, 80. 05217 M01S04149.o26 +++| 05218 M01S04150.o26 +++| 05219 M01S04151.o26 +++| TAB ENTRY 05220 M01S04152.o26 +++| LDC 5777 SET TAB BUFFER 05221 M01S04153.o26 +++| STM TABA 05222 M01S04154.o26 +++| LMC 7777 05223 M01S04155.o26 +++| STM TABB 05224 M01S04156.o26 +++| LDD CA 05225 M01S04157.o26 +++| TAB1 RJM ADD ASSEMBLE DIGITS 05226 M01S04158.o26 +++| SBN 1R, 05227 M01S04159.o26 +++| ZJN TAB3 IF *,* 05228 M01S04160.o26 +++| SBN 1R.-1R, 05229 M01S04161.o26 +++| ZJN TAB3 IF *.* 05230 M01S04162.o26 +++| TAB2 JMP ERR FORMAT ERROR 05231 M01S04163.o26 +++| 05232 M01S04164.o26 +++| TAB3 LDD AB+4 CHECK NUMBER 05233 M01S04165.o26 +++| NJN TAB5 IF NON-ZERO 05234 M01S04166.o26 +++| STD T2 CLEAR TABS 05235 M01S04167.o26 +++| TAB4 LDM DBUF,T2 05236 M01S04168.o26 +++| LPC 5777 05237 M01S04169.o26 +++| TABA EQU *-1 05238 M01S04170.o26 +++| STM DBUF,T2 05239 M01S04171.o26 +++| AOD T2 CHECK FOR END OF KEYBOARD BUFFER 05240 M01S04172.o26 +++| ADC -KBUFL 05241 M01S04173.o26 +++| MJN TAB4 IF NOT END OF KEYBOARD BUFFER 05242 M01S04174.o26 +++| UJN TAB6 CHECK SEPARATOR 05243 M01S04175.o26 +++| 05244 M01S04176.o26 +++| TAB5 ADC -KBUFL CHECK FOR LEGAL COLUMN 05245 M01S04177.o26 +++| PJN TAB2 IF BEYOND LAST CHARACTER ADDRESS 05246 M01S04178.o26 +++| AOD AB+4 SET TAB 05247 M01S04179.o26 +++| LDM DBUF,AB+4 05248 M01S04180.o26 +++| LMC 2000 05249 M01S04181.o26 +++| TABB EQU *-1 05250 M01S04182.o26 +++| STM DBUF,AB+4 05251 M01S04183.o26 +++| TAB6 LDI T1 CHECK SEPARATOR 05252 M01S04184.o26 +++| LMN 1R. 05253 M01S04185.o26 +++| ZJN TAB7 IF *.* 05254 M01S04186.o26 +++| LMN 1R,&1R. CHECK FOR COMMA 05255 M01S04187.o26 +++| NJN TAB2 IF NOT VALID SEPARATOR 05256 M01S04188.o26 +++| AOD T1 ADVANCE 05257 M01S04189.o26 +++| LJM TAB1 LOOP 05258 M01S04190.o26 +++| 05259 M01S04191.o26 +++| TAB7 JMP RET RETURN 05260 M01S04192.o26 +++| SCAN, SPACE 4,20 05261 M01S04193.o26 +++|*** SCAN,X,Y,...,Z. 05262 M01S04194.o26 +++|* 05263 M01S04195.o26 +++|* SET WORD SCAN TO X, Y, Z. IF X = 0, CLEAR SCAN. 05264 M01S04196.o26 +++| 05265 M01S04197.o26 +++| 05266 M01S04198.o26 +++| SCN ENTRY 05267 M01S04199.o26 +++| LDN 0 CLEAR TABLE INDEX 05268 M01S04200.o26 +++| STD T6 05269 M01S04201.o26 +++| STD SF CLEAR SCAN FLAG 05270 M01S04202.o26 +++| STD SC CLEAR SCAN NUMBER 05271 M01S04203.o26 +++| LDD CA 05272 M01S04204.o26 +++| SCN1 RJM ADD ASSEMBLE DIGITS 05273 M01S04205.o26 +++| SBN 1R, 05274 M01S04206.o26 +++| ZJN SCN3 IF *,* 05275 M01S04207.o26 +++| SBN 1R.-1R, 05276 M01S04208.o26 +++| ZJN SCN3 IF *.* 05277 M01S04209.o26 +++| SCN2 LJM ERR FORMAT ERROR 05278 M01S04210.o26 +++| 05279 M01S04211.o26 +++| SCN3 LDD AB+4 CHECK NUMBER 05280 M01S04212.o26 +++| NJN SCN5 IF NON-ZERO 05281 M01S04213.o26 +++| STD T2 05282 M01S04214.o26 +++| SCN4 LDN 0 CLEAR ALL SCANS 05283 M01S04215.o26 +++| STM TSCN,T2 05284 M01S04216.o26 +++| AOD T2 05285 M01S04217.o26 +++| LMN 10 05286 M01S04218.o26 +++| NJN SCN4 IF ALL SCANS NOT CLEARED 05287 M01S04219.o26 +++| UJN SCN6 CHECK SEPARATOR 05288 M01S04220.o26 +++| 05289 M01S04221.o26 +++| SCN5 STM TSCN,T6 SET SCAN NUMBER 05290 M01S04222.o26 +++| AOD T6 ADVANCE SCAN TABLE 05291 M01S04223.o26 +++| LMN 7 05292 M01S04224.o26 +++| ZJN SCN2 IF TOO MANY SCANS 05293 M01S04225.o26 +++| LDN 1 SET SCAN FLAG 05294 M01S04226.o26 +++| STD SF 05295 M01S04227.o26 +++| SCN6 LDI T1 CHECK SEPARATOR 05296 M01S04228.o26 +++| LMN 1R. 05297 M01S04229.o26 +++| ZJN SCN7 IF *.* 05298 M01S04230.o26 +++| AOD T1 ADVANCE 05299 M01S04231.o26 +++| LJM SCN1 LOOP 05300 M01S04232.o26 +++| 05301 M01S04233.o26 +++| SCN7 STM TSCN,T6 SET END OF TABLE 05302 M01S04234.o26 +++| STD SI CLEAR SCAN INDEX 05303 M01S04235.o26 +++| JMP RET RETURN 05304 M01S04236.o26 +++| COMMAND (LINE SEARCH COMMANDS.) 05305 M01S04237.o26 +++| F. SPACE 4,8 05306 M01S04238.o26 +++|*** F.CCC-CCC 05307 M01S04239.o26 +++|* 05308 M01S04240.o26 +++|* SEARCH FOR MATCHING FIELD IN LINE. SEARCH IS END AROUND. 05309 M01S04241.o26 +++| 05310 M01S04242.o26 +++| SFM ENTRY SML 05311 M01S04243.o26 +++| S. SPACE 4,8 05312 M01S04244.o26 +++|*** S.CCC-CCC 05313 M01S04245.o26 +++|* 05314 M01S04246.o26 +++|* STARTING WITH THE FIRST LINE DISPLAYED, SEARCH 05315 M01S04247.o26 +++|* FOR A LINE BEGINNING WITH THE CHARACTERS *CCC-CCC*. 05316 M01S04248.o26 +++|* 05317 M01S04249.o26 +++|* SEARCH IS END AROUND. 05318 M01S04250.o26 +++| 05319 M01S04251.o26 +++| 05320 M01S04252.o26 +++| SML ENTRY 05321 M01S04253.o26 +++| LDD OT+1 SET LINE ADDRESS 05322 M01S04254.o26 +++| STD T7 05323 M01S04255.o26 +++| STD AB+1 05324 M01S04256.o26 +++| LDD OT 05325 M01S04257.o26 +++| STD T6 05326 M01S04258.o26 +++| STD AB 05327 M01S04259.o26 +++| LCN 0 SET NO SEARCH 05328 M01S04260.o26 +++| STD T4 05329 M01S04261.o26 +++| LDN 2 SET CHARACTER INDEX 05330 M01S04262.o26 +++| STD T3 05331 M01S04263.o26 +++| LDD T7 CHECK ADDRESS 05332 M01S04264.o26 +++| LMD IN+1 05333 M01S04265.o26 +++| NJN SML3 IF NOT END OF BUFFER 05334 M01S04266.o26 +++| LDD T6 05335 M01S04267.o26 +++| LMD IN 05336 M01S04268.o26 +++| NJN SML3 IF NOT END OF BUFFER 05337 M01S04269.o26 +++| LJM ERR MESSAGE = *FORMAT ERROR.* 05338 M01S04270.o26 +++| 05339 M01S04271.o26 +++| SML1 LDD T7 CHECK ADDRESS 05340 M01S04272.o26 +++| LMD IN+1 05341 M01S04273.o26 +++| NJN SML2 IF NOT END OF BUFFER 05342 M01S04274.o26 +++| LDD T6 05343 M01S04275.o26 +++| LMD IN 05344 M01S04276.o26 +++| NJN SML2 IF NOT END OF BUFFER 05345 M01S04277.o26 +++| LDD FT RESET ADDRESS 05346 M01S04278.o26 +++| STD T6 05347 M01S04279.o26 +++| STD AB 05348 M01S04280.o26 +++| LDD FT+1 05349 M01S04281.o26 +++| STD T7 05350 M01S04282.o26 +++| STD AB+1 05351 M01S04283.o26 +++| SML2 LDD T7 05352 M01S04284.o26 +++| LMD OT+1 05353 M01S04285.o26 +++| NJN SML3 IF NOT BEGINNING OF BUFFER 05354 M01S04286.o26 +++| LDD T6 05355 M01S04287.o26 +++| LMD OT 05356 M01S04288.o26 +++| NJN SML3 IF NOT BEGINNING OF BUFFER 05357 M01S04289.o26 +++| LDC =C*LINE NOT FOUND.* 05358 M01S04290.o26 +++| LJM ERR1 RETURN 05359 M01S04291.o26 +++| 05360 M01S04292.o26 +++| SML3 LDD T6 READ WORD 05361 M01S04293.o26 +++| SHN 6 05362 M01S04294.o26 +++| ADD RA 05363 M01S04295.o26 +++| SHN 6 05364 M01S04296.o26 +++| ADD T7 05365 M01S04297.o26 +++| CRD CM 05366 M01S04298.o26 +++| AOD T7 ADVANCE ADDRESS 05367 M01S04299.o26 +++| SHN -14 05368 M01S04300.o26 +++| RAD T6 05369 M01S04301.o26 +++| LDD T4 05370 M01S04302.o26 +++| ZJN SML6 IF SEARCH IN PROGRESS 05371 M01S04303.o26 +++| SML4 SOD T4 COUNT WORD 05372 M01S04304.o26 +++| LDD CM+4 05373 M01S04305.o26 +++| NJN SML5 IF NOT END OF LINE 05374 M01S04306.o26 +++| LDD SC SET SEARCH FLAG 05375 M01S04307.o26 +++| STD T4 05376 M01S04308.o26 +++| LDN 2 RESET CHARACTER ADDRESS 05377 M01S04309.o26 +++| STD T3 05378 M01S04310.o26 +++| LDD T6 SET NEXT LINE ADDRESS 05379 M01S04311.o26 +++| STD AB 05380 M01S04312.o26 +++| LDD T7 05381 M01S04313.o26 +++| STD AB+1 05382 M01S04314.o26 +++| SML5 LJM SML1 LOOP 05383 M01S04315.o26 +++| 05384 M01S04316.o26 +++| SML6 LDN CM SET BYTE ADDRESS 05385 M01S04317.o26 +++| STD T2 05386 M01S04318.o26 +++| SML7 LDM KBUF,T3 CHECK UPPER 05387 M01S04319.o26 +++| ZJN SML8 IF NO COMPARISON NEEDED 05388 M01S04320.o26 +++| SHN 6 05389 M01S04321.o26 +++| LMI T2 05390 M01S04322.o26 +++| SCN 77 05391 M01S04323.o26 +++| NJN SML4 IF NO MATCH 05392 M01S04324.o26 +++| SML8 AOD T3 ADVANCE CHARACTER 05393 M01S04325.o26 +++| LMD KI 05394 M01S04326.o26 +++| ZJN SML10 IF COMPARE COMPLETE 05395 M01S04327.o26 +++| LDM KBUF,T3 CHECK LOWER 05396 M01S04328.o26 +++| ZJN SML9 IF NO COMPARISON NEEDED 05397 M01S04329.o26 +++| LMI T2 05398 M01S04330.o26 +++| LPN 77 05399 M01S04331.o26 +++| NJN SML4 IF NO MATCH 05400 M01S04332.o26 +++| SML9 AOD T3 ADVANCE CHARACTER 05401 M01S04333.o26 +++| LMD KI 05402 M01S04334.o26 +++| ZJN SML10 IF COMPARE COMPLETE 05403 M01S04335.o26 +++| AOD T2 ADVANCE BYTE 05404 M01S04336.o26 +++| LMN CM+5 05405 M01S04337.o26 +++| NJN SML7 IF NOT AT END OF WORD LOOP 05406 M01S04338.o26 +++| LDD CM+4 05407 M01S04339.o26 +++| NJN SML5 IF NOT END OF LINE 05408 M01S04340.o26 +++| LJM SML4 PROCESS NEXT LINE 05409 M01S04341.o26 +++| 05410 M01S04342.o26 +++| SML10 LDD AB SET LINE ADDRESS 05411 M01S04343.o26 +++| STD OT 05412 M01S04344.o26 +++| LDD AB+1 05413 M01S04345.o26 +++| STD OT+1 05414 M01S04346.o26 +++| LDN 0 CLEAR ERROR FLAG 05415 M01S04347.o26 +++| STD KM 05416 M01S04348.o26 +++| LDN 1 SET HOLD 05417 M01S04349.o26 +++| STD HF 05418 M01S04350.o26 +++| JMP KBIX RETURN 05419 M01S04351.o26 +++| SFR SPACE 4,20 05420 M01S04352.o26 +++|** SFR - SEARCH FOR RECORD. 05421 M01S04353.o26 +++|*
| Line S04354 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05422 M02S04354.o2614 ---|* USES T1 - T5, CM - CM+4, AB - AB+4. 05423 M01S00002.o2614 +++|* USES IN, IN+1, KM, AB - AB+4, CM - CM+4, T1 - T1+4. 05424 M01S04355.o26 +++|*
| Line S04356 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05425 M02S04356.o2614 ---|* CALLS CIO, PDS. 05426 M01S00003.o2614 +++|* CALLS CIO, SPN. 05427 M01S04357.o26 +++| 05428 M01S04358.o26 +++| 05429 M01S04359.o26 +++| SFR ENTRY 05430 M01S04360.o26 +++| LDD RA READ FET 05431 M01S04361.o26 +++| SHN 6 05432 M01S04362.o26 +++| ADN FET 05433 M01S04363.o26 +++| CRD T1 05434 M01S04364.o26 +++| ADN 2 READ IN 05435 M01S04365.o26 +++| CRD AB 05436 M01S04366.o26 +++| ADN 1 SET IN = OUT 05437 M01S04367.o26 +++| CRD CM 05438 M01S04368.o26 +++| SBN 1 05439 M01S04369.o26 +++| CWD CM 05440 M01S04370.o26 +++| ADC CBUF-FET-2 READ RECORD NAME 05441 M01S04371.o26 +++| CRD CM 05442 M01S04372.o26 +++| LDD AB+3 SET IN POINTER 05443 M01S04373.o26 +++| STD IN 05444 M01S04374.o26 +++| LDD AB+4 05445 M01S04375.o26 +++| STD IN+1
| Line S04376 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05446 M02S04376.o2614 ---| LDD T5 CHECK STATUS 05447 M01S00004.o2614 +++| LDD T1+4 CHECK STATUS 05448 M01S04377.o26 +++| LPN 30 05449 M01S04378.o26 +++| LMN 30 05450 M01S04379.o26 +++| NJN SFR1 IF NOT EOF 05451 M01S04380.o26 +++| LDC =C*RECORD NOT FOUND.* 05452 M01S04381.o26 +++| STD KM 05453 M01S04382.o26 +++| LJM TIOX RETURN 05454 M01S04383.o26 +++|
| Line S04384 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05455 M02S04384.o2614 ---| SFR1 LDD CM 05456 M01S00005.o2614 +++| SFR1 LDD CM 05457 M01S00006.o2614 +++| LMC 2R.P 05458 M01S00007.o2614 +++| NJN SFR1.1 IF NOT *.PROC,*. 05459 M01S00008.o2614 +++| LDD CM+1 05460 M01S00009.o2614 +++| LMC 2RRO 05461 M01S00010.o2614 +++| NJN SFR1.1 IF NOT *.PROC,* 05462 M01S00011.o2614 +++| LDD CM+2 05463 M01S00012.o2614 +++| LMC 2RC, 05464 M01S00013.o2614 +++| NJN SFR1.1 IF NOT *.PROC,* 05465 M01S00014.o2614 +++| RJM SPN SET PROCEDURE NAME AS RECORD NAME 05466 M01S00015.o2614 +++| SFR1.1 LDD CM 05467 M01S04385.o26 +++| LMC 7700 05468 M01S04386.o26 +++| NJN SFR2 IF NO 7700 TABLE 05469 M01S04387.o26 +++| LDD RA READ RECORD NAME 05470 M01S04388.o26 +++| SHN 6 05471 M01S04389.o26 +++| ADC CBUF+1 05472 M01S04390.o26 +++| CRD CM 05473 M01S04391.o26 +++| SFR2 LDN CM+4 CLEAR TRAILING SPACE 05474 M01S04392.o26 +++| STD T1 05475 M01S04393.o26 +++| SFR2.1 LDI T1 05476 M01S04394.o26 +++| LPN 77 05477 M01S04395.o26 +++| LMN 1R 05478 M01S04396.o26 +++| NJN SFR2.2 IF NOT A SPACE 05479 M01S04397.o26 +++| LDI T1 05480 M01S04398.o26 +++| SCN 77 05481 M01S04399.o26 +++| STI T1 05482 M01S04400.o26 +++| SFR2.2 SOD T1 05483 M01S04401.o26 +++| LMN CM-1 05484 M01S04402.o26 +++| NJN SFR2.1 IF MORE BYTES 05485 M01S04403.o26 +++| AOD T1 RESTART AT CM 05486 M01S04404.o26 +++| SFR2.3 LDI T1 CHECK THE RECORD NAME 05487 M01S04405.o26 +++| LMM SFRB-CM,T1 05488 M01S04406.o26 +++| ZJN SFR4 IF MATCH 05489 M01S04407.o26 +++| LDD KM CHECK MESSAGE 05490 M01S04408.o26 +++| ZJN SFR3 IF GET ABORTED 05491 M01S04409.o26 +++| LDN 12 READ NEXT RECORD 05492 M01S04410.o26 +++| RJM CIO 05493 M01S04411.o26 +++| LDN 7 SEARCHING FOR RECORD 05494 M01S04412.o26 +++| RJM CIO 05495 M01S04413.o26 +++| SFR3 LJM TIOX RETURN 05496 M01S04414.o26 +++| 05497 M01S04415.o26 +++| SFR4 AOD T1 05498 M01S04416.o26 +++| LMN CM+5 05499 M01S04417.o26 +++| NJN SFR2.3 IF NOT THE LAST BYTE 05500 M01S04418.o26 +++| LDD RA CHECK RECORD LENGTH 05501 M01S04419.o26 +++| SHN 6 05502 M01S04420.o26 +++| ADN FET 05503 M01S04421.o26 +++| CRD CM 05504 M01S04422.o26 +++| LDD CM+4 05505 M01S04423.o26 +++| SHN -3 05506 M01S04424.o26 +++| LMN 1 05507 M01S04425.o26 +++| STM CRSA SET/CLEAR RECORD READ NOT TOO LONG FLAG 05508 M01S04426.o26 +++| ZJN SFR5 IF RECORD TOO LONG 05509 M01S04427.o26 +++| LJM PLB CLEAR KEYBOARD 05510 M01S04428.o26 +++| 05511 M01S04429.o26 +++| SFR5 LDC ERRE *RECORD TOO LONG* 05512 M01S04430.o26 +++| STD KM 05513 M01S04431.o26 +++| JMP RET RETURN 05514 M01S00016.o2614 +++| SPN SPACE 4,10 05515 M01S00017.o2614 +++|** SPN - SET PROCEDURE NAME AS RECORD NAME. 05516 M01S00018.o2614 +++|* 05517 M01S00019.o2614 +++|* *SPN* EXTRACTS THE PROCEDURE NAME FROM THE *.PROC,* 05518 M01S00020.o2614 +++|* HEADER AND RETURNS IT AS THE RECORD NAME. 05519 M01S00021.o2614 +++|* 05520 M01S00022.o2614 +++|* ENTRY (CM - CM+4) = FIRST WORD OF PROC HEADER. 05521 M01S00023.o2614 +++|* 05522 M01S00024.o2614 +++|* EXIT (CM - CM+4) = RECORD NAME (ZERO FILLED). 05523 M01S00025.o2614 +++|* 05524 M01S00026.o2614 +++|* USES T1, AB - AB+4, CM - CM+4. 05525 M01S00027.o2614 +++| 05526 M01S00028.o2614 +++| 05527 M01S00029.o2614 +++| SPN SUBR 05528 M01S00030.o2614 +++| 05529 M01S00031.o2614 +++|* READ *.PROC,* STATEMENT FOR PROCEDURE NAME. 05530 M01S00032.o2614 +++| 05531 M01S00033.o2614 +++| LDD RA 05532 M01S00034.o2614 +++| SHN 6 05533 M01S00035.o2614 +++| ADC CBUF+1 SECOND HALF OF PROCEDURE NAME 05534 M01S00036.o2614 +++| CRD AB 05535 M01S00037.o2614 +++| LDD CM+3 05536 M01S00038.o2614 +++| STD CM+0 05537 M01S00039.o2614 +++| LDD CM+4 05538 M01S00040.o2614 +++| STD CM+1 05539 M01S00041.o2614 +++| LDD AB+0 05540 M01S00042.o2614 +++| STD CM+2 05541 M01S00043.o2614 +++| LDD AB+1 05542 M01S00044.o2614 +++| STD CM+3 05543 M01S00045.o2614 +++| 05544 M01S00046.o2614 +++|* TERMINATE RECORD NAME AT FIRST DELIMITER. 05545 M01S00047.o2614 +++| 05546 M01S00048.o2614 +++| LDN CM 05547 M01S00049.o2614 +++| STD T1 05548 M01S00050.o2614 +++| SPN1 LDI T1 05549 M01S00051.o2614 +++| SHN -6 05550 M01S00052.o2614 +++| ZJN SPN3 IF DELIMITER IN UPPER 05551 M01S00053.o2614 +++| SBN 1R9+1 05552 M01S00054.o2614 +++| PJN SPN2 IF DELIMITER IN UPPER 05553 M01S00055.o2614 +++| LDI T1 05554 M01S00056.o2614 +++| LPN 77 05555 M01S00057.o2614 +++| ZJN SPN4 IF DELIMITER IN LOWER 05556 M01S00058.o2614 +++| SBN 1R9+1 05557 M01S00059.o2614 +++| PJN SPN4 IF DELIMITER IN LOWER 05558 M01S00060.o2614 +++| AOD T1 05559 M01S00061.o2614 +++| LMN CM+4 05560 M01S00062.o2614 +++| NJN SPN1 IF DELIMITER SEARCH NOT COMPLETE 05561 M01S00063.o2614 +++| SPN2 LDN 0 05562 M01S00064.o2614 +++| SPN3 STI T1 05563 M01S00065.o2614 +++| AOD T1 ZERO FILL RECORD NAME TO WORD BOUNDARY 05564 M01S00066.o2614 +++| LMN CM+4+1 05565 M01S00067.o2614 +++| NJN SPN2 IF ZERO FILL NOT COMPLETE 05566 M01S00068.o2614 +++| UJP SPNX RETURN 05567 M01S00069.o2614 +++| 05568 M01S00070.o2614 +++| SPN4 LDI T1 CLEAR DELIMITER IN LOWER 05569 M01S00071.o2614 +++| SCN 77 05570 M01S00072.o2614 +++| UJN SPN3 CLEAR DELIMITER, ZERO FILL RECORD NAME 05571 M01S04432.o26 +++| COMMAND (SEQUENTIAL RECORD SEARCH COMMANDS.) 05572 M01S04433.o26 +++| GET, SPACE 4,20 05573 M01S04434.o26 +++|*** GET,FFFFFFF.CCCCCCC. 05574 M01S04435.o26 +++|* 05575 M01S04436.o26 +++|* GET.CCCCCCC. 05576 M01S04437.o26 +++|* 05577 M01S04438.o26 +++|* SEARCH FILE *FFFFFFF* FOR RECORD *CCCCCCC*. IF 05578 M01S04439.o26 +++|* *FFFFFFF* IS MISSING, PREVIOUS FILE NAME WILL BE 05579 M01S04440.o26 +++|* USED. 05580 M01S04441.o26 +++| 05581 M01S04442.o26 +++| 05582 M01S04443.o26 +++| GET ENTRY 05583 M01S04444.o26 +++| RJM SFN SET FILE NAME 05584 M01S04445.o26 +++| AOD CA ADVANCE CHARACTER 05585 M01S00836.241l630 +++| 05586 M01S04446.o26 +++| GET1 ENTRY 05587 M01S04447.o26 +++| RJM ASN ASSEMBLE RECORD NAME 05588 M01S04448.o26 +++| LMN 1R. 05589 M01S04449.o26 +++| ZJN GET3 IF *.* 05590 M01S04450.o26 +++| GET2 JMP ERR FORMAT ERROR 05591 M01S04451.o26 +++| 05592 M01S04452.o26 +++| GET3 LDD AB 05593 M01S04453.o26 +++| ZJN GET2 IF NO RECORD NAME 05594 M01S04454.o26 +++| LDN 12 READ 05595 M01S04455.o26 +++| RJM CIO 05596 M01S04456.o26 +++| LDN 7 DUMMY 05597 M01S04457.o26 +++| RJM CIO 05598 M01S04458.o26 +++| LDC SFRA MESSAGE = *SEARCH / *CCCCCCC* * 05599 M01S04459.o26 +++| STD KM 05600 M01S04460.o26 +++| LDD MA SET RECORD NAME 05601 M01S04461.o26 +++| CWD AB 05602 M01S04462.o26 +++| CRM SFRB,ON 05603 M01S04463.o26 +++| LDD RA SET IN = OUT 05604 M01S04464.o26 +++| SHN 6 05605 M01S04465.o26 +++| ADN FET+3 05606 M01S04466.o26 +++| CRD CM 05607 M01S04467.o26 +++| SBN 1 05608 M01S04468.o26 +++| CWD CM 05609 M01S04469.o26 +++| LDN 1 SET HOLD FLAG 05610 M01S04470.o26 +++| STD HF 05611 M01S04471.o26 +++| LDN FT SET DISPLAY = LINE 0 05612 M01S04472.o26 +++| RJM SDS 05613 M01S04473.o26 +++| LDN 0 CLEAR SCAN 05614 M01S04474.o26 +++| STD SC 05615 M01S04475.o26 +++| STD SI 05616 M01S04476.o26 +++| JMP CIF CLEAR INSERT FLAG 05617 M01S04477.o26 +++| COMMAND (RANDOM RECORD SEARCH COMMANDS.) 05618 M01S04478.o26 +++| GETR, SPACE 4,20 05619 M01S04479.o26 +++|*** GETR,FFFFFFF.CCCCCCC. 05620 M01S04480.o26 +++|* 05621 M01S04481.o26 +++|* GETR.CCCCCCC. 05622 M01S04482.o26 +++|*
| Line S04483 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05623 M02S04483.o2614 ---|* READ RANDOM FILE *FFFFFFF* FOR TEXT RECORD 05624 M01S00073.o2614 +++|* READ RANDOM FILE *FFFFFFF* FOR TEXT OR .PROC RECORD 05625 M01S04484.o26 +++|* *CCCCCCC*. IF *FFFFFFF* IS MISSING, PREVIOUS 05626 M01S04485.o26 +++|* FILE NAME WILL BE USED. 05627 M01S04486.o26 +++| GTR, SPACE 4 05628 M01S04487.o26 +++|*** GTR,FFFFFFF.CCCCCCC. 05629 M01S04488.o26 +++|* GTR.CCCCCCC. 05630 M01S04489.o26 +++|* READ RANDOM FILE *FFFFFFF* FOR RECORD *CCCCCCC*. 05631 M01S04490.o26 +++|* IF *FFFFFFF* IS MISSING, PREVIOUS FILE NAME WILL 05632 M01S04491.o26 +++|* BE USED. 05633 M01S04492.o26 +++| 05634 M01S04493.o26 +++| 05635 M01S04494.o26 +++| GTR ENTRY 05636 M01S04495.o26 +++| RJM SFN SET FILE NAME 05637 M01S04496.o26 +++| AOD CA ADVANCE CHARACTER 05638 M01S04497.o26 +++| 05639 M01S04498.o26 +++| GTR1 ENTRY 05640 M01S04499.o26 +++| RJM ASN ASSEMBLE RECORD NAME 05641 M01S04500.o26 +++| LMN 1R. 05642 M01S04501.o26 +++| ZJN GTR3 IF *.* 05643 M01S04502.o26 +++| GTR2 JMP ERR FORMAT ERROR 05644 M01S04503.o26 +++| 05645 M01S04504.o26 +++| GTR3 LDD AB 05646 M01S04505.o26 +++| ZJN GTR2 IF NO RECORD NAME 05647 M01S04506.o26 +++| RJM RRI READ RANDOM INDEX 05648 M01S04507.o26 +++| LDN 11 READ RANDOM RECORD 05649 M01S04508.o26 +++| RJM CIO 05650 M01S04509.o26 +++| LDM KBUF+1 SET TEXT RECORD ONLY FLAG 05651 M01S04510.o26 +++| LMN 1RT 05652 M01S04511.o26 +++| STM TIOE 05653 M01S04512.o26 +++| LDC =C*SEARCH.* 05654 M01S04513.o26 +++| 05655 M01S04514.o26 +++|* ENTRY FROM *LST*. 05656 M01S04515.o26 +++| 05657 M01S04516.o26 +++| GTR4 STD KM SET KEYBOARD MESSAGE 05658 M01S04517.o26 +++| LDD MA SET RECORD NAME 05659 M01S04518.o26 +++| CWD AB 05660 M01S04519.o26 +++| CRM SFRB,ON 05661 M01S04520.o26 +++| LDD RA SET IN = OUT 05662 M01S04521.o26 +++| SHN 6 05663 M01S04522.o26 +++| ADN FET+3 05664 M01S04523.o26 +++| CRD CM 05665 M01S04524.o26 +++| SBN 1 05666 M01S04525.o26 +++| CWD CM 05667 M01S04526.o26 +++| LDN 1 SET HOLD FLAG 05668 M01S04527.o26 +++| STD HF 05669 M01S04528.o26 +++| LDN FT SET DISPLAY = LINE 0 05670 M01S04529.o26 +++| RJM SDS SET DISPLAY 05671 M01S04530.o26 +++| LDN 0 CLEAR SCAN 05672 M01S04531.o26 +++| STD SC 05673 M01S04532.o26 +++| STD SI 05674 M01S04533.o26 +++| JMP CIF CLEAR INSERT FLAG 05675 M01S04534.o26 +++| LIST. SPACE 4,20 05676 M01S04535.o26 +++|*** LIST,FFFFFFF. 05677 M01S04536.o26 +++|* 05678 M01S04537.o26 +++|* LIST. 05679 M01S04538.o26 +++|* 05680 M01S04539.o26 +++|* LIST THE DIRECTORY OF FILE NAME *FFFFFFF*. IF 05681 M01S04540.o26 +++|* *FFFFFFF* IS MISSING, PREVIOUS FILE NAME WILL 05682 M01S04541.o26 +++|* BE USED. 05683 M01S04542.o26 +++| 05684 M01S04543.o26 +++| 05685 M01S04544.o26 +++| LST ENTRY 05686 M01S04545.o26 +++| RJM SFN SET FILE NAME 05687 M01S04546.o26 +++| AOD CA ADVANCE CHARACTER 05688 M01S00837.241l630 +++| 05689 M01S04547.o26 +++| LST1 ENTRY 05690 M01S04548.o26 +++| RJM RRI READ RANDOM INDEX 05691 M01S04549.o26 +++| LDN 15 READ RANDOM RECORD 05692 M01S04550.o26 +++| RJM CIO 05693 M01S04551.o26 +++| LDC =C*LIST.* 05694 M01S04552.o26 +++| JMP GTR4 RETURN 05695 M01S04553.o26 +++| 05696 M01S04554.o26 +++|* LIST FILE INDEX. 05697 M01S04555.o26 +++| 05698 M01S04556.o26 +++| LST2 ENTRY 05699 M01S04557.o26 +++| RJM CIR CHECK INDEX RECORD 05700 M01S04558.o26 +++| LDC 2R 05701 M01S04559.o26 +++| STD AB 05702 M01S04560.o26 +++| STD AB+3 05703 M01S04561.o26 +++| STD AB+4 05704 M01S04562.o26 +++| LST3 LDD RA READ ENTRY 05705 M01S04563.o26 +++| SHN 6 05706 M01S04564.o26 +++| ADD T5 05707 M01S04565.o26 +++| ADD T7 05708 M01S04566.o26 +++| SBN 1 05709 M01S04567.o26 +++| CRD CM READ ENTRY 05710 M01S04568.o26 +++| LDD CM+4 05711 M01S04569.o26 +++| RAD CM+4 05712 M01S04570.o26 +++| LDM LSTA,CM+4 SET RECORD TYPE 05713 M01S04571.o26 +++| STD AB+1 05714 M01S04572.o26 +++| LDM LSTA+1,CM+4 05715 M01S04573.o26 +++| STD AB+2 05716 M01S04574.o26 +++| LDN 0 05717 M01S04575.o26 +++| STD CM+4
| Line S04576 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05718 M02S04576.ns2037 ---| LDD RA STORE NAME 05719 M01S00001.ns2037 +++| LDD CM+3 05720 M01S00002.ns2037 +++| SCN 77 05721 M01S00003.ns2037 +++| STD CM+3 05722 M01S00004.ns2037 +++| ADD CM CHECK FOR ZERO RECORD NAME 05723 M01S00005.ns2037 +++| ADD CM+1 05724 M01S00006.ns2037 +++| ADD CM+2 05725 M01S00007.ns2037 +++| ZJN LST6 IF ZERO RECORD NAME 05726 M01S00008.ns2037 +++| LST4 LDD RA STORE NAME 05727 M01S04577.o26 +++| SHN 6 05728 M01S04578.o26 +++| ADD T5 05729 M01S04579.o26 +++| ADD T7 05730 M01S04580.o26 +++| CWD CM 05731 M01S04581.o26 +++| SBN 1 STORE RECORD TYPE 05732 M01S04582.o26 +++| CWD AB 05733 M01S04583.o26 +++| LCN 2 DECREMENT INDEX 05734 M01S04584.o26 +++| RAD T7
| Line S04585 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05735 M02S04585.ns2037 ---| PJN LST3 LOOP 05736 M01S00009.ns2037 +++| MJN LST5 IF END OF OPLD 05737 M01S00010.ns2037 +++| LJM LST3 CONTINUE PROCESSING ENTRIES 05738 M01S04586.o26 +++| 05739 M01S04587.o26 +++|* END OF LIST. 05740 M01S04588.o26 +++|
| Line S04589 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05741 M02S04589.ns2037 ---| LDC CBUF SET MOVE ADDRESS 05742 M01S00011.ns2037 +++| LST5 LDC CBUF SET MOVE ADDRESS 05743 M01S04590.o26 +++| STD T3 05744 M01S04591.o26 +++| SHN -14 05745 M01S04592.o26 +++| STD T2 05746 M01S04593.o26 +++| RJM MBD MOVE BUFFER DOWN 05747 M01S04594.o26 +++| LJM PLB RETURN 05748 M01S00012.ns2037 +++| 05749 M01S00013.ns2037 +++| LST6 LDC 3R(0) SUBSTITUTE FOR ZERO RECORD NAME 05750 M01S00014.ns2037 +++| STD CM+1 05751 M01S00015.ns2037 +++| SHN -6 05752 M01S00016.ns2037 +++| STD CM 05753 M01S00017.ns2037 +++| UJN LST4 STORE NAME 05754 M01S04595.o26 +++| 05755 M01S04596.o26 +++| LSTA BSS 0 05756 M01S04597.o26 +++| DATA 4HTEXT 0 05757 M01S04598.o26 +++| DATA 4HPP 1 05758 M01S04599.o26 +++| DATA 4HCOS 2 05759 M01S04600.o26 +++| DATA 4HREL 3 05760 M01S04601.o26 +++| DATA 4HOVL 4 05761 M01S04602.o26 +++| DATA 4HULIB 5 05762 M01S04603.o26 +++| DATA 4HOPL 6 05763 M01S04604.o26 +++| DATA 4HOPLC 7 05764 M01S04605.o26 +++| DATA 4HOPLD 8 05765 M01S04606.o26 +++| DATA 4HABS 9 05766 M01S04607.o26 +++| DATA 4HPPU 10 05767 M01S04608.o26 +++| DATA 4H 11 (UNDEFINED RECORD TYPE) 05768 M01S04609.o26 +++| DATA 4H 12 (UNDEFINED RECORD TYPE) 05769 M01S04610.o26 +++| DATA 4H 13 (UNDEFINED RECORD TYPE) 05770 M01S04611.o26 +++| DATA 4HCAP 14 CAPSULE 05771 M01S04612.o26 +++| DATA 4H 15 (UNDEFINED RECORD TYPE) 05772 M01S04613.o26 +++| DATA 4HPROC 16 PROCEDURE 05773 M01S04614.o26 +++| CIR SPACE 4,20 05774 M01S04615.o26 +++|** CIR - CHECK INDEX RECORD. 05775 M01S04616.o26 +++|* 05776 M01S04617.o26 +++|* EXIT (CM - CM+4) = 7700 TABLE WORD. 05777 M01S04618.o26 +++|* (AB - AB+4) = 7000 TABLE WORD. 05778 M01S04619.o26 +++|* (T4 - T5) = ADDRESS OF FIRST ENTRY. 05779 M01S04620.o26 +++|* (T7) = INDEX OF LAST ENTRY (2ND WORD). 05780 M01S04621.o26 +++|* EXIT TO TIOX IF RECORD NOT FOUND. 05781 M01S04622.o26 +++| 05782 M01S04623.o26 +++| 05783 M01S04624.o26 +++| CIR SUBR ENTRY/EXIT 05784 M01S04625.o26 +++| RJM PDS PUSH DOWN STACK 05785 M01S04626.o26 +++| LDD RA READ 7700 TABLE 05786 M01S04627.o26 +++| SHN 6 05787 M01S04628.o26 +++| ADC CBUF 05788 M01S04629.o26 +++| CRD CM 05789 M01S04630.o26 +++| ADD CM+1 READ 7000 TABLE 05790 M01S04631.o26 +++| ADN 1 05791 M01S04632.o26 +++| CRD AB 05792 M01S04633.o26 +++| LDD CM 05793 M01S04634.o26 +++| LMC 7700 05794 M01S04635.o26 +++| ZJN CIR2 IF 7700 TABLE 05795 M01S04636.o26 +++| CIR1 LDC =C*INDEX NOT FOUND.* 05796 M01S04637.o26 +++| STD KM 05797 M01S04638.o26 +++| LJM TIOX RETURN 05798 M01S04639.o26 +++| 05799 M01S04640.o26 +++| CIR2 LDD AB 05800 M01S04641.o26 +++| LMC 7000 05801 M01S04642.o26 +++| NJN CIR1 IF NOT 7000 TABLE 05802 M01S04643.o26 +++| LDD AB+3 CHECK LENGTH 05803 M01S04644.o26 +++| NJN CIR1 IF INDEX TOO LONG 05804 M01S04645.o26 +++| STD T4 SET START OF DISPLAY 05805 M01S04646.o26 +++| LDC CBUF+2 05806 M01S04647.o26 +++| ADD CM+1 05807 M01S04648.o26 +++| STD T5 05808 M01S04649.o26 +++| LDD IN CHECK LENGTH 05809 M01S04650.o26 +++| SHN 14 05810 M01S04651.o26 +++| LMD IN+1 05811 M01S04652.o26 +++| SBD T5 05812 M01S04653.o26 +++| SBD AB+4 05813 M01S04654.o26 +++| MJN CIR1 IF INDEX TOO LONG 05814 M01S04655.o26 +++| LDD AB+4 SET INDEX OF LAST ENTRY 05815 M01S04656.o26 +++| SBN 1 05816 M01S04657.o26 +++| STD T7 05817 M01S04658.o26 +++| SBN 1 05818 M01S04659.o26 +++| MJN CIR1 IF INDEX TOO SHORT 05819 M01S04660.o26 +++| LJM CIRX RETURN 05820 M01S04661.o26 +++| RRI SPACE 4,15 05821 M01S04662.o26 +++|** RRI - READ RANDOM INDEX. 05822 M01S04663.o26 +++|* 05823 M01S04664.o26 +++|* ENTRY (A) = CHACRACTER ADDRESS. 05824 M01S04665.o26 +++|* 05825 M01S04666.o26 +++|* EXIT TO *ERR* ON FILE NAME ERROR. 05826 M01S04667.o26 +++|* 05827 M01S04668.o26 +++|* CALLS CIO. 05828 M01S04669.o26 +++| 05829 M01S04670.o26 +++| 05830 M01S04671.o26 +++| RRI SUBR ENTRY/EXIT 05831 M01S04672.o26 +++| LDD FT SET IN = OUT = FIRST 05832 M01S04673.o26 +++| STD IN 05833 M01S04674.o26 +++| STD OT 05834 M01S04675.o26 +++| LDD FT+1 05835 M01S04676.o26 +++| STD IN+1 05836 M01S04677.o26 +++| STD OT+1 05837 M01S04678.o26 +++| LDN 3 SKIP TO END OF INFORMATION 05838 M01S04679.o26 +++| RJM CIO 05839 M01S04680.o26 +++| LDC 20640 SKIP BACKWARDS 2 RECORDS 05840 M01S04681.o26 +++| STM TIOD+1 05841 M01S04682.o26 +++| SHN -14 05842 M01S04683.o26 +++| STM TIOD 05843 M01S04684.o26 +++| LDN 5 SKIP BACKWARDS 05844 M01S04685.o26 +++| RJM CIO 05845 M01S04686.o26 +++| LDN 12 READ 05846 M01S04687.o26 +++| RJM CIO 05847 M01S04688.o26 +++| UJN RRIX RETURN 05848 M01S04689.o26 +++| RRR SPACE 4,20 05849 M01S04690.o26 +++|** RRR - READ RANDOM RECORD. 05850 M01S04691.o26 +++|* 05851 M01S04692.o26 +++|* ENTRY (CM BUFFER) = RANDOM INDEX. 05852 M01S04693.o26 +++|* (SFRB - SFRB+4) = NAME OF RECORD. 05853 M01S04694.o26 +++|* 05854 M01S04695.o26 +++|* USES T1 - T4, CM - CM+4, AB - AB+4. 05855 M01S04696.o26 +++|* 05856 M01S04697.o26 +++|* CALLS CIO, CIR, PDS. 05857 M01S04698.o26 +++| 05858 M01S04699.o26 +++| 05859 M01S04700.o26 +++| RRR ENTRY 05860 M01S04701.o26 +++| RJM CIR CHECK INDEX RECORD 05861 M01S04702.o26 +++| 05862 M01S04703.o26 +++|* SEARCH BUFFER FOR RECORD. 05863 M01S04704.o26 +++| 05864 M01S04705.o26 +++| RRR1 LDD RA READ ENTRY 05865 M01S04706.o26 +++| SHN 6 05866 M01S04707.o26 +++| ADD T5 05867 M01S04708.o26 +++| ADD T7 05868 M01S04709.o26 +++| SBN 1 05869 M01S04710.o26 +++| CRD CM READ ENTRY 05870 M01S04711.o26 +++| LDN CM COMPARE ENTRY 05871 M01S04712.o26 +++| STD T1 05872 M01S04713.o26 +++| RRR2 LDI T1 05873 M01S04714.o26 +++| LMM SFRB-CM,T1 05874 M01S04715.o26 +++| NJN RRR3 IF NO MATCH 05875 M01S04716.o26 +++| AOD T1 05876 M01S04717.o26 +++| LMN CM+4 05877 M01S04718.o26 +++| NJN RRR2 IF NO MATCH LOOP 05878 M01S04719.o26 +++| LDD T7 SET RECORD FOUND FLAG 05879 M01S04720.o26 +++| STD T4 05880 M01S04721.o26 +++| LDD CM+4 05881 M01S00074.o2614 +++| LMK TXRT 05882 M01S04722.o26 +++| ZJN RRR5 IF TEXT RECORD 05883 M01S00075.o2614 +++| LMK PRRT&TXRT 05884 M01S00076.o2614 +++| ZJN RRR5 IF .PROC RECORD 05885 M01S04723.o26 +++| RRR3 LCN 2 05886 M01S04724.o26 +++| RAD T7 05887 M01S04725.o26 +++| PJN RRR1 IF COMPARE NOT COMPLETE 05888 M01S04726.o26 +++| 05889 M01S04727.o26 +++|* END OF SEARCH. 05890 M01S04728.o26 +++| 05891 M01S04729.o26 +++| LDM TIOE CHECK IF NON-TEXT RECORD ALLOWED 05892 M01S04730.o26 +++| NJN RRR4 IF ONLY TEXT ALLOWED 05893 M01S04731.o26 +++| LDD T4 05894 M01S04732.o26 +++| NJN RRR5 IF RECORD FOUND 05895 M01S04733.o26 +++| RRR4 LDC =C*RECORD NOT FOUND.* 05896 M01S04734.o26 +++| STD KM 05897 M01S04735.o26 +++| LJM TIOX RETURN 05898 M01S04736.o26 +++| 05899 M01S04737.o26 +++|* RECORD FOUND. 05900 M01S04738.o26 +++| 05901 M01S04739.o26 +++| RRR5 LDD RA READ RANDOM ADDRESS 05902 M01S04740.o26 +++| SHN 6 05903 M01S04741.o26 +++| ADD T5 05904 M01S04742.o26 +++| ADD T4 05905 M01S04743.o26 +++| CRD CM 05906 M01S04744.o26 +++| LDD RA SET RANDOM ADDRESS 05907 M01S04745.o26 +++| SHN 6 05908 M01S04746.o26 +++| ADN FET+6 05909 M01S04747.o26 +++| CWD CM 05910 M01S04748.o26 +++| SBN 3 SET IN = OUT 05911 M01S04749.o26 +++| CRD CM 05912 M01S04750.o26 +++| SBN 1 05913 M01S04751.o26 +++| CWD CM 05914 M01S04752.o26 +++| LDD FT SET IN = FIRST 05915 M01S04753.o26 +++| STD IN 05916 M01S04754.o26 +++| LDD FT+1 05917 M01S04755.o26 +++| STD IN+1 05918 M01S04756.o26 +++| LDN 12 READ RECORD 05919 M01S04757.o26 +++| RJM CIO 05920 M01S04758.o26 +++| LDN 1 DUMMY 05921 M01S04759.o26 +++| RJM CIO 05922 M01S04760.o26 +++| LJM PLB RETURN 05923 M01S04761.o26 +++| COMMAND (REPLACE COMMANDS.) 05924 M01S04762.o26 +++| RC, SPACE 4,20 05925 M01S04763.o26 +++|*** RC,X,C. 05926 M01S04764.o26 +++|* 05927 M01S04765.o26 +++|* REPLACE CHARACTER *X* OF FOLLOWING LINE 05928 M01S04766.o26 +++|* WITH CHARACTER *C*. 05929 M01S04767.o26 +++| 05930 M01S04768.o26 +++| 05931 M01S04769.o26 +++| RPC ENTRY 05932 M01S04770.o26 +++| RJM ADD ASSEMBLE CHARACTER NUMBER 05933 M01S04771.o26 +++| LMN 1R, 05934 M01S04772.o26 +++| ZJN RPC2 IF *,* 05935 M01S04773.o26 +++| RPC1 JMP ERR FORMAT ERROR 05936 M01S04774.o26 +++| 05937 M01S04775.o26 +++| RPC2 SOD AB+4 SAVE CHARACTER NUMBER 05938 M01S04776.o26 +++| MJN RPC1 IF CHARACTER NUMBER ZERO 05939 M01S04777.o26 +++| STD T7 05940 M01S04778.o26 +++| ADC -KBUFL+2 05941 M01S04779.o26 +++| PJN RPC1 IF OUT OF RANGE 05942 M01S04780.o26 +++| AOD T1 SAVE CHARACTER ADDRESS 05943 M01S04781.o26 +++| STD T6 05944 M01S04782.o26 +++| LDD IF 05945 M01S04783.o26 +++| ZJN RPC1 IF NO INSERT 05946 M01S04784.o26 +++| LDC BUFM SET CHARACTER ADDRESS 05947 M01S04785.o26 +++| STD CA 05948 M01S04786.o26 +++| RJM RDL READ NEXT LINE 05949 M01S04787.o26 +++| LDI T6 REPLACE CHARACTER 05950 M01S04788.o26 +++| STM BUFM,T7 05951 M01S04789.o26 +++| RJM RLB REPLACE LINE IN BUFFER 05952 M01S04790.o26 +++| LDN 1 ADVANCE INSERT 05953 M01S04791.o26 +++| RJM SIL 05954 M01S04792.o26 +++| JMP KBIX RETURN 05955 M01S04793.o26 +++| RM SPACE 4,25 05956 M01S04794.o26 +++|*** RM/AAA-AAA/BBB-BBB/ 05957 M01S04795.o26 +++|* 05958 M01S04796.o26 +++|* REPLACE CHARACTER STRING *AAA-AAA* FROM THE 05959 M01S04797.o26 +++|* FOLLOWING LINE WITH CHARACTER STRING *BBB-BBB*. 05960 M01S04798.o26 +++|* */* MAY BE ANY CHARACTER. DO NOT ADVANCE INSERT 05961 M01S04799.o26 +++|* MARK. 05962 M01S04800.o26 +++| RS SPACE 4,20 05963 M01S04801.o26 +++|*** RS/AAA-AAA/BBB-BBB/ 05964 M01S04802.o26 +++|* 05965 M01S04803.o26 +++|* REPLACE CHARACTER STRING *AAA-AAA* FROM THE 05966 M01S04804.o26 +++|* FOLLOWING LINE WITH CHARACTER STRING *BBB-BBB*. 05967 M01S04805.o26 +++|* */* MAY BE ANY CHARACTER. 05968 M01S04806.o26 +++| 05969 M01S04807.o26 +++| 05970 M01S04808.o26 +++| RPS ENTRY
| Line S04809 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05971 M02S04809.241l630 ---| LDD IF
| Line S04810 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05972 M02S04810.241l630 ---| NJN RPS1 IF INSERT FLAG SET
| Line S04811 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05973 M02S04811.241l630 ---| JMP ERR FORMAT ERROR
| Line S04812 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05974 M02S04812.241l630 ---|
| Line S04813 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05975 M02S04813.241l630 ---| RPS1 LDC BUF+2 SET CHARACTER ADDRESS
| Line S04814 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05976 M02S04814.241l630 ---| STD CA
| Line S04815 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05977 M02S04815.241l630 ---| RJM RDL READ NEXT LINE 05978 M01S00838.241l630 +++| RJM CIL CHECK INSERT LINE 05979 M01S04816.o26 +++| LDM KBUF+2 SET DELIMITER 05980 M01S04817.o26 +++| STD T7 05981 M01S04818.o26 +++| LDN 3 SET STARTING COLUMN 05982 M01S04819.o26 +++| STD T2
| Line S04820 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05983 M02S04820.241l630 ---| LDN 2
| Line S04821 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05984 M02S04821.241l630 ---| STD T3
| Line S04822 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05985 M02S04822.241l630 ---| STD T5
| Line S04823 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05986 M02S04823.241l630 ---| STD T6
| Line S04824 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05987 M02S04824.241l630 ---|
| Line S04825 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05988 M02S04825.241l630 ---|* ENTRY FROM *RPN*. 05989 M01S00839.241l630 +++| LDN 0 05990 M01S00840.241l630 +++| 05991 M01S00841.241l630 +++|* ENTRY FROM *RPN*. 05992 M01S00842.241l630 +++| 05993 M01S00843.241l630 +++| RPS1 STD T3 05994 M01S00844.241l630 +++| STD T6 05995 M01S04826.o26 +++| 05996 M01S04827.o26 +++|* SEARCH FOR MATCHING STRING. 05997 M01S04828.o26 +++| 05998 M01S04829.o26 +++| RPS2 LDD T2 RESET INDEX 05999 M01S04830.o26 +++| STD T1
| Line S04831 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06000 M02S04831.241l630 ---| RJM CCS COMPARE CHARACTER STRINGS
| Line S04832 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06001 M02S04832.241l630 ---| ZJN RPS3 IF STRINGS COMPARE 06002 M01S00845.241l630 +++| RPS3 LMD KI 06003 M01S00846.241l630 +++| ZJN RPS4 IF END OF KEYBOARD STRING 06004 M01S00847.241l630 +++| LDM KBUF,T1 06005 M01S00848.241l630 +++| LMD T7 06006 M01S00849.241l630 +++| ZJN RPS5 IF DELIMITER FOUND 06007 M01S00850.241l630 +++| LDD T3 06008 M01S00851.241l630 +++| LMD LC 06009 M01S00852.241l630 +++| ZJN RPS4 IF END OF ORIGINAL LINE 06010 M01S00853.241l630 +++| LDM BUF+2,T3 06011 M01S00854.241l630 +++| LMM KBUF,T1 06012 M01S00855.241l630 +++| NJN RPS4 IF NO HIT 06013 M01S00856.241l630 +++| AOD T3 06014 M01S00857.241l630 +++| AOD T1 06015 M01S00858.241l630 +++| UJN RPS3 LOOP FOR NEXT CHARACTER 06016 M01S04833.o26 +++| 06017 M01S04834.o26 +++|* COPY ONE CHARACTER ON NO HIT. 06018 M01S04835.o26 +++|
| Line S04836 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06019 M02S04836.241l630 ---| LDD T5 CHECK FOR END OF LINE
| Line S04837 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06020 M02S04837.241l630 ---| SBN 2
| Line S04838 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06021 M02S04838.241l630 ---| LMD LC
| Line S04839 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06022 M02S04839.241l630 ---| ZJN RPS4 IF END OF LINE
| Line S04840 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06023 M02S04840.241l630 ---| LDM BUF,T5
| Line S04841 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06024 M02S04841.241l630 ---| STM BUFM,T6
| Line S04842 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06025 M02S04842.241l630 ---| AOD T6
| Line S04843 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06026 M02S04843.241l630 ---| AOD T5
| Line S04844 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06027 M02S04844.241l630 ---| STD T3
| Line S04845 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06028 M02S04845.241l630 ---| UJN RPS2 LOOP 06029 M01S00859.241l630 +++| RPS4 LDD T6 CHECK FOR END OF LINE 06030 M01S00860.241l630 +++| LMD LC 06031 M01S00861.241l630 +++| ZJN RPS7 IF END OF LINE 06032 M01S00862.241l630 +++| LDM BUF+2,T6 06033 M01S00863.241l630 +++| STM BUFM+2,T6 COPY CHARACTER 06034 M01S00864.241l630 +++| AOD T6 06035 M01S00865.241l630 +++| STD T3 06036 M01S00866.241l630 +++| UJP RPS2 LOOP 06037 M01S04846.o26 +++| 06038 M01S04847.o26 +++|* REPLACE CHARACTER STRING. 06039 M01S04848.o26 +++|
| Line S04849 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06040 M02S04849.241l630 ---| RPS3 LDD T1 CHECK FOR END OF KEYBOARD STRING
| Line S04850 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06041 M02S04850.241l630 ---| LMD KI
| Line S04851 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06042 M02S04851.241l630 ---| ZJN RPS4 IF END OF KEYBOARD STRING
| Line S04852 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06043 M02S04852.241l630 ---| AOD T1 06044 M01S00867.241l630 +++| RPS5 AOD T1 CHECK FOR END OF KEYBOARD STRING 06045 M01S00868.241l630 +++| SBD KI 06046 M01S00869.241l630 +++| PJN RPS7 IF END OF STRING 06047 M01S04853.o26 +++| LDM KBUF,T1 06048 M01S04854.o26 +++| LMD T7
| Line S04855 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06049 M02S04855.241l630 ---| ZJN RPS6 IF DELIMITER FOUND
| Line S04856 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06050 M02S04856.241l630 ---| LMD T7 SET CHARACTER
| Line S04857 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06051 M02S04857.241l630 ---| STM BUFM,T6
| Line S04858 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06052 M02S04858.241l630 ---| AOD T6
| Line S04859 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06053 M02S04859.241l630 ---| ADC -KBUFL CHECK FOR END OF BUFFER
| Line S04860 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06054 M02S04860.241l630 ---| MJN RPS3 IF NOT AT END OF BUFFER - LOOP 06055 M01S00870.241l630 +++| ZJN RPS10 IF DELIMITER FOUND 06056 M01S00871.241l630 +++| LMD T7 06057 M01S00872.241l630 +++| STM BUFM+2,T6 SET CHARACTER 06058 M01S00873.241l630 +++| AOD T6 06059 M01S00874.241l630 +++| ADC 2-KBUFL 06060 M01S00875.241l630 +++| MJN RPS5 IF NOT END OF BUFFER 06061 M01S04861.o26 +++| LDM KBUF+1,T1 06062 M01S04862.o26 +++| LMD T7
| Line S04863 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06063 M02S04863.241l630 ---| ZJN RPS6.2 IF AT END OF STRING
| Line S04864 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06064 M02S04864.241l630 ---| RPS3.1 LDC =C*LINE OVERFLOW.*
| Line S04865 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06065 M02S04865.241l630 ---| UJN RPS5.1 PROCESS ERROR 06066 M01S00876.241l630 +++| ZJN RPS12 IF END OF STRING 06067 M01S00877.241l630 +++| RPS6 LDC =C*LINE OVERFLOW.* 06068 M01S00878.241l630 +++| UJN RPS9 PROCESS ERROR 06069 M01S04866.o26 +++| 06070 M01S04867.o26 +++|* PROCESS STRING NOT IN LINE. 06071 M01S04868.o26 +++|
| Line S04869 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06072 M02S04869.241l630 ---| RPS4 LDD KM
| Line S04870 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06073 M02S04870.241l630 ---| LMC ERRD
| Line S04871 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06074 M02S04871.241l630 ---| NJN RPS5 IF NOT *REPEAT ENTRY.*
| Line S04872 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06075 M02S04872.241l630 ---| LDN 1 ADVANCE INSERT
| Line S04873 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06076 M02S04873.241l630 ---| RJM SIL
| Line S04874 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06077 M02S04874.241l630 ---| JMP RET
| Line S04875 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06078 M02S04875.241l630 ---|
| Line S04876 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06079 M02S04876.241l630 ---| RPS5 LDC =C*NOT IN LINE.*
| Line S04877 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06080 M02S04877.241l630 ---| RPS5.1 LJM ERR1 PROCESS ERROR 06081 M01S00879.241l630 +++| RPS7 LDD KM CHECK MESSAGE 06082 M01S00880.241l630 +++| LMC ERRD 06083 M01S00881.241l630 +++| NJN RPS8 IF NOT *REPEAT ENTRY.* 06084 M01S00882.241l630 +++| LJM RPS15 ADVANCE INSERT 06085 M01S00883.241l630 +++| 06086 M01S00884.241l630 +++| RPS8 LDC =C*NOT IN LINE.* 06087 M01S00885.241l630 +++| RPS9 LJM ERR1 PROCESS ERROR 06088 M01S04878.o26 +++| 06089 M01S04879.o26 +++|* COPY REMAINDER OF FOLLOWING LINE. 06090 M01S04880.o26 +++|
| Line S04881 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06091 M02S04881.241l630 ---| RPS6 LDD T3 CHECK FOR END OF LINE
| Line S04882 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06092 M02S04882.241l630 ---| RPS6.1 SBN 2
| Line S04883 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06093 M02S04883.241l630 ---| LMD LC
| Line S04884 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06094 M02S04884.241l630 ---| RPS6.2 ZJN RPS7 IF END OF LINE
| Line S04885 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06095 M02S04885.241l630 ---| LDD T6 CHECK FOR END OF BUFFER
| Line S04886 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06096 M02S04886.241l630 ---| ADC -KBUFL
| Line S04887 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06097 M02S04887.241l630 ---| ZJN RPS3.1 IF PAST END OF BUFFER
| Line S04888 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06098 M02S04888.241l630 ---| LDM BUF,T3
| Line S04889 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06099 M02S04889.241l630 ---| STM BUFM,T6 06100 M01S00886.241l630 +++| RPS10 LDD T3 CHECK FOR END OF LINE 06101 M01S00887.241l630 +++| RPS11 LMD LC 06102 M01S00888.241l630 +++| RPS12 ZJN RPS14 IF END OF LINE 06103 M01S00889.241l630 +++| LDD T6 06104 M01S00890.241l630 +++| ADC 2-KBUFL 06105 M01S00891.241l630 +++| ZJN RPS6 IF PAST END OF BUFFER 06106 M01S00892.241l630 +++| LDM BUF+2,T3 06107 M01S00893.241l630 +++| STM BUFM+2,T6 SET NEXT CHARACTER 06108 M01S04890.o26 +++| AOD T6 06109 M01S04891.o26 +++| AOD T3
| Line S04892 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06110 M02S04892.241l630 ---| UJN RPS6.1 CONTINUE COPY 06111 M01S00894.241l630 +++| UJN RPS11 CONTINUE COPY 06112 M01S04893.o26 +++| 06113 M01S04894.o26 +++|* BLANK FILL BUFFER. 06114 M01S04895.o26 +++|
| Line S04896 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06115 M02S04896.241l630 ---| RPS7 LDD T6 CLEAR *BUFM*
| Line S04897 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06116 M02S04897.241l630 ---| RPS8 LMC KBUFL
| Line S04898 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06117 M02S04898.241l630 ---| ZJN RPS9 IF AT END OF BUFFER
| Line S04899 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06118 M02S04899.241l630 ---| LDN 1R
| Line S04900 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06119 M02S04900.241l630 ---| STM BUFM,T6
| Line S04901 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06120 M02S04901.241l630 ---| AOD T6
| Line S04902 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06121 M02S04902.241l630 ---| UJN RPS8 LOPP FOR REMAINDER OF BUFFER 06122 M01S00895.241l630 +++| RPS13 LDN 1R BLANK FILL *BUFM* 06123 M01S00896.241l630 +++| STM BUFM+1,T6 06124 M01S00897.241l630 +++| RPS14 AOD T6 ADVANCE INDEX 06125 M01S00898.241l630 +++| ADC 1-KBUFL 06126 M01S00899.241l630 +++| MJN RPS13 IF NOT END OF BUFFER 06127 M01S04903.o26 +++| 06128 M01S04904.o26 +++|* ENTER LINE IN BUFFER. 06129 M01S04905.o26 +++|
| Line S04906 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06130 M02S04906.241l630 ---| RPS9 LDC BUFM+2 SET CHARACTER ADDRESS 06131 M01S00900.241l630 +++| LDC BUFM+2 SET CHARACTER ADDRESS 06132 M01S04907.o26 +++| STD CA 06133 M01S04908.o26 +++| RJM RLB REPLACE LINE IN BUFFER 06134 M01S04909.o26 +++| LDM KBUF+1 CHECK FOR RM COMMAND 06135 M01S04910.o26 +++| LMN 1RM
| Line S04911 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06136 M02S04911.241l630 ---| ZJN RPS10 IF RM
| Line S04912 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06137 M02S04912.241l630 ---| LDN 1 ADVANCE INSERT
| Line S04913 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06138 M02S04913.241l630 ---| RJM SIL
| Line S04914 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06139 M02S04914.241l630 ---| RPS10 JMP RET RETURN 06140 M01S00901.241l630 +++| ZJN RPS16 IF *RM* 06141 M01S00902.241l630 +++| RPS15 LDN 1 ADVANCE INSERT 06142 M01S00903.241l630 +++| RJM SIL 06143 M01S00904.241l630 +++| RPS16 JMP RET RETURN 06144 M01S04915.o26 +++| R, SPACE 4,20 06145 M01S04916.o26 +++|*** R,X./AAA-AAA/BBB-BBB/ 06146 M01S04917.o26 +++|* 06147 M01S04918.o26 +++|* REPLACE CHARACTER STRING AAA-AAA FROM THE 06148 M01S04919.o26 +++|* FOLLOWING LINE STARTING WITH CHARACTER POSITION 06149 M01S04920.o26 +++|* *X* WITH CHARACTER STRING BBB-BBB. */* MAY BE 06150 M01S04921.o26 +++|* ANY CHARACTER. 06151 M01S04922.o26 +++| 06152 M01S04923.o26 +++| 06153 M01S04924.o26 +++| RPN ENTRY
| Line S04925 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06154 M02S04925.241l630 ---| RJM ASD ASSEMBLE DIGITS
| Line S04926 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06155 M02S04926.241l630 ---| LDD IF
| Line S04927 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06156 M02S04927.241l630 ---| NJN RPN2 IF INSERT FLAG SET
| Line S04928 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06157 M02S04928.241l630 ---| RPN1 JMP ERR FORMAT ERROR
| Line S04929 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06158 M02S04929.241l630 ---|
| Line S04930 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06159 M02S04930.241l630 ---| RPN2 LDC BUF+2 SET CHARACTER ADDRESS
| Line S04931 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06160 M02S04931.241l630 ---| STD CA
| Line S04932 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06161 M02S04932.241l630 ---| RJM RDL READ NEXT LINE 06162 M01S00905.241l630 +++| RJM CIL CHECK INSERT LINE 06163 M01S04933.o26 +++| LDC KBUF+2 ASSEMBLE DIGITS 06164 M01S04934.o26 +++| RJM ASD 06165 M01S00906.241l630 +++| STD T5 06166 M01S04935.o26 +++| LDM 1,T1 SET DELIMITER 06167 M01S04936.o26 +++| STD T7 06168 M01S04937.o26 +++| LDD T1 SET STRING ADDRESS 06169 M01S04938.o26 +++| ADC -KBUF+2 06170 M01S04939.o26 +++| STD T2
| Line S04940 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06171 M02S04940.241l630 ---| LDD AB+4 SET START OF SCAN
| Line S04941 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06172 M02S04941.241l630 ---| ZJN RPN1 IF NO COUNT
| Line S04942 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06173 M02S04942.241l630 ---| ADN 1
| Line S04943 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06174 M02S04943.241l630 ---| STD T3
| Line S04944 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06175 M02S04944.241l630 ---| STD T6
| Line S04945 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06176 M02S04945.241l630 ---| ADC -KBUFL
| Line S04946 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06177 M02S04946.241l630 ---| PJN RPN1 IF BEYOND END OF BUFFER
| Line S04947 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06178 M02S04947.241l630 ---| LDN 1
| Line S04948 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06179 M02S04948.241l630 ---| STD T5
| Line S04949 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | o262 |
M03 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06180 M03S04949.241l630 ---| UJN RPN4
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o262 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06181 M02S00001.241l630 ---| LDD T3
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | o262 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06182 M02S00002.241l630 ---| SBD LC
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | o262 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06183 M02S00003.241l630 ---| MJN RPN4 IF NOT STARTING BEYOND END OF LINE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | o262 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06184 M02S00004.241l630 ---| LJM RPS4 PROCESS AS *NOT IN LINE.*
| Line S04950 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06185 M02S04950.241l630 ---|
| Line S04951 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06186 M02S04951.241l630 ---| RPN3 LDM BUF,T5 COPY LINE UP TO START OF SCAN
| Line S04952 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06187 M02S04952.241l630 ---| STM BUFM,T5
| Line S04953 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06188 M02S04953.241l630 ---| RPN4 AOD T5
| Line S04954 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06189 M02S04954.241l630 ---| LMD T3
| Line S04955 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06190 M02S04955.241l630 ---| NJN RPN3 IF NOT AT END OF LINE LOOP
| Line S04956 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06191 M02S04956.241l630 ---| LJM RPS2 06192 M01S00907.241l630 +++| SOD AB+4 06193 M01S00908.241l630 +++| MJN RPN1 IF NULL CHARACTER POSITION 06194 M01S00909.241l630 +++| ZJN RPN4 IF FIRST CHARACTER POSITION 06195 M01S00910.241l630 +++| ADC 1-KBUFL 06196 M01S00911.241l630 +++| MJN RPN2 IF POSITION WITHIN BUFFER 06197 M01S00912.241l630 +++| RPN1 JMP ERR FORMAT ERROR 06198 M01S00913.241l630 +++| 06199 M01S00914.241l630 +++| RPN2 LDD AB+4 CHECK CHARACTER POSITION 06200 M01S00915.241l630 +++| SBD LC 06201 M01S00916.241l630 +++| MJN RPN3 IF WITHIN INSERT LINE 06202 M01S00917.241l630 +++| LJM RPS7 PROCESS AS *NOT IN LINE.* 06203 M01S00918.241l630 +++| 06204 M01S00919.241l630 +++| RPN3 LDM BUF+2,T5 COPY LINE TO START OF SCAN 06205 M01S00920.241l630 +++| STM BUFM+2,T5 06206 M01S00921.241l630 +++| AOD T5 ADVANCE INDEX 06207 M01S00922.241l630 +++| LMD AB+4 06208 M01S00923.241l630 +++| NJN RPN3 IF NOT END OF COPY 06209 M01S00924.241l630 +++| LDD AB+4 06210 M01S00925.241l630 +++| RPN4 LJM RPS1 PROCESS STRING REPLACEMENT 06211 M01S04957.o26 +++| ASD SPACE 4,10 06212 M01S04958.o26 +++|** ASD - ASSEMBLE DIGITS. 06213 M01S04959.o26 +++|* 06214 M01S04960.o26 +++|* ENTRY (A) = CHARACTER ADDRESS. 06215 M01S04961.o26 +++|*
| Line S04962 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06216 M02S04962.241l630 ---|* EXIT (AB - AB+4) = ASSEMBLED DIGITS RIGHT-JUSTIFIED. 06217 M01S00926.241l630 +++|* EXIT (A) = 0. 06218 M01S00927.241l630 +++|* (AB - AB+4) = RIGHT JUSTIFIED ASSEMBLY. 06219 M01S04963.o26 +++|* 06220 M01S04964.o26 +++|* CALLS ADD. 06221 M01S04965.o26 +++| 06222 M01S04966.o26 +++| 06223 M01S04967.o26 +++| ASD SUBR ENTRY/EXIT 06224 M01S04968.o26 +++| RJM ADD ASSEMBLE DECIMAL DIGITS 06225 M01S04969.o26 +++| LMN 1R. 06226 M01S04970.o26 +++| ZJN ASDX IF *.* RETURN
| Line S04971 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06227 M02S04971.241l630 ---| LJM ERR FORMAT ERROR
| Line S04972 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06228 M02S04972.241l630 ---| CCS SPACE 4,20
| Line S04973 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06229 M02S04973.241l630 ---|** CCS - COMPARE CHARACTER STRINGS.
| Line S04974 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06230 M02S04974.241l630 ---|*
| Line S04975 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06231 M02S04975.241l630 ---|* COMPARE STRINGS OF CHARACTERS IN KBUF WITH BUF.
| Line S04976 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06232 M02S04976.241l630 ---|*
| Line S04977 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06233 M02S04977.241l630 ---|* ENTRY (T1) = KBUF INDEX.
| Line S04978 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06234 M02S04978.241l630 ---|* (T3) = BUF INDEX.
| Line S04979 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06235 M02S04979.241l630 ---|* (T7) = DELIMITER CHARACTER.
| Line S04980 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06236 M02S04980.241l630 ---|*
| Line S04981 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06237 M02S04981.241l630 ---|* EXIT (A) = 0 IF STRINGS COMPARE.
| Line S04982 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06238 M02S04982.241l630 ---|* (T1) = UPDATED.
| Line S04983 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06239 M02S04983.241l630 ---|* (T3) = UPDATED.
| Line S04984 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06240 M02S04984.241l630 ---|
| Line S04985 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06241 M02S04985.241l630 ---|
| Line S04986 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06242 M02S04986.241l630 ---| CCS2 LDN 1
| Line S04987 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06243 M02S04987.241l630 ---|
| Line S04988 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06244 M02S04988.241l630 ---| CCS SUBR ENTRY/EXIT
| Line S04989 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06245 M02S04989.241l630 ---| CCS1 LDD T1
| Line S04990 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06246 M02S04990.241l630 ---| LMD KI
| Line S04991 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06247 M02S04991.241l630 ---| ZJN CCS2 IF END OF KEYBOARD STRING
| Line S04992 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06248 M02S04992.241l630 ---| LDM KBUF,T1
| Line S04993 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06249 M02S04993.241l630 ---| LMD T7
| Line S04994 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06250 M02S04994.241l630 ---| ZJN CCSX IF DELIMITER FOUND
| Line S04995 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06251 M02S04995.241l630 ---| LDD T3
| Line S04996 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06252 M02S04996.241l630 ---| SBN 2
| Line S04997 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06253 M02S04997.241l630 ---| LMD LC
| Line S04998 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06254 M02S04998.241l630 ---| ZJN CCS2 IF END OF ORIGINAL LINE REACHED
| Line S04999 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06255 M02S04999.241l630 ---| LDM BUF,T3
| Line S05000 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06256 M02S05000.241l630 ---| LMM KBUF,T1
| Line S05001 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06257 M02S05001.241l630 ---| NJN CCSX IF NO HIT FOUND
| Line S05002 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06258 M02S05002.241l630 ---| AOD T1 ADVANCE POINTERS
| Line S05003 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06259 M02S05003.241l630 ---| AOD T3
| Line S05004 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06260 M02S05004.241l630 ---| UJN CCS1 LOOP FOR NEXT CHARACTER 06261 M01S00928.241l630 +++| JMP ERR FORMAT ERROR 06262 M01S00929.241l630 +++| CIL SPACE 4,10 06263 M01S00930.241l630 +++|** CIL - CHECK INSERT LINE. 06264 M01S00931.241l630 +++|* 06265 M01S00932.241l630 +++|* ENTRY (IF) = INSERT FLAG. 06266 M01S00933.241l630 +++|* 06267 M01S00934.241l630 +++|* EXIT (BUF+2) = INSERT LINE. 06268 M01S00935.241l630 +++|* 06269 M01S00936.241l630 +++|* USES CA. 06270 M01S00937.241l630 +++|* 06271 M01S00938.241l630 +++|* CALLS RDL. 06272 M01S00939.241l630 +++| 06273 M01S00940.241l630 +++| 06274 M01S00941.241l630 +++| CIL1 LDC BUF+2 SET BUFFER ADDRESS 06275 M01S00942.241l630 +++| STD CA 06276 M01S00943.241l630 +++| RJM RDL READ INSERT LINE 06277 M01S00944.241l630 +++| 06278 M01S00945.241l630 +++| CIL SUBR ENTRY/EXIT 06279 M01S00946.241l630 +++| LDD IF 06280 M01S00947.241l630 +++| NJN CIL1 IF INSERT FLAG SET 06281 M01S00948.241l630 +++| JMP ERR FORMAT ERROR 06282 M01S05005.o26 +++| MBU SPACE 4,10 06283 M01S05006.o26 +++|** MBU - MOVE BUFFER UP. 06284 M01S05007.o26 +++|* 06285 M01S05008.o26 +++|* ENTRY (T2 - T3) = FWA TO MOVE. 06286 M01S05009.o26 +++|* (IN - IN+1) = LWA+1 TO MOVE. 06287 M01S05010.o26 +++|* (T7) = DISTANCE TO MOVE. 06288 M01S05011.o26 +++|* 06289 M01S05012.o26 +++|* USES T1, T4, BUFM - BUFM+240. 06290 M01S05013.o26 +++| 06291 M01S05014.o26 +++| 06292 M01S05015.o26 +++| MBU SUBR ENTRY/EXIT 06293 M01S05016.o26 +++| LDD IN COMPUTE MOVE WORD COUNT 06294 M01S05017.o26 +++| SBD T2 06295 M01S05018.o26 +++| SHN 14 06296 M01S05019.o26 +++| ADD IN+1 06297 M01S05020.o26 +++| SBD T3 06298 M01S05021.o26 +++| SHN 13D SET BLOCK COUNT 06299 M01S05022.o26 +++| STD T1 06300 M01S05023.o26 +++| SHN -13D SET ODD SIZE 06301 M01S05024.o26 +++| STD T4
| Line S05025 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06302 M02S05025.241l630 ---| ZJN MBU1 IF NO ODD BLOCK 06303 M01S00949.241l630 +++| ZJN MBU2 IF NO ODD BLOCK 06304 M01S05026.o26 +++| 06305 M01S05027.o26 +++|* MOVE SHORT BLOCK. 06306 M01S05028.o26 +++| 06307 M01S05029.o26 +++| LDD IN READ SHORT BLOCK 06308 M01S05030.o26 +++| SHN 6 06309 M01S05031.o26 +++| ADD RA 06310 M01S05032.o26 +++| SHN 6 06311 M01S05033.o26 +++| ADD IN+1 06312 M01S05034.o26 +++| SBD T4
| Line S05035 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06313 M02S05035.241l630 ---| CRM BUFM,T4 06314 M01S00950.241l630 +++| MBU1 CRM BUFM,T4 06315 M01S05036.o26 +++| SBD T4 STORE ODD BLOCK 06316 M01S05037.o26 +++| ADD T7 06317 M01S05038.o26 +++| CWM BUFM,T4
| Line S05039 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06318 M02S05039.241l630 ---| MBU1 LDD T1
| Line S05040 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06319 M02S05040.241l630 ---| ZJN MBUX IF NO FULL BLOCKS 06320 M01S00951.241l630 +++| MBU2 SOD T1 06321 M01S00952.241l630 +++| MJN MBUX IF NO FULL BLOCKS 06322 M01S00953.241l630 +++| LDN 40 06323 M01S00954.241l630 +++| STD T4 SET FULL BLOCK SIZE 06324 M01S05041.o26 +++| 06325 M01S05042.o26 +++|* MOVE FULL BLOCKS. 06326 M01S05043.o26 +++| 06327 M01S05044.o26 +++| LDD T2 READ BLOCK 06328 M01S05045.o26 +++| SHN 6 06329 M01S05046.o26 +++| ADD RA 06330 M01S05047.o26 +++| SHN 1 06331 M01S05048.o26 +++| ADD T1
| Line S05049 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06332 M02S05049.241l630 ---| SBN 1 06333 M01S05050.o26 +++| SHN 5 06334 M01S05051.o26 +++| ADD T3
| Line S05052 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06335 M02S05052.241l630 ---| CRM BUFM,FR
| Line S05053 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06336 M02S05053.241l630 ---| SBD FR STORE BLOCK
| Line S05054 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06337 M02S05054.241l630 ---| ADD T7
| Line S05055 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06338 M02S05055.241l630 ---| CWM BUFM,FR
| Line S05056 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06339 M02S05056.241l630 ---| SOD T1 DECREMENT BLOCK COUNT
| Line S05057 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06340 M02S05057.241l630 ---| UJN MBU1 LOOP 06341 M01S00955.241l630 +++| UJN MBU1 MOVE BLOCK 06342 M01S05058.o26 +++| RLB SPACE 4,20 06343 M01S05059.o26 +++|** RLB - REPLACE LINE IN CM BUFFER. 06344 M01S05060.o26 +++|* 06345 M01S05061.o26 +++|* ENTRY (CA) = CHARACTER ADDRESS. 06346 M01S05062.o26 +++|* (IF) = INSERT FLAG. 06347 M01S05063.o26 +++|* (IP - IP+1) = INSERT ADDRESS. 06348 M01S05064.o26 +++|* 06349 M01S05065.o26 +++|* USES T2 - T7, CM - CM+4, BUF - BUF+50. 06350 M01S05066.o26 +++|* 06351 M01S05067.o26 +++|* CALLS MBD, MBU, PKL, SFL, SIP.
| Line S05068 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06352 M02S05068.241l630 ---|*
| Line S05069 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06353 M02S05069.241l630 ---|* CALLS MBD, MBU, PKL. 06354 M01S05070.o26 +++| 06355 M01S05071.o26 +++| 06356 M01S05072.o26 +++| RLB SUBR ENTRY/EXIT 06357 M01S05073.o26 +++| RJM PKL PACK LINE INTO BUF 06358 M01S05074.o26 +++| LDD T7 SET BUFFER LENGTH 06359 M01S05075.o26 +++| STD T6 06360 M01S05076.o26 +++| LDD IP SEARCH FOR END OF LINE 06361 M01S05077.o26 +++| STD T2 06362 M01S05078.o26 +++| LDD IP+1 06363 M01S05079.o26 +++| STD T3 06364 M01S05080.o26 +++| LDN 1 06365 M01S05081.o26 +++| RJM SFL SEARCH FOR LINE 06366 M01S05082.o26 +++| LDD T3 CALCULATE CURRENT LENGTH 06367 M01S05083.o26 +++| STD T5 06368 M01S05084.o26 +++| LDD T2 06369 M01S05085.o26 +++| STD T4 06370 M01S05086.o26 +++| SBD IP 06371 M01S05087.o26 +++| SHN 14 06372 M01S05088.o26 +++| ADD T3 06373 M01S05089.o26 +++| SBD IP+1 06374 M01S05090.o26 +++| SBD T6 06375 M01S05091.o26 +++| MJN RLB1 IF LENGTH INCREASE 06376 M01S05092.o26 +++| ZJN RLB2 IF SAME LENGTH 06377 M01S05093.o26 +++| 06378 M01S05094.o26 +++|* MOVE BUFFER DOWN. 06379 M01S05095.o26 +++| 06380 M01S05096.o26 +++| LDD IP+1 SET MOVE ADDRESS 06381 M01S05097.o26 +++| ADD T6 06382 M01S05098.o26 +++| STD T3 06383 M01S05099.o26 +++| SHN -14 06384 M01S05100.o26 +++| ADD IP 06385 M01S05101.o26 +++| STD T2 06386 M01S05102.o26 +++| RJM MBD MOVE BUFFER DOWN 06387 M01S05103.o26 +++| UJN RLB2 06388 M01S05104.o26 +++| 06389 M01S05105.o26 +++|* MOVE BUFFER UP. 06390 M01S05106.o26 +++| 06391 M01S05107.o26 +++| RLB1 LMC 7777 SET WORD COUNT 06392 M01S05108.o26 +++| STD T7 06393 M01S05109.o26 +++| RJM MBU MOVE BUFFER UP 06394 M01S05110.o26 +++| LDD T7 ADVANCE IN 06395 M01S05111.o26 +++| RAD IN+1 06396 M01S05112.o26 +++| SHN -14 06397 M01S05113.o26 +++| RAD IN 06398 M01S05114.o26 +++| LDD T7 ADVANCE DISPLAY LENGTH 06399 M01S05115.o26 +++| RAD DL 06400 M01S05116.o26 +++| 06401 M01S05117.o26 +++|* COPY LINE INTO CM BUFFER. 06402 M01S05118.o26 +++| 06403 M01S05119.o26 +++| RLB2 LDD IP 06404 M01S05120.o26 +++| SHN 6 06405 M01S05121.o26 +++| ADD RA 06406 M01S05122.o26 +++| SHN 6 06407 M01S05123.o26 +++| ADD IP+1 06408 M01S05124.o26 +++| CWM BUF,T6 06409 M01S05125.o26 +++| RJM SIP SET IN POINTER 06410 M01S05126.o26 +++| LJM RLBX RETURN 06411 M01S05127.o26 +++| COMMAND (REWRITE RECORD IN PLACE.) 06412 M01S05128.o26 +++| RWRITE SPACE 4 06413 M01S05129.o26 +++|*** RWRITE. 06414 M01S05130.o26 +++|* 06415 M01S05131.o26 +++|* REWRITE RECORD ( MASS STORAGE ONLY ) 06416 M01S05132.o26 +++|* 06417 M01S05133.o26 +++|* 06418 M01S05134.o26 +++|* NOTES AND CAUTIONS. 06419 M01S05135.o26 +++|* 06420 M01S05136.o26 +++|* 1) NUMBER OF PRU,S MAY NOT CHANGE. 06421 M01S05137.o26 +++|* REWRITE NOT ALLOWED IF CONDITION EXISTS. 06422 M01S05138.o26 +++|* 06423 M01S05139.o26 +++|* 2) AN ** WILL APPEAR TO THE RIGHT OF THE *RS=* 06424 M01S05140.o26 +++|* FIELD WHEN A NO-REWRITE CONDITION EXISTS. 06425 M01S05141.o26 +++|* 06426 M01S05142.o26 +++|* 3) REWRITE TO ANOTHER FILE MAY CAUSE UNPREDICTABLE 06427 M01S05143.o26 +++|* RESULTS. 06428 M01S05144.o26 +++| 06429 M01S05145.o26 +++| 06430 M01S05146.o26 +++| RWR ENTRY 06431 M01S05147.o26 +++| RJM CRS CHECK RECORD STATUS 06432 M01S05148.o26 +++| RJM SIP STORE IN POINTER
| Line S05149 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06433 M02S05149.241l630 ---| RJM CBC CHECK BUFFER CONTENTS 06434 M01S00956.241l630 +++| LDD IN 06435 M01S00957.241l630 +++| SBD FT 06436 M01S00958.241l630 +++| SHN 14 CALCULATE PRU COUNT 06437 M01S00959.241l630 +++| LMD IN+1 06438 M01S00960.241l630 +++| SBD FT+1 06439 M01S00961.241l630 +++| SHN -6 06440 M01S05150.o26 +++| LMM TIOG COMPARE WITH RECORD READ 06441 M01S05151.o26 +++| ZJN RWR1 IF IN RANGE 06442 M01S05152.o26 +++| LDC =C*PRU SIZE MODIFIED.* 06443 M01S05153.o26 +++| JMP ERR1 06444 M01S05154.o26 +++| 06445 M01S05155.o26 +++|* REWRITE RECORD. 06446 M01S05156.o26 +++| 06447 M01S05157.o26 +++| RWR1 LDN 21 REWRITE RECORD 06448 M01S05158.o26 +++| RJM CIO 06449 M01S05159.o26 +++| LDN 17 RESET FET POINTERS 06450 M01S05160.o26 +++| RJM CIO 06451 M01S05161.o26 +++| JMP CIF 06452 M01S05162.o26 +++| COMMAND (MISCELANEOUS COMMANDS.) 06453 M01S05163.o26 +++| ENFL. SPACE 4,20 06454 M01S05164.o26 +++|*** ENFL. 06455 M01S05165.o26 +++|* 06456 M01S05166.o26 +++|* SET FIELD LENGTH TO BUFFER SIZE+1000. 06457 M01S05167.o26 +++| 06458 M01S05168.o26 +++| 06459 M01S05169.o26 +++| EFL ENTRY 06460 M01S05170.o26 +++| LDD RA READ LIMIT 06461 M01S05171.o26 +++| SHN 6 06462 M01S05172.o26 +++| ADN FET+4 06463 M01S05173.o26 +++| CRD AB 06464 M01S05174.o26 +++| LDD CP GET NFL SIZE 06465 M01S05175.o26 +++| ADN FLSW 06466 M01S05176.o26 +++| CRD CM 06467 M01S05177.o26 +++| LDD IN SET FIELD LENGTH 06468 M01S05178.o26 +++| SHN 6 06469 M01S05179.o26 +++| ADD CM INCLUDE NFL IN VALIDATION 06470 M01S05180.o26 +++| SHN 6 06471 M01S05181.o26 +++| ADD IN+1 06472 M01S05182.o26 +++| ADC 1077 06473 M01S05183.o26 +++| MJN EFL2 IF REQUEST .GE. 131K 06474 M01S05184.o26 +++| SHN -6 06475 M01S05185.o26 +++| SBD CM 06476 M01S05186.o26 +++| STD T1
| Line S05187 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06477 M02S05187.v23l617 ---| EFL1 LDD CP CHECK FOR *ECS* ASSIGNMENT 06478 M01S00017.v23l617 +++| EFL1 LDD CP CHECK FOR *EXTENDED MEMORY* ASSIGNMENT 06479 M01S05188.o26 +++| ADN ECSW 06480 M01S05189.o26 +++| CRD AB 06481 M01S05190.o26 +++| LDD AB+4
| Line S05191 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06482 M02S05191.v23l617 ---| ZJN EFL3 IF *ECS* NOT ASSIGNED 06483 M01S00018.v23l617 +++| ZJN EFL3 IF *EXTENDED MEMORY* NOT ASSIGNED 06484 M01S05192.o26 +++| LDD T1 ENSURE *FL* .GE. 10000B 06485 M01S05193.o26 +++| ADC -MCMX/100 06486 M01S05194.o26 +++| PJN EFL3 IF *FL* .GE. 10000
| Line S05195 Modification History | |
|---|---|
M01 (Added by) | o26 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06487 M02S05195.v23l617 ---| EFL2 LDC =C*INVALID FL REQUEST.* 06488 M01S00019.v23l617 +++| EFL2 LDC =C*INCORRECT FL REQUEST.* 06489 M01S05196.o26 +++| UJN EFL7 ISSUE MESSAGE 06490 M01S05197.o26 +++| 06491 M01S05198.o26 +++| EFL3 LDD T1 SET FL REQUEST 06492 M01S05199.o26 +++| STM EFLA 06493 M01S05200.o26 +++| EFL4 LDC * REQUEST STORAGE INCREASE 06494 M01S05201.o26 +++| EFLA EQU *-1 06495 M01S05202.o26 +++| EFL5 RJM RSI REQUEST STORAGE 06496 M01S05203.o26 +++| ZJN EFL7 IF STORAGE ASSIGNED 06497 M01S05204.o26 +++| MJN EFL6 IF NOT AVAILABLE 06498 M01S05205.o26 +++| LDC =C*WAITING FOR STORAGE.* 06499 M01S05206.o26 +++| STD KM 06500 M01S05207.o26 +++| RJM KBIA 06501 M01S05208.o26 +++| LDD KE CHECK KEYBOARD ENTRY 06502 M01S05209.o26 +++| LMN 53 06503 M01S05210.o26 +++| NJN EFL4 IF NOT LEFT BLANK 06504 M01S00001.o268 +++| LDD FL 06505 M01S05211.o26 +++| UJN EFL5 CLEAR STORAGE REQUEST TO *1SJ* 06506 M01S05212.o26 +++| 06507 M01S05213.o26 +++| EFL6 LDC =C*STORAGE NOT AVAILABLE.* 06508 M01S05214.o26 +++| EFL7 STD KM 06509 M01S05215.o26 +++| LDC KBI8 RESET KEYBOARD 06510 M01S05216.o26 +++| STM KBIA 06511 M01S05217.o26 +++| LDD RA READ LIMIT 06512 M01S05218.o26 +++| SHN 6 06513 M01S05219.o26 +++| ADN FET+4 06514 M01S05220.o26 +++| CRD AB 06515 M01S05221.o26 +++| LDD FL RESET LIMIT 06516 M01S05222.o26 +++| SHN 6 06517 M01S05223.o26 +++| STD LM+1 06518 M01S05224.o26 +++| STD AB+4 06519 M01S05225.o26 +++| SHN -14 06520 M01S05226.o26 +++| STD LM 06521 M01S05227.o26 +++| STD AB+3 06522 M01S05228.o26 +++| LDD RA 06523 M01S05229.o26 +++| SHN 6 06524 M01S05230.o26 +++| ADN FET+4 06525 M01S05231.o26 +++| CWD AB 06526 M01S05232.o26 +++| JMP RET RETURN 06527 M01S05233.o26 +++| ENFL, SPACE 4,15 06528 M01S05234.o26 +++|*** ENFL,X. 06529 M01S05235.o26 +++|* 06530 M01S05236.o26 +++|* SET FIELD LENGTH TO X. 06531 M01S05237.o26 +++| 06532 M01S05238.o26 +++| 06533 M01S05239.o26 +++| EFN ENTRY 06534 M01S05240.o26 +++| RJM AOD ASSEMBLE OCTAL DIGITS 06535 M01S05241.o26 +++| LDD CP GET NFL SIZE 06536 M01S05242.o26 +++| ADN FLSW 06537 M01S05243.o26 +++| CRD CM 06538 M01S05244.o26 +++| LDD AB+3 06539 M01S05245.o26 +++| SHN 6 06540 M01S05246.o26 +++| ADD CM INCLUDE NFL IN VALIDATION 06541 M01S05247.o26 +++| SHN 6 06542 M01S05248.o26 +++| ADD AB+4 06543 M01S05249.o26 +++| ADN 77 06544 M01S05250.o26 +++| PJN EFN1 IF REQUEST .LT. 131K 06545 M01S05251.o26 +++| LJM EFL2 REQUEST .GE. 131K 06546 M01S05252.o26 +++| 06547 M01S05253.o26 +++| EFN1 SHN -6 FL = FL/100 06548 M01S05254.o26 +++| SBD CM 06549 M01S05255.o26 +++| STD T1 06550 M01S05256.o26 +++| SBD FL 06551 M01S05257.o26 +++| NJN EFN3 IF FL .NE. 0 06552 M01S05258.o26 +++| EFN2 LJM ERR MESSAGE = *FORMAT ERROR.* 06553 M01S05259.o26 +++| 06554 M01S05260.o26 +++| EFN3 PJN EFN4 IF NEW FL .GT. OLD FL 06555 M01S05261.o26 +++| LDD IN CHECK FOR DATA TRUNCATION 06556 M01S05262.o26 +++| SHN 6 06557 M01S05263.o26 +++| SBD T1 06558 M01S05264.o26 +++| SHN 6 06559 M01S05265.o26 +++| ADD IN+1 06560 M01S05266.o26 +++| PJN EFN2 IF NEW FL TOO SMALL 06561 M01S05267.o26 +++| EFN4 LJM EFL1 ISSUE FL REQUEST 06562 M01S00021.ns2735 +++| ERR. SPACE 4,10 06563 M01S00022.ns2735 +++|*** ERR. 06564 M01S00023.ns2735 +++|* 06565 M01S00024.ns2735 +++|* SET ERROR FLAG. 06566 M01S00025.ns2735 +++| 06567 M01S00026.ns2735 +++| 06568 M01S00027.ns2735 +++| SEF ENTRY
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/o26.004.txt · Last modified: by 127.0.0.1