User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1tn.001

Deck 1TN Part 001

18 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00973 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
M03 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01086  M03S00973.ncc6676 ---|          STM    /CTL/MGR    RESET (MGR) INSTRUCTIONS
Line S00974 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
M03 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01087  M03S00974.ncc6676 ---|          LDC    LMCI
Line S00975 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
M03 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01088  M03S00975.ncc6676 ---|          STM    /CTL/MGR+1
Line S00976 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
M03 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01089  M03S00976.ncc6676 ---|          LJM    ITD2        SERVICE REAL MULTIPLEXERS
Line S00059 Modification History
M01 (Added by) ns22000
M02 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00059.ncc6676 ---|          LJM    ITD2        PROCESS NEXT MUX
Line S00977 Modification History
M01 (Added by) 1tn
M02 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00977.ncc6676 ---|
Line S00978 Modification History
M01 (Added by) 1tn
M02 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01092  M02S00978.ncc6676 ---| STMB     CON    0
Line S00979 Modification History
M01 (Added by) 1tn
M02 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01093  M02S00979.ncc6676 ---|
01094  M01S00050.ncc6676 +++|
01095  M01S00051.ncc6676 +++| ITDA     DATA   C*I/O INCOMPLETE.*
01096  M01S00980.1tn     +++|
Line S00981 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01097  M02S00981.ns22000 ---|**        TCHS - MULTIPLEXER CHANNEL TABLE
01098  M01S00060.ns22000 +++|**        TCHS - MUX CHANNEL TABLE.
01099  M01S00982.1tn     +++|
01100  M01S00983.1tn     +++|
01101  M01S00984.1tn     +++| TCHS     CHTB               CHANNEL TABLE
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  M01S00985.1tn     +++|          TITLE  TERMINAL MANAGER.
01109  M01S00986.1tn     +++| MGR      SPACE  4,10
01110  M01S00987.1tn     +++|**        MGR - TERMINAL MANAGER.
01111  M01S00988.1tn     +++|*
01112  M01S00989.1tn     +++|*         THE TERMINAL MANAGER PERFORMS THE STATUS CHECKS UPON THE
01113  M01S00990.1tn     +++|*         INPUT DATA FROM THE EACH PORT OF THE MULTIPLEXER.
01114  M01S00991.1tn     +++|*         IF ACTION IS REQUIRED FOR THE TERMINAL, THE TERMINAL
01115  M01S00992.1tn     +++|*         TABLE WORDS *VDPT* AND *VCHT* ARE READ AND THE INDICATED
01116  M01S00993.1tn     +++|*         RE-ENTRANT ROUTINE ENTERED.
01117  M01S00994.1tn     +++| EXI      SPACE  4,10
01118  M01S00995.1tn     +++|**        EXI - RE-ENTRANT ROUTINE RETURNS.
01119  M01S00996.1tn     +++|
01120  M01S00997.1tn     +++|
01121  M01S00998.1tn     +++|*         STORE *VDPT*.
01122  M01S00999.1tn     +++|
01123  M01S01000.1tn     +++| EXI1.    CON    0
01124  M01S01001.1tn     +++|          LDM    EXI1.       SET RE-ENTRY ADDRESS
01125  M01S01002.1tn     +++| EXI1     STD    DP+4        RESET ROUTINE POINTER
01126  M01S01003.1tn     +++| EXI2     TTADD  VDPT
01127  M01S01004.1tn     +++|          CWD    DP
01128  M01S01005.1tn     +++|          LJM    MGR
01129  M01S01006.1tn     +++|
01130  M01S01007.1tn     +++|*         STORE *VDPT* AND *VCHT*.
01131  M01S01008.1tn     +++|
01132  M01S01009.1tn     +++| EXI3.    CON    0
01133  M01S01010.1tn     +++|          LDM    EXI3.       SET RE-ENTRY ADDRESS
01134  M01S01011.1tn     +++| EXI3     STD    DP+4        RESET ROUTINE POINTER
01135  M01S01012.1tn     +++| EXI4     TTADD  VDPT        RESET VDPT AND VCHT
01136  M01S01013.1tn     +++|          CWD    DP
01137  M01S01014.1tn     +++|          ADN    VCHT-VDPT
01138  M01S01015.1tn     +++|          CWD    CH
01139  M01S01016.1tn     +++|          UJN    MGR
01140  M01S01017.1tn     +++|
01141  M01S01018.1tn     +++|*         STORE *VDPT*, *VCHT*, AND *VDCT*.
01142  M01S01019.1tn     +++|
01143  M01S01020.1tn     +++| EXI5.    CON    0
01144  M01S01021.1tn     +++|          LDM    EXI5.       SET RE-ENTRY ADDRESS
01145  M01S01022.1tn     +++| EXI5     STD    DP+4        RESET ROUTINE POINTER
01146  M01S01023.1tn     +++|          TTADD  VDPT        RESET VCPT, VCHT, AND VDCT
01147  M01S01024.1tn     +++|          CWM    DP,TR
01148  M01S01025.1tn     +++|          UJN    MGR
01149  M01S01026.1tn     +++|
01150  M01S01027.1tn     +++|*         STORE *VDPT* AND CLEAR DATA OUTPUT.
01151  M01S01028.1tn     +++|
01152  M01S01029.1tn     +++| EXI6.    CON    0
01153  M01S01030.1tn     +++|          LDM    EXI6.       SET RE-ENTRY ADDRESS
01154  M01S01031.1tn     +++| EXI6     STD    DP+4        RESET ROUTINE POINTER
01155  M01S01032.1tn     +++| EXI7     TTADD  VDPT        RESET VDPT
01156  M01S01033.1tn     +++|          CWD    DP
01157  M01S01034.1tn     +++|          LDN    0           CLEAR DATA OUT
01158  M01S01035.1tn     +++|          STI    DO
01159  M01S01036.1tn     +++| MGR      SPACE  4,10
01160  M01S01037.1tn     +++|**        MGR - TERMINAL MANAGER.
01161  M01S01038.1tn     +++|
01162  M01S01039.1tn     +++|
01163  M01S01040.1tn     +++|          QUAL   CTL
01164  M01S01041.1tn     +++|
Line S01042 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01165  M02S01042.ns22000 ---| MGR      AOD    DI          INCREMENT DATA IN BUFFER (STM)
Line S01043 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01166  M02S01043.ns22000 ---|          LMC    *
Line S01044 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01167  M02S01044.ns22000 ---| MGRA     EQU    *-1
Line S01045 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01168  M02S01045.ns22000 ---|          NJN    MGR1        IF NOT LAST TERMINAL ON THIS MUX
Line S01046 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01169  M02S01046.ns22000 ---|          LJM    *           ENTRY/EXIT
Line S01047 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01170  M02S01047.ns22000 ---| MGRX     EQU    *-1
Line S01048 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S01048.ns22000 ---|
Line S01049 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S01049.ns22000 ---| MGR1     AOD    DO          INCREMENT DATA OUT POINTER
Line S01050 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01173  M02S01050.ns22000 ---|          LDI    DI
Line S00067 Modification History
M01 (Added by) ns22000
M02 (Updated by) ncc6676
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S00067.ncc6676 ---| MGR      LJM    STM1        EXIT TO STIMULATOR MANAGER
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
01184  M01S00068.ns22000 +++|
01185  M01S01051.1tn     +++| MGR2     SHN    21-11
01186  M01S01052.1tn     +++|          MJN    MGR4        IF ON LINE
01187  M01S01053.1tn     +++|
01188  M01S01054.1tn     +++|*         CHECK STATUS OF OFF LINE TERMINAL.
01189  M01S01055.1tn     +++|
01190  M01S01056.1tn     +++|          TTADD  VDPT,AOD,TN
01191  M01S01057.1tn     +++|          CRD    DP
01192  M01S01058.1tn     +++|          LDD    DP+4        CHECK ROUTINE ADDRESS
01193  M01S01059.1tn     +++|          ADC    -DIN
01194  M01S01060.1tn     +++|          ZJN    MGR         IF WAITING FOR ON LINE
01195  M01S01061.1tn     +++|          MJN    MGR3        IF NOT LINE PROCESSING
01196  M01S01062.1tn     +++|          ADC    -OFLE+DIN
01197  M01S01063.1tn     +++|          MJN    MGR5        IF LINE PROCESSING
01198  M01S01064.1tn     +++| MGR3     LJM    OFL         SET OFF LINE
01199  M01S01065.1tn     +++|
01200  M01S01066.1tn     +++|*         PROCESS TERMINAL ON LINE.
01201  M01S01067.1tn     +++|
01202  M01S01068.1tn     +++| MGR4     SHN    33-10
01203  M01S01069.1tn     +++|          MJN    MGR6        IF CHARACTER REJECT
01204  M01S01070.1tn     +++|          TTADD  VDPT,AOD,TN
01205  M01S01071.1tn     +++|          CRD    DP
01206  M01S01072.1tn     +++|          ADN    VCHT-VDPT
01207  M01S01073.1tn     +++|          CRD    CH
01208  M01S01074.1tn     +++|
01209  M01S01075.1tn     +++| MGR5     LDI    DI
01210  M01S01076.1tn     +++|          SHN    21-13
01211  M01S01077.1tn     +++|          LJM    0,DP+4      ENTER ROUTINE
01212  M01S01078.1tn     +++|
01213  M01S01079.1tn     +++| MGR6     SHN    32-13
01214  M01S01080.1tn     +++|          MJN    MGR7        IF INPUT RECEIVED
01215  M01S01081.1tn     +++|          AOD    TN
01216  M01S01082.1tn     +++|          LJM    MGR
01217  M01S01083.1tn     +++|
01218  M01S01084.1tn     +++| MGR7     TTADD  VDPT,AOD,TN  CHECK ROUTINE ADDRESS
01219  M01S01085.1tn     +++|          CRD    DP
01220  M01S01086.1tn     +++|          ADN    VCHT-VDPT
01221  M01S01087.1tn     +++|          CRD    CH
01222  M01S01088.1tn     +++|          LDD    DP+4
01223  M01S01089.1tn     +++|          ADC    -WTM
01224  M01S01090.1tn     +++|          MJN    MGR5        IF NOT WRITE MODE
01225  M01S01091.1tn     +++|          ADC    -WTME+WTM
01226  M01S01092.1tn     +++|          PJN    MGR5        IF NOT WRITE MODE
01227  M01S01093.1tn     +++|*         UJN    CIS
01228  M01S01094.1tn     +++| CIS      SPACE  4,10
01229  M01S01095.1tn     +++|**        CIS - CHECK INTERRUPT STATUS.
01230  M01S01096.1tn     +++|*
01231  M01S01097.1tn     +++|*         CIS DETERMINES THE STATUS OF A SUSPECTED INTERRUPT INPUT
01232  M01S01098.1tn     +++|*         CHARACTER.  THE CHARACTER *S* IS A LEVEL 0 INTERRUPT TO
01233  M01S01099.1tn     +++|*         *TELEX* AND AN *INTERRUPT* AND THE CHARACTER *I* ARE LEVEL 1
01234  M01S01100.1tn     +++|*         INTERRUPTS TO *TELEX*.
01235  M01S01101.1tn     +++|
01236  M01S01102.1tn     +++|
01237  M01S01103.1tn     +++| CIS      LDD    DP+1        CHECK FOR TERMINAL MESSAGE
01238  M01S01104.1tn     +++|          SHN    -6
01239  M01S01105.1tn     +++|          STI    DO          CLEAR OUTPUT
01240  M01S01106.1tn     +++|          LMN    77
01241  M01S01107.1tn     +++|          NJN    CIS1        IF NOT ISSUING MESSAGE
01242  M01S01108.1tn     +++|          LJM    /WTM/WTM5   CONTINUE TERMINAL OUTPUT
01243  M01S01109.1tn     +++|
01244  M01S01110.1tn     +++| CIS1     TTADD  VUIT
01245  M01S01111.1tn     +++|          CRD    CM
01246  M01S01112.1tn     +++|          LDD    CM+4
01247  M01S01113.1tn     +++|          ZJN    CIS5        IF NO *EJTO* ASSIGNED, IGNORE CHARACTER
01248  M01S01114.1tn     +++|          LDI    DI          CHECK INPUT CHARACTER
01249  M01S01115.1tn     +++|          LPC    377
01250  M01S01116.1tn     +++|          NJN    CIS4        IF NOT START OF BREAK
01251  M01S01117.1tn     +++| CIS2     LDN    100D/MNCT+1 START TIMER FOR BREAK
01252  M01S01118.1tn     +++|          STD    CH
01253  M01S01119.1tn     +++| CIS3     RETURN EXI3
01254  M01S01120.1tn     +++|          MJN    CIS2        IF BREAK STILL IN PROGRESS
01255  M01S01121.1tn     +++|          SOD    CH          DECREMENT TIMER
01256  M01S01122.1tn     +++|          NJN    CIS3        IF NOT TIMED OUT
01257  M01S01123.1tn     +++|          UJN    INT         PROCESS AS INTERRUPT
01258  M01S01124.1tn     +++|
01259  M01S01125.1tn     +++|*         CHECK CHARACTER STATUS.
01260  M01S01126.1tn     +++|
01261  M01S01127.1tn     +++| CIS4     SHN    -1          SET ASCCI CHARACTER
01262  M01S01128.1tn     +++|          STD    T7
01263  M01S01129.1tn     +++|          RJM    /RDM/TIC    TRANSLATE CHARACTER
01264  M01S01130.1tn     +++|          LPN    77
01265  M01S01131.1tn     +++|          LMN    1RS
01266  M01S01132.1tn     +++|          ZJN    INT1        IF *S* KEY
01267  M01S01133.1tn     +++|          LMN    1RI&1RS
01268  M01S01134.1tn     +++|          ZJN    INT         IF *I* KEY
01269  M01S01135.1tn     +++| CIS5     LJM    MGR         IGNORE INVALID CHARACTER
01270  M01S01136.1tn     +++| INT      SPACE  4,10
01271  M01S01137.1tn     +++|**        INT - PROCESS INTERRUPT.
01272  M01S01138.1tn     +++|*
01273  M01S01139.1tn     +++|*         *INT* REQUESTS *TELEX* TO TERMINATE OUTPUT AND THE USER
01274  M01S01140.1tn     +++|*         PROGRAM IN RESPONSE TO AN INTERRUPT FROM THE TERMINAL.
01275  M01S01141.1tn     +++|
01276  M01S01142.1tn     +++|
01277  M01S01143.1tn     +++| INT      LDN    TIET+TAET
01278  M01S01144.1tn     +++| INT1     LMN    TAET
01279  M01S01145.1tn     +++|          STD    RQ+2
01280  M01S01146.1tn     +++|          TTADD  VSTT        CHECK LOGOUT AND ABORT STATUS
01281  M01S01147.1tn     +++|          CRD    CM
01282  M01S01148.1tn     +++|          LDD    CM
01283  M01S01149.1tn     +++|          LPC    0401
01284  M01S01150.1tn     +++|          NJN    INT2        IF LOGOUT OR DETACH IN PROGRESS
01285  M01S01151.1tn     +++|          RJM    RDC         READ VDCT TO CHECK FOR DRIVER REQUEST
01286  M01S01152.1tn     +++|          SHN    21-13
01287  M01S01153.1tn     +++|          PJN    INT3        IF NO REQUEST
01288  M01S01154.1tn     +++|          LDD    DC+4        CHECK REQUEST
01289  M01S01155.1tn     +++|          LMN    /1TD/HUP
01290  M01S01156.1tn     +++|          NJN    INT3        IF NOT HANG UP PHONE
01291  M01S01157.1tn     +++| INT2    LDN    0           CLEAR REQUEST CELL
01292  M01S01158.1tn     +++|          STD    RQ+2
01293  M01S01159.1tn     +++|          UJN    X1RWC       ENTER READ/WRITE CONTROL
01294  M01S01160.1tn     +++|
01295  M01S01161.1tn     +++| INT3     LDD    DP          DROP POTS
01296  M01S01162.1tn     +++|          STD    RQ+3
01297  M01S01163.1tn     +++|          LDN    /TLX/PUB    PROCESS USER BREAK
01298  M01S01164.1tn     +++|          RJM    ERQ
01299  M01S01165.1tn     +++|          STD    DP          CLEAR POT POINTERS
01300  M01S01166.1tn     +++|          STD    DP+1
01301  M01S01167.1tn     +++| INT3.1   RETURN EXI6
01302  M01S01168.1tn     +++|          RJM    RDC         READ VDCT
01303  M01S01169.1tn     +++|          SHN    21-12
01304  M01S01170.1tn     +++|          MJN    INT4        IF *INTERRUPT* ACKNOWLEDGE SET
01305  M01S01171.1tn     +++|          LJM    MGR         RETURN
01306  M01S01172.1tn     +++|
01307  M01S01173.1tn     +++| INT4     SHN    1           CLEAR *INTERRUPT COMPLETE*
01308  M01S01174.1tn     +++|          SCN    1
01309  M01S01175.1tn     +++|          SHN    12
01310  M01S01176.1tn     +++|          STD    DC
01311  M01S01177.1tn     +++|          TTADD  VDCT        REWRITE VDCT
01312  M01S01178.1tn     +++|          CWD    DC
01313  M01S01179.1tn     +++|          LDD    DC+4        CHECK DRIVER ASSIGNMENT
01314  M01S01180.1tn     +++|          NJN    X1RWC       IF PRESENT
01315  M01S01181.1tn     +++|          LDN    /TLX/RES    REQUEST NEW ASSIGNMENT
01316  M01S01182.1tn     +++|          RJM    ERQ
01317  M01S01183.1tn     +++|
01318  M01S01184.1tn     +++| X1RWC    RETURN EXI1,RWC    ENTER READ/WRITE CONTROL
01319  M01S01185.1tn     +++|
01320  M01S01186.1tn     +++| CTO      SPACE  4,10
01321  M01S01187.1tn     +++|**        CTO - CHECK TIME OUT.
01322  M01S01188.1tn     +++|*
01323  M01S01189.1tn     +++|*         *CTO* IS ENTERED WHEN AN INPUT CHARACTER HAS NOT BEEN
01324  M01S01190.1tn     +++|*         RECEIVED FROM A TERMINAL.  THE ELAPSED TIME IS CHECKED, AND
01325  M01S01191.1tn     +++|*         IF EXCEEDED, THE USER IS LOGGED OFF.
01326  M01S01192.1tn     +++|
01327  M01S01193.1tn     +++|
01328  M01S01194.1tn     +++| CTO      LDI    DO          CHECK OUTPUT CHARACTER
01329  M01S01195.1tn     +++|          SHN    6
01330  M01S01196.1tn     +++|          PJN    CTO1        IF NO DATA
01331  M01S01197.1tn     +++|          LDN    0           CLEAR OUTPUT DATA
01332  M01S01198.1tn     +++|          STI    DO
01333  M01S01199.1tn     +++|          UJN    CTO2
01334  M01S01200.1tn     +++|
01335  M01S01201.1tn     +++| CTO1     LDD    IT          CHECK INTERVAL TIMER
01336  M01S01202.1tn     +++|          ZJN    CTO2        IF INTERVAL NOT ELAPSED
01337  M01S01203.1tn     +++|          RAI    DO          ADVANCE TIMER
01338  M01S01204.1tn     +++|          LMC    NTIO
01339  M01S01205.1tn     +++|          ZJN    CTO3        IF NORMAL TIME OUT ELAPSED
01340  M01S01206.1tn     +++|          TTADD  VDCT        READ JOB STATUS WORDS
01341  M01S01207.1tn     +++|          CRD    DC
01342  M01S01208.1tn     +++|          SBN    -VROT+VDCT
01343  M01S01209.1tn     +++|          CRD    CM
01344  M01S01210.1tn     +++|          LDD    CM+4        CHECK JOB STATUS
01345  M01S01211.1tn     +++|          LPN    1
01346  M01S01212.1tn     +++|          NJN    CTO4        IF JOB NOT ACTIVE
01347  M01S01213.1tn     +++|          STI    DO          CLEAR TIMER
01348  M01S01214.1tn     +++| CTO2     LJM    MGR         RETURN
01349  M01S01215.1tn     +++|
01350  M01S01216.1tn     +++|*         CHECK FOR NO TIME OUT.
01351  M01S01217.1tn     +++|
01352  M01S01218.1tn     +++| CTO3     RJM    RDC         READ VDCT
01353  M01S01219.1tn     +++|          LDD    DC+3        CHECK ACCESS
01354  M01S01220.1tn     +++|          SHN    21-12       CHECK LOG-OUT BIT
01355  M01S01221.1tn     +++|          PJN    CTO5        IF NOT SET
01356  M01S01222.1tn     +++|          LDN    0
01357  M01S01223.1tn     +++|          STI    DO          CLEAR TIMER
01358  M01S01224.1tn     +++|          LJM    MGR         RETURN
01359  M01S01225.1tn     +++|
01360  M01S01226.1tn     +++| CTO4     LDD    DC+4        CHECK MESSAGE ASSIGNMENT
01361  M01S01227.1tn     +++|          NJN    CTO7        IF MESSAGE ASSIGNED
01362  M01S01228.1tn     +++|          LDD    DC          CHECK *LOGGED IN*
01363  M01S01229.1tn     +++|          SHN    21-11
01364  M01S01230.1tn     +++|          MJN    CTO2        IF SET
01365  M01S01231.1tn     +++|          LDI    DO          CHECK TIMER
01366  M01S01232.1tn     +++|          LMC    UTIO
01367  M01S01233.1tn     +++|          NJN    CTO2        IF LOGIN TIME OUT NOT ELAPSED
01368  M01S01234.1tn     +++|
01369  M01S01235.1tn     +++|*         LOG OFF USER.
01370  M01S01236.1tn     +++|
01371  M01S01237.1tn     +++| CTO5     LDC    CTO6        SET REENTRY ADDRESS
01372  M01S01238.1tn     +++|          UJN    CTO9        CHECK IF SOURCE INPUT ACTIVE
01373  M01S01239.1tn     +++|
01374  M01S01240.1tn     +++| CTO6     LDN    /TLX/TOT    REQUEST TIMEOUT LOGOUT
01375  M01S01241.1tn     +++|          RJM    ERQ
01376  M01S01242.1tn     +++|          STD    DP+2        CLEAR READ STATUS
01377  M01S01243.1tn     +++|          LJM    X1RWC       ENTER READ/WRITE CONTROL
01378  M01S01244.1tn     +++|
01379  M01S01245.1tn     +++|*         CHECK FOR FUNCTION REQUEST.
01380  M01S01246.1tn     +++|
01381  M01S01247.1tn     +++| CTO7     LDD    DC          CHECK MESSAGE TYPE
01382  M01S01248.1tn     +++|          SHN    21-13
01383  M01S01249.1tn     +++|          PJN    CTO8        IF NOT FUNCTION REQUEST
01384  M01S01250.1tn     +++|          LJM    TFR         PROCESS *TELEX* FUNCTION REQUEST
01385  M01S01251.1tn     +++|
01386  M01S01252.1tn     +++| CTO8     LDC    RWC         SET REENTRY ADDRESS
01387  M01S01253.1tn     +++|
01388  M01S01254.1tn     +++|*         ENTRY TO FORCE SOURCE DUMP IF READ ACTIVE.
01389  M01S01255.1tn     +++|*         (A) = REENTRY ADDRESS.
01390  M01S01256.1tn     +++|
01391  M01S01257.1tn     +++| CTO9     STD    DP+4        SET REENTRY ADDRESS
01392  M01S01258.1tn     +++|          LDD    DP+2        CHECK IF SOURCE INPUT ACTIVE
01393  M01S01259.1tn     +++|          SHN    21-10
01394  M01S01260.1tn     +++|          PJN    CTO10       IF INPUT NOT INITIATED
01395  M01S01261.1tn     +++|          LPN    7           SET POT LENGTH
01396  M01S01262.1tn     +++|          LMN    40          SET FORCED DUMP FLAG
01397  M01S01263.1tn     +++|          STD    RQ+1
01398  M01S01264.1tn     +++|          LDD    DP          SET FIRST, CURRENT POT
01399  M01S01265.1tn     +++|          STD    RQ+2
01400  M01S01266.1tn     +++|          STD    RQ+3
01401  M01S01267.1tn     +++|          LDN    /TLX/RIN    REQUEST SOURCE INPUT DUMP
01402  M01S01268.1tn     +++|          RJM    ERQ
01403  M01S01269.1tn     +++|          STD    DP          CLEAR POINTERS
01404  M01S01270.1tn     +++|          STD    DP+1
01405  M01S01271.1tn     +++|          STD    DP+2
01406  M01S01272.1tn     +++| CTO10    LJM    EXI2
01407  M01S01273.1tn     +++| DIN      SPACE  4,10
01408  M01S01274.1tn     +++|**        DIN - PROCESS USER DIALED IN.
01409  M01S01275.1tn     +++|
01410  M01S01276.1tn     +++|
01411  M01S01277.1tn     +++| DIN      LDN    0           CLEAR DATA OUTPUT
01412  M01S01278.1tn     +++|          STI    DO
01413  M01S01279.1tn     +++|          LDC    0           CHECK LOG IN COUNT
01414  M01S01280.1tn     +++| DINA     EQU    *-1
01415  M01S01281.1tn     +++|          ZJN    DIN1        IF MAXIMUM REACHED
01416  M01S01282.1tn     +++|          RJM    RDC         READ VDCT TO CHECK TERMINAL STATUS
01417  M01S01283.1tn     +++|          ZJN    DIN2        IF LAST USER OFF
01418  M01S01284.1tn     +++| DIN1     LJM    MGR
01419  M01S01285.1tn     +++|
01420  M01S01286.1tn     +++| DIN2     LDN    ZERL        INITIALIZE NEW USER
01421  M01S01287.1tn     +++|          CRD    CH
01422  M01S01288.1tn     +++|          CRD    DP
01423  M01S01289.1tn     +++|          LDN    /TLX/DIN    REQUEST DIAL IN PROCESSING
01424  M01S01290.1tn     +++|          RJM    ERQ
01425  M01S01291.1tn     +++|          SOM    DINA        DECREMENT LOG-IN COUNT
01426  M01S01292.1tn     +++|          RETURN EXI3,LIN    PROCESS LOGIN
01427  M01S01293.1tn     +++| HUP      SPACE  4,10
01428  M01S01294.1tn     +++|**        HUP - HANG UP PHONE.
01429  M01S01295.1tn     +++|
01430  M01S01296.1tn     +++|
01431  M01S01297.1tn     +++| HUP      LDN    20          SET DELAY TO INSURE THAT 6676 HAS SENT DATA
01432  M01S01298.1tn     +++|          STD    DP+2
01433  M01S01299.1tn     +++| HUP1     RETURN EXI6
01434  M01S01300.1tn     +++|          SOD    DP+2        DECREMENT DELAY
01435  M01S01301.1tn     +++|          NJN    HUP1        IF DELAY NOT ELAPSED
01436  M01S01302.1tn     +++|          LDD    SM
01437  M01S01303.1tn     +++|          ZJN    HUP2        IF NOT STIMULATOR
01438  M01S01304.1tn     +++|          LDC    .IISE       ISSUE STIMULATOR HANG UP PHONE
01439  M01S01305.1tn     +++|          UJN    HUP3        SEND CHARACTER
01440  M01S01306.1tn     +++|
01441  M01S01307.1tn     +++| HUP2     LDC    6000        ISSUE HANG UP PHONE
01442  M01S01308.1tn     +++| HUP3     STI    DO
01443  M01S01309.1tn     +++|          RETURN EXI1
01444  M01S01310.1tn     +++|          LDN    0           CLEAR OUTPUT
01445  M01S01311.1tn     +++|          STI    DO
01446  M01S01312.1tn     +++|          LDN    5*2         SET FIVE SECOND DELAY
01447  M01S01313.1tn     +++|          STD    DP+2
01448  M01S01314.1tn     +++|          RETURN EXI1
01449  M01S01315.1tn     +++|          LDD    IT
01450  M01S01316.1tn     +++|          NJN    HUP4        IF HALF SECOND
01451  M01S01317.1tn     +++|          LJM    MGR         EXIT
01452  M01S01318.1tn     +++|
01453  M01S01319.1tn     +++| HUP4     SOD    DP+2
01454  M01S01320.1tn     +++|          ZJN    HUP5        IF TIMEOUT COMPLETE
01455  M01S01321.1tn     +++|          LJM    EXI7        EXIT
01456  M01S01322.1tn     +++|
01457  M01S01323.1tn     +++| HUP5     LDD    DP
01458  M01S01324.1tn     +++|          ZJN    HUP6        IF NO POTS TO DROP
01459  M01S01325.1tn     +++|          STD    RQ+3
01460  M01S01326.1tn     +++|          LDN    /TLX/DRT
01461  M01S01327.1tn     +++|          RJM    ERQ
01462  M01S01328.1tn     +++|          STD    DP
01463  M01S01329.1tn     +++| HUP6     STD    DP+1
01464  M01S01330.1tn     +++|          STD    DP+3
01465  M01S01331.1tn     +++|          RJM    CUT         CLEAN UP TERMINAL TABLE
01466  M01S01332.1tn     +++|          RETURN EXI1
Line S01333 Modification History
M01 (Added by) 1tn
M02 (Updated by) 1tn3
Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01333.1tn3    ---|          SHN    2-21
Line S01334 Modification History
M01 (Added by) 1tn
M02 (Updated by) 1tn3
Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01334.1tn3    ---|          LMN    5
Line S01335 Modification History
M01 (Added by) 1tn
M02 (Updated by) 1tn3
Seq #  *Modification Id* Act 
----------------------------+
01469  M02S01335.1tn3    ---|          NJN    OFL2        IF NO CHARACTER OR OFF LINE
01470  M01S00001.1tn3    +++|          SHN    21-11-21+13
01471  M01S00002.1tn3    +++|          PJN    OFL2        IF OFF-LINE
01472  M01S01336.1tn     +++|          UJN    OFL1        ENTER DIAL IN
01473  M01S01337.1tn     +++| OFL      SPACE  4,10
01474  M01S01338.1tn     +++|**        OFL - PROCESS USER OFF LINE.
01475  M01S01339.1tn     +++|*
01476  M01S01340.1tn     +++|*         OFL WILL DROP ALL POTS ASSOCIATED WITH THE TERMINAL AND
01477  M01S01341.1tn     +++|*         NOTIFY *TELEX* TO TURN OFF THE TERMINAL.
01478  M01S01342.1tn     +++|*
01479  M01S01343.1tn     +++|*         MUST FOLLOW *DIN*.
01480  M01S01344.1tn     +++|
01481  M01S01345.1tn     +++|
01482  M01S01346.1tn     +++| OFL      BSS    0           ENTRY
01483  M01S01347.1tn     +++|          LDD    DP
01484  M01S01348.1tn     +++|          STD    RQ+3
01485  M01S01349.1tn     +++|          LDN    /TLX/HUP    REQUEST HUNG UP PHONE PROCESSING
01486  M01S01350.1tn     +++|          RJM    ERQ
01487  M01S01351.1tn     +++|          STD    DP          CLEAR POINTERS
01488  M01S01352.1tn     +++|          STD    DP+1
01489  M01S01353.1tn     +++|          STD    DP+2
01490  M01S01354.1tn     +++|          RETURN EXI1
01491  M01S01355.1tn     +++|
01492  M01S01356.1tn     +++| ITSA     BSS    0           INITIAL TERMINAL START ADDRESS
01493  M01S01357.1tn     +++|
01494  M01S01358.1tn     +++|          SHN    13-11       CHECK INPUT STATUS
01495  M01S01359.1tn     +++|          PJN    OFL3        IF NOT ON LINE
01496  M01S01360.1tn     +++|
01497  M01S01361.1tn     +++|*         ENTRY FROM HUP.
01498  M01S01362.1tn     +++|
01499  M01S01363.1tn     +++| OFL1     RETURN EXI6,DIN    ENTER DIAL IN
01500  M01S01364.1tn     +++|
01501  M01S01365.1tn     +++| OFL2     LJM    MGR
01502  M01S01366.1tn     +++|
01503  M01S01367.1tn     +++|*         RESYNC 6671 AND ENABLE PHONE ANSWERING.
01504  M01S01368.1tn     +++|
01505  M01S01369.1tn     +++| OFL3     LDN    24          INSURE 6676 OUTPUT REGISTERS CLEAR
01506  M01S01370.1tn     +++|          STD    DP+2
01507  M01S01371.1tn     +++| OFL4     RETURN EXI6
01508  M01S01372.1tn     +++|          SOD    DP+2
01509  M01S01373.1tn     +++|          NJN    OFL4        IF DELAY NOT ELAPSED
01510  M01S01374.1tn     +++|          LDC    7000        REENABLE PHONE ANSWERING (6671)
01511  M01S01375.1tn     +++|          STI    DO
01512  M01S01376.1tn     +++|          RETURN EXI1,OFL1   ENTER DIAL IN
01513  M01S01377.1tn     +++|          SPACE  4,10
01514  M01S01378.1tn     +++| OFLE     BSS    0           END OF LINE PROCESSING
01515  M01S01379.1tn     +++| RWC      SPACE  4,10,10
01516  M01S01380.1tn     +++|**        RWC - READ/WRITE CONTROL.
01517  M01S01381.1tn     +++|*
01518  M01S01382.1tn     +++|*         ENTRY  COMPLETION OF READ OR WRITE OPERATION.
01519  M01S01383.1tn     +++|*
01520  M01S01384.1tn     +++|*         EXIT   TO *RDM* IF INPUT RECEIVED FROM TERMINAL.
01521  M01S01385.1tn     +++|*                TO *WTM* IF MESSAGE ASSIGNMENT RECEIVED FROM *TELEX*.
01522  M01S01386.1tn     +++|*                TO *TFR* IF FUNCTION REQUEST RECEIVED FROM *TELEX*.
01523  M01S01387.1tn     +++|*                TO *CTO* IF TERMINAL IDLE.
01524  M01S01388.1tn     +++|
01525  M01S01389.1tn     +++|
01526  M01S01390.1tn     +++| RWC      RJM    CEM         CLEAR EXTENDED MODE
01527  M01S01391.1tn     +++|
01528  M01S01392.1tn     +++|*         ENTER HERE TO PREVENT TRANSMISSION MODE CHANGE.
01529  M01S01393.1tn     +++|*         CHECK FOR INPUT FROM TERMINAL.
01530  M01S01394.1tn     +++|
01531  M01S01395.1tn     +++| RWC1     LDI    DI          CHECK VALID CHARACTER FLAG
01532  M01S01396.1tn     +++|          SHN    21-13
01533  M01S01397.1tn     +++|          PJN    RWC2        IF NO INPUT FROM TERMINAL
01534  M01S01398.1tn     +++|          LJM    RDM         ENTER READ MODE
01535  M01S01399.1tn     +++|
01536  M01S01400.1tn     +++|*         CHECK FOR MESSAGE ASSIGNMENT OR FUNCTION REQUEST.
01537  M01S01401.1tn     +++|
01538  M01S01402.1tn     +++| RWC2     RJM    RDC         READ *VDCT*
01539  M01S01403.1tn     +++|          LDD    DC+4        CHECK *VDCT* INTERLOCK
01540  M01S01404.1tn     +++|          NJN    RWC3        IF MESSAGE ASSIGNED
01541  M01S01405.1tn     +++|          LJM    CTO         CHECK TIME OUT
01542  M01S01406.1tn     +++|
01543  M01S01407.1tn     +++| RWC3     LDD    DC          CHECK MESSAGE TYPE
01544  M01S01408.1tn     +++|          SHN    21-13
01545  M01S01409.1tn     +++|          PJN    RWC4        IF NOT FUNCTION REQUEST
01546  M01S01410.1tn     +++|          LJM    TFR         PROCESS *TELEX* FUNCTION REQUEST
01547  M01S01411.1tn     +++|
01548  M01S01412.1tn     +++|*         PREPARE NEW OUTPUT.
01549  M01S01413.1tn     +++|
01550  M01S01414.1tn     +++| RWC4     LDD    DP          CHECK FIRST POT
01551  M01S01415.1tn     +++|          ZJN    RWC5        IF NOT ASSIGNED
01552  M01S01416.1tn     +++|          STD    RQ+3        SET POT
01553  M01S01417.1tn     +++|          LDN    /TLX/DRT    REQUEST DROP POT CHAIN
01554  M01S01418.1tn     +++|          RJM    ERQ
01555  M01S01419.1tn     +++| RWC5     LDD    DC+4        CURRENT POT = ASSIGNMENT
01556  M01S01420.1tn     +++|          STD    DP
01557  M01S01421.1tn     +++|          STD    DP+1
01558  M01S01422.1tn     +++|          LDD    DC+1        CURRENT WORD = FIRST WORD OF ASSIGNMENT
01559  M01S01423.1tn     +++|          LPN    7
01560  M01S01424.1tn     +++|          SHN    4
01561  M01S01425.1tn     +++|          STD    DP+2
01562  M01S01426.1tn     +++|          LDD    DC+1        CLEAR STARTING WORD
01563  M01S01427.1tn     +++|          SCN    7
01564  M01S01428.1tn     +++|          STD    DC+1
01565  M01S01429.1tn     +++|          LDN    0           CLEAR ASSIGNMENT
01566  M01S01430.1tn     +++|          STD    DC+4
01567  M01S01431.1tn     +++|          RETURN EXI5,WTM    ENTER WRITE MODE
01568  M01S01432.1tn     +++|          TITLE  LOGIN PROCESSING.
01569  M01S01433.1tn     +++| DTT      SPACE  4,10
01570  M01S01434.1tn     +++|**        DTT - DETERMINE TERMINAL TYPE.
01571  M01S01435.1tn     +++|*
01572  M01S01436.1tn     +++|*         THE FIRST CHARACTER TYPED IS EXAMINED TO DETERMINE TERMINAL
01573  M01S01437.1tn     +++|*         TYPE AND PARITY.
01574  M01S01438.1tn     +++|
01575  M01S01439.1tn     +++|
01576  M01S01440.1tn     +++| DTT      MJN    DTT4        IF INPUT CHARACTER RECEIVED
01577  M01S01441.1tn     +++|          LDD    SM          CHECK STIMULATOR STATUS
01578  M01S01442.1tn     +++|          ZJN    DTT1        IF NOT STIMULATOR
01579  M01S01443.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
01580  M01S01444.1tn     +++|          STI    DO
01581  M01S01445.1tn     +++|          RETURN EXI1
01582  M01S01446.1tn     +++|
01583  M01S01447.1tn     +++| DTT1     LDN    /CTL/RDP    CHECK TERMINAL TYPE
01584  M01S01448.1tn     +++|          RJM    SCA
01585  M01S01449.1tn     +++|          LMC    /RDM/CRD
01586  M01S01450.1tn     +++|          NJN    DTT2        IF NOT CORRESPONDENCE
01587  M01S01451.1tn     +++|          LDC    .CEOT       UNLOCK KEYBOARD
01588  M01S01452.1tn     +++|          STI    DO
01589  M01S01453.1tn     +++|          RETURN EXI1
01590  M01S01454.1tn     +++|
01591  M01S01455.1tn     +++| DTT2     RETURN EXI6
01592  M01S01456.1tn     +++|          MJN    DTT4        IF INPUT CHARACTER RECEIVED
01593  M01S01457.1tn     +++| DTT3     LJM    CTO         CHECK TIME OUT
01594  M01S01458.1tn     +++|
01595  M01S01459.1tn     +++| DTT4     SHN    13-21       EXTRACT CHARACTER
01596  M01S01460.1tn     +++|          LPC    377
01597  M01S01461.1tn     +++|          STD    CH
01598  M01S01462.1tn     +++|          LMC    .CEOA
01599  M01S01463.1tn     +++|          LPC    376
01600  M01S01464.1tn     +++|          NJN    DTT6        IF NOT *EOA*
01601  M01S01465.1tn     +++|
01602  M01S01466.1tn     +++|*         PROCESS CORRESPONDENCE CODE TERMINAL.
01603  M01S01467.1tn     +++|
01604  M01S01468.1tn     +++|          LDC    400
01605  M01S01469.1tn     +++|          STD    CH
01606  M01S01470.1tn     +++|          RETURN EXI3
01607  M01S01471.1tn     +++|          PJN    DTT3        IF NO INPUT CHARACTER RECEIVED
01608  M01S01472.1tn     +++|          SHN    13-21
01609  M01S01473.1tn     +++|          LMC    .CEOT
01610  M01S01474.1tn     +++|          LPC    376
01611  M01S01475.1tn     +++|          ZJN    DTT8        IF *EOT*
01612  M01S01476.1tn     +++|          LDD    CH
01613  M01S01477.1tn     +++|          LPC    377
01614  M01S01478.1tn     +++|          NJN    DTT5        IF CHARACTER ENTERED
01615  M01S01479.1tn     +++|          LDI    DI          EXTRACT DATA CHARACTER
01616  M01S01480.1tn     +++|          LPC    376
01617  M01S01481.1tn     +++|          RAD    CH
01618  M01S01482.1tn     +++| DTT5     LJM    EXI4
01619  M01S01483.1tn     +++|
01620  M01S01484.1tn     +++|*         CHECK FOR ADDITIONAL INPUT.
01621  M01S01485.1tn     +++|
01622  M01S01486.1tn     +++| DTT6     LDD    IT          SET HALF/SECOND TIMER
01623  M01S01487.1tn     +++|          STI    DO
01624  M01S01488.1tn     +++|          RETURN EXI3
01625  M01S01489.1tn     +++|          PJN    DTT7        IF NO ADDITIONAL INPUT
01626  M01S01490.1tn     +++|          LJM    DTT4
01627  M01S01491.1tn     +++|
01628  M01S01492.1tn     +++| DTT7     LDI    DO          CHECK TIMER
01629  M01S01493.1tn     +++|          LMD    IT
01630  M01S01494.1tn     +++|          NJN    DTT5        IF NOT TIMED OUT
01631  M01S01495.1tn     +++|
01632  M01S01496.1tn     +++|*         LOOK UP CHARACTER.
01633  M01S01497.1tn     +++|
01634  M01S01498.1tn     +++| DTT8     LDN    0           CLEAR INDEX
01635  M01S01499.1tn     +++|          STD    T1
01636  M01S01500.1tn     +++| DTT9     LDM    TTTC,T1     CHECK TABLE ENTRY
01637  M01S01501.1tn     +++|          LMD    CH
01638  M01S01502.1tn     +++|          SHN    -1
01639  M01S01503.1tn     +++|          ZJN    DTT10       IF MATCH FOUND
01640  M01S01504.1tn     +++|          AOD    T1
01641  M01S01505.1tn     +++|          LMN    TNTT
01642  M01S01506.1tn     +++|          NJN    DTT9        LOOP TO END OF TABLE
01643  M01S01507.1tn     +++|          STD    T1          CLEAR INDEX
01644  M01S01508.1tn     +++|          LDD    CH          CLEAR CHARACTER
01645  M01S01509.1tn     +++|          LPC    400
01646  M01S01510.1tn     +++|          STD    CH
01647  M01S01511.1tn     +++| DTT10    LDD    T1          SET TRANSLATION TABLE INDEX
01648  M01S01512.1tn     +++|          SHN    7
01649  M01S01513.1tn     +++|          STD    DP+3
01650  M01S01514.1tn     +++|          LDD    CH          SET PARITY
01651  M01S01515.1tn     +++|          LMM    TTTC,T1
01652  M01S01516.1tn     +++|          LPN    1
01653  M01S01517.1tn     +++|          RAD    DP+3
01654  M01S01518.1tn     +++|          UJN    LINX        COMPLETE LOGIN
01655  M01S01519.1tn     +++| LIN      SPACE  4,10
01656  M01S01520.1tn     +++|**        LIN - PROCESS LOGIN.
01657  M01S01521.1tn     +++|
01658  M01S01522.1tn     +++|
01659  M01S01523.1tn     +++| LIN      RJM    RDC         READ VDCT TO CHECK TERMINAL STATUS
01660  M01S01524.1tn     +++|          LMD    HN
01661  M01S01525.1tn     +++|          ZJN    LIN1        IF *TELEX* READY
01662  M01S01526.1tn     +++|          LJM    MGR
01663  M01S01527.1tn     +++|
01664  M01S01528.1tn     +++| LIN1     LDD    DC+4        SET POT ASSIGNMENT
01665  M01S01529.1tn     +++|          STD    DP
01666  M01S01530.1tn     +++|          STD    DP+1
01667  M01S01531.1tn     +++|          LDN    0           CLEAR POT ASSIGNMENT
01668  M01S01532.1tn     +++|          STD    DC+4
01669  M01S01533.1tn     +++|          LDD    DC+1        SET PORT TYPE INDEX
01670  M01S01534.1tn     +++|          SHN    -10
01671  M01S01535.1tn     +++|          LPN    3
01672  M01S01536.1tn     +++|          STD    T1
01673  M01S01537.1tn     +++|          LDM    LINA,T1     SET ENTRY ADDRESS
01674  M01S01538.1tn     +++|          LJM    EXI5
01675  M01S01539.1tn     +++|
01676  M01S01540.1tn     +++|*         COMPLETE LOGIN.
01677  M01S01541.1tn     +++|
01678  M01S01542.1tn     +++| LINX     LDN    40          SET LINE FEED FLAG FOR ASCII TERMINALS
01679  M01S01543.1tn     +++|          RAD    DP+3
01680  M01S01544.1tn     +++|          LJM    /RDM/CLI    PROCESS COMMAND LINE INPUT
01681  M01S01545.1tn     +++|
01682  M01S01546.1tn     +++| LINA     BSS    0
01683  M01S01547.1tn     +++|
01684  M01S01548.1tn     +++|          CON    RAB         READ ANSWERBACK
01685  M01S01549.1tn     +++|          CON    DTT         DETERMINE TERMINAL TYPE
01686  M01S01550.1tn     +++|          CON    DTT         DETERMINE TERMINAL TYPE
01687  M01S01551.1tn     +++|          CON    RAB         READ ANSWERBACK
01688  M01S01552.1tn     +++| RAB      SPACE  4,10
01689  M01S01553.1tn     +++|**        RAB - REQUEST ANSWERBACK.
01690  M01S01554.1tn     +++|*
01691  M01S01555.1tn     +++|*
01692  M01S01556.1tn     +++|*         RAB IS CALLED WHENEVER *TELEX* DESIRES TO READ
01693  M01S01557.1tn     +++|*         THE ANSWER BACK DRUM ON THE TERMINAL. RAB WILL INSURE ENOUGH
01694  M01S01558.1tn     +++|*         TIME FOR THE TERMINAL TO COME FULLY ON LINE AND THEN ISSUE
01695  M01S01559.1tn     +++|*         THE ANSWER BACK COMMAND.
01696  M01S01560.1tn     +++|
01697  M01S01561.1tn     +++|
01698  M01S01562.1tn     +++| RAB      LDN    7           WAIT FOR LINE TO SETTLE OUT
01699  M01S01563.1tn     +++|          RJM    WTO
01700  M01S01564.1tn     +++|          LDC    .AENQ       ISSUE *ENQ*
01701  M01S01565.1tn     +++|          STI    DO
01702  M01S01566.1tn     +++|          LDN    0
01703  M01S01567.1tn     +++|          STD    DP+2
01704  M01S01568.1tn     +++|          STD    CH+2
01705  M01S01569.1tn     +++|          RETURN EXI3
01706  M01S01570.1tn     +++|          LDD    SM          CHECK STIMULATOR STATUS
01707  M01S01571.1tn     +++|          ZJN    RAB1        IF NOT STIMULATOR
01708  M01S01572.1tn     +++|          SHN    21-13
01709  M01S01573.1tn     +++|          MJN    RAB1        IF *ASTIM* MUX
01710  M01S01574.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
01711  M01S01575.1tn     +++|          STI    DO
01712  M01S01576.1tn     +++|          RETURN EXI1
01713  M01S01577.1tn     +++| RAB1     RETURN EXI6
01714  M01S01578.1tn     +++|          PJN    RAB3        IF NO INPUT CHARACTER
01715  M01S01579.1tn     +++|          SHN    -7          EXTRACT CHARACTER
01716  M01S01580.1tn     +++|          LPC    177
01717  M01S01581.1tn     +++|          STD    T7
01718  M01S01582.1tn     +++|          LDD    CH+1        CHECK CHARACTER COUNT
01719  M01S01583.1tn     +++|          SBN    10D
01720  M01S01584.1tn     +++|          PJN    RAB2        IF MORE THAN 10 CHARACTERS
01721  M01S01585.1tn     +++|          RJM    /RDM/TIC    TRANSLATE CHARACTER
01722  M01S01586.1tn     +++|          SHN    -6
01723  M01S01587.1tn     +++|          NJN    RAB2        IF SPECIAL CHARACTER
01724  M01S01588.1tn     +++|          RJM    /RDM/WIC    WRITE INPUT CHARACTER
01725  M01S01589.1tn     +++|          AOD    CH+1        COUNT CHARACTER
01726  M01S01590.1tn     +++| RAB2     LJM    EXI4        RETURN
01727  M01S01591.1tn     +++|
01728  M01S01592.1tn     +++| RAB3     LDD    IT          ADVANCE TIMER
01729  M01S01593.1tn     +++|          RAD    CH+2
01730  M01S01594.1tn     +++|          LMN    ATIO
01731  M01S01595.1tn     +++|          NJN    RAB2        IF TIME OUT NOT ELAPSED
01732  M01S01596.1tn     +++|          STD    CH+2
01733  M01S01597.1tn     +++|          STD    T7
01734  M01S01598.1tn     +++|          RJM    /RDM/WIC    FORCE UPPER CHARACTER
01735  M01S01599.1tn     +++|          LJM    LINX        COMPLETE LOGIN
01736  M01S01600.1tn     +++|          TITLE  *TELEX* FUNCTION REQUEST PROCESSING.
01737  M01S01601.1tn     +++| TFR      SPACE  4,10
01738  M01S01602.1tn     +++|**        TFR - PROCESS *TELEX* FUNCTION REQUEST.
01739  M01S01603.1tn     +++|*
01740  M01S01604.1tn     +++|*         ENTRY  (DC - DC+4) = *VDCT* WORD.
01741  M01S01605.1tn     +++|
01742  M01S01606.1tn     +++|
01743  M01S01607.1tn     +++| TFR      LDD    DC+4        SAVE REQUEST CODE
01744  M01S01608.1tn     +++|          STD    T2
01745  M01S01609.1tn     +++|          LPN    77
01746  M01S01610.1tn     +++|          SBN    TTFRL
01747  M01S01611.1tn     +++|          MJN    TFR1        IF LEGAL FUNCTION
01748  M01S01612.1tn     +++|          LCN    TTFRL       SET ILLEGAL FUNCTION
01749  M01S01613.1tn     +++| TFR1     ADN    TTFRL
01750  M01S01614.1tn     +++|          STD    T1
01751  M01S01615.1tn     +++|          LDN    /TLX/RES    REQUEST ADDITIONAL OUTPUT
01752  M01S01616.1tn     +++|          RJM    ERQ
01753  M01S01617.1tn     +++|          STD    DC+4        CLEAR FUNCTION REQUEST
01754  M01S01618.1tn     +++|          LDD    DC          CLEAR DRIVER REQUEST BIT
01755  M01S01619.1tn     +++|          LPC    3777
01756  M01S01620.1tn     +++|          STD    DC
01757  M01S01621.1tn     +++|          TTADD  VDCT
01758  M01S01622.1tn     +++|          CWD    DC
01759  M01S01623.1tn     +++|          LDM    TTFR,T1     PROCESS FUNCTION
01760  M01S01624.1tn     +++|          STD    T1
01761  M01S01625.1tn     +++|          NJN    TFR2        IF A VALID ENTRY
01762  M01S01626.1tn     +++|          LJM    MGR         EXIT
01763  M01S01627.1tn     +++|
01764  M01S01628.1tn     +++| TFR2     LDD    DP+3
01765  M01S01629.1tn     +++|          LJM    0,T1
01766  M01S01630.1tn     +++| TTFR     SPACE  4,10
01767  M01S01631.1tn     +++|**        TTFR - TABLE OF TELEX FUNCTION REQUESTS.
01768  M01S01632.1tn     +++|
01769  M01S01633.1tn     +++|
01770  M01S01634.1tn     +++| TTFR     INDEX
01771  M01S01635.1tn     +++|
01772  M01S01636.1tn     +++|          INDEX  /1TD/BGI,BGI   BEGIN INPUT
01773  M01S01637.1tn     +++|          INDEX  /1TD/CFD,CFD   CLEAR FULL DUPLEX
01774  M01S01638.1tn     +++|          INDEX  /1TD/HUP,HUP   HANG UP THE PHONE
01775  M01S01639.1tn     +++|          INDEX  /1TD/IIP,IIP   ISSUE INPUT PROMPT
01776  M01S01640.1tn     +++|          INDEX  /1TD/LGI,LGI   PROCESS LOGIN
01777  M01S00001.ns2409b +++|          INDEX  /1TD/SCE,SCE   SET/CLEAR EXTENDED MODE
01778  M01S01641.1tn     +++|          INDEX  /1TD/SDU,INT3.1  SUSPEND DRIVER FOR USER BREAK
01779  M01S01642.1tn     +++|          INDEX  /1TD/SEP,SEP   SET EVEN PARITY
01780  M01S01643.1tn     +++|          INDEX  /1TD/SFD,SFD   SET FULL DUPLEX
01781  M01S01644.1tn     +++|          INDEX  /1TD/SNM,SNM   SET NORMAL MODES
01782  M01S01645.1tn     +++|          INDEX  /1TD/SOP,SOP   SET ODD PARITY
01783  M01S01646.1tn     +++|          INDEX  /1TD/STT,STT   SET TERMINAL TYPE
01784  M01S01647.1tn     +++|
01785  M01S01648.1tn     +++|          INDEX  /1TD/REQL
01786  M01S01649.1tn     +++| TTFRL    EQU    *-TTFR
01787  M01S01650.1tn     +++| BGI      SPACE  4,10,10
01788  M01S01651.1tn     +++|**        BGI - BEGIN INPUT.
01789  M01S01652.1tn     +++|*
01790  M01S01653.1tn     +++|*         SET INPUT ACTIVE AND START TAPE READER IF TAPE MODE IS SET.
01791  M01S01654.1tn     +++|*
01792  M01S01655.1tn     +++|*         ENTRY  (DC - DC+4) = WORD *VDCT*.
01793  M01S01656.1tn     +++|
01794  M01S01657.1tn     +++|
01795  M01S01658.1tn     +++| BGI      LDD    DC          CHECK *TAPE* MODE
01796  M01S01659.1tn     +++|          LPN    1
01797  M01S01660.1tn     +++|          ZJN    BGI1        IF NOT SET
01798  M01S01661.1tn     +++|          LDC    .ISTR       TRANSLATE *START TAPE READER*
01799  M01S01662.1tn     +++|          STD    T7
01800  M01S01663.1tn     +++|          RJM    /WTM/TOC
01801  M01S01664.1tn     +++|          SHN    6           CHECK TRANSLATED CHARACTER
01802  M01S01665.1tn     +++|          PJN    BGI1        IF NOT DEFINED
01803  M01S01666.1tn     +++|          LDD    DP+3        TOGGLE ON ODD PARITY
01804  M01S01667.1tn     +++|          LPN    1
01805  M01S01668.1tn     +++|          LMD    T7          ISSUE *START TAPE READER*
01806  M01S01669.1tn     +++|          STI    DO
01807  M01S01670.1tn     +++|          RETURN EXI1
01808  M01S01671.1tn     +++| BGI1     LDD    SM          CHECK STIMULATOR STATUS
01809  M01S01672.1tn     +++|          ZJN    BGI2        IF NOT STIMULATOR
01810  M01S01673.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
01811  M01S01674.1tn     +++|          STI    DO
01812  M01S01675.1tn     +++|          RETURN EXI1
01813  M01S01676.1tn     +++| BGI2     RETURN EXI6,RDM
01814  M01S01677.1tn     +++| CFD      SPACE  4,10
01815  M01S01678.1tn     +++|**        CFD - CLEAR *FULL DUPLEX* FLAG.
01816  M01S01679.1tn     +++|*
01817  M01S01680.1tn     +++|*         ENTRY  (A) = DP+3.
01818  M01S01681.1tn     +++|
01819  M01S01682.1tn     +++|
01820  M01S01683.1tn     +++| CFD      LPC    7677        CLEAR FULL DUPLEX
01821  M01S01684.1tn     +++|          LJM    SEP1
01822  M01S01685.1tn     +++| IIP      SPACE  4,10
01823  M01S01686.1tn     +++|**        IIP - ISSUE INPUT PROMPT.
01824  M01S01687.1tn     +++|*
01825  M01S01688.1tn     +++|*         ISSUE INPUT PROMPT CHARACTER IF TRANSPARENT, BINARY,
01826  M01S01689.1tn     +++|*         OR AUTO MODE IS NOT SET.
01827  M01S01690.1tn     +++|*
01828  M01S01691.1tn     +++|*         ENTRY  (A) = DP+3.
01829  M01S01692.1tn     +++|*                (DC - DC+4) = VDCT.
01830  M01S01693.1tn     +++|
01831  M01S01694.1tn     +++|
01832  M01S01695.1tn     +++| IIP      SHN    21-2        CHECK MODE
01833  M01S01696.1tn     +++|          MJN    IIP1        IF *TRANSPARENT* MODE
01834  M01S01697.1tn     +++|          LPN    1
01835  M01S01698.1tn     +++|          NJN    IIP2        IF *BINARY* MODE
01836  M01S01699.1tn     +++|          LDD    DC
01837  M01S01700.1tn     +++|          LPN    2
01838  M01S01701.1tn     +++|          NJN    IIP2        IF *AUTO* MODE
01839  M01S01702.1tn     +++|          TTADD  VSTT        CHECK NO PROMPT BIT
01840  M01S01703.1tn     +++|          CRD    T0
01841  M01S01704.1tn     +++|          LDD    T0
01842  M01S01705.1tn     +++|          LPN    40
01843  M01S01706.1tn     +++|          NJN    IIP2        IF NO PROMPT MODE
01844  M01S01707.1tn     +++|          STD    CH+2        CLEAR ESCAPE CONTROL
01845  M01S01708.1tn     +++|          STD    DP+2
01846  M01S01709.1tn     +++|          LDN    /CTL/IPC    SELECT PROMPT CHARACTER
01847  M01S01710.1tn     +++|          RJM    SCA
01848  M01S01711.1tn     +++|          STD    ZR
01849  M01S01712.1tn     +++|          LDN    1RB         SET TERMINATOR
01850  M01S01713.1tn     +++|          STD    ZR+1
01851  M01S01714.1tn     +++|          RJM    SWA         SET WORD ADDRESS
01852  M01S01715.1tn     +++|          CWD    ZR          SET PROMPT IN POT
01853  M01S01716.1tn     +++|          LDN    ZERL        CLEAR ZERO LOCATION
01854  M01S01717.1tn     +++|          CRD    ZR
01855  M01S01718.1tn     +++|          RETURN EXI3,WTM    ENTER WRITE MODE
01856  M01S01719.1tn     +++|
01857  M01S01720.1tn     +++| IIP1     LDN    0           CLEAR INPUT POINTER
01858  M01S01721.1tn     +++|          STD    DP+2
01859  M01S01722.1tn     +++| IIP2     LDN    /TLX/RES    REQUEST NEXT MESSAGE
01860  M01S01723.1tn     +++|          RJM    ERQ
01861  M01S01724.1tn     +++|          LJM    X3RWC       WAIT FOR *BGI* REQUEST
01862  M01S01725.1tn     +++| LGI      SPACE  4,10
01863  M01S01726.1tn     +++|**        LGI - PROCESS USER LOGIN.
01864  M01S01727.1tn     +++|*
01865  M01S01728.1tn     +++|*         ENTRY  (A) = DP+3.
01866  M01S01729.1tn     +++|
01867  M01S01730.1tn     +++|
01868  M01S01731.1tn     +++| LGI      LPC    7600        RETAIN TERMINAL TYPE FOR LOGIN
01869  M01S01732.1tn     +++|          STD    T7
01870  M01S01733.1tn     +++|          LDD    DP          CHECK POT ASSIGNMENT
01871  M01S01734.1tn     +++|          ZJN    LGI1        IF NONE
01872  M01S01735.1tn     +++|          STD    RQ+3        DROP POTS
01873  M01S01736.1tn     +++|          LDN    /TLX/DRT
01874  M01S01737.1tn     +++|          RJM    ERQ
01875  M01S01738.1tn     +++| LGI1     LDN    ZERL        CLEAR CONTROL WORDS
01876  M01S01739.1tn     +++|          CRD    DP
01877  M01S01740.1tn     +++|          CRD    CH
01878  M01S01741.1tn     +++|          LDD    T7          RESET TERMINAL TYPE
01879  M01S01742.1tn     +++|          STD    DP+3
01880  M01S01743.1tn     +++|          RETURN EXI3,LIN    ENTER LOGIN
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  M01S01744.1tn     +++| SNM      SPACE  4,10
01894  M01S01745.1tn     +++|**        SNM - SET NORMAL MODES.
01895  M01S01746.1tn     +++|*
01896  M01S01747.1tn     +++|*         ENTRY  (A) = DP+3.
01897  M01S01748.1tn     +++|
01898  M01S01749.1tn     +++|
01899  M01S01750.1tn     +++| SNM      SCN    3           CLEAR EXTENDED MODE, ODD PARITY
01900  M01S01751.1tn     +++|*         UJN    SEP
01901  M01S01752.1tn     +++| SEP      SPACE  4,10,10
01902  M01S01753.1tn     +++|**        SEP - SET EVEN PARITY.
01903  M01S01754.1tn     +++|*
01904  M01S01755.1tn     +++|*         ENTRY  (A) = DP+3.
01905  M01S01756.1tn     +++|
01906  M01S01757.1tn     +++|
01907  M01S01758.1tn     +++| SEP      SCN    1
01908  M01S01759.1tn     +++|
01909  M01S01760.1tn     +++| SEP1     STD    DP+3
01910  M01S01761.1tn     +++|          LJM    EXI4
01911  M01S01762.1tn     +++| SOP      SPACE  4,10
01912  M01S01763.1tn     +++|**        SOP - SET *ODD PARITY* FLAG.
01913  M01S01764.1tn     +++|*
01914  M01S01765.1tn     +++|*         ENTRY  (A) = DP+3.
01915  M01S01766.1tn     +++|
01916  M01S01767.1tn     +++|
01917  M01S01768.1tn     +++| SOP      SCN    1           SET ODD PARITY
01918  M01S01769.1tn     +++|          LMN    1
01919  M01S01770.1tn     +++|          UJN    SEP1
01920  M01S01771.1tn     +++| SFD      SPACE  4,10
01921  M01S01772.1tn     +++|**        SFD - SET *FULL DUPLEX* FLAG.
01922  M01S01773.1tn     +++|*
01923  M01S01774.1tn     +++|*         ENTRY  (A) = DP+3.
01924  M01S01775.1tn     +++|
01925  M01S01776.1tn     +++|
01926  M01S01777.1tn     +++| SFD      LPC    7677        SET FULL DUPLEX
01927  M01S01778.1tn     +++|          LMD    HN
01928  M01S01779.1tn     +++|          UJN    SEP1
01929  M01S01780.1tn     +++| STT      SPACE  4,10
01930  M01S01781.1tn     +++|**        STT - SET TERMINAL TYPE.
01931  M01S01782.1tn     +++|*
01932  M01S01783.1tn     +++|*         ENTRY  (A) = DP+3.
01933  M01S01784.1tn     +++|*                (T2) = TRANSLATION TABLE INDEX.
01934  M01S01785.1tn     +++|
01935  M01S01786.1tn     +++|
01936  M01S01787.1tn     +++| STT      LPC    177         CLEAR CURRENT TRANSLATION INDEX
01937  M01S01788.1tn     +++|          STD    DP+3
01938  M01S01789.1tn     +++|          LDD    T2          SET TRANSLATION TABLE INDEX
01939  M01S01790.1tn     +++|          SCN    77
01940  M01S01791.1tn     +++|          SHN    1
01941  M01S01792.1tn     +++|          LMD    DP+3
01942  M01S01793.1tn     +++|          UJN    SEP1
01943  M01S01794.1tn     +++|          SPACE  4,10
01944  M01S01795.1tn     +++|          QUAL
01945  M01S01796.1tn     +++| CIS      EQU    /CTL/CIS
01946  M01S01797.1tn     +++| CTO      EQU    /CTL/CTO
01947  M01S01798.1tn     +++| MGR      EQU    /CTL/MGR
01948  M01S01799.1tn     +++| RWC      EQU    /CTL/RWC
01949  M01S01800.1tn     +++| CTLE     BSS    0           END OF CONTROL MODE
01950  M01S01801.1tn     +++|          TITLE  READ MODE - MAIN PROCESSING ROUTINES.
01951  M01S01802.1tn     +++|          QUAL   RDM
01952  M01S01803.1tn     +++| RDM      SPACE  4,10
01953  M01S01804.1tn     +++|**        RDM - READ MODE.
01954  M01S01805.1tn     +++|*
01955  M01S01806.1tn     +++|*         ENTRY  (DP+1) = FIRST POT FOR INPUT LINE.
01956  M01S01807.1tn     +++|*                (DP+2), FIRST WORD = FIRST WORD FOR LINE.
01957  M01S01808.1tn     +++|*                        *READ ACTIVE* STATUS.
01958  M01S01809.1tn     +++|*                        *POT REQUESTED* STATUS.
01959  M01S01810.1tn     +++|*                        CURRENT WORD = FIRST WORD FOR LINE.
01960  M01S01811.1tn     +++|*                        CURRENT CHARACTER = FIRST CHARACTER FOR LINE.
01961  M01S01812.1tn     +++|*                FOR SPECIAL INPUT PROCESSING,
01962  M01S01813.1tn     +++|*                (DP+3)  *TRANSPARENT INPUT* STATUS.
01963  M01S01814.1tn     +++|*                (DP+3)  *BINARY INPUT* STATUS.
01964  M01S01815.1tn     +++|*
01965  M01S01816.1tn     +++|*                (CH) = BINARY INPUT TERMINATION CHARACTER.
01966  M01S01817.1tn     +++|*                (CH+1) = BINARY INPUT TERMINATION COUNT.
01967  M01S01818.1tn     +++|
01968  M01S01819.1tn     +++|
01969  M01S01820.1tn     +++|*         RDM - ENTRY.
01970  M01S01821.1tn     +++|
01971  M01S01822.1tn     +++| RDM      LDD    DP
01972  M01S01823.1tn     +++|          ZJN    RDM4        IF NO INPUT POT
01973  M01S01824.1tn     +++|          LDD    DP+3        CHECK BINARY TRANSMISSION
01974  M01S01825.1tn     +++|          SHN    21-3
01975  M01S01826.1tn     +++|          PJN    RDM2        IF NOT SET
01976  M01S01827.1tn     +++|          LDD    CH+1        CHECK BINARY COUNT
01977  M01S01828.1tn     +++|          NJN    RDM1        IF SET
01978  M01S01829.1tn     +++|          LCN    10
01979  M01S01830.1tn     +++|          RAD    DP+3        CLEAR BINARY MODE
01980  M01S01831.1tn     +++|          UJN    RDM2
01981  M01S01832.1tn     +++|
01982  M01S01833.1tn     +++| RDM1     LDC    BRD         SET BINARY READ
01983  M01S01834.1tn     +++|          UJN    RDM3
01984  M01S01835.1tn     +++|
01985  M01S01836.1tn     +++| RDM2     LDN    /CTL/RDP    LOCATE READ PROCESSOR
01986  M01S01837.1tn     +++|          RJM    SCA
01987  M01S01838.1tn     +++| RDM3     STD    DP+4
01988  M01S01839.1tn     +++|          LDI    DI
01989  M01S01840.1tn     +++|          SHN    21-13
01990  M01S01841.1tn     +++|          LJM    0,DP+4
01991  M01S01842.1tn     +++|
01992  M01S01843.1tn     +++|*         PROCESS LACK OF INPUT POT.  IF THE INPUT DATA HAS
01993  M01S01844.1tn     +++|*         NO NEED TO BE TRANSLATED AND STORED IT WILL BE IGNORED.
01994  M01S01845.1tn     +++|*         IF THE DATA IS VALID, A DIAGNOSTIC MESSAGE WILL BE
01995  M01S01846.1tn     +++|*         ISSUED TO THE TERMINAL OPERATOR.
01996  M01S01847.1tn     +++|
Line S01848 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01997  M02S01848.ns21000 ---| RDM4     LDI    DI          GET INPUT CHARACTER
01998  M01S00001.ns21000 +++| RDM4     RJM    CSM         CHECK IF SMFIF PROCESSING
01999  M01S00002.ns21000 +++|          ZJN    RDM4.1      IF NOT SMFIF PROCESSING
02000  M01S00003.ns21000 +++| RDM4.1   LDI    DI          GET INPUT CHARACTER
02001  M01S00004.ns21000 +++|          LPC    377
02002  M01S00005.ns21000 +++|          NJN    RDM4.2      IF NOT START OF BREAK
02003  M01S00006.ns21000 +++|          LJM    /CTL/CIS2   GO PROCESS INTERRUPT
02004  M01S00007.ns21000 +++|
02005  M01S00008.ns21000 +++| RDM4.2   LDC    EDBM
02006  M01S00009.ns21000 +++|          LJM    ITM         SEND EDITOR BUSY MESSAGE
02007  M01S00010.ns21000 +++|
02008  M01S00011.ns21000 +++| RDM4.3   LDI    DI          GET INPUT CHARACTER
02009  M01S01849.1tn     +++|          LPC    177
02010  M01S01850.1tn     +++|          STD    T7
02011  M01S01851.1tn     +++|          RJM    TIC         TRANSLATE CHARACTER
02012  M01S01852.1tn     +++|          SHN    -7
02013  M01S01853.1tn     +++|          ZJN    RDM6        IF NOT SPECIAL CHARACTER
02014  M01S01854.1tn     +++|          LMN    /TRN/NLI
02015  M01S01855.1tn     +++|          ZJN    RDM5        IF NULL INPUT
02016  M01S01856.1tn     +++|          LMN    /TRN/EBT&/TRN/NLI
02017  M01S01857.1tn     +++|          NJN    RDM6        IF NOT END OF BLOCK MODE TRANSMISSION
02018  M01S01858.1tn     +++| RDM5     LJM    MGR         IGNORE CHARACTER
02019  M01S01859.1tn     +++|
02020  M01S01860.1tn     +++| RDM6     LJM    NIP1        ISSUE *REENTER LAST LINE*
02021  M01S01861.1tn     +++| BRD      SPACE  4,10,5
02022  M01S01862.1tn     +++|**        BRD - BINARY READ.
02023  M01S01863.1tn     +++|
02024  M01S01864.1tn     +++|
02025  M01S01865.1tn     +++| BRD      MJN    BRD1        IF INPUT RECEIVED
02026  M01S01866.1tn     +++|          LJM    CTO         CHECK TIME OUT
02027  M01S01867.1tn     +++|
02028  M01S01868.1tn     +++| BRD1     SHN    13-12       CHECK CHARACTER STATUS
02029  M01S01869.1tn     +++|          PJN    BRD2        IF NOT LOST DATA
02030  M01S01870.1tn     +++|          LJM    DLO         PROCESS DATA LOST
02031  M01S01871.1tn     +++|
02032  M01S01872.1tn     +++| BRD2     SHN    11-21
02033  M01S01873.1tn     +++|          LPC    177
02034  M01S01874.1tn     +++|          STD    T7
02035  M01S01875.1tn     +++|          LDD    DP+3        CHECK *FULL DUPLEX*
02036  M01S01876.1tn     +++|          SHN    21-6
02037  M01S01877.1tn     +++|          PJN    BRD3        IF NOT SET
02038  M01S01878.1tn     +++|          LDI    DI          ISSUE INPUT CHARACTER
02039  M01S01879.1tn     +++|          LPC    4377
02040  M01S01880.1tn     +++|          STI    DO
02041  M01S01881.1tn     +++| BRD3     LDD    CH          SAVE TERMINATOR
02042  M01S01882.1tn     +++|          STD    CH+2
02043  M01S01883.1tn     +++|          LDI    DI          FORMAT INPUT CHARACTER
02044  M01S01884.1tn     +++|          LPN    1
02045  M01S01885.1tn     +++|          ADN    20
02046  M01S01886.1tn     +++|          SHN    13-4
02047  M01S01887.1tn     +++|          RAD    T7
02048  M01S01888.1tn     +++|          SCN    77          SET UPPER HALF FOR *WIC*
02049  M01S01889.1tn     +++|          STD    CH
02050  M01S01890.1tn     +++|          AOD    DP+2
02051  M01S01891.1tn     +++|          RJM    WIC         WRITE INPUT CHARACTER
02052  M01S01892.1tn     +++|          AOD    CH+3        ADVANCE INPUT CHARACTER COUNT
02053  M01S01893.1tn     +++|          SHN    -14
02054  M01S01894.1tn     +++|          ZJN    BRD4        IF NO OVERFLOW
02055  M01S01895.1tn     +++|          STD    RQ+2        REQUEST ACCOUNTING MESSAGE
02056  M01S01896.1tn     +++|          LDN    /TLX/IAM
02057  M01S01897.1tn     +++|          RJM    ERQ
02058  M01S01898.1tn     +++| BRD4     LDD    CH+2        RESTORE TERMINATOR
02059  M01S01899.1tn     +++|          STD    CH
02060  M01S01900.1tn     +++|          SHN    6
02061  M01S01901.1tn     +++|          MJN    BRD5        IF NO TERMINATOR SPECIFIED
02062  M01S01902.1tn     +++|          SHN    -6
02063  M01S01903.1tn     +++|          LMD    T7
02064  M01S01904.1tn     +++|          LPC    177
02065  M01S01905.1tn     +++|          ZJN    BRD6        IF TERMINATOR RECIEVED
02066  M01S01906.1tn     +++| BRD5     SOD    CH+1        DECREMENT CHARACTER COUNT
02067  M01S01907.1tn     +++|          MJN    BRD6        IF END OF INPUT
02068  M01S01908.1tn     +++|          ZJN    BRD6        IF END OF INPUT
02069  M01S01909.1tn     +++|          LJM    EXI4        RETURN TO MANAGER
02070  M01S01910.1tn     +++|
02071  M01S01911.1tn     +++| BRD6     RETURN EXI3
02072  M01S01912.1tn     +++|          LDN    0           ENTER END OF LINE
02073  M01S01913.1tn     +++|          STD    CH
02074  M01S01914.1tn     +++|          STI    DO          CLEAR OUTPUT
02075  M01S01915.1tn     +++|          STD    T7
02076  M01S01916.1tn     +++|          STD    CH+1        CLEAR CHARACTER COUNT
02077  M01S01917.1tn     +++|          STD    CH+2        CLEAR ESCAPE CONTROL
02078  M01S01918.1tn     +++|          AOD    DP+2        WRITE END OF LINE
02079  M01S01919.1tn     +++|          RJM    WIC
02080  M01S01920.1tn     +++|          LCN    10          CLEAR BINARY INPUT
02081  M01S01921.1tn     +++|          RAD    DP+3
02082  M01S01922.1tn     +++|          RETURN EXI3
02083  M01S01923.1tn     +++|          RJM    RDC         READ VDCT TO CHECK READ OPERATION
02084  M01S01924.1tn     +++|          SHN    21-6
02085  M01S01925.1tn     +++|          MJN    BRD7        IF *READ DATA*
02086  M01S01926.1tn     +++|          LJM    SLI         PROCESS SOURCE LINE INPUT
02087  M01S01927.1tn     +++|
02088  M01S01928.1tn     +++| BRD7     LJM    CLI         PROCESS COMMAND LINE INPUT
02089  M01S01929.1tn     +++| CRD      SPACE  4,10
02090  M01S01930.1tn     +++|**        CRD - CORRESPONDENCE TERMINAL READ.
02091  M01S01931.1tn     +++|
02092  M01S01932.1tn     +++|
02093  M01S01933.1tn     +++| CRD      PJN    CRD1        IF NO INPUT DATA
02094  M01S01934.1tn     +++|          SHN    13-21       CHECK CHARACTER
02095  M01S01935.1tn     +++|          LPC    377
02096  M01S01936.1tn     +++|          NJN    CRD2        IF NOT START OF *ATTN*
02097  M01S01937.1tn     +++|          LJM    CIS         CHECK INTERRUPT STATUS
02098  M01S01938.1tn     +++|
02099  M01S01939.1tn     +++|*         ENTRY TO ENABLE INPUT.
02100  M01S01940.1tn     +++|
02101  M01S01941.1tn     +++| CRD1     LDC    .CEOT       ISSUE *EOT* TO ENABLE TERMINAL INPUT
02102  M01S01942.1tn     +++|          STI    DO
02103  M01S01943.1tn     +++|          RETURN EXI1
02104  M01S01944.1tn     +++|          RETURN EXI6
02105  M01S01945.1tn     +++| CRD2     LDD    DP+3        CLEAR UPPER CASE
02106  M01S01946.1tn     +++|          SCN    40
02107  M01S01947.1tn     +++|          STD    DP+3
02108  M01S01948.1tn     +++|          LDI    DI
02109  M01S01949.1tn     +++|          SHN    21-13
02110  M01S01950.1tn     +++|          MJN    CRD4        IF CHARACTER RECEIVED
02111  M01S01951.1tn     +++| CRD3     LJM    CTO         CHECK TIME OUT
02112  M01S01952.1tn     +++|
02113  M01S01953.1tn     +++| CRD4     SHN    13-21       CHECK CHARACTER
02114  M01S01954.1tn     +++|          LMC    .CEOA
02115  M01S01955.1tn     +++|          LPC    176
02116  M01S01956.1tn     +++|          NJN    CRD5        IF NOT *EOA*
02117  M01S01957.1tn     +++|          RETURN EXI1,CRD6
02118  M01S01958.1tn     +++|
02119  M01S01959.1tn     +++| CRD5     LDC    CRD6        ADVANCE ENTRY
02120  M01S01960.1tn     +++|          STD    DP+4
02121  M01S01961.1tn     +++|          LDI    DI
02122  M01S01962.1tn     +++|          SHN    21-13
02123  M01S01963.1tn     +++|
02124  M01S01964.1tn     +++|*         CRD - MAIN RETURN.
02125  M01S01965.1tn     +++|
02126  M01S01966.1tn     +++| CRD6     PJN    CRD3        IF NO CHARACTER RECEIVED
02127  M01S01967.1tn     +++|          SHN    13-12       CHECK CHARACTER STATUS
02128  M01S01968.1tn     +++|          PJN    CRD7        IF NOT LOST DATA
02129  M01S01969.1tn     +++|          LJM    DLO         PROCESS LOST DATA
02130  M01S01970.1tn     +++|
02131  M01S01971.1tn     +++| CRD7     SHN    13-1        EXTRACT CHARACTER
02132  M01S01972.1tn     +++|          LPN    77
02133  M01S01973.1tn     +++|          STD    T7
02134  M01S01974.1tn     +++|          LDD    DP+3        SET CORRECT CASE
02135  M01S01975.1tn     +++|          LPN    40
02136  M01S01976.1tn     +++|          SHN    1
02137  M01S01977.1tn     +++|          RAD    T7
02138  M01S01978.1tn     +++|          UJN    RTC         PROCESS READ CHARACTER
02139  M01S01979.1tn     +++| ARD      SPACE  4,10
02140  M01S01980.1tn     +++|**        ARD - *ASCII* TERMINAL READ.
02141  M01S01981.1tn     +++|
02142  M01S01982.1tn     +++|
02143  M01S01983.1tn     +++| ARD      MJN    ARD1        IF CHARACTER RECEIVED
02144  M01S01984.1tn     +++|          LJM    CTO         CHECK TIME OUT
02145  M01S01985.1tn     +++|
02146  M01S01986.1tn     +++| ARD1     SHN    13-12       CHECK CHARACTER STATUS
02147  M01S01987.1tn     +++|          PJN    ARD2        IF NOT LOST DATA
02148  M01S01988.1tn     +++|          LJM    DLO         PROCESS LOST DATA
02149  M01S01989.1tn     +++|
02150  M01S01990.1tn     +++| ARD2     SHN    12-0        EXTRACT CHARACTER
02151  M01S01991.1tn     +++|          LPC    177
02152  M01S01992.1tn     +++|          STD    T7
02153  M01S01993.1tn     +++|          LDD    DP+3        CHECK *FULL DUPLEX*
02154  M01S01994.1tn     +++|          SHN    21-6
02155  M01S01995.1tn     +++|          PJN    RTC         IF NOT SET
02156  M01S01996.1tn     +++|          LDI    DI          ISSUE INPUT TO OUTPUT
02157  M01S01997.1tn     +++|          LPC    4377
02158  M01S01998.1tn     +++|          STI    DO
02159  M01S01999.1tn     +++|*         UJN    RTC
02160  M01S02000.1tn     +++| RTC      SPACE  4,10
02161  M01S02001.1tn     +++|**        RTC - READ TERMINAL CHARACTER.
02162  M01S02002.1tn     +++|
02163  M01S02003.1tn     +++|
02164  M01S02004.1tn     +++| RTC      RJM    TIC         TRANSLATE INPUT CHARACTER
02165  M01S02005.1tn     +++|
02166  M01S02006.1tn     +++| RTCX     STD    T7          SET CHARACTER
02167  M01S02007.1tn     +++|          STD    CH+2        SAVE CHARACTER FOR MONITORING TERMINAL
02168  M01S02008.1tn     +++|          SHN    -7          CHECK CONTROL
02169  M01S02009.1tn     +++|          NJN    RTC6        IF SPECIAL CHARACTER
02170  M01S02010.1tn     +++|
02171  M01S02011.1tn     +++|*         ENTRY FROM *CES*.
02172  M01S02012.1tn     +++|
02173  M01S02013.1tn     +++| RTC1     LDC    4000        SET VALID DATA
02174  M01S02014.1tn     +++|          RAD    CH+2
02175  M01S02015.1tn     +++|
02176  M01S02016.1tn     +++|*         ENTRY TO STORE INPUT CHARACTER.
02177  M01S02017.1tn     +++|
02178  M01S02018.1tn     +++| RTC2     RJM    WIC         WRITE INPUT CHARACTER
02179  M01S02019.1tn     +++|          AOD    CH+1        COUNT CHARACTER
02180  M01S02020.1tn     +++|          ADC    -MXIC
02181  M01S02021.1tn     +++|          PJN    RTC4        IF LINE OVERFLOWS
02182  M01S02022.1tn     +++| RTC3     LJM    EXI4
02183  M01S02023.1tn     +++|
02184  M01S02024.1tn     +++| RTC4     ADC    -MXTC+MXIC  TERMINAL CHARACTER COUNT
02185  M01S02025.1tn     +++|          PJN    RTC5        IF LINE OVERFLOWS
02186  M01S02026.1tn     +++|          RJM    RDC
02187  M01S02027.1tn     +++|          SHN    21-4
02188  M01S02028.1tn     +++|          MJN    RTC3        IF TRANSACTION MODE
02189  M01S02029.1tn     +++| RTC5     LDC    LOFM        ISSUE OVERFLOW MESSAGE
02190  M01S02030.1tn     +++|          LJM    ITM
02191  M01S02031.1tn     +++|
02192  M01S02032.1tn     +++|*         PROCESS SPECIAL CHARACTER.
02193  M01S02033.1tn     +++|
02194  M01S02034.1tn     +++| RTC6     STD    T2          SET PROCESSOR INDEX
02195  M01S02035.1tn     +++|          LDM    TRSP-1,T2   SET PROCESSOR ADDRESS
02196  M01S02036.1tn     +++|          STD    T2
02197  M01S02037.1tn     +++|          LDD    DP+3
02198  M01S02038.1tn     +++|          LJM    0,T2
02199  M01S02039.1tn     +++|
02200  M01S02040.1tn     +++| ESC      SPACE  4,10
02201  M01S02041.1tn     +++|**        ESC - PROCESS ESCAPE CODES.
02202  M01S02042.1tn     +++|*
02203  M01S02043.1tn     +++|*         ENTRY  (T7) = CHARACTER,
02204  M01S02044.1tn     +++|
02205  M01S02045.1tn     +++|
02206  M01S02046.1tn     +++| ESC      LDD    T7          SET PROPER ESCAPE CODE
02207  M01S02047.1tn     +++|          SHN    -5
02208  M01S02048.1tn     +++|          LPN    2
02209  M01S02049.1tn     +++|          ADN    74
02210  M01S02050.1tn     +++|          STD    T7
02211  M01S02051.1tn     +++|          RJM    WIC         WRITE ESCAPE CODE
02212  M01S02052.1tn     +++|
02213  M01S02053.1tn     +++|*         ENTRY TO STORE LOWER SIX BITS OF INPUT CHARACTER.
02214  M01S02054.1tn     +++|
02215  M01S02055.1tn     +++| ESC1     LDD    CH+2        SET DISPLAY CODE
02216  M01S02056.1tn     +++|          LPC    177         PRESERVE ESCAPE BIAS
02217  M01S02057.1tn     +++|          LJM    RTCX
02218  M01S02058.1tn     +++| CES      SPACE  4,10
02219  M01S02059.1tn     +++|**        CES - CHECK ESCAPE STATUS.
02220  M01S02060.1tn     +++|*
02221  M01S02061.1tn     +++|*         ENTRY  (A) = DP+3.
02222  M01S02062.1tn     +++|*                (T7) = CHARACTER.
02223  M01S02063.1tn     +++|
02224  M01S02064.1tn     +++|
02225  M01S02065.1tn     +++| CES      LPN    6           CHECK FOR ASCII OR TRANSPARENT
02226  M01S02066.1tn     +++|          ZJN    CES1        IF NOT ASCII OR NOT TRANSPARENT
02227  M01S02067.1tn     +++|          LDD    T7          CHECK FOR COLON
02228  M01S02068.1tn     +++|          LMC    200
02229  M01S02069.1tn     +++|          NJN    ESC         IF NOT COLON
02230  M01S02070.1tn     +++|          LDN    204-200     COLON = 204 IN ASCII OR TRANSPARENT MODE
02231  M01S02071.1tn     +++|          RAD    CH+2
02232  M01S02072.1tn     +++|          UJN    ESC         ESCAPE CHARACTER INPUT
02233  M01S02073.1tn     +++|
02234  M01S02074.1tn     +++| CES1     LDD    T7
02235  M01S02075.1tn     +++|          SHN    21-6
02236  M01S02076.1tn     +++|          PJN    CES3        IF ESCAPE 2
02237  M01S02077.1tn     +++|          LDD    CH+2
02238  M01S02078.1tn     +++|          LPN    77
02239  M01S02079.1tn     +++|          ZJN    CES2        IF *7600*
02240  M01S02080.1tn     +++|          SBN    1RZ+1
02241  M01S02081.1tn     +++|          MJN    ESC1        PROCESS NORMAL CHARACTER
02242  M01S02082.1tn     +++| CES2     LJM    EXI2        IGNORE CHARACTER
02243  M01S02083.1tn     +++|
02244  M01S02084.1tn     +++| CES3     LDD    T7
02245  M01S02085.1tn     +++|          LMC    200
02246  M01S02086.1tn     +++|          NJN    CES2        IF NOT COLON
02247  M01S02087.1tn     +++|          LJM    RTC1        COLON
02248  M01S02088.1tn     +++| TRSP     SPACE  4,10
02249  M01S02089.1tn     +++|**        TRSP - TABLE OF SPECIAL READ CHARACTER PROCESSORS.
02250  M01S02090.1tn     +++|
02251  M01S02091.1tn     +++|
02252  M01S02092.1tn     +++| TRSP     BSS    0
02253  M01S02093.1tn     +++|          QUAL   TRN
02254  M01S02094.1tn     +++|          LOC    1
02255  M01S02095.1tn     +++|
02256  M01S02096.1tn     +++| CES      CON    /RDM/CES    CHECK ESCAPE STATUS
02257  M01S02097.1tn     +++| CRT      CON    /RDM/CRT    CARRIAGE RETURN
02258  M01S02098.1tn     +++| DLN      CON    /RDM/DLN    LINE DELETE
02259  M01S02099.1tn     +++| DPC      CON    /RDM/DPC    DELETE PREVIOUS CHARACTER
02260  M01S02100.1tn     +++| NLI      CON    /RDM/NLI    NULL INPUT
02261  M01S02101.1tn     +++| CSF      CON    /RDM/CSF    CASE SHIFT
02262  M01S02102.1tn     +++| ECI      CON    /RDM/ECI    ESCAPE CHARACTER INPUT
02263  M01S02103.1tn     +++| NWL      CON    /RDM/NWL    NEW LINE
02264  M01S02104.1tn     +++| EOT      CON    /RDM/EOT    EOT
02265  M01S02105.1tn     +++| BRK      CON    /RDM/BRK    BREAK
02266  M01S02106.1tn     +++| EBT      CON    /RDM/EBT    END OF BLOCK MODE TRANSMISSION
02267  M01S02107.1tn     +++| EOL      CON    /RDM/EOL    BLOCK MODE END-OF-LINE
02268  M01S02108.1tn     +++| ETX      CON    /RDM/ETX    ETX
02269  M01S02109.1tn     +++|
02270  M01S02110.1tn     +++|          LOC    *O
02271  M01S02111.1tn     +++|          NOREF  CES,NLI
02272  M01S02112.1tn     +++|          QUAL   *
02273  M01S02113.1tn     +++| CRT      SPACE  4,10
02274  M01S02114.1tn     +++|**        CRT - PROCESS CARRIAGE RETURN.
02275  M01S02115.1tn     +++|
02276  M01S02116.1tn     +++|
02277  M01S02117.1tn     +++| CRT      RETURN EXI3        ALLOW CARRIAGE RETURN
02278  M01S02118.1tn     +++|          RJM    RDC         READ VDCT TO CHECK *TAPE* MODE
02279  M01S02119.1tn     +++|          LPN    1
02280  M01S02120.1tn     +++|          ZJN    CRT1        IF NOT SET
02281  M01S02121.1tn     +++|          STI    DO          CLEAR OUTPUT
02282  M01S02122.1tn     +++|          LDD    CH+1        CHECK CHARACTER COUNT
02283  M01S02123.1tn     +++|          NJN    CRT2        IF NOT EMPTY LINE
02284  M01S02124.1tn     +++|          LJM    X3RWC       ENTER READ/WRITE CONTROL
02285  M01S02125.1tn     +++|
02286  M01S02126.1tn     +++| CRT1     LDD    DP+3        TOGGLE ON ODD PARITY
02287  M01S02127.1tn     +++|          LPN    1
02288  M01S02128.1tn     +++|          LMC    .ALF        ISSUE LINE FEED
02289  M01S02129.1tn     +++|          STI    DO
02290  M01S02130.1tn     +++|
02291  M01S02131.1tn     +++|*         ENTRY TO ISSUE NEW LINE.
02292  M01S02132.1tn     +++|
02293  M01S02133.1tn     +++| CRT2     LDC    .INL+4000   ISSUE NEW LINE TO MONITOR
02294  M01S02134.1tn     +++|          STD    CH+2
02295  M01S02135.1tn     +++|*         UJN    EIL
02296  M01S02136.1tn     +++| EIL      SPACE  4,10
02297  M01S02137.1tn     +++|**        EIL - END OF INPUT LINE.
02298  M01S02138.1tn     +++|
02299  M01S02139.1tn     +++|
02300  M01S02140.1tn     +++| EIL      LDD    DP+2        SET ZERO BYTE TERMINATOR
02301  M01S02141.1tn     +++|          LPN    1
02302  M01S02142.1tn     +++|          NJN    EIL1        IF LOWER CHARACTER
02303  M01S02143.1tn     +++|          LDD    MA          SAVE POINTER WORD
02304  M01S02144.1tn     +++|          CWD    DP
02305  M01S02145.1tn     +++|          RJM    RPC         READ PRECEDING CHARACTER
02306  M01S02146.1tn     +++|          STD    T7
02307  M01S02147.1tn     +++|          LDD    MA          RESTORE POINTER WORD
02308  M01S02148.1tn     +++|          CRD    DP
02309  M01S02149.1tn     +++|          LDD    T7          CHECK PRECEDING CHARACTER
02310  M01S02150.1tn     +++|          NJN    EIL3        IF NOT COLON
02311  M01S02151.1tn     +++|          LDN    1R          ENTER BLANK
02312  M01S02152.1tn     +++|          STD    T7
02313  M01S02153.1tn     +++|          RJM    WIC
02314  M01S02154.1tn     +++| EIL1     LDD    DP+3        CHECK FOR TRANSPARENT MODE
02315  M01S02155.1tn     +++|          LPN    4
02316  M01S02156.1tn     +++|          ZJN    EIL2        IF NOT TRANSPARENT MODE
02317  M01S02157.1tn     +++|          LDN    1R
02318  M01S02158.1tn     +++| EIL2     LMN    1R
02319  M01S02159.1tn     +++|          STD    T7
02320  M01S02160.1tn     +++|          RJM    WIC
02321  M01S02161.1tn     +++| EIL3     LDN    0           ENTER END OF LINE
02322  M01S02162.1tn     +++|          STD    T7
02323  M01S02163.1tn     +++|          RJM    WIC
02324  M01S02164.1tn     +++|          LDD    DP+3        CLEAR *TRANSPARENT* MODE
02325  M01S02165.1tn     +++|          SCN    4
02326  M01S02166.1tn     +++|          STD    DP+3
02327  M01S02167.1tn     +++|
02328  M01S02168.1tn     +++|*         COMPLETE END OF LINE PROCESSING.
02329  M01S02169.1tn     +++|
02330  M01S02170.1tn     +++|          RETURN EXI3
02331  M01S02171.1tn     +++|          LDD    CH+1        ADVANCE INPUT CHARACTER COUNT
02332  M01S02172.1tn     +++|          RAD    CH+3
02333  M01S02173.1tn     +++|          SHN    -14
02334  M01S02174.1tn     +++|          ZJN    EIL4        IF NO OVERFLOW
02335  M01S02175.1tn     +++|          STD    RQ+2
02336  M01S02176.1tn     +++|          LDN    /TLX/IAM    REQUEST ISSUE ACCOUNTING MESSAGE
02337  M01S02177.1tn     +++|          RJM    ERQ
02338  M01S02178.1tn     +++| EIL4     STI    DO
02339  M01S02179.1tn     +++|          STD    CH+2
02340  M01S02180.1tn     +++|          RJM    RDC         READ VDCT TO CHECK READ OPERATION
02341  M01S02181.1tn     +++|          SHN    21-6
02342  M01S02182.1tn     +++|          MJN    CLI         IF *READ DATA*, PROCESS AS COMMAND
02343  M01S02183.1tn     +++|          SHN    6-4
02344  M01S02184.1tn     +++|          MJN    CLI         IF *TRANSACTION MODE*, PROCESS AS COMMAND
02345  M01S02185.1tn     +++|          SHN    4-2
02346  M01S02186.1tn     +++|          MJN    EIL5        IF *TEXT MODE*, PROCESS AS SOURCE
02347  M01S02187.1tn     +++|          LDD    DP+2        READ FIRST WORD OF LINE
02348  M01S02188.1tn     +++|          LPC    7000
02349  M01S02189.1tn     +++|          SHN    6
02350  M01S02190.1tn     +++|          ADD    DP
02351  M01S02191.1tn     +++|          SHN    3
02352  M01S02192.1tn     +++|          ADCBM
02353  M01S02193.1tn     +++|          CRD    CM
02354  M01S02194.1tn     +++|          LDD    CM          CHECK FIRST CHARACTER
02355  M01S02195.1tn     +++|          SHN    -6
02356  M01S02196.1tn     +++|          SBN    1R0
02357  M01S02197.1tn     +++|          MJN    CLI         IF NOT DIGIT
02358  M01S02198.1tn     +++|          SBN    1R9+1-1R0
02359  M01S02199.1tn     +++| EIL5     MJN    SLI         IF DIGIT
02360  M01S02200.1tn     +++| CLI      SPACE  4,10
02361  M01S02201.1tn     +++|**        CLI - PROCESS COMMAND LINE INPUT.
02362  M01S02202.1tn     +++|
02363  M01S02203.1tn     +++|
02364  M01S02204.1tn     +++| CLI      LDD    DP          SET FIRST POT OF LINE
02365  M01S02205.1tn     +++|          STD    RQ+3
02366  M01S02206.1tn     +++|          LDD    DP+2        SET FIRST WORD
02367  M01S02207.1tn     +++|          SHN    -11
02368  M01S02208.1tn     +++|          STD    RQ+2
02369  M01S02209.1tn     +++|          LDN    /TLX/CLI    REQUEST COMMAND LINE INPUT
02370  M01S02210.1tn     +++|          RJM    ERQ
02371  M01S02211.1tn     +++|          STD    DP          CLEAR FIRST POT
02372  M01S02212.1tn     +++|          STD    DP+1        CLEAR CURRENT POT
02373  M01S02213.1tn     +++|          LDN    3           SET DELAY
02374  M01S02214.1tn     +++|          RJM    WTO         WAIT TIME OUT
02375  M01S02215.1tn     +++|          LDN    /CTL/ECL    LOCATE COMMAND LINE PROCESSOR
02376  M01S02216.1tn     +++|          UJN    SLI2
02377  M01S02217.1tn     +++| SLI      SPACE  4,10
02378  M01S02218.1tn     +++|**        SLI - SOURCE LINE INPUT.
02379  M01S02219.1tn     +++|*
02380  M01S02220.1tn     +++|*         ENTRY  (DC - DC+4) = *VDCT* WORD.
02381  M01S02221.1tn     +++|
02382  M01S02222.1tn     +++|
02383  M01S02223.1tn     +++| SLI      LDD    DP+2        FIRST WORD = CURRENT WORD
02384  M01S02224.1tn     +++|          LPC    360         SAVE POT REQUESTED FLAG
02385  M01S02225.1tn     +++|          LMC    400         SET *INPUT INITIATED*
02386  M01S02226.1tn     +++|          STD    DP+2
02387  M01S02227.1tn     +++|          SHN    5
02388  M01S02228.1tn     +++|          RAD    DP+2
02389  M01S02229.1tn     +++|          LDD    DP          CHECK CURRENT POT
02390  M01S02230.1tn     +++|          STD    RQ+3
02391  M01S02231.1tn     +++|          LMD    DP+1
02392  M01S02232.1tn     +++|          ZJN    SLI1        IF CURRENT POT = FIRST POT
02393  M01S02233.1tn     +++|          LDD    DP+1        FIRST POT = CURRENT POT
02394  M01S02234.1tn     +++|          STD    DP
02395  M01S02235.1tn     +++|          STD    RQ+2
02396  M01S02236.1tn     +++|          LDN    /TLX/RIN    REQUEST RELEASE INPUT
02397  M01S02237.1tn     +++|          RJM    ERQ
02398  M01S02238.1tn     +++| SLI1     STD    RQ+3
02399  M01S02239.1tn     +++|          LDN    /CTL/ESL    LOCATE SOURCE LINE PROCESSOR
02400  M01S02240.1tn     +++| SLI2     RJM    SCA
02401  M01S02241.1tn     +++|          LJM    EXI3        ENTER LINE PROCESSOR
02402  M01S02242.1tn     +++|          TITLE  READ MODE - SPECIAL CHARACTER PROCESSORS.
02403  M01S02243.1tn     +++| ACL      SPACE  4,10
02404  M01S02244.1tn     +++|**        ACL - END OF COMMAND LINE.
02405  M01S02245.1tn     +++|*
02406  M01S02246.1tn     +++|*         ISSUE LINE-FEED IF IN TAPE MODE.
02407  M01S02247.1tn     +++|
02408  M01S02248.1tn     +++|
02409  M01S02249.1tn     +++| ACL      BSS    0           ENTRY
02410  M01S02250.1tn     +++|          RJM    RDC         READ *VDCT*
02411  M01S02251.1tn     +++|          LPN    1
02412  M01S02252.1tn     +++|          ZJN    ACL2        IF NOT *TAPE* MODE
02413  M01S02253.1tn     +++|          LDD    DP+3        TOGGLE ON ODD PARITY
02414  M01S02254.1tn     +++|          LPN    1
02415  M01S02255.1tn     +++|          LMC    .ALF        ISSUE LINE-FEED
02416  M01S02256.1tn     +++| ACL1     STI    DO          SET OUTPUT CHARACTER
02417  M01S02257.1tn     +++|          RETURN EXI1
02418  M01S02258.1tn     +++| ACL2     LDN    0
02419  M01S02259.1tn     +++|          STI    DO
02420  M01S02260.1tn     +++|          STD    CH+1        ZERO CHARACTER COUNT
02421  M01S02261.1tn     +++|
02422  M01S02262.1tn     +++| X3RWC    RETURN EXI3,RWC    ENTER READ/WRITE CONTROL
02423  M01S02263.1tn     +++| ASL      SPACE  4,10
02424  M01S02264.1tn     +++|**        ASL - END OF SOURCE LINE.
02425  M01S02265.1tn     +++|
02426  M01S02266.1tn     +++|
02427  M01S02267.1tn     +++| ASL      LDD    SM          CHECK STIMULATOR STATUS
02428  M01S02268.1tn     +++|          ZJN    ASL1        IF NOT STIMULATOR
02429  M01S02269.1tn     +++|          LDC    .IISI       ISSUE *INITIATE STIMULATOR INPUT*
02430  M01S02270.1tn     +++|          STI    DO
02431  M01S02271.1tn     +++|          RETURN EXI1
02432  M01S02272.1tn     +++| ASL1     LDN    0           CLEAR OUTPUT
02433  M01S02273.1tn     +++|          STI    DO
02434  M01S02274.1tn     +++|          STD    CH+1        ZERO CHARACTER COUNT
02435  M01S02275.1tn     +++|          RETURN EXI3,ARD
02436  M01S02276.1tn     +++| BRK      SPACE  4,10
02437  M01S02277.1tn     +++|**        BRK - PROCESS BREAK.
02438  M01S02278.1tn     +++|
02439  M01S02279.1tn     +++|
02440  M01S02280.1tn     +++| BRK      RJM    RDC         READ VDCT
02441  M01S02281.1tn     +++|          LPN    1
02442  M01S02282.1tn     +++|          ZJN    BRK1        IF NOT TAPE MODE
02443  M01S02283.1tn     +++|          RETURN EXI1,RDM    IGNORE IF TAPE MODE
02444  M01S02284.1tn     +++|
02445  M01S02285.1tn     +++| BRK1     LDN    100D/MNCT+1 START TIMER FOR BREAK
02446  M01S02286.1tn     +++|          STI    DO
02447  M01S02287.1tn     +++| BRK2     RETURN EXI3
02448  M01S02288.1tn     +++|          MJN    BRK1        IF BREAK STILL IN PROGRESS
02449  M01S02289.1tn     +++|          SOI    DO
02450  M01S02290.1tn     +++|          NJN    BRK2        IF NOT TIMED OUT
02451  M01S02291.1tn     +++|          LDD    CH+1        CHECK INPUT LINE
02452  M01S02292.1tn     +++|          NJN    BRK4        IF LINE NOT EMPTY
02453  M01S02293.1tn     +++|
02454  M01S02294.1tn     +++|*         PROCESS EMPTY INPUT LINE.
02455  M01S02295.1tn     +++|
02456  M01S02296.1tn     +++|          RJM    RDC         READ VDCT
02457  M01S02297.1tn     +++|          LPN    4
02458  M01S02298.1tn     +++|          ZJN    BRK3        IF NOT TEXT MODE
02459  M01S02299.1tn     +++|          LJM    ETX2        EXIT TEXT MODE
02460  M01S02300.1tn     +++|
02461  M01S02301.1tn     +++|*         INTERRUPT JOB IF ACTIVE.
02462  M01S02302.1tn     +++|
02463  M01S02303.1tn     +++| BRK3     TTADD  VROT        CHECK ACTIVITY
02464  M01S02304.1tn     +++|          CRD    CM
02465  M01S02305.1tn     +++|          LDD    CM+4
02466  M01S02306.1tn     +++|          LMN    3
02467  M01S02307.1tn     +++|          ZJN    BRK5        IF NO ACTIVITY
02468  M01S02308.1tn     +++|          LJM    /CTL/INT    INTERRUPT JOB
02469  M01S02309.1tn     +++|
02470  M01S02310.1tn     +++|*         PROCESS NON-EMPTY INPUT LINE.
02471  M01S02311.1tn     +++|
02472  M01S02312.1tn     +++| BRK4     LDD    DP+3        CHECK MODE
02473  M01S02313.1tn     +++|          LPN    4
02474  M01S02314.1tn     +++|          NJN    BRK6        IF TRANSPARENT MODE
Line S02315 Modification History
M01 (Added by) 1tn
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02475  M02S02315.242l642 ---| BRK5     LDN    DELM        ISSUE *DEL*
Line S00002 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02476  M02S00002.ns2394  ---| BRK5     LDD    DC          CHECK FOR AUTO MODE
Line S00003 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02477  M02S00003.ns2394  ---|          SHN    21-1
Line S00004 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02478  M02S00004.ns2394  ---|          PJN    BRK5.1      IF NOT AUTO MODE
Line S00005 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02479  M02S00005.ns2394  ---|          TTADD  VDCT        READ *VDCT*
Line S00006 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02480  M02S00006.ns2394  ---|          CRD    CM
Line S00007 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02481  M02S00007.ns2394  ---|          LDN    1           SET CANCEL AUTO LINE
Line S00008 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02482  M02S00008.ns2394  ---|          SHN    5
Line S00009 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02483  M02S00009.ns2394  ---|          RAD    CM
Line S00010 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02484  M02S00010.ns2394  ---|          TTADD  VDCT
Line S00011 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02485  M02S00011.ns2394  ---|          CWD    CM
Line S00012 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2394
Seq #  *Modification Id* Act 
----------------------------+
02486  M02S00012.ns2394  ---| BRK5.1   LDN    DELM        SET *DEL* MESSAGE
02487  M01S00001.ns2394  +++| BRK5     LDN    DELM        SET *DEL* MESSAGE
02488  M01S02316.1tn     +++|          LJM    ITM
02489  M01S02317.1tn     +++|
02490  M01S02318.1tn     +++|*         ENTER TRANSPARENT MODE DATA.
02491  M01S02319.1tn     +++|
02492  M01S02320.1tn     +++| BRK6     LDN    76          STORE ESCAPE
02493  M01S02321.1tn     +++|          STD    T7
02494  M01S02322.1tn     +++|          RJM    WIC
02495  M01S02323.1tn     +++|          LDN    /CTL/IPC    DETERMINE TRANSLATION
02496  M01S02324.1tn     +++|          RJM    SCA
02497  M01S02325.1tn     +++|          SHN    -6
02498  M01S02326.1tn     +++|          LMN    71
02499  M01S02327.1tn     +++|          ZJN    BRK7        IF NEW TRANSLATION TABLE
02500  M01S02328.1tn     +++|          LDN    55&40
02501  M01S02329.1tn     +++| BRK7     LMN    40
02502  M01S02330.1tn     +++|          STD    T7          STORE DISPLAY CODE
02503  M01S02331.1tn     +++|          RJM    WIC
02504  M01S02332.1tn     +++|          RETURN EXI3,EIL
02505  M01S02333.1tn     +++| CCL      SPACE  4,10
02506  M01S02334.1tn     +++|**        CCL - END OF COMMAND LINE.
02507  M01S02335.1tn     +++|
02508  M01S02336.1tn     +++|
02509  M01S02337.1tn     +++| CCL      LDC    .CIL        ISSUE *IL*
02510  M01S02338.1tn     +++|          STI    DO
02511  M01S02339.1tn     +++|          LDD    CH+1        REPEAT COUNT = CHARACTER COUNT/8
02512  M01S02340.1tn     +++|          SHN    -3
02513  M01S02341.1tn     +++|          RJM    /WTM/SRC    SEND REPEATED CHARACTER
02514  M01S02342.1tn     +++|          LDC    .CEOA       ISSUE *EOA* TO ENABLE OUTPUT
02515  M01S02343.1tn     +++|          LJM    ACL1
02516  M01S02344.1tn     +++| CSF      SPACE  4,10
02517  M01S02345.1tn     +++|**        CSF - PROCESS CASE SHIFT.
02518  M01S02346.1tn     +++|*
02519  M01S02347.1tn     +++|*         ENTRY  (A) = (DP+3).
02520  M01S02348.1tn     +++|
02521  M01S02349.1tn     +++|
02522  M01S02350.1tn     +++| CSF      LMD    CH+2        SET NEW CASE
02523  M01S02351.1tn     +++|          SCN    40
02524  M01S02352.1tn     +++|          LMD    CH+2
02525  M01S02353.1tn     +++|          STD    DP+3
02526  M01S02354.1tn     +++|          LJM    EXI2
02527  M01S02355.1tn     +++| CSL      SPACE  4,10
02528  M01S02356.1tn     +++|**        CSL - END OF SOURCE LINE.
02529  M01S02357.1tn     +++|
02530  M01S02358.1tn     +++|
02531  M01S02359.1tn     +++| CSL      LDC    .CIL        ISSUE *IL*
02532  M01S02360.1tn     +++|          STI    DO
02533  M01S02361.1tn     +++|          LDD    CH+1        REPEAT COUNT = CHARACTER COUNT/8
02534  M01S02362.1tn     +++|          SHN    -3
02535  M01S02363.1tn     +++|          RJM    /WTM/SRC    SEND REPEATED CHARACTER
02536  M01S02364.1tn     +++|          TTADD  VCHT
02537  M01S02365.1tn     +++|          CWD    CH          REWRITE ZERO OUT CH+1
02538  M01S02366.1tn     +++|          LJM    CRD1        REENABLE INPUT
02539  M01S02367.1tn     +++| DLN      SPACE  4,10
02540  M01S02368.1tn     +++|**        DLN - PROCESS DELETE LINE.
02541  M01S02369.1tn     +++|*
02542  M01S02370.1tn     +++|*         ENTRY  (A) = DP+3.
02543  M01S02371.1tn     +++|
02544  M01S02372.1tn     +++|
02545  M01S02373.1tn     +++| DLN      LPN    4           CHECK *TRANSPARENT MODE*
02546  M01S02374.1tn     +++|          NJN    DLN1        IF SET
02547  M01S02375.1tn     +++|          STI    DO          SUPPRESS DUPLEX ECHO-BACK
02548  M01S02376.1tn     +++|          LJM    BRK5
02549  M01S02377.1tn     +++|
02550  M01S02378.1tn     +++| DLN1     LJM    ESC         ENTER CHARACTER
02551  M01S02379.1tn     +++| DPC      SPACE  4,10
02552  M01S02380.1tn     +++|**        DPC - DELETE PRECEEDING CHARACTER.
02553  M01S02381.1tn     +++|*
02554  M01S02382.1tn     +++|*         ENTRY  (A) = DP+3.
02555  M01S02383.1tn     +++|
02556  M01S02384.1tn     +++|
02557  M01S02385.1tn     +++| DPC      LPN    4           CHECK *TRANSPARENT MODE*
02558  M01S02386.1tn     +++|          NJN    DLN1        IF SET
02559  M01S02387.1tn     +++|          SOD    CH+1
02560  M01S02388.1tn     +++|          PJN    DPC1        IF NOT START OF LINE
02561  M01S02389.1tn     +++|          LDN    0
02562  M01S02390.1tn     +++|          STD    CH+1
02563  M01S02391.1tn     +++|          LJM    EXI4
02564  M01S02392.1tn     +++|
02565  M01S02393.1tn     +++| DPC1     RJM    BUP         BACK UP POINTERS
02566  M01S02394.1tn     +++|          LDD    CH+2        SET CHARACTER FOR MONITORING TERMINAL
02567  M01S02395.1tn     +++|          LPC    377
02568  M01S02396.1tn     +++|          ADC    4000
02569  M01S02397.1tn     +++|          STD    CH+2
02570  M01S02398.1tn     +++|          LDD    DP+2        CHECK CHARACTER NUMBER
02571  M01S02399.1tn     +++|          SHN    21
02572  M01S02400.1tn     +++|          PJN    DPC2        IF UPPER CHRACTER
02573  M01S02401.1tn     +++|          LPN    7           SET BYTE
02574  M01S02402.1tn     +++|          STD    T5
02575  M01S02403.1tn     +++|          RJM    SWA         SET WORD ADDRESS
02576  M01S02404.1tn     +++|          CRD    T0          READ WORD
02577  M01S02405.1tn     +++|          LDI    T5          EXTRACT UPPER CHARACTER
02578  M01S02406.1tn     +++|          SCN    77
02579  M01S02407.1tn     +++|          STD    CH
02580  M01S02408.1tn     +++|          LDN    0           CLEAR BYTE
02581  M01S02409.1tn     +++|          STI    T5
02582  M01S02410.1tn     +++|          RJM    SWA         SET WORD ADDRESS
02583  M01S02411.1tn     +++|          CWD    T0          STORE WORD
02584  M01S02412.1tn     +++| DPC2     LDD    DP+3        CHECK ASCII
02585  M01S02413.1tn     +++|          LPN    6
02586  M01S02414.1tn     +++|          ZJN    DPC4        IF NOT SET
02587  M01S02415.1tn     +++|          LDD    MA          SAVE POINTER WORD
02588  M01S02416.1tn     +++|          CWD    DP
02589  M01S02417.1tn     +++|          RJM    RPC         READ PREVIOUS CHARACTER
02590  M01S02418.1tn     +++|          SBN    74
02591  M01S02419.1tn     +++|          MJN    DPC3        IF NOT ESCAPE
02592  M01S02420.1tn     +++|          ZJN    DPC5        IF ESCAPE 2
02593  M01S02421.1tn     +++|          SBN    76-74
02594  M01S02422.1tn     +++|          ZJN    DPC5        IF ESCAPE 1
02595  M01S02423.1tn     +++| DPC3     LDD    MA          RESTORE POINTER WORD
02596  M01S02424.1tn     +++|          CRD    DP
02597  M01S02425.1tn     +++| DPC4     LJM    EXI4
02598  M01S02426.1tn     +++|
02599  M01S02427.1tn     +++| DPC5     LDD    DP+2        CHECK CHARACTER NUMBER
02600  M01S02428.1tn     +++|          SHN    21
02601  M01S02429.1tn     +++|          PJN    DPC4        IF UPPER CHARACTER
02602  M01S02430.1tn     +++|          LDI    T5          EXTRACT UPPER CHARACTER
02603  M01S02431.1tn     +++|          SCN    77
02604  M01S02432.1tn     +++|          STD    CH
02605  M01S02433.1tn     +++|          LDN    0           CLEAR BYTE
02606  M01S02434.1tn     +++|          STI    T5
02607  M01S02435.1tn     +++|          RJM    SWA         SET WORD ADDRESS
02608  M01S02436.1tn     +++|          CWD    T0          STORE WORD
02609  M01S02437.1tn     +++|          UJN    DPC4
02610  M01S02438.1tn     +++| EBT      SPACE  4,10,20
02611  M01S02439.1tn     +++|**        EBT - END OF BLOCK MODE TRANSMISSION.
02612  M01S02440.1tn     +++|*
02613  M01S02441.1tn     +++|*         PROCESS *EOT* CODE TERMINATOR OF BLOCK EDIT MODE
02614  M01S02442.1tn     +++|*         TERMINAL BUFFER TRANSMISSION.  IF THE LINE IS NOT
02615  M01S02443.1tn     +++|*         EMPTY, A CARRIAGE RETURN WILL BE TRANSMITTED TO THE
02616  M01S02444.1tn     +++|*         TERMINAL AND THE LINE WILL BE PROCESSED LIKE A CARRIAGE
02617  M01S02445.1tn     +++|*         RETURN.  IF THE LINE IS EMPTY, THE *EOT* CHARACTER
02618  M01S02446.1tn     +++|*         WILL BE IGNORED.
02619  M01S02447.1tn     +++|*
02620  M01S02448.1tn     +++|*         ENTRY  (CH+1) = LINE CHARACTER COUNT.
02621  M01S02449.1tn     +++|*
02622  M01S02450.1tn     +++|*         EXIT   TO *CRT* AFTER ISSUING CARRIAGE RETURN IF LINE
02623  M01S02451.1tn     +++|*                IS NOT EMPTY.
02624  M01S02452.1tn     +++|*
02625  M01S02453.1tn     +++|*                TO *MGR* IF LINE IS EMPTY.
02626  M01S02454.1tn     +++|
02627  M01S02455.1tn     +++|
02628  M01S02456.1tn     +++| EBT      BSS    0           ENTRY
02629  M01S02457.1tn     +++|          LDD    CH+1        CHECK LINE CHARACTER COUNT
02630  M01S02458.1tn     +++|          ZJN    EBT1        IF ZERO-LENGTH LINE
02631  M01S02459.1tn     +++|          LDD    DP+3        TOGGLE ON ODD PARITY
02632  M01S02460.1tn     +++|          LPN    1
02633  M01S02461.1tn     +++|          LMC    .ACR        ISSUE CARRIAGE RETURN
02634  M01S02462.1tn     +++|          STI    DO
02635  M01S02463.1tn     +++|          RETURN EXI3,CRT    PROCESS CARRIAGE RETURN
02636  M01S02464.1tn     +++|
02637  M01S02465.1tn     +++| EBT1     LJM    MGR         IGNORE CHARACTER
02638  M01S02466.1tn     +++| ECI      SPACE  4,10,10
02639  M01S02467.1tn     +++|**        ECI - ESCAPE CHARACTER INPUT.
02640  M01S02468.1tn     +++|*
02641  M01S02469.1tn     +++|*         DIRECTS PROCESSING OF *74* AND *76* INPUT CHARACTERS.
02642  M01S02470.1tn     +++|*         IF IN EXTENDED OR TRANSPARENT MODE, THE *74* CODE IS
02643  M01S02471.1tn     +++|*         STORED AS  *7401* AND THE *76* CODE IS STORED AS
02644  M01S02472.1tn     +++|*         *7402*.
02645  M01S02473.1tn     +++|*
02646  M01S02474.1tn     +++|*         ENTRY  (A) = DP+3.
02647  M01S02475.1tn     +++|
02648  M01S02476.1tn     +++|
02649  M01S02477.1tn     +++| ECI      LPN    6           CHECK MODE
02650  M01S02478.1tn     +++|          ZJN    ECI1        IF NEITHER EXTENDED NOR TRANSPARENT
02651  M01S02479.1tn     +++|          LJM    ESC
02652  M01S02480.1tn     +++|
02653  M01S02481.1tn     +++| ECI1     LDD    T7          CONVERT TO SINGLE DISPLAY CODE
02654  M01S02482.1tn     +++|          LPN    3
02655  M01S02483.1tn     +++|          SHN    1
02656  M01S02484.1tn     +++|          ADN    72
02657  M01S02485.1tn     +++|          STD    T7
02658  M01S02486.1tn     +++|          LJM    RTC2        REENTER READ PROCESSOR
02659  M01S02487.1tn     +++| EOL      SPACE  4,10,10
02660  M01S02488.1tn     +++|**        EOL - BLOCK MODE END-OF-LINE.
02661  M01S02489.1tn     +++|*
02662  M01S02490.1tn     +++|*         ENTERS CARRIAGE RETURN PROCESSING WITHOUT ISSUING
02663  M01S02491.1tn     +++|*         LINE-FEED.
02664  M01S02492.1tn     +++|*
02665  M01S02493.1tn     +++|*         EXIT   TO *CRT2*.
02666  M01S02494.1tn     +++|
02667  M01S02495.1tn     +++|
02668  M01S02496.1tn     +++| EOL      EQU    CRT2        ALTERNATE ENTRY POINT
02669  M01S02497.1tn     +++| EOT      SPACE  4,10
02670  M01S02498.1tn     +++|**        EOT - END OF TRANSMISSION.
02671  M01S02499.1tn     +++|
02672  M01S02500.1tn     +++|
02673  M01S02501.1tn     +++| EOT      LDD    CH+1        CHECK INPUT LINE
02674  M01S02502.1tn     +++|          ZJN    EOT1        IF NO CHARACTER, ISSUE .CEOA FOR *INT*
02675  M01S02503.1tn     +++|          LDD    DP+3
02676  M01S02504.1tn     +++|          LPN    4
02677  M01S02505.1tn     +++|          NJN    EOT2        IF TRANSPARENT MODE,AVOID DOUBLE .CEOA
02678  M01S02506.1tn     +++| EOT1     LDC    .CEOA
02679  M01S02507.1tn     +++|          STI    DO
02680  M01S02508.1tn     +++| EOT2     RETURN EXI3
02681  M01S02509.1tn     +++|          RETURN EXI6,BRK1   PROCESS AS BREAK CHARACTER
02682  M01S02510.1tn     +++| ETX      SPACE  4,10,10
02683  M01S02511.1tn     +++|**        ETX - END OF TEXT.
02684  M01S02512.1tn     +++|
02685  M01S02513.1tn     +++|
02686  M01S02514.1tn     +++| ETX      LDD    CH+1        CHECK INPUT LINE
02687  M01S02515.1tn     +++|          NJN    ETX1        IF LINE NOT EMPTY
02688  M01S02516.1tn     +++|          RJM    RDC         READ VDCT
02689  M01S02517.1tn     +++|          LPN    4
02690  M01S02518.1tn     +++|          NJN    ETX2        IF TEXT MODE
02691  M01S02519.1tn     +++| ETX1     LDD    DP+3
02692  M01S02520.1tn     +++|          LJM    CES         CHECK ESCAPE STATUS
02693  M01S02521.1tn     +++|
02694  M01S02522.1tn     +++| ETX2     LDD    DP+1        POT TO BE DUMPED IF NOT EMPTY
02695  M01S02523.1tn     +++|          STD    RQ+3
02696  M01S02524.1tn     +++|          LDD    DP+2        EXTRACT WORD COUNT OF POT
02697  M01S02525.1tn     +++|          SHN    -4
02698  M01S02526.1tn     +++|          LPN    7
02699  M01S02527.1tn     +++|          STD    RQ+2
02700  M01S02528.1tn     +++|          LDN    /TLX/ETX    EXIT TEXT MODE REQUEST
02701  M01S02529.1tn     +++|          RJM    ERQ
02702  M01S02530.1tn     +++|          STD    DP          CLEAR FIRST POT POINTER
02703  M01S02531.1tn     +++|          STD    DP+1        CLEAR CURRENT POT POINTER
02704  M01S02532.1tn     +++|          STD    DP+2        CLEAR POSITION WITHIN CURRENT POT
02705  M01S02533.1tn     +++|          LDD    DC          CLEAR INPUT REQUESTED, TEXT MODE
02706  M01S02534.1tn     +++|          LPC    7373
02707  M01S02535.1tn     +++|          STD    DC
02708  M01S02536.1tn     +++|          RETURN EXI5,RWC    ENTER READ/WRITE CONTROL
02709  M01S02537.1tn     +++| NLI      SPACE  4,10
02710  M01S02538.1tn     +++|**        NLI - PROCESS NULL INPUT.
02711  M01S02539.1tn     +++|*
02712  M01S02540.1tn     +++|*         ENTRY  (A) = DP+3.
02713  M01S02541.1tn     +++|
02714  M01S02542.1tn     +++|
02715  M01S02543.1tn     +++| NLI      LPN    4           CHECK *TRANSPARENT MODE*
02716  M01S02544.1tn     +++|          ZJN    NLI1        IF NOT SET
02717  M01S02545.1tn     +++|          LDD    CH+2
02718  M01S02546.1tn     +++|          LPC    177
02719  M01S02547.1tn     +++|          ZJN    NLI1        IF NO CHARACTER DEFINED
02720  M01S02548.1tn     +++|          STD    T7          ENTER CHARACTER
02721  M01S02549.1tn     +++|          SHN    21-6        CHECK FOR ESCAPE 2
02722  M01S02550.1tn     +++|          MJN    NLI2        IF ESCAPE 2
02723  M01S02551.1tn     +++|          LJM    RTC2
02724  M01S02552.1tn     +++|
02725  M01S02553.1tn     +++| NLI1     LJM    MGR         IGNORE CHARACTER
02726  M01S02554.1tn     +++|
02727  M01S02555.1tn     +++| NLI2     LJM    ESC         ENTER ESCAPE CHARACTER
02728  M01S02556.1tn     +++| NWL      SPACE  4,10
02729  M01S02557.1tn     +++|**        NWL - NEW LINE.
02730  M01S02558.1tn     +++|*
02731  M01S02559.1tn     +++|*         WAIT FOR *EOT* FROM TERMINAL.
02732  M01S02560.1tn     +++|
02733  M01S02561.1tn     +++|
02734  M01S02562.1tn     +++| NWL      RETURN EXI1
02735  M01S02563.1tn     +++|          MJN    NWL1        IF INPUT RECEIVED
02736  M01S02564.1tn     +++|          LJM    CTO
02737  M01S02565.1tn     +++|
02738  M01S02566.1tn     +++| NWL1     LDD    DP+3        CLEAR UPPER CASE
02739  M01S02567.1tn     +++|          SCN    40
02740  M01S02568.1tn     +++|          STD    DP+3
02741  M01S02569.1tn     +++|          LJM    CRT2        PROCESS END OF LINE
02742  M01S02570.1tn     +++|          TITLE  READ MODE - SUBROUTINES.
02743  M01S02571.1tn     +++| ITM      SPACE  4,10
02744  M01S02572.1tn     +++|**        ITM - ISSUE TERMINAL MESSAGE.
02745  M01S02573.1tn     +++|*
02746  M01S02574.1tn     +++|*         ISSUES MESSAGE TO TERMINAL.
02747  M01S02575.1tn     +++|*
02748  M01S02576.1tn     +++|*         ENTRY  (A) = ADDRESS OF FORMATTED MESSAGE.
02749  M01S02577.1tn     +++|*
02750  M01S02578.1tn     +++|*         USES   (DP+1) = MESSAGE ADDRESS POINTER.
02751  M01S02579.1tn     +++|*                (DP+2) = MESSAGE BYTE POINTER.
02752  M01S02580.1tn     +++|
02753  M01S02581.1tn     +++|
02754  M01S02582.1tn     +++| ITM      ADC    7700        SET MESSAGE PSEUDO-POT POINTER
02755  M01S02583.1tn     +++|          STD    DP+1
02756  M01S02584.1tn     +++|          LDD    DP+2        CLEAR BYTE POINTER
02757  M01S02585.1tn     +++|          LPC    7600
02758  M01S02586.1tn     +++|          STD    DP+2
02759  M01S02587.1tn     +++|          LDN    0           CLEAR OUTPUT CONTROL
02760  M01S02588.1tn     +++|          STD    CH+2
02761  M01S02589.1tn     +++|          LJM    /WTM/WTM4   INITIATE MESSAGE
02762  M01S02590.1tn     +++|
02763  M01S02591.1tn     +++|
02764  M01S02592.1tn     +++|*         ENTERED HERE FROM SUBROUTINE *ROC* TO EXTRACT NEXT
02765  M01S02593.1tn     +++|*         MESSAGE CHARACTER TO BE RETURNED TO WRITE PROCESSOR.
02766  M01S02594.1tn     +++|
02767  M01S02595.1tn     +++| ITM1     LDM    ITMA-7700,DP+1  GET NEXT CHARACTER
02768  M01S02596.1tn     +++|          STD    T7
02769  M01S02597.1tn     +++|          LDD    DP+2        TOGGLE BYTE INDEX
02770  M01S02598.1tn     +++|          LMN    1
02771  M01S02599.1tn     +++|          STD    DP+2
02772  M01S02600.1tn     +++|          LPN    1
02773  M01S02601.1tn     +++|          NJN    ITM2        IF UPPER CHARACTER
02774  M01S02602.1tn     +++|          AOD    DP+1        INCREMENT MESSAGE ADDRESS
02775  M01S02603.1tn     +++|          LDD    T7
02776  M01S02604.1tn     +++|          LPN    77          EXTRACT LOWER CHARACTER
02777  M01S02605.1tn     +++|          UJN    ITM3
02778  M01S02606.1tn     +++|
02779  M01S02607.1tn     +++| ITM2     LDD    T7          EXTRACT UPPER CHARACTER
02780  M01S02608.1tn     +++|          SHN    -6
02781  M01S02609.1tn     +++| ITM3     STD    T7          SET CHARACTER
02782  M01S02610.1tn     +++|          ZJN    ITM4        IF END OF MESSAGE
02783  M01S02611.1tn     +++|          SOD    CH+4        PREVENT CHARACTER COUNT ON MESSAGE
02784  M01S02612.1tn     +++|          LDD    T7
02785  M01S02613.1tn     +++|          LJM    /WTM/ROCX   ISSUE CHARACTER
02786  M01S02614.1tn     +++|
02787  M01S02615.1tn     +++|*         RESET LINE POINTERS AND EXIT.
02788  M01S02616.1tn     +++|
02789  M01S02617.1tn     +++| ITM4     LDD    CH          CHECK TERMINAL TYPE
02790  M01S02618.1tn     +++|          LMC    /WTM/CWT
02791  M01S02619.1tn     +++|          NJN    ITM5        IF NOT CORRESPONDENCE
02792  M01S02620.1tn     +++|          LDC    .CEOT       ENABLE INPUT
02793  M01S02621.1tn     +++|          STI    DO
02794  M01S02622.1tn     +++|          RETURN EXI1
02795  M01S02623.1tn     +++|
02796  M01S02624.1tn     +++| ITM5     LDD    DP+2        RESET CURRENT WORD
02797  M01S02625.1tn     +++|          SHN    -5
02798  M01S02626.1tn     +++|          LMD    DP+2
02799  M01S02627.1tn     +++|          SCN    17
02800  M01S02628.1tn     +++|          STD    DP+2
02801  M01S02629.1tn     +++|          LDD    DP          RESET CURRENT POT
02802  M01S02630.1tn     +++|          STD    DP+1
02803  M01S02631.1tn     +++|          ZJN    ITM6        IF NO INPUT POT
02804  M01S02632.1tn     +++|          RJM    CEM         CLEAR EXTENDED MODE
02805  M01S02633.1tn     +++|          LJM    /CTL/BGI
02806  M01S02634.1tn     +++|
Line S02635 Modification History
M01 (Added by) 1tn
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
02807  M02S02635.ns21000 ---| ITM6     LDN    /TLX/RES    RESTART JOB
02808  M01S00012.ns21000 +++| ITM6     RJM    CSM         CHECK IF SMFIF PROCESSING
02809  M01S00013.ns21000 +++|          NJN    ITM6.5      IF TERMINAL CONNECTED TO SMF
02810  M01S00014.ns21000 +++|          LDN    /TLX/RES    RESTART JOB
02811  M01S02636.1tn     +++|          RJM    ERQ
02812  M01S00015.ns21000 +++| ITM6.5   BSS    0
02813  M01S02637.1tn     +++|          LJM    X3RWC       ENTER READ/WRITE CONTROL
02814  M01S02638.1tn     +++|
02815  M01S02639.1tn     +++|
02816  M01S02640.1tn     +++|**        TABLE OF TERMINAL MESSAGES.
02817  M01S02641.1tn     +++|
02818  M01S02642.1tn     +++| ITMA     BSS    0
02819  M01S02643.1tn     +++|          LOC    0
02820  M01S02644.1tn     +++|
02821  M01S02645.1tn     +++| DELM     DATA   Z+ *DEL*"NL"+
02822  M01S02646.1tn     +++| LOFM     DATA   Z+"NL" *OVL*"NL"+
02823  M01S02647.1tn     +++| RILM     DATA   Z+"NL"*RE-ENTER LAST LINE*"NL"+
02824  M01S00016.ns21000 +++| EDBM     DATA   Z+"NL"EDITOR BUSY"NL"+
02825  M01S02648.1tn     +++|
02826  M01S02649.1tn     +++|          LOC    *O
02827  M01S02650.1tn     +++| DLO      SPACE  4,10
02828  M01S02651.1tn     +++|**        DLO - PROCESS LOST DATA.
02829  M01S02652.1tn     +++|*
02830  M01S02653.1tn     +++|*         NOTIFY *TELEX* THAT A LOST DATA CONDITION OCCURED ON THE
02831  M01S02654.1tn     +++|*         TERMINAL LINE.
02832  M01S02655.1tn     +++|
02833  M01S02656.1tn     +++|
02834  M01S02657.1tn     +++| DLO      LDN    1           SET LOST DATA
02835  M01S02658.1tn     +++|          STD    RQ+2
02836  M01S02659.1tn     +++|*         UJN    NIP
02837  M01S02660.1tn     +++|          SPACE  4,10,10
02838  M01S02661.1tn     +++|**        NIP -  NO INPUT POT AVAILABLE.
02839  M01S02662.1tn     +++|*
02840  M01S02663.1tn     +++|*         NOTIFY *TELEX* THAT NO INPUT WAS AVAILABLE.
02841  M01S02664.1tn     +++|
02842  M01S02665.1tn     +++|
02843  M01S02666.1tn     +++| NIP      LDN    /TLX/DLO    REQUEST LOST DATA PROCESSING
02844  M01S02667.1tn     +++|          RJM    ERQ
02845  M01S02668.1tn     +++|
02846  M01S02669.1tn     +++|*         ENTERED FOR REENTER LAST LINE MESSAGE.
02847  M01S02670.1tn     +++|
02848  M01S02671.1tn     +++| NIP1     LDN    RILM        ISSUE RE-ENTER LINE MESSAGE
02849  M01S02672.1tn     +++|          LJM    ITM
02850  M01S02673.1tn     +++| TIC      SPACE  4,10
02851  M01S02674.1tn     +++|**        TIC - TRANSLATE INPUT CHARACTER.
02852  M01S02675.1tn     +++|*
02853  M01S02676.1tn     +++|*         ENTRY  (T7) = CHARACTER.
02854  M01S02677.1tn     +++|*
02855  M01S02678.1tn     +++|*         EXIT   (A) = TRANSLATED CHARACTER.
02856  M01S02679.1tn     +++|*                (T7) = TRANSLATED CHARACTER.
02857  M01S02680.1tn     +++|*
02858  M01S02681.1tn     +++|*         USES   T1.
02859  M01S02682.1tn     +++|*
02860  M01S02683.1tn     +++|*         CALLS  TCH.
02861  M01S02684.1tn     +++|
02862  M01S02685.1tn     +++|
02863  M01S02686.1tn     +++| PPT      IFNE   VPPT,0
02864  M01S02687.1tn     +++|
02865  M01S02688.1tn     +++| TIC1     STD    T1          SET TABLE INDEX
02866  M01S02689.1tn     +++|          LDC    TITA        LOAD CONVERSION INDEX
02867  M01S02690.1tn     +++|          RJM    TCH
02868  M01S02691.1tn     +++| TIC2     STD    T7
02869  M01S02692.1tn     +++|
02870  M01S02693.1tn     +++| TIC      SUBR               ENTRY/EXIT
02871  M01S02694.1tn     +++|          LDD    DP+3        CHECK CONVERSION INDEX
02872  M01S02695.1tn     +++|          SHN    -7
02873  M01S02696.1tn     +++|          NJN    TIC1        IF SPECIAL CONVERSION REQUIRED
02874  M01S02697.1tn     +++|          LDM    TINT,T7     TRANSLATE CHARACTER
02875  M01S02698.1tn     +++|          UJN    TIC2
02876  M01S02699.1tn     +++|
02877  M01S02700.1tn     +++| PPT      ELSE
02878  M01S02701.1tn     +++|
02879  M01S02702.1tn     +++| TIC      SUBR               ENTRY/EXIT
02880  M01S02703.1tn     +++|          LDC    TITA        SET INPUT CONVERSION
02881  M01S02704.1tn     +++|          RJM    TCH         TRANSLATE CHARACTER
02882  M01S02705.1tn     +++|          UJN    TICX        EXIT
02883  M01S02706.1tn     +++|
02884  M01S02707.1tn     +++| PPT      ENDIF
02885  M01S02708.1tn     +++| WIC      SPACE  4,10
02886  M01S02709.1tn     +++|**        WIC - WRITE INPUT CHARACTER.
02887  M01S02710.1tn     +++|*
02888  M01S02711.1tn     +++|*         ENTRY  (T7) = CHARACTER.
02889  M01S02712.1tn     +++|*                (CH) = UPPER CHARACTER IF LOWER CHARACTER IS
02890  M01S02713.1tn     +++|*                       TO BE STORED.
02891  M01S02714.1tn     +++|*                IF (T7) = 0, AND UPPER CHARACTER IS TO BE PROCESSED,
02892  M01S02715.1tn     +++|*                END OF LINE IS ASSUMED.  IN ORDER TO PREVENT
02893  M01S02716.1tn     +++|*                CONFUSION BETWEEN THE DISPLAY CODE COLON *00* AND
02894  M01S02717.1tn     +++|*                END OF LINE, A *00* COLON IS PASSED TO *WIC* AS A
02895  M01S02718.1tn     +++|*                *200* CODE.
02896  M01S02719.1tn     +++|*
02897  M01S02720.1tn     +++|*         EXIT   NONE.
02898  M01S02721.1tn     +++|*
02899  M01S02722.1tn     +++|*         USES   CH, DP, DP+2, RQ+2, RQ+3, T0 - T6.
02900  M01S02723.1tn     +++|*
02901  M01S02724.1tn     +++|*         CALLS  ERQ, RDC, RLT.
02902  M01S02725.1tn     +++|*
02903  M01S02726.1tn     +++|*         MACROS ADCBM, RETURN.
02904  M01S02727.1tn     +++|
02905  M01S02728.1tn     +++|
02906  M01S02729.1tn     +++| WIC8     LPN    77          SET CURRENT WORD
02907  M01S02730.1tn     +++|          SHN    17
02908  M01S02731.1tn     +++|          STD    T6
02909  M01S02732.1tn     +++|          SHN    -17         SET BYTE
02910  M01S02733.1tn     +++|          STD    T5
02911  M01S02734.1tn     +++|          NJN    WIC9        IF NOT START OF NEW WORD
02912  M01S02735.1tn     +++|          LDN    ZERL
02913  M01S02736.1tn     +++|          UJN    WIC80
02914  M01S02737.1tn     +++|
02915  M01S02738.1tn     +++| WIC9     LDD    DP+1        READ WORD
02916  M01S02739.1tn     +++|          SHN    3
02917  M01S02740.1tn     +++|          LMD    T6
02918  M01S02741.1tn     +++|          ADCBM
02919  M01S02742.1tn     +++| WIC80    CRD    T0
02920  M01S02743.1tn     +++|          LDD    T7          MERGE UPPER AND LOWER CHARACTERS
02921  M01S02744.1tn     +++|          LPN    77          MASK FOR COLON
02922  M01S02745.1tn     +++|          LMD    CH
02923  M01S02746.1tn     +++|          STI    T5          STORE BYTE
02924  M01S02747.1tn     +++|          LDD    DP+1        STORE WORD
02925  M01S02748.1tn     +++|          SHN    3
02926  M01S02749.1tn     +++|          LMD    T6
02927  M01S02750.1tn     +++|          ADCBM
02928  M01S02751.1tn     +++|          CWD    T0
02929  M01S02752.1tn     +++|          LDI    T5
02930  M01S02753.1tn     +++|          ADD    T7
02931  M01S02754.1tn     +++|          ZJN    WIC3        IF  END OF LINE
02932  M01S02755.1tn     +++|          AOD    DP+2        ADVANCE CHARACTER
02933  M01S02756.1tn     +++|          LPN    17
02934  M01S02757.1tn     +++|          LMN    12
02935  M01S02758.1tn     +++|          ZJN    WIC3        IF END OF WORD
02936  M01S02759.1tn     +++|
02937  M01S02760.1tn     +++| WIC      SUBR               ENTRY/EXIT
02938  M01S02761.1tn     +++| WIC1     LDD    DP+2        CHECK CHARACTER NUMBER
02939  M01S02762.1tn     +++|          SHN    21
02940  M01S02763.1tn     +++|          PJN    WIC2        IF UPPER
02941  M01S02764.1tn     +++|          LJM    WIC8
02942  M01S02765.1tn     +++|
02943  M01S02766.1tn     +++| WIC2     AOD    DP+2        ADVANCE CHARACTER POINTER
02944  M01S02767.1tn     +++|          LDD    T7          CHECK CHARACTER
02945  M01S02768.1tn     +++|          SHN    6           STORE UPPER CHARACTER
02946  M01S02769.1tn     +++|          STD    CH
02947  M01S02770.1tn     +++|          NJN    WICX        IF NOT END OF LINE
02948  M01S02771.1tn     +++|          UJN    WIC1        FORCE END OF LINE
02949  M01S02772.1tn     +++|
02950  M01S02773.1tn     +++|*         PROCESS END OF WORD.
02951  M01S02774.1tn     +++|
02952  M01S02775.1tn     +++| WIC3     LDD    DP+2        CHECK WORD NUMBER
02953  M01S02776.1tn     +++|          SHN    -4
02954  M01S02777.1tn     +++|          LPN    7
02955  M01S02778.1tn     +++|          LMN    7
02956  M01S02779.1tn     +++|          ZJN    WIC5        IF END OF POT
02957  M01S02780.1tn     +++|          LDD    DP+2        ADVANCE WORD NUMBER, RESET CHARACTER
02958  M01S02781.1tn     +++|          SCN    17
02959  M01S02782.1tn     +++|          ADN    20
02960  M01S02783.1tn     +++|          STD    DP+2
02961  M01S02784.1tn     +++|          SHN    -4          CHECK WORD NUMBER
02962  M01S02785.1tn     +++|          LPN    17
02963  M01S02786.1tn     +++|          SBN    5
02964  M01S02787.1tn     +++|          MJN    WICX        RETURN IF WORD 5 NOT REACHED
02965  M01S02788.1tn     +++|          SBN    3
02966  M01S02789.1tn     +++|          PJN    WICX        RETURN IF POT REQUESTED
02967  M01S02790.1tn     +++|          LDC    200         SET *POT REQUESTED*
02968  M01S02791.1tn     +++|          RAD    DP+2
02969  M01S02792.1tn     +++|          RJM    RLT         READ NEXT POT LINK
02970  M01S02793.1tn     +++|          NJN    WIC4        IF POT LINKED
02971  M01S02794.1tn     +++|          LDD    DP+1        SET CURRENT POT
02972  M01S02795.1tn     +++|          STD    RQ+3
02973  M01S02796.1tn     +++|          LDN    /TLX/LPT    REQUEST POT
02974  M01S02797.1tn     +++|          RJM    ERQ
02975  M01S02798.1tn     +++| WIC4     LJM    WICX        RETURN
02976  M01S02799.1tn     +++|
02977  M01S02800.1tn     +++|*         PROCESS END OF POT.
02978  M01S02801.1tn     +++|
02979  M01S02802.1tn     +++| WIC5     LDD    DP+2        RESET WORD AND CHARACTER
02980  M01S02803.1tn     +++|          LPC    7400
02981  M01S02804.1tn     +++|          STD    DP+2
02982  M01S02805.1tn     +++|          RJM    RLT         READ NEXT POT LINK
02983  M01S02806.1tn     +++|          ZJN    WIC7        IF POT NOT LINKED
02984  M01S02807.1tn     +++|          STD    DP+1        SET NEXT POT
02985  M01S02808.1tn     +++|          LDD    DP+3
02986  M01S02809.1tn     +++|          LPN    10
02987  M01S02810.1tn     +++|          ZJN    WIC4        IF NOT BINARY MODE
02988  M01S02811.1tn     +++|          RJM    RDC         READ VDCT
02989  M01S02812.1tn     +++|          SHN    21-6
02990  M01S02813.1tn     +++|          MJN    WIC4        IF NOT READ DATA
02991  M01S02814.1tn     +++|          LDD    DP          SET FIRST POT
02992  M01S02815.1tn     +++|          STD    RQ+3
02993  M01S02816.1tn     +++|          LMD    DP+1        CHECK CURRENT POT
02994  M01S02817.1tn     +++|          ZJN    WIC6        IF FIRST EQUALS CURRENT
02995  M01S02818.1tn     +++|          LDD    DP+1        SET CURRENT POT
02996  M01S02819.1tn     +++|          STD    DP
02997  M01S02820.1tn     +++|          STD    RQ+2
02998  M01S02821.1tn     +++|          LDN    /TLX/RIN
02999  M01S02822.1tn     +++|          RJM    ERQ
03000  M01S02823.1tn     +++| WIC6     STD    RQ+3
03001  M01S02824.1tn     +++|          UJN    WIC4        EXIT
03002  M01S02825.1tn     +++|
03003  M01S02826.1tn     +++| WIC7     RETURN EXI1,NIP    PROCESS NO INPUT POT
03004  M01S02827.1tn     +++|          SPACE  4,10
03005  M01S02828.1tn     +++|          QUAL
03006  M01S02829.1tn     +++| RDM      EQU    /RDM/RDM
03007  M01S02830.1tn     +++| X3RWC    EQU    /RDM/X3RWC
03008  M01S02831.1tn     +++| RDME     BSS    0           END OF READ MODE
03009  M01S02832.1tn     +++|          TITLE  WRITE MODE - MAIN PROCESSOR.
03010  M01S02833.1tn     +++|          QUAL   WTM
03011  M01S02834.1tn     +++| WTM      SPACE  4,10
03012  M01S02835.1tn     +++|**        WTM - WRITE MODE.
03013  M01S02836.1tn     +++|*
03014  M01S02837.1tn     +++|*         ENTRY  (DP+1) = FIRST POT OF OUTPUT.
03015  M01S02838.1tn     +++|*                (DP+2), CURRENT WORD = FIRST WORD OF OUTPUT.
03016  M01S02839.1tn     +++|*                (DP+3)  *BINARY TRANSMISSION* STATUS
03017  M01S02840.1tn     +++|*                (CH+2) = ESCAPE CONTROL.
03018  M01S02841.1tn     +++|
03019  M01S02842.1tn     +++|
03020  M01S02843.1tn     +++| WTM      PJN    WTM1        IF NO TERMINAL INPUT
03021  M01S02844.1tn     +++|          LJM    CIS         CHECK INTERRUPT STATUS
03022  M01S02845.1tn     +++|
03023  M01S02846.1tn     +++| WTM1     RJM    RLT         CHECK NEXT LINK
03024  M01S02847.1tn     +++|          NJN    WTM2        IF POT LINKED
03025  M01S02848.1tn     +++|          LDN    /TLX/RES    REQUEST MORE OUTPUT
03026  M01S02849.1tn     +++|          RJM    ERQ
03027  M01S02850.1tn     +++| WTM2     LDD    DP+3        CHECK *BINARY TRANSMISSION*
03028  M01S02851.1tn     +++|          LPN    10
03029  M01S02852.1tn     +++|          ZJN    WTM5        IF NOT BINARY
03030  M01S02853.1tn     +++|          RETURN EXI6,BWT
03031  M01S02854.1tn     +++|
03032  M01S02855.1tn     +++|*         SET WRITE PROCESSOR AND INITIATE OUTPUT.
03033  M01S02856.1tn     +++|
03034  M01S02857.1tn     +++|
03035  M01S02858.1tn     +++|*         ENTRY TO TRANSMIT EXTENDED MODE MESSAGE.
03036  M01S02859.1tn     +++|
03037  M01S02860.1tn     +++| WTM4     LDD    DP+3        SET EXTENDED CONVERSION
03038  M01S02861.1tn     +++|          SCN    2
03039  M01S02862.1tn     +++|          LMN    2
03040  M01S02863.1tn     +++|          STD    DP+3
03041  M01S02864.1tn     +++| WTM5     LDN    /CTL/WTP    SET WRITE PROCESSOR
03042  M01S02865.1tn     +++|          RJM    SCA
03043  M01S02866.1tn     +++|          STD    CH
03044  M01S02867.1tn     +++|          LDN    0           CLEAR OUTPUT
03045  M01S02868.1tn     +++|          LJM    WTC
03046  M01S02869.1tn     +++| BWT      SPACE  4,10
03047  M01S02870.1tn     +++|**        BWT - BINARY WRITE.
03048  M01S02871.1tn     +++|
03049  M01S02872.1tn     +++|
03050  M01S02873.1tn     +++| BWT      PJN    BWT1        IF NO TERMINAL INPUT
03051  M01S02874.1tn     +++|          LJM    CIS         CHECK INTERRUPT STATUS
03052  M01S02875.1tn     +++|
03053  M01S02876.1tn     +++|*         ASSEMBLE OUTPUT CHARACTER.
03054  M01S02877.1tn     +++|
03055  M01S02878.1tn     +++| BWT1     RJM    ROC         READ OUTPUT CHARACTER
03056  M01S02879.1tn     +++|          MJN    BWT3        IF CONTROL BYTE
03057  M01S02880.1tn     +++|          SCN    2           CLEAR BIT SEVEN
03058  M01S02881.1tn     +++|          LMN    20          ADD VALID CHARACTER
03059  M01S02882.1tn     +++|          SHN    7
03060  M01S02883.1tn     +++|          STD    T6          STORE ASSEMBLY
03061  M01S02884.1tn     +++|          SHN    -10
03062  M01S02885.1tn     +++|          LMN    30
03063  M01S02886.1tn     +++|          NJN    BWT4        IF NOT BINARY FORMAT
03064  M01S02887.1tn     +++|          LDD    T7
03065  M01S02888.1tn     +++|          SHN    -1
03066  M01S02889.1tn     +++|          LPN    1
03067  M01S02890.1tn     +++|          RAD    T6          MOVE BIT SEVEN TO BIT ZERO
03068  M01S02891.1tn     +++|          AOD    DP+2        ADVANCE CHARACTER COUNT
03069  M01S02892.1tn     +++|          LDI    T5          GET LOWER 6 BITS
03070  M01S02893.1tn     +++|          LPN    77
03071  M01S02894.1tn     +++|          SHN    1
03072  M01S02895.1tn     +++|          LMD    T6          MERGE WITH ASSEMBLY
03073  M01S02896.1tn     +++|          STI    DO
03074  M01S02897.1tn     +++|          AOD    CH+4        ADVANCE OUTPUT CHARACTER COUNT
03075  M01S02898.1tn     +++|          SHN    -14
03076  M01S02899.1tn     +++|          ZJN    BWT2        IF NO OVERFLOW
03077  M01S02900.1tn     +++|          LDN    /TLX/IAM    ISSUE ACCOUNTING MESSAGE
03078  M01S02901.1tn     +++|          RJM    ERQ
03079  M01S02902.1tn     +++| BWT2     LJM    EXI4        EXIT
03080  M01S02903.1tn     +++|
03081  M01S02904.1tn     +++| BWT3     LJM    SOC         PROCESS CONTROL BYTE
03082  M01S02905.1tn     +++|
03083  M01S02906.1tn     +++|
03084  M01S02907.1tn     +++|*         TERMINATE BINARY MODE OUTPUT.
03085  M01S02908.1tn     +++|
03086  M01S02909.1tn     +++| BWT4     LCN    10          CLEAR BINARY MODE
03087  M01S02910.1tn     +++|          RAD    DP+3
03088  M01S02911.1tn     +++|          SOD    DP+2        RESET CHARACTER POSITION
03089  M01S02912.1tn     +++|          LDN    0           CLEAR ESCAPE CONTROL
03090  M01S02913.1tn     +++|          STD    CH+2
03091  M01S02914.1tn     +++|          STI    DO          CLEAR OUTPUT
03092  M01S02915.1tn     +++|          LDN    1           SET CHARACTER COUNT NON-ZERO
03093  M01S02916.1tn     +++|          STD    CH+1
03094  M01S02917.1tn     +++|          RETURN EXI3,WTM5   CONTINUE OUTPUT
03095  M01S02918.1tn     +++| CWT      SPACE  4,10
03096  M01S02919.1tn     +++|**        CWT - CORRESPONDENCE CODE TERMINAL WRITE.
03097  M01S02920.1tn     +++|
03098  M01S02921.1tn     +++|
03099  M01S02922.1tn     +++| CWT      LDD    DP+3        CHECK CASE
03100  M01S02923.1tn     +++|          LPN    40
03101  M01S02924.1tn     +++|          SHN    12-5
03102  M01S02925.1tn     +++|          LMD    T7
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1tn.001.txt ยท Last modified: by 127.0.0.1