cdc:nos2.source:opl.opl871:deck:o26.003
Deck O26 Part 003
26 Modifications
Listing Sections
- Deck O26 Start
- Deck O26 Part 1 (Line 1456)
- Deck O26 Part 2 (Line 3152)
- Deck O26 Part 3 (Line 5051)
Source
Seq # *Modification Id* Act ----------------------------+ 05051 M00S03983.o26 +++| LDD IN+1 05052 M00S03984.o26 +++| STD T3 05053 M00S03985.o26 +++| LCN 18D SEARCH FILE BACKWARDS 05054 M00S03986.o26 +++| RJM SFL 05055 M00S03987.o26 +++| LDD T2 SET DISPLAY 05056 M00S03988.o26 +++| STD OT 05057 M00S03989.o26 +++| LDD T3 05058 M00S03990.o26 +++| STD OT+1 05059 M00S03991.o26 +++| JMP RET RETURN 05060 M00S03992.o26 +++| DS,. SPACE 4,25 05061 M00S03993.o26 +++|*** DS,NNNNNN. 05062 M00S03994.o26 +++|* 05063 M00S03995.o26 +++|* START DISPLAY AT LINE *NNNNNN* OF FILE. 05064 M00S03996.o26 +++| DS, SPACE 4,20 05065 M00S03997.o26 +++|*** DS, 05066 M00S03998.o26 +++|* 05067 M00S03999.o26 +++|* COUNT THE NUMBER OF LINES FROM THE START OF THE 05068 M00S04000.o26 +++|* DISPLAY UP TO THE INSERT MARK OR END OF FILE. 05069 M00S04001.o26 +++|* ENTER RESULT OF COUNT AFTER THE *DS,* IN THE 05070 M00S04002.o26 +++|* KEYBOARD BUFFER. 05071 M00S04003.o26 +++| 05072 M00S04004.o26 +++| 05073 M00S04005.o26 +++| DSC ENTRY 05074 M00S04006.o26 +++| LDN ZERL SET COUNT TO ZERO 05075 M00S04007.o26 +++| CRD AB 05076 M00S04008.o26 +++| LDN IP SET END OF BUFFER 05077 M00S04009.o26 +++| STD T7 05078 M00S04010.o26 +++| LDD IF CHECK INSERT FLAG 05079 M00S04011.o26 +++| NJN DSC1 IF INSERT SET 05080 M00S04012.o26 +++| LDN IN SET END OF BUFFER 05081 M00S04013.o26 +++| STD T7 05082 M00S04014.o26 +++| DSC1 LDD CA CHECK KEYBOARD ENTRY 05083 M00S04015.o26 +++| ADC -KBUF 05084 M00S04016.o26 +++| LMD KI 05085 M00S04017.o26 +++| ZJN DSC3 IF COUNT TO CURRENT LINE 05086 M00S04018.o26 +++| LDN IN 05087 M00S04019.o26 +++| STD T7 05088 M00S04020.o26 +++| LDD CA 05089 M00S04021.o26 +++| RJM ADD ASSEMBLE DIGITS 05090 M00S04022.o26 +++| STD AB 05091 M00S04023.o26 +++| SBN 1R. 05092 M00S04024.o26 +++| ZJN DSC2 IF *.* 05093 M00S04025.o26 +++| JMP ERR FORMAT ERROR 05094 M00S04026.o26 +++| 05095 M00S04027.o26 +++| DSC2 LDD AB+3 CHECK COUNT 05096 M00S04028.o26 +++| ADD AB+4 05097 M00S04029.o26 +++| NJN DSC3 IF NOT FIRST LINE 05098 M00S04030.o26 +++| LJM DSF DISPLAY FIRST LINE 05099 M00S04031.o26 +++| 05100 M00S04032.o26 +++| DSC3 LDN 0 CLEAR COUNT 05101 M00S04033.o26 +++| STD T4 05102 M00S04034.o26 +++| STD T5 05103 M00S04035.o26 +++| LDD FT SET START OF BUFFER 05104 M00S04036.o26 +++| STD T2 05105 M00S04037.o26 +++| LDD FT+1 05106 M00S04038.o26 +++| STD T3 05107 M00S04039.o26 +++| LDI T7 STORE BUFFER CHECK 05108 M00S04040.o26 +++| SHN 6 05109 M00S04041.o26 +++| ADD RA 05110 M00S04042.o26 +++| SHN 6 05111 M00S04043.o26 +++| ADM 1,T7 05112 M00S04044.o26 +++| STM DSCA+1 05113 M00S04045.o26 +++| SHN -14 05114 M00S04046.o26 +++| LMC LMCI 05115 M00S04047.o26 +++| STM DSCA 05116 M00S04048.o26 +++| 05117 M00S04049.o26 +++|* SEARCH BUFFER AND COUNT LINES. 05118 M00S04050.o26 +++| 05119 M00S04051.o26 +++| DSC4 LDD T2 READ BUFFER 05120 M00S04052.o26 +++| SHN 6 05121 M00S04053.o26 +++| ADD RA 05122 M00S04054.o26 +++| SHN 6 05123 M00S04055.o26 +++| ADD T3 05124 M00S04056.o26 +++| CRD CM 05125 M00S04057.o26 +++| DSCA LMC ** 05126 M00S04058.o26 +++| ZJN DSC5 IF END OF BUFFER 05127 M00S04059.o26 +++| AOD T3 ADVANCE INDEX 05128 M00S04060.o26 +++| SHN -14 05129 M00S04061.o26 +++| RAD T2 05130 M00S04062.o26 +++| LDD CM+4 05131 M00S04063.o26 +++| NJN DSC4 IF NOT END OF LINE 05132 M00S04064.o26 +++| 05133 M00S04065.o26 +++|* PROCESS END OF LINE. 05134 M00S04066.o26 +++| 05135 M00S04067.o26 +++| AOD T5 ADVANCE LINE COUNT 05136 M00S04068.o26 +++| SHN -14 05137 M00S04069.o26 +++| RAD T4 05138 M00S04070.o26 +++| LMD AB+3 05139 M00S04071.o26 +++| NJN DSC4 IF NOT END OF COUNT 05140 M00S04072.o26 +++| LDD T5 05141 M00S04073.o26 +++| LMD AB+4 05142 M00S04074.o26 +++| NJN DSC4 IF NOT END OF COUNT 05143 M00S04075.o26 +++| 05144 M00S04076.o26 +++|* PROCESS END OF COUNT OR END OF BUFFER. 05145 M00S04077.o26 +++| 05146 M00S04078.o26 +++| DSC5 LDN 0 CONVERT COUNT TO DECIMAL 05147 M00S04079.o26 +++| STD T1 05148 M00S04080.o26 +++| DSC6 LDN 0 CLEAR BUFFER 05149 M00S04081.o26 +++| STM BUFM,T1 05150 M00S04082.o26 +++| AOD T1 05151 M00S04083.o26 +++| LMN 6 05152 M00S04084.o26 +++| NJN DSC6 IF BUFFER NOT COMPLETELY CLEARED 05153 M00S04085.o26 +++| STD T1 05154 M00S04086.o26 +++| DSC7 LDD T4 05155 M00S04087.o26 +++| SBM DSCB,T1 05156 M00S04088.o26 +++| SHN 14 05157 M00S04089.o26 +++| ADD T5 05158 M00S04090.o26 +++| SBM DSCC,T1 05159 M00S04091.o26 +++| MJN DSC8 IF NO POWER OF TEN THIS DIGIT 05160 M00S04092.o26 +++| STD T5 05161 M00S04093.o26 +++| SHN -14 05162 M00S04094.o26 +++| STD T4 05163 M00S04095.o26 +++| AOM BUFM,T1 ADVANCE TEN-S COUNT 05164 M00S04096.o26 +++| UJN DSC7 LOOP 05165 M00S04097.o26 +++| 05166 M00S04098.o26 +++| DSC8 AOD T1 ADVANCE INDEX 05167 M00S04099.o26 +++| LMN 6 05168 M00S04100.o26 +++| NJN DSC7 IF NOT 6 DIGITS LOOP 05169 M00S04101.o26 +++| STD T1 05170 M00S04102.o26 +++| 05171 M00S04103.o26 +++|* ASSEMBLE COUNT. 05172 M00S04104.o26 +++| 05173 M00S04105.o26 +++| LDD AB CHECK TYPE OF CALL 05174 M00S04106.o26 +++| ZJN DSC9 IF COUNT TO LINE 05175 M00S04107.o26 +++| LDD T2 SET DISPLAY 05176 M00S04108.o26 +++| STD OT 05177 M00S04109.o26 +++| LDD T3 05178 M00S04110.o26 +++| STD OT+1 05179 M00S04111.o26 +++| JMP RET RETURN 05180 M00S04112.o26 +++| 05181 M00S04113.o26 +++| DSC9 LDM BUFM,T1 SUPPRESS LEADING ZEROS 05182 M00S04114.o26 +++| NJN DSC10 IF NOT LEADING ZERO 05183 M00S04115.o26 +++| AOD T1 05184 M00S04116.o26 +++| LMN 5 05185 M00S04117.o26 +++| NJN DSC9 IF WORD NOT COMPLETE LOOP 05186 M00S04118.o26 +++| DSC10 LDM BUFM,T1 CONVERT TO DISPLAY CODE 05187 M00S04119.o26 +++| ADN 1R0 05188 M00S04120.o26 +++| STM KBUF,KI 05189 M00S04121.o26 +++| AOD KI 05190 M00S04122.o26 +++| AOD T1 05191 M00S04123.o26 +++| LMN 6 05192 M00S04124.o26 +++| NJN DSC10 IF NOT END OF NUMBER LOOP 05193 M00S04125.o26 +++| LDN 1R. 05194 M00S04126.o26 +++| STM KBUF,KI 05195 M00S04127.o26 +++| AOD KI 05196 M00S04128.o26 +++| JMP KBIX RETURN 05197 M00S04129.o26 +++| 05198 M00S04130.o26 +++| DSCB CON 100000D/1S12 05199 M00S04131.o26 +++| CON 10000D/1S12 05200 M00S04132.o26 +++| CON 1000D/1S12 05201 M00S04133.o26 +++| CON 100D/1S12 05202 M00S04134.o26 +++| CON 10D/1S12 05203 M00S04135.o26 +++| CON 1D/1S12 05204 M00S04136.o26 +++| 05205 M00S04137.o26 +++| DSCC CON 100000D-100000D/1S12*1S12 05206 M00S04138.o26 +++| CON 10000D-10000D/1S12*1S12 05207 M00S04139.o26 +++| CON 1000D 05208 M00S04140.o26 +++| CON 100D 05209 M00S04141.o26 +++| CON 10D 05210 M00S04142.o26 +++| CON 1D 05211 M00S04143.o26 +++| TAB SPACE 4,20 05212 M00S04144.o26 +++|*** TAB,X,Y,...,Z. 05213 M00S04145.o26 +++|* 05214 M00S04146.o26 +++|* SET TABS TO COLUMNS X, Y, Z. IF X = 0, CLEAR TABS. 05215 M00S04147.o26 +++|* 05216 M00S04148.o26 +++|* DEFAULT TABS ARE - 11, 18, 30, 40, 50, 60, 73, 80. 05217 M00S04149.o26 +++| 05218 M00S04150.o26 +++| 05219 M00S04151.o26 +++| TAB ENTRY 05220 M00S04152.o26 +++| LDC 5777 SET TAB BUFFER 05221 M00S04153.o26 +++| STM TABA 05222 M00S04154.o26 +++| LMC 7777 05223 M00S04155.o26 +++| STM TABB 05224 M00S04156.o26 +++| LDD CA 05225 M00S04157.o26 +++| TAB1 RJM ADD ASSEMBLE DIGITS 05226 M00S04158.o26 +++| SBN 1R, 05227 M00S04159.o26 +++| ZJN TAB3 IF *,* 05228 M00S04160.o26 +++| SBN 1R.-1R, 05229 M00S04161.o26 +++| ZJN TAB3 IF *.* 05230 M00S04162.o26 +++| TAB2 JMP ERR FORMAT ERROR 05231 M00S04163.o26 +++| 05232 M00S04164.o26 +++| TAB3 LDD AB+4 CHECK NUMBER 05233 M00S04165.o26 +++| NJN TAB5 IF NON-ZERO 05234 M00S04166.o26 +++| STD T2 CLEAR TABS 05235 M00S04167.o26 +++| TAB4 LDM DBUF,T2 05236 M00S04168.o26 +++| LPC 5777 05237 M00S04169.o26 +++| TABA EQU *-1 05238 M00S04170.o26 +++| STM DBUF,T2 05239 M00S04171.o26 +++| AOD T2 CHECK FOR END OF KEYBOARD BUFFER 05240 M00S04172.o26 +++| ADC -KBUFL 05241 M00S04173.o26 +++| MJN TAB4 IF NOT END OF KEYBOARD BUFFER 05242 M00S04174.o26 +++| UJN TAB6 CHECK SEPARATOR 05243 M00S04175.o26 +++| 05244 M00S04176.o26 +++| TAB5 ADC -KBUFL CHECK FOR LEGAL COLUMN 05245 M00S04177.o26 +++| PJN TAB2 IF BEYOND LAST CHARACTER ADDRESS 05246 M00S04178.o26 +++| AOD AB+4 SET TAB 05247 M00S04179.o26 +++| LDM DBUF,AB+4 05248 M00S04180.o26 +++| LMC 2000 05249 M00S04181.o26 +++| TABB EQU *-1 05250 M00S04182.o26 +++| STM DBUF,AB+4 05251 M00S04183.o26 +++| TAB6 LDI T1 CHECK SEPARATOR 05252 M00S04184.o26 +++| LMN 1R. 05253 M00S04185.o26 +++| ZJN TAB7 IF *.* 05254 M00S04186.o26 +++| LMN 1R,&1R. CHECK FOR COMMA 05255 M00S04187.o26 +++| NJN TAB2 IF NOT VALID SEPARATOR 05256 M00S04188.o26 +++| AOD T1 ADVANCE 05257 M00S04189.o26 +++| LJM TAB1 LOOP 05258 M00S04190.o26 +++| 05259 M00S04191.o26 +++| TAB7 JMP RET RETURN 05260 M00S04192.o26 +++| SCAN, SPACE 4,20 05261 M00S04193.o26 +++|*** SCAN,X,Y,...,Z. 05262 M00S04194.o26 +++|* 05263 M00S04195.o26 +++|* SET WORD SCAN TO X, Y, Z. IF X = 0, CLEAR SCAN. 05264 M00S04196.o26 +++| 05265 M00S04197.o26 +++| 05266 M00S04198.o26 +++| SCN ENTRY 05267 M00S04199.o26 +++| LDN 0 CLEAR TABLE INDEX 05268 M00S04200.o26 +++| STD T6 05269 M00S04201.o26 +++| STD SF CLEAR SCAN FLAG 05270 M00S04202.o26 +++| STD SC CLEAR SCAN NUMBER 05271 M00S04203.o26 +++| LDD CA 05272 M00S04204.o26 +++| SCN1 RJM ADD ASSEMBLE DIGITS 05273 M00S04205.o26 +++| SBN 1R, 05274 M00S04206.o26 +++| ZJN SCN3 IF *,* 05275 M00S04207.o26 +++| SBN 1R.-1R, 05276 M00S04208.o26 +++| ZJN SCN3 IF *.* 05277 M00S04209.o26 +++| SCN2 LJM ERR FORMAT ERROR 05278 M00S04210.o26 +++| 05279 M00S04211.o26 +++| SCN3 LDD AB+4 CHECK NUMBER 05280 M00S04212.o26 +++| NJN SCN5 IF NON-ZERO 05281 M00S04213.o26 +++| STD T2 05282 M00S04214.o26 +++| SCN4 LDN 0 CLEAR ALL SCANS 05283 M00S04215.o26 +++| STM TSCN,T2 05284 M00S04216.o26 +++| AOD T2 05285 M00S04217.o26 +++| LMN 10 05286 M00S04218.o26 +++| NJN SCN4 IF ALL SCANS NOT CLEARED 05287 M00S04219.o26 +++| UJN SCN6 CHECK SEPARATOR 05288 M00S04220.o26 +++| 05289 M00S04221.o26 +++| SCN5 STM TSCN,T6 SET SCAN NUMBER 05290 M00S04222.o26 +++| AOD T6 ADVANCE SCAN TABLE 05291 M00S04223.o26 +++| LMN 7 05292 M00S04224.o26 +++| ZJN SCN2 IF TOO MANY SCANS 05293 M00S04225.o26 +++| LDN 1 SET SCAN FLAG 05294 M00S04226.o26 +++| STD SF 05295 M00S04227.o26 +++| SCN6 LDI T1 CHECK SEPARATOR 05296 M00S04228.o26 +++| LMN 1R. 05297 M00S04229.o26 +++| ZJN SCN7 IF *.* 05298 M00S04230.o26 +++| AOD T1 ADVANCE 05299 M00S04231.o26 +++| LJM SCN1 LOOP 05300 M00S04232.o26 +++| 05301 M00S04233.o26 +++| SCN7 STM TSCN,T6 SET END OF TABLE 05302 M00S04234.o26 +++| STD SI CLEAR SCAN INDEX 05303 M00S04235.o26 +++| JMP RET RETURN 05304 M00S04236.o26 +++| COMMAND (LINE SEARCH COMMANDS.) 05305 M00S04237.o26 +++| F. SPACE 4,8 05306 M00S04238.o26 +++|*** F.CCC-CCC 05307 M00S04239.o26 +++|* 05308 M00S04240.o26 +++|* SEARCH FOR MATCHING FIELD IN LINE. SEARCH IS END AROUND. 05309 M00S04241.o26 +++| 05310 M00S04242.o26 +++| SFM ENTRY SML 05311 M00S04243.o26 +++| S. SPACE 4,8 05312 M00S04244.o26 +++|*** S.CCC-CCC 05313 M00S04245.o26 +++|* 05314 M00S04246.o26 +++|* STARTING WITH THE FIRST LINE DISPLAYED, SEARCH 05315 M00S04247.o26 +++|* FOR A LINE BEGINNING WITH THE CHARACTERS *CCC-CCC*. 05316 M00S04248.o26 +++|* 05317 M00S04249.o26 +++|* SEARCH IS END AROUND. 05318 M00S04250.o26 +++| 05319 M00S04251.o26 +++| 05320 M00S04252.o26 +++| SML ENTRY 05321 M00S04253.o26 +++| LDD OT+1 SET LINE ADDRESS 05322 M00S04254.o26 +++| STD T7 05323 M00S04255.o26 +++| STD AB+1 05324 M00S04256.o26 +++| LDD OT 05325 M00S04257.o26 +++| STD T6 05326 M00S04258.o26 +++| STD AB 05327 M00S04259.o26 +++| LCN 0 SET NO SEARCH 05328 M00S04260.o26 +++| STD T4 05329 M00S04261.o26 +++| LDN 2 SET CHARACTER INDEX 05330 M00S04262.o26 +++| STD T3 05331 M00S04263.o26 +++| LDD T7 CHECK ADDRESS 05332 M00S04264.o26 +++| LMD IN+1 05333 M00S04265.o26 +++| NJN SML3 IF NOT END OF BUFFER 05334 M00S04266.o26 +++| LDD T6 05335 M00S04267.o26 +++| LMD IN 05336 M00S04268.o26 +++| NJN SML3 IF NOT END OF BUFFER 05337 M00S04269.o26 +++| LJM ERR MESSAGE = *FORMAT ERROR.* 05338 M00S04270.o26 +++| 05339 M00S04271.o26 +++| SML1 LDD T7 CHECK ADDRESS 05340 M00S04272.o26 +++| LMD IN+1 05341 M00S04273.o26 +++| NJN SML2 IF NOT END OF BUFFER 05342 M00S04274.o26 +++| LDD T6 05343 M00S04275.o26 +++| LMD IN 05344 M00S04276.o26 +++| NJN SML2 IF NOT END OF BUFFER 05345 M00S04277.o26 +++| LDD FT RESET ADDRESS 05346 M00S04278.o26 +++| STD T6 05347 M00S04279.o26 +++| STD AB 05348 M00S04280.o26 +++| LDD FT+1 05349 M00S04281.o26 +++| STD T7 05350 M00S04282.o26 +++| STD AB+1 05351 M00S04283.o26 +++| SML2 LDD T7 05352 M00S04284.o26 +++| LMD OT+1 05353 M00S04285.o26 +++| NJN SML3 IF NOT BEGINNING OF BUFFER 05354 M00S04286.o26 +++| LDD T6 05355 M00S04287.o26 +++| LMD OT 05356 M00S04288.o26 +++| NJN SML3 IF NOT BEGINNING OF BUFFER 05357 M00S04289.o26 +++| LDC =C*LINE NOT FOUND.* 05358 M00S04290.o26 +++| LJM ERR1 RETURN 05359 M00S04291.o26 +++| 05360 M00S04292.o26 +++| SML3 LDD T6 READ WORD 05361 M00S04293.o26 +++| SHN 6 05362 M00S04294.o26 +++| ADD RA 05363 M00S04295.o26 +++| SHN 6 05364 M00S04296.o26 +++| ADD T7 05365 M00S04297.o26 +++| CRD CM 05366 M00S04298.o26 +++| AOD T7 ADVANCE ADDRESS 05367 M00S04299.o26 +++| SHN -14 05368 M00S04300.o26 +++| RAD T6 05369 M00S04301.o26 +++| LDD T4 05370 M00S04302.o26 +++| ZJN SML6 IF SEARCH IN PROGRESS 05371 M00S04303.o26 +++| SML4 SOD T4 COUNT WORD 05372 M00S04304.o26 +++| LDD CM+4 05373 M00S04305.o26 +++| NJN SML5 IF NOT END OF LINE 05374 M00S04306.o26 +++| LDD SC SET SEARCH FLAG 05375 M00S04307.o26 +++| STD T4 05376 M00S04308.o26 +++| LDN 2 RESET CHARACTER ADDRESS 05377 M00S04309.o26 +++| STD T3 05378 M00S04310.o26 +++| LDD T6 SET NEXT LINE ADDRESS 05379 M00S04311.o26 +++| STD AB 05380 M00S04312.o26 +++| LDD T7 05381 M00S04313.o26 +++| STD AB+1 05382 M00S04314.o26 +++| SML5 LJM SML1 LOOP 05383 M00S04315.o26 +++| 05384 M00S04316.o26 +++| SML6 LDN CM SET BYTE ADDRESS 05385 M00S04317.o26 +++| STD T2 05386 M00S04318.o26 +++| SML7 LDM KBUF,T3 CHECK UPPER 05387 M00S04319.o26 +++| ZJN SML8 IF NO COMPARISON NEEDED 05388 M00S04320.o26 +++| SHN 6 05389 M00S04321.o26 +++| LMI T2 05390 M00S04322.o26 +++| SCN 77 05391 M00S04323.o26 +++| NJN SML4 IF NO MATCH 05392 M00S04324.o26 +++| SML8 AOD T3 ADVANCE CHARACTER 05393 M00S04325.o26 +++| LMD KI 05394 M00S04326.o26 +++| ZJN SML10 IF COMPARE COMPLETE 05395 M00S04327.o26 +++| LDM KBUF,T3 CHECK LOWER 05396 M00S04328.o26 +++| ZJN SML9 IF NO COMPARISON NEEDED 05397 M00S04329.o26 +++| LMI T2 05398 M00S04330.o26 +++| LPN 77 05399 M00S04331.o26 +++| NJN SML4 IF NO MATCH 05400 M00S04332.o26 +++| SML9 AOD T3 ADVANCE CHARACTER 05401 M00S04333.o26 +++| LMD KI 05402 M00S04334.o26 +++| ZJN SML10 IF COMPARE COMPLETE 05403 M00S04335.o26 +++| AOD T2 ADVANCE BYTE 05404 M00S04336.o26 +++| LMN CM+5 05405 M00S04337.o26 +++| NJN SML7 IF NOT AT END OF WORD LOOP 05406 M00S04338.o26 +++| LDD CM+4 05407 M00S04339.o26 +++| NJN SML5 IF NOT END OF LINE 05408 M00S04340.o26 +++| LJM SML4 PROCESS NEXT LINE 05409 M00S04341.o26 +++| 05410 M00S04342.o26 +++| SML10 LDD AB SET LINE ADDRESS 05411 M00S04343.o26 +++| STD OT 05412 M00S04344.o26 +++| LDD AB+1 05413 M00S04345.o26 +++| STD OT+1 05414 M00S04346.o26 +++| LDN 0 CLEAR ERROR FLAG 05415 M00S04347.o26 +++| STD KM 05416 M00S04348.o26 +++| LDN 1 SET HOLD 05417 M00S04349.o26 +++| STD HF 05418 M00S04350.o26 +++| JMP KBIX RETURN 05419 M00S04351.o26 +++| SFR SPACE 4,20 05420 M00S04352.o26 +++|** SFR - SEARCH FOR RECORD. 05421 M00S04353.o26 +++|*
| Line S04354 Modification History | |
|---|---|
M01 (Removed by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05422 M01S04354.o2614 ---|* USES T1 - T5, CM - CM+4, AB - AB+4.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05423 M01S00002.o2614 +++|* USES IN, IN+1, KM, AB - AB+4, CM - CM+4, T1 - T1+4. 05424 M00S04355.o26 +++|*
| Line S04356 Modification History | |
|---|---|
M01 (Removed by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05425 M01S04356.o2614 ---|* CALLS CIO, PDS.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05426 M01S00003.o2614 +++|* CALLS CIO, SPN. 05427 M00S04357.o26 +++| 05428 M00S04358.o26 +++| 05429 M00S04359.o26 +++| SFR ENTRY 05430 M00S04360.o26 +++| LDD RA READ FET 05431 M00S04361.o26 +++| SHN 6 05432 M00S04362.o26 +++| ADN FET 05433 M00S04363.o26 +++| CRD T1 05434 M00S04364.o26 +++| ADN 2 READ IN 05435 M00S04365.o26 +++| CRD AB 05436 M00S04366.o26 +++| ADN 1 SET IN = OUT 05437 M00S04367.o26 +++| CRD CM 05438 M00S04368.o26 +++| SBN 1 05439 M00S04369.o26 +++| CWD CM 05440 M00S04370.o26 +++| ADC CBUF-FET-2 READ RECORD NAME 05441 M00S04371.o26 +++| CRD CM 05442 M00S04372.o26 +++| LDD AB+3 SET IN POINTER 05443 M00S04373.o26 +++| STD IN 05444 M00S04374.o26 +++| LDD AB+4 05445 M00S04375.o26 +++| STD IN+1
| Line S04376 Modification History | |
|---|---|
M01 (Removed by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05446 M01S04376.o2614 ---| LDD T5 CHECK STATUS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05447 M01S00004.o2614 +++| LDD T1+4 CHECK STATUS 05448 M00S04377.o26 +++| LPN 30 05449 M00S04378.o26 +++| LMN 30 05450 M00S04379.o26 +++| NJN SFR1 IF NOT EOF 05451 M00S04380.o26 +++| LDC =C*RECORD NOT FOUND.* 05452 M00S04381.o26 +++| STD KM 05453 M00S04382.o26 +++| LJM TIOX RETURN 05454 M00S04383.o26 +++|
| Line S04384 Modification History | |
|---|---|
M01 (Removed by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05455 M01S04384.o2614 ---| SFR1 LDD CM
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04385.o26 +++| LMC 7700 05468 M00S04386.o26 +++| NJN SFR2 IF NO 7700 TABLE 05469 M00S04387.o26 +++| LDD RA READ RECORD NAME 05470 M00S04388.o26 +++| SHN 6 05471 M00S04389.o26 +++| ADC CBUF+1 05472 M00S04390.o26 +++| CRD CM 05473 M00S04391.o26 +++| SFR2 LDN CM+4 CLEAR TRAILING SPACE 05474 M00S04392.o26 +++| STD T1 05475 M00S04393.o26 +++| SFR2.1 LDI T1 05476 M00S04394.o26 +++| LPN 77 05477 M00S04395.o26 +++| LMN 1R 05478 M00S04396.o26 +++| NJN SFR2.2 IF NOT A SPACE 05479 M00S04397.o26 +++| LDI T1 05480 M00S04398.o26 +++| SCN 77 05481 M00S04399.o26 +++| STI T1 05482 M00S04400.o26 +++| SFR2.2 SOD T1 05483 M00S04401.o26 +++| LMN CM-1 05484 M00S04402.o26 +++| NJN SFR2.1 IF MORE BYTES 05485 M00S04403.o26 +++| AOD T1 RESTART AT CM 05486 M00S04404.o26 +++| SFR2.3 LDI T1 CHECK THE RECORD NAME 05487 M00S04405.o26 +++| LMM SFRB-CM,T1 05488 M00S04406.o26 +++| ZJN SFR4 IF MATCH 05489 M00S04407.o26 +++| LDD KM CHECK MESSAGE 05490 M00S04408.o26 +++| ZJN SFR3 IF GET ABORTED 05491 M00S04409.o26 +++| LDN 12 READ NEXT RECORD 05492 M00S04410.o26 +++| RJM CIO 05493 M00S04411.o26 +++| LDN 7 SEARCHING FOR RECORD 05494 M00S04412.o26 +++| RJM CIO 05495 M00S04413.o26 +++| SFR3 LJM TIOX RETURN 05496 M00S04414.o26 +++| 05497 M00S04415.o26 +++| SFR4 AOD T1 05498 M00S04416.o26 +++| LMN CM+5 05499 M00S04417.o26 +++| NJN SFR2.3 IF NOT THE LAST BYTE 05500 M00S04418.o26 +++| LDD RA CHECK RECORD LENGTH 05501 M00S04419.o26 +++| SHN 6 05502 M00S04420.o26 +++| ADN FET 05503 M00S04421.o26 +++| CRD CM 05504 M00S04422.o26 +++| LDD CM+4 05505 M00S04423.o26 +++| SHN -3 05506 M00S04424.o26 +++| LMN 1 05507 M00S04425.o26 +++| STM CRSA SET/CLEAR RECORD READ NOT TOO LONG FLAG 05508 M00S04426.o26 +++| ZJN SFR5 IF RECORD TOO LONG 05509 M00S04427.o26 +++| LJM PLB CLEAR KEYBOARD 05510 M00S04428.o26 +++| 05511 M00S04429.o26 +++| SFR5 LDC ERRE *RECORD TOO LONG* 05512 M00S04430.o26 +++| STD KM 05513 M00S04431.o26 +++| JMP RET RETURN
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04432.o26 +++| COMMAND (SEQUENTIAL RECORD SEARCH COMMANDS.) 05572 M00S04433.o26 +++| GET, SPACE 4,20 05573 M00S04434.o26 +++|*** GET,FFFFFFF.CCCCCCC. 05574 M00S04435.o26 +++|* 05575 M00S04436.o26 +++|* GET.CCCCCCC. 05576 M00S04437.o26 +++|* 05577 M00S04438.o26 +++|* SEARCH FILE *FFFFFFF* FOR RECORD *CCCCCCC*. IF 05578 M00S04439.o26 +++|* *FFFFFFF* IS MISSING, PREVIOUS FILE NAME WILL BE 05579 M00S04440.o26 +++|* USED. 05580 M00S04441.o26 +++| 05581 M00S04442.o26 +++| 05582 M00S04443.o26 +++| GET ENTRY 05583 M00S04444.o26 +++| RJM SFN SET FILE NAME 05584 M00S04445.o26 +++| AOD CA ADVANCE CHARACTER
| Line S00836 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05585 M01S00836.241l630 +++| 05586 M00S04446.o26 +++| GET1 ENTRY 05587 M00S04447.o26 +++| RJM ASN ASSEMBLE RECORD NAME 05588 M00S04448.o26 +++| LMN 1R. 05589 M00S04449.o26 +++| ZJN GET3 IF *.* 05590 M00S04450.o26 +++| GET2 JMP ERR FORMAT ERROR 05591 M00S04451.o26 +++| 05592 M00S04452.o26 +++| GET3 LDD AB 05593 M00S04453.o26 +++| ZJN GET2 IF NO RECORD NAME 05594 M00S04454.o26 +++| LDN 12 READ 05595 M00S04455.o26 +++| RJM CIO 05596 M00S04456.o26 +++| LDN 7 DUMMY 05597 M00S04457.o26 +++| RJM CIO 05598 M00S04458.o26 +++| LDC SFRA MESSAGE = *SEARCH / *CCCCCCC* * 05599 M00S04459.o26 +++| STD KM 05600 M00S04460.o26 +++| LDD MA SET RECORD NAME 05601 M00S04461.o26 +++| CWD AB 05602 M00S04462.o26 +++| CRM SFRB,ON 05603 M00S04463.o26 +++| LDD RA SET IN = OUT 05604 M00S04464.o26 +++| SHN 6 05605 M00S04465.o26 +++| ADN FET+3 05606 M00S04466.o26 +++| CRD CM 05607 M00S04467.o26 +++| SBN 1 05608 M00S04468.o26 +++| CWD CM 05609 M00S04469.o26 +++| LDN 1 SET HOLD FLAG 05610 M00S04470.o26 +++| STD HF 05611 M00S04471.o26 +++| LDN FT SET DISPLAY = LINE 0 05612 M00S04472.o26 +++| RJM SDS 05613 M00S04473.o26 +++| LDN 0 CLEAR SCAN 05614 M00S04474.o26 +++| STD SC 05615 M00S04475.o26 +++| STD SI 05616 M00S04476.o26 +++| JMP CIF CLEAR INSERT FLAG 05617 M00S04477.o26 +++| COMMAND (RANDOM RECORD SEARCH COMMANDS.) 05618 M00S04478.o26 +++| GETR, SPACE 4,20 05619 M00S04479.o26 +++|*** GETR,FFFFFFF.CCCCCCC. 05620 M00S04480.o26 +++|* 05621 M00S04481.o26 +++|* GETR.CCCCCCC. 05622 M00S04482.o26 +++|*
| Line S04483 Modification History | |
|---|---|
M01 (Removed by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05623 M01S04483.o2614 ---|* READ RANDOM FILE *FFFFFFF* FOR TEXT RECORD
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05624 M01S00073.o2614 +++|* READ RANDOM FILE *FFFFFFF* FOR TEXT OR .PROC RECORD 05625 M00S04484.o26 +++|* *CCCCCCC*. IF *FFFFFFF* IS MISSING, PREVIOUS 05626 M00S04485.o26 +++|* FILE NAME WILL BE USED. 05627 M00S04486.o26 +++| GTR, SPACE 4 05628 M00S04487.o26 +++|*** GTR,FFFFFFF.CCCCCCC. 05629 M00S04488.o26 +++|* GTR.CCCCCCC. 05630 M00S04489.o26 +++|* READ RANDOM FILE *FFFFFFF* FOR RECORD *CCCCCCC*. 05631 M00S04490.o26 +++|* IF *FFFFFFF* IS MISSING, PREVIOUS FILE NAME WILL 05632 M00S04491.o26 +++|* BE USED. 05633 M00S04492.o26 +++| 05634 M00S04493.o26 +++| 05635 M00S04494.o26 +++| GTR ENTRY 05636 M00S04495.o26 +++| RJM SFN SET FILE NAME 05637 M00S04496.o26 +++| AOD CA ADVANCE CHARACTER 05638 M00S04497.o26 +++| 05639 M00S04498.o26 +++| GTR1 ENTRY 05640 M00S04499.o26 +++| RJM ASN ASSEMBLE RECORD NAME 05641 M00S04500.o26 +++| LMN 1R. 05642 M00S04501.o26 +++| ZJN GTR3 IF *.* 05643 M00S04502.o26 +++| GTR2 JMP ERR FORMAT ERROR 05644 M00S04503.o26 +++| 05645 M00S04504.o26 +++| GTR3 LDD AB 05646 M00S04505.o26 +++| ZJN GTR2 IF NO RECORD NAME 05647 M00S04506.o26 +++| RJM RRI READ RANDOM INDEX 05648 M00S04507.o26 +++| LDN 11 READ RANDOM RECORD 05649 M00S04508.o26 +++| RJM CIO 05650 M00S04509.o26 +++| LDM KBUF+1 SET TEXT RECORD ONLY FLAG 05651 M00S04510.o26 +++| LMN 1RT 05652 M00S04511.o26 +++| STM TIOE 05653 M00S04512.o26 +++| LDC =C*SEARCH.* 05654 M00S04513.o26 +++| 05655 M00S04514.o26 +++|* ENTRY FROM *LST*. 05656 M00S04515.o26 +++| 05657 M00S04516.o26 +++| GTR4 STD KM SET KEYBOARD MESSAGE 05658 M00S04517.o26 +++| LDD MA SET RECORD NAME 05659 M00S04518.o26 +++| CWD AB 05660 M00S04519.o26 +++| CRM SFRB,ON 05661 M00S04520.o26 +++| LDD RA SET IN = OUT 05662 M00S04521.o26 +++| SHN 6 05663 M00S04522.o26 +++| ADN FET+3 05664 M00S04523.o26 +++| CRD CM 05665 M00S04524.o26 +++| SBN 1 05666 M00S04525.o26 +++| CWD CM 05667 M00S04526.o26 +++| LDN 1 SET HOLD FLAG 05668 M00S04527.o26 +++| STD HF 05669 M00S04528.o26 +++| LDN FT SET DISPLAY = LINE 0 05670 M00S04529.o26 +++| RJM SDS SET DISPLAY 05671 M00S04530.o26 +++| LDN 0 CLEAR SCAN 05672 M00S04531.o26 +++| STD SC 05673 M00S04532.o26 +++| STD SI 05674 M00S04533.o26 +++| JMP CIF CLEAR INSERT FLAG 05675 M00S04534.o26 +++| LIST. SPACE 4,20 05676 M00S04535.o26 +++|*** LIST,FFFFFFF. 05677 M00S04536.o26 +++|* 05678 M00S04537.o26 +++|* LIST. 05679 M00S04538.o26 +++|* 05680 M00S04539.o26 +++|* LIST THE DIRECTORY OF FILE NAME *FFFFFFF*. IF 05681 M00S04540.o26 +++|* *FFFFFFF* IS MISSING, PREVIOUS FILE NAME WILL 05682 M00S04541.o26 +++|* BE USED. 05683 M00S04542.o26 +++| 05684 M00S04543.o26 +++| 05685 M00S04544.o26 +++| LST ENTRY 05686 M00S04545.o26 +++| RJM SFN SET FILE NAME 05687 M00S04546.o26 +++| AOD CA ADVANCE CHARACTER
| Line S00837 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05688 M01S00837.241l630 +++| 05689 M00S04547.o26 +++| LST1 ENTRY 05690 M00S04548.o26 +++| RJM RRI READ RANDOM INDEX 05691 M00S04549.o26 +++| LDN 15 READ RANDOM RECORD 05692 M00S04550.o26 +++| RJM CIO 05693 M00S04551.o26 +++| LDC =C*LIST.* 05694 M00S04552.o26 +++| JMP GTR4 RETURN 05695 M00S04553.o26 +++| 05696 M00S04554.o26 +++|* LIST FILE INDEX. 05697 M00S04555.o26 +++| 05698 M00S04556.o26 +++| LST2 ENTRY 05699 M00S04557.o26 +++| RJM CIR CHECK INDEX RECORD 05700 M00S04558.o26 +++| LDC 2R 05701 M00S04559.o26 +++| STD AB 05702 M00S04560.o26 +++| STD AB+3 05703 M00S04561.o26 +++| STD AB+4 05704 M00S04562.o26 +++| LST3 LDD RA READ ENTRY 05705 M00S04563.o26 +++| SHN 6 05706 M00S04564.o26 +++| ADD T5 05707 M00S04565.o26 +++| ADD T7 05708 M00S04566.o26 +++| SBN 1 05709 M00S04567.o26 +++| CRD CM READ ENTRY 05710 M00S04568.o26 +++| LDD CM+4 05711 M00S04569.o26 +++| RAD CM+4 05712 M00S04570.o26 +++| LDM LSTA,CM+4 SET RECORD TYPE 05713 M00S04571.o26 +++| STD AB+1 05714 M00S04572.o26 +++| LDM LSTA+1,CM+4 05715 M00S04573.o26 +++| STD AB+2 05716 M00S04574.o26 +++| LDN 0 05717 M00S04575.o26 +++| STD CM+4
| Line S04576 Modification History | |
|---|---|
M01 (Removed by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05718 M01S04576.ns2037 ---| LDD RA STORE NAME
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04577.o26 +++| SHN 6 05728 M00S04578.o26 +++| ADD T5 05729 M00S04579.o26 +++| ADD T7 05730 M00S04580.o26 +++| CWD CM 05731 M00S04581.o26 +++| SBN 1 STORE RECORD TYPE 05732 M00S04582.o26 +++| CWD AB 05733 M00S04583.o26 +++| LCN 2 DECREMENT INDEX 05734 M00S04584.o26 +++| RAD T7
| Line S04585 Modification History | |
|---|---|
M01 (Removed by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05735 M01S04585.ns2037 ---| PJN LST3 LOOP
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05736 M01S00009.ns2037 +++| MJN LST5 IF END OF OPLD 05737 M01S00010.ns2037 +++| LJM LST3 CONTINUE PROCESSING ENTRIES 05738 M00S04586.o26 +++| 05739 M00S04587.o26 +++|* END OF LIST. 05740 M00S04588.o26 +++|
| Line S04589 Modification History | |
|---|---|
M01 (Removed by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05741 M01S04589.ns2037 ---| LDC CBUF SET MOVE ADDRESS
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 05742 M01S00011.ns2037 +++| LST5 LDC CBUF SET MOVE ADDRESS 05743 M00S04590.o26 +++| STD T3 05744 M00S04591.o26 +++| SHN -14 05745 M00S04592.o26 +++| STD T2 05746 M00S04593.o26 +++| RJM MBD MOVE BUFFER DOWN 05747 M00S04594.o26 +++| LJM PLB RETURN
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2037 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04595.o26 +++| 05755 M00S04596.o26 +++| LSTA BSS 0 05756 M00S04597.o26 +++| DATA 4HTEXT 0 05757 M00S04598.o26 +++| DATA 4HPP 1 05758 M00S04599.o26 +++| DATA 4HCOS 2 05759 M00S04600.o26 +++| DATA 4HREL 3 05760 M00S04601.o26 +++| DATA 4HOVL 4 05761 M00S04602.o26 +++| DATA 4HULIB 5 05762 M00S04603.o26 +++| DATA 4HOPL 6 05763 M00S04604.o26 +++| DATA 4HOPLC 7 05764 M00S04605.o26 +++| DATA 4HOPLD 8 05765 M00S04606.o26 +++| DATA 4HABS 9 05766 M00S04607.o26 +++| DATA 4HPPU 10 05767 M00S04608.o26 +++| DATA 4H 11 (UNDEFINED RECORD TYPE) 05768 M00S04609.o26 +++| DATA 4H 12 (UNDEFINED RECORD TYPE) 05769 M00S04610.o26 +++| DATA 4H 13 (UNDEFINED RECORD TYPE) 05770 M00S04611.o26 +++| DATA 4HCAP 14 CAPSULE 05771 M00S04612.o26 +++| DATA 4H 15 (UNDEFINED RECORD TYPE) 05772 M00S04613.o26 +++| DATA 4HPROC 16 PROCEDURE 05773 M00S04614.o26 +++| CIR SPACE 4,20 05774 M00S04615.o26 +++|** CIR - CHECK INDEX RECORD. 05775 M00S04616.o26 +++|* 05776 M00S04617.o26 +++|* EXIT (CM - CM+4) = 7700 TABLE WORD. 05777 M00S04618.o26 +++|* (AB - AB+4) = 7000 TABLE WORD. 05778 M00S04619.o26 +++|* (T4 - T5) = ADDRESS OF FIRST ENTRY. 05779 M00S04620.o26 +++|* (T7) = INDEX OF LAST ENTRY (2ND WORD). 05780 M00S04621.o26 +++|* EXIT TO TIOX IF RECORD NOT FOUND. 05781 M00S04622.o26 +++| 05782 M00S04623.o26 +++| 05783 M00S04624.o26 +++| CIR SUBR ENTRY/EXIT 05784 M00S04625.o26 +++| RJM PDS PUSH DOWN STACK 05785 M00S04626.o26 +++| LDD RA READ 7700 TABLE 05786 M00S04627.o26 +++| SHN 6 05787 M00S04628.o26 +++| ADC CBUF 05788 M00S04629.o26 +++| CRD CM 05789 M00S04630.o26 +++| ADD CM+1 READ 7000 TABLE 05790 M00S04631.o26 +++| ADN 1 05791 M00S04632.o26 +++| CRD AB 05792 M00S04633.o26 +++| LDD CM 05793 M00S04634.o26 +++| LMC 7700 05794 M00S04635.o26 +++| ZJN CIR2 IF 7700 TABLE 05795 M00S04636.o26 +++| CIR1 LDC =C*INDEX NOT FOUND.* 05796 M00S04637.o26 +++| STD KM 05797 M00S04638.o26 +++| LJM TIOX RETURN 05798 M00S04639.o26 +++| 05799 M00S04640.o26 +++| CIR2 LDD AB 05800 M00S04641.o26 +++| LMC 7000 05801 M00S04642.o26 +++| NJN CIR1 IF NOT 7000 TABLE 05802 M00S04643.o26 +++| LDD AB+3 CHECK LENGTH 05803 M00S04644.o26 +++| NJN CIR1 IF INDEX TOO LONG 05804 M00S04645.o26 +++| STD T4 SET START OF DISPLAY 05805 M00S04646.o26 +++| LDC CBUF+2 05806 M00S04647.o26 +++| ADD CM+1 05807 M00S04648.o26 +++| STD T5 05808 M00S04649.o26 +++| LDD IN CHECK LENGTH 05809 M00S04650.o26 +++| SHN 14 05810 M00S04651.o26 +++| LMD IN+1 05811 M00S04652.o26 +++| SBD T5 05812 M00S04653.o26 +++| SBD AB+4 05813 M00S04654.o26 +++| MJN CIR1 IF INDEX TOO LONG 05814 M00S04655.o26 +++| LDD AB+4 SET INDEX OF LAST ENTRY 05815 M00S04656.o26 +++| SBN 1 05816 M00S04657.o26 +++| STD T7 05817 M00S04658.o26 +++| SBN 1 05818 M00S04659.o26 +++| MJN CIR1 IF INDEX TOO SHORT 05819 M00S04660.o26 +++| LJM CIRX RETURN 05820 M00S04661.o26 +++| RRI SPACE 4,15 05821 M00S04662.o26 +++|** RRI - READ RANDOM INDEX. 05822 M00S04663.o26 +++|* 05823 M00S04664.o26 +++|* ENTRY (A) = CHACRACTER ADDRESS. 05824 M00S04665.o26 +++|* 05825 M00S04666.o26 +++|* EXIT TO *ERR* ON FILE NAME ERROR. 05826 M00S04667.o26 +++|* 05827 M00S04668.o26 +++|* CALLS CIO. 05828 M00S04669.o26 +++| 05829 M00S04670.o26 +++| 05830 M00S04671.o26 +++| RRI SUBR ENTRY/EXIT 05831 M00S04672.o26 +++| LDD FT SET IN = OUT = FIRST 05832 M00S04673.o26 +++| STD IN 05833 M00S04674.o26 +++| STD OT 05834 M00S04675.o26 +++| LDD FT+1 05835 M00S04676.o26 +++| STD IN+1 05836 M00S04677.o26 +++| STD OT+1 05837 M00S04678.o26 +++| LDN 3 SKIP TO END OF INFORMATION 05838 M00S04679.o26 +++| RJM CIO 05839 M00S04680.o26 +++| LDC 20640 SKIP BACKWARDS 2 RECORDS 05840 M00S04681.o26 +++| STM TIOD+1 05841 M00S04682.o26 +++| SHN -14 05842 M00S04683.o26 +++| STM TIOD 05843 M00S04684.o26 +++| LDN 5 SKIP BACKWARDS 05844 M00S04685.o26 +++| RJM CIO 05845 M00S04686.o26 +++| LDN 12 READ 05846 M00S04687.o26 +++| RJM CIO 05847 M00S04688.o26 +++| UJN RRIX RETURN 05848 M00S04689.o26 +++| RRR SPACE 4,20 05849 M00S04690.o26 +++|** RRR - READ RANDOM RECORD. 05850 M00S04691.o26 +++|* 05851 M00S04692.o26 +++|* ENTRY (CM BUFFER) = RANDOM INDEX. 05852 M00S04693.o26 +++|* (SFRB - SFRB+4) = NAME OF RECORD. 05853 M00S04694.o26 +++|* 05854 M00S04695.o26 +++|* USES T1 - T4, CM - CM+4, AB - AB+4. 05855 M00S04696.o26 +++|* 05856 M00S04697.o26 +++|* CALLS CIO, CIR, PDS. 05857 M00S04698.o26 +++| 05858 M00S04699.o26 +++| 05859 M00S04700.o26 +++| RRR ENTRY 05860 M00S04701.o26 +++| RJM CIR CHECK INDEX RECORD 05861 M00S04702.o26 +++| 05862 M00S04703.o26 +++|* SEARCH BUFFER FOR RECORD. 05863 M00S04704.o26 +++| 05864 M00S04705.o26 +++| RRR1 LDD RA READ ENTRY 05865 M00S04706.o26 +++| SHN 6 05866 M00S04707.o26 +++| ADD T5 05867 M00S04708.o26 +++| ADD T7 05868 M00S04709.o26 +++| SBN 1 05869 M00S04710.o26 +++| CRD CM READ ENTRY 05870 M00S04711.o26 +++| LDN CM COMPARE ENTRY 05871 M00S04712.o26 +++| STD T1 05872 M00S04713.o26 +++| RRR2 LDI T1 05873 M00S04714.o26 +++| LMM SFRB-CM,T1 05874 M00S04715.o26 +++| NJN RRR3 IF NO MATCH 05875 M00S04716.o26 +++| AOD T1 05876 M00S04717.o26 +++| LMN CM+4 05877 M00S04718.o26 +++| NJN RRR2 IF NO MATCH LOOP 05878 M00S04719.o26 +++| LDD T7 SET RECORD FOUND FLAG 05879 M00S04720.o26 +++| STD T4 05880 M00S04721.o26 +++| LDD CM+4
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05881 M01S00074.o2614 +++| LMK TXRT 05882 M00S04722.o26 +++| ZJN RRR5 IF TEXT RECORD
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | o2614 |
Seq # *Modification Id* Act ----------------------------+ 05883 M01S00075.o2614 +++| LMK PRRT&TXRT 05884 M01S00076.o2614 +++| ZJN RRR5 IF .PROC RECORD 05885 M00S04723.o26 +++| RRR3 LCN 2 05886 M00S04724.o26 +++| RAD T7 05887 M00S04725.o26 +++| PJN RRR1 IF COMPARE NOT COMPLETE 05888 M00S04726.o26 +++| 05889 M00S04727.o26 +++|* END OF SEARCH. 05890 M00S04728.o26 +++| 05891 M00S04729.o26 +++| LDM TIOE CHECK IF NON-TEXT RECORD ALLOWED 05892 M00S04730.o26 +++| NJN RRR4 IF ONLY TEXT ALLOWED 05893 M00S04731.o26 +++| LDD T4 05894 M00S04732.o26 +++| NJN RRR5 IF RECORD FOUND 05895 M00S04733.o26 +++| RRR4 LDC =C*RECORD NOT FOUND.* 05896 M00S04734.o26 +++| STD KM 05897 M00S04735.o26 +++| LJM TIOX RETURN 05898 M00S04736.o26 +++| 05899 M00S04737.o26 +++|* RECORD FOUND. 05900 M00S04738.o26 +++| 05901 M00S04739.o26 +++| RRR5 LDD RA READ RANDOM ADDRESS 05902 M00S04740.o26 +++| SHN 6 05903 M00S04741.o26 +++| ADD T5 05904 M00S04742.o26 +++| ADD T4 05905 M00S04743.o26 +++| CRD CM 05906 M00S04744.o26 +++| LDD RA SET RANDOM ADDRESS 05907 M00S04745.o26 +++| SHN 6 05908 M00S04746.o26 +++| ADN FET+6 05909 M00S04747.o26 +++| CWD CM 05910 M00S04748.o26 +++| SBN 3 SET IN = OUT 05911 M00S04749.o26 +++| CRD CM 05912 M00S04750.o26 +++| SBN 1 05913 M00S04751.o26 +++| CWD CM 05914 M00S04752.o26 +++| LDD FT SET IN = FIRST 05915 M00S04753.o26 +++| STD IN 05916 M00S04754.o26 +++| LDD FT+1 05917 M00S04755.o26 +++| STD IN+1 05918 M00S04756.o26 +++| LDN 12 READ RECORD 05919 M00S04757.o26 +++| RJM CIO 05920 M00S04758.o26 +++| LDN 1 DUMMY 05921 M00S04759.o26 +++| RJM CIO 05922 M00S04760.o26 +++| LJM PLB RETURN 05923 M00S04761.o26 +++| COMMAND (REPLACE COMMANDS.) 05924 M00S04762.o26 +++| RC, SPACE 4,20 05925 M00S04763.o26 +++|*** RC,X,C. 05926 M00S04764.o26 +++|* 05927 M00S04765.o26 +++|* REPLACE CHARACTER *X* OF FOLLOWING LINE 05928 M00S04766.o26 +++|* WITH CHARACTER *C*. 05929 M00S04767.o26 +++| 05930 M00S04768.o26 +++| 05931 M00S04769.o26 +++| RPC ENTRY 05932 M00S04770.o26 +++| RJM ADD ASSEMBLE CHARACTER NUMBER 05933 M00S04771.o26 +++| LMN 1R, 05934 M00S04772.o26 +++| ZJN RPC2 IF *,* 05935 M00S04773.o26 +++| RPC1 JMP ERR FORMAT ERROR 05936 M00S04774.o26 +++| 05937 M00S04775.o26 +++| RPC2 SOD AB+4 SAVE CHARACTER NUMBER 05938 M00S04776.o26 +++| MJN RPC1 IF CHARACTER NUMBER ZERO 05939 M00S04777.o26 +++| STD T7 05940 M00S04778.o26 +++| ADC -KBUFL+2 05941 M00S04779.o26 +++| PJN RPC1 IF OUT OF RANGE 05942 M00S04780.o26 +++| AOD T1 SAVE CHARACTER ADDRESS 05943 M00S04781.o26 +++| STD T6 05944 M00S04782.o26 +++| LDD IF 05945 M00S04783.o26 +++| ZJN RPC1 IF NO INSERT 05946 M00S04784.o26 +++| LDC BUFM SET CHARACTER ADDRESS 05947 M00S04785.o26 +++| STD CA 05948 M00S04786.o26 +++| RJM RDL READ NEXT LINE 05949 M00S04787.o26 +++| LDI T6 REPLACE CHARACTER 05950 M00S04788.o26 +++| STM BUFM,T7 05951 M00S04789.o26 +++| RJM RLB REPLACE LINE IN BUFFER 05952 M00S04790.o26 +++| LDN 1 ADVANCE INSERT 05953 M00S04791.o26 +++| RJM SIL 05954 M00S04792.o26 +++| JMP KBIX RETURN 05955 M00S04793.o26 +++| RM SPACE 4,25 05956 M00S04794.o26 +++|*** RM/AAA-AAA/BBB-BBB/ 05957 M00S04795.o26 +++|* 05958 M00S04796.o26 +++|* REPLACE CHARACTER STRING *AAA-AAA* FROM THE 05959 M00S04797.o26 +++|* FOLLOWING LINE WITH CHARACTER STRING *BBB-BBB*. 05960 M00S04798.o26 +++|* */* MAY BE ANY CHARACTER. DO NOT ADVANCE INSERT 05961 M00S04799.o26 +++|* MARK. 05962 M00S04800.o26 +++| RS SPACE 4,20 05963 M00S04801.o26 +++|*** RS/AAA-AAA/BBB-BBB/ 05964 M00S04802.o26 +++|* 05965 M00S04803.o26 +++|* REPLACE CHARACTER STRING *AAA-AAA* FROM THE 05966 M00S04804.o26 +++|* FOLLOWING LINE WITH CHARACTER STRING *BBB-BBB*. 05967 M00S04805.o26 +++|* */* MAY BE ANY CHARACTER. 05968 M00S04806.o26 +++| 05969 M00S04807.o26 +++| 05970 M00S04808.o26 +++| RPS ENTRY
| Line S04809 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05971 M01S04809.241l630 ---| LDD IF 05972 M01S04810.241l630 ---| NJN RPS1 IF INSERT FLAG SET 05973 M01S04811.241l630 ---| JMP ERR FORMAT ERROR 05974 M01S04812.241l630 ---| 05975 M01S04813.241l630 ---| RPS1 LDC BUF+2 SET CHARACTER ADDRESS 05976 M01S04814.241l630 ---| STD CA 05977 M01S04815.241l630 ---| RJM RDL READ NEXT LINE
| Line S00838 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05978 M01S00838.241l630 +++| RJM CIL CHECK INSERT LINE 05979 M00S04816.o26 +++| LDM KBUF+2 SET DELIMITER 05980 M00S04817.o26 +++| STD T7 05981 M00S04818.o26 +++| LDN 3 SET STARTING COLUMN 05982 M00S04819.o26 +++| STD T2
| Line S04820 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 05983 M01S04820.241l630 ---| LDN 2 05984 M01S04821.241l630 ---| STD T3 05985 M01S04822.241l630 ---| STD T5 05986 M01S04823.241l630 ---| STD T6 05987 M01S04824.241l630 ---| 05988 M01S04825.241l630 ---|* ENTRY FROM *RPN*.
| Line S00839 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04826.o26 +++| 05996 M00S04827.o26 +++|* SEARCH FOR MATCHING STRING. 05997 M00S04828.o26 +++| 05998 M00S04829.o26 +++| RPS2 LDD T2 RESET INDEX 05999 M00S04830.o26 +++| STD T1
| Line S04831 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06000 M01S04831.241l630 ---| RJM CCS COMPARE CHARACTER STRINGS 06001 M01S04832.241l630 ---| ZJN RPS3 IF STRINGS COMPARE
| Line S00845 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04833.o26 +++| 06017 M00S04834.o26 +++|* COPY ONE CHARACTER ON NO HIT. 06018 M00S04835.o26 +++|
| Line S04836 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06019 M01S04836.241l630 ---| LDD T5 CHECK FOR END OF LINE 06020 M01S04837.241l630 ---| SBN 2 06021 M01S04838.241l630 ---| LMD LC 06022 M01S04839.241l630 ---| ZJN RPS4 IF END OF LINE 06023 M01S04840.241l630 ---| LDM BUF,T5 06024 M01S04841.241l630 ---| STM BUFM,T6 06025 M01S04842.241l630 ---| AOD T6 06026 M01S04843.241l630 ---| AOD T5 06027 M01S04844.241l630 ---| STD T3 06028 M01S04845.241l630 ---| UJN RPS2 LOOP
| Line S00859 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04846.o26 +++| 06038 M00S04847.o26 +++|* REPLACE CHARACTER STRING. 06039 M00S04848.o26 +++|
| Line S04849 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06040 M01S04849.241l630 ---| RPS3 LDD T1 CHECK FOR END OF KEYBOARD STRING 06041 M01S04850.241l630 ---| LMD KI 06042 M01S04851.241l630 ---| ZJN RPS4 IF END OF KEYBOARD STRING 06043 M01S04852.241l630 ---| AOD T1
| Line S00867 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04853.o26 +++| LDM KBUF,T1 06048 M00S04854.o26 +++| LMD T7
| Line S04855 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06049 M01S04855.241l630 ---| ZJN RPS6 IF DELIMITER FOUND 06050 M01S04856.241l630 ---| LMD T7 SET CHARACTER 06051 M01S04857.241l630 ---| STM BUFM,T6 06052 M01S04858.241l630 ---| AOD T6 06053 M01S04859.241l630 ---| ADC -KBUFL CHECK FOR END OF BUFFER 06054 M01S04860.241l630 ---| MJN RPS3 IF NOT AT END OF BUFFER - LOOP
| Line S00870 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04861.o26 +++| LDM KBUF+1,T1 06062 M00S04862.o26 +++| LMD T7
| Line S04863 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06063 M01S04863.241l630 ---| ZJN RPS6.2 IF AT END OF STRING 06064 M01S04864.241l630 ---| RPS3.1 LDC =C*LINE OVERFLOW.* 06065 M01S04865.241l630 ---| UJN RPS5.1 PROCESS ERROR
| Line S00876 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04866.o26 +++| 06070 M00S04867.o26 +++|* PROCESS STRING NOT IN LINE. 06071 M00S04868.o26 +++|
| Line S04869 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06072 M01S04869.241l630 ---| RPS4 LDD KM 06073 M01S04870.241l630 ---| LMC ERRD 06074 M01S04871.241l630 ---| NJN RPS5 IF NOT *REPEAT ENTRY.* 06075 M01S04872.241l630 ---| LDN 1 ADVANCE INSERT 06076 M01S04873.241l630 ---| RJM SIL 06077 M01S04874.241l630 ---| JMP RET 06078 M01S04875.241l630 ---| 06079 M01S04876.241l630 ---| RPS5 LDC =C*NOT IN LINE.* 06080 M01S04877.241l630 ---| RPS5.1 LJM ERR1 PROCESS ERROR
| Line S00879 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04878.o26 +++| 06089 M00S04879.o26 +++|* COPY REMAINDER OF FOLLOWING LINE. 06090 M00S04880.o26 +++|
| Line S04881 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06091 M01S04881.241l630 ---| RPS6 LDD T3 CHECK FOR END OF LINE 06092 M01S04882.241l630 ---| RPS6.1 SBN 2 06093 M01S04883.241l630 ---| LMD LC 06094 M01S04884.241l630 ---| RPS6.2 ZJN RPS7 IF END OF LINE 06095 M01S04885.241l630 ---| LDD T6 CHECK FOR END OF BUFFER 06096 M01S04886.241l630 ---| ADC -KBUFL 06097 M01S04887.241l630 ---| ZJN RPS3.1 IF PAST END OF BUFFER 06098 M01S04888.241l630 ---| LDM BUF,T3 06099 M01S04889.241l630 ---| STM BUFM,T6
| Line S00886 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04890.o26 +++| AOD T6 06109 M00S04891.o26 +++| AOD T3
| Line S04892 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06110 M01S04892.241l630 ---| UJN RPS6.1 CONTINUE COPY
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06111 M01S00894.241l630 +++| UJN RPS11 CONTINUE COPY 06112 M00S04893.o26 +++| 06113 M00S04894.o26 +++|* BLANK FILL BUFFER. 06114 M00S04895.o26 +++|
| Line S04896 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06115 M01S04896.241l630 ---| RPS7 LDD T6 CLEAR *BUFM* 06116 M01S04897.241l630 ---| RPS8 LMC KBUFL 06117 M01S04898.241l630 ---| ZJN RPS9 IF AT END OF BUFFER 06118 M01S04899.241l630 ---| LDN 1R 06119 M01S04900.241l630 ---| STM BUFM,T6 06120 M01S04901.241l630 ---| AOD T6 06121 M01S04902.241l630 ---| UJN RPS8 LOPP FOR REMAINDER OF BUFFER
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04903.o26 +++| 06128 M00S04904.o26 +++|* ENTER LINE IN BUFFER. 06129 M00S04905.o26 +++|
| Line S04906 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06130 M01S04906.241l630 ---| RPS9 LDC BUFM+2 SET CHARACTER ADDRESS
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06131 M01S00900.241l630 +++| LDC BUFM+2 SET CHARACTER ADDRESS 06132 M00S04907.o26 +++| STD CA 06133 M00S04908.o26 +++| RJM RLB REPLACE LINE IN BUFFER 06134 M00S04909.o26 +++| LDM KBUF+1 CHECK FOR RM COMMAND 06135 M00S04910.o26 +++| LMN 1RM
| Line S04911 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06136 M01S04911.241l630 ---| ZJN RPS10 IF RM 06137 M01S04912.241l630 ---| LDN 1 ADVANCE INSERT 06138 M01S04913.241l630 ---| RJM SIL 06139 M01S04914.241l630 ---| RPS10 JMP RET RETURN
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04915.o26 +++| R, SPACE 4,20 06145 M00S04916.o26 +++|*** R,X./AAA-AAA/BBB-BBB/ 06146 M00S04917.o26 +++|* 06147 M00S04918.o26 +++|* REPLACE CHARACTER STRING AAA-AAA FROM THE 06148 M00S04919.o26 +++|* FOLLOWING LINE STARTING WITH CHARACTER POSITION 06149 M00S04920.o26 +++|* *X* WITH CHARACTER STRING BBB-BBB. */* MAY BE 06150 M00S04921.o26 +++|* ANY CHARACTER. 06151 M00S04922.o26 +++| 06152 M00S04923.o26 +++| 06153 M00S04924.o26 +++| RPN ENTRY
| Line S04925 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06154 M01S04925.241l630 ---| RJM ASD ASSEMBLE DIGITS 06155 M01S04926.241l630 ---| LDD IF 06156 M01S04927.241l630 ---| NJN RPN2 IF INSERT FLAG SET 06157 M01S04928.241l630 ---| RPN1 JMP ERR FORMAT ERROR 06158 M01S04929.241l630 ---| 06159 M01S04930.241l630 ---| RPN2 LDC BUF+2 SET CHARACTER ADDRESS 06160 M01S04931.241l630 ---| STD CA 06161 M01S04932.241l630 ---| RJM RDL READ NEXT LINE
| Line S00905 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06162 M01S00905.241l630 +++| RJM CIL CHECK INSERT LINE 06163 M00S04933.o26 +++| LDC KBUF+2 ASSEMBLE DIGITS 06164 M00S04934.o26 +++| RJM ASD
| Line S00906 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06165 M01S00906.241l630 +++| STD T5 06166 M00S04935.o26 +++| LDM 1,T1 SET DELIMITER 06167 M00S04936.o26 +++| STD T7 06168 M00S04937.o26 +++| LDD T1 SET STRING ADDRESS 06169 M00S04938.o26 +++| ADC -KBUF+2 06170 M00S04939.o26 +++| STD T2
| Line S04940 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06171 M01S04940.241l630 ---| LDD AB+4 SET START OF SCAN 06172 M01S04941.241l630 ---| ZJN RPN1 IF NO COUNT 06173 M01S04942.241l630 ---| ADN 1 06174 M01S04943.241l630 ---| STD T3 06175 M01S04944.241l630 ---| STD T6 06176 M01S04945.241l630 ---| ADC -KBUFL 06177 M01S04946.241l630 ---| PJN RPN1 IF BEYOND END OF BUFFER 06178 M01S04947.241l630 ---| LDN 1 06179 M01S04948.241l630 ---| STD T5
| Line S04949 Modification History | |
|---|---|
M01 (Removed by) | o262 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06180 M02S04949.241l630 ---| UJN RPN4
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o262 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06181 M02S00001.241l630 ---| LDD T3 06182 M02S00002.241l630 ---| SBD LC 06183 M02S00003.241l630 ---| MJN RPN4 IF NOT STARTING BEYOND END OF LINE 06184 M02S00004.241l630 ---| LJM RPS4 PROCESS AS *NOT IN LINE.*
| Line S04950 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06185 M01S04950.241l630 ---| 06186 M01S04951.241l630 ---| RPN3 LDM BUF,T5 COPY LINE UP TO START OF SCAN 06187 M01S04952.241l630 ---| STM BUFM,T5 06188 M01S04953.241l630 ---| RPN4 AOD T5 06189 M01S04954.241l630 ---| LMD T3 06190 M01S04955.241l630 ---| NJN RPN3 IF NOT AT END OF LINE LOOP 06191 M01S04956.241l630 ---| LJM RPS2
| Line S00907 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04957.o26 +++| ASD SPACE 4,10 06212 M00S04958.o26 +++|** ASD - ASSEMBLE DIGITS. 06213 M00S04959.o26 +++|* 06214 M00S04960.o26 +++|* ENTRY (A) = CHARACTER ADDRESS. 06215 M00S04961.o26 +++|*
| Line S04962 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06216 M01S04962.241l630 ---|* EXIT (AB - AB+4) = ASSEMBLED DIGITS RIGHT-JUSTIFIED.
| Line S00926 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06217 M01S00926.241l630 +++|* EXIT (A) = 0. 06218 M01S00927.241l630 +++|* (AB - AB+4) = RIGHT JUSTIFIED ASSEMBLY. 06219 M00S04963.o26 +++|* 06220 M00S04964.o26 +++|* CALLS ADD. 06221 M00S04965.o26 +++| 06222 M00S04966.o26 +++| 06223 M00S04967.o26 +++| ASD SUBR ENTRY/EXIT 06224 M00S04968.o26 +++| RJM ADD ASSEMBLE DECIMAL DIGITS 06225 M00S04969.o26 +++| LMN 1R. 06226 M00S04970.o26 +++| ZJN ASDX IF *.* RETURN
| Line S04971 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06227 M01S04971.241l630 ---| LJM ERR FORMAT ERROR 06228 M01S04972.241l630 ---| CCS SPACE 4,20 06229 M01S04973.241l630 ---|** CCS - COMPARE CHARACTER STRINGS. 06230 M01S04974.241l630 ---|* 06231 M01S04975.241l630 ---|* COMPARE STRINGS OF CHARACTERS IN KBUF WITH BUF. 06232 M01S04976.241l630 ---|* 06233 M01S04977.241l630 ---|* ENTRY (T1) = KBUF INDEX. 06234 M01S04978.241l630 ---|* (T3) = BUF INDEX. 06235 M01S04979.241l630 ---|* (T7) = DELIMITER CHARACTER. 06236 M01S04980.241l630 ---|* 06237 M01S04981.241l630 ---|* EXIT (A) = 0 IF STRINGS COMPARE. 06238 M01S04982.241l630 ---|* (T1) = UPDATED. 06239 M01S04983.241l630 ---|* (T3) = UPDATED. 06240 M01S04984.241l630 ---| 06241 M01S04985.241l630 ---| 06242 M01S04986.241l630 ---| CCS2 LDN 1 06243 M01S04987.241l630 ---| 06244 M01S04988.241l630 ---| CCS SUBR ENTRY/EXIT 06245 M01S04989.241l630 ---| CCS1 LDD T1 06246 M01S04990.241l630 ---| LMD KI 06247 M01S04991.241l630 ---| ZJN CCS2 IF END OF KEYBOARD STRING 06248 M01S04992.241l630 ---| LDM KBUF,T1 06249 M01S04993.241l630 ---| LMD T7 06250 M01S04994.241l630 ---| ZJN CCSX IF DELIMITER FOUND 06251 M01S04995.241l630 ---| LDD T3 06252 M01S04996.241l630 ---| SBN 2 06253 M01S04997.241l630 ---| LMD LC 06254 M01S04998.241l630 ---| ZJN CCS2 IF END OF ORIGINAL LINE REACHED 06255 M01S04999.241l630 ---| LDM BUF,T3 06256 M01S05000.241l630 ---| LMM KBUF,T1 06257 M01S05001.241l630 ---| NJN CCSX IF NO HIT FOUND 06258 M01S05002.241l630 ---| AOD T1 ADVANCE POINTERS 06259 M01S05003.241l630 ---| AOD T3 06260 M01S05004.241l630 ---| UJN CCS1 LOOP FOR NEXT CHARACTER
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S05005.o26 +++| MBU SPACE 4,10 06283 M00S05006.o26 +++|** MBU - MOVE BUFFER UP. 06284 M00S05007.o26 +++|* 06285 M00S05008.o26 +++|* ENTRY (T2 - T3) = FWA TO MOVE. 06286 M00S05009.o26 +++|* (IN - IN+1) = LWA+1 TO MOVE. 06287 M00S05010.o26 +++|* (T7) = DISTANCE TO MOVE. 06288 M00S05011.o26 +++|* 06289 M00S05012.o26 +++|* USES T1, T4, BUFM - BUFM+240. 06290 M00S05013.o26 +++| 06291 M00S05014.o26 +++| 06292 M00S05015.o26 +++| MBU SUBR ENTRY/EXIT 06293 M00S05016.o26 +++| LDD IN COMPUTE MOVE WORD COUNT 06294 M00S05017.o26 +++| SBD T2 06295 M00S05018.o26 +++| SHN 14 06296 M00S05019.o26 +++| ADD IN+1 06297 M00S05020.o26 +++| SBD T3 06298 M00S05021.o26 +++| SHN 13D SET BLOCK COUNT 06299 M00S05022.o26 +++| STD T1 06300 M00S05023.o26 +++| SHN -13D SET ODD SIZE 06301 M00S05024.o26 +++| STD T4
| Line S05025 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06302 M01S05025.241l630 ---| ZJN MBU1 IF NO ODD BLOCK
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06303 M01S00949.241l630 +++| ZJN MBU2 IF NO ODD BLOCK 06304 M00S05026.o26 +++| 06305 M00S05027.o26 +++|* MOVE SHORT BLOCK. 06306 M00S05028.o26 +++| 06307 M00S05029.o26 +++| LDD IN READ SHORT BLOCK 06308 M00S05030.o26 +++| SHN 6 06309 M00S05031.o26 +++| ADD RA 06310 M00S05032.o26 +++| SHN 6 06311 M00S05033.o26 +++| ADD IN+1 06312 M00S05034.o26 +++| SBD T4
| Line S05035 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06313 M01S05035.241l630 ---| CRM BUFM,T4
| Line S00950 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06314 M01S00950.241l630 +++| MBU1 CRM BUFM,T4 06315 M00S05036.o26 +++| SBD T4 STORE ODD BLOCK 06316 M00S05037.o26 +++| ADD T7 06317 M00S05038.o26 +++| CWM BUFM,T4
| Line S05039 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06318 M01S05039.241l630 ---| MBU1 LDD T1 06319 M01S05040.241l630 ---| ZJN MBUX IF NO FULL BLOCKS
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S05041.o26 +++| 06325 M00S05042.o26 +++|* MOVE FULL BLOCKS. 06326 M00S05043.o26 +++| 06327 M00S05044.o26 +++| LDD T2 READ BLOCK 06328 M00S05045.o26 +++| SHN 6 06329 M00S05046.o26 +++| ADD RA 06330 M00S05047.o26 +++| SHN 1 06331 M00S05048.o26 +++| ADD T1
| Line S05049 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06332 M01S05049.241l630 ---| SBN 1 06333 M00S05050.o26 +++| SHN 5 06334 M00S05051.o26 +++| ADD T3
| Line S05052 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06335 M01S05052.241l630 ---| CRM BUFM,FR 06336 M01S05053.241l630 ---| SBD FR STORE BLOCK 06337 M01S05054.241l630 ---| ADD T7 06338 M01S05055.241l630 ---| CWM BUFM,FR 06339 M01S05056.241l630 ---| SOD T1 DECREMENT BLOCK COUNT 06340 M01S05057.241l630 ---| UJN MBU1 LOOP
| Line S00955 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06341 M01S00955.241l630 +++| UJN MBU1 MOVE BLOCK 06342 M00S05058.o26 +++| RLB SPACE 4,20 06343 M00S05059.o26 +++|** RLB - REPLACE LINE IN CM BUFFER. 06344 M00S05060.o26 +++|* 06345 M00S05061.o26 +++|* ENTRY (CA) = CHARACTER ADDRESS. 06346 M00S05062.o26 +++|* (IF) = INSERT FLAG. 06347 M00S05063.o26 +++|* (IP - IP+1) = INSERT ADDRESS. 06348 M00S05064.o26 +++|* 06349 M00S05065.o26 +++|* USES T2 - T7, CM - CM+4, BUF - BUF+50. 06350 M00S05066.o26 +++|* 06351 M00S05067.o26 +++|* CALLS MBD, MBU, PKL, SFL, SIP.
| Line S05068 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06352 M01S05068.241l630 ---|* 06353 M01S05069.241l630 ---|* CALLS MBD, MBU, PKL. 06354 M00S05070.o26 +++| 06355 M00S05071.o26 +++| 06356 M00S05072.o26 +++| RLB SUBR ENTRY/EXIT 06357 M00S05073.o26 +++| RJM PKL PACK LINE INTO BUF 06358 M00S05074.o26 +++| LDD T7 SET BUFFER LENGTH 06359 M00S05075.o26 +++| STD T6 06360 M00S05076.o26 +++| LDD IP SEARCH FOR END OF LINE 06361 M00S05077.o26 +++| STD T2 06362 M00S05078.o26 +++| LDD IP+1 06363 M00S05079.o26 +++| STD T3 06364 M00S05080.o26 +++| LDN 1 06365 M00S05081.o26 +++| RJM SFL SEARCH FOR LINE 06366 M00S05082.o26 +++| LDD T3 CALCULATE CURRENT LENGTH 06367 M00S05083.o26 +++| STD T5 06368 M00S05084.o26 +++| LDD T2 06369 M00S05085.o26 +++| STD T4 06370 M00S05086.o26 +++| SBD IP 06371 M00S05087.o26 +++| SHN 14 06372 M00S05088.o26 +++| ADD T3 06373 M00S05089.o26 +++| SBD IP+1 06374 M00S05090.o26 +++| SBD T6 06375 M00S05091.o26 +++| MJN RLB1 IF LENGTH INCREASE 06376 M00S05092.o26 +++| ZJN RLB2 IF SAME LENGTH 06377 M00S05093.o26 +++| 06378 M00S05094.o26 +++|* MOVE BUFFER DOWN. 06379 M00S05095.o26 +++| 06380 M00S05096.o26 +++| LDD IP+1 SET MOVE ADDRESS 06381 M00S05097.o26 +++| ADD T6 06382 M00S05098.o26 +++| STD T3 06383 M00S05099.o26 +++| SHN -14 06384 M00S05100.o26 +++| ADD IP 06385 M00S05101.o26 +++| STD T2 06386 M00S05102.o26 +++| RJM MBD MOVE BUFFER DOWN 06387 M00S05103.o26 +++| UJN RLB2 06388 M00S05104.o26 +++| 06389 M00S05105.o26 +++|* MOVE BUFFER UP. 06390 M00S05106.o26 +++| 06391 M00S05107.o26 +++| RLB1 LMC 7777 SET WORD COUNT 06392 M00S05108.o26 +++| STD T7 06393 M00S05109.o26 +++| RJM MBU MOVE BUFFER UP 06394 M00S05110.o26 +++| LDD T7 ADVANCE IN 06395 M00S05111.o26 +++| RAD IN+1 06396 M00S05112.o26 +++| SHN -14 06397 M00S05113.o26 +++| RAD IN 06398 M00S05114.o26 +++| LDD T7 ADVANCE DISPLAY LENGTH 06399 M00S05115.o26 +++| RAD DL 06400 M00S05116.o26 +++| 06401 M00S05117.o26 +++|* COPY LINE INTO CM BUFFER. 06402 M00S05118.o26 +++| 06403 M00S05119.o26 +++| RLB2 LDD IP 06404 M00S05120.o26 +++| SHN 6 06405 M00S05121.o26 +++| ADD RA 06406 M00S05122.o26 +++| SHN 6 06407 M00S05123.o26 +++| ADD IP+1 06408 M00S05124.o26 +++| CWM BUF,T6 06409 M00S05125.o26 +++| RJM SIP SET IN POINTER 06410 M00S05126.o26 +++| LJM RLBX RETURN 06411 M00S05127.o26 +++| COMMAND (REWRITE RECORD IN PLACE.) 06412 M00S05128.o26 +++| RWRITE SPACE 4 06413 M00S05129.o26 +++|*** RWRITE. 06414 M00S05130.o26 +++|* 06415 M00S05131.o26 +++|* REWRITE RECORD ( MASS STORAGE ONLY ) 06416 M00S05132.o26 +++|* 06417 M00S05133.o26 +++|* 06418 M00S05134.o26 +++|* NOTES AND CAUTIONS. 06419 M00S05135.o26 +++|* 06420 M00S05136.o26 +++|* 1) NUMBER OF PRU,S MAY NOT CHANGE. 06421 M00S05137.o26 +++|* REWRITE NOT ALLOWED IF CONDITION EXISTS. 06422 M00S05138.o26 +++|* 06423 M00S05139.o26 +++|* 2) AN ** WILL APPEAR TO THE RIGHT OF THE *RS=* 06424 M00S05140.o26 +++|* FIELD WHEN A NO-REWRITE CONDITION EXISTS. 06425 M00S05141.o26 +++|* 06426 M00S05142.o26 +++|* 3) REWRITE TO ANOTHER FILE MAY CAUSE UNPREDICTABLE 06427 M00S05143.o26 +++|* RESULTS. 06428 M00S05144.o26 +++| 06429 M00S05145.o26 +++| 06430 M00S05146.o26 +++| RWR ENTRY 06431 M00S05147.o26 +++| RJM CRS CHECK RECORD STATUS 06432 M00S05148.o26 +++| RJM SIP STORE IN POINTER
| Line S05149 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06433 M01S05149.241l630 ---| RJM CBC CHECK BUFFER CONTENTS
| Line S00956 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S05150.o26 +++| LMM TIOG COMPARE WITH RECORD READ 06441 M00S05151.o26 +++| ZJN RWR1 IF IN RANGE 06442 M00S05152.o26 +++| LDC =C*PRU SIZE MODIFIED.* 06443 M00S05153.o26 +++| JMP ERR1 06444 M00S05154.o26 +++| 06445 M00S05155.o26 +++|* REWRITE RECORD. 06446 M00S05156.o26 +++| 06447 M00S05157.o26 +++| RWR1 LDN 21 REWRITE RECORD 06448 M00S05158.o26 +++| RJM CIO 06449 M00S05159.o26 +++| LDN 17 RESET FET POINTERS 06450 M00S05160.o26 +++| RJM CIO 06451 M00S05161.o26 +++| JMP CIF 06452 M00S05162.o26 +++| COMMAND (MISCELANEOUS COMMANDS.) 06453 M00S05163.o26 +++| ENFL. SPACE 4,20 06454 M00S05164.o26 +++|*** ENFL. 06455 M00S05165.o26 +++|* 06456 M00S05166.o26 +++|* SET FIELD LENGTH TO BUFFER SIZE+1000. 06457 M00S05167.o26 +++| 06458 M00S05168.o26 +++| 06459 M00S05169.o26 +++| EFL ENTRY 06460 M00S05170.o26 +++| LDD RA READ LIMIT 06461 M00S05171.o26 +++| SHN 6 06462 M00S05172.o26 +++| ADN FET+4 06463 M00S05173.o26 +++| CRD AB 06464 M00S05174.o26 +++| LDD CP GET NFL SIZE 06465 M00S05175.o26 +++| ADN FLSW 06466 M00S05176.o26 +++| CRD CM 06467 M00S05177.o26 +++| LDD IN SET FIELD LENGTH 06468 M00S05178.o26 +++| SHN 6 06469 M00S05179.o26 +++| ADD CM INCLUDE NFL IN VALIDATION 06470 M00S05180.o26 +++| SHN 6 06471 M00S05181.o26 +++| ADD IN+1 06472 M00S05182.o26 +++| ADC 1077 06473 M00S05183.o26 +++| MJN EFL2 IF REQUEST .GE. 131K 06474 M00S05184.o26 +++| SHN -6 06475 M00S05185.o26 +++| SBD CM 06476 M00S05186.o26 +++| STD T1
| Line S05187 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06477 M01S05187.v23l617 ---| EFL1 LDD CP CHECK FOR *ECS* ASSIGNMENT
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06478 M01S00017.v23l617 +++| EFL1 LDD CP CHECK FOR *EXTENDED MEMORY* ASSIGNMENT 06479 M00S05188.o26 +++| ADN ECSW 06480 M00S05189.o26 +++| CRD AB 06481 M00S05190.o26 +++| LDD AB+4
| Line S05191 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06482 M01S05191.v23l617 ---| ZJN EFL3 IF *ECS* NOT ASSIGNED
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06483 M01S00018.v23l617 +++| ZJN EFL3 IF *EXTENDED MEMORY* NOT ASSIGNED 06484 M00S05192.o26 +++| LDD T1 ENSURE *FL* .GE. 10000B 06485 M00S05193.o26 +++| ADC -MCMX/100 06486 M00S05194.o26 +++| PJN EFL3 IF *FL* .GE. 10000
| Line S05195 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06487 M01S05195.v23l617 ---| EFL2 LDC =C*INVALID FL REQUEST.*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06488 M01S00019.v23l617 +++| EFL2 LDC =C*INCORRECT FL REQUEST.* 06489 M00S05196.o26 +++| UJN EFL7 ISSUE MESSAGE 06490 M00S05197.o26 +++| 06491 M00S05198.o26 +++| EFL3 LDD T1 SET FL REQUEST 06492 M00S05199.o26 +++| STM EFLA 06493 M00S05200.o26 +++| EFL4 LDC * REQUEST STORAGE INCREASE 06494 M00S05201.o26 +++| EFLA EQU *-1 06495 M00S05202.o26 +++| EFL5 RJM RSI REQUEST STORAGE 06496 M00S05203.o26 +++| ZJN EFL7 IF STORAGE ASSIGNED 06497 M00S05204.o26 +++| MJN EFL6 IF NOT AVAILABLE 06498 M00S05205.o26 +++| LDC =C*WAITING FOR STORAGE.* 06499 M00S05206.o26 +++| STD KM 06500 M00S05207.o26 +++| RJM KBIA 06501 M00S05208.o26 +++| LDD KE CHECK KEYBOARD ENTRY 06502 M00S05209.o26 +++| LMN 53 06503 M00S05210.o26 +++| NJN EFL4 IF NOT LEFT BLANK
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | o268 |
Seq # *Modification Id* Act ----------------------------+ 06504 M01S00001.o268 +++| LDD FL 06505 M00S05211.o26 +++| UJN EFL5 CLEAR STORAGE REQUEST TO *1SJ* 06506 M00S05212.o26 +++| 06507 M00S05213.o26 +++| EFL6 LDC =C*STORAGE NOT AVAILABLE.* 06508 M00S05214.o26 +++| EFL7 STD KM 06509 M00S05215.o26 +++| LDC KBI8 RESET KEYBOARD 06510 M00S05216.o26 +++| STM KBIA 06511 M00S05217.o26 +++| LDD RA READ LIMIT 06512 M00S05218.o26 +++| SHN 6 06513 M00S05219.o26 +++| ADN FET+4 06514 M00S05220.o26 +++| CRD AB 06515 M00S05221.o26 +++| LDD FL RESET LIMIT 06516 M00S05222.o26 +++| SHN 6 06517 M00S05223.o26 +++| STD LM+1 06518 M00S05224.o26 +++| STD AB+4 06519 M00S05225.o26 +++| SHN -14 06520 M00S05226.o26 +++| STD LM 06521 M00S05227.o26 +++| STD AB+3 06522 M00S05228.o26 +++| LDD RA 06523 M00S05229.o26 +++| SHN 6 06524 M00S05230.o26 +++| ADN FET+4 06525 M00S05231.o26 +++| CWD AB 06526 M00S05232.o26 +++| JMP RET RETURN 06527 M00S05233.o26 +++| ENFL, SPACE 4,15 06528 M00S05234.o26 +++|*** ENFL,X. 06529 M00S05235.o26 +++|* 06530 M00S05236.o26 +++|* SET FIELD LENGTH TO X. 06531 M00S05237.o26 +++| 06532 M00S05238.o26 +++| 06533 M00S05239.o26 +++| EFN ENTRY 06534 M00S05240.o26 +++| RJM AOD ASSEMBLE OCTAL DIGITS 06535 M00S05241.o26 +++| LDD CP GET NFL SIZE 06536 M00S05242.o26 +++| ADN FLSW 06537 M00S05243.o26 +++| CRD CM 06538 M00S05244.o26 +++| LDD AB+3 06539 M00S05245.o26 +++| SHN 6 06540 M00S05246.o26 +++| ADD CM INCLUDE NFL IN VALIDATION 06541 M00S05247.o26 +++| SHN 6 06542 M00S05248.o26 +++| ADD AB+4 06543 M00S05249.o26 +++| ADN 77 06544 M00S05250.o26 +++| PJN EFN1 IF REQUEST .LT. 131K 06545 M00S05251.o26 +++| LJM EFL2 REQUEST .GE. 131K 06546 M00S05252.o26 +++| 06547 M00S05253.o26 +++| EFN1 SHN -6 FL = FL/100 06548 M00S05254.o26 +++| SBD CM 06549 M00S05255.o26 +++| STD T1 06550 M00S05256.o26 +++| SBD FL 06551 M00S05257.o26 +++| NJN EFN3 IF FL .NE. 0 06552 M00S05258.o26 +++| EFN2 LJM ERR MESSAGE = *FORMAT ERROR.* 06553 M00S05259.o26 +++| 06554 M00S05260.o26 +++| EFN3 PJN EFN4 IF NEW FL .GT. OLD FL 06555 M00S05261.o26 +++| LDD IN CHECK FOR DATA TRUNCATION 06556 M00S05262.o26 +++| SHN 6 06557 M00S05263.o26 +++| SBD T1 06558 M00S05264.o26 +++| SHN 6 06559 M00S05265.o26 +++| ADD IN+1 06560 M00S05266.o26 +++| PJN EFN2 IF NEW FL TOO SMALL 06561 M00S05267.o26 +++| EFN4 LJM EFL1 ISSUE FL REQUEST
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act ----------------------------+ 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 06569 M01S00028.ns2735 +++| LDN ZERL 06570 M01S00029.ns2735 +++| CRD CM 06571 M01S00030.ns2735 +++| LDN PPET SET ERROR FLAG = PP ABORT 06572 M01S00031.ns2735 +++| STD CM+1 06573 M01S00032.ns2735 +++| MONITOR CEFM 06574 M01S00033.ns2735 +++| JMP RET RETURN 06575 M01S00034.ns2735 +++| HOLD. SPACE 4,10 06576 M01S00035.ns2735 +++|*** HOLD. 06577 M01S00036.ns2735 +++|* 06578 M01S00037.ns2735 +++|* DROP DISPLAY AND WAIT FOR OPERATOR ASSIGNMENT. 06579 M01S00038.ns2735 +++| 06580 M01S00039.ns2735 +++| 06581 M01S00040.ns2735 +++| HOL ENTRY 06582 M01S00041.ns2735 +++| RJM DDS DROP DISPLAY 06583 M01S00042.ns2735 +++| LDK RDSOS REQUEST DISPLAY 06584 M01S00043.ns2735 +++| RJM RID 06585 M01S00044.ns2735 +++| JMP RET RETURN 06586 M00S05268.o26 +++| IGN SPACE 4,10 06587 M00S05269.o26 +++|*** IGNORE. 06588 M00S05270.o26 +++|* 06589 M00S05271.o26 +++|* IGNORE RECORD TOO LONG CONDITION. THE RECORD MAY NOW BE 06590 M00S05272.o26 +++|* WRITTEN, BUT WILL BE TRUNCATED. 06591 M00S05273.o26 +++| 06592 M00S05274.o26 +++| 06593 M00S05275.o26 +++| IGN ENTRY 06594 M00S05276.o26 +++| AOM CRSA SET RECORD READ NOT TOO LONG FLAG 06595 M00S05277.o26 +++| JMP RET RETURN
| Line S05278 Modification History | |
|---|---|
M01 (Removed by) | o2612 |
Seq # *Modification Id* Act ----------------------------+ 06596 M01S05278.o2612 ---| OUT. SPACE 4,10
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | o2612 |
Seq # *Modification Id* Act ----------------------------+ 06597 M01S00024.o2612 +++| GO. SPACE 4,10 06598 M00S05279.o26 +++|*** GO. 06599 M00S05280.o26 +++|* 06600 M00S05281.o26 +++|* CLEAR PAUSE FLAG. 06601 M00S05282.o26 +++| 06602 M00S05283.o26 +++| 06603 M00S05284.o26 +++| GGO ENTRY 06604 M00S05285.o26 +++| LDD CP READ SENSE SWITCH WORD 06605 M00S05286.o26 +++| ADN SNSW 06606 M00S05287.o26 +++| CRD CM 06607 M00S05288.o26 +++| LDD CM+3 CLEAR PAUSE BIT 06608 M00S05289.o26 +++| SCN 1 06609 M00S05290.o26 +++| STD CM+3 06610 M00S05291.o26 +++| LDD CP STORE SENSE SWITCH WORD 06611 M00S05292.o26 +++| ADN SNSW 06612 M00S05293.o26 +++| CWD CM 06613 M00S05294.o26 +++| JMP RET RETURN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | o263 |
M02 (Removed by) | o267 |
Seq # *Modification Id* Act ----------------------------+ 06614 M02S00011.o267 ---| SP SPACE 4,10 06615 M02S00012.o267 ---|*** SP. 06616 M02S00013.o267 ---|* 06617 M02S00014.o267 ---|* TOGGLE THE OPTION OF CLEARING SPECIAL CHARACTERS FROM 06618 M02S00015.o267 ---|* A FILE BEFORE DISPLAYING IT. SPECIAL CHARACTERS ARE 06619 M02S00016.o267 ---|* THOSE WITH DISPLAY CODES GREATER THAN 57B. 06620 M02S00017.o267 ---|* 06621 M02S00018.o267 ---|* CLEARING SPECIAL CHARACTERS WILL CAUSE THE CONSOLE 06622 M02S00019.o267 ---|* SCREEN TO FLICKER WHEN DISPLAYING LARGE FILES, OR 06623 M02S00020.o267 ---|* DISPLAYING FILES CONTAINING MANY SPECIAL CHARACTERS. 06624 M02S00021.o267 ---| 06625 M02S00022.o267 ---| 06626 M02S00023.o267 ---| SPE ENTRY 06627 M02S00024.o267 ---| LDM DBFD TOGGLE CHECK OF SPECIAL CHARACTERS 06628 M02S00025.o267 ---| LMN 1 06629 M02S00026.o267 ---| STM DBFD 06630 M02S00027.o267 ---| JMP RET RETURN 06631 M00S05295.o26 +++| UCC SPACE 4,15 06632 M00S05296.o26 +++|*** UCC=C 06633 M00S05297.o26 +++|* 06634 M00S05298.o26 +++|* SET UPPER CASE CONTROL CHARACTER TO C. 06635 M00S05299.o26 +++|* 06636 M00S05300.o26 +++|* TO ENTER ANY CHARACTER NOT ON KEYBOARD, HIT UCC AND 06637 M00S05301.o26 +++|* ENTER 2 OCTAL DIGIT DISPLAY CODE BY DEPRESSING AN 06638 M00S05302.o26 +++|* APPROPRIATE KEY. 06639 M00S05303.o26 +++|* 06640 M00S05304.o26 +++|* 0 THRU 7 = 60 THRU 67, QWERTYU = 70 THRU 77, AND S = 53. 06641 M00S05305.o26 +++|* 06642 M00S05306.o26 +++|* EXAMPLE UCC=*. TO ENTER " IN LINE DEPRESS * AND THEN 4. 06643 M00S05307.o26 +++| 06644 M00S05308.o26 +++| 06645 M00S05309.o26 +++| UCC ENTRY 06646 M00S05310.o26 +++| LDD CA CHECK FOR CLEAR/SET UCC 06647 M00S05311.o26 +++| ADC -KBUF 06648 M00S05312.o26 +++| LMD KI 06649 M00S05313.o26 +++| ZJN UCC1 IF END OF KEYBOARD BUFER 06650 M00S05314.o26 +++| LDI CA 06651 M00S05315.o26 +++| UCC1 STM UCCA SET UPPER CASE CONTROL 06652 M00S05316.o26 +++| LDM KBIC CLEAR/SET UPPER CASE CONTROL 06653 M00S05317.o26 +++| SCN 77 06654 M00S05318.o26 +++| LMC ** UPPER CASE CONTROL CHARACTER 06655 M00S05319.o26 +++| UCCA EQU *-1 06656 M00S05320.o26 +++| STM KBIC 06657 M00S05321.o26 +++| SHN 6 06658 M00S05322.o26 +++| LMD IR+2 06659 M00S05323.o26 +++| SCN 77 06660 M00S05324.o26 +++| LMD IR+2 06661 M00S05325.o26 +++| STD IR+2 06662 M00S05326.o26 +++| JMP RET RETURN 06663 M00S05327.o26 +++| AOD SPACE 4,20 06664 M00S05328.o26 +++|** AOD - ASSEMBLE OCTAL DIGITS. 06665 M00S05329.o26 +++|* 06666 M00S05330.o26 +++|* ENTRY (A) = CHARACTER ADDRESS. 06667 M00S05331.o26 +++|* 06668 M00S05332.o26 +++|* EXIT (A) = SEPARATOR CHARACTER. 06669 M00S05333.o26 +++|* (AB - AB+4) = ASSEMBLED DIGITS RIGHT JUSTIFIED. 06670 M00S05334.o26 +++|* (T1) = UPDATED CHARACTER ADDRESS. 06671 M00S05335.o26 +++|* 06672 M00S05336.o26 +++|* USES T0 - T2. 06673 M00S05337.o26 +++| 06674 M00S05338.o26 +++| 06675 M00S05339.o26 +++| AOD SUBR ENTRY/EXIT 06676 M00S05340.o26 +++| STD T1 SET CHARACTER AODRESS 06677 M00S05341.o26 +++| LDN ZERL CLEAR ASSEMBLY 06678 M00S05342.o26 +++| CRD AB 06679 M00S05343.o26 +++| AOD1 LDI T1 CHECK CHARACTER 06680 M00S05344.o26 +++| SBN 1R0 06681 M00S05345.o26 +++| MJN AOD2 IF ALPHA 06682 M00S05346.o26 +++| SBN 1R8-1R0 06683 M00S05347.o26 +++| MJN AOD3 IF OCTAL DIGIT 06684 M00S05348.o26 +++| SBN 1R -1R8 06685 M00S05349.o26 +++| ZJN AOD5 IF * * 06686 M00S05350.o26 +++| AOD2 LDI T1 RETURN WITH CHARACTER 06687 M00S05351.o26 +++| UJN AODX 06688 M00S05352.o26 +++| 06689 M00S05353.o26 +++| AOD3 ADN 1R8-1R0 NEW DIGIT = CHARACTER 06690 M00S05354.o26 +++| STD T0 06691 M00S05355.o26 +++| LDN AB+4 SET BYTE AODRESS 06692 M00S05356.o26 +++| STD T2 06693 M00S05357.o26 +++| AOD4 LDI T2 BYTE = BYTE * 10B 06694 M00S05358.o26 +++| SHN 3 06695 M00S05359.o26 +++| ADD T0 06696 M00S05360.o26 +++| STI T2 06697 M00S05361.o26 +++| SHN -14 NEW DIGIT = OVERFLOW 06698 M00S05362.o26 +++| STD T0 06699 M00S05363.o26 +++| SOD T2 DECREMENT BYTE ADDRESS 06700 M00S05364.o26 +++| LMN AB-1 06701 M00S05365.o26 +++| NJN AOD4 IF NOT AT END OF WORD LOOP 06702 M00S05366.o26 +++| AOD5 AOD T1 ADVANCE CHARACTER 06703 M00S05367.o26 +++| UJN AOD1 LOOP 06704 M00S05368.o26 +++| COMMON SPACE 4 06705 M00S05369.o26 +++|** COMMON DECKS. 06706 M00S05370.o26 +++| 06707 M00S05371.o26 +++| 06708 M00S05372.o26 +++|*CALL COMPRSI 06709 M00S05373.o26 +++| TITLE BUFFERS. 06710 M00S05374.o26 +++| BUFFERS SPACE 4 06711 M00S05375.o26 +++|* TERMINATE COMMAND OVERLAYS. 06712 M00S05376.o26 +++| 06713 M00S05377.o26 +++| 06714 M00S05378.o26 +++| QUAL 06715 M00S05379.o26 +++| HERE 06716 M00S05380.o26 +++| USE END FORCE LITERALS 06717 M00S05381.o26 +++| BUFFERS SPACE 4,10 06718 M00S05382.o26 +++|** BUFFER DEFINITIONS. 06719 M00S05383.o26 +++| 06720 M00S05384.o26 +++| 06721 M00S05385.o26 +++| BUFM EQU 7774-240 MOVE BUFFER 06722 M00S05386.o26 +++| BUFR EQU 7774-19D*5 READ BUFFER 06723 M00S05387.o26 +++| KBUFL EQU 92D KEYBOARD BUFFER LENGTH 06724 M00S05388.o26 +++| 06725 M00S05389.o26 +++|* ENSURE ROOM FOR END OF LINE FOR EACH BUFFER. 06726 M00S05390.o26 +++| 06727 M00S05391.o26 +++| BUF EQU BUFM-KBUFL-7 LINE BUFFER
| Line S05392 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06728 M01S05392.241l630 ---| KBUF EQU BUF-KBUFL-7 KEYBOARD BUFFER 06729 M01S05393.241l630 ---| DBUF EQU KBUF-KBUFL-7 TAB AND DUP BUFFER
| Line S00962 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06730 M01S00962.241l630 +++| DBUF EQU BUF-KBUFL-7 TAB AND DUP BUFFER 06731 M01S00963.241l630 +++| KBUF EQU DBUF-KBUFL-7 KEYBOARD BUFFER 06732 M00S05394.o26 +++| OVL SPACE 4,10 06733 M00S05395.o26 +++|* OVERLAY CONTROL.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 06734 M01S00003.o2615 +++|* 06735 M01S00004.o2615 +++|* AN ADDITIONAL BYTE HAS TO BE ADDED TO OVERLAY LENGTH 06736 M01S00005.o2615 +++|* COMPUTATIONS TO ACCOUNT FOR THE FACT THAT THE BYTE AFTER 06737 M01S00006.o2615 +++|* THE LAST BYTE TRANSFERRED BY AN *IAM* INSTRUCTION IS ZEROED 06738 M01S00007.o2615 +++|* WHEN THE CHANNEL DISCONNECTS. 06739 M00S05396.o26 +++| 06740 M00S05397.o26 +++|
| Line S05398 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06741 M01S05398.241l630 ---| LL. SET *+4 06742 M01S05399.241l630 ---| ERRNG DBUF-LL. OVERFLOW CHECK FOR LAST OVERLAY
| Line S00964 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06743 M01S00964.241l630 +++| .L MAX *,.L ADD LAST OVERLAY TO OVERFLOW CHECK 06744 M00S05400.o26 +++| .L SET .L+4-OVL
| Line S05401 Modification History | |
|---|---|
M01 (Removed by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 06745 M01S05401.o2615 ---| .L SET .L/5*5+OVL
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 06746 M01S00008.o2615 +++| .L SET .L/5*5+OVL+1
| Line S00965 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06747 M01S00965.241l630 +++| ERRNG KBUF-.L PP MEMORY OVERFLOW 06748 M01S00966.241l630 +++| .L SET ECMDO+4-OVL
| Line S00967 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 06749 M02S00967.o2615 ---| .L SET .L/5*5+OVL
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | o2615 |
Seq # *Modification Id* Act ----------------------------+ 06750 M01S00009.o2615 +++| .L SET .L/5*5+OVL+1 06751 M00S05402.o26 +++| ERRNG DBUF-.L PP MEMORY OVERFLOW 06752 M00S05403.o26 +++| TTL O26 - CONSOLE TEXT EDITOR. 06753 M00S05404.o26 +++| O26 SPACE 4 06754 M00S05405.o26 +++| END O26 CONSOLE TEXT EDITOR
cdc/nos2.source/opl.opl871/deck/o26.003.txt · Last modified: by 127.0.0.1