User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1tm

Deck 1TM

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1tm     +++|          IDENT  1TM,FWA
00002  M00S00002.1tm     +++|          TITLE  1TM - RDF TWO-PORT MULTIPLEXER DRIVER.
00003  M00S00003.1tm     +++|          PERIPH
00004  M00S00004.1tm     +++|          BASE   MIXED
Line S00005 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.ns2149  ---|          SST
Line S00001 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2149  +++|          SST    SSCP
Line S00006 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.ns22000 ---|*COMMENT  1TM - TWO-PORT MULITPLEXER DRIVER.
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.ns22000 +++|*COMMENT  1TM - TWO-PORT MULTIPLEXER DRIVER.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00008.1tm     +++| ITM      SPACE  4,10
00012  M00S00009.1tm     +++|***       1TM - TWO-PORT MULTIPLEXER DRIVER.
00013  M00S00010.1tm     +++|*
00014  M00S00011.1tm     +++|*         P. D. FARRELL      81/11/18.
00015  M00S00012.1tm     +++| ITM      SPACE  4,10
00016  M00S00013.1tm     +++|***       *1TM* PROVIDES THE PPU INTERFACE BETWEEN THE
00017  M00S00014.1tm     +++|*         REMOTE DIAGNOSTIC FACILITY, *RDF*, AND THE
00018  M00S00015.1tm     +++|*         CYBER 170-8X5 TWO-PORT MULTIPLEXER.
00019  M00S00016.1tm     +++|*
00020  M00S00017.1tm     +++|*         *1TM* COMMUNICATES WITH THE TWO-PORT MULTIPLEXER
Line S00018 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00018.242l642 ---|*         AND WITH THE *RDF* CPU INTERFACE, EITHER *RAF*
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.242l642 +++|*         AND WITH THE *RDF* CPU INTERFACE, EITHER *RDF*
00023  M00S00019.1tm     +++|*         OR *IAF*.
00024  M00S00020.1tm     +++| ITM      SPACE  4,10
00025  M00S00021.1tm     +++|***       PROGRAM CALL -
00026  M00S00022.1tm     +++|*
Line S00023 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00023.242l642 ---|*T, IR    18/*1TM*, 18/0, 12/RTS, 12/CTL WD PTR
Figure IR

01112232429CTL WD PTRRTS0304142590*1TM*


Line S00002 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00024.1tm     +++|*
00038  M00S00025.1tm     +++|*                RTS = REAL-TIME CLOCK (SECONDS) AT START
00039  M00S00026.1tm     +++|*                      OF DRIVER INACTIVITY TIME-OUT.
00040  M00S00027.1tm     +++|*                    = 0 ON INITIAL CALL OR ON EXECUTIVE
00041  M00S00028.1tm     +++|*                      RECALL.
00042  M00S00029.1tm     +++|*
00043  M00S00030.1tm     +++|*                CTL WD PTR = POINTER TO DRIVER CONTROL WORD
00044  M00S00031.1tm     +++|*                             IN CM EXECUTIVE TABLE *VDRL*.
00045  M00S00032.1tm     +++|*
00046  M00S00033.1tm     +++|*
00047  M00S00034.1tm     +++|*         (DRIVER CONTROL WORD) = ON INITIAL DRIVER CALL -
00048  M00S00035.1tm     +++|*
00049  M00S00036.1tm     +++|*T,              12/0, 24/ DRIVER NAME (*1TM*), 24/0
Figure

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

00050  M00S00037.1tm     +++|*
00051  M00S00038.1tm     +++|*         (DRIVER CONTROL WORD) = ON DRIVER RECALL OR ON
00052  M00S00039.1tm     +++|*                                 EXECUTIVE RECALL -
00053  M00S00040.1tm     +++|*
00054  M00S00041.1tm     +++|*T,              12/IL, 24/SA, 12/TC, 12/TN.
Figure

01112232429TN.TCSA30474859SAIL

00055  M00S00042.1tm     +++|*
00056  M00S00043.1tm     +++|*                            IL = DRIVER INTERLOCK.
00057  M00S00044.1tm     +++|*                            SA = DRIVER STACK ADDRESS.
00058  M00S00045.1tm     +++|*                            TC = DRIVER TERMINAL COUNT.
00059  M00S00046.1tm     +++|*                            TN = TERMINAL NUMBER OF DRIVER PORT.
00060  M00S00047.1tm     +++|*
00061  M00S00048.1tm     +++|*         AFTER INITIALIZATION, *1TM* WILL WAIT FOR FOUR SECONDS
00062  M00S00049.1tm     +++|*         FOR TERMINAL LOGIN.  IF THE TERMINAL DOES NOT ATTEMPT
00063  M00S00050.1tm     +++|*         TO LOGIN WITHIN FOUR SECONDS, *1TM* WILL DROP FROM
00064  M00S00051.1tm     +++|*         THE PPU AND RETURN VIA PPU RECALL AFTER 5 SECONDS.
00065  M00S00052.1tm     +++|*
00066  M00S00053.1tm     +++|*         IF THE USER HAS NOT ATTEMPTED TO LOGIN WITHIN 15
00067  M00S00054.1tm     +++|*         MINUTES, *1TM* WILL DROP FROM THE PPU WITHOUT RE-
00068  M00S00055.1tm     +++|*         CALLING ITSELF UNLESS THE *DEDICATED RDF* FLAG IS
00069  M00S00056.1tm     +++|*         SET.  IF THE *DEDICATED RDF* FLAG IS SET, *1TM* WILL
00070  M00S00057.1tm     +++|*         CONTINUE TO LOOK FOR LOGIN FOR 4 SECONDS AND DROP
00071  M00S00058.1tm     +++|*         FOR 5 SECONDS.
00072  M00S00059.1tm     +++|*
00073  M00S00060.1tm     +++|*         ONCE *1TM* HAS DROPPED FROM THE PPU AFTER 15 MINUTES
00074  M00S00061.1tm     +++|*         OF NO TERMINAL ACTIVITY, *1TM* MUST BE REACTIVATED
00075  M00S00062.1tm     +++|*         BY ENTERING THE *DSD* CONSOLE COMMAND TO REQUEST
00076  M00S00063.1tm     +++|*         THAT *RDF* RESTART *1TM* (EXECUTIVE RECALL).
00077  M00S00064.1tm     +++|          SPACE  4,15
00078  M00S00065.1tm     +++|***       OPERATOR TERMINAL CONTROL.
00079  M00S00066.1tm     +++|*
00080  M00S00067.1tm     +++|*
Line S00068 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00068.242l642 ---|*         *1TM* TERMINAL PROTOCOL IS IDENTICAL TO TELEX AND
00082  M01S00069.242l642 ---|*         TO IAF STIMULATOR PROTOCOL.  IN GENERAL, ALL INPUT
00083  M01S00070.242l642 ---|*         AND OUTPUT IS PROCESSED ON A LINE-BY-LINE BASIS AND
Line S00011 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00071.1tm     +++|*         THE UNIT OF INPUT IS THE LOGICAL LINE.
00089  M00S00072.1tm     +++|*
00090  M00S00073.1tm     +++|*         (1)    TO LOGIN, POWER UP THE TERMINAL IF HARDWIRED
00091  M00S00074.1tm     +++|*                OR DIAL-IN IF DIAL UP LINE, THEN ENTER THE
00092  M00S00075.1tm     +++|*                CHARACTER *B* IF BLOCK-EDIT TERMINAL OR *CR*
00093  M00S00076.1tm     +++|*                IF NOT.  IF THE CENTRAL SITE DOES NOT REPLY
00094  M00S00077.1tm     +++|*                IMMEDIATELY WITH THE LOGIN MESSAGE, WAIT ONE
00095  M00S00078.1tm     +++|*                OR TWO SECONDS AND TRY AGAIN.
00096  M00S00079.1tm     +++|*
00097  M00S00080.1tm     +++|*         (2)    TO COMPLETE AN INPUT LINE, DEPRESS THE *RETURN*
00098  M00S00081.1tm     +++|*                KEY.  IT IS NOT NECESSARY TO ENTER A *LINE
00099  M00S00082.1tm     +++|*                FEED* SINCE THE DRIVER WILL SUPPLY ONE.
00100  M00S00083.1tm     +++|*
00101  M00S00084.1tm     +++|*         (3)    TO DELETE OR IGNORE AN INPUT LINE, ENTER
00102  M00S00085.1tm     +++|*                *ESC*.  THE DRIVER WILL DISCARD THE LINE
00103  M00S00086.1tm     +++|*                AND WILL REPLY WITH THE MESSAGE *DEL*.
00104  M00S00087.1tm     +++|*
00105  M00S00088.1tm     +++|*         (4)    TO DELETE A PREVIOUSLY ENTERED CHARACTER,
00106  M00S00089.1tm     +++|*                DEPRESS THE *BACKSPACE* CHARACTER (LEFT
00107  M00S00090.1tm     +++|*                ARROW ON SOME KEYBOARDS).
00108  M00S00091.1tm     +++|*
00109  M00S00092.1tm     +++|*         (5)    TO TERMINATE OUTPUT, DEPRESS THE *BREAK* KEY
00110  M00S00093.1tm     +++|*                OR THE *S* KEY.
00111  M00S00094.1tm     +++|*
00112  M00S00095.1tm     +++|*         (6)    TO INTERRUPT OUTPUT, DEPRESS THE *I* KEY.
00113  M00S00096.1tm     +++|*                OUTPUT MAY BE RESUMED BY ENTERING *P*
00114  M00S00097.1tm     +++|*                FOLLOWED BY *RETURN*.
Line S00015 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00098.1tm     +++|          SPACE  4,15
00122  M00S00099.1tm     +++|***       DAYFILE MESSAGES -
00123  M00S00100.1tm     +++|*
00124  M00S00101.1tm     +++|*
00125  M00S00102.1tm     +++|*         * 1TM - RDF TIME-OUT.*
00126  M00S00103.1tm     +++|*                THIS MESSAGE INDICATES THAT NO TERMINAL ACTIVITY
00127  M00S00104.1tm     +++|*                HAS OCCURRED FOR 15 MINUTES (ASSEMBLY PARAMETER)
00128  M00S00105.1tm     +++|*                AND THAT *RDF* IS NOT IN *DEDICATED* MODE.  *1TM*
00129  M00S00106.1tm     +++|*                HAS DROPPED FROM THE PPU WITHOUT RECALL AND HAS
Line S00107 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00107.242l642 ---|*                SIGNALLED DRIVER-DROP TO *RAF*.
Line S00021 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00131  M01S00021.242l642 +++|*                SIGNALLED DRIVER-DROP TO *RDF*.
00132  M00S00108.1tm     +++|*
00133  M00S00109.1tm     +++|*         * 1TM - NO TPM RESPONSE.*
00134  M00S00110.1tm     +++|*                THE TWO-PORT MULTIPLEXER FAILED TO RESPOND
00135  M00S00111.1tm     +++|*                TO A STATUS REQUEST FUNCTION.
00136  M00S00112.1tm     +++|*
Line S00113 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00113.v23l617 ---|*         * 1TM - NOT CYBER 170-8X5.*
00138  M01S00114.v23l617 ---|*                THE MAINFRAME IS NOT A CYBER 170-8X5.
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00115.1tm     +++|*
00143  M00S00116.1tm     +++|*         * 1TM - NO TPM AVAILABLE.*
00144  M00S00117.1tm     +++|*                EITHER THERE IS NO TWO-PORT MULTIPLEXER AVAILABLE
00145  M00S00118.1tm     +++|*                IN THE EQUIPMENT STATUS TABLE OR THE MULTIPLEXER
00146  M00S00119.1tm     +++|*                CHANNEL IS NOT AVAILABLE.
00147  M00S00120.1tm     +++|*
00148  M00S00121.1tm     +++|*         * 1TM - RMEEE CXX PNN FYYYY REJECT.*
Line S00122 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00149  M01S00122.ns22000 ---|*                TWO-PORT MULTIPLEXER, EQUIPMENT NUMBER *EEE*,
Line S00002 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00002.ns22000 +++|*                TWO-PORT MULTIPLEXER, EST ORDINAL *EEE*,
00151  M00S00123.1tm     +++|*                CHANNEL NUMBER *XX*, PORT NUMBER *NN*, HAS
00152  M00S00124.1tm     +++|*                REJECTED FUNCTION *YYYY.
00153  M00S00125.1tm     +++|*
00154  M00S00126.1tm     +++|*         * 1TM - RDF TERMINATED.*
00155  M00S00127.1tm     +++|*                *RDF* IS NOT ENABLED.  *1TM* WILL ISSUE THIS
00156  M00S00128.1tm     +++|*                MESSAGE, THEN DROP AFTER SIGNALLING DRIVER DROP
Line S00129 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00157  M01S00129.242l642 ---|*                TO *RAF*.  *1TM* MAY BE RESTARTED BY ENABLING
Line S00022 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00022.242l642 +++|*                TO *RDF*.  *1TM* MAY BE RESTARTED BY ENABLING
00159  M00S00130.1tm     +++|*                *RDF* AND BY ENTERING THE CONSOLE COMMAND TO
00160  M00S00131.1tm     +++|*                RESTART *1TM*.
Line S00004 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00004.242l642 ---|*
00162  M02S00005.242l642 ---|*         * 1TM - RDF ATTEMPT TO USE CONSOLE PORT.*
00163  M02S00006.242l642 ---|*                A CDC 721 IS BEING USED AS THE SYSTEM CONSOLE
00164  M02S00007.242l642 ---|*                AND AN ATTEMPT WAS MADE TO BRING UP *RDF* ON
00165  M02S00008.242l642 ---|*                THE PORT USED BY THE CONSOLE.  THIS IS NOT ALLOWED.
00166  M00S00132.1tm     +++| ITM      SPACE  4,15
00167  M00S00133.1tm     +++|***       ERROR LOG MESSAGES -
00168  M00S00134.1tm     +++|*
00169  M00S00135.1tm     +++|*
00170  M00S00136.1tm     +++|*         * RMEEE CXX PNN FYYYY REJECT.*
Line S00137 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00137.ns22000 ---|*                TWO-PORT MULTIPLEXER, EQUIPMENT NUMBER *EEE*,
Line S00003 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00172  M01S00003.ns22000 +++|*                TWO-PORT MULTIPLEXER, EST ORDINAL *EEE*,
00173  M00S00138.1tm     +++|*                CHANNEL NUMBER *XX*, PORT NUMBER *NN*, HAS
00174  M00S00139.1tm     +++|*                REJECTED FUNCTION *YYYY.
00175  M00S00140.1tm     +++|*
00176  M00S00141.1tm     +++|*         * RDF CARRIER LOST.*
00177  M00S00142.1tm     +++|*                INDICATES THAT THE CARRIER HAS DROPPED ON AN
00178  M00S00143.1tm     +++|*                ACTIVE TERMINAL.  THE TERMINAL IS IMMEDIATELY
00179  M00S00144.1tm     +++|*                LOGGED OUT WHEN THIS OCCURS.
00180  M00S00145.1tm     +++|*
00181  M00S00146.1tm     +++|*         * RDF INITIATED.*
00182  M00S00147.1tm     +++|*                ISSUED WHEN TERMINAL INITATES LOGIN.
00183  M00S00148.1tm     +++|*
00184  M00S00149.1tm     +++|*         * RDF TERMINATED.*
00185  M00S00150.1tm     +++|*                *RDF* IS NOT ENABLED.  *1TM* WILL ISSUE THIS
00186  M00S00151.1tm     +++|*                MESSAGE, THEN DROP AFTER SIGNALLING DRIVER DROP
Line S00152 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00152.242l642 ---|*                TO *RAF*.  *1TM* MAY BE RESTARTED BY ENABLING
Line S00023 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00188  M01S00023.242l642 +++|*                TO *RDF*.  *1TM* MAY BE RESTARTED BY ENABLING
00189  M00S00153.1tm     +++|*                *RDF* AND BY ENTERING THE CONSOLE COMMAND TO
00190  M00S00154.1tm     +++|*                RESTART *1TM*.
00191  M00S00155.1tm     +++|*
00192  M00S00156.1tm     +++|*         * RDF TIME-OUT.*
00193  M00S00157.1tm     +++|*                THIS MESSAGE ACCOMPANIES THE * 1TM - RDF
00194  M00S00158.1tm     +++|*                TIME-OUT.* DAYFILE MESSAGE AND INDICATES THAT NO
00195  M00S00159.1tm     +++|*                TEMINAL ACTIVITY HAS OCCURRED FOR 15 MINUTES
00196  M00S00160.1tm     +++|*                (ASSEMBLY PARAMETER) AND THAT *RDF* IS IS NOT IN
00197  M00S00161.1tm     +++|*                DEDICATED MODE.  *1TM* HAS DROPPED FROM THE PPU
00198  M00S00162.1tm     +++|*                WITHOUT RECALL AND HAS SIGNALLED DRIVER-DROP TO
Line S00163 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00163.242l642 ---|*                *RAF*.
Line S00024 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00024.242l642 +++|*                *RDF*.
00201  M00S00164.1tm     +++| ITM      TITLE  INTERNAL DOCUMENTATION.
00202  M00S00165.1tm     +++| ITM      SPACE  4,40
00203  M00S00166.1tm     +++|**        TWO-PORT MULTIPLEXER FUNCTION CODES.
00204  M00S00167.1tm     +++|*
00205  M00S00168.1tm     +++|*         THE FOLLOWING IS A DESCIPTION OF TWO-PORT MULTIPLEXER
00206  M00S00169.1tm     +++|*         STATUS AND DATA FORMATS.
00207  M00S00170.1tm     +++|*
00208  M00S00171.1tm     +++|*
00209  M00S00172.1tm     +++|*         TWO-PORT MULTIPLEXER STATUS CODES-
00210  M00S00173.1tm     +++|*
00211  M00S00174.1tm     +++|*                BIT         DESCRIPTION
00212  M00S00175.1tm     +++|*                ---         -----------
00213  M00S00176.1tm     +++|*
00214  M00S00177.1tm     +++|*               11-5         NOT USED.
00215  M00S00178.1tm     +++|*                  4         OUTPUT BUFFER READY (NOT FULL).
00216  M00S00179.1tm     +++|*                  3         INPUT READY.
00217  M00S00180.1tm     +++|*                  2         CARRIER ON.
00218  M00S00181.1tm     +++|*                  1         DATA SET READY.
00219  M00S00182.1tm     +++|*                  0         RING INDICATOR.
00220  M00S00183.1tm     +++|*
00221  M00S00184.1tm     +++|*
00222  M00S00185.1tm     +++|*         TWO-PORT MULTIPLEXER MODE SELECTION FUNCTION CODES-
00223  M00S00186.1tm     +++|*
00224  M00S00187.1tm     +++|*                BIT         DESCRIPTION
00225  M00S00188.1tm     +++|*                ---         -----------
00226  M00S00189.1tm     +++|*
00227  M00S00190.1tm     +++|*               11-6         NOT USED.
00228  M00S00191.1tm     +++|*                  5         ENABLE LOOP-BACK.
00229  M00S00192.1tm     +++|*                  4         DISABLE PARITY.
00230  M00S00193.1tm     +++|*                  3         NUMBER OF STOP BITS-
00231  M00S00194.1tm     +++|*                                0 = 1 STOP BIT.
00232  M00S00195.1tm     +++|*                                1 = 2 STOP BITS.
00233  M00S00196.1tm     +++|*                2-1         DATA BITS PER CHARACTER-
00234  M00S00197.1tm     +++|*                               00 = 5 BITS.
00235  M00S00198.1tm     +++|*                               01 = 6 BITS.
00236  M00S00199.1tm     +++|*                               10 = 7 BITS.
00237  M00S00200.1tm     +++|*                               11 = 8 BITS.
00238  M00S00201.1tm     +++|*                  0         PARITY-
00239  M00S00202.1tm     +++|*                                0 = ODD PARITY.
00240  M00S00203.1tm     +++|*                                1 = EVEN PARITY.
00241  M00S00204.1tm     +++|*
00242  M00S00205.1tm     +++|*
00243  M00S00206.1tm     +++|*         INPUT DATA BYTE FORMAT-
00244  M00S00207.1tm     +++|*
00245  M00S00208.1tm     +++|*                BIT         DESCRIPTION
00246  M00S00209.1tm     +++|*                ---         -----------
00247  M00S00210.1tm     +++|*
00248  M00S00211.1tm     +++|*                 11         DATA SET READY.
00249  M00S00212.1tm     +++|*                 10         DATA SET READY .AND. CARRIER ON.
00250  M00S00213.1tm     +++|*                  9         LOST DATA.
00251  M00S00214.1tm     +++|*                  8         FRAMING ERROR OR PARITY ERROR.
00252  M00S00215.1tm     +++|*                7-0         DATA BITS.
00253  M00S00216.1tm     +++|*
00254  M00S00217.1tm     +++|*
00255  M00S00218.1tm     +++|*         OUTPUT DATA BYTE FORMAT-
00256  M00S00219.1tm     +++|*
00257  M00S00220.1tm     +++|*                BIT         DESCRIPTION
00258  M00S00221.1tm     +++|*                ---         -----------
00259  M00S00222.1tm     +++|*
00260  M00S00223.1tm     +++|*               11-8         NOT USED.
00261  M00S00224.1tm     +++|*                  7         DATA PARITY.
00262  M00S00225.1tm     +++|*                6-0         DATA BITS (LEAST SIGNIFICANT DATA BIT
00263  M00S00226.1tm     +++|*                            IN BIT POSITION 0).
00264  M00S00227.1tm     +++| ITM      SPACE  4,25
00265  M00S00228.1tm     +++|**        TWO-PORT MULTIPLEXER EST ENTRY.
00266  M00S00229.1tm     +++|*
00267  M00S00230.1tm     +++|*         THE FORMAT OF THE TWO-PORT MULTIPLEXER EQUIPMENT STATUS
00268  M00S00231.1tm     +++|*         TABLE ENTRY IS AS SHOWN BELOW.
00269  M00S00232.1tm     +++|*
00270  M00S00233.1tm     +++|*T EST    12/0, 12/CH, 12/0, 12/RM, 11/0, 1/N
Figure EST

011112232429N0RM03035364748590CH0

00271  M00S00234.1tm     +++|*
00272  M00S00235.1tm     +++|*                CH = CHANNEL NUMBER.
00273  M00S00236.1tm     +++|*
00274  M00S00237.1tm     +++|*                RM = MNEMONIC *RM*.
00275  M00S00238.1tm     +++|*
00276  M00S00239.1tm     +++|*                N  = PORT NUMBER, 0 OR 1.
00277  M00S00240.1tm     +++|*
00278  M00S00241.1tm     +++|*
Line S00242 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00279  M01S00242.ns22000 ---|*         THE FORMAT OF THE CMRDECK ENTRY FOR THE TWO-PORT
Line S00004 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00280  M01S00004.ns22000 +++|*         THE FORMAT OF THE *EQPDECK* ENTRY FOR THE TWO-PORT
00281  M00S00243.1tm     +++|*         MULTIPLEXER IS AS SHOWN BELOW.
00282  M00S00244.1tm     +++|*
Line S00245 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00245.ns22000 ---|*         *EQ*NN=*RM*,ST,,PN,CH
Line S00005 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00005.ns22000 +++|*         EQXXX=RM,ST=ON/OFF,CH=NN,PT=N.
00285  M00S00246.1tm     +++|*
00286  M00S00247.1tm     +++|*                *EQ* = MNEMONIC *EQ*.
00287  M00S00248.1tm     +++|*
00288  M00S00249.1tm     +++|*                *RM* = MNEMONIC *RM*.
00289  M00S00250.1tm     +++|*
00290  M00S00251.1tm     +++|*                ST   = STATUS, *ON* OR *OFF*.
00291  M00S00252.1tm     +++|*
00292  M00S00253.1tm     +++|*                PN   = PORT NUMBER, *0* OR *1*.
00293  M00S00254.1tm     +++|*
00294  M00S00255.1tm     +++|*                CH   = CHANNEL NUMBER.
00295  M00S00256.1tm     +++|*
Line S00257 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00296  M01S00257.ns22000 ---|*         EXAMPLES -
00297  M01S00258.ns22000 ---|*
00298  M01S00259.ns22000 ---|*         EQ50=RM,ON,0,0,15.
00299  M01S00260.ns22000 ---|*              (OR)
00300  M01S00261.ns22000 ---|*         EQ50=RM,ON,,,15.
00301  M01S00262.ns22000 ---|*
00302  M01S00263.ns22000 ---|*                THE ABOVE ENTRY DEFINES EQUIPMENT NUMBER 50
00303  M01S00264.ns22000 ---|*                AS A TWO-PORT MULTIPLEXER ON CHANNEL NUMBER
00304  M01S00265.ns22000 ---|*                15, PORT NUMBER 0, STATUS *ON*.
Line S00006 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00266.1tm     +++| ITM      TITLE  TERMINAL TABLE USAGE.
00312  M00S00267.1tm     +++| ITM      SPACE  4,25
00313  M00S00268.1tm     +++|**        *1TM* TERMINAL TABLE USAGE.
00314  M00S00269.1tm     +++|*
Line S00270 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00315  M01S00270.242l642 ---|*         *1TM* USES THE *RAF* TERMINAL TABLE IN THE SAME
Line S00025 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00316  M01S00025.242l642 +++|*         *1TM* USES THE *RDF* TERMINAL TABLE IN THE SAME
00317  M00S00271.1tm     +++|*         MANNER AS DOES THE 6671/6676 MULTIPLEXER DRIVER,
00318  M00S00272.1tm     +++|*         *1TD*, WITH THE EXCEPTION THAT TERMINAL TYPES
00319  M00S00273.1tm     +++|*         ARE NOT SIGNIFICANT (SINCE ONLY ONE TERMINAL TYPE
00320  M00S00274.1tm     +++|*         AND ONE TRANSLATION TABLE ARE SUPPORTED).
00321  M00S00275.1tm     +++| VFST     SPACE  4,15
00322  M00S00276.1tm     +++|**        TERMINAL TABLE WORD *VFST*.
00323  M00S00277.1tm     +++|*
00324  M00S00278.1tm     +++|*         NOTE - ONLY THOSE FIELDS REFERENCED BY *1TM*
00325  M00S00279.1tm     +++|*         ARE DESCRIBED.
00326  M00S00280.1tm     +++|*
00327  M00S00281.1tm     +++|*T        12/FS, 12/FS+1, 12/FS+2, 12/FS+3, 12/FS+4
Figure

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

00328  M00S00282.1tm     +++|*
00329  M00S00283.1tm     +++|*                FS   = 12/ UPPER 12 BITS OF JSN.
00330  M00S00284.1tm     +++|*
00331  M00S00285.1tm     +++|*                FS+1 = 12/ LOWER 12 BITS OF JSN.
00332  M00S00286.1tm     +++| VROT     SPACE  4,15
00333  M00S00287.1tm     +++|**        TERMINAL TABLE WORD *VROT*.
00334  M00S00288.1tm     +++|*
00335  M00S00289.1tm     +++|*         NOTE - ONLY THOSE FIELDS REFERENCED BY *1TM*
00336  M00S00290.1tm     +++|*         ARE DESCRIBED.
00337  M00S00291.1tm     +++|*
00338  M00S00292.1tm     +++|*T        12/RO, 12/RO+1, 12/RO+2, 12/RO+3, 12/RO+4
Figure

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

00339  M00S00293.1tm     +++|*
00340  M00S00294.1tm     +++|*                RO+4 = JOB STATUS BITS -
00341  M00S00295.1tm     +++|*
00342  M00S00296.1tm     +++|*                            BIT       DESCRIPTION
00343  M00S00297.1tm     +++|*                            ---       -----------
00344  M00S00298.1tm     +++|*                              6       LIST IN PROGRESS.
00345  M00S00299.1tm     +++|*                              4       OUTPUT ON MASS STORAGE.
00346  M00S00300.1tm     +++|*                              0       JOB BUSY IF ZERO.
00347  M00S00301.1tm     +++| VDPT     SPACE  4,15
00348  M00S00302.1tm     +++|**        TERMINAL TABLE WORD *VDPT*.
00349  M00S00303.1tm     +++|*
00350  M00S00304.1tm     +++|*T        12/DP, 12/DP+1, 12/DP+2, 12/DP+3, 12/DP+4
Figure

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

00351  M00S00305.1tm     +++|*
00352  M00S00306.1tm     +++|*                DP   = 12/ FIRST POT OF LINE.
00353  M00S00307.1tm     +++|*
00354  M00S00308.1tm     +++|*                DP+1 = 12/ CURRENT POT OF LINE.
00355  M00S00309.1tm     +++|*
00356  M00S00310.1tm     +++|*                DP+2 = 3/ FIRST WORD OF LINE IN FIRST POT.
00357  M00S00311.1tm     +++|*                       1/ INPUT INITIATED IF SET.
00358  M00S00312.1tm     +++|*                       1/ NEXT POT REQUESTED IF SET.
00359  M00S00313.1tm     +++|*                       3/ CURRENT WORD OF LINE IN CURRENT POT.
00360  M00S00314.1tm     +++|*                       4/ CURRENT CHARACTER OF LINE.
00361  M00S00315.1tm     +++|*
00362  M00S00316.1tm     +++|*                DP+3 = FLAG BITS -
00363  M00S00317.1tm     +++|*
00364  M00S00318.1tm     +++|*                            BIT       DESCRIPTION
00365  M00S00319.1tm     +++|*                            ---       -----------
00366  M00S00320.1tm     +++|*                           11-8       NOT USED.
00367  M00S00321.1tm     +++|*                              7       TERMINAL MODE-
00368  M00S00322.1tm     +++|*                                          0 = *TTY*.
00369  M00S00323.1tm     +++|*                                          1 = *BLKEDIT*.
00370  M00S00324.1tm     +++|*                              6       FULL DUPLEX.
00371  M00S00325.1tm     +++|*                            5-4       NOT USED.
00372  M00S00326.1tm     +++|*                              3       BINARY INPUT.
00373  M00S00327.1tm     +++|*                              2       TRANSPARENT INPUT MODE.
00374  M00S00328.1tm     +++|*                              1       EXTENDED MODE.
00375  M00S00329.1tm     +++|*                              0       ODD PARITY.
00376  M00S00330.1tm     +++|*
00377  M00S00331.1tm     +++|*                DP+4 = 12/ CURRENT REENTRY ADDRESS.
00378  M00S00332.1tm     +++| VCHT     SPACE  4,15
00379  M00S00333.1tm     +++|**        TERMINAL TABLE WORD *VCHT*.
00380  M00S00334.1tm     +++|*
00381  M00S00335.1tm     +++|*T        12/CH, 12/CH+1, 12/CH+2, 12/CH+3, 12/CH+4
Figure

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

00382  M00S00336.1tm     +++|*
00383  M00S00337.1tm     +++|*                CH   = IF INPUT -
00384  M00S00338.1tm     +++|*                       12/ UPPER CHARACTER OF INPUT BYTE.
00385  M00S00339.1tm     +++|*                     = IF OUTPUT -
00386  M00S00340.1tm     +++|*                       12/ STACK FOR ROUTINE ADDRESS.
00387  M00S00341.1tm     +++|*
00388  M00S00342.1tm     +++|*                CH+1 = IF INPUT -
00389  M00S00343.1tm     +++|*                       12/ CHARACTER COUNT OF LINE.
00390  M00S00344.1tm     +++|*                     = IF OUTPUT -
00391  M00S00345.1tm     +++|*                       12/ SCRATCH.
00392  M00S00346.1tm     +++|*
00393  M00S00347.1tm     +++|*                CH+2 = IF INPUT -
00394  M00S00348.1tm     +++|*                       12/SCRATCH.
00395  M00S00349.1tm     +++|*                     = IF OUTPUT -
00396  M00S00350.1tm     +++|*                       12/ PARTIALLY PROCESSED CONTROL BYTE.
00397  M00S00351.1tm     +++|*
00398  M00S00352.1tm     +++|*                CH+3 = 12/ INPUT CHARACTER COUNT ACCUMULATOR.
00399  M00S00353.1tm     +++|*
00400  M00S00354.1tm     +++|*                CH+4 = 12/ OUTPUT CHARACTER COUNT ACCUMULATOR.
Line S00009 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00355.1tm     +++| VDCT     SPACE  4,15
00406  M00S00356.1tm     +++|**        TERMINAL TABLE WORD *VDCT*.
00407  M00S00357.1tm     +++|*
00408  M00S00358.1tm     +++|*         NOTE - ONLY THOSE BITS AND FIELDS DIRECTLY USED BY *1TM*
00409  M00S00359.1tm     +++|*         ARE DESCRIBED.
00410  M00S00360.1tm     +++|*
00411  M00S00361.1tm     +++|*T        12/DC, 12/DC+1, 12/DC+2, 12/DC+3, 12/DC+4
Figure

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

00412  M00S00362.1tm     +++|*
00413  M00S00363.1tm     +++|*                DC   = FLAG BITS -
00414  M00S00364.1tm     +++|*
00415  M00S00365.1tm     +++|*                            BIT       DESCRIPTION
00416  M00S00366.1tm     +++|*                            ---       -----------
00417  M00S00367.1tm     +++|*                             11       DRIVER REQUEST IN BYTE 4.
00418  M00S00368.1tm     +++|*                             10       INTERRUPT ACKNOWLEDGE.
00419  M00S00369.1tm     +++|*                              9       LOGGED IN.
00420  M00S00370.1tm     +++|*                              6       READ DATA.
00421  M00S00371.1tm     +++|*                              3       EXTENDED (ASCII 6/12) MODE.
00422  M00S00372.1tm     +++|*                              2       TEXT MODE.
00423  M00S00373.1tm     +++|*                              1       AUTO MODE.
00424  M00S00374.1tm     +++|*                              0       TAPE MODE.
00425  M00S00375.1tm     +++|*
00426  M00S00376.1tm     +++|*                DC+1 = CONTROL FIELDS -
00427  M00S00377.1tm     +++|*
00428  M00S00378.1tm     +++|*                            BIT       DESCRIPTION
00429  M00S00379.1tm     +++|*                            ---       -----------
00430  M00S00380.1tm     +++|*                            7-3       USER DELAY COUNT.
00431  M00S00381.1tm     +++|*                            2-0       FWA IN OUTPUT POT.
00432  M00S00382.1tm     +++|*
00433  M00S00383.1tm     +++|*                DC+3 = ACCESS CONTROL -
00434  M00S00384.1tm     +++|*
00435  M00S00385.1tm     +++|*                            BIT       DESCRIPTION
00436  M00S00386.1tm     +++|*                            ---       -----------
00437  M00S00387.1tm     +++|*                             10       NO TIME-OUT.
00438  M00S00388.1tm     +++|*
00439  M00S00389.1tm     +++|*                DC+4 = INTERLOCK BYTE.  IF NONZERO, ONLY *1TM*
Line S00390 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00440  M01S00390.242l642 ---|*                       MAY MODIFY *VDCT*.  IF ZERO, ONLY *RAF*
Line S00026 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00441  M01S00026.242l642 +++|*                       MAY MODIFY *VDCT*.  IF ZERO, ONLY *RDF*
00442  M00S00391.1tm     +++|*                       MAY MODIFY *VDCT*.
00443  M00S00392.1tm     +++|*                     = 12/ DRIVER REQUEST IF BIT 2**11 OF BYTE
00444  M00S00393.1tm     +++|*                           0 IS SET,
00445  M00S00394.1tm     +++|*                     = 12/ OUTPUT POT IF BIT 2**11 OF BYTE
00446  M00S00395.1tm     +++|*                           0 IS NOT SET.
00447  M00S00396.1tm     +++| VSTT     SPACE  4,15
00448  M00S00397.1tm     +++|**        TERMINAL TABLE WORD *VSTT*.
00449  M00S00398.1tm     +++|*
00450  M00S00399.1tm     +++|*         NOTE - ONLY THOSE FIELDS REFERENCED BY *1TM*
00451  M00S00400.1tm     +++|*         ARE DESCRIBED.
00452  M00S00401.1tm     +++|*
00453  M00S00402.1tm     +++|*T        12/ST, 12/ST+1, 12/ST+2, 12/ST+3, 12/ST+4
Figure

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

00454  M00S00403.1tm     +++|*
00455  M00S00404.1tm     +++|*                ST = FLAG BITS -
00456  M00S00405.1tm     +++|*
00457  M00S00406.1tm     +++|*                            BIT       DESCRIPTION
00458  M00S00407.1tm     +++|*                            ---       -----------
00459  M00S00408.1tm     +++|*                              8       DETACH IN PROGRESS.
00460  M00S00409.1tm     +++|*                              0       LOGOUT IN PROGRESS.
00461  M00S00410.1tm     +++|
00462  M00S00411.1tm     +++|          TITLE  DEFINITION COMMON DECKS.
00463  M00S00412.1tm     +++| ITM      SPACE  4,10
00464  M00S00413.1tm     +++|**        DEFINE *QUAL* BLOCK ORDER.
00465  M00S00414.1tm     +++|
00466  M00S00415.1tm     +++|
00467  M00S00416.1tm     +++|          QUAL   CTL         CONTROL BLOCK
00468  M00S00417.1tm     +++|          QUAL   RDM         READ MODE
00469  M00S00418.1tm     +++|          QUAL   WTM         WRITE MODE
00470  M00S00419.1tm     +++|          QUAL   TRN         TRANSLATION TABLES
00471  M00S00420.1tm     +++|          QUAL   TLX         DRIVER-TO-EXECUTIVE FUNCTIONS
00472  M00S00421.1tm     +++|          QUAL   1TD         EXECUTIVE-TO-DRIVER FUNCTIONS
00473  M00S00422.1tm     +++|          QUAL   MACRO$      MACRO CALLS
00474  M00S00423.1tm     +++|          QUAL
00475  M00S00424.1tm     +++| ITM      SPACE  4,10
00476  M00S00425.1tm     +++|**        DEFINITION COMMON DECKS.
00477  M00S00426.1tm     +++|
00478  M00S00427.1tm     +++|
00479  M00S00428.1tm     +++|*CALL     COMPMAC
Line S00429 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00480  M01S00429.ns2149  ---|*CALL     COMPCHI
Line S00002 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00481  M01S00002.ns2149  +++|*CALL     COMPMRM
00482  M00S00430.1tm     +++|*CALL     COMSCPS
Line S00003 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00483  M01S00003.ns2149  +++|*CALL     COMSIOU
00484  M00S00431.1tm     +++|*CALL     COMSPIM
00485  M00S00432.1tm     +++|*CALL     COMSREM
Line S00001 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00001.v22l602 +++|*CALL     COMSSSD
00487  M00S00433.1tm     +++|*CALL     COMSTCM
00488  M00S00434.1tm     +++|          LIST   X
00489  M00S00435.1tm     +++|*CALL     COMSTDR
00490  M00S00436.1tm     +++|          LIST   *
00491  M00S00437.1tm     +++|          TITLE  MACRO DEFINITIONS.
00492  M00S00438.1tm     +++| ADCM     SPACE  4,10
00493  M00S00439.1tm     +++|**        ADCM - GENERATE ADD CONSTANT MACRO.
00494  M00S00440.1tm     +++|*
00495  M00S00441.1tm     +++|*         ADCM   OPC,TBL
00496  M00S00442.1tm     +++|*
00497  M00S00443.1tm     +++|*         ENTRY  *OPC* = MACRO NAME TO BE GENERATED.
00498  M00S00444.1tm     +++|*                *TBL* = TABLE NAME OF ADDRESSES OF MACRO CALLS.
00499  M00S00445.1tm     +++|*
00500  M00S00446.1tm     +++|*         MACROS MACREF.
00501  M00S00447.1tm     +++|
00502  M00S00448.1tm     +++|
00503  M00S00449.1tm     +++| ADCM     MACRO  OPC,TBL,INST
00504  M00S00450.1tm     +++| OPC      MACRO  CNST
00505  M00S00451.1tm     +++|          LOCAL  A
00506  M00S00452.1tm     +++|          MACREF OPC
00507  M00S00453.1tm     +++|          QUAL
00508  M00S00454.1tm     +++|          IFC    EQ,$INST$$
00509  M00S00455.1tm     +++| A        ADC    CNST
00510  M00S00456.1tm     +++|          ELSE   1
00511  M00S00457.1tm     +++| A        INST   CNST
00512  M00S00458.1tm     +++|          ENDIF
00513  M00S00459.1tm     +++|          QUAL   *
00514  M00S00460.1tm     +++| TBL      RMT
00515  M00S00461.1tm     +++|          CON    A
00516  M00S00462.1tm     +++| TBL      RMT
00517  M00S00463.1tm     +++| OPC      ENDM
00518  M00S00464.1tm     +++| ADCM     ENDM
00519  M00S00465.1tm     +++|
00520  M00S00466.1tm     +++|
00521  M00S00467.1tm     +++|*         DEFINE MACROS.
00522  M00S00468.1tm     +++|
00523  M00S00469.1tm     +++|
00524  M00S00470.1tm     +++|          ADCM   ADCRA,TRAA
00525  M00S00471.1tm     +++|          ADCM   LDCRA,TRAA,LDC
00526  M00S00472.1tm     +++|          ADCM   ADCTR,TTRA
00527  M00S00473.1tm     +++|          ADCM   ADCPT,TPTA
00528  M00S00474.1tm     +++|          ADCM   ADCPL,TPLA
00529  M00S00475.1tm     +++|          ADCM   LDCDQ,TDQA,LDC
00530  M00S00476.1tm     +++|          ADCM   LMCDQ,TDQA,LMC
00531  M00S00477.1tm     +++|          ADCM   ADCBM,TBMA
00532  M00S00478.1tm     +++|          ADCM   LDCTN,TTNA,LDC
00533  M00S00479.1tm     +++| ASCO     SPACE  4,10
00534  M00S00480.1tm     +++|**        ASCO - GENERATE MULTIPLEXER OUTPUT FOR *ASCII* CODE.
00535  M00S00481.1tm     +++|*
00536  M00S00482.1tm     +++|*NAME     ASCO   CH,EQU
00537  M00S00483.1tm     +++|*
00538  M00S00484.1tm     +++|*         ENTRY  *NAME* = NAME FOR ASSIGNMENT OF CODE.
00539  M00S00485.1tm     +++|*                *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00540  M00S00486.1tm     +++|*                *EQU* = ASSIGNMENT PSEUDO OP.
00541  M00S00487.1tm     +++|*
00542  M00S00488.1tm     +++|*         MACROS PAR.
00543  M00S00489.1tm     +++|
00544  M00S00490.1tm     +++|
00545  M00S00491.1tm     +++|          MACRO  ASCO,A,C,D
00546  M00S00492.1tm     +++|  NOREF .1
00547  M00S00493.1tm     +++|  PAR 0#_C,0
00548  M00S00494.1tm     +++|A D 4000+0#_C+.1*200
00549  M00S00495.1tm     +++| ASCO     ENDM
00550  M00S00496.1tm     +++| INASC    SPACE  4,10
00551  M00S00497.1tm     +++|**        INASC - GENERATE *ASCII* INPUT TRANSLATION.
00552  M00S00498.1tm     +++|*
00553  M00S00499.1tm     +++|*CH       INASC  DPC,PROC
00554  M00S00500.1tm     +++|*
00555  M00S00501.1tm     +++|*         ENTRY  *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00556  M00S00502.1tm     +++|*                *DPC* = DISPLAY CODE VALUE.
00557  M00S00503.1tm     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00558  M00S00504.1tm     +++|
00559  M00S00505.1tm     +++|
00560  M00S00506.1tm     +++|          MACRO  INASC,A,C,D
00561  M00S00507.1tm     +++|  NOREF .2,.3
00562  M00S00508.1tm     +++|  IFC NE,*C**
00563  M00S00509.1tm     +++|.2 SET D
00564  M00S00510.1tm     +++|.3 SET C/100
00565  M00S00511.1tm     +++|  IFNE .3,0,2
00566  M00S00512.1tm     +++|.2 SET D CES
00567  M00S00513.1tm     +++|.3 SET .3/2-74/2
00568  M00S00514.1tm     +++|   VFD 5/.2,1/.3,6/C-C/100*100
00569  M00S00515.1tm     +++|  ELSE 2
00570  M00S00516.1tm     +++|.2 SET D NLI
00571  M00S00517.1tm     +++|   VFD 5/.2,7/0
00572  M00S00518.1tm     +++| INASC    ENDM
00573  M00S00519.1tm     +++| JMP      SPACE  4,15
00574  M00S00520.1tm     +++|**        JMP - GENERATE THREADED JUMP.
00575  M00S00521.1tm     +++|*
00576  M00S00522.1tm     +++|*         JMP    ADDR
00577  M00S00523.1tm     +++|*
00578  M00S00524.1tm     +++|*         ENTRY  *ADDR* = BRANCH ADDRESS.
00579  M00S00525.1tm     +++|*
00580  M00S00526.1tm     +++|*         MACROS UJP.
00581  M00S00527.1tm     +++|
00582  M00S00528.1tm     +++|
00583  M00S00529.1tm     +++| JMP      MACRO  A
00584  M00S00530.1tm     +++|   NOREF ._A
00585  M00S00531.1tm     +++|.1 IF DEF,._A
Line S00532 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00532.242l642 ---|   IFLE *-._A,37B,1
00587  M01S00533.242l642 ---|   UJN ._A
00588  M01S00534.242l642 ---|   IFGE *-._A,40B,2
Line S00027 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00589  M01S00027.242l642 +++|.2 IFLE *-._A,37B
00590  M01S00028.242l642 +++|  UJN ._A
00591  M01S00029.242l642 +++| ._A SET *-1
00592  M01S00030.242l642 +++|.2 ELSE
00593  M00S00535.1tm     +++| ._A SET *
00594  M00S00536.1tm     +++|  LJM A
Line S00031 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00031.242l642 +++|.2 ENDIF
00596  M00S00537.1tm     +++|.1 ELSE
00597  M00S00538.1tm     +++| ._A SET *
00598  M00S00539.1tm     +++|   UJP A
00599  M00S00540.1tm     +++|.1 ENDIF
00600  M00S00541.1tm     +++| JMP      ENDM
00601  M00S00542.1tm     +++| OTASC    SPACE  4,10
00602  M00S00543.1tm     +++|**        OTASC - GENERATE *ASCII* OUTPUT TRANSLATION.
00603  M00S00544.1tm     +++|*
00604  M00S00545.1tm     +++|*DPC      OTASC  CH,PROC
00605  M00S00546.1tm     +++|*
00606  M00S00547.1tm     +++|*         ENTRY  *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00607  M00S00548.1tm     +++|*                *DPC* = DISPLAY CODE VALUE.
00608  M00S00549.1tm     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00609  M00S00550.1tm     +++|*
00610  M00S00551.1tm     +++|*         MACROS ASCO.
00611  M00S00552.1tm     +++|
00612  M00S00553.1tm     +++|
00613  M00S00554.1tm     +++|          MACRO  OTASC,A,C,D
00614  M00S00555.1tm     +++|  NOREF .2
00615  M00S00556.1tm     +++|  IFC NE,*C**
00616  M00S00557.1tm     +++|.2 ASCO C,SET
00617  M00S00558.1tm     +++|  CON .2
00618  M00S00559.1tm     +++|  ELSE 1
00619  M00S00560.1tm     +++|  CON D NLO
00620  M00S00561.1tm     +++| OTASC    ENDM
00621  M00S00562.1tm     +++| PAR      SPACE  4,10
00622  M00S00563.1tm     +++|**        PAR - GENERATE CHARACTER PARITY BIT.
00623  M00S00564.1tm     +++|*
00624  M00S00565.1tm     +++|*         PAR    CH,OE
00625  M00S00566.1tm     +++|*
00626  M00S00567.1tm     +++|*         ENTRY  *CH* = CHARACTER VALUE.
00627  M00S00568.1tm     +++|*                *OE* = ODD/EVEN (0=EVEN, 1=ODD)
00628  M00S00569.1tm     +++|*
00629  M00S00570.1tm     +++|*         EXIT   *.1* = PARITY.
00630  M00S00571.1tm     +++|
00631  M00S00572.1tm     +++|
00632  M00S00573.1tm     +++| PAR      MACRO  A,B
00633  M00S00574.1tm     +++|  NOREF .1
00634  M00S00575.1tm     +++|P MICRO A+1,1, 011010011001011010010110011010011001011001101001011010011
00635  M00S00576.1tm     +++|,00101101001011001101001011010011001011001101001100101101001011001101001
00636  M00S00577.1tm     +++|.1 SET "P"&;B
00637  M00S00578.1tm     +++| PAR      ENDM
00638  M00S00579.1tm     +++| RETURN   SPACE  4,10
00639  M00S00580.1tm     +++|**        RETURN - RETURN TO MANAGER TO ADVANCE TERMINAL PROCESSING.
00640  M00S00581.1tm     +++|*
00641  M00S00582.1tm     +++|*         RETURN  ADDR
00642  M00S00583.1tm     +++|*
00643  M00S00584.1tm     +++|*         ENTRY  *ADDR* = NEXT PROCESSSING ADDRESS.  IF NULL
00644  M00S00585.1tm     +++|*                         OR IF "*", RETURN TO NEXT PROGRAM
00645  M00S00586.1tm     +++|*                         ADDRESS.
00646  M00S00587.1tm     +++|*
00647  M00S00588.1tm     +++|*         MACROS JMP, MACREF.
00648  M00S00589.1tm     +++|
00649  M00S00590.1tm     +++|
00650  M00S00591.1tm     +++|          PURGMAC RETURN
00651  M00S00592.1tm     +++| RETURN   MACRO  A
00652  M00S00593.1tm     +++|  MACREF RETURN
00653  M00S00594.1tm     +++|.1 IFC EQ,$A$$
00654  M00S00595.1tm     +++|  RJM MGR$
00655  M00S00596.1tm     +++|.1 ELSE
00656  M00S00597.1tm     +++|.2 IFC EQ,$A$*$
00657  M00S00598.1tm     +++|  RJM MGR$
00658  M00S00599.1tm     +++|.2 ELSE
00659  M00S00600.1tm     +++|  LDC A
00660  M00S00601.1tm     +++|  JMP MGR=
00661  M00S00602.1tm     +++|.2 ENDIF
00662  M00S00603.1tm     +++|.1 ENDIF
00663  M00S00604.1tm     +++| RETURN   ENDM
00664  M00S00605.1tm     +++| TTADD    SPACE  4,10
00665  M00S00606.1tm     +++|**        TTADD - GENERATE TERMINAL TABLE ADDRESS.
00666  M00S00607.1tm     +++|*
00667  M00S00608.1tm     +++|*TAG      TTADD  NAM,OPR,TNUM
00668  M00S00609.1tm     +++|*
00669  M00S00610.1tm     +++|*         ENTRY  *NAM* = DESIRED WORD OF TERMINAL TABLE ENTRY.
00670  M00S00611.1tm     +++|*                *OPR* = OPERAND TO LOAD A. (IF NULL *LDD*)
00671  M00S00612.1tm     +++|*                *TNUM* = TAG NAME OF TERMINAL NUMBER. (IF NULL *TN*)
00672  M00S00613.1tm     +++|*
00673  M00S00614.1tm     +++|*         EXIT   (A) = DESIRED ADDRESS.
00674  M00S00615.1tm     +++|
00675  M00S00616.1tm     +++|
00676  M00S00617.1tm     +++|          MACRO  TTADD,TAG,NAM,OPR,TNUM
00677  M00S00618.1tm     +++|  LOCAL A
00678  M00S00619.1tm     +++|  MACREF TTADD
00679  M00S00620.1tm     +++|TAG  TTAP OPR,TNUM
00680  M00S00621.1tm     +++|  QUAL
00681  M00S00622.1tm     +++|A ADC NAM
00682  M00S00623.1tm     +++|  QUAL *
00683  M00S00624.1tm     +++|TTTA RMT
00684  M00S00625.1tm     +++|  CON A
00685  M00S00626.1tm     +++|TTTA RMT
00686  M00S00627.1tm     +++|TTADD     ENDM
00687  M00S00628.1tm     +++|          TITLE  SYMBOLIC EQUIVALENCES.
00688  M00S00629.1tm     +++|          SPACE  4,10
00689  M00S00630.1tm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00690  M00S00631.1tm     +++|
00691  M00S00632.1tm     +++|
00692  M00S00633.1tm     +++| DI       EQU    16          MULTIPLEXER INPUT DATA
00693  M00S00634.1tm     +++| DO       EQU    17          MULTIPLEXER OUTPUT DATA
00694  M00S00635.1tm     +++|
00695  M00S00636.1tm     +++| DP       EQU    20 - 24     TERMINAL TABLE WORD *VDPT*
00696  M00S00637.1tm     +++|*                            12/ FIRST POT OF CURRENT LINE
00697  M00S00638.1tm     +++|*                            12/ CURRENT POT OF CURRENT LINE
00698  M00S00639.1tm     +++|*                            12/ CURRENT WORD AND BYTE OF CURRENT POT
00699  M00S00640.1tm     +++|*                            12/ TERMINAL MODE FLAGS
00700  M00S00641.1tm     +++|*                            12/ DRIVER CONTROL ADDRESS
00701  M00S00642.1tm     +++|
00702  M00S00643.1tm     +++| CH       EQU    25 - 31     TERMINAL TABLE WORD *VCHT*
00703  M00S00644.1tm     +++|*                            12/ TEMPORARY STORAGE
00704  M00S00645.1tm     +++|*                            12/ LINE CHARACTER COUNT
00705  M00S00646.1tm     +++|*                            12/ PARTIALLY PROCESSED CONTROL BYTE
00706  M00S00647.1tm     +++|*                            12/ INPUT CHARACTER COUNT
00707  M00S00648.1tm     +++|*                            12/ OUTPUT CHARACTER COUNT
00708  M00S00649.1tm     +++|
00709  M00S00650.1tm     +++| DC       EQU    32 - 36     TERMINAL TABLE WORD *VDCT*
Line S00651 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00710  M01S00651.ns2149  ---| ST       EQU    37          MULTIPLEXER PORT STATUS
Line S00004 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00711  M01S00004.ns2149  +++| RN       EQU    37          REGISTER NUMBER
00712  M00S00652.1tm     +++| LF       EQU    40          LINE ACTIVITY FLAG
Line S00032 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00713  M01S00032.242l642 +++| F7       EQU    41          START OF *F7* SEQUENCE/NO TIME-OUT = 1
00714  M00S00653.1tm     +++| IN       EQU    42 - 46     CIRCULAR QUEUE *IN* POINTER
00715  M00S00654.1tm     +++| PN       EQU    47          PORT NUMBER - 0 OR 1
00716  M00S00655.1tm     +++| PY       EQU    57          PARITY - BIT 2**7 SET IF ODD PARITY
Line S00656 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00656.242l642 ---| RQ       EQU    60 - 64     *RAF* REQUEST WORD
Line S00033 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00718  M01S00033.242l642 +++| RQ       EQU    60 - 64     *RDF* REQUEST WORD
00719  M00S00657.1tm     +++| TN       EQU    64          TERMINAL NUMBER
Line S00658 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00720  M01S00658.ns22000 ---| EQ       EQU    65          EQUIPMENT NUMBER
Line S00012 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00721  M01S00012.ns22000 +++| EQ       EQU    65          EST ORDINAL
00722  M00S00659.1tm     +++| HS       EQU    66          HALF-SECOND FLAG - SET TO 1 FOR
00723  M00S00660.1tm     +++|                             ONE DRIVER CYCLE EACH HALF-SECOND
00724  M00S00661.1tm     +++| IT       EQU    67          HALF-SECOND INTERVAL TIMER - DECREMENTED
00725  M00S00662.1tm     +++|                             BY 1 EACH HALF-SECOND IF NONZERO
00726  M00S00663.1tm     +++| ITM      SPACE  4,10
00727  M00S00664.1tm     +++|**        TIME-OUT VALUES.
00728  M00S00665.1tm     +++|
00729  M00S00666.1tm     +++|
00730  M00S00667.1tm     +++| COTIO    EQU    2*2         *CARRIER ON* TIME-OUT (1/2 SECONDS)
00731  M00S00668.1tm     +++| DSRTIO   EQU    2*2         *DATA SET READY* TIME-OUT (1/2 SECONDS)
Line S00669 Modification History
M01 (Removed by) ns2255
Seq #  *Modification Id* Act 
----------------------------+
00732  M01S00669.ns2255  ---| FNTIO    EQU    3000D/128D  FUNCTION TIME-OUT (*DELAY* CYCLES)
Line S00670 Modification History
M01 (Removed by) ns2187
Seq #  *Modification Id* Act 
----------------------------+
00733  M01S00670.ns2187  ---| HUPTIO   EQU    2*2         HANG-UP-PHONE DELAY (1/2 SECONDS)
Line S00001 Modification History
M01 (Added by) ns2187
Seq #  *Modification Id* Act 
----------------------------+
00734  M01S00001.ns2187  +++| HUPTIO   EQU    3*2         HANG-UP-PHONE DELAY (1/2 SECONDS)
00735  M00S00671.1tm     +++| INATIO   EQU    15D*60D     INACTIVITY TIME-OUT (SECONDS)
00736  M00S00672.1tm     +++| LINTIO   EQU    5*2         LOGIN TIME-OUT (1/2 SECONDS)
00737  M00S00673.1tm     +++| NTIO     EQU    10D*60D*2   NORMAL TIME-OUT (1/2 SECONDS)
00738  M00S00674.1tm     +++| RINGTIO  EQU    4*2         RING INDICATOR TIME-OUT (1/2 SECONDS)
Line S00034 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00739  M01S00034.242l642 +++| RPATIO   EQU    2*2         REGAIN PORT ACCESS TIME-OUT (1/2 SECONDS)
00740  M00S00675.1tm     +++| UTIO     EQU    30D*2       USER NUMBER TIME-OUT (1/2 SECONDS)
Line S00035 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00741  M01S00035.242l642 +++|
00742  M01S00036.242l642 +++| PRTO     EQU    3*60D*10D   INITIAL PORT RESERVATION TIME-OUT
00743  M00S00676.1tm     +++| ITM      SPACE  4,10
00744  M00S00677.1tm     +++|**        PROGRAM EQUIVALENCES.
00745  M00S00678.1tm     +++|
00746  M00S00679.1tm     +++|
00747  M00S00680.1tm     +++| BDRATE   EQU    9600D       MAXIMUM BAUD RATE
00748  M00S00681.1tm     +++| CHRATE   EQU    BDRATE/10D  CHARACTER RATE/SEC
00749  M00S00682.1tm     +++| LODS     EQU    10          OPERATOR DISPLAY BUFFER LENGTH
Line S00683 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00750  M01S00683.ns2149  ---| MC       EQU    15          MULTIPLEXER CHANNEL
00751  M00S00684.1tm     +++| MNCT     EQU    1000D/CHRATE  MINIMUM CYCLE TIME (MSECS)
Line S00685 Modification History
M01 (Removed by) 1tm6
Seq #  *Modification Id* Act 
----------------------------+
00752  M01S00685.1tm6    ---| MXIC     EQU    160D        MAXIMUM INPUT CHARACTERS/LINE
Line S00005 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00753  M01S00005.ns2149  +++| OMBUFL   EQU    37D         OPERATOR MESSAGE BUFFER LENGTH
Line S00686 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00754  M01S00686.242l642 ---| RCLDLY   EQU    4           PPU RECALL DELAY (SECONDS)
Line S00037 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00755  M01S00037.242l642 +++| RCLDLY   EQU    2           PP RECALL DELAY (SECONDS)
00756  M01S00038.242l642 +++| NRPR     EQU    77          DELAY FOR REGAINING PORT ACCESS
00757  M00S00687.1tm     +++|          SPACE  4,10
00758  M00S00688.1tm     +++|**        CHARACTER EQUIVALENCES.
00759  M00S00689.1tm     +++|
00760  M00S00690.1tm     +++|
00761  M00S00691.1tm     +++|*         INTERNAL CODES.
00762  M00S00692.1tm     +++|
00763  M00S00693.1tm     +++| .ICR     EQU    210         CARRIAGE RETURN
00764  M00S00694.1tm     +++| .ILF     EQU    211         LINE FEED
00765  M00S00695.1tm     +++| .INL     EQU    212         NEW LINE (CR/LF)
00766  M00S00696.1tm     +++| .ECP     EQU    770001      END OF CURRENT POT
00767  M00S00697.1tm     +++|
00768  M00S00698.1tm     +++|*         CARRIAGE CONTROL MICROS.
00769  M00S00699.1tm     +++|
00770  M00S00700.1tm     +++| CR       MICRO  1,, ;      CARRIAGE RETURN
00771  M00S00701.1tm     +++| LF       MICRO  1,, ;      LINE FEED
00772  M00S00702.1tm     +++| NL       MICRO  1,, ;      NEW LINE (CR/LF)
00773  M00S00703.1tm     +++|
00774  M00S00704.1tm     +++|*         ASCII CHARACTER (7 DATA BITS).
00775  M00S00705.1tm     +++|
00776  M00S00706.1tm     +++| .ABRK    EQU    0#00        (BRK) BREAK
00777  M00S00707.1tm     +++| .ACLN    EQU    0#3A        (CLN) COLON
00778  M00S00708.1tm     +++| .AESC    EQU    0#1B        (ESC) ESCAPE
Line S00709 Modification History
M01 (Removed by) 1tm5
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00709.1tm5    ---| .APCT    EQU    0#30        (PCT) PERCENT
Line S00001 Modification History
M01 (Added by) 1tm5
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00001.1tm5    +++| .APCT    EQU    0#25        (PCT) PERCENT
00781  M00S00710.1tm     +++| .ASP     EQU    0#20        (CR)  SPACE
00782  M00S00711.1tm     +++|
00783  M00S00712.1tm     +++|*         *ASCII* TERMINAL CONTROL CHARACTERS.
00784  M00S00713.1tm     +++|
00785  M00S00714.1tm     +++| .CCAN    ASCO   18,EQU      (CAN) CANCEL (CTL-X)
00786  M00S00715.1tm     +++| .CCLN    ASCO   3A,EQU      (CLN) COLON
00787  M00S00716.1tm     +++| .CCR     ASCO   0D,EQU      (CR)  CARRIAGE RETURN
00788  M00S00717.1tm     +++| .CDC1    ASCO   11,EQU      (DC1) DEVICE CONTOL 1
00789  M00S00718.1tm     +++| .CDC4    ASCO   14,EQU      (DC4) DEVICE CONTROL 4
00790  M00S00719.1tm     +++| .CDEL    ASCO   7F,EQU      (DEL) DELETE
00791  M00S00720.1tm     +++| .CLF     ASCO   0A,EQU      (LF) LINE FEED
00792  M00S00721.1tm     +++| .CNUL    ASCO   00,EQU      (NUL) NULL
00793  M00S00722.1tm     +++| .CPCT    ASCO   25,EQU      (PCT) PERCENT
Line S00039 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00794  M01S00039.242l642 +++| .CRS     ASCO   1E,EQU      (RS) RECORD SEPARATOR
00795  M00S00723.1tm     +++| ITM      SPACE  4,10
Line S00724 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00796  M01S00724.ns2149  ---|**        TWO-PORT MULTIPLEXER FUNCTION CODES.
Line S00006 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00797  M01S00006.ns2149  +++|**        TWO-PORT MULTIPLEXER PORT OPERATING MODE.
00798  M01S00007.ns2149  +++|*
Line S00008 Modification History
M01 (Added by) ns2149
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00008.v23l617 ---|*         DISABLE PARITY      = SELECTED.
00800  M02S00009.v23l617 ---|*         NUMBER OF STOP BITS = 1.
00801  M02S00010.v23l617 ---|*         NUMBER OF DATA BITS = 8 (7 + PARITY).
00802  M02S00011.v23l617 ---|*         PARITY              = N/A.
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00725.1tm     +++|
Line S00726 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00808  M01S00726.ns2149  ---|
00809  M01S00727.ns2149  ---| CLRBUFS  EQU    0700        CLEAR BUFFERS
00810  M01S00728.ns2149  ---| CLRDTR   EQU    0400        CLEAR DATA-TERMINAL-READY
00811  M01S00729.ns2149  ---| CLRRQS   EQU    0500        CLEAR REQUEST-TO-SEND
00812  M01S00730.ns2149  ---| DSELECT  EQU    6000        DESELECT MULTIPLEXER AND PORT
00813  M01S00731.ns2149  ---| READ     EQU    0100        READ PORT DATA
00814  M01S00732.ns2149  ---| SELECT   EQU    7000 + PN   SELECT MULTIPLEXER AND PORT
00815  M01S00733.ns2149  ---| SETDTR   EQU    0401        SET DATA-TERMINAL-READY
00816  M01S00734.ns2149  ---| SETPOM   EQU    0300        SET PORT OPERATION MODE
00817  M01S00735.ns2149  ---| SETRQS   EQU    0501        SET REQUEST-TO-SEND
00818  M01S00736.ns2149  ---| STATUS   EQU    0000        READ MULTIPLEXER AND PORT STATUS
00819  M01S00737.ns2149  ---| WRITE    EQU    0200        WRITE PORT DATA
00820  M01S00738.ns2149  ---|
00821  M01S00739.ns2149  ---| TPMODE   EQU    27          TPM PORT OPERATING MODE-
00822  M01S00740.ns2149  ---|*                              DISABLE PARITY      = SELECTED.
00823  M01S00741.ns2149  ---|*                              NUMBER OF STOP BITS = 1.
00824  M01S00742.ns2149  ---|*                              NUMBER OF DATA BITS = 8 (7 + PARITY).
00825  M01S00743.ns2149  ---|*                              PARITY              = N/A.
Line S00012 Modification History
M01 (Added by) ns2149
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00012.v23l617 ---| TPMODE   EQU    27
Line S00017 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00827  M01S00017.v23l617 +++| TPMODE   EQU    5           SELECT OPERATING MODE
00828  M00S00744.1tm     +++|
00829  M00S00745.1tm     +++|****
00830  M00S00746.1tm     +++| ITM      TITLE  GLOBAL DATA STORAGE.
00831  M00S00747.1tm     +++| FWA      SPACE  4,15
00832  M00S00748.1tm     +++|**        FWA - DRIVER ENTRY POINT.
00833  M00S00749.1tm     +++|
00834  M00S00750.1tm     +++|
00835  M00S00751.1tm     +++|          ORG    PPFW
00836  M00S00752.1tm     +++|
Line S00753 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00837  M01S00753.242l642 ---| FWA      LJM    PRS         PRESET DRIVER
Line S00040 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00754.1tm     +++|*         UJN    ITM         ENTER DRIVER MAIN PROGRAM
00844  M00S00755.1tm     +++|
00845  M00S00756.1tm     +++| FWAE     EQU    *           LWA+1 OF ENTRY CODE
00846  M00S00757.1tm     +++| ITM      SPACE  4,10
00847  M00S00758.1tm     +++|**        1TM - GLOBAL DATA STORAGE.
00848  M00S00759.1tm     +++|
00849  M00S00760.1tm     +++|
00850  M00S00761.1tm     +++|          ORG    FWA
00851  M00S00762.1tm     +++|
00852  M00S00763.1tm     +++| OMCC     BSS    1           OPERATOR MESSAGE CHARACTER COUNT
00853  M00S00764.1tm     +++| RDAT     BSS    1           REPEATED DATA
00854  M00S00765.1tm     +++|
00855  M00S00766.1tm     +++| GLBSE    EQU    *           LWA+1 OF GLOBAL DATA STORAGE
00856  M00S00767.1tm     +++| ITM      SPACE  4,10
00857  M00S00768.1tm     +++| CTL      MAX    FWAE,GLBSE  LWA+1 OF ENTRY CODE AND GLOBAL DATA
00858  M00S00769.1tm     +++| ITM      TITLE  MAIN CONTROL LOOP.
00859  M00S00770.1tm     +++|          QUAL   CTL
00860  M00S00771.1tm     +++|          ORG    CTL
00861  M00S00772.1tm     +++| ITM      SPACE  4,20
00862  M00S00773.1tm     +++|**        ITM - TWO-PORT MULTIPLEXER DRIVER MAIN CONTROL LOOP.
00863  M00S00774.1tm     +++|*
00864  M00S00775.1tm     +++|*         SEQUENTIALLY EXECUTES THE MAIN PROCESSES OF THE
00865  M00S00776.1tm     +++|*         MULTIPLEXER DRIVER.
00866  M00S00777.1tm     +++|*
00867  M00S00778.1tm     +++|*         ENTRY  FROM *PRS* -
00868  M00S00779.1tm     +++|*                EQUIPMENT AND CHANNEL RESERVED.
00869  M00S00780.1tm     +++|*                MULTIPLEXER AND PORT SELECTED.
00870  M00S00781.1tm     +++|*                (IR+3) = REAL-TIME CLOCK (SECONDS) AT START
00871  M00S00782.1tm     +++|*                         OF DRIVER INACTIVITY TIME-OUT.
Line S00783 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00872  M01S00783.ns2149  ---|*                (ST)   = PORT STATUS.
Line S00013 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00873  M01S00013.ns2149  +++|*                (SSMX) = PORT STATUS.
00874  M00S00784.1tm     +++|*                (LF)   = SET *ON* FOR INITIAL CONNECT ATTEMPT.
00875  M00S00785.1tm     +++|*
00876  M00S00786.1tm     +++|*         EXIT   TO *RCL* TO RECALL PPU IF NO MULTIPLEXER ACTIVITY.
Line S00787 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00877  M01S00787.242l642 ---|*                TO *DTO* TO DROP PPU IF TIMED-OUT.
Line S00045 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00878  M01S00045.242l642 +++|*                TO *IMT* TO DROP PPU IF TIMED-OUT.
00879  M00S00788.1tm     +++|*
Line S00789 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00880  M01S00789.ns2149  ---|*         CALLS  AVT, CCQ, CEF, CIT, CMF, MGR., STS, SVM.
Line S00014 Modification History
M01 (Added by) ns2149
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00014.242l642 ---|*         CALLS  AVT, CCQ, CEF, CIT, CMF, MGR., SVM, *2TM*.
Line S00046 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00882  M01S00046.242l642 +++|*         CALLS  AVT, CAR, CCQ, CEF, CIT, CMF, MGR., RPI, SVM, *3TM*.
Line S00015 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00883  M01S00015.ns2149  +++|*
00884  M01S00016.ns2149  +++|*         MACROS EXECUTE.
00885  M00S00790.1tm     +++|
00886  M00S00791.1tm     +++|
00887  M00S00792.1tm     +++| ITM      BSS    0           DRIVER ENTRY
Line S00793 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00888  M01S00793.ns2149  ---|          RJM    CEF         CHECK ERROR FLAG
Line S00017 Modification History
M01 (Added by) ns2149
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00017.242l642 ---|          EXECUTE  2TM       MODIFY TRANSLATION TABLES
Line S00047 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00047.242l642 +++|          EXECUTE  3TM
Line S00018 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00891  M01S00018.ns2149  +++| ITM1     RJM    CEF         CHECK ERROR FLAG
00892  M00S00794.1tm     +++|          RJM    CMF         CHECK *RDF* STATUS
00893  M00S00795.1tm     +++|          RJM    AVT         ADVANCE TIMERS
Line S00796 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00796.ns2149  ---|          RJM    STS         READ PORT STATUS
00895  M00S00797.1tm     +++|          RJM    SVM         SERVICE MULTIPLEXER
00896  M00S00798.1tm     +++|          RJM    MGR.        PROCESS TERMINALS
Line S00799 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00897  M01S00799.242l642 ---|          RJM    CCQ         CHECK CIRCULAR QUEUE
Line S00048 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00800.1tm     +++|          LDD    LF          CHECK LINE ACTIVITY FLAG
Line S00801 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00904  M01S00801.ns2149  ---|          NJN    ITM         IF LINE ACTIVITY, LOOP
Line S00019 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00905  M01S00019.ns2149  +++|          NJN    ITM1        IF LINE ACTIVITY
00906  M01S00020.ns2149  +++|
00907  M01S00021.ns2149  +++|*         EXIT MAIN CONTROL LOOP.
00908  M01S00022.ns2149  +++|
00909  M00S00802.1tm     +++|          RJM    CIT         CHECK INACTIVITY TIME-OUT
Line S00803 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00910  M01S00803.ns2149  ---|          NJN    ITM1        IF TIMED-OUT
Line S00023 Modification History
M01 (Added by) ns2149
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00023.242l642 ---|          NJN    ITM2        IF TIMED-OUT
Line S00053 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00053.242l642 +++|          NJN    ITM3        IF TIMED-OUT
00913  M00S00804.1tm     +++|          LJM    RCL         RECALL PPU
00914  M00S00805.1tm     +++|
Line S00806 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00915  M01S00806.ns2149  ---| ITM1     LJM    DTO         PROCESS DRIVER TIME-OUT
Line S00024 Modification History
M01 (Added by) ns2149
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00024.242l642 ---| ITM2     LJM    DTO         PROCESS DRIVER TIME-OUT
Line S00054 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00807.1tm     +++| MGR      TITLE  MGR - TERMINAL MANAGER.
00924  M00S00808.1tm     +++| MGR      SPACE  4,20
00925  M00S00809.1tm     +++|**        MGR - TERMINAL MANAGER.
00926  M00S00810.1tm     +++|*
00927  M00S00811.1tm     +++|*         THE TERMINAL MANAGER PERFORMS THE STATUS CHECKS UPON THE
00928  M00S00812.1tm     +++|*         PORT AND EXECUTES THE REENTRANT PROCESSOR FOR THE LINE.
00929  M00S00813.1tm     +++|*
00930  M00S00814.1tm     +++|*         ENTRY  (DP+4) = REENTRANT PROCESSING ADDRESS.
Line S00815 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00931  M01S00815.ns2149  ---|*                (ST)   = PORT STATUS.
Line S00025 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00025.ns2149  +++|*                (SSMX) = PORT STATUS.
00933  M00S00816.1tm     +++|*                (DI)   = TERMINAL INPUT.
00934  M00S00817.1tm     +++|*                (DO)   = TERMINAL OUTPUT.
00935  M00S00818.1tm     +++|*
00936  M00S00819.1tm     +++|*         EXIT   TO (DP+4) -
00937  M00S00820.1tm     +++|*                  (A)  = INPUT DATA.
00938  M00S00821.1tm     +++|*                  (DI) = INPUT DATA.
00939  M00S00822.1tm     +++|*                  (DC - DC+4) = TERMINAL TABLE WORD *VDCT*.
00940  M00S00823.1tm     +++|*                TO *CIS* IF INPUT RECEIVED WHILE IN *WRITE* MODE.
00941  M00S00824.1tm     +++|*                TO *OFL* IF TERMINAL DROPS OFF LINE.
00942  M00S00825.1tm     +++|*
00943  M00S00826.1tm     +++|*         CALLS  STA.
00944  M00S00827.1tm     +++|
00945  M00S00828.1tm     +++|
00946  M00S00829.1tm     +++| MGR.     SUBR               ENTRY/EXIT
Line S00830 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00830.ns2149  ---|          LDD    ST          GET PORT STATUS
Line S00026 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
00948  M01S00026.ns2149  +++|          LDM    SSMX        GET PORT STATUS
00949  M00S00831.1tm     +++|          SHN    21-2
00950  M00S00832.1tm     +++|          MJN    MGR1        IF ON-LINE (CARRIER ON)
00951  M00S00833.1tm     +++|
00952  M00S00834.1tm     +++|*         CHECK STATUS OF OFF-LINE TERMINAL.
00953  M00S00835.1tm     +++|
00954  M00S00836.1tm     +++|          LDD    DP+4        CHECK PROCESSOR ADDRESS
00955  M00S00837.1tm     +++|          SBK    LINPE
00956  M00S00838.1tm     +++|          MJN    MGR2        IF LINE PROCESSING
00957  M00S00839.1tm     +++|          LJM    OFL         SET TERMINAL OFF-LINE
00958  M00S00840.1tm     +++|
00959  M00S00841.1tm     +++|*         PROCESS ON-LINE TERMINAL.
00960  M00S00842.1tm     +++|
00961  M00S00843.1tm     +++| MGR1     LDD    DI          CHECK INPUT DATA
00962  M00S00844.1tm     +++|          NJN    MGR3        IF INPUT RECEIVED
00963  M00S00845.1tm     +++|          LDD    DO          CHECK OUTPUT
00964  M00S00846.1tm     +++|          SHN    21-13
00965  M00S00847.1tm     +++|          PJN    MGR2        IF NO OUTPUT IN BUFFER
00966  M00S00848.1tm     +++|          LDD    DP+4        CHECK PROCESSING ADDRESS
00967  M00S00849.1tm     +++|          SBK    WTM
00968  M00S00850.1tm     +++|          PJN    MGR.X       IF IN *WRITE* MODE
00969  M00S00851.1tm     +++|
00970  M00S00852.1tm     +++|*         ENTER TERMINAL PROCESSING ROUTINE.
00971  M00S00853.1tm     +++|
00972  M00S00854.1tm     +++| MGR2     RJM    STA         SET FWA OF TERMINAL TABLE
00973  M00S00855.1tm     +++|          ADN    VDCT        READ *VDCT*
00974  M00S00856.1tm     +++|          CRD    DC
00975  M00S00857.1tm     +++|          LDD    DI          GET INPUT DATA
00976  M00S00858.1tm     +++|          LJM    0,DP+4      ENTER PROCESSING ROUTINE
00977  M00S00859.1tm     +++|
00978  M00S00860.1tm     +++|*         CHECK INPUT RECEIVED.
00979  M00S00861.1tm     +++|
00980  M00S00862.1tm     +++| MGR3     LDD    DP+4        CHECK PROCESSING ADDRESS
00981  M00S00863.1tm     +++|          SBK    WTM
00982  M00S00864.1tm     +++|          MJN    MGR2        IF NOT IN *WRITE* MODE
00983  M00S00865.1tm     +++|          LJM    CIS         CHECK INTERRUPT STATUS
00984  M00S00866.1tm     +++| MGR      SPACE  4,15
00985  M00S00867.1tm     +++|**        MGR - RETURNS FROM REENTRY PROCESSORS.
00986  M00S00868.1tm     +++| MGR      SPACE  4,15
00987  M00S00869.1tm     +++|**        MGR$ - RETURN FROM *RETURN* MACRO (NULL OR * ADDRESS FIELD).
00988  M00S00870.1tm     +++|*
00989  M00S00871.1tm     +++|*         ENTRY  (MGR$) = REENTRY ADDRESS.
00990  M00S00872.1tm     +++|
00991  M00S00873.1tm     +++|
00992  M00S00874.1tm     +++| MGR$     CON    0           (REENTRY ADDRESS)
00993  M00S00875.1tm     +++|          LDM    MGR$        GET REENTRY ADDRESS
00994  M00S00876.1tm     +++|*         UJN    MGR=        SET REENTRY ADDRESS
00995  M00S00877.1tm     +++| MGR=     SPACE  4,15
00996  M00S00878.1tm     +++|**        MGR= - RETURN FROM *RETURN  ADDR* MACRO.
00997  M00S00879.1tm     +++|*
00998  M00S00880.1tm     +++|*         ENTRY  (A) = REENTRY ADDRESS.
00999  M00S00881.1tm     +++|
01000  M00S00882.1tm     +++|
01001  M00S00883.1tm     +++| MGR=     STD    DP+4        SET REENTRY ADDRESS
01002  M00S00884.1tm     +++|*         UJN    MGR         WRITE TERMINAL TABLE WORDS AND EXIT
01003  M00S00885.1tm     +++| MGR      SPACE  4,15
01004  M00S00886.1tm     +++|**        MGR - RETURN WITH NO CHANGE OF REENTRY ADDRESS.
01005  M00S00887.1tm     +++|*
01006  M00S00888.1tm     +++|*         ENTRY  (DP+4) = REENTRY ADDRESS.
01007  M00S00889.1tm     +++|
01008  M00S00890.1tm     +++|
01009  M00S00891.1tm     +++| MGR      RJM    STA         SET FWA OF TERMINAL TABLE
01010  M00S00892.1tm     +++|          ADN    VDPT        WRITE *VDPT* AND *VCHT* TO CM
01011  M00S00893.1tm     +++|          CWD    DP
01012  M00S00894.1tm     +++|          ADK    VCHT-VDPT
01013  M00S00895.1tm     +++|          CWD    CH
01014  M00S00896.1tm     +++|          UJP    MGR.X       EXIT FROM MANAGER
01015  M00S00897.1tm     +++| ITM      TITLE  CTL - LINE PROCESSING ROUTINES.
01016  M00S00898.1tm     +++| DIN      SPACE  4,25
01017  M00S00899.1tm     +++|**        DIN - PROCESS PORT DIALED-IN.
01018  M00S00900.1tm     +++|*
01019  M00S00901.1tm     +++|*         WAITS FOR TERMINAL OPERATOR TO IDENTIFY TERMINAL,
01020  M00S00902.1tm     +++|*         THEN NOTIFIES *RDF* THAT THE TERMINAL HAS DIALED
01021  M00S00903.1tm     +++|*         IN AND REQUESTS LOGIN PROCESSING.
01022  M00S00904.1tm     +++|*
01023  M00S00905.1tm     +++|*         ENTRY  (A) = INPUT DATA.
01024  M00S00906.1tm     +++|*                (DP+4) = *DIN*.
01025  M00S00907.1tm     +++|*
01026  M00S00908.1tm     +++|*         EXIT   TO *LIN* TO PROCESS LOGIN -
01027  M00S00909.1tm     +++|*                  ERROR LOG MESSAGE ISSUED.
01028  M00S00910.1tm     +++|*                  *CAN* ISSUED TO CLEAR SCREEN.
01029  M00S00911.1tm     +++|*                  (CH - CH+4) = 0.
01030  M00S00912.1tm     +++|*                  (DP - DP+2) = 0.
01031  M00S00913.1tm     +++|*                  (DP+3) = *BLKEDIT* OR *TTY* SET.
01032  M00S00914.1tm     +++|*                  (IR+3) = CURRENT REAL-TIME CLOCK (SECONDS).
01033  M00S00915.1tm     +++|*                TO *MGR* IF TERMINAL FAILS TO INITIATE LOGIN.
01034  M00S00916.1tm     +++|*                  (LF) = ZERO TO FORCE DRIVER DROP.
01035  M00S00917.1tm     +++|*
01036  M00S00918.1tm     +++|*         USES   IT, T7.
01037  M00S00919.1tm     +++|*
01038  M00S00920.1tm     +++|*         CALLS  DFM, ERQ.
01039  M00S00921.1tm     +++|*
01040  M00S00922.1tm     +++|*         MACROS RETURN.
01041  M00S00923.1tm     +++|
01042  M00S00924.1tm     +++|
01043  M00S00925.1tm     +++| DIN      BSS    0           ENTRY
01044  M00S00926.1tm     +++|          LDD    DC          CHECK *VDCT* TERMINAL STATUS
01045  M00S00927.1tm     +++|          NJP    MGR         IF LAST USER NOT OFF, RETURN
Line S00060 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00060.242l642 +++|          RJM    SPA
01047  M01S00061.242l642 +++|          RJM    CTM         CLEAR TERMINAL
01048  M01S00062.242l642 +++|          RJM    RMA
01049  M00S00928.1tm     +++|          LDK    LINTIO      SET LOGIN TIME-OUT
01050  M00S00929.1tm     +++|          STD    IT
01051  M00S00930.1tm     +++|          RETURN *           REENTER
01052  M00S00931.1tm     +++|          NJN    DIN1        IF INPUT RECEIVED
01053  M00S00932.1tm     +++|          LDD    IT          GET TIMER
01054  M00S00933.1tm     +++|          STD    LF          SET/CLEAR LINE ACTIVITY FLAG
01055  M00S00934.1tm     +++|          JMP    MGR         EXIT/REENTER
01056  M00S00935.1tm     +++|
01057  M00S00936.1tm     +++|*         CHECK INPUT FOR TERMINAL TYPE INDICATOR.
01058  M00S00937.1tm     +++|*
01059  M00S00938.1tm     +++|*         ENTRY  (A)  = INPUT DATA.
01060  M00S00939.1tm     +++|*                (DI) = INPUT DATA.
01061  M00S00940.1tm     +++|
01062  M00S00941.1tm     +++| DIN1     LPC    177         MASK CHARACTER
01063  M00S00942.1tm     +++|          STD    T7
01064  M00S00943.1tm     +++|          LDN    ZERL        CLEAR DIRECT CELLS
01065  M00S00944.1tm     +++|          CRD    CH
01066  M00S00945.1tm     +++|          CRD    DP
01067  M00S00946.1tm     +++|          LDN    /TLX/DIN    REQUEST DIAL-IN PROCESSING
01068  M00S00947.1tm     +++|          RJM    ERQ
01069  M00S00948.1tm     +++|          LDM    TINT,T7     TRANSLATE INPUT CHARACTER
01070  M00S00949.1tm     +++|          LPN    77
01071  M00S00950.1tm     +++|          LMN    1RB
01072  M00S00951.1tm     +++|          NJN    DIN2        IF NOT *B*
01073  M00S00952.1tm     +++|          LDC    200         SET *BLKEDIT* TERMINAL TYPE
01074  M00S00953.1tm     +++|          RAD    DP+3
01075  M00S00954.1tm     +++| DIN2     LDC    =C* RDF INITIATED.*+ERLN
01076  M00S00955.1tm     +++|          RJM    DFM         ISSUE ERROR LOG MESSAGE
01077  M00S00956.1tm     +++|          LDC    .CCAN       ISSUE *CAN* TO CLEAR SCREEN
01078  M00S00957.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
01079  M00S00958.1tm     +++|          STD    DO
01080  M00S00959.1tm     +++|          RETURN LIN         PROCESS LOGIN
01081  M00S00960.1tm     +++| HUP      SPACE  4,25
01082  M00S00961.1tm     +++|**        HUP - HANG UP PHONE LINE.
01083  M00S00962.1tm     +++|*
01084  M00S00963.1tm     +++|*         ISSUES *DC4* TO TERMINATE SESSION IF *PACER*
01085  M00S00964.1tm     +++|*         TERMINAL.  DISCONNECTS THE COMMUNICATIONS LINE
01086  M00S00965.1tm     +++|*         TO TERMINATE THE CONNECTION.
01087  M00S00966.1tm     +++|*
01088  M00S00967.1tm     +++|*         EXIT   TO *MGR* TO DROP/RECALL DRIVER -
01089  M00S00968.1tm     +++|*                  *DC4* ISSUED IF *PACER* TERMINAL.
Line S00969 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01090  M01S00969.242l642 ---|*                  MULTIPLEXER CLEARED.
Line S00063 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01091  M01S00063.242l642 +++|*                  MULTIPLEXER CLEARED IF PORT IS NEITHER BEING
01092  M01S00064.242l642 +++|*                  REQUESTED NOR RE-REQUESTED.
01093  M00S00970.1tm     +++|*                  TERMINAL TABLE CLEANED UP.
01094  M00S00971.1tm     +++|*                  (IR+3) = CURRENT REAL-TIME CLOCK (SECONDS).
01095  M00S00972.1tm     +++|*                  (DP) = 0.
01096  M00S00973.1tm     +++|*                  (LF)   = ZERO TO FORCE DROP/RECALL.
01097  M00S00974.1tm     +++|*
01098  M00S00975.1tm     +++|*         USES   IT.
01099  M00S00976.1tm     +++|*
Line S00977 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00977.ns2149  ---|*         CALLS  CUT, ERQ, IFN, SAT.
Line S00027 Modification History
M01 (Added by) ns2149
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00027.242l642 ---|*         CALLS  AMA, CUT, ERQ, IFN, RMA, SAT.
Line S00065 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00065.242l642 +++|*         CALLS  AMA, CUT, ERQ, IFN, RPI, RMA, SAT.
01103  M00S00978.1tm     +++|*
01104  M00S00979.1tm     +++|*         MACROS RETURN.
01105  M00S00980.1tm     +++|
01106  M00S00981.1tm     +++|
01107  M00S00982.1tm     +++| HUP      BSS    0           ENTRY
01108  M00S00983.1tm     +++|
01109  M00S00984.1tm     +++|*         ISSUE *DC4* TO TERMINATE SESSION IF *PACER* TERMINAL.
01110  M00S00985.1tm     +++|
01111  M00S00986.1tm     +++|          LDC    .CDC4       ISSUE *DC4*
01112  M00S00987.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
01113  M00S00988.1tm     +++|          STD    DO
01114  M00S00989.1tm     +++|
01115  M00S00990.1tm     +++|*         DELAY TO ALLOW OUTPUT BUFFER TO CLEAR.
01116  M00S00991.1tm     +++|
01117  M00S00992.1tm     +++|          LDK    HUPTIO      SET DELAY
01118  M00S00993.1tm     +++|          STD    IT
01119  M00S00994.1tm     +++|          RETURN *           REENTER
01120  M00S00995.1tm     +++|          LDD    IT          CHECK TIMER
01121  M00S00996.1tm     +++|          ZJN    HUP1        IF DELAY COMPLETE
01122  M00S00997.1tm     +++|          JMP    MGR         REENTER
Line S00998 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00998.242l642 ---|
01124  M01S00999.242l642 ---|*         DISCONNECT COMMUNICATIONS LINE.
Line S00066 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01125  M01S00066.242l642 +++|
01126  M01S00067.242l642 +++|*         DISCONNECT COMMUNICATIONS LINE IF IT IS NOT BEING
01127  M01S00068.242l642 +++|*         RE-REQUESTED BY ANOTHER DRIVER.
01128  M00S01000.1tm     +++|
Line S01001 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01129  M01S01001.ns2149  ---| HUP1     LDK    CLRBUFS     CLEAR MULTIPLEXER I/O BUFFERS
Line S00028 Modification History
M01 (Added by) ns2149
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00028.242l642 ---| HUP1     RJM    AMA         ACQUIRE MULTIPLEXER ACCESS
Line S00069 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00029 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00029.ns2149  +++|          LDK    MXMC        CLEAR MULTIPLEXER I/O BUFFERS
01136  M00S01002.1tm     +++|          RJM    IFN
Line S01003 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01137  M01S01003.ns2149  ---|          LDK    CLRDTR      CLEAR *DATA-TERMINAL-READY*
Line S00030 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01138  M01S00030.ns2149  +++|          LDK    MXDR        CLEAR *DATA TERMINAL READY*
01139  M00S01004.1tm     +++|          RJM    IFN
Line S01005 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01140  M01S01005.ns2149  ---|          LDK    CLRRQS      CLEAR *REQUEST-TO-SEND*
Line S00031 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00031.ns2149  +++|          LDK    MXRTS       CLEAR *REQUEST TO SEND*
01142  M00S01006.1tm     +++|          RJM    IFN
Line S00032 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00032.ns2149  +++|          RJM    RMA         RELEASE MULTIPLEXER ACCESS
01144  M00S01007.1tm     +++|
01145  M00S01008.1tm     +++|*         DROP POTS AND CLEAN UP TERMINAL TABLE.
01146  M00S01009.1tm     +++|
Line S01010 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01147  M01S01010.242l642 ---|          LDD    DP          CHECK IF POTS ASSIGNED
01148  M01S01011.242l642 ---|          ZJN    HUP2        IF NO POTS ASSIGNED
Line S00073 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01149  M01S00073.242l642 +++| HUP2     LDD    DP          CHECK IF POTS ASSIGNED
01150  M01S00074.242l642 +++|          ZJN    HUP3        IF NO POTS ASSIGNED
01151  M00S01012.1tm     +++|          STD    RQ+3        DROP POTS
01152  M00S01013.1tm     +++|          LDN    /TLX/DRT
01153  M00S01014.1tm     +++|          RJM    ERQ
Line S01015 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01154  M01S01015.242l642 ---| HUP2     STD    DP          CLEAR POT POINTER
Line S00075 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01155  M01S00075.242l642 +++| HUP3     STD    DP          CLEAR POT POINTER
01156  M00S01016.1tm     +++|          STD    LF          CLEAR LINE ACTIVITY FLAG
01157  M00S01017.1tm     +++|          RJM    CUT         CLEAN UP TERMINAL TABLE
Line S01018 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01158  M01S01018.242l642 ---|          RJM    SAT         SET ACTIVITY TIME
01159  M01S01019.242l642 ---|          JMP    MGR         EXIT TO MANAGER
Line S00076 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01020.1tm     +++| OFL      SPACE  4,15
01169  M00S01021.1tm     +++|**        OFL - PROCESS USER OFF LINE.
01170  M00S01022.1tm     +++|*
01171  M00S01023.1tm     +++|*         DROPS ALL POTS ASSOCIATED WITH THE TERMINAL AND NOTIFIES
Line S01024 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01172  M01S01024.242l642 ---|*         *RAF* TO LOGICALLY DISCONNECT THE TERMINAL.
Line S00084 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00084.242l642 +++|*         *RDF* TO LOGICALLY DISCONNECT THE TERMINAL.
01174  M00S01025.1tm     +++|*
01175  M00S01026.1tm     +++|*         EXIT   TO *MGR* FORCE DRIVER DROP/RECALL -
01176  M00S01027.1tm     +++|*                  ERROR LOG MESSAGE ISSUED.
01177  M00S01028.1tm     +++|*                  (LF) = ZERO TO FORCE DRIVER DROP/RECALL.
01178  M00S01029.1tm     +++|*                  (DP) = 0.
01179  M00S01030.1tm     +++|*
01180  M00S01031.1tm     +++|*         CALLS  DFM, ERQ.
01181  M00S01032.1tm     +++|
01182  M00S01033.1tm     +++|
01183  M00S01034.1tm     +++| OFL      BSS    0           ENTRY
01184  M00S01035.1tm     +++|          LDC    =C* RDF CARRIER LOST.*+ERLN
01185  M00S01036.1tm     +++|          RJM    DFM         ISSUE ERROR LOG MESSAGE
01186  M00S01037.1tm     +++|          LDD    DP          SET ASSIGNED POTS TO BE DROPPED
01187  M00S01038.1tm     +++|          STD    RQ+3
01188  M00S01039.1tm     +++|          LDN    /TLX/HUP    REQUEST HUNG UP PHONE PROCESSING
01189  M00S01040.1tm     +++|          RJM    ERQ
01190  M00S01041.1tm     +++|          STD    DP          CLEAR POT POINTER
01191  M00S01042.1tm     +++|          UJP    HUP         DISCONNECT LINE
01192  M00S01043.1tm     +++| ONL      SPACE  4,25
01193  M00S01044.1tm     +++|**        ONL - WAIT FOR TERMINAL TO COME ON-LINE.
01194  M00S01045.1tm     +++|*
01195  M00S01046.1tm     +++|*         WAITS FOR INDICATION THAT THE MULTIPLEXER PORT
01196  M00S01047.1tm     +++|*         HAS CONNECTED TO AN ACTIVE LINE, THEN PROCESSES
01197  M00S01048.1tm     +++|*         THE INTERFACE PROTOCOL.  *ONL* EXITS TO *DIN* FOR
01198  M00S01049.1tm     +++|*         DIAL-IN WHEN THE CONNECTION HAS BEEN ESTABLISHED
01199  M00S01050.1tm     +++|*         AND WHEN THE TERMINAL OPERATOR ENTERS A CHARACTER
01200  M00S01051.1tm     +++|*         (ANY CHARACTER IS ACCEPTED) TO INITIATE LOGIN.
01201  M00S01052.1tm     +++|*
01202  M00S01053.1tm     +++|*         ENTRY  (LF) = NONZERO FOR INITIAL DRIVER ENTRY.
01203  M00S01054.1tm     +++|*                MULTIPLEXER AND PORT SELECTED.
01204  M00S01055.1tm     +++|*
01205  M00S01056.1tm     +++|*         EXIT   TO *DIN* WHEN PORT IS ON-LINE -
01206  M00S01057.1tm     +++|*                  (LF) = NONZERO.
01207  M00S01058.1tm     +++|*                TO *MGR* IF PORT DOES NOT COME ON-LINE -
01208  M00S01059.1tm     +++|*                  (LF) = ZERO TO FORCE DRIVER DROP/RECALL.
01209  M00S01060.1tm     +++|*
01210  M00S01061.1tm     +++|*         USES   IT.
01211  M00S01062.1tm     +++|*
Line S01063 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01212  M01S01063.ns2149  ---|*         CALLS  IFN.
Line S00033 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01213  M01S00033.ns2149  +++|*         CALLS  IFN, RMA, SPA.
01214  M00S01064.1tm     +++|*
01215  M00S01065.1tm     +++|*         MACROS RETURN.
01216  M00S01066.1tm     +++|
01217  M00S01067.1tm     +++|
01218  M00S01068.1tm     +++| ONL      BSS    0           ENTRY
01219  M00S01069.1tm     +++|          LDK    RINGTIO     SET RING TIME-OUT
01220  M00S01070.1tm     +++|          STD    IT
01221  M00S01071.1tm     +++|          RETURN *           SET REENTRY
01222  M00S01072.1tm     +++|
01223  M00S01073.1tm     +++|*         WAIT FOR *RING INDICATOR* (DIAL-UP LINE) OR FOR
01224  M00S01074.1tm     +++|*         *CARRIER ON* AND *DATA SET READY* (HARD-WIRED
01225  M00S01075.1tm     +++|*         LINE).
01226  M00S01076.1tm     +++|
Line S01077 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01227  M01S01077.ns2149  ---|          LDD    ST          GET PORT STATUS
Line S00034 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00034.ns2149  +++|          LDM    SSMX        CHECK PORT STATUS
01229  M00S01078.1tm     +++|          SHN    21-0        CHECK *RING INDICATOR*
01230  M00S01079.1tm     +++|          MJN    ONL1        IF SET
Line S01080 Modification History
M01 (Removed by) 1tm7
Seq #  *Modification Id* Act 
----------------------------+
01231  M01S01080.1tm7    ---|          LPN    3           CHECK *CARRIER ON* & *DATA SET READY*
01232  M01S01081.1tm7    ---|          LMN    3
Line S00001 Modification History
M01 (Added by) 1tm7
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01243  M01S01082.ns2149  ---|          NJN    ONL3        IF NOT *DATA SET READY* & *CARRIER ON*
Line S00035 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01244  M01S00035.ns2149  +++|          NJP    ONL3        IF NOT *DATA SET READY* AND *CARRIER ON*
01245  M00S01083.1tm     +++|
01246  M00S01084.1tm     +++|*         SET *DATA TERMINAL READY* AND WAIT FOR *DATA SET READY*.
01247  M00S01085.1tm     +++|
Line S01086 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01248  M01S01086.ns2149  ---| ONL1     LDK    SETDTR      ISSUE *SET DATA TERMINAL READY*
Line S00036 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01249  M01S00036.ns2149  +++| ONL1     RJM    SPA
01250  M01S00037.ns2149  +++|          LDK    MXDR+1      SET *DATA TERMINAL READY*
01251  M00S01087.1tm     +++|          RJM    IFN
Line S00038 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01252  M01S00038.ns2149  +++|          RJM    RMA
01253  M00S01088.1tm     +++|          LDK    DSRTIO      SET *DATA SET READY* TIME-OUT
01254  M00S01089.1tm     +++|          STD    IT
01255  M00S01090.1tm     +++|          RETURN *           SET REENTRY
Line S01091 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01256  M01S01091.ns2149  ---|          LDD    ST          GET PORT STATUS
Line S00039 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01257  M01S00039.ns2149  +++|          LDM    SSMX        CHECK PORT STATUS
01258  M00S01092.1tm     +++|          LPN    2
01259  M00S01093.1tm     +++|          ZJN    ONL3        IF NOT *DATA SET READY*
01260  M00S01094.1tm     +++|
01261  M00S01095.1tm     +++|*         SET *REQUEST TO SEND* AND WAIT FOR *CARRIER ON*.
01262  M00S01096.1tm     +++|
Line S01097 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01263  M01S01097.ns2149  ---|          LDK    SETRQS      ISSUE *REQUEST TO SEND*
Line S00040 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01264  M01S00040.ns2149  +++|          RJM    SPA
01265  M01S00041.ns2149  +++|          LDK    MXRTS+1     ISSUE *REQUEST TO SEND*
01266  M00S01098.1tm     +++|          RJM    IFN
Line S00042 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01267  M01S00042.ns2149  +++|          RJM    RMA
01268  M00S01099.1tm     +++|          LDK    COTIO       SET *CARRIER ON* TIME-OUT
01269  M00S01100.1tm     +++|          STD    IT
01270  M00S01101.1tm     +++|          RETURN *           SET REENTRY
Line S01102 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01271  M01S01102.ns2149  ---|          LDD    ST          GET PORT STATUS
Line S00043 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01272  M01S00043.ns2149  +++|          LDM    SSMX        CHECK PORT STATUS
01273  M00S01103.1tm     +++|          LPN    4
Line S01104 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01274  M01S01104.ns2149  ---|          ZJN    ONL3        IF NOT *DATA SET READY*
Line S00044 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
01275  M01S00044.ns2149  +++|          ZJN    ONL3        IF NOT *CARRIER ON*
01276  M00S01105.1tm     +++|
01277  M00S01106.1tm     +++|*         TERMINAL IS ON-LINE.  EXIT TO DIAL-IN PROCESSOR.
01278  M00S01107.1tm     +++|
01279  M00S01108.1tm     +++|          RETURN DIN         ENTER DIAL-IN PROCESSOR
01280  M00S01109.1tm     +++|
01281  M00S01110.1tm     +++|*         TERMINAL HAS FAILED TO RESPOND.  EXIT TO MANAGER
01282  M00S01111.1tm     +++|*         FOR REENTRY OR DRIVER DROP/RECALL.
01283  M00S01112.1tm     +++|*
01284  M00S01113.1tm     +++|*         EXIT   (LF) = (IT).  IF ZERO, THE LINE FUNCTION HAS
01285  M00S01114.1tm     +++|*                       TIMED-OUT AND THE DRIVER WILL BE FORCED
01286  M00S01115.1tm     +++|*                       TO DROP/RECALL.
01287  M00S01116.1tm     +++|
01288  M00S01117.1tm     +++| ONL3     LDD    IT          SET/CLEAR LINE ACTIVITY
01289  M00S01118.1tm     +++|          STD    LF
01290  M00S01119.1tm     +++|          JMP    MGR         REENTER
Line S00085 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01120.1tm     +++|          SPACE  4
01383  M00S01121.1tm     +++| LINPE    BSS    0           END OF LINE PROCESSING
01384  M00S01122.1tm     +++| ITM      TITLE  CTL - TERMINAL CONTROL ROUTINES.
01385  M00S01123.1tm     +++| CIS      SPACE  4,25
01386  M00S01124.1tm     +++|**        CIS - CHECK INTERRUPT STATUS.
01387  M00S01125.1tm     +++|*
01388  M00S01126.1tm     +++|*         CIS DETERMINES THE STATUS OF A SUSPECTED INTERRUPT INPUT
01389  M00S01127.1tm     +++|*         CHARACTER.  THE CHARACTER *S* IS A LEVEL 0 INTERRUPT TO
Line S01128 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01390  M01S01128.242l642 ---|*         *RAF*.  AN *INTERRUPT* AND THE CHARACTER *I* ARE LEVEL 1
01391  M01S01129.242l642 ---|*         INTERRUPTS TO *RAF*.
Line S00176 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01392  M01S00176.242l642 +++|*         *RDF*.  AN *INTERRUPT* AND THE CHARACTER *I* ARE LEVEL 1
01393  M01S00177.242l642 +++|*         INTERRUPTS TO *RDF*.
01394  M00S01130.1tm     +++|*
01395  M00S01131.1tm     +++|*         ENTRY  (A)    = INPUT DATA.
01396  M00S01132.1tm     +++|*                (DI)   = INPUT DATA.
01397  M00S01133.1tm     +++|*                (DP+4) = PROCESSING ADDRESS.
01398  M00S01134.1tm     +++|*
01399  M00S01135.1tm     +++|*         EXIT   TO *MGR* IF INTERRUPT IGNORED.
01400  M00S01136.1tm     +++|*                TO *INT* IF INTERRUPT -
01401  M00S01137.1tm     +++|*                  (A) = *TIET* IF *BREAK* OR *I* KEY.
01402  M00S01138.1tm     +++|*                      = *TAET* IF *S* KEY.
01403  M00S01139.1tm     +++|*                TO *AWT* IF TERMINAL MESSAGE IN PROGRESS.
01404  M00S01140.1tm     +++|*
01405  M00S01141.1tm     +++|*         USES   (CH) = BREAK TIMER.
01406  M00S01142.1tm     +++|*
01407  M00S01143.1tm     +++|*         MACROS RETURN.
01408  M00S01144.1tm     +++|
01409  M00S01145.1tm     +++|
01410  M00S01146.1tm     +++| CIS      BSS    0           ENTRY
01411  M00S01147.1tm     +++|          LDD    DP+1        CHECK FOR TERMINAL MESSAGE
01412  M00S01148.1tm     +++|          SHN    -6
01413  M00S01149.1tm     +++|          LMN    77
01414  M00S01150.1tm     +++|          NJN    CIS1        IF NOT ISSUING MESSAGE
01415  M00S01151.1tm     +++|          LJM    /WTM/AWT    CONTINUE TERMINAL OUTPUT
01416  M00S01152.1tm     +++|
01417  M00S01153.1tm     +++| CIS1     LDD    DC          CHECK TERMINAL STATUS
01418  M00S01154.1tm     +++|          SHN    21-11       CHECK *LOGGED IN* BIT
01419  M00S01155.1tm     +++|          PJN    CIS5        IF NOT LOGGED IN, IGNORE CHARACTER
01420  M00S01156.1tm     +++|
01421  M00S01157.1tm     +++|*         PROCESS ASCII *BRK* CHARACTER.
01422  M00S01158.1tm     +++|
01423  M00S01159.1tm     +++|          LDD    DI          CHECK INPUT CHARACTER
01424  M00S01160.1tm     +++|          LPC    177
01425  M00S01161.1tm     +++|          LMK    .ABRK
01426  M00S01162.1tm     +++|          NJN    CIS4        IF NOT START OF BREAK
01427  M00S01163.1tm     +++| CIS2     LDK    100D/MNCT+1 START TIMER FOR BREAK
01428  M00S01164.1tm     +++|          STD    CH
01429  M00S01165.1tm     +++| CIS3     RETURN *           REENTER
01430  M00S01166.1tm     +++|          NJN    CIS2        IF BREAK STILL IN PROGRESS
01431  M00S01167.1tm     +++|          SOD    CH          DECREMENT TIMER
01432  M00S01168.1tm     +++|          NJN    CIS3        IF NOT TIMED-OUT
01433  M00S01169.1tm     +++|          UJN    CIS6        PROCESS AS INTERRUPT
01434  M00S01170.1tm     +++|
01435  M00S01171.1tm     +++|*         PROCESS CHARACTER OTHER THAN ASCII *BRK*.
01436  M00S01172.1tm     +++|
01437  M00S01173.1tm     +++| CIS4     STD    T7          TRANSLATE INPUT CHARACTER
01438  M00S01174.1tm     +++|          LDM    TINT,T7
01439  M00S01175.1tm     +++|          LPN    77
01440  M00S01176.1tm     +++|          LMN    1RS
01441  M00S01177.1tm     +++|          ZJP    CIS7        IF *S* KEY
01442  M00S01178.1tm     +++|          LMN    1RI&1RS
01443  M00S01179.1tm     +++|          ZJP    CIS6        IF *I* KEY
01444  M00S01180.1tm     +++| CIS5     JMP    MGR         IGNORE INVALID CHARACTER
01445  M00S01181.1tm     +++|
01446  M00S01182.1tm     +++|*         PROCESS INTERRUPT CHARACTER.
01447  M00S01183.1tm     +++|
01448  M00S01184.1tm     +++| CIS6     LDN    TIET&TAET   SET *TIET* INTERRUPT CODE
01449  M00S01185.1tm     +++| CIS7     LMN    TAET        SET *TAET* INTERRUPT CODE
01450  M00S01186.1tm     +++|          LJM    INT         ENTER INTERRUPT
01451  M00S01187.1tm     +++| CTO      SPACE  4,20
01452  M00S01188.1tm     +++|**        CTO - CHECK TIME-OUT.
01453  M00S01189.1tm     +++|*
01454  M00S01190.1tm     +++|*         *CTO* IS ENTERED WHEN AN INPUT CHARACTER HAS NOT BEEN
01455  M00S01191.1tm     +++|*         RECEIVED FROM A TERMINAL.  THE ELAPSED TIME IS CHECKED, AND
01456  M00S01192.1tm     +++|*         IF EXCEEDED, THE USER IS LOGGED OFF.
01457  M00S01193.1tm     +++|*
01458  M00S01194.1tm     +++|*         ENTRY  (DP+4) = PROCESSING ADDRESS.
01459  M00S01195.1tm     +++|*
01460  M00S01196.1tm     +++|*         EXIT   TO *MGR* IF TIME NOT ELAPSED.
01461  M00S01197.1tm     +++|*                TO *RWC* IF TIMED-OUT -
01462  M00S01198.1tm     +++|*                  TIME-OUT LOGOUT REQUEST ENTERED.
01463  M00S01199.1tm     +++|*                  SOURCE DUMP FORCED IF READ ACTIVE.
01464  M00S01200.1tm     +++|*                TO *TFR* IF FUNCTION REQUEST FROM EXECUTIVE.
01465  M00S01201.1tm     +++|*                TO *RWC* IF OUTPUT ASSIGNED -
01466  M00S01202.1tm     +++|*                  (DP+2) = 0.
01467  M00S01203.1tm     +++|*
01468  M00S01204.1tm     +++|*         USES   DO, CM - CM+4.
01469  M00S01205.1tm     +++|*
01470  M00S01206.1tm     +++|*         CALLS  ERQ, STA.
01471  M00S01207.1tm     +++|
01472  M00S01208.1tm     +++|
01473  M00S01209.1tm     +++| CTO      BSS    0           ENTRY
01474  M00S01210.1tm     +++|          LDD    DO          CHECK OUTPUT BUFFER
01475  M00S01211.1tm     +++|          SHN    21-13
01476  M00S01212.1tm     +++|          MJN    CTO1        IF OUTPUT DATA
01477  M00S01213.1tm     +++|          LDD    HS          CHECK HALF-SECOND FLAG
01478  M00S01214.1tm     +++|          ZJN    CTO1        IF HALF-SECOND NOT ELAPSED
01479  M00S01215.1tm     +++|          RAD    DO          ADVANCE TIMER
01480  M00S01216.1tm     +++|          LMC    NTIO
01481  M00S01217.1tm     +++|          ZJN    CTO2        IF NORMAL TIME-OUT ELAPSED
01482  M00S01218.1tm     +++|          RJM    STA         SET FWA OF TERMINAL TABLE
01483  M00S01219.1tm     +++|          ADN    VROT        READ *VROT*
01484  M00S01220.1tm     +++|          CRD    CM
01485  M00S01221.1tm     +++|          LDD    CM+4        CHECK JOB STATUS
01486  M00S01222.1tm     +++|          LPN    1
01487  M00S01223.1tm     +++|          NJN    CTO3        IF JOB NOT ACTIVE
01488  M00S01224.1tm     +++|          STD    DO          CLEAR TIMER
01489  M00S01225.1tm     +++| CTO1     JMP    MGR         EXIT
01490  M00S01226.1tm     +++|
01491  M00S01227.1tm     +++|*         CHECK FOR *NO TIME-OUT*.
01492  M00S01228.1tm     +++|
01493  M00S01229.1tm     +++| CTO2     LDD    DC+3        CHECK USER ACCESS
01494  M00S01230.1tm     +++|          SHN    21-12       CHECK NO-TIME-OUT BIT
01495  M00S01231.1tm     +++|          PJN    CTO4        IF NOT SET
01496  M00S01232.1tm     +++|          LDN    0
01497  M00S01233.1tm     +++|          STD    DO          CLEAR TIMER
01498  M00S01234.1tm     +++|          UJN    CTO1        EXIT
01499  M00S01235.1tm     +++|
01500  M00S01236.1tm     +++|*         PROCESS INACTIVE JOB.
01501  M00S01237.1tm     +++|
01502  M00S01238.1tm     +++| CTO3     LDD    DC+4        CHECK MESSAGE ASSIGNMENT
01503  M00S01239.1tm     +++|          NJN    CTO6        IF MESSAGE ASSIGNED
01504  M00S01240.1tm     +++|          LDD    DC          CHECK *LOGGED IN*
01505  M00S01241.1tm     +++|          SHN    21-11
01506  M00S01242.1tm     +++|          MJN    CTO1        IF SET
01507  M00S01243.1tm     +++|          LDD    DO          CHECK TIMER
01508  M00S01244.1tm     +++|          LMC    UTIO
01509  M00S01245.1tm     +++|          NJN    CTO1        IF LOGIN TIME-OUT NOT ELAPSED
01510  M00S01246.1tm     +++|
01511  M00S01247.1tm     +++|*         LOG OFF USER.
01512  M00S01248.1tm     +++|
01513  M00S01249.1tm     +++| CTO4     LDC    CTO5        SET REENTRY ADDRESS
01514  M00S01250.1tm     +++|          UJN    CTO8        FORCE SOURCE INPUT DUMP
01515  M00S01251.1tm     +++|
01516  M00S01252.1tm     +++| CTO5     LDN    /TLX/TOT    REQUEST TIME-OUT LOGOUT
01517  M00S01253.1tm     +++|          RJM    ERQ
01518  M00S01254.1tm     +++|          STD    DP+2        CLEAR READ STATUS
01519  M00S01255.1tm     +++|          JMP    RWC         ENTER READ/WRITE CONTROL
01520  M00S01256.1tm     +++|
01521  M00S01257.1tm     +++|*         CHECK FOR FUNCTION REQUEST.
01522  M00S01258.1tm     +++|
01523  M00S01259.1tm     +++| CTO6     LDD    DC          CHECK MESSAGE TYPE
01524  M00S01260.1tm     +++|          SHN    21-13
01525  M00S01261.1tm     +++|          PJN    CTO7        IF NOT FUNCTION REQUEST
Line S01262 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01526  M01S01262.242l642 ---|          LJM    TFR         PROCESS *RAF* FUNCTION REQUEST
Line S00178 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01527  M01S00178.242l642 +++|          LJM    TFR         PROCESS *RDF* FUNCTION REQUEST
01528  M00S01263.1tm     +++|
01529  M00S01264.1tm     +++| CTO7     LDC    RWC         SET REENTRY ADDRESS
01530  M00S01265.1tm     +++|
01531  M00S01266.1tm     +++|*         FORCE SOURCE DUMP IF READ ACTIVE.
01532  M00S01267.1tm     +++|*
01533  M00S01268.1tm     +++|*         ENTRY  (A) = REENTRY ADDRESS.
01534  M00S01269.1tm     +++|
01535  M00S01270.1tm     +++| CTO8     STD    DP+4        SET REENTRY ADDRESS
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1tm.txt ยท Last modified: (external edit)