Seq # *Modification Id* Act
----------------------------+
Line S00001 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2369
Seq # *Modification Id* Act
----------------------------+
01278 M02S00001.ns2369 ---| LDN 1 SELECT NO DROP OF DISK SPACE
Line S00012 Modification History
M01 (Added by) ns2369
Seq # *Modification Id* Act
----------------------------+
01279 M01S00012.ns2369 +++|* LDN 1 DROP QFT ENTRY ONLY
Line S00002 Modification History
M01 (Added by) ns2358
Seq # *Modification Id* Act
----------------------------+
01280 M01S00002.ns2358 +++| STM OVL0-1
01281 M00S00958.dsp +++| EXECUTE 0DQ,OVL0 DROP QFT ENTRY
01282 M00S00959.dsp +++| UJN FNB2 CONTINUE
01283 M00S00960.dsp +++|
01284 M00S00961.dsp +++| FNB1 LDN 40 CLEAR QFT INTERLOCK
01285 M00S00962.dsp +++| RJM FQI FUNCTION INTERLOCK
01286 M00S00963.dsp +++| FNB2 LDN 0 CLEAR GLOBAL ENTRY
01287 M00S00964.dsp +++| STD QA
01288 M00S00965.dsp +++|
01289 M00S00966.dsp +++|* PROCESS LOCAL FNT ENTRY.
01290 M00S00967.dsp +++|
01291 M00S00968.dsp +++| FNB3 LDD FA
01292 M00S00969.dsp +++| ZJN FNBX IF NO FILE
01293 M00S00970.dsp +++| LDN 0
01294 M00S00971.dsp +++|* LDN 1 (IF FILE CREATED BY *DSP*)
01295 M00S00972.dsp +++| FNBB EQU *-1
01296 M00S00973.dsp +++| ZJN FNB4 IF FILE NOT CREATED BY *DSP*
01297 M00S00974.dsp +++| LDN 0 RETURN FILE
01298 M00S00975.dsp +++| STM OVL2-1
01299 M00S00976.dsp +++| EXECUTE 0DF,OVL2 DROP FILE
01300 M00S00977.dsp +++| UJN FNB5 CONTINUE
01301 M00S00978.dsp +++|
01302 M00S00979.dsp +++| FNB4 NFA FA,R SET FILE NOT BUSY
01303 M00S00980.dsp +++| ADN FSTL
01304 M00S00981.dsp +++| CRD FS
01305 M00S00982.dsp +++| LDD FS+4 SET FILE NOT BUSY
01306 M00S00983.dsp +++| SCN 1
01307 M00S00984.dsp +++| LMN 1
01308 M00S00985.dsp +++| STD FS+4
01309 M00S00986.dsp +++| NFA FA,R
01310 M00S00987.dsp +++| ADN FSTL
01311 M00S00988.dsp +++| CWD FS
Line S00989 Modification History
M01 (Removed by) ns2358
Seq # *Modification Id* Act
----------------------------+
01312 M01S00989.ns2358 ---| FNB5 LDN 0 CLEAR FNT POINTER
01313 M01S00990.ns2358 ---| STD FA
01314 M01S00991.ns2358 ---| LJM FNBX RETURN
Line S00003 Modification History
M01 (Added by) ns2358
Seq # *Modification Id* Act
----------------------------+
01315 M01S00003.ns2358 +++| LDN 0 CLEAR FNT POINTER
01316 M01S00004.ns2358 +++| STD FA
01317 M01S00005.ns2358 +++| FNB5 LJM FNBX RETURN
01318 M00S00992.dsp +++| FQI SPACE 4,10
01319 M00S00993.dsp +++|** FQI - FUNCTION QFT INTERLOCK.
01320 M00S00994.dsp +++|*
01321 M00S00995.dsp +++|* ENTRY (A) = 0, SET QFT INTERLOCK.
01322 M00S00996.dsp +++|* (A) = 40, CLEAR QFT INTERLOCK.
01323 M00S00997.dsp +++|* (QA) = QFT ORDINAL.
01324 M00S00998.dsp +++|*
01325 M00S00999.dsp +++|* EXIT QFT INTERLOCK CLEARED.
01326 M00S01000.dsp +++|* (A) = 0, IF OPERATION COMPLETE.
01327 M00S01001.dsp +++|*
01328 M00S01002.dsp +++|* USES CM - CM+4.
01329 M00S01003.dsp +++|*
01330 M00S01004.dsp +++|* MACROS DELAY, MONITOR, PAUSE, SFA.
01331 M00S01005.dsp +++|*
01332 M00S01006.dsp +++|* NOTE IF QFT INTERLOCK CANNOT BE SET OR CLEARED, AND
01333 M00S01007.dsp +++|* THE OPERATOR OVERRIDES THE JOB, SOME INTERLOCKS
01334 M00S01008.dsp +++|* MAY NOT BE CLEARED.
01335 M00S01009.dsp +++|
01336 M00S01010.dsp +++|
01337 M00S01011.dsp +++| FQI SUBR ENTRY/EXIT
01338 M00S01012.dsp +++| STM FQIA PRESERVE FUNCTION
01339 M00S01013.dsp +++| FQI1 LDC **
01340 M00S01014.dsp +++| FQIA EQU *-1
01341 M00S01015.dsp +++| STD CM+1
01342 M00S01016.dsp +++| LDN 0
01343 M00S01017.dsp +++| STD CM+2
01344 M00S01018.dsp +++| SFA QFT,QA GET QFT ADDRESS
01345 M00S01019.dsp +++| STD CM+4
01346 M00S01020.dsp +++| SHN -14
01347 M00S01021.dsp +++| STD CM+3
01348 M00S01022.dsp +++| MONITOR UTEM UPDATE TABLE ENTRY
01349 M00S01023.dsp +++| LDD CM+1 CHECK FOR FUNCTION COMPLETE
01350 M00S01024.dsp +++| ZJN FQIX IF FUNCTION COMPLETE
01351 M00S01025.dsp +++| DELAY
01352 M00S01026.dsp +++| PAUSE
01353 M00S01027.dsp +++| LDD CM+1 CHECK FOR OPERATOR OVERRIDE
01354 M00S01028.dsp +++| LMN ORET
01355 M00S01029.dsp +++| NJN FQI1 IF NO OVERRIDE
01356 M00S01030.dsp +++| LDN 1 SET ERROR STATUS
01357 M00S01031.dsp +++| LJM FQIX RETURN
01358 M00S01032.dsp +++| GEA SPACE 4,10
01359 M00S01033.dsp +++|** GEA - GET EJT ADDRESS.
01360 M00S01034.dsp +++|*
01361 M00S01035.dsp +++|* ENTRY (AEOA) = EJT ORDINAL.
01362 M00S01036.dsp +++|*
01363 M00S01037.dsp +++|* EXIT (A) = ADDRESS OF EJT.
01364 M00S01038.dsp +++|*
01365 M00S01039.dsp +++|* MACROS SFA.
01366 M00S01040.dsp +++|
01367 M00S01041.dsp +++|
01368 M00S01042.dsp +++| GEA SUBR ENTRY/EXIT
01369 M00S01043.dsp +++| LDM EJTO LOAD EJT ORDINAL
01370 M00S01044.dsp +++| SFA EJT
01371 M00S01045.dsp +++| UJN GEAX RETURN
01372 M00S01046.dsp +++| GFA SPACE 4,10
01373 M00S01047.dsp +++|** GFA - GET PARAMETER BLOCK ADDRESS.
01374 M00S01048.dsp +++|*
01375 M00S01049.dsp +++|* ENTRY (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
01376 M00S01050.dsp +++|*
01377 M00S01051.dsp +++|* EXIT (A) = ABSOLUTE ADDRESS.
01378 M00S01052.dsp +++|
01379 M00S01053.dsp +++|
01380 M00S01054.dsp +++| GFA SUBR ENTRY/EXIT
01381 M00S01055.dsp +++| LDD IR+3
01382 M00S01056.dsp +++| LPN 37
01383 M00S01057.dsp +++| SHN 6
01384 M00S01058.dsp +++| ADD RA
01385 M00S01059.dsp +++| SHN 6
01386 M00S01060.dsp +++| ADD IR+4
01387 M00S01061.dsp +++| UJN GFAX RETURN
01388 M00S01062.dsp +++| RFN SPACE 4,10
01389 M00S01063.dsp +++|** RFN - READ FAMILY NAME.
01390 M00S01064.dsp +++|*
01391 M00S01065.dsp +++|* EXIT (A) = CM ADDRESS OF FAMILY NAME.
01392 M00S01066.dsp +++|*
01393 M00S01067.dsp +++|* USES CM - CM+4.
01394 M00S01068.dsp +++|*
01395 M00S01069.dsp +++|* MACROS SFA.
01396 M00S01070.dsp +++|
01397 M00S01071.dsp +++|
01398 M00S01072.dsp +++| RFN SUBR ENTRY/EXIT
01399 M00S01073.dsp +++| LDD CP READ FAMILY POINTER
01400 M00S01074.dsp +++| ADN PFCW
01401 M00S01075.dsp +++| CRD CM
01402 M00S01076.dsp +++| SFA EST,CM+3 READ EST
01403 M00S01077.dsp +++| ADK EQDE
01404 M00S01078.dsp +++| CRD CM
01405 M00S01079.dsp +++| LDD CM+4 SET FAMILY ADDRESS
01406 M00S01080.dsp +++| SHN 3
01407 M00S01081.dsp +++| ADN PFGL
01408 M00S01082.dsp +++| UJN RFNX RETURN
Line S00051 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01409 M01S00051.242l642 +++| RMS SPACE 4,10
01410 M01S00052.242l642 +++|** RMS - READ MASS STORAGE.
01411 M01S00053.242l642 +++|*
01412 M01S00054.242l642 +++|* ENTRY (A) = BUFFER ADDRESS.
01413 M01S00055.242l642 +++|* (T5 - T7) = MASS STORAGE PARAMETERS.
01414 M01S00056.242l642 +++|*
01415 M01S00057.242l642 +++|* EXIT (A) .GE. 0.
01416 M01S00058.242l642 +++|*
01417 M01S00059.242l642 +++|* ERROR TO *EER*.
01418 M01S00060.242l642 +++|*
01419 M01S00061.242l642 +++|* CALLS RDS.
01420 M01S00062.242l642 +++|
01421 M01S00063.242l642 +++|
01422 M01S00064.242l642 +++| RMS SUBR ENTRY/EXIT
01423 M01S00065.242l642 +++| RJM RDS
01424 M01S00066.242l642 +++| PJN RMSX IF SUCCESSFUL READ
01425 M01S00067.242l642 +++| LJM EER EVALUATE ERROR RETURN
01426 M00S01083.dsp +++| SQO SPACE 4,10
01427 M00S01084.dsp +++|** SQO - SET QFT OWNERSHIP.
01428 M00S01085.dsp +++|*
01429 M00S01086.dsp +++|* EXIT QFT UPDATED.
01430 M00S01087.dsp +++|*
01431 M00S01088.dsp +++|* USES CN - CN+4, FN - FN+4, UN - UN+4.
01432 M00S01089.dsp +++|*
01433 M00S01090.dsp +++|* CALLS GEA, GFO, SSJ.
01434 M00S01091.dsp +++|*
01435 M00S01092.dsp +++|* MACROS SFA.
01436 M00S01093.dsp +++|
01437 M00S01094.dsp +++|
01438 M00S01095.dsp +++| SQO3 LDD CN+2 SET FO,UI IN SYSTEM SECTOR
01439 M00S01096.dsp +++| STM IOSS+JSNQ*5+2
01440 M00S01097.dsp +++| LDD CN+3
01441 M00S01098.dsp +++| STM IOSS+JSNQ*5+3
01442 M00S01099.dsp +++|
01443 M00S01100.dsp +++| SQO SUBR ENTRY
01444 M00S01101.dsp +++| RJM GEA GET EJT ADDRESS
01445 M00S01102.dsp +++| ADK JSNE GET *FO,UI* FROM EJT
01446 M00S01103.dsp +++| CRD CN
01447 M00S01104.dsp +++| LDD CN+2 SET *FO,UI* IN SYSTEM SECTOR
01448 M00S01105.dsp +++| ADD CN+3
01449 M00S01106.dsp +++| NJN SQO3 IF FAMILY ORDINAL AND UI .NE. 0
01450 M00S01107.dsp +++| LDD MA SAVE FILE NAME
01451 M00S01108.dsp +++| CWD FN
01452 M00S01109.dsp +++| CRD UN
01453 M00S01110.dsp +++| LDD CP DETERMINE FAMILY ORDINAL FROM CPA
01454 M00S01111.dsp +++| ADK PFCW
01455 M00S01112.dsp +++| CRD CN
01456 M00S01113.dsp +++| SFA EST,CN+3 GET FAMILY EST ORDINAL
01457 M00S01114.dsp +++| ADK EQDE
01458 M00S01115.dsp +++| CRD CN
01459 M00S01116.dsp +++| LDD CN+4 LOAD MST ADDRESS
01460 M00S01117.dsp +++| SHN 3
01461 M00S01118.dsp +++| ADK PFGL
01462 M00S01119.dsp +++| CRD FN
01463 M00S01120.dsp +++| CRM FOSS,ON
01464 M00S01121.dsp +++|* LDN (NONZERO)
01465 M00S01122.dsp +++| RJM GFO GET FAMILY ORDINAL
01466 M00S01123.dsp +++| RJM SSJ CHECK FOR SSJ= BLOCK
01467 M00S01124.dsp +++| ZJN SQO1 IF NO SSJ= BLOCK PRESENT
01468 M00S01125.dsp +++| ADK UIDS GET USER INDEX
01469 M00S01126.dsp +++| UJN SQO2 CONTINUE
01470 M00S01127.dsp +++|
01471 M00S01128.dsp +++| SQO1 LDD CP GET UI FROM CPA
01472 M00S01129.dsp +++| ADK UIDW
01473 M00S01130.dsp +++| SQO2 CRD CN
01474 M00S01131.dsp +++| CRM OASS,ON
01475 M00S01132.dsp +++| LDD FN+4 SET FO,UI IN QFT
01476 M00S01133.dsp +++| SHN 6
01477 M00S01134.dsp +++| LMD CN+3
01478 M00S01135.dsp +++| SCN 37 CLEAR CHARGE REQUIRED BIT
01479 M00S01136.dsp +++| LMD CN+3
01480 M00S01137.dsp +++| STD CN+2
01481 M00S01138.dsp +++| LDD CN+4
01482 M00S01139.dsp +++| STD CN+3
01483 M00S01140.dsp +++| LDD MA RESTORE FILE NAME
01484 M00S01141.dsp +++| CWD UN
01485 M00S01142.dsp +++| CRD FN
01486 M00S01143.dsp +++| LJM SQO3 CONTINUE
01487 M00S01144.dsp +++| SSJ SPACE 4,10
01488 M00S01145.dsp +++|** SSJ - CHECK FOR SSJ= BLOCK.
01489 M00S01146.dsp +++|*
Line S01147 Modification History
M01 (Removed by) ns2323
Seq # *Modification Id* Act
----------------------------+
01490 M01S01147.ns2323 ---|* EXIT (A) = 0, NO SSJ= BLOCK PRESENT.
01491 M01S01148.ns2323 ---|* (A) = SSJ= BLOCK ADDRESS.
Line S00001 Modification History
M01 (Added by) ns2323
Seq # *Modification Id* Act
----------------------------+
01492 M01S00001.ns2323 +++|* EXIT (A) = 0 IF NO SSJ= BLOCK PRESENT.
01493 M01S00002.ns2323 +++|* (A) = SSJ= BLOCK ADDRESS IF PRESENT.
01494 M00S01149.dsp +++|*
01495 M00S01150.dsp +++|* USES CM - CM+4.
Line S00003 Modification History
M01 (Added by) ns2323
Seq # *Modification Id* Act
----------------------------+
01496 M01S00003.ns2323 +++|*
01497 M01S00004.ns2323 +++|* MACROS NFA.
01498 M00S01151.dsp +++|
01499 M00S01152.dsp +++|
01500 M00S01153.dsp +++| SSJ SUBR ENTRY/EXIT
01501 M00S01154.dsp +++| LDD CP CHECK FOR SSJ=
01502 M00S01155.dsp +++| ADC SEPW
01503 M00S01156.dsp +++| CRD CM
01504 M00S01157.dsp +++| LDD CM
01505 M00S01158.dsp +++| LPN 4
01506 M00S01159.dsp +++| ZJN SSJX IF NOT SSJ=
01507 M00S01160.dsp +++| LDD CM+3 CHECK IF SSJ= BLOCK PRESENT
01508 M00S01161.dsp +++| LPN 37
Line S01162 Modification History
M01 (Removed by) ns2323
Seq # *Modification Id* Act
----------------------------+
01509 M01S01162.ns2323 ---| SHN 14
01510 M01S01163.ns2323 ---| LMD CM+4
Line S00005 Modification History
M01 (Added by) ns2323
Seq # *Modification Id* Act
----------------------------+
01511 M01S00005.ns2323 +++| ADD CM+4
01512 M00S01164.dsp +++| ZJN SSJX IF NO SSJ= BLOCK
Line S01165 Modification History
M01 (Removed by) ns2323
Seq # *Modification Id* Act
----------------------------+
01513 M01S01165.ns2323 ---| SHN 14 SET SSJ= ADDRESS
01514 M01S01166.ns2323 ---| ADD RA
01515 M01S01167.ns2323 ---| SHN 6
Line S00006 Modification History
M01 (Added by) ns2323
Seq # *Modification Id* Act
----------------------------+
01516 M01S00006.ns2323 +++| NFA SSJN SET SSJ= BLOCK ADDRESS
01517 M00S01168.dsp +++| UJN SSJX RETURN
01518 M00S01169.dsp +++| VCA SPACE 4,14
01519 M00S01170.dsp +++|** VCA - VALIDATE CENTRAL ADDRESS.
01520 M00S01171.dsp +++|*
01521 M00S01172.dsp +++|* ENTRY (A) = CENTRAL ADDRESS TO VALIDATE.
01522 M00S01173.dsp +++|*
01523 M00S01174.dsp +++|* EXIT (A) = 0, IF ADDRESS .LE. 1, OR .GE. FL.
01524 M00S01175.dsp +++|* (A) = CENTRAL ADDRESS IF VALID.
01525 M00S01176.dsp +++|* (T1 - T2) = CENTRAL ADDRESS.
01526 M00S01177.dsp +++|*
01527 M00S01178.dsp +++|* USES T1, T2.
01528 M00S01179.dsp +++|
01529 M00S01180.dsp +++|
01530 M00S01181.dsp +++| VCA1 STD T1 CLEAR UPPER PART OF ADDRESS
01531 M00S01182.dsp +++| VCA2 LDN 0 SET BAD ADDRESS FLAG
01532 M00S01183.dsp +++|
01533 M00S01184.dsp +++| VCA SUBR ENTRY/EXIT
01534 M00S01185.dsp +++| STD T2
01535 M00S01186.dsp +++| SCN 1
01536 M00S01187.dsp +++| ZJN VCA1 IF ADDRESS .LE. 1
01537 M00S01188.dsp +++| SCN 77
01538 M00S01189.dsp +++| SHN 6
01539 M00S01190.dsp +++| STD T1
01540 M00S01191.dsp +++| SHN 6
01541 M00S01192.dsp +++| SBD FL
01542 M00S01193.dsp +++| PJN VCA2 IF ADDRESS .GE. FL
01543 M00S01194.dsp +++| LDD T1
01544 M00S01195.dsp +++| SHN 14
01545 M00S01196.dsp +++| LMD T2
01546 M00S01197.dsp +++| UJN VCAX RETURN
Line S00068 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01547 M01S00068.242l642 +++| WMS SPACE 4,10
01548 M01S00069.242l642 +++|** WMS - WRITE MASS STORAGE.
01549 M01S00070.242l642 +++|*
01550 M01S00071.242l642 +++|* ENTRY (A) = BUFFER ADDRESS.
01551 M01S00072.242l642 +++|* (T5 - T7) = MASS STORAGE PARAMETERS.
01552 M01S00073.242l642 +++|*
01553 M01S00074.242l642 +++|* EXIT (A) .GE. 0.
01554 M01S00075.242l642 +++|*
01555 M01S00076.242l642 +++|* ERROR TO *EER*.
01556 M01S00077.242l642 +++|*
01557 M01S00078.242l642 +++|* CALLS WDS.
01558 M01S00079.242l642 +++|
01559 M01S00080.242l642 +++|
01560 M01S00081.242l642 +++| WMS SUBR ENTRY/EXIT
01561 M01S00082.242l642 +++| RJM WDS
01562 M01S00083.242l642 +++| PJN WMSX IF SUCCESSFUL WRITE
01563 M01S00084.242l642 +++| LJM EER EVALUATE ERROR RETURN
01564 M00S01198.dsp +++| SPACE 4,10
01565 M00S01199.dsp +++|** COMMON DECKS.
01566 M00S01200.dsp +++|
Line S00001 Modification History
M01 (Added by) dsp16
Seq # *Modification Id* Act
----------------------------+
01567 M01S00001.dsp16 +++|
01568 M00S01201.dsp +++| EJT$ SET 1 CALCULATE EJT ADDRESS
01569 M00S01202.dsp +++| IFP$ EQU 1 ASSEMBLE REMOTE INITIALIZATION CODE
01570 M00S01203.dsp +++| QFT$ SET 1 CALCULATE QFT ADDRESS
01571 M00S01204.dsp +++|*CALL COMPGFP
Line S01205 Modification History
M01 (Removed by) dsp16
Seq # *Modification Id* Act
----------------------------+
01572 M01S01205.dsp16 ---|*CALL COMPIAM
01573 M00S01206.dsp +++| GFO$ SET 1 CONVERT FAMILY NAME TO FAMILY ORDINAL
01574 M00S01207.dsp +++| GFM$ SET 1 CONVERT FAMILY ORDINAL TO FAMILY NAME
01575 M00S01208.dsp +++|*CALL COMPUFT
Line S00085 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01576 M01S00085.242l642 +++| QUAL MIO
01577 M01S00086.242l642 +++| WDS EQU WMS USE *WMS* IN PLACE OF *WDS*
01578 M00S01209.dsp +++| WEI$ SET 1 ALLOW *DSP* TO SPECIFY EOI BUFFER
01579 M00S01210.dsp +++|*CALL COMPWEI
Line S00087 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01580 M01S00087.242l642 +++| QUAL *
01581 M01S00088.242l642 +++| WEI EQU /MIO/WEI
Line S01211 Modification History
M01 (Removed by) ns2185
Seq # *Modification Id* Act
----------------------------+
01582 M01S01211.ns2185 ---|*CALL COMPWSS
01583 M00S01212.dsp +++| SPACE 4,10
01584 M00S01213.dsp +++|* THE FOLLOWING SUBROUTINES MAY BE OVERLAID BY *DSP* OVERLAYS.
01585 M00S01214.dsp +++| SPACE 4,10
01586 M00S01215.dsp +++| OVL4 EQU *+5 LOAD ADDRESS FOR *DSP* OVERLAYS
01587 M00S01216.dsp +++|
01588 M00S01217.dsp +++| ERRNG OVL2-5-* OVERFLOW INTO *0DF*
01589 M00S01218.dsp +++| ERRNG OVL0-5-* OVERFLOW INTO *0DQ*
01590 M00S01219.dsp +++| TITLE FILE INITIALIZATION ROUTINES.
Line S01220 Modification History
M01 (Removed by) dsp46
Seq # *Modification Id* Act
----------------------------+
01591 M01S01220.dsp46 ---| AMS SPACE 4,10
Line S00001 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01592 M01S00001.dsp46 +++| AMS SPACE 4,20
01593 M00S01221.dsp +++|** AMS - ASSIGN MASS STORAGE.
01594 M00S01222.dsp +++|*
01595 M00S01223.dsp +++|* ENTRY (FS - FS+4) = FST ENTRY.
01596 M00S01224.dsp +++|* (FA) = NFL FNT OFFSET.
01597 M00S01225.dsp +++|*
01598 M00S01226.dsp +++|* EXIT (FS - FS+4) = FST ENTRY.
01599 M00S01227.dsp +++|* MASS STORAGE ASSIGNED.
Line S01228 Modification History
M01 (Removed by) dsp46
Seq # *Modification Id* Act
----------------------------+
01600 M01S01228.dsp46 ---|* EOI WRITTEN.
Line S00002 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01601 M01S00002.dsp46 +++|* SYSTEM SECTOR AND EOI WRITTEN.
01602 M00S01229.dsp +++|* (T5) = EQUIPMENT.
01603 M00S01230.dsp +++|*
Line S01231 Modification History
M01 (Removed by) dsp46
Seq # *Modification Id* Act
----------------------------+
01604 M01S01231.dsp46 ---|* USES CM - CM+4, FS - FS+4, T5 - T7.
Line S00003 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01605 M01S00003.dsp46 +++|* USES T5, T6, CM - CM+4, FS - FS+4.
01606 M00S01232.dsp +++|*
Line S01233 Modification History
M01 (Removed by) dsp46
Seq # *Modification Id* Act
----------------------------+
01607 M01S01233.dsp46 ---|* CALLS PDF, WEI.
Line S00004 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01608 M01S00004.dsp46 +++|* CALLS PDF, WEI, WSS.
01609 M00S01234.dsp +++|*
01610 M00S01235.dsp +++|* MACROS ENDMS, MONITOR, NFA, SETMS.
01611 M00S01236.dsp +++|
01612 M00S01237.dsp +++|
01613 M00S01238.dsp +++| AMS SUBR ENTRY/EXIT
01614 M00S01239.dsp +++| LDD FS+2
01615 M00S01240.dsp +++| NJN AMSX IF FILE USED
01616 M00S01241.dsp +++| LDD FS+1
01617 M00S01242.dsp +++| NJN AMS2 IF FILE ASSIGNED
01618 M00S01243.dsp +++|
01619 M00S01244.dsp +++|* ASSIGN MASS STORAGE.
01620 M00S01245.dsp +++|
01621 M00S01246.dsp +++| AMS1 LDN ZERL CLEAR PARAMETERS
01622 M00S01247.dsp +++| CRD CM
01623 M00S01248.dsp +++| LDN OUTS SET *RTCM* PARAMETER FOR OUTPUT FILE
01624 M00S01249.dsp +++| STD CM+2
01625 M00S01250.dsp +++| LDM LFAL SET ACCESS LEVEL SELECTION
01626 M00S01251.dsp +++| ADN 40
01627 M00S01252.dsp +++| SHN 6
01628 M00S01253.dsp +++| STD CM+3
01629 M00S01254.dsp +++| MONITOR RTCM REQUEST TRACK CHAIN
01630 M00S01255.dsp +++| LDD CM+1 SET EQUIPMENT
Line S01256 Modification History
M01 (Removed by) dsp14
Seq # *Modification Id* Act
----------------------------+
01631 M01S01256.dsp14 ---| STD T5
01632 M00S01257.dsp +++| STD FS
01633 M00S01258.dsp +++| LDD CM+4
01634 M00S01259.dsp +++| NJN AMS2 IF TRACK ASSIGNED
01635 M00S01260.dsp +++| RJM PDF PROCESS DEVICE FULL
01636 M00S01261.dsp +++| UJN AMS1 RETRY MASS STORAGE ALLOCATION
01637 M00S01262.dsp +++|
01638 M00S01263.dsp +++|* UPDATE FNT/FST.
01639 M00S01264.dsp +++|
01640 M00S01265.dsp +++| AMS2 STD FS+1 SET FIRST TRACK
01641 M00S01266.dsp +++| STD FS+2
01642 M00S01267.dsp +++| STD T6
Line S00001 Modification History
M01 (Added by) dsp14
Seq # *Modification Id* Act
----------------------------+
01643 M01S00001.dsp14 +++| LDD FS SET *EST* ORDINAL
01644 M01S00002.dsp14 +++| STD T5
01645 M00S01268.dsp +++| LDN FSMS SET FIRST SECTOR
Line S01269 Modification History
M01 (Removed by) dsp46
Seq # *Modification Id* Act
----------------------------+
01646 M01S01269.dsp46 ---| STD T7
01647 M00S01270.dsp +++| STD FS+3
01648 M00S01271.dsp +++| LDN 14 SET FILE BUSY
01649 M00S01272.dsp +++| STD FS+4
Line S01273 Modification History
M01 (Removed by) dsp46
Seq # *Modification Id* Act
----------------------------+
01650 M01S01273.dsp46 ---|
01651 M01S01274.dsp46 ---|* WRITE EOI AND UPDATE TRT.
01652 M01S01275.dsp46 ---|
01653 M00S01276.dsp +++| NFA FA,R WRITE FST
01654 M00S01277.dsp +++| ADN FSTL
01655 M00S01278.dsp +++| CWD FS
Line S00005 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01656 M01S00005.dsp46 +++|
01657 M01S00006.dsp46 +++|* WRITE SYSTEM SECTOR AND EOI.
01658 M01S00007.dsp46 +++|
Line S01279 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
01659 M01S01279.242l642 ---| SETMS WRITE,NE
Line S00089 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01660 M01S00089.242l642 +++| SETMS IO
Line S00008 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01661 M01S00008.dsp46 +++| RJM WSS WRITE SYSTEM SECTOR
01662 M00S01280.dsp +++| LDC BFMS ADDRESS OF EOI BUFFER
01663 M00S01281.dsp +++| RJM WEI WRITE EOI
01664 M00S01282.dsp +++| ENDMS
Line S00009 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
01665 M01S00009.dsp46 +++|
01666 M01S00010.dsp46 +++|* UPDATE TRT.
01667 M01S00011.dsp46 +++|
01668 M00S01283.dsp +++| LDD T5 SET EQUIPMENT
01669 M00S01284.dsp +++| STD CM+1
01670 M00S01285.dsp +++| LDD T6 SET TRACK
01671 M00S01286.dsp +++| LPC 3777
01672 M00S01287.dsp +++| STD CM+2
01673 M00S01288.dsp +++| LDD T7 SET SECTOR
01674 M00S01289.dsp +++| STD CM+3
01675 M00S01290.dsp +++| MONITOR DTKM DROP TRACKS AND UPDATE TRT
Line S00002 Modification History
M01 (Added by) ns2171
Seq # *Modification Id* Act
----------------------------+
01676 M01S00002.ns2171 +++| LDM SLM SET SECTOR COUNT
01677 M01S00003.ns2171 +++| STM DPPC+1
01678 M01S00004.ns2171 +++| LDN CDCS SET DECREMENT FUNCTION
01679 M01S00005.ns2171 +++| STM DPPB
01680 M00S01291.dsp +++| LJM AMSX RETURN
01681 M00S01292.dsp +++| CSL SPACE 4,10
01682 M00S01293.dsp +++|** CSL - CHECK FOR SPECIAL LID.
01683 M00S01294.dsp +++|*
01684 M00S01295.dsp +++|* ENTRY (A) = LID (MAY BE SPECIAL CODE).
01685 M00S01296.dsp +++|*
01686 M00S01297.dsp +++|* EXIT (A) = LID, IF NO SPECIAL CODE.
01687 M00S01298.dsp +++|* (A) = 0 IF SPECIAL CODE = *LCZR*.
01688 M00S01299.dsp +++|* (A) = PID IF SPECIAL CODE = *LCPD*.
01689 M00S01300.dsp +++|*
01690 M00S01301.dsp +++|* USES T1, CM - CM+4.
01691 M00S01302.dsp +++|
01692 M00S01303.dsp +++|
01693 M00S01304.dsp +++| CSL1 SHN 14 RESTORE LID AND EXIT
01694 M00S01305.dsp +++| LMD T1
01695 M00S01306.dsp +++|
01696 M00S01307.dsp +++|
01697 M00S01308.dsp +++| CSL SUBR ENTRY/EXIT
01698 M00S01309.dsp +++| STD T1
01699 M00S01310.dsp +++| SHN -14
01700 M00S01311.dsp +++| NJN CSL1 IF NOT SPECIAL CODE
01701 M00S01312.dsp +++| LDD T1
01702 M00S01313.dsp +++| ZJN CSLX IF ZERO LID
01703 M00S01314.dsp +++| SBN LCZR
01704 M00S01315.dsp +++| ZJN CSLX IF *ZERO LID* CODE SPECIFIED
01705 M00S01316.dsp +++| ERRNZ LCPD-2 CODE DEPENDS ON VALUE
01706 M00S01317.dsp +++| ERRNZ MXLC-3 CODE DEPENDS ON VALUE
01707 M00S01318.dsp +++|
Line S01319 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01708 M01S01319.v23l617 ---|* GET PID FROM LID TABLE.
Line S00040 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01709 M01S00040.v23l617 +++|* CREATE HOST PID USING THE MACHINE ID.
01710 M00S01320.dsp +++|
Line S01321 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01711 M01S01321.v23l617 ---| LDC LIDP GET LID POINTER
Line S00041 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01712 M01S00041.v23l617 +++| LDK MMFL GET MACHINE ID
01713 M00S01322.dsp +++| CRD CM
Line S01323 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01714 M01S01323.v23l617 ---| LDD CM
01715 M01S01324.v23l617 ---| SHN 14
01716 M01S01325.v23l617 ---| LMD CM+1
01717 M01S01326.v23l617 ---| ADN 1 READ FIRST WORD OF LID TABLE
01718 M01S01327.v23l617 ---| CRD CM
01719 M01S01328.v23l617 ---| LDD CM+1
01720 M01S01329.v23l617 ---| SCN 77
01721 M01S01330.v23l617 ---| SHN 6
01722 M01S01331.v23l617 ---| LMD CM
01723 M01S01332.v23l617 ---| SHN 6
Line S00042 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01724 M01S00042.v23l617 +++| LDN 1RM
01725 M01S00043.v23l617 +++| SHN 14
01726 M01S00044.v23l617 +++| LMD CM MERGE *M* WITH MACHINE ID
01727 M00S01333.dsp +++| UJN CSLX RETURN
01728 M00S01334.dsp +++| EDF SPACE 4,25
01729 M00S01335.dsp +++|** EDF - ENTER DEFERRED FILE.
01730 M00S01336.dsp +++|*
01731 M00S01337.dsp +++|* ENTRY (QT) = QUEUE TYPE.
01732 M00S01338.dsp +++|* (ST) = STATUS WORD.
01733 M00S01339.dsp +++|* (FA) = NFL FNT ENTRY OFFSET.
01734 M00S01340.dsp +++|*
01735 M00S01341.dsp +++|* EXIT *BFMS* CONTAINS UPDATED SYSTEM SECTOR FOR QUEUED FILE.
01736 M00S01342.dsp +++|* (FS - FS+4) = QUEUED FILE FST ENTRY.
01737 M00S01343.dsp +++|* (ST) = STATUS WORD.
01738 M00S01344.dsp +++|*
01739 M00S01345.dsp +++|* ERROR TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
01740 M00S01346.dsp +++|* THIS ROUTING NOT ALLOWED.
01741 M00S01347.dsp +++|*
01742 M00S01348.dsp +++|* USES QA, ST, FN - FN+4, FS - FS+4.
01743 M00S01349.dsp +++|*
01744 M00S01350.dsp +++|* CALLS FNB, FQI.
01745 M00S01351.dsp +++|*
01746 M00S01352.dsp +++|* MACROS ERROR, NFA.
01747 M00S01353.dsp +++|
01748 M00S01354.dsp +++|
01749 M00S01355.dsp +++| EDF4 AOM DPPA SET FILE NOT BUSY
01750 M00S01356.dsp +++| LJM DPP DROP PPU
01751 M00S01357.dsp +++|
01752 M00S01358.dsp +++| EDF SUBR ENTRY/EXIT
01753 M00S01359.dsp +++|
01754 M00S01360.dsp +++|* USE QUEUE TYPE FROM SYSTEM SECTOR, IF NOT SPECIFIED IN CALL.
01755 M00S01361.dsp +++|
01756 M00S01362.dsp +++| LDD ST CHECK IF DISPOSITION CODE SPECIFIED
01757 M00S01363.dsp +++| LPC DCFL
01758 M00S01364.dsp +++| NJN EDF1 IF DISPOSITION CODE SPECIFIED
01759 M00S01365.dsp +++| LDM IOSS+JSNQ*5+4 USE QUEUE TYPE FROM SYSTEM SECTOR
01760 M00S01366.dsp +++| SHN -11
01761 M00S01367.dsp +++| STD QT
01762 M00S01368.dsp +++|
01763 M00S01369.dsp +++|* DETERMINE IF QUEUE TYPE HAS CHANGED.
01764 M00S01370.dsp +++|
01765 M00S01371.dsp +++| EDF1 LDM IOSS+JSNQ*5+4
01766 M00S01372.dsp +++| SHN -11
01767 M00S01373.dsp +++| LMD QT
01768 M00S01374.dsp +++| ZJN EDF2 IF NO CHANGE IN QUEUE TYPE
01769 M00S01375.dsp +++| ERROR /ERR/EC26 * DSP - THIS ROUTING NOT ALLOWED.*
01770 M00S01376.dsp +++|
01771 M00S01377.dsp +++| EDF2 LDN DSFL FLAG DATA IN SYSTEM SECTOR
01772 M00S01378.dsp +++| RAD ST
01773 M00S01379.dsp +++| LDM GQSS GET ORDINAL NUMBER
01774 M00S01380.dsp +++| STD QA
01775 M00S01381.dsp +++| LDN 0 SET *INTERLOCK* FUNCTION
01776 M00S01382.dsp +++| RJM FQI FUNCTION QFT INTERLOCK
01777 M00S01383.dsp +++| NJN EDF4 IF ENTRY NOT INTERLOCKED
01778 M00S01384.dsp +++| NFA FA,R READ FNT ENTRY OF FILE
01779 M00S01385.dsp +++| CRD FN
Line S01386 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
01780 M01S01386.242l642 ---| ADN FSTG
Line S00090 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01781 M01S00090.242l642 +++| ADN FSTL
01782 M00S01387.dsp +++| CRD FS
01783 M00S01388.dsp +++| LDM IOSS+JSNQ*5+4 CLEAR ATTACHED TO EJT BIT
01784 M00S01389.dsp +++| SCN 77
01785 M00S01390.dsp +++| STM IOSS+JSNQ*5+4
01786 M00S01391.dsp +++|
01787 M00S01392.dsp +++|* DETERMINE IF FILE IS BEING REQUEUED.
01788 M00S01393.dsp +++|
01789 M00S01394.dsp +++| LDM FGSS CHECK IF FILE BEING REQUEUED
01790 M00S01395.dsp +++| LPN 2
01791 M00S01396.dsp +++| ZJN EDF3 IF FILE NOT BEING REQUEUED
01792 M00S01397.dsp +++| LDC RQFL SAVE *FILE BEING REQUEUED* STATUS
01793 M00S01398.dsp +++| RAD ST
Line S01399 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01794 M01S01399.ns2663 ---| LDC LDCI+1RR ISSUE *ARRQ* MESSAGE AT TERMINATION
01795 M01S01400.ns2663 ---| STM DSPA
01796 M01S01401.ns2663 ---| LDC 2RRQ
01797 M01S01402.ns2663 ---| STM DSPA+1
01798 M00S01403.dsp +++| EDF3 LJM EDFX RETURN
01799 M00S01404.dsp +++| EFN SPACE 4,15
01800 M00S01405.dsp +++|** EFN - ENTER FILE NAME IN FNT TABLE.
01801 M00S01406.dsp +++|*
Line S01407 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01802 M01S01407.v23l617 ---|* ENTRY (UN - UN+4) = FILE NAME.
Line S00045 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01803 M01S00045.v23l617 +++|* ENTRY (FN - FN+4) = FILE NAME.
01804 M00S01408.dsp +++|*
01805 M00S01409.dsp +++|* EXIT (FS - FS+4) = FST ENTRY.
01806 M00S01410.dsp +++|* (FA) = NFL FNT OFFSET.
01807 M00S01411.dsp +++|* (FNBB) INCREMENTED.
01808 M00S01412.dsp +++|* (LFAL) = ACCESS LEVEL OF NEW FILE.
01809 M00S01413.dsp +++|*
01810 M00S01414.dsp +++|* ERROR TO *DPP*, IF DUPLICATE FILE ROUND.
01811 M00S01415.dsp +++|*
Line S01416 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
01812 M01S01416.v23l617 ---|* USES FS, CM - CM+4.
Line S00046 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01813 M01S00046.v23l617 +++|* USES FS, CM - CM+4, UN - UN+4.
01814 M00S01417.dsp +++|*
01815 M00S01418.dsp +++|* CALLS *0BF*.
01816 M00S01419.dsp +++|*
01817 M00S01420.dsp +++|* MACROS EXECUTE, MONITOR, NFA.
01818 M00S01421.dsp +++|
01819 M00S01422.dsp +++|
01820 M00S01423.dsp +++| EFN1 AOM FNBB SET FILE CREATED BY *DSP*
01821 M00S01424.dsp +++| NFA FA,R
01822 M00S01425.dsp +++| ADK FUTL
01823 M00S01426.dsp +++| CRD CM
01824 M00S01427.dsp +++| LDD CM+2
01825 M00S01428.dsp +++| LPN 7
01826 M00S01429.dsp +++| STM LFAL
01827 M00S01430.dsp +++|
01828 M00S01431.dsp +++| EFN SUBR ENTRY/EXIT
Line S00047 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
01829 M01S00047.v23l617 +++| LDD MA GET FILE NAME
01830 M01S00048.v23l617 +++| CWD FN
01831 M01S00049.v23l617 +++| CRD UN
01832 M00S01432.dsp +++| LDN NEEQ SET NO MASS STORAGE ASSIGNMENT
01833 M00S01433.dsp +++| STD FS
01834 M00S01434.dsp +++| LDN 0 SELECT NO RETURN WITHOUT FILE CREATED
01835 M00S01435.dsp +++| STM OVL0-1
01836 M00S01436.dsp +++| EXECUTE 0BF,OVL0 BEGIN FILE
01837 M00S01437.dsp +++| UJN EFN1 NO DUPLICATE ENTRY
01838 M00S01438.dsp +++|
Line S01439 Modification History
M01 (Removed by) 241l630
Seq # *Modification Id* Act
----------------------------+
01839 M01S01439.241l630 ---| MONITOR HNGM HANG PP
Line S00003 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
01840 M01S00003.241l630 +++|* PROCESS ADVANCE EXIT FROM *0BF* (FILE ALREADY EXISTS).
01841 M01S00004.241l630 +++|
01842 M01S00005.241l630 +++| LDN SWET SET SYSTEM SOFTWARE ERROR
01843 M01S00006.241l630 +++| STD CM+2
01844 M01S00007.241l630 +++| LDC * SET ADDRESS WHERE ERROR DETECTED
01845 M01S00008.241l630 +++| STD CM+1
01846 M01S00009.241l630 +++| MONITOR CHGM CONDITIONALLY HANG PP
01847 M00S01440.dsp +++| LJM DPP DROP PP
01848 M00S01441.dsp +++| EQF SPACE 4,10
01849 M00S01442.dsp +++|** EQF - ENTER QUEUED FILE IN GLOBAL TABLE.
01850 M00S01443.dsp +++|*
01851 M00S01444.dsp +++|* EXIT (QA) = ORDINAL OF ENTRY.
Line S01445 Modification History
M01 (Removed by) ns2369
Seq # *Modification Id* Act
----------------------------+
01852 M01S01445.ns2369 ---|* QFT UPDATED.
Line S00013 Modification History
M01 (Added by) ns2369
Seq # *Modification Id* Act
----------------------------+
01853 M01S00013.ns2369 +++|* (FNBA) = 1 (CREATION MODE).
01854 M01S00014.ns2369 +++|* QFT BUFFER INITIALIZED.
01855 M00S01446.dsp +++|* *QFT FULL.* MESSAGE ISSUED TO OPERATOR, IF
01856 M00S01447.dsp +++|* CANNOT MAKE AN ENTRY IN THE QFT.
01857 M00S01448.dsp +++|*
01858 M00S01449.dsp +++|* USES QA, CM - CM+7.
01859 M00S01450.dsp +++|* TO *RCL* IF QFT FULL.
01860 M00S01451.dsp +++|*
01861 M00S01452.dsp +++|* CALLS CTE, FNB, GEA.
01862 M00S01453.dsp +++|*
01863 M00S01454.dsp +++|* MACROS ERROR, PAUSE, SFA.
01864 M00S01455.dsp +++|
01865 M00S01456.dsp +++|
01866 M00S01457.dsp +++| EQF SUBR ENTRY/EXIT
Line S01458 Modification History
M01 (Removed by) ns2556
Seq # *Modification Id* Act
----------------------------+
01867 M01S01458.ns2556 ---| LDM SBSN SET SUBSYSTEM NAME AS JSN
Line S00016 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
01868 M01S00016.ns2556 +++| LDM FJSN SET FORCED JSN OR SUBSYSTEM NAME
01869 M00S01459.dsp +++| STD CM+3
Line S01460 Modification History
M01 (Removed by) ns2556
Seq # *Modification Id* Act
----------------------------+
01870 M01S01460.ns2556 ---| LDM SBSN+1
Line S00017 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
01871 M01S00017.ns2556 +++| LDM FJSN+1
01872 M00S01461.dsp +++| STD CM+4
01873 M00S01462.dsp +++| LDD FB CHECK FOR JOB TERMINATION
01874 M00S01463.dsp +++| SHN 21-11
01875 M00S01464.dsp +++| PJN EQF2 IF NOT FINAL ROUTE FOR TERMINATING JOB
01876 M00S01465.dsp +++| RJM GEA GET EJT-S JSN
01877 M00S01466.dsp +++| ADK JSNE
01878 M00S01467.dsp +++| CRD CM+3
01879 M00S01468.dsp +++| EQF1 LDN 0 ZERO FILL JSN
01880 M00S01469.dsp +++| STD CM+5
01881 M00S01470.dsp +++| STD CM+6
01882 M00S01471.dsp +++| AOM EQFA PREVENT ALLOCATION OF NEW JSN
01883 M00S01472.dsp +++| UJN EQF4 CONTINUE
01884 M00S01473.dsp +++|
Line S01474 Modification History
M01 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
01885 M01S01474.ns2493 ---| EQF2 LDD FB+1
Line S00021 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
01886 M01S00021.ns2493 +++| EQF2 LDM FSJS
01887 M01S00022.ns2493 +++| NJN EQF1 IF FORCED JSN
01888 M01S00023.ns2493 +++| LDD FB+1
01889 M00S01475.dsp +++| SHN 21-13
01890 M00S01476.dsp +++| PJN EQF3 IF NOT SUBSYSTEM INITIATION
01891 M00S01477.dsp +++| LDM SBID
01892 M00S01478.dsp +++| ZJN EQF1 IF SUBSYSTEM ID NOT SPECIFIED
01893 M00S01479.dsp +++| SBK LSSI+1
01894 M00S01480.dsp +++| PJN EQF1 IF SPECIFIED SUBSYSTEM IS IN *SSCT* TABLE
01895 M00S01481.dsp +++| EQF3 LDN ZERL SET UP FOR *CTE* CALL (ASSIGN NEW JSN)
01896 M00S01482.dsp +++| CRD CM+3
01897 M00S01483.dsp +++| EQF4 LDN 7 SET CREATION + ATTACH + INTERLOCK
01898 M00S01484.dsp +++| STD CM+7
01899 M00S01485.dsp +++| LDC PQFT REQUEST QFT ENTRY
01900 M00S01486.dsp +++|* LDC PQFT+10000 (IF NEW JSN NOT NEEDED)
01901 M00S01487.dsp +++| EQFA EQU *-2
01902 M00S01488.dsp +++| RJM CTE CREATE TABLE ENTRY
01903 M00S01489.dsp +++| NJN EQF6 IF ENTRY MADE
01904 M00S01490.dsp +++| LDD CP CONSOLE MESSAGE = * QFT FULL.*
01905 M00S01491.dsp +++| ADK MS2W
01906 M00S01492.dsp +++| CWM EQFB,TR
01907 M00S01493.dsp +++| PAUSE
01908 M00S01494.dsp +++| LDD FB CHECK IF ERROR PROCESSING NEEDED
01909 M00S01495.dsp +++| LPN 1
01910 M00S01496.dsp +++| ADD CM+1 CHECK FOR ERROR FLAG AT CONTROL POINT
01911 M00S01497.dsp +++| ZJN EQF5 IF NO ERROR PROCESSING NEEDED
01912 M00S01498.dsp +++| ERROR /ERR/EC25 * DSP - QFT FULL.*
01913 M00S01499.dsp +++|
01914 M00S01500.dsp +++| EQF5 LJM RCL RECALL PP
01915 M00S01501.dsp +++|
01916 M00S01502.dsp +++| EQF6 LDD CM+1 SAVE QFT ORDINAL
01917 M00S01503.dsp +++| STD QA
Line S01504 Modification History
M01 (Removed by) ns2369
Seq # *Modification Id* Act
----------------------------+
01918 M01S01504.ns2369 ---| AOM FNBA SET ENTRY MADE BY *DSP*
Line S00015 Modification History
M01 (Added by) ns2369
Seq # *Modification Id* Act
----------------------------+
01919 M01S00015.ns2369 +++| AOM FNBA SET CREATION MODE QFT ENTRY
01920 M00S01505.dsp +++| SFA QFT,QA GET ASSIGNED JSN
01921 M00S01506.dsp +++| ADK JSNQ
01922 M00S01507.dsp +++| CRM IOSS,ON
01923 M00S01508.dsp +++| LDN 0 CLEAR INTERLOCK AND CREATION BITS
01924 M00S01509.dsp +++| STM IOSS+JSNQ*5+4
01925 M00S01510.dsp +++| LDD FS SET EQUIPMENT
01926 M00S01511.dsp +++| STM IOSS+ENTQ*5+0
01927 M00S01512.dsp +++| LDD FS+1 SET TRACK
01928 M00S01513.dsp +++| STM IOSS+ENTQ*5+1
01929 M00S01514.dsp +++| LJM EQFX RETURN
01930 M00S01515.dsp +++|
01931 M00S01516.dsp +++| EQFB DATA C* QFT FULL.*
01932 M00S01517.dsp +++| GLI SPACE 4,10
01933 M00S01518.dsp +++|** GLI - GET LOGICAL IDENTIFIERS.
01934 M00S01519.dsp +++|*
01935 M00S01520.dsp +++|* ENTRY (QT) = DESTINATION QUEUE TYPE.
01936 M00S01521.dsp +++|*
01937 M00S01522.dsp +++|* EXIT DLID/SLID SAVED FOR SYSTEM SECTOR AND QFT.
01938 M00S01523.dsp +++|*
01939 M00S01524.dsp +++|* USES T1, CN - CN+4.
01940 M00S01525.dsp +++|*
01941 M00S01526.dsp +++|* CALLS CSL, GFA.
01942 M00S01527.dsp +++|
01943 M00S01528.dsp +++|
01944 M00S01529.dsp +++| GLI SUBR ENTRY/EXIT
01945 M00S01530.dsp +++| LDM SLSS PROPAGATE OLD VALUES OF DLID/SLID
01946 M00S01531.dsp +++| LPN 77
01947 M00S01532.dsp +++| STM SLID
01948 M00S01533.dsp +++| LDM SLSS+1
01949 M00S01534.dsp +++| STM SLID+1
01950 M00S01535.dsp +++| LDM IOSS+INSQ*5+2
01951 M00S01536.dsp +++| SCN 77
01952 M00S01537.dsp +++| SHN 6
01953 M00S01538.dsp +++| LMM IOSS+INSQ*5+1
01954 M00S01539.dsp +++| SHN 6
01955 M00S01540.dsp +++| STM DLID+1
01956 M00S01541.dsp +++| SHN -14
01957 M00S01542.dsp +++| STM DLID
01958 M00S01543.dsp +++| LDD QT
01959 M00S01544.dsp +++| LMK INQT
01960 M00S01545.dsp +++| ZJN GLI1 IF ROUTE TO INPUT
01961 M00S01546.dsp +++| LDM SLID SET DLID = SLID FOR OUTPUT FILES
01962 M00S01547.dsp +++| STM DLID
01963 M00S01548.dsp +++| LDM SLID+1
01964 M00S01549.dsp +++| STM DLID+1
01965 M00S01550.dsp +++| GLI1 LDD FB+1
01966 M00S01551.dsp +++| LPN FRLD
01967 M00S01552.dsp +++| ZJN GLI4 IF DLID/SLID NOT SPECIFIED
01968 M00S01553.dsp +++|
01969 M00S01554.dsp +++|* GET DLID FROM PARAMETER BLOCK.
01970 M00S01555.dsp +++|
01971 M00S01556.dsp +++| RJM GFA GET SLID/DLID
01972 M00S01557.dsp +++| ADN 2
01973 M00S01558.dsp +++| CRD CN
01974 M00S01559.dsp +++| LDD CN+1 CHECK DLID
01975 M00S01560.dsp +++| LPN 77
01976 M00S01561.dsp +++| SHN 14
01977 M00S01562.dsp +++| LMD CN+2
01978 M00S01563.dsp +++| RJM CSL CHECK FOR SPECIAL LID
01979 M00S01564.dsp +++| STM DLID+1 SAVE DLID
01980 M00S01565.dsp +++| SHN -14
01981 M00S01566.dsp +++| STM DLID
01982 M00S01567.dsp +++|
01983 M00S01568.dsp +++|* GET SLID FROM PARAMETER BLOCK.
01984 M00S01569.dsp +++|
01985 M00S01570.dsp +++| LDD CN+1 CHECK SLID
01986 M00S01571.dsp +++| SCN 77
01987 M00S01572.dsp +++| SHN 6
01988 M00S01573.dsp +++| LMD CN
01989 M00S01574.dsp +++| ZJN GLI4 IF NO CHANGE IN SLID
01990 M00S01575.dsp +++| SHN 6
01991 M00S01576.dsp +++| GLI2 RJM CSL CHECK FOR SPECIAL LID
01992 M00S01577.dsp +++| STM SLID+1 SAVE SLID
01993 M00S01578.dsp +++| SHN -14
01994 M00S01579.dsp +++| STM SLID
01995 M00S01580.dsp +++| GLI3 UJN GLI5 SET ATTRIBUTES
01996 M00S01581.dsp +++|
01997 M00S01582.dsp +++|* CHECK IF DEFAULT SLID NEEDED.
01998 M00S01583.dsp +++|
01999 M00S01584.dsp +++| GLI4 LDM SLID
02000 M00S01585.dsp +++| ADM SLID+1
02001 M00S01586.dsp +++| NJN GLI5 IF SLID NONZERO
Line S01587 Modification History
M01 (Removed by) dsp31
Seq # *Modification Id* Act
----------------------------+
02002 M01S01587.dsp31 ---| LDN 2
Line S00001 Modification History
M01 (Added by) dsp31
Seq # *Modification Id* Act
----------------------------+
02003 M01S00001.dsp31 +++| LDN LCPD
02004 M00S01588.dsp +++| UJN GLI2 SET SLID TO PID
02005 M00S01589.dsp +++|
02006 M00S01590.dsp +++|* GET ATTRIBUTES OF DLID/SLID.
02007 M00S01591.dsp +++|
02008 M00S01592.dsp +++| GLI5 LDM DLID GET DLID ATTRIBUTES
02009 M00S01593.dsp +++| SHN 14
02010 M00S01594.dsp +++| LMM DLID+1
02011 M00S01595.dsp +++| ZJN GLI6 IF NO DLID
02012 M00S01596.dsp +++| RJM VID GET ATTRIBUTES FROM LID TABLE
Line S00001 Modification History
M01 (Added by) dsp19
Seq # *Modification Id* Act
----------------------------+
02013 M01S00001.dsp19 +++| ZJN GLI6 IF LID TABLE NOT FOUND
02014 M00S01597.dsp +++| STM DLAT SAVE ATTRIBUTES
02015 M00S01598.dsp +++| GLI6 LDM SLID GET SLID ATTRIBUTES
02016 M00S01599.dsp +++| SHN 14
02017 M00S01600.dsp +++| LMM SLID+1
02018 M00S01601.dsp +++| ZJN GLI7 IF NO SLID
02019 M00S01602.dsp +++| RJM VID GET ATTRIBUTES FROM LID TABLE
Line S00002 Modification History
M01 (Added by) dsp19
Seq # *Modification Id* Act
----------------------------+
02020 M01S00002.dsp19 +++| ZJN GLI7 IF LID TABLE NOT FOUND
02021 M00S01603.dsp +++| STM SLAT SAVE ATTRIBUTES
02022 M00S01604.dsp +++| GLI7 LJM GLIX RETURN
02023 M00S01605.dsp +++| ISS SPACE 4,25
02024 M00S01606.dsp +++|** ISS - INITIALIZE SYSTEM SECTORS.
02025 M00S01607.dsp +++|*
02026 M00S01608.dsp +++|* ENTRY (FN - FN+4) = QUEUED FILE FNT ENTRY.
02027 M00S01609.dsp +++|* (FS - FS+4) = FST ENTRY
02028 M00S01610.dsp +++|* (FA) = NFL FNT ENTRY OFFSET.
02029 M00S01611.dsp +++|* (ST) = STATUS WORD.
02030 M00S01612.dsp +++|* (QT) = DESTINATION QUEUE TYPE.
02031 M00S01613.dsp +++|*
02032 M00S01614.dsp +++|* EXIT *BFMS* CONTAINS SYSTEM SECTOR FOR QUEUED FILE.
02033 M00S01615.dsp +++|* (FS - FS+4) = QUEUED FILE FST ENTRY
02034 M00S01616.dsp +++|*
02035 M00S01617.dsp +++|* USES CM - CM+4, T1 - T7.
02036 M00S01618.dsp +++|*
02037 M00S01619.dsp +++|* CALLS EQF, GEA, GLI, RFN, SSJ, SSR.
02038 M00S01620.dsp +++|*
02039 M00S01621.dsp +++|* MACROS NFA.
02040 M00S01622.dsp +++|
02041 M00S01623.dsp +++|
02042 M00S01624.dsp +++| ISS SUBR ENTRY
02043 M00S01625.dsp +++| LDC FNTN READ INPUT FILE FNT
02044 M00S01626.dsp +++| STM SSRB
02045 M00S01627.dsp +++| NFA FNTN
02046 M00S01628.dsp +++| CRD CM
02047 M00S01629.dsp +++| ADN FSTL
02048 M00S01630.dsp +++| CRD T5
02049 M00S01631.dsp +++| LDN INFT SET DESIRED FILE TYPE
02050 M00S01632.dsp +++| STM SSRA
02051 M00S01633.dsp +++| LDD ST CHECK IF CALLED BY SUBSYSTEM
02052 M00S01634.dsp +++| LPN SSFL
02053 M00S01635.dsp +++| NJN ISS1 IF NOT CALLED BY A SUBSYSTEM
02054 M00S01636.dsp +++| LDD QT CHECK IF SUBSYSTEM OUTPUT FILE
02055 M00S01637.dsp +++| LMK INQT
02056 M00S01638.dsp +++| NJN ISS1 IF OUTPUT FROM A SUBSYSTEM
02057 M00S01639.dsp +++| AOM ISSA SET INPUT FILE NOT READ
02058 M00S01640.dsp +++| UJN ISS2 CONTINUE
02059 M00S01641.dsp +++|
02060 M00S01642.dsp +++| ISS1 LDD T5
02061 M00S01643.dsp +++| RJM SSR READ INPUT FILE SYSTEM SECTOR
02062 M00S01644.dsp +++| ZJN ISS4 IF INPUT FILE SYSTEM SECTOR READ
02063 M00S01645.dsp +++| ISS2 LDC 501 CLEAR SYSTEM SECTOR BUFFER
02064 M00S01646.dsp +++| STD T1
02065 M00S01647.dsp +++| ISS3 LDN 0
02066 M00S01648.dsp +++| STM BFMS,T1
02067 M00S01649.dsp +++| SOD T1
02068 M00S01650.dsp +++| PJN ISS3 IF MORE TO CLEAR
02069 M00S01651.dsp +++| RJM GLI GET SLID/DLID
02070 M00S01652.dsp +++| LDD ST CHECK ORIGIN TYPE OF CALLING CP
02071 M00S01653.dsp +++| LPN SYFL
02072 M00S01654.dsp +++| ZJN ISS7 IF CP NOT *SYOT*
02073 M00S01655.dsp +++| LCN 0
02074 M00S01656.dsp +++| STM VASS+5*AAWC+3
02075 M00S01657.dsp +++| STM VASS+5*AAWC+4
02076 M00S01658.dsp +++| UJN ISS7 SET DEFAULT TID
02077 M00S01659.dsp +++|
02078 M00S01660.dsp +++|* SET DEFAULT DESTINATION TERMINAL ID (TID).
02079 M00S01661.dsp +++|
02080 M00S01662.dsp +++| ISS4 RJM GLI GET SLID/DLID
Line S01663 Modification History
M01 (Removed by) dsp48
Seq # *Modification Id* Act
----------------------------+
02081 M01S01663.dsp48 ---| LDN QFTE*5 CLEAR QFT IN SYSTEM SECTOR
Line S00001 Modification History
M01 (Added by) dsp48
Seq # *Modification Id* Act
----------------------------+
02082 M01S00001.dsp48 +++| LDN QFTE*5-1 CLEAR QFT IN SYSTEM SECTOR
02083 M00S01664.dsp +++| STD T1
02084 M00S01665.dsp +++| ISS5 LDN 0 CLEAR QFT
02085 M00S01666.dsp +++| STM IOSS,T1
02086 M00S01667.dsp +++| SOD T1
02087 M00S01668.dsp +++| PJN ISS5 IF NOT FINISHED
02088 M00S01669.dsp +++| LDN DDSSL CLEAR FILE DEPENDENT INFORMATION
02089 M00S01670.dsp +++| STD T1
02090 M00S01671.dsp +++| ISS6 LDN 0
02091 M00S01672.dsp +++| STM JISS,T1
02092 M00S01673.dsp +++| SOD T1
02093 M00S01674.dsp +++| PJN ISS6 IF MORE TO CLEAR
02094 M00S01675.dsp +++|
02095 M00S01676.dsp +++|* SET ROUTING INFORMATION FROM EJT.
02096 M00S01677.dsp +++|
02097 M00S01678.dsp +++| ISS7 LDC **
02098 M00S01679.dsp +++| ISSA EQU *-1 (INPUT FILE NOT READ FLAG)
02099 M00S01680.dsp +++| NJN ISS8 IF INPUT FILE NOT READ
02100 M00S01681.dsp +++| RJM GEA GET EJT ADDRESS
02101 M00S01682.dsp +++| ADK SCLE
02102 M00S01683.dsp +++| CRD CM
02103 M00S01684.dsp +++| LDD CM SET ORIGIN TYPE OF EJT
02104 M00S01685.dsp +++| SCN 60
02105 M00S01686.dsp +++| STM IOSS+SCLQ*5+0
02106 M00S01687.dsp +++| LDD CM+1 SET DEFAULT ROUTING INFORMATION
02107 M00S01688.dsp +++| STM IOSS+SCLQ*5+1
02108 M00S01689.dsp +++| LDD CM+2
02109 M00S01690.dsp +++| STM IOSS+SCLQ*5+2
02110 M00S01691.dsp +++|
02111 M00S01692.dsp +++|* SET CREATION DATE AND MACHINE ID.
02112 M00S01693.dsp +++|* SET CREATION FAMILY AND USER NAME.
02113 M00S01694.dsp +++|
02114 M00S01695.dsp +++| ISS8 LDC MMFL SET MACHINE ID
02115 M00S01696.dsp +++| CRD CM
02116 M00S01697.dsp +++| LDD CM
02117 M00S01698.dsp +++| STM CMSS
02118 M00S01699.dsp +++| STM RMSS
02119 M00S01700.dsp +++| RJM RFN READ CREATION FAMILY NAME
02120 M00S01701.dsp +++| CRM FMSS,ON
02121 M00S01702.dsp +++| RJM SSJ CHECK FOR SSJ= BLOCK
02122 M00S01703.dsp +++| ZJN ISS9 IF NO SSJ= ADDRESS
02123 M00S01704.dsp +++| ADK UIDS USER NAME
02124 M00S01705.dsp +++| UJN ISS10 READ USER NAME
02125 M00S01706.dsp +++|
02126 M00S01707.dsp +++| ISS9 LDD CP READ USER NAME
02127 M00S01708.dsp +++| ADK UIDW
02128 M00S01709.dsp +++| ISS10 CRM ACSS,ON
02129 M00S01710.dsp +++| LDM FMSS+3 ZERO FILL FAMILY NAME
02130 M00S01711.dsp +++| SCN 77
02131 M00S01712.dsp +++| STM FMSS+3
02132 M00S01713.dsp +++| LDN 0
02133 M00S01714.dsp +++| STM FMSS+4
Line S00002 Modification History
M01 (Added by) ns2580
Seq # *Modification Id* Act
----------------------------+
02134 M01S00002.ns2580 +++|
02135 M01S00003.ns2580 +++|* SET CHARGE AND PROJECT NUMBERS.
02136 M01S00004.ns2580 +++|
02137 M01S00005.ns2580 +++| NFA CHGN
02138 M01S00006.ns2580 +++| CRM CHSS,TR
02139 M01S00007.ns2580 +++| ERRNZ PJSS-CHSS-5 CHARGE AND PROJECT NUMBER NOT CONTIGUOUS
02140 M01S00008.ns2580 +++| ERRNZ CHGN-PJ1N-1 CHARGE AND PROJECT NUMBER NOT CONTIGUOUS
02141 M01S00009.ns2580 +++|
02142 M01S00010.ns2580 +++|* ENTER FILE INTO QFT.
02143 M01S00011.ns2580 +++|
02144 M00S01715.dsp +++| RJM EQF ENTER QUEUED FILE
02145 M00S01716.dsp +++|
02146 M00S01717.dsp +++|* SET ORIGINAL AND CREATION JSN-S IN SYSTEM SECTOR.
02147 M00S01718.dsp +++|
02148 M00S01719.dsp +++| LDM IOSS+JSNQ*5+0
02149 M00S01720.dsp +++| STM OJSS
02150 M00S01721.dsp +++| LDM IOSS+JSNQ*5+1
02151 M00S01722.dsp +++| STM OJSS+1
02152 M00S01723.dsp +++| RJM GEA SET CREATION JSN
02153 M00S01724.dsp +++| ADK JSNE
02154 M00S01725.dsp +++| CRD CM
02155 M00S01726.dsp +++| LDD CM
02156 M00S01727.dsp +++| STM CJSS
02157 M00S01728.dsp +++| LDD CM+1
02158 M00S01729.dsp +++| STM CJSS+1
02159 M00S01730.dsp +++| LJM ISSX RETURN
02160 M00S01731.dsp +++| PDF SPACE 4,15
02161 M00S01732.dsp +++|** PDF - PROCESS DEVICE FULL.
02162 M00S01733.dsp +++|*
02163 M00S01734.dsp +++|* ENTRY (FB - FB+1) = FLAG BITS.
02164 M00S01735.dsp +++|*
02165 M00S01736.dsp +++|* ERROR TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
02166 M00S01737.dsp +++|* DEVICE FULL.
02167 M00S01738.dsp +++|*
02168 M00S01739.dsp +++|* USES CM - CM+4.
02169 M00S01740.dsp +++|*
02170 M00S01741.dsp +++|* EXIT *DEVICE FULL* MESSAGE ISSUED TO OPERATOR.
02171 M00S01742.dsp +++|*
02172 M00S01743.dsp +++|* MACROS ERROR, MONITOR, PAUSE.
02173 M00S01744.dsp +++|
02174 M00S01745.dsp +++|
02175 M00S01746.dsp +++| PDF SUBR ENTRY/EXIT
02176 M00S01747.dsp +++| PDFA LDN 0 CHECK IF ROUTINE PREVIOUSLY CALLED
02177 M00S01748.dsp +++|* LDN 1
02178 M00S01749.dsp +++| NJN PDF1 IF ROUTINE PREVIOUSLY CALLED
02179 M00S01750.dsp +++| AOM PDFA SET ROUTINE PREVIOUSLY CALLED
02180 M00S01751.dsp +++| LDD CP CONSOLE MESSAGE = *TRACK LIMIT.*
02181 M00S01752.dsp +++| ADK MS2W
02182 M00S01753.dsp +++| CWM PDFB,TR
02183 M00S01754.dsp +++| LDN ZERL CLEAR PARAMETERS
02184 M00S01755.dsp +++| CRD CM
02185 M00S01756.dsp +++| LDK TKLE SET TRACK LIMIT EVENT
02186 M00S01757.dsp +++| STD CM+4
02187 M00S01758.dsp +++|* LDN 0 SET SYSTEM EVENT
02188 M00S01759.dsp +++|* STD CM+3
02189 M00S01760.dsp +++| MONITOR EATM
02190 M00S01761.dsp +++| PDF1 PAUSE
02191 M00S01762.dsp +++| LDD FB
02192 M00S01763.dsp +++| LPN 1
02193 M00S01764.dsp +++| ADD CM+1
02194 M00S01765.dsp +++| ZJN PDFX IF NO ERROR PROCESSING NEEDED
02195 M00S01766.dsp +++| PDF2 ERROR /ERR/EC27 * DSP - DEVICE FULL.*
02196 M00S01767.dsp +++|
02197 M00S01768.dsp +++| PDFB DATA C*TRACK LIMIT.*
02198 M00S01769.dsp +++| RCL SPACE 4,10
02199 M00S01770.dsp +++|** RCL - RECALL PP.
02200 M00S01771.dsp +++|
02201 M00S01772.dsp +++|
02202 M00S01773.dsp +++| RCL BSS 0 ENTRY
02203 M00S01774.dsp +++| RJM FNB SET FILE NOT BUSY
02204 M00S01775.dsp +++| LDN ZERL DEFAULT TO TIMED RECALL
02205 M00S01776.dsp +++| CRD CM
02206 M00S01777.dsp +++| LDD MA
02207 M00S01778.dsp +++| CWD IR
02208 M00S01779.dsp +++| MONITOR RECM RECALL PP
02209 M00S01780.dsp +++| LJM PPR ENTER PP RESIDENT
02210 M00S01781.dsp +++| SDC SPACE 4,10
02211 M00S01782.dsp +++|** SDC - SET DISPOSITION CODE.
02212 M00S01783.dsp +++|*
02213 M00S01784.dsp +++|* ENTRY (SDCA) = TABLE INDEX SET BY *DDC*.
02214 M00S01785.dsp +++|* = 0, IF NO DISPOSITION CODE SPECIFIED.
02215 M00S01786.dsp +++|*
02216 M00S01787.dsp +++|* EXIT QFT AND SYSTEM SECTOR UPDATED.
02217 M00S01788.dsp +++|*
02218 M00S01789.dsp +++|* USES T0, T1.
02219 M00S01790.dsp +++|*
02220 M00S01791.dsp +++|
02221 M00S01792.dsp +++|
02222 M00S01793.dsp +++| SDC SUBR ENTRY EXIT
02223 M00S01794.dsp +++| LDD ST CHECK IF DISPOSITION CODE SPECIFIED
02224 M00S01795.dsp +++| LPC DCFL
02225 M00S01796.dsp +++| ZJN SDCX IF DISPOSITION CODE NOT SPECIFIED
02226 M00S01797.dsp +++| LDC **
02227 M00S01798.dsp +++| SDCA EQU *-1 (*TODC* TABLE ENTRY SET BY *DDC*)
02228 M00S01799.dsp +++| STD T1
02229 M00S01800.dsp +++| LPN 77
02230 M00S01801.dsp +++| STD T0
02231 M00S01802.dsp +++| LDC ** SET DISPOSITION CODE IN SYSTEM SECTOR
02232 M00S01803.dsp +++| SDCB EQU *-1
02233 M00S01804.dsp +++| STM DCSS
02234 M00S01805.dsp +++| LDM IOSS+SCLQ*5+3
02235 M00S01806.dsp +++| SCN 77
02236 M00S01807.dsp +++| LMD T0
02237 M00S01808.dsp +++| STM IOSS+SCLQ*5+3
02238 M00S01809.dsp +++| LDM IOSS+JSNQ*5+4 SET DISPOSITION CODE IN QFT
02239 M00S01810.dsp +++| LMD T1
02240 M00S01811.dsp +++| LPN 77
02241 M00S01812.dsp +++| LMD T1
02242 M00S01813.dsp +++| STM IOSS+JSNQ*5+4
02243 M00S01814.dsp +++| UJN SDCX RETURN
02244 M00S01815.dsp +++| SPR SPACE 4,10
02245 M00S01816.dsp +++|** SPR - SET PRIORITY.
02246 M00S01817.dsp +++|*
02247 M00S01818.dsp +++|* ENTRY (FB - FB+1) = FLAG BITS.
02248 M00S01819.dsp +++|* (QT) = QUEUE TYPE.
Line S00016 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02249 M01S00016.ns2156 +++|* (T3) .NE. 0, IF SPECIAL REQUEUE OPERATION.
02250 M00S01820.dsp +++|*
02251 M00S01821.dsp +++|* EXIT QFT UPDATED.
02252 M00S01822.dsp +++|* (FGSS) = FLAG SET IF PRIORITY PRESENT.
02253 M00S01823.dsp +++|*
02254 M00S01824.dsp +++|* USES CN - CN+4, T1 - T5.
02255 M00S01825.dsp +++|*
02256 M00S01826.dsp +++|* CALLS CET, GFA.
02257 M00S01827.dsp +++|
02258 M00S01828.dsp +++|
02259 M00S01829.dsp +++| SPR SUBR ENTRY/EXIT
02260 M00S01830.dsp +++| LDD FB+1 CHECK PRIORITY
02261 M00S01831.dsp +++| SHN 21-11
02262 M00S01832.dsp +++| MJN SPR2 IF PRIORITY SPECIFIED
Line S00017 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02263 M01S00017.ns2156 +++| LDD T3
02264 M01S00018.ns2156 +++| NJN SPRX IF SPECIAL REQUEUE OPERATION
02265 M00S01833.dsp +++| LDD FB+1 CHECK IF DEFERRED ROUTE
02266 M00S01834.dsp +++| SHN 21-0
02267 M00S01835.dsp +++| MJN SPRX IF DEFERRED ROUTE
02268 M00S01836.dsp +++| LDM FGSS CHECK IF PRIORITY PREVIOUSLY SPECIFIED
02269 M00S01837.dsp +++| LPN 4
02270 M00S01838.dsp +++| NJN SPR3 IF PRIORITY PREVIOUSLY SPECIFIED
Line S01839 Modification History
M01 (Removed by) ns2156
Seq # *Modification Id* Act
----------------------------+
02271 M01S01839.ns2156 ---| LDC RTCL USER REAL TIME CLOCK
Line S00019 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02272 M01S00019.ns2156 +++| SPR0 LDC RTCL USE REAL TIME CLOCK
02273 M00S01840.dsp +++| CRD T1
Line S01841 Modification History
M01 (Removed by) ns2156
Seq # *Modification Id* Act
----------------------------+
02274 M01S01841.ns2156 ---| LJM SPR5 SET ENTRY TIME IN QFT
Line S00020 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02275 M01S00020.ns2156 +++| SPR1 LJM SPR5 SET ENTRY TIME IN QFT
02276 M00S01842.dsp +++|
02277 M00S01843.dsp +++| SPR2 RJM GFA READ PRIORITY
02278 M00S01844.dsp +++| ADN 3
02279 M00S01845.dsp +++| CRD CN
Line S01846 Modification History
M01 (Removed by) ns2156
Seq # *Modification Id* Act
----------------------------+
02280 M01S01846.ns2156 ---| LDD CN+4
Line S00021 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02281 M01S00021.ns2156 +++| LDD T3
02282 M01S00022.ns2156 +++| ZJN SPR2.1 IF NOT SPECIAL REQUEUE OPERATION
02283 M01S00023.ns2156 +++| LDD CN+2
02284 M01S00024.ns2156 +++| NJN SPR0 IF NEW ENTRY TIME NEEDED
02285 M01S00025.ns2156 +++| LDD CN+3 GET ENTRY TIME
02286 M01S00026.ns2156 +++| STD T1
02287 M01S00027.ns2156 +++| LDD CN+4
02288 M01S00028.ns2156 +++| STD T2
02289 M01S00029.ns2156 +++| UJN SPR1 SET ENTRY TIME IN QFT ENTRY
02290 M01S00030.ns2156 +++|
02291 M01S00031.ns2156 +++| SPR2.1 LDD CN+4
02292 M00S01847.dsp +++| STM PRSS
02293 M00S01848.dsp +++| LDM FGSS SET PRIORITY FLAG
02294 M00S01849.dsp +++| SCN 4
02295 M00S01850.dsp +++| LMN 4
02296 M00S01851.dsp +++| STM FGSS
02297 M00S01852.dsp +++| LDD FB+1 CHECK IF DEFERRED ROUTE
02298 M00S01853.dsp +++| SHN 21-0
02299 M00S01854.dsp +++| MJN SPR6 IF DEFERRED ROUTE
02300 M00S01855.dsp +++| SPR3 LDM FGSS CLEAR PRIORITY SPECIFIED FLAG
02301 M00S01856.dsp +++| SCN 4
02302 M00S01857.dsp +++| STM FGSS
02303 M00S01858.dsp +++| LDM PRSS CONVERT PRIORITY INTO ENTRY TIME
02304 M00S01859.dsp +++| STD T1
02305 M00S01860.dsp +++| LDD QT GET QUEUE TYPE
02306 M00S01861.dsp +++| LMK INQT
02307 M00S01862.dsp +++| ZJN SPR4 IF INPUT FILE
02308 M00S01863.dsp +++| LDN OTQT SET OUTPUT QUEUE TYPE
02309 M00S01864.dsp +++| SPR4 STD T2
02310 M00S01865.dsp +++| LDM IOSS+SCLQ*5+0
02311 M00S01866.dsp +++| SCN 77
02312 M00S01867.dsp +++| SHN 6
02313 M00S01868.dsp +++| LMD T2
02314 M00S01869.dsp +++| RJM CET CALCULATE ENTRY TIME
02315 M00S01870.dsp +++| SPR5 LDD T2 SET ENTRY TIME IN QFT ENTRY
02316 M00S01871.dsp +++| STM IOSS+ENTQ*5+4
02317 M00S01872.dsp +++| LDD T1
02318 M00S01873.dsp +++| STM IOSS+ENTQ*5+3
02319 M00S01874.dsp +++| SPR6 LJM SPRX RETURN
02320 M00S01875.dsp +++| SQS SPACE 4,15
02321 M00S01876.dsp +++|** SQS - SET QUEUED FILE SYSTEM SECTOR IN *BFMS*.
02322 M00S01877.dsp +++|*
02323 M00S01878.dsp +++|* ENTRY (FS - FS+4) = FST ENTRY.
02324 M00S01879.dsp +++|* (ST) = STATUS WORD.
02325 M00S01880.dsp +++|* (FA) = NFL FNT OFFSET.
02326 M00S01881.dsp +++|* (QT) = QUEUE TYPE.
02327 M00S01882.dsp +++|* (FN - FN+4) = FILE NAME.
02328 M00S01883.dsp +++|*
02329 M00S01884.dsp +++|* EXIT (FN - FN+4) = NFL FNT/FST ENTRY.
02330 M00S01885.dsp +++|* (FS - FS+4) = NFL FNT/FST ENTRY.
02331 M00S01886.dsp +++|* (QT) = QUEUE TYPE.
02332 M00S01887.dsp +++|* (QA) = ORDINAL OF GLOBAL *QFT* TABLE ENTRY.
02333 M00S01888.dsp +++|*
02334 M00S01889.dsp +++|* USES FN - FN+4.
02335 M00S01890.dsp +++|*
02336 M00S01891.dsp +++|* USES AMS, EFN, SPR, USS, VMS.
02337 M00S01892.dsp +++|*
02338 M00S01893.dsp +++|* MACROS NFA.
02339 M00S01894.dsp +++|
02340 M00S01895.dsp +++|
02341 M00S01896.dsp +++| SQS SUBR ENTRY/EXIT
02342 M00S01897.dsp +++| LDD ST CHECK IF FILE CREATION NEEDED
02343 M00S01898.dsp +++| LPN FCFL
02344 M00S01899.dsp +++| ZJN SQS1 IF FILE EXISTS
02345 M00S01900.dsp +++| RJM EFN ENTER FILE NAME
02346 M00S01901.dsp +++| SQS1 RJM AMS ASSIGN MASS STORAGE
02347 M00S01902.dsp +++| LDD FS SET EQUIPMENT
02348 M00S01903.dsp +++| RJM VMS VALIDATE MASS STORAGE
02349 M00S01904.dsp +++| NFA FA,R READ FNT OF EXISTING FILE
02350 M00S01905.dsp +++| CRD FN
02351 M00S01906.dsp +++| LDD FN+4 SET FILE TYPE
02352 M00S01907.dsp +++| LPN 77
02353 M00S01908.dsp +++| LMC QFFT*100
02354 M00S01909.dsp +++| STD FN+4
02355 M00S01910.dsp +++| RJM USS SET SYSTEM SECTOR
02356 M00S01911.dsp +++| RJM SPR SET PRIORITY
02357 M00S01912.dsp +++| UJN SQSX RETURN
02358 M00S01913.dsp +++| SSR SPACE 4,20
02359 M00S01914.dsp +++|** SSR - SYSTEM SECTOR READ.
02360 M00S01915.dsp +++|*
02361 M00S01916.dsp +++|* ENTRY (A) = EST ORDINAL.
02362 M00S01917.dsp +++|* (T6) = FIRST TRACK.
02363 M00S01918.dsp +++|* (CM - CM+4) = FNT ENTRY.
02364 M00S01919.dsp +++|* (SSRB) = NFL FNT ENTRY OFFSET.
02365 M00S01920.dsp +++|*
02366 M00S01921.dsp +++|* EXIT (A) = 0 IF NO ERRORS AND DATA IN SYSTEM SECTOR.
Line S01922 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02367 M01S01922.242l642 ---|* (A) = 1, IF NO DATA IN SYSTEM SECTOR.
02368 M01S01923.242l642 ---|* (A) = -1, IF ERRORS ENCOUNTERED WHILE READING SYSTEM
02369 M01S01924.242l642 ---|* SECTOR.
02370 M01S01925.242l642 ---|* (T4) = CHANNEL.
02371 M01S01926.242l642 ---|* ERROR LOG MESSAGE ISSUED IF ERROR.
Line S00091 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02372 M01S00091.242l642 +++|* .GT. 0 IF NO DATA IN SYSTEM SECTOR.
02373 M01S00092.242l642 +++|* .LT. 0 IF ERRORS IN SYSTEM SECTOR DATA.
02374 M00S01927.dsp +++|* DRIVER PRESET.
02375 M00S01928.dsp +++|*
02376 M00S01929.dsp +++|* USES T1, T3, T5.
02377 M00S01930.dsp +++|*
02378 M00S01931.dsp +++|* CALLS RSS, SSE.
02379 M00S01932.dsp +++|*
02380 M00S01933.dsp +++|* MACROS ENDMS, NFA, SETMS.
02381 M00S01934.dsp +++|
02382 M00S01935.dsp +++|
02383 M00S01936.dsp +++| SSR2 ENDMS
02384 M00S01937.dsp +++|* LDN 0 RETURN (NO ERRORS)
02385 M00S01938.dsp +++|
02386 M00S01939.dsp +++| SSR SUBR ENTRY/EXIT
02387 M00S01940.dsp +++| STD T5
02388 M00S01941.dsp +++| LMN NEEQ
02389 M00S01942.dsp +++| ZJN SSR1 IF NO FILE
02390 M00S01943.dsp +++| LDD CM+4
02391 M00S01944.dsp +++| SHN -6
Line S01945 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02392 M01S01945.242l642 ---| LMC QFFT
Line S00093 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02393 M01S00093.242l642 +++| SSR1 LMC QFFT
02394 M00S01946.dsp +++|* LMC INFT (READ JOB INPUT FILE)
02395 M00S01947.dsp +++| SSRA EQU *-1 (SET BY *ISS*)
Line S01948 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02396 M01S01948.242l642 ---| NJN SSR1 IF FILE NOT ALREADY QUEUE FILE
02397 M01S01949.242l642 ---| SETMS READ
Line S00094 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02398 M01S00094.242l642 +++| NJN SSRX IF NOT ALREADY QUEUE FILE
02399 M01S00095.242l642 +++| SETMS IO
02400 M00S01950.dsp +++| LDN 0
02401 M00S01951.dsp +++| RJM RSS READ SYSTEM SECTOR
02402 M00S01952.dsp +++| ZJN SSR2 IF NO ERRORS
02403 M00S01953.dsp +++|
02404 M00S01954.dsp +++|* PROCESS SYSTEM SECTOR ERROR.
02405 M00S01955.dsp +++|
02406 M00S01956.dsp +++| LDN 0 SET FNT TYPE
02407 M00S01957.dsp +++| STD T3
02408 M00S01958.dsp +++| LDC *
02409 M00S01959.dsp +++| SSRB EQU *-1 (FNT OFFSET OF FILE READ)
02410 M00S01960.dsp +++| STD T1
02411 M00S01961.dsp +++| NFA T1,R
02412 M00S01962.dsp +++| RJM SSE REPORT SYSTEM SECTOR ERROR
02413 M00S01963.dsp +++| LCN 1 FLAG SYSTEM SECTOR ERROR
02414 M00S01964.dsp +++| UJN SSRX RETURN WITH ERROR
Line S01965 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02415 M01S01965.242l642 ---|
02416 M01S01966.242l642 ---| SSR1 LDN 1 FLAG ERROR RETURN
02417 M01S01967.242l642 ---| UJN SSRX RETURN
02418 M00S01968.dsp +++| USS SPACE 4,20
02419 M00S01969.dsp +++|** USS - UPDATE SYSTEM SECTOR.
02420 M00S01970.dsp +++|*
02421 M00S01971.dsp +++|* ENTRY (FN - FN+4) = QUEUED FILE FNT ENTRY.
02422 M00S01972.dsp +++|* (FS - FS+4) = FST ENTRY.
02423 M00S01973.dsp +++|* (FA) = NFL FNT ENTRY OFFSET.
02424 M00S01974.dsp +++|*
02425 M00S01975.dsp +++|* EXIT *BFMS* CONTAINS SYSTEM SECTOR FOR QUEUED FILE.
Line S00008 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02426 M01S00008.dsp44 +++|* (QT) = QUEUE TYPE.
Line S00032 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02427 M01S00032.ns2156 +++|* (T3) .NE. 0, IF VALID SPECIAL REQUEUE FLAG SET.
Line S01976 Modification History
M01 (Removed by) dsp44
Seq # *Modification Id* Act
----------------------------+
02428 M01S01976.dsp44 ---|* (QT) = QUEUE TYPE.
Line S00009 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02429 M01S00009.dsp44 +++|* REPEAT COUNT SET, IF VALID SPECIAL REQUEUE FLAG SET.
02430 M00S01977.dsp +++|*
02431 M00S01978.dsp +++|* ERROR TO *ERR* IF ERROR READING *QFFT* FILE SYSTEM SECTOR.
02432 M00S01979.dsp +++|*
Line S01980 Modification History
M01 (Removed by) ns2156
Seq # *Modification Id* Act
----------------------------+
02433 M01S01980.ns2156 ---|* USES T6, CM - CM+4.
Line S00033 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02434 M01S00033.ns2156 +++|* USES QT, T3, T6, CM - CM+4.
02435 M00S01981.dsp +++|*
Line S01982 Modification History
M01 (Removed by) dsp44
Seq # *Modification Id* Act
----------------------------+
02436 M01S01982.dsp44 ---|* CALLS EDF, GLI, ISS, SQE, SQO, SSR.
Line S00010 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02437 M01S00010.dsp44 +++|* CALLS EDF, GFA, GLI, ISS, SQO, SSR.
02438 M00S01983.dsp +++|*
Line S01984 Modification History
M01 (Removed by) ns2156
Seq # *Modification Id* Act
----------------------------+
02439 M01S01984.ns2156 ---|* MACROS ERROR, NFA.
Line S00034 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02440 M01S00034.ns2156 +++|* MACROS ERROR, ISTORE, NFA.
02441 M00S01985.dsp +++|
02442 M00S01986.dsp +++|
02443 M00S01987.dsp +++| USS2 RJM ISS INITIALIZE SYSTEM SECTOR
02444 M00S01988.dsp +++| RJM SQO SET QFT OWNERSHIP
Line S00035 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02445 M01S00035.ns2156 +++| USS3 LDN 0 SET NORMAL EXIT
02446 M01S00036.ns2156 +++| STD T3
02447 M00S01989.dsp +++|
02448 M00S01990.dsp +++| USS SUBR ENTRY/EXIT
02449 M00S01991.dsp +++|
02450 M00S01992.dsp +++|* SET QUEUE FILE TYPE.
02451 M00S01993.dsp +++|
02452 M00S01994.dsp +++| LDM SDCA GET ENTRY FROM *TODC* TABLE
02453 M00S01995.dsp +++| SHN -11
02454 M00S01996.dsp +++| STD QT
02455 M00S01997.dsp +++|
Line S01998 Modification History
M01 (Removed by) dsp44
Seq # *Modification Id* Act
----------------------------+
02456 M01S01998.dsp44 ---|* READ SYSTEM SECTOR IF FILE HAS BEEN DEFERRED ROUTED.
Line S00011 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02457 M01S00011.dsp44 +++|* READ SYSTEM SECTOR INFORMATION IF IT EXISTS.
02458 M00S01999.dsp +++|
02459 M00S02000.dsp +++| LDD FS+1 SET FIRST TRACK
02460 M00S02001.dsp +++| STD T6
02461 M00S02002.dsp +++| LDD FA READ CURRENT FNT ENTRY
02462 M00S02003.dsp +++| STM SSRB SAVE FNT OFFSET
02463 M00S02004.dsp +++| NFA FA,R
02464 M00S02005.dsp +++| CRD CM
02465 M00S02006.dsp +++| LDD FS
02466 M00S02007.dsp +++| RJM SSR READ SYSTEM SECTOR
Line S02008 Modification History
M01 (Removed by) dsp44
Seq # *Modification Id* Act
----------------------------+
02467 M01S02008.dsp44 ---| MJN USS1 IF ERROR ON *QFFT* FILE
Line S00012 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02468 M01S00012.dsp44 +++| MJP USS1 IF ERROR ON *QFFT* FILE
02469 M00S02009.dsp +++| NJN USS2 IF SYSTEM SECTOR NOT READ
02470 M00S02010.dsp +++|
Line S02011 Modification History
M01 (Removed by) dsp44
Seq # *Modification Id* Act
----------------------------+
02471 M01S02011.dsp44 ---|* SET FNT/FST FOR DEFERRED ROUTED FILE (SYSTEM SECTOR
02472 M01S02012.dsp44 ---|* INFORMATION IS ALREADY PRESENT).
Line S00013 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02473 M01S00013.dsp44 +++|* SET FNT/FST FOR DEFERRED ROUTED OR ATTACHED QUEUE FILE
02474 M01S00014.dsp44 +++|* (SYSTEM SECTOR INFORMATION IS ALREADY PRESENT).
02475 M00S02013.dsp +++|
02476 M00S02014.dsp +++| RJM GLI GET LID INFORMATION
02477 M00S02015.dsp +++| RJM EDF ENTER DEFERRED FILE
Line S02016 Modification History
M01 (Removed by) ns2156
Seq # *Modification Id* Act
----------------------------+
02478 M01S02016.ns2156 ---| UJN USSX RETURN
Line S00037 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02479 M01S00037.ns2156 +++|
02480 M01S00038.ns2156 +++|* CHECK FOR SPECIAL REQUEUE FLAG.
02481 M01S00039.ns2156 +++|
02482 M01S00040.ns2156 +++| LDD ST
02483 M01S00041.ns2156 +++| LPN DSFL
02484 M01S00042.ns2156 +++| ZJN USS3 IF FILE NOT PREVIOUSLY ROUTED
02485 M01S00043.ns2156 +++| LDM EBIT+1
02486 M01S00044.ns2156 +++| LPC EFRQ
02487 M01S00045.ns2156 +++| STD T3
02488 M01S00046.ns2156 +++| ZJN USS0 IF SPECIAL REQUEUE FLAG NOT SPECIFIED
02489 M01S00047.ns2156 +++| ISTORE DSPG,(UJN DSP4)
02490 M01S00048.ns2156 +++| ISTORE DSPH,(UJN DSP5)
Line S00049 Modification History
M01 (Added by) ns2156
M02 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02491 M02S00049.242l642 ---| ISTORE DSPI,(UJN DSP7)
Line S00096 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02492 M01S00096.242l642 +++| ISTORE DSPI,(UJN DSP6.2)
Line S00015 Modification History
M01 (Added by) dsp44
Seq # *Modification Id* Act
----------------------------+
02493 M01S00015.dsp44 +++|
02494 M01S00016.dsp44 +++|* SET REPEAT COUNT FOR SPECIAL REQUEUE OPERATION.
02495 M01S00017.dsp44 +++|
02496 M01S00018.dsp44 +++| LDD FB
02497 M01S00019.dsp44 +++| SHN 21-2
02498 M01S00020.dsp44 +++| PJN USS0 IF REPEAT COUNT NOT SPECIFIED
02499 M01S00021.dsp44 +++| RJM GFA READ REPEAT COUNT
02500 M01S00022.dsp44 +++| ADN 4
02501 M01S00023.dsp44 +++| CRD CM
02502 M01S00024.dsp44 +++| LDD CM+3 SET REPEAT COUNT
02503 M01S00025.dsp44 +++| LPN 77
02504 M01S00026.dsp44 +++| STM IOSS+INSQ*5+4
02505 M01S00027.dsp44 +++| STM RCSS
Line S00050 Modification History
M01 (Added by) ns2156
Seq # *Modification Id* Act
----------------------------+
02506 M01S00050.ns2156 +++| USS0 LJM USSX RETURN
02507 M00S02017.dsp +++|
02508 M00S02018.dsp +++| USS1 ERROR /ERR/EC24 * DSP - QUEUED FILE READ ERROR.*
02509 M00S02019.dsp +++| VMS SPACE 4,10
02510 M00S02020.dsp +++|** VMS - VALIDATE MASS STORAGE.
02511 M00S02021.dsp +++|*
02512 M00S02022.dsp +++|* ENTRY (A) = EQUIPMENT.
02513 M00S02023.dsp +++|*
02514 M00S02024.dsp +++|* EXIT (CM - CM+4) = EST ENTRY.
02515 M00S02025.dsp +++|* (T5) = EQUIPMENT.
02516 M00S02026.dsp +++|*
02517 M00S02027.dsp +++|* ERROR TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
02518 M00S02028.dsp +++|* FILE NOT ON REMOVABLE DEVICE.
02519 M00S02029.dsp +++|* FILE NOT ON MASS STORAGE.
02520 M00S02030.dsp +++|*
02521 M00S02031.dsp +++|* USES T5, CM - CM+4.
02522 M00S02032.dsp +++|*
02523 M00S02033.dsp +++|* MACROS ERROR, SFA.
02524 M00S02034.dsp +++|
02525 M00S02035.dsp +++|
02526 M00S02036.dsp +++| VMS1 SHN 21-10-21+13
02527 M00S02037.dsp +++| PJN VMSX IF NOT REMOVABLE DEVICE
02528 M00S02038.dsp +++| ERROR /ERR/EC20 * DSP - FILE ON REMOVABLE DEVICE.*
02529 M00S02039.dsp +++|
02530 M00S02040.dsp +++| VMS SUBR ENTRY/EXIT
02531 M00S02041.dsp +++| STD T5 SET EQUIPMENT
02532 M00S02042.dsp +++| SFA EST READ EST ENTRY
02533 M00S02043.dsp +++| ADK EQDE
02534 M00S02044.dsp +++| CRD CM
02535 M00S02045.dsp +++| LDD CM CHECK FOR MASS STORAGE
02536 M00S02046.dsp +++| SHN 21-13
02537 M00S02047.dsp +++| MJN VMS1 IF MASS STORAGE
02538 M00S02048.dsp +++| ERROR /ERR/EC02 * DSP - FILE NOT ON MASS STORAGE.*
02539 M00S02049.dsp +++| SPACE 4,10
02540 M00S02050.dsp +++|** COMMON DECKS.
02541 M00S02051.dsp +++|
Line S00002 Modification History
M01 (Added by) dsp16
Seq # *Modification Id* Act
----------------------------+
02542 M01S00002.dsp16 +++|
02543 M00S02052.dsp +++| CET$ SET 1 CALCULATE ENTRY TIME
02544 M00S02053.dsp +++|*CALL COMPCPE
02545 M00S02054.dsp +++|*CALL COMPCTE
02546 M00S02055.dsp +++|*CALL COMPC2D
02547 M00S02056.dsp +++|*CALL COMPRJC
Line S02057 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02548 M01S02057.242l642 ---|*CALL COMPRSS
Line S00097 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02549 M01S00097.242l642 +++| QUAL MIO
02550 M01S00098.242l642 +++| RDS EQU RMS USE *RMS* IN PLACE OF *RDS*
02551 M01S00099.242l642 +++|*CALL COMPRSS
02552 M01S00100.242l642 +++| QUAL *
02553 M01S00101.242l642 +++| RSS EQU /MIO/RSS
02554 M00S02058.dsp +++|*CALL COMPSSE
02555 M00S02059.dsp +++|*CALL COMPVID
Line S00012 Modification History
M01 (Added by) dsp46
Seq # *Modification Id* Act
----------------------------+
02556 M01S00012.dsp46 +++| QUAL MIO3
02557 M01S00013.dsp46 +++| WCS$ SET 1 WRITE CONSECUTIVE SECTORS
02558 M01S00014.dsp46 +++| WDS EQU WMS USE *WMS* IN PLACE OF *WDS*
02559 M01S00015.dsp46 +++|*CALL COMPWSS
02560 M01S00016.dsp46 +++| QUAL *
02561 M01S00017.dsp46 +++| WSS EQU /MIO3/WSS
02562 M00S02060.dsp +++| SPACE 4,10
02563 M00S02061.dsp +++|* THE FOLLOWING SUBROUTINES MAY BE OVERLAID BY ZERO-LEVEL
02564 M00S02062.dsp +++|* OVERLAYS.
02565 M00S02063.dsp +++| SPACE 4,10
02566 M00S02064.dsp +++| OVL5 EQU *+5 LOAD ADDRESS FOR OVERLAY *3DC*
02567 M00S02065.dsp +++| SPACE 4,10
02568 M00S02066.dsp +++| ERRNG OVL0-5-* OVERFLOW INTO *0BF*
02569 M00S02067.dsp +++| ERRNG OVL1-5-* OVERFLOW INTO *0AV*
02570 M00S02068.dsp +++| TITLE FILE INITIALIZATION ROUTINES (OVERLAYABLE).
02571 M00S02069.dsp +++| CFN SPACE 4,10
02572 M00S02070.dsp +++|** CFN - COMPARE FILE NAMES.
02573 M00S02071.dsp +++|*
02574 M00S02072.dsp +++|* ENTRY (T1) = FWA OF FNT ENTRY
02575 M00S02073.dsp +++|* (FN - FN+4) = FILE NAME.
02576 M00S02074.dsp +++|*
02577 M00S02075.dsp +++|* EXIT (A) = 0, IF FILE FOUND.
02578 M00S02076.dsp +++|* (A) .GT. 0, FILE ASSIGNED TO CP, BUT NOT DESIRED FILE.
02579 M00S02077.dsp +++|* (A) .LT. 0, NO ENTRY.
02580 M00S02078.dsp +++|
02581 M00S02079.dsp +++|
02582 M00S02080.dsp +++| CFN1 LCN 1 NO FILE FOUND
02583 M00S02081.dsp +++|
02584 M00S02082.dsp +++| CFN SUBR ENTRY/EXIT
02585 M00S02083.dsp +++| LDI T1
02586 M00S02084.dsp +++| ZJN CFN1 IF NO ENTRY
02587 M00S02085.dsp +++| LMD FN
02588 M00S02086.dsp +++| NJN CFNX IF NO COMPARE
02589 M00S02087.dsp +++| LDM 1,T1
02590 M00S02088.dsp +++| LMD FN+1
02591 M00S02089.dsp +++| NJN CFNX IF NO COMPARE
02592 M00S02090.dsp +++| LDM 2,T1
02593 M00S02091.dsp +++| LMD FN+2
02594 M00S02092.dsp +++| NJN CFNX IF NO COMPARE
02595 M00S02093.dsp +++| LDM 3,T1
02596 M00S02094.dsp +++| LMD FN+3
02597 M00S02095.dsp +++| SCN 77
02598 M00S02096.dsp +++| UJN CFNX RETURN
02599 M00S02097.dsp +++| DDC SPACE 4,25
02600 M00S02098.dsp +++|** DDC - DETERMINE DISPOSTION CODE.
02601 M00S02099.dsp +++|*
02602 M00S02100.dsp +++|* ENTRY (FB - FB+1) = FLAG BITS.
02603 M00S02101.dsp +++|* (FN - FN+4) = FNT ENTRY.
02604 M00S02102.dsp +++|* (ST) = STATUS WORD.
02605 M00S02103.dsp +++|*
02606 M00S02104.dsp +++|* EXIT (A) = 0, IF *DC=SC*.
02607 M00S02105.dsp +++|* (ST) = SET, IF DISPOSITION CODE SPECIFIED.
02608 M00S02106.dsp +++|*
02609 M00S02107.dsp +++|* ERROR TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S02108 Modification History
M01 (Removed by) dsp15
Seq # *Modification Id* Act
----------------------------+
02610 M01S02108.dsp15 ---|* INVALID FILE TYPE.
Line S02109 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
02611 M01S02109.v23l617 ---|* INVALID DISPOSITION CODE.
Line S00050 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
02612 M01S00050.v23l617 +++|* INCORRECT DISPOSITION CODE.
02613 M00S02110.dsp +++|* *DC=SO* OR *DC=SS* AND CALLER NOT *SYOT* OR *SSJ=*.
02614 M00S02111.dsp +++|*
02615 M00S02112.dsp +++|* USES ST, T1, CM+2.
02616 M00S02113.dsp +++|*
02617 M00S02114.dsp +++|* CALLS CFN.
02618 M00S02115.dsp +++|*
02619 M00S02116.dsp +++|* MACROS ERROR.
02620 M00S02117.dsp +++|
02621 M00S02118.dsp +++|
Line S02119 Modification History
M01 (Removed by) dsp15
Seq # *Modification Id* Act
----------------------------+
02622 M01S02119.dsp15 ---| INFT DECMIC INFT
02623 M01S02120.dsp15 ---| QFFT DECMIC QFFT
02624 M01S02121.dsp15 ---| LOFT DECMIC LOFT
02625 M01S02122.dsp15 ---|
02626 M01S02123.dsp15 ---| QMSK EQU 1S"INFT"+1S"QFFT"+1S"LOFT"
02627 M01S02124.dsp15 ---|
02628 M01S02125.dsp15 ---|
02629 M00S02126.dsp +++| DDC SUBR ENTRY/EXIT
Line S02127 Modification History
M01 (Removed by) dsp15
Seq # *Modification Id* Act
----------------------------+
02630 M01S02127.dsp15 ---| LDD FN+4 SET CURRENT FILE TYPE
02631 M01S02128.dsp15 ---| SHN -6
02632 M01S02129.dsp15 ---| STD T1
02633 M01S02130.dsp15 ---| LDC SHNI+21
02634 M01S02131.dsp15 ---| SBD T1
02635 M01S02132.dsp15 ---| STM DDCA
02636 M01S02133.dsp15 ---| LDC QMSK
02637 M01S02134.dsp15 ---| SHN 21-0
02638 M01S02135.dsp15 ---| DDCA EQU *-1 (MODIFIED *SHN* INSTRUCTION)
02639 M01S02136.dsp15 ---| MJN DDC1 IF VALID FILE TYPE
02640 M01S02137.dsp15 ---| ERROR /ERR/EC03 * DSP - INVALID FILE TYPE.*
02641 M01S02138.dsp15 ---|
02642 M00S02139.dsp +++| DDC1 LDC * SET DISPOSITION CODE
02643 M00S02140.dsp +++| DDCB EQU *-1 (DISPOSITION CODE SET BY PRESET)
02644 M00S02141.dsp +++| STD CM+2
02645 M00S02142.dsp +++| LDD FB+1
02646 M00S02143.dsp +++| SHN 21-4
02647 M00S02144.dsp +++| MJN DDC2 IF DISPOSITION CODE SPECIFIED
Line S02145 Modification History
M01 (Removed by) dsp15
Seq # *Modification Id* Act
----------------------------+
02648 M01S02145.dsp15 ---| LDD T1 LOAD FILE TYPE
Line S00001 Modification History
M01 (Added by) dsp15
Seq # *Modification Id* Act
----------------------------+
02649 M01S00001.dsp15 +++| LDD FN+4 GET FILE TYPE
02650 M01S00002.dsp15 +++| SHN -6
02651 M00S02146.dsp +++| LMN LOFT
02652 M00S02147.dsp +++| ZJN DDC4 IF NOT QUEUED FILE
02653 M00S02148.dsp +++| UJN DDCX RETURN
02654 M00S02149.dsp +++|
02655 M00S02150.dsp +++|* IF *DC=SO* OR *DC=SS*, VALIDATE CALLER.
02656 M00S02151.dsp +++|
02657 M00S02152.dsp +++| DDC2 LDD CM+2
02658 M00S02153.dsp +++| LMC 2RSO
02659 M00S02154.dsp +++| ZJN DDC3 IF *DC=SO*
02660 M00S02155.dsp +++| LMC 2RSO&2RSS
02661 M00S02156.dsp +++| NJN DDC7 IF NOT *DC=SS*
02662 M00S02157.dsp +++| DDC3 LDD ST VALIDATE CALLER
02663 M00S02158.dsp +++| LPC SJFL+SYFL
02664 M00S02159.dsp +++| NJN DDC7 IF *SYOT* OR *SSJ=*
02665 M00S02160.dsp +++| ERROR /ERR/EC12 * DSP - INCORRECT REQUEST.*
02666 M00S02161.dsp +++|
02667 M00S02162.dsp +++|* SET DEFAULT DISPOSITION CODE.
02668 M00S02163.dsp +++|
02669 M00S02164.dsp +++| DDC4 LDC TSFN-TSFNL PRESET TABLE INDEX
02670 M00S02165.dsp +++| STD T1
02671 M00S02166.dsp +++| DDC5 LDN TSFNL ADVANCE INDEX
02672 M00S02167.dsp +++| RAD T1
02673 M00S02168.dsp +++| RJM CFN COMPARE FILE NAMES
02674 M00S02169.dsp +++| ZJN DDC6 IF FILE FOUND
02675 M00S02170.dsp +++| PJN DDC5 IF NO FILE NAME MATCH
Line S00001 Modification History
M01 (Added by) dsp17
Seq # *Modification Id* Act
----------------------------+
02676 M01S00001.dsp17 +++| ERROR /ERR/EC07 * DSP - INCORRECT DISPOSITION CODE.*
02677 M01S00002.dsp17 +++|
02678 M00S02171.dsp +++| DDC6 LDM 4,T1 SET DEFAULT DISPOSITION
02679 M00S02172.dsp +++| STD CM+2
02680 M00S02173.dsp +++|
02681 M00S02174.dsp +++|* VALIDATE DISPOSITION CODE.
02682 M00S02175.dsp +++|
02683 M00S02176.dsp +++| DDC7 LDC TODC-TODCL SET TABLE INDEX
02684 M00S02177.dsp +++| STD T1
02685 M00S02178.dsp +++| DDC8 LDN TODCL ADVANCE INDEX
02686 M00S02179.dsp +++| RAD T1
02687 M00S02180.dsp +++| LDI T1
02688 M00S02181.dsp +++| NJN DDC9 IF NOT END OF TABLE
02689 M00S02182.dsp +++| LDD CM+2
02690 M00S02183.dsp +++| LMC 2RSC
Line S02184 Modification History
M01 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02691 M01S02184.ns2493 ---| ZJN DDC11 IF *DC=SC*
Line S00024 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02692 M01S00024.ns2493 +++| ZJP DDCX IF *DC=SC*
Line S02185 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
02693 M01S02185.v23l617 ---| ERROR /ERR/EC07 * DSP - INVALID DISPOSITION CODE.*
Line S00051 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
02694 M01S00051.v23l617 +++| ERROR /ERR/EC07 * DSP - INCORRECT DISPOSITION CODE.*
02695 M00S02186.dsp +++|
02696 M00S02187.dsp +++| DDC9 LMD CM+2
02697 M00S02188.dsp +++| NJN DDC8 IF NO MATCH
02698 M00S02189.dsp +++| AOD T1 SET NEW QUEUE TYPE
02699 M00S02190.dsp +++| LDI T1 SAVE TABLE ENTRY FOR ROUTINE *SDC*
02700 M00S02191.dsp +++| STM SDCA
Line S02192 Modification History
M01 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02701 M01S02192.ns2493 ---| SHN -6
02702 M01S02193.ns2493 ---| NJN DDC10 IF NOT INPUT FILE
02703 M01S02194.ns2493 ---| LDM FSOT CHECK FOR FORCED ORIGIN TYPE
Line S00025 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02704 M01S00025.ns2493 +++| SHN -11
02705 M01S00026.ns2493 +++| LMK INQT
02706 M01S00027.ns2493 +++| NJP DDC17 IF NOT INPUT FILE
02707 M01S00028.ns2493 +++|
02708 M01S00029.ns2493 +++|* VALIDATE FORCED JSN, IF ANY.
02709 M01S00030.ns2493 +++|
02710 M01S00031.ns2493 +++| LDD FB+1
02711 M01S00032.ns2493 +++| LPN FRFJ
02712 M01S00033.ns2493 +++| ZJP DDC15 IF FORCED JSN FLAG NOT SPECIFIED
02713 M01S00034.ns2493 +++| STM FSJS SET FORCED JSN
02714 M01S00035.ns2493 +++| LMD FB+1 FORCE IMMEDIATE ROUTE FOR INPUT FILE
02715 M01S00036.ns2493 +++| ERRNZ FRFJ-FRDR (CODE ASSUMES FRFJ AND FRDR ARE SAME FLAG)
02716 M01S00037.ns2493 +++| STD FB+1
02717 M01S00038.ns2493 +++| LDD OT
02718 M01S00039.ns2493 +++| LMK SYOT
02719 M01S00040.ns2493 +++| NJP DDC16 IF NOT SYSTEM ORIGIN
02720 M01S00041.ns2493 +++| LDK EJTP READ EJT POINTER WORD
02721 M01S00042.ns2493 +++| CRD CM
02722 M01S00043.ns2493 +++| LDN 0 START SEARCH AT ORDINAL 0
02723 M01S00044.ns2493 +++| STD CM
02724 M01S00045.ns2493 +++| DDC10 LDD CM
02725 M01S00046.ns2493 +++| SBD CM+2
02726 M01S00047.ns2493 +++| PJN DDC12 IF END OF EJT
02727 M01S00048.ns2493 +++| SFA EJT,CM GET EJT ENTRY
02728 M01S00049.ns2493 +++| ADK JSNE
02729 M01S00050.ns2493 +++| CRD CN
02730 M01S00051.ns2493 +++| AOD CM INCREMENT EJT ORDINAL
02731 M01S00052.ns2493 +++| LDD CN
02732 M01S00053.ns2493 +++| ZJN DDC10 IF BLANK ENTRY
Line S00054 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq # *Modification Id* Act
----------------------------+
02733 M02S00054.ns2556 ---| LMM SBSN
Line S00018 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
02734 M01S00018.ns2556 +++| LMM FJSN
Line S00055 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02735 M01S00055.ns2493 +++| NJN DDC10 IF NO MATCH ON FIRST 2 CHARACTERS
02736 M01S00056.ns2493 +++| LDD CN+1 COMPARE REMAINDER OF JSN
Line S00057 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq # *Modification Id* Act
----------------------------+
02737 M02S00057.ns2556 ---| LMM SBSN+1
Line S00019 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
02738 M01S00019.ns2556 +++| LMM FJSN+1
Line S00058 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02739 M01S00058.ns2493 +++| NJN DDC10 IF NOT SAME JSN
02740 M01S00059.ns2493 +++| DDC11 ERROR /ERR/EC50 * DSP - JSN ALREADY IN SYSTEM.*
02741 M01S00060.ns2493 +++|
02742 M01S00061.ns2493 +++| DDC12 LDC TSSN CHECK IF JSN MATCHES A SUBSYSTEM NAME
02743 M01S00062.ns2493 +++| STD T1
02744 M01S00063.ns2493 +++| DDC13 LDI T1 SEARCH TABLE FOR SUBSYSTEM
Line S00064 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq # *Modification Id* Act
----------------------------+
02745 M02S00064.ns2556 ---| LMM SBSN
Line S00020 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
02746 M01S00020.ns2556 +++| LMM FJSN
Line S00065 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02747 M01S00065.ns2493 +++| NJN DDC14 IF NO MATCH
02748 M01S00066.ns2493 +++| LDM 1,T1
Line S00067 Modification History
M01 (Added by) ns2493
M02 (Removed by) ns2556
Seq # *Modification Id* Act
----------------------------+
02749 M02S00067.ns2556 ---| LMM SBSN+1
Line S00021 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
02750 M01S00021.ns2556 +++| LMM FJSN+1
Line S00068 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02751 M01S00068.ns2493 +++| ZJN DDC11 IF MATCH
02752 M01S00069.ns2493 +++| DDC14 LDN TSSNE GET NEXT TABLE ENTRY
02753 M01S00070.ns2493 +++| RAD T1
02754 M01S00071.ns2493 +++| LMC TSSNL
02755 M01S00072.ns2493 +++| NJN DDC13 IF NOT END OF TABLE
Line S00022 Modification History
M01 (Added by) ns2556
Seq # *Modification Id* Act
----------------------------+
02756 M01S00022.ns2556 +++| RJM VJS VALIDATE JSN SPECIFICATION
Line S00073 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02757 M01S00073.ns2493 +++| DDC15 LDM FSOT CHECK FOR FORCED ORIGIN TYPE
02758 M00S02195.dsp +++| LMK IAOT
02759 M00S02196.dsp +++| LPN 17
Line S02197 Modification History
M01 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02760 M01S02197.ns2493 ---| NJN DDC10 IF NOT INTERACTIVE ORIGIN TYPE
Line S02198 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02761 M02S02198.ns2493 ---| ERROR /ERR/EC40 * DSP - INVALID ORIGIN TYPE.*
Line S00052 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02762 M02S00052.ns2493 ---| ERROR /ERR/EC40 * DSP - INCORRECT ORIGIN TYPE.*
Line S00074 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02763 M01S00074.ns2493 +++| NJN DDC17 IF NOT INTERACTIVE ORIGIN TYPE
02764 M01S00075.ns2493 +++| DDC16 ERROR /ERR/EC40 * DSP - INCORRECT ORIGIN TYPE.*
02765 M00S02199.dsp +++|
Line S02200 Modification History
M01 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02766 M01S02200.ns2493 ---| DDC10 LDC DCFL SET DISPOSITION CODE SPECIFIED FLAG
Line S00076 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02767 M01S00076.ns2493 +++| DDC17 LDC DCFL SET DISPOSITION CODE SPECIFIED FLAG
02768 M00S02201.dsp +++| RAD ST
02769 M00S02202.dsp +++| LDD CM+2 SAVE FOR ACCOUNTING MESSAGE
02770 M00S02203.dsp +++| STM SDCB
Line S02204 Modification History
M01 (Removed by) ns2493
Seq # *Modification Id* Act
----------------------------+
02771 M01S02204.ns2493 ---| DDC11 LJM DDCX RETURN
Line S00077 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02772 M01S00077.ns2493 +++| LJM DDCX RETURN
02773 M00S02205.dsp +++| TODC SPACE 4,10
02774 M00S02206.dsp +++|** TODC - TABLE OF DEFAULT ROUTING INFORMATION.
02775 M00S02207.dsp +++|*
02776 M00S02208.dsp +++|*T 12/ DC, 6/ QT, 3/ EC, 3/ IC.
02777 M00S02209.dsp +++|*
02778 M00S02210.dsp +++|* DC = DISPOSITION CODE. (DISPLAY CODE)
02779 M00S02211.dsp +++|* EC = EXTERNAL CHARACTERISTICS FOR QFT.
02780 M00S02212.dsp +++|* IC = INTERNAL CHARACTERISTICS FOR QFT.
02781 M00S02213.dsp +++|* QT = QUEUE TYPE FOR SPECIFIED DISPOSITION CODE.
02782 M00S02214.dsp +++|
02783 M00S02215.dsp +++|
02784 M00S02216.dsp +++| IN$ EQU 1 ALLOW *DC=IN*
02785 M00S02217.dsp +++| NO$ EQU 1 ALLOW *DC=NO*
02786 M00S02218.dsp +++| TO$ EQU 1 ALLOW *DC=TO*
02787 M00S02219.dsp +++| TT$ EQU 1 ALLOW *DC=TT*
02788 M00S02220.dsp +++| SO$ EQU 1 ALLOW *DC=SO*
02789 M00S02221.dsp +++| SS$ EQU 1 ALLOW *DC=SS*
02790 M00S02222.dsp +++|
02791 M00S02223.dsp +++| TODC BSS 0
02792 M00S02224.dsp +++| DRIN PR,DFEX,DCIC,LPQF ANY PRINTER
02793 M00S02225.dsp +++| TODCL EQU *-TODC LENGTH OF TABLE ENTRY
02794 M00S02226.dsp +++| DRIN LP,DFEX,DCIC,LPQF ANY PRINTER
02795 M00S02227.dsp +++| DRIN P1,DFEX,DCIC,0 505 PRINTER
02796 M00S02228.dsp +++| DRIN P2,DFEX,DCIC,P2QF 512 PRINTER
02797 M00S02229.dsp +++| DRIN LQ,DFEX,DCIC,0 512 PRINTER
02798 M00S02230.dsp +++| DRIN LR,DFEX,DCIC,LRQF 580-12 PRINTER
02799 M00S02231.dsp +++| DRIN LS,DFEX,DCIC,LSQF 580-16 PRINTER
02800 M00S02232.dsp +++| DRIN LT,DFEX,DCIC,LTQF 580-20 PRINTER
Line S00010 Modification History
M01 (Added by) 241l630
Seq # *Modification Id* Act
----------------------------+
02801 M01S00010.241l630 +++| DRIN LX,DFEX,DCIC,LXQF 5870 NIP
02802 M01S00011.241l630 +++| DRIN LY,DFEX,DCIC,LYQF 5970 NIP
02803 M00S02233.dsp +++| DRIN SB,PBFR,BNIC,PUQF PUNCH BINARY
02804 M00S02234.dsp +++| DRIN P8,P8FR,BNIC,PUQF PUNCH 80 COLUMN
02805 M00S02235.dsp +++| DRIN PB,PBFR,BNIC,PUQF PUNCH BINARY
02806 M00S02236.dsp +++| DRIN TT,DFEX,DFEX,TQQF TERMINAL OUTPUT
02807 M00S02237.dsp +++| DRIN SS,DFEX,DFEX,SQQF STATION OUTPUT
02808 M00S02238.dsp +++| DRIN WT,DFEX,DFEX,TQQF WAIT QUEUE
02809 M00S02239.dsp +++| TODCA EQU *
02810 M00S02240.dsp +++| DRIN PU,PHFR,DCIC,PUQF PUNCH CODED
02811 M00S02241.dsp +++| TODCB EQU *
02812 M00S02242.dsp +++| DRIN PH,PHFR,DCIC,PUQF PUNCH CODED
02813 M00S02243.dsp +++| DRIN FR,T6EX,0,FRQF MICROFILM PRINT
02814 M00S02244.dsp +++| DRIN FL,T6EX,0,FLQF MICROFILM PLOT
02815 M00S02245.dsp +++| DRIN PL,T6EX,0,PLQF PLOTTER
02816 M00S02246.dsp +++| DRIN HR,T6EX,0,HRQF HARD COPY PRINT
02817 M00S02247.dsp +++| DRIN HL,T6EX,0,HLQF HARD COPY PLOT
02818 M00S02248.dsp +++| DRIN IN,0,0,INQF INPUT
02819 M00S02249.dsp +++| DRIN NO,0,0,NOQF INPUT NO OUTPUT
02820 M00S02250.dsp +++|* DRIN SC,0,0,LOFT SCRATCH
02821 M00S02251.dsp +++| DRIN TO,0,0,TOQF INPUT, TERMINAL OUTPUT
02822 M00S02252.dsp +++| DRIN SO,0,0,SOQF INPUT, STATION OUTPUT
02823 M00S02253.dsp +++| CON 0 END OF TABLE
02824 M00S02254.dsp +++| TSFN SPACE 4,10
02825 M00S02255.dsp +++|** TSFN - TABLE OF SPECIAL FILE NAMES AND DISPOSITION CODES.
02826 M00S02256.dsp +++|*
02827 M00S02257.dsp +++|*T 48/ FILE NAME ,12/ DC
Figure
0 11 12 29 DC FILE NAME 30 59 FILE NAME
02828 M00S02258.dsp +++|*
02829 M00S02259.dsp +++|* DC = DISPOSITION CODE.
02830 M00S02260.dsp +++|
02831 M00S02261.dsp +++|
02832 M00S02262.dsp +++| TSFN BSS 0
02833 M00S02263.dsp +++| VFD 48/0LOUTPUT,12/2LLP
02834 M00S02264.dsp +++| TSFNL EQU *-TSFN LENGTH OF ENTRY
02835 M00S02265.dsp +++| SPACE 4,10
02836 M00S02266.dsp +++| VFD 48/0LPUNCH,12/2LPU
02837 M00S02267.dsp +++| VFD 48/0LPUNCHB,12/2LSB
02838 M00S02268.dsp +++| VFD 48/0LP8,12/2LP8
02839 M00S02269.dsp +++| VFD 48/0,12/2LSC
Line S00078 Modification History
M01 (Added by) ns2493
Seq # *Modification Id* Act
----------------------------+
02840 M01S00078.ns2493 +++| TSSN SPACE 4,10
02841 M01S00079.ns2493 +++|** TABLE OF SUBSYSTEM NAMES.
02842 M01S00080.ns2493 +++|*
02843 M01S00081.ns2493 +++|* ENTRY FORMAT.
02844 M01S00082.ns2493 +++|*
02845 M01S00083.ns2493 +++|*T 24/ NAME
02846 M01S00084.ns2493 +++|*
02847 M01S00085.ns2493 +++|* NAME = 3-CHARACTER SUBSYSTEM NAME + BLANK.
02848 M01S00086.ns2493 +++|
02849 M01S00087.ns2493 +++|
02850 M01S00088.ns2493 +++| TSSN BSS 0
02851 M01S00089.ns2493 +++| LIST G
02852 M01S00090.ns2493 +++| .SSN HERE
02853 M01S00091.ns2493 +++| LIST *
02854 M01S00092.ns2493 +++| TSSNL BSS 0 END OF TABLE
02855 M00S02270.dsp +++| FFQ SPACE 4,20
02856 M00S02271.dsp +++|** FFQ - FIND FILE TO QUEUE.
02857 M00S02272.dsp +++|*
02858 M00S02273.dsp +++|* ENTRY (FB - FB+1) = FLAG BITS.
02859 M00S02274.dsp +++|* (FN - FN+4) = (UN - UN+4) = FILE NAME.
02860 M00S02275.dsp +++|* (ST) = STATUS WORD.
02861 M00S02276.dsp +++|*
02862 M00S02277.dsp +++|* EXIT (FN - FN+4) = FNT ENTRY.
02863 M00S02278.dsp +++|* (FS - FS+4) = FST ENTRY.
02864 M00S02279.dsp +++|* (FA) = NFL FNT ENTRY OFFSET.
02865 M00S02280.dsp +++|* (ST) = SET, IF FILE CREATION NEEDED.
02866 M00S02281.dsp +++|* (LFAL) = LOCAL FILE ACCESS LEVEL.
02867 M00S02282.dsp +++|*
02868 M00S02283.dsp +++|* ERROR TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
02869 M00S02284.dsp +++|* FILE NAME ERROR.
02870 M00S02285.dsp +++|* IMMEDIATE ROUTE - NO FILE.
02871 M00S02286.dsp +++|* CANNOT ROUTE JOB INPUT FILE.
02872 M00S02287.dsp +++|* I/O SEQUENCE ERROR.
Line S02288 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
02873 M01S02288.v23l617 ---|* INVALID FILE MODE.
Line S00053 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
02874 M01S00053.v23l617 +++|* INCORRECT FILE MODE.
Line S00003 Modification History
M01 (Added by) dsp15
Seq # *Modification Id* Act
----------------------------+
02875 M01S00003.dsp15 +++|* INVALID FILE TYPE.
02876 M00S02289.dsp +++|*
Line S02290 Modification History
M01 (Removed by) dsp15
Seq # *Modification Id* Act
----------------------------+
02877 M01S02290.dsp15 ---|* USES ST, CM - CM+4, FN - FN+4.
Line S00004 Modification History
M01 (Added by) dsp15
Seq # *Modification Id* Act
----------------------------+
02878 M01S00004.dsp15 +++|* USES ST, T1, CM - CM+4, FN - FN+4.
02879 M00S02291.dsp +++|*
02880 M00S02292.dsp +++|* CALLS SAF, SFB, VFN, VMS.
02881 M00S02293.dsp +++|*
02882 M00S02294.dsp +++|* MACROS ERROR, NFA.
02883 M00S02295.dsp +++|
02884 M00S02296.dsp +++|
02885 M00S02297.dsp +++| FFQ SUBR ENTRY/EXIT
02886 M00S02298.dsp +++| LDC ** FNT ADDRESS
02887 M00S02299.dsp +++| FFQA EQU *-1 (SET BY PRESET)
02888 M00S02300.dsp +++| RJM SAF SEARCH FOR ASSIGNED FILE
02889 M00S02301.dsp +++| NJN FFQ3 IF FILE FOUND
02890 M00S02302.dsp +++| RJM VFN VERIFY FILE NAME
02891 M00S02303.dsp +++| NJN FFQ1 IF VALID FILE NAME
02892 M00S02304.dsp +++| ERROR /ERR/EC01 * DSP - FILE NAME ERROR.*
02893 M00S02305.dsp +++|
Line S02306 Modification History
M01 (Removed by) dsp9
Seq # *Modification Id* Act
----------------------------+
02894 M01S02306.dsp9 ---| FFQ1 LDD FB+1
02895 M01S02307.dsp9 ---| SHN 21-0
02896 M01S02308.dsp9 ---| MJN FFQ2 IF DEFERRED ROUTE
02897 M01S02309.dsp9 ---| ERROR /ERR/EC06 * DSP - IMMEDIATE ROUTING - NO FILE.*
02898 M01S02310.dsp9 ---|
02899 M01S02311.dsp9 ---| FFQ2 LDC LOFT*100 SET LOCAL FILE FOR *DDC*
Line S00002 Modification History
M01 (Added by) dsp9
Seq # *Modification Id* Act
----------------------------+
02900 M01S00002.dsp9 +++| FFQ1 LDC LOFT*100 SET LOCAL FILE FOR *DDC*