Seq # *Modification Id* Act
----------------------------+
01453 M00S01284.tlx +++| CLF SUBR ENTRY/EXIT
01454 M00S01285.tlx +++| LDC 2RWK SET FILE NAME
01455 M00S01286.tlx +++| STD T1
01456 M00S01287.tlx +++| LDM TWFA GET JSN
01457 M00S01288.tlx +++| SFA EJT
01458 M00S01289.tlx +++| ADK JSNE
01459 M00S01290.tlx +++| CRD T2
01460 M00S01291.tlx +++| LDN 0
01461 M00S01292.tlx +++| STD T4
01462 M00S01293.tlx +++| STD T5
01463 M00S01294.tlx +++| LDD MA SET FILE NAME IN MB
01464 M00S01295.tlx +++| CWD T1
01465 M00S01296.tlx +++| LDN CRFS CREATE LOCAL FNT ENTRY
01466 M00S01297.tlx +++| STD CM+1
01467 M00S01298.tlx +++| MONITOR PLFM
01468 M00S01299.tlx +++| LDD CM+1 SAVE FNT ORDINAL
01469 M00S01300.tlx +++| STD CN
01470 M00S01301.tlx +++| LDD CM+4
01471 M00S01302.tlx +++| ZJN CLFX IF FILE CREATED
01472 M00S01303.tlx +++|
01473 M00S01304.tlx +++|* FILE NOT CREATED, PROCESS ERROR STATUS.
01474 M00S01305.tlx +++|
01475 M00S01306.tlx +++| SHN 21-2
01476 M00S01307.tlx +++| PJN CLF1 IF NOT NFL INCREASE NEEDED
01477 M00S01308.tlx +++| ERROR RSNP,B RETURN NO SPACE IN NFL STATUS
01478 M00S01309.tlx +++|
01479 M00S01310.tlx +++| CLF1 ERROR RSFL,B RETURN FILE LIMIT STATUS
01480 M00S01311.tlx +++| CPR SPACE 4,20
01481 M00S01312.tlx +++|** CPR - CHECK PREMATURE RECALL.
01482 M00S01313.tlx +++|*
01483 M00S01314.tlx +++|* ENTRY (CS) = CONNECTION STATUS.
01484 M00S01315.tlx +++|* (CN - CN+4) = FUNCTION PARAMETER WORD.
01485 M00S01316.tlx +++|* (TWFA) = CALLER EJT ORDINAL.
01486 M00S01317.tlx +++|*
01487 M00S01318.tlx +++|* EXIT (A) = 0 IF DISCONNECT STATUS.
01488 M00S01319.tlx +++|* (A) .NE. 0 IF ONE OF THE FOLLOWING IS TRUE -
01489 M00S01320.tlx +++|* 1. CONNECTION STATUS IS ON LINE AND *SMF* FIELD
01490 M00S01321.tlx +++|* OF *VFST* .NE. 0.
01491 M00S01322.tlx +++|* 2. WORKFILE FNT ENTRY STILL EXISTS IN
01492 M00S01323.tlx +++|* SUBSYSTEM NFL.
01493 M00S01324.tlx +++|*
01494 M00S01325.tlx +++|* USES T2 - T6, CM - CM+4.
01495 M00S01326.tlx +++|*
| Line S01327 Modification History |
M01 (Removed by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01496 M01S01327.tlx14 ---|* CALLS AST, CCP, GSC, STA.
| Line S00075 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01497 M02S00075.ns2748 ---|* CALLS CCP, CSP, GSC, STA.
| Line S00025 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01498 M01S00025.ns2748 +++|* CALLS CCP, CSP, GSC, RRR, SRR, STA.
01499 M00S01328.tlx +++|*
01500 M00S01329.tlx +++|* MACROS NFA, SFA.
01501 M00S01330.tlx +++|
01502 M00S01331.tlx +++|
01503 M00S01332.tlx +++| CPR SUBR ENTRY/EXIT
01504 M00S01333.tlx +++| LDD CS CHECK CONNECTION STATUS
01505 M00S01334.tlx +++| LMN OLCS
01506 M00S01335.tlx +++| NJN CPR1 IF NOT ON LINE
| Line S00026 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01507 M01S00026.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01508 M00S01336.tlx +++| RJM STA READ TERMINAL TABLE WORD *VFST*
01509 M00S01337.tlx +++| ADN VFST
01510 M00S01338.tlx +++| CRD CM
| Line S00027 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01511 M01S00027.ns2748 +++| RJM RRR RESTORE R-REGISTER
01512 M00S01339.tlx +++| LDD CM+3 CHECK *SMF* FIELD
01513 M00S01340.tlx +++| SHN -6
| Line S01341 Modification History |
M01 (Removed by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01514 M01S01341.tlx14 ---| ZJN CPR1 IF *SMF* NOT CONNECTED
01515 M01S01342.tlx14 ---| UJN CPRX RETURN PREMATURE STATUS
01516 M01S01343.tlx14 ---|
01517 M01S01344.tlx14 ---| CPR1 LDC FECF*10000B GET SUBSYSTEM *SSCT* ENTRY
01518 M01S01345.tlx14 ---| ADD CN+2
01519 M01S01346.tlx14 ---| RJM AST ACCESS SUBSYSTEM TABLES
01520 M01S01347.tlx14 ---| SHN 21-13
01521 M01S01348.tlx14 ---| MJN CPR4 IF SUBSYSTEM ACCESSIBLE
01522 M01S01349.tlx14 ---| CPR2 LDN 0 RETURN DISCONNECT STATUS
01523 M01S01350.tlx14 ---| CPR3 UJN CPRX RETURN
01524 M01S01351.tlx14 ---|
01525 M01S01352.tlx14 ---| CPR4 RJM GSC GET SUBSYSTEM CP NUMBER
01526 M01S01353.tlx14 ---| LDN 0 CHANGE TO SUBSYSTEM CP
01527 M01S01354.tlx14 ---| RJM CCP
| Line S00076 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01528 M01S00076.tlx14 +++| NJN CPRX IF *SMF* CONNECTED
01529 M01S00077.tlx14 +++| CPR1 RJM GSC GET SUBSYSTEM CP NUMBER
01530 M01S00078.tlx14 +++| ZJN CPRX IF *SMF* GONE
| Line S00079 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01531 M02S00079.273l780 ---| RJM CSP CHANGE TO SUBSYSTEM CONTROL POINT
| Line S00011 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01532 M01S00011.273l780 +++| RJM CSP SET ALTERNATE CP ASSIGNMENT TO SUBSYSTEM
| Line S00080 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01533 M01S00080.tlx14 +++| ZJN CPRX IF *SMF* GONE AND CP NOT CHANGED
01534 M01S00081.tlx14 +++| LDM CSPB
01535 M01S00082.tlx14 +++| NJN CPR1.1 IF CP CHANGED BUT *SMF* NOT THERE
01536 M00S01355.tlx +++| NFA CN,R CHECK FOR FNT ENTRY IN SUBSYSTEM NFL
01537 M00S01356.tlx +++| CRD T2
| Line S01357 Modification History |
M01 (Removed by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01538 M01S01357.tlx14 ---| LDN 1
01539 M01S01358.tlx14 ---| RJM CCP CHANGE BACK
| Line S00083 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01540 M02S00083.273l780 ---| RJM CCP CHANGE BACK TO CALLER-S CP
| Line S00012 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01541 M01S00012.273l780 +++| RJM CCP CLEAR ALTERNATE CP ASSIGNMENT
01542 M00S01359.tlx +++| LDC 2RWK CHECK FOR WORKFILE
01543 M00S01360.tlx +++| LMD T2
01544 M00S01361.tlx +++| NJN CPR2 IF NOT WORKFILE
01545 M00S01362.tlx +++| LDM TWFA GET JSN
01546 M00S01363.tlx +++| SFA EJT
01547 M00S01364.tlx +++| ADK JSNE
01548 M00S01365.tlx +++| CRD CM
01549 M00S01366.tlx +++| LDD CM
01550 M00S01367.tlx +++| LMD T3
01551 M00S01368.tlx +++| NJN CPR2 IF NOT WORKFILE
01552 M00S01369.tlx +++| LDD CM+1
01553 M00S01370.tlx +++| LMD T4
01554 M00S01371.tlx +++| NJN CPR2 IF NOT WORKFILE
01555 M00S01372.tlx +++| LDN 1
01556 M00S01373.tlx +++| UJN CPR3 RETURN PREMATURE STATUS
| Line S00084 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01557 M01S00084.tlx14 +++|
| Line S00085 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01558 M02S00085.273l780 ---| CPR1.1 RJM CCP CHANGE BACK TO CALLER-S CP
| Line S00013 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01559 M01S00013.273l780 +++| CPR1.1 RJM CCP CLEAR ALTERNATE CP ASSIGNMENT
| Line S00086 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01560 M01S00086.tlx14 +++| CPR2 LDN 0 RETURN DISCONNECT STATUS
01561 M01S00087.tlx14 +++| CPR3 UJP CPRX RETURN
| Line S01374 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01562 M01S01374.273l780 ---| CSF SPACE 4,15
01563 M01S01375.273l780 ---|** CSF - CHANGE *SSID* FIELD.
01564 M01S01376.273l780 ---|*
01565 M01S01377.273l780 ---|* ENTRY (T1) = 0 IF SET *SSID* FIELD TO PREVENT ROLLOUT.
01566 M01S01378.273l780 ---|* .NE. 0 IF RESTORE *SSID* FIELD.
01567 M01S01379.273l780 ---|* (CSFA) = ORIGINAL *SSID* FIELD CONTENTS IF TO RESTORE.
01568 M01S01380.273l780 ---|*
01569 M01S01381.273l780 ---|* EXIT CONTROL POINT AREA *SSID* FIELD SET OR RESTORED IF NOT
01570 M01S01382.273l780 ---|* SUBSYSTEM.
01571 M01S01383.273l780 ---|*
01572 M01S01384.273l780 ---|* USES CM - CM+4.
01573 M01S01385.273l780 ---|*
01574 M01S01386.273l780 ---|* MACROS MONITOR.
01575 M01S01387.273l780 ---|
01576 M01S01388.273l780 ---|
01577 M01S01389.273l780 ---| CSF SUBR ENTRY/EXIT
01578 M01S01390.273l780 ---| LDD CP CHECK *SSID* STATUS
01579 M01S01391.273l780 ---| ADN JCIW
01580 M01S01392.273l780 ---| CRD CM
01581 M01S01393.273l780 ---| LDD CM+2
01582 M01S01394.273l780 ---| ADC -LSSI-1
01583 M01S01395.273l780 ---| PJN CSFX IF SUBSYSTEM
01584 M01S01396.273l780 ---| LDD T1
01585 M01S01397.273l780 ---| NJN CSF1 IF RESTORE FIELD
01586 M01S01398.273l780 ---| LDD CM+2 SAVE ORIGINAL CONTENTS
01587 M01S01399.273l780 ---| STM CSFA
01588 M01S01400.273l780 ---| LDN QCSI
01589 M01S01401.273l780 ---| UJN CSF2 SET *SSID* FIELD
01590 M01S01402.273l780 ---|
01591 M01S01403.273l780 ---| CSF1 LDC ** RESTORE ORIGINAL CONTENTS
01592 M01S01404.273l780 ---| CSFA EQU *-1 (ORIGINAL *SSID* CONTENTS)
01593 M01S01405.273l780 ---| CSF2 STM CSFB+4
01594 M01S01406.273l780 ---| LDN ZERL
01595 M01S01407.273l780 ---| CRD CM
01596 M01S01408.273l780 ---| LDN 1 SET REQUEST COUNT
01597 M01S01409.273l780 ---| STD CM+1
01598 M01S01410.273l780 ---| LDD MA
01599 M01S01411.273l780 ---| CWM CSFB,ON
01600 M01S01412.273l780 ---| LDD CP
01601 M01S01413.273l780 ---| STD CM+4
01602 M01S01414.273l780 ---| MONITOR UTEM
01603 M01S01415.273l780 ---| LJM CSFX RETURN
01604 M01S01416.273l780 ---|
01605 M01S01417.273l780 ---| CSFB VFD 1/0,5/JCIW,6/12D,6/24D,42/0 SET/RESTORE *SSID* FIELD
| Line S00088 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01606 M02S00088.tlx16 ---| CSP SPACE 4,10
| Line S00001 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01607 M01S00001.tlx16 +++| CSP SPACE 4,15
| Line S00089 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01608 M02S00089.273l780 ---|** CSP - CHANGE TO SUBSYSTEM CONTROL POINT.
| Line S00014 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01609 M01S00014.273l780 +++|** CSP - SET ALTERNATE CONTROL POINT ASIGNMENT TO SUBSYSTEM.
| Line S00090 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01610 M01S00090.tlx14 +++|*
01611 M01S00091.tlx14 +++|* ENTRY (CSPA) = SUBSYSTEM CONTROL POINT NUMBER.
| Line S00092 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01612 M02S00092.tlx16 ---|* (CSPB) = *SMF* EJT ORDINAL.
| Line S00002 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01613 M01S00002.tlx16 +++|* (CN+2) = SUBSYSTEM ID.
| Line S00093 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01614 M01S00093.tlx14 +++|*
01615 M01S00094.tlx14 +++|* EXIT (A) = 0 IF *SMF* GONE AND CONTROL POINT NOT CHANGED.
01616 M01S00095.tlx14 +++|* .NE. 0 IF CONTROL POINT CHANGED.
01617 M01S00096.tlx14 +++|* (CSPB) .NE. 0 IF *SMF* GONE AND CONTROL POINT CHANGED.
| Line S00097 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01618 M02S00097.273l780 ---|* (CCPA) = CALLER-S CP ADDRESS.
| Line S00098 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01619 M01S00098.tlx14 +++|*
| Line S00099 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01620 M02S00099.273l780 ---|* USES CP, T1, T2, CM - CM+4.
| Line S00015 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01621 M01S00015.273l780 +++|* USES T2, CM - CM+4.
| Line S00100 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01622 M01S00100.tlx14 +++|*
| Line S00101 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01623 M02S00101.273l780 ---|* CALLS AST, CSF.
| Line S00016 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01624 M01S00016.273l780 +++|* CALLS AST.
| Line S00102 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01625 M01S00102.tlx14 +++|*
| Line S00103 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01626 M02S00103.273l780 ---|* MACROS MONITOR, PAUSE.
| Line S00017 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01627 M01S00017.273l780 +++|* MACROS DELAY, MONITOR, PAUSE.
| Line S00104 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01628 M01S00104.tlx14 +++|
01629 M01S00105.tlx14 +++|
| Line S00106 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01630 M02S00106.273l780 ---| CSP3 LDD T1 RESET *CP*
01631 M02S00107.273l780 ---| SHN 7
01632 M02S00108.273l780 ---| STD CP
01633 M02S00109.273l780 ---| PAUSE ST UPDATE *RA* AND *FL*
01634 M02S00110.273l780 ---| LDD CP CHECK IF EJT ORDINAL IS CORRECT
| Line S00018 Modification History |
M01 (Added by) | 273l780 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01635 M02S00018.tlx16 ---| CSP3 LDD CP CHECK EJT ORDINAL
| Line S00111 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01636 M02S00111.tlx16 ---| ADK TFSW
| Line S00003 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01637 M01S00003.tlx16 +++| CSP3 LDD CP CHECK SUBSYSTEM ID
01638 M01S00004.tlx16 +++| ADK JCIW
| Line S00112 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01639 M01S00112.tlx14 +++| CRD CM
| Line S00113 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01640 M02S00113.tlx16 ---| LDM CSPB
01641 M02S00114.tlx16 ---| LMD CM
| Line S00005 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01642 M01S00005.tlx16 +++| LDD CN+2
01643 M01S00006.tlx16 +++| LMD CM+2
| Line S00115 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01644 M01S00115.tlx14 +++| STM CSPB SET *SMF* FLAG
01645 M01S00116.tlx14 +++| LDN 1 SET CONTROL POINT CHANGE MADE
01646 M01S00117.tlx14 +++|
01647 M01S00118.tlx14 +++| CSP SUBR ENTRY/EXIT
| Line S00119 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01648 M02S00119.273l780 ---| LDN 0
01649 M02S00120.273l780 ---| STD T1
01650 M02S00121.273l780 ---| RJM CSF SET *SSID* FIELD TO PREVENT ROLLOUT
01651 M02S00122.273l780 ---| LDD CP SAVE CALLER-S CP ADDRESS
01652 M02S00123.273l780 ---| STM CCPA
| Line S00124 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01653 M02S00124.tlx16 ---| LDM CSPA GET SUBSYSTEM CP NUMBER
| Line S00007 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01654 M01S00007.tlx16 +++| CSP1 LDM CSPA GET SUBSYSTEM CP NUMBER
| Line S00125 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01655 M02S00125.273l780 ---| STD T1
01656 M02S00126.273l780 ---| CSP1 LDD T1
01657 M02S00127.273l780 ---| STM CM+1
01658 M02S00128.273l780 ---| MONITOR CCAM CHANGE CONTROL POINT
| Line S00019 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01659 M01S00019.273l780 +++| LMC ALCS SET ALTERNATE CP FLAG
01660 M01S00020.273l780 +++| STD CM+1
| Line S00021 Modification History |
M01 (Added by) | 273l780 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01661 M02S00021.tlx16 ---| CSP1 MONITOR CCAM SET ALTERNATE CP ASSIGNMENT
| Line S00008 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01662 M01S00008.tlx16 +++| MONITOR CCAM SET ALTERNATE CP ASSIGNMENT
| Line S00129 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01663 M01S00129.tlx14 +++| LDD CM+1
01664 M01S00130.tlx14 +++| ZJP CSP3 IF CHANGE MADE
01665 M01S00131.tlx14 +++| PAUSE ST
01666 M01S00132.tlx14 +++| LDC 3600
01667 M01S00133.tlx14 +++| STD T2
01668 M01S00134.tlx14 +++| CSP2 DELAY
01669 M01S00135.tlx14 +++| SOD T2
01670 M01S00136.tlx14 +++| NJN CSP2 IF STILL DELAYING
01671 M01S00137.tlx14 +++| LDC FEAF*10000B GET *SSAT* ENTRY
01672 M01S00138.tlx14 +++| ADD CN+2
01673 M01S00139.tlx14 +++| RJM AST
| Line S00140 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01674 M02S00140.tlx16 ---| NJN CSP1 IF *SMF* STILL PRESENT, RETRY
| Line S00141 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | 273l780 |
M03 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01675 M03S00141.tlx16 ---| RJM CSF RESET *SSID* FIELD
01676 M03S00142.tlx16 ---| LDN 0 CONTROL POINT NOT CHANGED, *SMF* GONE
01677 M03S00143.tlx16 ---| UJP CSPX RETURN
| Line S00022 Modification History |
M01 (Added by) | 273l780 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01678 M02S00022.tlx16 ---| UJP CSPX RETURN WITH CHANGE NOT MADE STATUS
| Line S00009 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01679 M01S00009.tlx16 +++| ZJN CSPX IF *SMF* NOT PRESENT
01680 M01S00010.tlx16 +++| SFA EJT GET EJT ADDRESS
01681 M01S00011.tlx16 +++| ADN SCHE GET SCHEDULING DATA
01682 M01S00012.tlx16 +++| CRD CM
01683 M01S00013.tlx16 +++| LDD CM+3 GET CP NUMBER
01684 M01S00014.tlx16 +++| LPN 77
01685 M01S00015.tlx16 +++| STM CSPA RESET SUBSYSTEM CP NUMBER
01686 M01S00016.tlx16 +++| UJP CSP1 TRY AGAIN
| Line S00144 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01687 M01S00144.tlx14 +++|
01688 M01S00145.tlx14 +++|
01689 M01S00146.tlx14 +++| CSPA CON 0 *SMF* CONTROL POINT NUMBER
| Line S00147 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01690 M02S00147.tlx16 ---| CSPB CON 0 *SMF* EJT ORDINAL
| Line S00017 Modification History |
M01 (Added by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01691 M01S00017.tlx16 +++| CSPB CON 0 *SMF* FLAG
01692 M00S01418.tlx +++| ERR SPACE 4,10
01693 M00S01419.tlx +++|** ERR - PROCESS ERROR.
01694 M00S01420.tlx +++|*
01695 M00S01421.tlx +++|* ENTRY (A) = FWA OF ERROR MESSAGE FOR DAYFILE.
01696 M00S01422.tlx +++|*
01697 M00S01423.tlx +++|* EXIT TO *PPR*.
01698 M00S01424.tlx +++|* DAYFILE MESSAGE ISSUED.
01699 M00S01425.tlx +++|* CONTROL POINT ABORTED.
01700 M00S01426.tlx +++|*
01701 M00S01427.tlx +++|* CALLS DFM.
01702 M00S01428.tlx +++|*
01703 M00S01429.tlx +++|* MACROS MONITOR.
01704 M00S01430.tlx +++|
01705 M00S01431.tlx +++|
01706 M00S01432.tlx +++| ERR RJM DFM ISSUE DAYFILE MESSAGE
01707 M00S01433.tlx +++| ERR1 MONITOR ABTM ABORT CONTROL POINT
01708 M00S01434.tlx +++| LJM PPR EXIT TO PP RESIDENT
01709 M00S01435.tlx +++|
01710 M00S01436.tlx +++|
01711 M00S01437.tlx +++|* ERROR MESSAGES.
01712 M00S01438.tlx +++|
01713 M00S01439.tlx +++|
01714 M00S01440.tlx +++| ERAE DATA C* TLX - ARGUMENT ERROR.*
01715 M00S01441.tlx +++| ERIR DATA C* INCORRECT TERMINAL REQUEST.*
01716 M00S01442.tlx +++| ERRA DATA C* TLX - RPV ALREADY SET.*
01717 M00S01443.tlx +++| ERNT DATA C* REQUEST IS VALID ONLY FROM A NETWORK TERMINAL.*
01718 M00S01444.tlx +++| ERSA DATA C* USER CANNOT SWITCH FROM A SECONDARY APPLICATION.*
01719 M00S01445.tlx +++| ERNR DATA C* APPLICATION NAME IS REQUIRED.*
01720 M00S01446.tlx +++| ERAL DATA C* THIS CONNECTION IS ALREADY LOANED.*
| Line S00011 Modification History |
M01 (Added by) | tlx15 |
Seq # *Modification Id* Act
----------------------------+
01721 M01S00011.tlx15 +++| ERCS DATA C* USER CANNOT SWITCH TO CURRENT APPLICATION.*
01722 M00S01447.tlx +++| GPA SPACE 4,10
01723 M00S01448.tlx +++|** GPA - GET PARAMETER ADDRESS.
01724 M00S01449.tlx +++|*
01725 M00S01450.tlx +++|* ENTRY (IR+3 - IR+4) = ADDRESS.
01726 M00S01451.tlx +++|*
01727 M00S01452.tlx +++|* EXIT (A) = ABSOLUTE ADDRESS.
01728 M00S01453.tlx +++|* TO *ERR* IF ADDRESS OUT OF RANGE.
01729 M00S01454.tlx +++|*
01730 M00S01455.tlx +++|* MACROS ABORT.
01731 M00S01456.tlx +++|
01732 M00S01457.tlx +++|
01733 M00S01458.tlx +++| GPA1 LDD IR+3
01734 M00S01459.tlx +++| LPN 77
01735 M00S01460.tlx +++| SHN 6
01736 M00S01461.tlx +++| ADD RA
01737 M00S01462.tlx +++| SHN 6
01738 M00S01463.tlx +++| ADD IR+4
01739 M00S01464.tlx +++|
01740 M00S01465.tlx +++| GPA SUBR ENTRY/EXIT
01741 M00S01466.tlx +++| LDD IR+3 VALIDATE ADDRESS
01742 M00S01467.tlx +++| LPN 77
01743 M00S01468.tlx +++| SHN 14
01744 M00S01469.tlx +++| ADD IR+4
01745 M00S01470.tlx +++| SHN -6
01746 M00S01471.tlx +++| SBD FL
01747 M00S01472.tlx +++| MJN GPA1 IF NOT OUT OF RANGE
01748 M00S01473.tlx +++| ABORT ERAE * TLX - ARGUMENT ERROR.*
01749 M00S01474.tlx +++| GSC SPACE 4,15
01750 M00S01475.tlx +++|** GSC - GET SUBSYSTEM CONTROL POINT NUMBER.
01751 M00S01476.tlx +++|*
01752 M00S01477.tlx +++|* ENTRY (CN+2) = SUBSYSTEM *SSID*.
01753 M00S01478.tlx +++|*
| Line S01479 Modification History |
M01 (Removed by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01754 M01S01479.tlx14 ---|* EXIT (CCPA) = SUBSYSTEM CP NUMBER.
| Line S00148 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01755 M01S00148.tlx14 +++|* EXIT (CSPA) = SUBSYSTEM CP NUMBER.
| Line S00149 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01756 M02S00149.tlx16 ---|* (CSPB) = SUBSYSTEM EJT ORDINAL.
01757 M00S01480.tlx +++|*
01758 M00S01481.tlx +++|* USES T1 - T5.
01759 M00S01482.tlx +++|*
01760 M00S01483.tlx +++|* CALLS AST.
01761 M00S01484.tlx +++|*
01762 M00S01485.tlx +++|* MACROS SFA.
01763 M00S01486.tlx +++|
01764 M00S01487.tlx +++|
01765 M00S01488.tlx +++| GSC SUBR ENTRY/EXIT
01766 M00S01489.tlx +++| LDC FEAF*10000B GET *SSAT* ENTRY
01767 M00S01490.tlx +++| ADD CN+2
01768 M00S01491.tlx +++| RJM AST
| Line S00150 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01769 M01S00150.tlx14 +++| ZJN GSCX IF *SMF* GONE
| Line S00151 Modification History |
M01 (Added by) | tlx14 |
M02 (Removed by) | tlx16 |
Seq # *Modification Id* Act
----------------------------+
01770 M02S00151.tlx16 ---| STM CSPB SAVE *SMF* EJT ORDINAL
01771 M00S01492.tlx +++| SFA EJT GET EJT ADDRESS
01772 M00S01493.tlx +++| ADN SCHE GET SCHEDULING DATA
01773 M00S01494.tlx +++| CRD T1
01774 M00S01495.tlx +++| LDD T4 GET CP NUMBER
01775 M00S01496.tlx +++| LPN 77
| Line S01497 Modification History |
M01 (Removed by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01776 M01S01497.tlx14 ---| STM CCPA SAVE SUBSYSTEM CP NUMBER
| Line S00152 Modification History |
M01 (Added by) | tlx14 |
Seq # *Modification Id* Act
----------------------------+
01777 M01S00152.tlx14 +++| STM CSPA SAVE SUBSYSTEM CP NUMBER
01778 M00S01498.tlx +++| UJN GSCX RETURN
01779 M00S01499.tlx +++| ITF SPACE 4,10
01780 M00S01500.tlx +++|** ITF - ISSUE *TSEM* FUNCTION.
01781 M00S01501.tlx +++|*
01782 M00S01502.tlx +++|* ENTRY (TW - TW+4) = *TSEM* REQUEST.
01783 M00S01503.tlx +++|* (A) = NUMBER OF RECALLS TO TRY IF *TSEM* QUEUE FULL.
01784 M00S01504.tlx +++|*
01785 M00S01505.tlx +++|* USES CM - CM+4, RC - RC+1.
01786 M00S01506.tlx +++|*
01787 M00S01507.tlx +++|* MACROS DELAY, MONITOR, PAUSE.
01788 M00S01508.tlx +++|
01789 M00S01509.tlx +++|
01790 M00S01510.tlx +++| ITF SUBR ENTRY/EXIT
01791 M00S01511.tlx +++| STD RC RECALL FLAG
01792 M00S01512.tlx +++| STD RC+1 RECALL COUNTER
01793 M00S01513.tlx +++| LDD MA
01794 M00S01514.tlx +++| CWD TW
| Line S01515 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01795 M01S01515.271l716 ---| ITF1 MONITOR TSEM
| Line S00001 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01796 M01S00001.271l716 +++| ITF1 LDK ZERL
01797 M01S00002.271l716 +++| CRD CM
01798 M01S00003.271l716 +++| MONITOR TSEM
01799 M00S01516.tlx +++| LDD CM+1
01800 M00S01517.tlx +++| ZJN ITFX IF *IAF* INACCESSIBLE OR ERROR
01801 M00S01518.tlx +++| LMC 7777
01802 M00S01519.tlx +++| NJN ITFX IF REQUEST COMPLETE
01803 M00S01520.tlx +++| PAUSE ST
01804 M00S01521.tlx +++| LDC 3600 *TSEM* QUEUE FULL - DELAY AND RETRY
01805 M00S01522.tlx +++| STD T1
01806 M00S01523.tlx +++| ITF2 DELAY
01807 M00S01524.tlx +++| SOD T1
01808 M00S01525.tlx +++| NJN ITF2 IF STILL DELAYING
01809 M00S01526.tlx +++| SOD RC+1
01810 M00S01527.tlx +++| NJN ITF1 IF TIME TO REISSUE REQUEST
01811 M00S01528.tlx +++| LDD RC
01812 M00S01529.tlx +++| ZJN ITF1 IF NO RECALL
01813 M00S01530.tlx +++| UJP RCL RECALL PP
01814 M00S01531.tlx +++| RCF SPACE 4,10
01815 M00S01532.tlx +++|** RCF - REINSTATE CALLER FNT.
01816 M00S01533.tlx +++|*
01817 M00S01534.tlx +++|* ENTRY (CN+1) = CALLER FNT ORDINAL.
01818 M00S01535.tlx +++|*
01819 M00S01536.tlx +++|* EXIT CALLER WORKFILE FNT REWRITTEN WITH THE WRITE
01820 M00S01537.tlx +++|* LOCKOUT BIT CLEARED AND FILE TYPE = *LOFT*.
01821 M00S01538.tlx +++|*
01822 M00S01539.tlx +++|* USES CM - CM+4.
01823 M00S01540.tlx +++|*
01824 M00S01541.tlx +++|* MACROS NFA.
01825 M00S01542.tlx +++|
01826 M00S01543.tlx +++|
01827 M00S01544.tlx +++| RCF SUBR ENTRY/EXIT
01828 M00S01545.tlx +++| NFA CN+1,R GET FNT ENTRY
01829 M00S01546.tlx +++| CRD CM
01830 M00S01547.tlx +++| LDD CM+3 CLEAR WRITE LOCKOUT BIT
01831 M00S01548.tlx +++| SCN 1
01832 M00S01549.tlx +++| STD CM+3
01833 M00S01550.tlx +++| LDD CM+4 SET *LOCAL* FILE TYPE
01834 M00S01551.tlx +++| LPN 77
01835 M00S01552.tlx +++| ADC LOFT*100
01836 M00S01553.tlx +++| STD CM+4
01837 M00S01554.tlx +++| NFA CN+1,R
01838 M00S01555.tlx +++| CWD CM
01839 M00S01556.tlx +++| UJN RCFX RETURN
01840 M00S01557.tlx +++| RCL SPACE 4,10
01841 M00S01558.tlx +++|** RCL - RECALL PPU.
01842 M00S01559.tlx +++|*
01843 M00S01560.tlx +++|* EXIT TO *PPR*.
01844 M00S01561.tlx +++|*
01845 M00S01562.tlx +++|* MACROS MONITOR.
01846 M00S01563.tlx +++|
01847 M00S01564.tlx +++|
01848 M00S01565.tlx +++| RCL BSS 0 ENTRY
01849 M00S01566.tlx +++| LDD MA WRITE *TLX* CALL
01850 M00S01567.tlx +++| CWD IR
01851 M00S01568.tlx +++| LDN ZERL
01852 M00S01569.tlx +++| CRD CM
01853 M00S01570.tlx +++| LDN PTMF SET TIMED RECALL
01854 M00S01571.tlx +++| STD CM+1
01855 M00S01572.tlx +++| MONITOR RECM
01856 M00S01573.tlx +++| LJM PPR EXIT TO PP RESIDENT
01857 M00S01574.tlx +++| RTE SPACE 4,10
01858 M00S01575.tlx +++|** RTE - REQUEST TIMED EVENT ROLLOUT.
01859 M00S01576.tlx +++|*
| Line S01577 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01860 M01S01577.271l716 ---|* EXIT *TERW* SET.
01861 M01S01578.271l716 ---|* TIMED EVENT ROLLOUT REQUESTED.
01862 M01S01579.271l716 ---|*
| Line S00004 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01863 M01S00004.271l716 +++|* EXIT TIMED/EVENT ROLLOUT REQUESTED.
01864 M01S00005.271l716 +++|*
01865 M00S01580.tlx +++|* USES CM - CM+4.
01866 M00S01581.tlx +++|*
01867 M00S01582.tlx +++|* MACROS MONITOR.
01868 M00S01583.tlx +++|
01869 M00S01584.tlx +++|
01870 M00S01585.tlx +++| RTE SUBR ENTRY/EXIT
01871 M00S01586.tlx +++| LDD CP READ TIMED EVENT ROLLOUT WORD
01872 M00S01587.tlx +++| ADN TERW
01873 M00S01588.tlx +++| CRD CM
01874 M00S01589.tlx +++| LDD CM SET EJT ORDINAL
| Line S01590 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01875 M01S01590.271l716 ---| LMC WRKE SET EVENT
01876 M00S01591.tlx +++| STD CM+4
| Line S01592 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01877 M01S01592.271l716 ---| SHN -14
01878 M01S01593.271l716 ---| ADC 7000 SET TIME
| Line S00006 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01879 M01S00006.271l716 +++| LDK WRKE/10000 SET EVENT
01880 M00S01594.tlx +++| STD CM+3
| Line S01595 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01881 M01S01595.271l716 ---| LDD CM+2
01882 M01S01596.271l716 ---| SCN 77
01883 M01S01597.271l716 ---| ADN 77
| Line S00007 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01884 M01S00007.271l716 +++| LDC 777 SET TIME
01885 M00S01598.tlx +++| STD CM+2
| Line S01599 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01886 M01S01599.271l716 ---| LDD CP
01887 M01S01600.271l716 ---| ADN TERW
| Line S00008 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01888 M01S00008.271l716 +++| LDD MA WRITE *ROCM* PARAMETERS TO MB
01889 M00S01601.tlx +++| CWD CM
| Line S01602 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
01890 M01S01602.271l716 ---| LDN ZERL
01891 M01S01603.271l716 ---| CRD CM
01892 M00S01604.tlx +++| LDN ROTE SET TIMED/EVENT ROLLOUT
01893 M00S01605.tlx +++| STD CM+1
01894 M00S01606.tlx +++| MONITOR ROCM
01895 M00S01607.tlx +++| UJN RTEX RETURN
| Line S01608 Modification History |
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01896 M01S01608.ns2748 ---| SDT SPACE 4,10
| Line S00028 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01897 M01S00028.ns2748 +++| SDT SPACE 4,15
01898 M00S01609.tlx +++|** SDT - SET DEVICE TYPE.
01899 M00S01610.tlx +++|*
01900 M00S01611.tlx +++|* ENTRY (TN) = TERMINAL NUMBER.
01901 M00S01612.tlx +++|* (TA) = IAF RA.
01902 M00S01613.tlx +++|*
01903 M00S01614.tlx +++|* EXIT (CN+1) = DEVICE TYPE.
01904 M00S01615.tlx +++|* (CN+3) = TRANSMISSION CODE.
01905 M00S01616.tlx +++|* (T0)-(T4) = VMST ENTRY.
01906 M00S01617.tlx +++|*
01907 M00S01618.tlx +++|* USES T0 - T4.
| Line S00029 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01908 M01S00029.ns2748 +++|*
01909 M01S00030.ns2748 +++|* CALLS RRR, SRR.
01910 M00S01619.tlx +++|
01911 M00S01620.tlx +++|
01912 M00S01621.tlx +++| SDT SUBR ENTRY/EXIT
| Line S00031 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01913 M01S00031.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01914 M00S01622.tlx +++| LDD TA GET FWA OF MESSAGE STATUS TABLE
01915 M00S01623.tlx +++| SHN 6
01916 M00S01624.tlx +++| ADN VMST
01917 M00S01625.tlx +++| CRD T0
01918 M00S01626.tlx +++| LDD T0+1 SET TABLE ADDRESS OF TERMINAL
01919 M00S01627.tlx +++| SHN 6
01920 M00S01628.tlx +++| ADD TA
01921 M00S01629.tlx +++| SHN 6
01922 M00S01630.tlx +++| ADD T0+2
01923 M00S01631.tlx +++| ADD TN
01924 M00S01632.tlx +++| CRD T0 READ TABLE ENTRY
01925 M00S01633.tlx +++| LDD T0+1 SET DEVICE TYPE
01926 M00S01634.tlx +++| LPC 377
01927 M00S01635.tlx +++| STD CN+1
01928 M00S01636.tlx +++| LDD CN+3 SET TRANSMISSION CODE
01929 M00S01637.tlx +++| SCN 77
01930 M00S01638.tlx +++| ADN 3
01931 M00S01639.tlx +++| STD CN+3
| Line S00032 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01932 M01S00032.ns2748 +++| LDD T0 SAVE (T0)
01933 M01S00033.ns2748 +++| STM SDTA
01934 M01S00034.ns2748 +++| RJM RRR RESTORE R-REGISTER
01935 M01S00035.ns2748 +++| LDM SDTA RESTORE (T0)
01936 M01S00036.ns2748 +++| STD T0
01937 M00S01640.tlx +++| UJN SDTX RETURN
| Line S00037 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01938 M01S00037.ns2748 +++|
01939 M01S00038.ns2748 +++| SDTA BSS 1 (T0)
01940 M00S01641.tlx +++| SFN SPACE 4,10
01941 M00S01642.tlx +++|** SFN - SET FILE NOT BUSY.
01942 M00S01643.tlx +++|*
01943 M00S01644.tlx +++|* ENTRY (CN+1) = CALLER FNT ORDINAL.
01944 M00S01645.tlx +++|*
01945 M00S01646.tlx +++|* EXIT CALLER-S WORKFILE SET NOT BUSY.
01946 M00S01647.tlx +++|*
01947 M00S01648.tlx +++|* USES CM - CM+4.
01948 M00S01649.tlx +++|*
01949 M00S01650.tlx +++|* MACROS NFA.
01950 M00S01651.tlx +++|
01951 M00S01652.tlx +++|
01952 M00S01653.tlx +++| SFN SUBR ENTRY/EXIT
01953 M00S01654.tlx +++| NFA CN+1,R GET FST ENTRY
01954 M00S01655.tlx +++| ADN FSTL
01955 M00S01656.tlx +++| CRD CM
01956 M00S01657.tlx +++| LDD CM+4 CLEAR FILE BUSY STATUS
01957 M00S01658.tlx +++| SCN 1
01958 M00S01659.tlx +++| LMN 1
01959 M00S01660.tlx +++| STD CM+4
01960 M00S01661.tlx +++| NFA CN+1,R WRITE FST
01961 M00S01662.tlx +++| ADN FSTL
01962 M00S01663.tlx +++| CWD CM
01963 M00S01664.tlx +++| UJN SFNX RETURN
01964 M00S01665.tlx +++| SNI SPACE 4,10
01965 M00S01666.tlx +++|** SNI - SET NETWORK IDENTIFICATION.
01966 M00S01667.tlx +++|*
01967 M00S01668.tlx +++|* ENTRY (TN) = TERMINAL NUMBER.
01968 M00S01669.tlx +++|* (TA) = IAF RA.
01969 M00S01670.tlx +++|*
01970 M00S01671.tlx +++|* EXIT (A) = ZERO IF NOT NETWORK TERMINAL.
01971 M00S01672.tlx +++|* (CM - CM+4) = *NAMIAF * IF A NETWORK TERMINAL.
01972 M00S01673.tlx +++|*
01973 M00S01674.tlx +++|* USES CM - CM+4.
| Line S00039 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01974 M01S00039.ns2748 +++|*
01975 M01S00040.ns2748 +++|* CALLS RRR, SRR.
01976 M00S01675.tlx +++|
01977 M00S01676.tlx +++|
01978 M00S01677.tlx +++| SNI SUBR ENTRY/EXIT
| Line S00041 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01979 M01S00041.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01980 M00S01678.tlx +++| LDD TA READ NETWORK TERMINAL POINTERS
01981 M00S01679.tlx +++| SHN 6
01982 M00S01680.tlx +++| ADN VNTP
01983 M00S01681.tlx +++| CRD CM
| Line S00042 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
01984 M01S00042.ns2748 +++| RJM RRR RESTORE R-REGISTER
01985 M00S01682.tlx +++| LDD CM+2 GET FIRST NETWORK TERMINAL NUMBER
01986 M00S01683.tlx +++| ZJN SNIX IF NO NETWORK TERMINALS
01987 M00S01684.tlx +++| SBN 1
01988 M00S01685.tlx +++| SBD TN
01989 M00S01686.tlx +++| MJN SNI1 IF NETWORK TERMINAL
01990 M00S01687.tlx +++| LDN 0
01991 M00S01688.tlx +++| UJN SNIX RETURN
01992 M00S01689.tlx +++|
01993 M00S01690.tlx +++|* SET NETWORK TERMINAL IDENTIFICATION.
01994 M00S01691.tlx +++|
01995 M00S01692.tlx +++| SNI1 LDD MA MOVE TERMINAL NAME TO (CM - CM+4)
01996 M00S01693.tlx +++| CWM SNIA,ON
01997 M00S01694.tlx +++| SBN 1
01998 M00S01695.tlx +++| CRD CM
01999 M00S01696.tlx +++| UJN SNIX RETURN
02000 M00S01697.tlx +++|
02001 M00S01698.tlx +++| SNIA DATA 10LNAMIAF
02002 M00S01699.tlx +++| SPJ SPACE 4,10
02003 M00S01700.tlx +++|** SPJ - SUSPEND JOB.
02004 M00S01701.tlx +++|*
02005 M00S01702.tlx +++|* EXIT TO *RCL*.
02006 M00S01703.tlx +++|*
02007 M00S01704.tlx +++|* USES CM - CM+4.
02008 M00S01705.tlx +++|*
02009 M00S01706.tlx +++|* MACROS MONITOR.
02010 M00S01707.tlx +++|
02011 M00S01708.tlx +++|
02012 M00S01709.tlx +++| SPJ BSS 0 ENTRY
02013 M00S01710.tlx +++| LDN ZERL
02014 M00S01711.tlx +++| CRD CM
02015 M00S01712.tlx +++| LDN ROSU JOB SUSPENSION OPTION
02016 M00S01713.tlx +++| STD CM+1
02017 M00S01714.tlx +++| MONITOR ROCM
02018 M00S01715.tlx +++| LJM RCL RECALL PP
02019 M00S01716.tlx +++| SRS SPACE 4,10
02020 M00S01717.tlx +++|** SRS - SET RETURN STATUS.
02021 M00S01718.tlx +++|*
02022 M00S01719.tlx +++|* ENTRY (A) = RETURN STATUS CODE.
02023 M00S01720.tlx +++|* (CN - CN+4) = TRANSFER FUNCTION PARAMETER WORD.
02024 M00S01721.tlx +++|*
02025 M00S01722.tlx +++|* EXIT TO *DPP*.
02026 M00S01723.tlx +++|* RETURN STATUS, COMPLETE BIT SET IN TRANSFER FUNCTION
02027 M00S01724.tlx +++|* PARAMETER WORD.
02028 M00S01725.tlx +++|*
02029 M00S01726.tlx +++|* CALLS GPA, SFN.
02030 M00S01727.tlx +++|
02031 M00S01728.tlx +++|
02032 M00S01729.tlx +++| SRS SHN 1
02033 M00S01730.tlx +++| LMN 1 SET COMPLETE BIT
02034 M00S01731.tlx +++| STD CN+4
02035 M00S01732.tlx +++| SHN -1
02036 M00S01733.tlx +++| ZJN SRS1 IF NORMAL RETURN STATUS
02037 M00S01734.tlx +++| SBN RSFB
02038 M00S01735.tlx +++| ZJN SRS1 IF FILE BUSY RETURN STATUS
02039 M00S01736.tlx +++| SBN RSFN&RSFB
02040 M00S01737.tlx +++| ZJN SRS1 IF FILE NOT FOUND STATUS
02041 M00S01738.tlx +++| RJM SFN SET FILE NOT BUSY
02042 M00S01739.tlx +++| SRS1 RJM GPA GET PARAMETER WORD ADDRESS
02043 M00S01740.tlx +++| CWD CN WRITE FUNCTION PARAMETER WORD
02044 M00S01741.tlx +++| LJM DPP DROP PP
02045 M00S01742.tlx +++| STI SPACE 4,10
02046 M00S01743.tlx +++|** STI - SET TERMINAL IDENTIFICATION.
02047 M00S01744.tlx +++|*
02048 M00S01745.tlx +++|*
02049 M00S01746.tlx +++|* ENTRY (TA) = IAF RA.
02050 M00S01747.tlx +++|* (TTTA) = USER TERMINAL TABLE.
02051 M00S01748.tlx +++|*
02052 M00S01749.tlx +++|* EXIT (CM - CM+4) = TERMINAL IDENTIFICATION CODE.
02053 M00S01750.tlx +++|* = *TTY* IF UNDEFINED.
02054 M00S01751.tlx +++|*
02055 M00S01752.tlx +++|* USES T1, T3, CM - CM+4.
| Line S00043 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02056 M01S00043.ns2748 +++|*
02057 M01S00044.ns2748 +++|* CALLS RRR, SRR.
02058 M00S01753.tlx +++|
02059 M00S01754.tlx +++|
02060 M00S01755.tlx +++| STI SUBR ENTRY/EXIT
02061 M00S01756.tlx +++| LDM TTTA+VDPT*5+3 SET TRANSLATION TABLE INDEX
02062 M00S01757.tlx +++| SHN 0-7
02063 M00S01758.tlx +++| LPN 37
02064 M00S01759.tlx +++| STD T1
02065 M00S01760.tlx +++| LDN 0
02066 M00S01761.tlx +++| STD T3
| Line S00045 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02067 M01S00045.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
02068 M00S01762.tlx +++| STI1 LDD T3
02069 M00S01763.tlx +++| SBN VTSR-VDRL-1
02070 M00S01764.tlx +++| ZJN STI2 IF THROUGH TESTING ALL DRIVERS
02071 M00S01765.tlx +++| LDD TA READ DRIVER STACK POINTER
02072 M00S01766.tlx +++| SHN 6
02073 M00S01767.tlx +++| ADN VDRL
02074 M00S01768.tlx +++| ADD T3
02075 M00S01769.tlx +++| CRD CM
02076 M00S01770.tlx +++| AOD T3 INCREMENT DRIVER STACK POINTER INDEX
02077 M00S01771.tlx +++| LDD CM+4 GET DRIVER FIRST TERMINAL NUMBER
02078 M00S01772.tlx +++| ADD CM+3 CALCULATE DRIVER LAST TERMINAL NUMBER
02079 M00S01773.tlx +++| SBN 1
02080 M00S01774.tlx +++| SBD TN
02081 M00S01775.tlx +++| MJN STI1 IF NOT THIS DRIVER
02082 M00S01776.tlx +++| LDD CM+1 SET DRIVER STACK ADDRESS
02083 M00S01777.tlx +++| LPN 37
02084 M00S01778.tlx +++| SHN 6
02085 M00S01779.tlx +++| ADD TA
02086 M00S01780.tlx +++| SHN 6
02087 M00S01781.tlx +++| ADD CM+2
02088 M00S01782.tlx +++| ADN 4 READ STACK *LIMIT* POINTER
02089 M00S01783.tlx +++| CRD CM
02090 M00S01784.tlx +++| LDD CM+3 SET IDENTIFICATION TABLE ADDRESS
02091 M00S01785.tlx +++| LPN 77
02092 M00S01786.tlx +++| SHN 6
02093 M00S01787.tlx +++| ADD TA
02094 M00S01788.tlx +++| SHN 6
02095 M00S01789.tlx +++| ADD CM+4
02096 M00S01790.tlx +++| ADD T1 ADD TRANSLATION TABLE INDEX
02097 M00S01791.tlx +++| CRD CM READ TRANSLATION TABLE ID WORD
02098 M00S01792.tlx +++| LDD CM CHECK TERMINAL ID
02099 M00S01793.tlx +++| NJN STI3 IF DEFINED
02100 M00S01794.tlx +++| STI2 LDD MA SET DEFAULT
02101 M00S01795.tlx +++| CWM STIA,ON
02102 M00S01796.tlx +++| SBN 1
02103 M00S01797.tlx +++| CRD CM
| Line S01798 Modification History |
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02104 M01S01798.ns2748 ---| STI3 LJM STIX RETURN
| Line S00046 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02105 M01S00046.ns2748 +++| STI3 RJM RRR RESTORE R-REGISTER
02106 M01S00047.ns2748 +++| LJM STIX RETURN
02107 M00S01799.tlx +++|
02108 M00S01800.tlx +++|
02109 M00S01801.tlx +++| STIA DATA 10LTTY
02110 M00S01802.tlx +++| TWR SPACE 4,10
02111 M00S01803.tlx +++|** TWR - TRANSFER WORKFILE FUNCTION RECALL.
02112 M00S01804.tlx +++|*
02113 M00S01805.tlx +++|* EXIT TO *RCL*.
02114 M00S01806.tlx +++|* RECALL SET FOR TRANSFER WORKFILE FROM SUBSYSTEM.
02115 M00S01807.tlx +++|
02116 M00S01808.tlx +++|
02117 M00S01809.tlx +++| TWR BSS 0 ENTRY
02118 M00S01810.tlx +++| LDD IR+3 SET TRANSFER FROM SUBSYSTEM
02119 M00S01811.tlx +++| LPN 77
02120 M00S01812.tlx +++| LMC 100
02121 M00S01813.tlx +++| STD IR+3
02122 M00S01814.tlx +++| LJM RCL RECALL PP
02123 M00S01815.tlx +++| URW SPACE 4,15
02124 M00S01816.tlx +++|** URW - UPDATE RECOVERY WORD.
02125 M00S01817.tlx +++|*
02126 M00S01818.tlx +++|* ENTRY (A) = MASK TO UPDATE NFL RECOVERY WORD (*RC1N*).
02127 M00S01819.tlx +++|*
02128 M00S01820.tlx +++|* EXIT (A) = 0, IF ON-LINE JOB.
02129 M00S01821.tlx +++|* .NE. 0, IF NOT ON-LINE.
02130 M00S01822.tlx +++|* (RC1N) UPDATED IF NOT ON-LINE.
02131 M00S01823.tlx +++|*
02132 M00S01824.tlx +++|* USES CN, CM - CM+4.
02133 M00S01825.tlx +++|*
02134 M00S01826.tlx +++|* MACROS NFA.
02135 M00S01827.tlx +++|
02136 M00S01828.tlx +++|
02137 M00S01829.tlx +++| URW SUBR ENTRY/EXIT
02138 M00S01830.tlx +++| STD CN
02139 M00S01831.tlx +++| LMC -0
02140 M00S01832.tlx +++| STM URWA
02141 M00S01833.tlx +++| LDD CS
02142 M00S01834.tlx +++| LMK OLCS
02143 M00S01835.tlx +++| ZJN URWX IF ON-LINE JOB
02144 M00S01836.tlx +++|
02145 M00S01837.tlx +++|* UPDATE RECOVERY WORD IN NFL.
02146 M00S01838.tlx +++|
02147 M00S01839.tlx +++| NFA RC1N READ RECOVERY WORD
02148 M00S01840.tlx +++| CRD CM
02149 M00S01841.tlx +++| LDD CM+4 CLEAR BIT IN RECOVERY WORD
02150 M00S01842.tlx +++| LPC **
02151 M00S01843.tlx +++| URWA EQU *-1 (RECOVERY WORD MASK)
02152 M00S01844.tlx +++| STD CM+4
02153 M00S01845.tlx +++| LDD TW
02154 M00S01846.tlx +++| LMC VCDT
02155 M00S01847.tlx +++| ZJN URW1 IF CLEAR BIT FUNCTION
02156 M00S01848.tlx +++| LDD CN SET BIT IN RECOVERY WORD
02157 M00S01849.tlx +++| RAD CM+4
02158 M00S01850.tlx +++| URW1 NFA RC1N REWRITE RECOVERY WORD
02159 M00S01851.tlx +++| CWD CM
02160 M00S01852.tlx +++| UJN URWX RETURN
02161 M00S01853.tlx +++| SPACE 4,10
02162 M00S01854.tlx +++|* COMMON DECKS.
02163 M00S01855.tlx +++|
02164 M00S01856.tlx +++|
02165 M00S01857.tlx +++|*CALL COMPAST
| Line S00048 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02166 M01S00048.ns2748 +++| PIR$ EQU 1 SELECT ASSEMBLY OF *PIR* FOR IAF R-REG
02167 M01S00049.ns2748 +++|*CALL COMPSRR
02168 M00S01858.tlx +++|*CALL COMPSFB
02169 M00S01859.tlx +++|*CALL COMPSTA
02170 M00S01860.tlx +++| SPACE 4
02171 M00S01861.tlx +++|*CALL COMPSPA
02172 M00S01862.tlx +++| USE PRESET
02173 M00S01863.tlx +++| TITLE PRESET AND BUFFERS.
02174 M00S01864.tlx +++|** THE FOLLOWING CODE MAY BE OVERLAID.
02175 M00S01865.tlx +++|
02176 M00S01866.tlx +++|
02177 M00S01867.tlx +++|* TTTA - TERMINAL TABLE BUFFER.
02178 M00S01868.tlx +++|
02179 M00S01869.tlx +++| TTTA EQU *
| Line S01870 Modification History |
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02180 M01S01870.ns2748 ---| PRS SPACE 4,10
| Line S00050 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02181 M01S00050.ns2748 +++| PRS SPACE 4,15
02182 M00S01871.tlx +++|** PRS - PRESET PROGRAM.
02183 M00S01872.tlx +++|*
02184 M00S01873.tlx +++|* EXIT (TW+1 - TW+3) = ZERO.
02185 M00S01874.tlx +++|* (TA) = IAF RA.
02186 M00S01875.tlx +++|* (CS) = CONNECTION STATUS.
02187 M00S01876.tlx +++|* (TWFA) = EJT ORDINAL OF CALLER.
02188 M00S01877.tlx +++|* IF (CS) IS NOT *OLCS*, TW AND TA EXIT CONDITIONS
02189 M00S01878.tlx +++|* ARE NOT ESTABLISHED.
02190 M00S01879.tlx +++|*
| Line S01880 Modification History |
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02191 M01S01880.ns2748 ---|* USES CM - CM+4, CN - CN+4, T7.
| Line S00051 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02192 M01S00051.ns2748 +++|* USES CS, TN, T7, CM - CM+4, CN - CN+4, TW - TW+3.
02193 M00S01881.tlx +++|*
| Line S01882 Modification History |
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02194 M01S01882.ns2748 ---|* CALLS CRS, STA.
| Line S00052 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02195 M01S00052.ns2748 +++|* CALLS AST, CRS, PIR.
02196 M00S01883.tlx +++|*
02197 M00S01884.tlx +++|* MACROS ABORT, SFA.
02198 M00S01885.tlx +++|
02199 M00S01886.tlx +++|
02200 M00S01887.tlx +++| PRS SUBR ENTRY/EXIT
02201 M00S01888.tlx +++| RJM CRS CHECK RECALL STATUS
02202 M00S01889.tlx +++| ZJN PRS1 IF NOT AUTO RECALL
| Line S00053 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02203 M01S00053.ns2748 +++| RJM PIR PRESET WITH IAF R-REGISTER
02204 M00S01890.tlx +++| LDD IR+2 CHECK FUNCTION CODE
02205 M00S01891.tlx +++| SHN 1
02206 M00S01892.tlx +++| ADD IR+2
02207 M00S01893.tlx +++| STD T7
02208 M00S01894.tlx +++| SBK TFCNL
02209 M00S01895.tlx +++| PJN PRS1 IF INCORRECT CODE
02210 M00S01896.tlx +++| LDM TFCN,T7 SET ADDRESS PROCESSOR
02211 M00S01897.tlx +++| STM TLXA
02212 M00S01898.tlx +++| ZJN PRS1 IF UNDEFINED FUNCTION
02213 M00S01899.tlx +++| LDD CP
02214 M00S01900.tlx +++| ADK SEPW
02215 M00S01901.tlx +++| CRD CM
02216 M00S01902.tlx +++| LDD CM
02217 M00S01903.tlx +++| SHN 21-2
02218 M00S01904.tlx +++| MJN PRS2 IF CALLER IS *SSJ=* PROGRAM
02219 M00S01905.tlx +++| LDD IR+2 CHECK FUNCTION CODE
02220 M00S01906.tlx +++| LMN 11B
02221 M00S01907.tlx +++| NJN PRS2 IF NOT *RECOVER* REQUEST
02222 M00S01908.tlx +++| PRS1 ABORT ERIR * INCORRECT TERMINAL REQUEST.*
02223 M00S01909.tlx +++|
02224 M00S01910.tlx +++| PRS2 LDM TFCN+1,T7 SET *TSEM* FUNCTION
02225 M00S01911.tlx +++| STD TW
02226 M00S01912.tlx +++| LDD CP READ EJT ORDINAL
02227 M00S01913.tlx +++| ADN TFSW
02228 M00S01914.tlx +++| CRD CM
02229 M00S01915.tlx +++| LDD CM
02230 M00S01916.tlx +++| STM TWFA SAVE EJT ORDINAL
02231 M00S01917.tlx +++| SFA EJT READ EJT ENTRY
02232 M00S01918.tlx +++| ADK JSNE
02233 M00S01919.tlx +++| CRD CM
02234 M00S01920.tlx +++| LDD CM+4 GET CONNECTION STATUS
02235 M00S01921.tlx +++| SHN -7
02236 M00S01922.tlx +++| LPN 17
02237 M00S01923.tlx +++| STD CS
02238 M00S01924.tlx +++| LMN OLCS
02239 M00S01925.tlx +++| NJN PRS5 IF NOT ON LINE
02240 M00S01926.tlx +++| STD TW+1 CLEAR REQUEST BUFFER
02241 M00S01927.tlx +++| STD TW+2
02242 M00S01928.tlx +++| STD TW+3
02243 M00S01929.tlx +++| LDD CP GET THE TERMINAL NUMBER
02244 M00S01930.tlx +++| ADK TTNW
02245 M00S01931.tlx +++| CRD CM
02246 M00S01932.tlx +++| LDD CM+1
02247 M00S01933.tlx +++| STD TN
02248 M00S01934.tlx +++| LDC FECF*10000B+IFSI FETCH IAF *SSET* ENTRY
02249 M00S01935.tlx +++| RJM AST
02250 M00S01936.tlx +++| SHN 21-13
02251 M00S01937.tlx +++| PJN PRS9 IF IAF NOT ACCESSIBLE
| Line S01938 Modification History |
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02252 M01S01938.ns2748 ---| LDC VCPT*200+FLSW
02253 M01S01939.ns2748 ---| CRD CM
02254 M01S01940.ns2748 ---| LDD CM+3 SET IAF RA
02255 M01S01941.ns2748 ---| STD TA
| Line S00054 Modification History |
M01 (Added by) | ns2748 |
Seq # *Modification Id* Act
----------------------------+
02256 M01S00054.ns2748 +++|* RJM PIR (CALL SHOULD BE HERE)
02257 M00S01942.tlx +++| PRS4 LJM PRSX RETURN
02258 M00S01943.tlx +++|
02259 M00S01944.tlx +++|* PROCESS OFF-LINE STATUS.
02260 M00S01945.tlx +++|
02261 M00S01946.tlx +++| PRS5 LDM TFCN+2,T7
02262 M00S01947.tlx +++| STD CM+1
02263 M00S01948.tlx +++| LDD CS
02264 M00S01949.tlx +++| LMN DTCS
02265 M00S01950.tlx +++| ZJN PRS7 IF DETACHED
02266 M00S01951.tlx +++| LDD CM+1
02267 M00S01952.tlx +++| SHN -6
02268 M00S01953.tlx +++| STD CM+1
02269 M00S01954.tlx +++| PRS7 LDD CM+1
02270 M00S01955.tlx +++| LPN 77
02271 M00S01956.tlx +++| LMN 1
02272 M00S01957.tlx +++| ZJN PRS4 IF TO PROCESS WITHOUT IAF
02273 M00S01958.tlx +++| LMN 2&1
02274 M00S01959.tlx +++| ZJN PRS9 IF TO SUSPEND
02275 M00S01960.tlx +++| PRS8 LJM DPP IGNORE REQUEST
02276 M00S01961.tlx +++|
02277 M00S01962.tlx +++|* SUSPEND JOB.
02278 M00S01963.tlx +++|
02279 M00S01964.tlx +++| PRS9 LDD CP
02280 M00S01965.tlx +++| ADK EOJW
02281 M00S01966.tlx +++| CRD CN
02282 M00S01967.tlx +++| LDD CN
02283 M00S01968.tlx +++| SHN -11
02284 M00S01969.tlx +++| LMK SUJT
02285 M00S01970.tlx +++| NJN PRS8 IF NOT SUSPEND TERMINATION OPTION
02286 M00S01971.tlx +++| LJM SPJ SUSPEND JOB
02287 M00S01972.tlx +++| SPACE 4,10
02288 M00S01973.tlx +++|* COMMON DECKS WHICH MAY BE OVERLAID.
02289 M00S01974.tlx +++|
02290 M00S01975.tlx +++|*CALL COMPCRS
02291 M00S01976.tlx +++| EJT$ EQU 0
02292 M00S01977.tlx +++|*CALL,COMPGFP
02293 M00S01978.tlx +++| SPACE 4,10
02294 M00S01979.tlx +++| OVERFLOW
02295 M00S01980.tlx +++| SPACE 4,10
02296 M00S01981.tlx +++| END