User Tools

Site Tools


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

Deck 1TN

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1tn     +++|          IDENT  2TN,OBUFE
00002  M00S00002.1tn     +++|          PERIPH
00003  M00S00003.1tn     +++|          BASE   MIXED
Line S00004 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.ns22000 ---|          SST
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.ns22000 +++|          SST    .EST
00006  M00S00005.1tn     +++|*COMMENT  1TN - INTERACTIVE TERMINAL DRIVER.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1978.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00007.1tn     +++|          TITLE  1TN - LOW SPEED INTERACTIVE TERMINAL DRIVER.
00010  M00S00008.1tn     +++|          SPACE  4,10
00011  M00S00009.1tn     +++|***       1TN - LOW SPEED INTERACTIVE TERMINAL DRIVER.
00012  M00S00010.1tn     +++|*         M. H. DILATUSH     73/07/31.
00013  M00S00011.1tn     +++|*         P. D. FARRELL      74/10/15.
00014  M00S00012.1tn     +++|          SPACE  4,10
Line S00013 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00013.ns22000 ---|***       *1TN* PERFORMS COMMUNICATION BETWEEN TELEX AND TERMINALS
00016  M01S00014.ns22000 ---|*         ACCESSED VIA THE 6671 AND 6676 MULTIPLEXERS, AND THE *NOS*
00017  M01S00015.ns22000 ---|*         STIMULATOR.  IT HAS THE CAPABILITY TO COMMUNICATE WITH MOST
00018  M01S00016.ns22000 ---|*         *ASCII* COMPATIBLE TERMINALS AND CORRESPONDENCE CODE
00019  M01S00017.ns22000 ---|*         COMPATIBLE TERMINALS SUCH AS THE *IBM* 2741 AND *NOVAR* 5-41
00020  M01S00018.ns22000 ---|*         TERMINALS, IF THE MULTIPLEXER HAS THE REQUIRED OPTIONS
00021  M01S00019.ns22000 ---|*         INSTALLED.
00022  M01S00020.ns22000 ---|*
00023  M01S00021.ns22000 ---|*         *1TN* IS DESIGNED TO PROCESS UP TO 512 10 CHARACTER/SECOND
00024  M01S00022.ns22000 ---|*         TERMINALS.  THE NUMBER OF TERMINALS FOR WHICH PERFORMANCE
00025  M01S00023.ns22000 ---|*         CAN BE GUARANTEED WILL DECREASE AS THE TERMINAL SPEED IS
00026  M01S00024.ns22000 ---|*         INCREASED.  IN ANY EVENT, THE TOTAL DRIVER CAPABILITY IS
00027  M01S00025.ns22000 ---|*         5120 CHARACTERS/SECOND.  THE MAXIMUM TERMINAL SPEED WHICH
00028  M01S00026.ns22000 ---|*         MAY BE ACCOMMODATED IS 30 CHARACTERS PER SECOND.
00029  M01S00027.ns22000 ---|*
00030  M01S00028.ns22000 ---|*
00031  M01S00029.ns22000 ---|*         TERMINAL COMMUNICATION IS PROCESSED IN A HALF-DUPLEX MODE.
00032  M01S00030.ns22000 ---|*         A LINE IS GENERALLY THE UNIT OF TRANSMISSION IN EACH
00033  M01S00031.ns22000 ---|*         DIRECTION.  INTERRUPTION OF CONTINUOUS OUTPUT IS PROVIDED
00034  M01S00032.ns22000 ---|*         ALONG WITH AN INPUT LINE AND CHARACTER DELETION FACILITY.
00035  M01S00033.ns22000 ---|*
00036  M01S00034.ns22000 ---|*
00037  M01S00035.ns22000 ---|*         COMMUNICATION BETWEEN *1TN* AND *TELEX* IS ACCOMPLISHED BY
00038  M01S00036.ns22000 ---|*         MEANS OF A CIRCULAR REQUEST QUEUE PROVIDED BY TELEX. *1TN*
00039  M01S00037.ns22000 ---|*         INSERTS A REQUEST IN THE QUEUE AND *TELEX* REMOVES THE
00040  M01S00038.ns22000 ---|*         REQUEST AS IT IS PROCESSED.
00041  M01S00039.ns22000 ---|          SPACE  4,10
00042  M01S00040.ns22000 ---|***       TERMINAL CONTROL OPERATIONS FOR *ASCII* TERMINALS.
00043  M01S00041.ns22000 ---|*
00044  M01S00042.ns22000 ---|*
00045  M01S00043.ns22000 ---|*         1.  TO COMPLETE AN INPUT LINE, TYPE THE *RETURN* KEY.
00046  M01S00044.ns22000 ---|*                A LINE FEED IS NOT NEEDED, SINCE THE DRIVER ISSUES ONE
00047  M01S00045.ns22000 ---|*                TO THE TERMINAL.
00048  M01S00046.ns22000 ---|*
00049  M01S00047.ns22000 ---|*         2.  TO DELETE OR IGNORE AN INPUT LINE, TYPE THE *ESC* KEY.
00050  M01S00048.ns22000 ---|*
00051  M01S00049.ns22000 ---|*         3.  TO DELETE A PREVIOUSLY ENTERED CHARACTER, TYPE THE
00052  M01S00050.ns22000 ---|*                *BACKSPACE* CHARACTER (BACK OR LEFT ARROW ON
00053  M01S00051.ns22000 ---|*                CDC 713 CRTS AND ON SOME MODEL 33 TELETPYES.
00054  M01S00052.ns22000 ---|*
00055  M01S00053.ns22000 ---|*         4.  TO TERMINATE OUTPUT, TYPE THE *BREAK* KEY, OR THE *S*
00056  M01S00054.ns22000 ---|*                KEY.
00057  M01S00055.ns22000 ---|*
00058  M01S00056.ns22000 ---|*         5.  TO INTERRUPT OUTPUT, TYPE THE *I* KEY.  OUTPUT MAY BE
00059  M01S00057.ns22000 ---|*                RESUMED BY TYPING *P* FOLLOWED BY *RETURN*.
00060  M01S00058.ns22000 ---|          SPACE  4,10
00061  M01S00059.ns22000 ---|***       TERMINAL CONTROL OPERATIONS FOR CORRESPONDENCE CODE
00062  M01S00060.ns22000 ---|*         TERMINALS.
00063  M01S00061.ns22000 ---|*
00064  M01S00062.ns22000 ---|*
00065  M01S00063.ns22000 ---|*         1.  TO COMPLETE AN INPUT LINE, TYPE THE *RETURN* KEY.
00066  M01S00064.ns22000 ---|*
00067  M01S00065.ns22000 ---|*         2.  TO DELETE OR IGNORE AN INPUT LINE, TYPE *ATTN*.
00068  M01S00066.ns22000 ---|*
00069  M01S00067.ns22000 ---|*         3.  TO DELETE THE PREVIOUSLY ENTERED CHARACTER, TYPE
00070  M01S00068.ns22000 ---|*                *BACK SPACE*.
00071  M01S00069.ns22000 ---|*
00072  M01S00070.ns22000 ---|          SPACE  4,10
00073  M01S00071.ns22000 ---|***       TERMINAL CONTROL OPERATIONS FOR BLOCK EDIT TERMINALS.
00074  M01S00072.ns22000 ---|*
00075  M01S00073.ns22000 ---|*
00076  M01S00074.ns22000 ---|*         1.  TO COMPLETE AN INPUT LINE, TYPE THE *RETURN* KEY.
00077  M01S00075.ns22000 ---|*             THE TERMINAL SHOULD BE SET TO GENERATE LINE-FEED
00078  M01S00076.ns22000 ---|*             CODES INTERNALLY, AS *1TN* DOES NOT SUPPLY LINE-
00079  M01S00077.ns22000 ---|*             FEEDS DURING A BLOCK OPERATION.
00080  M01S00078.ns22000 ---|*
00081  M01S00079.ns22000 ---|*         2.  ADDITIONAL LINES MAY BE ENTERED IN THE TERMINAL
00082  M01S00080.ns22000 ---|*             BUFFER AS IN (1) ABOVE.
00083  M01S00081.ns22000 ---|*
00084  M01S00082.ns22000 ---|*         3.  LINES MAY BE EDITED AND CORRECTED AT ANY TIME
00085  M01S00083.ns22000 ---|*             AFTER THEY HAVE BEEN COMPOSED AND BEFORE THEY
00086  M01S00084.ns22000 ---|*             ARE TRANSMITTED FROM THE TERMINAL.
00087  M01S00085.ns22000 ---|*
00088  M01S00086.ns22000 ---|*         4.  COMPLETE THE BLOCK WITH AN END-OF-TRANSMISSION
00089  M01S00087.ns22000 ---|*             (*EOT*) CODE (CTL-D) IF THE TERMINAL DOES NOT
00090  M01S00088.ns22000 ---|*             AUTOMATICALLY GENERATE AN *EOT* AT THE END OF
00091  M01S00089.ns22000 ---|*             THE BUFFER WHEN THE *SEND* KEY IS PRESSED.
00092  M01S00090.ns22000 ---|*
00093  M01S00091.ns22000 ---|*         5.  DEPRESS THE *SEND* KEY TO TRANSMIT THE DATA BLOCK.
00094  M01S00092.ns22000 ---|*             THE LAST LINE OF THE BLOCK DOES NOT REQUIRE A
00095  M01S00093.ns22000 ---|*             CARRIAGE RETURN BEFORE THE *EOT* CODE SINCE *1TN*
00096  M01S00094.ns22000 ---|*             WILL PROVIDE ONE IF NEEDED.
00097  M01S00095.ns22000 ---|*         4.  TO TERMINATE OUTPUT, TYPE THE *ATTN* KEY.
00098  M01S00096.ns22000 ---|          SPACE  4,10
00099  M01S00097.ns22000 ---|***       TERMINAL OUTPUT DATA.
00100  M01S00098.ns22000 ---|*
00101  M01S00099.ns22000 ---|*
00102  M01S00100.ns22000 ---|*         TERMINAL OUTPUT DATA IS PROCESSED BY THE DRIVER.
Line S00002 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00002.ns22000 +++|***       *1TN* PERFORMS COMMUNICATION BETWEEN *IAF* AND *1TS*, THE PP
00104  M01S00003.ns22000 +++|*         DRIVER USED BY *STIMULA*.  IT IS DESIGNED TO PROCESS A MAXIMUM
00105  M01S00004.ns22000 +++|*         OF 512 TERMINALS AT 10 CHARACTERS/SECOND, WITH A MAXIMUM SPEED
00106  M01S00005.ns22000 +++|*         OF 30 CHARACTERS/SECOND.  ALTHOUGH HIGHER SPEEDS CAN BE
00107  M01S00006.ns22000 +++|*         SPECIFIED VIA *STIMULA*, RESULTS ARE ONLY GUARANTEED IN THE
00108  M01S00007.ns22000 +++|*         RANGE SPECIFIED.  COMMUNICATIONS BETWEEN *1TN* AND *IAF* ARE
00109  M01S00008.ns22000 +++|*         ACCOMPLISHED BY A CIRCULAR REQUEST QUEUE MAINTAINED IN *IAF*-S
00110  M01S00009.ns22000 +++|*         FIELD LENGTH.  *1TN* INSERTS A REQUEST INTO THE QUEUE AND
00111  M01S00010.ns22000 +++|*         *IAF* REMOVES THE REQUEST WHEN IT HAS BEEN PROCESSED.
00112  M01S00011.ns22000 +++|          SPACE  4,10
00113  M01S00012.ns22000 +++|***       TERMINAL CONTROL OPERATIONS.
00114  M01S00013.ns22000 +++|*
00115  M01S00014.ns22000 +++|*         1.  TO DELETE AN ENTIRE LINE, ENTER THE *ESC* CHARACTER.
00116  M01S00015.ns22000 +++|*
00117  M01S00016.ns22000 +++|*         2.  TO DELETE A CHARACTER, ENTER THE *BACKSPACE* CHARACTER.
00118  M01S00017.ns22000 +++|*
00119  M01S00018.ns22000 +++|*         3.  TO INTERRUPT OUTPUT, ENTER *I* DURING OUTPUT.  AFTER THE
00120  M01S00019.ns22000 +++|*             *INTERRUPTED* MESSAGE, OUTPUT MAY BE RESUMED BY ENTERING
00121  M01S00020.ns22000 +++|*             *CR*, DISCARDED AND THE PROGRAM RESTARTED BY ENTERING *P*,
00122  M01S00021.ns22000 +++|*             OR THE PROGRAM MAY BE ABORTED BY ENTERING ANYTHING ELSE.
00123  M01S00022.ns22000 +++|*
00124  M01S00023.ns22000 +++|*         4.  TO TERMINATE OUTPUT, ENTER *S* WHILE OUTPUT IS ACTIVE.
00125  M00S00101.1tn     +++|          SPACE  4,10
00126  M00S00102.1tn     +++|          LIST   X
00127  M00S00103.1tn     +++|*CALL     COMSTDR
00128  M00S00104.1tn     +++|          LIST   *
00129  M00S00105.1tn     +++|          SPACE  4,10
Line S00106 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00106.ns22000 ---|***       DAYFILE MESSAGES.
00131  M01S00107.ns22000 ---|*
00132  M01S00108.ns22000 ---|*         *TELX     0.NNN SEC. 1TN CYCLE TIME.*  DRIVERS ACTUAL SERVICE
00133  M01S00109.ns22000 ---|*         CYCLE (WORST CASE).
00134  M01S00110.ns22000 ---|*
00135  M01S00111.ns22000 ---|*         * NO 667X MULTIPLEXER.* = NO MULTIPLEXER ON CHANNEL.
00136  M01S00112.ns22000 ---|*
00137  M01S00113.ns22000 ---|*         * 667X MALFUNCTION.* INDICATES EITHER NO EQUIPMENT ON THE
00138  M01S00114.ns22000 ---|*         CHANNEL OR ELSE A FUCNTION WAS NOT ACCEPTED.
00139  M01S00115.ns22000 ---|*
00140  M01S00116.ns22000 ---|*         *TELX     0.NNN KILO. 1TN REQUEST CPU.*  THE
00141  M01S00117.ns22000 ---|*         NUMBER OF TIMES THAT *1TN* REQUESTED CPU ACTIVITY BECAUSE
00142  M01S00118.ns22000 ---|*         THE CIRCULAR REQUEST STACK WAS HALF-FULL.
00143  M01S00119.ns22000 ---|*
00144  M01S00120.ns22000 ---|*
00145  M01S00121.ns22000 ---|*         *TTXX, FNYY, FUNCTION TIMEOUT.* - SEE ERROR
00146  M01S00122.ns22000 ---|*                LOG MESSAGES FOR DESRIPTION.
00147  M01S00123.ns22000 ---| ERRLOG   SPACE  4,10,10
00148  M01S00124.ns22000 ---|**        ERROR LOG MESSAGES.
00149  M01S00125.ns22000 ---|*
00150  M01S00126.ns22000 ---|*         *TTXX, FNYY, FUNCTION TIMEOUT. - DURING
00151  M01S00127.ns22000 ---|*                A FUNCTION ISSUE THE CHANNEL DID NOT RETURN
00152  M01S00128.ns22000 ---|*                AN INACTIVE SIGNAL WITHIN 4 MAJOR CYCLES.
00153  M01S00129.ns22000 ---|*                THIS ERROR WILL ABORT THE SUB-SYSTEM.
Line S00024 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00154  M01S00024.ns22000 +++|***       DAYFILE MESSAGES.
00155  M01S00025.ns22000 +++|*
00156  M01S00026.ns22000 +++|*         *     X.XXX SEC. 1TN CYCLE TIME.* = WORST CASE MAIN LOOP TIME.
00157  M01S00027.ns22000 +++|*
00158  M01S00028.ns22000 +++|*         * 667X MALFUNCTION.* = A NON-TIMEOUT ERROR OCCURRED.
00159  M01S00029.ns22000 +++|*
00160  M01S00030.ns22000 +++|*         *     X.XXX KILO. 1TN REQUEST CPU.* = NUMBER OF TIMES *1TN*
00161  M01S00031.ns22000 +++|*         ISSUED *RCLM*  (BECAUSE THE CIRCULAR REQUEST STACK HAD BECOME
00162  M01S00032.ns22000 +++|*         HALF FULL).
00163  M01S00033.ns22000 +++|*
00164  M01S00034.ns22000 +++|*         *TTXXX, FNY, FUNCTION TIMEOUT.* = CHANNEL REMAINED ACTIVE FOR
00165  M01S00035.ns22000 +++|*         MORE THAN FOUR MAJOR CYCLES AFTER FUNCTION Y WAS ISSUED.
00166  M01S00036.ns22000 +++|*
00167  M01S00037.ns22000 +++|*         * TOO MANY MUX PORTS.* = SELF EXPLANATORY.
00168  M01S00038.ns22000 +++|          SPACE  4,10
00169  M01S00039.ns22000 +++|***       ERRLOG MESSAGES.
00170  M01S00040.ns22000 +++|*
00171  M01S00041.ns22000 +++|*         *TTXXX, FNY, FUNCTION TIMEOUT.* = CHANNEL REMAINED ACTIVE FOR
00172  M01S00042.ns22000 +++|*         MORE THAN FOUR MAJOR CYCLES AFTER FUNCTION Y WAS ISSUED.
00173  M00S00130.1tn     +++|          SPACE  4,10
00174  M00S00131.1tn     +++|**        DEFINE BLOCK ORDER.
00175  M00S00132.1tn     +++|
00176  M00S00133.1tn     +++|
00177  M00S00134.1tn     +++|          QUAL   CTL         CONTROL
00178  M00S00135.1tn     +++|          QUAL   RDM         READ MODE
00179  M00S00136.1tn     +++|          QUAL   WTM         WRITE MODE
00180  M00S00137.1tn     +++|          QUAL   TRN         TRANSLATION
00181  M00S00138.1tn     +++|          QUAL
00182  M00S00139.1tn     +++|          SPACE  4,10
Line S00043 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00183  M01S00043.ns22000 +++|**        COMMON DECKS.
00184  M01S00044.ns22000 +++|
00185  M01S00045.ns22000 +++|
00186  M00S00140.1tn     +++|*CALL     COMPMAC
00187  M00S00141.1tn     +++|*CALL     COMSACC
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00188  M01S00001.242l642 +++|*CALL     COMSCPS
Line S00046 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00046.ns22000 +++|*CALL     COMSPIM
00190  M00S00142.1tn     +++|*CALL     COMSPRD
00191  M00S00143.1tn     +++|*CALL     COMSREM
Line S00047 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00192  M01S00047.ns22000 +++|*CALL     COMSSCD
00193  M00S00144.1tn     +++|*CALL     COMPCHI
00194  M00S00145.1tn     +++|*CALL     COMSTCM
00195  M00S00146.1tn     +++| PT       IF     DEF,VAVPT
00196  M00S00147.1tn     +++|          ERR    POLLED TERMINAL SUPPORT DELETED.
00197  M00S00148.1tn     +++|          SPACE  4
00198  M00S00149.1tn     +++|***       POLLED TERMINAL PROCESSING.
00199  M00S00150.1tn     +++|*
00200  M00S00151.1tn     +++|*         SUPPORT OF POLLED (I.E. NIXDORF) TERMINALS HAS BEEN
00201  M00S00152.1tn     +++|*         REMOVED WITH THIS RELEASE OF THE MULTIPLEXER DRIVER.
00202  M00S00153.1tn     +++|*
00203  M00S00154.1tn     +++|*         REFER TO PRIOR DRIVER RELEASES THROUGH LEVEL 460 FOR
00204  M00S00155.1tn     +++|*         LISTINGS OF POLLED TERMINAL SUPPORT CODE.
00205  M00S00156.1tn     +++|*
00206  M00S00157.1tn     +++|*         THE USER WHO WISHES TO INSTALL POLLED TERMINAL PRO-
00207  M00S00158.1tn     +++|*         CESSING DERIVED FROM A PRIOR VERSION OF THE DRIVER
00208  M00S00159.1tn     +++|*         SHOULD NOTE THAT THE ASSEMBLY VARIABLE *VAVPT* WHICH
00209  M00S00160.1tn     +++|*         ORIGINALLY TOGGLES THE ASSEMBLY OF THE POLLING PORTION
00210  M00S00161.1tn     +++|*         OF THE DRIVER REDUCES THE NUMBER OF MULTIPLEXERS
00211  M00S00162.1tn     +++|*         SUPPORTED (AS DEFINED BY SET VARIABLE *MXMX* IN COMMON
00212  M00S00163.1tn     +++|*         DECK *COMSREM*) FROM EIGHT TO FOUR.
00213  M00S00164.1tn     +++| PT       ENDIF
00214  M00S00165.1tn     +++|          TITLE  MACRO DEFINITIONS.
00215  M00S00166.1tn     +++| ADCBM    SPACE  4,10
00216  M00S00167.1tn     +++| ADCM     SPACE  4,10
00217  M00S00168.1tn     +++|**        ADCM - GENERATE ADD CONSTANT MACRO.
00218  M00S00169.1tn     +++|*
00219  M00S00170.1tn     +++|*         ADCM   OPC,TBL
00220  M00S00171.1tn     +++|*         ENTRY  *OPC* = MACRO NAME TO BE GENERATED.
00221  M00S00172.1tn     +++|*                *TBL* = TABLE NAME OF ADDRESSES OF MACRO CALLS.
00222  M00S00173.1tn     +++|
00223  M00S00174.1tn     +++|
00224  M00S00175.1tn     +++| ADCM     MACRO  OPC,TBL,INST
00225  M00S00176.1tn     +++| OPC      MACRO  CNST
00226  M00S00177.1tn     +++|          LOCAL  A
00227  M00S00178.1tn     +++|          QUAL
00228  M00S00179.1tn     +++|          IFC    EQ,$INST$$
00229  M00S00180.1tn     +++| A        ADC    CNST
00230  M00S00181.1tn     +++|          ELSE   1
00231  M00S00182.1tn     +++| A        INST   CNST
00232  M00S00183.1tn     +++|          ENDIF
00233  M00S00184.1tn     +++|          QUAL   *
00234  M00S00185.1tn     +++| TBL      RMT
00235  M00S00186.1tn     +++|          CON    A
00236  M00S00187.1tn     +++| TBL      RMT
00237  M00S00188.1tn     +++|          ENDM
00238  M00S00189.1tn     +++| ADCM     ENDM
00239  M00S00190.1tn     +++|
00240  M00S00191.1tn     +++|
00241  M00S00192.1tn     +++|*         DEFINE MACROS.
00242  M00S00193.1tn     +++|
00243  M00S00194.1tn     +++|
00244  M00S00195.1tn     +++|          ADCM   ADCRA,TRAA
00245  M00S00196.1tn     +++|          ADCM   LDCRA,TRAA,LDC
00246  M00S00197.1tn     +++|          ADCM   ADCTR,TTRA
00247  M00S00198.1tn     +++|          ADCM   ADCPT,TPTA
00248  M00S00199.1tn     +++|          ADCM   ADCPL,TPLA
00249  M00S00200.1tn     +++|          ADCM   LDCDQ,TDQA,LDC
00250  M00S00201.1tn     +++|          ADCM   LMCDQ,TDQA,LMC
00251  M00S00202.1tn     +++|          ADCM   ADCBM,TBMA
00252  M00S00203.1tn     +++|          ADCM   LDCTN,TTNA,LDC
00253  M00S00204.1tn     +++| ASCO     SPACE  4,10
00254  M00S00205.1tn     +++|**        ASCO - GENERATE MULTIPLEXER OUTPUT FOR *ASCII* CODE.
00255  M00S00206.1tn     +++|*
00256  M00S00207.1tn     +++|*
00257  M00S00208.1tn     +++|*NAME     ASCO   CH,EQU
00258  M00S00209.1tn     +++|*         ENTRY  *NAME* = NAME FOR ASSIGNMENT OF CODE.
00259  M00S00210.1tn     +++|*                *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00260  M00S00211.1tn     +++|*                *EQU* = ASSIGNMENT PSEUDO OP.
00261  M00S00212.1tn     +++|
00262  M00S00213.1tn     +++|
00263  M00S00214.1tn     +++|          MACRO  ASCO,A,C,D
00264  M00S00215.1tn     +++|  PAR 0#_C,0
00265  M00S00216.1tn     +++|A D 4000+2*0#_C+.1
00266  M00S00217.1tn     +++|          ENDM
00267  M00S00218.1tn     +++| CORO     SPACE  4,10
00268  M00S00219.1tn     +++|**        CORO - GENERATE MULTIPLEXER OUTPUT FOR CORRESPONDENCE CODE.
00269  M00S00220.1tn     +++|*
00270  M00S00221.1tn     +++|*
00271  M00S00222.1tn     +++|*NAME     CORO   CH,EQU
00272  M00S00223.1tn     +++|*         ENTRY  *NAME* = NAME FOR ASSIGNMENT OF CODE.
00273  M00S00224.1tn     +++|*                *CH* = CORRESPONDENCE CODE IN OCTAL.
00274  M00S00225.1tn     +++|*                *EQU* = ASSIGNMENT PSEUDO OP.
00275  M00S00226.1tn     +++|
00276  M00S00227.1tn     +++|
00277  M00S00228.1tn     +++|          MACRO  CORO,A,C,D
00278  M00S00229.1tn     +++|   PAR C_B,1
00279  M00S00230.1tn     +++|A D 4000+.1*200+C*2+1
00280  M00S00231.1tn     +++|          ENDM
00281  M00S00232.1tn     +++| PAR      SPACE  4,10
00282  M00S00233.1tn     +++|**        PAR - GENERATE CHARACTER PARITY BIT.
00283  M00S00234.1tn     +++|*
00284  M00S00235.1tn     +++|*
00285  M00S00236.1tn     +++|*         PAR    CH,OE
00286  M00S00237.1tn     +++|*         ENTRY  *CH* = CHARACTER VALUE.
00287  M00S00238.1tn     +++|*                *OE* = ODD/EVEN (0=EVEN, 1=ODD)
00288  M00S00239.1tn     +++|*         EXIT   *.1* = PARITY.
00289  M00S00240.1tn     +++|
00290  M00S00241.1tn     +++|
00291  M00S00242.1tn     +++| PAR      MACRO  A,B
00292  M00S00243.1tn     +++|P MICRO A+1,1, 011010011001011010010110011010011001011001101001011010011
00293  M00S00244.1tn     +++|,00101101001011001101001011010011001011001101001100101101001011001101001
00294  M00S00245.1tn     +++|.1 SET "P"&;B
00295  M00S00246.1tn     +++|          ENDM
00296  M00S00247.1tn     +++| TTADD    SPACE  4,10
00297  M00S00248.1tn     +++|**        TTADD - GENERATE TERMINAL TABLE ADDRESS.
00298  M00S00249.1tn     +++|*
00299  M00S00250.1tn     +++|*
00300  M00S00251.1tn     +++|*TAG      TTADD  NAM,OPR,TNUM
00301  M00S00252.1tn     +++|*
00302  M00S00253.1tn     +++|*         ENTRY  *NAM* = DESIRED WORD OF TERMINAL TABLE ENTRY.
00303  M00S00254.1tn     +++|*                *OPR* = OPERAND TO LOAD A. (IF NULL *LDD*)
00304  M00S00255.1tn     +++|*                *TNUM* = TAG NAME OF TERMINAL NUMBER. (IF NULL *TN*)
00305  M00S00256.1tn     +++|*
00306  M00S00257.1tn     +++|*         EXIT   (A) = DESIRED ADDRESS.
00307  M00S00258.1tn     +++|
00308  M00S00259.1tn     +++|
00309  M00S00260.1tn     +++|          MACRO  TTADD,TAG,NAM,OPR,TNUM
00310  M00S00261.1tn     +++|  LOCAL A
00311  M00S00262.1tn     +++|TAG  TTAP OPR,TNUM
00312  M00S00263.1tn     +++|  QUAL
00313  M00S00264.1tn     +++|A ADC NAM
00314  M00S00265.1tn     +++|  QUAL *
00315  M00S00266.1tn     +++|TTTA RMT
00316  M00S00267.1tn     +++|  CON A
00317  M00S00268.1tn     +++|TTTA RMT
00318  M00S00269.1tn     +++|          ENDM
00319  M00S00270.1tn     +++| RETURN   SPACE  4,10
00320  M00S00271.1tn     +++|**        RETURN - RETURN TO MANAGER TO ADVANCE TERMINAL PROCESSING.
00321  M00S00272.1tn     +++|*
00322  M00S00273.1tn     +++|*
00323  M00S00274.1tn     +++|*         RETURN EXIT,ADDR
00324  M00S00275.1tn     +++|*
00325  M00S00276.1tn     +++|*         ENTRY  *EXIT* = MANAGER EXIT NUMBER.
00326  M00S00277.1tn     +++|*                *ADDR* = MANAGER RETURN ADDRESS.
00327  M00S00278.1tn     +++|*                IF *ADDR* IS NULL, RETURN TO NEXT PROGRAM ADDRESS.
00328  M00S00279.1tn     +++|
00329  M00S00280.1tn     +++|
00330  M00S00281.1tn     +++|          PURGMAC RETURN
00331  M00S00282.1tn     +++|
00332  M00S00283.1tn     +++| RETURN   MACRO  N,A
00333  M00S00284.1tn     +++| AA IFC EQ,*A**
00334  M00S00285.1tn     +++|  RJM N_.
00335  M00S00286.1tn     +++| AA ELSE
00336  M00S00287.1tn     +++|  LDC A
00337  M00S00288.1tn     +++|  QUAL
00338  M00S00289.1tn     +++|  NOREF ._N
00339  M00S00290.1tn     +++| BB IF DEF,._N
00340  M00S00291.1tn     +++| BB IFLT *-._N,36B
00341  M00S00292.1tn     +++|  UJN ._N
00342  M00S00293.1tn     +++| ._N SET *-1
00343  M00S00294.1tn     +++| BB ELSE
00344  M00S00295.1tn     +++|  LJM N
00345  M00S00296.1tn     +++| ._N SET *-2
00346  M00S00297.1tn     +++| BB ENDIF
00347  M00S00298.1tn     +++|  QUAL *
00348  M00S00299.1tn     +++| AA ENDIF
00349  M00S00300.1tn     +++|          ENDM
00350  M00S00301.1tn     +++|          TITLE  TRANSLATION TABLE MACROS.
00351  M00S00302.1tn     +++| TRANS    SPACE  4,10
00352  M00S00303.1tn     +++|***       TRANSLATION TABLES.
00353  M00S00304.1tn     +++|*
00354  M00S00305.1tn     +++|*
00355  M00S00306.1tn     +++|*         TRANSLATION TABLES ARE PROVIDED FOR A NUMBER OF DIFFERENT
00356  M00S00307.1tn     +++|*         TERMINALS.  THE TABLES MAY RESIDE IN EITHER PPU OR CENTRAL
00357  M00S00308.1tn     +++|*         MEMORY.  AN INSTALLATION MAY ELECT TO CHANGE THE RESIDENCY
00358  M00S00309.1tn     +++|*         OF A TABLE OR TO DELETE IT ENTIRELY.  THE FOLLOWING MACROS
00359  M00S00310.1tn     +++|*         CONTROL THE ASSEMBLY AND LOADING OF THE TABLES.
00360  M00S00311.1tn     +++|*         A CM RESIDENT TABLE WILL REQUIRE A LONGER SERVICE TIME
00361  M00S00312.1tn     +++|*         FOR THE ASSOCIATED TERMINAL, AND THIS RESIDENCY SHOULD
00362  M00S00313.1tn     +++|*         NOT BE USED FOR TERMINALS WHICH ARE COMMONLY CONNECTED.
00363  M00S00314.1tn     +++|*         THE SHORTEST SERVICE TIME WILL BE FOR THE FIRST
00364  M00S00315.1tn     +++|*         DEFINED PPU RESIDENT TRANSLATION TABLE.
00365  M00S00316.1tn     +++|          SPACE  4,10,10
00366  M00S00317.1tn     +++|**        ASSEMBLY VARIABLE *VPPT*.
00367  M00S00318.1tn     +++|*
00368  M00S00319.1tn     +++|*         THIS ASSEMBLY VARIABLE CONTROLS THE ASSEMBLY OF
00369  M00S00320.1tn     +++|*         TRANSLATION TABLE PROCESSING SUBROUTINES.  IF
00370  M00S00321.1tn     +++|*         THERE ARE TO BE NO PPU RESIDENT TRANSLATION
00371  M00S00322.1tn     +++|*         TABLES ASSEMBLED, IT MUST BE SET TO ZERO, OTHER-
00372  M00S00323.1tn     +++|*         WISE IT MUST BE SET NON ZERO.
00373  M00S00324.1tn     +++|
00374  M00S00325.1tn     +++|
00375  M00S00326.1tn     +++| VPPT     SET    1
00376  M00S00327.1tn     +++| TRANS    SPACE  4,10
00377  M00S00328.1tn     +++|**        TRANS - GENERATE TRANSLATION TABLE OVERLAY.
00378  M00S00329.1tn     +++|*
00379  M00S00330.1tn     +++|*
00380  M00S00331.1tn     +++|* NAM     TRANS  CD,RD,CL,SL,WT,IL,OL,ET,TX,IP,TC
00381  M00S00332.1tn     +++|*
00382  M00S00333.1tn     +++|*         ENTRY  *NAM* = TRANSLATION TABLE NAME.
00383  M00S00334.1tn     +++|*
00384  M00S00335.1tn     +++|*                PARAMETERS IN ADDRESS FIELD ARE EQUIVALENCED.
00385  M00S00336.1tn     +++|*                UNSPECIFIED PARAMETERS DEFAULT TO *ASCII* TERMINAL.
00386  M00S00337.1tn     +++|*
00387  M00S00338.1tn     +++|*               *NAM = TERMINAL TYPE NAME FOR USE IN *TERM* COMMAND.*
00388  M00S00339.1tn     +++|*                *CD = CODE FOR DETERMINATION OF TERMINAL TYPE*
00389  M00S00340.1tn     +++|*                *RD = NAME OF READ ROUTINE*
00390  M00S00341.1tn     +++|*                *CL = NAME OF COMMAND LINE INPUT ROUTINE*
00391  M00S00342.1tn     +++|*                *SL = NAME OF SOURCE LINE INPUT ROUTINE*
00392  M00S00343.1tn     +++|*                *WT = NAME OF WRITE ROUTINE*
00393  M00S00344.1tn     +++|*                *IL = LENGTH OF INPUT TRANSLATION TABLE*
00394  M00S00345.1tn     +++|*                *OL = LENGTH OF OUTPUT TRANSLATION TABLE*
00395  M00S00346.1tn     +++|*                *ET = EQUIVALENCED TABLE NAME.*
00396  M00S00347.1tn     +++|*                *TX = TEXT OF SUBTITLE*
00397  M00S00348.1tn     +++|*                *IP = DISPLAY CODE INPUT PROMPT CHARACTER.*
00398  M00S00349.1tn     +++|*                *TC = TRANSMISSION CODE FOR TABLE IDENTIFICATION.*
00399  M00S00350.1tn     +++|*                      *ASC* = ASCII (DEFAULT).
00400  M00S00351.1tn     +++|*                      *COR* = CORRESPONDENCE.
00401  M00S00352.1tn     +++|
00402  M00S00353.1tn     +++|
00403  M00S00354.1tn     +++|*         TRANSMISSION CODE TYPES.
00404  M00S00355.1tn     +++|
00405  M00S00356.1tn     +++| ASC      EQU    0           ASCII
00406  M00S00357.1tn     +++| COR      EQU    1           CORRESPONDENCE
00407  M00S00358.1tn     +++| NIX      EQU    2           NIXDORF
00408  M00S00359.1tn     +++|
00409  M00S00360.1tn     +++|          QUAL   TRN
00410  M00S00361.1tn     +++|
00411  M00S00362.1tn     +++|*         TRANSLATION TABLE ASSEMBLY VARIABLES.
00412  M00S00363.1tn     +++|
00413  M00S00364.1tn     +++| CDTT     MICRO  1,,         TERMINAL TYPE IDENTIFICATION CODES
00414  M00S00365.1tn     +++| RSTT     SET    0           RESIDENCY CONTROL
00415  M00S00366.1tn     +++| .N       SET    0           OVERLAY NAME COUNTER
00416  M00S00367.1tn     +++| .T       SET    0           TRANSLATION TABLE COUNTER
00417  M00S00368.1tn     +++|
00418  M00S00369.1tn     +++|*         PPU RESIDENT ASSEMBLY VARIABLES.
00419  M00S00370.1tn     +++|
00420  M00S00371.1tn     +++| IAPP     MICRO  1,,         INPUT TRANSLATION TABLE ADDRESSES
00421  M00S00372.1tn     +++| OAPP     MICRO  1,,         OUTPUT TRANSLATION TABLE ADDRESSES
00422  M00S00373.1tn     +++| ONPP     MICRO  1,,         OVERLAY NAMES
00423  M00S00374.1tn     +++| TCPP     MICRO  1,,         TERMINAL CODES
00424  M00S00375.1tn     +++| TNPP     MICRO  1,,         TERMINAL NAMES
00425  M00S00376.1tn     +++| LNPP     SET    0           LENGTH OF PP RESIDENT TRANSLATION TABLES
00426  M00S00377.1tn     +++| NPPT     SET    0           NUMBER OF PP RESIDENT TRANSLATION TABLES
00427  M00S00378.1tn     +++|
00428  M00S00379.1tn     +++|*         CM RESIDENT ASSEMBLY VARIABLES.
00429  M00S00380.1tn     +++|
00430  M00S00381.1tn     +++| IACM     MICRO  1,,         INPUT TRANSLATION TABLE ADDRESSES
00431  M00S00382.1tn     +++| OACM     MICRO  1,,         OUTPUT TRANSLATION TABLE ADDRESSES
00432  M00S00383.1tn     +++| ONCM     MICRO  1,,         OVERLAY NAMES
00433  M00S00384.1tn     +++| LNCM     MICRO  1,,         LENGTH OF CM TRANSLATION TABLES
00434  M00S00385.1tn     +++| TCCM     MICRO  1,,         TERMINAL CODES
00435  M00S00386.1tn     +++| TNCM     MICRO  1,,         TERMINAL NAMES
00436  M00S00387.1tn     +++| LNCM     SET    0           LENGTH OF CM TRANSLATION TABLES
00437  M00S00388.1tn     +++|
00438  M00S00389.1tn     +++|          NOREF  NPPT,RSTT,.N,.T
00439  M00S00390.1tn     +++|
00440  M00S00391.1tn     +++|          MACROE TRANS,NAM,CD,RD,CL,SL,WT,IL,OL,ET,TX,IP,TC
00441  M00S00392.1tn     +++| RES      HERE
00442  M00S00393.1tn     +++|          QUAL   TRN
00443  M00S00394.1tn     +++|
00444  M00S00395.1tn     +++|*         GENERATE OVERLAY NAME CHARACTER.
00445  M00S00396.1tn     +++|
00446  M00S00397.1tn     +++| .N       MICRO  .N+1,1 NOPQRSTUVWXYZ0123456789
00447  M00S00398.1tn     +++| .N       MICRO  1,, J".N"
00448  M00S00399.1tn     +++| .N       SET    .N+1
00449  M00S00400.1tn     +++|
00450  M00S00401.1tn     +++|*         GENERATE OVERLAY DATA.
00451  M00S00402.1tn     +++|
00452  M00S00403.1tn     +++|          TTL    1TN/9".N" - LOW SPEED INTERACTIVE TERMINAL DRIVER.
00453  M00S00404.1tn     +++| NAM      TITLE  TX
00454  M00S00405.1tn     +++|          BSS    0
00455  M00S00406.1tn     +++| .1       IFC    EQ,*ET**
00456  M00S00407.1tn     +++|          IDENT  9".N",0     TX
00457  M00S00408.1tn     +++|*COMMENT  1TN - TX
Line S00409 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00458  M01S00409.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1978.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00460  M00S00410.1tn     +++|          ORG    0
00461  M00S00411.1tn     +++|
00462  M00S00412.1tn     +++|*         SET CONTROL WORD TABLE.
00463  M00S00413.1tn     +++|
00464  M00S00414.1tn     +++|          QUAL   RDM
00465  M00S00415.1tn     +++|          ORG    /CTL/RDP
00466  M00S00416.1tn     +++|          CON    RD ARD
00467  M00S00417.1tn     +++|          ORG    /CTL/ECL
00468  M00S00418.1tn     +++|          CON    CL ACL
00469  M00S00419.1tn     +++|          ORG    /CTL/ESL
00470  M00S00420.1tn     +++|          CON    SL ASL
00471  M00S00421.1tn     +++|          QUAL   WTM
00472  M00S00422.1tn     +++|          ORG    /CTL/WTP
00473  M00S00423.1tn     +++|          CON    WT AWT
00474  M00S00424.1tn     +++|          ORG    /CTL/IPC
00475  M00S00425.1tn     +++|          DATA   IP 7555
00476  M00S00426.1tn     +++|          QUAL   TRN
00477  M00S00427.1tn     +++|          BSS    TCTAL-*
00478  M00S00428.1tn     +++| .1       ENDIF
00479  M00S00429.1tn     +++| RES      RMT
00480  M00S00430.1tn     +++|*
00481  M00S00431.1tn     +++|*         DEFINE TRANSLATION TABLES.
00482  M00S00432.1tn     +++|*
00483  M00S00433.1tn     +++| .1       IFC    EQ,*ET**
00484  M00S00434.1tn     +++| INP      BSS    0
00485  M00S00435.1tn     +++|          BSS    IL 200
00486  M00S00436.1tn     +++| OTP      SET    *
00487  M00S00437.1tn     +++|          BSS    OL 220
00488  M00S00438.1tn     +++|          QUAL   NAM
00489  M00S00439.1tn     +++|          IFEQ   /TRN/RSTT,1,3
00490  M00S00440.1tn     +++| IA       EQU    /TRN/LNPP+/TRN/INP+TCTA
00491  M00S00441.1tn     +++| OA       EQU    /TRN/LNPP+/TRN/OTP+TCTA
00492  M00S00442.1tn     +++| ONPP     MICRO  1,, "ONPP"2R".N",
00493  M00S00443.1tn     +++|          IFEQ   /TRN/RSTT,2,3
00494  M00S00444.1tn     +++| IA       EQU    /TRN/LNCM+/TRN/INP/4
00495  M00S00445.1tn     +++| OA       EQU    /TRN/LNCM+/TRN/OTP/4
00496  M00S00446.1tn     +++| ONCM     MICRO  1,, "ONCM"2R".N",
00497  M00S00447.1tn     +++| RSTT     SET    /TRN/RSTT
00498  M00S00448.1tn     +++| .1       ELSE
00499  M00S00449.1tn     +++|          QUAL   NAM
00500  M00S00450.1tn     +++| IA       EQU    /ET/IA
00501  M00S00451.1tn     +++| OA       EQU    /ET/OA
00502  M00S00452.1tn     +++| RSTT     SET    /ET/RSTT
00503  M00S00453.1tn     +++|          QUAL   TRN
00504  M00S00454.1tn     +++| RSTT     SET    /ET/RSTT
00505  M00S00455.1tn     +++|          QUAL   NAM
00506  M00S00456.1tn     +++| .1       ENDIF
00507  M00S00457.1tn     +++| LN       BSS    0
00508  M00S00458.1tn     +++|          QUAL   TRN
00509  M00S00459.1tn     +++|*
00510  M00S00460.1tn     +++|*         SET TABLE ADDRESSES.
00511  M00S00461.1tn     +++|*
00512  M00S00462.1tn     +++|          IFEQ   RSTT,1
00513  M00S00463.1tn     +++| IAPP     MICRO  1,, "IAPP"/NAM/IA,
00514  M00S00464.1tn     +++| OAPP     MICRO  1,, "OAPP"/NAM/OA,
00515  M00S00465.1tn     +++| TCPP     MICRO  1,, "TCPP"CD,
00516  M00S00466.1tn     +++| TNPP     MICRO  1,, "TNPP"42/0L_NAM,18/TC,
00517  M00S00467.1tn     +++|          IFC    EQ,$ET$$,1
00518  M00S00468.1tn     +++| LNPP     SET    LNPP+/NAM/LN
00519  M00S00469.1tn     +++| NPPT     SET    NPPT+1
00520  M00S00470.1tn     +++| .T       SET    .T+1
00521  M00S00471.1tn     +++|          ENDIF
00522  M00S00472.1tn     +++|*
00523  M00S00473.1tn     +++|*         PROCESS CM RESIDENT TRANSLATION TABLES.
00524  M00S00474.1tn     +++|*
00525  M00S00475.1tn     +++|          IFEQ   RSTT,2
00526  M00S00476.1tn     +++|          QUAL   NAM
00527  M00S00477.1tn     +++| CM       SET    LN+4
00528  M00S00478.1tn     +++| CM       SET    CM/5*5
00529  M00S00479.1tn     +++| CM       SET    CM+3
00530  M00S00480.1tn     +++| CM       SET    CM/4
00531  M00S00481.1tn     +++|          QUAL   TRN
00532  M00S00482.1tn     +++| IACM     MICRO  1,, "IACM"/NAM/IA,
00533  M00S00483.1tn     +++| LNCM     MICRO  1,, "LNCM"/NAM/CM,
00534  M00S00484.1tn     +++| OACM     MICRO  1,, "OACM"/NAM/OA,
00535  M00S00485.1tn     +++| TCCM     MICRO  1,, "TCCM"CD,
00536  M00S00486.1tn     +++| TNCM     MICRO  1,, "TNCM"42/0L_NAM,18/TC,
00537  M00S00487.1tn     +++|          IFC    EQ,$ET$$,1
00538  M00S00488.1tn     +++| LNCM     SET    LNCM+/NAM/CM
00539  M00S00489.1tn     +++| .T       SET    .T+1
00540  M00S00490.1tn     +++|          ENDIF
00541  M00S00491.1tn     +++| RSTT     SET    0
00542  M00S00492.1tn     +++| RES      RMT
00543  M00S00493.1tn     +++|          ENDM
00544  M00S00494.1tn     +++| TRES     SPACE  4,10
00545  M00S00495.1tn     +++|**        TRES - DEFINE TRANSLATION TABLE RESIDENCY.
00546  M00S00496.1tn     +++|*
00547  M00S00497.1tn     +++|*
00548  M00S00498.1tn     +++|*         TRES   RES
00549  M00S00499.1tn     +++|*
00550  M00S00500.1tn     +++|*         ENTRY  *RES* = RESIDENCY TYPE.
00551  M00S00501.1tn     +++|*                *CM* = CENTRAL MEMORY.
00552  M00S00502.1tn     +++|*                *PPU* = PP RESIDENT.
00553  M00S00503.1tn     +++|*                BLANK TABLE NOT DEFINED.
00554  M00S00504.1tn     +++|
00555  M00S00505.1tn     +++|
00556  M00S00506.1tn     +++| TRES     MACRO  A
00557  M00S00507.1tn     +++| RSTT     SET    0
00558  M00S00508.1tn     +++|          IFC    EQ,*A*PPU*,1
00559  M00S00509.1tn     +++| RSTT     SET    1
00560  M00S00510.1tn     +++|          IFC    EQ,*A*CM*,1
00561  M00S00511.1tn     +++| RSTT     SET    2
00562  M00S00512.1tn     +++| RES      HERE
00563  M00S00513.1tn     +++|          ENDM
00564  M00S00514.1tn     +++|          SPACE  4,10
00565  M00S00515.1tn     +++|**        SYMBOL EQUIVALENCES FOR TRANSLATION MACROS.
00566  M00S00516.1tn     +++|
00567  M00S00517.1tn     +++|
00568  M00S00518.1tn     +++| .1       SET    0
00569  M00S00519.1tn     +++| .2       SET    0
00570  M00S00520.1tn     +++| .3       SET    0
00571  M00S00521.1tn     +++| UC       EQU    3           UPPER CASE
00572  M00S00522.1tn     +++| LC       EQU    1           LOWER CASE
00573  M00S00523.1tn     +++|          NOREF  .1,.2,.3,,UC,LC
00574  M00S00524.1tn     +++| INASC    SPACE  4,10
00575  M00S00525.1tn     +++|**        INASC - GENERATE *ASCII* INPUT TRANSLATION.
00576  M00S00526.1tn     +++|*
00577  M00S00527.1tn     +++|*
00578  M00S00528.1tn     +++|*CH       INASC  DPC,PROC
00579  M00S00529.1tn     +++|*
00580  M00S00530.1tn     +++|*         ENTRY  *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00581  M00S00531.1tn     +++|*                *DPC* = DISPLAY CODE VALUE.
00582  M00S00532.1tn     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00583  M00S00533.1tn     +++|
00584  M00S00534.1tn     +++|
00585  M00S00535.1tn     +++|          MACRO  INASC,A,C,D
00586  M00S00536.1tn     +++|  IFC NE,*C**
00587  M00S00537.1tn     +++|.2 SET D
00588  M00S00538.1tn     +++|.3 SET C/100
00589  M00S00539.1tn     +++|  IFNE .3,0,2
00590  M00S00540.1tn     +++|.2 SET D CES
00591  M00S00541.1tn     +++|.3 SET .3/2-74/2
00592  M00S00542.1tn     +++|   VFD 5/.2,1/.3,6/C-C/100*100
00593  M00S00543.1tn     +++|  ELSE 2
00594  M00S00544.1tn     +++|.2 SET D NLI
00595  M00S00545.1tn     +++|   VFD 5/.2,7/0
00596  M00S00546.1tn     +++|          ENDM
00597  M00S00547.1tn     +++| OTASC    SPACE  4,10
00598  M00S00548.1tn     +++|**        OTASC - GENERATE *ASCII* OUTPUT TRANSLATION.
00599  M00S00549.1tn     +++|*
00600  M00S00550.1tn     +++|*
00601  M00S00551.1tn     +++|*DPC      OTASC  CH,PROC
00602  M00S00552.1tn     +++|*
00603  M00S00553.1tn     +++|*         ENTRY  *CH* = *ASCII* CHARACTER VALUE IN HEXIDECIMAL.
00604  M00S00554.1tn     +++|*                *DPC* = DISPLAY CODE VALUE.
00605  M00S00555.1tn     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00606  M00S00556.1tn     +++|
00607  M00S00557.1tn     +++|
00608  M00S00558.1tn     +++|          MACRO  OTASC,A,C,D
00609  M00S00559.1tn     +++|  IFC NE,*C**
00610  M00S00560.1tn     +++|.2 ASCO C,SET
00611  M00S00561.1tn     +++|  CON .2
00612  M00S00562.1tn     +++|  ELSE 1
00613  M00S00563.1tn     +++|  CON D NLO
00614  M00S00564.1tn     +++|          ENDM
00615  M00S00565.1tn     +++| INCOR    SPACE  4,10
00616  M00S00566.1tn     +++|**        INCOR - GENERATE CORRESPONDENCE CODE INPUT TRANSLATION.
00617  M00S00567.1tn     +++|*
00618  M00S00568.1tn     +++|*
00619  M00S00569.1tn     +++|*CH       INCOR  DPC,PROC
00620  M00S00570.1tn     +++|*
00621  M00S00571.1tn     +++|*         ENTRY  *CH* = CORRESPONDENCE CHARACTER VALUE IN OCTAL.
00622  M00S00572.1tn     +++|*                *DPC* = DISPLAY CODE VALUE.
00623  M00S00573.1tn     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00624  M00S00574.1tn     +++|
00625  M00S00575.1tn     +++|
00626  M00S00576.1tn     +++|          MACRO  INCOR,A,C,D
00627  M00S00577.1tn     +++|  IFC NE,*C**
00628  M00S00578.1tn     +++|.2 SET D
00629  M00S00579.1tn     +++|.3 SET C/100
00630  M00S00580.1tn     +++|  IFNE .3,0,2
00631  M00S00581.1tn     +++|.2 SET D CES
00632  M00S00582.1tn     +++|.3 SET .3/2-74/2
00633  M00S00583.1tn     +++|   VFD 5/.2,1/.3,6/C-C/100*100
00634  M00S00584.1tn     +++|  ELSE 2
00635  M00S00585.1tn     +++|.2 SET D NLI
00636  M00S00586.1tn     +++|   VFD 5/.2,7/0
00637  M00S00587.1tn     +++|          ENDM
00638  M00S00588.1tn     +++| OTCOR    SPACE  4,10
00639  M00S00589.1tn     +++|**        OTCOR - GENERATE CORRESPONDENCE CODE OUTPUT TRANSLATION.
00640  M00S00590.1tn     +++|*
00641  M00S00591.1tn     +++|*
00642  M00S00592.1tn     +++|*DPC      OTCOR  CH,PROC
00643  M00S00593.1tn     +++|*         ENTRY  *CH* = CORRESPONDENCE CHARACTER VALUE IN OCTAL.
00644  M00S00594.1tn     +++|*                *DPC* = DISPLAY CODE VALUE.
00645  M00S00595.1tn     +++|*                *PROC* = SPECIAL PROCESSOR CODE.
00646  M00S00596.1tn     +++|
00647  M00S00597.1tn     +++|
00648  M00S00598.1tn     +++|          MACRO  OTCOR,A,C,D
00649  M00S00599.1tn     +++|  IFC NE,*C**
00650  M00S00600.1tn     +++|.2 CORO C,SET
00651  M00S00601.1tn     +++|.3 SET D 1
00652  M00S00602.1tn     +++|   CON .2+1000*.3
00653  M00S00603.1tn     +++|   ELSE 1
00654  M00S00604.1tn     +++|   CON D NLO
00655  M00S00605.1tn     +++|          ENDM
00656  M00S00606.1tn     +++| PT       IF     DEF,VAVPT
00657  M00S00607.1tn     +++|OTNIX     SPACE  4,10,5
00658  M00S00608.1tn     +++|**        OTNIX - GENERATE NIXDORF CODE OUTPUT TRANSLATION
00659  M00S00609.1tn     +++|*
00660  M00S00610.1tn     +++|*         OTNIX  DC
00661  M00S00611.1tn     +++|*
00662  M00S00612.1tn     +++|*         ENTRY - *DC* = DISPLAY CODE CHARACTER VALUE IN OCTAL.
00663  M00S00613.1tn     +++|
00664  M00S00614.1tn     +++|
00665  M00S00615.1tn     +++| OTNIX    MACRO A
00666  M00S00616.1tn     +++|  NOREF .2
00667  M00S00617.1tn     +++|.2 SET A_B
00668  M00S00618.1tn     +++|  PAR .2,1
00669  M00S00619.1tn     +++|  CON 4200+.2*2+.1
00670  M00S00620.1tn     +++|          ENDM
00671  M00S00621.1tn     +++| PT       ENDIF
00672  M00S00622.1tn     +++|          SPACE  4,10
00673  M00S00623.1tn     +++|          QUAL
00674  M00S00624.1tn     +++|          TITLE  SYMBOLIC EQUIVALENCES.
00675  M00S00625.1tn     +++|          SPACE  4,10
00676  M00S00626.1tn     +++|****      DIRECT LOCATION ASSIGNMENTS.
00677  M00S00627.1tn     +++|
00678  M00S00628.1tn     +++|
00679  M00S00629.1tn     +++|
00680  M00S00630.1tn     +++| DP       EQU    20 - 24     TERMINAL TABLE WORD *VDPT*
00681  M00S00631.1tn     +++| CH       EQU    25 - 31     TERMINAL TABLE WORD *VCHT*
00682  M00S00632.1tn     +++| DC       EQU    32 - 36     TERMINAL TABLE WORD *VDCT*
00683  M00S00633.1tn     +++|
00684  M00S00634.1tn     +++| ME       EQU    37          CURRENT MULTIPLEXER NUMBER
00685  M00S00635.1tn     +++|
00686  M00S00636.1tn     +++| ZR       EQU    40 - 44     ZERO WORD
00687  M00S00637.1tn     +++| IN       EQU    42 - 46     CIRCULAR QUEUE INPUT ADDRESS
00688  M00S00638.1tn     +++| SM       EQU    47          SIMULATOR MODE FLAG
00689  M00S00639.1tn     +++|
00690  M00S00640.1tn     +++| RQ       EQU    50 - 54     TELEX REQUEST WORD
00691  M00S00641.1tn     +++| TN       EQU    54          CURRENT TERMINAL NUMBER
00692  M00S00642.1tn     +++| DI       EQU    55          DATA IN POINTER
00693  M00S00643.1tn     +++| DO       EQU    56          DATA OUT POINTER
00694  M00S00644.1tn     +++|*         EQU    57
00695  M00S00645.1tn     +++|
00696  M00S00646.1tn     +++| SI       EQU    60 - 64     STATUS INFORMATION STORED IN (MA)
00697  M00S00647.1tn     +++|*         EQU    60          COUNT OF MONITOR REQUESTS
00698  M00S00648.1tn     +++| MS       EQU    61          MILLISECOND CLOCK
00699  M00S00649.1tn     +++| IT       EQU    62          INTERVAL TIMER (SET TO 1 EACH HALF SECOND)
00700  M00S00650.1tn     +++|*         EQU    63          MAXIMUM CYCLE TIME
00701  M00S00651.1tn     +++|*         EQU    64          CURRENT CYCLE TIME
00702  M00S00652.1tn     +++|*         EQU    65          UNUSED
00703  M00S00653.1tn     +++|*         EQU    66          UNUSED
00704  M00S00654.1tn     +++|*         EQU    67          UNUSED
00705  M00S00655.1tn     +++|
00706  M00S00656.1tn     +++|
00707  M00S00657.1tn     +++|
00708  M00S00658.1tn     +++|
00709  M00S00659.1tn     +++|**        TIME OUT LIMITS.
00710  M00S00660.1tn     +++|*
00711  M00S00661.1tn     +++|*         THESE VALUES MUST NOT EXCEED 3777B.  THE LIMIT IS STORED IN
00712  M00S00662.1tn     +++|*         THE DATA OUTPUT WORD FOR THE TERMINAL AND THE PRESENCE OF
00713  M00S00663.1tn     +++|*         BIT 13 INDICATES TO THE MULTIPLEXER THAT THE BYTE IS A
00714  M00S00664.1tn     +++|*         VALID DATA CHARACTER.
00715  M00S00665.1tn     +++|*
00716  M00S00666.1tn     +++|*         THE UNITS ARE .5 SECONDS.
00717  M00S00667.1tn     +++|
00718  M00S00668.1tn     +++|
00719  M00S00669.1tn     +++| ATIO     EQU    7           ANSWERBACK TIME OUT
00720  M00S00670.1tn     +++| UTIO     EQU    2*60D*2     USER NUMBER TIME OUT
00721  M00S00671.1tn     +++| NTIO     EQU    10D*60D*2   NORMAL TIME OUT
00722  M00S00672.1tn     +++|
00723  M00S00673.1tn     +++|
00724  M00S00674.1tn     +++|
00725  M00S00675.1tn     +++|
00726  M00S00676.1tn     +++|**        PROGRAM EQUIVALENCES.
00727  M00S00677.1tn     +++|
00728  M00S00678.1tn     +++|
00729  M00S00679.1tn     +++| MC       EQU    15          MULTIPLEXER CHANNEL
00730  M00S00680.1tn     +++|
00731  M00S00681.1tn     +++| MXTT     EQU    37          MAXIMUM NUMBER OF TRANSLATION TABLES
00732  M00S00682.1tn     +++| MNCT     EQU    15D         MINIMUM CYCLE TIME
00733  M00S00683.1tn     +++| MXIC     EQU    150D        MAXIMUM INPUT CHARACTERS/LINE
00734  M00S00684.1tn     +++| MXTC     EQU    2000D       MAXIMUM TRANSACTION CHARACTERS/LINE
00735  M00S00685.1tn     +++| OBUF     EQU    100         FIRST OUTPUT BUFFER
00736  M00S00686.1tn     +++| .OBUF    MAX    300B,OBUF+100*MXMX
00737  M00S00687.1tn     +++| OBUFE    EQU    .OBUF
00738  M00S00688.1tn     +++| TCTAL    EQU    10          LENGTH OF TRANSLATION TABLE CONTROL TABLE
00739  M00S00689.1tn     +++|          ERRNG  MXTC-MXIC   MXTC MUST ALWAYS BE GREATER THAN MXIC
00740  M00S00690.1tn     +++|          SPACE  4,10
00741  M00S00691.1tn     +++|**        CHARACTER EQUIVALENCES.
00742  M00S00692.1tn     +++|
00743  M00S00693.1tn     +++|
00744  M00S00694.1tn     +++|*         INTERNAL CODES.
00745  M00S00695.1tn     +++|
00746  M00S00696.1tn     +++| .ICR     EQU    210         CARRIAGE RETURN
00747  M00S00697.1tn     +++| .ILF     EQU    211         LINE FEED
00748  M00S00698.1tn     +++| .INL     EQU    212         NEW LINE (CR/LF)
00749  M00S00699.1tn     +++| .ISTR    EQU    205         START TAPE READER
00750  M00S00700.1tn     +++| .IISI    EQU    4042        INITIATE STIMULATOR INPUT
00751  M00S00701.1tn     +++| .IISE    EQU    4050        HANG UP STIMULATOR PHONE
00752  M00S00702.1tn     +++| .ECP     EQU    770001      END OF CURRENT POT
00753  M00S00703.1tn     +++|
00754  M00S00704.1tn     +++|*         CARRIAGE CONTROL MICROS.
00755  M00S00705.1tn     +++|
00756  M00S00706.1tn     +++| CR       MICRO  1,, ;      CARRIAGE RETURN
00757  M00S00707.1tn     +++| LF       MICRO  1,, ;      LINE FEED
00758  M00S00708.1tn     +++| NL       MICRO  1,, ;      NEW LINE (CR/LF)
00759  M00S00709.1tn     +++|
00760  M00S00710.1tn     +++|*         *ASCII* TERMINAL CONTROL CHARACTERS.
00761  M00S00711.1tn     +++|
00762  M00S00712.1tn     +++| .ANUL    ASCO   00,EQU      (NUL) NULL
00763  M00S00713.1tn     +++| .AENQ    ASCO   05,EQU      (ENQ) ENQUIRY (REQUEST ANSWER BACK)
00764  M00S00714.1tn     +++| .ALF     ASCO   0A,EQU      (LF)  LINE FEED
00765  M00S00715.1tn     +++| .ACR     ASCO   0D,EQU      (CR)  CARRIAGE RETURN
00766  M00S00716.1tn     +++| .ADC1    ASCO   11,EQU      (DC1) DEVICE CONTROL 1
00767  M00S00717.1tn     +++| .ADEL    ASCO   7F,EQU      (DEL) DELETE
00768  M00S00718.1tn     +++|
00769  M00S00719.1tn     +++|*         CORRESPONDENCE CODE TERMINAL CONTROL CHARACTERS.
00770  M00S00720.1tn     +++|
00771  M00S00721.1tn     +++| .CUC     CORO   34,EQU      (UC)  UPPER CASE SHIFT
00772  M00S00722.1tn     +++| .CBS     CORO   35,EQU      (BS)  BACKSPACE
00773  M00S00723.1tn     +++| .CLC     CORO   37,EQU      (LC)  LOWER CASE SHIFT
00774  M00S00724.1tn     +++| .CNL     CORO   55,EQU      (NL)  NEW LINE
00775  M00S00725.1tn     +++| .CLF     CORO   56,EQU      (LF)  LINE FEED
00776  M00S00726.1tn     +++| .CEOA    CORO   64,EQU      (EOA) END OF ADDRESS
00777  M00S00727.1tn     +++| .CEOT    CORO   74,EQU      (EOT) END OF TRANSMISSION
00778  M00S00728.1tn     +++| .CIL     CORO   75,EQU      (IL)  IDLE
00779  M00S00729.1tn     +++|****
Line S00730 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00730.ns22000 ---|          SPACE  4,10
00781  M01S00731.ns22000 ---|**        INSTRUCTIONS USED AS CONSTANTS.
00782  M01S00732.ns22000 ---|
00783  M01S00733.ns22000 ---|
00784  M01S00734.ns22000 ---| AODI     EQU    3600        AOD
00785  M01S00735.ns22000 ---| DCNI     EQU    7500        DCN
00786  M01S00736.ns22000 ---| FANI     EQU    7600        FAN
00787  M01S00737.ns22000 ---| IJMI     EQU    6500        IJM
00788  M01S00738.ns22000 ---| LDNI     EQU    1400        LDN
00789  M01S00739.ns22000 ---| LMCI     EQU    2300        LMC
00790  M01S00740.ns22000 ---| LJMI     EQU    0100        LJM
00791  M00S00741.1tn     +++|          SPACE  4,10
00792  M00S00742.1tn     +++|**        TERMINAL TABLE CONTROL WORD LOCATIONS.
00793  M00S00743.1tn     +++|
00794  M00S00744.1tn     +++|          QUAL   CTL
00795  M00S00745.1tn     +++|          LOC    0
00796  M00S00746.1tn     +++| RDP      BSS    1           READ PROCESSOR
00797  M00S00747.1tn     +++| ECL      BSS    1           COMMAND LINE PROCESSOR
00798  M00S00748.1tn     +++| ESL      BSS    1           SOURCE LINE PROCESSOR
00799  M00S00749.1tn     +++| WTP      BSS    1           WRITE PROCESSOR
00800  M00S00750.1tn     +++| IPC      BSS    1           INPUT PROMPT CHARACTER
00801  M00S00751.1tn     +++|          BSS    TCTAL-*     RESERVED
00802  M00S00752.1tn     +++|          LOC    *O
00803  M00S00753.1tn     +++|          QUAL   *
00804  M00S00754.1tn     +++|          TITLE  MAIN PROGRAM.
00805  M00S00755.1tn     +++|          ORG    OBUFE
00806  M00S00756.1tn     +++| AVT      SPACE  4,10
00807  M00S00757.1tn     +++| AVTA     CON    0
00808  M00S00758.1tn     +++|**        AVT - ADVANCE TIME.
00809  M00S00759.1tn     +++|
00810  M00S00760.1tn     +++|
00811  M00S00761.1tn     +++| AVT0     LJM    DRP         DROP PPU
00812  M00S00762.1tn     +++|
00813  M00S00763.1tn     +++| AVT      LDC    RTCL        READ REAL TIME CLOCK
00814  M00S00764.1tn     +++|          CRD    CM
00815  M00S00765.1tn     +++|          LDD    CM+4        CHECK MILLISECONDS
00816  M00S00766.1tn     +++|          SBD    MS
00817  M00S00767.1tn     +++|          PJN    AVT1        IF NO OVERFLOW
00818  M00S00768.1tn     +++|          ADC    10000
00819  M00S00769.1tn     +++| AVT1     STD    SI+4        SET CYCLE TIME
00820  M00S00770.1tn     +++|          SBD    SI+3        CHECK CYCLE TIME
00821  M00S00771.1tn     +++|          MJN    AVT2        IF MAXIMUM NOT EXCEEDED
00822  M00S00772.1tn     +++|          RAD    SI+3        SET NEW MAXIMUM
00823  M00S00773.1tn     +++|
00824  M00S00774.1tn     +++|*         CHECK ERROR AND DEBUG FLAGS.
00825  M00S00775.1tn     +++|
00826  M00S00776.1tn     +++| AVT2     BSS    0
00827  M00S00777.1tn     +++|          LDD    CP          CHECK ERROR FLAG
00828  M00S00778.1tn     +++|          ADN    STSW
00829  M00S00779.1tn     +++|          CRD    T0
00830  M00S00780.1tn     +++|          LDD    T1
00831  M00S00781.1tn     +++|          NJN    AVT0        IF ERROR FLAG SET
00832  M00S00782.1tn     +++|          ADCRA  DBUG
00833  M00S00783.1tn     +++|          CRD    T0          READ *DBUG* WORD
00834  M00S00784.1tn     +++|          LDD    T4
00835  M00S00785.1tn     +++|          ZJN    AVT3        IF NOT STOPPED
00836  M00S00786.1tn     +++|          SBN    1
00837  M00S00787.1tn     +++|          NJN    *-1
00838  M00S00788.1tn     +++|          UJN    AVT2        LOOP
00839  M00S00789.1tn     +++|
00840  M00S00790.1tn     +++| AVT3     STD    ME          RESET MULTIPLEXER INDEX
00841  M00S00791.1tn     +++|          LDD    T3
00842  M00S00792.1tn     +++|          STD    T4
00843  M00S00793.1tn     +++|          LDCRA  DBUG
00844  M00S00794.1tn     +++|          CWD    T0
Line S00795 Modification History
M01 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
00845  M01S00795.ncc6676 ---| AVT4     LDD    CM+4
00846  M01S00796.ncc6676 ---|          SBD    MS
00847  M01S00797.ncc6676 ---|          PJN    AVT5        IF NO OVERFLOW
00848  M01S00798.ncc6676 ---|          ADC    10000
00849  M01S00799.ncc6676 ---| AVT5     SBD    T1
00850  M01S00800.ncc6676 ---|          PJN    AVT6        IF MINIMUM CYCLE TIME EXCEEDED
00851  M01S00801.ncc6676 ---|          LDC    125D        DELAY .25 MILLI-SECONDS
00852  M01S00802.ncc6676 ---|          SBN    1
00853  M01S00803.ncc6676 ---|          NJN    *-1
00854  M01S00804.ncc6676 ---|          LDC    RTCL        READ REAL TIME CLOCK
00855  M01S00805.ncc6676 ---|          CRD    CM
00856  M01S00806.ncc6676 ---|          UJN    AVT4
00857  M00S00807.1tn     +++|
00858  M00S00808.1tn     +++| AVT6     LDD    CM+4        SET NEW MILLISECOND TIME
00859  M00S00809.1tn     +++|          STD    MS
00860  M00S00810.1tn     +++|          SHN    -11         CHECK INTERVAL
00861  M00S00811.1tn     +++|          SHN    17
00862  M00S00812.1tn     +++|          LMD    CM+3
00863  M00S00813.1tn     +++|          SHN    3
00864  M00S00814.1tn     +++|          LPC    7777
00865  M00S00815.1tn     +++|          SBM    AVTA
00866  M00S00816.1tn     +++|          ZJN    AVT7        IF NO CHANGE
00867  M00S00817.1tn     +++|          RAM    AVTA
00868  M00S00818.1tn     +++|          LDN    1           SET INTERVAL TIMER
00869  M00S00819.1tn     +++| AVT7     STD    IT
00870  M00S00820.1tn     +++|          ZJN    AVT8        IF NOT .5 SECONDS
00871  M00S00821.1tn     +++|          LDN    10          SET NUMBER OF USERS TO ALLOW TO LOG IN
00872  M00S00822.1tn     +++|          STM    /CTL/DINA
00873  M00S00823.1tn     +++| AVT8     LDD    MA          WRITE STATUS INFORMATION
00874  M00S00824.1tn     +++|          CWD    SI
00875  M00S00825.1tn     +++|*         LJM    ITD         LOOP TO FIRST MULTIPLEXER
00876  M00S00826.1tn     +++| ITD      SPACE  4,10
00877  M00S00827.1tn     +++|**        ITD - MAIN PROGRAM.
00878  M00S00828.1tn     +++|
00879  M00S00829.1tn     +++|
Line S00830 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00880  M01S00830.ns22000 ---| ITD      LDC    OBUF        SET FIRST OUTPUT BUFFER ADDRESS
00881  M01S00831.ns22000 ---|          STM    SVMA
Line S00048 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00882  M01S00048.ns22000 +++| ITD      BSS    0
Line S00001 Modification History
M01 (Added by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
00883  M01S00001.ncc6676 +++|          LDC    OBUF        SET FIRST OUTPUT BUFFER ADDRESS
00884  M01S00002.ncc6676 +++|          STM    SVMA
00885  M00S00832.1tn     +++| .TNA     LDN    0           RESET FIRST *TELEX* TERMINAL NUMBER
00886  M00S00833.1tn     +++|          STD    TN
00887  M00S00834.1tn     +++|
00888  M00S00835.1tn     +++|*         SET BUFFER ADDRESSES FOR NEXT MULTIPLEXER.
00889  M00S00836.1tn     +++|
00890  M00S00837.1tn     +++| ITD1     LDC    IBUF        SET INPUT BUFFER ADDRESS
00891  M00S00838.1tn     +++|          STD    DI
Line S00003 Modification History
M01 (Added by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
00892  M01S00003.ncc6676 +++|          ADM    TNTD,ME     SET LIMIT ADDRESS
00893  M01S00004.ncc6676 +++|          STM    /CTL/MGRA
Line S00839 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00839.ns22000 ---|          ADM    TNTD,ME     SET LIMIT ADDRESS
00895  M01S00840.ns22000 ---|          STM    /CTL/MGRA
00896  M01S00841.ns22000 ---| SVM      SPACE  4,10
00897  M01S00842.ns22000 ---|**        SVM - SERVICE MULTIPLEXER.
00898  M01S00843.ns22000 ---|
00899  M01S00844.ns22000 ---|
00900  M01S00845.ns22000 ---| SVM      LDM    TEQN,ME     READ EST ENTRY
Line S00049 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00901  M01S00049.ns22000 +++|          LDM    TEQN,ME     READ EST ENTRY
Line S00846 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00902  M01S00846.ns22000 ---|          ADC    *
00903  M01S00847.ns22000 ---| .ES1     EQU    *-1         (PRS)
Line S00050 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00904  M01S00050.ns22000 +++|          SFA    EST
00905  M01S00051.ns22000 +++|          ADK    EQDE
00906  M00S00848.1tn     +++|          CRD    CM
Line S00001 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00907  M01S00001.252l678 +++|          LDD    CM+1        CLEAR UPPER BITS
00908  M01S00002.252l678 +++|          LPN    37
00909  M01S00003.252l678 +++|          STD    CM+1
00910  M00S00849.1tn     +++|          LDC    TCHS        SET FWA OF CHANNEL TABLE
00911  M00S00850.1tn     +++|          STD    T1
Line S00851 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00851.ns22000 ---|          UJN    SVM2
Line S00052 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00913  M01S00052.ns22000 +++|          UJN    ITD1.2      ENTER CHANNEL MODIFICATION LOOP
00914  M00S00852.1tn     +++|
Line S00853 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00915  M01S00853.ns22000 ---| SVM1     RAI    T2          MODIFY INSTRUCTION
Line S00053 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00916  M01S00053.ns22000 +++| ITD1.1   RAI    T2          MODIFY INSTRUCTION
00917  M00S00854.1tn     +++|          AOD    T1
Line S00855 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00918  M01S00855.ns22000 ---| SVM2     LDI    T1
Line S00054 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00919  M01S00054.ns22000 +++| ITD1.2   LDI    T1          LOAD NEXT CHANNEL INSTRUCTION
00920  M00S00856.1tn     +++|          STD    T2
00921  M00S00857.1tn     +++|          LDD    CM+1
00922  M00S00858.1tn     +++|          CHTL   *
00923  M00S00859.1tn     +++|          SBN    MC
Line S00860 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00924  M01S00860.ns22000 ---|          NJN    SVM1        IF STILL MORE CHANNELS TO MODIFY
00925  M01S00861.ns22000 ---|
00926  M01S00862.ns22000 ---|*         PROCESS MULTIPLEXER OUTPUT/INPUT.
00927  M01S00863.ns22000 ---|
00928  M01S00864.ns22000 ---|          LDM    TNTD-1,ME   UPDATE OUTPUT BUFFER POINTER
00929  M01S00865.ns22000 ---|          RAM    SVMA
00930  M01S00866.ns22000 ---|          SBN    1
00931  M01S00867.ns22000 ---|          STD    DO
00932  M01S00868.ns22000 ---|          LDD    CM+4
00933  M01S00869.ns22000 ---|          LPN    37
00934  M01S00870.ns22000 ---|          ZJN    SVM4        IF NOT STIMULATOR
00935  M01S00871.ns22000 ---|          LPN    10
00936  M01S00872.ns22000 ---|          NJN    SVM3        IF *ASTIM* MUX
00937  M01S00873.ns22000 ---|          LJM    STM
00938  M01S00874.ns22000 ---|
00939  M01S00875.ns22000 ---| SVM3     SHN    13-3
00940  M01S00876.ns22000 ---| SVM4     STD    SM
00941  M01S00877.ns22000 ---|          LDD    CM+4        SET SELECT CODE
00942  M01S00878.ns22000 ---|          LPC    7000
00943  M01S00879.ns22000 ---|          STD    T3
00944  M01S00880.ns22000 ---|          LMN    1           ISSUE WRITE FUNCTION
00945  M01S00881.ns22000 ---|          FAN    MC
00946  M01S00882.ns22000 ---|          IJM    SVM6,MC     IF INACTIVE CONTINUE
00947  M01S00883.ns22000 ---|          IJM    SVM6,MC     IF INACTIVE CONTINUE
00948  M01S00884.ns22000 ---|          UJN    SVM7        FUNCTION TIMEOUT
00949  M01S00885.ns22000 ---|
00950  M01S00886.ns22000 ---| SVM5     LJM    MXE         REPORT EQUIPMENT MALFUNCTION
00951  M01S00887.ns22000 ---|
00952  M01S00888.ns22000 ---| SVM6     LDM    TNTD,ME     WRITE OUTPUT DATA
00953  M01S00889.ns22000 ---|          ACN    MC
00954  M01S00890.ns22000 ---|          OAM    *,MC
00955  M01S00891.ns22000 ---| SVMA     EQU    *-1
00956  M01S00892.ns22000 ---|          NJN    SVM5        IF INCOMPLETE TRANSFER
00957  M01S00893.ns22000 ---|          FJM    *,MC
00958  M01S00894.ns22000 ---|          DCN    MC+40
00959  M01S00895.ns22000 ---|          LDD    T3          ISSUE READ FUNCTION
00960  M01S00896.ns22000 ---|          LMN    3
00961  M01S00897.ns22000 ---|          FAN    MC
00962  M01S00898.ns22000 ---|          IJM    SVM8,MC     IF INACTIVE CONTINUE
00963  M01S00899.ns22000 ---|          IJM    SVM8,MC     IF INACTIVE CONTINUE
00964  M01S00900.ns22000 ---| SVM7     DCN    MC+40
00965  M01S00901.ns22000 ---|          LJM    MXE0        FUNCTION TIMEOUT
00966  M01S00902.ns22000 ---|
00967  M01S00903.ns22000 ---| SVM8     BSS    0
00968  M01S00904.ns22000 ---|          LDM    TNTD,ME     READ INPUT BUFFER
00969  M01S00905.ns22000 ---|          ACN    MC
00970  M01S00906.ns22000 ---|          IAM    IBUF,MC
00971  M01S00907.ns22000 ---|          NJN    SVM5        IF INPUT NOT COMPLETE
00972  M01S00908.ns22000 ---|          DCN    MC+40
00973  M01S00909.ns22000 ---| ITD      SPACE  4,10
00974  M01S00910.ns22000 ---|**        ITD - MAIN PROGRAM.
00975  M01S00911.ns22000 ---|
Line S00055 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00055.ns22000 +++|          NJN    ITD1.1      IF MORE CHANNELS TO BE MODIFIED
Line S00056 Modification History
M01 (Added by) ns22000
M02 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00056.ncc6676 ---|          UJN    STM         PROCESS STIMULATOR MUX
Line S00005 Modification History
M01 (Added by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
00978  M01S00005.ncc6676 +++|
00979  M01S00006.ncc6676 +++|*         PROCESS MULTIPLEXER OUTPUT/INPUT.
00980  M01S00007.ncc6676 +++|
00981  M01S00008.ncc6676 +++| SVM      BSS    0
00982  M01S00009.ncc6676 +++|          LDM    TNTD-1,ME   UPDATE OUTPUT BUFFER POINTER
00983  M01S00010.ncc6676 +++|          RAM    SVMA
00984  M01S00011.ncc6676 +++|          SBN    1
00985  M01S00012.ncc6676 +++|          STD    DO
00986  M01S00013.ncc6676 +++|          LDN    0
00987  M01S00014.ncc6676 +++|          STD    SM
00988  M01S00015.ncc6676 +++|          LDD    CM+4        SET SELECT CODE
00989  M01S00016.ncc6676 +++|          LPC    7000
00990  M01S00017.ncc6676 +++|          STD    T3
00991  M01S00018.ncc6676 +++|          LMN    1           ISSUE WRITE FUNCTION
00992  M01S00019.ncc6676 +++|          FAN    MC
00993  M01S00020.ncc6676 +++|          IJM    SVM2,MC     IF INACTIVE CONTINUE
00994  M01S00021.ncc6676 +++|          IJM    SVM2,MC     IF INACTIVE CONTINUE
00995  M01S00022.ncc6676 +++|          UJN    SVM3        FUNCTION TIMEOUT
00996  M01S00023.ncc6676 +++|
00997  M01S00024.ncc6676 +++| SVM1     LDC    ITDA        REPORT EQUIPMENT MALFUNCTION
00998  M01S00025.ncc6676 +++|          RJM    DFM
00999  M01S00026.ncc6676 +++|          LJM    MXE
01000  M01S00027.ncc6676 +++|
01001  M01S00028.ncc6676 +++| SVM2     LDM    TNTD,ME     WRITE OUTPUT DATA
01002  M01S00029.ncc6676 +++|          ACN    MC
01003  M01S00030.ncc6676 +++|          OAM    *,MC
01004  M01S00031.ncc6676 +++| SVMA     EQU    *-1
01005  M01S00032.ncc6676 +++|          NJN    SVM1        IF INCOMPLETE TRANSFER
01006  M01S00033.ncc6676 +++|          FJM    *,MC
01007  M01S00034.ncc6676 +++|          DCN    MC+40
01008  M01S00035.ncc6676 +++|          LDD    T3          ISSUE READ FUNCTION
01009  M01S00036.ncc6676 +++|          LMN    3
01010  M01S00037.ncc6676 +++|          FAN    MC
01011  M01S00038.ncc6676 +++|          IJM    SVM4,MC     IF INACTIVE CONTINUE
01012  M01S00039.ncc6676 +++|          IJM    SVM4,MC     IF INACTIVE CONTINUE
01013  M01S00040.ncc6676 +++| SVM3     DCN    MC+40
01014  M01S00041.ncc6676 +++|          LJM    MXE0        FUNCTION TIMEOUT
01015  M01S00042.ncc6676 +++|
01016  M01S00043.ncc6676 +++| SVM4     BSS    0
01017  M01S00044.ncc6676 +++|          LDM    TNTD,ME     READ INPUT BUFFER
01018  M01S00045.ncc6676 +++|          ACN    MC
01019  M01S00046.ncc6676 +++|          IAM    IBUF,MC
01020  M01S00047.ncc6676 +++|          NJN    SVM1        IF INPUT NOT COMPLETE
01021  M01S00048.ncc6676 +++|          DCN    MC+40
01022  M01S00049.ncc6676 +++|          RJM    /CTL/MGRX   PROCESS TERMINALS
01023  M00S00912.1tn     +++|
Line S00913 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01024  M01S00913.ns22000 ---|          RJM    /CTL/MGRX   PROCESS TERMINALS
01025  M00S00914.1tn     +++| ITD2     BSS    0
01026  M00S00915.1tn     +++|          LDCDQ  3           READ CIRCULAR QUEUE OUTPUT POINTER
01027  M00S00916.1tn     +++|          CRD    CM
01028  M00S00917.1tn     +++|          LDD    IN+3        IN - OUT
01029  M00S00918.1tn     +++|          SBD    CM+3
01030  M00S00919.1tn     +++|          SHN    14
01031  M00S00920.1tn     +++|          ADD    IN+4
01032  M00S00921.1tn     +++|          SBD    CM+4
01033  M00S00922.1tn     +++|          PJN    ITD3        IF IN .GE OUT
01034  M00S00923.1tn     +++|          ADC    VDSL
01035  M00S00924.1tn     +++| ITD3     ADC    -VDSL/2
01036  M00S00925.1tn     +++|          MJN    ITD4        IF QUEUE NOT OVER HALF FULL
01037  M00S00926.1tn     +++|          LDN    RCLM        RECALL CPU
01038  M00S00927.1tn     +++|          RJM    MRQ
01039  M00S00928.1tn     +++|          AOD    SI          COUNT MONITOR REQUEST
01040  M00S00929.1tn     +++| ITD4     AOD    ME          ADVANCE MULTIPLEXER
01041  M00S00930.1tn     +++|          LDM    TEQN,ME
01042  M00S00931.1tn     +++|          ZJN    ITD5        IF ALL MULTIPLEXERS PROCESSED
01043  M00S00932.1tn     +++|          LJM    ITD1        PROCESS NEXT MULTIPLEXER
01044  M00S00933.1tn     +++|
01045  M00S00934.1tn     +++| ITD5     LJM    AVT
Line S00935 Modification History
M01 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00935.ncc6676 ---| STM      SPACE  4,10
01047  M01S00936.ncc6676 ---|**        STM - PROCESS STIMULATOR.
01048  M01S00937.ncc6676 ---|
01049  M01S00938.ncc6676 ---|
01050  M01S00939.ncc6676 ---| STM      BSS    0
01051  M01S00940.ncc6676 ---|          LDM    TNTD,ME
01052  M01S00941.ncc6676 ---|          STD    SM
01053  M01S00942.ncc6676 ---|          IJM    STM3,MC     IF STIMULATOR NOT RUNNING
01054  M01S00943.ncc6676 ---|          AOD    SM
01055  M01S00944.ncc6676 ---|          LDC    STMA        STUFF INSTRUCTIONS
01056  M01S00945.ncc6676 ---|          STD    DO
01057  M01S00946.ncc6676 ---|          LDC    STMB
01058  M01S00947.ncc6676 ---|          STD    DI
Line S00948 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00948.ncc6676 ---|          LDC    LJMI        SET LJM AT MGR
01060  M02S00949.ncc6676 ---|          STM    /CTL/MGR
01061  M02S00950.ncc6676 ---|          LDC    STM1
01062  M02S00951.ncc6676 ---|          STM    /CTL/MGR+1
Line S00952 Modification History
M01 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00952.ncc6676 ---|          LCN    0
01064  M01S00953.ncc6676 ---|          UJN    STM2
01065  M01S00954.ncc6676 ---|
Line S00057 Modification History
M01 (Added by) ns22000
M02 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00057.ncc6676 ---|*         ENTERED HERE FROM OTHER ROUTINES.
01067  M02S00058.ncc6676 ---|
Line S00955 Modification History
M01 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01068  M01S00955.ncc6676 ---| STM1     IJM    STM3,MC     IF STIMULATOR DROPPED
01069  M01S00956.ncc6676 ---|          LDC    0
01070  M01S00957.ncc6676 ---| STMA     EQU    *-1
01071  M01S00958.ncc6676 ---| STM2     OAN    MC
01072  M01S00959.ncc6676 ---|          FJM    *,MC        WAIT FOR EMPTY
01073  M01S00960.ncc6676 ---|          SOD    SM          COUNT TERMINAL
01074  M01S00961.ncc6676 ---|          ZJN    STM3        IF ALL TERMINALS PROCESSED
01075  M01S00962.ncc6676 ---|          LDN    0
01076  M01S00963.ncc6676 ---|          STI    DO
01077  M01S00964.ncc6676 ---|          IAN    MC          INPUT DATUM
01078  M01S00965.ncc6676 ---|          STM    STMB
01079  M01S00966.ncc6676 ---|          LJM    /CTL/MGR2   PROCESS TERMINAL DATA
01080  M01S00967.ncc6676 ---|
01081  M01S00968.ncc6676 ---| STM3     LDD    SM
01082  M01S00969.ncc6676 ---|          RAD    TN
01083  M01S00970.ncc6676 ---|          LDN    0
01084  M01S00971.ncc6676 ---|          STD    SM
Line S00972 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00972.ncc6676 ---|          LDC    AODI+DI
01086  M02S00973.ncc6676 ---|          STM    /CTL/MGR    RESET (MGR) INSTRUCTIONS
01087  M02S00974.ncc6676 ---|          LDC    LMCI
01088  M02S00975.ncc6676 ---|          STM    /CTL/MGR+1
01089  M02S00976.ncc6676 ---|          LJM    ITD2        SERVICE REAL MULTIPLEXERS
Line S00059 Modification History
M01 (Added by) ns22000
M02 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00059.ncc6676 ---|          LJM    ITD2        PROCESS NEXT MUX
Line S00977 Modification History
M01 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01091  M01S00977.ncc6676 ---|
01092  M01S00978.ncc6676 ---| STMB     CON    0
01093  M01S00979.ncc6676 ---|
Line S00050 Modification History
M01 (Added by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01094  M01S00050.ncc6676 +++|
01095  M01S00051.ncc6676 +++| ITDA     DATA   C*I/O INCOMPLETE.*
01096  M00S00980.1tn     +++|
Line S00981 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00981.ns22000 ---|**        TCHS - MULTIPLEXER CHANNEL TABLE
Line S00060 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00060.ns22000 +++|**        TCHS - MUX CHANNEL TABLE.
01099  M00S00982.1tn     +++|
01100  M00S00983.1tn     +++|
01101  M00S00984.1tn     +++| TCHS     CHTB               CHANNEL TABLE
Line S00061 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00061.ns22000 +++| COMMON   SPACE  4,10
01103  M01S00062.ns22000 +++|**        COMMON DECKS.
01104  M01S00063.ns22000 +++|
01105  M01S00064.ns22000 +++|
01106  M01S00065.ns22000 +++| EST$     EQU    1           SELECT EST PROCESSOR
01107  M01S00066.ns22000 +++|*CALL     COMPGFP
01108  M00S00985.1tn     +++|          TITLE  TERMINAL MANAGER.
01109  M00S00986.1tn     +++| MGR      SPACE  4,10
01110  M00S00987.1tn     +++|**        MGR - TERMINAL MANAGER.
01111  M00S00988.1tn     +++|*
01112  M00S00989.1tn     +++|*         THE TERMINAL MANAGER PERFORMS THE STATUS CHECKS UPON THE
01113  M00S00990.1tn     +++|*         INPUT DATA FROM THE EACH PORT OF THE MULTIPLEXER.
01114  M00S00991.1tn     +++|*         IF ACTION IS REQUIRED FOR THE TERMINAL, THE TERMINAL
01115  M00S00992.1tn     +++|*         TABLE WORDS *VDPT* AND *VCHT* ARE READ AND THE INDICATED
01116  M00S00993.1tn     +++|*         RE-ENTRANT ROUTINE ENTERED.
01117  M00S00994.1tn     +++| EXI      SPACE  4,10
01118  M00S00995.1tn     +++|**        EXI - RE-ENTRANT ROUTINE RETURNS.
01119  M00S00996.1tn     +++|
01120  M00S00997.1tn     +++|
01121  M00S00998.1tn     +++|*         STORE *VDPT*.
01122  M00S00999.1tn     +++|
01123  M00S01000.1tn     +++| EXI1.    CON    0
01124  M00S01001.1tn     +++|          LDM    EXI1.       SET RE-ENTRY ADDRESS
01125  M00S01002.1tn     +++| EXI1     STD    DP+4        RESET ROUTINE POINTER
01126  M00S01003.1tn     +++| EXI2     TTADD  VDPT
01127  M00S01004.1tn     +++|          CWD    DP
01128  M00S01005.1tn     +++|          LJM    MGR
01129  M00S01006.1tn     +++|
01130  M00S01007.1tn     +++|*         STORE *VDPT* AND *VCHT*.
01131  M00S01008.1tn     +++|
01132  M00S01009.1tn     +++| EXI3.    CON    0
01133  M00S01010.1tn     +++|          LDM    EXI3.       SET RE-ENTRY ADDRESS
01134  M00S01011.1tn     +++| EXI3     STD    DP+4        RESET ROUTINE POINTER
01135  M00S01012.1tn     +++| EXI4     TTADD  VDPT        RESET VDPT AND VCHT
01136  M00S01013.1tn     +++|          CWD    DP
01137  M00S01014.1tn     +++|          ADN    VCHT-VDPT
01138  M00S01015.1tn     +++|          CWD    CH
01139  M00S01016.1tn     +++|          UJN    MGR
01140  M00S01017.1tn     +++|
01141  M00S01018.1tn     +++|*         STORE *VDPT*, *VCHT*, AND *VDCT*.
01142  M00S01019.1tn     +++|
01143  M00S01020.1tn     +++| EXI5.    CON    0
01144  M00S01021.1tn     +++|          LDM    EXI5.       SET RE-ENTRY ADDRESS
01145  M00S01022.1tn     +++| EXI5     STD    DP+4        RESET ROUTINE POINTER
01146  M00S01023.1tn     +++|          TTADD  VDPT        RESET VCPT, VCHT, AND VDCT
01147  M00S01024.1tn     +++|          CWM    DP,TR
01148  M00S01025.1tn     +++|          UJN    MGR
01149  M00S01026.1tn     +++|
01150  M00S01027.1tn     +++|*         STORE *VDPT* AND CLEAR DATA OUTPUT.
01151  M00S01028.1tn     +++|
01152  M00S01029.1tn     +++| EXI6.    CON    0
01153  M00S01030.1tn     +++|          LDM    EXI6.       SET RE-ENTRY ADDRESS
01154  M00S01031.1tn     +++| EXI6     STD    DP+4        RESET ROUTINE POINTER
01155  M00S01032.1tn     +++| EXI7     TTADD  VDPT        RESET VDPT
01156  M00S01033.1tn     +++|          CWD    DP
01157  M00S01034.1tn     +++|          LDN    0           CLEAR DATA OUT
01158  M00S01035.1tn     +++|          STI    DO
01159  M00S01036.1tn     +++| MGR      SPACE  4,10
01160  M00S01037.1tn     +++|**        MGR - TERMINAL MANAGER.
01161  M00S01038.1tn     +++|
01162  M00S01039.1tn     +++|
01163  M00S01040.1tn     +++|          QUAL   CTL
01164  M00S01041.1tn     +++|
Line S01042 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01165  M01S01042.ns22000 ---| MGR      AOD    DI          INCREMENT DATA IN BUFFER (STM)
01166  M01S01043.ns22000 ---|          LMC    *
01167  M01S01044.ns22000 ---| MGRA     EQU    *-1
01168  M01S01045.ns22000 ---|          NJN    MGR1        IF NOT LAST TERMINAL ON THIS MUX
01169  M01S01046.ns22000 ---|          LJM    *           ENTRY/EXIT
01170  M01S01047.ns22000 ---| MGRX     EQU    *-1
01171  M01S01048.ns22000 ---|
01172  M01S01049.ns22000 ---| MGR1     AOD    DO          INCREMENT DATA OUT POINTER
01173  M01S01050.ns22000 ---|          LDI    DI
Line S00067 Modification History
M01 (Added by) ns22000
M02 (Removed by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S00067.ncc6676 ---| MGR      LJM    STM1        EXIT TO STIMULATOR MANAGER
Line S00052 Modification History
M01 (Added by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01175  M01S00052.ncc6676 +++| MGR      AOD    DI          INCREMENT DATA IN BUFFER (STM)
01176  M01S00053.ncc6676 +++|          LMC    *
01177  M01S00054.ncc6676 +++| MGRA     EQU    *-1
01178  M01S00055.ncc6676 +++|          NJN    MGR1        IF NOT LAST TERMINAL ON THIS MUX
01179  M01S00056.ncc6676 +++|          LJM    *           ENTRY/EXIT
01180  M01S00057.ncc6676 +++| MGRX     EQU    *-1
01181  M01S00058.ncc6676 +++|
01182  M01S00059.ncc6676 +++| MGR1     AOD    DO          INCREMENT DATA OUT POINTER
01183  M01S00060.ncc6676 +++|          LDI    DI
Line S00068 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00068.ns22000 +++|
01185  M00S01051.1tn     +++| MGR2     SHN    21-11
01186  M00S01052.1tn     +++|          MJN    MGR4        IF ON LINE
01187  M00S01053.1tn     +++|
01188  M00S01054.1tn     +++|*         CHECK STATUS OF OFF LINE TERMINAL.
01189  M00S01055.1tn     +++|
01190  M00S01056.1tn     +++|          TTADD  VDPT,AOD,TN
01191  M00S01057.1tn     +++|          CRD    DP
01192  M00S01058.1tn     +++|          LDD    DP+4        CHECK ROUTINE ADDRESS
01193  M00S01059.1tn     +++|          ADC    -DIN
01194  M00S01060.1tn     +++|          ZJN    MGR         IF WAITING FOR ON LINE
01195  M00S01061.1tn     +++|          MJN    MGR3        IF NOT LINE PROCESSING
01196  M00S01062.1tn     +++|          ADC    -OFLE+DIN
01197  M00S01063.1tn     +++|          MJN    MGR5        IF LINE PROCESSING
01198  M00S01064.1tn     +++| MGR3     LJM    OFL         SET OFF LINE
01199  M00S01065.1tn     +++|
01200  M00S01066.1tn     +++|*         PROCESS TERMINAL ON LINE.
01201  M00S01067.1tn     +++|
01202  M00S01068.1tn     +++| MGR4     SHN    33-10
01203  M00S01069.1tn     +++|          MJN    MGR6        IF CHARACTER REJECT
01204  M00S01070.1tn     +++|          TTADD  VDPT,AOD,TN
01205  M00S01071.1tn     +++|          CRD    DP
01206  M00S01072.1tn     +++|          ADN    VCHT-VDPT
01207  M00S01073.1tn     +++|          CRD    CH
01208  M00S01074.1tn     +++|
01209  M00S01075.1tn     +++| MGR5     LDI    DI
01210  M00S01076.1tn     +++|          SHN    21-13
01211  M00S01077.1tn     +++|          LJM    0,DP+4      ENTER ROUTINE
01212  M00S01078.1tn     +++|
01213  M00S01079.1tn     +++| MGR6     SHN    32-13
01214  M00S01080.1tn     +++|          MJN    MGR7        IF INPUT RECEIVED
01215  M00S01081.1tn     +++|          AOD    TN
01216  M00S01082.1tn     +++|          LJM    MGR
01217  M00S01083.1tn     +++|
01218  M00S01084.1tn     +++| MGR7     TTADD  VDPT,AOD,TN  CHECK ROUTINE ADDRESS
01219  M00S01085.1tn     +++|          CRD    DP
01220  M00S01086.1tn     +++|          ADN    VCHT-VDPT
01221  M00S01087.1tn     +++|          CRD    CH
01222  M00S01088.1tn     +++|          LDD    DP+4
01223  M00S01089.1tn     +++|          ADC    -WTM
01224  M00S01090.1tn     +++|          MJN    MGR5        IF NOT WRITE MODE
01225  M00S01091.1tn     +++|          ADC    -WTME+WTM
01226  M00S01092.1tn     +++|          PJN    MGR5        IF NOT WRITE MODE
01227  M00S01093.1tn     +++|*         UJN    CIS
01228  M00S01094.1tn     +++| CIS      SPACE  4,10
01229  M00S01095.1tn     +++|**        CIS - CHECK INTERRUPT STATUS.
01230  M00S01096.1tn     +++|*
01231  M00S01097.1tn     +++|*         CIS DETERMINES THE STATUS OF A SUSPECTED INTERRUPT INPUT
01232  M00S01098.1tn     +++|*         CHARACTER.  THE CHARACTER *S* IS A LEVEL 0 INTERRUPT TO
01233  M00S01099.1tn     +++|*         *TELEX* AND AN *INTERRUPT* AND THE CHARACTER *I* ARE LEVEL 1
01234  M00S01100.1tn     +++|*         INTERRUPTS TO *TELEX*.
01235  M00S01101.1tn     +++|
01236  M00S01102.1tn     +++|
01237  M00S01103.1tn     +++| CIS      LDD    DP+1        CHECK FOR TERMINAL MESSAGE
01238  M00S01104.1tn     +++|          SHN    -6
01239  M00S01105.1tn     +++|          STI    DO          CLEAR OUTPUT
01240  M00S01106.1tn     +++|          LMN    77
01241  M00S01107.1tn     +++|          NJN    CIS1        IF NOT ISSUING MESSAGE
01242  M00S01108.1tn     +++|          LJM    /WTM/WTM5   CONTINUE TERMINAL OUTPUT
01243  M00S01109.1tn     +++|
01244  M00S01110.1tn     +++| CIS1     TTADD  VUIT
01245  M00S01111.1tn     +++|          CRD    CM
01246  M00S01112.1tn     +++|          LDD    CM+4
01247  M00S01113.1tn     +++|          ZJN    CIS5        IF NO *EJTO* ASSIGNED, IGNORE CHARACTER
01248  M00S01114.1tn     +++|          LDI    DI          CHECK INPUT CHARACTER
01249  M00S01115.1tn     +++|          LPC    377
01250  M00S01116.1tn     +++|          NJN    CIS4        IF NOT START OF BREAK
01251  M00S01117.1tn     +++| CIS2     LDN    100D/MNCT+1 START TIMER FOR BREAK
01252  M00S01118.1tn     +++|          STD    CH
01253  M00S01119.1tn     +++| CIS3     RETURN EXI3
01254  M00S01120.1tn     +++|          MJN    CIS2        IF BREAK STILL IN PROGRESS
01255  M00S01121.1tn     +++|          SOD    CH          DECREMENT TIMER
01256  M00S01122.1tn     +++|          NJN    CIS3        IF NOT TIMED OUT
01257  M00S01123.1tn     +++|          UJN    INT         PROCESS AS INTERRUPT
01258  M00S01124.1tn     +++|
01259  M00S01125.1tn     +++|*         CHECK CHARACTER STATUS.
01260  M00S01126.1tn     +++|
01261  M00S01127.1tn     +++| CIS4     SHN    -1          SET ASCCI CHARACTER
01262  M00S01128.1tn     +++|          STD    T7
01263  M00S01129.1tn     +++|          RJM    /RDM/TIC    TRANSLATE CHARACTER
01264  M00S01130.1tn     +++|          LPN    77
01265  M00S01131.1tn     +++|          LMN    1RS
01266  M00S01132.1tn     +++|          ZJN    INT1        IF *S* KEY
01267  M00S01133.1tn     +++|          LMN    1RI&1RS
01268  M00S01134.1tn     +++|          ZJN    INT         IF *I* KEY
01269  M00S01135.1tn     +++| CIS5     LJM    MGR         IGNORE INVALID CHARACTER
01270  M00S01136.1tn     +++| INT      SPACE  4,10
01271  M00S01137.1tn     +++|**        INT - PROCESS INTERRUPT.
01272  M00S01138.1tn     +++|*
01273  M00S01139.1tn     +++|*         *INT* REQUESTS *TELEX* TO TERMINATE OUTPUT AND THE USER
01274  M00S01140.1tn     +++|*         PROGRAM IN RESPONSE TO AN INTERRUPT FROM THE TERMINAL.
01275  M00S01141.1tn     +++|
01276  M00S01142.1tn     +++|
01277  M00S01143.1tn     +++| INT      LDN    TIET+TAET
01278  M00S01144.1tn     +++| INT1     LMN    TAET
01279  M00S01145.1tn     +++|          STD    RQ+2
01280  M00S01146.1tn     +++|          TTADD  VSTT        CHECK LOGOUT AND ABORT STATUS
01281  M00S01147.1tn     +++|          CRD    CM
01282  M00S01148.1tn     +++|          LDD    CM
01283  M00S01149.1tn     +++|          LPC    0401
01284  M00S01150.1tn     +++|          NJN    INT2        IF LOGOUT OR DETACH IN PROGRESS
01285  M00S01151.1tn     +++|          RJM    RDC         READ VDCT TO CHECK FOR DRIVER REQUEST
01286  M00S01152.1tn     +++|          SHN    21-13
01287  M00S01153.1tn     +++|          PJN    INT3        IF NO REQUEST
01288  M00S01154.1tn     +++|          LDD    DC+4        CHECK REQUEST
01289  M00S01155.1tn     +++|          LMN    /1TD/HUP
01290  M00S01156.1tn     +++|          NJN    INT3        IF NOT HANG UP PHONE
01291  M00S01157.1tn     +++| INT2    LDN    0           CLEAR REQUEST CELL
01292  M00S01158.1tn     +++|          STD    RQ+2
01293  M00S01159.1tn     +++|          UJN    X1RWC       ENTER READ/WRITE CONTROL
01294  M00S01160.1tn     +++|
01295  M00S01161.1tn     +++| INT3     LDD    DP          DROP POTS
01296  M00S01162.1tn     +++|          STD    RQ+3
01297  M00S01163.1tn     +++|          LDN    /TLX/PUB    PROCESS USER BREAK
01298  M00S01164.1tn     +++|          RJM    ERQ
01299  M00S01165.1tn     +++|          STD    DP          CLEAR POT POINTERS
01300  M00S01166.1tn     +++|          STD    DP+1
01301  M00S01167.1tn     +++| INT3.1   RETURN EXI6
01302  M00S01168.1tn     +++|          RJM    RDC         READ VDCT
01303  M00S01169.1tn     +++|          SHN    21-12
01304  M00S01170.1tn     +++|          MJN    INT4        IF *INTERRUPT* ACKNOWLEDGE SET
01305  M00S01171.1tn     +++|          LJM    MGR         RETURN
01306  M00S01172.1tn     +++|
01307  M00S01173.1tn     +++| INT4     SHN    1           CLEAR *INTERRUPT COMPLETE*
01308  M00S01174.1tn     +++|          SCN    1
01309  M00S01175.1tn     +++|          SHN    12
01310  M00S01176.1tn     +++|          STD    DC
01311  M00S01177.1tn     +++|          TTADD  VDCT        REWRITE VDCT
01312  M00S01178.1tn     +++|          CWD    DC
01313  M00S01179.1tn     +++|          LDD    DC+4        CHECK DRIVER ASSIGNMENT
01314  M00S01180.1tn     +++|          NJN    X1RWC       IF PRESENT
01315  M00S01181.1tn     +++|          LDN    /TLX/RES    REQUEST NEW ASSIGNMENT
01316  M00S01182.1tn     +++|          RJM    ERQ
01317  M00S01183.1tn     +++|
01318  M00S01184.1tn     +++| X1RWC    RETURN EXI1,RWC    ENTER READ/WRITE CONTROL
01319  M00S01185.1tn     +++|
01320  M00S01186.1tn     +++| CTO      SPACE  4,10
01321  M00S01187.1tn     +++|**        CTO - CHECK TIME OUT.
01322  M00S01188.1tn     +++|*
01323  M00S01189.1tn     +++|*         *CTO* IS ENTERED WHEN AN INPUT CHARACTER HAS NOT BEEN
01324  M00S01190.1tn     +++|*         RECEIVED FROM A TERMINAL.  THE ELAPSED TIME IS CHECKED, AND
01325  M00S01191.1tn     +++|*         IF EXCEEDED, THE USER IS LOGGED OFF.
01326  M00S01192.1tn     +++|
01327  M00S01193.1tn     +++|
01328  M00S01194.1tn     +++| CTO      LDI    DO          CHECK OUTPUT CHARACTER
01329  M00S01195.1tn     +++|          SHN    6
01330  M00S01196.1tn     +++|          PJN    CTO1        IF NO DATA
01331  M00S01197.1tn     +++|          LDN    0           CLEAR OUTPUT DATA
01332  M00S01198.1tn     +++|          STI    DO
01333  M00S01199.1tn     +++|          UJN    CTO2
01334  M00S01200.1tn     +++|
01335  M00S01201.1tn     +++| CTO1     LDD    IT          CHECK INTERVAL TIMER
01336  M00S01202.1tn     +++|          ZJN    CTO2        IF INTERVAL NOT ELAPSED
01337  M00S01203.1tn     +++|          RAI    DO          ADVANCE TIMER
01338  M00S01204.1tn     +++|          LMC    NTIO
01339  M00S01205.1tn     +++|          ZJN    CTO3        IF NORMAL TIME OUT ELAPSED
01340  M00S01206.1tn     +++|          TTADD  VDCT        READ JOB STATUS WORDS
01341  M00S01207.1tn     +++|          CRD    DC
01342  M00S01208.1tn     +++|          SBN    -VROT+VDCT
01343  M00S01209.1tn     +++|          CRD    CM
01344  M00S01210.1tn     +++|          LDD    CM+4        CHECK JOB STATUS
01345  M00S01211.1tn     +++|          LPN    1
01346  M00S01212.1tn     +++|          NJN    CTO4        IF JOB NOT ACTIVE
01347  M00S01213.1tn     +++|          STI    DO          CLEAR TIMER
01348  M00S01214.1tn     +++| CTO2     LJM    MGR         RETURN
01349  M00S01215.1tn     +++|
01350  M00S01216.1tn     +++|*         CHECK FOR NO TIME OUT.
01351  M00S01217.1tn     +++|
01352  M00S01218.1tn     +++| CTO3     RJM    RDC         READ VDCT
01353  M00S01219.1tn     +++|          LDD    DC+3        CHECK ACCESS
01354  M00S01220.1tn     +++|          SHN    21-12       CHECK LOG-OUT BIT
01355  M00S01221.1tn     +++|          PJN    CTO5        IF NOT SET
01356  M00S01222.1tn     +++|          LDN    0
01357  M00S01223.1tn     +++|          STI    DO          CLEAR TIMER
01358  M00S01224.1tn     +++|          LJM    MGR         RETURN
01359  M00S01225.1tn     +++|
01360  M00S01226.1tn     +++| CTO4     LDD    DC+4        CHECK MESSAGE ASSIGNMENT
01361  M00S01227.1tn     +++|          NJN    CTO7        IF MESSAGE ASSIGNED
01362  M00S01228.1tn     +++|          LDD    DC          CHECK *LOGGED IN*
01363  M00S01229.1tn     +++|          SHN    21-11
01364  M00S01230.1tn     +++|          MJN    CTO2        IF SET
01365  M00S01231.1tn     +++|          LDI    DO          CHECK TIMER
01366  M00S01232.1tn     +++|          LMC    UTIO
01367  M00S01233.1tn     +++|          NJN    CTO2        IF LOGIN TIME OUT NOT ELAPSED
01368  M00S01234.1tn     +++|
01369  M00S01235.1tn     +++|*         LOG OFF USER.
01370  M00S01236.1tn     +++|
01371  M00S01237.1tn     +++| CTO5     LDC    CTO6        SET REENTRY ADDRESS
01372  M00S01238.1tn     +++|          UJN    CTO9        CHECK IF SOURCE INPUT ACTIVE
01373  M00S01239.1tn     +++|
01374  M00S01240.1tn     +++| CTO6     LDN    /TLX/TOT    REQUEST TIMEOUT LOGOUT
01375  M00S01241.1tn     +++|          RJM    ERQ
01376  M00S01242.1tn     +++|          STD    DP+2        CLEAR READ STATUS
01377  M00S01243.1tn     +++|          LJM    X1RWC       ENTER READ/WRITE CONTROL
01378  M00S01244.1tn     +++|
01379  M00S01245.1tn     +++|*         CHECK FOR FUNCTION REQUEST.
01380  M00S01246.1tn     +++|
01381  M00S01247.1tn     +++| CTO7     LDD    DC          CHECK MESSAGE TYPE
01382  M00S01248.1tn     +++|          SHN    21-13
01383  M00S01249.1tn     +++|          PJN    CTO8        IF NOT FUNCTION REQUEST
01384  M00S01250.1tn     +++|          LJM    TFR         PROCESS *TELEX* FUNCTION REQUEST
01385  M00S01251.1tn     +++|
01386  M00S01252.1tn     +++| CTO8     LDC    RWC         SET REENTRY ADDRESS
01387  M00S01253.1tn     +++|
01388  M00S01254.1tn     +++|*         ENTRY TO FORCE SOURCE DUMP IF READ ACTIVE.
01389  M00S01255.1tn     +++|*         (A) = REENTRY ADDRESS.
01390  M00S01256.1tn     +++|
01391  M00S01257.1tn     +++| CTO9     STD    DP+4        SET REENTRY ADDRESS
01392  M00S01258.1tn     +++|          LDD    DP+2        CHECK IF SOURCE INPUT ACTIVE
01393  M00S01259.1tn     +++|          SHN    21-10
01394  M00S01260.1tn     +++|          PJN    CTO10       IF INPUT NOT INITIATED
01395  M00S01261.1tn     +++|          LPN    7           SET POT LENGTH
01396  M00S01262.1tn     +++|          LMN    40          SET FORCED DUMP FLAG
01397  M00S01263.1tn     +++|          STD    RQ+1
01398  M00S01264.1tn     +++|          LDD    DP          SET FIRST, CURRENT POT
01399  M00S01265.1tn     +++|          STD    RQ+2
01400  M00S01266.1tn     +++|          STD    RQ+3
01401  M00S01267.1tn     +++|          LDN    /TLX/RIN    REQUEST SOURCE INPUT DUMP
01402  M00S01268.1tn     +++|          RJM    ERQ
01403  M00S01269.1tn     +++|          STD    DP          CLEAR POINTERS
01404  M00S01270.1tn     +++|          STD    DP+1
01405  M00S01271.1tn     +++|          STD    DP+2
01406  M00S01272.1tn     +++| CTO10    LJM    EXI2
01407  M00S01273.1tn     +++| DIN      SPACE  4,10
01408  M00S01274.1tn     +++|**        DIN - PROCESS USER DIALED IN.
01409  M00S01275.1tn     +++|
01410  M00S01276.1tn     +++|
01411  M00S01277.1tn     +++| DIN      LDN    0           CLEAR DATA OUTPUT
01412  M00S01278.1tn     +++|          STI    DO
01413  M00S01279.1tn     +++|          LDC    0           CHECK LOG IN COUNT
01414  M00S01280.1tn     +++| DINA     EQU    *-1
01415  M00S01281.1tn     +++|          ZJN    DIN1        IF MAXIMUM REACHED
01416  M00S01282.1tn     +++|          RJM    RDC         READ VDCT TO CHECK TERMINAL STATUS
01417  M00S01283.1tn     +++|          ZJN    DIN2        IF LAST USER OFF
01418  M00S01284.1tn     +++| DIN1     LJM    MGR
01419  M00S01285.1tn     +++|
01420  M00S01286.1tn     +++| DIN2     LDN    ZERL        INITIALIZE NEW USER
01421  M00S01287.1tn     +++|          CRD    CH
01422  M00S01288.1tn     +++|          CRD    DP
01423  M00S01289.1tn     +++|          LDN    /TLX/DIN    REQUEST DIAL IN PROCESSING
01424  M00S01290.1tn     +++|          RJM    ERQ
01425  M00S01291.1tn     +++|          SOM    DINA        DECREMENT LOG-IN COUNT
01426  M00S01292.1tn     +++|          RETURN EXI3,LIN    PROCESS LOGIN
01427  M00S01293.1tn     +++| HUP      SPACE  4,10
01428  M00S01294.1tn     +++|**        HUP - HANG UP PHONE.
01429  M00S01295.1tn     +++|
01430  M00S01296.1tn     +++|
01431  M00S01297.1tn     +++| HUP      LDN    20          SET DELAY TO INSURE THAT 6676 HAS SENT DATA
01432  M00S01298.1tn     +++|          STD    DP+2
01433  M00S01299.1tn     +++| HUP1     RETURN EXI6
01434  M00S01300.1tn     +++|          SOD    DP+2        DECREMENT DELAY
01435  M00S01301.1tn     +++|          NJN    HUP1        IF DELAY NOT ELAPSED
01436  M00S01302.1tn     +++|          LDD    SM
01437  M00S01303.1tn     +++|          ZJN    HUP2        IF NOT STIMULATOR
01438  M00S01304.1tn     +++|          LDC    .IISE       ISSUE STIMULATOR HANG UP PHONE
01439  M00S01305.1tn     +++|          UJN    HUP3        SEND CHARACTER
01440  M00S01306.1tn     +++|
01441  M00S01307.1tn     +++| HUP2     LDC    6000        ISSUE HANG UP PHONE
01442  M00S01308.1tn     +++| HUP3     STI    DO
01443  M00S01309.1tn     +++|          RETURN EXI1
01444  M00S01310.1tn     +++|          LDN    0           CLEAR OUTPUT
01445  M00S01311.1tn     +++|          STI    DO
01446  M00S01312.1tn     +++|          LDN    5*2         SET FIVE SECOND DELAY
01447  M00S01313.1tn     +++|          STD    DP+2
01448  M00S01314.1tn     +++|          RETURN EXI1
01449  M00S01315.1tn     +++|          LDD    IT
01450  M00S01316.1tn     +++|          NJN    HUP4        IF HALF SECOND
01451  M00S01317.1tn     +++|          LJM    MGR         EXIT
01452  M00S01318.1tn     +++|
01453  M00S01319.1tn     +++| HUP4     SOD    DP+2
01454  M00S01320.1tn     +++|          ZJN    HUP5        IF TIMEOUT COMPLETE
01455  M00S01321.1tn     +++|          LJM    EXI7        EXIT
01456  M00S01322.1tn     +++|
01457  M00S01323.1tn     +++| HUP5     LDD    DP
01458  M00S01324.1tn     +++|          ZJN    HUP6        IF NO POTS TO DROP
01459  M00S01325.1tn     +++|          STD    RQ+3
01460  M00S01326.1tn     +++|          LDN    /TLX/DRT
01461  M00S01327.1tn     +++|          RJM    ERQ
01462  M00S01328.1tn     +++|          STD    DP
01463  M00S01329.1tn     +++| HUP6     STD    DP+1
01464  M00S01330.1tn     +++|          STD    DP+3
01465  M00S01331.1tn     +++|          RJM    CUT         CLEAN UP TERMINAL TABLE
01466  M00S01332.1tn     +++|          RETURN EXI1
Line S01333 Modification History
M01 (Removed by) 1tn3
Seq #  *Modification Id* Act 
----------------------------+
01467  M01S01333.1tn3    ---|          SHN    2-21
01468  M01S01334.1tn3    ---|          LMN    5
01469  M01S01335.1tn3    ---|          NJN    OFL2        IF NO CHARACTER OR OFF LINE
Line S00001 Modification History
M01 (Added by) 1tn3
Seq #  *Modification Id* Act 
----------------------------+
01470  M01S00001.1tn3    +++|          SHN    21-11-21+13
01471  M01S00002.1tn3    +++|          PJN    OFL2        IF OFF-LINE
01472  M00S01336.1tn     +++|          UJN    OFL1        ENTER DIAL IN
01473  M00S01337.1tn     +++| OFL      SPACE  4,10
01474  M00S01338.1tn     +++|**        OFL - PROCESS USER OFF LINE.
01475  M00S01339.1tn     +++|*
01476  M00S01340.1tn     +++|*         OFL WILL DROP ALL POTS ASSOCIATED WITH THE TERMINAL AND
01477  M00S01341.1tn     +++|*         NOTIFY *TELEX* TO TURN OFF THE TERMINAL.
01478  M00S01342.1tn     +++|*
01479  M00S01343.1tn     +++|*         MUST FOLLOW *DIN*.
01480  M00S01344.1tn     +++|
01481  M00S01345.1tn     +++|
01482  M00S01346.1tn     +++| OFL      BSS    0           ENTRY
01483  M00S01347.1tn     +++|          LDD    DP
01484  M00S01348.1tn     +++|          STD    RQ+3
01485  M00S01349.1tn     +++|          LDN    /TLX/HUP    REQUEST HUNG UP PHONE PROCESSING
01486  M00S01350.1tn     +++|          RJM    ERQ
01487  M00S01351.1tn     +++|          STD    DP          CLEAR POINTERS
01488  M00S01352.1tn     +++|          STD    DP+1
01489  M00S01353.1tn     +++|          STD    DP+2
01490  M00S01354.1tn     +++|          RETURN EXI1
01491  M00S01355.1tn     +++|
01492  M00S01356.1tn     +++| ITSA     BSS    0           INITIAL TERMINAL START ADDRESS
01493  M00S01357.1tn     +++|
01494  M00S01358.1tn     +++|          SHN    13-11       CHECK INPUT STATUS
01495  M00S01359.1tn     +++|          PJN    OFL3        IF NOT ON LINE
01496  M00S01360.1tn     +++|
01497  M00S01361.1tn     +++|*         ENTRY FROM HUP.
01498  M00S01362.1tn     +++|
01499  M00S01363.1tn     +++| OFL1     RETURN EXI6,DIN    ENTER DIAL IN
01500  M00S01364.1tn     +++|
01501  M00S01365.1tn     +++| OFL2     LJM    MGR
01502  M00S01366.1tn     +++|
01503  M00S01367.1tn     +++|*         RESYNC 6671 AND ENABLE PHONE ANSWERING.
01504  M00S01368.1tn     +++|
01505  M00S01369.1tn     +++| OFL3     LDN    24          INSURE 6676 OUTPUT REGISTERS CLEAR
01506  M00S01370.1tn     +++|          STD    DP+2
01507  M00S01371.1tn     +++| OFL4     RETURN EXI6
01508  M00S01372.1tn     +++|          SOD    DP+2
01509  M00S01373.1tn     +++|          NJN    OFL4        IF DELAY NOT ELAPSED
01510  M00S01374.1tn     +++|          LDC    7000        REENABLE PHONE ANSWERING (6671)
01511  M00S01375.1tn     +++|          STI    DO
01512  M00S01376.1tn     +++|          RETURN EXI1,OFL1   ENTER DIAL IN
01513  M00S01377.1tn     +++|          SPACE  4,10
01514  M00S01378.1tn     +++| OFLE     BSS    0           END OF LINE PROCESSING
01515  M00S01379.1tn     +++| RWC      SPACE  4,10,10
01516  M00S01380.1tn     +++|**        RWC - READ/WRITE CONTROL.
01517  M00S01381.1tn     +++|*
01518  M00S01382.1tn     +++|*         ENTRY  COMPLETION OF READ OR WRITE OPERATION.
01519  M00S01383.1tn     +++|*
01520  M00S01384.1tn     +++|*         EXIT   TO *RDM* IF INPUT RECEIVED FROM TERMINAL.
01521  M00S01385.1tn     +++|*                TO *WTM* IF MESSAGE ASSIGNMENT RECEIVED FROM *TELEX*.
01522  M00S01386.1tn     +++|*                TO *TFR* IF FUNCTION REQUEST RECEIVED FROM *TELEX*.
01523  M00S01387.1tn     +++|*                TO *CTO* IF TERMINAL IDLE.
01524  M00S01388.1tn     +++|
01525  M00S01389.1tn     +++|
01526  M00S01390.1tn     +++| RWC      RJM    CEM         CLEAR EXTENDED MODE
01527  M00S01391.1tn     +++|
01528  M00S01392.1tn     +++|*         ENTER HERE TO PREVENT TRANSMISSION MODE CHANGE.
01529  M00S01393.1tn     +++|*         CHECK FOR INPUT FROM TERMINAL.
01530  M00S01394.1tn     +++|
01531  M00S01395.1tn     +++| RWC1     LDI    DI          CHECK VALID CHARACTER FLAG
01532  M00S01396.1tn     +++|          SHN    21-13
01533  M00S01397.1tn     +++|          PJN    RWC2        IF NO INPUT FROM TERMINAL
01534  M00S01398.1tn     +++|          LJM    RDM         ENTER READ MODE
01535  M00S01399.1tn     +++|
01536  M00S01400.1tn     +++|*         CHECK FOR MESSAGE ASSIGNMENT OR FUNCTION REQUEST.
01537  M00S01401.1tn     +++|
01538  M00S01402.1tn     +++| RWC2     RJM    RDC         READ *VDCT*
01539  M00S01403.1tn     +++|          LDD    DC+4        CHECK *VDCT* INTERLOCK
01540  M00S01404.1tn     +++|          NJN    RWC3        IF MESSAGE ASSIGNED
01541  M00S01405.1tn     +++|          LJM    CTO         CHECK TIME OUT
01542  M00S01406.1tn     +++|
01543  M00S01407.1tn     +++| RWC3     LDD    DC          CHECK MESSAGE TYPE
01544  M00S01408.1tn     +++|          SHN    21-13
01545  M00S01409.1tn     +++|          PJN    RWC4        IF NOT FUNCTION REQUEST
01546  M00S01410.1tn     +++|          LJM    TFR         PROCESS *TELEX* FUNCTION REQUEST
01547  M00S01411.1tn     +++|
01548  M00S01412.1tn     +++|*         PREPARE NEW OUTPUT.
01549  M00S01413.1tn     +++|
01550  M00S01414.1tn     +++| RWC4     LDD    DP          CHECK FIRST POT
01551  M00S01415.1tn     +++|          ZJN    RWC5        IF NOT ASSIGNED
01552  M00S01416.1tn     +++|          STD    RQ+3        SET POT
01553  M00S01417.1tn     +++|          LDN    /TLX/DRT    REQUEST DROP POT CHAIN
01554  M00S01418.1tn     +++|          RJM    ERQ
01555  M00S01419.1tn     +++| RWC5     LDD    DC+4        CURRENT POT = ASSIGNMENT
01556  M00S01420.1tn     +++|          STD    DP
01557  M00S01421.1tn     +++|          STD    DP+1
01558  M00S01422.1tn     +++|          LDD    DC+1        CURRENT WORD = FIRST WORD OF ASSIGNMENT
01559  M00S01423.1tn     +++|          LPN    7
01560  M00S01424.1tn     +++|          SHN    4
01561  M00S01425.1tn     +++|          STD    DP+2
01562  M00S01426.1tn     +++|          LDD    DC+1        CLEAR STARTING WORD
01563  M00S01427.1tn     +++|          SCN    7
01564  M00S01428.1tn     +++|          STD    DC+1
01565  M00S01429.1tn     +++|          LDN    0           CLEAR ASSIGNMENT
01566  M00S01430.1tn     +++|          STD    DC+4
01567  M00S01431.1tn     +++|          RETURN EXI5,WTM    ENTER WRITE MODE
01568  M00S01432.1tn     +++|          TITLE  LOGIN PROCESSING.
01569  M00S01433.1tn     +++| DTT      SPACE  4,10
01570  M00S01434.1tn     +++|**        DTT - DETERMINE TERMINAL TYPE.
01571  M00S01435.1tn     +++|*
01572  M00S01436.1tn     +++|*         THE FIRST CHARACTER TYPED IS EXAMINED TO DETERMINE TERMINAL
01573  M00S01437.1tn     +++|*         TYPE AND PARITY.
01574  M00S01438.1tn     +++|
01575  M00S01439.1tn     +++|
01576  M00S01440.1tn     +++| DTT      MJN    DTT4        IF INPUT CHARACTER RECEIVED
01577  M00S01441.1tn     +++|          LDD    SM          CHECK STIMULATOR STATUS
01578  M00S01442.1tn     +++|          ZJN    DTT1        IF NOT STIMULATOR
01579  M00S01443.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
01580  M00S01444.1tn     +++|          STI    DO
01581  M00S01445.1tn     +++|          RETURN EXI1
01582  M00S01446.1tn     +++|
01583  M00S01447.1tn     +++| DTT1     LDN    /CTL/RDP    CHECK TERMINAL TYPE
01584  M00S01448.1tn     +++|          RJM    SCA
01585  M00S01449.1tn     +++|          LMC    /RDM/CRD
01586  M00S01450.1tn     +++|          NJN    DTT2        IF NOT CORRESPONDENCE
01587  M00S01451.1tn     +++|          LDC    .CEOT       UNLOCK KEYBOARD
01588  M00S01452.1tn     +++|          STI    DO
01589  M00S01453.1tn     +++|          RETURN EXI1
01590  M00S01454.1tn     +++|
01591  M00S01455.1tn     +++| DTT2     RETURN EXI6
01592  M00S01456.1tn     +++|          MJN    DTT4        IF INPUT CHARACTER RECEIVED
01593  M00S01457.1tn     +++| DTT3     LJM    CTO         CHECK TIME OUT
01594  M00S01458.1tn     +++|
01595  M00S01459.1tn     +++| DTT4     SHN    13-21       EXTRACT CHARACTER
01596  M00S01460.1tn     +++|          LPC    377
01597  M00S01461.1tn     +++|          STD    CH
01598  M00S01462.1tn     +++|          LMC    .CEOA
01599  M00S01463.1tn     +++|          LPC    376
01600  M00S01464.1tn     +++|          NJN    DTT6        IF NOT *EOA*
01601  M00S01465.1tn     +++|
01602  M00S01466.1tn     +++|*         PROCESS CORRESPONDENCE CODE TERMINAL.
01603  M00S01467.1tn     +++|
01604  M00S01468.1tn     +++|          LDC    400
01605  M00S01469.1tn     +++|          STD    CH
01606  M00S01470.1tn     +++|          RETURN EXI3
01607  M00S01471.1tn     +++|          PJN    DTT3        IF NO INPUT CHARACTER RECEIVED
01608  M00S01472.1tn     +++|          SHN    13-21
01609  M00S01473.1tn     +++|          LMC    .CEOT
01610  M00S01474.1tn     +++|          LPC    376
01611  M00S01475.1tn     +++|          ZJN    DTT8        IF *EOT*
01612  M00S01476.1tn     +++|          LDD    CH
01613  M00S01477.1tn     +++|          LPC    377
01614  M00S01478.1tn     +++|          NJN    DTT5        IF CHARACTER ENTERED
01615  M00S01479.1tn     +++|          LDI    DI          EXTRACT DATA CHARACTER
01616  M00S01480.1tn     +++|          LPC    376
01617  M00S01481.1tn     +++|          RAD    CH
01618  M00S01482.1tn     +++| DTT5     LJM    EXI4
01619  M00S01483.1tn     +++|
01620  M00S01484.1tn     +++|*         CHECK FOR ADDITIONAL INPUT.
01621  M00S01485.1tn     +++|
01622  M00S01486.1tn     +++| DTT6     LDD    IT          SET HALF/SECOND TIMER
01623  M00S01487.1tn     +++|          STI    DO
01624  M00S01488.1tn     +++|          RETURN EXI3
01625  M00S01489.1tn     +++|          PJN    DTT7        IF NO ADDITIONAL INPUT
01626  M00S01490.1tn     +++|          LJM    DTT4
01627  M00S01491.1tn     +++|
01628  M00S01492.1tn     +++| DTT7     LDI    DO          CHECK TIMER
01629  M00S01493.1tn     +++|          LMD    IT
01630  M00S01494.1tn     +++|          NJN    DTT5        IF NOT TIMED OUT
01631  M00S01495.1tn     +++|
01632  M00S01496.1tn     +++|*         LOOK UP CHARACTER.
01633  M00S01497.1tn     +++|
01634  M00S01498.1tn     +++| DTT8     LDN    0           CLEAR INDEX
01635  M00S01499.1tn     +++|          STD    T1
01636  M00S01500.1tn     +++| DTT9     LDM    TTTC,T1     CHECK TABLE ENTRY
01637  M00S01501.1tn     +++|          LMD    CH
01638  M00S01502.1tn     +++|          SHN    -1
01639  M00S01503.1tn     +++|          ZJN    DTT10       IF MATCH FOUND
01640  M00S01504.1tn     +++|          AOD    T1
01641  M00S01505.1tn     +++|          LMN    TNTT
01642  M00S01506.1tn     +++|          NJN    DTT9        LOOP TO END OF TABLE
01643  M00S01507.1tn     +++|          STD    T1          CLEAR INDEX
01644  M00S01508.1tn     +++|          LDD    CH          CLEAR CHARACTER
01645  M00S01509.1tn     +++|          LPC    400
01646  M00S01510.1tn     +++|          STD    CH
01647  M00S01511.1tn     +++| DTT10    LDD    T1          SET TRANSLATION TABLE INDEX
01648  M00S01512.1tn     +++|          SHN    7
01649  M00S01513.1tn     +++|          STD    DP+3
01650  M00S01514.1tn     +++|          LDD    CH          SET PARITY
01651  M00S01515.1tn     +++|          LMM    TTTC,T1
01652  M00S01516.1tn     +++|          LPN    1
01653  M00S01517.1tn     +++|          RAD    DP+3
01654  M00S01518.1tn     +++|          UJN    LINX        COMPLETE LOGIN
01655  M00S01519.1tn     +++| LIN      SPACE  4,10
01656  M00S01520.1tn     +++|**        LIN - PROCESS LOGIN.
01657  M00S01521.1tn     +++|
01658  M00S01522.1tn     +++|
01659  M00S01523.1tn     +++| LIN      RJM    RDC         READ VDCT TO CHECK TERMINAL STATUS
01660  M00S01524.1tn     +++|          LMD    HN
01661  M00S01525.1tn     +++|          ZJN    LIN1        IF *TELEX* READY
01662  M00S01526.1tn     +++|          LJM    MGR
01663  M00S01527.1tn     +++|
01664  M00S01528.1tn     +++| LIN1     LDD    DC+4        SET POT ASSIGNMENT
01665  M00S01529.1tn     +++|          STD    DP
01666  M00S01530.1tn     +++|          STD    DP+1
01667  M00S01531.1tn     +++|          LDN    0           CLEAR POT ASSIGNMENT
01668  M00S01532.1tn     +++|          STD    DC+4
01669  M00S01533.1tn     +++|          LDD    DC+1        SET PORT TYPE INDEX
01670  M00S01534.1tn     +++|          SHN    -10
01671  M00S01535.1tn     +++|          LPN    3
01672  M00S01536.1tn     +++|          STD    T1
01673  M00S01537.1tn     +++|          LDM    LINA,T1     SET ENTRY ADDRESS
01674  M00S01538.1tn     +++|          LJM    EXI5
01675  M00S01539.1tn     +++|
01676  M00S01540.1tn     +++|*         COMPLETE LOGIN.
01677  M00S01541.1tn     +++|
01678  M00S01542.1tn     +++| LINX     LDN    40          SET LINE FEED FLAG FOR ASCII TERMINALS
01679  M00S01543.1tn     +++|          RAD    DP+3
01680  M00S01544.1tn     +++|          LJM    /RDM/CLI    PROCESS COMMAND LINE INPUT
01681  M00S01545.1tn     +++|
01682  M00S01546.1tn     +++| LINA     BSS    0
01683  M00S01547.1tn     +++|
01684  M00S01548.1tn     +++|          CON    RAB         READ ANSWERBACK
01685  M00S01549.1tn     +++|          CON    DTT         DETERMINE TERMINAL TYPE
01686  M00S01550.1tn     +++|          CON    DTT         DETERMINE TERMINAL TYPE
01687  M00S01551.1tn     +++|          CON    RAB         READ ANSWERBACK
01688  M00S01552.1tn     +++| RAB      SPACE  4,10
01689  M00S01553.1tn     +++|**        RAB - REQUEST ANSWERBACK.
01690  M00S01554.1tn     +++|*
01691  M00S01555.1tn     +++|*
01692  M00S01556.1tn     +++|*         RAB IS CALLED WHENEVER *TELEX* DESIRES TO READ
01693  M00S01557.1tn     +++|*         THE ANSWER BACK DRUM ON THE TERMINAL. RAB WILL INSURE ENOUGH
01694  M00S01558.1tn     +++|*         TIME FOR THE TERMINAL TO COME FULLY ON LINE AND THEN ISSUE
01695  M00S01559.1tn     +++|*         THE ANSWER BACK COMMAND.
01696  M00S01560.1tn     +++|
01697  M00S01561.1tn     +++|
01698  M00S01562.1tn     +++| RAB      LDN    7           WAIT FOR LINE TO SETTLE OUT
01699  M00S01563.1tn     +++|          RJM    WTO
01700  M00S01564.1tn     +++|          LDC    .AENQ       ISSUE *ENQ*
01701  M00S01565.1tn     +++|          STI    DO
01702  M00S01566.1tn     +++|          LDN    0
01703  M00S01567.1tn     +++|          STD    DP+2
01704  M00S01568.1tn     +++|          STD    CH+2
01705  M00S01569.1tn     +++|          RETURN EXI3
01706  M00S01570.1tn     +++|          LDD    SM          CHECK STIMULATOR STATUS
01707  M00S01571.1tn     +++|          ZJN    RAB1        IF NOT STIMULATOR
01708  M00S01572.1tn     +++|          SHN    21-13
01709  M00S01573.1tn     +++|          MJN    RAB1        IF *ASTIM* MUX
01710  M00S01574.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
01711  M00S01575.1tn     +++|          STI    DO
01712  M00S01576.1tn     +++|          RETURN EXI1
01713  M00S01577.1tn     +++| RAB1     RETURN EXI6
01714  M00S01578.1tn     +++|          PJN    RAB3        IF NO INPUT CHARACTER
01715  M00S01579.1tn     +++|          SHN    -7          EXTRACT CHARACTER
01716  M00S01580.1tn     +++|          LPC    177
01717  M00S01581.1tn     +++|          STD    T7
01718  M00S01582.1tn     +++|          LDD    CH+1        CHECK CHARACTER COUNT
01719  M00S01583.1tn     +++|          SBN    10D
01720  M00S01584.1tn     +++|          PJN    RAB2        IF MORE THAN 10 CHARACTERS
01721  M00S01585.1tn     +++|          RJM    /RDM/TIC    TRANSLATE CHARACTER
01722  M00S01586.1tn     +++|          SHN    -6
01723  M00S01587.1tn     +++|          NJN    RAB2        IF SPECIAL CHARACTER
01724  M00S01588.1tn     +++|          RJM    /RDM/WIC    WRITE INPUT CHARACTER
01725  M00S01589.1tn     +++|          AOD    CH+1        COUNT CHARACTER
01726  M00S01590.1tn     +++| RAB2     LJM    EXI4        RETURN
01727  M00S01591.1tn     +++|
01728  M00S01592.1tn     +++| RAB3     LDD    IT          ADVANCE TIMER
01729  M00S01593.1tn     +++|          RAD    CH+2
01730  M00S01594.1tn     +++|          LMN    ATIO
01731  M00S01595.1tn     +++|          NJN    RAB2        IF TIME OUT NOT ELAPSED
01732  M00S01596.1tn     +++|          STD    CH+2
01733  M00S01597.1tn     +++|          STD    T7
01734  M00S01598.1tn     +++|          RJM    /RDM/WIC    FORCE UPPER CHARACTER
01735  M00S01599.1tn     +++|          LJM    LINX        COMPLETE LOGIN
01736  M00S01600.1tn     +++|          TITLE  *TELEX* FUNCTION REQUEST PROCESSING.
01737  M00S01601.1tn     +++| TFR      SPACE  4,10
01738  M00S01602.1tn     +++|**        TFR - PROCESS *TELEX* FUNCTION REQUEST.
01739  M00S01603.1tn     +++|*
01740  M00S01604.1tn     +++|*         ENTRY  (DC - DC+4) = *VDCT* WORD.
01741  M00S01605.1tn     +++|
01742  M00S01606.1tn     +++|
01743  M00S01607.1tn     +++| TFR      LDD    DC+4        SAVE REQUEST CODE
01744  M00S01608.1tn     +++|          STD    T2
01745  M00S01609.1tn     +++|          LPN    77
01746  M00S01610.1tn     +++|          SBN    TTFRL
01747  M00S01611.1tn     +++|          MJN    TFR1        IF LEGAL FUNCTION
01748  M00S01612.1tn     +++|          LCN    TTFRL       SET ILLEGAL FUNCTION
01749  M00S01613.1tn     +++| TFR1     ADN    TTFRL
01750  M00S01614.1tn     +++|          STD    T1
01751  M00S01615.1tn     +++|          LDN    /TLX/RES    REQUEST ADDITIONAL OUTPUT
01752  M00S01616.1tn     +++|          RJM    ERQ
01753  M00S01617.1tn     +++|          STD    DC+4        CLEAR FUNCTION REQUEST
01754  M00S01618.1tn     +++|          LDD    DC          CLEAR DRIVER REQUEST BIT
01755  M00S01619.1tn     +++|          LPC    3777
01756  M00S01620.1tn     +++|          STD    DC
01757  M00S01621.1tn     +++|          TTADD  VDCT
01758  M00S01622.1tn     +++|          CWD    DC
01759  M00S01623.1tn     +++|          LDM    TTFR,T1     PROCESS FUNCTION
01760  M00S01624.1tn     +++|          STD    T1
01761  M00S01625.1tn     +++|          NJN    TFR2        IF A VALID ENTRY
01762  M00S01626.1tn     +++|          LJM    MGR         EXIT
01763  M00S01627.1tn     +++|
01764  M00S01628.1tn     +++| TFR2     LDD    DP+3
01765  M00S01629.1tn     +++|          LJM    0,T1
01766  M00S01630.1tn     +++| TTFR     SPACE  4,10
01767  M00S01631.1tn     +++|**        TTFR - TABLE OF TELEX FUNCTION REQUESTS.
01768  M00S01632.1tn     +++|
01769  M00S01633.1tn     +++|
01770  M00S01634.1tn     +++| TTFR     INDEX
01771  M00S01635.1tn     +++|
01772  M00S01636.1tn     +++|          INDEX  /1TD/BGI,BGI   BEGIN INPUT
01773  M00S01637.1tn     +++|          INDEX  /1TD/CFD,CFD   CLEAR FULL DUPLEX
01774  M00S01638.1tn     +++|          INDEX  /1TD/HUP,HUP   HANG UP THE PHONE
01775  M00S01639.1tn     +++|          INDEX  /1TD/IIP,IIP   ISSUE INPUT PROMPT
01776  M00S01640.1tn     +++|          INDEX  /1TD/LGI,LGI   PROCESS LOGIN
Line S00001 Modification History
M01 (Added by) ns2409b
Seq #  *Modification Id* Act 
----------------------------+
01777  M01S00001.ns2409b +++|          INDEX  /1TD/SCE,SCE   SET/CLEAR EXTENDED MODE
01778  M00S01641.1tn     +++|          INDEX  /1TD/SDU,INT3.1  SUSPEND DRIVER FOR USER BREAK
01779  M00S01642.1tn     +++|          INDEX  /1TD/SEP,SEP   SET EVEN PARITY
01780  M00S01643.1tn     +++|          INDEX  /1TD/SFD,SFD   SET FULL DUPLEX
01781  M00S01644.1tn     +++|          INDEX  /1TD/SNM,SNM   SET NORMAL MODES
01782  M00S01645.1tn     +++|          INDEX  /1TD/SOP,SOP   SET ODD PARITY
01783  M00S01646.1tn     +++|          INDEX  /1TD/STT,STT   SET TERMINAL TYPE
01784  M00S01647.1tn     +++|
01785  M00S01648.1tn     +++|          INDEX  /1TD/REQL
01786  M00S01649.1tn     +++| TTFRL    EQU    *-TTFR
01787  M00S01650.1tn     +++| BGI      SPACE  4,10,10
01788  M00S01651.1tn     +++|**        BGI - BEGIN INPUT.
01789  M00S01652.1tn     +++|*
01790  M00S01653.1tn     +++|*         SET INPUT ACTIVE AND START TAPE READER IF TAPE MODE IS SET.
01791  M00S01654.1tn     +++|*
01792  M00S01655.1tn     +++|*         ENTRY  (DC - DC+4) = WORD *VDCT*.
01793  M00S01656.1tn     +++|
01794  M00S01657.1tn     +++|
01795  M00S01658.1tn     +++| BGI      LDD    DC          CHECK *TAPE* MODE
01796  M00S01659.1tn     +++|          LPN    1
01797  M00S01660.1tn     +++|          ZJN    BGI1        IF NOT SET
01798  M00S01661.1tn     +++|          LDC    .ISTR       TRANSLATE *START TAPE READER*
01799  M00S01662.1tn     +++|          STD    T7
01800  M00S01663.1tn     +++|          RJM    /WTM/TOC
01801  M00S01664.1tn     +++|          SHN    6           CHECK TRANSLATED CHARACTER
01802  M00S01665.1tn     +++|          PJN    BGI1        IF NOT DEFINED
01803  M00S01666.1tn     +++|          LDD    DP+3        TOGGLE ON ODD PARITY
01804  M00S01667.1tn     +++|          LPN    1
01805  M00S01668.1tn     +++|          LMD    T7          ISSUE *START TAPE READER*
01806  M00S01669.1tn     +++|          STI    DO
01807  M00S01670.1tn     +++|          RETURN EXI1
01808  M00S01671.1tn     +++| BGI1     LDD    SM          CHECK STIMULATOR STATUS
01809  M00S01672.1tn     +++|          ZJN    BGI2        IF NOT STIMULATOR
01810  M00S01673.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
01811  M00S01674.1tn     +++|          STI    DO
01812  M00S01675.1tn     +++|          RETURN EXI1
01813  M00S01676.1tn     +++| BGI2     RETURN EXI6,RDM
01814  M00S01677.1tn     +++| CFD      SPACE  4,10
01815  M00S01678.1tn     +++|**        CFD - CLEAR *FULL DUPLEX* FLAG.
01816  M00S01679.1tn     +++|*
01817  M00S01680.1tn     +++|*         ENTRY  (A) = DP+3.
01818  M00S01681.1tn     +++|
01819  M00S01682.1tn     +++|
01820  M00S01683.1tn     +++| CFD      LPC    7677        CLEAR FULL DUPLEX
01821  M00S01684.1tn     +++|          LJM    SEP1
01822  M00S01685.1tn     +++| IIP      SPACE  4,10
01823  M00S01686.1tn     +++|**        IIP - ISSUE INPUT PROMPT.
01824  M00S01687.1tn     +++|*
01825  M00S01688.1tn     +++|*         ISSUE INPUT PROMPT CHARACTER IF TRANSPARENT, BINARY,
01826  M00S01689.1tn     +++|*         OR AUTO MODE IS NOT SET.
01827  M00S01690.1tn     +++|*
01828  M00S01691.1tn     +++|*         ENTRY  (A) = DP+3.
01829  M00S01692.1tn     +++|*                (DC - DC+4) = VDCT.
01830  M00S01693.1tn     +++|
01831  M00S01694.1tn     +++|
01832  M00S01695.1tn     +++| IIP      SHN    21-2        CHECK MODE
01833  M00S01696.1tn     +++|          MJN    IIP1        IF *TRANSPARENT* MODE
01834  M00S01697.1tn     +++|          LPN    1
01835  M00S01698.1tn     +++|          NJN    IIP2        IF *BINARY* MODE
01836  M00S01699.1tn     +++|          LDD    DC
01837  M00S01700.1tn     +++|          LPN    2
01838  M00S01701.1tn     +++|          NJN    IIP2        IF *AUTO* MODE
01839  M00S01702.1tn     +++|          TTADD  VSTT        CHECK NO PROMPT BIT
01840  M00S01703.1tn     +++|          CRD    T0
01841  M00S01704.1tn     +++|          LDD    T0
01842  M00S01705.1tn     +++|          LPN    40
01843  M00S01706.1tn     +++|          NJN    IIP2        IF NO PROMPT MODE
01844  M00S01707.1tn     +++|          STD    CH+2        CLEAR ESCAPE CONTROL
01845  M00S01708.1tn     +++|          STD    DP+2
01846  M00S01709.1tn     +++|          LDN    /CTL/IPC    SELECT PROMPT CHARACTER
01847  M00S01710.1tn     +++|          RJM    SCA
01848  M00S01711.1tn     +++|          STD    ZR
01849  M00S01712.1tn     +++|          LDN    1RB         SET TERMINATOR
01850  M00S01713.1tn     +++|          STD    ZR+1
01851  M00S01714.1tn     +++|          RJM    SWA         SET WORD ADDRESS
01852  M00S01715.1tn     +++|          CWD    ZR          SET PROMPT IN POT
01853  M00S01716.1tn     +++|          LDN    ZERL        CLEAR ZERO LOCATION
01854  M00S01717.1tn     +++|          CRD    ZR
01855  M00S01718.1tn     +++|          RETURN EXI3,WTM    ENTER WRITE MODE
01856  M00S01719.1tn     +++|
01857  M00S01720.1tn     +++| IIP1     LDN    0           CLEAR INPUT POINTER
01858  M00S01721.1tn     +++|          STD    DP+2
01859  M00S01722.1tn     +++| IIP2     LDN    /TLX/RES    REQUEST NEXT MESSAGE
01860  M00S01723.1tn     +++|          RJM    ERQ
01861  M00S01724.1tn     +++|          LJM    X3RWC       WAIT FOR *BGI* REQUEST
01862  M00S01725.1tn     +++| LGI      SPACE  4,10
01863  M00S01726.1tn     +++|**        LGI - PROCESS USER LOGIN.
01864  M00S01727.1tn     +++|*
01865  M00S01728.1tn     +++|*         ENTRY  (A) = DP+3.
01866  M00S01729.1tn     +++|
01867  M00S01730.1tn     +++|
01868  M00S01731.1tn     +++| LGI      LPC    7600        RETAIN TERMINAL TYPE FOR LOGIN
01869  M00S01732.1tn     +++|          STD    T7
01870  M00S01733.1tn     +++|          LDD    DP          CHECK POT ASSIGNMENT
01871  M00S01734.1tn     +++|          ZJN    LGI1        IF NONE
01872  M00S01735.1tn     +++|          STD    RQ+3        DROP POTS
01873  M00S01736.1tn     +++|          LDN    /TLX/DRT
01874  M00S01737.1tn     +++|          RJM    ERQ
01875  M00S01738.1tn     +++| LGI1     LDN    ZERL        CLEAR CONTROL WORDS
01876  M00S01739.1tn     +++|          CRD    DP
01877  M00S01740.1tn     +++|          CRD    CH
01878  M00S01741.1tn     +++|          LDD    T7          RESET TERMINAL TYPE
01879  M00S01742.1tn     +++|          STD    DP+3
01880  M00S01743.1tn     +++|          RETURN EXI3,LIN    ENTER LOGIN
Line S00002 Modification History
M01 (Added by) ns2409b
Seq #  *Modification Id* Act 
----------------------------+
01881  M01S00002.ns2409b +++| SCE      SPACE  4,15
01882  M01S00003.ns2409b +++|**        SCE - SET/CLEAR EXTENDED MODE.
01883  M01S00004.ns2409b +++|*
01884  M01S00005.ns2409b +++|*         SET/CLEAR EXTENDED TRANSMISSION MODE DEPENDING
01885  M01S00006.ns2409b +++|*         UPON MODE IN *VDCT*.
01886  M01S00007.ns2409b +++|*
01887  M01S00008.ns2409b +++|*         CALLS  CEM.
01888  M01S00009.ns2409b +++|
01889  M01S00010.ns2409b +++|
01890  M01S00011.ns2409b +++| SCE      BSS    0           ENTRY
01891  M01S00012.ns2409b +++|          RJM    CEM
01892  M01S00013.ns2409b +++|          LJM    EXI4        EXIT
01893  M00S01744.1tn     +++| SNM      SPACE  4,10
01894  M00S01745.1tn     +++|**        SNM - SET NORMAL MODES.
01895  M00S01746.1tn     +++|*
01896  M00S01747.1tn     +++|*         ENTRY  (A) = DP+3.
01897  M00S01748.1tn     +++|
01898  M00S01749.1tn     +++|
01899  M00S01750.1tn     +++| SNM      SCN    3           CLEAR EXTENDED MODE, ODD PARITY
01900  M00S01751.1tn     +++|*         UJN    SEP
01901  M00S01752.1tn     +++| SEP      SPACE  4,10,10
01902  M00S01753.1tn     +++|**        SEP - SET EVEN PARITY.
01903  M00S01754.1tn     +++|*
01904  M00S01755.1tn     +++|*         ENTRY  (A) = DP+3.
01905  M00S01756.1tn     +++|
01906  M00S01757.1tn     +++|
01907  M00S01758.1tn     +++| SEP      SCN    1
01908  M00S01759.1tn     +++|
01909  M00S01760.1tn     +++| SEP1     STD    DP+3
01910  M00S01761.1tn     +++|          LJM    EXI4
01911  M00S01762.1tn     +++| SOP      SPACE  4,10
01912  M00S01763.1tn     +++|**        SOP - SET *ODD PARITY* FLAG.
01913  M00S01764.1tn     +++|*
01914  M00S01765.1tn     +++|*         ENTRY  (A) = DP+3.
01915  M00S01766.1tn     +++|
01916  M00S01767.1tn     +++|
01917  M00S01768.1tn     +++| SOP      SCN    1           SET ODD PARITY
01918  M00S01769.1tn     +++|          LMN    1
01919  M00S01770.1tn     +++|          UJN    SEP1
01920  M00S01771.1tn     +++| SFD      SPACE  4,10
01921  M00S01772.1tn     +++|**        SFD - SET *FULL DUPLEX* FLAG.
01922  M00S01773.1tn     +++|*
01923  M00S01774.1tn     +++|*         ENTRY  (A) = DP+3.
01924  M00S01775.1tn     +++|
01925  M00S01776.1tn     +++|
01926  M00S01777.1tn     +++| SFD      LPC    7677        SET FULL DUPLEX
01927  M00S01778.1tn     +++|          LMD    HN
01928  M00S01779.1tn     +++|          UJN    SEP1
01929  M00S01780.1tn     +++| STT      SPACE  4,10
01930  M00S01781.1tn     +++|**        STT - SET TERMINAL TYPE.
01931  M00S01782.1tn     +++|*
01932  M00S01783.1tn     +++|*         ENTRY  (A) = DP+3.
01933  M00S01784.1tn     +++|*                (T2) = TRANSLATION TABLE INDEX.
01934  M00S01785.1tn     +++|
01935  M00S01786.1tn     +++|
01936  M00S01787.1tn     +++| STT      LPC    177         CLEAR CURRENT TRANSLATION INDEX
01937  M00S01788.1tn     +++|          STD    DP+3
01938  M00S01789.1tn     +++|          LDD    T2          SET TRANSLATION TABLE INDEX
01939  M00S01790.1tn     +++|          SCN    77
01940  M00S01791.1tn     +++|          SHN    1
01941  M00S01792.1tn     +++|          LMD    DP+3
01942  M00S01793.1tn     +++|          UJN    SEP1
01943  M00S01794.1tn     +++|          SPACE  4,10
01944  M00S01795.1tn     +++|          QUAL
01945  M00S01796.1tn     +++| CIS      EQU    /CTL/CIS
01946  M00S01797.1tn     +++| CTO      EQU    /CTL/CTO
01947  M00S01798.1tn     +++| MGR      EQU    /CTL/MGR
01948  M00S01799.1tn     +++| RWC      EQU    /CTL/RWC
01949  M00S01800.1tn     +++| CTLE     BSS    0           END OF CONTROL MODE
01950  M00S01801.1tn     +++|          TITLE  READ MODE - MAIN PROCESSING ROUTINES.
01951  M00S01802.1tn     +++|          QUAL   RDM
01952  M00S01803.1tn     +++| RDM      SPACE  4,10
01953  M00S01804.1tn     +++|**        RDM - READ MODE.
01954  M00S01805.1tn     +++|*
01955  M00S01806.1tn     +++|*         ENTRY  (DP+1) = FIRST POT FOR INPUT LINE.
01956  M00S01807.1tn     +++|*                (DP+2), FIRST WORD = FIRST WORD FOR LINE.
01957  M00S01808.1tn     +++|*                        *READ ACTIVE* STATUS.
01958  M00S01809.1tn     +++|*                        *POT REQUESTED* STATUS.
01959  M00S01810.1tn     +++|*                        CURRENT WORD = FIRST WORD FOR LINE.
01960  M00S01811.1tn     +++|*                        CURRENT CHARACTER = FIRST CHARACTER FOR LINE.
01961  M00S01812.1tn     +++|*                FOR SPECIAL INPUT PROCESSING,
01962  M00S01813.1tn     +++|*                (DP+3)  *TRANSPARENT INPUT* STATUS.
01963  M00S01814.1tn     +++|*                (DP+3)  *BINARY INPUT* STATUS.
01964  M00S01815.1tn     +++|*
01965  M00S01816.1tn     +++|*                (CH) = BINARY INPUT TERMINATION CHARACTER.
01966  M00S01817.1tn     +++|*                (CH+1) = BINARY INPUT TERMINATION COUNT.
01967  M00S01818.1tn     +++|
01968  M00S01819.1tn     +++|
01969  M00S01820.1tn     +++|*         RDM - ENTRY.
01970  M00S01821.1tn     +++|
01971  M00S01822.1tn     +++| RDM      LDD    DP
01972  M00S01823.1tn     +++|          ZJN    RDM4        IF NO INPUT POT
01973  M00S01824.1tn     +++|          LDD    DP+3        CHECK BINARY TRANSMISSION
01974  M00S01825.1tn     +++|          SHN    21-3
01975  M00S01826.1tn     +++|          PJN    RDM2        IF NOT SET
01976  M00S01827.1tn     +++|          LDD    CH+1        CHECK BINARY COUNT
01977  M00S01828.1tn     +++|          NJN    RDM1        IF SET
01978  M00S01829.1tn     +++|          LCN    10
01979  M00S01830.1tn     +++|          RAD    DP+3        CLEAR BINARY MODE
01980  M00S01831.1tn     +++|          UJN    RDM2
01981  M00S01832.1tn     +++|
01982  M00S01833.1tn     +++| RDM1     LDC    BRD         SET BINARY READ
01983  M00S01834.1tn     +++|          UJN    RDM3
01984  M00S01835.1tn     +++|
01985  M00S01836.1tn     +++| RDM2     LDN    /CTL/RDP    LOCATE READ PROCESSOR
01986  M00S01837.1tn     +++|          RJM    SCA
01987  M00S01838.1tn     +++| RDM3     STD    DP+4
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1tn.txt ยท Last modified: by 127.0.0.1