User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1tm

Deck 1TM

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1tm     +++|          IDENT  1TM,FWA
00002  M01S00002.1tm     +++|          TITLE  1TM - RDF TWO-PORT MULTIPLEXER DRIVER.
00003  M01S00003.1tm     +++|          PERIPH
00004  M01S00004.1tm     +++|          BASE   MIXED
Line S00005 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2149  ---|          SST
00006  M01S00001.ns2149  +++|          SST    SSCP
Line S00006 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.ns22000 ---|*COMMENT  1TM - TWO-PORT MULITPLEXER DRIVER.
00008  M01S00001.ns22000 +++|*COMMENT  1TM - TWO-PORT MULTIPLEXER DRIVER.
Line S00007 Modification History
M01 (Added by) 1tm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00008.1tm     +++| ITM      SPACE  4,10
00012  M01S00009.1tm     +++|***       1TM - TWO-PORT MULTIPLEXER DRIVER.
00013  M01S00010.1tm     +++|*
00014  M01S00011.1tm     +++|*         P. D. FARRELL      81/11/18.
00015  M01S00012.1tm     +++| ITM      SPACE  4,10
00016  M01S00013.1tm     +++|***       *1TM* PROVIDES THE PPU INTERFACE BETWEEN THE
00017  M01S00014.1tm     +++|*         REMOTE DIAGNOSTIC FACILITY, *RDF*, AND THE
00018  M01S00015.1tm     +++|*         CYBER 170-8X5 TWO-PORT MULTIPLEXER.
00019  M01S00016.1tm     +++|*
00020  M01S00017.1tm     +++|*         *1TM* COMMUNICATES WITH THE TWO-PORT MULTIPLEXER
Line S00018 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00018.242l642 ---|*         AND WITH THE *RDF* CPU INTERFACE, EITHER *RAF*
00022  M01S00001.242l642 +++|*         AND WITH THE *RDF* CPU INTERFACE, EITHER *RDF*
00023  M01S00019.1tm     +++|*         OR *IAF*.
00024  M01S00020.1tm     +++| ITM      SPACE  4,10
00025  M01S00021.1tm     +++|***       PROGRAM CALL -
00026  M01S00022.1tm     +++|*
Line S00023 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00023.242l642 ---|*T, IR    18/*1TM*, 18/0, 12/RTS, 12/CTL WD PTR
Figure IR

01112232429CTL WD PTRRTS0304142590*1TM*

00028  M01S00002.242l642 +++|*T IR     18/*1TM*, 6/0, 12/RCC, 12/RTS, 12/CTL WD PTR
Figure IR

01112232429CTL WD PTRRTSRCC303536414259RCC0*1TM*

00029  M01S00003.242l642 +++|*
00030  M01S00004.242l642 +++|*                RCC = RECALL CONTROL.
00031  M01S00005.242l642 +++|*                    = 0, IF NOT PP RECALL AND NOT *2TM* CALL.
00032  M01S00006.242l642 +++|*                    = 10/EQ, 1/S, 1/P, IF PP RECALL OR *2TM* CALL.
00033  M01S00007.242l642 +++|*                      EQ = RESERVED EQUIPMENT NUMBER.
00034  M01S00008.242l642 +++|*                      S = 1, IF PORT CURRENTLY IS RESERVED FOR
00035  M01S00009.242l642 +++|*                          *1TM*.
00036  M01S00010.242l642 +++|*                      P = PORT NUMBER.
00037  M01S00024.1tm     +++|*
00038  M01S00025.1tm     +++|*                RTS = REAL-TIME CLOCK (SECONDS) AT START
00039  M01S00026.1tm     +++|*                      OF DRIVER INACTIVITY TIME-OUT.
00040  M01S00027.1tm     +++|*                    = 0 ON INITIAL CALL OR ON EXECUTIVE
00041  M01S00028.1tm     +++|*                      RECALL.
00042  M01S00029.1tm     +++|*
00043  M01S00030.1tm     +++|*                CTL WD PTR = POINTER TO DRIVER CONTROL WORD
00044  M01S00031.1tm     +++|*                             IN CM EXECUTIVE TABLE *VDRL*.
00045  M01S00032.1tm     +++|*
00046  M01S00033.1tm     +++|*
00047  M01S00034.1tm     +++|*         (DRIVER CONTROL WORD) = ON INITIAL DRIVER CALL -
00048  M01S00035.1tm     +++|*
00049  M01S00036.1tm     +++|*T,              12/0, 24/ DRIVER NAME (*1TM*), 24/0
Figure

02324290 DRIVER NAME (*1TM*)30474859 DRIVER NAME (*1TM*)0

00050  M01S00037.1tm     +++|*
00051  M01S00038.1tm     +++|*         (DRIVER CONTROL WORD) = ON DRIVER RECALL OR ON
00052  M01S00039.1tm     +++|*                                 EXECUTIVE RECALL -
00053  M01S00040.1tm     +++|*
00054  M01S00041.1tm     +++|*T,              12/IL, 24/SA, 12/TC, 12/TN.
Figure

01112232429TN.TCSA30474859SAIL

00055  M01S00042.1tm     +++|*
00056  M01S00043.1tm     +++|*                            IL = DRIVER INTERLOCK.
00057  M01S00044.1tm     +++|*                            SA = DRIVER STACK ADDRESS.
00058  M01S00045.1tm     +++|*                            TC = DRIVER TERMINAL COUNT.
00059  M01S00046.1tm     +++|*                            TN = TERMINAL NUMBER OF DRIVER PORT.
00060  M01S00047.1tm     +++|*
00061  M01S00048.1tm     +++|*         AFTER INITIALIZATION, *1TM* WILL WAIT FOR FOUR SECONDS
00062  M01S00049.1tm     +++|*         FOR TERMINAL LOGIN.  IF THE TERMINAL DOES NOT ATTEMPT
00063  M01S00050.1tm     +++|*         TO LOGIN WITHIN FOUR SECONDS, *1TM* WILL DROP FROM
00064  M01S00051.1tm     +++|*         THE PPU AND RETURN VIA PPU RECALL AFTER 5 SECONDS.
00065  M01S00052.1tm     +++|*
00066  M01S00053.1tm     +++|*         IF THE USER HAS NOT ATTEMPTED TO LOGIN WITHIN 15
00067  M01S00054.1tm     +++|*         MINUTES, *1TM* WILL DROP FROM THE PPU WITHOUT RE-
00068  M01S00055.1tm     +++|*         CALLING ITSELF UNLESS THE *DEDICATED RDF* FLAG IS
00069  M01S00056.1tm     +++|*         SET.  IF THE *DEDICATED RDF* FLAG IS SET, *1TM* WILL
00070  M01S00057.1tm     +++|*         CONTINUE TO LOOK FOR LOGIN FOR 4 SECONDS AND DROP
00071  M01S00058.1tm     +++|*         FOR 5 SECONDS.
00072  M01S00059.1tm     +++|*
00073  M01S00060.1tm     +++|*         ONCE *1TM* HAS DROPPED FROM THE PPU AFTER 15 MINUTES
00074  M01S00061.1tm     +++|*         OF NO TERMINAL ACTIVITY, *1TM* MUST BE REACTIVATED
00075  M01S00062.1tm     +++|*         BY ENTERING THE *DSD* CONSOLE COMMAND TO REQUEST
00076  M01S00063.1tm     +++|*         THAT *RDF* RESTART *1TM* (EXECUTIVE RECALL).
00077  M01S00064.1tm     +++|          SPACE  4,15
00078  M01S00065.1tm     +++|***       OPERATOR TERMINAL CONTROL.
00079  M01S00066.1tm     +++|*
00080  M01S00067.1tm     +++|*
Line S00068 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00068.242l642 ---|*         *1TM* TERMINAL PROTOCOL IS IDENTICAL TO TELEX AND
Line S00069 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00069.242l642 ---|*         TO IAF STIMULATOR PROTOCOL.  IN GENERAL, ALL INPUT
Line S00070 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00070.242l642 ---|*         AND OUTPUT IS PROCESSED ON A LINE-BY-LINE BASIS AND
00084  M01S00011.242l642 +++|*         EXCEPT FOR THE TOGGLE FUNCTION OF THE *F7* KEY OF A CDC
00085  M01S00012.242l642 +++|*         721 TERMINAL (SEE ITEM 7 BELOW), *1TM* TERMINAL PROTOCOL
00086  M01S00013.242l642 +++|*         IS IDENTICAL TO IAF STIMULATOR PROTOCOL.  IN GENERAL, ALL
00087  M01S00014.242l642 +++|*         INPUT AND OUTPUT IS PROCESSED ON A LINE-BY-LINE BASIS AND
00088  M01S00071.1tm     +++|*         THE UNIT OF INPUT IS THE LOGICAL LINE.
00089  M01S00072.1tm     +++|*
00090  M01S00073.1tm     +++|*         (1)    TO LOGIN, POWER UP THE TERMINAL IF HARDWIRED
00091  M01S00074.1tm     +++|*                OR DIAL-IN IF DIAL UP LINE, THEN ENTER THE
00092  M01S00075.1tm     +++|*                CHARACTER *B* IF BLOCK-EDIT TERMINAL OR *CR*
00093  M01S00076.1tm     +++|*                IF NOT.  IF THE CENTRAL SITE DOES NOT REPLY
00094  M01S00077.1tm     +++|*                IMMEDIATELY WITH THE LOGIN MESSAGE, WAIT ONE
00095  M01S00078.1tm     +++|*                OR TWO SECONDS AND TRY AGAIN.
00096  M01S00079.1tm     +++|*
00097  M01S00080.1tm     +++|*         (2)    TO COMPLETE AN INPUT LINE, DEPRESS THE *RETURN*
00098  M01S00081.1tm     +++|*                KEY.  IT IS NOT NECESSARY TO ENTER A *LINE
00099  M01S00082.1tm     +++|*                FEED* SINCE THE DRIVER WILL SUPPLY ONE.
00100  M01S00083.1tm     +++|*
00101  M01S00084.1tm     +++|*         (3)    TO DELETE OR IGNORE AN INPUT LINE, ENTER
00102  M01S00085.1tm     +++|*                *ESC*.  THE DRIVER WILL DISCARD THE LINE
00103  M01S00086.1tm     +++|*                AND WILL REPLY WITH THE MESSAGE *DEL*.
00104  M01S00087.1tm     +++|*
00105  M01S00088.1tm     +++|*         (4)    TO DELETE A PREVIOUSLY ENTERED CHARACTER,
00106  M01S00089.1tm     +++|*                DEPRESS THE *BACKSPACE* CHARACTER (LEFT
00107  M01S00090.1tm     +++|*                ARROW ON SOME KEYBOARDS).
00108  M01S00091.1tm     +++|*
00109  M01S00092.1tm     +++|*         (5)    TO TERMINATE OUTPUT, DEPRESS THE *BREAK* KEY
00110  M01S00093.1tm     +++|*                OR THE *S* KEY.
00111  M01S00094.1tm     +++|*
00112  M01S00095.1tm     +++|*         (6)    TO INTERRUPT OUTPUT, DEPRESS THE *I* KEY.
00113  M01S00096.1tm     +++|*                OUTPUT MAY BE RESUMED BY ENTERING *P*
00114  M01S00097.1tm     +++|*                FOLLOWED BY *RETURN*.
00115  M01S00015.242l642 +++|*
00116  M01S00016.242l642 +++|*         (7)    TO TOGGLE TO ANOTHER TWO PORT MUX DRIVER (*MDD*
00117  M01S00017.242l642 +++|*                OR *SCD*) WHICH HAS ALREADY BEEN BROUGHT UP ON
00118  M01S00018.242l642 +++|*                THE PORT USED BY *1TM*, DEPRESS THE *F7* KEY
00119  M01S00019.242l642 +++|*                ON A CDC 721 TERMINAL.  NOTE THAT THIS SHARING
00120  M01S00020.242l642 +++|*                CAPABILITY DOES NOT EXIST ON A CYBER 170-865/875.
00121  M01S00098.1tm     +++|          SPACE  4,15
00122  M01S00099.1tm     +++|***       DAYFILE MESSAGES -
00123  M01S00100.1tm     +++|*
00124  M01S00101.1tm     +++|*
00125  M01S00102.1tm     +++|*         * 1TM - RDF TIME-OUT.*
00126  M01S00103.1tm     +++|*                THIS MESSAGE INDICATES THAT NO TERMINAL ACTIVITY
00127  M01S00104.1tm     +++|*                HAS OCCURRED FOR 15 MINUTES (ASSEMBLY PARAMETER)
00128  M01S00105.1tm     +++|*                AND THAT *RDF* IS NOT IN *DEDICATED* MODE.  *1TM*
00129  M01S00106.1tm     +++|*                HAS DROPPED FROM THE PPU WITHOUT RECALL AND HAS
Line S00107 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00107.242l642 ---|*                SIGNALLED DRIVER-DROP TO *RAF*.
00131  M01S00021.242l642 +++|*                SIGNALLED DRIVER-DROP TO *RDF*.
00132  M01S00108.1tm     +++|*
00133  M01S00109.1tm     +++|*         * 1TM - NO TPM RESPONSE.*
00134  M01S00110.1tm     +++|*                THE TWO-PORT MULTIPLEXER FAILED TO RESPOND
00135  M01S00111.1tm     +++|*                TO A STATUS REQUEST FUNCTION.
00136  M01S00112.1tm     +++|*
Line S00113 Modification History
M01 (Added by) 1tm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00113.v23l617 ---|*         * 1TM - NOT CYBER 170-8X5.*
Line S00114 Modification History
M01 (Added by) 1tm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00114.v23l617 ---|*                THE MAINFRAME IS NOT A CYBER 170-8X5.
00139  M01S00001.v23l617 +++|*         * 1TM - RDF CANNOT BE RUN ON MAINFRAME.*
00140  M01S00002.v23l617 +++|*                THE MAINFRAME DOES NOT HAVE THE NECESSARY HARDWARE
00141  M01S00003.v23l617 +++|*                TO SUPPORT USAGE OF *RDF*.
00142  M01S00115.1tm     +++|*
00143  M01S00116.1tm     +++|*         * 1TM - NO TPM AVAILABLE.*
00144  M01S00117.1tm     +++|*                EITHER THERE IS NO TWO-PORT MULTIPLEXER AVAILABLE
00145  M01S00118.1tm     +++|*                IN THE EQUIPMENT STATUS TABLE OR THE MULTIPLEXER
00146  M01S00119.1tm     +++|*                CHANNEL IS NOT AVAILABLE.
00147  M01S00120.1tm     +++|*
00148  M01S00121.1tm     +++|*         * 1TM - RMEEE CXX PNN FYYYY REJECT.*
Line S00122 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00122.ns22000 ---|*                TWO-PORT MULTIPLEXER, EQUIPMENT NUMBER *EEE*,
00150  M01S00002.ns22000 +++|*                TWO-PORT MULTIPLEXER, EST ORDINAL *EEE*,
00151  M01S00123.1tm     +++|*                CHANNEL NUMBER *XX*, PORT NUMBER *NN*, HAS
00152  M01S00124.1tm     +++|*                REJECTED FUNCTION *YYYY.
00153  M01S00125.1tm     +++|*
00154  M01S00126.1tm     +++|*         * 1TM - RDF TERMINATED.*
00155  M01S00127.1tm     +++|*                *RDF* IS NOT ENABLED.  *1TM* WILL ISSUE THIS
00156  M01S00128.1tm     +++|*                MESSAGE, THEN DROP AFTER SIGNALLING DRIVER DROP
Line S00129 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00129.242l642 ---|*                TO *RAF*.  *1TM* MAY BE RESTARTED BY ENABLING
00158  M01S00022.242l642 +++|*                TO *RDF*.  *1TM* MAY BE RESTARTED BY ENABLING
00159  M01S00130.1tm     +++|*                *RDF* AND BY ENTERING THE CONSOLE COMMAND TO
00160  M01S00131.1tm     +++|*                RESTART *1TM*.
Line S00004 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00004.242l642 ---|*
Line S00005 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00005.242l642 ---|*         * 1TM - RDF ATTEMPT TO USE CONSOLE PORT.*
Line S00006 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00006.242l642 ---|*                A CDC 721 IS BEING USED AS THE SYSTEM CONSOLE
Line S00007 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00007.242l642 ---|*                AND AN ATTEMPT WAS MADE TO BRING UP *RDF* ON
Line S00008 Modification History
M01 (Added by) v23l617
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00008.242l642 ---|*                THE PORT USED BY THE CONSOLE.  THIS IS NOT ALLOWED.
00166  M01S00132.1tm     +++| ITM      SPACE  4,15
00167  M01S00133.1tm     +++|***       ERROR LOG MESSAGES -
00168  M01S00134.1tm     +++|*
00169  M01S00135.1tm     +++|*
00170  M01S00136.1tm     +++|*         * RMEEE CXX PNN FYYYY REJECT.*
Line S00137 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00137.ns22000 ---|*                TWO-PORT MULTIPLEXER, EQUIPMENT NUMBER *EEE*,
00172  M01S00003.ns22000 +++|*                TWO-PORT MULTIPLEXER, EST ORDINAL *EEE*,
00173  M01S00138.1tm     +++|*                CHANNEL NUMBER *XX*, PORT NUMBER *NN*, HAS
00174  M01S00139.1tm     +++|*                REJECTED FUNCTION *YYYY.
00175  M01S00140.1tm     +++|*
00176  M01S00141.1tm     +++|*         * RDF CARRIER LOST.*
00177  M01S00142.1tm     +++|*                INDICATES THAT THE CARRIER HAS DROPPED ON AN
00178  M01S00143.1tm     +++|*                ACTIVE TERMINAL.  THE TERMINAL IS IMMEDIATELY
00179  M01S00144.1tm     +++|*                LOGGED OUT WHEN THIS OCCURS.
00180  M01S00145.1tm     +++|*
00181  M01S00146.1tm     +++|*         * RDF INITIATED.*
00182  M01S00147.1tm     +++|*                ISSUED WHEN TERMINAL INITATES LOGIN.
00183  M01S00148.1tm     +++|*
00184  M01S00149.1tm     +++|*         * RDF TERMINATED.*
00185  M01S00150.1tm     +++|*                *RDF* IS NOT ENABLED.  *1TM* WILL ISSUE THIS
00186  M01S00151.1tm     +++|*                MESSAGE, THEN DROP AFTER SIGNALLING DRIVER DROP
Line S00152 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00152.242l642 ---|*                TO *RAF*.  *1TM* MAY BE RESTARTED BY ENABLING
00188  M01S00023.242l642 +++|*                TO *RDF*.  *1TM* MAY BE RESTARTED BY ENABLING
00189  M01S00153.1tm     +++|*                *RDF* AND BY ENTERING THE CONSOLE COMMAND TO
00190  M01S00154.1tm     +++|*                RESTART *1TM*.
00191  M01S00155.1tm     +++|*
00192  M01S00156.1tm     +++|*         * RDF TIME-OUT.*
00193  M01S00157.1tm     +++|*                THIS MESSAGE ACCOMPANIES THE * 1TM - RDF
00194  M01S00158.1tm     +++|*                TIME-OUT.* DAYFILE MESSAGE AND INDICATES THAT NO
00195  M01S00159.1tm     +++|*                TEMINAL ACTIVITY HAS OCCURRED FOR 15 MINUTES
00196  M01S00160.1tm     +++|*                (ASSEMBLY PARAMETER) AND THAT *RDF* IS IS NOT IN
00197  M01S00161.1tm     +++|*                DEDICATED MODE.  *1TM* HAS DROPPED FROM THE PPU
00198  M01S00162.1tm     +++|*                WITHOUT RECALL AND HAS SIGNALLED DRIVER-DROP TO
Line S00163 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00163.242l642 ---|*                *RAF*.
00200  M01S00024.242l642 +++|*                *RDF*.
00201  M01S00164.1tm     +++| ITM      TITLE  INTERNAL DOCUMENTATION.
00202  M01S00165.1tm     +++| ITM      SPACE  4,40
00203  M01S00166.1tm     +++|**        TWO-PORT MULTIPLEXER FUNCTION CODES.
00204  M01S00167.1tm     +++|*
00205  M01S00168.1tm     +++|*         THE FOLLOWING IS A DESCIPTION OF TWO-PORT MULTIPLEXER
00206  M01S00169.1tm     +++|*         STATUS AND DATA FORMATS.
00207  M01S00170.1tm     +++|*
00208  M01S00171.1tm     +++|*
00209  M01S00172.1tm     +++|*         TWO-PORT MULTIPLEXER STATUS CODES-
00210  M01S00173.1tm     +++|*
00211  M01S00174.1tm     +++|*                BIT         DESCRIPTION
00212  M01S00175.1tm     +++|*                ---         -----------
00213  M01S00176.1tm     +++|*
00214  M01S00177.1tm     +++|*               11-5         NOT USED.
00215  M01S00178.1tm     +++|*                  4         OUTPUT BUFFER READY (NOT FULL).
00216  M01S00179.1tm     +++|*                  3         INPUT READY.
00217  M01S00180.1tm     +++|*                  2         CARRIER ON.
00218  M01S00181.1tm     +++|*                  1         DATA SET READY.
00219  M01S00182.1tm     +++|*                  0         RING INDICATOR.
00220  M01S00183.1tm     +++|*
00221  M01S00184.1tm     +++|*
00222  M01S00185.1tm     +++|*         TWO-PORT MULTIPLEXER MODE SELECTION FUNCTION CODES-
00223  M01S00186.1tm     +++|*
00224  M01S00187.1tm     +++|*                BIT         DESCRIPTION
00225  M01S00188.1tm     +++|*                ---         -----------
00226  M01S00189.1tm     +++|*
00227  M01S00190.1tm     +++|*               11-6         NOT USED.
00228  M01S00191.1tm     +++|*                  5         ENABLE LOOP-BACK.
00229  M01S00192.1tm     +++|*                  4         DISABLE PARITY.
00230  M01S00193.1tm     +++|*                  3         NUMBER OF STOP BITS-
00231  M01S00194.1tm     +++|*                                0 = 1 STOP BIT.
00232  M01S00195.1tm     +++|*                                1 = 2 STOP BITS.
00233  M01S00196.1tm     +++|*                2-1         DATA BITS PER CHARACTER-
00234  M01S00197.1tm     +++|*                               00 = 5 BITS.
00235  M01S00198.1tm     +++|*                               01 = 6 BITS.
00236  M01S00199.1tm     +++|*                               10 = 7 BITS.
00237  M01S00200.1tm     +++|*                               11 = 8 BITS.
00238  M01S00201.1tm     +++|*                  0         PARITY-
00239  M01S00202.1tm     +++|*                                0 = ODD PARITY.
00240  M01S00203.1tm     +++|*                                1 = EVEN PARITY.
00241  M01S00204.1tm     +++|*
00242  M01S00205.1tm     +++|*
00243  M01S00206.1tm     +++|*         INPUT DATA BYTE FORMAT-
00244  M01S00207.1tm     +++|*
00245  M01S00208.1tm     +++|*                BIT         DESCRIPTION
00246  M01S00209.1tm     +++|*                ---         -----------
00247  M01S00210.1tm     +++|*
00248  M01S00211.1tm     +++|*                 11         DATA SET READY.
00249  M01S00212.1tm     +++|*                 10         DATA SET READY .AND. CARRIER ON.
00250  M01S00213.1tm     +++|*                  9         LOST DATA.
00251  M01S00214.1tm     +++|*                  8         FRAMING ERROR OR PARITY ERROR.
00252  M01S00215.1tm     +++|*                7-0         DATA BITS.
00253  M01S00216.1tm     +++|*
00254  M01S00217.1tm     +++|*
00255  M01S00218.1tm     +++|*         OUTPUT DATA BYTE FORMAT-
00256  M01S00219.1tm     +++|*
00257  M01S00220.1tm     +++|*                BIT         DESCRIPTION
00258  M01S00221.1tm     +++|*                ---         -----------
00259  M01S00222.1tm     +++|*
00260  M01S00223.1tm     +++|*               11-8         NOT USED.
00261  M01S00224.1tm     +++|*                  7         DATA PARITY.
00262  M01S00225.1tm     +++|*                6-0         DATA BITS (LEAST SIGNIFICANT DATA BIT
00263  M01S00226.1tm     +++|*                            IN BIT POSITION 0).
00264  M01S00227.1tm     +++| ITM      SPACE  4,25
00265  M01S00228.1tm     +++|**        TWO-PORT MULTIPLEXER EST ENTRY.
00266  M01S00229.1tm     +++|*
00267  M01S00230.1tm     +++|*         THE FORMAT OF THE TWO-PORT MULTIPLEXER EQUIPMENT STATUS
00268  M01S00231.1tm     +++|*         TABLE ENTRY IS AS SHOWN BELOW.
00269  M01S00232.1tm     +++|*
00270  M01S00233.1tm     +++|*T EST    12/0, 12/CH, 12/0, 12/RM, 11/0, 1/N
Figure EST

011112232429N0RM03035364748590CH0

00271  M01S00234.1tm     +++|*
00272  M01S00235.1tm     +++|*                CH = CHANNEL NUMBER.
00273  M01S00236.1tm     +++|*
00274  M01S00237.1tm     +++|*                RM = MNEMONIC *RM*.
00275  M01S00238.1tm     +++|*
00276  M01S00239.1tm     +++|*                N  = PORT NUMBER, 0 OR 1.
00277  M01S00240.1tm     +++|*
00278  M01S00241.1tm     +++|*
Line S00242 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00242.ns22000 ---|*         THE FORMAT OF THE CMRDECK ENTRY FOR THE TWO-PORT
00280  M01S00004.ns22000 +++|*         THE FORMAT OF THE *EQPDECK* ENTRY FOR THE TWO-PORT
00281  M01S00243.1tm     +++|*         MULTIPLEXER IS AS SHOWN BELOW.
00282  M01S00244.1tm     +++|*
Line S00245 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00245.ns22000 ---|*         *EQ*NN=*RM*,ST,,PN,CH
00284  M01S00005.ns22000 +++|*         EQXXX=RM,ST=ON/OFF,CH=NN,PT=N.
00285  M01S00246.1tm     +++|*
00286  M01S00247.1tm     +++|*                *EQ* = MNEMONIC *EQ*.
00287  M01S00248.1tm     +++|*
00288  M01S00249.1tm     +++|*                *RM* = MNEMONIC *RM*.
00289  M01S00250.1tm     +++|*
00290  M01S00251.1tm     +++|*                ST   = STATUS, *ON* OR *OFF*.
00291  M01S00252.1tm     +++|*
00292  M01S00253.1tm     +++|*                PN   = PORT NUMBER, *0* OR *1*.
00293  M01S00254.1tm     +++|*
00294  M01S00255.1tm     +++|*                CH   = CHANNEL NUMBER.
00295  M01S00256.1tm     +++|*
Line S00257 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00257.ns22000 ---|*         EXAMPLES -
Line S00258 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00258.ns22000 ---|*
Line S00259 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00259.ns22000 ---|*         EQ50=RM,ON,0,0,15.
Line S00260 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00260.ns22000 ---|*              (OR)
Line S00261 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00261.ns22000 ---|*         EQ50=RM,ON,,,15.
Line S00262 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00262.ns22000 ---|*
Line S00263 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00302  M02S00263.ns22000 ---|*                THE ABOVE ENTRY DEFINES EQUIPMENT NUMBER 50
Line S00264 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00264.ns22000 ---|*                AS A TWO-PORT MULTIPLEXER ON CHANNEL NUMBER
Line S00265 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00265.ns22000 ---|*                15, PORT NUMBER 0, STATUS *ON*.
00305  M01S00006.ns22000 +++|*         EXAMPLE -
00306  M01S00007.ns22000 +++|*
00307  M01S00008.ns22000 +++|*         EQ765=RM,ST=ON,CH=15,PT=0.
00308  M01S00009.ns22000 +++|*
00309  M01S00010.ns22000 +++|*                THE ABOVE ENTRY DEFINES EST ORDINAL 765 AS PORT 0 OF
00310  M01S00011.ns22000 +++|*                THE TWO-PORT MULTIPLEXER, LOGICALLY *ON* IN THE EST.
00311  M01S00266.1tm     +++| ITM      TITLE  TERMINAL TABLE USAGE.
00312  M01S00267.1tm     +++| ITM      SPACE  4,25
00313  M01S00268.1tm     +++|**        *1TM* TERMINAL TABLE USAGE.
00314  M01S00269.1tm     +++|*
Line S00270 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00270.242l642 ---|*         *1TM* USES THE *RAF* TERMINAL TABLE IN THE SAME
00316  M01S00025.242l642 +++|*         *1TM* USES THE *RDF* TERMINAL TABLE IN THE SAME
00317  M01S00271.1tm     +++|*         MANNER AS DOES THE 6671/6676 MULTIPLEXER DRIVER,
00318  M01S00272.1tm     +++|*         *1TD*, WITH THE EXCEPTION THAT TERMINAL TYPES
00319  M01S00273.1tm     +++|*         ARE NOT SIGNIFICANT (SINCE ONLY ONE TERMINAL TYPE
00320  M01S00274.1tm     +++|*         AND ONE TRANSLATION TABLE ARE SUPPORTED).
00321  M01S00275.1tm     +++| VFST     SPACE  4,15
00322  M01S00276.1tm     +++|**        TERMINAL TABLE WORD *VFST*.
00323  M01S00277.1tm     +++|*
00324  M01S00278.1tm     +++|*         NOTE - ONLY THOSE FIELDS REFERENCED BY *1TM*
00325  M01S00279.1tm     +++|*         ARE DESCRIBED.
00326  M01S00280.1tm     +++|*
00327  M01S00281.1tm     +++|*T        12/FS, 12/FS+1, 12/FS+2, 12/FS+3, 12/FS+4
Figure

01112232429FS+4FS+3FS+2303536474859FS+2FS+1FS

00328  M01S00282.1tm     +++|*
00329  M01S00283.1tm     +++|*                FS   = 12/ UPPER 12 BITS OF JSN.
00330  M01S00284.1tm     +++|*
00331  M01S00285.1tm     +++|*                FS+1 = 12/ LOWER 12 BITS OF JSN.
00332  M01S00286.1tm     +++| VROT     SPACE  4,15
00333  M01S00287.1tm     +++|**        TERMINAL TABLE WORD *VROT*.
00334  M01S00288.1tm     +++|*
00335  M01S00289.1tm     +++|*         NOTE - ONLY THOSE FIELDS REFERENCED BY *1TM*
00336  M01S00290.1tm     +++|*         ARE DESCRIBED.
00337  M01S00291.1tm     +++|*
00338  M01S00292.1tm     +++|*T        12/RO, 12/RO+1, 12/RO+2, 12/RO+3, 12/RO+4
Figure

01112232429RO+4RO+3RO+2303536474859RO+2RO+1RO

00339  M01S00293.1tm     +++|*
00340  M01S00294.1tm     +++|*                RO+4 = JOB STATUS BITS -
00341  M01S00295.1tm     +++|*
00342  M01S00296.1tm     +++|*                            BIT       DESCRIPTION
00343  M01S00297.1tm     +++|*                            ---       -----------
00344  M01S00298.1tm     +++|*                              6       LIST IN PROGRESS.
00345  M01S00299.1tm     +++|*                              4       OUTPUT ON MASS STORAGE.
00346  M01S00300.1tm     +++|*                              0       JOB BUSY IF ZERO.
00347  M01S00301.1tm     +++| VDPT     SPACE  4,15
00348  M01S00302.1tm     +++|**        TERMINAL TABLE WORD *VDPT*.
00349  M01S00303.1tm     +++|*
00350  M01S00304.1tm     +++|*T        12/DP, 12/DP+1, 12/DP+2, 12/DP+3, 12/DP+4
Figure

01112232429DP+4DP+3DP+2303536474859DP+2DP+1DP

00351  M01S00305.1tm     +++|*
00352  M01S00306.1tm     +++|*                DP   = 12/ FIRST POT OF LINE.
00353  M01S00307.1tm     +++|*
00354  M01S00308.1tm     +++|*                DP+1 = 12/ CURRENT POT OF LINE.
00355  M01S00309.1tm     +++|*
00356  M01S00310.1tm     +++|*                DP+2 = 3/ FIRST WORD OF LINE IN FIRST POT.
00357  M01S00311.1tm     +++|*                       1/ INPUT INITIATED IF SET.
00358  M01S00312.1tm     +++|*                       1/ NEXT POT REQUESTED IF SET.
00359  M01S00313.1tm     +++|*                       3/ CURRENT WORD OF LINE IN CURRENT POT.
00360  M01S00314.1tm     +++|*                       4/ CURRENT CHARACTER OF LINE.
00361  M01S00315.1tm     +++|*
00362  M01S00316.1tm     +++|*                DP+3 = FLAG BITS -
00363  M01S00317.1tm     +++|*
00364  M01S00318.1tm     +++|*                            BIT       DESCRIPTION
00365  M01S00319.1tm     +++|*                            ---       -----------
00366  M01S00320.1tm     +++|*                           11-8       NOT USED.
00367  M01S00321.1tm     +++|*                              7       TERMINAL MODE-
00368  M01S00322.1tm     +++|*                                          0 = *TTY*.
00369  M01S00323.1tm     +++|*                                          1 = *BLKEDIT*.
00370  M01S00324.1tm     +++|*                              6       FULL DUPLEX.
00371  M01S00325.1tm     +++|*                            5-4       NOT USED.
00372  M01S00326.1tm     +++|*                              3       BINARY INPUT.
00373  M01S00327.1tm     +++|*                              2       TRANSPARENT INPUT MODE.
00374  M01S00328.1tm     +++|*                              1       EXTENDED MODE.
00375  M01S00329.1tm     +++|*                              0       ODD PARITY.
00376  M01S00330.1tm     +++|*
00377  M01S00331.1tm     +++|*                DP+4 = 12/ CURRENT REENTRY ADDRESS.
00378  M01S00332.1tm     +++| VCHT     SPACE  4,15
00379  M01S00333.1tm     +++|**        TERMINAL TABLE WORD *VCHT*.
00380  M01S00334.1tm     +++|*
00381  M01S00335.1tm     +++|*T        12/CH, 12/CH+1, 12/CH+2, 12/CH+3, 12/CH+4
Figure

01112232429CH+4CH+3CH+2303536474859CH+2CH+1CH

00382  M01S00336.1tm     +++|*
00383  M01S00337.1tm     +++|*                CH   = IF INPUT -
00384  M01S00338.1tm     +++|*                       12/ UPPER CHARACTER OF INPUT BYTE.
00385  M01S00339.1tm     +++|*                     = IF OUTPUT -
00386  M01S00340.1tm     +++|*                       12/ STACK FOR ROUTINE ADDRESS.
00387  M01S00341.1tm     +++|*
00388  M01S00342.1tm     +++|*                CH+1 = IF INPUT -
00389  M01S00343.1tm     +++|*                       12/ CHARACTER COUNT OF LINE.
00390  M01S00344.1tm     +++|*                     = IF OUTPUT -
00391  M01S00345.1tm     +++|*                       12/ SCRATCH.
00392  M01S00346.1tm     +++|*
00393  M01S00347.1tm     +++|*                CH+2 = IF INPUT -
00394  M01S00348.1tm     +++|*                       12/SCRATCH.
00395  M01S00349.1tm     +++|*                     = IF OUTPUT -
00396  M01S00350.1tm     +++|*                       12/ PARTIALLY PROCESSED CONTROL BYTE.
00397  M01S00351.1tm     +++|*
00398  M01S00352.1tm     +++|*                CH+3 = 12/ INPUT CHARACTER COUNT ACCUMULATOR.
00399  M01S00353.1tm     +++|*
00400  M01S00354.1tm     +++|*                CH+4 = 12/ OUTPUT CHARACTER COUNT ACCUMULATOR.
00401  M01S00009.v23l617 +++|*
00402  M01S00010.v23l617 +++|*         *VCHT* IS WRITTEN BY *IAF*/*RDF* DURING JOB RECOVERY AFTER
00403  M01S00011.v23l617 +++|*         SUSPENDING *1TM*.  *1TM* WAITS FOR INTERRUPT ACKNOWLEDGE
00404  M01S00012.v23l617 +++|*         BEFORE WRITING *VCHT*.
00405  M01S00355.1tm     +++| VDCT     SPACE  4,15
00406  M01S00356.1tm     +++|**        TERMINAL TABLE WORD *VDCT*.
00407  M01S00357.1tm     +++|*
00408  M01S00358.1tm     +++|*         NOTE - ONLY THOSE BITS AND FIELDS DIRECTLY USED BY *1TM*
00409  M01S00359.1tm     +++|*         ARE DESCRIBED.
00410  M01S00360.1tm     +++|*
00411  M01S00361.1tm     +++|*T        12/DC, 12/DC+1, 12/DC+2, 12/DC+3, 12/DC+4
Figure

01112232429DC+4DC+3DC+2303536474859DC+2DC+1DC

00412  M01S00362.1tm     +++|*
00413  M01S00363.1tm     +++|*                DC   = FLAG BITS -
00414  M01S00364.1tm     +++|*
00415  M01S00365.1tm     +++|*                            BIT       DESCRIPTION
00416  M01S00366.1tm     +++|*                            ---       -----------
00417  M01S00367.1tm     +++|*                             11       DRIVER REQUEST IN BYTE 4.
00418  M01S00368.1tm     +++|*                             10       INTERRUPT ACKNOWLEDGE.
00419  M01S00369.1tm     +++|*                              9       LOGGED IN.
00420  M01S00370.1tm     +++|*                              6       READ DATA.
00421  M01S00371.1tm     +++|*                              3       EXTENDED (ASCII 6/12) MODE.
00422  M01S00372.1tm     +++|*                              2       TEXT MODE.
00423  M01S00373.1tm     +++|*                              1       AUTO MODE.
00424  M01S00374.1tm     +++|*                              0       TAPE MODE.
00425  M01S00375.1tm     +++|*
00426  M01S00376.1tm     +++|*                DC+1 = CONTROL FIELDS -
00427  M01S00377.1tm     +++|*
00428  M01S00378.1tm     +++|*                            BIT       DESCRIPTION
00429  M01S00379.1tm     +++|*                            ---       -----------
00430  M01S00380.1tm     +++|*                            7-3       USER DELAY COUNT.
00431  M01S00381.1tm     +++|*                            2-0       FWA IN OUTPUT POT.
00432  M01S00382.1tm     +++|*
00433  M01S00383.1tm     +++|*                DC+3 = ACCESS CONTROL -
00434  M01S00384.1tm     +++|*
00435  M01S00385.1tm     +++|*                            BIT       DESCRIPTION
00436  M01S00386.1tm     +++|*                            ---       -----------
00437  M01S00387.1tm     +++|*                             10       NO TIME-OUT.
00438  M01S00388.1tm     +++|*
00439  M01S00389.1tm     +++|*                DC+4 = INTERLOCK BYTE.  IF NONZERO, ONLY *1TM*
Line S00390 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00390.242l642 ---|*                       MAY MODIFY *VDCT*.  IF ZERO, ONLY *RAF*
00441  M01S00026.242l642 +++|*                       MAY MODIFY *VDCT*.  IF ZERO, ONLY *RDF*
00442  M01S00391.1tm     +++|*                       MAY MODIFY *VDCT*.
00443  M01S00392.1tm     +++|*                     = 12/ DRIVER REQUEST IF BIT 2**11 OF BYTE
00444  M01S00393.1tm     +++|*                           0 IS SET,
00445  M01S00394.1tm     +++|*                     = 12/ OUTPUT POT IF BIT 2**11 OF BYTE
00446  M01S00395.1tm     +++|*                           0 IS NOT SET.
00447  M01S00396.1tm     +++| VSTT     SPACE  4,15
00448  M01S00397.1tm     +++|**        TERMINAL TABLE WORD *VSTT*.
00449  M01S00398.1tm     +++|*
00450  M01S00399.1tm     +++|*         NOTE - ONLY THOSE FIELDS REFERENCED BY *1TM*
00451  M01S00400.1tm     +++|*         ARE DESCRIBED.
00452  M01S00401.1tm     +++|*
00453  M01S00402.1tm     +++|*T        12/ST, 12/ST+1, 12/ST+2, 12/ST+3, 12/ST+4
Figure

01112232429ST+4ST+3ST+2303536474859ST+2ST+1ST

00454  M01S00403.1tm     +++|*
00455  M01S00404.1tm     +++|*                ST = FLAG BITS -
00456  M01S00405.1tm     +++|*
00457  M01S00406.1tm     +++|*                            BIT       DESCRIPTION
00458  M01S00407.1tm     +++|*                            ---       -----------
00459  M01S00408.1tm     +++|*                              8       DETACH IN PROGRESS.
00460  M01S00409.1tm     +++|*                              0       LOGOUT IN PROGRESS.
00461  M01S00410.1tm     +++|
00462  M01S00411.1tm     +++|          TITLE  DEFINITION COMMON DECKS.
00463  M01S00412.1tm     +++| ITM      SPACE  4,10
00464  M01S00413.1tm     +++|**        DEFINE *QUAL* BLOCK ORDER.
00465  M01S00414.1tm     +++|
00466  M01S00415.1tm     +++|
00467  M01S00416.1tm     +++|          QUAL   CTL         CONTROL BLOCK
00468  M01S00417.1tm     +++|          QUAL   RDM         READ MODE
00469  M01S00418.1tm     +++|          QUAL   WTM         WRITE MODE
00470  M01S00419.1tm     +++|          QUAL   TRN         TRANSLATION TABLES
00471  M01S00420.1tm     +++|          QUAL   TLX         DRIVER-TO-EXECUTIVE FUNCTIONS
00472  M01S00421.1tm     +++|          QUAL   1TD         EXECUTIVE-TO-DRIVER FUNCTIONS
00473  M01S00422.1tm     +++|          QUAL   MACRO$      MACRO CALLS
00474  M01S00423.1tm     +++|          QUAL
00475  M01S00424.1tm     +++| ITM      SPACE  4,10
00476  M01S00425.1tm     +++|**        DEFINITION COMMON DECKS.
00477  M01S00426.1tm     +++|
00478  M01S00427.1tm     +++|
00479  M01S00428.1tm     +++|*CALL     COMPMAC
Line S00429 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00429.ns2149  ---|*CALL     COMPCHI
00481  M01S00002.ns2149  +++|*CALL     COMPMRM
00482  M01S00430.1tm     +++|*CALL     COMSCPS
00483  M01S00003.ns2149  +++|*CALL     COMSIOU
00484  M01S00431.1tm     +++|*CALL     COMSPIM
00485  M01S00432.1tm     +++|*CALL     COMSREM
00486  M01S00001.v22l602 +++|*CALL     COMSSSD
00487  M01S00433.1tm     +++|*CALL     COMSTCM
00488  M01S00434.1tm     +++|          LIST   X
00489  M01S00435.1tm     +++|*CALL     COMSTDR
00490  M01S00436.1tm     +++|          LIST   *
00491  M01S00437.1tm     +++|          TITLE  MACRO DEFINITIONS.
00492  M01S00438.1tm     +++| ADCM     SPACE  4,10
00493  M01S00439.1tm     +++|**        ADCM - GENERATE ADD CONSTANT MACRO.
00494  M01S00440.1tm     +++|*
00495  M01S00441.1tm     +++|*         ADCM   OPC,TBL
00496  M01S00442.1tm     +++|*
00497  M01S00443.1tm     +++|*         ENTRY  *OPC* = MACRO NAME TO BE GENERATED.
00498  M01S00444.1tm     +++|*                *TBL* = TABLE NAME OF ADDRESSES OF MACRO CALLS.
00499  M01S00445.1tm     +++|*
00500  M01S00446.1tm     +++|*         MACROS MACREF.
00501  M01S00447.1tm     +++|
00502  M01S00448.1tm     +++|
00503  M01S00449.1tm     +++| ADCM     MACRO  OPC,TBL,INST
00504  M01S00450.1tm     +++| OPC      MACRO  CNST
00505  M01S00451.1tm     +++|          LOCAL  A
00506  M01S00452.1tm     +++|          MACREF OPC
00507  M01S00453.1tm     +++|          QUAL
00508  M01S00454.1tm     +++|          IFC    EQ,$INST$$
00509  M01S00455.1tm     +++| A        ADC    CNST
00510  M01S00456.1tm     +++|          ELSE   1
00511  M01S00457.1tm     +++| A        INST   CNST
00512  M01S00458.1tm     +++|          ENDIF
00513  M01S00459.1tm     +++|          QUAL   *
00514  M01S00460.1tm     +++| TBL      RMT
00515  M01S00461.1tm     +++|          CON    A
00516  M01S00462.1tm     +++| TBL      RMT
00517  M01S00463.1tm     +++| OPC      ENDM
00518  M01S00464.1tm     +++| ADCM     ENDM
00519  M01S00465.1tm     +++|
00520  M01S00466.1tm     +++|
00521  M01S00467.1tm     +++|*         DEFINE MACROS.
00522  M01S00468.1tm     +++|
00523  M01S00469.1tm     +++|
00524  M01S00470.1tm     +++|          ADCM   ADCRA,TRAA
00525  M01S00471.1tm     +++|          ADCM   LDCRA,TRAA,LDC
00526  M01S00472.1tm     +++|          ADCM   ADCTR,TTRA
00527  M01S00473.1tm     +++|          ADCM   ADCPT,TPTA
00528  M01S00474.1tm     +++|          ADCM   ADCPL,TPLA
00529  M01S00475.1tm     +++|          ADCM   LDCDQ,TDQA,LDC
00530  M01S00476.1tm     +++|          ADCM   LMCDQ,TDQA,LMC
00531  M01S00477.1tm     +++|          ADCM   ADCBM,TBMA
00532  M01S00478.1tm     +++|          ADCM   LDCTN,TTNA,LDC
00533  M01S00479.1tm     +++| ASCO     SPACE  4,10
00534  M01S00480.1tm     +++|**        ASCO - GENERATE MULTIPLEXER OUTPUT FOR *ASCII* CODE.
00535  M01S00481.1tm     +++|*
00536  M01S00482.1tm     +++|*NAME     ASCO   CH,EQU
00537  M01S00483.1tm     +++|*
00538  M01S00484.1tm     +++|*         ENTRY  *NAME* = NAME FOR ASSIGNMENT OF CODE.
00539  M01S00485.1tm     +++|*                *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00540  M01S00486.1tm     +++|*                *EQU* = ASSIGNMENT PSEUDO OP.
00541  M01S00487.1tm     +++|*
00542  M01S00488.1tm     +++|*         MACROS PAR.
00543  M01S00489.1tm     +++|
00544  M01S00490.1tm     +++|
00545  M01S00491.1tm     +++|          MACRO  ASCO,A,C,D
00546  M01S00492.1tm     +++|  NOREF .1
00547  M01S00493.1tm     +++|  PAR 0#_C,0
00548  M01S00494.1tm     +++|A D 4000+0#_C+.1*200
00549  M01S00495.1tm     +++| ASCO     ENDM
00550  M01S00496.1tm     +++| INASC    SPACE  4,10
00551  M01S00497.1tm     +++|**        INASC - GENERATE *ASCII* INPUT TRANSLATION.
00552  M01S00498.1tm     +++|*
00553  M01S00499.1tm     +++|*CH       INASC  DPC,PROC
00554  M01S00500.1tm     +++|*
00555  M01S00501.1tm     +++|*         ENTRY  *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00556  M01S00502.1tm     +++|*                *DPC* = DISPLAY CODE VALUE.
00557  M01S00503.1tm     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00558  M01S00504.1tm     +++|
00559  M01S00505.1tm     +++|
00560  M01S00506.1tm     +++|          MACRO  INASC,A,C,D
00561  M01S00507.1tm     +++|  NOREF .2,.3
00562  M01S00508.1tm     +++|  IFC NE,*C**
00563  M01S00509.1tm     +++|.2 SET D
00564  M01S00510.1tm     +++|.3 SET C/100
00565  M01S00511.1tm     +++|  IFNE .3,0,2
00566  M01S00512.1tm     +++|.2 SET D CES
00567  M01S00513.1tm     +++|.3 SET .3/2-74/2
00568  M01S00514.1tm     +++|   VFD 5/.2,1/.3,6/C-C/100*100
00569  M01S00515.1tm     +++|  ELSE 2
00570  M01S00516.1tm     +++|.2 SET D NLI
00571  M01S00517.1tm     +++|   VFD 5/.2,7/0
00572  M01S00518.1tm     +++| INASC    ENDM
00573  M01S00519.1tm     +++| JMP      SPACE  4,15
00574  M01S00520.1tm     +++|**        JMP - GENERATE THREADED JUMP.
00575  M01S00521.1tm     +++|*
00576  M01S00522.1tm     +++|*         JMP    ADDR
00577  M01S00523.1tm     +++|*
00578  M01S00524.1tm     +++|*         ENTRY  *ADDR* = BRANCH ADDRESS.
00579  M01S00525.1tm     +++|*
00580  M01S00526.1tm     +++|*         MACROS UJP.
00581  M01S00527.1tm     +++|
00582  M01S00528.1tm     +++|
00583  M01S00529.1tm     +++| JMP      MACRO  A
00584  M01S00530.1tm     +++|   NOREF ._A
00585  M01S00531.1tm     +++|.1 IF DEF,._A
Line S00532 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00532.242l642 ---|   IFLE *-._A,37B,1
Line S00533 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00533.242l642 ---|   UJN ._A
Line S00534 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00534.242l642 ---|   IFGE *-._A,40B,2
00589  M01S00027.242l642 +++|.2 IFLE *-._A,37B
00590  M01S00028.242l642 +++|  UJN ._A
00591  M01S00029.242l642 +++| ._A SET *-1
00592  M01S00030.242l642 +++|.2 ELSE
00593  M01S00535.1tm     +++| ._A SET *
00594  M01S00536.1tm     +++|  LJM A
00595  M01S00031.242l642 +++|.2 ENDIF
00596  M01S00537.1tm     +++|.1 ELSE
00597  M01S00538.1tm     +++| ._A SET *
00598  M01S00539.1tm     +++|   UJP A
00599  M01S00540.1tm     +++|.1 ENDIF
00600  M01S00541.1tm     +++| JMP      ENDM
00601  M01S00542.1tm     +++| OTASC    SPACE  4,10
00602  M01S00543.1tm     +++|**        OTASC - GENERATE *ASCII* OUTPUT TRANSLATION.
00603  M01S00544.1tm     +++|*
00604  M01S00545.1tm     +++|*DPC      OTASC  CH,PROC
00605  M01S00546.1tm     +++|*
00606  M01S00547.1tm     +++|*         ENTRY  *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00607  M01S00548.1tm     +++|*                *DPC* = DISPLAY CODE VALUE.
00608  M01S00549.1tm     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00609  M01S00550.1tm     +++|*
00610  M01S00551.1tm     +++|*         MACROS ASCO.
00611  M01S00552.1tm     +++|
00612  M01S00553.1tm     +++|
00613  M01S00554.1tm     +++|          MACRO  OTASC,A,C,D
00614  M01S00555.1tm     +++|  NOREF .2
00615  M01S00556.1tm     +++|  IFC NE,*C**
00616  M01S00557.1tm     +++|.2 ASCO C,SET
00617  M01S00558.1tm     +++|  CON .2
00618  M01S00559.1tm     +++|  ELSE 1
00619  M01S00560.1tm     +++|  CON D NLO
00620  M01S00561.1tm     +++| OTASC    ENDM
00621  M01S00562.1tm     +++| PAR      SPACE  4,10
00622  M01S00563.1tm     +++|**        PAR - GENERATE CHARACTER PARITY BIT.
00623  M01S00564.1tm     +++|*
00624  M01S00565.1tm     +++|*         PAR    CH,OE
00625  M01S00566.1tm     +++|*
00626  M01S00567.1tm     +++|*         ENTRY  *CH* = CHARACTER VALUE.
00627  M01S00568.1tm     +++|*                *OE* = ODD/EVEN (0=EVEN, 1=ODD)
00628  M01S00569.1tm     +++|*
00629  M01S00570.1tm     +++|*         EXIT   *.1* = PARITY.
00630  M01S00571.1tm     +++|
00631  M01S00572.1tm     +++|
00632  M01S00573.1tm     +++| PAR      MACRO  A,B
00633  M01S00574.1tm     +++|  NOREF .1
00634  M01S00575.1tm     +++|P MICRO A+1,1, 011010011001011010010110011010011001011001101001011010011
00635  M01S00576.1tm     +++|,00101101001011001101001011010011001011001101001100101101001011001101001
00636  M01S00577.1tm     +++|.1 SET "P"&;B
00637  M01S00578.1tm     +++| PAR      ENDM
00638  M01S00579.1tm     +++| RETURN   SPACE  4,10
00639  M01S00580.1tm     +++|**        RETURN - RETURN TO MANAGER TO ADVANCE TERMINAL PROCESSING.
00640  M01S00581.1tm     +++|*
00641  M01S00582.1tm     +++|*         RETURN  ADDR
00642  M01S00583.1tm     +++|*
00643  M01S00584.1tm     +++|*         ENTRY  *ADDR* = NEXT PROCESSSING ADDRESS.  IF NULL
00644  M01S00585.1tm     +++|*                         OR IF "*", RETURN TO NEXT PROGRAM
00645  M01S00586.1tm     +++|*                         ADDRESS.
00646  M01S00587.1tm     +++|*
00647  M01S00588.1tm     +++|*         MACROS JMP, MACREF.
00648  M01S00589.1tm     +++|
00649  M01S00590.1tm     +++|
00650  M01S00591.1tm     +++|          PURGMAC RETURN
00651  M01S00592.1tm     +++| RETURN   MACRO  A
00652  M01S00593.1tm     +++|  MACREF RETURN
00653  M01S00594.1tm     +++|.1 IFC EQ,$A$$
00654  M01S00595.1tm     +++|  RJM MGR$
00655  M01S00596.1tm     +++|.1 ELSE
00656  M01S00597.1tm     +++|.2 IFC EQ,$A$*$
00657  M01S00598.1tm     +++|  RJM MGR$
00658  M01S00599.1tm     +++|.2 ELSE
00659  M01S00600.1tm     +++|  LDC A
00660  M01S00601.1tm     +++|  JMP MGR=
00661  M01S00602.1tm     +++|.2 ENDIF
00662  M01S00603.1tm     +++|.1 ENDIF
00663  M01S00604.1tm     +++| RETURN   ENDM
00664  M01S00605.1tm     +++| TTADD    SPACE  4,10
00665  M01S00606.1tm     +++|**        TTADD - GENERATE TERMINAL TABLE ADDRESS.
00666  M01S00607.1tm     +++|*
00667  M01S00608.1tm     +++|*TAG      TTADD  NAM,OPR,TNUM
00668  M01S00609.1tm     +++|*
00669  M01S00610.1tm     +++|*         ENTRY  *NAM* = DESIRED WORD OF TERMINAL TABLE ENTRY.
00670  M01S00611.1tm     +++|*                *OPR* = OPERAND TO LOAD A. (IF NULL *LDD*)
00671  M01S00612.1tm     +++|*                *TNUM* = TAG NAME OF TERMINAL NUMBER. (IF NULL *TN*)
00672  M01S00613.1tm     +++|*
00673  M01S00614.1tm     +++|*         EXIT   (A) = DESIRED ADDRESS.
00674  M01S00615.1tm     +++|
00675  M01S00616.1tm     +++|
00676  M01S00617.1tm     +++|          MACRO  TTADD,TAG,NAM,OPR,TNUM
00677  M01S00618.1tm     +++|  LOCAL A
00678  M01S00619.1tm     +++|  MACREF TTADD
00679  M01S00620.1tm     +++|TAG  TTAP OPR,TNUM
00680  M01S00621.1tm     +++|  QUAL
00681  M01S00622.1tm     +++|A ADC NAM
00682  M01S00623.1tm     +++|  QUAL *
00683  M01S00624.1tm     +++|TTTA RMT
00684  M01S00625.1tm     +++|  CON A
00685  M01S00626.1tm     +++|TTTA RMT
00686  M01S00627.1tm     +++|TTADD     ENDM
00687  M01S00628.1tm     +++|          TITLE  SYMBOLIC EQUIVALENCES.
00688  M01S00629.1tm     +++|          SPACE  4,10
00689  M01S00630.1tm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00690  M01S00631.1tm     +++|
00691  M01S00632.1tm     +++|
00692  M01S00633.1tm     +++| DI       EQU    16          MULTIPLEXER INPUT DATA
00693  M01S00634.1tm     +++| DO       EQU    17          MULTIPLEXER OUTPUT DATA
00694  M01S00635.1tm     +++|
00695  M01S00636.1tm     +++| DP       EQU    20 - 24     TERMINAL TABLE WORD *VDPT*
00696  M01S00637.1tm     +++|*                            12/ FIRST POT OF CURRENT LINE
00697  M01S00638.1tm     +++|*                            12/ CURRENT POT OF CURRENT LINE
00698  M01S00639.1tm     +++|*                            12/ CURRENT WORD AND BYTE OF CURRENT POT
00699  M01S00640.1tm     +++|*                            12/ TERMINAL MODE FLAGS
00700  M01S00641.1tm     +++|*                            12/ DRIVER CONTROL ADDRESS
00701  M01S00642.1tm     +++|
00702  M01S00643.1tm     +++| CH       EQU    25 - 31     TERMINAL TABLE WORD *VCHT*
00703  M01S00644.1tm     +++|*                            12/ TEMPORARY STORAGE
00704  M01S00645.1tm     +++|*                            12/ LINE CHARACTER COUNT
00705  M01S00646.1tm     +++|*                            12/ PARTIALLY PROCESSED CONTROL BYTE
00706  M01S00647.1tm     +++|*                            12/ INPUT CHARACTER COUNT
00707  M01S00648.1tm     +++|*                            12/ OUTPUT CHARACTER COUNT
00708  M01S00649.1tm     +++|
00709  M01S00650.1tm     +++| DC       EQU    32 - 36     TERMINAL TABLE WORD *VDCT*
Line S00651 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00651.ns2149  ---| ST       EQU    37          MULTIPLEXER PORT STATUS
00711  M01S00004.ns2149  +++| RN       EQU    37          REGISTER NUMBER
00712  M01S00652.1tm     +++| LF       EQU    40          LINE ACTIVITY FLAG
00713  M01S00032.242l642 +++| F7       EQU    41          START OF *F7* SEQUENCE/NO TIME-OUT = 1
00714  M01S00653.1tm     +++| IN       EQU    42 - 46     CIRCULAR QUEUE *IN* POINTER
00715  M01S00654.1tm     +++| PN       EQU    47          PORT NUMBER - 0 OR 1
00716  M01S00655.1tm     +++| PY       EQU    57          PARITY - BIT 2**7 SET IF ODD PARITY
Line S00656 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00656.242l642 ---| RQ       EQU    60 - 64     *RAF* REQUEST WORD
00718  M01S00033.242l642 +++| RQ       EQU    60 - 64     *RDF* REQUEST WORD
00719  M01S00657.1tm     +++| TN       EQU    64          TERMINAL NUMBER
Line S00658 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00658.ns22000 ---| EQ       EQU    65          EQUIPMENT NUMBER
00721  M01S00012.ns22000 +++| EQ       EQU    65          EST ORDINAL
00722  M01S00659.1tm     +++| HS       EQU    66          HALF-SECOND FLAG - SET TO 1 FOR
00723  M01S00660.1tm     +++|                             ONE DRIVER CYCLE EACH HALF-SECOND
00724  M01S00661.1tm     +++| IT       EQU    67          HALF-SECOND INTERVAL TIMER - DECREMENTED
00725  M01S00662.1tm     +++|                             BY 1 EACH HALF-SECOND IF NONZERO
00726  M01S00663.1tm     +++| ITM      SPACE  4,10
00727  M01S00664.1tm     +++|**        TIME-OUT VALUES.
00728  M01S00665.1tm     +++|
00729  M01S00666.1tm     +++|
00730  M01S00667.1tm     +++| COTIO    EQU    2*2         *CARRIER ON* TIME-OUT (1/2 SECONDS)
00731  M01S00668.1tm     +++| DSRTIO   EQU    2*2         *DATA SET READY* TIME-OUT (1/2 SECONDS)
Line S00669 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2255
Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00669.ns2255  ---| FNTIO    EQU    3000D/128D  FUNCTION TIME-OUT (*DELAY* CYCLES)
Line S00670 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2187
Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00670.ns2187  ---| HUPTIO   EQU    2*2         HANG-UP-PHONE DELAY (1/2 SECONDS)
00734  M01S00001.ns2187  +++| HUPTIO   EQU    3*2         HANG-UP-PHONE DELAY (1/2 SECONDS)
00735  M01S00671.1tm     +++| INATIO   EQU    15D*60D     INACTIVITY TIME-OUT (SECONDS)
00736  M01S00672.1tm     +++| LINTIO   EQU    5*2         LOGIN TIME-OUT (1/2 SECONDS)
00737  M01S00673.1tm     +++| NTIO     EQU    10D*60D*2   NORMAL TIME-OUT (1/2 SECONDS)
00738  M01S00674.1tm     +++| RINGTIO  EQU    4*2         RING INDICATOR TIME-OUT (1/2 SECONDS)
00739  M01S00034.242l642 +++| RPATIO   EQU    2*2         REGAIN PORT ACCESS TIME-OUT (1/2 SECONDS)
00740  M01S00675.1tm     +++| UTIO     EQU    30D*2       USER NUMBER TIME-OUT (1/2 SECONDS)
00741  M01S00035.242l642 +++|
00742  M01S00036.242l642 +++| PRTO     EQU    3*60D*10D   INITIAL PORT RESERVATION TIME-OUT
00743  M01S00676.1tm     +++| ITM      SPACE  4,10
00744  M01S00677.1tm     +++|**        PROGRAM EQUIVALENCES.
00745  M01S00678.1tm     +++|
00746  M01S00679.1tm     +++|
00747  M01S00680.1tm     +++| BDRATE   EQU    9600D       MAXIMUM BAUD RATE
00748  M01S00681.1tm     +++| CHRATE   EQU    BDRATE/10D  CHARACTER RATE/SEC
00749  M01S00682.1tm     +++| LODS     EQU    10          OPERATOR DISPLAY BUFFER LENGTH
Line S00683 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00683.ns2149  ---| MC       EQU    15          MULTIPLEXER CHANNEL
00751  M01S00684.1tm     +++| MNCT     EQU    1000D/CHRATE  MINIMUM CYCLE TIME (MSECS)
Line S00685 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm6
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00685.1tm6    ---| MXIC     EQU    160D        MAXIMUM INPUT CHARACTERS/LINE
00753  M01S00005.ns2149  +++| OMBUFL   EQU    37D         OPERATOR MESSAGE BUFFER LENGTH
Line S00686 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00686.242l642 ---| RCLDLY   EQU    4           PPU RECALL DELAY (SECONDS)
00755  M01S00037.242l642 +++| RCLDLY   EQU    2           PP RECALL DELAY (SECONDS)
00756  M01S00038.242l642 +++| NRPR     EQU    77          DELAY FOR REGAINING PORT ACCESS
00757  M01S00687.1tm     +++|          SPACE  4,10
00758  M01S00688.1tm     +++|**        CHARACTER EQUIVALENCES.
00759  M01S00689.1tm     +++|
00760  M01S00690.1tm     +++|
00761  M01S00691.1tm     +++|*         INTERNAL CODES.
00762  M01S00692.1tm     +++|
00763  M01S00693.1tm     +++| .ICR     EQU    210         CARRIAGE RETURN
00764  M01S00694.1tm     +++| .ILF     EQU    211         LINE FEED
00765  M01S00695.1tm     +++| .INL     EQU    212         NEW LINE (CR/LF)
00766  M01S00696.1tm     +++| .ECP     EQU    770001      END OF CURRENT POT
00767  M01S00697.1tm     +++|
00768  M01S00698.1tm     +++|*         CARRIAGE CONTROL MICROS.
00769  M01S00699.1tm     +++|
00770  M01S00700.1tm     +++| CR       MICRO  1,, ;      CARRIAGE RETURN
00771  M01S00701.1tm     +++| LF       MICRO  1,, ;      LINE FEED
00772  M01S00702.1tm     +++| NL       MICRO  1,, ;      NEW LINE (CR/LF)
00773  M01S00703.1tm     +++|
00774  M01S00704.1tm     +++|*         ASCII CHARACTER (7 DATA BITS).
00775  M01S00705.1tm     +++|
00776  M01S00706.1tm     +++| .ABRK    EQU    0#00        (BRK) BREAK
00777  M01S00707.1tm     +++| .ACLN    EQU    0#3A        (CLN) COLON
00778  M01S00708.1tm     +++| .AESC    EQU    0#1B        (ESC) ESCAPE
Line S00709 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm5
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00709.1tm5    ---| .APCT    EQU    0#30        (PCT) PERCENT
00780  M01S00001.1tm5    +++| .APCT    EQU    0#25        (PCT) PERCENT
00781  M01S00710.1tm     +++| .ASP     EQU    0#20        (CR)  SPACE
00782  M01S00711.1tm     +++|
00783  M01S00712.1tm     +++|*         *ASCII* TERMINAL CONTROL CHARACTERS.
00784  M01S00713.1tm     +++|
00785  M01S00714.1tm     +++| .CCAN    ASCO   18,EQU      (CAN) CANCEL (CTL-X)
00786  M01S00715.1tm     +++| .CCLN    ASCO   3A,EQU      (CLN) COLON
00787  M01S00716.1tm     +++| .CCR     ASCO   0D,EQU      (CR)  CARRIAGE RETURN
00788  M01S00717.1tm     +++| .CDC1    ASCO   11,EQU      (DC1) DEVICE CONTOL 1
00789  M01S00718.1tm     +++| .CDC4    ASCO   14,EQU      (DC4) DEVICE CONTROL 4
00790  M01S00719.1tm     +++| .CDEL    ASCO   7F,EQU      (DEL) DELETE
00791  M01S00720.1tm     +++| .CLF     ASCO   0A,EQU      (LF) LINE FEED
00792  M01S00721.1tm     +++| .CNUL    ASCO   00,EQU      (NUL) NULL
00793  M01S00722.1tm     +++| .CPCT    ASCO   25,EQU      (PCT) PERCENT
00794  M01S00039.242l642 +++| .CRS     ASCO   1E,EQU      (RS) RECORD SEPARATOR
00795  M01S00723.1tm     +++| ITM      SPACE  4,10
Line S00724 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00724.ns2149  ---|**        TWO-PORT MULTIPLEXER FUNCTION CODES.
00797  M01S00006.ns2149  +++|**        TWO-PORT MULTIPLEXER PORT OPERATING MODE.
00798  M01S00007.ns2149  +++|*
Line S00008 Modification History
M01 (Added by) ns2149
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00008.v23l617 ---|*         DISABLE PARITY      = SELECTED.
Line S00009 Modification History
M01 (Added by) ns2149
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00009.v23l617 ---|*         NUMBER OF STOP BITS = 1.
Line S00010 Modification History
M01 (Added by) ns2149
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00010.v23l617 ---|*         NUMBER OF DATA BITS = 8 (7 + PARITY).
Line S00011 Modification History
M01 (Added by) ns2149
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00011.v23l617 ---|*         PARITY              = N/A.
00803  M01S00013.v23l617 +++|*         DISABLE PARITY      = NOT SELECTED.
00804  M01S00014.v23l617 +++|*         NUMBER OF STOP BITS = 1.
00805  M01S00015.v23l617 +++|*         NUMBER OF DATA BITS = 7.
00806  M01S00016.v23l617 +++|*         PARITY              = EVEN.
00807  M01S00725.1tm     +++|
Line S00726 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00726.ns2149  ---|
Line S00727 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00727.ns2149  ---| CLRBUFS  EQU    0700        CLEAR BUFFERS
Line S00728 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00728.ns2149  ---| CLRDTR   EQU    0400        CLEAR DATA-TERMINAL-READY
Line S00729 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00729.ns2149  ---| CLRRQS   EQU    0500        CLEAR REQUEST-TO-SEND
Line S00730 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00730.ns2149  ---| DSELECT  EQU    6000        DESELECT MULTIPLEXER AND PORT
Line S00731 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00731.ns2149  ---| READ     EQU    0100        READ PORT DATA
Line S00732 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00732.ns2149  ---| SELECT   EQU    7000 + PN   SELECT MULTIPLEXER AND PORT
Line S00733 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00733.ns2149  ---| SETDTR   EQU    0401        SET DATA-TERMINAL-READY
Line S00734 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00734.ns2149  ---| SETPOM   EQU    0300        SET PORT OPERATION MODE
Line S00735 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00735.ns2149  ---| SETRQS   EQU    0501        SET REQUEST-TO-SEND
Line S00736 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00736.ns2149  ---| STATUS   EQU    0000        READ MULTIPLEXER AND PORT STATUS
Line S00737 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00737.ns2149  ---| WRITE    EQU    0200        WRITE PORT DATA
Line S00738 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00738.ns2149  ---|
Line S00739 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00739.ns2149  ---| TPMODE   EQU    27          TPM PORT OPERATING MODE-
Line S00740 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00740.ns2149  ---|*                              DISABLE PARITY      = SELECTED.
Line S00741 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00741.ns2149  ---|*                              NUMBER OF STOP BITS = 1.
Line S00742 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00742.ns2149  ---|*                              NUMBER OF DATA BITS = 8 (7 + PARITY).
Line S00743 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00743.ns2149  ---|*                              PARITY              = N/A.
Line S00012 Modification History
M01 (Added by) ns2149
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00012.v23l617 ---| TPMODE   EQU    27
00827  M01S00017.v23l617 +++| TPMODE   EQU    5           SELECT OPERATING MODE
00828  M01S00744.1tm     +++|
00829  M01S00745.1tm     +++|****
00830  M01S00746.1tm     +++| ITM      TITLE  GLOBAL DATA STORAGE.
00831  M01S00747.1tm     +++| FWA      SPACE  4,15
00832  M01S00748.1tm     +++|**        FWA - DRIVER ENTRY POINT.
00833  M01S00749.1tm     +++|
00834  M01S00750.1tm     +++|
00835  M01S00751.1tm     +++|          ORG    PPFW
00836  M01S00752.1tm     +++|
Line S00753 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00753.242l642 ---| FWA      LJM    PRS         PRESET DRIVER
00838  M01S00040.242l642 +++| FWA      UJN    FWA1        EXECUTE PRESET ON INITIAL LOAD
00839  M01S00041.242l642 +++|          BSS    1
00840  M01S00042.242l642 +++|*         SUBR               (*2TM* CALL OF *1TM*)
00841  M01S00043.242l642 +++|
00842  M01S00044.242l642 +++| FWA1     LJM    PRS         EXECUTE PRESET
00843  M01S00754.1tm     +++|*         UJN    ITM         ENTER DRIVER MAIN PROGRAM
00844  M01S00755.1tm     +++|
00845  M01S00756.1tm     +++| FWAE     EQU    *           LWA+1 OF ENTRY CODE
00846  M01S00757.1tm     +++| ITM      SPACE  4,10
00847  M01S00758.1tm     +++|**        1TM - GLOBAL DATA STORAGE.
00848  M01S00759.1tm     +++|
00849  M01S00760.1tm     +++|
00850  M01S00761.1tm     +++|          ORG    FWA
00851  M01S00762.1tm     +++|
00852  M01S00763.1tm     +++| OMCC     BSS    1           OPERATOR MESSAGE CHARACTER COUNT
00853  M01S00764.1tm     +++| RDAT     BSS    1           REPEATED DATA
00854  M01S00765.1tm     +++|
00855  M01S00766.1tm     +++| GLBSE    EQU    *           LWA+1 OF GLOBAL DATA STORAGE
00856  M01S00767.1tm     +++| ITM      SPACE  4,10
00857  M01S00768.1tm     +++| CTL      MAX    FWAE,GLBSE  LWA+1 OF ENTRY CODE AND GLOBAL DATA
00858  M01S00769.1tm     +++| ITM      TITLE  MAIN CONTROL LOOP.
00859  M01S00770.1tm     +++|          QUAL   CTL
00860  M01S00771.1tm     +++|          ORG    CTL
00861  M01S00772.1tm     +++| ITM      SPACE  4,20
00862  M01S00773.1tm     +++|**        ITM - TWO-PORT MULTIPLEXER DRIVER MAIN CONTROL LOOP.
00863  M01S00774.1tm     +++|*
00864  M01S00775.1tm     +++|*         SEQUENTIALLY EXECUTES THE MAIN PROCESSES OF THE
00865  M01S00776.1tm     +++|*         MULTIPLEXER DRIVER.
00866  M01S00777.1tm     +++|*
00867  M01S00778.1tm     +++|*         ENTRY  FROM *PRS* -
00868  M01S00779.1tm     +++|*                EQUIPMENT AND CHANNEL RESERVED.
00869  M01S00780.1tm     +++|*                MULTIPLEXER AND PORT SELECTED.
00870  M01S00781.1tm     +++|*                (IR+3) = REAL-TIME CLOCK (SECONDS) AT START
00871  M01S00782.1tm     +++|*                         OF DRIVER INACTIVITY TIME-OUT.
Line S00783 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00783.ns2149  ---|*                (ST)   = PORT STATUS.
00873  M01S00013.ns2149  +++|*                (SSMX) = PORT STATUS.
00874  M01S00784.1tm     +++|*                (LF)   = SET *ON* FOR INITIAL CONNECT ATTEMPT.
00875  M01S00785.1tm     +++|*
00876  M01S00786.1tm     +++|*         EXIT   TO *RCL* TO RECALL PPU IF NO MULTIPLEXER ACTIVITY.
Line S00787 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00787.242l642 ---|*                TO *DTO* TO DROP PPU IF TIMED-OUT.
00878  M01S00045.242l642 +++|*                TO *IMT* TO DROP PPU IF TIMED-OUT.
00879  M01S00788.1tm     +++|*
Line S00789 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00789.ns2149  ---|*         CALLS  AVT, CCQ, CEF, CIT, CMF, MGR., STS, SVM.
Line S00014 Modification History
M01 (Added by) ns2149
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00014.242l642 ---|*         CALLS  AVT, CCQ, CEF, CIT, CMF, MGR., SVM, *2TM*.
00882  M01S00046.242l642 +++|*         CALLS  AVT, CAR, CCQ, CEF, CIT, CMF, MGR., RPI, SVM, *3TM*.
00883  M01S00015.ns2149  +++|*
00884  M01S00016.ns2149  +++|*         MACROS EXECUTE.
00885  M01S00790.1tm     +++|
00886  M01S00791.1tm     +++|
00887  M01S00792.1tm     +++| ITM      BSS    0           DRIVER ENTRY
Line S00793 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00793.ns2149  ---|          RJM    CEF         CHECK ERROR FLAG
Line S00017 Modification History
M01 (Added by) ns2149
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00017.242l642 ---|          EXECUTE  2TM       MODIFY TRANSLATION TABLES
00890  M01S00047.242l642 +++|          EXECUTE  3TM
00891  M01S00018.ns2149  +++| ITM1     RJM    CEF         CHECK ERROR FLAG
00892  M01S00794.1tm     +++|          RJM    CMF         CHECK *RDF* STATUS
00893  M01S00795.1tm     +++|          RJM    AVT         ADVANCE TIMERS
Line S00796 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00796.ns2149  ---|          RJM    STS         READ PORT STATUS
00895  M01S00797.1tm     +++|          RJM    SVM         SERVICE MULTIPLEXER
00896  M01S00798.1tm     +++|          RJM    MGR.        PROCESS TERMINALS
Line S00799 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00799.242l642 ---|          RJM    CCQ         CHECK CIRCULAR QUEUE
00898  M01S00048.242l642 +++|          RJM    CAR         CHECK FOR REQUEST OF PORT AND RELEASE
00899  M01S00049.242l642 +++|          NJN    ITM2        IF PORT WAS NOT RELEASED
00900  M01S00050.242l642 +++|          STD    F7          CLEAR POSSIBLE START OF *F7* SEQUENCE
00901  M01S00051.242l642 +++|          RJM    RPI         INITIALIZE FOR REGAINING PORT
00902  M01S00052.242l642 +++| ITM2     RJM    CCQ         CHECK CIRCULAR QUEUE
00903  M01S00800.1tm     +++|          LDD    LF          CHECK LINE ACTIVITY FLAG
Line S00801 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00801.ns2149  ---|          NJN    ITM         IF LINE ACTIVITY, LOOP
00905  M01S00019.ns2149  +++|          NJN    ITM1        IF LINE ACTIVITY
00906  M01S00020.ns2149  +++|
00907  M01S00021.ns2149  +++|*         EXIT MAIN CONTROL LOOP.
00908  M01S00022.ns2149  +++|
00909  M01S00802.1tm     +++|          RJM    CIT         CHECK INACTIVITY TIME-OUT
Line S00803 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00803.ns2149  ---|          NJN    ITM1        IF TIMED-OUT
Line S00023 Modification History
M01 (Added by) ns2149
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00023.242l642 ---|          NJN    ITM2        IF TIMED-OUT
00912  M01S00053.242l642 +++|          NJN    ITM3        IF TIMED-OUT
00913  M01S00804.1tm     +++|          LJM    RCL         RECALL PPU
00914  M01S00805.1tm     +++|
Line S00806 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00806.ns2149  ---| ITM1     LJM    DTO         PROCESS DRIVER TIME-OUT
Line S00024 Modification History
M01 (Added by) ns2149
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00024.242l642 ---| ITM2     LJM    DTO         PROCESS DRIVER TIME-OUT
00917  M01S00054.242l642 +++|*         THE DRIVER HAS TIMED OUT BECAUSE OF NO LINE
00918  M01S00055.242l642 +++|*         ACTIVITY.  ERROR LOG AND DAYFILE MESSAGES WILL BE
00919  M01S00056.242l642 +++|*         ISSUED AND THE PP WILL BE DROPPED WITHOUT RECALL.
00920  M01S00057.242l642 +++|
00921  M01S00058.242l642 +++| ITM3     LDN    MTIO+40     * RDF TIME-OUT.*
00922  M01S00059.242l642 +++|          JMP    IMT         ISSUE MESSAGES AND TERMINATE
00923  M01S00807.1tm     +++| MGR      TITLE  MGR - TERMINAL MANAGER.
00924  M01S00808.1tm     +++| MGR      SPACE  4,20
00925  M01S00809.1tm     +++|**        MGR - TERMINAL MANAGER.
00926  M01S00810.1tm     +++|*
00927  M01S00811.1tm     +++|*         THE TERMINAL MANAGER PERFORMS THE STATUS CHECKS UPON THE
00928  M01S00812.1tm     +++|*         PORT AND EXECUTES THE REENTRANT PROCESSOR FOR THE LINE.
00929  M01S00813.1tm     +++|*
00930  M01S00814.1tm     +++|*         ENTRY  (DP+4) = REENTRANT PROCESSING ADDRESS.
Line S00815 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00815.ns2149  ---|*                (ST)   = PORT STATUS.
00932  M01S00025.ns2149  +++|*                (SSMX) = PORT STATUS.
00933  M01S00816.1tm     +++|*                (DI)   = TERMINAL INPUT.
00934  M01S00817.1tm     +++|*                (DO)   = TERMINAL OUTPUT.
00935  M01S00818.1tm     +++|*
00936  M01S00819.1tm     +++|*         EXIT   TO (DP+4) -
00937  M01S00820.1tm     +++|*                  (A)  = INPUT DATA.
00938  M01S00821.1tm     +++|*                  (DI) = INPUT DATA.
00939  M01S00822.1tm     +++|*                  (DC - DC+4) = TERMINAL TABLE WORD *VDCT*.
00940  M01S00823.1tm     +++|*                TO *CIS* IF INPUT RECEIVED WHILE IN *WRITE* MODE.
00941  M01S00824.1tm     +++|*                TO *OFL* IF TERMINAL DROPS OFF LINE.
00942  M01S00825.1tm     +++|*
00943  M01S00826.1tm     +++|*         CALLS  STA.
00944  M01S00827.1tm     +++|
00945  M01S00828.1tm     +++|
00946  M01S00829.1tm     +++| MGR.     SUBR               ENTRY/EXIT
Line S00830 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00830.ns2149  ---|          LDD    ST          GET PORT STATUS
00948  M01S00026.ns2149  +++|          LDM    SSMX        GET PORT STATUS
00949  M01S00831.1tm     +++|          SHN    21-2
00950  M01S00832.1tm     +++|          MJN    MGR1        IF ON-LINE (CARRIER ON)
00951  M01S00833.1tm     +++|
00952  M01S00834.1tm     +++|*         CHECK STATUS OF OFF-LINE TERMINAL.
00953  M01S00835.1tm     +++|
00954  M01S00836.1tm     +++|          LDD    DP+4        CHECK PROCESSOR ADDRESS
00955  M01S00837.1tm     +++|          SBK    LINPE
00956  M01S00838.1tm     +++|          MJN    MGR2        IF LINE PROCESSING
00957  M01S00839.1tm     +++|          LJM    OFL         SET TERMINAL OFF-LINE
00958  M01S00840.1tm     +++|
00959  M01S00841.1tm     +++|*         PROCESS ON-LINE TERMINAL.
00960  M01S00842.1tm     +++|
00961  M01S00843.1tm     +++| MGR1     LDD    DI          CHECK INPUT DATA
00962  M01S00844.1tm     +++|          NJN    MGR3        IF INPUT RECEIVED
00963  M01S00845.1tm     +++|          LDD    DO          CHECK OUTPUT
00964  M01S00846.1tm     +++|          SHN    21-13
00965  M01S00847.1tm     +++|          PJN    MGR2        IF NO OUTPUT IN BUFFER
00966  M01S00848.1tm     +++|          LDD    DP+4        CHECK PROCESSING ADDRESS
00967  M01S00849.1tm     +++|          SBK    WTM
00968  M01S00850.1tm     +++|          PJN    MGR.X       IF IN *WRITE* MODE
00969  M01S00851.1tm     +++|
00970  M01S00852.1tm     +++|*         ENTER TERMINAL PROCESSING ROUTINE.
00971  M01S00853.1tm     +++|
00972  M01S00854.1tm     +++| MGR2     RJM    STA         SET FWA OF TERMINAL TABLE
00973  M01S00855.1tm     +++|          ADN    VDCT        READ *VDCT*
00974  M01S00856.1tm     +++|          CRD    DC
00975  M01S00857.1tm     +++|          LDD    DI          GET INPUT DATA
00976  M01S00858.1tm     +++|          LJM    0,DP+4      ENTER PROCESSING ROUTINE
00977  M01S00859.1tm     +++|
00978  M01S00860.1tm     +++|*         CHECK INPUT RECEIVED.
00979  M01S00861.1tm     +++|
00980  M01S00862.1tm     +++| MGR3     LDD    DP+4        CHECK PROCESSING ADDRESS
00981  M01S00863.1tm     +++|          SBK    WTM
00982  M01S00864.1tm     +++|          MJN    MGR2        IF NOT IN *WRITE* MODE
00983  M01S00865.1tm     +++|          LJM    CIS         CHECK INTERRUPT STATUS
00984  M01S00866.1tm     +++| MGR      SPACE  4,15
00985  M01S00867.1tm     +++|**        MGR - RETURNS FROM REENTRY PROCESSORS.
00986  M01S00868.1tm     +++| MGR      SPACE  4,15
00987  M01S00869.1tm     +++|**        MGR$ - RETURN FROM *RETURN* MACRO (NULL OR * ADDRESS FIELD).
00988  M01S00870.1tm     +++|*
00989  M01S00871.1tm     +++|*         ENTRY  (MGR$) = REENTRY ADDRESS.
00990  M01S00872.1tm     +++|
00991  M01S00873.1tm     +++|
00992  M01S00874.1tm     +++| MGR$     CON    0           (REENTRY ADDRESS)
00993  M01S00875.1tm     +++|          LDM    MGR$        GET REENTRY ADDRESS
00994  M01S00876.1tm     +++|*         UJN    MGR=        SET REENTRY ADDRESS
00995  M01S00877.1tm     +++| MGR=     SPACE  4,15
00996  M01S00878.1tm     +++|**        MGR= - RETURN FROM *RETURN  ADDR* MACRO.
00997  M01S00879.1tm     +++|*
00998  M01S00880.1tm     +++|*         ENTRY  (A) = REENTRY ADDRESS.
00999  M01S00881.1tm     +++|
01000  M01S00882.1tm     +++|
01001  M01S00883.1tm     +++| MGR=     STD    DP+4        SET REENTRY ADDRESS
01002  M01S00884.1tm     +++|*         UJN    MGR         WRITE TERMINAL TABLE WORDS AND EXIT
01003  M01S00885.1tm     +++| MGR      SPACE  4,15
01004  M01S00886.1tm     +++|**        MGR - RETURN WITH NO CHANGE OF REENTRY ADDRESS.
01005  M01S00887.1tm     +++|*
01006  M01S00888.1tm     +++|*         ENTRY  (DP+4) = REENTRY ADDRESS.
01007  M01S00889.1tm     +++|
01008  M01S00890.1tm     +++|
01009  M01S00891.1tm     +++| MGR      RJM    STA         SET FWA OF TERMINAL TABLE
01010  M01S00892.1tm     +++|          ADN    VDPT        WRITE *VDPT* AND *VCHT* TO CM
01011  M01S00893.1tm     +++|          CWD    DP
01012  M01S00894.1tm     +++|          ADK    VCHT-VDPT
01013  M01S00895.1tm     +++|          CWD    CH
01014  M01S00896.1tm     +++|          UJP    MGR.X       EXIT FROM MANAGER
01015  M01S00897.1tm     +++| ITM      TITLE  CTL - LINE PROCESSING ROUTINES.
01016  M01S00898.1tm     +++| DIN      SPACE  4,25
01017  M01S00899.1tm     +++|**        DIN - PROCESS PORT DIALED-IN.
01018  M01S00900.1tm     +++|*
01019  M01S00901.1tm     +++|*         WAITS FOR TERMINAL OPERATOR TO IDENTIFY TERMINAL,
01020  M01S00902.1tm     +++|*         THEN NOTIFIES *RDF* THAT THE TERMINAL HAS DIALED
01021  M01S00903.1tm     +++|*         IN AND REQUESTS LOGIN PROCESSING.
01022  M01S00904.1tm     +++|*
01023  M01S00905.1tm     +++|*         ENTRY  (A) = INPUT DATA.
01024  M01S00906.1tm     +++|*                (DP+4) = *DIN*.
01025  M01S00907.1tm     +++|*
01026  M01S00908.1tm     +++|*         EXIT   TO *LIN* TO PROCESS LOGIN -
01027  M01S00909.1tm     +++|*                  ERROR LOG MESSAGE ISSUED.
01028  M01S00910.1tm     +++|*                  *CAN* ISSUED TO CLEAR SCREEN.
01029  M01S00911.1tm     +++|*                  (CH - CH+4) = 0.
01030  M01S00912.1tm     +++|*                  (DP - DP+2) = 0.
01031  M01S00913.1tm     +++|*                  (DP+3) = *BLKEDIT* OR *TTY* SET.
01032  M01S00914.1tm     +++|*                  (IR+3) = CURRENT REAL-TIME CLOCK (SECONDS).
01033  M01S00915.1tm     +++|*                TO *MGR* IF TERMINAL FAILS TO INITIATE LOGIN.
01034  M01S00916.1tm     +++|*                  (LF) = ZERO TO FORCE DRIVER DROP.
01035  M01S00917.1tm     +++|*
01036  M01S00918.1tm     +++|*         USES   IT, T7.
01037  M01S00919.1tm     +++|*
01038  M01S00920.1tm     +++|*         CALLS  DFM, ERQ.
01039  M01S00921.1tm     +++|*
01040  M01S00922.1tm     +++|*         MACROS RETURN.
01041  M01S00923.1tm     +++|
01042  M01S00924.1tm     +++|
01043  M01S00925.1tm     +++| DIN      BSS    0           ENTRY
01044  M01S00926.1tm     +++|          LDD    DC          CHECK *VDCT* TERMINAL STATUS
01045  M01S00927.1tm     +++|          NJP    MGR         IF LAST USER NOT OFF, RETURN
01046  M01S00060.242l642 +++|          RJM    SPA
01047  M01S00061.242l642 +++|          RJM    CTM         CLEAR TERMINAL
01048  M01S00062.242l642 +++|          RJM    RMA
01049  M01S00928.1tm     +++|          LDK    LINTIO      SET LOGIN TIME-OUT
01050  M01S00929.1tm     +++|          STD    IT
01051  M01S00930.1tm     +++|          RETURN *           REENTER
01052  M01S00931.1tm     +++|          NJN    DIN1        IF INPUT RECEIVED
01053  M01S00932.1tm     +++|          LDD    IT          GET TIMER
01054  M01S00933.1tm     +++|          STD    LF          SET/CLEAR LINE ACTIVITY FLAG
01055  M01S00934.1tm     +++|          JMP    MGR         EXIT/REENTER
01056  M01S00935.1tm     +++|
01057  M01S00936.1tm     +++|*         CHECK INPUT FOR TERMINAL TYPE INDICATOR.
01058  M01S00937.1tm     +++|*
01059  M01S00938.1tm     +++|*         ENTRY  (A)  = INPUT DATA.
01060  M01S00939.1tm     +++|*                (DI) = INPUT DATA.
01061  M01S00940.1tm     +++|
01062  M01S00941.1tm     +++| DIN1     LPC    177         MASK CHARACTER
01063  M01S00942.1tm     +++|          STD    T7
01064  M01S00943.1tm     +++|          LDN    ZERL        CLEAR DIRECT CELLS
01065  M01S00944.1tm     +++|          CRD    CH
01066  M01S00945.1tm     +++|          CRD    DP
01067  M01S00946.1tm     +++|          LDN    /TLX/DIN    REQUEST DIAL-IN PROCESSING
01068  M01S00947.1tm     +++|          RJM    ERQ
01069  M01S00948.1tm     +++|          LDM    TINT,T7     TRANSLATE INPUT CHARACTER
01070  M01S00949.1tm     +++|          LPN    77
01071  M01S00950.1tm     +++|          LMN    1RB
01072  M01S00951.1tm     +++|          NJN    DIN2        IF NOT *B*
01073  M01S00952.1tm     +++|          LDC    200         SET *BLKEDIT* TERMINAL TYPE
01074  M01S00953.1tm     +++|          RAD    DP+3
01075  M01S00954.1tm     +++| DIN2     LDC    =C* RDF INITIATED.*+ERLN
01076  M01S00955.1tm     +++|          RJM    DFM         ISSUE ERROR LOG MESSAGE
01077  M01S00956.1tm     +++|          LDC    .CCAN       ISSUE *CAN* TO CLEAR SCREEN
01078  M01S00957.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
01079  M01S00958.1tm     +++|          STD    DO
01080  M01S00959.1tm     +++|          RETURN LIN         PROCESS LOGIN
01081  M01S00960.1tm     +++| HUP      SPACE  4,25
01082  M01S00961.1tm     +++|**        HUP - HANG UP PHONE LINE.
01083  M01S00962.1tm     +++|*
01084  M01S00963.1tm     +++|*         ISSUES *DC4* TO TERMINATE SESSION IF *PACER*
01085  M01S00964.1tm     +++|*         TERMINAL.  DISCONNECTS THE COMMUNICATIONS LINE
01086  M01S00965.1tm     +++|*         TO TERMINATE THE CONNECTION.
01087  M01S00966.1tm     +++|*
01088  M01S00967.1tm     +++|*         EXIT   TO *MGR* TO DROP/RECALL DRIVER -
01089  M01S00968.1tm     +++|*                  *DC4* ISSUED IF *PACER* TERMINAL.
Line S00969 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00969.242l642 ---|*                  MULTIPLEXER CLEARED.
01091  M01S00063.242l642 +++|*                  MULTIPLEXER CLEARED IF PORT IS NEITHER BEING
01092  M01S00064.242l642 +++|*                  REQUESTED NOR RE-REQUESTED.
01093  M01S00970.1tm     +++|*                  TERMINAL TABLE CLEANED UP.
01094  M01S00971.1tm     +++|*                  (IR+3) = CURRENT REAL-TIME CLOCK (SECONDS).
01095  M01S00972.1tm     +++|*                  (DP) = 0.
01096  M01S00973.1tm     +++|*                  (LF)   = ZERO TO FORCE DROP/RECALL.
01097  M01S00974.1tm     +++|*
01098  M01S00975.1tm     +++|*         USES   IT.
01099  M01S00976.1tm     +++|*
Line S00977 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00977.ns2149  ---|*         CALLS  CUT, ERQ, IFN, SAT.
Line S00027 Modification History
M01 (Added by) ns2149
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00027.242l642 ---|*         CALLS  AMA, CUT, ERQ, IFN, RMA, SAT.
01102  M01S00065.242l642 +++|*         CALLS  AMA, CUT, ERQ, IFN, RPI, RMA, SAT.
01103  M01S00978.1tm     +++|*
01104  M01S00979.1tm     +++|*         MACROS RETURN.
01105  M01S00980.1tm     +++|
01106  M01S00981.1tm     +++|
01107  M01S00982.1tm     +++| HUP      BSS    0           ENTRY
01108  M01S00983.1tm     +++|
01109  M01S00984.1tm     +++|*         ISSUE *DC4* TO TERMINATE SESSION IF *PACER* TERMINAL.
01110  M01S00985.1tm     +++|
01111  M01S00986.1tm     +++|          LDC    .CDC4       ISSUE *DC4*
01112  M01S00987.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
01113  M01S00988.1tm     +++|          STD    DO
01114  M01S00989.1tm     +++|
01115  M01S00990.1tm     +++|*         DELAY TO ALLOW OUTPUT BUFFER TO CLEAR.
01116  M01S00991.1tm     +++|
01117  M01S00992.1tm     +++|          LDK    HUPTIO      SET DELAY
01118  M01S00993.1tm     +++|          STD    IT
01119  M01S00994.1tm     +++|          RETURN *           REENTER
01120  M01S00995.1tm     +++|          LDD    IT          CHECK TIMER
01121  M01S00996.1tm     +++|          ZJN    HUP1        IF DELAY COMPLETE
01122  M01S00997.1tm     +++|          JMP    MGR         REENTER
Line S00998 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01123  M02S00998.242l642 ---|
Line S00999 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01124  M02S00999.242l642 ---|*         DISCONNECT COMMUNICATIONS LINE.
01125  M01S00066.242l642 +++|
01126  M01S00067.242l642 +++|*         DISCONNECT COMMUNICATIONS LINE IF IT IS NOT BEING
01127  M01S00068.242l642 +++|*         RE-REQUESTED BY ANOTHER DRIVER.
01128  M01S01000.1tm     +++|
Line S01001 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01129  M02S01001.ns2149  ---| HUP1     LDK    CLRBUFS     CLEAR MULTIPLEXER I/O BUFFERS
Line S00028 Modification History
M01 (Added by) ns2149
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00028.242l642 ---| HUP1     RJM    AMA         ACQUIRE MULTIPLEXER ACCESS
01131  M01S00069.242l642 +++| HUP1     RJM    CRR         CHECK RE-REQUESTED AND REQUESTED
01132  M01S00070.242l642 +++|          STD    T7          SAVE STATUS
01133  M01S00071.242l642 +++|          NJN    HUP2        IF ANOTHER PROCESSOR NEEDS PORT
01134  M01S00072.242l642 +++|          RJM    AMA         ACQUIRE MULTIPLEXER ACCESS
01135  M01S00029.ns2149  +++|          LDK    MXMC        CLEAR MULTIPLEXER I/O BUFFERS
01136  M01S01002.1tm     +++|          RJM    IFN
Line S01003 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01137  M02S01003.ns2149  ---|          LDK    CLRDTR      CLEAR *DATA-TERMINAL-READY*
01138  M01S00030.ns2149  +++|          LDK    MXDR        CLEAR *DATA TERMINAL READY*
01139  M01S01004.1tm     +++|          RJM    IFN
Line S01005 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01140  M02S01005.ns2149  ---|          LDK    CLRRQS      CLEAR *REQUEST-TO-SEND*
01141  M01S00031.ns2149  +++|          LDK    MXRTS       CLEAR *REQUEST TO SEND*
01142  M01S01006.1tm     +++|          RJM    IFN
01143  M01S00032.ns2149  +++|          RJM    RMA         RELEASE MULTIPLEXER ACCESS
01144  M01S01007.1tm     +++|
01145  M01S01008.1tm     +++|*         DROP POTS AND CLEAN UP TERMINAL TABLE.
01146  M01S01009.1tm     +++|
Line S01010 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01147  M02S01010.242l642 ---|          LDD    DP          CHECK IF POTS ASSIGNED
Line S01011 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01148  M02S01011.242l642 ---|          ZJN    HUP2        IF NO POTS ASSIGNED
01149  M01S00073.242l642 +++| HUP2     LDD    DP          CHECK IF POTS ASSIGNED
01150  M01S00074.242l642 +++|          ZJN    HUP3        IF NO POTS ASSIGNED
01151  M01S01012.1tm     +++|          STD    RQ+3        DROP POTS
01152  M01S01013.1tm     +++|          LDN    /TLX/DRT
01153  M01S01014.1tm     +++|          RJM    ERQ
Line S01015 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01154  M02S01015.242l642 ---| HUP2     STD    DP          CLEAR POT POINTER
01155  M01S00075.242l642 +++| HUP3     STD    DP          CLEAR POT POINTER
01156  M01S01016.1tm     +++|          STD    LF          CLEAR LINE ACTIVITY FLAG
01157  M01S01017.1tm     +++|          RJM    CUT         CLEAN UP TERMINAL TABLE
Line S01018 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01158  M02S01018.242l642 ---|          RJM    SAT         SET ACTIVITY TIME
Line S01019 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01159  M02S01019.242l642 ---|          JMP    MGR         EXIT TO MANAGER
01160  M01S00076.242l642 +++|          LDD    T7          RE-REQUESTED AND REQUESTED STATUS
01161  M01S00077.242l642 +++|          ZJN    HUP4        IF ANOTHER PROCESSOR DOES NOT NEED PORT
01162  M01S00078.242l642 +++|          RJM    RTD         RELEASE MULTIPLEXER AND DELAY
01163  M01S00079.242l642 +++|          LDC    ONL         SET REENTRY ADDRESS
01164  M01S00080.242l642 +++|          STD    DP+4
01165  M01S00081.242l642 +++|          RJM    RPI         INITIALIZE FOR REGAINING PORT ACCESS
01166  M01S00082.242l642 +++| HUP4     RJM    SAT         SET ACTIVITY TIMER
01167  M01S00083.242l642 +++|          JMP    MGR         EXIT TO MANAGER
01168  M01S01020.1tm     +++| OFL      SPACE  4,15
01169  M01S01021.1tm     +++|**        OFL - PROCESS USER OFF LINE.
01170  M01S01022.1tm     +++|*
01171  M01S01023.1tm     +++|*         DROPS ALL POTS ASSOCIATED WITH THE TERMINAL AND NOTIFIES
Line S01024 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S01024.242l642 ---|*         *RAF* TO LOGICALLY DISCONNECT THE TERMINAL.
01173  M01S00084.242l642 +++|*         *RDF* TO LOGICALLY DISCONNECT THE TERMINAL.
01174  M01S01025.1tm     +++|*
01175  M01S01026.1tm     +++|*         EXIT   TO *MGR* FORCE DRIVER DROP/RECALL -
01176  M01S01027.1tm     +++|*                  ERROR LOG MESSAGE ISSUED.
01177  M01S01028.1tm     +++|*                  (LF) = ZERO TO FORCE DRIVER DROP/RECALL.
01178  M01S01029.1tm     +++|*                  (DP) = 0.
01179  M01S01030.1tm     +++|*
01180  M01S01031.1tm     +++|*         CALLS  DFM, ERQ.
01181  M01S01032.1tm     +++|
01182  M01S01033.1tm     +++|
01183  M01S01034.1tm     +++| OFL      BSS    0           ENTRY
01184  M01S01035.1tm     +++|          LDC    =C* RDF CARRIER LOST.*+ERLN
01185  M01S01036.1tm     +++|          RJM    DFM         ISSUE ERROR LOG MESSAGE
01186  M01S01037.1tm     +++|          LDD    DP          SET ASSIGNED POTS TO BE DROPPED
01187  M01S01038.1tm     +++|          STD    RQ+3
01188  M01S01039.1tm     +++|          LDN    /TLX/HUP    REQUEST HUNG UP PHONE PROCESSING
01189  M01S01040.1tm     +++|          RJM    ERQ
01190  M01S01041.1tm     +++|          STD    DP          CLEAR POT POINTER
01191  M01S01042.1tm     +++|          UJP    HUP         DISCONNECT LINE
01192  M01S01043.1tm     +++| ONL      SPACE  4,25
01193  M01S01044.1tm     +++|**        ONL - WAIT FOR TERMINAL TO COME ON-LINE.
01194  M01S01045.1tm     +++|*
01195  M01S01046.1tm     +++|*         WAITS FOR INDICATION THAT THE MULTIPLEXER PORT
01196  M01S01047.1tm     +++|*         HAS CONNECTED TO AN ACTIVE LINE, THEN PROCESSES
01197  M01S01048.1tm     +++|*         THE INTERFACE PROTOCOL.  *ONL* EXITS TO *DIN* FOR
01198  M01S01049.1tm     +++|*         DIAL-IN WHEN THE CONNECTION HAS BEEN ESTABLISHED
01199  M01S01050.1tm     +++|*         AND WHEN THE TERMINAL OPERATOR ENTERS A CHARACTER
01200  M01S01051.1tm     +++|*         (ANY CHARACTER IS ACCEPTED) TO INITIATE LOGIN.
01201  M01S01052.1tm     +++|*
01202  M01S01053.1tm     +++|*         ENTRY  (LF) = NONZERO FOR INITIAL DRIVER ENTRY.
01203  M01S01054.1tm     +++|*                MULTIPLEXER AND PORT SELECTED.
01204  M01S01055.1tm     +++|*
01205  M01S01056.1tm     +++|*         EXIT   TO *DIN* WHEN PORT IS ON-LINE -
01206  M01S01057.1tm     +++|*                  (LF) = NONZERO.
01207  M01S01058.1tm     +++|*                TO *MGR* IF PORT DOES NOT COME ON-LINE -
01208  M01S01059.1tm     +++|*                  (LF) = ZERO TO FORCE DRIVER DROP/RECALL.
01209  M01S01060.1tm     +++|*
01210  M01S01061.1tm     +++|*         USES   IT.
01211  M01S01062.1tm     +++|*
Line S01063 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01212  M02S01063.ns2149  ---|*         CALLS  IFN.
01213  M01S00033.ns2149  +++|*         CALLS  IFN, RMA, SPA.
01214  M01S01064.1tm     +++|*
01215  M01S01065.1tm     +++|*         MACROS RETURN.
01216  M01S01066.1tm     +++|
01217  M01S01067.1tm     +++|
01218  M01S01068.1tm     +++| ONL      BSS    0           ENTRY
01219  M01S01069.1tm     +++|          LDK    RINGTIO     SET RING TIME-OUT
01220  M01S01070.1tm     +++|          STD    IT
01221  M01S01071.1tm     +++|          RETURN *           SET REENTRY
01222  M01S01072.1tm     +++|
01223  M01S01073.1tm     +++|*         WAIT FOR *RING INDICATOR* (DIAL-UP LINE) OR FOR
01224  M01S01074.1tm     +++|*         *CARRIER ON* AND *DATA SET READY* (HARD-WIRED
01225  M01S01075.1tm     +++|*         LINE).
01226  M01S01076.1tm     +++|
Line S01077 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01227  M02S01077.ns2149  ---|          LDD    ST          GET PORT STATUS
01228  M01S00034.ns2149  +++|          LDM    SSMX        CHECK PORT STATUS
01229  M01S01078.1tm     +++|          SHN    21-0        CHECK *RING INDICATOR*
01230  M01S01079.1tm     +++|          MJN    ONL1        IF SET
Line S01080 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm7
Seq #  *Modification Id* Act 
----------------------------+
01231  M02S01080.1tm7    ---|          LPN    3           CHECK *CARRIER ON* & *DATA SET READY*
Line S01081 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm7
Seq #  *Modification Id* Act 
----------------------------+
01232  M02S01081.1tm7    ---|          LMN    3
01233  M01S00001.1tm7    +++|          RJM    SPA         SET PORT ACCESS
01234  M01S00002.1tm7    +++|          LDK    MXDR+1      SET *DATA TERMINAL READY*
01235  M01S00003.1tm7    +++|          RJM    IFN
01236  M01S00004.1tm7    +++|          RJM    RMA
01237  M01S00005.1tm7    +++|          LDK    DSRTIO      SET *DATA SET READY* TIME-OUT
01238  M01S00006.1tm7    +++|          STD    IT
01239  M01S00007.1tm7    +++|          RETURN *
01240  M01S00008.1tm7    +++|          LDM    SSMX        CHECK PORT STATUS
01241  M01S00009.1tm7    +++|          LPN    6           CHECK *CARRIER ON* & *DATA SET READY*
01242  M01S00010.1tm7    +++|          LMN    6
Line S01082 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01243  M02S01082.ns2149  ---|          NJN    ONL3        IF NOT *DATA SET READY* & *CARRIER ON*
01244  M01S00035.ns2149  +++|          NJP    ONL3        IF NOT *DATA SET READY* AND *CARRIER ON*
01245  M01S01083.1tm     +++|
01246  M01S01084.1tm     +++|*         SET *DATA TERMINAL READY* AND WAIT FOR *DATA SET READY*.
01247  M01S01085.1tm     +++|
Line S01086 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01086.ns2149  ---| ONL1     LDK    SETDTR      ISSUE *SET DATA TERMINAL READY*
01249  M01S00036.ns2149  +++| ONL1     RJM    SPA
01250  M01S00037.ns2149  +++|          LDK    MXDR+1      SET *DATA TERMINAL READY*
01251  M01S01087.1tm     +++|          RJM    IFN
01252  M01S00038.ns2149  +++|          RJM    RMA
01253  M01S01088.1tm     +++|          LDK    DSRTIO      SET *DATA SET READY* TIME-OUT
01254  M01S01089.1tm     +++|          STD    IT
01255  M01S01090.1tm     +++|          RETURN *           SET REENTRY
Line S01091 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01256  M02S01091.ns2149  ---|          LDD    ST          GET PORT STATUS
01257  M01S00039.ns2149  +++|          LDM    SSMX        CHECK PORT STATUS
01258  M01S01092.1tm     +++|          LPN    2
01259  M01S01093.1tm     +++|          ZJN    ONL3        IF NOT *DATA SET READY*
01260  M01S01094.1tm     +++|
01261  M01S01095.1tm     +++|*         SET *REQUEST TO SEND* AND WAIT FOR *CARRIER ON*.
01262  M01S01096.1tm     +++|
Line S01097 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01263  M02S01097.ns2149  ---|          LDK    SETRQS      ISSUE *REQUEST TO SEND*
01264  M01S00040.ns2149  +++|          RJM    SPA
01265  M01S00041.ns2149  +++|          LDK    MXRTS+1     ISSUE *REQUEST TO SEND*
01266  M01S01098.1tm     +++|          RJM    IFN
01267  M01S00042.ns2149  +++|          RJM    RMA
01268  M01S01099.1tm     +++|          LDK    COTIO       SET *CARRIER ON* TIME-OUT
01269  M01S01100.1tm     +++|          STD    IT
01270  M01S01101.1tm     +++|          RETURN *           SET REENTRY
Line S01102 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01271  M02S01102.ns2149  ---|          LDD    ST          GET PORT STATUS
01272  M01S00043.ns2149  +++|          LDM    SSMX        CHECK PORT STATUS
01273  M01S01103.1tm     +++|          LPN    4
Line S01104 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01274  M02S01104.ns2149  ---|          ZJN    ONL3        IF NOT *DATA SET READY*
01275  M01S00044.ns2149  +++|          ZJN    ONL3        IF NOT *CARRIER ON*
01276  M01S01105.1tm     +++|
01277  M01S01106.1tm     +++|*         TERMINAL IS ON-LINE.  EXIT TO DIAL-IN PROCESSOR.
01278  M01S01107.1tm     +++|
01279  M01S01108.1tm     +++|          RETURN DIN         ENTER DIAL-IN PROCESSOR
01280  M01S01109.1tm     +++|
01281  M01S01110.1tm     +++|*         TERMINAL HAS FAILED TO RESPOND.  EXIT TO MANAGER
01282  M01S01111.1tm     +++|*         FOR REENTRY OR DRIVER DROP/RECALL.
01283  M01S01112.1tm     +++|*
01284  M01S01113.1tm     +++|*         EXIT   (LF) = (IT).  IF ZERO, THE LINE FUNCTION HAS
01285  M01S01114.1tm     +++|*                       TIMED-OUT AND THE DRIVER WILL BE FORCED
01286  M01S01115.1tm     +++|*                       TO DROP/RECALL.
01287  M01S01116.1tm     +++|
01288  M01S01117.1tm     +++| ONL3     LDD    IT          SET/CLEAR LINE ACTIVITY
01289  M01S01118.1tm     +++|          STD    LF
01290  M01S01119.1tm     +++|          JMP    MGR         REENTER
01291  M01S00085.242l642 +++| RPA      SPACE  4,15
01292  M01S00086.242l642 +++|**        RPA - REGAIN PORT ACCESS.
01293  M01S00087.242l642 +++|*
01294  M01S00088.242l642 +++|*         ENTRY  (NT) = 0, IF TIME-OUT ALLOWED.
01295  M01S00089.242l642 +++|*                     = 1, IF NO TIME-OUT.
01296  M01S00090.242l642 +++|*                (IT) = DELAY IF (NT) = 0.
01297  M01S00091.242l642 +++|*                       WAIT *DELAY* SECONDS BEFORE PP RECALL OR
01298  M01S00092.242l642 +++|*                       TIME-OUT CHECK.
01299  M01S00093.242l642 +++|*                (RPAA) = REENTRY ADDRESS WHEN ACCESS OBTAINED.
01300  M01S00094.242l642 +++|*
01301  M01S00095.242l642 +++|*         USES   F7, LF.
01302  M01S00096.242l642 +++|*
01303  M01S00097.242l642 +++|*         CALLS  CTM, IFN, RMA, STM.
01304  M01S00098.242l642 +++|
01305  M01S00099.242l642 +++|
01306  M01S00100.242l642 +++| RPA      BSS    0           ENTRY
01307  M01S00101.242l642 +++| RPA1     RETURN *
01308  M01S00102.242l642 +++|          SOM    RPAC
01309  M01S00103.242l642 +++|          NJN    RPA1        IF DELAY PERIOD NOT YET EXPIRED
01310  M01S00104.242l642 +++|          LDK    NRPR
01311  M01S00105.242l642 +++|          STM    RPAC        RESET DELAY PERIOD
01312  M01S00106.242l642 +++|          RJM    STM         SELECT TERMINAL ON MUX
01313  M01S00107.242l642 +++|          NJN    RPA2        IF PORT RESERVED
01314  M01S00108.242l642 +++|          LDD    F7
01315  M01S00109.242l642 +++|          NJN    RPA1        IF NO TIME-OUT
01316  M01S00110.242l642 +++|          LDD    IT          SET/CLEAR LINE ACTIVITY
01317  M01S00111.242l642 +++|          STD    LF
01318  M01S00112.242l642 +++|          UJN    RPA1        RETURN
01319  M01S00113.242l642 +++|
01320  M01S00114.242l642 +++|*         INITIALIZE MULTIPLEXER AND TERMINAL.
01321  M01S00115.242l642 +++|
01322  M01S00116.242l642 +++| RPA2     LDK    MXSM+TPMODE SET PORT OPERATING MODE
01323  M01S00117.242l642 +++|          RJM    IFN
01324  M01S00118.242l642 +++|          LDK    MXMC        CLEAR PORT I/O BUFFERS
01325  M01S00119.242l642 +++|          RJM    IFN
01326  M01S00120.242l642 +++|          RJM    CTM         CLEAR TERMINAL
01327  M01S00121.242l642 +++|          RJM    RMA         RELEASE MULTIPLEXER ACCESS
01328  M01S00122.242l642 +++|          LDN    77
01329  M01S00123.242l642 +++|          STD    LF
01330  M01S00124.242l642 +++|          LDN    0           SET NO TIME-OUT
01331  M01S00125.242l642 +++|          STD    F7
01332  M01S00126.242l642 +++|          LDC    ONL         SET NEXT REENTRY ADDRESS
01333  M01S00127.242l642 +++| RPAA     EQU    *-1
01334  M01S00128.242l642 +++|          JMP    MGR=        SET REENTRY ADDRESS
01335  M01S00129.242l642 +++|
01336  M01S00130.242l642 +++|
01337  M01S00131.242l642 +++| RPAC     CON    NRPR        DELAY PERIOD COUNTER
01338  M01S00132.242l642 +++| RPI      SPACE  4,15
01339  M01S00133.242l642 +++|**        RPI - REGAIN PORT ACCESS INITIALIZATION.
01340  M01S00134.242l642 +++|*
01341  M01S00135.242l642 +++|*         ENTRY  (DP+4) = CURRENT REENTRY ADDRESS.
01342  M01S00136.242l642 +++|*
01343  M01S00137.242l642 +++|*         EXIT   (DP+4) = NEW REENTRY ADDRESS.
01344  M01S00138.242l642 +++|*                (IT) = DELAY IF (F7) = 0.
01345  M01S00139.242l642 +++|*                       WAIT *DELAY* SECONDS BEFORE PP RECALL OR
01346  M01S00140.242l642 +++|*                       TIME-OUT CHECK.
01347  M01S00141.242l642 +++|*                (F7) = 1, IF IN MIDDLE OF RDF SESSION.
01348  M01S00142.242l642 +++|*                (RPAA) = (DP+4) ON ENTRY IF (F7) HAS BEEN SET TO 1,
01349  M01S00143.242l642 +++|*                         OTHERWISE, IT IS SET TO /CTL/ONL.
01350  M01S00144.242l642 +++|*
01351  M01S00145.242l642 +++|*         USES   F7, IT.
01352  M01S00146.242l642 +++|
01353  M01S00147.242l642 +++|
01354  M01S00148.242l642 +++| RPI      SUBR               ENTRY/EXIT
01355  M01S00149.242l642 +++|          LDD    DP+4
01356  M01S00150.242l642 +++|          SBK    LINPE
01357  M01S00151.242l642 +++|          MJN    RPI3        IF LINE PROCESSING
01358  M01S00152.242l642 +++|
01359  M01S00153.242l642 +++|*         INITIALIZE *RPA* TO NOT GIVE UP THE PP.
01360  M01S00154.242l642 +++|
01361  M01S00155.242l642 +++| RPI1     LDN    1           NO TIME-OUT SELECTED
01362  M01S00156.242l642 +++|          STD    F7
01363  M01S00157.242l642 +++|          LDD    DP+4        SAVE CURRENT RE-ENTRY ADDRESS
01364  M01S00158.242l642 +++| RPI2     STM    RPAA
01365  M01S00159.242l642 +++|          LDC    RPA         NEW REENTRY IS *RPA*
01366  M01S00160.242l642 +++|          STD    DP+4
01367  M01S00161.242l642 +++|          UJN    RPIX        RETURN
01368  M01S00162.242l642 +++|
01369  M01S00163.242l642 +++|*         CHECK FOR *HUP* PROCESSING.
01370  M01S00164.242l642 +++|
01371  M01S00165.242l642 +++| RPI3     ADC    LINPE-HUP
01372  M01S00166.242l642 +++|          MJN    RPI4        IF NOT IN *HUP*
01373  M01S00167.242l642 +++|          SBK    HUP3-HUP
01374  M01S00168.242l642 +++|          MJN    RPI1        IF IN *HUP*
01375  M01S00169.242l642 +++|
01376  M01S00170.242l642 +++|*         INITIALIZE *RPA* TO TIME-OUT AND RECALL PP.
01377  M01S00171.242l642 +++|
01378  M01S00172.242l642 +++| RPI4     LDK    RPATIO      SET TIME-OUT BEFORE RECALL/DROP
01379  M01S00173.242l642 +++|          STD    IT
01380  M01S00174.242l642 +++|          LDC    ONL
01381  M01S00175.242l642 +++|          UJN    RPI2        SET REENTRY
01382  M01S01120.1tm     +++|          SPACE  4
01383  M01S01121.1tm     +++| LINPE    BSS    0           END OF LINE PROCESSING
01384  M01S01122.1tm     +++| ITM      TITLE  CTL - TERMINAL CONTROL ROUTINES.
01385  M01S01123.1tm     +++| CIS      SPACE  4,25
01386  M01S01124.1tm     +++|**        CIS - CHECK INTERRUPT STATUS.
01387  M01S01125.1tm     +++|*
01388  M01S01126.1tm     +++|*         CIS DETERMINES THE STATUS OF A SUSPECTED INTERRUPT INPUT
01389  M01S01127.1tm     +++|*         CHARACTER.  THE CHARACTER *S* IS A LEVEL 0 INTERRUPT TO
Line S01128 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01390  M02S01128.242l642 ---|*         *RAF*.  AN *INTERRUPT* AND THE CHARACTER *I* ARE LEVEL 1
Line S01129 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01391  M02S01129.242l642 ---|*         INTERRUPTS TO *RAF*.
01392  M01S00176.242l642 +++|*         *RDF*.  AN *INTERRUPT* AND THE CHARACTER *I* ARE LEVEL 1
01393  M01S00177.242l642 +++|*         INTERRUPTS TO *RDF*.
01394  M01S01130.1tm     +++|*
01395  M01S01131.1tm     +++|*         ENTRY  (A)    = INPUT DATA.
01396  M01S01132.1tm     +++|*                (DI)   = INPUT DATA.
01397  M01S01133.1tm     +++|*                (DP+4) = PROCESSING ADDRESS.
01398  M01S01134.1tm     +++|*
01399  M01S01135.1tm     +++|*         EXIT   TO *MGR* IF INTERRUPT IGNORED.
01400  M01S01136.1tm     +++|*                TO *INT* IF INTERRUPT -
01401  M01S01137.1tm     +++|*                  (A) = *TIET* IF *BREAK* OR *I* KEY.
01402  M01S01138.1tm     +++|*                      = *TAET* IF *S* KEY.
01403  M01S01139.1tm     +++|*                TO *AWT* IF TERMINAL MESSAGE IN PROGRESS.
01404  M01S01140.1tm     +++|*
01405  M01S01141.1tm     +++|*         USES   (CH) = BREAK TIMER.
01406  M01S01142.1tm     +++|*
01407  M01S01143.1tm     +++|*         MACROS RETURN.
01408  M01S01144.1tm     +++|
01409  M01S01145.1tm     +++|
01410  M01S01146.1tm     +++| CIS      BSS    0           ENTRY
01411  M01S01147.1tm     +++|          LDD    DP+1        CHECK FOR TERMINAL MESSAGE
01412  M01S01148.1tm     +++|          SHN    -6
01413  M01S01149.1tm     +++|          LMN    77
01414  M01S01150.1tm     +++|          NJN    CIS1        IF NOT ISSUING MESSAGE
01415  M01S01151.1tm     +++|          LJM    /WTM/AWT    CONTINUE TERMINAL OUTPUT
01416  M01S01152.1tm     +++|
01417  M01S01153.1tm     +++| CIS1     LDD    DC          CHECK TERMINAL STATUS
01418  M01S01154.1tm     +++|          SHN    21-11       CHECK *LOGGED IN* BIT
01419  M01S01155.1tm     +++|          PJN    CIS5        IF NOT LOGGED IN, IGNORE CHARACTER
01420  M01S01156.1tm     +++|
01421  M01S01157.1tm     +++|*         PROCESS ASCII *BRK* CHARACTER.
01422  M01S01158.1tm     +++|
01423  M01S01159.1tm     +++|          LDD    DI          CHECK INPUT CHARACTER
01424  M01S01160.1tm     +++|          LPC    177
01425  M01S01161.1tm     +++|          LMK    .ABRK
01426  M01S01162.1tm     +++|          NJN    CIS4        IF NOT START OF BREAK
01427  M01S01163.1tm     +++| CIS2     LDK    100D/MNCT+1 START TIMER FOR BREAK
01428  M01S01164.1tm     +++|          STD    CH
01429  M01S01165.1tm     +++| CIS3     RETURN *           REENTER
01430  M01S01166.1tm     +++|          NJN    CIS2        IF BREAK STILL IN PROGRESS
01431  M01S01167.1tm     +++|          SOD    CH          DECREMENT TIMER
01432  M01S01168.1tm     +++|          NJN    CIS3        IF NOT TIMED-OUT
01433  M01S01169.1tm     +++|          UJN    CIS6        PROCESS AS INTERRUPT
01434  M01S01170.1tm     +++|
01435  M01S01171.1tm     +++|*         PROCESS CHARACTER OTHER THAN ASCII *BRK*.
01436  M01S01172.1tm     +++|
01437  M01S01173.1tm     +++| CIS4     STD    T7          TRANSLATE INPUT CHARACTER
01438  M01S01174.1tm     +++|          LDM    TINT,T7
01439  M01S01175.1tm     +++|          LPN    77
01440  M01S01176.1tm     +++|          LMN    1RS
01441  M01S01177.1tm     +++|          ZJP    CIS7        IF *S* KEY
01442  M01S01178.1tm     +++|          LMN    1RI&1RS
01443  M01S01179.1tm     +++|          ZJP    CIS6        IF *I* KEY
01444  M01S01180.1tm     +++| CIS5     JMP    MGR         IGNORE INVALID CHARACTER
01445  M01S01181.1tm     +++|
01446  M01S01182.1tm     +++|*         PROCESS INTERRUPT CHARACTER.
01447  M01S01183.1tm     +++|
01448  M01S01184.1tm     +++| CIS6     LDN    TIET&TAET   SET *TIET* INTERRUPT CODE
01449  M01S01185.1tm     +++| CIS7     LMN    TAET        SET *TAET* INTERRUPT CODE
01450  M01S01186.1tm     +++|          LJM    INT         ENTER INTERRUPT
01451  M01S01187.1tm     +++| CTO      SPACE  4,20
01452  M01S01188.1tm     +++|**        CTO - CHECK TIME-OUT.
01453  M01S01189.1tm     +++|*
01454  M01S01190.1tm     +++|*         *CTO* IS ENTERED WHEN AN INPUT CHARACTER HAS NOT BEEN
01455  M01S01191.1tm     +++|*         RECEIVED FROM A TERMINAL.  THE ELAPSED TIME IS CHECKED, AND
01456  M01S01192.1tm     +++|*         IF EXCEEDED, THE USER IS LOGGED OFF.
01457  M01S01193.1tm     +++|*
01458  M01S01194.1tm     +++|*         ENTRY  (DP+4) = PROCESSING ADDRESS.
01459  M01S01195.1tm     +++|*
01460  M01S01196.1tm     +++|*         EXIT   TO *MGR* IF TIME NOT ELAPSED.
01461  M01S01197.1tm     +++|*                TO *RWC* IF TIMED-OUT -
01462  M01S01198.1tm     +++|*                  TIME-OUT LOGOUT REQUEST ENTERED.
01463  M01S01199.1tm     +++|*                  SOURCE DUMP FORCED IF READ ACTIVE.
01464  M01S01200.1tm     +++|*                TO *TFR* IF FUNCTION REQUEST FROM EXECUTIVE.
01465  M01S01201.1tm     +++|*                TO *RWC* IF OUTPUT ASSIGNED -
01466  M01S01202.1tm     +++|*                  (DP+2) = 0.
01467  M01S01203.1tm     +++|*
01468  M01S01204.1tm     +++|*         USES   DO, CM - CM+4.
01469  M01S01205.1tm     +++|*
01470  M01S01206.1tm     +++|*         CALLS  ERQ, STA.
01471  M01S01207.1tm     +++|
01472  M01S01208.1tm     +++|
01473  M01S01209.1tm     +++| CTO      BSS    0           ENTRY
01474  M01S01210.1tm     +++|          LDD    DO          CHECK OUTPUT BUFFER
01475  M01S01211.1tm     +++|          SHN    21-13
01476  M01S01212.1tm     +++|          MJN    CTO1        IF OUTPUT DATA
01477  M01S01213.1tm     +++|          LDD    HS          CHECK HALF-SECOND FLAG
01478  M01S01214.1tm     +++|          ZJN    CTO1        IF HALF-SECOND NOT ELAPSED
01479  M01S01215.1tm     +++|          RAD    DO          ADVANCE TIMER
01480  M01S01216.1tm     +++|          LMC    NTIO
01481  M01S01217.1tm     +++|          ZJN    CTO2        IF NORMAL TIME-OUT ELAPSED
01482  M01S01218.1tm     +++|          RJM    STA         SET FWA OF TERMINAL TABLE
01483  M01S01219.1tm     +++|          ADN    VROT        READ *VROT*
01484  M01S01220.1tm     +++|          CRD    CM
01485  M01S01221.1tm     +++|          LDD    CM+4        CHECK JOB STATUS
01486  M01S01222.1tm     +++|          LPN    1
01487  M01S01223.1tm     +++|          NJN    CTO3        IF JOB NOT ACTIVE
01488  M01S01224.1tm     +++|          STD    DO          CLEAR TIMER
01489  M01S01225.1tm     +++| CTO1     JMP    MGR         EXIT
01490  M01S01226.1tm     +++|
01491  M01S01227.1tm     +++|*         CHECK FOR *NO TIME-OUT*.
01492  M01S01228.1tm     +++|
01493  M01S01229.1tm     +++| CTO2     LDD    DC+3        CHECK USER ACCESS
01494  M01S01230.1tm     +++|          SHN    21-12       CHECK NO-TIME-OUT BIT
01495  M01S01231.1tm     +++|          PJN    CTO4        IF NOT SET
01496  M01S01232.1tm     +++|          LDN    0
01497  M01S01233.1tm     +++|          STD    DO          CLEAR TIMER
01498  M01S01234.1tm     +++|          UJN    CTO1        EXIT
01499  M01S01235.1tm     +++|
01500  M01S01236.1tm     +++|*         PROCESS INACTIVE JOB.
01501  M01S01237.1tm     +++|
01502  M01S01238.1tm     +++| CTO3     LDD    DC+4        CHECK MESSAGE ASSIGNMENT
01503  M01S01239.1tm     +++|          NJN    CTO6        IF MESSAGE ASSIGNED
01504  M01S01240.1tm     +++|          LDD    DC          CHECK *LOGGED IN*
01505  M01S01241.1tm     +++|          SHN    21-11
01506  M01S01242.1tm     +++|          MJN    CTO1        IF SET
01507  M01S01243.1tm     +++|          LDD    DO          CHECK TIMER
01508  M01S01244.1tm     +++|          LMC    UTIO
01509  M01S01245.1tm     +++|          NJN    CTO1        IF LOGIN TIME-OUT NOT ELAPSED
01510  M01S01246.1tm     +++|
01511  M01S01247.1tm     +++|*         LOG OFF USER.
01512  M01S01248.1tm     +++|
01513  M01S01249.1tm     +++| CTO4     LDC    CTO5        SET REENTRY ADDRESS
01514  M01S01250.1tm     +++|          UJN    CTO8        FORCE SOURCE INPUT DUMP
01515  M01S01251.1tm     +++|
01516  M01S01252.1tm     +++| CTO5     LDN    /TLX/TOT    REQUEST TIME-OUT LOGOUT
01517  M01S01253.1tm     +++|          RJM    ERQ
01518  M01S01254.1tm     +++|          STD    DP+2        CLEAR READ STATUS
01519  M01S01255.1tm     +++|          JMP    RWC         ENTER READ/WRITE CONTROL
01520  M01S01256.1tm     +++|
01521  M01S01257.1tm     +++|*         CHECK FOR FUNCTION REQUEST.
01522  M01S01258.1tm     +++|
01523  M01S01259.1tm     +++| CTO6     LDD    DC          CHECK MESSAGE TYPE
01524  M01S01260.1tm     +++|          SHN    21-13
01525  M01S01261.1tm     +++|          PJN    CTO7        IF NOT FUNCTION REQUEST
Line S01262 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01526  M02S01262.242l642 ---|          LJM    TFR         PROCESS *RAF* FUNCTION REQUEST
01527  M01S00178.242l642 +++|          LJM    TFR         PROCESS *RDF* FUNCTION REQUEST
01528  M01S01263.1tm     +++|
01529  M01S01264.1tm     +++| CTO7     LDC    RWC         SET REENTRY ADDRESS
01530  M01S01265.1tm     +++|
01531  M01S01266.1tm     +++|*         FORCE SOURCE DUMP IF READ ACTIVE.
01532  M01S01267.1tm     +++|*
01533  M01S01268.1tm     +++|*         ENTRY  (A) = REENTRY ADDRESS.
01534  M01S01269.1tm     +++|
01535  M01S01270.1tm     +++| CTO8     STD    DP+4        SET REENTRY ADDRESS
01536  M01S01271.1tm     +++|          LDD    DP+2        GET INPUT STATUS
01537  M01S01272.1tm     +++|          SHN    21-10
01538  M01S01273.1tm     +++|          PJN    CTO9        IF INPUT NOT INITIATED
01539  M01S01274.1tm     +++|          LPN    7           SET POT LENGTH
01540  M01S01275.1tm     +++|          LMN    40          SET FORCED DUMP FLAG
01541  M01S01276.1tm     +++|          STD    RQ+1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1tm.txt ยท Last modified: by 127.0.0.1