User Tools

Site Tools


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

Deck 1TM Part 002

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03370  M01S02943.1tm     +++|          STD    DP+2
03371  M01S02944.1tm     +++|          RJM    RLT         GET NEXT POT LINK
03372  M01S02945.1tm     +++|          ZJN    WIC5        IF POT NOT LINKED
03373  M01S02946.1tm     +++|          STD    DP+1        SET NEW CURRENT POT
03374  M01S02947.1tm     +++|          LDD    DP+3
03375  M01S02948.1tm     +++|          LPN    10
03376  M01S02949.1tm     +++|          ZJN    WIC3        IF NOT BINARY MODE, RETURN
03377  M01S02950.1tm     +++|          LDD    DC          CHECK TERMINAL STATUS
03378  M01S02951.1tm     +++|          SHN    21-6
03379  M01S02952.1tm     +++|          MJN    WIC3        IF *READ DATA* SET
03380  M01S02953.1tm     +++|          RJM    RIN         RELEASE INPUT DATA
03381  M01S02954.1tm     +++|          JMP    WICX        RETURN
03382  M01S02955.1tm     +++|
03383  M01S02956.1tm     +++| WIC5     RETURN NIP         PROCESS NO-INPUT-POT
03384  M01S02957.1tm     +++| ZOM      SPACE  4,15
03385  M01S02958.1tm     +++|**        ZOM - ZERO-FILL OPERATOR MESSAGE BUFFER.
03386  M01S02959.1tm     +++|*
03387  M01S02960.1tm     +++|*         ZERO-FILLS THE OPERATOR MESSAGE BUFFER FROM THE LAST
03388  M01S02961.1tm     +++|*         CHARACTER ENTERED INTO THE BUFFER TO THE END OF THE
03389  M01S02962.1tm     +++|*         BUFFER.
03390  M01S02963.1tm     +++|*
03391  M01S02964.1tm     +++|*         ENTRY  (OMCC) = NUMBER OF CHARACTERS IN BUFFER.
03392  M01S02965.1tm     +++|*
03393  M01S02966.1tm     +++|*         EXIT   BUFFER ZERO-FILLED.
03394  M01S02967.1tm     +++|*
03395  M01S02968.1tm     +++|*         USES   T1.
03396  M01S02969.1tm     +++|
03397  M01S02970.1tm     +++|
03398  M01S02971.1tm     +++| ZOM      SUBR               ENTRY/EXIT
03399  M01S02972.1tm     +++|          LDM    OMCC        GET BUFFER CHARACTER COUNT
03400  M01S02973.1tm     +++|          SHN    22-1        SET PPU BYTE COUNT
03401  M01S02974.1tm     +++|          STD    T1
03402  M01S02975.1tm     +++|          SHN    1           ADD LAST CHARACTER INDEX
03403  M01S02976.1tm     +++|          LPN    1
03404  M01S02977.1tm     +++|          RAD    T1
03405  M01S02978.1tm     +++| ZOM1     SBK    37D         CHECK FOR END OF BUFFER
03406  M01S02979.1tm     +++|          PJN    ZOMX        IF BUFFER COMPLETE
03407  M01S02980.1tm     +++|          LDN    0           CLEAR BUFFER BYTE
03408  M01S02981.1tm     +++|          STM    OMBUF,T1
03409  M01S02982.1tm     +++|          AOD    T1          INCREMENT BUFFER INDEX
03410  M01S02983.1tm     +++|          UJN    ZOM1        LOOP TO END OF BUFFER
03411  M01S02984.1tm     +++|          SPACE  4,10
03412  M01S02985.1tm     +++|          QUAL
03413  M01S02986.1tm     +++|
03414  M01S02987.1tm     +++| RDM      EQU    /RDM/RDM
03415  M01S02988.1tm     +++| WTM      TITLE  WRITE MODE.
03416  M01S02989.1tm     +++|          QUAL   WTM
03417  M01S02990.1tm     +++| WTM      SPACE  4,20
03418  M01S02991.1tm     +++|**        WTM - WRITE MODE CONTROL.
03419  M01S02992.1tm     +++|*
03420  M01S02993.1tm     +++|*         DETERMINES WHETHER A WRITE OPERATION SHOULD BE IN NOS
03421  M01S02994.1tm     +++|*         *BINARY* OR IN *ASCII* FORMAT AND BRANCHES TO THE FORMAT
03422  M01S02995.1tm     +++|*         WRITE PROCESSOR.
03423  M01S02996.1tm     +++|*
03424  M01S02997.1tm     +++|*         ENTRY  (DP+1) = FIRST POT OF OUTPUT.
03425  M01S02998.1tm     +++|*                (DP+2), CURRENT WORD = FIRST WORD OF OUTPUT.
03426  M01S02999.1tm     +++|*                (DP+3)  *BINARY TRANSMISSION* STATUS
03427  M01S03000.1tm     +++|*                (CH+2) = ESCAPE CONTROL.
03428  M01S03001.1tm     +++|*
03429  M01S03002.1tm     +++|*         EXIT   TO *AWT* FOR *ASCII* FORMAT WRITE.
03430  M01S03003.1tm     +++|*                TO *BWT* FOR NOS *BINARY* FORMAT WRITE.
03431  M01S03004.1tm     +++|*
03432  M01S03005.1tm     +++|*         CALLS  ERQ, RLT.
03433  M01S03006.1tm     +++|
03434  M01S03007.1tm     +++|
03435  M01S03008.1tm     +++| WTM      BSS    0           ENTRY
03436  M01S03009.1tm     +++|          RJM    RLT         CHECK POT LINK
03437  M01S03010.1tm     +++|          NJN    WTM1        IF POT LINKED
03438  M01S03011.1tm     +++|          LDN    /TLX/RES    REQUEST MORE OUTPUT
03439  M01S03012.1tm     +++|          RJM    ERQ
03440  M01S03013.1tm     +++| WTM1     LDD    DP+3        CHECK *BINARY TRANSMISSION*
03441  M01S03014.1tm     +++|          LPN    10
03442  M01S03015.1tm     +++|          ZJN    AWT         IF *ASCII* WRITE
03443  M01S03016.1tm     +++|          LJM    BWT         ENTER *BINARY* WRITE
03444  M01S03017.1tm     +++| AWT      TITLE  WRITE MODE - *ASCII* WRITE PROCESSOR.
03445  M01S03018.1tm     +++| AWT      SPACE  4,50
03446  M01S03019.1tm     +++|**        AWT - *ASCII* WRITE PROCESSOR.
03447  M01S03020.1tm     +++|*
03448  M01S03021.1tm     +++|*         ISSUES *ASCII* CHARACTER DATA TO TERMINAL.
03449  M01S03022.1tm     +++|*
03450  M01S03023.1tm     +++|*         ENTRY  (CH+2) = ESCAPE CONTROL.
03451  M01S03024.1tm     +++|*
03452  M01S03025.1tm     +++|*         EXIT   (CH+2) = ESCAPE CONTROL UPDATED.
03453  M01S03026.1tm     +++|*
03454  M01S03027.1tm     +++|*         ESCAPE CONTROL -
03455  M01S03028.1tm     +++|*
03456  M01S03029.1tm     +++|*                4XXX  =  VALID CHARACTER POINTER XXX.
03457  M01S03030.1tm     +++|*                0100  =  ESCAPE 1.
03458  M01S03031.1tm     +++|*                0200  =  ESCAPE 2.
03459  M01S03032.1tm     +++|*                0300  =  *00* (POSSIBLE EOL) BYTE HAS BEEN
03460  M01S03033.1tm     +++|*                         DETECTED.  THIS SITUATION WILL OCCUR
03461  M01S03034.1tm     +++|*                         WHEN THE LOWER CHARACTER OF AN
03462  M01S03035.1tm     +++|*                         OUTPUT BYTE IS FOUND TO BE ZERO.
03463  M01S03036.1tm     +++|*                         AT THIS POINT, FURTHER TESTING MUST
03464  M01S03037.1tm     +++|*                         BE DONE TO DETERMINE WHETHER OR NOT
03465  M01S03038.1tm     +++|*                         THIS ZERO CHARACTER IS PART OF
03466  M01S03039.1tm     +++|*                         AN END OF LINE OR IS FOLLOWED BY
03467  M01S03040.1tm     +++|*                         DATA.  THIS LATTER CONDITION IS A
03468  M01S03041.1tm     +++|*                         FALSE END OF LINE AND THE ZERO
03469  M01S03042.1tm     +++|*                         CHARACTER MUST BE PROCESSED AS A
03470  M01S03043.1tm     +++|*                         COLON.
03471  M01S03044.1tm     +++|*                04XX  =  FALSE EOL HAS BEEN DETECTED.
03472  M01S03045.1tm     +++|*                         XX = NEXT OUTPUT CHARACTER.
03473  M01S03046.1tm     +++|*                05XX  =  SUSPENDED CONTROL PROCESSING.  THIS
03474  M01S03047.1tm     +++|*                         SITUATION OCCURS WHEN A CONTROL
03475  M01S03048.1tm     +++|*                         CHARACTER PROCESSOR IS UNABLE TO
03476  M01S03049.1tm     +++|*                         TO DETERMINE WHETHER OR NOT A
03477  M01S03050.1tm     +++|*                         SUSPECTED CONTROL CHARACTER IS
03478  M01S03051.1tm     +++|*                         FOLLOWED BY AN END OF LINE.
03479  M01S03052.1tm     +++|*                         THIS WILL OCCUR WHEN THERE IS
03480  M01S03053.1tm     +++|*                         NO FURTHER DATA IN THE CURRENT
03481  M01S03054.1tm     +++|*                         OUTPUT POTS AND THE DRIVER MUST
03482  M01S03055.1tm     +++|*                         WAIT FOR FURTHER OUTPUT TO BE
03483  M01S03056.1tm     +++|*                         ASSIGNED.
03484  M01S03057.1tm     +++|
03485  M01S03058.1tm     +++|
03486  M01S03059.1tm     +++| AWT      BSS    0           ENTRY
03487  M01S03060.1tm     +++|          RETURN *           REENTER
03488  M01S03061.1tm     +++|
03489  M01S03062.1tm     +++|*         CHECK ESCAPE CONTROL.
03490  M01S03063.1tm     +++|
03491  M01S03064.1tm     +++|          LDD    CH+2        GET ESCAPE CONTROL
03492  M01S03065.1tm     +++|          SHN    -6
03493  M01S03066.1tm     +++|          ZJN    AWT1        IF NULL
03494  M01S03067.1tm     +++|          STD    T1
03495  M01S03068.1tm     +++|          SBN    TECPL       TEST FOR VALID DATA BIT
03496  M01S03069.1tm     +++|          PJN    AWT1        IF VALID DATA SET
03497  M01S03070.1tm     +++|          LDM    TECP-1,T1   SET PROCESSOR ADDRESS
03498  M01S03071.1tm     +++|          STD    T2
03499  M01S03072.1tm     +++|          LDD    CH+2        SAVE LOWER SIX BITS
03500  M01S03073.1tm     +++|          LPN    77
03501  M01S03074.1tm     +++|          STD    T7
03502  M01S03075.1tm     +++|          LJM    0,T2        PROCESS ESCAPE CONTROL
03503  M01S03076.1tm     +++|
03504  M01S03077.1tm     +++|*         GET NEXT OUTPUT CHARACTER.
03505  M01S03078.1tm     +++|
03506  M01S03079.1tm     +++| AWT1     RJM    ROC         GET NEXT CHARACTER
03507  M01S03080.1tm     +++|          PJN    AWT3        IF NOT CONTROL BYTE
03508  M01S03081.1tm     +++| AWT2     LJM    SOC         PROCESS CONTROL BYTE
03509  M01S03082.1tm     +++|
03510  M01S03083.1tm     +++| AWT3     NJN    AWT4        IF NON-ZERO
03511  M01S03084.1tm     +++|          LJM    AWT11       CHECK POSSIBLE END OF LINE
03512  M01S03085.1tm     +++|
03513  M01S03086.1tm     +++|*         CHECK OUTPUT CHARACTER.
03514  M01S03087.1tm     +++|
03515  M01S03088.1tm     +++| AWT4     SBN    74          CHECK FOR ESCAPE CHARACTER
03516  M01S03089.1tm     +++|          MJN    AWT7        IF NOT ESCAPE 1 OR 2
03517  M01S03090.1tm     +++|          ZJN    AWT5        IF ESCAPE 2
03518  M01S03091.1tm     +++|          SBN    76-74
03519  M01S03092.1tm     +++|          NJN    AWT7        IF NOT ESCAPE 1
03520  M01S03093.1tm     +++|          LCN    1
03521  M01S03094.1tm     +++|
03522  M01S03095.1tm     +++|*         PROCESS ESCAPE CHARACTER.
03523  M01S03096.1tm     +++|
03524  M01S03097.1tm     +++| AWT5     ADN    2           SET ESCAPE CHARACTER BIAS
03525  M01S03098.1tm     +++|          SHN    6
03526  M01S03099.1tm     +++|          STD    CH+2
Line S03100 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2409
Seq #  *Modification Id* Act 
----------------------------+
03527  M02S03100.ns2409  ---|          LDD    DP+3        CHECK TERMINAL MODE
Line S03101 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2409
Seq #  *Modification Id* Act 
----------------------------+
03528  M02S03101.ns2409  ---|          LPN    2
Line S00001 Modification History
M01 (Added by) ns2409
M02 (Updated by) ns2409b
Seq #  *Modification Id* Act 
----------------------------+
03529  M02S00001.ns2409b ---|          LDD    DC          CHECK TERMINAL MODE
Line S00002 Modification History
M01 (Added by) ns2409
M02 (Updated by) ns2409b
Seq #  *Modification Id* Act 
----------------------------+
03530  M02S00002.ns2409b ---|          LPN    10
03531  M01S00014.ns2409b +++|          LDD    DP+3
03532  M01S00015.ns2409b +++|          LPN    2
03533  M01S03102.1tm     +++|          ZJN    AWT7        IF NOT EXTENDED MODE
03534  M01S03103.1tm     +++| AWT6     RJM    ROC         GET NEXT OUTPUT CHARACTER
03535  M01S03104.1tm     +++|          MJN    AWT2        IF CONTROL BYTE
03536  M01S03105.1tm     +++|          ADD    CH+2        ADD ESCAPE CHARACTER BIAS
03537  M01S03106.1tm     +++|          STD    T7
03538  M01S03107.1tm     +++|          ADC    -214
03539  M01S03108.1tm     +++|          MJN    AWT7        IF LEGAL CHARACTER
03540  M01S03109.1tm     +++|          LDN    0           IGNORE INVALID CHARACTER
03541  M01S03110.1tm     +++|          STD    CH+2
03542  M01S03111.1tm     +++|          LJM    AWT         LOOP FOR NEXT CHARACTER
03543  M01S03112.1tm     +++|
03544  M01S03113.1tm     +++|*         CLEAR ESCAPE CONTROL.
03545  M01S03114.1tm     +++|*
03546  M01S03115.1tm     +++|*                (T7) = OUTPUT CHARACTER PLUS ESCAPE BIAS.
03547  M01S03116.1tm     +++|
03548  M01S03117.1tm     +++| AWT7     LDN    0           CLEAR ESCAPE CONTROL
03549  M01S03118.1tm     +++|          STD    CH+2
03550  M01S03119.1tm     +++|
03551  M01S03120.1tm     +++|*         TRANSLATE AND ISSUE OUTPUT CHARACTER.
03552  M01S03121.1tm     +++|*
03553  M01S03122.1tm     +++|*                (T7) = OUTPUT CHARACTER PLUS ESCAPE BIAS.
03554  M01S03123.1tm     +++|
03555  M01S03124.1tm     +++| AWT8     RJM    TOC         TRANSLATE OUTPUT CHARACTER
03556  M01S03125.1tm     +++|          SHN    6
03557  M01S03126.1tm     +++|          PJN    AWT10       IF SPECIAL PROCESSING REQUIRED
03558  M01S03127.1tm     +++|          AOD    CH+1        ADVANCE CHARACTER COUNT/LINE
03559  M01S03128.1tm     +++|          AOD    CH+4        ADVANCE OUTPUT CHARACTER COUNT
03560  M01S03129.1tm     +++|          SHN    -14
03561  M01S03130.1tm     +++|          ZJN    AWT9        IF NO OVERFLOW (4096 CHARACTERS)
03562  M01S03131.1tm     +++|          LDN    /TLX/IAM    REQUEST ISSUE ACCOUNTING MESSAGE
03563  M01S03132.1tm     +++|          RJM    ERQ
03564  M01S03133.1tm     +++|
03565  M01S03134.1tm     +++|*         ISSUE TRANSLATED CHARACTER TO OUTPUT.
03566  M01S03135.1tm     +++|
03567  M01S03136.1tm     +++| AWT9     LDD    T7          GET TRANSLATED CHARACTER
03568  M01S03137.1tm     +++|          STD    DO          ISSUE CHARACTER TO OUTPUT
03569  M01S03138.1tm     +++|          LJM    AWT         LOOP FOR NEXT CHARACTER
03570  M01S03139.1tm     +++|
03571  M01S03140.1tm     +++|*         PERFORM SPECIAL PROCESSING.
03572  M01S03141.1tm     +++|
03573  M01S03142.1tm     +++| AWT10    SHN    -6          SET SPECIAL PROCESSOR INDEX
03574  M01S03143.1tm     +++|          STD    T1
03575  M01S03144.1tm     +++|          LDM    TWSP,T1     GET CHARACTER PROCESSOR ADDRESS
03576  M01S03145.1tm     +++|          LJM    MGR=        ENTER CHARACTER PROCESSOR
03577  M01S03146.1tm     +++|
03578  M01S03147.1tm     +++|*         PROCESS POSSIBLE END OF LINE.
03579  M01S03148.1tm     +++|
03580  M01S03149.1tm     +++| AWT11    LDC    300         SET OUTPUT CONTROL
03581  M01S03150.1tm     +++|          STD    CH+2
03582  M01S03151.1tm     +++| AWT12    RJM    ROC         GET NEXT CHARACTER
03583  M01S03152.1tm     +++|          PJN    AWT15       IF NOT CONTROL BYTE
03584  M01S03153.1tm     +++|          LJM    SOC
03585  M01S03154.1tm     +++|
03586  M01S03155.1tm     +++|*         ENTRY FROM CONTROL CHARACTER PROCESSORS.
03587  M01S03156.1tm     +++|*
03588  M01S03157.1tm     +++|*               (A) = FALSE CONTROL BYTE VALUE.
03589  M01S03158.1tm     +++|
03590  M01S03159.1tm     +++| AWT13    STD    CM          SAVE FALSE CONTROL BYTE
03591  M01S03160.1tm     +++|          LDD    CH+2        CHECK OUTPUT CONTROL
03592  M01S03161.1tm     +++|          LMC    300
03593  M01S03162.1tm     +++|          NJN    AWT14       IF NOT SUSPENDED COLON
03594  M01S03163.1tm     +++|          STD    CM
03595  M01S03164.1tm     +++|          SOD    DP+2        BACK UP CHARACTER
03596  M01S03165.1tm     +++| AWT14    LDD    CM
03597  M01S03166.1tm     +++| AWT15    ADC    400         SET ESCAPE CONTROL
03598  M01S03167.1tm     +++|          STD    CH+2
03599  M01S03168.1tm     +++|          LDN    00          SET COLON
03600  M01S03169.1tm     +++|          STD    T7
03601  M01S03170.1tm     +++|          LJM    AWT8        TRANSLATE AND ISSUE CHARACTER
03602  M01S03171.1tm     +++| TECP     SPACE  4,10
03603  M01S03172.1tm     +++|**        TECP - TABLE OF ESCAPE CONTROL PROCESSORS.
03604  M01S03173.1tm     +++|
03605  M01S03174.1tm     +++|
03606  M01S03175.1tm     +++| TECP     BSS    0
03607  M01S03176.1tm     +++|          LOC    1
03608  M01S03177.1tm     +++|
03609  M01S03178.1tm     +++|          CON    AWT6        *0100* - ESCAPE 1.
03610  M01S03179.1tm     +++|          CON    AWT6        *0200* - ESCAPE 2.
03611  M01S03180.1tm     +++|          CON    AWT12       *0300* - POSSIBLE *EOL*.
03612  M01S03181.1tm     +++|          CON    AWT4        *04XX* - FALSE *EOL*.
03613  M01S03182.1tm     +++|          CON    SOC1        *05XX* - SUSPENDED OUTPUT CONTROL.
03614  M01S03183.1tm     +++|
03615  M01S03184.1tm     +++| TECPL    BSS    0
03616  M01S03185.1tm     +++|          LOC    *O
03617  M01S03186.1tm     +++| TWSP     SPACE  4,10
03618  M01S03187.1tm     +++|**        TWSP - TABLE OF SPECIAL WRITE PROCESSORS.
03619  M01S03188.1tm     +++|
03620  M01S03189.1tm     +++|
03621  M01S03190.1tm     +++| TWSP     BSS    0
03622  M01S03191.1tm     +++|          QUAL   TRN
03623  M01S03192.1tm     +++|          LOC    0
03624  M01S03193.1tm     +++|
03625  M01S03194.1tm     +++| NLO      CON    /WTM/AWT    NULL CHARACTER (IGNORED)
03626  M01S03195.1tm     +++| ACR      CON    /WTM/ACR    CARRIAGE RETURN
03627  M01S03196.1tm     +++| ANL      CON    /WTM/ANL    NEW LINE (CR/LF)
03628  M01S03197.1tm     +++|
03629  M01S03198.1tm     +++|          LOC    *O
03630  M01S03199.1tm     +++|          NOREF  NLO
03631  M01S03200.1tm     +++|          QUAL   *
03632  M01S03201.1tm     +++| BWT      TITLE  WRITE MODE - *BINARY* WRITE PROCESSOR.
03633  M01S03202.1tm     +++| BWT      SPACE  4,15
03634  M01S03203.1tm     +++|**        BWT - BINARY WRITE.
03635  M01S03204.1tm     +++|*
03636  M01S03205.1tm     +++|*         WRITES NOS *BINARY* MODE DATA TO TERMINAL.
03637  M01S03206.1tm     +++|*
03638  M01S03207.1tm     +++|*         CALLS  ROC, ERQ.
03639  M01S03208.1tm     +++|
03640  M01S03209.1tm     +++|
03641  M01S03210.1tm     +++| BWT      BSS    0           ENTRY
03642  M01S03211.1tm     +++|          RETURN *           REENTER
03643  M01S03212.1tm     +++|          RJM    ROC         READ OUTPUT CHARACTER
03644  M01S03213.1tm     +++|          MJP    SOC         IF CONTROL BYTE
03645  M01S03214.1tm     +++|          LDI    T5          READ ENTIRE 12-BIT CHARACTER
03646  M01S03215.1tm     +++|          STD    DO          STORE OUTPUT
03647  M01S03216.1tm     +++|          SHN    21-13       CHECK FORMAT
03648  M01S03217.1tm     +++|          PJN    BWT2        IF NOT BINARY FORMAT
03649  M01S03218.1tm     +++|          AOD    DP+2        ADVANCE CHARACTER COUNT
03650  M01S03219.1tm     +++|          AOD    CH+4
03651  M01S03220.1tm     +++|          SHN    -14
03652  M01S03221.1tm     +++|          ZJN    BWT1        IF NO OVERFLOW
03653  M01S03222.1tm     +++|          LDN    /TLX/IAM    ISSUE ACCOUNTING MESSAGE
03654  M01S03223.1tm     +++|          RJM    ERQ
03655  M01S03224.1tm     +++| BWT1     JMP    MGR         REENTER
03656  M01S03225.1tm     +++|
03657  M01S03226.1tm     +++|*         TERMINATE BINARY MODE OUTPUT.
03658  M01S03227.1tm     +++|
03659  M01S03228.1tm     +++| BWT2     LCN    10          CLEAR BINARY MODE BIT
03660  M01S03229.1tm     +++|          RAD    DP+3
03661  M01S03230.1tm     +++|          SOD    DP+2        RESET CHARACTER POSITION
03662  M01S03231.1tm     +++|          LDN    0           CLEAR ESCAPE CONTROL
03663  M01S03232.1tm     +++|          STD    CH+2
03664  M01S03233.1tm     +++|          LDN    1           SET CHARACTER COUNT NON-ZERO
03665  M01S03234.1tm     +++|          STD    CH+1
03666  M01S03235.1tm     +++|          JMP    AWT         ENTER *ASCII* WRITE
03667  M01S03236.1tm     +++| WTM      TITLE  WRITE MODE - MAIN ROUTINES.
03668  M01S03237.1tm     +++| ISN      SPACE  4,15
03669  M01S03238.1tm     +++|**        ISN - ISSUE ASCII *NUL* CHARACTERS.
03670  M01S03239.1tm     +++|*
03671  M01S03240.1tm     +++|*         ENTRY  (A) = DEFAULT REPEAT COUNT.
03672  M01S03241.1tm     +++|*
03673  M01S03242.1tm     +++|*         EXIT   TO *AWT* TO CONTINUE WRITE OPERATION.
03674  M01S03243.1tm     +++|*
03675  M01S03244.1tm     +++|*         CALLS  DDC, SRC.
03676  M01S03245.1tm     +++|
03677  M01S03246.1tm     +++|
03678  M01S03247.1tm     +++| ISN      BSS    0           ENTRY
03679  M01S03248.1tm     +++|          RJM    DDC         DETERMINE DELAY COUNT
03680  M01S03249.1tm     +++|          SHN    14
03681  M01S03250.1tm     +++|          ADK    .CNUL       SET *NUL* CHARACTER
03682  M01S03251.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
03683  M01S03252.1tm     +++|          RJM    SRC         SEND REPEATED CHARACTER
03684  M01S03253.1tm     +++|          JMP    AWT         CONTINUE WRITE
03685  M01S03254.1tm     +++| SOC      SPACE  4,15
03686  M01S03255.1tm     +++|**        SOC - SET OUTPUT CONTROL.
03687  M01S03256.1tm     +++|*
03688  M01S03257.1tm     +++|*         ENTRY (A)  = OUTPUT CONTROL BYTE SET BY *ROC*.
03689  M01S03258.1tm     +++|*               (T7) = LOWER 12 BITS OF *ROC* CONTROL BYTE.
03690  M01S03259.1tm     +++|*
03691  M01S03260.1tm     +++|*         EXIT   TO CONTROL BYTE PROCESSOR.
03692  M01S03261.1tm     +++|*
03693  M01S03262.1tm     +++|*         CALLS  ERQ, RLT.
03694  M01S03263.1tm     +++|
03695  M01S03264.1tm     +++|
03696  M01S03265.1tm     +++| SOC4     RJM    RLT         CHECK POT LINK
03697  M01S03266.1tm     +++|          NJN    SOC5        IF LINKED
03698  M01S03267.1tm     +++|          LDC    /CTL/RWC1   SET REENTRY ADDRESS
03699  M01S03268.1tm     +++|          STD    DP+4
03700  M01S03269.1tm     +++|          UJN    SOC6
03701  M01S03270.1tm     +++|
03702  M01S03271.1tm     +++|*         SET NEXT POT.
03703  M01S03272.1tm     +++|
03704  M01S03273.1tm     +++| SOC5     STD    DP          SET POT POINTER
03705  M01S03274.1tm     +++|          LDD    DP+1        DROP CURRENT POT
03706  M01S03275.1tm     +++|          STD    RQ+3
03707  M01S03276.1tm     +++|          LDN    /TLX/DRP
03708  M01S03277.1tm     +++|          RJM    ERQ
03709  M01S03278.1tm     +++|          LDD    DP          SET CURRENT POT
03710  M01S03279.1tm     +++|          STD    DP+1
03711  M01S03280.1tm     +++|          RJM    RLT         CHECK THIS POT LINK
03712  M01S03281.1tm     +++|          NJN    SOC7        IF POT LINKED
03713  M01S03282.1tm     +++|
03714  M01S03283.1tm     +++|*         REQUEST ADDITIONAL OUTPUT.
03715  M01S03284.1tm     +++|
03716  M01S03285.1tm     +++| SOC6     LDN    /TLX/RES    REQUEST ADDITIONAL OUTPUT
03717  M01S03286.1tm     +++|          RJM    ERQ
03718  M01S03287.1tm     +++| SOC7     LDN    0           CLEAR LINE POSITION
03719  M01S03288.1tm     +++|          STD    DP+2
03720  M01S03289.1tm     +++|          STD    DO          CLEAR OUTPUT
03721  M01S03290.1tm     +++|          JMP    MGR         EXIT
03722  M01S03291.1tm     +++|
03723  M01S03292.1tm     +++|
03724  M01S03293.1tm     +++|*         SOC - ENTRY.
03725  M01S03294.1tm     +++|
03726  M01S03295.1tm     +++| SOC      BSS    0           ENTRY
03727  M01S03296.1tm     +++|          SHN    21-20       CHECK BIT 20
03728  M01S03297.1tm     +++|          MJN    SOC4        IF SET, THEN END OF POT
03729  M01S03298.1tm     +++|          AOD    DP+2        ADVANCE CHARACTER POINTER
03730  M01S03299.1tm     +++|
03731  M01S03300.1tm     +++|*         CHECK CONTROL BYTE.
03732  M01S03301.1tm     +++|
03733  M01S03302.1tm     +++| SOC1     LDD    T7          CHECK CONTROL BYTE
03734  M01S03303.1tm     +++|          ZJN    SOC3        IF END OF LINE
03735  M01S03304.1tm     +++|          LMN    2R"IB"
03736  M01S03305.1tm     +++|          ZJN    SOC2        IF INTERNAL END OF BLOCK
03737  M01S03306.1tm     +++|          LDD    DP+3        CHECK MODE
03738  M01S03307.1tm     +++|          SHN    21-3
03739  M01S03308.1tm     +++|          PJN    SOC2        IF NOT BINARY
03740  M01S03309.1tm     +++|          SOD    DP+2        TERMINATE BINARY MODE
03741  M01S03310.1tm     +++|          LJM    BWT2
03742  M01S03311.1tm     +++|
03743  M01S03312.1tm     +++|*         EXIT TO CONTROL BYTE PROCESSOR.
03744  M01S03313.1tm     +++|
03745  M01S03314.1tm     +++| SOC2     LDN    /TLX/RES    REQUEST ADDITIONAL OUTPUT
03746  M01S03315.1tm     +++|          RJM    ERQ
03747  M01S03316.1tm     +++| SOC3     LDM    TSOC,T7     SET REENTRY ADDRESS
03748  M01S03317.1tm     +++|          LJM    MGR=        REENTER
03749  M01S03318.1tm     +++| TTM      SPACE  4,25
03750  M01S03319.1tm     +++|**        TTM - ISSUE TERMINAL MESSAGE.
03751  M01S03320.1tm     +++|*
03752  M01S03321.1tm     +++|*         ISSUES MESSAGE TO TERMINAL.
03753  M01S03322.1tm     +++|*
03754  M01S03323.1tm     +++|*         ENTRY  (A) = ADDRESS OF FORMATTED MESSAGE.
03755  M01S03324.1tm     +++|*
03756  M01S03325.1tm     +++|*         EXIT   (CM+2) = 0.
03757  M01S03326.1tm     +++|*                (OMCC) = 0.
03758  M01S03327.1tm     +++|*                TO *RDM* AFTER MESSAGE IS COMPLETE IF THERE
03759  M01S03328.1tm     +++|*                  ARE INPUT POTS AVAILABLE -
03760  M01S03329.1tm     +++|*                  (DP+1) = CURRENT POT RESET TO START OF LINE.
03761  M01S03330.1tm     +++|*                  (DP+2) = CURRENT WORD RESET TO START OF LINE.
03762  M01S03331.1tm     +++|*                TO *RWC* AFTER MESSAGE IS COMPLETE IF THERE
03763  M01S03332.1tm     +++|*                  IS NO INPUT POT AVAILABLE.
03764  M01S03333.1tm     +++|*
03765  M01S03334.1tm     +++|*         USES   (DP+1) = MESSAGE ADDRESS POINTER.
03766  M01S03335.1tm     +++|*                (DP+2) = MESSAGE BYTE POINTER.
03767  M01S03336.1tm     +++|*
03768  M01S03337.1tm     +++|*         CALLS  SEM.
03769  M01S03338.1tm     +++|*
03770  M01S03339.1tm     +++|*         MACROS RETURN.
03771  M01S03340.1tm     +++|
03772  M01S03341.1tm     +++|
03773  M01S03342.1tm     +++| TTM      BSS    0           ENTRY
03774  M01S03343.1tm     +++|          ADC    7700        SET MESSAGE PSEUDO-POT-POINTER
03775  M01S03344.1tm     +++|          STD    DP+1
03776  M01S03345.1tm     +++|          LDD    DP+2        CLEAR BYTE POINTER
03777  M01S03346.1tm     +++|          LPC    7600
03778  M01S03347.1tm     +++|          STD    DP+2
03779  M01S03348.1tm     +++|          LDN    0           CLEAR OUTPUT CONTROL
03780  M01S03349.1tm     +++|          STD    CH+2
03781  M01S03350.1tm     +++|          STM    OMCC        CLEAR OPERATOR MESSAGE
03782  M01S03351.1tm     +++|          RJM    SEM         SET EXTENDED MODE
03783  M01S03352.1tm     +++|          RETURN AWT         ENTER WRITE MODE
03784  M01S03353.1tm     +++|
03785  M01S03354.1tm     +++|
03786  M01S03355.1tm     +++|*         ENTERED HERE FROM SUBROUTINE *ROC* TO EXTRACT NEXT
03787  M01S03356.1tm     +++|*         MESSAGE CHARACTER TO BE RETURNED TO WRITE PROCESSOR.
03788  M01S03357.1tm     +++|
03789  M01S03358.1tm     +++| TTM1     LDM    TTMA-7700,DP+1  GET NEXT CHARACTER
03790  M01S03359.1tm     +++|          STD    T7
03791  M01S03360.1tm     +++|          LDD    DP+2        TOGGLE BYTE INDEX
03792  M01S03361.1tm     +++|          LMN    1
03793  M01S03362.1tm     +++|          STD    DP+2
03794  M01S03363.1tm     +++|          LPN    1
03795  M01S03364.1tm     +++|          NJN    TTM2        IF UPPER CHARACTER
03796  M01S03365.1tm     +++|          AOD    DP+1        INCREMENT MESSAGE ADDRESS
03797  M01S03366.1tm     +++|          LDD    T7
03798  M01S03367.1tm     +++|          LPN    77          EXTRACT LOWER CHARACTER
03799  M01S03368.1tm     +++|          UJN    TTM3
03800  M01S03369.1tm     +++|
03801  M01S03370.1tm     +++| TTM2     LDD    T7          EXTRACT UPPER CHARACTER
03802  M01S03371.1tm     +++|          SHN    -6
03803  M01S03372.1tm     +++| TTM3     STD    T7          SET CHARACTER
03804  M01S03373.1tm     +++|          ZJN    TTM5        IF END OF MESSAGE
03805  M01S03374.1tm     +++|          SOD    CH+4        PREVENT CHARACTER COUNT ON MESSAGE
03806  M01S03375.1tm     +++|          LDD    T7
03807  M01S03376.1tm     +++|          LJM    ROCX        ISSUE CHARACTER
03808  M01S03377.1tm     +++|
03809  M01S03378.1tm     +++|*         RESET LINE POINTERS AND EXIT.
03810  M01S03379.1tm     +++|
03811  M01S03380.1tm     +++| TTM5     LDD    DP+2        RESET CURRENT WORD
03812  M01S03381.1tm     +++|          SHN    -5
03813  M01S03382.1tm     +++|          LMD    DP+2
03814  M01S03383.1tm     +++|          SCN    17
03815  M01S03384.1tm     +++|          STD    DP+2
03816  M01S03385.1tm     +++|          LDD    DP          RESET CURRENT POT
03817  M01S03386.1tm     +++|          STD    DP+1
03818  M01S03387.1tm     +++|          ZJN    TTM6        IF NO INPUT POT
03819  M01S03388.1tm     +++|          RJM    CEM         CLEAR EXTENDED MODE
03820  M01S03389.1tm     +++|          LJM    RDM         RE-ENTER READ MODE
03821  M01S03390.1tm     +++|
03822  M01S03391.1tm     +++| TTM6     LDN    /TLX/RES    RESTART JOB
03823  M01S03392.1tm     +++|          RJM    ERQ
03824  M01S03393.1tm     +++|          JMP    RWC         ENTER READ/WRITE CONTROL
03825  M01S03394.1tm     +++|
03826  M01S03395.1tm     +++|
03827  M01S03396.1tm     +++|**        TABLE OF TERMINAL MESSAGES.
03828  M01S03397.1tm     +++|
03829  M01S03398.1tm     +++| TTMA     BSS    0
03830  M01S03399.1tm     +++|          LOC    0
03831  M01S03400.1tm     +++|
03832  M01S03401.1tm     +++| DELM     DATA   Z+ *DEL*"NL"+
03833  M01S03402.1tm     +++| LOFM     DATA   Z+"NL" *OVL*"NL"+
03834  M01S03403.1tm     +++| MBSY     DATA   Z+"NL" *CONSOLE BUSY*"NL"+
03835  M01S03404.1tm     +++| RDYM     DATA   Z+"NL" *READY*"NL"+
03836  M01S03405.1tm     +++| RILM     DATA   Z+"NL" *RE-ENTER LAST LINE*"NL"+
03837  M01S03406.1tm     +++|
03838  M01S03407.1tm     +++|          LOC    *O
03839  M01S03408.1tm     +++|          TITLE  WRITE MODE - OUTPUT CONTROL BYTE PROCESSORS.
03840  M01S03409.1tm     +++| TSOC     SPACE  4,10
03841  M01S03410.1tm     +++|**        TSOC - TABLE OF OUTPUT CONTROL BYTE PROCESSORS.
03842  M01S03411.1tm     +++|*         INDEXED BY CONTROL CODE.
03843  M01S03412.1tm     +++|
03844  M01S03413.1tm     +++|
03845  M01S03414.1tm     +++| TSOC     BSS    0
03846  M01S03415.1tm     +++|          LOC    0
03847  M01S03416.1tm     +++|
03848  M01S03417.1tm     +++|          CON    EOL         END OF LINE
03849  M01S03418.1tm     +++|          CON    EOB         END OF BLOCK
03850  M01S03419.1tm     +++|          CON    ECB         END OF CORRESPONDENCE BLOCK
03851  M01S03420.1tm     +++|          CON    ATI         AUTO INPUT
03852  M01S03421.1tm     +++|          CON    LOF         LOG OFF USER
03853  M01S03422.1tm     +++|          CON    TPI         TRANSPARENT INPUT
03854  M01S03423.1tm     +++|          CON    BNI         BINARY INPUT
03855  M01S03424.1tm     +++|          CON    BNO         BEGIN BINARY OUTPUT
03856  M01S03425.1tm     +++|          CON    EOL         UNUSED - TREAT AS END OF LINE
03857  M01S03426.1tm     +++|          CON    BEO         BEGIN EXTENDED OUTPUT
03858  M01S03427.1tm     +++|          CON    EOL         UNUSED - TREAT AS END OF LINE
03859  M01S03428.1tm     +++|          CON    EOS         END OF STRING
03860  M01S03429.1tm     +++|          CON    IEB         INTERNAL END OF BLOCK
03861  M01S03430.1tm     +++|          CON    ETI         EXECUTIVE AUTO MODE INPUT
03862  M01S03431.1tm     +++|
03863  M01S03432.1tm     +++| TSOCL    BSS    0
03864  M01S03433.1tm     +++|          LOC    *O
03865  M01S03434.1tm     +++| EOL      SPACE  4,15
03866  M01S03435.1tm     +++|***       0000   END OF OUTPUT LINE.
03867  M01S03436.1tm     +++|*
03868  M01S03437.1tm     +++|*         THIS CONTROL BYTE CAUSES THE TERMINAL TO BE POSITIONED TO
03869  M01S03438.1tm     +++|*         THE BEGINNING OF THE NEXT LINE.  THE REMAINDER OF THE WORD
03870  M01S03439.1tm     +++|*         IN WHICH THE *END OF LINE* OCCURS IS DISCARDED.
03871  M01S03440.1tm     +++|*
03872  M01S03441.1tm     +++|*         EXIT   (CH+1) = 0.
03873  M01S03442.1tm     +++|*                (CH+2) = 0.
03874  M01S03443.1tm     +++|*                TO *ANL* IF IN *ASCII* MODE.
03875  M01S03444.1tm     +++|*                TO *AWT* IF IN BINARY MODE.
03876  M01S03445.1tm     +++|*
03877  M01S03446.1tm     +++|*         CALLS  CEM.
03878  M01S03447.1tm     +++|
03879  M01S03448.1tm     +++|
03880  M01S03449.1tm     +++| EOL      BSS    0           ENTRY
03881  M01S03450.1tm     +++|          LDN    0           CLEAR LINE CHARACTER COUNT
03882  M01S03451.1tm     +++|          STD    CH+1
03883  M01S03452.1tm     +++|          STD    CH+2        CLEAR ESCAPE CONTROL
03884  M01S03453.1tm     +++|          LDD    DP+2        CLEAR WORD AND CHARACTER POINTERS
03885  M01S03454.1tm     +++|          SCN    17
03886  M01S03455.1tm     +++|          LMN    12
03887  M01S03456.1tm     +++|          STD    DP+2
03888  M01S03457.1tm     +++|          LDD    DP+3        CHECK FOR BINARY MODE
03889  M01S03458.1tm     +++|          LPN    10
03890  M01S03459.1tm     +++|          NJN    EOL1        IF BINARY MODE
03891  M01S03460.1tm     +++|          RJM    CEM         CLEAR/RESET EXTENDED MODE
03892  M01S03461.1tm     +++|          JMP    ANL         ISSUE *NEW LINE*
03893  M01S03462.1tm     +++|
03894  M01S03463.1tm     +++| EOL1     LMD    DP+3        CLEAR BINARY MODE
03895  M01S03464.1tm     +++|          STD    DP+3
03896  M01S03465.1tm     +++|          JMP    AWT         CONTINUE OUTPUT
03897  M01S03466.1tm     +++| EOB      SPACE  4,20
03898  M01S03467.1tm     +++|***       0001   END OF OUTPUT BLOCK.
03899  M01S03468.1tm     +++|*
03900  M01S03469.1tm     +++|*         THIS CONTROL BYTE IS USED TO TERMINATE OUTPUT BEFORE
03901  M01S03470.1tm     +++|*         THE END OF POT IS REACHED.  THE REMAINDER OF THE POT IS
03902  M01S03471.1tm     +++|*         DISCARDED AND THE TERMINAL IS NOT POSITIONED TO THE
03903  M01S03472.1tm     +++|*         START OF THE NEXT LINE.
03904  M01S03473.1tm     +++|*
03905  M01S03474.1tm     +++|*         THIS CONTROL BYTE MUST BE FOLLOWED BY AN END-OF-LINE.
03906  M01S03475.1tm     +++|*
03907  M01S03476.1tm     +++|*         EXIT   TO *RWC* FOR NEXT OPERATION -
03908  M01S03477.1tm     +++|*                  (DP+2) = 0.
03909  M01S03478.1tm     +++|*                  (CH+1) = 0.
03910  M01S03479.1tm     +++|*                  (CH+2) = 0.
03911  M01S03480.1tm     +++|*
03912  M01S03481.1tm     +++|*         CALLS  CLT.
03913  M01S03482.1tm     +++|
03914  M01S03483.1tm     +++|
03915  M01S03484.1tm     +++| EOB      BSS    0           ENTRY
03916  M01S03485.1tm     +++|          LDN    1RA
03917  M01S03486.1tm     +++|          RJM    CLT         CHECK FOR LINE TERMINATION
03918  M01S03487.1tm     +++| EOB1     LDN    0           CLEAR CHARACTER POSITION
03919  M01S03488.1tm     +++|          STD    DP+2
03920  M01S03489.1tm     +++|          STD    CH+1        RESET CHARACTER COUNT
03921  M01S03490.1tm     +++|          STD    CH+2        CLEAR ESCAPE CONTROL
03922  M01S03491.1tm     +++|          JMP    RWC
03923  M01S03492.1tm     +++| ECB      SPACE  4,20
03924  M01S03493.1tm     +++|***       0002   END OF CORRESPONDENCE BLOCK.
03925  M01S03494.1tm     +++|*
03926  M01S03495.1tm     +++|*         SPECIAL END OF BLOCK PROCESSING FOR POSSIBLE
03927  M01S03496.1tm     +++|*         CORRESPONDENCE TERMINALS.
03928  M01S03497.1tm     +++|*         THIS CODE ENABLES INPUT IF CORRESPONDENCE TERMINAL,
03929  M01S03498.1tm     +++|*         OTHERWISE IT IS TREATED AS A *0001* BYTE.
03930  M01S03499.1tm     +++|*
03931  M01S03500.1tm     +++|*         THIS CONTROL BYTE MUST BE FOLLOWED BY AN END-OF-LINE.
03932  M01S03501.1tm     +++|*
03933  M01S03502.1tm     +++|*         NOTE   THIS CONTROL BYTE IS NOT MEANINGFUL TO THE
03934  M01S03503.1tm     +++|*                THE TWO-PORT MULTIPLEXER DRIVER.
03935  M01S03504.1tm     +++|*
03936  M01S03505.1tm     +++|*         EXIT   TO *EOB1* TO TERMINATE OUTPUT BLOCK.
03937  M01S03506.1tm     +++|*
03938  M01S03507.1tm     +++|*         CALLS  CLT.
03939  M01S03508.1tm     +++|
03940  M01S03509.1tm     +++|
03941  M01S03510.1tm     +++|
03942  M01S03511.1tm     +++| ECB      BSS    0           ENTRY
03943  M01S03512.1tm     +++|          LDN    1RB         CHECK FOR LINE TERMINATOR
03944  M01S03513.1tm     +++|          RJM    CLT
03945  M01S03514.1tm     +++|          JMP    EOB1        PROCESS AS *EOB*
03946  M01S03515.1tm     +++| ATI      SPACE  4,20
03947  M01S03516.1tm     +++|***       0003   INITIATE AUTO-MODE INPUT.
03948  M01S03517.1tm     +++|*
03949  M01S03518.1tm     +++|*         THIS CONTROL BYTE MUST BE FOLLOWED BY AN END OF LINE
03950  M01S03519.1tm     +++|*         AND TERMINATES OUTPUT.
03951  M01S03520.1tm     +++|*         THE WORD CONTAINING THE AUTO INPUT CONTROL BYTE IS
03952  M01S03521.1tm     +++|*         MOVED TO THE FIRST WORD OF THE POT FOR SUBSEQUENT
03953  M01S03522.1tm     +++|*         INPUT WHICH MUST FOLLOW IMMEDIATELY.
03954  M01S03523.1tm     +++|*
03955  M01S03524.1tm     +++|*         EXIT   TO *RDM* TO READ IN AUTO MODE.
03956  M01S03525.1tm     +++|*                TO *RWC* TO PROCESS DRIVER REQUEST.
03957  M01S03526.1tm     +++|*
03958  M01S03527.1tm     +++|*         ERROR  TO *AWT13* IF INVALID REQUEST.
03959  M01S03528.1tm     +++|*
03960  M01S03529.1tm     +++|*         CALLS  CLT, CKL, ERQ, MDS, RSW, SWA.
03961  M01S03530.1tm     +++|*
03962  M01S03531.1tm     +++|*         MACROS RETURN.
03963  M01S03532.1tm     +++|
03964  M01S03533.1tm     +++|
03965  M01S03534.1tm     +++| ATI7     LDN    1RC         REENTER WRITE MODE
03966  M01S03535.1tm     +++|*         LDN    1RM         (CONTROL BYTE 0015B)
03967  M01S03536.1tm     +++| ATIB     EQU    *-1
03968  M01S03537.1tm     +++|          JMP    AWT13       CONTINUE WRITE
03969  M01S03538.1tm     +++|
03970  M01S03539.1tm     +++|*         ATI - ENTRY.
03971  M01S03540.1tm     +++|
03972  M01S03541.1tm     +++| ATI      BSS    0           ENTRY
03973  M01S03542.1tm     +++|          LDC    LDNI+1RC    CONTROL BYTE TO REENTER WRITE MODE
03974  M01S03543.1tm     +++|          STM    ATIB
03975  M01S03544.1tm     +++|          LDC    MDS         SET UP CALL TO SUBROUTINE MDS
03976  M01S03545.1tm     +++|          STM    ATIA
03977  M01S03546.1tm     +++|          LDN    1RC
03978  M01S03547.1tm     +++|
03979  M01S03548.1tm     +++|*         ATI1 - ENTRY FROM *ATI* AND *ETI*.
03980  M01S03549.1tm     +++|*
03981  M01S03550.1tm     +++|*         ENTRY  (ATIA) = *MDS* IF CALLED FROM *ATI*.
03982  M01S03551.1tm     +++|*                       = *WDS* IF CALLED FROM *ETI*.
03983  M01S03552.1tm     +++|*                (ATIB) = DISPLAY CHARACTER FOR ERROR PROCESSING.
03984  M01S03553.1tm     +++|
03985  M01S03554.1tm     +++| ATI1     RJM    CLT         CHECK FOR LINE TERMINATION
03986  M01S03555.1tm     +++|          RJM    CKL         CHECK *LIST* STATUS
03987  M01S03556.1tm     +++|          MJN    ATI7        IF FILE BEING LISTED
03988  M01S03557.1tm     +++|          LDD    DC          CHECK TERMINAL STATUS
03989  M01S03558.1tm     +++|          LPN    2
03990  M01S03559.1tm     +++|          NJN    ATI3        IF AUTO INPUT MODE SET
03991  M01S03560.1tm     +++|          LDD    DC+4        CHECK VDCT INTERLOCK
03992  M01S03561.1tm     +++|          ZJN    ATI2        IF NOT INTERLOCKED
03993  M01S03562.1tm     +++|          LDN    2           SET AUTO INPUT MODE
03994  M01S03563.1tm     +++|          RAD    DC
03995  M01S03564.1tm     +++|          RJM    WDC         WRITE VDCT
03996  M01S03565.1tm     +++|          UJN    ATI3        SET WORD/BYTE NUMBER
03997  M01S03566.1tm     +++|
03998  M01S03567.1tm     +++| ATI2     LDN    /TLX/SAI    REQUEST SET AUTO INPUT
03999  M01S03568.1tm     +++|          RJM    ERQ
04000  M01S03569.1tm     +++| ATI3     LDD    DP+2        SET BYTE NUMBER
04001  M01S03570.1tm     +++|          SHN    -1
04002  M01S03571.1tm     +++|          LPN    7
04003  M01S03572.1tm     +++|          STD    T5
04004  M01S03573.1tm     +++|          RJM    SWA         SET WORD ADDRESS
04005  M01S03574.1tm     +++|          CRD    T0          READ DATA WORD
04006  M01S03575.1tm     +++|          LDN    0           CLEAR BYTE
04007  M01S03576.1tm     +++|          STI    T5
04008  M01S03577.1tm     +++|          STD    CH+2        CLEAR ESCAPE CONTROL
04009  M01S03578.1tm     +++|          RJM    MDS         RESTORE WORD AND SET FIRST WORD
04010  M01S03579.1tm     +++|*         RJM    RSW         (CONTROL BYTE 0015)
04011  M01S03580.1tm     +++| ATIA     EQU    *-1
04012  M01S03581.1tm     +++|          LDD    DP+2
04013  M01S03582.1tm     +++|          SCN    17
04014  M01S03583.1tm     +++|          SHN    5
04015  M01S03584.1tm     +++|          LMD    DP+2
04016  M01S03585.1tm     +++|          SBN    2           DECREMENT CHARACTER NUMBER
04017  M01S03586.1tm     +++|          STD    DP+2
04018  M01S03587.1tm     +++|          LPN    17
04019  M01S03588.1tm     +++|          STD    CH+1        SET INPUT LINE CHARACTER COUNT
04020  M01S03589.1tm     +++|          LDD    DP+3        CLEAR BINARY AND EXTENDED MODES
04021  M01S03590.1tm     +++|          SCN    12
04022  M01S03591.1tm     +++|          STD    DP+3
04023  M01S03592.1tm     +++|
04024  M01S03593.1tm     +++|*         WAIT FOR EXECUTIVE TO SET *AUTO* MODE.
04025  M01S03594.1tm     +++|
04026  M01S03595.1tm     +++| ATI4     RETURN *           REENTER
04027  M01S03596.1tm     +++|          LDD    DC          CHECK TERMINAL STATUS
04028  M01S03597.1tm     +++|          SHN    21-1
04029  M01S03598.1tm     +++|          MJN    ATI5        IF AUTO MODE SET
04030  M01S03599.1tm     +++|          LDD    DC+4        CHECK FOR DRIVER REQUEST
04031  M01S03600.1tm     +++|          NJP    RWC         IF DRIVER REQUEST
04032  M01S03601.1tm     +++|          JMP    MGR         REENTER
04033  M01S03602.1tm     +++|
04034  M01S03603.1tm     +++| ATI5     LPN    2           SET NORMAL/EXTENDED MODE BIT
04035  M01S03604.1tm     +++|          RAD    DP+3
04036  M01S03605.1tm     +++|          RETURN RDM         ENTER READ MODE
04037  M01S03606.1tm     +++| LOF      SPACE  4,15
04038  M01S03607.1tm     +++|***       0004   LOGOFF TERMINAL USER.
04039  M01S03608.1tm     +++|*
04040  M01S03609.1tm     +++|*         THIS BYTE LOGS-OFF THE USER.  IT MUST BE THE FIRST
04041  M01S03610.1tm     +++|*         BYTE OF OUTPUT AND MUST BE FOLLOWED BY AN END-OF-LINE.
04042  M01S03611.1tm     +++|*
04043  M01S03612.1tm     +++|*         CALLS  ERQ, CKL, CLT.
04044  M01S03613.1tm     +++|
04045  M01S03614.1tm     +++|
04046  M01S03615.1tm     +++| LOF      BSS    0           ENTRY
04047  M01S03616.1tm     +++|          RJM    CKL         CHECK *LIST* STATUS
04048  M01S03617.1tm     +++|          MJN    LOF1        IF FILE BEING LISTED
04049  M01S03618.1tm     +++|          LDD    CH+1        CHECK LINE CHARACTER COUNT
04050  M01S03619.1tm     +++|          NJN    LOF1        IF NOT FIRST BYTE
04051  M01S03620.1tm     +++|          LDN    1RD
04052  M01S03621.1tm     +++|          RJM    CLT         CHECK FOR LINE TERMINATION
04053  M01S03622.1tm     +++|          LDN    1           SET NORMAL LOGOFF
04054  M01S03623.1tm     +++|          STD    RQ+2
04055  M01S03624.1tm     +++|          LDN    /TLX/FLO    FORCE LOGOUT
04056  M01S03625.1tm     +++|          RJM    ERQ
04057  M01S03626.1tm     +++|          LJM    EOB1
04058  M01S03627.1tm     +++|
04059  M01S03628.1tm     +++| LOF1     LDN    1RD
04060  M01S03629.1tm     +++|          JMP    AWT13       REENTER WRITE MODE
04061  M01S03630.1tm     +++| TPI      SPACE  4,15
04062  M01S03631.1tm     +++|***       0005   INITIATE TRANSPARENT MODE INPUT.
04063  M01S03632.1tm     +++|*
04064  M01S03633.1tm     +++|*         THIS CONTROL BYTE SETS TRANSPARENT INPUT FOR THE NEXT INPUT
04065  M01S03634.1tm     +++|*         REQUEST. IT MUST APPEAR IN THE FIRST BYTE OF A WORD
04066  M01S03635.1tm     +++|*         AND BE FOLLOWED BY AN END-OF-LINE.
04067  M01S03636.1tm     +++|*
04068  M01S03637.1tm     +++|*         TRANSPARENT INPUT ALLOWS ALL CHARACTERS TO BE TRANSMITTED
04069  M01S03638.1tm     +++|*         TO THE CPU PROGRAM.
04070  M01S03639.1tm     +++|*
04071  M01S03640.1tm     +++|*         CALLS  CKL, CLT.
04072  M01S03641.1tm     +++|
04073  M01S03642.1tm     +++|
04074  M01S03643.1tm     +++| TPI      BSS    0           ENTRY
04075  M01S03644.1tm     +++|          RJM    CKL         CHECK *LIST* STATUS
04076  M01S03645.1tm     +++|          MJN    TPI1        IF FILE BEING LISTED
04077  M01S03646.1tm     +++|          LDD    DP+2        CHECK BYTE
04078  M01S03647.1tm     +++|          LPN    17
04079  M01S03648.1tm     +++|          LMN    2
04080  M01S03649.1tm     +++|          NJN    TPI1        IF NOT FIRST BYTE
04081  M01S03650.1tm     +++|          LDN    1RE
04082  M01S03651.1tm     +++|          RJM    CLT         CHECK FOR LINE TERMINATION
04083  M01S03652.1tm     +++|          LDD    DP+3        SET TRANSPARENT MODE
04084  M01S03653.1tm     +++|          SCN    14
04085  M01S03654.1tm     +++|          LMN    4
04086  M01S03655.1tm     +++|          STD    DP+3
04087  M01S03656.1tm     +++|          JMP    EOB1        TERMINATE OUTPUT BLOCK
04088  M01S03657.1tm     +++|
04089  M01S03658.1tm     +++| TPI1     LDN    1RE
04090  M01S03659.1tm     +++|          JMP    AWT13       REENTER WRITE MODE
04091  M01S03660.1tm     +++| BNI      SPACE  4,25
04092  M01S03661.1tm     +++|***       0006   INITIATE BINARY MODE INPUT.
04093  M01S03662.1tm     +++|*
04094  M01S03663.1tm     +++|*         THIS CONTROL BYTE SETS BINARY INPUT FOR THE NEXT INPUT
04095  M01S03664.1tm     +++|*         REQUEST.  THE CONTROL BYTE MUST BE THE FIRST BYTE OF A WORD.
04096  M01S03665.1tm     +++|*         THE NEXT 2 BYTES ARE THE TERMINATION CONDITIONS AS FOLLOWS -
04097  M01S03666.1tm     +++|*
04098  M01S03667.1tm     +++|*         THE FIRST BYTE (BYTE 1) IS THE MAXIMUM NUMBER OF CHARACTERS
04099  M01S03668.1tm     +++|*         TO BE RECEIVED BEFORE THE INPUT IS TERMINATED.  IF THE
04100  M01S03669.1tm     +++|*         VALUE IS 0, 1 IS ASSUMED.
04101  M01S03670.1tm     +++|*
04102  M01S03671.1tm     +++|*         THE SECOND CONTROL BYTE (BYTE 2) IS A TERMINATION CODE.
04103  M01S03672.1tm     +++|*         WHEN A CHARACTER IS RECEIVED FROM THE TERMINAL WHICH
04104  M01S03673.1tm     +++|*         MATCHES THE BOTTOM 8 BITS OF THIS BYTE, THE INPUT OPERATION
04105  M01S03674.1tm     +++|*         IS TERMINATED.  IF BIT 13 OF THIS BYTE IS SET, NO TERMINATION
04106  M01S03675.1tm     +++|*         CHARACTER IS ASSUMED.
04107  M01S03676.1tm     +++|*
04108  M01S03677.1tm     +++|*         EXIT   (CH) = TERMINATION CHARACTER.
04109  M01S03678.1tm     +++|*                (CH+1) = INPUT LINE CHARACTER COUNT.
04110  M01S03679.1tm     +++|*
04111  M01S03680.1tm     +++|*         CALLS  CKL, SWA.
04112  M01S03681.1tm     +++|
04113  M01S03682.1tm     +++|
04114  M01S03683.1tm     +++| BNI5     LDN    1RF
04115  M01S03684.1tm     +++|          JMP    AWT13       CONTINUE WRITE MODE
04116  M01S03685.1tm     +++|
04117  M01S03686.1tm     +++|*         BNI - ENTRY.
04118  M01S03687.1tm     +++|
04119  M01S03688.1tm     +++| BNI      BSS    0           ENTRY
04120  M01S03689.1tm     +++|          RJM    CKL         CHECK *LIST* STATUS
04121  M01S03690.1tm     +++|          MJN    BNI5        IF FILE BEING LISTED
04122  M01S03691.1tm     +++|          LDD    DP+3        CLEAR BINARY MODE
04123  M01S03692.1tm     +++|          SCN    10
04124  M01S03693.1tm     +++|          STD    DP+3
04125  M01S03694.1tm     +++|          LDD    CH+1        CHECK CHARACTER COUNT
04126  M01S03695.1tm     +++|          NJN    BNI5        IF NOT FIRST BYTE
04127  M01S03696.1tm     +++|          RJM    SWA         SET WORD ADDRESS
04128  M01S03697.1tm     +++|          CRD    CM          READ DATA WORD
04129  M01S03698.1tm     +++|          LDD    CM+3        CHECK FOR TERMINATION
04130  M01S03699.1tm     +++|          ADD    CM+4
04131  M01S03700.1tm     +++|          NJN    BNI5        IF NOT TERMINATED
04132  M01S03701.1tm     +++|          LDD    CM+1        SET CHARACTER COUNT
04133  M01S03702.1tm     +++|          NJN    BNI2
04134  M01S03703.1tm     +++| BNI1     LDN    1
04135  M01S03704.1tm     +++| BNI2     STD    CH+1
Line S03705 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm6
Seq #  *Modification Id* Act 
----------------------------+
04136  M02S03705.1tm6    ---|          ADC    -MXIC-1
04137  M01S00002.1tm6    +++|          ADC    -VXLL-1
04138  M01S03706.1tm     +++|          MJN    BNI3        IF NOT MORE THAN INTERACTIVE MAXIMUM
04139  M01S03707.1tm     +++|          LDD    DC          CHECK TERMINAL STATUS
04140  M01S03708.1tm     +++|          SHN    21-6
04141  M01S03709.1tm     +++|          MJN    BNI1        IF *READ DATA* SET
04142  M01S03710.1tm     +++| BNI3     LDD    CM+2        SET TERMINATION CHARACTER
04143  M01S03711.1tm     +++|          STD    CH
04144  M01S03712.1tm     +++|          LDN    2           SET CHARACTER 2
04145  M01S03713.1tm     +++|          STD    DP+2
04146  M01S03714.1tm     +++|          LDN    10          SET BINARY MODE
04147  M01S03715.1tm     +++|          RAD    DP+3
04148  M01S03716.1tm     +++|          RJM    SWA         WRITE FIRST WORD
04149  M01S03717.1tm     +++|          CWM    BNIA,ON
04150  M01S00310.242l642 +++|          LDN    0           CLEAR START OF *F7* SEQUENCE
04151  M01S00311.242l642 +++|          STD    F7
04152  M01S03718.1tm     +++|          JMP    RWC         ENTER READ/WRITE CONTROL
04153  M01S03719.1tm     +++|
04154  M01S03720.1tm     +++|
04155  M01S03721.1tm     +++| BNIA     DATA   0007,0,0,0,0  BINARY MODE HEADER
04156  M01S03722.1tm     +++| BNO      SPACE  4,15
04157  M01S03723.1tm     +++|***       0007   INITIATE BINARY MODE OUTPUT.
04158  M01S03724.1tm     +++|*
04159  M01S03725.1tm     +++|*         THIS CONTROL BYTE INITIATES BINARY OUTPUT.  IT MUST
04160  M01S03726.1tm     +++|*         APPEAR IN THE FIRST BYTE OF OUTPUT.
04161  M01S03727.1tm     +++|*
04162  M01S03728.1tm     +++|*         EXIT   TO *BWT* IF VALID CONTROL BYTE.
04163  M01S03729.1tm     +++|*                TO *AWT13* IF INVALID CONTROL BYTE.
04164  M01S03730.1tm     +++|
04165  M01S03731.1tm     +++|
04166  M01S03732.1tm     +++| BNO      BSS    0           ENTRY
04167  M01S03733.1tm     +++|          LDD    DP+3        CLEAR BINARY MODE
04168  M01S03734.1tm     +++|          SCN    10
04169  M01S03735.1tm     +++|          STD    DP+3
04170  M01S03736.1tm     +++|          LDD    CH+1        CHECK CHARACTER COUNT
04171  M01S03737.1tm     +++|          NJN    BNO1        IF NOT FIRST BYTE
04172  M01S03738.1tm     +++|          LDN    10          SET BINARY TRANSMISSION
04173  M01S03739.1tm     +++|          RAD    DP+3
04174  M01S03740.1tm     +++|          LJM    BWT         ENTER BINARY WRITE MODE
04175  M01S03741.1tm     +++|
04176  M01S03742.1tm     +++| BNO1     LDN    1RG
04177  M01S03743.1tm     +++|          JMP    AWT13       CONTINUE WRITE MODE
04178  M01S03744.1tm     +++| BEO      SPACE  4,15
04179  M01S03745.1tm     +++|***       0011   BEGIN EXENDED OUTPUT.
04180  M01S03746.1tm     +++|*
04181  M01S03747.1tm     +++|*         THIS CONTROL BYTE INITIATES EXTENDED MODE OUTPUT.
Line S03748 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2406
Seq #  *Modification Id* Act 
----------------------------+
04182  M02S03748.ns2406  ---|*         IT MUST APPEAR IN THE FIRST BYTE OF THE OUTPUT WORD.
04183  M01S00001.ns2406  +++|*         IT MUST APPEAR IN THE FIRST BYTE OF THE OUTPUT LINE.
04184  M01S03749.1tm     +++|*
04185  M01S03750.1tm     +++|*         EXIT   TO *AWT* TO INITIATE EXTENDED OUTPUT.
04186  M01S03751.1tm     +++|*                TO *AWT13* IF INVALID CONTROL BYTE.
04187  M01S03752.1tm     +++|*
04188  M01S03753.1tm     +++|*         CALLS  SEM.
04189  M01S03754.1tm     +++|
04190  M01S03755.1tm     +++|
04191  M01S03756.1tm     +++| BEO      BSS    0           ENTRY
Line S03757 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2406
Seq #  *Modification Id* Act 
----------------------------+
04192  M02S03757.ns2406  ---|          LDD    DP+2        CHECK BYTE POSITION IN LINE
Line S03758 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2406
Seq #  *Modification Id* Act 
----------------------------+
04193  M02S03758.ns2406  ---|          LPN    17
Line S03759 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2406
Seq #  *Modification Id* Act 
----------------------------+
04194  M02S03759.ns2406  ---|          LMN    2
04195  M01S00002.ns2406  +++|          LDD    CH+1
04196  M01S03760.1tm     +++|          NJN    BEO1        IF NOT FIRST BYTE
04197  M01S03761.1tm     +++|          RJM    SEM         SET EXTENDED MODE
04198  M01S03762.1tm     +++|          JMP    AWT         INITIATE OUTPUT
04199  M01S03763.1tm     +++|
04200  M01S03764.1tm     +++| BEO1     LDN    1RI
04201  M01S03765.1tm     +++|          JMP    AWT13       CONTINUE WRITE MODE
04202  M01S03766.1tm     +++| EOS      SPACE  4,15
04203  M01S03767.1tm     +++|***       0013   END OF STRING.
04204  M01S03768.1tm     +++|*
04205  M01S03769.1tm     +++|*         THIS BYTE ACTS AS A LOGICAL LINE TERMINATOR WHEN
04206  M01S03770.1tm     +++|*         FOLLOWED BY AN END OF LINE.  THE TERMINAL CARRIAGE
04207  M01S03771.1tm     +++|*         WILL NOT BE REPOSITIONED AND OUTPUT WILL CONTINUE
04208  M01S03772.1tm     +++|*         WITH THE NEXT LINE OF DATA.
04209  M01S03773.1tm     +++|*
04210  M01S03774.1tm     +++|*         EXIT   (CH+1) = 0.
04211  M01S03775.1tm     +++|*                (CH+2) = 0.
04212  M01S03776.1tm     +++|*                TO *SOC* IF END OF CURRENT POT -
04213  M01S03777.1tm     +++|*                  (A) = *.ECP*.
04214  M01S03778.1tm     +++|*                TO *AWT* TO CONTINUE WRITE IF NOT END OF POT.
04215  M01S03779.1tm     +++|*
04216  M01S03780.1tm     +++|*         CALLS  CEM, CLT, ROC.
04217  M01S03781.1tm     +++|
04218  M01S03782.1tm     +++|
04219  M01S03783.1tm     +++| EOS      BSS    0           ENTRY
04220  M01S03784.1tm     +++|          LDN    1RK         CHECK FOR LINE TERMINATION
04221  M01S03785.1tm     +++|          RJM    CLT
04222  M01S03786.1tm     +++|          STD    CH+1        CLEAR CHARACTER COUNT
04223  M01S03787.1tm     +++|          STD    CH+2        CLEAR CONTROL BYTE
04224  M01S03788.1tm     +++|          RJM    ROC         FORCE LINE SKIP IF IN BYTE 4
04225  M01S03789.1tm     +++|          LMC    .ECP        CHECK IF END OF POT REACHED
04226  M01S03790.1tm     +++|          NJN    EOS1        IF NOT END OF CURRENT POT
04227  M01S03791.1tm     +++|          LMC    .ECP
04228  M01S03792.1tm     +++|          LJM    SOC         SET OUTPUT CONTROL
04229  M01S03793.1tm     +++|
04230  M01S03794.1tm     +++| EOS1     LDD    DP+2        REPOSITION TO READ NEXT WORD
04231  M01S03795.1tm     +++|          SCN    17
04232  M01S03796.1tm     +++|          LMN    12
04233  M01S03797.1tm     +++|          STD    DP+2
04234  M01S03798.1tm     +++|          RJM    CEM         CLEAR EXTENDED MODE
04235  M01S03799.1tm     +++|          JMP    AWT         CONTINUE OUTPUT
04236  M01S03800.1tm     +++| IEB      SPACE  4,20
04237  M01S03801.1tm     +++|***       0014   INTERNAL END OF BLOCK.
04238  M01S03802.1tm     +++|*
04239  M01S03803.1tm     +++|*         THIS CONTROL BYTE IS USED INTERNALLY BY *1TO* ONLY TO
04240  M01S03804.1tm     +++|*         TERMINATE OUTPUT BEFORE THE END OF POT IS REACHED.  THE
04241  M01S03805.1tm     +++|*         REMAINDER OF THE POT IS DISCARDED, THE TERMINAL IS NOT
04242  M01S03806.1tm     +++|*         REPOSITIONED TO THE BEGINNING OF THE NEXT LINE, AND ANY
04243  M01S03807.1tm     +++|*         SPECIAL MODES (E.G., EXTENDED OR BINARY TRANSMISSION)
04244  M01S03808.1tm     +++|*         WILL REMAIN SET.  THIS BYTE MUST APPEAR AS THE FIRST BYTE
04245  M01S03809.1tm     +++|*         OF A WORD, AND MUST BE FOLLOWED BY AN END OF LINE.
04246  M01S03810.1tm     +++|*
04247  M01S03811.1tm     +++|*         EXIT   TO *RWC1* IF VALID CONTROL BYTE.
04248  M01S03812.1tm     +++|*                TO *AWT13* IF INVALID CONTROL BYTE.
04249  M01S03813.1tm     +++|*
04250  M01S03814.1tm     +++|*         CALLS  CLT.
04251  M01S03815.1tm     +++|*
04252  M01S03816.1tm     +++|*         MACROS RETURN.
04253  M01S03817.1tm     +++|
04254  M01S03818.1tm     +++|
04255  M01S03819.1tm     +++| IEB      BSS    0           ENTRY
04256  M01S03820.1tm     +++|          LDD    DP+2        CHECK CHARACTER POSITION
04257  M01S03821.1tm     +++|          LPN    17
04258  M01S03822.1tm     +++|          LMN    2
04259  M01S03823.1tm     +++|          NJN    IEB1        IF NOT FIRST BYTE IN WORD
04260  M01S03824.1tm     +++|          LDN    1RL         CHECK FOR LINE TERMINATION
04261  M01S03825.1tm     +++|          RJM    CLT
04262  M01S03826.1tm     +++|          STD    DP+2        CLEAR CHARACTER POSITION
04263  M01S03827.1tm     +++|          RETURN /CTL/RWC1   ENTER READ/WRITE CONTROL
04264  M01S03828.1tm     +++|
04265  M01S03829.1tm     +++| IEB1     LDN    1RL
04266  M01S03830.1tm     +++|          JMP    AWT13       REENTER WRITE MODE
04267  M01S03831.1tm     +++| ETI      SPACE  4,15
04268  M01S03832.1tm     +++|***       0015   EXECUTIVE AUTO INPUT.
04269  M01S03833.1tm     +++|*
Line S03834 Modification History
M01 (Added by) 1tm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04270  M02S03834.242l642 ---|*         THIS CONTROL BYTE IS INTENDED TO BE USED BY *RAF* FOR
04271  M01S00312.242l642 +++|*         THIS CONTROL BYTE IS INTENDED TO BE USED BY *RDF* FOR
04272  M01S03835.1tm     +++|*         AUTO MODE INPUT. THE WORD IN WHICH THE CONTROL BYTE OCCURS
04273  M01S03836.1tm     +++|*         IS USED AS THE FIRST N CHARACTERS OF THE INPUT LINE.
04274  M01S03837.1tm     +++|*         N MUST BE EVEN AND LESS THAN 9.
04275  M01S03838.1tm     +++|*
04276  M01S03839.1tm     +++|*         THIS CONTROL BYTE MUST BE FOLLOWED BY AN END-OF-LINE.
04277  M01S03840.1tm     +++|*
04278  M01S03841.1tm     +++|*         EXIT   TO *ATI1* TO INITIATE AUTO MODE INPUT -
04279  M01S03842.1tm     +++|*                  (A)    = 1RM.
04280  M01S03843.1tm     +++|*                  (RTIA) = *RSW*.
04281  M01S03844.1tm     +++|*                  (RTIB) = *LDNI+1RM*.
04282  M01S03845.1tm     +++|
04283  M01S03846.1tm     +++|
04284  M01S03847.1tm     +++| ETI      BSS    0           ENTRY
04285  M01S03848.1tm     +++|          LDC    LDNI+1RM    SET CONTROL TO REENTER WRITE MODE
04286  M01S03849.1tm     +++|          STM    ATIB
04287  M01S03850.1tm     +++|          LDC    RSW         SET UP CALL TO SUBROUTINE RSW
04288  M01S03851.1tm     +++|          STM    ATIA
04289  M01S03852.1tm     +++|          LDN    1RM
04290  M01S03853.1tm     +++|          LJM    ATI1        AUTO MODE INPUT PROCESSING
04291  M01S03854.1tm     +++|          TITLE  WRITE MODE - SPECIAL CHARACTER PROCESSORS.
04292  M01S03855.1tm     +++| ACR      SPACE  4,15
04293  M01S03856.1tm     +++|**        ACR - PROCESS *CARRIAGE RETURN* OUTPUT.
04294  M01S03857.1tm     +++|*
04295  M01S03858.1tm     +++|*         ISSUES *CARRIAGE RETURN* TO THE TERMINAL, FOLLOWED
04296  M01S03859.1tm     +++|*         BY *NUL* CHARACTERS IF IN KEYBOARD MODE OR BY
04297  M01S03860.1tm     +++|*         *DEL* CHARACTERS IF IN TAPE MODE.
04298  M01S03861.1tm     +++|*
04299  M01S03862.1tm     +++|*         EXIT   TO *AWT* TO CONTINUE WRITE OPERATION.
04300  M01S03863.1tm     +++|*
04301  M01S03864.1tm     +++|*         USES   T7.
04302  M01S03865.1tm     +++|*
04303  M01S03866.1tm     +++|*         CALLS  DDC, SRC.
04304  M01S03867.1tm     +++|*
04305  M01S03868.1tm     +++|*         MACROS RETURN.
04306  M01S03869.1tm     +++|
04307  M01S03870.1tm     +++|
04308  M01S03871.1tm     +++| ACR      BSS    0           ENTRY
04309  M01S03872.1tm     +++|          LDC    .CCR        ISSUE *CR* TO OUTPUT
04310  M01S03873.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
04311  M01S03874.1tm     +++|          STD    DO
04312  M01S03875.1tm     +++|          RETURN *           REENTER
04313  M01S03876.1tm     +++|          LDN    3           SET DEFAULT DELAY COUNT
04314  M01S03877.1tm     +++|          RJM    DDC         DETERMINE TERMINAL DELAY COUNT
04315  M01S03878.1tm     +++|          STD    T7
04316  M01S03879.1tm     +++|          LDD    DC          CHECK TERMINAL STATUS
04317  M01S03880.1tm     +++|          LPN    1
04318  M01S03881.1tm     +++|          ZJN    ACR1        IF NOT IN *TAPE* MODE
04319  M01S03882.1tm     +++|          LDK    .CDEL       SET ASCII *DEL* CODE
04320  M01S03883.1tm     +++|          UJN    ACR2
04321  M01S03884.1tm     +++|
04322  M01S03885.1tm     +++| ACR1     LDK    .CNUL       SET ASCII *NUL* CODE
04323  M01S03886.1tm     +++| ACR2     SHN    6           ADD DELAY COUNT
04324  M01S03887.1tm     +++|          ADD    T7
04325  M01S03888.1tm     +++|          SHN    14
04326  M01S03889.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
04327  M01S03890.1tm     +++|          RJM    SRC         SEND REPEATED CHARACTERS
04328  M01S03891.1tm     +++|          JMP    AWT         REENTER WRITE MODE
04329  M01S03892.1tm     +++| ANL      SPACE  4,15
04330  M01S03893.1tm     +++|**        ANL - PROCESS *NEW LINE* OUTPUT.
04331  M01S03894.1tm     +++|*
04332  M01S03895.1tm     +++|*         ISSUES *CARRIAGE RETURN* FOLLOWED BY *LINE FEED*
04333  M01S03896.1tm     +++|*         TO THE TERMINAL, THEN FOLLOWED BY *NULL* CHARACTERS.
04334  M01S03897.1tm     +++|*
04335  M01S03898.1tm     +++|*         EXIT   TO *ISN* TO ISSUE *NULL* CHARACTERS.
04336  M01S03899.1tm     +++|*
04337  M01S03900.1tm     +++|*         MACROS RETURN.
04338  M01S03901.1tm     +++|
04339  M01S03902.1tm     +++|
04340  M01S03903.1tm     +++| ANL      BSS    0           ENTRY
04341  M01S03904.1tm     +++|          LDC    .CCR        ISSUE *CR* TO OUTPUT
04342  M01S03905.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
04343  M01S03906.1tm     +++|          STD    DO
04344  M01S03907.1tm     +++|          RETURN *           REENTER
04345  M01S03908.1tm     +++|          LDC    .CLF        ISSUE *LF* TO OUTPUT
04346  M01S03909.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
04347  M01S03910.1tm     +++|          STD    DO
04348  M01S03911.1tm     +++|          RETURN *           REENTER
04349  M01S03912.1tm     +++|          LDN    2           SET DEFAULT REPEAT COUNT
04350  M01S03913.1tm     +++|          JMP    ISN         ISSUE *NUL*S
04351  M01S03914.1tm     +++| WTM      TITLE  WRITE MODE - SUBROUTINES.
04352  M01S03915.1tm     +++| CKL      SPACE  4,15
04353  M01S03916.1tm     +++|**        CKL - CHECK LIST STATUS.
04354  M01S03917.1tm     +++|*
04355  M01S03918.1tm     +++|*         EXIT   (A) = NEGATIVE IF FILE LIST IN PROGRESS.
04356  M01S03919.1tm     +++|*
04357  M01S03920.1tm     +++|*         USES   T1 - T5.
04358  M01S03921.1tm     +++|*
04359  M01S03922.1tm     +++|*         CALLS  STA.
04360  M01S03923.1tm     +++|
04361  M01S03924.1tm     +++|
04362  M01S03925.1tm     +++| CKL      SUBR               ENTRY/EXIT
04363  M01S03926.1tm     +++|          RJM    STA         SET FWA OF TERMINAL TABLE
04364  M01S03927.1tm     +++|          ADN    VROT        READ *VROT*
04365  M01S03928.1tm     +++|          CRD    T1
04366  M01S03929.1tm     +++|          LDD    T1+4        LOAD STATUS BYTE
04367  M01S03930.1tm     +++|          SHN    21-6        SHIFT *LIST* STATUS BIT
04368  M01S03931.1tm     +++|          UJN    CKLX        RETURN
04369  M01S03932.1tm     +++| CLT      SPACE  4,25
04370  M01S03933.1tm     +++|**        CLT - CHECK FOR LINE TERMINATION.
04371  M01S03934.1tm     +++|*
04372  M01S03935.1tm     +++|*         CHECKS CURRENT OUTPUT FOR LINE TERMINATION.
04373  M01S03936.1tm     +++|*
04374  M01S03937.1tm     +++|*         ENTRY  (A) = NEXT OUTPUT CHARACTER IF NOT END OF LINE.
04375  M01S03938.1tm     +++|*
04376  M01S03939.1tm     +++|*         EXIT   TO CALLING ROUTINE IF LINE TERMINATED.
04377  M01S03940.1tm     +++|*                TO WRITE MODE IF LINE NOT TERMINATED.
04378  M01S03941.1tm     +++|*                LINE TERMINATION CAN BE EXPLICIT IN THE CASE OF
04379  M01S03942.1tm     +++|*                A VALID END OF LINE FOLLOWING THE CURRENT LINE
04380  M01S03943.1tm     +++|*                POSITION, OR IT MAY BE IMPLICIT IN THE CASE OF THERE
04381  M01S03944.1tm     +++|*                BEING NO FURTHER DATA, EITHER ASSIGNED OR ON
04382  M01S03945.1tm     +++|*                MASS STORAGE.
04383  M01S03946.1tm     +++|*                IN THE EVENT THAT NO DETERMINATION CAN  BE MADE
04384  M01S03947.1tm     +++|*                BECAUSE THE DRIVER IS AT THE END OF THE CURRENT
04385  M01S03948.1tm     +++|*                POT STRING BUT OUTPUT IS WAITING ON MASS STORAGE,
04386  M01S03949.1tm     +++|*                OR IF THE JOB IS CURRENTLY IN EXECUTION,
04387  M01S03950.1tm     +++|*                EXIT IS TO READ/WRITE CONTROL WITH SUSPENDED CONTROL
04388  M01S03951.1tm     +++|*                STATUS SET IN (CH+2).
04389  M01S03952.1tm     +++|*
04390  M01S03953.1tm     +++|*         USES   T0 - T5, CM, CM+1, (MA)-(MA)+5.
04391  M01S03954.1tm     +++|*
04392  M01S03955.1tm     +++|*         CALLS  RLT, ROC, STA.
04393  M01S03956.1tm     +++|*
04394  M01S03957.1tm     +++|*         MACROS RETURN.
04395  M01S03958.1tm     +++|
04396  M01S03959.1tm     +++|
04397  M01S03960.1tm     +++| CLT      SUBR               ENTRY/EXIT
04398  M01S03961.1tm     +++|          STD    CM          SAVE CALLING CODE
04399  M01S03962.1tm     +++|          LDD    MA          SAVE POINTER WORD
04400  M01S03963.1tm     +++|          CWD    DP
04401  M01S03964.1tm     +++|          RJM    ROC         READ NEXT CHARACTER
04402  M01S03965.1tm     +++|          LMC    .ECP
04403  M01S03966.1tm     +++|          ZJN    CLT3        IF END OF CURRENT POT
04404  M01S03967.1tm     +++|          LMC    .ECP
04405  M01S03968.1tm     +++|
04406  M01S03969.1tm     +++|*         CHECK NEXT OUTPUT BYTE FOR END OF LINE.
04407  M01S03970.1tm     +++|
04408  M01S03971.1tm     +++| CLT1     SHN    1           CHECK FOR END OF LINE
04409  M01S03972.1tm     +++|          LMN    1
04410  M01S03973.1tm     +++|          STD    CM+1        STORE FLAG (ZERO IF END OF LINE)
04411  M01S03974.1tm     +++| CLT2     LDD    MA          RESTORE POINTER WORD
04412  M01S03975.1tm     +++|          CRD    DP
04413  M01S03976.1tm     +++|          LDD    CM+1        CHECK FLAG
04414  M01S03977.1tm     +++|          ZJN    CLTX        IF END OF LINE
04415  M01S03978.1tm     +++|          LJM    CLT6
04416  M01S03979.1tm     +++|
04417  M01S03980.1tm     +++|*         ADVANCE TO NEXT POT.
04418  M01S03981.1tm     +++|
04419  M01S03982.1tm     +++| CLT3     STD    DP+2        CLEAR POINTERS
04420  M01S03983.1tm     +++|          STD    CM+1
04421  M01S03984.1tm     +++|          RJM    RLT         CHECK POT LINK
04422  M01S03985.1tm     +++|          ZJN    CLT4        IF POT NOT LINKED
04423  M01S03986.1tm     +++|          STD    DP+1        SET NEXT POT
04424  M01S03987.1tm     +++|          RJM    ROC         READ NEXT CHARACTER
04425  M01S03988.1tm     +++|          UJN    CLT1
04426  M01S03989.1tm     +++|
04427  M01S03990.1tm     +++|*         CHECK FOR ADDITIONAL OUTPUT.
04428  M01S03991.1tm     +++|
04429  M01S03992.1tm     +++| CLT4     LDD    DC          CHECK FOR DRIVER REQUEST
04430  M01S03993.1tm     +++|          SHN    21-13
04431  M01S03994.1tm     +++|          MJN    CLT2        IF DRIVER REQUEST
04432  M01S03995.1tm     +++|          LDD    DC+4
04433  M01S03996.1tm     +++|          NJN    CLT5        IF OUTPUT ASSIGNED
04434  M01S03997.1tm     +++|          RJM    STA         SET FWA OF TERMINAL TABLE
04435  M01S03998.1tm     +++|          ADN    VROT        READ *VROT*
04436  M01S03999.1tm     +++|          CRD    T0
04437  M01S04000.1tm     +++|          LDD    T0+4        CHECK JOB STATUS
04438  M01S04001.1tm     +++|          LPN    21
04439  M01S04002.1tm     +++|          LMN    1
04440  M01S04003.1tm     +++|          ZJN    CLT2        IF NOT EXECUTING AND NO OUTPUT
04441  M01S04004.1tm     +++|
04442  M01S04005.1tm     +++|*         SUSPEND CONTROL UNTIL FURTHER OUTPUT IS ASSIGNED.
04443  M01S04006.1tm     +++|
04444  M01S04007.1tm     +++| CLT5     LDD    MA          RESET POINTER WORD
04445  M01S04008.1tm     +++|          CRD    DP
04446  M01S04009.1tm     +++|          LDD    CM          SET SUSPENDED CONTROL
04447  M01S04010.1tm     +++|          ADC    600
04448  M01S04011.1tm     +++|          STD    CH+2
04449  M01S04012.1tm     +++|          RETURN /CTL/RWC1   ENTER READ/WRITE CONTROL
04450  M01S04013.1tm     +++|
04451  M01S04014.1tm     +++|*         REENTER WRITE MODE IF NO TERMINATOR.
04452  M01S04015.1tm     +++|
04453  M01S04016.1tm     +++| CLT6     LDD    DP+3        CHECK *BINARY* MODE
04454  M01S04017.1tm     +++|          SHN    21-3
04455  M01S04018.1tm     +++|          MJN    CLT7        IF SET
04456  M01S04019.1tm     +++|          LDD    CM          SET OUTPUT CHARACTER
04457  M01S04020.1tm     +++|          LJM    AWT13       REENTER WRITE MODE
04458  M01S04021.1tm     +++|
04459  M01S04022.1tm     +++| CLT7     SOD    DP+2        BACK UP CHARACTER
04460  M01S04023.1tm     +++|          LJM    BWT2        EXIT BINARY MODE
04461  M01S04024.1tm     +++| MDS      SPACE  4,15
04462  M01S04025.1tm     +++|**        MDS - MOVE DATA WORD TO START OF POT.
04463  M01S04026.1tm     +++|*
04464  M01S04027.1tm     +++|*         MOVE THE WORD CONTAINING THE AUTO INPUT CONTROL BYTE
04465  M01S04028.1tm     +++|*         TO THE FIRST WORD OF THE POT FOR SUBSEQUENT INPUT.
04466  M01S04029.1tm     +++|*
04467  M01S04030.1tm     +++|*         ENTRY  (TO - T4) = DATA WORD.
04468  M01S04031.1tm     +++|*
04469  M01S04032.1tm     +++|*         CALLS  SWA.
04470  M01S04033.1tm     +++|
04471  M01S04034.1tm     +++|
04472  M01S04035.1tm     +++| MDS      SUBR               ENTRY/EXIT
04473  M01S04036.1tm     +++|          LDD    DP+2        CLEAR POT WORD POINTER
04474  M01S04037.1tm     +++|          LPC    0617
04475  M01S04038.1tm     +++|          STD    DP+2
04476  M01S04039.1tm     +++|          RJM    SWA         SET WORD ADDRESS
04477  M01S04040.1tm     +++|          CWD    T0          WRITE WORD TO POT
04478  M01S04041.1tm     +++|          UJN    MDSX        RETURN
04479  M01S04042.1tm     +++| ROC      SPACE  4,20
04480  M01S04043.1tm     +++|**        ROC - READ OUTPUT CHARACTER.
04481  M01S04044.1tm     +++|*
04482  M01S04045.1tm     +++|*         EXIT   (T5) = OUTPUT BYTE ADDRESS.
04483  M01S04046.1tm     +++|*                (T7) = LOWER 12 BITS OF (A).
04484  M01S04047.1tm     +++|*                (A) = POSITIVE -
04485  M01S04048.1tm     +++|*                        (A) = OUTPUT CHARACTER.
04486  M01S04049.1tm     +++|*                    = NEGATIVE -
04487  M01S04050.1tm     +++|*                        (A) = 400000B + CONTROL BYTE VALUE, OR,
04488  M01S04051.1tm     +++|*                              770001 (END OF POT).
04489  M01S04052.1tm     +++|*
04490  M01S04053.1tm     +++|*         USES   DP+2, T7, T0 - T5.
04491  M01S04054.1tm     +++|*
04492  M01S04055.1tm     +++|*         CALLS  SWA.
04493  M01S04056.1tm     +++|*
04494  M01S04057.1tm     +++|*         MACROS ADCBM.
04495  M01S04058.1tm     +++|
04496  M01S04059.1tm     +++|
04497  M01S04060.1tm     +++|*         PROCESS ODD (LOWER) CHARACTER.
04498  M01S04061.1tm     +++|
04499  M01S04062.1tm     +++| ROC9     LPN    7           SET BYTE NUMBER
04500  M01S04063.1tm     +++|          STD    T5
04501  M01S04064.1tm     +++|          AOD    DP+2        ADVANCE CHARACTER NUMBER
04502  M01S04065.1tm     +++|          RJM    SWA         READ DATA WORD
04503  M01S04066.1tm     +++|          CRD    T0
04504  M01S04067.1tm     +++|          LDI    T5          EXTRACT LOWER CHARACTER
04505  M01S04068.1tm     +++|          LPN    77
04506  M01S04069.1tm     +++| ROC10    STD    T7          SET CHARACTER
04507  M01S04070.1tm     +++|*         UJN    ROCX
04508  M01S04071.1tm     +++|
04509  M01S04072.1tm     +++|
04510  M01S04073.1tm     +++|*         ROC - ENTRY.
04511  M01S04074.1tm     +++|
04512  M01S04075.1tm     +++| ROC      SUBR               ENTRY/EXIT
04513  M01S04076.1tm     +++|          LDD    DP+1        CHECK CURRENT POT POINTER
04514  M01S04077.1tm     +++|          SHN    -6
04515  M01S04078.1tm     +++|          LMN    77
04516  M01S04079.1tm     +++|          NJN    ROC1        IF NOT MESSAGE PSEUDO-POT POINTER
04517  M01S04080.1tm     +++|          LJM    TTM1        GET MESSAGE CHARACTER
04518  M01S04081.1tm     +++|
04519  M01S04082.1tm     +++| ROC1     LDD    DP+2        CHECK CHARACTER NUMBER
04520  M01S04083.1tm     +++|          SHN    21
04521  M01S04084.1tm     +++|          MJN    ROC9        IF ODD CHARACTER
04522  M01S04085.1tm     +++|
04523  M01S04086.1tm     +++|*         PROCESS EVEN (UPPER) CHARACTER.
04524  M01S04087.1tm     +++|
04525  M01S04088.1tm     +++|          LPN    77          CHECK WORD STATUS
04526  M01S04089.1tm     +++|          LMN    75
04527  M01S04090.1tm     +++|          NJN    ROC2        IF NOT END OF WORD AND END OF POT
04528  M01S04091.1tm     +++|          LDC    .ECP
04529  M01S04092.1tm     +++|          UJN    ROCX
04530  M01S04093.1tm     +++|
04531  M01S04094.1tm     +++| ROC2     LPN    7
04532  M01S04095.1tm     +++|          NJN    ROC3        IF NOT END OF WORD
04533  M01S04096.1tm     +++|          STD    T5          SET BYTE 0
04534  M01S04097.1tm     +++|          LDN    21-12       ADVANCE WORD AND SET ODD CHARACTER
04535  M01S04098.1tm     +++|          RAD    DP+2
04536  M01S04099.1tm     +++|          UJN    ROC4
04537  M01S04100.1tm     +++|
04538  M01S04101.1tm     +++| ROC3     LMN    5           SET BYTE NUMBER
04539  M01S04102.1tm     +++|          STD    T5
04540  M01S04103.1tm     +++|          AOD    DP+2        ADVANCE CHARACTER
04541  M01S04104.1tm     +++| ROC4     RJM    SWA         SET WORD ADDRESS
04542  M01S04105.1tm     +++|          CRD    T0          READ WORD
04543  M01S04106.1tm     +++|          LDI    T5          EXTRACT UPPER CHARACTER
04544  M01S04107.1tm     +++|          SHN    -6
04545  M01S04108.1tm     +++|          NJN    ROC6        IF NOT CONTROL BYTE
04546  M01S04109.1tm     +++|          LDI    T5
04547  M01S04110.1tm     +++|          ZJN    ROC7        IF ZERO BYTE
04548  M01S04111.1tm     +++|          SBN    TSOCL
04549  M01S04112.1tm     +++|          PJN    ROC8        IF NOT CONTROL BYTE
04550  M01S04113.1tm     +++|          ADN    TSOCL
04551  M01S04114.1tm     +++| ROC5     LMC    400000
04552  M01S04115.1tm     +++| ROC6     LJM    ROC10
04553  M01S04116.1tm     +++|
04554  M01S04117.1tm     +++|*         CHECK FOR END OF LINE.
04555  M01S04118.1tm     +++|
04556  M01S04119.1tm     +++| ROC7     AOD    T5          ADVANCE BYTE POINTER
04557  M01S04120.1tm     +++|          LMN    5
04558  M01S04121.1tm     +++|          ZJN    ROC5        IF END OF WORD
04559  M01S04122.1tm     +++|          LDI    T5
04560  M01S04123.1tm     +++|          ZJN    ROC7        IF NO DATA IN NEXT BYTE
04561  M01S04124.1tm     +++| ROC8     LDN    0           ISSUE COLON
04562  M01S04125.1tm     +++|          UJN    ROC6
04563  M01S04126.1tm     +++| RSW      SPACE  4,15
04564  M01S04127.1tm     +++|**        RSW - RESTORE WORD.
04565  M01S04128.1tm     +++|*
04566  M01S04129.1tm     +++|*         THE WORD IN WHICH THE CONTROL BYTE 0015 OCCURS IS USED
04567  M01S04130.1tm     +++|*         AS THE FIRST N CHARACTERS OF THE INPUT LINE.
04568  M01S04131.1tm     +++|*
04569  M01S04132.1tm     +++|*         ENTRY  (T0 - T4) = DATA WORD.
04570  M01S04133.1tm     +++|*
04571  M01S04134.1tm     +++|*         CALLS  SWA.
04572  M01S04135.1tm     +++|
04573  M01S04136.1tm     +++|
04574  M01S04137.1tm     +++| RSW      SUBR               ENTRY/EXIT
04575  M01S04138.1tm     +++|          RJM    SWA         SET WORD ADDRESS
04576  M01S04139.1tm     +++|          CWD    T0          WRITE WORD TO POT
04577  M01S04140.1tm     +++|          UJN    RSWX        RETURN
04578  M01S04141.1tm     +++| SRC      SPACE  4,15
04579  M01S04142.1tm     +++|**        SRC - SEND REPEATED CHARACTER.
04580  M01S04143.1tm     +++|*
04581  M01S04144.1tm     +++|*         ENTRY  (A) = 6/REPEAT COUNT, 12/CHARACTER.
04582  M01S04145.1tm     +++|*
04583  M01S04146.1tm     +++|*         EXIT   CHARACTER TRANSMITTED (A) TIMES.
04584  M01S04147.1tm     +++|*
04585  M01S04148.1tm     +++|*         USES   (CH)   = RETURN ADDRESS.
04586  M01S04149.1tm     +++|*                (CH+1) = REPEAT COUNT.
04587  M01S04150.1tm     +++|*
04588  M01S04151.1tm     +++|*         MACROS RETURN.
04589  M01S04152.1tm     +++|
04590  M01S04153.1tm     +++|
04591  M01S04154.1tm     +++| SRC      SUBR               ENTRY/EXIT
04592  M01S04155.1tm     +++|          LPC    -4000       SET OUTPUT CHARACTER BIT
04593  M01S04156.1tm     +++|          LMC    4000
04594  M01S04157.1tm     +++|          STM    RDAT        SAVE CHARACTER
04595  M01S04158.1tm     +++|          SHN    -14         SET REPEAT COUNT
04596  M01S04159.1tm     +++|          STD    CH+1
04597  M01S04160.1tm     +++|          ZJN    SRCX        IF ZERO
04598  M01S04161.1tm     +++|          LDM    SRC         SET RETURN ADDRESS
04599  M01S04162.1tm     +++|          STD    CH
04600  M01S04163.1tm     +++| SRC1     LDM    RDAT        TRANSMIT OUTPUT
04601  M01S04164.1tm     +++|          STD    DO
04602  M01S04165.1tm     +++|          RETURN *           REENTER
04603  M01S04166.1tm     +++|          SOD    CH+1        DECREMENT REPEAT COUNT
04604  M01S04167.1tm     +++|          NJN    SRC1        IF NOT EXHAUSTED
04605  M01S04168.1tm     +++|          LJM    0,CH        REENTER CALLING ROUTINE
04606  M01S04169.1tm     +++| TOC      SPACE  4,15
04607  M01S04170.1tm     +++|**        TOC - TRANSLATE ASCII OUTPUT CHARACTER.
04608  M01S04171.1tm     +++|*
04609  M01S04172.1tm     +++|*         TRANSLATES OUTPUT DATA CHARACTER AND SETS THE
04610  M01S04173.1tm     +++|*         PROPER PARITY (EVEN OR ODD) ON THE TRANSLATED
04611  M01S04174.1tm     +++|*         OUTPUT CHARACTER.
04612  M01S04175.1tm     +++|*
04613  M01S04176.1tm     +++|*         ENTRY  (T7) = CHARACTER TO BE TRANSLATED.
04614  M01S04177.1tm     +++|*
04615  M01S04178.1tm     +++|*         EXIT   (A) = 4000B+CHARACTER IF SPECIAL PROCESOR
04616  M01S04179.1tm     +++|*                      NOT DEFINED.
04617  M01S04180.1tm     +++|*                    = SPECIAL PROCESSOR INDEX IF DEFINED.
04618  M01S04181.1tm     +++|*                (T7) = (A).
04619  M01S04182.1tm     +++|
04620  M01S04183.1tm     +++|
04621  M01S04184.1tm     +++| TOC      SUBR               ENTRY/EXIT
04622  M01S04185.1tm     +++|          LDM    TOTP,T7     READ TRANSLATION TABLE ENTRY
04623  M01S04186.1tm     +++|          STD    T7
04624  M01S04187.1tm     +++|          SHN    21-13       CHECK FOR VALID CHARACTER
04625  M01S04188.1tm     +++|          PJN    TOC1        IF IF SPECIAL PROCESSOR
04626  M01S04189.1tm     +++|          LDD    T7          TOGGLE PARITY
04627  M01S04190.1tm     +++|          LMD    PY          TOGGLE ODD PARITY
04628  M01S04191.1tm     +++|          STD    T7
04629  M01S04192.1tm     +++| TOC1     LDD    T7          RETURN (A) = TRANSLATION
04630  M01S04193.1tm     +++|          UJN    TOCX        RETURN
04631  M01S04194.1tm     +++|          SPACE  4,10
04632  M01S04195.1tm     +++|          QUAL
04633  M01S04196.1tm     +++|
04634  M01S04197.1tm     +++| WTM      EQU    /WTM/WTM
04635  M01S04198.1tm     +++| TTM      EQU    /WTM/TTM
04636  M01S04199.1tm     +++| DELM     EQU    /WTM/DELM
04637  M01S04200.1tm     +++| LOFM     EQU    /WTM/LOFM
04638  M01S04201.1tm     +++| MBSY     EQU    /WTM/MBSY
04639  M01S04202.1tm     +++| RDYM     EQU    /WTM/RDYM
04640  M01S04203.1tm     +++| RILM     EQU    /WTM/RILM
Line S04204 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04641  M02S04204.ns2149  ---| ITM      TITLE  MULTIPLEXER CHANNEL SUBROUTINES.
Line S04205 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04642  M02S04205.ns2149  ---| IFN      SPACE  4,35
Line S04206 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04643  M02S04206.ns2149  ---|**        IFN - ISSUE FUNCTION.
Line S04207 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04644  M02S04207.ns2149  ---|*
Line S04208 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04645  M02S04208.ns2149  ---|*         ISSUE CHANNEL FUNCTION TO FUNCTION TPM HARDWARE.
Line S04209 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04646  M02S04209.ns2149  ---|*         IF THE TWO-PORT MULTIPLEXER FAILS TO REPLY TO THE FUNCTION
Line S04210 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04647  M02S04210.ns2149  ---|*         BY DISCONNECTING THE CHANNEL WITHIN 3 MILLISECONDS,
Line S04211 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04648  M02S04211.ns2149  ---|*         *IFN* FORMATS A DAYFILE MESSAGE SHOWING THE FAILED
Line S04212 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04649  M02S04212.ns2149  ---|*         FUNCTION AND EXITS TO THE ERROR PROCESSOR.
Line S04213 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04650  M02S04213.ns2149  ---|*
Line S04214 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04651  M02S04214.ns2149  ---|*         ENTRY  (A) = FUNCTION TO BE ISSUED.
Line S04215 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04652  M02S04215.ns2149  ---|*
Line S04216 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04653  M02S04216.ns2149  ---|*         ERROR  TO *ERR* IF FUNCTION REJECT -
Line S04217 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04654  M02S04217.ns2149  ---|*                  (A) = ADDRESS OF DAYFILE MESSAGE.
Line S04218 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04655  M02S04218.ns2149  ---|*                  ERROR LOG MESSAGE ISSUED.
Line S04219 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04656  M02S04219.ns2149  ---|*
Line S04220 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04657  M02S04220.ns2149  ---|*         CALLS  DFM, O2D.
Line S04221 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04658  M02S04221.ns2149  ---|*
Line S04222 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04659  M02S04222.ns2149  ---|*         MACROS CHTE, DELAY.
Line S04223 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04660  M02S04223.ns2149  ---|
Line S04224 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04661  M02S04224.ns2149  ---|
Line S04225 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04662  M02S04225.ns2149  ---| IFN      SUBR               ENTRY/EXIT
Line S04226 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04663  M02S04226.ns2149  ---|          STM    IFNA        SAVE FUNCTION CODE
Line S04227 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04664  M02S04227.ns2149  ---|          DCN    MC+40       INSURE CHANNEL DISCONNECT
Line S04228 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04665  M02S04228.ns2149  ---|          FAN    MC          ISSUE FUNCTION CODE
Line S04229 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04666  M02S04229.ns2149  ---|          LDK    FNTIO       SET FUNCTION TIME-OUT
Line S04230 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04667  M02S04230.ns2149  ---|          STD    T0
Line S04231 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04668  M02S04231.ns2149  ---|
Line S04232 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04669  M02S04232.ns2149  ---|*         WAIT FOR CHANNEL DISCONNECT.
Line S04233 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04670  M02S04233.ns2149  ---|
Line S04234 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04671  M02S04234.ns2149  ---| IFN1     IJM    IFNX,MC     IF FUNCTION COMPLETE
Line S04235 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04672  M02S04235.ns2149  ---|          DELAY              PAUSE 128 USECS
Line S04236 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04673  M02S04236.ns2149  ---|          SOD    T0          DECREMENT TIME-OUT
Line S04237 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04674  M02S04237.ns2149  ---|          PJN    IFN1        IF NOT TIMED-OUT
Line S04238 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04675  M02S04238.ns2149  ---|          DCN    MC+40       DISCONNECT CHANNEL
Line S04239 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04676  M02S04239.ns2149  ---|
Line S04240 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns22000
M03 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04677  M03S04240.ns2149  ---|*         FORMAT EQUIPMENT NUMBER INTO DAYFILE MESSAGE.
Line S00013 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04678  M02S00013.ns2149  ---|*         FORMAT EST ORDINAL INTO DAYFILE MESSAGE.
Line S04241 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04679  M02S04241.ns2149  ---|
Line S04242 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04680  M02S04242.ns2149  ---|          LDD    EQ          CONVERT UPPER 3 BITS
Line S04243 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04681  M02S04243.ns2149  ---|          SHN    -6
Line S04244 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04682  M02S04244.ns2149  ---|          LPN    7
Line S04245 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm1
M03 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04683  M03S04245.ns2149  ---|          RJM    02D
Line S00001 Modification History
M01 (Added by) 1tm1
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04684  M02S00001.ns2149  ---|          RJM    O2D
Line S04246 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04685  M02S04246.ns2149  ---|          SBK    2R00-2RM0   CONVERT UPPER *0* TO *M*
Line S04247 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04686  M02S04247.ns2149  ---|          STM    IFNB+4
Line S04248 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04687  M02S04248.ns2149  ---|          LDD    EQ          CONVERT LOWER 6 BITS
Line S04249 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04688  M02S04249.ns2149  ---|          RJM    O2D
Line S04250 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04689  M02S04250.ns2149  ---|          STM    IFNB+5
Line S04251 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04690  M02S04251.ns2149  ---|
Line S04252 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04691  M02S04252.ns2149  ---|*         FORMAT CHANNEL AND PORT NUMBERS INTO DAYFILE MESSAGE.
Line S04253 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04692  M02S04253.ns2149  ---|
Line S04254 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04693  M02S04254.ns2149  ---|          LDN    MC          CONVERT CHANNEL NUMBER
Line S04255 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04694  M02S04255.ns2149  ---|          CHTE   *-1
Line S04256 Modification History
M01 (Added by) 1tm
M02 (Updated by) 1tm1
M03 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04695  M03S04256.ns2149  ---|          RJM    02D
Line S00002 Modification History
M01 (Added by) 1tm1
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04696  M02S00002.ns2149  ---|          RJM    O2D
Line S04257 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04697  M02S04257.ns2149  ---|          STM    IFNB+7
Line S04258 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04698  M02S04258.ns2149  ---|          LDD    PN          CONVERT PORT NUMBER
Line S04259 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04699  M02S04259.ns2149  ---|          RJM    O2D
Line S04260 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04700  M02S04260.ns2149  ---|          STM    IFNB+11
Line S04261 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04701  M02S04261.ns2149  ---|
Line S04262 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04702  M02S04262.ns2149  ---|*         FORMAT FUNCTION CODE INTO DAYFILE MESSAGE.
Line S04263 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04703  M02S04263.ns2149  ---|
Line S04264 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04704  M02S04264.ns2149  ---|          LDC    *           CONVERT UPPER TWO DIGITS
Line S04265 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04705  M02S04265.ns2149  ---| IFNA     EQU    *-1
Line S04266 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04706  M02S04266.ns2149  ---|          SHN    -6
Line S04267 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04707  M02S04267.ns2149  ---|          RJM    O2D
Line S04268 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04708  M02S04268.ns2149  ---|          STM    IFNB+13
Line S04269 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04709  M02S04269.ns2149  ---|          LDM    IFNA        CONVERT LOWER TWO DIGITS
Line S04270 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04710  M02S04270.ns2149  ---|          RJM    O2D
Line S04271 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04711  M02S04271.ns2149  ---|          STM    IFNB+14
Line S04272 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04712  M02S04272.ns2149  ---|
Line S04273 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04713  M02S04273.ns2149  ---|*         ISSUE ERROR LOG MESSAGE AND EXIT TO ERROR PROCESSOR.
Line S04274 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04714  M02S04274.ns2149  ---|
Line S04275 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04715  M02S04275.ns2149  ---|          LDC    IFNB+3+ERLN
Line S04276 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04716  M02S04276.ns2149  ---|          RJM    DFM         ISSUE ERROR LOG MESSAGE
Line S04277 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04717  M02S04277.ns2149  ---|          LDC    IFNB        SET ADDRESS OF DAYFILE MESSAGE
Line S04278 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04718  M02S04278.ns2149  ---|          LJM    ERR         EXIT TO ERROR PROCESSOR
Line S04279 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04719  M02S04279.ns2149  ---|
Line S04280 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04720  M02S04280.ns2149  ---|
Line S04281 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04721  M02S04281.ns2149  ---| IFNB     DATA   C* 1TM - RMEEE CXX PYY FNNNN REJECT.*
Line S04282 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04722  M02S04282.ns2149  ---| SEL      SPACE  4,15
Line S04283 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04723  M02S04283.ns2149  ---|**        SEL - SELECT MULTIPLEXER PORT.
Line S04284 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04724  M02S04284.ns2149  ---|*
Line S04285 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04725  M02S04285.ns2149  ---|*         ISSUES TPM FUNCTION CODES TO SELECT THE TPM PORT,
Line S04286 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04726  M02S04286.ns2149  ---|*         SET THE PORT OPERATING MODE, AND SET *DATA TERMINAL
Line S04287 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04727  M02S04287.ns2149  ---|*         READY* AND *REQUEST TO SEND*, THEN GETS AND STORES
Line S04288 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04728  M02S04288.ns2149  ---|*         THE PORT STATUS.
Line S04289 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04729  M02S04289.ns2149  ---|*
Line S04290 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04730  M02S04290.ns2149  ---|*         ENTRY  (PN) = PORT NUMBER.
Line S04291 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04731  M02S04291.ns2149  ---|*
Line S04292 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04732  M02S04292.ns2149  ---|*         EXIT   PORT SELECTED.
Line S04293 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04733  M02S04293.ns2149  ---|*                (ST) = PORT STATUS.
Line S04294 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04734  M02S04294.ns2149  ---|*
Line S04295 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04735  M02S04295.ns2149  ---|*         CALLS  IFN, STS.
Line S04296 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04736  M02S04296.ns2149  ---|
Line S04297 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04737  M02S04297.ns2149  ---|
Line S04298 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04738  M02S04298.ns2149  ---| SEL      SUBR               ENTRY/EXIT
Line S04299 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04739  M02S04299.ns2149  ---|          LDD    PN          GET PORT NUMBER
Line S04300 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04740  M02S04300.ns2149  ---|          ADK    SELECT      SET *SELECT* FUNCTION
Line S04301 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04741  M02S04301.ns2149  ---|          RJM    IFN         ISSUE FUNCTION
Line S04302 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04742  M02S04302.ns2149  ---|          LDC    SETPOM+TPMODE  SET PORT OPERATING MODE
Line S04303 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04743  M02S04303.ns2149  ---|          RJM    IFN
Line S04304 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04744  M02S04304.ns2149  ---|          LDK    SETDTR      SET *DATA TERMINAL READY*
Line S04305 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04745  M02S04305.ns2149  ---|          RJM    IFN
Line S04306 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04746  M02S04306.ns2149  ---|          LDK    SETRQS      SET *REQUEST TO SEND*
Line S04307 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04747  M02S04307.ns2149  ---|          RJM    IFN
Line S04308 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04748  M02S04308.ns2149  ---|          RJM    STS         GET PORT STATUS
Line S04309 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04749  M02S04309.ns2149  ---|          UJN    SELX        RETURN
Line S04310 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04750  M02S04310.ns2149  ---| STS      SPACE  4,15
Line S04311 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04751  M02S04311.ns2149  ---|**        STS - RETURN MULTIPLEXER STATUS.
Line S04312 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04752  M02S04312.ns2149  ---|*
Line S04313 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04753  M02S04313.ns2149  ---|*         ISSUES FUNCTION TO REQUEST THE TPM PORT STATUS AND
Line S04314 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04754  M02S04314.ns2149  ---|*         INPUTS AND STORES THE STATUS RESPONSE FROM THE CHANNEL.
Line S04315 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04755  M02S04315.ns2149  ---|*
Line S04316 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04756  M02S04316.ns2149  ---|*         EXIT   (A)  = MULTIPLEXER PORT STATUS.
Line S04317 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04757  M02S04317.ns2149  ---|*                (ST) = MULTIPLEXER PORT STATUS.
Line S04318 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04758  M02S04318.ns2149  ---|*
Line S04319 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04759  M02S04319.ns2149  ---|*         ERROR  TO *ERR* IF NO RESPONSE -
Line S04320 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04760  M02S04320.ns2149  ---|*                  (A) = ADDRESS OF DAYFILE MESSAGE.
Line S04321 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04761  M02S04321.ns2149  ---|*
Line S04322 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04762  M02S04322.ns2149  ---|*         CALLS  IFN.
Line S04323 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04763  M02S04323.ns2149  ---|
Line S04324 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04764  M02S04324.ns2149  ---|
Line S04325 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04765  M02S04325.ns2149  ---| STS      SUBR               ENTRY/EXIT
Line S04326 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04766  M02S04326.ns2149  ---|          LDK    STATUS      SELECT *STATUS* FUNCTION
Line S04327 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04767  M02S04327.ns2149  ---|          RJM    IFN
Line S04328 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04768  M02S04328.ns2149  ---|          ACN    MC
Line S04329 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04769  M02S04329.ns2149  ---|          EJM    STS1,MC     IF NO RESPONSE ON CHANNEL
Line S04330 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04770  M02S04330.ns2149  ---|          IAN    MC          READ STATUS RESPONSE
Line S04331 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04771  M02S04331.ns2149  ---|          STD    ST          STORE PORT STATUS
Line S04332 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04772  M02S04332.ns2149  ---|          DCN    MC+40       DISCONNECT CHANNEL
Line S04333 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04773  M02S04333.ns2149  ---|          UJN    STSX        RETURN
Line S04334 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04774  M02S04334.ns2149  ---|
Line S04335 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04775  M02S04335.ns2149  ---| STS1     LDC    =C* 1TM - NO TPM RESPONSE.*
Line S04336 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04776  M02S04336.ns2149  ---|          UJP    ERR         PROCESS ERROR
Line S04337 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04777  M02S04337.ns2149  ---| SVM      SPACE  4,15
Line S04338 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04778  M02S04338.ns2149  ---|**        SVM - SERVICE MULTIPLEXER.
Line S04339 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04779  M02S04339.ns2149  ---|*
Line S04340 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04780  M02S04340.ns2149  ---|*         PERFORMS DATA OUTPUT AND INPUT OPERATIONS ON THE
Line S04341 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04781  M02S04341.ns2149  ---|*         TWO-PORT MULITPLEXER.
Line S04342 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04782  M02S04342.ns2149  ---|*
Line S04343 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04783  M02S04343.ns2149  ---|*         ENTRY  (DO) = OUTPUT DATA IF BIT 2**11 SET.
Line S04344 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04784  M02S04344.ns2149  ---|*
Line S04345 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04785  M02S04345.ns2149  ---|*         EXIT   (DO) = ZERO IF DATA SENT.
Line S04346 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04786  M02S04346.ns2149  ---|*                     = OUTPUT DATA IF OUTPUT BUFFER FULL.
Line S04347 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04787  M02S04347.ns2149  ---|*                (DI) = INPUT DATA.
Line S04348 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04788  M02S04348.ns2149  ---|*                     = ZERO IF NO INPUT DATA.
Line S04349 Modification History
M01 (Added by) 1tm
M02 (Updated by) ns2149
Seq #  *Modification Id* Act 
----------------------------+
04789  M02S04349.ns2149  ---|*
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/1tm.002.txt ยท Last modified: by 127.0.0.1