User Tools

Site Tools


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

Deck 1TM Part 004

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S05165 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06914  M01S05165.242l642 ---| 77       INASC  7627        W    LC
Line S00898 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
06915  M01S00898.242l642 +++| 77       INASC  7627,CLW    W    LC
06916  M00S05166.1tm     +++| 78       INASC  7630        X    LC
06917  M00S05167.1tm     +++| 79       INASC  7631        Y    LC
06918  M00S05168.1tm     +++| 7A       INASC  7632        Z    LC
06919  M00S05169.1tm     +++| 7B       INASC  7633        LB   LEFT BRACE
06920  M00S05170.1tm     +++| 7C       INASC  7634        VL   VERTICAL LINE
06921  M00S05171.1tm     +++| 7D       INASC  7635        RB   RIGHT BRACE
06922  M00S05172.1tm     +++| 7E       INASC  7636        TL   TILDE (OVERLINE)
06923  M00S05173.1tm     +++| 7F       INASC  7637,DEL    DEL  DELETE (RUBOUT)
06924  M00S05174.1tm     +++|          QUAL   *
06925  M00S05175.1tm     +++|          LOC    *O
06926  M00S05176.1tm     +++|          TITLE  OUTPUT TRANSLATION TABLE.
06927  M00S05177.1tm     +++|**        OUTPUT CONVERSION.
06928  M00S05178.1tm     +++|*         INDEXED BY DISPLAY CODE VALUE.
06929  M00S05179.1tm     +++|
06930  M00S05180.1tm     +++|
06931  M00S05181.1tm     +++| TOTP     BSS    0           FWA OF OUTPUT TRANSLATION TABLE
06932  M00S05182.1tm     +++|          QUAL   TRN
06933  M00S05183.1tm     +++|          LOC    0
06934  M00S05184.1tm     +++|
06935  M00S05185.1tm     +++| 00       OTASC  3A          COLON
06936  M00S05186.1tm     +++| 01       OTASC  41          A
06937  M00S05187.1tm     +++| 02       OTASC  42          B
06938  M00S05188.1tm     +++| 03       OTASC  43          C
06939  M00S05189.1tm     +++| 04       OTASC  44          D
06940  M00S05190.1tm     +++| 05       OTASC  45          E
06941  M00S05191.1tm     +++| 06       OTASC  46          F
06942  M00S05192.1tm     +++| 07       OTASC  47          G
06943  M00S05193.1tm     +++|
06944  M00S05194.1tm     +++| 10       OTASC  48          H
06945  M00S05195.1tm     +++| 11       OTASC  49          I
06946  M00S05196.1tm     +++| 12       OTASC  4A          J
06947  M00S05197.1tm     +++| 13       OTASC  4B          K
06948  M00S05198.1tm     +++| 14       OTASC  4C          L
06949  M00S05199.1tm     +++| 15       OTASC  4D          M
06950  M00S05200.1tm     +++| 16       OTASC  4E          N
06951  M00S05201.1tm     +++| 17       OTASC  4F          O
06952  M00S05202.1tm     +++|
06953  M00S05203.1tm     +++| 20       OTASC  50          P
06954  M00S05204.1tm     +++| 21       OTASC  51          Q
06955  M00S05205.1tm     +++| 22       OTASC  52          R
06956  M00S05206.1tm     +++| 23       OTASC  53          S
06957  M00S05207.1tm     +++| 24       OTASC  54          T
06958  M00S05208.1tm     +++| 25       OTASC  55          U
06959  M00S05209.1tm     +++| 26       OTASC  56          V
06960  M00S05210.1tm     +++| 27       OTASC  57          W
06961  M00S05211.1tm     +++|
06962  M00S05212.1tm     +++| 30       OTASC  58          X
06963  M00S05213.1tm     +++| 31       OTASC  59          Y
06964  M00S05214.1tm     +++| 32       OTASC  5A          Z
06965  M00S05215.1tm     +++| 33       OTASC  30          0
06966  M00S05216.1tm     +++| 34       OTASC  31          1
06967  M00S05217.1tm     +++| 35       OTASC  32          2
06968  M00S05218.1tm     +++| 36       OTASC  33          3
06969  M00S05219.1tm     +++| 37       OTASC  34          4
06970  M00S05220.1tm     +++|
06971  M00S05221.1tm     +++| 40       OTASC  35          5
06972  M00S05222.1tm     +++| 41       OTASC  36          6
06973  M00S05223.1tm     +++| 42       OTASC  37          7
06974  M00S05224.1tm     +++| 43       OTASC  38          8
06975  M00S05225.1tm     +++| 44       OTASC  39          9
06976  M00S05226.1tm     +++| 45       OTASC  2B          PL   PLUS
06977  M00S05227.1tm     +++| 46       OTASC  2D          MI   MINUS (HYPHEN)
06978  M00S05228.1tm     +++| 47       OTASC  2A          AS   ASTERISK
06979  M00S05229.1tm     +++|
06980  M00S05230.1tm     +++| 50       OTASC  2F          SL   SLANT
06981  M00S05231.1tm     +++| 51       OTASC  28          OP   OPENING PARENTHESIS
06982  M00S05232.1tm     +++| 52       OTASC  29          CP   CLOSING PARENTHESIS
06983  M00S05233.1tm     +++| 53       OTASC  24          DS   DOLLAR SIGN
06984  M00S05234.1tm     +++| 54       OTASC  3D          EQ   EQUALS
06985  M00S05235.1tm     +++| 55       OTASC  20          SP   SPACE
06986  M00S05236.1tm     +++| 56       OTASC  2C          CM   COMMA (CEDILLA)
06987  M00S05237.1tm     +++| 57       OTASC  2E          PD   PERIOD (DECIMAL POINT)
06988  M00S05238.1tm     +++|
06989  M00S05239.1tm     +++| 60       OTASC  23          NM   NUMBER SIGN
06990  M00S05240.1tm     +++| 61       OTASC  5B          OB   OPENING BRACKET
06991  M00S05241.1tm     +++| 62       OTASC  5D          CB   CLOSING BRACKET
06992  M00S05242.1tm     +++| 63       OTASC  25          PCT  PERCENT
06993  M00S05243.1tm     +++|* 63      OTASC  30          CLN  COLON (63 CHARACTER SET)
06994  M00S05244.1tm     +++| 64       OTASC  22          DQ   DOUBLE QUOTE (DIARESIS)
06995  M00S05245.1tm     +++| 65       OTASC  5F          UL   UNDERLINE
06996  M00S05246.1tm     +++| 66       OTASC  21          EX   EXCLAMATION POINT
06997  M00S05247.1tm     +++| 67       OTASC  26          AM   AMPERSAND
06998  M00S05248.1tm     +++|
06999  M00S05249.1tm     +++| 70       OTASC  27          AP   APOSTROPHE
07000  M00S05250.1tm     +++| 71       OTASC  3F          QM   QUESTION MARK
07001  M00S05251.1tm     +++| 72       OTASC  3C          LT   LESS THAN
07002  M00S05252.1tm     +++| 73       OTASC  3E          GT   GREATER THAN
07003  M00S05253.1tm     +++| 74       OTASC  40          AT   COMMERCIAL AT
07004  M00S05254.1tm     +++| 75       OTASC  5C          RVS  REVERSE SLANT
07005  M00S05255.1tm     +++| 76       OTASC  5E          CF   CIRCUMFLEX
07006  M00S05256.1tm     +++| 77       OTASC  3B          SC   SEMICOLON
07007  M00S05257.1tm     +++|
07008  M00S05258.1tm     +++|*         EXTENDED CHARACTER SET (ESCAPE 1).
07009  M00S05259.1tm     +++|
07010  M00S05260.1tm     +++| 7600     OTASC              NULL
07011  M00S05261.1tm     +++| 7601     OTASC  61          A    LC
07012  M00S05262.1tm     +++| 7602     OTASC  62          B    LC
07013  M00S05263.1tm     +++| 7603     OTASC  63          C    LC
07014  M00S05264.1tm     +++| 7604     OTASC  64          D    LC
07015  M00S05265.1tm     +++| 7605     OTASC  65          E    LC
07016  M00S05266.1tm     +++| 7606     OTASC  66          F    LC
07017  M00S05267.1tm     +++| 7607     OTASC  67          G    LC
07018  M00S05268.1tm     +++|
07019  M00S05269.1tm     +++| 7610     OTASC  68          H    LC
07020  M00S05270.1tm     +++| 7611     OTASC  69          I    LC
07021  M00S05271.1tm     +++| 7612     OTASC  6A          J    LC
07022  M00S05272.1tm     +++| 7613     OTASC  6B          K    LC
07023  M00S05273.1tm     +++| 7614     OTASC  6C          L    LC
07024  M00S05274.1tm     +++| 7615     OTASC  6D          M    LC
07025  M00S05275.1tm     +++| 7616     OTASC  6E          N    LC
07026  M00S05276.1tm     +++| 7617     OTASC  6F          O    LC
07027  M00S05277.1tm     +++|
07028  M00S05278.1tm     +++| 7620     OTASC  70          P    LC
07029  M00S05279.1tm     +++| 7621     OTASC  71          Q    LC
07030  M00S05280.1tm     +++| 7622     OTASC  72          R    LC
07031  M00S05281.1tm     +++| 7623     OTASC  73          S    LC
07032  M00S05282.1tm     +++| 7624     OTASC  74          T    LC
07033  M00S05283.1tm     +++| 7625     OTASC  75          U    LC
07034  M00S05284.1tm     +++| 7626     OTASC  76          V    LC
07035  M00S05285.1tm     +++| 7627     OTASC  77          W    LC
07036  M00S05286.1tm     +++|
07037  M00S05287.1tm     +++| 7630     OTASC  78          X    LC
07038  M00S05288.1tm     +++| 7631     OTASC  79          Y    LC
07039  M00S05289.1tm     +++| 7632     OTASC  7A          Z    LC
07040  M00S05290.1tm     +++| 7633     OTASC  7B          LB   LEFT BRACE
07041  M00S05291.1tm     +++| 7634     OTASC  7C          VL   VERTICAL LINE
07042  M00S05292.1tm     +++| 7635     OTASC  7D          RB   RIGHT BRACE
07043  M00S05293.1tm     +++| 7636     OTASC  7E          TL   TILDE (OVERLINE)
07044  M00S05294.1tm     +++| 7637     OTASC  7F          DEL  DELETE
07045  M00S05295.1tm     +++|
07046  M00S05296.1tm     +++| 7640     OTASC  00          NUL  NULL (MEDIA FILL)
07047  M00S05297.1tm     +++| 7641     OTASC  01          SOH  START OF HEADING
07048  M00S05298.1tm     +++| 7642     OTASC  02          STX  START OF TEXT
07049  M00S05299.1tm     +++| 7643     OTASC  03          ETX  END OF TEXT
07050  M00S05300.1tm     +++| 7644     OTASC  04          EOT  END OF TRANSMISSION
07051  M00S05301.1tm     +++| 7645     OTASC  05          ENQ  ENQUIRY
07052  M00S05302.1tm     +++| 7646     OTASC  06          ACK  ACKOWLEDGE
07053  M00S05303.1tm     +++| 7647     OTASC  07          BEL  BELL
07054  M00S05304.1tm     +++|
07055  M00S05305.1tm     +++| 7650     OTASC  08          BS   BACKSPACE
07056  M00S05306.1tm     +++| 7651     OTASC  09          HT   HORIZONTAL TABULATION
07057  M00S05307.1tm     +++| 7652     OTASC  0A          LF   LINE FEED
07058  M00S05308.1tm     +++| 7653     OTASC  0B          VT   VERTICAL TABULATION
07059  M00S05309.1tm     +++| 7654     OTASC  0C          FF   FORM FEED
07060  M00S05310.1tm     +++| 7655     OTASC  ,ACR        CR   CARRIAGE RETURN
07061  M00S05311.1tm     +++| 7656     OTASC  0E          SO   SHIFT OUT
07062  M00S05312.1tm     +++| 7657     OTASC  0F          SI   SHIFT IN
07063  M00S05313.1tm     +++|
07064  M00S05314.1tm     +++| 7660     OTASC  10          DLE  DATA LINK ESCAPE
07065  M00S05315.1tm     +++| 7661     OTASC  11          DC1  DEVICE CONTROL 1 (X-ON)
07066  M00S05316.1tm     +++| 7662     OTASC  12          DC2  DEVICE CONTROL 2
07067  M00S05317.1tm     +++| 7663     OTASC  13          DC3  DEVICE CONTROL 3 (X-OFF)
07068  M00S05318.1tm     +++| 7664     OTASC  14          DC4  DEVICE CONTROL 4 (STOP)
07069  M00S05319.1tm     +++| 7665     OTASC  15          NAK  NEGATIVE ACKNOWLEDGE
07070  M00S05320.1tm     +++| 7666     OTASC  16          SYN  SYNCHRONOUS IDLE
07071  M00S05321.1tm     +++| 7667     OTASC  17          ETB  END OF TRANSMISSION BLOCK
07072  M00S05322.1tm     +++|
07073  M00S05323.1tm     +++| 7670     OTASC  18          CAN  CANCEL
07074  M00S05324.1tm     +++| 7671     OTASC  19          EM   END OF MEDIUM
07075  M00S05325.1tm     +++| 7672     OTASC  1A          SUB  SUBSTITUTE
07076  M00S05326.1tm     +++| 7673     OTASC  1B          ESC  ESCAPE
07077  M00S05327.1tm     +++| 7674     OTASC  1C          FS   FILE SEPARATOR
07078  M00S05328.1tm     +++| 7675     OTASC  1D          GS   GROUP SEPARATOR
07079  M00S05329.1tm     +++| 7676     OTASC  1E          RS   RECORD SEPARATOR
07080  M00S05330.1tm     +++| 7677     OTASC  1F          US   UNIT SEPARATOR
07081  M00S05331.1tm     +++|
07082  M00S05332.1tm     +++|*         EXTENDED CHARACTER SET (ESCAPE 2).
07083  M00S05333.1tm     +++|
07084  M00S05334.1tm     +++| 7400     OTASC              NULL
07085  M00S05335.1tm     +++| 7401     OTASC  40          AT   COMMERCIAL AT
07086  M00S05336.1tm     +++| 7402     OTASC  5E          CF   CIRCUMFLEX
07087  M00S05337.1tm     +++| 7403     OTASC              NULL
07088  M00S05338.1tm     +++| 7404     OTASC  3A          CL   COLON
07089  M00S05339.1tm     +++|* 7404    OTASC  25          PCT  PERCENT (63 CHARACTER SET)
07090  M00S05340.1tm     +++| 7405     OTASC  11          DC1  DEVICE CONTROL 1 (X-ON)
07091  M00S05341.1tm     +++| 7406     OTASC  13          DC3  DEVICE CONTROL 3 (X-OFF)
07092  M00S05342.1tm     +++| 7407     OTASC  60          GV   GRAVE ACCENT
07093  M00S05343.1tm     +++|
07094  M00S05344.1tm     +++| 7410     OTASC  ,ACR        CR   CARRIAGE RETURN
07095  M00S05345.1tm     +++| 7411     OTASC  0A          LF   LINE FEED
07096  M00S05346.1tm     +++| 7412     OTASC  ,ANL        NL   NEW LINE (CR/LF)
07097  M00S05347.1tm     +++|
07098  M00S05348.1tm     +++|          QUAL   *
07099  M00S05349.1tm     +++|          LOC    *O
Line S05350 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07100  M01S05350.ns2149  ---| PRS      TITLE  DRIVER PRESET.
07101  M01S05351.ns2149  ---|          USE    PRESET
07102  M01S05352.ns2149  ---| OMBUF    SPACE  4,15
07103  M01S05353.ns2149  ---|**        OMBUF - OPERATOR MESSAGE BUFFER.
07104  M01S05354.ns2149  ---|*
07105  M01S05355.ns2149  ---|*         OVERLAYS PRESET CODE.
07106  M00S05356.1tm     +++|
Line S05357 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07107  M01S05357.ns2149  ---|
07108  M01S05358.ns2149  ---| OMBUF    BSS    0           OPERATOR MESSAGE BUFFER
07109  M01S05359.ns2149  ---| PRS      SPACE  4,30
07110  M01S05360.ns2149  ---|**        PRS - PRESET DRIVER.
07111  M01S05361.ns2149  ---|*
07112  M01S05362.ns2149  ---|*         ENTRY  (IR+3) = REAL-TIME CLOCK (SECONDS) AT START
07113  M01S05363.ns2149  ---|*                         OF DRIVER INACTIVITY TIME-OUT.
07114  M01S05364.ns2149  ---|*                       = ZERO ON INITIAL CALL OR EXECUTIVE RECALL.
07115  M01S05365.ns2149  ---|*                (IR+4) = DRIVER CONTROL WORD POINTER.
07116  M01S05366.ns2149  ---|*                (DRIVER CONTROL WORD) INITIAL CALL =
07117  M01S05367.ns2149  ---|*                     12/0, 6/0, 18/DRN, 24/0
07118  M01S05368.ns2149  ---|*                        DRN = DRIVER NAME.
07119  M01S05369.ns2149  ---|*                (DRIVER CONTROL WORD) PPU OR EXECUTIVE RECALL =
07120  M01S05370.ns2149  ---|*                     12/3, 24/CSA, 12/TC, 12/TN
07121  M01S05371.ns2149  ---|*                        CSA = CIRCULAR STACK ADDRESS.
07122  M01S05372.ns2149  ---|*                        TC  = TERMINAL COUNT.
07123  M01S05373.ns2149  ---|*                        TN  = DRIVER TERMINAL NUMBER.
07124  M01S05374.ns2149  ---|*
07125  M01S05375.ns2149  ---|*         EXIT   TO *ITM*, DRIVER CONTROL LOOP -
07126  M01S05376.ns2149  ---|*                  CHANNEL AND EQUIPMENT RESERVED.
07127  M01S05377.ns2149  ---|*                  MULTIPLEXER AND PORT SELECTED.
Line S05378 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07128  M02S05378.ns2149  ---|*                  (EQ) = EQUIPMENT NUMBER + 2**9.
Line S00035 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07129  M02S00035.ns2149  ---|*                  (EQ) = EST ORDINAL + 2**9.
Line S05379 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07130  M01S05379.ns2149  ---|*                  (LF) = NONZERO FOR INITIAL CONNECTION ATTEMPT.
07131  M01S05380.ns2149  ---|*                  (PN) = MULTIPLEXER PORT NUMBER - 0 OR 1.
07132  M01S05381.ns2149  ---|*                  (IR+3) = CURRENT REAL-TIME CLOCK (SECONDS)
07133  M01S05382.ns2149  ---|*                           IF INITIAL CALL OR EXECUTIVE RECALL.
07134  M01S05383.ns2149  ---|*                         = INPUT REGISTER CONTENTS IF PPU RECALL.
07135  M01S05384.ns2149  ---|*                  (OMCC) = 0.
07136  M01S05385.ns2149  ---|*                TRANSLATION TABLES MODIFIED IF SYSTEM IS IN
07137  M01S05386.ns2149  ---|*                63 CHARACTER SET MODE.
07138  M01S05387.ns2149  ---|*
07139  M01S05388.ns2149  ---|*         ERROR  TO *ERR=1* IF NO TPM AVAILABLE.
07140  M01S05389.ns2149  ---|*
07141  M01S05390.ns2149  ---|*         CALLS  CEF, CEQ, CWA, IFN, INI, MTT, RCE, SAD,
07142  M01S05391.ns2149  ---|*                SAT, SEL, STA.
07143  M01S05392.ns2149  ---|*
07144  M01S05393.ns2149  ---|*         MACROS LDCDQ.
07145  M01S05394.ns2149  ---|
07146  M01S05395.ns2149  ---|
07147  M01S05396.ns2149  ---| PRS      BSS    0           ENTRY
07148  M01S05397.ns2149  ---|          LDN    0           CLEAR EQUIPMENT ASSIGNMENT
07149  M01S05398.ns2149  ---|          STD    EQ
07150  M01S05399.ns2149  ---|          RJM    CEF         CHECK ERROR FLAG
07151  M01S05400.ns2149  ---|          RJM    CWA         SET DRIVER CONTROL WORD ADDRESS
07152  M01S05401.ns2149  ---|          CRD    DC          READ DRIVER CONTROL WORD
07153  M01S05402.ns2149  ---|
07154  M01S05403.ns2149  ---|*         PROCESS INITIAL DRIVER LOAD.
07155  M01S05404.ns2149  ---|
Line S00036 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07156  M02S00036.ns2149  ---|          RJM    CEQ         CHECK EQUIPMENT
Line S05405 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07157  M01S05405.ns2149  ---|          LDD    DC+4        CHECK TERMINAL NUMBER
07158  M01S05406.ns2149  ---|          STD    TN
07159  M01S05407.ns2149  ---|          NJN    PRS1        IF DEFINED - DRIVER RECALL
07160  M01S05408.ns2149  ---|          RJM    INI         PROCESS INITIAL DRIVER LOAD
07161  M01S05409.ns2149  ---|
07162  M01S05410.ns2149  ---|*         RESERVE TWO-PORT MULITPLEXER AND SELECT PORT.
07163  M01S05411.ns2149  ---|
Line S05412 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07164  M02S05412.ns2149  ---| PRS1     RJM    CEQ         CHECK EQUIPMENT
Line S00037 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07165  M02S00037.ns2149  ---| PRS1     LDD    EQ          CHECK IF EQUIPMENT AVAILABLE
Line S05413 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07166  M01S05413.ns2149  ---|          NJN    PRS2        IF EQUIPMENT AVAILABLE
07167  M01S05414.ns2149  ---|          LJM    ERR=1       * 1TM - NO TPM AVAILABLE..*
07168  M01S05415.ns2149  ---|
07169  M01S05416.ns2149  ---| PRS2     RJM    RCE         RESERVE CHANNEL AND EQUIPMENT
07170  M01S05417.ns2149  ---|          RJM    SEL         SELECT MULTIPLEXER PORT
07171  M01S05418.ns2149  ---|          LDK    CLRBUFS     CLEAR PORT I/O BUFFERS
07172  M01S05419.ns2149  ---|          RJM    IFN
07173  M01S05420.ns2149  ---|
07174  M01S05421.ns2149  ---|*         SET ABSOLUTE ADDRESSES AND SIGNAL INITIALIZATION COMPLETE.
07175  M01S05422.ns2149  ---|
07176  M01S05423.ns2149  ---|          RJM    SAD         SET ABSOLUTE CM ADDRESSES
07177  M01S05424.ns2149  ---|          RJM    CWA         READ DRIVER CONTROL WORD
07178  M01S05425.ns2149  ---|          CRD    DC
07179  M01S05426.ns2149  ---|          LDN    0           CLEAR INTERLOCK
07180  M01S05427.ns2149  ---|          STD    DC
07181  M01S05428.ns2149  ---|          RJM    CWA         REWRITE DRIVER CONTROL WORD
07182  M01S05429.ns2149  ---|          CWD    DC
07183  M01S05430.ns2149  ---|
07184  M01S05431.ns2149  ---|*         PRESET TERMINAL ROUTINE ADDRESS.
07185  M01S05432.ns2149  ---|
07186  M01S05433.ns2149  ---|          LDN    ZERL        CLEAR *VDPT* IMAGE
07187  M01S05434.ns2149  ---|          CRD    DP
07188  M01S05435.ns2149  ---|          CRD    CH          CLEAR *VCHT* IMAGE
07189  M01S05436.ns2149  ---|          LDC    /CTL/ONL    SET STARTING ADDRESS
07190  M01S05437.ns2149  ---|          STD    DP+4
07191  M01S05438.ns2149  ---|          RJM    STA         SET FWA OF TERMINAL TABLE
07192  M01S05439.ns2149  ---|          ADN    VDPT        WRITE *VDPT*
07193  M01S05440.ns2149  ---|          CWD    DP
07194  M01S05441.ns2149  ---|          ADN    VCHT-VDPT   WRITE *VCHT*
07195  M01S05442.ns2149  ---|          CWD    CH
07196  M01S05443.ns2149  ---|
07197  M01S05444.ns2149  ---|*         INITIALIZE MISCELLANEOUS POINTERS.
07198  M01S05445.ns2149  ---|
07199  M01S05446.ns2149  ---|          RJM    MTT         MODIFY TRANSLATION TABLES
07200  M01S05447.ns2149  ---|          LDN    0           CLEAR INPUT AND OUTPUT DATA
07201  M01S05448.ns2149  ---|          STD    DI
07202  M01S05449.ns2149  ---|          STD    DO
07203  M01S05450.ns2149  ---|          STD    HS          CLEAR HALF-SECOND FLAG
07204  M01S05451.ns2149  ---|          STD    IT          CLEAR INTERVAL TIMER
07205  M01S05452.ns2149  ---|          STD    PY          CLEAR ODD PARITY
07206  M01S05453.ns2149  ---|          STM    OMCC        CLEAR OPERATOR MESSAGE CHARACTER COUNT
07207  M01S05454.ns2149  ---|          LDCDQ  2           SET CIRCULAR QUEUE *IN*
07208  M01S05455.ns2149  ---|          CRD    IN
07209  M01S05456.ns2149  ---|          LDN    77          SET (LF) = *ON*
07210  M01S05457.ns2149  ---|          STD    LF
07211  M01S05458.ns2149  ---|
07212  M01S05459.ns2149  ---|*         SET TIME-OUT IF INITIAL CALL OR EXECUTIVE RECALL.
07213  M01S05460.ns2149  ---|
07214  M01S05461.ns2149  ---|          LDD    IR+3        CHECK TIME-OUT
07215  M01S05462.ns2149  ---|          NJN    PRS3        IF DRIVER RECALL
07216  M01S05463.ns2149  ---|          RJM    SAT         SET ACTIVITY TIME-OUT
07217  M01S05464.ns2149  ---| PRS3     LJM    /CTL/ITM    ENTER DRIVER MAIN LOOP
07218  M01S05465.ns2149  ---|          TITLE  DRIVER PRESET SUBROUTINES.
07219  M01S05466.ns2149  ---| CEQ      SPACE  4,20
07220  M01S05467.ns2149  ---|**        CEQ - CHECK EQUIPMENT.
07221  M01S05468.ns2149  ---|*
07222  M01S05469.ns2149  ---|*         CHECKS FOR EQUIPMENT TYPE *RM* IN THE EST.
Line S05470 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07223  M02S05470.ns2149  ---|*         SETS EQUIPMENT NUMBER AND SETS CHANNEL
Line S00038 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07224  M02S00038.ns2149  ---|*         SETS EST ORDINAL AND SETS CHANNEL
Line S05471 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07225  M01S05471.ns2149  ---|*         INSTRUCTIONS IF FOUND.
07226  M01S05472.ns2149  ---|*
Line S05473 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07227  M02S05473.ns2149  ---|*         EXIT   (A)  = EQUIPMENT NUMBER IF NONZERO.
Line S00039 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07228  M02S00039.ns2149  ---|*         EXIT   (A)  = EST ORDINAL IF NONZERO.
Line S05474 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07229  M01S05474.ns2149  ---|*                     = ZERO IF EQUIPMENT NOT FOUND.
Line S05475 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07230  M02S05475.ns2149  ---|*                (EQ) = EQUIPMENT NUMBER IF NONZERO.
Line S00040 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07231  M02S00040.ns2149  ---|*                (EQ) = EST ORDINAL IF NONZERO.
Line S05476 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07232  M01S05476.ns2149  ---|*                     = ZERO IF EQUIPMENT NOT FOUND.
07233  M01S05477.ns2149  ---|*                (PN) = PORT NUMBER IF EQUIPMENT FOUND.
Line S00041 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07234  M02S00041.ns2149  ---|*                (RCEA) = UPPER ACCESS LEVEL LIMIT FOR TWO-PORT MUX.
Line S05478 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07235  M01S05478.ns2149  ---|*                CHANNEL INSTRUCTIONS INITIALIZED TO CHANNEL
07236  M01S05479.ns2149  ---|*                  DEFINED IN EQUIPMENT EST ENTRY.
07237  M01S05480.ns2149  ---|*
Line S05481 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07238  M02S05481.ns2149  ---|*         USES   CM - CM+4, DP - DP+4.
Line S00042 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07239  M02S00042.ns2149  ---|*         USES   CM - CM+4, DP - DP+4, T0 - T0+4.
Line S05482 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07240  M01S05482.ns2149  ---|*
07241  M01S05483.ns2149  ---|*         CALLS  SCI.
Line S00043 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07242  M02S00043.ns2149  ---|*
07243  M02S00044.ns2149  ---|*         MACROS SFA.
Line S05484 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07244  M01S05484.ns2149  ---|
07245  M01S05485.ns2149  ---|
07246  M01S05486.ns2149  ---| CEQ      SUBR               ENTRY/EXIT
Line S00045 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07247  M02S00045.ns2149  ---|          LDN    0           PRESET NOT FOUND
07248  M02S00046.ns2149  ---|          STD    EQ
Line S05487 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07249  M01S05487.ns2149  ---|          LDK    ESTP        READ EST POINTER
07250  M01S05488.ns2149  ---|          CRD    DP
Line S05489 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07251  M02S05489.ns2149  ---| CEQ1     SOD    DP+1        READ EST ENTRY
Line S00047 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07252  M02S00047.ns2149  ---|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
07253  M02S00048.ns2149  ---|          STD    DP
07254  M02S00049.ns2149  ---| CEQ1     AOD    DP          ADVANCE EST ORDINAL
07255  M02S00050.ns2149  ---|          LMD    DP+2
07256  M02S00051.ns2149  ---|          ZJN    CEQX        IF END OF EST
07257  M02S00052.ns2149  ---|          SFA    EST,DP      READ EST ENTRY
07258  M02S00053.ns2149  ---|          ADK    EQDE
Line S05490 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07259  M01S05490.ns2149  ---|          CRD    CM
Line S00054 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07260  M02S00054.ns2149  ---|          ADK    EQAE-EQDE
07261  M02S00055.ns2149  ---|          CRD    T0
Line S05491 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07262  M02S05491.ns2149  ---|          SBD    DP
07263  M02S05492.ns2149  ---|          STD    EQ
07264  M02S05493.ns2149  ---|          ZJN    CEQX        IF END OF EST
Line S05494 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07265  M01S05494.ns2149  ---|          LDD    CM+3        CHECK EQUIPMENT MNEMONIC
07266  M01S05495.ns2149  ---|          LMC    2RRM
07267  M01S05496.ns2149  ---|          NJN    CEQ1        IF NOT EQUIPMENT TYPE *RM*
Line S00056 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07268  M02S00056.ns2149  ---|          LDD    T0+3        SAVE UPPER ACCESS LEVEL LIMIT
07269  M02S00057.ns2149  ---|          LPN    7
07270  M02S00058.ns2149  ---|          STM    RCEA
Line S05497 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07271  M01S05497.ns2149  ---|          LDD    CM+4        SET PORT NUMBER
07272  M01S05498.ns2149  ---|          LPN    1
07273  M01S05499.ns2149  ---|          STD    PN
07274  M01S05500.ns2149  ---|          RJM    SCI         SET CHANNEL INSTRUCTIONS
Line S05501 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07275  M02S05501.ns2149  ---|          LDD    EQ          (A) = EQUIPMENT NUMBER
Line S00059 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07276  M02S00059.ns2149  ---|          LDD    DP          EXIT WITH (A) = (EQ) = EST ORDINAL
07277  M02S00060.ns2149  ---|          STD    EQ
Line S05502 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07278  M02S05502.ns2149  ---|          UJN    CEQX        RETURN
Line S00061 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07279  M02S00061.ns2149  ---|          UJP    CEQX        RETURN
Line S05503 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07280  M01S05503.ns2149  ---| INI      SPACE  4,25
07281  M01S05504.ns2149  ---|**        INI - PROCESS INITIAL LOAD.
07282  M01S05505.ns2149  ---|*
07283  M01S05506.ns2149  ---|*         PROCESSES THE INITIAL LOAD OF THE DRIVER DURING
07284  M01S05507.ns2149  ---|*         *RAF* INITIALIZATION.
07285  M01S05508.ns2149  ---|*
07286  M01S05509.ns2149  ---|*         ENTRY  (IR+4) = DRIVER CONTROL WORD POINTER.
07287  M01S05510.ns2149  ---|*                (DC - DC+4) = DRIVER CONTROL WORD.
07288  M01S05511.ns2149  ---|*
07289  M01S05512.ns2149  ---|*         EXIT   *VDRL* DRIVER CONTROL WORD INITIALIZED.
Line S00062 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07290  M02S00062.ns2149  ---|*                MUX TABLE ENTRY INITIALIZED.
Line S05513 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07291  M01S05513.ns2149  ---|*                (DC - DC+4) = DRIVER CONTROL WORD.
07292  M01S05514.ns2149  ---|*                (TN) = DRIVER TERMINAL NUMBER.
07293  M01S05515.ns2149  ---|*
07294  M01S05516.ns2149  ---|*         ERROR  TO *ERR* IF NOT CYBER 170-8X5.
07295  M01S05517.ns2149  ---|*                  (A) = ADDRESS OF ERROR MESSAGE.
07296  M01S05518.ns2149  ---|*
07297  M01S05519.ns2149  ---|*         USES   CM - CM+4, DC - DC+4.
07298  M01S05520.ns2149  ---|*
07299  M01S05521.ns2149  ---|*         CALLS  CEF, CWA, TID.
07300  M01S05522.ns2149  ---|
07301  M01S05523.ns2149  ---|
07302  M01S05524.ns2149  ---| INI      SUBR               ENTRY/EXIT
07303  M01S05525.ns2149  ---|          RJM    STP         SYNCHRONIZE *TSEM* PROCESSING
07304  M01S05526.ns2149  ---|
07305  M01S05527.ns2149  ---|*         TRANSMIT PORT COUNT TO EXECUTIVE INITIALIZATION.
07306  M01S05528.ns2149  ---|
Line S05529 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07307  M02S05529.ns2149  ---| INI1     LDN    1           SET PORT COUNT
Line S00063 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07308  M02S00063.ns2149  ---|          LDN    ZERL
07309  M02S00064.ns2149  ---|          CRD    CM
07310  M02S00065.ns2149  ---|          LDN    1           SET TERMINAL COUNT
07311  M02S00066.ns2149  ---|          STD    CM+3
Line S05530 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07312  M01S05530.ns2149  ---|          STD    DC+3
07313  M01S05531.ns2149  ---|          STD    DC          SET REPLY INTERLOCK NON-ZERO
07314  M01S05532.ns2149  ---|          LDN    2           SET TERMINAL ID TABLE LENGTH
07315  M01S05533.ns2149  ---|          STD    DC+4
Line S00067 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07316  M02S00067.ns2149  ---|          LDD    RA          WRITE MUX TABLE ENTRY
07317  M02S00068.ns2149  ---|          SHN    6
07318  M02S00069.ns2149  ---|          ADC    MUXP+VMTM
07319  M02S00070.ns2149  ---|          CWD    CM
Line S05534 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07320  M01S05534.ns2149  ---|          RJM    CWA         SET DRIVER CONTROL WORD ADDRESS
07321  M01S05535.ns2149  ---|          CWD    DC          WRITE DRIVER CONTROL WORD
07322  M01S05536.ns2149  ---|
07323  M01S05537.ns2149  ---|*         WAIT FOR CP EXECUTIVE INITIALIZATION TO REPLY.
07324  M01S05538.ns2149  ---|
07325  M01S05539.ns2149  ---| INI2     DELAY              PAUSE FOR 128 USECS
07326  M01S05540.ns2149  ---|          RJM    CEF         CHECK ERROR FLAG
07327  M01S05541.ns2149  ---|          RJM    CWA         SET DRIVER CONTROL WORD ADDRESS
07328  M01S05542.ns2149  ---|          CRD    DC          READ DRIVER CONTROL WORD
07329  M01S05543.ns2149  ---|          LDD    DC          CHECK FOR EXECUTIVE RESPONSE
07330  M01S05544.ns2149  ---|          NJN    INI2        IF NO RESPONSE FROM EXECUTIVE
07331  M01S05545.ns2149  ---|
07332  M01S05546.ns2149  ---|*         SET TERMINAL NUMBER AND TERMINAL ID TABLE.
07333  M01S05547.ns2149  ---|
07334  M01S05548.ns2149  ---|          LDD    DC+4        SET ASSIGNED TERMINAL NUMBER
07335  M01S05549.ns2149  ---|          STD    TN
07336  M01S05550.ns2149  ---|          RJM    TID         SET TERMINAL ID TABLE
07337  M01S05551.ns2149  ---|
07338  M01S05552.ns2149  ---|*         DROP PPU IF NOT CYBER 170-8X5 MAINFRAME.
07339  M01S05553.ns2149  ---|
07340  M01S05554.ns2149  ---|          LDK    MABL        CHECK MAINFRAME TYPE
07341  M01S05555.ns2149  ---|          CRD    CM
07342  M01S05556.ns2149  ---|          LDD    CM+1
07343  M01S05557.ns2149  ---|          SHN    21-13
07344  M01S05558.ns2149  ---|          PJP    INIX        IF CYBER 170-8X5
07345  M01S05559.ns2149  ---|          LDC    =C* 1TM - NOT CYBER 170-8X5.*
07346  M01S05560.ns2149  ---|          LJM    ERR         PROCESS ERROR
07347  M01S05561.ns2149  ---| MTT      SPACE  4,15
07348  M01S05562.ns2149  ---|**        MTT - MODIFY TRANSLATION TABLES.
07349  M01S05563.ns2149  ---|*
07350  M01S05564.ns2149  ---|*         MODIFIES TRANSLATION TABLES FOR 63 CHARACTER SET.
07351  M01S05565.ns2149  ---|*
07352  M01S05566.ns2149  ---|*         EXIT   TRANSLATION TABLES MODIFIED IF THE SYSTEM
07353  M01S05567.ns2149  ---|*                IS IN 63 CHARACTER SET MODE.
07354  M01S05568.ns2149  ---|*
07355  M01S05569.ns2149  ---|*         USES   CM - CM+4.
07356  M01S05570.ns2149  ---|
07357  M01S05571.ns2149  ---|
07358  M01S05572.ns2149  ---| MTT      SUBR               ENTRY/EXIT
07359  M01S05573.ns2149  ---|          LDK    IPRL        CHECK SYSTEM CHARACTER SET MODE
07360  M01S05574.ns2149  ---|          CRD    CM
07361  M01S05575.ns2149  ---|          LDD    CM+2
07362  M01S05576.ns2149  ---|          LPN    1
07363  M01S05577.ns2149  ---|          NJN    MTTX        IF SYSTEM IN 64 CHARACTER SET MODE
07364  M01S05578.ns2149  ---|
07365  M01S05579.ns2149  ---|*         MODIFY INPUT CONVERSION TABLE.
07366  M01S05580.ns2149  ---|
07367  M01S05581.ns2149  ---|          LDN    63          SET *COLON*
07368  M01S05582.ns2149  ---|          STM    TINT+.ACLN
07369  M01S05583.ns2149  ---|          LDC    204         SET *PERCENT*
07370  M01S05584.ns2149  ---|          STM    TINT+.APCT
07371  M01S05585.ns2149  ---|
07372  M01S05586.ns2149  ---|*         MODIFY OUTPUT CONVERSION TABLE.
07373  M01S05587.ns2149  ---|
07374  M01S05588.ns2149  ---|          LDC    .CCLN       SET *COLON*
07375  M01S05589.ns2149  ---|          STM    TOTP+63
07376  M01S05590.ns2149  ---|          LDC    .CPCT       SET *PERCENT*
07377  M01S05591.ns2149  ---|          STM    TOTP+204
07378  M01S05592.ns2149  ---|          JMP    MTTX        RETURN
07379  M01S05593.ns2149  ---| SAD      SPACE  4,15
07380  M01S05594.ns2149  ---|**        SAD - SET ABSOLUTE ADDRESSES.
07381  M01S05595.ns2149  ---|*
07382  M01S05596.ns2149  ---|*         DETERMINES ABSOLUTE CM ADDRESS AND CALLS *SIA*
07383  M01S05597.ns2149  ---|*         TO INSERT THEM INTO PPU INSTRUCTIONS.
07384  M01S05598.ns2149  ---|*
07385  M01S05599.ns2149  ---|*         USES   T1, CM - CM+4.
07386  M01S05600.ns2149  ---|*
07387  M01S05601.ns2149  ---|*         CALLS  CWA, SIA.
07388  M01S05602.ns2149  ---|
07389  M01S05603.ns2149  ---|
07390  M01S05604.ns2149  ---| SAD      SUBR               ENTRY/EXIT
07391  M01S05605.ns2149  ---|
07392  M01S05606.ns2149  ---|*         SET BUFFER MEMORY ADDRESS REFERENCES.
07393  M01S05607.ns2149  ---|
07394  M01S05608.ns2149  ---|          LDC    TBMA        SET INSTRUCTION ADDRESS TABLE POINTER
07395  M01S05609.ns2149  ---|          STD    T1
07396  M01S05610.ns2149  ---|          LDD    RA          READ BUFFER MEMORY POINTER
07397  M01S05611.ns2149  ---|          SHN    6
07398  M01S05612.ns2149  ---|          ADK    VBMP
07399  M01S05613.ns2149  ---|          CRD    CM
07400  M01S05614.ns2149  ---|          LDN    CM+3        SET FWA BUFFER MEMORY
07401  M01S05615.ns2149  ---|          RJM    SIA         SET INSTRUCTION ADDRESSES
07402  M01S05616.ns2149  ---|
07403  M01S05617.ns2149  ---|*         SET DRIVER REQUEST QUEUE REFERENCES.
07404  M01S05618.ns2149  ---|
07405  M01S05619.ns2149  ---|          LDC    TDQA        SET INSTRUCTION ADDRESS TABLE POINTER
07406  M01S05620.ns2149  ---|          STD    T1
07407  M01S05621.ns2149  ---|          RJM    CWA         READ DRIVER CONTROL WORD
07408  M01S05622.ns2149  ---|          CRD    CM
07409  M01S05623.ns2149  ---|          LDN    CM+1        SET FWA DRIVER REQUEST QUEUE
07410  M01S05624.ns2149  ---|          RJM    SIA         SET INSTRUCTION ADDRESSES
07411  M01S05625.ns2149  ---|
07412  M01S05626.ns2149  ---|*         SET POT LINK TABLE REFERENCES.
07413  M01S05627.ns2149  ---|
07414  M01S05628.ns2149  ---|          LDC    TPLA        SET INSTRUCTION ADDRESS TABLE POINTER
07415  M01S05629.ns2149  ---|          STD    T1
07416  M01S05630.ns2149  ---|          LDD    RA          READ POT LINK TABLE POINTER
07417  M01S05631.ns2149  ---|          SHN    6
07418  M01S05632.ns2149  ---|          ADK    VPLP
07419  M01S05633.ns2149  ---|          CRD    CM
07420  M01S05634.ns2149  ---|          LDN    CM+1        SET FWA POT LINK TABLE
07421  M01S05635.ns2149  ---|          RJM    SIA         SET INSTRUCTION ADDRESSES
07422  M01S05636.ns2149  ---|
07423  M01S05637.ns2149  ---|
07424  M01S05638.ns2149  ---|*         SET TERMINAL TABLE REFERENCES.
07425  M01S05639.ns2149  ---|
07426  M01S05640.ns2149  ---|          LDC    TTTA        SET INSTRUCTION ADDRESS TABLE POINTER
07427  M01S05641.ns2149  ---|          STD    T1
07428  M01S05642.ns2149  ---|          LDD    RA          READ TERMINAL TABLE ADDRESS POINTER
07429  M01S05643.ns2149  ---|          SHN    6
07430  M01S05644.ns2149  ---|          ADK    VTTP
07431  M01S05645.ns2149  ---|          CRD    CM
07432  M01S05646.ns2149  ---|          LDN    CM+1        SET FWA OF TERMINAL TABLES
07433  M01S05647.ns2149  ---|          RJM    SIA         SET INSTRUCTION ADDRESSES
07434  M01S05648.ns2149  ---|          UJP    SADX        RETURN
07435  M01S05649.ns2149  ---| SCI      SPACE  4,15
07436  M01S05650.ns2149  ---|**        SCI - SET CHANNEL INSTRUCTIONS.
07437  M01S05651.ns2149  ---|*
07438  M01S05652.ns2149  ---|*         INSERTS CHANNEL NUMBER INTO CHANNEL INSTRUCTIONS.
07439  M01S05653.ns2149  ---|*
07440  M01S05654.ns2149  ---|*         ENTRY  (TCHI) = TABLE OF CHANNEL INSTRUCTION ADDRESSES.
07441  M01S05655.ns2149  ---|*                (CM+1) = MULTIPLEXER CHANNEL NUMBER.
07442  M01S05656.ns2149  ---|*                (SCIA) = LAST CHANNEL NUMBER SET.
07443  M01S05657.ns2149  ---|*
07444  M01S05658.ns2149  ---|*         EXIT   MULTIPLEXER CHANNEL NUMBER INSERTED INTO
07445  M01S05659.ns2149  ---|*                CHANNEL INSTRUCTIONS.
07446  M01S05660.ns2149  ---|*
07447  M01S05661.ns2149  ---|*         USES   T1, T2.
07448  M01S05662.ns2149  ---|*
07449  M01S05663.ns2149  ---|*         MACROS CHTE.
07450  M01S05664.ns2149  ---|
07451  M01S05665.ns2149  ---|
07452  M01S05666.ns2149  ---| SCI      SUBR               ENTRY/EXIT
07453  M01S05667.ns2149  ---|          LDD    CM+1        GET CHANNEL NUMBER
07454  M01S05668.ns2149  ---|          LPN    77
07455  M01S05669.ns2149  ---| SCIA     LMN    MC          CHECK AGAINST LAST CHANNEL SET
07456  M01S05670.ns2149  ---|          CHTE   SCIA
07457  M01S05671.ns2149  ---|          ZJN    SCIX        IF NO CHANGE OF CHANNEL
07458  M01S05672.ns2149  ---|          STD    T0          SET LOGICAL DIFFERENCE
07459  M01S05673.ns2149  ---|          LDC    TCHI        SET FWA OF ADDRESS TABLE
07460  M01S05674.ns2149  ---|          STD    T1
07461  M01S05675.ns2149  ---| SCI1     LDI    T1          GET INSTRUCTION ADDRESS
07462  M01S05676.ns2149  ---|          ZJN    SCIX        IF END OF TABLE
07463  M01S05677.ns2149  ---|          STD    T2
07464  M01S05678.ns2149  ---|          LDI    T2          GET INSTRUCTION
07465  M01S05679.ns2149  ---|          LMD    T0          MODIFY CHANNEL NUMBER
07466  M01S05680.ns2149  ---|          STI    T2          REWRITE INSTRUCTION
07467  M01S05681.ns2149  ---|          AOD    T1          ADVANCE ADDRESS TABLE POINTER
07468  M01S05682.ns2149  ---|          UJN    SCI1        LOOP TO END OF TABLE
07469  M01S05683.ns2149  ---| SIA      SPACE  4,15
07470  M01S05684.ns2149  ---|**        SIA - SET INSTRUCTION ADDRESSES.
07471  M01S05685.ns2149  ---|*
07472  M01S05686.ns2149  ---|*         SETS ABSOLUTE ADDRESSES IN INSTRUCTION ADDRESS
07473  M01S05687.ns2149  ---|*         FIELDS.
07474  M01S05688.ns2149  ---|*
07475  M01S05689.ns2149  ---|*         ENTRY  (T1) = ADDRESS OF TABLE OF INSTRUCTION
07476  M01S05690.ns2149  ---|*                       ADDRESSES.
07477  M01S05691.ns2149  ---|*                (A) = ADDRESS IN PPU OF CM ADDRESS.
07478  M01S05692.ns2149  ---|*
07479  M01S05693.ns2149  ---|*         USES   T2, T6, T7.
07480  M01S05694.ns2149  ---|
07481  M01S05695.ns2149  ---|
07482  M01S05696.ns2149  ---| SIA      SUBR               ENTRY/EXIT
07483  M01S05697.ns2149  ---|          STD    T2          SAVE ADDRESS POINTER
07484  M01S05698.ns2149  ---|          LDI    T2          GET ABSOLUTE ADDRESS
07485  M01S05699.ns2149  ---|          SHN    6           ABSOLUTE RELATIVE ADDRESS
07486  M01S05700.ns2149  ---|          ADD    RA
07487  M01S05701.ns2149  ---|          SHN    6
07488  M01S05702.ns2149  ---|          ADM    1,T2
07489  M01S05703.ns2149  ---|          STD    T7          SAVE LOWER 12 BITS
07490  M01S05704.ns2149  ---|          SHN    -14
07491  M01S05705.ns2149  ---|          STD    T6
07492  M01S05706.ns2149  ---|
07493  M01S05707.ns2149  ---| SIA1     LDI    T1          READ INSTRUCTION ADDRESS
07494  M01S05708.ns2149  ---|          ZJP    SIAX        IF END OF ADDRESS TABLE
07495  M01S05709.ns2149  ---|          STD    T2
07496  M01S05710.ns2149  ---|          LDD    T7          SET LOWER 12 BITS
07497  M01S05711.ns2149  ---|          RAM    1,T2
07498  M01S05712.ns2149  ---|          SHN    -14
07499  M01S05713.ns2149  ---|          ADD    T6          ADD OVERFLOW
07500  M01S05714.ns2149  ---|          RAI    T2          SET UPPER 6 BITS
07501  M01S05715.ns2149  ---|          AOD    T1          ADVANCE TABLE INDEX
07502  M01S05716.ns2149  ---|          UJN    SIA1        LOOP TO END OF TABLE
07503  M01S05717.ns2149  ---| STP      SPACE  4,15
07504  M01S05718.ns2149  ---|**        STP - SYNCHRONIZE MONITOR *TSEM* PROCESSING.
07505  M01S05719.ns2149  ---|*
Line S05720 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07506  M02S05720.ns2149  ---|*         IF *1TM* IS THE FIRST *RAF* DRIVER TO BE CALLED, ISSUE
07507  M02S05721.ns2149  ---|*         SPECIAL *TSEM* MONITOR REQUEST TO START-UP MONITOR
Line S00071 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07508  M02S00071.ns2149  ---|*         ISSUE SPECIAL *TSEM* REQUEST TO ENABLE
Line S05722 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07509  M01S05722.ns2149  ---|*         *TSEM* REQUEST PROCESSING.
07510  M01S05723.ns2149  ---|*
07511  M01S05724.ns2149  ---|*         ENTRY  (IR+4) = DRIVER CONTROL WORD POINTER.
07512  M01S05725.ns2149  ---|*
07513  M01S05726.ns2149  ---|*         EXIT   SPECIAL *TSEM* FUNCTION ISSUED IF THIS IS THE
07514  M01S05727.ns2149  ---|*                FIRST DRIVER IN TABLE *VDRL*.
07515  M01S05728.ns2149  ---|*
07516  M01S05729.ns2149  ---|*         USES   CM - CM+4.
07517  M01S05730.ns2149  ---|*
07518  M01S05731.ns2149  ---|*         MACROS MONITOR.
07519  M01S05732.ns2149  ---|
07520  M01S05733.ns2149  ---|
07521  M01S05734.ns2149  ---| STP      SUBR               ENTRY/EXIT
Line S05735 Modification History
M01 (Removed by) ns22000
M02 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07522  M02S05735.ns2149  ---|          LDD    IR+4        CHECK DRIVER POINTER
07523  M02S05736.ns2149  ---|          SBK    VDRL
07524  M02S05737.ns2149  ---|          NJN    STPX        IF NOT FIRST DRIVER IN *VDRL* TABLE
Line S05738 Modification History
M01 (Removed by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07525  M01S05738.ns2149  ---|          LDK    ZERL        CLEAR ZERO WORD
07526  M01S05739.ns2149  ---|          CRD    CM
07527  M01S05740.ns2149  ---|          LCN    0           SET *TSEM* REQUEST
07528  M01S05741.ns2149  ---|          STD    CM
07529  M01S05742.ns2149  ---|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
07530  M01S05743.ns2149  ---|          CWD    CM
07531  M01S05744.ns2149  ---|          MONITOR TSEM       ISSUE *TSEM* REQUEST
07532  M01S05745.ns2149  ---|          UJN    STPX        RETURN
07533  M01S05746.ns2149  ---| TID      SPACE  4,15
07534  M01S05747.ns2149  ---|**        TID - SET TERMINAL ID TABLE.
07535  M01S05748.ns2149  ---|*
07536  M01S05749.ns2149  ---|*         WRITES DRIVER TERMINAL ID TABLE TO CM.
07537  M01S05750.ns2149  ---|*
07538  M01S05751.ns2149  ---|*         ENTRY  (DC - DC+4) = DRIVER CONTROL WORD.
07539  M01S05752.ns2149  ---|*
07540  M01S05753.ns2149  ---|*         EXIT   DRIVER TERMINAL ID TABLE WRITTEN TO CM.
07541  M01S05754.ns2149  ---|*
07542  M01S05755.ns2149  ---|*         USES   CM - CM+4.
07543  M01S05756.ns2149  ---|
07544  M01S05757.ns2149  ---|
07545  M01S05758.ns2149  ---| TID      SUBR               ENTRY/EXIT
07546  M01S05759.ns2149  ---|          LDD    DC+1        SET DRIVER STACK ADDRESS
07547  M01S05760.ns2149  ---|          SHN    6
07548  M01S05761.ns2149  ---|          ADD    RA
07549  M01S05762.ns2149  ---|          SHN    6
07550  M01S05763.ns2149  ---|          ADD    DC+2
07551  M01S05764.ns2149  ---|          ADN    4           READ *LIMIT* POINTER
07552  M01S05765.ns2149  ---|          CRD    CM
07553  M01S05766.ns2149  ---|          LDD    CM+3        SET ADDRESS FOR ID TABLE
07554  M01S05767.ns2149  ---|          SHN    6
07555  M01S05768.ns2149  ---|          ADD    RA
07556  M01S05769.ns2149  ---|          SHN    6
07557  M01S05770.ns2149  ---|          ADD    CM+4
07558  M01S05771.ns2149  ---|          CWM    TIDA,ON     WRITE ID TABLE TO CM
07559  M01S05772.ns2149  ---|          CWM    TIDB,ON
07560  M01S05773.ns2149  ---|          UJN    TIDX        RETURN
07561  M01S05774.ns2149  ---|
07562  M01S05775.ns2149  ---|
07563  M01S05776.ns2149  ---| TIDA     DATA   10LTPM        TPM TERMINAL ID
07564  M01S05777.ns2149  ---| TIDB     DATA   10LBLKTPM     BLKEDIT TPM TERMINAL ID
07565  M01S05778.ns2149  ---| ITM      TITLE  INITIALIZATION TABLES.
07566  M01S05779.ns2149  ---| ITM      SPACE  4,15
07567  M01S05780.ns2149  ---|**        TABLES OF CENTRAL MEMORY REFERENCE INSTRUCTION
07568  M01S05781.ns2149  ---|*         ADDRESSES.
07569  M01S05782.ns2149  ---|
07570  M01S05783.ns2149  ---|
07571  M01S05784.ns2149  ---| TBMA     BSS    0           BUFFER MEMORY REFERENCES
07572  M01S05785.ns2149  ---| TBMA     HERE
07573  M01S05786.ns2149  ---|          CON    0
07574  M01S05787.ns2149  ---|
07575  M01S05788.ns2149  ---| TDQA     BSS    0           DRIVER REQUEST QUEUE REFERENCES
07576  M01S05789.ns2149  ---| TDQA     HERE
07577  M01S05790.ns2149  ---|          CON    0
07578  M01S05791.ns2149  ---|
07579  M01S05792.ns2149  ---| TPLA     BSS    0           POT LINK TABLE REFERENCES
07580  M01S05793.ns2149  ---| TPLA     HERE
07581  M01S05794.ns2149  ---|          CON    0
07582  M01S05795.ns2149  ---|
07583  M01S05796.ns2149  ---| TTTA     BSS    0           TERMINAL TABLE REFERENCES
07584  M01S05797.ns2149  ---| TTTA     HERE
07585  M01S05798.ns2149  ---|          CON    0
07586  M01S05799.ns2149  ---| TCHI     SPACE  4,10
07587  M01S05800.ns2149  ---|**        TCHI - TABLE OF CHANNEL INSTRUCTION ADDRESSES.
07588  M01S05801.ns2149  ---|
07589  M01S05802.ns2149  ---|
07590  M01S05803.ns2149  ---| TCHI     CHTB               ASSEMBLE ADDRESS TABLE
Line S00688 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07591  M01S00688.ns2149  +++|          OVERFLOW  OVLA
Line S00899 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07592  M01S00899.242l642 +++|          TTL    1TM/4TM - MESSAGE PROCESSOR.
07593  M01S00900.242l642 +++|          TITLE  MESSAGE PROCESSOR.
07594  M01S00901.242l642 +++|          IDENT  4TM,MGPX
07595  M01S00902.242l642 +++|*COMMENT  1TM - MESSAGE PROCESSOR.
Line S00903 Modification History
M01 (Added by) 242l642
M02 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07596  M02S00903.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1985.
Line S00004 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
07597  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00904 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07598  M01S00904.242l642 +++|          SPACE  4,10
07599  M01S00905.242l642 +++|          ORG    OVLA
07600  M01S00906.242l642 +++| MGP      SPACE  4,15
07601  M01S00907.242l642 +++|**        MGP - MESSAGE PROCESSOR.
07602  M01S00908.242l642 +++|*
07603  M01S00909.242l642 +++|*         ENTRY  (A) = 1/E,5/N.
07604  M01S00910.242l642 +++|*                      E = 1, IF MESSAGE IS TO GO TO ERROR LOG ALSO.
07605  M01S00911.242l642 +++|*                      N = ERROR MESSAGE NUMBER FROM TABLE *TMSG*.
07606  M01S00912.242l642 +++|*
07607  M01S00913.242l642 +++|*         USES   T0, T1, T2.
07608  M01S00914.242l642 +++|*
07609  M01S00915.242l642 +++|*         CALLS  DFM, O2D.
07610  M01S00916.242l642 +++|*
07611  M01S00917.242l642 +++|*         NOTES  WHEN A MESSAGE IS ISSUED TO THE ERROR LOG, THE
07612  M01S00918.242l642 +++|*                FIRST SIX CHARACTERS (* 1TM -*) ARE NOT SENT.
07613  M01S00919.242l642 +++|
07614  M01S00920.242l642 +++|
07615  M01S00921.242l642 +++| MGP      SUBR               ENTRY/EXIT
07616  M01S00922.242l642 +++|          LDM    IMTA        MESSAGE REQUEST
07617  M01S00923.242l642 +++|          STD    T0
07618  M01S00924.242l642 +++|          LPN    37
07619  M01S00925.242l642 +++|          ADC    TMSG-1
07620  M01S00926.242l642 +++|          STD    T1          ADDRESS OF ADDRESS OF MESSAGE
07621  M01S00927.242l642 +++|          LDI    T1          SAVE MESSAGE ADDRESS
07622  M01S00928.242l642 +++|          STM    MGPA
07623  M01S00929.242l642 +++|          LDD    T1
07624  M01S00930.242l642 +++|          LMC    TMSG+MFTO-1
07625  M01S00931.242l642 +++|          ZJN    MGP3        IF FUNCTION TIME-OUT
07626  M01S00932.242l642 +++| MGP1     LDD    T0
07627  M01S00933.242l642 +++|          SHN    21-5
07628  M01S00934.242l642 +++|          PJN    MGP2        IF NOT TO BE ISSUED TO THE ERROR LOG
07629  M01S00935.242l642 +++|          LDI    T1
07630  M01S00936.242l642 +++|          ADC    3+ERLN
07631  M01S00937.242l642 +++|          RJM    DFM         ISSUE ERROR LOG MESSAGE
07632  M01S00938.242l642 +++| MGP2     LDC    **
07633  M01S00939.242l642 +++| MGPA     EQU    *-1
07634  M01S00940.242l642 +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
07635  M01S00941.242l642 +++|          JMP    MGPX        RETURN
07636  M01S00942.242l642 +++|
07637  M01S00943.242l642 +++|*         FORMAT EST ORDINAL INTO DAYFILE MESSAGE.
07638  M01S00944.242l642 +++|
07639  M01S00945.242l642 +++| MGP3     LDI    T1          SET FWA OF MESSAGE
07640  M01S00946.242l642 +++|          STD    T2
07641  M01S00947.242l642 +++|          LDD    EQ          CONVERT UPPER 3 BITS
07642  M01S00948.242l642 +++|          SHN    -6
07643  M01S00949.242l642 +++|          LPN    7
07644  M01S00950.242l642 +++|          ADC    2RM0
07645  M01S00951.242l642 +++|          STM    4,T2
07646  M01S00952.242l642 +++|          LDD    EQ          CONVERT LOWER 6 BITS
07647  M01S00953.242l642 +++|          RJM    O2D
07648  M01S00954.242l642 +++|          STM    5,T2
07649  M01S00955.242l642 +++|
07650  M01S00956.242l642 +++|*         FORMAT CHANNEL AND PORT NUMBERS INTO DAYFILE MESSAGE.
07651  M01S00957.242l642 +++|
07652  M01S00958.242l642 +++|          LDN    MX          CONVERT CHANNEL NUMBER
07653  M01S00959.242l642 +++|          RJM    O2D
07654  M01S00960.242l642 +++|          STM    7,T2
07655  M01S00961.242l642 +++|          LDD    PN          CONVERT PORT NUMBER
07656  M01S00962.242l642 +++|          RJM    O2D
07657  M01S00963.242l642 +++|          STM    11,T2
07658  M01S00964.242l642 +++|
07659  M01S00965.242l642 +++|*         FORMAT FUNCTION CODE INTO DAYFILE MESSAGE.
07660  M01S00966.242l642 +++|
07661  M01S00967.242l642 +++|          LDM    IMTB        CONVERT UPPER TWO DIGITS
07662  M01S00968.242l642 +++|          SHN    -6
07663  M01S00969.242l642 +++|          RJM    O2D
07664  M01S00970.242l642 +++|          STM    13,T2
07665  M01S00971.242l642 +++|          LDM    IMTB        CONVERT LOWER TWO DIGITS
07666  M01S00972.242l642 +++|          RJM    O2D
07667  M01S00973.242l642 +++|          STM    14,T2
07668  M01S00974.242l642 +++|          UJP    MGP1        ISSUE MESSAGES
07669  M01S00975.242l642 +++|
07670  M01S00976.242l642 +++|
07671  M01S00977.242l642 +++| TMSG     BSS    0           TABLE OF ERROR MESSAGES
07672  M01S00978.242l642 +++|          LOC    1
07673  M01S00979.242l642 +++|
07674  M01S00980.242l642 +++| MCBR     CON    =C* 1TM - RDF CANNOT BE RUN ON MAINFRAME.*
07675  M01S00981.242l642 +++| MFTO     CON    =C* 1TM - RMEEE CXX PYY FNNNN REJECT.*
07676  M01S00982.242l642 +++| MNTA     CON    =C* 1TM - NO TPM AVAILABLE.*
07677  M01S00983.242l642 +++| MTIO     CON    =C* 1TM - RDF TIME-OUT.*
07678  M01S00984.242l642 +++| MTER     CON    =C* 1TM - RDF TERMINATED.*
07679  M01S00985.242l642 +++|
07680  M01S00986.242l642 +++|          LOC    *O
07681  M01S00987.242l642 +++| O2D      SPACE  4,15
07682  M01S00988.242l642 +++|**        O2D - CONVERT TWO DIGITS TO OCTAL DISPLAY CODE.
07683  M01S00989.242l642 +++|*
07684  M01S00990.242l642 +++|*         ENTRY  (A) = TWO OCTAL DIGITS TO BE CONVERTED.
07685  M01S00991.242l642 +++|*
07686  M01S00992.242l642 +++|*         EXIT   (A) = DISPLAY CODE CONVERSION.
07687  M01S00993.242l642 +++|
07688  M01S00994.242l642 +++|
07689  M01S00995.242l642 +++| O2D      SUBR               ENTRY/EXIT
07690  M01S00996.242l642 +++|          LPN    77          MASK EXTRANEOUS BITS
07691  M01S00997.242l642 +++|          STD    T0          SAVE OCTAL VALUE
07692  M01S00998.242l642 +++|          SHN    3           SPLIT UPPER AND LOWER 3-BIT VALUES
07693  M01S00999.242l642 +++|          LMD    T0
07694  M01S01000.242l642 +++|          SCN    70
07695  M01S01001.242l642 +++|          ADC    2R00        CONVERT DIGITS
07696  M01S01002.242l642 +++|          UJN    O2DX        RETURN
07697  M01S01003.242l642 +++|
07698  M01S01004.242l642 +++|
07699  M01S01005.242l642 +++|          OVERFLOW  OVLA
Line S00689 Modification History
M01 (Added by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
07700  M01S00689.ns2149  +++|          TTL    1TM - RDF TWO-PORT MULTIPLEXER DRIVER.
07701  M00S05804.1tm     +++| ITM      SPACE  4
07702  M00S05805.1tm     +++|          END
cdc/nos2.source/opl.opl871/deck/1tm.004.txt ยท Last modified: by 127.0.0.1