User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:tlx

Deck TLX

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.tlx     +++|          IDENT  TLX,TLX
00002  M00S00002.tlx     +++|          PERIPH
00003  M00S00003.tlx     +++|          BASE   MIXED
00004  M00S00004.tlx     +++|          SST
00005  M00S00005.tlx     +++|*COMMENT  TLX - TERMINAL ACTION PROCESSOR.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1979.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.tlx     +++|          TITLE  TLX - TERMINAL ACTION PROCESSOR.
00009  M00S00008.tlx     +++|          SPACE  4,10
00010  M00S00009.tlx     +++|***       TLX - TERMINAL ACTION PROCESSOR.
00011  M00S00010.tlx     +++|*         G. R. MANSFIELD    72/02/08.
00012  M00S00011.tlx     +++|*         L. K. TUTTLE       79/04/19.  (RESEQUENCED).
00013  M00S00012.tlx     +++|          SPACE  4,10
00014  M00S00013.tlx     +++|**        *TLX* MAY BE CALLED BY A CPU PROGRAM TO ALTER
00015  M00S00014.tlx     +++|*         TERMINAL CONTROL IN IAF.
00016  M00S00015.tlx     +++|          SPACE  4,10
00017  M00S00016.tlx     +++|***       CALL.
00018  M00S00017.tlx     +++|*
00019  M00S00018.tlx     +++|*
00020  M00S00019.tlx     +++|*T        18/  *TLX*,6/  AR,12/  CODE,6/  SF,18/  PAR
Figure

01718232429 PAR SF CODE303536414259 CODE AR *TLX*

00021  M00S00020.tlx     +++|*         AR     AUTO RECALL
00022  M00S00021.tlx     +++|*         CODE   FUNCTION CODE
00023  M00S00022.tlx     +++|*         SF     SUBFUNCTION (FUNCTIONS 12 AND 15)
00024  M00S00023.tlx     +++|*         PAR    PARAMETER FOR FUNCTION
00025  M00S00024.tlx     +++|          SPACE  4,10
00026  M00S00025.tlx     +++|***       DAYFILE MESSAGES.
00027  M00S00026.tlx     +++|*
00028  M00S00027.tlx     +++|*
00029  M00S00028.tlx     +++|*         * INCORRECT TERMINAL REQUEST.* = AN UNKNOWN FUNCTION CODE,
00030  M00S00029.tlx     +++|*                OR A REQUEST THAT REQUIRES *SSJ=* FROM A NON-*SSJ=*
00031  M00S00030.tlx     +++|*                PROGRAM.
00032  M00S00031.tlx     +++|*
00033  M00S00032.tlx     +++|*         * TLX - ARGUMENT ERROR.* = PARAMETER ADDRESS OUT OF RANGE.
00034  M00S00033.tlx     +++|*
00035  M00S00034.tlx     +++|*         * TLX - RPV ALREADY SET.* = FUNCTION 0, EXTENDED REPRIEVE
00036  M00S00035.tlx     +++|*                BIT ALREADY SET.
00037  M00S00036.tlx     +++|*
00038  M00S00037.tlx     +++|*         * REQUEST IS VALID ONLY FROM A NETWORK TERMINAL.* =
00039  M00S00038.tlx     +++|*         THE TERMINAL IS NOT A NETWORK TERMINAL OR THE CONNECTION
00040  M00S00039.tlx     +++|*         IS NOT ONLINE.
00041  M00S00040.tlx     +++|*
00042  M00S00041.tlx     +++|*         * USER CANNOT SWITCH FROM A SECONDARY APPLICATION.* =
00043  M00S00042.tlx     +++|*         A TERMINAL CANNOT REQUEST TO SWITCH TO ANOTHER APPLICATION
00044  M00S00043.tlx     +++|*         IF IT IS ALREADY CONNECTED TO A SECONDARY APPLICATION (IAF).
00045  M00S00044.tlx     +++|*
00046  M00S00045.tlx     +++|*         * APPLICATION NAME IS REQUIRED.* = WHEN SWITCHING
00047  M00S00046.tlx     +++|*         APPLICATIONS, AN APPLICATION NAME MUST BE SPECIFIED IF THE
00048  M00S00047.tlx     +++|*         JOB IS CURRENTLY CONNECTED TO A PRIMARY APPLICATION (IAF).
00049  M00S00048.tlx     +++|*
00050  M00S00049.tlx     +++|*         * THIS CONNECTION IS ALREADY LOANED.* = THIS CONNECTION IS
00051  M00S00050.tlx     +++|*         ALREADY LOANED, SO ANOTHER SWITCH IS NOT POSSIBLE UNTIL
00052  M00S00051.tlx     +++|*         THE CONNECTION RETURNS TO IAF.  (THIS SHOULD NEVER OCCUR)
00053  M00S00052.tlx     +++|          SPACE  4,10
00054  M00S00053.tlx     +++|***       ACCOUNT FILE MESSAGES.
00055  M00S00054.tlx     +++|*
00056  M00S00055.tlx     +++|*
00057  M00S00056.tlx     +++|*         *ACAB.* = SECONDARY APPLICATION ABORTED CONNECTION.
00058  M00S00057.tlx     +++|*
00059  M00S00058.tlx     +++|*         *ACAE.* = IAF INTERNAL ERROR DURING APPLICATION SWITCH.
00060  M00S00059.tlx     +++|*
00061  M00S00060.tlx     +++|*         *ACAF.* = SECONDARY APPLICATION NETTED OFF OR FAILED.
00062  M00S00061.tlx     +++|*
00063  M00S00062.tlx     +++|*         *ACAI.* = USER NOT VALIDATED FOR SECONDARY APPLICATION.
00064  M00S00063.tlx     +++|*
00065  M00S00064.tlx     +++|*         *ACAR.* = SECONDARY APPLICATION TERMINATED CONNECTION.
00066  M00S00065.tlx     +++|*
00067  M00S00066.tlx     +++|*         *ACAS, APLNAME.* = APPLICATION SWITCH TO *APLNAME*.
00068  M00S00067.tlx     +++|*
00069  M00S00068.tlx     +++|*         *ACAU.* = SECONDARY APPLICATION REFUSED CONNECTION, NOT
00070  M00S00069.tlx     +++|*                   AVAILABLE, OR AT CONNECTION LIMIT.
00071  M00S00070.tlx     +++|          SPACE  4,10
00072  M00S00071.tlx     +++|*         COMMON DECKS.
00073  M00S00072.tlx     +++|
00074  M00S00073.tlx     +++|
00075  M00S00074.tlx     +++|*CALL     COMPMAC
00076  M00S00075.tlx     +++|*CALL     COMSCPS
00077  M00S00076.tlx     +++|*CALL     COMSJCE
Line S00001 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00001.ns2654  +++|*CALL     COMSPIM
00079  M00S00077.tlx     +++|*CALL     COMSREM
00080  M00S00078.tlx     +++|*CALL     COMSEJT
00081  M00S00079.tlx     +++|*CALL     COMSEVT
00082  M00S00080.tlx     +++|*CALL     COMSSSD
00083  M00S00081.tlx     +++|          TITLE  MACRO DEFINITIONS.
00084  M00S00082.tlx     +++| FCNP     SPACE  4,25
00085  M00S00083.tlx     +++|**        FCNP - FUNCTION TABLE MACRO.
00086  M00S00084.tlx     +++|*
00087  M00S00085.tlx     +++|*         FCNP   PROC,CODE,NI,DT
00088  M00S00086.tlx     +++|*
00089  M00S00087.tlx     +++|*         PROC = FUNCTION PROCESSOR ENTRY POINT.
00090  M00S00088.tlx     +++|*         CODE = IAF FUNCTION CODE.
00091  M00S00089.tlx     +++|*         NI = ACTION WHEN NOT INTERACTIVE CONNECTION STATUS (*NICS*).
00092  M00S00090.tlx     +++|*                IGN = IGNORE REQUEST.
00093  M00S00091.tlx     +++|*                PRO = PROCESS REQUEST.
00094  M00S00092.tlx     +++|*         DT = ACTION WHEN DETACHED CONNECTION STATUS (*DTCS*).
00095  M00S00093.tlx     +++|*                IGN = IGNORE REQUEST.
00096  M00S00094.tlx     +++|*                PRO = PROCESS REQUEST.
00097  M00S00095.tlx     +++|*                SUS = SUSPEND JOB.
00098  M00S00096.tlx     +++|*
00099  M00S00097.tlx     +++|*         TABLE ENTRY GENERATED.
00100  M00S00098.tlx     +++|*
00101  M00S00099.tlx     +++|*T        12/ PROC ADR,12/ CODE,6/ NI,6/ DT
Figure

0561112232429 DT NI CODE PROC ADR3035 PROC ADR

00102  M00S00100.tlx     +++|*
00103  M00S00101.tlx     +++|*         NI AND DT FIELDS ARE DEFINED AS FOLLOWS
00104  M00S00102.tlx     +++|*                0 = IGNORE REQUEST.
00105  M00S00103.tlx     +++|*                1 = PROCESS REQUEST.
00106  M00S00104.tlx     +++|*                2 = SUSPEND JOB.
00107  M00S00105.tlx     +++|
00108  M00S00106.tlx     +++|
00109  M00S00107.tlx     +++|          PURGMAC FCNP
00110  M00S00108.tlx     +++|
00111  M00S00109.tlx     +++| FCNP     MACRO  P,C,N,D
00112  M00S00110.tlx     +++|  MACREF FCNP
00113  M00S00111.tlx     +++|  CON P,C
00114  M00S00112.tlx     +++| .1 SET 7777B
00115  M00S00113.tlx     +++| .2 SET 7777B
00116  M00S00114.tlx     +++|  ECHO 3,A=(IGN,PRO),B=(0,1)
00117  M00S00115.tlx     +++|  IFC EQ,$N$A$,2
00118  M00S00116.tlx     +++|  STOPDUP
00119  M00S00117.tlx     +++| .1 SET B
00120  M00S00118.tlx     +++|  IFEQ .1,7777B,1
00121  M00S00119.tlx     +++|  ERR     INCORRECT *NI* PARAMETER
00122  M00S00120.tlx     +++|  ECHO 3,A=(IGN,PRO,SUS),B=(0,1,2)
00123  M00S00121.tlx     +++|  IFC EQ,$D$A$,2
00124  M00S00122.tlx     +++|  STOPDUP
00125  M00S00123.tlx     +++| .2 SET B
00126  M00S00124.tlx     +++|  IFEQ .2,7777B,1
00127  M00S00125.tlx     +++|  ERR     INCORRECT *DI* PARAMETER
00128  M00S00126.tlx     +++|  VFD 6/.1,6/.2
00129  M00S00127.tlx     +++|  ENDM
00130  M00S00128.tlx     +++| ABORT    SPACE  4,10
00131  M00S00129.tlx     +++|**        ABORT - ERROR PROCESSOR MACRO.
00132  M00S00130.tlx     +++|*
00133  M00S00131.tlx     +++|*         ABORT  ADDR
00134  M00S00132.tlx     +++|*
00135  M00S00133.tlx     +++|*         ADDR = FWA OF ERROR MESSAGE FOR DAYFILE.
00136  M00S00134.tlx     +++|
00137  M00S00135.tlx     +++|
00138  M00S00136.tlx     +++|          PURGMAC  ABORT
00139  M00S00137.tlx     +++| ABORT    MACRO  A
00140  M00S00138.tlx     +++|          MACREF ABORT
00141  M00S00139.tlx     +++|          LDC    A
00142  M00S00140.tlx     +++|          LJM    ERR         PROCESS ERROR EXIT
00143  M00S00141.tlx     +++|          ENDM
00144  M00S00142.tlx     +++| ERROR    SPACE  4,10
00145  M00S00143.tlx     +++|**        ERROR - TRANSFER FILE ERROR PROCESSING MACRO.
00146  M00S00144.tlx     +++|*
Line S00145 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00147  M01S00145.tlx14   ---|*         ERROR  CODE,B
Line S00001 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00148  M01S00001.tlx14   +++|*         ERROR  CODE,X
00149  M00S00146.tlx     +++|*
00150  M00S00147.tlx     +++|*         CODE = RETURN STATUS CODE.
Line S00148 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00148.tlx14   ---|*         B = IF PRESENT, CHANGE BACK TO CALLER-S CP.
Line S00002 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00152  M01S00002.tlx14   +++|*         X = PREPROCESSING OPTION.
00153  M01S00003.tlx14   +++|*           = R, REINSTATE CALLER-S FNT.
00154  M01S00004.tlx14   +++|*           = B, CHANGE BACK TO CALLER-S CP AND REINSTATE CALLER-S FNT.
00155  M00S00149.tlx     +++|*
00156  M00S00150.tlx     +++|*         CALLS  CCP, RCF, SRS.
00157  M00S00151.tlx     +++|
00158  M00S00152.tlx     +++|
00159  M00S00153.tlx     +++|          PURGMAC  ERROR
00160  M00S00154.tlx     +++|
Line S00155 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00161  M01S00155.tlx14   ---| ERROR    MACRO  C,B
Line S00005 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00005.tlx14   +++| ERROR    MACRO  C,X
00163  M00S00156.tlx     +++|          MACREF ERROR
Line S00157 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00157.tlx14   ---|          IFC    NE,$B$$,3
00165  M01S00158.tlx14   ---|          LDN    1
00166  M01S00159.tlx14   ---|          RJM    CCP         CHANGE BACK TO CALLER-S CP
00167  M01S00160.tlx14   ---|          RJM    RCF         REINSTATE CALLER-S FNT
Line S00006 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00168  M01S00006.tlx14   +++| .A       IFC    NE,$X$$
00169  M01S00007.tlx14   +++| .B       IFC    EQ,$X$B$
00170  M01S00008.tlx14   +++|          RJM    CCP         CHANGE BACK TO CALLER-S CP
00171  M01S00009.tlx14   +++| .B       ENDIF
00172  M01S00010.tlx14   +++|          RJM    RCF         REINSTATE CALLER-S FNT
00173  M01S00011.tlx14   +++| .A       ENDIF
00174  M00S00161.tlx     +++|          LDN    C
00175  M00S00162.tlx     +++|          LJM    SRS         SET RETURN STATUS
00176  M00S00163.tlx     +++| ERROR    ENDM
00177  M00S00164.tlx     +++|          SPACE  4,10
00178  M00S00165.tlx     +++|**        DIRECT LOCATION ASSIGNMENTS.
00179  M00S00166.tlx     +++|
00180  M00S00167.tlx     +++|
00181  M00S00168.tlx     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00182  M00S00169.tlx     +++| TT       EQU    25 - 26     TERMINAL TABLE ADDRESS (2 LOCATIONS)
00183  M00S00170.tlx     +++| TA       EQU    27          IAF CONTROL POINT ADDRESS (RA).
00184  M00S00171.tlx     +++| TW       EQU    30 - 34     TERMINAL REQUEST WORD (5 LOCATIONS)
00185  M00S00172.tlx     +++| TN       EQU    TW+4        TERMINAL NUMBER
00186  M00S00173.tlx     +++| CS       EQU    35          CONNECTION STATUS
00187  M00S00174.tlx     +++| FN       EQU    36 - 42     FNT ENTRY
00188  M00S00175.tlx     +++| FS       EQU    43 - 47     FST ENTRY
00189  M00S00176.tlx     +++| FA       EQU    60          ADDRESS OF FNT ENTRY IN CALLER-S NFL
00190  M00S00177.tlx     +++| PP       EQU    61          POT POINTER
00191  M00S00178.tlx     +++| PA       EQU    62 - 63     POT ADDRESS
00192  M00S00179.tlx     +++| RC       EQU    64 - 65     RECALL COUNTERS
00193  M00S00180.tlx     +++|          TITLE  MAIN PROGRAM.
00194  M00S00181.tlx     +++|          SPACE  4,10
00195  M00S00182.tlx     +++|**        TLX - MAIN PROGRAM.
00196  M00S00183.tlx     +++|*
00197  M00S00184.tlx     +++|*         EXIT   TO FUNCTION PROCESSOR.
00198  M00S00185.tlx     +++|*                (TA) = IAF RA.
00199  M00S00186.tlx     +++|*                (TW) = FUNCTION CODE.
00200  M00S00187.tlx     +++|*                (TW+1 - TW+3) = ZERO.
00201  M00S00188.tlx     +++|*                (TW+4) = (TN) = TERMINAL NUMBER.
00202  M00S00189.tlx     +++|*                (CS) = CONNECTION STATUS.
00203  M00S00190.tlx     +++|
00204  M00S00191.tlx     +++|
00205  M00S00192.tlx     +++|          ORG    PPFW
00206  M00S00193.tlx     +++|
00207  M00S00194.tlx     +++| TLX      RJM    PRS         PRESET PROGRAM
00208  M00S00195.tlx     +++|          LJM    *           PROCESS REQUEST
00209  M00S00196.tlx     +++| TLXA     EQU    *-1
00210  M00S00197.tlx     +++|
00211  M00S00198.tlx     +++|*         FUNCTION REQUEST EXIT.
00212  M00S00199.tlx     +++|*
00213  M00S00200.tlx     +++|*         ENTRY  (TW - TW+4) = FORMATTED *TSEM* REQUEST.
00214  M00S00201.tlx     +++|
00215  M00S00202.tlx     +++| TLXX     LDN    10D         ALLOW RECALL IF *TSEM* QUEUE FULL
00216  M00S00203.tlx     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
00217  M00S00204.tlx     +++| DPP      MONITOR DPPM       DROP PP
00218  M00S00205.tlx     +++|          LJM    PPR         EXIT TO PP RESIDENT
00219  M00S00206.tlx     +++| TFCN     SPACE  4,10
00220  M00S00207.tlx     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00221  M00S00208.tlx     +++|*
00222  M00S00209.tlx     +++|*         ENTRY = 3 WORDS.
00223  M00S00210.tlx     +++|*
00224  M00S00211.tlx     +++|*T        12/ ADDR,12/ CODE,6/ NI,6/ DT
Figure

0561112232429 DT NI CODE ADDR3035 ADDR

00225  M00S00212.tlx     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR
00226  M00S00213.tlx     +++|*         CODE   FUNCTION CODE FOR *TSEM* REQUEST.
00227  M00S00214.tlx     +++|*         NI     ACTION WHEN CONNECTION STATUS IS *NICS*.
00228  M00S00215.tlx     +++|*                0 = IGNORE REQUEST.
00229  M00S00216.tlx     +++|*                1 = PROCESS REQUEST.
00230  M00S00217.tlx     +++|*         DT     ACTION WHEN CONNECTION STATUS IS *DTCS*.
00231  M00S00218.tlx     +++|*                0 = IGNORE REQUEST.
00232  M00S00219.tlx     +++|*                1 = PROCESS REQUEST.
00233  M00S00220.tlx     +++|*                2 = SUSPEND JOB.
00234  M00S00221.tlx     +++|
00235  M00S00222.tlx     +++|
00236  M00S00223.tlx     +++| TFCN     BSS    0
00237  M00S00224.tlx     +++|          LOC    0
00238  M00S00225.tlx     +++|          FCNP   SIA,VSDT,IGN,PRO  SET INTERRUPT ADDRESS
00239  M00S00226.tlx     +++|          FCNP   CIA,VCDT,IGN,PRO  CLEAR INTERRUPT ADDRESS
00240  M00S00227.tlx     +++|          FCNP   CCR,VCDT,IGN,SUS  CLEAR CHARGE REQUIRED
00241  M00S00228.tlx     +++|          FCNP   SCS,VSCS,IGN,PRO  SET CHARACTER SET
00242  M00S00229.tlx     +++|          FCNP   PAR,VPTY,IGN,SUS  SET PARITY
00243  M00S00230.tlx     +++|          FCNP   STS,0000,PRO,PRO  RETURN STATUS
00244  M00S00231.tlx     +++|          FCNP   SPM,VSDT,IGN,PRO  SET PROMPT OFF
00245  M00S00232.tlx     +++|          FCNP   SPM,VCDT,IGN,PRO  SET PROMPT ON
00246  M00S00233.tlx     +++|          FCNP   PSF,VSDT,IGN,SUS  PROCESS SORT FLAG CHANGE
00247  M00S00234.tlx     +++|          FCNP   REC,VREC,IGN,SUS  RECOVER JOB
00248  M00S00235.tlx     +++|          FCNP   TWF,VCSM,PRO,PRO  TRANSFER WORKFILE
00249  M00S00236.tlx     +++|          FCNP   SSM,VSDT,IGN,SUS  SET SCREEN MODE
00250  M00S00237.tlx     +++|          FCNP   SSM,VCDT,IGN,SUS  CLEAR SCREEN MODE
00251  M00S00238.tlx     +++|          FCNP   SWS,0000,IGN,PRO  SET NFL WORD *SLMN*
00252  M00S00239.tlx     +++|          FCNP   LTI,0000,PRO,PRO  LOOK FOR TYPED AHEAD INPUT
00253  M00S00240.tlx     +++|          FCNP   PDT,VDTJ,PRO,PRO  DETACH JOB
00254  M00S00241.tlx     +++|          FCNP   SEM,VSDT,IGN,PRO  SET USER EFFECT MODE
00255  M00S00242.tlx     +++|          FCNP   SEM,VCDT,IGN,PRO  CLEAR USER EFFECT MODE
00256  M00S00243.tlx     +++|          FCNP   APS,VTLF,IGN,PRO  SWITCH APPLICATIONS
00257  M00S00244.tlx     +++|          FCNP   RLC,0000,IGN,PRO  RESTART LOANED CONNECTION
00258  M00S00245.tlx     +++|
00259  M00S00246.tlx     +++| TFCNL    BSS    0           TABLE LWA+1
00260  M00S00247.tlx     +++|          LOC    *O
00261  M00S00248.tlx     +++|          TITLE  FUNCTION PROCESSORS.
00262  M00S00249.tlx     +++| SIA      SPACE  4,10
00263  M00S00250.tlx     +++|***       FUNCTION 0.
00264  M00S00251.tlx     +++|*
00265  M00S00252.tlx     +++|*         SET PROGRAM TERMINAL CONTROL.
00266  M00S00253.tlx     +++|*         SET INTERRUPT ADDRESS = PAR.
00267  M00S00254.tlx     +++|
00268  M00S00255.tlx     +++|
00269  M00S00256.tlx     +++| SIA      LDD    CP          READ ENTRY/EXIT CONTROL WORD
00270  M00S00257.tlx     +++|          ADN    TIAW
00271  M00S00258.tlx     +++|          CRD    CM
00272  M00S00259.tlx     +++|          ADN    EECW-TIAW
00273  M00S00260.tlx     +++|          CRD    CN
00274  M00S00261.tlx     +++|          LDD    IR+3        VALIDATE REQUEST ADDRESS
00275  M00S00262.tlx     +++|          LPN    77
00276  M00S00263.tlx     +++|          SHN    14
00277  M00S00264.tlx     +++|          PJN    SIA1        IF FLAG ADDRESS
00278  M00S00265.tlx     +++|          ADN    21          ADD EXCHANGE PACKAGE
00279  M00S00266.tlx     +++| SIA1     LPC    377777
00280  M00S00267.tlx     +++|          ADD    IR+4
00281  M00S00268.tlx     +++|          SHN    -6
00282  M00S00269.tlx     +++|          SBD    FL
00283  M00S00270.tlx     +++|          MJN    SIA2        IF VALID
00284  M00S00271.tlx     +++|          ABORT  ERIR        * INCORRECT TERMINAL REQUEST.*
00285  M00S00272.tlx     +++|
00286  M00S00273.tlx     +++| SIA2     LDD    IR+3        ENTER INTERRUPT ADDRESS
00287  M00S00274.tlx     +++|          LPN    77
00288  M00S00275.tlx     +++|          STM    SIAB+3
00289  M00S00276.tlx     +++|          LDD    IR+4
00290  M00S00277.tlx     +++|          STM    SIAB+4
00291  M00S00278.tlx     +++|          LDD    CN          CHECK EXTENDED REPRIEVE SET
00292  M00S00279.tlx     +++|          SHN    21-12
00293  M00S00280.tlx     +++|          PJN    SIA3        IF EXTENDED REPRIEVE NOT SET
00294  M00S00281.tlx     +++|          ABORT  ERRA        * TLX - RPV ALREADY SET.*
00295  M00S00282.tlx     +++|
00296  M00S00283.tlx     +++| SIA3     LDD    MA          ENTER *UADM* SUB-FUNCTION
00297  M00S00284.tlx     +++|          CWM    SIAB,ON
00298  M00S00285.tlx     +++|          LDN    1
00299  M00S00286.tlx     +++|          STD    CM+1        *UADM* WORD COUNT
00300  M00S00287.tlx     +++|          STD    CM+2        SPECIFY NO DROP OF PP
00301  M00S00288.tlx     +++|          MONITOR UADM
00302  M00S00289.tlx     +++|          LDD    HN          SET MASK FOR RECOVERY WORD
00303  M00S00290.tlx     +++|          RJM    URW         UPDATE RECOVERY WORD
00304  M00S00291.tlx     +++|          NJP    DPP         IF NOT ON-LINE JOB
00305  M00S00292.tlx     +++|
00306  M00S00293.tlx     +++|*         COMMON ENTRY TO SET *VSTT*.
00307  M00S00294.tlx     +++|
00308  M00S00295.tlx     +++| SIA4     LDN    VSTT        SET WORD NUMBER
00309  M00S00296.tlx     +++|          STD    TW+2
00310  M00S00297.tlx     +++| SIAA     LDN    59D         SET BIT NUMBER
00311  M00S00298.tlx     +++|*         LDN    57D         (CHARGE REQUIRED)
00312  M00S00299.tlx     +++|*         LDN    55D         (SET/CLEAR USER EFFECT MODE)
00313  M00S00300.tlx     +++|*         LDN    53D         (SET/CLEAR PROMPT MODE)
00314  M00S00301.tlx     +++|*         LDN    52D         (SET/CLEAR SORT FLAG)
00315  M00S00302.tlx     +++|*         LDN    49D         (SET/CLEAR SCREEN MODE)
00316  M00S00303.tlx     +++|          STD    TW+3
00317  M00S00304.tlx     +++|          LJM    TLXX        EXIT
00318  M00S00305.tlx     +++|
00319  M00S00306.tlx     +++|*         *UADM* FUNCTION TO SET/CLEAR TERMINAL INTERRUPT ADDRESS.
00320  M00S00307.tlx     +++|
00321  M00S00308.tlx     +++| SIAB     CON    CSFS        SET VARIABLE FIELD
00322  M00S00309.tlx     +++|          CON    TIAW        WORD TO SET
00323  M00S00310.tlx     +++|          CON    18D*100+18D FIELD TO SET AND WIDTH
00324  M00S00311.tlx     +++|          CON    0,0         VALUE FIELD
00325  M00S00312.tlx     +++| CIA      SPACE  4,10
00326  M00S00313.tlx     +++|***       FUNCTION 1.
00327  M00S00314.tlx     +++|*
00328  M00S00315.tlx     +++|*         CLEAR TERMINAL CONTROL.
00329  M00S00316.tlx     +++|*         CLEAR INTERRUPT ADDRESS.
00330  M00S00317.tlx     +++|
00331  M00S00318.tlx     +++|
00332  M00S00319.tlx     +++| CIA      LDD    CP          READ ENTRY/EXIT CONTROL WORD
00333  M00S00320.tlx     +++|          ADN    TIAW
00334  M00S00321.tlx     +++|          CRD    CM
00335  M00S00322.tlx     +++|          ADN    EECW-TIAW
00336  M00S00323.tlx     +++|          CRD    CN
00337  M00S00324.tlx     +++|          LJM    SIA3        CLEAR ENTRY/EXIT WORD
00338  M00S00325.tlx     +++| CCR      SPACE  4,10
00339  M00S00326.tlx     +++|***       FUNCTION 2.
00340  M00S00327.tlx     +++|*
00341  M00S00328.tlx     +++|*         CLEAR *CHARGE* REQUIRED.
00342  M00S00329.tlx     +++|
00343  M00S00330.tlx     +++|
00344  M00S00331.tlx     +++| CCR      LCN    59D-57D     SET BIT NUMBER
00345  M00S00332.tlx     +++|          RAM    SIAA
00346  M00S00333.tlx     +++|          UJN    SIA4        PROCESS REQUEST
00347  M00S00334.tlx     +++| SCS      SPACE  4,10
00348  M00S00335.tlx     +++|***       FUNCTION 3.
00349  M00S00336.tlx     +++|*
00350  M00S00337.tlx     +++|*         SET CHARACTER SET MODE.
00351  M00S00338.tlx     +++|*         SETS OR CLEARS EXTENDED CHARACTER SET MODE.
00352  M00S00339.tlx     +++|*
00353  M00S00340.tlx     +++|*         ENTRY  PAR = (IR+4) = 0, SET NORMAL MODE.
00354  M00S00341.tlx     +++|*                             = 1, SET EXTENDED MODE.
00355  M00S00342.tlx     +++|*                             = 2, RESTORE ENTRY MODE.
00356  M00S00343.tlx     +++|*                             = 10, SET NORMAL MODE, RESET ENTRY MODE.
00357  M00S00344.tlx     +++|*                             = 11, SET EXTENDED MODE,RESET ENTRY MODE.
00358  M00S00345.tlx     +++|
00359  M00S00346.tlx     +++|
00360  M00S00347.tlx     +++| SCS      LDD    IR+4        SET ARGUMENT
00361  M00S00348.tlx     +++|          STD    TW+2
00362  M00S00349.tlx     +++|          SBN    3
00363  M00S00350.tlx     +++|          MJN    SCS3        IF VALID ARGUMENT
00364  M00S00351.tlx     +++|          SBN    10-3
00365  M00S00352.tlx     +++|          MJN    SCS1        IF INCORRECT ARGUMENT
00366  M00S00353.tlx     +++|          SBN    12-10
00367  M00S00354.tlx     +++|          MJN    SCS2        IF VALID ARGUMENT
00368  M00S00355.tlx     +++| SCS1     ABORT  ERIR        * INCORRECT TERMINAL REQUEST.*
00369  M00S00356.tlx     +++|
00370  M00S00357.tlx     +++| SCS2     AOM    SCSA        INDICATE RESET ENTRY MODE
00371  M00S00358.tlx     +++| SCS3     LDD    CS
00372  M00S00359.tlx     +++|          LMK    OLCS
00373  M00S00360.tlx     +++|          ZJP    TLXX        IF ON-LINE JOB, ENTER REQUEST
00374  M00S00361.tlx     +++|          NFA    RC1N        READ RECOVERY WORD FROM NFL
00375  M00S00362.tlx     +++|          CRD    CM
00376  M00S00363.tlx     +++|          LDD    CM+3        CLEAR CURRENT CHARACTER SET
00377  M00S00364.tlx     +++|          SCN    7
00378  M00S00365.tlx     +++|          STD    CM+3
00379  M00S00366.tlx     +++|          SHN    -3          SAVE INITIAL CHARACTER SET
00380  M00S00367.tlx     +++|          LPN    7
00381  M00S00368.tlx     +++|          STD    T1
00382  M00S00369.tlx     +++|          LDD    IR+4
00383  M00S00370.tlx     +++|          LPN    7
00384  M00S00371.tlx     +++|          LMN    2
00385  M00S00372.tlx     +++|          ZJN    SCS4        IF RESTORE ENTRY MODE
00386  M00S00373.tlx     +++|          LMN    2
00387  M00S00374.tlx     +++|          STD    T1
00388  M00S00375.tlx     +++| SCS4     LDD    T1          SET NEW CURRENT CHARACTER SET
00389  M00S00376.tlx     +++|          RAD    CM+3
00390  M00S00377.tlx     +++| SCSA     LDN    0
00391  M00S00378.tlx     +++|*         LDN    1           (RESET ENTRY MODE)
00392  M00S00379.tlx     +++|          ZJN    SCS5        IF NO RESET NEEDED
00393  M00S00380.tlx     +++|          LDD    CM+3        RESET ENTRY MODE
00394  M00S00381.tlx     +++|          SHN    -3+22
00395  M00S00382.tlx     +++|          SCN    7
00396  M00S00383.tlx     +++|          LMD    T1
00397  M00S00384.tlx     +++|          SHN    3
00398  M00S00385.tlx     +++|          STD    CM+3
00399  M00S00386.tlx     +++| SCS5     NFA    RC1N        REWRITE RECOVERY WORD
00400  M00S00387.tlx     +++|          CWD    CM
00401  M00S00388.tlx     +++|          LJM    DPP         DROP PP
00402  M00S00389.tlx     +++| PAR      SPACE  4,10
00403  M00S00390.tlx     +++|***       FUNCTION 4.
00404  M00S00391.tlx     +++|*
00405  M00S00392.tlx     +++|*         SET TERMINAL PARITY.
00406  M00S00393.tlx     +++|*
00407  M00S00394.tlx     +++|*         ENTRY  PAR = (IR+4) = 0, SET EVEN PARITY.
00408  M00S00395.tlx     +++|*                             = 1, SET ODD PARITY.
00409  M00S00396.tlx     +++|
00410  M00S00397.tlx     +++|
00411  M00S00398.tlx     +++| PAR      LDD    IR+4        CHECK ARGUMENT
00412  M00S00399.tlx     +++|          STD    TW+3
00413  M00S00400.tlx     +++|          SBN    2
00414  M00S00401.tlx     +++|          MJP    TLXX        IF VALID ARGUMENT, ENTER REQUEST
00415  M00S00402.tlx     +++|          ABORT  ERIR        * INCORRECT TERMINAL REQUEST.*
00416  M00S00403.tlx     +++| STS      SPACE  4,30
00417  M00S00404.tlx     +++|***       FUNCTION 5.
00418  M00S00405.tlx     +++|*
00419  M00S00406.tlx     +++|*         RETURN TERMINAL STATUS.
00420  M00S00407.tlx     +++|*
Line S00408 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00421  M01S00408.ns2654  ---|*         ENTRY  PAR = ADDRESS INTO WHICH STATUS IS TO BE RETURNED.
Line S00002 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00422  M01S00002.ns2654  +++|*         ENTRY  (IR+3 - IR+4) = 6/ L,18/ PAR
00423  M01S00003.ns2654  +++|*
00424  M01S00004.ns2654  +++|*         L = LENGTH OF RETURN BUFFER (2 IF NOT SPECIFIED).
00425  M01S00005.ns2654  +++|*         PAR = ADDRESS OF PARAMETER WORD.
00426  M00S00409.tlx     +++|*
00427  M00S00410.tlx     +++|*         EXIT   TERMINAL STATUS RETURNED TO USER.
00428  M00S00411.tlx     +++|*
00429  M00S00412.tlx     +++|*T  PAR   42/TERMINAL ID, 6/SUB, 12/TN
Figure PAR

01112171829TNSUBTERMINAL ID3059TERMINAL ID

00430  M00S00413.tlx     +++|*T, PAR+1 3/ ,3/ NT,6/ CS,4/,8/ NDT,18/ INT,6/ TC,12/ STATUS
Figure PAR+1

01112171829 STATUS TC INT303536434447485354565759 INT NDT CS NT

00431  M01S00006.ns2654  +++|*T, PAR+2 42/TERMINAL NAME, 18/0            (IF *L* .GT. 2)
Figure PAR+2

01718290 (IF *L* .GT. 2)TERMINAL NAME3059TERMINAL NAME

00432  M00S00414.tlx     +++|*
00433  M00S00415.tlx     +++|*         SUB    = SUBSYSTEM.
00434  M00S00416.tlx     +++|*         TN     = TERMINAL NUMBER.
00435  M00S00417.tlx     +++|*         NT     = NETWORK TYPE.
00436  M00S00418.tlx     +++|*         CS     = CONNECTION STATUS.
00437  M00S00419.tlx     +++|*         NDT    = NETWORK TERMINAL DEVICE TYPE.
00438  M00S00420.tlx     +++|*         INT    = INTERRUPT ADDRESS IF SET.
00439  M00S00421.tlx     +++|*         TC     = TRANSMISSION CODE.
00440  M00S00422.tlx     +++|*                  0 = ASCII.
00441  M00S00423.tlx     +++|*                  1 = CORRESPONDENCE.
00442  M00S00424.tlx     +++|*                  2 = NIXDORF.
00443  M00S00425.tlx     +++|*                  3 = NETWORK.
00444  M00S00426.tlx     +++|*
00445  M00S00427.tlx     +++|*         STATUS -                     BIT
00446  M00S00428.tlx     +++|*
00447  M00S00429.tlx     +++|*                USER FORMAT EFFECTORS 6
00448  M00S00430.tlx     +++|*                BRIEF MODE            5
00449  M00S00431.tlx     +++|*                TAPE MODE             4
00450  M00S00432.tlx     +++|*                FULL DUPLEX           3
00451  M00S00433.tlx     +++|*                CURRENT CHARACTER SET 2  (EXTENDED IF SET)
00452  M00S00434.tlx     +++|*                ENTRY CHARACTER SET   1  (EXTENDED IF SET)
00453  M00S00435.tlx     +++|*                PARITY                0  (ODD IF SET)
00454  M00S00436.tlx     +++|*
00455  M00S00437.tlx     +++|*         IF CONNECTION STATUS IS NOT ONLINE, STATUS WILL BE RETURNED
00456  M00S00438.tlx     +++|*         BUT THE ONLY VALID FIELD WILL BE *CS*.  ALL OTHER FIELDS
00457  M00S00439.tlx     +++|*         WILL BE ZERO EXCEPT *TERMINAL ID* WHICH WILL BE BLANK.
00458  M00S00440.tlx     +++|*
Line S00441 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00441.ns2748  ---|*         CALLS  GPA, SDT, SNI, STA, STI.
Line S00001 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00460  M01S00001.ns2748  +++|*         CALLS  GPA, RRR, SDT, SNI, SRR, STA, STI.
00461  M01S00002.ns2748  +++|*
00462  M01S00003.ns2748  +++|*         MACROS ABORT.
00463  M00S00442.tlx     +++|
00464  M00S00443.tlx     +++|
00465  M00S00444.tlx     +++| STS4     ABORT  ERIR        * INCORRECT TERMINAL REQUEST.*
00466  M00S00445.tlx     +++|
00467  M00S00446.tlx     +++| STS      LDD    IR+3        VALIDATE RETURN ADDRESS
00468  M00S00447.tlx     +++|          SHN    14
Line S00007 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00469  M01S00007.ns2654  +++|          STD    T7          SAVE RETURN BUFFER LENGTH
00470  M00S00448.tlx     +++|          ADD    IR+4
Line S00449 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00471  M01S00449.ns2654  ---|          ADN    2
00472  M00S00450.tlx     ---|          SHN    -6
00473  M00S00451.tlx     ---|          SBD    FL
00474  M00S00452.tlx     ---|          PJN    STS4        IF INVALID ADDRESS
00475  M01S00453.ns2654  ---|          LDD    CS
Line S00008 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00008.ns2654  +++|          LDD    T7
00477  M01S00009.ns2654  +++|          SBN    3
00478  M01S00010.ns2654  +++|          MJN    STS0        IF NOT EXTENDED STATUS
00479  M01S00011.ns2654  +++|          LDN    ZERL        PRESET TERMINAL NAME
00480  M01S00012.ns2654  +++|          CRD    FN
00481  M01S00013.ns2654  +++|          LDN    PSNI
00482  M01S00014.ns2654  +++|          STM    STSB
00483  M01S00015.ns2654  +++| STS0     LDD    CS
00484  M00S00454.tlx     +++|          LMN    OLCS
Line S00455 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00485  M01S00455.ns2654  ---|          ZJN    STS0        IF ON LINE
00486  M01S00456.ns2654  ---|          LJM    STS3        PROCESS SPECIAL STATUS
00487  M01S00457.ns2654  ---|
00488  M01S00458.ns2654  ---| STS0     LDN    VTTL        READ TERMINAL TABLE
Line S00016 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00489  M01S00016.ns2654  +++|          NJP    STS3        IF NOT ON LINE
00490  M01S00017.ns2654  +++|          LDN    VTTL        READ TERMINAL TABLE
00491  M00S00459.tlx     +++|          STD    T1
Line S00004 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00492  M01S00004.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
00493  M00S00460.tlx     +++|          RJM    STA
00494  M00S00461.tlx     +++|          CRM    TTTA,T1
00495  M01S00005.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
00496  M00S00462.tlx     +++|
00497  M00S00463.tlx     +++|*         SET TERMINAL IDENTIFICATION.
00498  M00S00464.tlx     +++|
00499  M00S00465.tlx     +++|          RJM    SNI         SET NETWORK IDENTIFICATION
00500  M00S00466.tlx     +++|          STD    T2
00501  M00S00467.tlx     +++|          NJN    STS1        IF NETWORK TERMINAL
00502  M00S00468.tlx     +++|          RJM    STI         SET MUX TERMINAL IDENTIFICATION
00503  M00S00469.tlx     +++|
00504  M00S00470.tlx     +++|*         FORMAT TERMINAL PARAMETERS.
00505  M00S00471.tlx     +++|
00506  M00S00472.tlx     +++| STS1     LDD    CP          SET INTERRUPT ADDRESS
00507  M00S00473.tlx     +++|          ADN    TIAW
00508  M00S00474.tlx     +++|          CRD    CN
00509  M00S00475.tlx     +++|          LDN    0
00510  M00S00476.tlx     +++|          STD    CN
00511  M00S00477.tlx     +++|          STD    CN+1
00512  M00S00478.tlx     +++|          LDD    CN+3
00513  M00S00479.tlx     +++|          SCN    77
00514  M00S00480.tlx     +++|          STD    CN+3
00515  M00S00481.tlx     +++|          LDM    TTTA+VDPT*5+3
00516  M00S00482.tlx     +++|          STD    T1
00517  M00S00483.tlx     +++|          LPN    1           SET PARITY BIT
00518  M00S00484.tlx     +++|          STD    CN+4
00519  M00S00485.tlx     +++|          LDD    T1          SET DUPLEX BIT
00520  M00S00486.tlx     +++|          SHN    3-6
00521  M00S00487.tlx     +++|          LPN    10
00522  M00S00488.tlx     +++|          RAD    CN+4
00523  M00S00489.tlx     +++|          LDM    TTTA+VDCT*5+0
00524  M00S00490.tlx     +++|          STD    T1
00525  M00S00491.tlx     +++|          SHN    4-0         SET TAPE MODE BIT
00526  M00S00492.tlx     +++|          LPN    20
00527  M00S00493.tlx     +++|          RAD    CN+4
00528  M00S00494.tlx     +++|          LDD    T1          SET BRIEF MODE FLAG
00529  M00S00495.tlx     +++|          SHN    5-7
00530  M00S00496.tlx     +++|          LPN    40
00531  M00S00497.tlx     +++|          RAD    CN+4
00532  M00S00498.tlx     +++|          LDD    T1          SET CHARACTER SET MODE
00533  M00S00499.tlx     +++|          SHN    2-3
00534  M00S00500.tlx     +++|          LPN    4
00535  M00S00501.tlx     +++|          RAD    CN+4
00536  M00S00502.tlx     +++|          LDD    CM+4        SET TRANSMISSION CODE
00537  M00S00503.tlx     +++|          LPN    77
00538  M00S00504.tlx     +++|          RAD    CN+3
00539  M00S00505.tlx     +++|          LDD    TN          SET TERMINAL NUMBER
00540  M00S00506.tlx     +++|          STD    CM+4
00541  M00S00507.tlx     +++|          LDM    TTTA+VSTT*5+3  SET SUBSYSTEM
00542  M00S00508.tlx     +++|          STD    T1
00543  M00S00509.tlx     +++|          LMD    CM+3
00544  M00S00510.tlx     +++|          SCN    77
00545  M00S00511.tlx     +++|          LMD    T1
00546  M00S00512.tlx     +++|          STD    CM+3
00547  M00S00513.tlx     +++|          LDD    T1          SET ENTRY CHARACTER SET MODE
00548  M00S00514.tlx     +++|          SHN    1-6
00549  M00S00515.tlx     +++|          LPN    2
00550  M00S00516.tlx     +++|          RAD    CN+4
00551  M00S00517.tlx     +++|          LDM    TTTA+VSTT*5
00552  M00S00518.tlx     +++|          SHN    6-7
00553  M00S00519.tlx     +++|          LPC    100         SET FORMAT EFFECTOR BIT
00554  M00S00520.tlx     +++|          RAD    CN+4
00555  M00S00521.tlx     +++|          LDD    T2          CHECK IF NETWORK TERMINAL
Line S00522 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00522.ns2654  ---|          ZJN    STS1.1      IF NOT NETWORK TERMINAL
00557  M01S00523.ns2654  ---|          RJM    SDT         SET DEVICE TYPE AND TRANSMISSION CODE
Line S00018 Modification History
M01 (Added by) ns2654
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00018.ns2748  ---|          ZJN    STS2        IF NOT NETWORK TERMINAL
Line S00006 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00559  M01S00006.ns2748  +++|          ZJP    STS2        IF NOT NETWORK TERMINAL
Line S00019 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00560  M01S00019.ns2654  +++|          LDD    T7
00561  M01S00020.ns2654  +++|          SBN    3
00562  M01S00021.ns2654  +++|          MJN    STS1.1      IF NOT EXTENDED STATUS
Line S00007 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00563  M01S00007.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
Line S00022 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00022.ns2654  +++|          LDD    TA          GET TERMINAL NAME TABLE POINTERS
00565  M01S00023.ns2654  +++|          SHN    6
00566  M01S00024.ns2654  +++|          ADN    VTNP
Line S00025 Modification History
M01 (Added by) ns2654
M02 (Removed by) ns2654a
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00025.ns2654a ---|          CRD    CN
00568  M02S00026.ns2654a ---|          LDD    CN+1
Line S00001 Modification History
M01 (Added by) ns2654a
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00001.ns2654a +++|          CRD    FN
00570  M01S00002.ns2654a +++|          LDD    FN+1
Line S00027 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00571  M01S00027.ns2654  +++|          LPN    77B
00572  M01S00028.ns2654  +++|          SHN    6
00573  M01S00029.ns2654  +++|          ADD    TA
00574  M01S00030.ns2654  +++|          SHN    6
Line S00031 Modification History
M01 (Added by) ns2654
M02 (Removed by) ns2654a
Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00031.ns2654a ---|          ADD    CN+2
Line S00003 Modification History
M01 (Added by) ns2654a
Seq #  *Modification Id* Act 
----------------------------+
00576  M01S00003.ns2654a +++|          ADD    FN+2
Line S00032 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00577  M01S00032.ns2654  +++|          ADD    TN          ADD TERMINAL NUMBER
00578  M01S00033.ns2654  +++|          CRD    FN          READ NETWORK TERMINAL NAME
Line S00008 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00579  M01S00008.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
Line S00034 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00580  M01S00034.ns2654  +++|          LDN    0           CLEAR UNUSED BITS
00581  M01S00035.ns2654  +++|          STD    FN+4
00582  M01S00036.ns2654  +++|          LDD    FN+3
00583  M01S00037.ns2654  +++|          SCN    77
00584  M01S00038.ns2654  +++|          STD    FN+3
00585  M01S00039.ns2654  +++| STS1.1   RJM    SDT         SET DEVICE TYPE AND TRANSMISSION CODE
00586  M00S00524.tlx     +++|          LDD    T0          SET NETWORK TYPE
00587  M00S00525.tlx     +++|          SHN    6-12
00588  M00S00526.tlx     +++|          LPC    100
00589  M00S00527.tlx     +++|          ADD    HN
Line S00528 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00590  M01S00528.ns2654  ---| STS1.1   LMD    CS          SET CONNECTION STATUS
Line S00040 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00591  M01S00040.ns2654  +++| STS2     LMD    CS          SET CONNECTION STATUS
00592  M00S00529.tlx     +++|          STD    CN
00593  M00S00530.tlx     +++|
00594  M00S00531.tlx     +++|*         WRITE STATUS INTO USER BUFFER.
00595  M00S00532.tlx     +++|
Line S00533 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00533.ns2654  ---| STS2     RJM    GPA         GET PARAMETER WORD ADDRESS
Line S00041 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00041.ns2654  +++|          RJM    GPA         GET PARAMETER WORD ADDRESS
00598  M00S00534.tlx     +++|          CWD    CM
00599  M00S00535.tlx     +++|          ADN    1
00600  M00S00536.tlx     +++|          CWD    CN
Line S00537 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00537.ns2654  ---|          LJM    DPP         DROP PP
Line S00042 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00042.ns2654  +++| STSB     UJN    STS2.1      DROP PP
00603  M01S00043.ns2654  +++|*         PSN                (IF EXTENDED STATUS)
00604  M01S00044.ns2654  +++|          ADN    1
00605  M01S00045.ns2654  +++|          CWD    FN
00606  M01S00046.ns2654  +++| STS2.1   LJM    DPP         DROP PP
00607  M00S00538.tlx     +++|
00608  M00S00539.tlx     +++|*         PROCESS SPECIAL STATUS.
00609  M00S00540.tlx     +++|
00610  M00S00541.tlx     +++| STS3     LDD    MA
00611  M00S00542.tlx     +++|          CWM    STSA,ON
00612  M00S00543.tlx     +++|          SBN    1
00613  M00S00544.tlx     +++|          CRD    CM
00614  M00S00545.tlx     +++|          LDN    ZERL
00615  M00S00546.tlx     +++|          CRD    CN
Line S00547 Modification History
M01 (Removed by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00616  M01S00547.ns2654  ---|          LDD    CS          STORE CONNECTION STATUS
00617  M01S00548.ns2654  ---|          STD    CN
Line S00047 Modification History
M01 (Added by) ns2654
Seq #  *Modification Id* Act 
----------------------------+
00618  M01S00047.ns2654  +++|          LDN    0
00619  M00S00549.tlx     +++|          UJN    STS2        WRITE STATUS
00620  M00S00550.tlx     +++|
00621  M00S00551.tlx     +++| STSA     VFD    42/1H ,18/0
00622  M00S00552.tlx     +++| SPM      SPACE  4,10
00623  M00S00553.tlx     +++|***       FUNCTIONS 6 AND 7.
00624  M00S00554.tlx     +++|*
00625  M00S00555.tlx     +++|*         SET/CLEAR PROMPT MODE BIT IN *VSTT*
00626  M00S00556.tlx     +++|
00627  M00S00557.tlx     +++|
00628  M00S00558.tlx     +++| SPM      LCN    59D-53D     SET BIT 53 *VSTT*
00629  M00S00559.tlx     +++|          RAM    SIAA
00630  M00S00560.tlx     +++|          LDN    1           SET MASK FOR RECOVERY WORD
00631  M00S00561.tlx     +++|          RJM    URW         UPDATE RECOVERY WORD
00632  M00S00562.tlx     +++|          NJP    DPP         IF NOT ON-LINE JOB
00633  M00S00563.tlx     +++|          LJM    SIA4        PROCESS REQUEST
00634  M00S00564.tlx     +++| PSF      SPACE  4,10
00635  M00S00565.tlx     +++|***       FUNCTION 10B.
00636  M00S00566.tlx     +++|*
00637  M00S00567.tlx     +++|*         SET OR CLEAR SORT FLAG.
00638  M00S00568.tlx     +++|*
00639  M00S00569.tlx     +++|*         ENTRY  PAR = SUBFUNCTION CODE, SORT FLAG VALUE TO SET.
00640  M00S00570.tlx     +++|*                    = 0, CLEAR SORT FLAG, FILE SORTED.
00641  M00S00571.tlx     +++|*                    = 1, SET SORT FLAG, FILE UNSORTED.
00642  M00S00572.tlx     +++|
00643  M00S00573.tlx     +++|
00644  M00S00574.tlx     +++| PSF      LDD    IR+4        CHECK FUNCTION CODE
00645  M00S00575.tlx     +++|          ZJN    PSF1        IF ONE, SET FLAG
00646  M00S00576.tlx     +++|          SBN    1
00647  M00S00577.tlx     +++|          ZJN    PSF2        IF ZERO, CLEAR FLAG
00648  M00S00578.tlx     +++|          ABORT  ERIR        * TLX - INCORRECT TERMINAL REQUEST.*
00649  M00S00579.tlx     +++|
00650  M00S00580.tlx     +++| PSF1     AOD    TW
00651  M00S00581.tlx     +++| PSF2     LCN    59D-52D     SET BIT NUMBER
00652  M00S00582.tlx     +++|          RAM    SIAA
00653  M00S00583.tlx     +++|          LJM    SIA4        PROCESS REQUEST
00654  M00S00584.tlx     +++| REC      SPACE  4,10
00655  M00S00585.tlx     +++|**        FUNCTION 11B.
00656  M00S00586.tlx     +++|*
00657  M00S00587.tlx     +++|*         RECOVER JOB.
00658  M00S00588.tlx     +++|*
00659  M00S00589.tlx     +++|*         JSN IS FOUND IN BITS 23-0 OF THE REQUEST.
00660  M00S00590.tlx     +++|
00661  M00S00591.tlx     +++|
00662  M00S00592.tlx     +++| REC      LDD    IR+3        TRANSFER JSN
00663  M00S00593.tlx     +++|          STD    TW+1
00664  M00S00594.tlx     +++|          LDD    IR+4
00665  M00S00595.tlx     +++|          STD    TW+2
00666  M00S00596.tlx     +++|          LDN    ZERL
00667  M00S00597.tlx     +++|          CRD    CM
00668  M00S00598.tlx     +++|          LDD    CP          CLEAR MESSAGE
00669  M00S00599.tlx     +++|          ADK    MS1W
00670  M00S00600.tlx     +++|          CWD    CM
00671  M00S00601.tlx     +++|          LDN    RODS        SET TO ROLLOUT AND DISABLE
00672  M00S00602.tlx     +++|          STD    CM+1
00673  M00S00603.tlx     +++|          MONITOR  ROCM
00674  M00S00604.tlx     +++|          LJM    TLXX        EXIT
00675  M00S00605.tlx     +++|          SPACE  4,35
00676  M00S00606.tlx     +++|**        FUNCTION 12B.
00677  M00S00607.tlx     +++|*
00678  M00S00608.tlx     +++|*         TRANSFER WORKFILE.
00679  M00S00609.tlx     +++|*
00680  M00S00610.tlx     +++|*         ENTRY  (IR+3 - IR+4) = 6/ TF,18/ ADDR
00681  M00S00611.tlx     +++|*
00682  M00S00612.tlx     +++|*         TF = TRANSFER FUNCTION.
00683  M00S00613.tlx     +++|*                0 = TRANSFER TO SUBSYSTEM.
00684  M00S00614.tlx     +++|*                1 = TRANSFER FROM SUBSYSTEM.
00685  M00S00615.tlx     +++|*
00686  M00S00616.tlx     +++|*         ADDR = ADDRESS OF PARAMETER WORD.
00687  M00S00617.tlx     +++|*
00688  M00S00618.tlx     +++|*T  ADDR  12/ FNTR,12/ FNTS,12/ SSID,12/0,11/ ST,1/ C
Figure ADDR

011112232429 C ST0 SSID303536474859 SSID FNTS FNTR

00689  M00S00619.tlx     +++|*
00690  M00S00620.tlx     +++|*         FNTR   = FNT OFFSET IN RECEIVER-S NFL.
00691  M00S00621.tlx     +++|*         FNTS   = FNT OFFSET IN SOURCE-S NFL.
00692  M00S00622.tlx     +++|*         SSID   = RECEIVER-S SUBSYSTEM ID.
00693  M00S00623.tlx     +++|*         ST     = RETURN STATUS CODE (SEE *COMSREM*)
00694  M00S00624.tlx     +++|*         C      = COMPLETION BIT.
00695  M00S00625.tlx     +++|*
00696  M00S00626.tlx     +++|*         EXIT   SUBFUNCTION 0 - TO *TWR*.
00697  M00S00627.tlx     +++|*                SUBFUNCTION 1 - TO *SRS*.
00698  M00S00628.tlx     +++|*
Line S00629 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00699  M01S00629.tlx14   ---|*         CALLS  AST, CCP, CLF, CPR, GPA, GSC, RCF, RTE, SPJ, SRS, TWR.
Line S00012 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00700  M01S00012.tlx14   +++|*         CALLS  AST, CCP, CSP, CLF, CPR, GPA, GSC, RCF, RTE, SPJ, SRS,
00701  M01S00013.tlx14   +++|*                TWR.
00702  M00S00630.tlx     +++|*
00703  M00S00631.tlx     +++|*         MACROS ABORT, ERROR, NFA.
00704  M00S00632.tlx     +++|
00705  M00S00633.tlx     +++|
00706  M00S00634.tlx     +++| TWF      LDD    CP          GET NFL FL
00707  M00S00635.tlx     +++|          ADN    FLSW
00708  M00S00636.tlx     +++|          CRD    CM
00709  M00S00637.tlx     +++|          ADN    SEPW-FLSW   GET SPECIAL ENTRY POINTS
00710  M00S00638.tlx     +++|          CRD    T1
00711  M00S00639.tlx     +++|          RJM    GPA         GET PARAMETER WORD ADDRESS
00712  M00S00640.tlx     +++|          CRD    CN
00713  M00S00641.tlx     +++|          LDD    T1
00714  M00S00642.tlx     +++|          SHN    21-2
Line S00643 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00715  M01S00643.tlx14   ---|          MJN    TWF0.1      IF SSJ=
00716  M01S00644.tlx14   ---| TWF0     ERROR  RSSI        RETURN SUBSYSTEM INACCESSIBLE STATUS
Line S00014 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00014.tlx14   +++|          MJN    TWF2        IF SSJ=
00718  M01S00015.tlx14   +++| TWF1     ERROR  RSSI        RETURN SUBSYSTEM INACCESSIBLE STATUS
00719  M00S00645.tlx     +++|
Line S00646 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00720  M01S00646.tlx14   ---| TWF0.1   LDD    IR+3
Line S00016 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00721  M01S00016.tlx14   +++| TWF2     LDD    IR+3
00722  M00S00647.tlx     +++|          SHN    -6
Line S00648 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00723  M01S00648.tlx14   ---|          NJN    TWF0.2      IF TRANSFER FROM SUBSYSTEM
Line S00017 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00724  M01S00017.tlx14   +++|          NJN    TWF3        IF TRANSFER FROM SUBSYSTEM
00725  M00S00649.tlx     +++|          LDD    CS
00726  M00S00650.tlx     +++|          LMN    OLCS
Line S00651 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00727  M01S00651.tlx14   ---|          NJN    TWF0        IF NOT ON LINE
00728  M01S00652.tlx14   ---| TWF0.2   LDD    CN+1        VALIDATE SOURCE FNT OFFSET
Line S00018 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00729  M01S00018.tlx14   +++|          NJN    TWF1        IF NOT ON LINE
00730  M01S00019.tlx14   +++| TWF3     LDD    CN+1        VALIDATE SOURCE FNT OFFSET
00731  M00S00653.tlx     +++|          STD    FA
00732  M00S00654.tlx     +++|          ADC    -FNTN
Line S00655 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00733  M01S00655.tlx14   ---|          PJN    TWF2        IF NOT TOO SMALL
00734  M01S00656.tlx14   ---| TWF1     ERROR  RSFN        RETURN FILE NOT FOUND STATUS
Line S00020 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00735  M01S00020.tlx14   +++|          PJN    TWF5        IF NOT TOO SMALL
00736  M01S00021.tlx14   +++| TWF4     ERROR  RSFN        RETURN FILE NOT FOUND STATUS
00737  M00S00657.tlx     +++|
Line S00658 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00738  M01S00658.tlx14   ---| TWF2     LDD    CM
Line S00022 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00739  M01S00022.tlx14   +++| TWF5     LDD    CM
00740  M00S00659.tlx     +++|          SHN    6           NFL FL
00741  M00S00660.tlx     +++|          SBD    CN+1
Line S00661 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00742  M01S00661.tlx14   ---|          MJN    TWF1        IF SOURCE NFL OFFSET TOO LARGE
Line S00023 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00743  M01S00023.tlx14   +++|          MJN    TWF4        IF SOURCE NFL OFFSET TOO LARGE
00744  M00S00662.tlx     +++|          NFA    CN+1,R      GET FNT/FUT
00745  M00S00663.tlx     +++|          CRD    FN
00746  M00S00664.tlx     +++|          CRD    FS
00747  M00S00665.tlx     +++|          ADN    FUTL-FNTL
00748  M00S00666.tlx     +++|          CRM    TWFB,ON
00749  M00S00667.tlx     +++|          LDD    IR+3        CHECK TRANSFER FUNCTION
00750  M00S00668.tlx     +++|          SHN    -6
Line S00669 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00669.tlx14   ---|          ZJN    TWF4        IF TRANSFER TO SUBSYSTEM
Line S00024 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00752  M01S00024.tlx14   +++|          ZJN    TWF7        IF TRANSFER TO SUBSYSTEM
00753  M00S00670.tlx     +++|          SBN    1
Line S00671 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00754  M01S00671.tlx14   ---|          NJN    TWF3        IF INCORRECT TRANSFER FUNCTION
00755  M01S00672.tlx14   ---|          LJM    TWF11       PROCESS TRANSFER FROM SUBSYSTEM
Line S00025 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00756  M01S00025.tlx14   +++|          NJN    TWF6        IF INCORRECT TRANSFER FUNCTION
00757  M01S00026.tlx14   +++|          LJM    TWF17       PROCESS TRANSFER FROM SUBSYSTEM
00758  M00S00673.tlx     +++|
Line S00674 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00759  M01S00674.tlx14   ---| TWF3     ABORT  ERIR        * TLX - INCORRECT TERMINAL REQUEST.*
Line S00027 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00760  M01S00027.tlx14   +++| TWF6     ABORT  ERIR        * TLX - INCORRECT TERMINAL REQUEST.*
00761  M00S00675.tlx     +++|
00762  M00S00676.tlx     +++|*         TRANSFER WORKFILE TO SUBSYSTEM.
00763  M00S00677.tlx     +++|
Line S00678 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00764  M01S00678.tlx14   ---| TWF4     RJM    SFB         SET FILE BUSY
00765  M01S00679.tlx14   ---|          ZJN    TWF5        IF FILE NOT PREVIOUSLY BUSY
Line S00028 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00766  M01S00028.tlx14   +++| TWF7     RJM    SFB         SET FILE BUSY
00767  M01S00029.tlx14   +++|          ZJN    TWF8        IF FILE NOT PREVIOUSLY BUSY
00768  M00S00680.tlx     +++|          ERROR  RSFB        RETURN FILE BUSY STATUS
00769  M00S00681.tlx     +++|
Line S00682 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00682.tlx14   ---| TWF5     LDD    FN+4        CHECK FILE TYPE
Line S00030 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00771  M01S00030.tlx14   +++| TWF8     LDD    FN+4        CHECK FILE TYPE
00772  M00S00683.tlx     +++|          SHN    -6
00773  M00S00684.tlx     +++|          SBN    LOFT
Line S00685 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00774  M01S00685.tlx14   ---|          ZJN    TWF7        IF LOCAL FILE TYPE
00775  M01S00686.tlx14   ---| TWF6     ERROR  RSIT        RETURN INCORRECT FILE TYPE STATUS
Line S00031 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00031.tlx14   +++|          ZJN    TWF10       IF LOCAL FILE TYPE
00777  M01S00032.tlx14   +++| TWF9     ERROR  RSIT        RETURN INCORRECT FILE TYPE STATUS
00778  M00S00687.tlx     +++|
Line S00688 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00688.tlx14   ---| TWF7     LDD    FN+3        CHECK ACCESS MODE
Line S00033 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00033.tlx14   +++| TWF10    LDD    FN+3        CHECK ACCESS MODE
00781  M00S00689.tlx     +++|          LPN    1
Line S00690 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00782  M01S00690.tlx14   ---|          NJN    TWF6        IF READ ONLY
Line S00034 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00783  M01S00034.tlx14   +++|          NJN    TWF9        IF READ ONLY
00784  M00S00691.tlx     +++|          LDD    FS+1        VERIFY TRACK CHAIN EXISTS
Line S00692 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00785  M01S00692.tlx14   ---|          ZJN    TWF6        IF NO TRACK CHAIN
Line S00035 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00035.tlx14   +++|          ZJN    TWF9        IF NO TRACK CHAIN
00787  M00S00693.tlx     +++|          LDD    CN+2        CHECK *SSID*
00788  M00S00694.tlx     +++|          ADC    -SMSI
Line S00695 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00695.tlx14   ---|          ZJN    TWF8        IF *SMF* *SSID*
Line S00036 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00036.tlx14   +++|          ZJN    TWF11       IF *SMF* *SSID*
00791  M00S00696.tlx     +++|          ERROR  RSSK        RETURN UNKNOWN *SSID* STATUS
00792  M00S00697.tlx     +++|
Line S00698 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00793  M01S00698.tlx14   ---| TWF8     LDC    FECF*10000B GET SUBSYSTEM *SSCT* ENTRY
Line S00037 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00794  M01S00037.tlx14   +++| TWF11    LDC    FECF*10000B GET SUBSYSTEM *SSCT* ENTRY
00795  M00S00699.tlx     +++|          ADD    CN+2
00796  M00S00700.tlx     +++|          RJM    AST
00797  M00S00701.tlx     +++|          SHN    21-13
Line S00702 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00798  M01S00702.tlx14   ---|          MJN    TWF9        IF SUBSYSTEM ACCESSIBLE
Line S00038 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00799  M01S00038.tlx14   +++|          MJN    TWF12       IF SUBSYSTEM ACCESSIBLE
00800  M00S00703.tlx     +++|          ERROR  RSSI        RETURN SUBSYSTEM INACCESSIBLE STATUS
00801  M00S00704.tlx     +++|
Line S00705 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00802  M01S00705.tlx14   ---| TWF9     RJM    GSC         GET SUBSYSTEM CP NUMBER
Line S00039 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00803  M01S00039.tlx14   +++| TWF12    RJM    GSC         GET SUBSYSTEM CP NUMBER
00804  M00S00706.tlx     +++|
00805  M00S00707.tlx     +++|*         CHANGE FILE TYPE, ACCESS MODE IN SOURCE-S FNT ENTRY.
00806  M00S00708.tlx     +++|
00807  M00S00709.tlx     +++|          LDD    FN+4        SET *LIBRARY* FILE TYPE
00808  M00S00710.tlx     +++|          LPN    77
00809  M00S00711.tlx     +++|          ADC    LIFT*100
00810  M00S00712.tlx     +++|          STD    FN+4
00811  M00S00713.tlx     +++|          AOD    FN+3        SET WRITE LOCKOUT BIT
00812  M00S00714.tlx     +++|          NFA    CN+1,R
00813  M00S00715.tlx     +++|          CWD    FN
00814  M00S00716.tlx     +++|
00815  M00S00717.tlx     +++|*         WRITE FNT/FST INTO SUBSYSTEM NFL.
00816  M00S00718.tlx     +++|
Line S00719 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00817  M01S00719.tlx14   ---|          LDN    0           CHANGE TO SUBSYSTEM CONTROL POINT
00818  M01S00720.tlx14   ---|          RJM    CCP
Line S00040 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00819  M01S00040.tlx14   +++|          RJM    CSP         CHANGE TO SUBSYSTEM CONTROL POINT
Line S00721 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00820  M01S00721.tlx14   ---|          RJM    CLF         CREATE LOCAL FNT ENTRY
Line S00041 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00821  M01S00041.tlx14   +++|          NJN    TWF13       IF CHANGE MADE
00822  M01S00042.tlx14   +++|          ERROR  RSSI,R      RETURN SUBSYSTEM INACCESSIBLE STATUS
00823  M01S00043.tlx14   +++|
00824  M01S00044.tlx14   +++| TWF13    LDM    CSPB
00825  M01S00045.tlx14   +++|          ZJN    TWF14       IF CP CHANGED AND *SMF* THERE
00826  M01S00046.tlx14   +++|          ERROR  RSSI,B      RETURN SUBSYSTEM INACCESSIBLE STATUS
00827  M01S00047.tlx14   +++|
00828  M01S00048.tlx14   +++| TWF14    RJM    CLF         CREATE LOCAL FNT ENTRY
00829  M00S00722.tlx     +++|          LDN    30          SET ALTER ONLY MODE
00830  M00S00723.tlx     +++|          RAD    T4
00831  M00S00724.tlx     +++|          LDD    FN+4        SET *LIBRARY* FILE TYPE
00832  M00S00725.tlx     +++|          STD    T5
00833  M00S00726.tlx     +++|          LDD    FS+4        CLEAR FILE BUSY STATUS
00834  M00S00727.tlx     +++|          LMN    1
00835  M00S00728.tlx     +++|          STD    FS+4
00836  M00S00729.tlx     +++|          NFA    CN,R
00837  M00S00730.tlx     +++|          CWD    T1
00838  M00S00731.tlx     +++|          ADN    FSTL-FNTL
00839  M00S00732.tlx     +++|          CWD    FS
00840  M00S00733.tlx     +++|          ADN    FUTL-FSTL
00841  M00S00734.tlx     +++|          CWM    TWFB,ON
00842  M00S00735.tlx     +++|
00843  M00S00736.tlx     +++|*         CHANGE BACK TO CALLER CONTROL POINT.
00844  M00S00737.tlx     +++|
Line S00738 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00845  M01S00738.tlx14   ---|          LDN    1
Line S00739 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00846  M01S00739.273l780 ---|          RJM    CCP         CHANGE CONTROL POINTS
Line S00001 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00847  M01S00001.273l780 +++|          RJM    CCP         CLEAR ALTERNATE CP ASSIGNMENT
00848  M00S00740.tlx     +++|          RJM    GPA         GET PARAMETER WORD ADDRESS
00849  M00S00741.tlx     +++|          CWD    CN          WRITE FUNCTION PARAMETER WORD
00850  M00S00742.tlx     +++|*         LDN    0           INDICATE CONNECTION
00851  M00S00743.tlx     +++|*         STD    TW+3
00852  M00S00744.tlx     +++|          LDN    0
00853  M00S00745.tlx     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
00854  M00S00746.tlx     +++|          LDN    77          LOOP UNTIL CONNECTION SET
00855  M00S00747.tlx     +++|          STD    T1
Line S00748 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00748.tlx14   ---| TWF9.1   DELAY
Line S00049 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00857  M01S00049.tlx14   +++| TWF15    DELAY
00858  M00S00749.tlx     +++|          LDD    TT          GET *VFST*
00859  M00S00750.tlx     +++|          SHN    14
00860  M00S00751.tlx     +++|          LMD    TT+1
00861  M00S00752.tlx     +++|          ADN    VFST
00862  M00S00753.tlx     +++|          CRD    CM
00863  M00S00754.tlx     +++|          LDD    CM+3        CHECK CONNECT CODE
00864  M00S00755.tlx     +++|          SHN    -6
Line S00756 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00865  M01S00756.tlx14   ---|          NJN    TWF10       IF CONNECTION SET
Line S00050 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00050.tlx14   +++|          NJN    TWF16       IF CONNECTION SET
00867  M00S00757.tlx     +++|          SOD    T1
Line S00758 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00868  M01S00758.tlx14   ---|          NJN    TWF9.1      IF NOT TIMEOUT
Line S00051 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00051.tlx14   +++|          NJN    TWF15       IF NOT TIMEOUT
00870  M00S00759.tlx     +++|
00871  M00S00760.tlx     +++|*         SET TIMED EVENT ROLLOUT AND PP RECALL.
00872  M00S00761.tlx     +++|
Line S00762 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00873  M01S00762.tlx14   ---| TWF10    RJM    RTE         REQUEST TIMED/EVENT ROLLOUT
Line S00052 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00874  M01S00052.tlx14   +++| TWF16    RJM    RTE         REQUEST TIMED/EVENT ROLLOUT
00875  M00S00763.tlx     +++|          LJM    TWR         TRANSFER WORKFILE FUNCTION RECALL
00876  M00S00764.tlx     +++|
00877  M00S00765.tlx     +++|*         TRANSFER WORKFILE FROM SUBSYSTEM.
00878  M00S00766.tlx     +++|
Line S00767 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00879  M01S00767.tlx14   ---| TWF11    RJM    CPR         CHECK PREMATURE RECALL
00880  M01S00768.tlx14   ---|          NJN    TWF10       IF PREMATURE
Line S00053 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00053.tlx14   +++| TWF17    RJM    CPR         CHECK PREMATURE RECALL
00882  M01S00054.tlx14   +++|          NJN    TWF16       IF PREMATURE
00883  M00S00769.tlx     +++|          RJM    RCF         REINSTATE CALLER-S FNT ENTRY
00884  M00S00770.tlx     +++|          RJM    SFN         SET FILE NOT BUSY
00885  M00S00771.tlx     +++|          LDD    CS          CHECK CONNECTION STATUS
00886  M00S00772.tlx     +++|          LMN    OLCS
Line S00773 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00887  M01S00773.tlx14   ---|          ZJN    TWF12       IF ON LINE
Line S00055 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00888  M01S00055.tlx14   +++|          ZJN    TWF18       IF ON LINE
00889  M00S00774.tlx     +++|          LMN    NICS&OLCS
Line S00775 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00775.tlx14   ---|          ZJN    TWF13       IF NOT INTERACTIVE
Line S00056 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00891  M01S00056.tlx14   +++|          ZJN    TWF19       IF NOT INTERACTIVE
00892  M00S00776.tlx     +++|          LJM    SPJ         SUSPEND JOB
00893  M00S00777.tlx     +++|
Line S00778 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00778.tlx14   ---| TWF12    LDN    1           INDICATE DISCONNECTION
Line S00057 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00895  M01S00057.tlx14   +++| TWF18    LDN    1           INDICATE DISCONNECTION
00896  M00S00779.tlx     +++|          STD    TW+3
00897  M00S00780.tlx     +++|          LDN    0
00898  M00S00781.tlx     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
Line S00782 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00899  M01S00782.tlx14   ---| TWF13    LDN    RSSN        SET SWITCH NORMAL RETURN STATUS
Line S00058 Modification History
M01 (Added by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
00900  M01S00058.tlx14   +++| TWF19    LDN    RSSN        SET SWITCH NORMAL RETURN STATUS
00901  M00S00783.tlx     +++|          LJM    SRS         SET RETURN STATUS
00902  M00S00784.tlx     +++|
00903  M00S00785.tlx     +++| TWFA     CON    0           CALLER EJT ORDINAL
00904  M00S00786.tlx     +++| TWFB     VFD    60/0        WORKFILE FUT ENTRY
00905  M00S00787.tlx     +++| SSM      SPACE  4,10
00906  M00S00788.tlx     +++|***       FUNCTIONS 13B AND 14B.
00907  M00S00789.tlx     +++|*
00908  M00S00790.tlx     +++|*         SET/CLEAR SCREEN MODE BIT IN *VSTT*.
00909  M00S00791.tlx     +++|
00910  M00S00792.tlx     +++|
00911  M00S00793.tlx     +++| SSM      LCN    59D-49D     SET BIT 49 *VSTT*
00912  M00S00794.tlx     +++|          RAM    SIAA
00913  M00S00795.tlx     +++|          LJM    SIA4        PROCESS REQUEST
00914  M00S00796.tlx     +++| SWS      SPACE  4,25
00915  M00S00797.tlx     +++|***       FUNCTION 15B.
00916  M00S00798.tlx     +++|*
00917  M00S00799.tlx     +++|*         SET WORD *SLMN*.
00918  M00S00800.tlx     +++|*
00919  M00S00801.tlx     +++|*         ENTRY  (IR+3 - IR+4) = 6/ W,18/ ADDR
00920  M00S00802.tlx     +++|*
00921  M00S00803.tlx     +++|*         W = READ OR WRITE NFL WORD *SLMN*.
00922  M00S00804.tlx     +++|*                0 = READ.
00923  M00S00805.tlx     +++|*                1 = WRITE.
00924  M00S00806.tlx     +++|*         ADDR = ADDRESS OF PARAMETER WORD.
00925  M00S00807.tlx     +++|*
00926  M00S00808.tlx     +++|*         PARAMETER WORD FORMAT -
00927  M00S00809.tlx     +++|*
00928  M00S00810.tlx     +++|*T        53/ 0,1/ SM,6/ TM
Figure

056729 TM SM 03059 0

00929  M00S00811.tlx     +++|*         SM = SCREEN MODE FLAG.
00930  M00S00812.tlx     +++|*                0 = LINE MODE.
00931  M00S00813.tlx     +++|*                1 = SCREEN MODE.
00932  M00S00814.tlx     +++|*         TM = TERMINAL MODEL.  AN ORDINAL FROM 1 TO 63 DECIMAL.
00933  M00S00815.tlx     +++|*              ZERO MEANS TYPE UNKNOWN.  SEE TABLE OF CORRESPONDING
00934  M00S00816.tlx     +++|*              TERMINAL ORDINALS, *TCTO*, IN *COMCGTO* FOR MORE
00935  M00S00817.tlx     +++|*              INFORMATION.
00936  M00S00818.tlx     +++|*
00937  M00S00819.tlx     +++|*         EXIT   TERMINAL WORD *SLMN* READ OR WRITTEN.
00938  M00S00820.tlx     +++|
00939  M00S00821.tlx     +++|
00940  M00S00822.tlx     +++| SWS      LDD    IR+3        CHECK READ OR WRITE
00941  M00S00823.tlx     +++|          SHN    -6
00942  M00S00824.tlx     +++|          ZJN    SWS2        IF READ *SLMN*
00943  M00S00825.tlx     +++|          SBN    1
00944  M00S00826.tlx     +++|          ZJN    SWS4        IF WRITE
00945  M00S00827.tlx     +++| SWS1     ABORT  ERIR        * INCORRECT TERMINAL REQUEST.*
00946  M00S00828.tlx     +++|
00947  M00S00829.tlx     +++| SWS2     NFA    SLMN        GET WORD *SLMN*
00948  M00S00830.tlx     +++|          CRD    T2
00949  M00S00831.tlx     +++|          RJM    GPA         GET PARAMETER WORD ADDRESS
00950  M00S00832.tlx     +++|          CWD    T2
00951  M00S00833.tlx     +++| SWS3     LJM    DPP         DROP PP
00952  M00S00834.tlx     +++|
00953  M00S00835.tlx     +++| SWS4     RJM    GPA         GET PARAMETER WORD ADDRESS
00954  M00S00836.tlx     +++|          CRD    T2
00955  M00S00837.tlx     +++|          LDD    T6
00956  M00S00838.tlx     +++|          LPC    177
00957  M00S00839.tlx     +++|          STD    T6
00958  M00S00840.tlx     +++|          NFA    SLMN        GET *SLMN*
00959  M00S00841.tlx     +++|          CRD    T1
00960  M00S00842.tlx     +++|          LDD    T5
00961  M00S00843.tlx     +++|          LPC    7600
00962  M00S00844.tlx     +++|          LMD    T6
00963  M00S00845.tlx     +++|          STD    T5
00964  M00S00846.tlx     +++|          NFA    SLMN        WRITE *SLMN*
00965  M00S00847.tlx     +++|          CWD    T1
00966  M00S00848.tlx     +++|          UJN    SWS3        RETURN
00967  M00S00849.tlx     +++| LTI      SPACE  4,10
00968  M00S00850.tlx     +++|***       FUNCTION 16B.
00969  M00S00851.tlx     +++|*
00970  M00S00852.tlx     +++|*         LOOK FOR TYPED AHEAD INPUT.
00971  M00S00853.tlx     +++|*
00972  M00S00854.tlx     +++|*         ENTRY  PAR = ADDRESS FOR RETURN DATA.
00973  M00S00855.tlx     +++|*
00974  M00S00856.tlx     +++|*         EXIT   (PAR) = 0 IF NO DATA TYPED AHEAD.
Line S00009 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00975  M01S00009.ns2748  +++|*
00976  M01S00010.ns2748  +++|*         CALLS  GPA, RRR, SRR, STA.
00977  M00S00857.tlx     +++|
00978  M00S00858.tlx     +++|
00979  M00S00859.tlx     +++| LTI      LDN    ZERL        PRESET ZERO RETURN
00980  M00S00860.tlx     +++|          CRD    CN
00981  M00S00861.tlx     +++|          LDD    CS
00982  M00S00862.tlx     +++|          LMK    OLCS
Line S00863 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00983  M01S00863.ns2748  ---|          NJN    LTI1        IF NOT ONLINE
Line S00011 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
00984  M01S00011.ns2748  +++|          NJP    LTI2        IF NOT ONLINE
00985  M01S00012.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
00986  M00S00864.tlx     +++|          RJM    STA         SET TERMINAL TABLE ADDRESS
00987  M00S00865.tlx     +++|          ADN    VROT        CHECK FOR PREPROCESSED INPUT
00988  M00S00866.tlx     +++|          CRD    CM
00989  M00S00867.tlx     +++|          LDD    CM+1
00990  M00S00868.tlx     +++|          STD    CN+4
00991  M00S00869.tlx     +++|          NJN    LTI1        IF INPUT PRESENT
00992  M00S00870.tlx     +++|          LDD    TA          TIMESHARING REFERENCE ADDRESS
00993  M00S00871.tlx     +++|          SHN    6
00994  M00S00872.tlx     +++|          ADN    VNTP        TERMINAL TABLE POINTER
00995  M00S00873.tlx     +++|          CRD    CM
00996  M00S00874.tlx     +++|          LDD    CM+2
00997  M00S00875.tlx     +++|          ZJN    LTI1        IF NO NETWORK TERMINALS DEFINED
00998  M00S00876.tlx     +++|          SBN    1           (A) = HIGHEST MUX TERMINAL NUMBER
00999  M00S00877.tlx     +++|          SBD    TN
01000  M00S00878.tlx     +++|          PJN    LTI1        IF A MUX TERMINAL
01001  M00S00879.tlx     +++|          LDD    TA          IAF REFERENCE ADDRESS
01002  M00S00880.tlx     +++|          SHN    6
01003  M00S00881.tlx     +++|          ADN    VMST        TERMINAL STATUS MESSAGE WORD
01004  M00S00882.tlx     +++|          CRD    CM
01005  M00S00883.tlx     +++|          LDD    CM+1
01006  M00S00884.tlx     +++|          SHN    6
01007  M00S00885.tlx     +++|          ADD    TA
01008  M00S00886.tlx     +++|          SHN    6
01009  M00S00887.tlx     +++|          ADD    CM+2
01010  M00S00888.tlx     +++|          ADD    TN
01011  M00S00889.tlx     +++|          CRD    CM          READ TERMINAL MESSAGE WORD
01012  M00S00890.tlx     +++|          LDD    CM+4        INPUT TYPEAHEAD QUEUE POINTER
01013  M00S00891.tlx     +++|          STD    CN+4
Line S00892 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01014  M01S00892.ns2748  ---| LTI1     RJM    GPA         GET PARAMETER WORD ADDRESS
Line S00013 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01015  M01S00013.ns2748  +++| LTI1     RJM    RRR         RESTORE R-REGISTER
01016  M01S00014.ns2748  +++| LTI2     RJM    GPA         GET PARAMETER WORD ADDRESS
01017  M00S00893.tlx     +++|          CWD    CN
01018  M00S00894.tlx     +++|          LJM    DPP         EXIT
01019  M00S00895.tlx     +++| PDT      SPACE  4,10
01020  M00S00896.tlx     +++|***       FUNCTION 17B.
01021  M00S00897.tlx     +++|*
01022  M00S00898.tlx     +++|*         DETACH JOB FROM TERMINAL.
01023  M00S00899.tlx     +++|
01024  M00S00900.tlx     +++|
01025  M00S00901.tlx     +++| PDT      LDD    CS          CHECK CONNECTION STATUS
01026  M00S00902.tlx     +++|          LMK    OLCS
01027  M00S00903.tlx     +++|          NJP    DPP         IF NOT ONLINE
01028  M00S00904.tlx     +++|          LDN    PDRC        SET PROGRAM INITIATED DETACH REASON CODE
01029  M00S00905.tlx     +++|          STD    TW+2
01030  M00S00906.tlx     +++|          LJM    TLXX        SEND *TSEM* REQUEST
01031  M00S00907.tlx     +++| SEM      SPACE 4,10
01032  M00S00908.tlx     +++|**        FUNCTION 20 AND 21B.
01033  M00S00909.tlx     +++|*
01034  M00S00910.tlx     +++|*         SET/CLEAR USER EFFECT MODE BIT IN *VSTT*.
01035  M00S00911.tlx     +++|
01036  M00S00912.tlx     +++| SEM      LCN    59D-55D     SET BIT 55 IN *VSTT*
01037  M00S00913.tlx     +++|          RAM    SIAA
01038  M00S00914.tlx     +++|          LDC    400         SET MASK FOR RECOVERY WORD
01039  M00S00915.tlx     +++|          RJM    URW         UPDATE RECOVERY WORD
01040  M00S00916.tlx     +++|          NJP    DPP         IF NOT ON-LINE JOB
01041  M00S00917.tlx     +++|          LJM    SIA4        PROCESS REQUEST
01042  M00S00918.tlx     +++| APS      SPACE  4,10
01043  M00S00919.tlx     +++|***       FUNCTION 22B.
01044  M00S00920.tlx     +++|*
01045  M00S00921.tlx     +++|*         PROCESS APPLICATION SWITCH.
01046  M00S00922.tlx     +++|*
01047  M00S00923.tlx     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER WORD ADDRESS.
01048  M00S00924.tlx     +++|*                (TN) = TERMINAL NUMBER.
01049  M00S00925.tlx     +++|*                (TA) = IAF REFERENCE ADDRESS.
01050  M00S00926.tlx     +++|*                (TW) = *TSEM* REQUEST VALUE.
01051  M00S00927.tlx     +++|*                (CS) = CONNECTION STATUS.
01052  M00S00928.tlx     +++|*
01053  M00S00929.tlx     +++|*T,PAR           42/ANAME, 18/0
Figure PAR

01718290ANAME3059ANAME

01054  M00S00930.tlx     +++|*T,PAR+1 - PAR+5 REMAINDER OF COMMAND LINE.
Figure PAR+1 -

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "", "bits": PAR+5 REMAINDER OF COMMAND LINE., "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01055  M00S00931.tlx     +++|*
01056  M00S00932.tlx     +++|*                ANAME = NEXT APPLICATION NAME.
01057  M00S00933.tlx     +++|*
01058  M00S00934.tlx     +++|*         EXIT   TO *TLXX* TO MAKE *TSEM* REQUEST FOR SWITCH.
01059  M00S00935.tlx     +++|*
Line S00936 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01060  M01S00936.ns2748  ---|*         CALLS  CKA, DFM, SNI, SPA, STA.
Line S00015 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00015.ns2748  +++|*         CALLS  CKA, DFM, RRR, SNI, SPA, SRR, STA.
01062  M00S00937.tlx     +++|*
01063  M00S00938.tlx     +++|*         MACROS ABORT, DELAY, MONITOR.
01064  M00S00939.tlx     +++|
01065  M00S00940.tlx     +++|
01066  M00S00941.tlx     +++| APS      LDN    6           SET WORD COUNT
01067  M00S00942.tlx     +++|          STD    T1
01068  M00S00943.tlx     +++|          RJM    CKA         CHECK APPLICATION NAME ADDRESS
01069  M00S00944.tlx     +++|          CRM    APSC,T1
01070  M00S00945.tlx     +++|          LDD    CS          CHECK CONNECTION STATUS
01071  M00S00946.tlx     +++|          LMN    OLCS
01072  M00S00947.tlx     +++|          NJP    APS7        IF NOT ONLINE CONNECTION STATUS
01073  M00S00948.tlx     +++|          RJM    SNI         CHECK IF NETWORK TERMINAL
01074  M00S00949.tlx     +++|          ZJP    APS7        IF NOT A NETWORK TERMINAL
01075  M01S00016.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
01076  M00S00950.tlx     +++|          RJM    STA         SET TERMINAL TABLE ADDRESS
01077  M00S00951.tlx     +++|          ADK    VDCT
01078  M00S00952.tlx     +++|          CRD    CM          READ UP *VDCT*
01079  M01S00017.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
01080  M00S00953.tlx     +++|          LDD    CM+1
01081  M00S00954.tlx     +++|          SHN    21-13       CHECK PRIMARY CONNECTION BIT
01082  M00S00955.tlx     +++|          MJP    APS10       IF CONNECTION ALREADY LOANED
01083  M00S00956.tlx     +++|          SHN    1           CHECK SECONDARY CONNECTION BIT
01084  M00S00957.tlx     +++|          PJN    APS1        IF IAF NOT SECONDARY APPLICATION
01085  M00S00958.tlx     +++|          LDM    APSC
Line S00959 Modification History
M01 (Removed by) tlx15
Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00959.tlx15   ---|          ZJN    APS2        IF NO APPLICATION SPECIFIED
Line S00001 Modification History
M01 (Added by) tlx15
Seq #  *Modification Id* Act 
----------------------------+
01087  M01S00001.tlx15   +++|          ZJN    APS0        IF NO APPLICATION SPECIFIED
01088  M00S00960.tlx     +++|          LMC    2RAB        CHECK FOR *ABORT*
01089  M00S00961.tlx     +++|          NJP    APS8        IF NOT ABORT APPLICATION
01090  M00S00962.tlx     +++|          LDM    APSC+1
01091  M00S00963.tlx     +++|          LMC    2ROR
01092  M00S00964.tlx     +++|          NJP    APS8        IF NOT ABORT APPLICATION
01093  M00S00965.tlx     +++|          LDM    APSC+2
01094  M00S00966.tlx     +++|          LMC    1RT*100
01095  M00S00967.tlx     +++|          NJP    APS8        IF NOT ABORT APPLICATION
Line S00968 Modification History
M01 (Removed by) tlx15
Seq #  *Modification Id* Act 
----------------------------+
01096  M01S00968.tlx15   ---|          UJN    APS2        CONTINUE
Line S00002 Modification History
M01 (Added by) tlx15
Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00002.tlx15   +++| APS0     UJN    APS2        CONTINUE
01098  M00S00969.tlx     +++|
01099  M00S00970.tlx     +++| APS1     LDM    APSC        GET APPLICATION NAME
01100  M00S00971.tlx     +++|          ZJP    APS9        IF NO NAME SPECIFIED
01101  M01S00003.tlx15   +++|          LMC    2RIA
01102  M01S00004.tlx15   +++|          NJN    APS2        IF NOT *APPSW,IAF*
01103  M01S00005.tlx15   +++|          LDM    APSC+1
01104  M01S00006.tlx15   +++|          SHN    -6
01105  M01S00007.tlx15   +++|          LMN    1RF
01106  M01S00008.tlx15   +++|          ZJP    APS11       IF *APPSW,IAF*
01107  M00S00972.tlx     +++| APS2     LDN    ZERL
01108  M00S00973.tlx     +++|          CRD    CM
01109  M00S00974.tlx     +++| APS3     LDN    1           SET POTS REQUIRED
01110  M00S00975.tlx     +++|          STD    CM+1
01111  M00S00976.tlx     +++|          MONITOR  TGPM      MAKE POT REQUEST
01112  M00S00977.tlx     +++|          LDD    CM+1
01113  M00S00978.tlx     +++|          ZJP    APS6        IF IAF NOT ACTIVE
01114  M00S00979.tlx     +++|          LMC    7777
01115  M00S00980.tlx     +++|          NJN    APS5        IF POTS AVAILABLE
01116  M00S00981.tlx     +++|          LDC    600         SET DELAY
01117  M00S00982.tlx     +++|          STD    T1
01118  M00S00983.tlx     +++| APS4     DELAY
01119  M00S00984.tlx     +++|          SOD    T1
01120  M00S00985.tlx     +++|          NJN    APS4        IF DELAY NOT COMPLETE
01121  M00S00986.tlx     +++|          UJN    APS3        REISSUE REQUEST
01122  M00S00987.tlx     +++|
01123  M00S00988.tlx     +++| APS5     LDD    CM+1        SET POT POINTER
01124  M00S00989.tlx     +++|          STD    PP
01125  M00S00990.tlx     +++|          STD    TW+3        SAVE POINTER IN REQUEST
01126  M00S00991.tlx     +++|          LDC    1           SET LOGOUT TYPE IN REQUEST
01127  M00S00992.tlx     +++|          STD    TW+2
01128  M00S00993.tlx     +++|          LDN    VCPC-1
01129  M00S00994.tlx     +++|          STD    T1
Line S00018 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01130  M01S00018.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
01131  M00S00995.tlx     +++|          RJM    SPA         SET POT ADDRESS
01132  M00S00996.tlx     +++|          ADN    1
01133  M00S00997.tlx     +++|          CWM    APSC,T1     WRITE NAME AND TEXT TO POT
01134  M01S00019.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
01135  M00S00998.tlx     +++|
01136  M00S00999.tlx     +++|*         TERMINATE ACCOUNT FILE MESSAGE.
01137  M00S01000.tlx     +++|
01138  M00S01001.tlx     +++|          LCN    0           INITIALIZE MESSAGE INDEX
01139  M00S01002.tlx     +++|          STD    T1
01140  M00S01003.tlx     +++| APS5.1   AOD    T1          INCREMENT MESSAGE INDEX
01141  M00S01004.tlx     +++|          LDM    APSC,T1
01142  M00S01005.tlx     +++|          ZJN    APS5.2      IF END OF NAME
01143  M00S01006.tlx     +++|          LPN    77
01144  M00S01007.tlx     +++|          NJN    APS5.1      IF NOT END OF NAME
01145  M00S01008.tlx     +++|          LDM    APSC,T1     ADD PERIOD TERMINATOR TO MESSAGE
01146  M00S01009.tlx     +++|          LMN    1R.
01147  M00S01010.tlx     +++|          STM    APSC,T1
01148  M00S01011.tlx     +++|          UJN    APS5.3      STORE END OF LINE IN MESSAGE
01149  M00S01012.tlx     +++|
01150  M00S01013.tlx     +++| APS5.2   LDC    1R.*100     ADD PERIOD TERMINATOR TO MESSAGE
01151  M00S01014.tlx     +++|          STM    APSC,T1
01152  M00S01015.tlx     +++| APS5.3   LDN    0           STORE END OF LINE IN MESSAGE
01153  M00S01016.tlx     +++|          STM    APSC+1,T1
01154  M00S01017.tlx     +++|          LDC    APSB+ACFN
01155  M00S01018.tlx     +++|          RJM    DFM         ISSUE ACCOUNT MESSAGE
01156  M00S01019.tlx     +++|          LDN    RODS        SET DISABLE OPTION
01157  M00S01020.tlx     +++|          STD    CM+1
01158  M00S01021.tlx     +++|          MONITOR  ROCM
01159  M00S01022.tlx     +++| APS6     LJM    TLXX        EXIT
01160  M00S01023.tlx     +++|
01161  M00S01024.tlx     +++| APS7     ABORT  ERNT        NETWORK TERMINAL COMMAND ONLY
01162  M00S01025.tlx     +++|
01163  M00S01026.tlx     +++| APS8     ABORT  ERSA        INCORRECT SECONDARY APPLICATION SWITCH
01164  M00S01027.tlx     +++|
01165  M00S01028.tlx     +++| APS9     ABORT  ERNR        APPLICATION NAME REQUIRED
01166  M00S01029.tlx     +++|
01167  M00S01030.tlx     +++| APS10    ABORT  ERAL        CONNECTION ALREADY LOANED
01168  M00S01031.tlx     +++|
Line S00009 Modification History
M01 (Added by) tlx15
Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00009.tlx15   +++| APS11    ABORT  ERCS        CANNOT SWITCH TO CURRENT APPLICATION (IAF)
01170  M01S00010.tlx15   +++|
01171  M00S01032.tlx     +++|
01172  M00S01033.tlx     +++| APSB     DATA   6LACAS,     ACCOUNT MESSAGE HEADER
01173  M00S01034.tlx     +++| APSC     BSSZ   6*5         APPLICATION NAME AND Z PARAMETER
01174  M00S01035.tlx     +++|          BSSZ   2*5         TERMINATOR WORDS
01175  M00S01036.tlx     +++| RLC      SPACE  4,20
01176  M00S01037.tlx     +++|***       FUNCTION 23B.
01177  M00S01038.tlx     +++|*
01178  M00S01039.tlx     +++|*         RESTART LOANED CONNECTION.
01179  M00S01040.tlx     +++|*
01180  M00S01041.tlx     +++|*         ISSUE APPROPRIATE ACCOUNTING AND DAYFILE MESSAGES AND
01181  M00S01042.tlx     +++|*         RESTART, DETACH, OR TERMINATE THE RETURNED JOB.
01182  M00S01043.tlx     +++|*
01183  M00S01044.tlx     +++|*         ENTRY  (TN) = TERMINAL NUMBER.
01184  M00S01045.tlx     +++|*                (TA) = IAF REFERENCE ADDRESS.
01185  M00S01046.tlx     +++|*                (TW) = *TSEM* REQUEST VALUE.
01186  M00S01047.tlx     +++|*                *VROT*, BYTE 2 CONTAINS THE LOAN STATUS VALUE.
01187  M00S01048.tlx     +++|*
01188  M00S01049.tlx     +++|*         EXIT   TO *DPP* IF CONTROL POINT NOT TO BE ABORTED.
01189  M00S01050.tlx     +++|*                TO *ERR1* IF CONTROL POINT TO BE ABORTED.
01190  M00S01051.tlx     +++|*
Line S01052 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01191  M01S01052.ns2748  ---|*         CALLS  DFM, ITF, STA.
Line S00020 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
01192  M01S00020.ns2748  +++|*         CALLS  DFM, ITF, RRR, SRR, STA.
01193  M00S01053.tlx     +++|*
01194  M00S01054.tlx     +++|*         MACROS MONITOR.
01195  M00S01055.tlx     +++|
01196  M00S01056.tlx     +++|
01197  M00S01057.tlx     +++| RLC      BSS    0           ENTRY
01198  M01S00021.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
01199  M00S01058.tlx     +++|          RJM    STA         SET TERMINAL TABLE ADDRESS
01200  M00S01059.tlx     +++|          ADK    VROT
01201  M00S01060.tlx     +++|          CRD    CN          READ *VROT*
01202  M01S00022.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
01203  M00S01061.tlx     +++|          LDD    CN+2        GET LOAN STATUS VALUE
01204  M00S01062.tlx     +++|          NJN    RLC0        IF A VALUE DEFINED
01205  M00S01063.tlx     +++|          LDN    ERLS        SET ERROR STATUS
01206  M00S01064.tlx     +++|          STD    CN+2
01207  M00S01065.tlx     +++| RLC0     LDM    TACM,CN+2
01208  M00S01066.tlx     +++|          ZJN    RLC1        IF NO ACCOUNTING MESSAGE
01209  M00S01067.tlx     +++|          STM    RLCA+1
01210  M00S01068.tlx     +++|          LDC    RLCA+ACFN   ISSUE ACCOUNT MESSAGE
01211  M00S01069.tlx     +++|          RJM    DFM
01212  M00S01070.tlx     +++| RLC1     LDM    TLSM,CN+2   GET APPROPRIATE DAYFILE MESSAGE
01213  M00S01071.tlx     +++|          ZJP    RLC2        IF NO DAYFILE MESSAGE
01214  M00S01072.tlx     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
01215  M00S01073.tlx     +++| RLC2     LDD    CN+2
01216  M00S01074.tlx     +++|          STD    T1          SAVE LOAN STATUS VALUE
01217  M00S01075.tlx     +++|          SBN    LDLS
01218  M00S01076.tlx     +++|          ZJN    RLC2.1      IF LINE DISCONNECT IN SECONDARY
01219  M00S01077.tlx     +++|          LDN    0           CLEAR LOAN STATUS VALUE IN *VROT*
01220  M00S01078.tlx     +++|          STD    CN+2
01221  M01S00023.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
01222  M00S01079.tlx     +++|          RJM    STA
01223  M00S01080.tlx     +++|          ADK    VROT
01224  M00S01081.tlx     +++|          CWD    CN          REWRITE *VROT*
01225  M01S00024.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
01226  M00S01082.tlx     +++| RLC2.1   LDM    TPSR,T1     GET SPECIAL PROCESSOR ADDRESS
01227  M00S01083.tlx     +++|          ZJP    DPP         IF NO SPECIAL PROCESSING NECESSARY
01228  M00S01084.tlx     +++|          STM    RLCB
01229  M00S01085.tlx     +++|          LJM    *           JUMP TO PROCESSOR
01230  M00S01086.tlx     +++| RLCB     EQU    *-1
01231  M00S01087.tlx     +++|
01232  M00S01088.tlx     +++| RLC3     LDN    PIDL        SET DETACH VALUE IN EJT PARAMETER BLOCK
01233  M00S01089.tlx     +++|          STD    TW+2
01234  M00S01090.tlx     +++|          LDC    VDTJ        *TSEM* REQUEST TYPE
01235  M00S01091.tlx     +++|          STD    TW
01236  M00S01092.tlx     +++|          UJN    RLC5        CONTINUE
01237  M00S01093.tlx     +++|
01238  M00S01094.tlx     +++| RLC4     LCN    SARC        SET FORCE LOGOFF VALUE IN EJT PARAM. BLOCK
01239  M00S01095.tlx     +++|          STD    TW+2
01240  M00S01096.tlx     +++|          LDC    VTLF        *TSEM* REQUEST TYPE
01241  M00S01097.tlx     +++|          STD    TW
01242  M00S01098.tlx     +++| RLC5     LDN    0           CLEAR MESSAGE FROM MESSAGE BUFFER
01243  M00S01099.tlx     +++|          STD    CM
01244  M00S01100.tlx     +++|          LDD    CP
01245  M00S01101.tlx     +++|          ADK    MS1W
01246  M00S01102.tlx     +++|          CWD    CM
01247  M00S01103.tlx     +++|          LDN    0
01248  M00S01104.tlx     +++|          RJM    ITF         ISSUE *TSEM* REQUEST
01249  M00S01105.tlx     +++|          LJM    ERR1        ABORT
01250  M00S01106.tlx     +++|
01251  M00S01107.tlx     +++|
01252  M00S01108.tlx     +++| RLCA     DATA   5LACXX.
01253  M00S01109.tlx     +++|          CON    0           END OF BUFFER
01254  M00S01110.tlx     +++| TACM     SPACE  4,10
01255  M00S01111.tlx     +++|**        TABLE OF ACCOUNT MESSAGES.
01256  M00S01112.tlx     +++|*
01257  M00S01113.tlx     +++|*         INDEXED BY LOAN STATUS VALUE (DEFINED IN *COMSREM*).
01258  M00S01114.tlx     +++|
01259  M00S01115.tlx     +++| TACM     INDEX
01260  M00S01116.tlx     +++|          INDEX  SCLS,2RAB
01261  M00S01117.tlx     +++|          INDEX  SVLS,2RAI
01262  M00S01118.tlx     +++|          INDEX  SOLS,2RAF
01263  M00S01119.tlx     +++|          INDEX  SFLS,2RAF
01264  M00S01120.tlx     +++|          INDEX  SULS,2RAI
01265  M00S01121.tlx     +++|          INDEX  STLS,2RAR
01266  M00S01122.tlx     +++|          INDEX  SRLS,2RAU
01267  M00S01123.tlx     +++|          INDEX  SALS,2RAU
01268  M00S01124.tlx     +++|          INDEX  SLLS,2RAU
01269  M00S01125.tlx     +++|          INDEX  ERLS,2RAE
01270  M00S01126.tlx     +++|          INDEX  MXLS
01271  M00S01127.tlx     +++| TLSM     SPACE  4,10
01272  M00S01128.tlx     +++|**        TABLE OF LOAN STATUS MESSAGES.
01273  M00S01129.tlx     +++|*
01274  M00S01130.tlx     +++|*         INDEXED BY LOAN STATUS VALUE (DEFINED IN *COMSREM*).
01275  M00S01131.tlx     +++|
01276  M00S01132.tlx     +++| TLSM     INDEX
01277  M00S01133.tlx     +++|          INDEX  SCLS,(=C* SECONDARY APPLICATION ABORTED CONNECTION.*)
01278  M00S01134.tlx     +++|          INDEX  SVLS,(=C* USER NOT VALIDATED FOR SECONDARY APPLICATION.
01279  M00S01135.tlx     +++|,*)
01280  M00S01136.tlx     +++|          INDEX  SOLS,(=C* SECONDARY APPLICATION NETTED OFF.*)
01281  M00S01137.tlx     +++|          INDEX  SFLS,(=C* SECONDARY APPLICATION FAILED.*)
01282  M00S01138.tlx     +++|          INDEX  SULS,(=C* UNKNOWN SECONDARY APPLICATION.*)
01283  M00S01139.tlx     +++|          INDEX  STLS,(=C* SECONDARY APPLICATION PROCESSING COMPLETE.*)
01284  M00S01140.tlx     +++|          INDEX  SRLS,(=C* SECONDARY APPLICATION REFUSED CONNECTION.*)
01285  M00S01141.tlx     +++|          INDEX  SALS,(=C* SECONDARY APPLICATION NOT AVAILABLE.*)
01286  M00S01142.tlx     +++|          INDEX  SLLS,(=C* SECONDARY APPLICATION CONNECTION LIMIT.*)
01287  M00S01143.tlx     +++|          INDEX  ERLS,(=C* RETRY APPLICATION SWITCH.*)
01288  M00S01144.tlx     +++|          INDEX  LDLS,(=C* LINE WAS DISCONNECTED WHILE LOANED.*)
01289  M00S01145.tlx     +++|          INDEX  MXLS
01290  M00S01146.tlx     +++| TPSR     SPACE  4,10
01291  M00S01147.tlx     +++|**        TABLE OF PROCESSORS FOR SECONDARY CONNECTION RETURN.
01292  M00S01148.tlx     +++|*
01293  M00S01149.tlx     +++|*         INDEXED BY LOAN STATUS VALUE (DEFINED IN *COMSREM*).
01294  M00S01150.tlx     +++|
01295  M00S01151.tlx     +++| TPSR     INDEX
01296  M00S01152.tlx     +++|          INDEX  SCLS,RLC4
01297  M00S01153.tlx     +++|          INDEX  SVLS,ERR1
01298  M00S01154.tlx     +++|          INDEX  SOLS,ERR1
01299  M00S01155.tlx     +++|          INDEX  SFLS,ERR1
01300  M00S01156.tlx     +++|          INDEX  SULS,ERR1
01301  M00S01157.tlx     +++|          INDEX  SRLS,ERR1
01302  M00S01158.tlx     +++|          INDEX  SALS,ERR1
01303  M00S01159.tlx     +++|          INDEX  SLLS,ERR1
01304  M00S01160.tlx     +++|          INDEX  ERLS,RLC3
01305  M00S01161.tlx     +++|          INDEX  LDLS,RLC3
01306  M00S01162.tlx     +++|          INDEX  MXLS
01307  M00S01163.tlx     +++|          TITLE  SUBROUTINES.
Line S01164 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01308  M01S01164.273l780 ---| CCP      SPACE  4,15
Line S01165 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01309  M02S01165.273l780 ---|**        CCP - CHANGE CONTROL POINTS.
Line S00059 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S00059.273l780 ---|**        CCP - CHANGE BACK TO CALLER-S CONTROL POINT.
Line S00002 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01311  M01S00002.273l780 +++| CCP      SPACE  4,10
01312  M01S00003.273l780 +++|**        CCP - CLEAR ALTERNATE CONTROL POINT ASSIGNMENT.
01313  M00S01166.tlx     +++|*
Line S01167 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
01314  M01S01167.tlx14   ---|*         ENTRY  (A) = 0 IF CHANGE TO SUBSYSTEM CP.
01315  M01S01168.tlx14   ---|*                (A) .NE. 0 IF CHANGE BACK TO CALLER.
01316  M01S01169.tlx14   ---|*                (CCPA) = SUBSYSTEM CONTROL POINT NUMBER IF (A) = 0.
01317  M01S01170.tlx14   ---|*                (TWFA) = EJT ORDINAL OF CALLER.
Line S00060 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01318  M02S00060.273l780 ---|*         ENTRY  (TWFA) = EJT ORDINAL OF CALLER.
01319  M02S00061.273l780 ---|*                (CCPA) = CALLER-S CP ADDRESS.
Line S00004 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01320  M01S00004.273l780 +++|*         EXIT   ALTERNATE CONTROL POINT ASSIGNMENT CLEARED.
01321  M00S01171.tlx     +++|*
Line S01172 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01322  M01S01172.273l780 ---|*         EXIT   CHANGE MADE.
Line S00005 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01323  M01S00005.273l780 +++|*         USES   CM+1.
Line S01173 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
01324  M01S01173.tlx14   ---|*                (CCPB) = CALLER-S CP ADDRESS.
01325  M00S01174.tlx     ---|*
Line S01175 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01326  M01S01175.273l780 ---|*         ERROR  TO *DPP* IF *ORET* ERROR FLAG SET.
01327  M01S01176.273l780 ---|*                PP HUNG IF WRONG JOB AT CONTROL POINT UPON RETURN.  TO
01328  M01S01177.273l780 ---|*                *DPP* IF *HNGM* CLEARED.
01329  M01S01178.273l780 ---|*
Line S01179 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01330  M02S01179.273l780 ---|*         USES   T1, CM - CM+4.
Line S00062 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01331  M02S00062.273l780 ---|*         USES   CP, T1, CM - CM+4.
Line S01180 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01332  M01S01180.273l780 ---|*
01333  M01S01181.273l780 ---|*         CALLS  CSF.
01334  M01S01182.273l780 ---|*
01335  M01S01183.273l780 ---|*         MACROS MONITOR, PAUSE.
Line S00006 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01336  M01S00006.273l780 +++|*         MACROS MONITOR.
01337  M00S01184.tlx     +++|
01338  M00S01185.tlx     +++|
Line S01186 Modification History
M01 (Removed by) tlx14
Seq #  *Modification Id* Act 
----------------------------+
01339  M01S01186.tlx14   ---| CCP4     LDD    T1          SET CONTROL POINT
Line S00063 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00063.273l780 ---| CCP2     LDD    T1          SET CONTROL POINT
Line S01187 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01341  M01S01187.273l780 ---|          SHN    7
01342  M01S01188.273l780 ---|          STD    CP
Line S01189 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01343  M02S01189.273l780 ---|          PAUSE              UPDATE RA AND FL
01344  M02S01190.273l780 ---|          LDC    **          CHECK DIRECTION OF CHANGE
01345  M02S01191.273l780 ---| CCPC     EQU    *-1         (SET IF CHANGE BACK FROM SUBSYSTEM)
01346  M02S01192.273l780 ---|          ZJN    CCPX        IF CHANGE TO SUBSYSTEM
01347  M02S01193.273l780 ---|          STD    T1
Line S00064 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01348  M02S00064.273l780 ---|          PAUSE  ST          UPDATE *RA* AND *FL*
Line S01194 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01349  M01S01194.273l780 ---|
01350  M01S01195.273l780 ---|*         ENSURE THE CORRECT JOB IS STILL AT THE CONTROL POINT.
01351  M01S01196.273l780 ---|
01352  M01S01197.273l780 ---|          LDD    CP          GET CONTROL POINT AREA EJT ORDINAL
01353  M01S01198.273l780 ---|          ADN    TFSW
01354  M01S01199.273l780 ---|          CRD    CM
01355  M01S01200.273l780 ---|          LDM    TWFA        CALLER EJT ORDINAL
01356  M01S01201.273l780 ---|          LMD    CM
Line S01202 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01357  M02S01202.273l780 ---|          ZJN    CCP5        IF CORRECT JOB
Line S00065 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01358  M02S00065.273l780 ---|          ZJN    CCP3        IF CORRECT JOB
Line S01203 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01359  M01S01203.273l780 ---|          LDC    *           ADDRESS WHERE ERROR DETECTED
Line S00007 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01360  M01S00007.273l780 +++| CCP      SUBR               ENTRY/EXIT
01361  M01S00008.273l780 +++|          LDC    ALCS        SET ALTERNATE CP FLAG
01362  M00S01204.tlx     +++|          STD    CM+1
Line S01205 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01363  M01S01205.273l780 ---|          LDN    0
01364  M01S01206.273l780 ---|          STD    CM+2        SET NO ERROR FLAG
01365  M01S01207.273l780 ---|          MONITOR  CHGM      CONDITIONAL HANG PP
01366  M01S01208.273l780 ---|          LJM    DPP         DROP PP
01367  M01S01209.273l780 ---|
Line S01210 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01368  M02S01210.273l780 ---| CCP5     RJM    CSF         RESTORE *SSID* FIELD
Line S00066 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01369  M02S00066.273l780 ---| CCP3     RJM    CSF         RESTORE *SSID* FIELD
Line S01211 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01370  M01S01211.273l780 ---|
01371  M01S01212.273l780 ---| CCP      SUBR               ENTRY/EXIT
Line S01213 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01372  M02S01213.273l780 ---|          STM    CCPC        SAVE DIRECTION FLAG
01373  M02S01214.273l780 ---|          NJN    CCP1        IF CHANGE BACK TO CALLER
01374  M02S01215.273l780 ---|          STD    T1
01375  M02S01216.273l780 ---|          RJM    CSF         SET *SSID* FIELD TO PREVENT ROLLOUT
01376  M02S01217.273l780 ---|          LDD    CP          SAVE CALLER-S CP ADDRESS
01377  M02S01218.273l780 ---|          STM    CCPB
01378  M02S01219.273l780 ---|          LDM    CCPA        GET SUBSYSTEM CP NUMBER
01379  M02S01220.273l780 ---|          UJN    CCP2        CHANGE CP
01380  M02S01221.273l780 ---|
01381  M02S01222.273l780 ---| CCP1     LDM    CCPB
Line S00067 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01382  M02S00067.273l780 ---|          LDM    CCPA
Line S01223 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01383  M01S01223.273l780 ---|          SHN    -7          SAVE NEW CONTROL NUMBER
Line S01224 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01384  M02S01224.273l780 ---| CCP2     STD    T1
Line S00068 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01385  M02S00068.273l780 ---|          STD    T1
Line S01225 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01386  M02S01225.273l780 ---| CCP3     LDD    T1
Line S00069 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01387  M02S00069.273l780 ---| CCP1     LDD    T1
Line S01226 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01388  M01S01226.273l780 ---|          STD    CM+1
01389  M01S01227.273l780 ---|          MONITOR  CCAM      CHANGE CP
01390  M01S01228.273l780 ---|          LDD    CM+1
Line S01229 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01391  M02S01229.273l780 ---|          ZJP    CCP4        IF CHANGE MADE
Line S00070 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01392  M02S00070.273l780 ---|          ZJP    CCP2        IF CHANGE MADE
Line S01230 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01393  M01S01230.273l780 ---|          PAUSE
01394  M01S01231.273l780 ---|          LDD    CM+1
Line S01232 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01395  M02S01232.273l780 ---|          ZJP    CCP3        IF ERROR FLAG NOT SET
Line S00071 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01396  M02S00071.273l780 ---|          ZJP    CCP1        IF ERROR FLAG NOT SET
Line S01233 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01397  M01S01233.273l780 ---|          LMN    ORET
Line S01234 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01398  M02S01234.273l780 ---|          NJP    CCP3        IF NOT OVERRIDE ERROR TYPE
Line S00072 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01399  M02S00072.273l780 ---|          NJP    CCP1        IF NOT OVERRIDE ERROR TYPE
Line S01235 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01400  M01S01235.273l780 ---|          LJM    DPP         DROP PP
01401  M01S01236.273l780 ---|
Line S01237 Modification History
M01 (Removed by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01402  M02S01237.273l780 ---| CCPA     CON    0           SUBSYSTEM CONTROL POINT NUMBER
01403  M02S01238.273l780 ---| CCPB     CON    0           CALLER-S CP ADDRESS
Line S00073 Modification History
M01 (Added by) tlx14
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01404  M02S00073.273l780 ---|
01405  M02S00074.273l780 ---| CCPA     CON    0           CALLER-S CP ADDRESS
Line S00009 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01406  M01S00009.273l780 +++|          MONITOR  CCAM      CLEAR ALTERNATE CP ASSIGNMENT
01407  M01S00010.273l780 +++|          UJN    CCPX        RETURN
01408  M00S01239.tlx     +++| CKA      SPACE  4,10
01409  M00S01240.tlx     +++|**        CKA - CHECK ADDRESS.
01410  M00S01241.tlx     +++|*
01411  M00S01242.tlx     +++|*         THIS ROUTINE CALCULATES THE ABSOLUTE ADDRESS FROM THE
01412  M00S01243.tlx     +++|*         RELATIVE ADDRESS IN IR+3 - IR+4.
01413  M00S01244.tlx     +++|*
01414  M00S01245.tlx     +++|*         ENTRY  (IR+3 - IR+4) = ADDRESS.
01415  M00S01246.tlx     +++|*                (T1) = WORD COUNT MINUS ONE.
01416  M00S01247.tlx     +++|*
01417  M00S01248.tlx     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
01418  M00S01249.tlx     +++|
01419  M00S01250.tlx     +++|
01420  M00S01251.tlx     +++| CKA2     LDD    IR+3        LOAD ABSOLUTE ADDRESS
01421  M00S01252.tlx     +++|          SHN    6
01422  M00S01253.tlx     +++|          ADD    RA
01423  M00S01254.tlx     +++|          SHN    6
01424  M00S01255.tlx     +++|          ADD    IR+4
01425  M00S01256.tlx     +++|
01426  M00S01257.tlx     +++| CKA      SUBR               ENTRY/EXIT
01427  M00S01258.tlx     +++|          LDD    IR+3
01428  M00S01259.tlx     +++|          SCN    37
01429  M00S01260.tlx     +++|          NJN    CKA1        IF OUT OF RANGE
01430  M00S01261.tlx     +++|          LDD    IR+3
01431  M00S01262.tlx     +++|          SHN    14
01432  M00S01263.tlx     +++|          LMD    IR+4
01433  M00S01264.tlx     +++|          ADD    T1
01434  M00S01265.tlx     +++|          SHN    -6
01435  M00S01266.tlx     +++|          SBD    FL
01436  M00S01267.tlx     +++|          MJN    CKA2        IF < FL - WORD COUNT
01437  M00S01268.tlx     +++| CKA1     ABORT  ERAE        *TLX - ARGUMENT ERROR*
01438  M00S01269.tlx     +++| CLF      SPACE  4,15
01439  M00S01270.tlx     +++|**        CLF - CREATE LOCAL FNT ENTRY.
01440  M00S01271.tlx     +++|*
01441  M00S01272.tlx     +++|*         ENTRY  (TWFA) = CALLER EJT ORDINAL.
01442  M00S01273.tlx     +++|*
01443  M00S01274.tlx     +++|*         EXIT   (CN) = FNT ORDINAL IF ENTRY CREATED.
01444  M00S01275.tlx     +++|*                (T1 - T4) = FILE NAME.
01445  M00S01276.tlx     +++|*                TO ERROR PROCESSOR IF NO NFL AVAILABLE OR
01446  M00S01277.tlx     +++|*                FILE LIMIT.
01447  M00S01278.tlx     +++|*
01448  M00S01279.tlx     +++|*         USES   T1 - T6, CM - CM+4.
01449  M00S01280.tlx     +++|*
01450  M00S01281.tlx     +++|*         MACROS ERROR, MONITOR, SFA.
01451  M00S01282.tlx     +++|
01452  M00S01283.tlx     +++|
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 -
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/tlx.txt ยท Last modified: (external edit)