Seq # *Modification Id* Act
----------------------------+
03152 M00S02357.o26 +++| STD SI RESET SCAN INDEX
03153 M00S02358.o26 +++| PRT1 JMP KBIX RETURN
03154 M00S02359.o26 +++|
03155 M00S02360.o26 +++|* PROCESS CHARACTER TAB.
03156 M00S02361.o26 +++|
03157 M00S02362.o26 +++| PRT2 LDN 1R PRESET * *
03158 M00S02363.o26 +++| STD T1
03159 M00S02364.o26 +++| LDM KBUF CHECK FIRST CHARACTER
03160 M00S02365.o26 +++| LMN 1RD
03161 M00S02366.o26 +++| ZJN PRT3 IF *D*
03162 M00S02367.o26 +++| LMN 1RE&1RD
03163 M00S02368.o26 +++| ZJN PRT3 IF *E*
03164 M00S02369.o26 +++| LMN 1RF&1RE
03165 M00S02370.o26 +++| ZJN PRT5 IF *F*
03166 M00S02371.o26 +++| LMN 1RA&1RF
03167 M00S02372.o26 +++| ZJN PRT3 IF *A*
03168 M00S02373.o26 +++| LMN 1RN&1RA
03169 M00S02374.o26 +++| ZJN PRT4 IF *N*
03170 M00S02375.o26 +++| LMN 1RL&1RN
03171 M00S02376.o26 +++| NJN PRT6 IF NOT *L*
03172 M00S02377.o26 +++| PRT3 STM KBSA
03173 M00S02378.o26 +++| PRT4 LDM DBUF,KI SET TAB CHARACTER
03174 M00S02379.o26 +++| LPN 77
03175 M00S02380.o26 +++| PRT5 STD T1 SET TAB CHARACTER
03176 M00S02381.o26 +++| PRT6 LDD T1 STORE TAB CHARACTER
03177 M00S02382.o26 +++| STM KBUF,KI
03178 M00S02383.o26 +++| AOD KI CHECK FOR END OF BUFFER
03179 M00S02384.o26 +++| ADC -KBUFL
03180 M00S02385.o26 +++| PJN PRT7 IF BUFFER FULL
03181 M00S02386.o26 +++| LDM DBUF,KI CHECK FOR TAB COLUMN
03182 M00S02387.o26 +++| SHN 7
03183 M00S02388.o26 +++| MJN PRT8 IF TAB COLUMN
03184 M00S02389.o26 +++| LDD KI CHECK FOR LAST CHARACTER OF ORIGINAL LINE
03185 M00S02390.o26 +++| SBN 2
03186 M00S02391.o26 +++| LMD LC
03187 M00S02392.o26 +++| ZJN PRT8 IF AT LAST COLUMN
03188 M00S02393.o26 +++| LJM PRT2 LOOP UNTIL TAB COLUMN REACHED
03189 M00S02394.o26 +++|
03190 M00S02395.o26 +++|* BKSP OVER END OF BUFFER.
03191 M00S02396.o26 +++|
03192 M00S02397.o26 +++| PRT7 SOD KI CLEAR ENTRY
03193 M00S02398.o26 +++| LDN 1R
03194 M00S02399.o26 +++| STM KBUF,KI
03195 M00S02400.o26 +++| PRT8 JMP KBIX RETURN
03196 M00S02401.o26 +++| RDL SPACE 4,20
03197 M00S02402.o26 +++|** RDL - READ LINE FROM BUFFER.
03198 M00S02403.o26 +++|*
03199 M00S02404.o26 +++|* ENTRY (CA) = CHARACTER ADDRESS.
03200 M00S02405.o26 +++|*
03201 M00S02406.o26 +++|* EXIT (T4) = LAST CHARACTER ADDRESS.
03202 M00S02407.o26 +++|* (LC) = CHARACTER COUNT OF LINE.
03203 M00S02408.o26 +++|*
03204 M00S02409.o26 +++|* USES T1 - T3, CM - CM+4.
| Line S02410 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03205 M01S02410.241l630 ---|*
03206 M01S02411.241l630 ---|* CALLS SFL.
03207 M00S02412.o26 +++|
03208 M00S02413.o26 +++|
03209 M00S02414.o26 +++| RDL SUBR ENTRY/EXIT
03210 M00S02415.o26 +++| LDD IF
03211 M00S02416.o26 +++| NJN RDL1 IF INSERT SET
| Line S02417 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03212 M01S02417.v23l617 ---| LJM ERR ILLEGAL ENTRY
| Line S00007 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03213 M01S00007.v23l617 +++| LJM ERR INCORRECT ENTRY
03214 M00S02418.o26 +++|
03215 M00S02419.o26 +++| RDL1 LDD IP+1 CHECK INSERT
03216 M00S02420.o26 +++| LMD IN+1
03217 M00S02421.o26 +++| NJN RDL2 IF IN RANGE
03218 M00S02422.o26 +++| LDD IP
03219 M00S02423.o26 +++| LMD IN
03220 M00S02424.o26 +++| NJN RDL2 IF IN RANGE
03221 M00S02425.o26 +++| LDC =C*OUT OF RANGE.*
03222 M00S02426.o26 +++| LJM ERR1
03223 M00S02427.o26 +++|
03224 M00S02428.o26 +++|* READ LINE FROM CM BUFFER.
03225 M00S02429.o26 +++|
03226 M00S02430.o26 +++| RDL2 LDN 19D READ LINE FROM BUFFER
03227 M00S02431.o26 +++| STD T1
03228 M00S02432.o26 +++| LDD IP
03229 M00S02433.o26 +++| SHN 6
03230 M00S02434.o26 +++| ADD RA
03231 M00S02435.o26 +++| SHN 6
03232 M00S02436.o26 +++| ADD IP+1
03233 M00S02437.o26 +++| CRM BUFR,T1
03234 M00S02438.o26 +++| LDC BUFR SET BUFFER ADDRESS
03235 M00S02439.o26 +++| STD T1
03236 M00S02440.o26 +++| LDD CA SET CHARACTER ADDRESS
03237 M00S02441.o26 +++| STD T4
03238 M00S02442.o26 +++| LDI T1
03239 M00S02443.o26 +++| ADM 1,T1
03240 M00S02444.o26 +++| ADM 2,T1
03241 M00S02445.o26 +++| ADM 3,T1
03242 M00S02446.o26 +++| ADM 4,T1
03243 M00S02447.o26 +++| NJN RDL3 IF NOT NULL BUFFER
03244 M00S02448.o26 +++| LDC 2R
03245 M00S02449.o26 +++| STI T1
03246 M00S02450.o26 +++|
03247 M00S02451.o26 +++|* UNPACK LINE INTO BUFFER.
03248 M00S02452.o26 +++|
03249 M00S02453.o26 +++| RDL3 LDI T1
03250 M00S02454.o26 +++| NJN RDL4 IF NON-ZERO BYTE
03251 M00S02455.o26 +++| LDD T1
03252 M00S02456.o26 +++| ADC -BUFR
03253 M00S02457.o26 +++|
03254 M00S02458.o26 +++|* CHECK FOR MULTIPLE OF 5.
03255 M00S02459.o26 +++|
03256 M00S02460.o26 +++| ADN 1 COMPENSATE FOR 0
03257 M00S02461.o26 +++| RDL3.1 SBN 5
03258 M00S02462.o26 +++| ZJN RDL5 IF END OF LINE
03259 M00S02463.o26 +++| PJN RDL3.1 IF NOT COMPLETE
03260 M00S02464.o26 +++| RDL4 LDI T1 UNPACK CHARACTER
03261 M00S02465.o26 +++| SHN -6
03262 M00S02466.o26 +++| STI T4 UPPER CHARACTER
03263 M00S02467.o26 +++| AOD T4
03264 M00S02468.o26 +++| LDI T1 UNPACK LOWER CHARACTER
03265 M00S02469.o26 +++| LPN 77
03266 M00S02470.o26 +++| STI T4
03267 M00S02471.o26 +++| AOD T1
03268 M00S02472.o26 +++| AOD T4 ADVANCE CHARACTER COUNT
03269 M00S02473.o26 +++| SBD CA
03270 M00S02474.o26 +++| ADC -KBUFL CHECK FOR END OF BUFFER
03271 M00S02475.o26 +++| MJN RDL3 IF BUFFER NOT FULL - LOOP
03272 M00S02476.o26 +++|
03273 M00S02477.o26 +++|* COPY LINE TO DUP BUFFER.
03274 M00S02478.o26 +++|
03275 M00S02479.o26 +++| RDL5 SOD T4 BACK UP IN BUFFER
03276 M00S02480.o26 +++| LDI T4
03277 M00S02481.o26 +++| ZJN RDL5 IF *00* CHARACTER
03278 M00S02482.o26 +++| AOD T4 FIRST *00* CHARACTER ADDRESS
03279 M00S02483.o26 +++| LDC DBUF+2
03280 M00S02484.o26 +++| STD T2
03281 M00S02485.o26 +++| LDD CA SET CHARACTER ADDRESS
03282 M00S02486.o26 +++| STD T1
03283 M00S02487.o26 +++| RDL6 LDI T2 REPLACE DUP CHARACTER
| Line S02488 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03284 M01S02488.241l630 ---| LPC 6000
| Line S00628 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03285 M01S00628.241l630 +++| SCN 77
03286 M00S02489.o26 +++| LMI T1
03287 M00S02490.o26 +++| STI T2
03288 M00S02491.o26 +++| AOD T2
03289 M00S02492.o26 +++| AOD T1 ADVANCE CHARACTER
03290 M00S02493.o26 +++| LMD T4
03291 M00S02494.o26 +++| NJN RDL6 IF NOT END OF LINE LOOP
03292 M00S02495.o26 +++| LDD T2 SET DUP BUFFER LENGTH
03293 M00S02496.o26 +++| ADC -DBUF
03294 M00S02497.o26 +++| STM DKLB
03295 M00S02498.o26 +++|
03296 M00S02499.o26 +++|* CLEAR TO END OF BUFFER.
03297 M00S02500.o26 +++|
03298 M00S02501.o26 +++| RDL7 LDI T2 BLANK FILL TO END OF BUFFERS
| Line S02502 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03299 M01S02502.241l630 ---| LPC 6000 DUP BUFFER
| Line S00629 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03300 M01S00629.241l630 +++| SCN 77
03301 M00S02503.o26 +++| ADN 1R
03302 M00S02504.o26 +++| STI T2
03303 M00S02505.o26 +++| LDN 1R KEYBOARD BUFFER
03304 M00S02506.o26 +++| STI T1
03305 M00S02507.o26 +++| AOD T2
03306 M00S02508.o26 +++| AOD T1
03307 M00S02509.o26 +++| SBD CA
03308 M00S02510.o26 +++| ADC -KBUFL CHECK FOR END OF BUFFER
03309 M00S02511.o26 +++| MJN RDL7 IF NOT END OF BUFFER - LOOP
03310 M00S02512.o26 +++| LDD T4 SET CHARACTER COUNT
03311 M00S02513.o26 +++| SBD CA
03312 M00S02514.o26 +++| STD LC
03313 M00S02515.o26 +++| LJM RDLX RETURN
03314 M00S02516.o26 +++| SDB SPACE 4,10
03315 M00S02517.o26 +++|** SDB - SHIFT DATA BLOCK IN CENTRAL MEMORY.
03316 M00S02518.o26 +++|*
03317 M00S02519.o26 +++|* ENTRY (A) = NUMBER OF CM WORDS TO BE SHIFTED.
03318 M00S02520.o26 +++|* (T3) = COUNT OF DATA BLOCKS SHIFTED.
03319 M00S02521.o26 +++|* (T4 - T5) = FWA OF DATA TO BE SHIFTED.
03320 M00S02522.o26 +++|*
03321 M00S02523.o26 +++|* USES T7, BUFM - BUFM+240.
03322 M00S02524.o26 +++|
03323 M00S02525.o26 +++|
03324 M00S02526.o26 +++| SDB SUBR ENTRY/EXIT
03325 M00S02527.o26 +++| STD T7 SET SHIFT COUNT
03326 M00S02528.o26 +++| LDD T4 SET CM SHIFT ADDRESS
03327 M00S02529.o26 +++| SHN 6
03328 M00S02530.o26 +++| ADD RA
03329 M00S02531.o26 +++| SHN 1 ADD COUNT OF SHIFTED BLOCKS
03330 M00S02532.o26 +++| ADD T3
03331 M00S02533.o26 +++| SHN 5
03332 M00S02534.o26 +++| ADD T5
03333 M00S02535.o26 +++| CRM BUFM,T7
03334 M00S02536.o26 +++| SBD T7 REPLACE BLOCK AT LOWER CM ADDRESS
03335 M00S02537.o26 +++| SDBA ADC -* (DISTANCE DATA IS BEING MOVED)
03336 M00S02538.o26 +++| CWM BUFM,T7
03337 M00S02539.o26 +++| UJN SDBX RETURN
03338 M00S02540.o26 +++| SDS SPACE 4,20
03339 M00S02541.o26 +++|** SDS - SET DISPLAY.
03340 M00S02542.o26 +++|*
03341 M00S02543.o26 +++|* ENTRY (A) = ADDRESS OF ADDRESS POINTER.
03342 M00S02544.o26 +++|* (DL) = LENGTH OF DISPLAY.
03343 M00S02545.o26 +++|*
03344 M00S02546.o26 +++|* EXIT (OT - OT+1) = FIRST LINE ADDRESS.
03345 M00S02547.o26 +++|*
03346 M00S02548.o26 +++|* USES T1 - T3.
03347 M00S02549.o26 +++|*
03348 M00S02550.o26 +++|* CALLS SFL.
03349 M00S02551.o26 +++|
03350 M00S02552.o26 +++|
03351 M00S02553.o26 +++| SDS2 LDD IN CHECK END OF DISPLAY
03352 M00S02554.o26 +++| SBD OT
03353 M00S02555.o26 +++| SHN 14
03354 M00S02556.o26 +++| ADD IN+1
03355 M00S02557.o26 +++| SBD OT+1
03356 M00S02558.o26 +++| SBD DL
03357 M00S02559.o26 +++| ZJN SDSX IF LAST LINE ON SCREEN
03358 M00S02560.o26 +++| LDD OT ADVANCE ONE LINE
03359 M00S02561.o26 +++| STD T2
03360 M00S02562.o26 +++| LDD OT+1
03361 M00S02563.o26 +++| STD T3
03362 M00S02564.o26 +++| LDN 1
03363 M00S02565.o26 +++| RJM SFL SEARCH FOR LINE
03364 M00S02566.o26 +++| LDD T2
03365 M00S02567.o26 +++| STD OT
03366 M00S02568.o26 +++| LDD T3
03367 M00S02569.o26 +++| STD OT+1
03368 M00S02570.o26 +++|
03369 M00S02571.o26 +++| SDS SUBR ENTRY/EXIT
03370 M00S02572.o26 +++| STD T1 SAVE INDEX
03371 M00S02573.o26 +++| LDI T1
03372 M00S02574.o26 +++| SBD OT
03373 M00S02575.o26 +++| SHN 14
03374 M00S02576.o26 +++| ADM 1,T1
03375 M00S02577.o26 +++| SBD OT+1
03376 M00S02578.o26 +++| MJN SDS1 IF LINE .LT. FIRST LINE
03377 M00S02579.o26 +++| SBD DL CHECK END OF SCREEN
03378 M00S02580.o26 +++| ZJN SDS2 IF AT END OF DISPLAY
03379 M00S02581.o26 +++| MJN SDSX IF LINE ON DISPLAY
03380 M00S02582.o26 +++| SDS1 LDI T1 SET DISPLAY ADDRESS
03381 M00S02583.o26 +++| STD OT
03382 M00S02584.o26 +++| LDM 1,T1
03383 M00S02585.o26 +++| STD OT+1
03384 M00S02586.o26 +++| UJN SDSX RETURN
03385 M00S02587.o26 +++| SFL SPACE 4,20
03386 M00S02588.o26 +++|** SFL - SEARCH FOR LINE.
03387 M00S02589.o26 +++|*
03388 M00S02590.o26 +++|* ENTRY (A) = NUMBER OF LINES TO ADVANCE/DECREMENT.
03389 M00S02591.o26 +++|* (T2 - T3) = CURRENT ADDRESS.
03390 M00S02592.o26 +++|*
03391 M00S02593.o26 +++|* EXIT (T2 - T3) = LINE ADDRESS.
03392 M00S02594.o26 +++|*
03393 M00S02595.o26 +++|* USES T1 - T3, CM - CM+4.
03394 M00S02596.o26 +++|
03395 M00S02597.o26 +++|
03396 M00S02598.o26 +++|* SEARCH BACKWARDS FOR LINE.
03397 M00S02599.o26 +++|
03398 M00S02600.o26 +++| SFL2 LDD T2 CHECK FOR START OF BUFFER
03399 M00S02601.o26 +++| LMD FT
03400 M00S02602.o26 +++| SHN 14
03401 M00S02603.o26 +++| LMD T3
03402 M00S02604.o26 +++| LMD FT+1
03403 M00S02605.o26 +++| ZJN SFLX IF AT START OF BUFFER
03404 M00S02606.o26 +++|
03405 M00S02607.o26 +++| SFL3 LDD T2 READ PREVIOUS WORD
03406 M00S02608.o26 +++| SHN 6
03407 M00S02609.o26 +++| ADD RA
03408 M00S02610.o26 +++| SHN 6
03409 M00S02611.o26 +++| ADD T3
03410 M00S02612.o26 +++| SBN 2
03411 M00S02613.o26 +++| CRD CM
03412 M00S02614.o26 +++| SOD T3 DECREMENT ADDRESS
03413 M00S02615.o26 +++| PJN SFL4 IF NO CARRY
03414 M00S02616.o26 +++| AOD T3
03415 M00S02617.o26 +++| SOD T2
03416 M00S02618.o26 +++| SFL4 LDD CM+4
03417 M00S02619.o26 +++| NJN SFL3 IF NOT END OF PREVOIUS LINE LOOP
03418 M00S02620.o26 +++| AOD T1 ADVANCE LINE NUMBER
03419 M00S02621.o26 +++| ADC 770000
03420 M00S02622.o26 +++| NJN SFL2 IF NOT COMPLETE
03421 M00S02623.o26 +++|
03422 M00S02624.o26 +++| SFL SUBR ENTRY/EXIT
03423 M00S02625.o26 +++| STD T1 SAVE LINE NUMBER
03424 M00S02626.o26 +++| MJN SFL2 IF SEARCH BACKWARDS
03425 M00S02627.o26 +++|
03426 M00S02628.o26 +++|* SEARCH FORWARD FOR LINE.
03427 M00S02629.o26 +++|
03428 M00S02630.o26 +++| SFL1 LDD T2
03429 M00S02631.o26 +++| LMD IN
03430 M00S02632.o26 +++| SHN 14
03431 M00S02633.o26 +++| LMD T3
03432 M00S02634.o26 +++| LMD IN+1
03433 M00S02635.o26 +++| ZJN SFLX IF ADDRESS = IN
03434 M00S02636.o26 +++| LDD T2 READ WORD
03435 M00S02637.o26 +++| SHN 6
03436 M00S02638.o26 +++| ADD RA
03437 M00S02639.o26 +++| SHN 6
03438 M00S02640.o26 +++| ADD T3
03439 M00S02641.o26 +++| CRD CM
03440 M00S02642.o26 +++| AOD T3 ADVANCE ADDRESS
03441 M00S02643.o26 +++| SHN -14
03442 M00S02644.o26 +++| RAD T2
03443 M00S02645.o26 +++| LDD CM+4
03444 M00S02646.o26 +++| NJN SFL1 IF NOT END OF LINE LOOP
03445 M00S02647.o26 +++| SOD T1 DECREMENT LINE COUNT
03446 M00S02648.o26 +++| NJN SFL1 IF ADVANCEMENT/DECREMENT NOT COMPLETE LOOP
03447 M00S02649.o26 +++| UJN SFLX RETURN
03448 M00S02650.o26 +++| SFN SPACE 4,20
03449 M00S02651.o26 +++|** SFN - SET FILE NAME.
03450 M00S02652.o26 +++|*
03451 M00S02653.o26 +++|* ENTRY (CA) = CHARACTER ADDRESS.
03452 M00S02654.o26 +++|* (SFSA) = NONZERO, TO CHECK RANDOM ADDRESS.
03453 M00S02655.o26 +++|*
03454 M00S02656.o26 +++|* EXIT (CA) = UPDATED.
03455 M00S02657.o26 +++|*
03456 M00S02658.o26 +++|* USES CM, AB+4.
03457 M00S02659.o26 +++|*
03458 M00S02660.o26 +++|* CALLS ASN, SFS.
03459 M00S02661.o26 +++|
03460 M00S02662.o26 +++|
03461 M00S02663.o26 +++| SFN SUBR ENTRY/EXIT
03462 M00S02664.o26 +++| LDD CA CHECK FOR END OF KEYBOARD BUFFER
03463 M00S02665.o26 +++| ADC -KBUF
03464 M00S02666.o26 +++| LMD KI
03465 M00S02667.o26 +++| ZJN SFN2 IF NO FILE NAME
03466 M00S02668.o26 +++| LDD CA ASSEMBLE NAME
03467 M00S02669.o26 +++| RJM ASN
03468 M00S02670.o26 +++| LMN 1R.
03469 M00S02671.o26 +++| ZJN SFN1 IF *.*
03470 M00S02672.o26 +++| LJM ERR FORMAT ERROR
03471 M00S02673.o26 +++|
03472 M00S02674.o26 +++| SFN1 LDD T1 UPDATE CHARACTER INDEX
03473 M00S02675.o26 +++| STD CA
03474 M00S02676.o26 +++| LDD AB CHECK ASSEMBLY
03475 M00S02677.o26 +++| ZJN SFN2 IF NO FILE NAME ASSEMBLED RETURN
03476 M00S02678.o26 +++| LDN 1 SET STATUS
03477 M00S02679.o26 +++| STD AB+4
03478 M00S02680.o26 +++| RJM SFS
03479 M00S02681.o26 +++| SFN2 LDN 0 CLEAR CONSOLE MESSAGE
03480 M00S02682.o26 +++| STD CM
03481 M00S02683.o26 +++| LDD CP
03482 M00S02684.o26 +++| ADN MS1W
03483 M00S02685.o26 +++| CWD CM
03484 M00S02686.o26 +++| ADN MS2W-MS1W
03485 M00S02687.o26 +++| CWD CM
03486 M00S02688.o26 +++| UJN SFNX RETURN
03487 M00S02689.o26 +++| SFS SPACE 4,20
03488 M00S02690.o26 +++|** SFS - SET FILE STATUS.
03489 M00S02691.o26 +++|*
03490 M00S02692.o26 +++|* ENTRY (AB - AB+4) = FILE NAME.
03491 M00S02693.o26 +++|*
03492 M00S02694.o26 +++|* EXIT (SFSA) = NONZERO, TO CHECK RANDOM ADDRESS.
03493 M00S02695.o26 +++|*
03494 M00S02696.o26 +++|* USES T1, T2, CM - CM+4.
03495 M00S02697.o26 +++|
03496 M00S02698.o26 +++|
03497 M00S02699.o26 +++| SFS SUBR ENTRY/EXIT
03498 M00S02700.o26 +++| LDN 0
03499 M00S02701.o26 +++| STM CRSB CLEAR WRITE LOCKOUT
| Line S00010 Modification History |
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03500 M01S00010.ns2735 +++| LDN 1
03501 M01S00011.ns2735 +++| STM CIOA INITIALIZE TO NON TERMINAL TYPE
03502 M00S02702.o26 +++| LDD CP READ FIELD LENGTH STATUS WORD
03503 M00S02703.o26 +++| ADN FLSW
03504 M00S02704.o26 +++| CRD CM
03505 M00S02705.o26 +++| LDD CM SET END OF NFL
03506 M00S02706.o26 +++| SHN 6
03507 M00S02707.o26 +++| ADN 1
03508 M00S02708.o26 +++| STD T1
03509 M00S02709.o26 +++| LDC FNTN START OF FNT
03510 M00S02710.o26 +++| STD T2
03511 M00S02711.o26 +++| SFS1 LDN LENF ADVANCE FNT ADDRESS
03512 M00S02712.o26 +++| RAD T2
03513 M00S02713.o26 +++| SBD T1
| Line S02714 Modification History |
M01 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03514 M01S02714.ns2735 ---| PJN SFS2 IF END OF FILES
| Line S00012 Modification History |
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03515 M01S00012.ns2735 +++| PJP SFS2 IF END OF FILES
03516 M00S02715.o26 +++| NFA T2,R READ FNT ENTRY
03517 M00S02716.o26 +++| CRD CM
03518 M00S02717.o26 +++| LDD CM
03519 M00S02718.o26 +++| ZJN SFS1 IF BLANK ENTRY
03520 M00S02719.o26 +++| LMD AB COMPARE FILE NAMES
03521 M00S02720.o26 +++| NJN SFS1 IF NO COMPARE ON BYTE 0
03522 M00S02721.o26 +++| LDD CM+1
03523 M00S02722.o26 +++| LMD AB+1
03524 M00S02723.o26 +++| NJN SFS1 IF NO COMPARE ON BYTE 1
03525 M00S02724.o26 +++| LDD CM+2
03526 M00S02725.o26 +++| LMD AB+2
03527 M00S02726.o26 +++| NJN SFS1 IF NO COMPARE ON BYTE 2
03528 M00S02727.o26 +++| LDD CM+3
03529 M00S02728.o26 +++| LMD AB+3
03530 M00S02729.o26 +++| SCN 77
03531 M00S02730.o26 +++| NJN SFS1 IF NO COMPARE ON BYTE 3
03532 M00S02731.o26 +++| LDD CM+3
03533 M00S02732.o26 +++| LPN 1
03534 M00S02733.o26 +++| STM CRSB SET WRITE LOCKOUT STATUS
03535 M00S02734.o26 +++| NFA T2,R READ FST INFORMATION
03536 M00S02735.o26 +++| ADN FSTL READ FST ENTRY
03537 M00S02736.o26 +++| CRD CM
| Line S00013 Modification History |
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03538 M01S00013.ns2735 +++| LDD CM GET EQUIPMENT TYPE
03539 M01S00014.ns2735 +++| SBK TTEQ CHECK FOR TERMINAL TYPE PSEUDO EQUIPMENT
03540 M01S00015.ns2735 +++| STM CIOA SET TO 0 IF TERMINAL TYPE
03541 M00S02737.o26 +++| LDD CM+4 SET LAST BUFFER STATUS
03542 M00S02738.o26 +++| STD AB+4
03543 M00S02739.o26 +++| SFS2 LDD RA STORE FILE NAME
03544 M00S02740.o26 +++| SHN 6
03545 M00S02741.o26 +++| ADN FET
03546 M00S02742.o26 +++| CWD AB
03547 M00S02743.o26 +++| ADN 1 SET RANDOM ACCESS BIT
03548 M00S02744.o26 +++| CRD CM
03549 M00S02745.o26 +++| LDD CM+1
03550 M00S02746.o26 +++| LPC 3777
03551 M00S02747.o26 +++| LMC 4000
03552 M00S02748.o26 +++| STD CM+1
03553 M00S02749.o26 +++| STM SFSA SET RANDOM ADDRESS FLAG
03554 M00S02750.o26 +++| LDD RA
03555 M00S02751.o26 +++| SHN 6
03556 M00S02752.o26 +++| ADN FET+1
03557 M00S02753.o26 +++| CWD CM
03558 M00S02754.o26 +++| LJM SFSX RETURN
03559 M00S02755.o26 +++|
03560 M00S02756.o26 +++| SFSA CON 0 RANDOM ADDRESS FLAG
03561 M00S02757.o26 +++| SIL SPACE 4,20
03562 M00S02758.o26 +++|** SIL - SET INSERT LINE.
03563 M00S02759.o26 +++|*
03564 M00S02760.o26 +++|* ENTRY (A) = INCREMENT FROM CURRENT POSITION.
03565 M00S02761.o26 +++|*
03566 M00S02762.o26 +++|* USES T1, T2, T3.
03567 M00S02763.o26 +++|*
03568 M00S02764.o26 +++|* CALLS SDS, SFL.
03569 M00S02765.o26 +++|
03570 M00S02766.o26 +++|
03571 M00S02767.o26 +++| SIL SUBR ENTRY/EXIT
03572 M00S02768.o26 +++| ZJN SIL1 IF NO CHANGE
03573 M00S02769.o26 +++| ADN 1
03574 M00S02770.o26 +++| STD T1
03575 M00S02771.o26 +++| LDD IP SEARCH FOR INSERT
03576 M00S02772.o26 +++| STD T2
03577 M00S02773.o26 +++| LDD IP+1
03578 M00S02774.o26 +++| STD T3
03579 M00S02775.o26 +++| LDD T1 SEARCH FOR LINE
03580 M00S02776.o26 +++| SBN 1
03581 M00S02777.o26 +++| RJM SFL
03582 M00S02778.o26 +++| LDD T2 SET LINE ADDRESS
03583 M00S02779.o26 +++| STD IP
03584 M00S02780.o26 +++| LDD T3
03585 M00S02781.o26 +++| STD IP+1
03586 M00S02782.o26 +++| SIL1 LDN 1 SET INSERT FLAG
| Line S00630 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03587 M01S00630.241l630 +++| STD DR
03588 M00S02783.o26 +++| STD IF
03589 M00S02784.o26 +++| LDN IP SET DISPLAY
03590 M00S02785.o26 +++| RJM SDS
03591 M00S02786.o26 +++| UJN SILX RETURN
03592 M00S02787.o26 +++| SIP SPACE 4,15
03593 M00S02788.o26 +++|** SIP - SET IN POINTER.
03594 M00S02789.o26 +++|*
03595 M00S02790.o26 +++|* USES CM - CM+4.
03596 M00S02791.o26 +++|
03597 M00S02792.o26 +++|
03598 M00S02793.o26 +++| SIP SUBR ENTRY/EXIT
03599 M00S02794.o26 +++| LDN ZERL STORE IN
03600 M00S02795.o26 +++| CRD CM
03601 M00S02796.o26 +++| LDD IN
03602 M00S02797.o26 +++| STD CM+3
03603 M00S02798.o26 +++| LDD IN+1
03604 M00S02799.o26 +++| STD CM+4
03605 M00S02800.o26 +++| LDD RA
03606 M00S02801.o26 +++| SHN 6
03607 M00S02802.o26 +++| ADN FET+2
03608 M00S02803.o26 +++| CWD CM
03609 M00S02804.o26 +++| UJN SIPX RETURN
03610 M00S02805.o26 +++| WRW SPACE 4,10
03611 M00S02806.o26 +++|** WRW - WRITE AND REWIND FILE.
03612 M00S02807.o26 +++|*
03613 M00S02808.o26 +++|* CALLS CIO, CRS, SIP.
03614 M00S02809.o26 +++|
03615 M00S02810.o26 +++|
03616 M00S02811.o26 +++| WRW SUBR ENTRY/EXIT
03617 M00S02812.o26 +++| RJM CRS CHECK RECORD STATUS
03618 M00S02813.o26 +++| RJM SIP STORE IN POINTER
03619 M00S02814.o26 +++| LDN 26 WRITE END OF RECORD
03620 M00S02815.o26 +++| RJM CIO
03621 M00S02816.o26 +++| LDN 52 REWIND
03622 M00S02817.o26 +++| RJM CIO
03623 M00S02818.o26 +++| UJN WRWX RETURN
03624 M00S02819.o26 +++| TABLE SPACE 4,10
03625 M00S02820.o26 +++|** RESIDENT TABLES AND BUFFERS.
03626 M00S02821.o26 +++|
03627 M00S02822.o26 +++|
03628 M00S02823.o26 +++| TSCN BSSZ 10 SCAN TABLE
03629 M00S02824.o26 +++|
03630 M00S02825.o26 +++| SFRA DATA H*SEARCH / *
03631 M00S02826.o26 +++| SFRB BSS 5
03632 M00S02827.o26 +++| TITLE RESIDENT ENTRY PROCESSORS.
03633 M00S02828.o26 +++| O26 SPACE 4
03634 M00S02829.o26 +++| QUAL O26
03635 M00S02830.o26 +++| DIS. SPACE 4,15
03636 M00S02831.o26 +++|*** DIS.
03637 M00S02832.o26 +++|*
03638 M00S02833.o26 +++|* WRITE AND REWIND FILE AND CALL DIS TO CONTROL POINT.
03639 M00S02834.o26 +++|
03640 M00S02835.o26 +++|
03641 M00S02836.o26 +++| DIS ENTRY
03642 M00S02837.o26 +++| RJM WRW WRITE AND REWIND FILE
| Line S02838 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03643 M01S02838.ns22000 ---| DIS1 LDM /COMDDSP/DDSA SET EQUIPMENT NUMBER IN IR
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03644 M02S00001.241l630 ---| DIS1 LDM /COMDDSP/DDSA SET EST ORDINAL IN IR
| Line S00631 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03645 M01S00631.241l630 +++| DIS1 LDN DSEQ SET EST ORDINAL IN INPUT REGISTER
| Line S00016 Modification History |
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03646 M01S00016.ns2735 +++| LMC 4000 FORCE DIRECT CALL
03647 M00S02839.o26 +++| STD IR+4
03648 M00S02840.o26 +++| RJM DDS DROP DISPLAY
03649 M00S02841.o26 +++| RJM WIO WAIT I/O
03650 M00S02842.o26 +++| DIS2 LDC 2RDI SET *DIS* IN INPUT REGISTER
03651 M00S02843.o26 +++| STD IR
03652 M00S02844.o26 +++| LCN 1R6-1RS
03653 M00S02845.o26 +++| SHN 6
03654 M00S02846.o26 +++| RAD IR+1
03655 M00S02847.o26 +++| LDD IA WRITE INPUT REGISTER FOR *DIS*
03656 M00S02848.o26 +++| CWD IR
03657 M00S02849.o26 +++| LJM PPR EXIT TO PP RESIDENT
03658 M00S02850.o26 +++| DROP. SPACE 4,10
03659 M00S02851.o26 +++|*** DROP.
03660 M00S02852.o26 +++|*
03661 M00S02853.o26 +++|* WRITE AND REWIND FILE AND DROP DISPLAY.
03662 M00S02854.o26 +++|
03663 M00S02855.o26 +++|
03664 M00S02856.o26 +++| DRP ENTRY
03665 M00S02857.o26 +++| RJM WRW WRITE AND REWIND FILE
03666 M00S02858.o26 +++| DRP1 RJM DDS DROP DISPLAY
03667 M00S02859.o26 +++| RJM WIO WAIT I/O
| Line S02860 Modification History |
M01 (Removed by) | o2612 |
Seq # *Modification Id* Act
----------------------------+
03668 M01S02860.o2612 ---| LDN ZERL
03669 M01S02861.o2612 ---| CRD CM
03670 M01S02862.o2612 ---| LDN 10 SET MASK FOR *JCIW*
03671 M01S02863.o2612 ---| STD CM+4
03672 M01S02864.o2612 ---| LDN CCTS CLEAR *DIS* FLAG
03673 M01S02865.o2612 ---| STD CM+1
03674 M01S02866.o2612 ---| MONITOR SJCM
03675 M00S02867.o26 +++| LJM DPP DROP PP
| Line S02868 Modification History |
M01 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03676 M01S02868.ns2735 ---| ERR. SPACE 4,10
03677 M01S02869.ns2735 ---|*** ERR.
03678 M01S02870.ns2735 ---|*
03679 M01S02871.ns2735 ---|* SET ERROR FLAG.
03680 M01S02872.ns2735 ---|
03681 M01S02873.ns2735 ---|
03682 M01S02874.ns2735 ---| SEF ENTRY
03683 M01S02875.ns2735 ---| LDN ZERL
03684 M01S02876.ns2735 ---| CRD CM
03685 M01S02877.ns2735 ---| LDN PPET SET ERROR FLAG = PP ABORT
03686 M01S02878.ns2735 ---| STD CM+1
03687 M01S02879.ns2735 ---| MONITOR CEFM
03688 M01S02880.ns2735 ---| JMP RET RETURN
03689 M00S02881.o26 +++| XDIS. SPACE 4,8
03690 M00S02882.o26 +++|*** XDIS.
03691 M00S02883.o26 +++|*
03692 M00S02884.o26 +++|* CALL DIS TO CONTROL POINT ONLY. (NO WRITE)
03693 M00S02885.o26 +++|
03694 M00S02886.o26 +++|
03695 M00S02887.o26 +++| XDS ENTRY DIS1
03696 M00S02888.o26 +++| XDROP. SPACE 4,8
03697 M00S02889.o26 +++|*** XDROP.
03698 M00S02890.o26 +++|*
03699 M00S02891.o26 +++|* DROP DISPLAY ONLY. (NO WRITE)
03700 M00S02892.o26 +++|
03701 M00S02893.o26 +++|
03702 M00S02894.o26 +++| XDD ENTRY DRP1
| Line S02895 Modification History |
M01 (Removed by) | o2612 |
Seq # *Modification Id* Act
----------------------------+
03703 M01S02895.o2612 ---| GO. SPACE 4,10
| Line S02896 Modification History |
M01 (Removed by) | o2612 |
M02 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03704 M02S02896.ns2735 ---| HOLD. SPACE 4,8
| Line S00023 Modification History |
M01 (Added by) | o2612 |
M02 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03705 M02S00023.ns2735 ---| HOLD. SPACE 4,10
| Line S02897 Modification History |
M01 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03706 M01S02897.ns2735 ---|*** HOLD.
03707 M01S02898.ns2735 ---|*
03708 M01S02899.ns2735 ---|* DROP DISPLAY AND WAIT FOR OPERATOR ASSIGNMENT.
03709 M01S02900.ns2735 ---|
03710 M01S02901.ns2735 ---|
03711 M01S02902.ns2735 ---| HOL ENTRY
03712 M01S02903.ns2735 ---| RJM DDS DROP DISPLAY
| Line S02904 Modification History |
M01 (Removed by) | 241l630 |
M02 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03713 M02S02904.ns2735 ---| RJM RDS REQUEST DISPLAY
| Line S00632 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03714 M02S00632.ns2735 ---| LDK RDSOS REQUEST DISPLAY
03715 M02S00633.ns2735 ---| RJM RID
| Line S02905 Modification History |
M01 (Removed by) | ns2155 |
M02 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03716 M02S02905.ns2735 ---| RJM MDC MODIFY CHANNELS
| Line S02906 Modification History |
M01 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03717 M01S02906.ns2735 ---| JMP RET RETURN
03718 M00S02907.o26 +++| TER SPACE 4,20
03719 M00S02908.o26 +++|* TERMINATE RESIDENT ROUTINES.
03720 M00S02909.o26 +++|
03721 M00S02910.o26 +++|
03722 M00S02911.o26 +++| QUAL
03723 M00S02912.o26 +++| HERE
03724 M00S02913.o26 +++| DIS HERE
03725 M00S02914.o26 +++| USE END
03726 M00S02915.o26 +++| OVL SPACE 4
03727 M00S02916.o26 +++|** OVERLAY AREA.
03728 M00S02917.o26 +++|
03729 M00S02918.o26 +++|
03730 M00S02919.o26 +++| OVL EQU *+5
03731 M00S02920.o26 +++| TITLE PRESET PROGRAM.
03732 M00S02921.o26 +++| PRS SPACE 4
03733 M00S02922.o26 +++|** TTAB - TAB TABLE.
03734 M00S02923.o26 +++|* ENTRY = COLUMN NUMBER.
03735 M00S02924.o26 +++|
03736 M00S02925.o26 +++|
| Line S02926 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03737 M01S02926.241l630 ---| ORG OVL
03738 M01S02927.241l630 ---|
03739 M00S02928.o26 +++| TTAB BSS 0
03740 M00S02929.o26 +++| DATA 11D
03741 M00S02930.o26 +++| DATA 18D
03742 M00S02931.o26 +++| DATA 30D
03743 M00S02932.o26 +++| CON 40D
03744 M00S02933.o26 +++| CON 50D
03745 M00S02934.o26 +++| CON 60D
03746 M00S02935.o26 +++| CON 73D
03747 M00S02936.o26 +++| DATA 80D
03748 M00S02937.o26 +++| DATA 0 END OF TABLE
03749 M00S02938.o26 +++| PRS SPACE 4,20
03750 M00S02939.o26 +++|** PRS - PRESET PROGRAM.
03751 M00S02940.o26 +++|*
03752 M00S02941.o26 +++|* EXIT (NC) = NUMBER OF CP-S.
03753 M00S02942.o26 +++|
03754 M00S02943.o26 +++|
03755 M00S02944.o26 +++| PRS5 LDN 0 CLEAR KEYBOARD AND TAB BUFFERS
03756 M00S02945.o26 +++| STD T1
03757 M00S02946.o26 +++| PRS6 LDN 1R BLANK FILL BUFFERS
03758 M00S02947.o26 +++| STM DBUF,T1
| Line S02948 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03759 M01S02948.241l630 ---| STM KBUF,T1
03760 M00S02949.o26 +++| STM BUFM,T1
03761 M00S02950.o26 +++| STM BUF,T1
03762 M00S02951.o26 +++| AOD T1
03763 M00S02952.o26 +++| LMC KBUFL
03764 M00S02953.o26 +++| NJN PRS6 IF NOT COMPLETLY FILLED
03765 M00S02954.o26 +++| STD T1
03766 M00S02955.o26 +++| LDC TTAB SET TAB TABLE ADDRESS
03767 M00S02956.o26 +++| STD T2
03768 M00S02957.o26 +++| PRS7 LDI T2
03769 M00S02958.o26 +++| ZJN PRS8 IF END OF TABLE
03770 M00S02959.o26 +++| STD T3
03771 M00S02960.o26 +++| LDC 6000 STORE TAB
03772 M00S02961.o26 +++| RAM DBUF+1,T3
03773 M00S02962.o26 +++| AOD T2
03774 M00S02963.o26 +++| UJN PRS7 CHECK FOR END OF TABLE
03775 M00S02964.o26 +++|
03776 M00S02965.o26 +++| PRS8 LDN ZERL CLEAR (RA - RA+FET-1)
03777 M00S02966.o26 +++| CRD CM
03778 M00S02967.o26 +++| PRS9 LDD RA
03779 M00S02968.o26 +++| SHN 6
03780 M00S02969.o26 +++| ADD T1
03781 M00S02970.o26 +++| CWD CM
03782 M00S02971.o26 +++| AOD T1
03783 M00S02972.o26 +++| LMN FET
03784 M00S02973.o26 +++| NJN PRS9 IF NOT COMPLETE
| Line S02974 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03785 M01S02974.241l630 ---| LDN NCPL SAVE NUMBER OF CP-S
03786 M01S02975.241l630 ---| CRD CM
03787 M01S02976.241l630 ---| AOD CM+1
03788 M01S02977.241l630 ---| STD NC
| Line S00634 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03789 M01S00634.241l630 +++| LDC SCT
03790 M01S00635.241l630 +++| LJM LOV LOAD COMMAND TABLE
| Line S02978 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03791 M01S02978.v23l617 ---| UJN PRSX RETURN
03792 M01S02979.v23l617 ---|
03793 M01S02980.v23l617 ---| PRS10 LDC PRSF * ILLEGAL CONTROL CARD.*
03794 M01S02981.v23l617 ---| RJM DFM
| Line S00001 Modification History |
M01 (Added by) | o264 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03795 M02S00001.v23l617 ---| LDN 10 CLEAR *DIS* FLAG
03796 M02S00002.v23l617 ---| STD CM+4
03797 M02S00003.v23l617 ---| LDN CCTS
03798 M02S00004.v23l617 ---| STD CM+1
03799 M02S00005.v23l617 ---| MONITOR SJCM
| Line S02982 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03800 M01S02982.v23l617 ---| MONITOR ABTM
03801 M01S02983.v23l617 ---| LJM PPR EXIT TO PP RESIDENT
03802 M00S02984.o26 +++|
| Line S02985 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03803 M01S02985.241l630 ---| PRS SUBR ENTRY/EXIT
03804 M01S02986.241l630 ---| USE PRS
| Line S02987 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03805 M02S02987.241l630 ---| RJM CUA CHECK USER ACCESS
03806 M02S02988.241l630 ---| NJN PRS10 IF ILLEGAL USER ACCESS
| Line S00001 Modification History |
M01 (Added by) | ns2107 |
M02 (Removed by) | v23l617 |
M03 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03807 M03S00001.241l630 ---| LDN 0
| Line S00008 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03808 M02S00008.241l630 ---| LDN 10
| Line S00636 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03809 M01S00636.241l630 +++| USE PRS
03810 M01S00637.241l630 +++| PRS LDN 10
| Line S00009 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03811 M01S00009.v23l617 +++| STD CM+4
03812 M01S00010.v23l617 +++| LDN CCTS CLEAR *DIS* FLAG
03813 M01S00011.v23l617 +++| STD CM+1
03814 M01S00012.v23l617 +++| MONITOR SJCM
| Line S00017 Modification History |
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03815 M01S00017.ns2735 +++| LDD IR+4
03816 M01S00018.ns2735 +++| SHN 21-13
03817 M01S00019.ns2735 +++| MJN PRS0 IF DIRECT CALL
| Line S00013 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03818 M02S00013.241l630 ---| CATD CHECK ACCESS TO DISPLAY CONSOLE
| Line S00638 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03819 M01S00638.241l630 +++| CATD VU CHECK ACCESS TO DISPLAY CONSOLE
| Line S00014 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03820 M02S00014.ns2735 ---|* LDN 0
| Line S00020 Modification History |
M01 (Added by) | ns2735 |
Seq # *Modification Id* Act
----------------------------+
03821 M01S00020.ns2735 +++| PRS0 LDN 0
| Line S00002 Modification History |
M01 (Added by) | ns2107 |
Seq # *Modification Id* Act
----------------------------+
03822 M01S00002.ns2107 +++| STD CM+1
03823 M00S02989.o26 +++| MONITOR DCPM DROP CPU
| Line S00639 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03824 M01S00639.241l630 +++|* LDN 0
03825 M01S00640.241l630 +++| STD T7
03826 M00S02990.o26 +++| LDD FL CHECK FIELD LENGTH
03827 M00S02991.o26 +++| SBN 2
03828 M00S02992.o26 +++| PJN PRS1 IF FIELD LENGTH \ 200
03829 M00S02993.o26 +++| LJM /O26/DIS2 LOAD *DIS*
03830 M00S02994.o26 +++|
| Line S02995 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03831 M01S02995.241l630 ---| PRS1 LDN 40 SET CONSTANT 40
03832 M01S02996.241l630 ---| STD FR
03833 M01S02997.241l630 ---| LDC OVL SET LOAD ADDRESS
03834 M01S02998.241l630 ---| STD LA
03835 M01S02999.241l630 ---| LDC PRO SET ROLLOUT PROCESSOR ADDRESS
03836 M01S03000.241l630 ---| STM /COMDDSP/ROFA
03837 M01S03001.241l630 ---| LDC 6000 SET X-COORDINATE
03838 M01S03002.241l630 ---| STD XC
03839 M01S03003.241l630 ---| LDN 0 CLEAR I/O BUSY FLAG
03840 M01S03004.241l630 ---| STD IO
03841 M01S03005.241l630 ---| STD KM CLEAR KEYBOARD MESSAGE
03842 M01S03006.241l630 ---| STD KI CLEAR KEYBOARD INDEX
03843 M01S03007.241l630 ---| STD T1
03844 M01S03008.241l630 ---| STM MSD CLEAR MASS STORAGE DESIGNATOR
03845 M01S03009.241l630 ---| PRS2 LDM PRSA,T1 MOVE PROGRAM TO PP RESIDENT
03846 M01S03010.241l630 ---| STM MSFW,T1
03847 M01S03011.241l630 ---| AOD T1
| Line S00641 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03848 M01S00641.241l630 +++| PRS1 LDC PRO SET ROLLOUT PROCESSOR ADDRESS
03849 M01S00642.241l630 +++| STM /COMDDSP/ROFA
03850 M01S00643.241l630 +++| LDC CH01 SET X-COORDINATE
03851 M01S00644.241l630 +++| STD XC
03852 M01S00645.241l630 +++| LDN DSEQ
03853 M01S00646.241l630 +++| SFA EST
| Line S00647 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03854 M02S00647.252l678 ---| ADK EQDE FETCH EST ENTRY FOR DISPLAY
| Line S00001 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03855 M01S00001.252l678 +++| ADK EQAE
| Line S00648 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03856 M01S00648.241l630 +++| CRD AB
03857 M01S00649.241l630 +++| LDD AB+2
03858 M01S00650.241l630 +++| ZJN PRS2 IF CC545
03859 M01S00651.241l630 +++| MDIN
03860 M01S00652.241l630 +++| PRS2 LDM PRSA,T7 MOVE SUBROUTINES TO DRIVER AREA
03861 M01S00653.241l630 +++| STM MSFW,T7
03862 M01S00654.241l630 +++| AOD T7
03863 M00S03012.o26 +++| LMC PRSAL
03864 M00S03013.o26 +++| NJN PRS2 IF PROGRAM NOT COMPLETLY MOVED
| Line S03014 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03865 M01S03014.241l630 ---| LDN ZERL
03866 M01S03015.241l630 ---| CRD CM CLEAR CONTROL POINT MESSAGES
03867 M01S03016.241l630 ---| LDD CP
| Line S00655 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03868 M01S00655.241l630 +++| STD CM+1
03869 M01S00656.241l630 +++| STD KM CLEAR DIRECT CELLS
03870 M01S00657.241l630 +++| STD KI
03871 M01S00658.241l630 +++| STM MSD CLEAR MS DRIVER PRESENT
03872 M01S00659.241l630 +++| STD IO
03873 M01S00660.241l630 +++| LDD CP CLEAR CONTROL POINT MESSAGES
03874 M00S03017.o26 +++| ADN MS1W
03875 M00S03018.o26 +++| CWD CM
03876 M00S03019.o26 +++| ADN MS2W-MS1W
03877 M00S03020.o26 +++| CWD CM
03878 M00S03021.o26 +++| ADN DBAW-MS2W CLEAR K-DISPLAY ADDRESS POINTERS
03879 M00S03022.o26 +++| CWD CM
| Line S03023 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03880 M01S03023.v23l617 ---| LDD CP READ JOB CONTROL
03881 M01S03024.v23l617 ---| ADN JCIW
03882 M01S03025.v23l617 ---| CRD CM
03883 M01S03026.v23l617 ---| LDD CM+3
03884 M01S03027.v23l617 ---| LPC 1000
03885 M01S03028.v23l617 ---| NJN PRS2.1 IF *DIS* FLAG ALREADY SET
03886 M01S03029.v23l617 ---| LDN ZERL
03887 M01S03030.v23l617 ---| CRD CM
03888 M00S03031.o26 +++| LDN 10 SET MASK FOR *JCIW*
03889 M00S03032.o26 +++| STD CM+4
03890 M00S03033.o26 +++| LDN SCTS SET *DIS* FLAG IN CPA
03891 M00S03034.o26 +++| STD CM+1
03892 M00S03035.o26 +++| MONITOR SJCM
| Line S03036 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03893 M01S03036.v23l617 ---| PRS2.1 LDN 0 CLEAR UPPER CASE
| Line S00015 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03894 M01S00015.v23l617 +++|* LDN 0 CLEAR UPPER CASE
03895 M00S03037.o26 +++| STD UC
03896 M00S03038.o26 +++| STD IF CLEAR INSERT FLAG
03897 M00S03039.o26 +++| STD HF CLEAR HOLD FLAG
03898 M00S03040.o26 +++| STD SF CLEAR SCAN FLAG
03899 M00S03041.o26 +++| STD SI CLEAR SCAN INDEX
03900 M00S03042.o26 +++| STD SC CLEAR SCAN NUMBER
03901 M00S03043.o26 +++| STD T1 CLEAR FET
03902 M00S03044.o26 +++| LDD IR+2 STORE UPPER CASE CHARACTER
03903 M00S03045.o26 +++| SHN 14
03904 M00S03046.o26 +++| RAM KBIC
03905 M00S03047.o26 +++| LDN ZERL CLEAR RA - CBUF
03906 M00S03048.o26 +++| CRD CM
03907 M00S03049.o26 +++| PRS3 LDD RA CLEAR RA - CBUF
03908 M00S03050.o26 +++| SHN 6
03909 M00S03051.o26 +++| ADN FET
03910 M00S03052.o26 +++| ADD T1
03911 M00S03053.o26 +++| CWD CM
03912 M00S03054.o26 +++| AOD T1
03913 M00S03055.o26 +++| LMC CBUF
03914 M00S03056.o26 +++| NJN PRS3 IF NOT COMPLETE
03915 M00S03057.o26 +++| STD FT SET IN = OUT = FIRST
03916 M00S03058.o26 +++| STD IN
03917 M00S03059.o26 +++| STD OT
03918 M00S03060.o26 +++| LDC CBUF
03919 M00S03061.o26 +++| STD FT+1
03920 M00S03062.o26 +++| STD IN+1
03921 M00S03063.o26 +++| STD OT+1
03922 M00S03064.o26 +++| LDD FL SET LIMIT
03923 M00S03065.o26 +++| SHN 6
03924 M00S03066.o26 +++| STD CM+4
03925 M00S03067.o26 +++| STD LM+1
03926 M00S03068.o26 +++| SHN -14
03927 M00S03069.o26 +++| STD CM+3
03928 M00S03070.o26 +++| STD LM
03929 M00S03071.o26 +++| LDD RA STORE BUFFER STATUS
03930 M00S03072.o26 +++| SHN 6
03931 M00S03073.o26 +++| ADN FET
03932 M00S03074.o26 +++| CWM PRSB,TR
03933 M00S03075.o26 +++| CWM PRSC,ON
03934 M00S03076.o26 +++| CWD CM
| Line S03077 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03935 M01S03077.241l630 ---| LDC PRSDL/5 STORE SYNTAX TABLE
03936 M01S03078.241l630 ---| STD T1
03937 M01S03079.241l630 ---| LDD RA
03938 M01S03080.241l630 ---| SHN 6
03939 M01S03081.241l630 ---| ADN SBUF
03940 M01S03082.241l630 ---| CWM PRSD,T1
03941 M00S03083.o26 +++|
03942 M00S03084.o26 +++|* COMMON ENTRY.
03943 M00S03085.o26 +++|
03944 M00S03086.o26 +++| LDN IPRL CHECK SYSTEM CHARACTER SET
| Line S03087 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03945 M01S03087.241l630 ---| CRD AB
03946 M01S03088.241l630 ---| LDD AB+2 CHECK FOR 64 CHARACTER SET SYSTEM
| Line S00661 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03947 M01S00661.241l630 +++| CRD CM
03948 M01S00662.241l630 +++| LDD CM+2
03949 M00S03089.o26 +++| LPN 1
03950 M00S03090.o26 +++| NJN PRS4 IF 64 CHARACTER SET
03951 M00S03091.o26 +++| STM KBIG DISABLE ENTRY OF ZERO CHARACTER
| Line S03092 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03952 M01S03092.241l630 ---| LDC PSNI MODIFY INSTRUCTIONS
03953 M01S03093.241l630 ---| STM DKSC
03954 M01S03094.241l630 ---| LDM PRSE
03955 M01S03095.241l630 ---| STM DKSB
| Line S00663 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03956 M01S00663.241l630 +++| LDN PSNI
03957 M01S00664.241l630 +++| STM DKSC
03958 M01S00665.241l630 +++| LDC *
03959 M01S00666.241l630 +++| ORG *-1
03960 M01S00667.241l630 +++| LOC DKSB
03961 M01S00668.241l630 +++| UJN DKS2 63 CHARACTER SET SYSTEM
03962 M01S00669.241l630 +++| LOC *O
03963 M01S00670.241l630 +++| STM DKSB
03964 M01S00671.241l630 +++| LDD AB+2
03965 M01S00672.241l630 +++| ZJN PRS4 IF CC545 SYSTEM CONSOLE
03966 M01S00673.241l630 +++| LDC SBNI+63-60
03967 M01S00674.241l630 +++| STM DKSD
03968 M00S03096.o26 +++| PRS4 LDD RA
03969 M00S03097.o26 +++| SHN 6
03970 M00S03098.o26 +++| ADN FET
03971 M00S03099.o26 +++| CRD AB
03972 M00S03100.o26 +++| RJM SFS SET FILE STATUS
| Line S03101 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03973 M01S03101.241l630 ---| RJM RDS REQUEST DISPLAY
| Line S00675 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03974 M01S00675.241l630 +++| LDK RDSOS REQUEST DISPLAY
03975 M01S00676.241l630 +++| RJM RID
| Line S03102 Modification History |
M01 (Removed by) | ns2155 |
Seq # *Modification Id* Act
----------------------------+
03976 M01S03102.ns2155 ---| RJM MDC MODIFY CHANNELS
03977 M00S03103.o26 +++| LJM PRS5 COMPLETE
03978 M00S03104.o26 +++|
03979 M00S03105.o26 +++| PRSB VFD 42/0LINPUT,18/1
03980 M00S03106.o26 +++|
03981 M00S03107.o26 +++| VFD 12/0,12/4000,12/,6/FETL-5,18/CBUF
03982 M00S03108.o26 +++|
03983 M00S03109.o26 +++| PRSC VFD 60/CBUF
| Line S03110 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
03984 M01S03110.241l630 ---| TSFM SPACE 4
03985 M01S03111.241l630 ---|** TSFM - TABLE OF SPECIAL FORMATS.
03986 M01S03112.241l630 ---|
03987 M01S03113.241l630 ---|
03988 M01S03114.241l630 ---| PRSD BSS 0
03989 M01S03115.241l630 ---| LOC SBUF
03990 M01S03116.241l630 ---| TSFM BSS 0
03991 M01S03117.241l630 ---| AMG ENTER (A.)
03992 M01S03118.241l630 ---| BKS ENTER (BKSP.)
03993 M01S03119.241l630 ---| BKP ENTER (BKSPRU.)
03994 M01S03120.241l630 ---| BKN ENTER (BKSPRU,)
03995 M01S03121.241l630 ---| CEL ENTER (C.)
03996 M01S03122.241l630 ---| MVE ENTER (COPY.)
03997 M01S03123.241l630 ---| DEL ENTER (D,*)
03998 M01S03124.241l630 ---| DMC ENTER (D.)
03999 M01S03125.241l630 ---| DLE ENTER (DEL.)
04000 M01S03126.241l630 ---| DIS ENTER (DIS.)
04001 M01S03127.241l630 ---| DSF ENTER (DFL.)
04002 M01S03128.241l630 ---| DSL ENTER (DLL.)
04003 M01S03129.241l630 ---| DRP ENTER (DROP.)
04004 M01S03130.241l630 ---| DSC ENTER (DS,)
04005 M01S03131.241l630 ---| EFL ENTER (ENFL.)
04006 M01S03132.241l630 ---| EFN ENTER (ENFL,)
04007 M01S03133.241l630 ---| SEF ENTER (ERR.)
04008 M01S03134.241l630 ---| MRL ENTER (E.)
04009 M01S03135.241l630 ---| SFM ENTER (F.)
04010 M01S03136.241l630 ---| FIL ENTER (FILE.)
04011 M01S03137.241l630 ---| GTR ENTER (GETR,)
04012 M01S03138.241l630 ---| GTR1 ENTER (GETR.)
04013 M01S03139.241l630 ---| GET ENTER (GET,)
04014 M01S03140.241l630 ---| GET1 ENTER (GET.)
04015 M01S03141.241l630 ---| GGO ENTER (GO.)
04016 M01S03142.241l630 ---| GTR ENTER (GTR,)
04017 M01S03143.241l630 ---| GTR1 ENTER (GTR.)
04018 M01S03144.241l630 ---| HOL ENTER (HOLD.)
04019 M01S03145.241l630 ---| IGN ENTER (IGNORE.)
04020 M01S03146.241l630 ---| MRL ENTER (L.)
04021 M01S03147.241l630 ---| LST ENTER (LIST,)
04022 M01S03148.241l630 ---| LST1 ENTER (LIST.)
04023 M01S03149.241l630 ---| MVE ENTER (MOVE.)
04024 M01S03150.241l630 ---| MRG ENTER (M.)
04025 M01S03151.241l630 ---| MRN ENTER (N.)
04026 M01S03152.241l630 ---| ELN ENTER (P.)
04027 M01S03153.241l630 ---| RPC ENTER (RC,)
04028 M01S03154.241l630 ---| REC ENTER (RC.)
04029 M01S03155.241l630 ---| RPS ENTER (RM)
04030 M01S03156.241l630 ---| RPS ENTER (RS)
04031 M01S03157.241l630 ---| RDI ENTER (READI.)
04032 M01S03158.241l630 ---| RDN ENTER (READN.)
04033 M01S03159.241l630 ---| RNS ENTER (READNS.)
04034 M01S03160.241l630 ---| RDF ENTER (READ.)
04035 M01S03161.241l630 ---| RTN ENTER (RETURN.)
04036 M01S03162.241l630 ---| REW ENTER (REWIND.)
04037 M01S03163.241l630 ---| RFR ENTER (RFR.)
04038 M01S03164.241l630 ---| RIC ENTER (RI.)
04039 M01S03165.241l630 ---| RLR ENTER (RLR.)
04040 M01S03166.241l630 ---| RNR ENTER (RNR.)
04041 M01S03167.241l630 ---| ROC ENTER (RO.)
04042 M01S03168.241l630 ---| RPR ENTER (RPR.)
04043 M01S03169.241l630 ---| RPN ENTER (R,)
04044 M01S03170.241l630 ---| RWR ENTER (RWRITE.)
04045 M01S03171.241l630 ---| SCN ENTER (SCAN,)
04046 M01S03172.241l630 ---| SML ENTER (S.)
04047 M01S03173.241l630 ---| SKP ENTER (SKIPEI.)
| Line S00010 Modification History |
M01 (Added by) | o263 |
M02 (Removed by) | o267 |
M03 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04048 M03S00010.241l630 ---| SPE ENTER (SP.)
| Line S03174 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04049 M01S03174.241l630 ---| TAB ENTER (TAB,)
04050 M01S03175.241l630 ---| UCC ENTER (UCC=)
04051 M01S03176.241l630 ---| UNL ENTER (UNLOAD.)
04052 M01S03177.241l630 ---| WRT ENTER (WRITE.)
04053 M01S03178.241l630 ---| WRF ENTER (WRITEF.)
04054 M01S03179.241l630 ---| WTW ENTER (WRITEW.)
04055 M01S03180.241l630 ---| XDS ENTER (XDIS.)
04056 M01S03181.241l630 ---| XDD ENTER (XDROP.)
04057 M01S03182.241l630 ---| VFD 60/ END OF TABLE
04058 M01S03183.241l630 ---|
04059 M01S03184.241l630 ---| LOC *O
04060 M01S03185.241l630 ---| PRSDL EQU *-PRSD
04061 M01S03186.241l630 ---| .1 SET PRSDL/5+SBUF+37
04062 M01S03187.241l630 ---| CBUF EQU .1/40*40
04063 M01S03188.241l630 ---|
04064 M01S03189.241l630 ---|
04065 M01S03190.241l630 ---| PRSE BSS 0
04066 M01S03191.241l630 ---| LOC DKSB
04067 M01S03192.241l630 ---| UJN DKS2 63 CHARACTER SET SYSTEM
04068 M01S03193.241l630 ---| LOC *O
| Line S03194 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04069 M01S03194.v23l617 ---|
04070 M01S03195.v23l617 ---| PRSF DATA C* ILLEGAL CONTROL CARD.*
04071 M01S03196.v23l617 ---|
04072 M01S03197.v23l617 ---|
| Line S00016 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04073 M01S00016.v23l617 +++| SPACE 4,10
04074 M00S03198.o26 +++|*CALL COMPCUA
| Line S00677 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04075 M01S00677.241l630 +++| SPACE 4,10
04076 M01S00678.241l630 +++|** DUMP INSTRUCTION MODIFICATION BLOCK.
04077 M01S00679.241l630 +++|
04078 M01S00680.241l630 +++|
04079 M01S00681.241l630 +++| USE LOV
04080 M01S00682.241l630 +++| DIMB
04081 M01S00683.241l630 +++| OVERFLOW
04082 M01S00684.241l630 +++| COMMAND (COMMAND TABLE.)
04083 M01S00685.241l630 +++| SCT SPACE 4,10
04084 M01S00686.241l630 +++|** SCT - STORE COMMAND TABLE.
04085 M01S00687.241l630 +++|*
04086 M01S00688.241l630 +++|* USES T1.
04087 M01S00689.241l630 +++|
04088 M01S00690.241l630 +++|
04089 M01S00691.241l630 +++| SCT ENTRY
| Line S00010 Modification History |
M01 (Added by) | o269 |
Seq # *Modification Id* Act
----------------------------+
04090 M01S00010.o269 +++| ISTORE INT,(LDN TSFM-1) SET TABLE ADDRESS
| Line S00692 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04091 M01S00692.241l630 +++| LDC TCMDL/5
04092 M01S00693.241l630 +++| STD T1
04093 M01S00694.241l630 +++| LDD RA STORE COMMAND TABLE
04094 M01S00695.241l630 +++| SHN 6
04095 M01S00696.241l630 +++| ADN SBUF
04096 M01S00697.241l630 +++| CWM TCMD,T1
04097 M01S00698.241l630 +++| JMP RET RETURN
04098 M01S00699.241l630 +++| TSFM SPACE 4,10
04099 M01S00700.241l630 +++|** TSFM - TABLE OF SPECIAL FORMATS.
04100 M01S00701.241l630 +++|
04101 M01S00702.241l630 +++|
04102 M01S00703.241l630 +++| QUAL
04103 M01S00704.241l630 +++| TCMD BSS 0
04104 M01S00705.241l630 +++| LOC SBUF
04105 M01S00706.241l630 +++| TSFM BSS 0
04106 M01S00707.241l630 +++| AMG ENTER (A.)
04107 M01S00708.241l630 +++| BKS ENTER (BKSP.)
04108 M01S00709.241l630 +++| BKP ENTER (BKSPRU.)
04109 M01S00710.241l630 +++| BKN ENTER (BKSPRU,)
04110 M01S00711.241l630 +++| CEL ENTER (C.)
04111 M01S00712.241l630 +++| MVE ENTER (COPY.)
04112 M01S00713.241l630 +++| DEL ENTER (D,*)
04113 M01S00714.241l630 +++| DMC ENTER (D.)
04114 M01S00715.241l630 +++| DLE ENTER (DEL.)
04115 M01S00716.241l630 +++| DIS ENTER (DIS.)
04116 M01S00717.241l630 +++| DSF ENTER (DFL.)
04117 M01S00718.241l630 +++| DSL ENTER (DLL.)
04118 M01S00719.241l630 +++| DRP ENTER (DROP.)
04119 M01S00720.241l630 +++| DSC ENTER (DS,)
04120 M01S00721.241l630 +++| EFL ENTER (ENFL.)
04121 M01S00722.241l630 +++| EFN ENTER (ENFL,)
04122 M01S00723.241l630 +++| SEF ENTER (ERR.)
04123 M01S00724.241l630 +++| MRL ENTER (E.)
04124 M01S00725.241l630 +++| SFM ENTER (F.)
04125 M01S00726.241l630 +++| FIL ENTER (FILE.)
04126 M01S00727.241l630 +++| GTR ENTER (GETR,)
04127 M01S00728.241l630 +++| GTR1 ENTER (GETR.)
04128 M01S00729.241l630 +++| GET ENTER (GET,)
04129 M01S00730.241l630 +++| GET1 ENTER (GET.)
04130 M01S00731.241l630 +++| GGO ENTER (GO.)
04131 M01S00732.241l630 +++| GTR ENTER (GTR,)
04132 M01S00733.241l630 +++| GTR1 ENTER (GTR.)
04133 M01S00734.241l630 +++| HOL ENTER (HOLD.)
04134 M01S00735.241l630 +++| IGN ENTER (IGNORE.)
04135 M01S00736.241l630 +++| MRL ENTER (L.)
04136 M01S00737.241l630 +++| LST ENTER (LIST,)
04137 M01S00738.241l630 +++| LST1 ENTER (LIST.)
04138 M01S00739.241l630 +++| MVE ENTER (MOVE.)
04139 M01S00740.241l630 +++| MRG ENTER (M.)
04140 M01S00741.241l630 +++| MRN ENTER (N.)
04141 M01S00742.241l630 +++| ELN ENTER (P.)
04142 M01S00743.241l630 +++| RPC ENTER (RC,)
04143 M01S00744.241l630 +++| REC ENTER (RC.)
04144 M01S00745.241l630 +++| RPS ENTER (RM)
04145 M01S00746.241l630 +++| RPS ENTER (RS)
04146 M01S00747.241l630 +++| RDI ENTER (READI.)
04147 M01S00748.241l630 +++| RDN ENTER (READN.)
04148 M01S00749.241l630 +++| RNS ENTER (READNS.)
04149 M01S00750.241l630 +++| RDF ENTER (READ.)
04150 M01S00751.241l630 +++| RTN ENTER (RETURN.)
04151 M01S00752.241l630 +++| REW ENTER (REWIND.)
04152 M01S00753.241l630 +++| RFR ENTER (RFR.)
04153 M01S00754.241l630 +++| RIC ENTER (RI.)
04154 M01S00755.241l630 +++| RLR ENTER (RLR.)
04155 M01S00756.241l630 +++| RNR ENTER (RNR.)
04156 M01S00757.241l630 +++| ROC ENTER (RO.)
04157 M01S00758.241l630 +++| RPR ENTER (RPR.)
04158 M01S00759.241l630 +++| RPN ENTER (R,)
04159 M01S00760.241l630 +++| RWR ENTER (RWRITE.)
04160 M01S00761.241l630 +++| SCN ENTER (SCAN,)
04161 M01S00762.241l630 +++| SML ENTER (S.)
04162 M01S00763.241l630 +++| SKP ENTER (SKIPEI.)
04163 M01S00764.241l630 +++| TAB ENTER (TAB,)
04164 M01S00765.241l630 +++| UCC ENTER (UCC=)
04165 M01S00766.241l630 +++| UNL ENTER (UNLOAD.)
04166 M01S00767.241l630 +++| WRT ENTER (WRITE.)
04167 M01S00768.241l630 +++| WRF ENTER (WRITEF.)
04168 M01S00769.241l630 +++| WTW ENTER (WRITEW.)
04169 M01S00770.241l630 +++| XDS ENTER (XDIS.)
04170 M01S00771.241l630 +++| XDD ENTER (XDROP.)
04171 M01S00772.241l630 +++| VFD 60/ END OF TABLE
04172 M01S00773.241l630 +++|
04173 M01S00774.241l630 +++| LOC *O
04174 M01S00775.241l630 +++| ECMDO EQU * END OF COMMAND OVERLAY
04175 M01S00776.241l630 +++| TCMDL EQU *-TCMD
04176 M01S00777.241l630 +++| .1 SET TCMDL/5+SBUF+37
04177 M01S00778.241l630 +++| CBUF EQU .1/40*40
04178 M00S03199.o26 +++| COMMAND (FILE COMMANDS.)
04179 M00S03200.o26 +++| BKSP. SPACE 4,10
04180 M00S03201.o26 +++|*** BKSP.CCCCCCC.
04181 M00S03202.o26 +++|*
04182 M00S03203.o26 +++|* BACKSPACE FILE *CCCCCCC*. IF *CCCCCCC* IS MISSING,
04183 M00S03204.o26 +++|* PREVIOUS FILE NAME WILL BE USED.
04184 M00S03205.o26 +++|
04185 M00S03206.o26 +++|
04186 M00S03207.o26 +++| BKS ENTRY
04187 M00S03208.o26 +++| LDN 42 BACKSPACE
| Line S03209 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04188 M01S03209.241l630 ---| JMP IOF RETURN
| Line S00779 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04189 M01S00779.241l630 +++|* UJN IOF ISSUE FUNCTION
04190 M01S00780.241l630 +++| IOF SPACE 4,10
04191 M01S00781.241l630 +++|** IOF - I/O FUNCTION PROCESSOR.
04192 M01S00782.241l630 +++|*
04193 M01S00783.241l630 +++|* ENTRY (A) - CIO FUNCTION TO ISSUE.
04194 M01S00784.241l630 +++|*
04195 M01S00785.241l630 +++|* EXIT TO *RET*.
04196 M01S00786.241l630 +++|*
04197 M01S00787.241l630 +++|* CALLS CIO.
04198 M01S00788.241l630 +++|
04199 M01S00789.241l630 +++|
04200 M01S00790.241l630 +++| IOF STD T6
04201 M01S00791.241l630 +++| RJM SFN SET FILE NAME
04202 M01S00792.241l630 +++| LDD T6
04203 M01S00793.241l630 +++| RJM CIO
04204 M01S00794.241l630 +++| JMP RET RETURN
04205 M00S03210.o26 +++| BKSPRU, SPACE 4,10
04206 M00S03211.o26 +++|*** BKSPRU,X.
04207 M00S03212.o26 +++|*
04208 M00S03213.o26 +++|* BACKSPACE CURRENT FILE *X* PHYSICAL RECORDS.
04209 M00S03214.o26 +++|
04210 M00S03215.o26 +++|
04211 M00S03216.o26 +++| BKN ENTRY
04212 M00S03217.o26 +++| RJM ADD ASSEMBLE DECIMAL DIGITS
04213 M00S03218.o26 +++| LMN 1R.
04214 M00S03219.o26 +++| ZJN BKN1 IF *.* NO ERROR
04215 M00S03220.o26 +++| LJM ERR FORMAT ERROR
04216 M00S03221.o26 +++|
04217 M00S03222.o26 +++| BKN1 LDD AB+4 STORE PRU COUNT
04218 M00S03223.o26 +++| STM TIOD
04219 M00S03224.o26 +++| LDN 46 BACKSPACE PRU
04220 M00S03225.o26 +++| STM TIOD+1
04221 M00S03226.o26 +++| LDN 5 SKIP RECORDS
04222 M00S03227.o26 +++| RJM CIO
04223 M00S03228.o26 +++| JMP RET RETURN
04224 M00S03229.o26 +++| BKSPRU. SPACE 4,10
04225 M00S03230.o26 +++|*** BKSPRU.CCCCCCC.
04226 M00S03231.o26 +++|*
04227 M00S03232.o26 +++|* BACKSPACE FILE *CCCCCCC* ONE PRU. IF *CCCCCCC*
04228 M00S03233.o26 +++|* IS MISSING, PREVIOUS FILE NAME WILL BE USED.
04229 M00S03234.o26 +++|
04230 M00S03235.o26 +++|
04231 M00S03236.o26 +++| BKP ENTRY
04232 M00S03237.o26 +++| LDN 46 BACKSPACE
04233 M00S03238.o26 +++| JMP IOF RETURN
04234 M00S03239.o26 +++| FILE. SPACE 4,10
04235 M00S03240.o26 +++|*** FILE.CCCCCCC.
04236 M00S03241.o26 +++|*
04237 M00S03242.o26 +++|* SET FILE NAME = *CCCCCCC*.
04238 M00S03243.o26 +++|
04239 M00S03244.o26 +++|
04240 M00S03245.o26 +++| FIL ENTRY
04241 M00S03246.o26 +++| RJM SFN SET FILE NAME
04242 M00S03247.o26 +++| JMP RET RETURN
04243 M00S03248.o26 +++| RC. SPACE 4,15
04244 M00S03249.o26 +++|*** RC.CCCCCCC.
04245 M00S03250.o26 +++|*
04246 M00S03251.o26 +++|* REWIND, READ, AND REWIND FILE *CCCCCCC*. IF
04247 M00S03252.o26 +++|* *CCCCCCC* IS MISSING, FILE *COMPILE* WILL BE
04248 M00S03253.o26 +++|* READ.
04249 M00S03254.o26 +++|
04250 M00S03255.o26 +++|
04251 M00S03256.o26 +++| REC ENTRY
04252 M00S03257.o26 +++| LDN 6 SET SCAN INDEX
04253 M00S03258.o26 +++| STM TSCN
04254 M00S03259.o26 +++| LDN 1 SET SCAN FLAG
04255 M00S03260.o26 +++| STD SF
04256 M00S03261.o26 +++| LDN 0 CLEAR SCAN INDEX
04257 M00S03262.o26 +++| STD SI
04258 M00S03263.o26 +++| STM TSCN+1
04259 M00S03264.o26 +++| LDC =C*COMPILE* SET FILE NAME
04260 M00S03265.o26 +++| LJM ROC1
04261 M00S03266.o26 +++| READ. SPACE 4,15
04262 M00S03267.o26 +++|*** READ.CCCCCCC.
04263 M00S03268.o26 +++|*
04264 M00S03269.o26 +++|* REWIND, READ, AND REWIND FILE *CCCCCCC*. IF
04265 M00S03270.o26 +++|* *CCCCCCC* IS MISSING, PREVIOUS FILE NAME WILL
04266 M00S03271.o26 +++|* BE USED.
04267 M00S03272.o26 +++|
04268 M00S03273.o26 +++|
04269 M00S03274.o26 +++| RDF ENTRY
04270 M00S03275.o26 +++| RJM SFN SET FILE NAME
04271 M00S03276.o26 +++| RDF1 LDN 50 REWIND
04272 M00S03277.o26 +++| RJM CIO
04273 M00S03278.o26 +++| LDN 12 READ
04274 M00S03279.o26 +++| RJM CIO
04275 M00S03280.o26 +++| LDN 1 DUMMY REQUEST
04276 M00S03281.o26 +++| RJM CIO
04277 M00S03282.o26 +++| LDN 50 REWIND
04278 M00S03283.o26 +++| RJM CIO
04279 M00S03284.o26 +++| LJM RNR3
04280 M00S03285.o26 +++| READI. SPACE 4,15
04281 M00S03286.o26 +++|*** READI.CCCCCCC.
04282 M00S03287.o26 +++|*
04283 M00S03288.o26 +++|* SKIP TO END OF INFORMATION, BKSP, BKSP, AND READ
04284 M00S03289.o26 +++|* FILE *CCCCCCC*. IF *CCCCCCC* IS MISSING,
04285 M00S03290.o26 +++|* PREVIOUS FILE NAME WILL BE USED.
04286 M00S03291.o26 +++|
04287 M00S03292.o26 +++|
04288 M00S03293.o26 +++| RDI ENTRY
04289 M00S03294.o26 +++| RJM SFN SET FILE NAME
04290 M00S03295.o26 +++| LDN 3 SKIP TO END OF INFORMATION
04291 M00S03296.o26 +++| RJM CIO
04292 M00S03297.o26 +++|
04293 M00S03298.o26 +++|* ENTRY FROM *RPR*.
04294 M00S03299.o26 +++|
04295 M00S03300.o26 +++| RDI1 LDC 20640 SKIP BACKWARDS 2 RECORDS
04296 M00S03301.o26 +++|
04297 M00S03302.o26 +++|* ENTRY FROM *RLR*.
04298 M00S03303.o26 +++|
04299 M00S03304.o26 +++| RDI2 STM TIOD+1
04300 M00S03305.o26 +++| SHN -14
04301 M00S03306.o26 +++| STM TIOD
04302 M00S03307.o26 +++| LDN 5 SKIP RECORDS
04303 M00S03308.o26 +++| RJM CIO
04304 M00S03309.o26 +++| LJM RNR1
04305 M00S03310.o26 +++| READN. SPACE 4,15
04306 M00S03311.o26 +++|*** READN.CCCCCCC.
04307 M00S03312.o26 +++|*
04308 M00S03313.o26 +++|* READ FILE *CCCCCCC*. NO REWIND. IF *CCCCCCC*
04309 M00S03314.o26 +++|* IS MISSING, PREVIOUS FILE WILL BE READ. STOPS ON
04310 M00S03315.o26 +++|* BUFFER FULL OR EOR.
04311 M00S03316.o26 +++|
04312 M00S03317.o26 +++|
04313 M00S03318.o26 +++| RDN ENTRY
04314 M00S03319.o26 +++| RJM SFN SET FILE NAME
04315 M00S03320.o26 +++| RJM SIP STORE IN POINTER
04316 M00S03321.o26 +++| LDN 12 READ
04317 M00S03322.o26 +++| RJM CIO
04318 M00S03323.o26 +++| LDN 1 DUMMY
04319 M00S03324.o26 +++| RJM CIO
04320 M00S03325.o26 +++| LJM RNR4
04321 M00S03326.o26 +++| READNS. SPACE 4,15
04322 M00S03327.o26 +++|*** READNS.CCCCCCC.
04323 M00S03328.o26 +++|*
04324 M00S03329.o26 +++|* READ FILE *CCCCCCC* NON-STOP. NO REWIND. IF
04325 M00S03330.o26 +++|* *CCCCCCC* IS MISSING, PREVIOUS FILE WILL BE READ.
04326 M00S03331.o26 +++|* STOPS ON BUFFER FULL OR EOF.
04327 M00S03332.o26 +++|
04328 M00S03333.o26 +++|
04329 M00S03334.o26 +++| RNS ENTRY
04330 M00S03335.o26 +++| RJM SFN SET FILE NAME
04331 M00S03336.o26 +++| RJM SIP STORE IN POINTER
04332 M00S03337.o26 +++| LDC 250 READ NON-STOP
04333 M00S03338.o26 +++| RJM CIO
04334 M00S03339.o26 +++| LDN 1 DUMMY
04335 M00S03340.o26 +++| RJM CIO
04336 M00S03341.o26 +++| LJM RNR4
04337 M00S03342.o26 +++| RETURN. SPACE 4,10
04338 M00S03343.o26 +++|*** RETURN.CCCCCCC.
04339 M00S03344.o26 +++|*
04340 M00S03345.o26 +++|* RETURN FILE CCCCCC. IF *CCCCCCC* IS MISSING,
04341 M00S03346.o26 +++|* PREVIOUS FILE NAME WILL BE USED.
04342 M00S03347.o26 +++|
04343 M00S03348.o26 +++|
04344 M00S03349.o26 +++| RTN ENTRY
| Line S00001 Modification History |
M01 (Added by) | o266 |
Seq # *Modification Id* Act
----------------------------+
04345 M01S00001.o266 +++| LDN 0 CLEAR WRITE LOCKOUT STATUS
04346 M01S00002.o266 +++| STM CRSB
04347 M00S03350.o26 +++| LDN 70 RETURN
04348 M00S03351.o26 +++| JMP IOF RETURN
04349 M00S03352.o26 +++| REWIND. SPACE 4,10
04350 M00S03353.o26 +++|*** REWIND.CCCCCCC.
04351 M00S03354.o26 +++|*
04352 M00S03355.o26 +++|* REWIND FILE CCCCCC. IF *CCCCCCC* IS MISSING,
04353 M00S03356.o26 +++|* PREVIOUS FILE NAME WILL BE USED.
04354 M00S03357.o26 +++|
04355 M00S03358.o26 +++|
04356 M00S03359.o26 +++| REW ENTRY
04357 M00S03360.o26 +++| LDN 50 REWIND
04358 M00S03361.o26 +++| JMP IOF RETURN
04359 M00S03362.o26 +++| RFR. SPACE 4,10
04360 M00S03363.o26 +++|*** RFR.CCCCCCC.
04361 M00S03364.o26 +++|*
04362 M00S03365.o26 +++|* REWIND AND READ FILE *CCCCCCC*. IF *CCCCCCC*
04363 M00S03366.o26 +++|* IS MISSING, PREVIOUS FILE NAME WILL BE USED.
04364 M00S03367.o26 +++|
04365 M00S03368.o26 +++|
04366 M00S03369.o26 +++| RFR ENTRY
04367 M00S03370.o26 +++| RJM SFN SET FILE NAME
04368 M00S03371.o26 +++| LDN 50 REWIND
04369 M00S03372.o26 +++| RJM CIO
04370 M00S03373.o26 +++| UJN RNR2
04371 M00S03374.o26 +++| RI. SPACE 4,10
04372 M00S03375.o26 +++|*** RI.CCCCCCC.
04373 M00S03376.o26 +++|*
04374 M00S03377.o26 +++|* REWIND, READ, AND REWIND FILE *CCCCCCC*. IF
04375 M00S03378.o26 +++|* *CCCCCCC* IS MISSING, FILE *INPUT* WILL BE
04376 M00S03379.o26 +++|* READ.
04377 M00S03380.o26 +++|
04378 M00S03381.o26 +++|
04379 M00S03382.o26 +++| RIC ENTRY
04380 M00S03383.o26 +++| LDC =C*INPUT* SET FILE NAME
04381 M00S03384.o26 +++| LJM ROC1
04382 M00S03385.o26 +++| RLR. SPACE 4,10
04383 M00S03386.o26 +++|*** RLR.CCCCCCC.
04384 M00S03387.o26 +++|*
04385 M00S03388.o26 +++|* READ LAST RECORD ON FILE *CCCCCCC*. IF *CCCCCCC*
04386 M00S03389.o26 +++|* IS MISSING, PREVIOUS FILE NAME WILL BE USED.
04387 M00S03390.o26 +++|
04388 M00S03391.o26 +++|
04389 M00S03392.o26 +++| RLR ENTRY
04390 M00S03393.o26 +++| RJM SFN SET FILE NAME
04391 M00S03394.o26 +++| LDN 3 SKIP TO END OF INFORMATION
04392 M00S03395.o26 +++| RJM CIO
04393 M00S03396.o26 +++| LDC 10640 SKIP BACKWARDS 1 RECORD
04394 M00S03397.o26 +++| LJM RDI2 CAUSE RECORD SKIP
04395 M00S03398.o26 +++| RNR. SPACE 4,20
04396 M00S03399.o26 +++|*** RNR.CCCCCCC.
04397 M00S03400.o26 +++|*
04398 M00S03401.o26 +++|* READ NEXT RECORD ON FILE *CCCCCCC*. IF *CCCCCCC*
04399 M00S03402.o26 +++|* IS MISSING, PREVIOUS FILE NAME WILL BE USED.
04400 M00S03403.o26 +++|
04401 M00S03404.o26 +++|
04402 M00S03405.o26 +++| RNR ENTRY
04403 M00S03406.o26 +++| RJM SFN SET FILE NAME
04404 M00S03407.o26 +++|
04405 M00S03408.o26 +++|* ENTRY FROM *RDI*.
04406 M00S03409.o26 +++|
04407 M00S03410.o26 +++| RNR1 LDD RA SET IN = OUT
04408 M00S03411.o26 +++| SHN 6
04409 M00S03412.o26 +++| ADN FET+3
04410 M00S03413.o26 +++| CRD CM
04411 M00S03414.o26 +++| SBN 1
04412 M00S03415.o26 +++| CWD CM
04413 M00S03416.o26 +++|
04414 M00S03417.o26 +++|* ENTRY FROM *RFR*.
04415 M00S03418.o26 +++|
04416 M00S03419.o26 +++| RNR2 LDN 12 READ
04417 M00S03420.o26 +++| RJM CIO
04418 M00S03421.o26 +++| LDN 1 DUMMY
04419 M00S03422.o26 +++| RJM CIO
04420 M00S03423.o26 +++|
04421 M00S03424.o26 +++|* ENTRY FROM *RDF*.
04422 M00S03425.o26 +++|
04423 M00S03426.o26 +++| RNR3 LDN 1 SET HOLD FLAG
04424 M00S03427.o26 +++| STD HF
04425 M00S03428.o26 +++| LDN FT SET DISPLAY = LINE 0
04426 M00S03429.o26 +++| RJM SDS
04427 M00S03430.o26 +++|
04428 M00S03431.o26 +++|* ENTRY FROM *RDN* AND *RNS*.
04429 M00S03432.o26 +++|
04430 M00S03433.o26 +++| RNR4 LDN 0 CLEAR SCAN
04431 M00S03434.o26 +++| STD SC
04432 M00S03435.o26 +++| STD SI
04433 M00S03436.o26 +++| JMP CIF CLEAR INSERT FLAG
04434 M00S03437.o26 +++| RO. SPACE 4,15
04435 M00S03438.o26 +++|*** RO.CCCCCCC.
04436 M00S03439.o26 +++|*
04437 M00S03440.o26 +++|* REWIND, READ, AND REWIND FILE *CCCCCCC*. IF
04438 M00S03441.o26 +++|* *CCCCCCC* IS MISSING, FILE *OUTPUT* WILL BE
04439 M00S03442.o26 +++|* READ.
04440 M00S03443.o26 +++|
04441 M00S03444.o26 +++|
04442 M00S03445.o26 +++| ROC ENTRY
04443 M00S03446.o26 +++| LDN 4 SET SCAN INDEX
04444 M00S03447.o26 +++| STM TSCN
04445 M00S03448.o26 +++| LDN 10D
04446 M00S03449.o26 +++| STM TSCN+1
04447 M00S03450.o26 +++| LDN 0
04448 M00S03451.o26 +++| STM TSCN+2
04449 M00S03452.o26 +++| STD SI CLEAR SCAN INDEX
04450 M00S03453.o26 +++| LDN 1 SET SCAN FLAG
04451 M00S03454.o26 +++| STD SF
04452 M00S03455.o26 +++| LDC =C*OUTPUT* SET FILE NAME
04453 M00S03456.o26 +++|
04454 M00S03457.o26 +++|* ENTRY FROM *RIC* AND *REC*.
04455 M00S03458.o26 +++|
04456 M00S03459.o26 +++| ROC1 RJM SDF
04457 M00S03460.o26 +++| LDD CA SET FILE NAME
04458 M00S03461.o26 +++| RJM SFN
04459 M00S03462.o26 +++| LJM RDF1
04460 M00S03463.o26 +++| RPR. SPACE 4,10
04461 M00S03464.o26 +++|*** RPR.CCCCCCC.
04462 M00S03465.o26 +++|*
04463 M00S03466.o26 +++|* READ PREVIOUS RECORD ON FILE *CCCCCCC*. IF
04464 M00S03467.o26 +++|* *CCCCCCC* IS MISSING, PREVIOUS FILE NAME WILL BE
04465 M00S03468.o26 +++|* USED.
04466 M00S03469.o26 +++|
04467 M00S03470.o26 +++|
04468 M00S03471.o26 +++| RPR ENTRY
04469 M00S03472.o26 +++| RJM SFN SET FILE NAME
04470 M00S03473.o26 +++| LJM RDI1 SKIP BACK 2 RECORDS
04471 M00S03474.o26 +++| SKIPEI. SPACE 4,10
04472 M00S03475.o26 +++|*** SKIPEI.CCCCCCC.
04473 M00S03476.o26 +++|*
04474 M00S03477.o26 +++|* SKIP TO END OF INFORMATION ON FILE . IF
04475 M00S03478.o26 +++|* *CCCCCCC* IS MISSING, PREVIOUS FILE NAME
04476 M00S03479.o26 +++|* WILL BE USED.
04477 M00S03480.o26 +++|
04478 M00S03481.o26 +++|
04479 M00S03482.o26 +++| SKP ENTRY
04480 M00S03483.o26 +++| LDN 3 SKIPEI
04481 M00S03484.o26 +++| JMP IOF RETURN
04482 M00S03485.o26 +++| UNLOAD. SPACE 4,10
04483 M00S03486.o26 +++|*** UNLOAD.CCCCCCC.
04484 M00S03487.o26 +++|*
04485 M00S03488.o26 +++|* UNLOAD FILE *CCCCCCC*. IF *CCCCCCC* IS MISSING,
04486 M00S03489.o26 +++|* PREVIOUS FILE NAME WILL BE USED.
04487 M00S03490.o26 +++|
04488 M00S03491.o26 +++|
04489 M00S03492.o26 +++| UNL ENTRY
| Line S00003 Modification History |
M01 (Added by) | o266 |
Seq # *Modification Id* Act
----------------------------+
04490 M01S00003.o266 +++| LDN 0 CLEAR WRITE LOCKOUT STATUS
04491 M01S00004.o266 +++| STM CRSB
04492 M00S03493.o26 +++| LDN 60 UNLOAD
04493 M00S03494.o26 +++| JMP IOF RETURN
04494 M00S03495.o26 +++| WRITE. SPACE 4,15
04495 M00S03496.o26 +++|*** WRITE.CCCCCCC.
04496 M00S03497.o26 +++|*
04497 M00S03498.o26 +++|* WRITE BUFFER TO FILE *CCCCCCC*. IF *CCCCCCC*
04498 M00S03499.o26 +++|* IS MISSING, PREVIOUS FILE NAME WILL BE USED.
04499 M00S03500.o26 +++|
04500 M00S03501.o26 +++|
04501 M00S03502.o26 +++| WRT ENTRY
04502 M00S03503.o26 +++| RJM SFN SET FILE NAME
04503 M00S03504.o26 +++| RJM CRS CHECK RECORD STATUS
04504 M00S03505.o26 +++| RJM SIP STORE IN POINTER
04505 M00S03506.o26 +++| LDN 26 WRITE END OF RECORD
04506 M00S03507.o26 +++| RJM CIO
04507 M00S03508.o26 +++| LDN 17 SET PSEUDO REQUEST TO REWIND POINTERS
04508 M00S03509.o26 +++| RJM CIO
04509 M00S03510.o26 +++| JMP CIF CLEAR INSERT FLAG
04510 M00S03511.o26 +++| WRITEF. SPACE 4,10
04511 M00S03512.o26 +++|*** WRITEF.CCCCCCC.
04512 M00S03513.o26 +++|*
04513 M00S03514.o26 +++|* WRITE BUFFER TO FILE *CCCCCCC* WITH AN EOF MARK.
04514 M00S03515.o26 +++|* IF *CCCCCCC* IS MISSING, PREVIOUS FILE NAME WILL
04515 M00S03516.o26 +++|* BE USED.
04516 M00S03517.o26 +++|
04517 M00S03518.o26 +++|
04518 M00S03519.o26 +++| WRF ENTRY
04519 M00S03520.o26 +++| RJM SFN SET FILE NAME
04520 M00S03521.o26 +++| RJM CRS CHECK RECORD STATUS
04521 M00S03522.o26 +++| RJM SIP STORE IN POINTER
04522 M00S03523.o26 +++| LDN 36 WRITE END OF FILE
04523 M00S03524.o26 +++| RJM CIO
04524 M00S03525.o26 +++| LDN 17 SET PSEUDO REQUEST TO REWIND POINTERS
04525 M00S03526.o26 +++| RJM CIO
04526 M00S03527.o26 +++| JMP CIF CLEAR INSERT FLAG
04527 M00S03528.o26 +++| WRITEW. SPACE 4,20
04528 M00S03529.o26 +++|*** WRITEW.CCCCCCC.
04529 M00S03530.o26 +++|*
04530 M00S03531.o26 +++|* WRITE FROM START OF BUFFER UP TO INSERT LINE TO
04531 M00S03532.o26 +++|* FILE *CCCCCCC*. IF *CCCCCCC* IS MISSING,
04532 M00S03533.o26 +++|* PREVIOUS FILE NAME WILL BE USED.
04533 M00S03534.o26 +++|
04534 M00S03535.o26 +++|
04535 M00S03536.o26 +++| WTW ENTRY
04536 M00S03537.o26 +++| LDD IF
04537 M00S03538.o26 +++| NJN WTW1 IF INSERT
04538 M00S03539.o26 +++| JMP ERR
04539 M00S03540.o26 +++|
04540 M00S03541.o26 +++| WTW1 RJM SFN SET FILE NAME
04541 M00S03542.o26 +++| RJM CRS CHECK RECORD STATUS
04542 M00S03543.o26 +++| LDN ZERL SET INSERT ADDRESS
04543 M00S03544.o26 +++| CRD CM
04544 M00S03545.o26 +++| CRD AB
04545 M00S03546.o26 +++| LDD IP
04546 M00S03547.o26 +++| STD CM+3
04547 M00S03548.o26 +++| LDD IP+1
04548 M00S03549.o26 +++| STD CM+4
04549 M00S03550.o26 +++| LDC CBUF
04550 M00S03551.o26 +++| STD AB+4
04551 M00S03552.o26 +++| LDD RA WRITE IN
04552 M00S03553.o26 +++| SHN 6
04553 M00S03554.o26 +++| ADN FET+2
04554 M00S03555.o26 +++| CWD CM
04555 M00S03556.o26 +++| ADN 1
04556 M00S03557.o26 +++| CWD AB SET OUT = FIRST
04557 M00S03558.o26 +++| LDN 26 WRITE END OF RECORD
04558 M00S03559.o26 +++| RJM CIO
04559 M00S03560.o26 +++| LDN 13 DUMMY
04560 M00S03561.o26 +++| RJM CIO
04561 M00S03562.o26 +++| JMP CIF CLEAR INSERT FLAG
04562 M00S03563.o26 +++| SDF SPACE 4,15
04563 M00S03564.o26 +++|** SDF - SET DEFINED FILE.
04564 M00S03565.o26 +++|*
04565 M00S03566.o26 +++|* ENTRY (A) = ADDRESS OF FILE NAME.
04566 M00S03567.o26 +++|* (CA) = CHARACTER ADDRESS.
04567 M00S03568.o26 +++|*
04568 M00S03569.o26 +++|* USES AB - AB+4.
04569 M00S03570.o26 +++|*
04570 M00S03571.o26 +++|* CALLS SFS.
04571 M00S03572.o26 +++|
04572 M00S03573.o26 +++|
04573 M00S03574.o26 +++| SDF SUBR ENTRY/EXIT
04574 M00S03575.o26 +++| STM SDFA
04575 M00S03576.o26 +++| LDD CA CHECK BUFFER
04576 M00S03577.o26 +++| ADC -KBUF
04577 M00S03578.o26 +++| LMD KI
04578 M00S03579.o26 +++| NJN SDFX IF FILE SPECIFIED
04579 M00S03580.o26 +++| LDD MA
04580 M00S03581.o26 +++| CWM **,ON MOVE FILE NAME
04581 M00S03582.o26 +++| SDFA EQU *-1
04582 M00S03583.o26 +++| SBN 1
04583 M00S03584.o26 +++| CRD AB
04584 M00S03585.o26 +++| LDN 1 SET STATUS
04585 M00S03586.o26 +++| STD AB+4
04586 M00S03587.o26 +++| RJM SFS SET FILE STATUS
04587 M00S03588.o26 +++| UJN SDFX RETURN
04588 M00S03589.o26 +++| COMMAND (LINE ENTRY AND DATA MOVE.)
04589 M00S03590.o26 +++| A. SPACE 4,10
04590 M00S03591.o26 +++|*** A.CCC-CCC
04591 M00S03592.o26 +++|*
04592 M00S03593.o26 +++|* MERGE CHARACTERS *CCC-CCC* WITH FOLLOWING LINE
04593 M00S03594.o26 +++|* EXCEPT TABBED OR SPACED AREA UP TO CARRAGE RETURN.
| Line S03595 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04594 M01S03595.241l630 ---|
04595 M01S03596.241l630 ---|
04596 M01S03597.241l630 ---| AMG ENTRY
04597 M01S03598.241l630 ---| RJM ELB ENTER LINE IN BUFFER
04598 M01S03599.241l630 ---| JMP RET
04599 M00S03600.o26 +++| C. SPACE 4,20
04600 M00S03601.o26 +++|*** C.CCC-CCC
04601 M00S03602.o26 +++|*
04602 M00S03603.o26 +++|* ENTER CHARACTERS *CCC-CCC* IN BUFFER. *CCC-CCC*
04603 M00S03604.o26 +++|* MAY CONSIST OF UP TO 90 CHARACTERS.
04604 M00S03605.o26 +++|
04605 M00S03606.o26 +++|
04606 M00S03607.o26 +++| CEL ENTRY
04607 M00S03608.o26 +++| LDD CA CHECK FOR COPY NEXT LINE
04608 M00S03609.o26 +++| ADC -KBUF
04609 M00S03610.o26 +++| LMD KI
04610 M00S03611.o26 +++| NJN CEL3 IF NOT COPY NEXT LINE
04611 M00S03612.o26 +++| LDD IF
04612 M00S03613.o26 +++| NJN CEL1 IF INSERT SET
04613 M00S03614.o26 +++| JMP ERR MESSAGE = *FORMAT ERROR.*
04614 M00S03615.o26 +++|
04615 M00S03616.o26 +++| CEL1 RJM RDL READ LINE
04616 M00S03617.o26 +++| LDD LC SET KEYBOARD INDEX
04617 M00S03618.o26 +++| ADN 2
04618 M00S03619.o26 +++| STD KI
04619 M00S03620.o26 +++| ADC -KBUFL
04620 M00S03621.o26 +++| MJN CEL2 IF WITHIN BUFFER
04621 M00S03622.o26 +++| LDC KBUFL-1 SET LAST CHARACTER ADDRESS
04622 M00S03623.o26 +++| STD KI
04623 M00S03624.o26 +++| CEL2 JMP KBIX RETURN
04624 M00S03625.o26 +++|
| Line S00795 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04625 M01S00795.241l630 +++|* ENTRY FROM *MRL*.
04626 M01S00796.241l630 +++|
04627 M01S00797.241l630 +++| AMG ENTRY
04628 M00S03626.o26 +++| CEL3 RJM ELB ENTER LINE IN BUFFER
04629 M00S03627.o26 +++| JMP RET RETURN
04630 M00S03628.o26 +++| COPY SPACE 4,8
04631 M00S03629.o26 +++|*** COPY.
04632 M00S03630.o26 +++|*
04633 M00S03631.o26 +++|* COPY DATA FROM BLOCK STARTING AT INSERT *8* AND
04634 M00S03632.o26 +++|* ENDING AT INSERT *9* INTO BLOCK AT INSERT MARKER.
04635 M00S03633.o26 +++|
04636 M00S03634.o26 +++|
04637 M00S03635.o26 +++|*MVE ENTRY
04638 M00S03636.o26 +++| DEL. SPACE 4,15
04639 M00S03637.o26 +++|*** DEL.
04640 M00S03638.o26 +++|*
04641 M00S03639.o26 +++|* DELETE LINES AFTER INSERT MARK.
04642 M00S03640.o26 +++|
04643 M00S03641.o26 +++|
04644 M00S03642.o26 +++| DLE ENTRY
04645 M00S03643.o26 +++| LDD IF
04646 M00S03644.o26 +++| ZJN DLE1 IF NO INSERT
04647 M00S03645.o26 +++| LDD IP RESET IN
04648 M00S03646.o26 +++| STD IN
04649 M00S03647.o26 +++| LDD IP+1
04650 M00S03648.o26 +++| STD IN+1
04651 M00S03649.o26 +++| UJN DLE2
04652 M00S03650.o26 +++|
04653 M00S03651.o26 +++| DLE1 LDD FT CLEAR BUFFER
04654 M00S03652.o26 +++| STD IN
04655 M00S03653.o26 +++| LDD FT+1
04656 M00S03654.o26 +++| STD IN+1
| Line S03655 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04657 M01S03655.241l630 ---| DLE2 LDN IN SET DISPLAY
04658 M01S03656.241l630 ---| RJM SDS
04659 M01S03657.241l630 ---| RJM SIP SET IN POINTER
| Line S00798 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04660 M01S00798.241l630 +++| DLE2 RJM SIP STORE IN POINTER
04661 M01S00799.241l630 +++| LDN IN
04662 M01S00800.241l630 +++|
04663 M01S00801.241l630 +++|* ENTRY FROM *DEL*.
04664 M01S00802.241l630 +++|
04665 M01S00803.241l630 +++| DLE3 RJM SDS SET DISPLAY
04666 M00S03658.o26 +++| JMP CIF CLEAR INSERT FLAG
04667 M00S03659.o26 +++| D,* SPACE 4,15
04668 M00S03660.o26 +++|*** D,*
04669 M00S03661.o26 +++|*
04670 M00S03662.o26 +++|* DELETE FROM INSERT *8* THROUGH INSERT *9*.
04671 M00S03663.o26 +++|
04672 M00S03664.o26 +++|
04673 M00S03665.o26 +++| DEL ENTRY
04674 M00S03666.o26 +++| LDD MA MOVE INSERT PARAMETERS
04675 M00S03667.o26 +++| CWM CFCB,ON
04676 M00S03668.o26 +++| LDD MA
04677 M00S03669.o26 +++| CRD T2 (SET T2 - T6)
04678 M00S03670.o26 +++| LDD T2
04679 M00S03671.o26 +++| ADD T3
04680 M00S03672.o26 +++| ZJN DEL1 IF NO INSERT *8*
04681 M00S03673.o26 +++| LDD T2
04682 M00S03674.o26 +++| SBD T4
04683 M00S03675.o26 +++| SHN 14
04684 M00S03676.o26 +++| ADD T3
04685 M00S03677.o26 +++| SBD T5
04686 M00S03678.o26 +++| PJN DEL1 IF *I8* .GT. *I9*
04687 M00S03679.o26 +++| RJM MBD MOVE BUFFER DOWN
| Line S03680 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04688 M01S03680.241l630 ---| LDC CFCB SET DISPLAY
04689 M01S03681.241l630 ---| RJM SDS
04690 M01S03682.241l630 ---| JMP CIF CLEAR INSERT FLAG
| Line S00804 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04691 M01S00804.241l630 +++| LDC CFCB
04692 M01S00805.241l630 +++| JMP DLE3 SET DISPLAY
04693 M00S03683.o26 +++|
04694 M00S03684.o26 +++| DEL1 JMP ERR FORMAT ERROR
04695 M00S03685.o26 +++| D. SPACE 4,10
04696 M00S03686.o26 +++|*** D.CCC-CCC
04697 M00S03687.o26 +++|*
04698 M00S03688.o26 +++|* MERGE *CCC-CCC* WITH REMAINDER OF CHARACTERS
04699 M00S03689.o26 +++|* CHARACTERS IN DUP BUFFER EXCEPT TABBED AREA OR
04700 M00S03690.o26 +++|* SPACED AREA UP TO CARRIAGE RETURN.
04701 M00S03691.o26 +++|
04702 M00S03692.o26 +++|
04703 M00S03693.o26 +++| DMC ENTRY AMG
04704 M00S03694.o26 +++| E. SPACE 4,8
04705 M00S03695.o26 +++|*** E.CCC-CCC
04706 M00S03696.o26 +++|*
04707 M00S03697.o26 +++|* MERGE *CCC-CCC* WITH REMAINDER OF CHARACTERS
04708 M00S03698.o26 +++|* CHARACTERS IN DUP BUFFER EXCEPT TABBED OR SPACED
04709 M00S03699.o26 +++|* AREA.
04710 M00S03700.o26 +++| L. SPACE 4,20
04711 M00S03701.o26 +++|*** L.CCC-CCC
04712 M00S03702.o26 +++|*
04713 M00S03703.o26 +++|* MERGE CHARACTERS *CCC-CCC* WITH REMAINDER OF
04714 M00S03704.o26 +++|* FOLLOWING LINE EXCEPT TABBED OR SPACED AREA.
04715 M00S03705.o26 +++|
04716 M00S03706.o26 +++|
04717 M00S03707.o26 +++| MRL ENTRY
04718 M00S03708.o26 +++| LDD KI COPY REMAINDER OF LINE
04719 M00S03709.o26 +++| MRL1 ADC -KBUFL CHECK FOR END OF BUFFER
04720 M00S03710.o26 +++| PJN MRL2 IF END OF BUFFER
04721 M00S03711.o26 +++| LDM DBUF,KI COPY CHARACTER FROM DUP BUFFER
04722 M00S03712.o26 +++| LPN 77 CLEAR TAB IF SET
04723 M00S03713.o26 +++| STM KBUF,KI ENTER INTO KEYBOARD BUFFER
04724 M00S03714.o26 +++| AOD KI ADVANCE
04725 M00S03715.o26 +++| UJN MRL1 LOOP FOR NEXT CHARACTER
04726 M00S03716.o26 +++|
04727 M00S03717.o26 +++| MRL2 LDC KBUF+2 SET CHARACTER ADDRESS
04728 M00S03718.o26 +++| STD CA
| Line S03719 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04729 M01S03719.241l630 ---| RJM ELB ENTER LINE
04730 M01S03720.241l630 ---| JMP RET RETURN
| Line S00806 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04731 M01S00806.241l630 +++| LJM CEL3 ENTER LINE AND RETURN
04732 M00S03721.o26 +++| MOVE. SPACE 4,20
04733 M00S03722.o26 +++|*** MOVE.
04734 M00S03723.o26 +++|*
04735 M00S03724.o26 +++|* MOVE DATA FROM BLOCK STARTING AT INSERT *8* AND
04736 M00S03725.o26 +++|* ENDING AT INSERT *9* INTO BLOCK AT INSERT MARKER.
04737 M00S03726.o26 +++|
04738 M00S03727.o26 +++|
04739 M00S03728.o26 +++| MVE ENTRY
04740 M00S03729.o26 +++| LDD MA SET MOVE PARAMETERS
04741 M00S03730.o26 +++| CWM CFCB,ON
04742 M00S03731.o26 +++| LDD MA
04743 M00S03732.o26 +++| CRD AB
04744 M00S03733.o26 +++| LDD AB
04745 M00S03734.o26 +++| SHN 14
04746 M00S03735.o26 +++| LMD AB+1
04747 M00S03736.o26 +++| ZJN MVE1 IF INSERT *8* NOT SET
04748 M00S03737.o26 +++| LDD AB+2
04749 M00S03738.o26 +++| SHN 14
04750 M00S03739.o26 +++| LMD AB+3
04751 M00S03740.o26 +++| NJN MVE2 IF INSERT *9* SET
04752 M00S03741.o26 +++| MVE1 LDC =C*INSERT 8 OR 9 NOT SET.*
04753 M00S03742.o26 +++| JMP ERR1
04754 M00S03743.o26 +++|
04755 M00S03744.o26 +++| MVE2 LDD AB+2 CALCULATE BLOCK SIZE
04756 M00S03745.o26 +++| SBD AB
04757 M00S03746.o26 +++| SHN 14
04758 M00S03747.o26 +++| ADD AB+3
04759 M00S03748.o26 +++| SBD AB+1
04760 M00S03749.o26 +++| STD T7
04761 M00S03750.o26 +++| SHN -14
04762 M00S03751.o26 +++| ZJN MVE4 IF BLOCK .LT. 10000
| Line S03752 Modification History |
M01 (Removed by) | o2610 |
Seq # *Modification Id* Act
----------------------------+
04763 M01S03752.o2610 ---| MVE3 LDC =C*BLOCK TOO LARGE.*
04764 M01S03753.o2610 ---| JMP ERR1
04765 M01S03754.o2610 ---|
04766 M01S03755.o2610 ---| MVE4 LDD LM CHECK BLOCK SIZE
04767 M01S03756.o2610 ---| SBD IN
04768 M01S03757.o2610 ---| SHN 14
04769 M01S03758.o2610 ---| ADD LM+1
04770 M01S03759.o2610 ---| SBD IN+1
04771 M01S03760.o2610 ---| SBD T7
04772 M01S03761.o2610 ---| MJN MVE3 IF NO ROOM
| Line S00006 Modification History |
M01 (Added by) | o2610 |
Seq # *Modification Id* Act
----------------------------+
04773 M01S00006.o2610 +++| LDC MVEB *DATA OVERFLOW.*
04774 M01S00007.o2610 +++| JMP ERR1
04775 M01S00008.o2610 +++|
04776 M01S00009.o2610 +++| MVE4 RJM CRB CHECK ROOM IN BUFFER
| Line S03762 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04777 M01S03762.241l630 ---| LDD IP SET INSERT ADDRESS
| Line S00807 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04778 M01S00807.241l630 +++| LDD IF
04779 M01S00808.241l630 +++| ZJN MVE5 IF INSERT NOT SET
04780 M01S00809.241l630 +++| LCN IN-IP
04781 M01S00810.241l630 +++| MVE5 ADN IN
04782 M01S00811.241l630 +++| STD T3
04783 M01S00812.241l630 +++| LDI T3 SET INSERT ADDRESS
04784 M00S03763.o26 +++| STD OT
04785 M00S03764.o26 +++| STD T2
| Line S03765 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04786 M01S03765.241l630 ---| LDD IP+1
| Line S00813 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04787 M01S00813.241l630 +++| LDM 1,T3
04788 M00S03766.o26 +++| STD OT+1
04789 M00S03767.o26 +++| STD T3
| Line S03768 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04790 M01S03768.241l630 ---| LDD IF
04791 M01S03769.241l630 ---| NJN MVE5 IF INSERT SET
04792 M01S03770.241l630 ---| LDD IN SET INSERT ADDRESS
04793 M01S03771.241l630 ---| STD OT
04794 M01S03772.241l630 ---| STD T2
04795 M01S03773.241l630 ---| LDD IN+1
04796 M01S03774.241l630 ---| STD OT+1
04797 M01S03775.241l630 ---| STD T3
04798 M01S03776.241l630 ---| MVE5 LDD T2 CHECK DATA BLOCK LIMITS
| Line S00814 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04799 M01S00814.241l630 +++| LDD T2 CHECK DATA BLOCK LIMITS
04800 M00S03777.o26 +++| SBD AB
04801 M00S03778.o26 +++| SHN 14
04802 M00S03779.o26 +++| ADD T3
04803 M00S03780.o26 +++| SBD AB+1
04804 M00S03781.o26 +++| PJN MVE6 IF - 8 - BEFORE INSERT
04805 M00S03782.o26 +++| LDD T7 SET INSERT INCREMENT
04806 M00S03783.o26 +++| STD AB+4
04807 M00S03784.o26 +++| MVE6 LDD T2
04808 M00S03785.o26 +++| SBD AB+2
04809 M00S03786.o26 +++| SHN 14
04810 M00S03787.o26 +++| ADD T3
04811 M00S03788.o26 +++| SBD AB+3
04812 M00S03789.o26 +++| PJN MVE7 IF - 9 - BEFORE OR AT INSERT
04813 M00S03790.o26 +++| LDD AB+4
04814 M00S03791.o26 +++| NJN MVE7 IF - 8 - AFTER INSERT
04815 M00S03792.o26 +++| LJM ERR MESSAGE = *FORMAT ERROR.*
04816 M00S03793.o26 +++|
04817 M00S03794.o26 +++| MVE7 RJM MBU MOVE BUFFER UP
04818 M00S03795.o26 +++| LDD AB+4 SET FWA
04819 M00S03796.o26 +++| RAD AB+1
04820 M00S03797.o26 +++| STD T5
04821 M00S03798.o26 +++| SHN -14
04822 M00S03799.o26 +++| RAD AB
04823 M00S03800.o26 +++| STD T4
04824 M00S03801.o26 +++| LDD IN+1 SAVE IN ADDRESS
04825 M00S03802.o26 +++| ADD T7
04826 M00S03803.o26 +++| STM MVEA+1
04827 M00S03804.o26 +++| SHN -14
04828 M00S03805.o26 +++| ADD IN
04829 M00S03806.o26 +++| ADC LDCI
04830 M00S03807.o26 +++| STM MVEA
04831 M00S03808.o26 +++| LDD AB+4 SET LWA
04832 M00S03809.o26 +++| RAD AB+3
04833 M00S03810.o26 +++| STD IN+1
04834 M00S03811.o26 +++| SHN -14
04835 M00S03812.o26 +++| RAD AB+2
04836 M00S03813.o26 +++| STD IN
04837 M00S03814.o26 +++| RJM MBD MOVE BUFFER DOWN
04838 M00S03815.o26 +++| MVEA LDC ** RESET IN
04839 M00S03816.o26 +++| STD IN+1
04840 M00S03817.o26 +++| SHN -14
04841 M00S03818.o26 +++| STD IN
04842 M00S03819.o26 +++| LDM KBUF
04843 M00S03820.o26 +++| LMN 1RC
04844 M00S03821.o26 +++| ZJN MVE8 IF *COPY*
| Line S03822 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04845 M01S03822.241l630 ---| LDD AB SET MOVE ADDRESS
04846 M01S03823.241l630 ---| STD T2
04847 M01S03824.241l630 ---| LDD AB+1
04848 M01S03825.241l630 ---| STD T3
04849 M01S03826.241l630 ---| LDD AB+2 SET FIRST ADDRESS
04850 M01S03827.241l630 ---| STD T4
04851 M01S03828.241l630 ---| LDD AB+3
04852 M01S03829.241l630 ---| STD T5
| Line S00815 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04853 M01S00815.241l630 +++| LDD MA
04854 M01S00816.241l630 +++| CWD AB SET MOVE AND FIRST ADDRESSES
04855 M01S00817.241l630 +++| CRD T2
04856 M00S03830.o26 +++| RJM MBD MOVE BUFFER DOWN
04857 M00S03831.o26 +++| MVE8 LDN ZERL CLEAR INSERT *8* AND *9*
04858 M00S03832.o26 +++| CRM CFCB,ON
04859 M00S03833.o26 +++| RJM SIP STORE IN POINTER
04860 M00S03834.o26 +++| JMP RET RETURN
| Line S00010 Modification History |
M01 (Added by) | o2610 |
Seq # *Modification Id* Act
----------------------------+
04861 M01S00010.o2610 +++|
04862 M01S00011.o2610 +++| MVEB DATA C*DATA OVERFLOW.*
04863 M00S03835.o26 +++| M. SPACE 4,8
04864 M00S03836.o26 +++|*** M.CCC-CCC
04865 M00S03837.o26 +++|*
04866 M00S03838.o26 +++|* MERGE CHARACTERS *CCC-CCC* WITH
04867 M00S03839.o26 +++|* REMAINDER OF FOLLOWING LINE.
04868 M00S03840.o26 +++|
04869 M00S03841.o26 +++|
04870 M00S03842.o26 +++| MRG ENTRY MRL
04871 M00S03843.o26 +++| N. SPACE 4,8
04872 M00S03844.o26 +++|*** N.CCC-CCC
04873 M00S03845.o26 +++|*
04874 M00S03846.o26 +++|* MERGE CHARACTERS EXCEPT TABBED AREA.
04875 M00S03847.o26 +++|
04876 M00S03848.o26 +++|
04877 M00S03849.o26 +++| MRN ENTRY MRL
04878 M00S03850.o26 +++| P. SPACE 4,10
04879 M00S03851.o26 +++|*** P.CCC-CCC
04880 M00S03852.o26 +++|*
04881 M00S03853.o26 +++|* ENTER CHARACTERS *CCC-CCC* IN BUFFER. *CCC-CCC*
04882 M00S03854.o26 +++|* MAY CONSIST OF UP TO 96 CHARACTERS.
04883 M00S03855.o26 +++|
04884 M00S03856.o26 +++|
04885 M00S03857.o26 +++| ELN ENTRY
04886 M00S03858.o26 +++| RJM ELB ENTER LINE IN BUFFER
| Line S03859 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04887 M01S03859.241l630 ---| LDN 2 RETURN TO SAVE *P.*
04888 M01S03860.241l630 ---| LJM RET1
| Line S00818 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04889 M01S00818.241l630 +++| LDM DBFB
04890 M01S00819.241l630 +++| LMC SRSF
04891 M01S00820.241l630 +++| ADD LL
04892 M01S00821.241l630 +++| NJN ELN1 IF NOT END OF BUFFER ON RIGHT SCREEN
04893 M01S00822.241l630 +++| LDD IF
04894 M01S00823.241l630 +++| ADD HF
04895 M01S00824.241l630 +++| NJN ELN1 IF NOT ROLLING W/O INSERT POINTER
04896 M01S00825.241l630 +++| STM DBFD
04897 M01S00826.241l630 +++| AOD KD INHIBIT PRIORITY LINE USAGE
04898 M01S00827.241l630 +++| ELN1 LDN 2
04899 M01S00828.241l630 +++| LJM RET1 RETURN TO SAVE *P.*
04900 M00S03861.o26 +++| ELB SPACE 4,20
04901 M00S03862.o26 +++|** ELB - ENTER LINE IN BUFFER.
04902 M00S03863.o26 +++|*
04903 M00S03864.o26 +++|* ENTRY (CA) = CHARACTER ADDRESS.
04904 M00S03865.o26 +++|* (IF) = INSERT FLAG.
04905 M00S03866.o26 +++|* (IP - IP+1) = INSERT ADDRESS.
04906 M00S03867.o26 +++|*
04907 M00S03868.o26 +++|* USES T1 - T7, CM - CM+4, BUF - BUF+50.
04908 M00S03869.o26 +++|*
04909 M00S03870.o26 +++|* CALLS MBU.
04910 M00S03871.o26 +++|
04911 M00S03872.o26 +++|
04912 M00S03873.o26 +++| ELB SUBR ENTRY/EXIT
04913 M00S03874.o26 +++| RJM PKL PACK LINE INTO BUF
04914 M00S03875.o26 +++| LDD IN SET INPUT ADDRESS
04915 M00S03876.o26 +++| STD T2
04916 M00S03877.o26 +++| LDD IN+1
04917 M00S03878.o26 +++| STD T3
| Line S00012 Modification History |
M01 (Added by) | o2610 |
Seq # *Modification Id* Act
----------------------------+
04918 M01S00012.o2610 +++| RJM CRB CHECK ROOM IN BUFFER
04919 M00S03879.o26 +++| LDD IF
04920 M00S03880.o26 +++| ZJN ELB1 IF NO INSERT
04921 M00S03881.o26 +++|
04922 M00S03882.o26 +++|* PROCESS INSERTED LINE.
04923 M00S03883.o26 +++|
04924 M00S03884.o26 +++| LDD IP SET INSERT ADDRESS
04925 M00S03885.o26 +++| STD T2
04926 M00S03886.o26 +++| LDD IP+1
04927 M00S03887.o26 +++| STD T3
04928 M00S03888.o26 +++| RJM MBU MOVE BUFFER UP
04929 M00S03889.o26 +++| LDD T7 ADVANCE INSERT ADDRESS
04930 M00S03890.o26 +++| RAD IP+1
04931 M00S03891.o26 +++| SHN -14
04932 M00S03892.o26 +++| RAD IP
04933 M00S03893.o26 +++|
04934 M00S03894.o26 +++|* STORE LINE IN CM.
04935 M00S03895.o26 +++|
04936 M00S03896.o26 +++| ELB1 LDD T2 STORE LINE
04937 M00S03897.o26 +++| SHN 6
04938 M00S03898.o26 +++| ADD RA
04939 M00S03899.o26 +++| SHN 6
04940 M00S03900.o26 +++| ADD T3
04941 M00S03901.o26 +++| CWM BUF,T7
04942 M00S03902.o26 +++| LDD T7 ADVANCE IN
04943 M00S03903.o26 +++| RAD IN+1
04944 M00S03904.o26 +++| SHN -14
04945 M00S03905.o26 +++| RAD IN
04946 M00S03906.o26 +++| RJM SIP SET IN POINTER
04947 M00S03907.o26 +++| LJM ELBX RETURN
| Line S00013 Modification History |
M01 (Added by) | o2610 |
Seq # *Modification Id* Act
----------------------------+
04948 M01S00013.o2610 +++|CRB SPACE 4,10
04949 M01S00014.o2610 +++|** CRB - CHECK ROOM IN BUFFER.
04950 M01S00015.o2610 +++|*
04951 M01S00016.o2610 +++|* ENTRY (IN - IN+1) = LWA+1 OF DATA IN BUFFER.
04952 M01S00017.o2610 +++|* (LM - LM+1) = LIMIT ADDRESS.
04953 M01S00018.o2610 +++|* (T7) = LENGTH OF NEW LINE OR BLOCK.
04954 M01S00019.o2610 +++|*
04955 M01S00020.o2610 +++|* ERROR TO *ERR1* IF INSUFFICIENT ROOM IN BUFFER.
04956 M01S00021.o2610 +++|
04957 M01S00022.o2610 +++|
04958 M01S00023.o2610 +++| CRB SUBR ENTRY/EXIT
04959 M01S00024.o2610 +++| LDD IN
04960 M01S00025.o2610 +++| SBD LM
04961 M01S00026.o2610 +++| SHN 14
04962 M01S00027.o2610 +++| ADD IN+1
04963 M01S00028.o2610 +++| SBD LM+1 COMPLEMENT OF WORDS AVAILABLE
04964 M01S00029.o2610 +++| ADD T7 WORDS NEEDED
04965 M01S00030.o2610 +++| MJN CRBX IF ROOM FOR DATA
04966 M01S00031.o2610 +++| LDC MVEB *DATA OVERFLOW.*
04967 M01S00032.o2610 +++| JMP ERR1 ERROR EXIT
04968 M00S03908.o26 +++| MBU SPACE 4,10
04969 M00S03909.o26 +++|** MBU - MOVE BUFFER UP.
04970 M00S03910.o26 +++|*
04971 M00S03911.o26 +++|* ENTRY (T2 - T3) = FWA TO MOVE.
04972 M00S03912.o26 +++|* (IN - IN+1) = LWA+1 TO MOVE.
04973 M00S03913.o26 +++|* (T7) = DISTANCE TO MOVE.
04974 M00S03914.o26 +++|*
04975 M00S03915.o26 +++|* USES T1, T4, BUFM - BUFM+240.
04976 M00S03916.o26 +++|
04977 M00S03917.o26 +++|
04978 M00S03918.o26 +++| MBU SUBR ENTRY/EXIT
| Line S00033 Modification History |
M01 (Added by) | o2610 |
Seq # *Modification Id* Act
----------------------------+
04979 M01S00033.o2610 +++| RJM CRB CHECK ROOM IN BUFFER
04980 M00S03919.o26 +++| LDD IN COMPUTE MOVE WORD COUNT
04981 M00S03920.o26 +++| SBD T2
04982 M00S03921.o26 +++| SHN 14
04983 M00S03922.o26 +++| ADD IN+1
04984 M00S03923.o26 +++| SBD T3
04985 M00S03924.o26 +++| SHN 13D SET BLOCK COUNT
04986 M00S03925.o26 +++| STD T1
04987 M00S03926.o26 +++| SHN -13D SET ODD SIZE
04988 M00S03927.o26 +++| STD T4
| Line S03928 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04989 M01S03928.241l630 ---| ZJN MBU1 IF NO ODD BLOCK
| Line S00829 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
04990 M01S00829.241l630 +++| ZJN MBU2 IF NO ODD BLOCK
04991 M00S03929.o26 +++|
04992 M00S03930.o26 +++|* MOVE SHORT BLOCK.
04993 M00S03931.o26 +++|
04994 M00S03932.o26 +++| LDD IN READ SHORT BLOCK
04995 M00S03933.o26 +++| SHN 6
04996 M00S03934.o26 +++| ADD RA
04997 M00S03935.o26 +++| SHN 6
04998 M00S03936.o26 +++| ADD IN+1
04999 M00S03937.o26 +++| SBD T4
| Line S03938 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05000 M01S03938.241l630 ---| CRM BUFM,T4
| Line S00830 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05001 M01S00830.241l630 +++| MBU1 CRM BUFM,T4
05002 M00S03939.o26 +++| SBD T4 STORE ODD BLOCK
05003 M00S03940.o26 +++| ADD T7
05004 M00S03941.o26 +++| CWM BUFM,T4
| Line S03942 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05005 M01S03942.241l630 ---| MBU1 LDD T1
05006 M01S03943.241l630 ---| ZJN MBUX IF NO FULL BLOCKS
| Line S00831 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05007 M01S00831.241l630 +++| MBU2 SOD T1
05008 M01S00832.241l630 +++| MJN MBUX IF NO FULL BLOCKS
05009 M01S00833.241l630 +++| LDN 40
05010 M01S00834.241l630 +++| STD T4 SET FULL BLOCK SIZE
05011 M00S03944.o26 +++|
05012 M00S03945.o26 +++|* MOVE FULL BLOCKS.
05013 M00S03946.o26 +++|
05014 M00S03947.o26 +++| LDD T2 READ BLOCK
05015 M00S03948.o26 +++| SHN 6
05016 M00S03949.o26 +++| ADD RA
05017 M00S03950.o26 +++| SHN 1
05018 M00S03951.o26 +++| ADD T1
| Line S03952 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05019 M01S03952.241l630 ---| SBN 1
05020 M00S03953.o26 +++| SHN 5
05021 M00S03954.o26 +++| ADD T3
| Line S03955 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05022 M01S03955.241l630 ---| CRM BUFM,FR
05023 M01S03956.241l630 ---| SBD FR STORE BLOCK
05024 M01S03957.241l630 ---| ADD T7
05025 M01S03958.241l630 ---| CWM BUFM,FR
05026 M01S03959.241l630 ---| SOD T1 DECREMENT BLOCK COUNT
05027 M01S03960.241l630 ---| UJN MBU1 LOOP
| Line S00835 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
05028 M01S00835.241l630 +++| UJN MBU1 MOVE BLOCK
05029 M00S03961.o26 +++| COMMAND (DISPLAY, TAB, DUP AND SCAN CONTROL.)
05030 M00S03962.o26 +++| DFL. SPACE 4,10
05031 M00S03963.o26 +++|*** DFL.
05032 M00S03964.o26 +++|*
05033 M00S03965.o26 +++|* START DISPLAY AT FIRST LINE OF FILE AND HOLD.
05034 M00S03966.o26 +++|
05035 M00S03967.o26 +++|
05036 M00S03968.o26 +++| DSF ENTRY
05037 M00S03969.o26 +++| LDN FT SET DISPLAY ADDRESS
05038 M00S03970.o26 +++| RJM SDS
05039 M00S03971.o26 +++| LDN 1 SET HOLD FLAG
05040 M00S03972.o26 +++| STD HF
05041 M00S03973.o26 +++| JMP RET RETURN
05042 M00S03974.o26 +++| DLL. SPACE 4,15
05043 M00S03975.o26 +++|*** DLL.
05044 M00S03976.o26 +++|*
05045 M00S03977.o26 +++|* DISPLAY LAST PART OF FILE.
05046 M00S03978.o26 +++|
05047 M00S03979.o26 +++|
05048 M00S03980.o26 +++| DSL ENTRY
05049 M00S03981.o26 +++| LDD IN SET END OF FILE ADDRESS
05050 M00S03982.o26 +++| STD T2