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