User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ds1

Deck DS1

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ds1     +++|          IDENT  DS1,DSM
00002  M01S00002.ds1     +++|          PERIPH
00003  M01S00003.ds1     +++|          BASE   MIXED
00004  M01S00004.ds1     +++|          SST    RDS
Line S00005 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns22000 ---|*COMMENT  6612/DD60 DISPLAY ALIGNMENT TEST.
00006  M01S00001.ns22000 +++|*COMMENT  DS1 - 6612/DD60 DISPLAY ALIGNMENT TEST.
Line S00002 Modification History
M01 (Added by) ns22000
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00002.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00006.ds1     +++|          TITLE  DS1 - 6612/DD60 DISPLAY ALIGNMENT TEST.
00010  M01S00007.ds1     +++|          SPACE  4
00011  M01S00008.ds1     +++|***       DS1 - 6612/DD60 DISPLAY ALIGNMENT TEST.
Line S00009 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00009.ns22000 ---|*         MACE VERSION - ADAPTED FROM SMM 2.2 VERSION.
Line S00010 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00013  M02S00010.ns22000 ---|*         E.W. HOBBS.  23 JAN 69.
00014  M01S00003.ns22000 +++|*         E. W. HOBBS.       69/01/23.
00015  M01S00011.ds1     +++|          SPACE  4
00016  M01S00004.ns22000 +++|**        COMMON DECKS.
00017  M01S00005.ns22000 +++|
00018  M01S00006.ns22000 +++|
00019  M01S00012.ds1     +++|*CALL     COMDMAC
00020  M01S00013.ds1     +++|*CALL     COMPMAC
00021  M01S00001.242l642 +++|*CALL     COMSCPS
00022  M01S00014.ds1     +++|          SPACE  4
Line S00015 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00015.ns22000 ---|****      DIRECT LOCATION ASSIGNMENTS -
00024  M01S00007.ns22000 +++|****      DIRECT LOCATION ASSIGNMENTS.
00025  M01S00016.ds1     +++|
00026  M01S00017.ds1     +++| NC       EQU    15          NUMBER OF CP-S (FOR *COMDSYS*)
00027  M01S00018.ds1     +++| XC       EQU    16          X - COORDINATE
00028  M01S00019.ds1     +++| YC       EQU    17          Y - COORDINATE
00029  M01S00020.ds1     +++|*         *** NOTE *** KX, KY, KB MUST BE KEPT IN SEQUENCE
00030  M01S00021.ds1     +++| KX       EQU    26          KEYBOARD BUFFER X-COORDINATE
00031  M01S00022.ds1     +++| KY       EQU    27          KEYBOARD BUFFER Y-COORDINATE
00032  M01S00023.ds1     +++| KB       EQU    30 - 34     KEYBOARD BUFFER (5 LOC)
00033  M01S00024.ds1     +++| KI       EQU    35          KEYBOARD INDEX
00034  M01S00025.ds1     +++| PA       EQU    36          PROGRAM ADDRESS
00035  M01S00026.ds1     +++| PI       EQU    37          PROGRAM INDEX
00036  M01S00027.ds1     +++| TS       EQU    40          TUBE SWITCH
00037  M01S00028.ds1     +++| TB1      EQU    41          TUBE 1 SELECTION
00038  M01S00029.ds1     +++| TB2      EQU    42          TUBE 2 SELECTION
00039  M01S00030.ds1     +++| PM       EQU    43          TEST SELECTION MNEMONIC
00040  M01S00031.ds1     +++| SZ       EQU    44          SIZE CODE
00041  M01S00032.ds1     +++| TB       EQU    45          TUBE SELECTION
00042  M01S00033.ds1     +++| CR       EQU    46          CHARACTER SELECTION
00043  M01S00034.ds1     +++| SIZ      EQU    47          SIZE SELECTION
00044  M01S00035.ds1     +++|
Line S00036 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00036.ns22000 ---| EQ       EQU    60          EQUIPMENT NUMBER
00046  M01S00008.ns22000 +++| EQ       EQU    60          EST ORDINAL
00047  M01S00037.ds1     +++| AF       EQU    61          *ALL TESTS* FLAG
00048  M01S00038.ds1     +++|
00049  M01S00039.ds1     +++|
Line S00040 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00040.ns22000 ---|**        ASSEMBLY CONSTANTS -
00051  M01S00009.ns22000 +++|**        ASSEMBLY CONSTANTS.
00052  M01S00041.ds1     +++|
00053  M01S00042.ds1     +++| NAME     MICRO  1,, DS1
00054  M01S00043.ds1     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00055  M01S00044.ds1     +++| DSCT     EQU    0           DISPLAY CYCLE (MS.)
00056  M01S00045.ds1     +++|
00057  M01S00046.ds1     +++|****
00058  M01S00047.ds1     +++| DSM      TITLE  DS1 - MAIN ROUTINE
00059  M01S00048.ds1     +++|          ORG    PPFW
00060  M01S00049.ds1     +++|
00061  M01S00050.ds1     +++|**        DSM - MAIN PROGRAM.
00062  M01S00051.ds1     +++|
00063  M01S00052.ds1     +++|
00064  M01S00053.ds1     +++| DSM      RJM    PRS         PRESET
00065  M01S00054.ds1     +++| DSM1     RJM    KBI         INPUT FROM KEYBOARD
00066  M01S00055.ds1     +++|          RJM    0,PA        DISPLAY
00067  M01S00056.ds1     +++|          LDD    TS          TOGGLE TUBE SWITCH
00068  M01S00057.ds1     +++|          LMN    1
00069  M01S00058.ds1     +++|          STD    TS
00070  M01S00059.ds1     +++|          RJM    0,PA
00071  M01S00060.ds1     +++|          RJM    PSS         PAUSE FOR SYSTEM
00072  M01S00061.ds1     +++|          UJN    DSM1        LOOP
00073  M01S00062.ds1     +++| KBI      TITLE    KEYBOARD INPUT ROUTINES.
00074  M01S00010.ns22000 +++|**        COMMON DECKS.
00075  M01S00063.ds1     +++|
00076  M01S00064.ds1     +++|
00077  M01S00065.ds1     +++|*CALL     COMPCHI
Line S00066 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00066.ns22000 ---|
Line S00067 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00067.ns22000 ---|
00080  M01S00011.ns22000 +++| KBI      SPACE  4,10
00081  M01S00068.ds1     +++|**        KBI - KEYBOARD INPUT AND INTERPRETATION.
Line S00069 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00069.ns22000 ---|*         USES   T1, KB, KI.
Line S00070 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00070.ns22000 ---|*         CALLS  EEB, HDC, DRP, HOL, TTC, ATR.
00084  M01S00012.ns22000 +++|*
00085  M01S00013.ns22000 +++|*         USES   KB, KI, T1.
00086  M01S00014.ns22000 +++|*
00087  M01S00015.ns22000 +++|*         CALLS  ATR, DRP, EEB, HDC, HOL, TTC.
00088  M01S00071.ds1     +++|
00089  M01S00072.ds1     +++|
00090  M01S00073.ds1     +++| KBI      SUBR               ENTRY/EXIT
00091  M01S00074.ds1     +++|          LDD    CP
00092  M01S00075.ds1     +++|          ADN    STSW
00093  M01S00076.ds1     +++|          CRD    CM
00094  M01S00077.ds1     +++|          LDD    CM+2
00095  M01S00078.ds1     +++|          LPN    1
00096  M01S00079.ds1     +++|          ZJN    KBI0.0      IF NO ROLLOUT FLAG
00097  M01S00080.ds1     +++|          LJM    DRP         DROP DISPLAY
00098  M01S00081.ds1     +++| KBI0.0   BSS    0
00099  M01S00082.ds1     +++|          FNC    7020,CH     SELECT KEYBOARD INPUT
00100  M01S00083.ds1     +++|          ACN    CH
00101  M01S00084.ds1     +++|          IAN    CH
00102  M01S00085.ds1     +++|          DCN    CH
00103  M01S00086.ds1     +++|          ZJN    KBI0.1      IF NO INPUT
00104  M01S00087.ds1     +++|          LMC    0
00105  M01S00088.ds1     +++| KBIA     EQU    *-1
00106  M01S00089.ds1     +++|          ZJN    KBIX        IF SAME INPUT
00107  M01S00090.ds1     +++|          LMM    KBIA        STORE NEW INPUT
00108  M01S00091.ds1     +++| KBI0.1   STM    KBIA
00109  M01S00092.ds1     +++|          ZJN    KBIX        RETURN IF NO INPUT
00110  M01S00093.ds1     +++|
00111  M01S00094.ds1     +++|          STD    T1          SAVE INPUT
00112  M01S00095.ds1     +++|          LMN    1R*
00113  M01S00096.ds1     +++|          NJN    KBI1        IF NOT +*+
00114  M01S00097.ds1     +++|          RJM    HDC         HOLD DISPLAY CHANNEL
00115  M01S00098.ds1     +++|          UJN    KBIX        RETURN
00116  M01S00099.ds1     +++|
00117  M01S00100.ds1     +++| KBI1     LMN    1R$&1R*
00118  M01S00101.ds1     +++|          NJN    KBI2        IF NOT *LEFT BLANK*
00119  M01S00102.ds1     +++|          RJM    EEB         ERASE ENTRY BUFFER
00120  M01S00103.ds1     +++|          LJM    KBIX        RETURN
00121  M01S00104.ds1     +++|
00122  M01S00105.ds1     +++| KBI2     LMN    1R &1R$
00123  M01S00106.ds1     +++|          NJN    KBI3        IF NOT *RIGHT BLANK*
00124  M01S00107.ds1     +++|          LJM    DRP         DROP DISPLAY
00125  M01S00108.ds1     +++|
00126  M01S00109.ds1     +++| KBI3     LMN    1R.&1R
00127  M01S00110.ds1     +++|          NJN    KBI4        IF NOT *.*
00128  M01S00111.ds1     +++|          RJM    DDS         DROP DISPLAY
00129  M01S00112.ds1     +++|          RJM    RDS         REQUEST DISPLAY
00130  M01S00113.ds1     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
00131  M01S00114.ds1     +++|          UJN    KBI6        RETURN
00132  M01S00115.ds1     +++|
00133  M01S00116.ds1     +++| KBI4     LMN    60&1R.
00134  M01S00117.ds1     +++|          NJN    KBI5        IF NOT *CR*
00135  M01S00118.ds1     +++|          RJM    TTC         TOGGLE BETWEEN TEST AND CONTROL
00136  M01S00119.ds1     +++|          UJN    KBI6        RETURN
00137  M01S00120.ds1     +++|
00138  M01S00121.ds1     +++| KBI5     LMN    61&60
00139  M01S00122.ds1     +++|          NJN    KBI7        IF NOT *BACKSPACE*
00140  M01S00123.ds1     +++|          LDD    KI
00141  M01S00124.ds1     +++|          ZJN    KBI6        RETURN IF FIRST ENTRY
00142  M01S00125.ds1     +++|          SOD    KI          DECREMENT KEYBOARD INDEX
00143  M01S00126.ds1     +++|          LDN    0           CLEAR PREVIOUS ENTRY
00144  M01S00127.ds1     +++|          STM    KB,KI
00145  M01S00128.ds1     +++| KBI6     LJM    KBIX        RETURN
00146  M01S00129.ds1     +++|
00147  M01S00130.ds1     +++| KBI7     LMN    62&61
00148  M01S00131.ds1     +++|          NJN    KBI8        IF NOT *SPACE*
00149  M01S00132.ds1     +++|          RJM    ATR         ADVANCE TEST ROUTINE
00150  M01S00133.ds1     +++|          UJN    KBI6        RETURN
00151  M01S00134.ds1     +++|
00152  M01S00135.ds1     +++| KBI8     LDD    KI          CHECK BUFFER INDEX
00153  M01S00136.ds1     +++|          LMN    4
00154  M01S00137.ds1     +++|          ZJN    KBI6        RETURN IF BUFFER FULL
00155  M01S00138.ds1     +++|          LDD    T1          STORE CHARACTER
00156  M01S00139.ds1     +++|          STM    KB,KI
00157  M01S00140.ds1     +++|          AOD    KI          ADVANCE INDEX
00158  M01S00141.ds1     +++|          UJN    KBI6        RETURN
00159  M01S00142.ds1     +++| EEB      SPACE  4
00160  M01S00143.ds1     +++|**        EEB - ERASE ENTRY BUFFER.
00161  M01S00016.ns22000 +++|*
00162  M01S00144.ds1     +++|*         USES   KB, KI.
00163  M01S00145.ds1     +++|
00164  M01S00146.ds1     +++|
00165  M01S00147.ds1     +++| EEB      SUBR               ENTRY/EXIT
00166  M01S00148.ds1     +++| EEB1     LDN    0           CLEAR ENTRY
00167  M01S00149.ds1     +++|          STM    KB,KI
00168  M01S00150.ds1     +++|          SOD    KI          DECREMENT INDEX
00169  M01S00151.ds1     +++|          PJN    EEB1        LOOP
00170  M01S00152.ds1     +++|          LDN    0
00171  M01S00153.ds1     +++|          STD    KB
00172  M01S00154.ds1     +++|          STD    KI          RESET INDEX TO 0
00173  M01S00155.ds1     +++|          UJN    EEBX        RETURN
00174  M01S00156.ds1     +++| CTL      TITLE    CONTROL ROUTINES
00175  M01S00157.ds1     +++|**        CTL - CONTROL ROUTINE.
Line S00158 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00158.ns22000 ---|*         USES   T3, T4, T5
00177  M01S00017.ns22000 +++|*
00178  M01S00018.ns22000 +++|*         USES   T3, T4, T5.
00179  M01S00019.ns22000 +++|*
00180  M01S00159.ds1     +++|*         CALLS  C6D, EEB.
00181  M01S00160.ds1     +++|
00182  M01S00161.ds1     +++|
00183  M01S00162.ds1     +++| CTL      SUBR               ENTRY/EXIT
00184  M01S00163.ds1     +++|          RJM    DSS         DISPLAY SYSTEM STATUS
00185  M01S00164.ds1     +++|          FNC    7000,CH     SELECT LEFT SCREEN, 64 CHARACTERS/LINE
00186  M01S00165.ds1     +++|          ACN    CH
00187  M01S00166.ds1     +++|          LDC    CTLAL       DISPLAY LEFT SCREEN INSTRUCTIONS
00188  M01S00167.ds1     +++|          OAM    CTLA,CH
00189  M01S00168.ds1     +++|          DCN    CH
00190  M01S00169.ds1     +++|          LDN    10          DELAY
00191  M01S00170.ds1     +++|          SBN    1
00192  M01S00171.ds1     +++|          NJN    *-1
00193  M01S00172.ds1     +++|          FNC    7001,CH     SELECT LEFT SCREEN, 32 CHARACTERS/LINE
00194  M01S00173.ds1     +++|          ACN    CH
00195  M01S00174.ds1     +++|          LDN    CTLBL       DISPLAY LEFT SCREEN HEADERS
00196  M01S00175.ds1     +++|          OAM    CTLB,CH
00197  M01S00176.ds1     +++|          DCN    CH
00198  M01S00177.ds1     +++|          LDN    10          DELAY
00199  M01S00178.ds1     +++|          SBN    1
00200  M01S00179.ds1     +++|          NJN    *-1
00201  M01S00180.ds1     +++|          FNC    7100,CH     SELECT RIGHT SCREEN, 64 CHARACTERS/LINE
00202  M01S00181.ds1     +++|          ACN    CH
00203  M01S00182.ds1     +++|          LDN    CTLCL       DISPLAY RIGHT SCREEN HEADER
00204  M01S00183.ds1     +++|          OAM    CTLC,CH
00205  M01S00184.ds1     +++|          DCN    CH
00206  M01S00185.ds1     +++|          LDN    10          DELAY
00207  M01S00186.ds1     +++|          SBN    1
00208  M01S00187.ds1     +++|          NJN    *-1
00209  M01S00188.ds1     +++|          FNC    7101,CH     SELECT RIGHT SCREEN, 32 CHARACTERS/LINE
00210  M01S00189.ds1     +++|          ACN    CH
00211  M01S00190.ds1     +++|          LDN    CTLDL       DISPLAY RIGHT SCREEN INSTRUCTIONS
00212  M01S00191.ds1     +++|          OAM    CTLD,CH
00213  M01S00192.ds1     +++|          DCN    CH
00214  M01S00193.ds1     +++|          LDN    10          DELAY
00215  M01S00194.ds1     +++|          SBN    1
00216  M01S00195.ds1     +++|          NJN    *-1
00217  M01S00196.ds1     +++|          FNC    7102,CH     SELECT RIGHT SCREEN, 16 CHARACTERS/LINE
00218  M01S00197.ds1     +++|          ACN    CH
00219  M01S00198.ds1     +++|          LDN    6           DISPLAY KEYBOARD BUFFER
00220  M01S00199.ds1     +++|          OAM    KX,CH
00221  M01S00200.ds1     +++|          DCN    CH
00222  M01S00201.ds1     +++|          LJM    CTLX        RETURN
00223  M01S00202.ds1     +++|
00224  M01S00203.ds1     +++| CTLA     BSS    0
00225  M01S00204.ds1     +++|          DATA   6000
00226  M01S00205.ds1     +++|          DATA   7660
00227  M01S00206.ds1     +++|          DATA   H*TEST - SELECT FROM LIBRARY LIST.*
00228  M01S00207.ds1     +++|          DATA   6000
00229  M01S00208.ds1     +++|          DATA   7640
00230  M01S00209.ds1     +++|          DATA   H*TUBE - L = LEFT*
00231  M01S00210.ds1     +++|          DATA   6070
00232  M01S00211.ds1     +++|          DATA   7630
00233  M01S00212.ds1     +++|          DATA   H*R = RIGHT*
00234  M01S00213.ds1     +++|          DATA   6070
00235  M01S00214.ds1     +++|          DATA   7620
00236  M01S00215.ds1     +++|          DATA   H*B = BOTH*
00237  M01S00216.ds1     +++|          DATA   6000
00238  M01S00217.ds1     +++|          DATA   7600
00239  M01S00218.ds1     +++|          DATA   H*CHAR - CHARACTER DESIRED FOR DISPLAY*
00240  M01S00219.ds1     +++|          DATA   6000
00241  M01S00220.ds1     +++|          DATA   7560
00242  M01S00221.ds1     +++|          DATA   H*SIZE - S = 64 CHARACTERS/LINE*
00243  M01S00222.ds1     +++|          DATA   6070
00244  M01S00223.ds1     +++|          DATA   7544
00245  M01S00224.ds1     +++|          DATA   H*M = 32 CHARACTERS/LINE*
00246  M01S00225.ds1     +++|          DATA   6070
00247  M01S00226.ds1     +++|          DATA   7530
00248  M01S00227.ds1     +++|          DATA   H*L = 16 CHARACTERS/LINE*
00249  M01S00228.ds1     +++|          DATA   6000
00250  M01S00229.ds1     +++|          DATA   7410
00251  M01S00230.ds1     +++|          DATA   H*A = FULL ALPHABET. SELECT TUBE, SIZE.*
00252  M01S00231.ds1     +++|          DATA   6000
00253  M01S00232.ds1     +++|          DATA   7374
00254  M01S00233.ds1     +++|          DATA   H*C = FULL SCREEN, ONE CHARACTER. SELECT TUBE, SIZE.*
00255  M01S00234.ds1     +++|          DATA   6000
00256  M01S00235.ds1     +++|          DATA   7360
00257  M01S00236.ds1     +++|          DATA   H*D = 32 X 32 DOT RASTER. SELECT TUBE.*
00258  M01S00237.ds1     +++|          DATA   6000
00259  M01S00238.ds1     +++|          DATA   7344
00260  M01S00239.ds1     +++|          DATA   H*I = 15 CHARACTERS EACH SIZE. SELECT TUBE.*
00261  M01S00240.ds1     +++|          DATA   6000
00262  M01S00241.ds1     +++|          DATA   7330
00263  M01S00242.ds1     +++|          DATA   H*L = DISPLAY ALL TESTS. SELECT TUBE, CHAR, SIZE.*
00264  M01S00243.ds1     +++|          DATA   6000
00265  M01S00244.ds1     +++|          DATA   7314
00266  M01S00245.ds1     +++|          DATA   H*S = SINGLE CHARACTER, CENTERED. SELECT TUBE, CHAR, *
00267  M01S00246.ds1     +++|          DATA   H*SIZE.*
00268  M01S00247.ds1     +++|          DATA   6000
00269  M01S00248.ds1     +++|          DATA   7300
00270  M01S00249.ds1     +++|          DATA   H*X = CROSSED DIAGONAL LINES. SELECT TUBE.*
00271  M01S00250.ds1     +++|          DATA   6000
00272  M01S00251.ds1     +++|          DATA   7264
00273  M01S00252.ds1     +++|          DATA   H*Z = DOT/CHAR CENTERING COMPARISON. SELECT TUBE, SIZE*
00274  M01S00253.ds1     +++|          DATA   6000
00275  M01S00254.ds1     +++|          DATA   7154
00276  M01S00255.ds1     +++|          DATA   H*CR - TOGGLE BETWEEN CONTROL AND TEST.*
00277  M01S00256.ds1     +++|          DATA   6000
00278  M01S00257.ds1     +++|          DATA   7140
00279  M01S00258.ds1     +++|          DATA   H*BKSP - CORRECT TYPING ERROR.*
00280  M01S00259.ds1     +++|          DATA   6000
00281  M01S00260.ds1     +++|          DATA   7124
00282  M01S00261.ds1     +++|          DATA   H*LEFT BLANK - ERASE ALL TYPED ENTRIES.*
00283  M01S00262.ds1     +++|          DATA   6000
00284  M01S00263.ds1     +++|          DATA   7110
00285  M01S00264.ds1     +++|          DATA   H*RIGHT BLANK - DROP PROGRAM.*
00286  M01S00265.ds1     +++|          DATA   6000
00287  M01S00266.ds1     +++|          DATA   7060
00288  M01S00267.ds1     +++|          DATA   H+* - HOLD DISPLAY CHANNEL.+
00289  M01S00268.ds1     +++|          DATA   6000
00290  M01S00269.ds1     +++|          DATA   7044
00291  M01S00270.ds1     +++|          DATA   H*. - DROP DISPLAY AND WAIT FOR REASSIGNMENT.*
00292  M01S00271.ds1     +++|          DATA   6000
00293  M01S00272.ds1     +++|          DATA   7030
00294  M01S00273.ds1     +++|          DATA   H*SPACE BAR - L TEST, STEP TO NEXT TEST.*
00295  M01S00274.ds1     +++|          DATA   6140
00296  M01S00275.ds1     +++|          DATA   7014
00297  M01S00276.ds1     +++|          DATA   H*ALL OTHERS, TOGGLE BETWEEN CONTROL AND TEST.*
00298  M01S00277.ds1     +++| CTLAL    EQU    *-CTLA
00299  M01S00278.ds1     +++|
00300  M01S00279.ds1     +++| CTLB     BSS    0
00301  M01S00280.ds1     +++|          DATA   6100
00302  M01S00281.ds1     +++|          DATA   7720
00303  M01S00282.ds1     +++|          DATA   H*TEST CODE DEFINITIONS*
00304  M01S00283.ds1     +++|          DATA   6200
00305  M01S00284.ds1     +++|          DATA   7450
00306  M01S00285.ds1     +++|          DATA   H*LIBRARY DEFINITIONS*
00307  M01S00286.ds1     +++|          DATA   6240
00308  M01S00287.ds1     +++|          DATA   7204
00309  M01S00288.ds1     +++|          DATA   H*CONTROL*
00310  M01S00289.ds1     +++| CTLBL    EQU    *-CTLB
00311  M01S00290.ds1     +++|
00312  M01S00291.ds1     +++| CTLC     BSS    0
00313  M01S00292.ds1     +++|          DATA   6220
00314  M01S00293.ds1     +++|          DATA   7400
00315  M01S00294.ds1     +++|          DATA   H*TEST    TUBE    CHAR    SIZE*
00316  M01S00295.ds1     +++| CTLCL    EQU    *-CTLC
00317  M01S00296.ds1     +++|
00318  M01S00297.ds1     +++| CTLD     BSS    0
00319  M01S00298.ds1     +++|          DATA   6100
00320  M01S00299.ds1     +++|          DATA   7600
00321  M01S00300.ds1     +++|          DATA   H*DISPLAY ALIGNMENT ROUTINES*
00322  M01S00301.ds1     +++|          DATA   6100
00323  M01S00302.ds1     +++|          DATA   7200
00324  M01S00303.ds1     +++|          DATA   H*SELECT FROM LIBRARY LIST*
00325  M01S00304.ds1     +++|          DATA   6120
00326  M01S00305.ds1     +++|          DATA   7100
00327  M01S00306.ds1     +++|          DATA   H*(A,C,D,I,L,S,X, OR Z)*
00328  M01S00307.ds1     +++| CTLDL    EQU    *-CTLD
00329  M01S00308.ds1     +++| TRA      TITLE    TEST ROUTINES
00330  M01S00309.ds1     +++|**        TRA - TEST ROUTINE *A*.
00331  M01S00310.ds1     +++|*         FULL ALPHABET.
Line S00311 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00311.ns22000 ---|*         CALLS  TCR, FCN.
00333  M01S00020.ns22000 +++|*
00334  M01S00021.ns22000 +++|*         CALLS  FCN, TCR.
00335  M01S00312.ds1     +++|
00336  M01S00313.ds1     +++|
00337  M01S00314.ds1     +++| TRA      SUBR               ENTRY/EXIT
00338  M01S00315.ds1     +++|          RJM    TCR         SELECT TUBE, CHARACTER, SIZE
00339  M01S00316.ds1     +++|          RJM    FCN         FUNCTION CONSOLE
00340  M01S00317.ds1     +++|          ACN    CH
00341  M01S00318.ds1     +++|          LDD    SZ
00342  M01S00319.ds1     +++|          NJN    TRA1        IF NOT *SMALL*
00343  M01S00320.ds1     +++|          LDN    TRAAL
00344  M01S00321.ds1     +++|          OAM    TRAA,CH
00345  M01S00322.ds1     +++|          UJN    TRA3
00346  M01S00323.ds1     +++| TRA1     SBN    1
00347  M01S00324.ds1     +++|          NJN    TRA2        IF NOT *MEDIUM*
00348  M01S00325.ds1     +++|          LDN    TRABL
00349  M01S00326.ds1     +++|          OAM    TRAB,CH
00350  M01S00327.ds1     +++|          UJN    TRA3
00351  M01S00328.ds1     +++| TRA2     LDN    TRACL
00352  M01S00329.ds1     +++|          OAM    TRAC,CH
00353  M01S00330.ds1     +++| TRA3     BSS    0
00354  M01S00331.ds1     +++|          DCN    CH
00355  M01S00332.ds1     +++|          UJN    TRAX        RETURN
00356  M01S00333.ds1     +++|
00357  M01S00334.ds1     +++| TRAA     BSS    0
00358  M01S00335.ds1     +++|          DATA   6000
00359  M01S00336.ds1     +++|          DATA   7400
00360  M01S00337.ds1     +++|          DATA   H$ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()=,.$
00361  M01S00338.ds1     +++| TRAAL    EQU    *-TRAA
00362  M01S00339.ds1     +++|
00363  M01S00340.ds1     +++| TRAB     BSS    0
00364  M01S00341.ds1     +++|          DATA   6000
00365  M01S00342.ds1     +++|          DATA   7420
00366  M01S00343.ds1     +++|          DATA   H$ABCDEFGHIJKLMNOPQRSTUVWXYZ$
00367  M01S00344.ds1     +++|          DATA   6000
00368  M01S00345.ds1     +++|          DATA   7360
00369  M01S00346.ds1     +++|          DATA   H$A0123456789+-*/()=,.A$
00370  M01S00347.ds1     +++| TRABL    EQU    *-TRAB
00371  M01S00348.ds1     +++|
00372  M01S00349.ds1     +++| TRAC     BSS    0
00373  M01S00350.ds1     +++|          DATA   6000
00374  M01S00351.ds1     +++|          DATA   7500
00375  M01S00352.ds1     +++|          DATA   H$ABCDEFGHIJKLMNO$
00376  M01S00353.ds1     +++|          DATA   6000
00377  M01S00354.ds1     +++|          DATA   7400
00378  M01S00355.ds1     +++|          DATA   H$PQRSTUVWXYZ01234$
00379  M01S00356.ds1     +++|          DATA   6000
00380  M01S00357.ds1     +++|          DATA   7300
00381  M01S00358.ds1     +++|          DATA   H$A56789+-*/()=,.A$
00382  M01S00359.ds1     +++| TRACL    EQU    *-TRAC
00383  M01S00360.ds1     +++| TRC      SPACE  4
00384  M01S00361.ds1     +++|**        TRC - TEST ROUTINE *C*.
00385  M01S00362.ds1     +++|*         FULL SCREEN, ONE CHARACTER.
Line S00363 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00363.ns22000 ---|*         USES   T4 - T7, SZ
Line S00364 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00364.ns22000 ---|*         CALLS  TCR, FCN.
00388  M01S00022.ns22000 +++|*
00389  M01S00023.ns22000 +++|*         USES   SZ, T4 - T7.
00390  M01S00024.ns22000 +++|*
00391  M01S00025.ns22000 +++|*         CALLS  FCN, TCR.
00392  M01S00365.ds1     +++|
00393  M01S00366.ds1     +++|
00394  M01S00367.ds1     +++| TRC      SUBR               ENTRY/EXIT
00395  M01S00368.ds1     +++|          RJM    TCR         SELECT TUBE, CHARACTER, SIZE.
00396  M01S00369.ds1     +++|          LDD    CR
00397  M01S00370.ds1     +++|          LPN    77
00398  M01S00371.ds1     +++|          STD    CR
00399  M01S00372.ds1     +++|          SHN    6
00400  M01S00373.ds1     +++|          RAD    CR
00401  M01S00374.ds1     +++|          RJM    FCN         FUNCTION CONSOLE
00402  M01S00375.ds1     +++|          ACN    CH
00403  M01S00376.ds1     +++|          LDM    TRCA,SZ     SET LINE ADVANCE
00404  M01S00377.ds1     +++|          STD    T6
00405  M01S00378.ds1     +++|          LDC    6000        SET X-COORDINATE
00406  M01S00379.ds1     +++|          STD    T5
00407  M01S00380.ds1     +++|          LDC    7000        SET INITIAL Y-COORDINATE
00408  M01S00381.ds1     +++|          STD    T4
00409  M01S00382.ds1     +++| TRC1     LDM    TRCB,SZ     SET BYTES/LINE
00410  M01S00383.ds1     +++|          STD    T7
00411  M01S00384.ds1     +++|          LDN    2           OUTPUT COORDINATES
00412  M01S00385.ds1     +++|          OAM    T4,CH
00413  M01S00386.ds1     +++| TRC2     LDD    CR          DISPLAY 2 CHARACTERS
00414  M01S00387.ds1     +++|          OAN    CH
00415  M01S00388.ds1     +++|          SOD    T7          DECREMENT BYTE COUNT
00416  M01S00389.ds1     +++|          NJN    TRC2        LOOP TO END OF LINE
00417  M01S00390.ds1     +++|          LDD    T6          ADVANCE Y-COORDINATE
00418  M01S00391.ds1     +++|          RAD    T4
00419  M01S00392.ds1     +++|          LDD    T4
00420  M01S00393.ds1     +++|          NJN    TRC1        LOOP TO TOP OF SCREEN
00421  M01S00394.ds1     +++|          DCN    CH
00422  M01S00395.ds1     +++|          LJM    TRCX        RETURN
00423  M01S00396.ds1     +++|
00424  M01S00397.ds1     +++| TRCA     BSS    0
00425  M01S00398.ds1     +++|          DATA   10
00426  M01S00399.ds1     +++|          DATA   20
00427  M01S00400.ds1     +++| TRCB     BSS    0
00428  M01S00401.ds1     +++|          DATA   40
00429  M01S00402.ds1     +++|          DATA   20
00430  M01S00403.ds1     +++|          DATA   10
00431  M01S00404.ds1     +++| TRD      SPACE  4
00432  M01S00405.ds1     +++|**        TRD - TEST ROUTINE *D*.
00433  M01S00406.ds1     +++|*         32 X 32 DOT RASTER.
00434  M01S00026.ns22000 +++|*
00435  M01S00407.ds1     +++|*         USES   T4, T5.
Line S00408 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00408.ns22000 ---|*         CALLS  TCR, FCN.
00437  M01S00027.ns22000 +++|*
00438  M01S00028.ns22000 +++|*         CALLS  FCN, TCR.
00439  M01S00409.ds1     +++|
00440  M01S00410.ds1     +++|
00441  M01S00411.ds1     +++| TRD      SUBR               ENTRY/EXIT
00442  M01S00412.ds1     +++|          RJM    TCR         SELECT TUBE
00443  M01S00413.ds1     +++|          RJM    FCN         FUNCTION CONSOLE
00444  M01S00414.ds1     +++|          LDD    TS          CHECK TUBE SWITCH
00445  M01S00415.ds1     +++|          ZJN    TRD1        IF NOT TUBE 1
00446  M01S00416.ds1     +++|          LDD    TB1         SET TUBE 1
00447  M01S00417.ds1     +++|          UJN    TRD2
00448  M01S00418.ds1     +++| TRD1     LDD    TB2         SET TUBE 2
00449  M01S00419.ds1     +++| TRD2     ADC    7010        FUNCTION DOT MODE
00450  M01S00420.ds1     +++|          FAN    CH
00451  M01S00421.ds1     +++|          LDC    7000        SET Y - COORDINATE
00452  M01S00422.ds1     +++|          STD    T4
00453  M01S00423.ds1     +++|          ACN    CH
00454  M01S00424.ds1     +++| TRD3     LDC    6000        SET X-COORDINATE
00455  M01S00425.ds1     +++|          STD    T5
00456  M01S00426.ds1     +++| TRD4     LDN    2           OUTPUT COORDINATES
00457  M01S00427.ds1     +++|          OAM    T4,CH
00458  M01S00428.ds1     +++|          LDN    20          ADVANCE X-COORDINATE
00459  M01S00429.ds1     +++|          RAD    T5
00460  M01S00430.ds1     +++|          LMC    7000
00461  M01S00431.ds1     +++|          NJN    TRD4        LOOP TO END OF LINE
00462  M01S00432.ds1     +++|          LDN    20          ADVANCE Y-COORDINATE
00463  M01S00433.ds1     +++|          RAD    T4
00464  M01S00434.ds1     +++|          LDD    T4
00465  M01S00435.ds1     +++|          NJN    TRD3        IF NOT BOTTOM OF SCREEN
00466  M01S00436.ds1     +++|          DCN    CH
00467  M01S00437.ds1     +++|          LJM    TRDX        RETURN
00468  M01S00438.ds1     +++| TRI      SPACE  4
00469  M01S00439.ds1     +++|**        TRI - TEST ROUTINE *I*.
00470  M01S00440.ds1     +++|*         15 CHARACTERS EACH SIZE.
00471  M01S00029.ns22000 +++|*
00472  M01S00441.ds1     +++|*         USES   SZ.
Line S00442 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00442.ns22000 ---|*         CALLS  TCR, FCN.
00474  M01S00030.ns22000 +++|*
00475  M01S00031.ns22000 +++|*         CALLS  FCN, TCR.
00476  M01S00443.ds1     +++|
00477  M01S00444.ds1     +++|
00478  M01S00445.ds1     +++| TRI      SUBR               ENTRY/EXIT
00479  M01S00446.ds1     +++|          RJM    TCR         SELECT TUBE
00480  M01S00447.ds1     +++|          LDC    7200        INITIALIZE Y-COORDINATE
00481  M01S00448.ds1     +++|          STM    TRIA+1
00482  M01S00449.ds1     +++|          LDN    0           SET *SMALL* SIZE
00483  M01S00450.ds1     +++|          STD    SZ
00484  M01S00451.ds1     +++| TRI1     RJM    FCN         FUNCTION CONSOLE
00485  M01S00452.ds1     +++|          ACN    CH
00486  M01S00453.ds1     +++|          LDN    TRIAL       DISPLAY LINE
00487  M01S00454.ds1     +++|          OAM    TRIA,CH
00488  M01S00455.ds1     +++|          DCN    CH
00489  M01S00456.ds1     +++|          LDC    200         ADVANCE Y-COORDINATE
00490  M01S00457.ds1     +++|          RAM    TRIA+1
00491  M01S00458.ds1     +++|          AOD    SZ          ADVANCE SIZE
00492  M01S00459.ds1     +++|          LMN    3
00493  M01S00460.ds1     +++|          NJN    TRI1        IF NOT FINISHED
00494  M01S00461.ds1     +++|          UJN    TRIX        RETURN
00495  M01S00462.ds1     +++|
00496  M01S00463.ds1     +++| TRIA     BSS    0
00497  M01S00464.ds1     +++|          DATA   6000
00498  M01S00465.ds1     +++|          DATA   7200
00499  M01S00466.ds1     +++|          DATA   H*INTENSITY ADJUST*
00500  M01S00467.ds1     +++| TRIAL    EQU    *-TRIA
00501  M01S00468.ds1     +++| TRS      SPACE  4
00502  M01S00469.ds1     +++|**        TRS - TEST ROUTINE *S*.
00503  M01S00470.ds1     +++|*         SINGLE CHARACTER, CENTERED.
Line S00471 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00471.ns22000 ---|*         CALLS  TCR, FCN.
00505  M01S00032.ns22000 +++|*
00506  M01S00033.ns22000 +++|*         CALLS  FCN, TCR.
00507  M01S00472.ds1     +++|
00508  M01S00473.ds1     +++|
00509  M01S00474.ds1     +++| TRS      SUBR               ENTRY/EXIT
00510  M01S00475.ds1     +++|          RJM    TCR         SELECT TUBE, CHARACTER, SIZE
00511  M01S00476.ds1     +++|          RJM    FCN         FUNCTION CONSOLE
00512  M01S00477.ds1     +++|          LDD    CR
00513  M01S00478.ds1     +++|          NJN    TRS1
00514  M01S00479.ds1     +++|          LDN    1R*
00515  M01S00480.ds1     +++| TRS1     SHN    6
00516  M01S00481.ds1     +++|          STM    TRSA+2
00517  M01S00482.ds1     +++|          LDN    TRSAL       DISPLAY CHARACTER
00518  M01S00483.ds1     +++|          ACN    CH
00519  M01S00484.ds1     +++|          OAM    TRSA,CH
00520  M01S00485.ds1     +++|          DCN    CH
00521  M01S00486.ds1     +++|          UJN    TRSX        RETURN
00522  M01S00487.ds1     +++|
00523  M01S00488.ds1     +++| TRSA     BSS    0
00524  M01S00489.ds1     +++|          DATA   6400
00525  M01S00490.ds1     +++|          DATA   7400
00526  M01S00491.ds1     +++|          DATA   1L*
00527  M01S00492.ds1     +++| TRSAL    EQU    *-TRSA
00528  M01S00493.ds1     +++| TRX      SPACE  4
00529  M01S00494.ds1     +++|**        TRX - TEST ROUTINE *X*.
00530  M01S00495.ds1     +++|*         CROSSED DIAGONAL LINES.
Line S00496 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00496.ns22000 ---|*         USES   T4,T5.
Line S00497 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00497.ns22000 ---|*         CALLS  TCR, FCN.
00533  M01S00034.ns22000 +++|*
00534  M01S00035.ns22000 +++|*         USES   T4, T5.
00535  M01S00036.ns22000 +++|*
00536  M01S00037.ns22000 +++|*         CALLS  FCN, TCR.
00537  M01S00498.ds1     +++|
00538  M01S00499.ds1     +++|
00539  M01S00500.ds1     +++| TRX      SUBR               ENTRY/EXIT
00540  M01S00501.ds1     +++|          RJM    TCR         SELECT TUBE
00541  M01S00502.ds1     +++|          RJM    FCN         FUNCTION CONSOLE
00542  M01S00503.ds1     +++|          LDD    TS          CHECK TUBE SWITCH
00543  M01S00504.ds1     +++|          ZJN    TRX1        IF NOT TUBE 1
00544  M01S00505.ds1     +++|          LDD    TB1         SET TUBE 1
00545  M01S00506.ds1     +++|          UJN    TRX2
00546  M01S00507.ds1     +++| TRX1     LDD    TB2         SET TUBE 2
00547  M01S00508.ds1     +++| TRX2     ADC    7010        FUNCTION DOT MODE
00548  M01S00509.ds1     +++|          FAN    CH
00549  M01S00510.ds1     +++|          LDC    7000        BOTTOM LEFT TO TOP RIGHT
00550  M01S00511.ds1     +++|          STD    T5
00551  M01S00512.ds1     +++|          LDC    6000
00552  M01S00513.ds1     +++|          STD    T4
00553  M01S00514.ds1     +++|          ACN    CH
00554  M01S00515.ds1     +++| TRX3     LDN    2           OUTPUT COORDINATES
00555  M01S00516.ds1     +++|          OAM    T4,CH
00556  M01S00517.ds1     +++|          AOD    T4
00557  M01S00518.ds1     +++|          AOD    T5
00558  M01S00519.ds1     +++|          LDD    T5
00559  M01S00520.ds1     +++|          NJN    TRX3        LOOP
00560  M01S00521.ds1     +++|          LCN    0           TOP LEFT TO BOTTOM RIGHT
00561  M01S00522.ds1     +++|          STD    T5
00562  M01S00523.ds1     +++|          LDC    6000
00563  M01S00524.ds1     +++|          STD    T4
00564  M01S00525.ds1     +++| TRX4     LDN    2           OUTPUT COORDINATES
00565  M01S00526.ds1     +++|          OAM    T4,CH
00566  M01S00527.ds1     +++|          AOD    T4
00567  M01S00528.ds1     +++|          SOD    T5
00568  M01S00529.ds1     +++|          LMC    6777
00569  M01S00530.ds1     +++|          NJN    TRX4        LOOP
00570  M01S00531.ds1     +++|          DCN    CH
00571  M01S00532.ds1     +++|          LJM    TRXX        RETURN
00572  M01S00533.ds1     +++| TRZ      SPACE  4
00573  M01S00534.ds1     +++|**        TRZ - TEST ROUTINE *Z*.
00574  M01S00535.ds1     +++|*         DOT/CHARACTER MODE POSITIONING COMPARISON.
00575  M01S00038.ns22000 +++|*
00576  M01S00536.ds1     +++|*         USES   T4 - T7.
Line S00537 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00537.ns22000 ---|*         CALLS  TCR, FCN
00578  M01S00039.ns22000 +++|*
00579  M01S00040.ns22000 +++|*         CALLS  FCN, TCR.
00580  M01S00538.ds1     +++|
00581  M01S00539.ds1     +++|
00582  M01S00540.ds1     +++| TRZ      SUBR               ENTRY/EXIT
00583  M01S00541.ds1     +++|          RJM    TCR         SELECT TUBE
00584  M01S00542.ds1     +++|          RJM    FCN         FUNCTION CONSOLE
00585  M01S00543.ds1     +++|          LDD    TS          CHECK TUBE SWITCH
00586  M01S00544.ds1     +++|          ZJN    TRZ1        IF NOT TUBE 1
00587  M01S00545.ds1     +++|          LDD    TB1         SET TUBE 1
00588  M01S00546.ds1     +++|          UJN    TRZ2
00589  M01S00547.ds1     +++| TRZ1     LDD    TB2         SET TUBE 2
00590  M01S00548.ds1     +++| TRZ2     ADC    7000        SET CHARACTER MODE FUNCTION
00591  M01S00549.ds1     +++|          STM    TRZA
00592  M01S00550.ds1     +++|          ADN    7010-7000   SELECT DOT MODE
00593  M01S00551.ds1     +++|          FAN    CH
00594  M01S00552.ds1     +++|          ACN    CH
00595  M01S00553.ds1     +++|
Line S00554 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00554.ns22000 ---|*         DISPLAY CROSS
00597  M01S00041.ns22000 +++|*         DISPLAY CROSS.
00598  M01S00555.ds1     +++|
00599  M01S00556.ds1     +++|          LDC    6540        SET HORIZONTAL LINE X-COORDINATES
00600  M01S00557.ds1     +++|          STD    T4
00601  M01S00558.ds1     +++|          LDC    6240
00602  M01S00559.ds1     +++|          STD    T6
00603  M01S00560.ds1     +++|          LDC    7400        SET Y-COORDINATE
00604  M01S00561.ds1     +++|          STD    T5
00605  M01S00562.ds1     +++| TRZ3     LDN    2           DISPLAY DOT
00606  M01S00563.ds1     +++|          OAM    T4,CH
00607  M01S00564.ds1     +++|          SOD    T4          DECREMENT X-COORDINATE
00608  M01S00565.ds1     +++|          LMD    T6
00609  M01S00566.ds1     +++|          NJN    TRZ3        LOOP TO END OF LINE
00610  M01S00567.ds1     +++|          LDC    7240        SET VERTICAL LINE Y-COORDINATES
00611  M01S00568.ds1     +++|          STD    T6
00612  M01S00569.ds1     +++|          LDC    7540
00613  M01S00570.ds1     +++|          STD    T5
00614  M01S00571.ds1     +++|          LDC    6400        SET X-COORDINATE
00615  M01S00572.ds1     +++|          STD    T4
00616  M01S00573.ds1     +++| TRZ4     LDN    2           DISPLAY DOT
00617  M01S00574.ds1     +++|          OAM    T4,CH
00618  M01S00575.ds1     +++|          SOD    T5          DECREMENT Y-COORDINATE
00619  M01S00576.ds1     +++|          LMD    T6
00620  M01S00577.ds1     +++|          NJN    TRZ4        LOOP TO END OF LINE
00621  M01S00578.ds1     +++|          DCN    CH
00622  M01S00579.ds1     +++|
Line S00580 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00580.ns22000 ---|*         DISPLAY *X* AND *O*
00624  M01S00042.ns22000 +++|*         DISPLAY *X* AND *O*.
00625  M01S00581.ds1     +++|
00626  M01S00582.ds1     +++|          LDC    7000        SELECT CHARACTER MODE
00627  M01S00583.ds1     +++| TRZA     EQU    *-1
00628  M01S00584.ds1     +++|          ADN    2           16 CHARACTERS/LINE
00629  M01S00585.ds1     +++|          FAN    CH
00630  M01S00586.ds1     +++|          ACN    CH
00631  M01S00587.ds1     +++|          LDN    TRZBL
00632  M01S00588.ds1     +++|          OAM    TRZB,CH
00633  M01S00589.ds1     +++|          DCN    CH
00634  M01S00590.ds1     +++|
00635  M01S00591.ds1     +++|*         DISPLAY EXPLANATION.
00636  M01S00592.ds1     +++|
00637  M01S00593.ds1     +++|          LDM    TRZA        SELECT CHARACTER MODE, 64 CHAR./LINE
00638  M01S00594.ds1     +++|          FAN    CH
00639  M01S00595.ds1     +++|          LDC    TRZCL
00640  M01S00596.ds1     +++|          ACN    CH
00641  M01S00597.ds1     +++|          OAM    TRZC,CH
00642  M01S00598.ds1     +++|          DCN    CH
00643  M01S00599.ds1     +++|          LJM    TRZX        RETURN
00644  M01S00600.ds1     +++|
00645  M01S00601.ds1     +++| TRZB     BSS    0
00646  M01S00602.ds1     +++|          DATA   7400
00647  M01S00603.ds1     +++|          DATA   6400
00648  M01S00604.ds1     +++|          DATA   2RO
00649  M01S00605.ds1     +++|          DATA   7360
00650  M01S00606.ds1     +++|          DATA   6360
00651  M01S00607.ds1     +++|          DATA   2RX
00652  M01S00608.ds1     +++| TRZBL    EQU    *-TRZB
00653  M01S00609.ds1     +++|
00654  M01S00610.ds1     +++| TRZC     BSS    0
00655  M01S00611.ds1     +++|          DATA   7700
00656  M01S00612.ds1     +++|          DATA   6000
00657  M01S00613.ds1     +++|          DATA   H*IF O IS CENTERED ON CROSS, CHARACTERS ARE CENTERED*
00658  M01S00614.ds1     +++|          DATA   7640
00659  M01S00615.ds1     +++|          DATA   6000
00660  M01S00616.ds1     +++|          DATA   H*ON COORDINATES.*
00661  M01S00617.ds1     +++|          DATA   7140
00662  M01S00618.ds1     +++|          DATA   6000
00663  M01S00619.ds1     +++|          DATA   H*IF X IS CENTERED ON CROSS, CHARACTERS HAVE LOWER*
00664  M01S00620.ds1     +++|          DATA   7100
00665  M01S00621.ds1     +++|          DATA   6000
00666  M01S00622.ds1     +++|          DATA   H*LEFT CORNERS ON COORDINATES.*
00667  M01S00623.ds1     +++| TRZCL    EQU    *-TRZC
00668  M01S00624.ds1     +++| DSS      TITLE  DISPLAY SUBROUTINES
00669  M01S00625.ds1     +++|**        DSS - DISPLAY SYSTEM STATUS.
00670  M01S00043.ns22000 +++|*
00671  M01S00626.ds1     +++|*         CALLS  SYS.
00672  M01S00627.ds1     +++|
00673  M01S00628.ds1     +++|
00674  M01S00629.ds1     +++| DSS      SUBR               ENTRY/EXIT
00675  M01S00630.ds1     +++|          LDC    6000        SET X - COORDINATE
00676  M01S00631.ds1     +++|          STD    XC
00677  M01S00632.ds1     +++|          RJM    SYS
00678  M01S00001.v23l617 +++|          DCN    CH+40
00679  M01S00633.ds1     +++|          UJN    DSSX        RETURN
00680  M01S00634.ds1     +++| FCN      SPACE  4
00681  M01S00635.ds1     +++|**        FCN - FUNCTION CONSOLE FOR TUBE AND SIZE.
00682  M01S00044.ns22000 +++|*
00683  M01S00636.ds1     +++|*         USES   TS.
00684  M01S00637.ds1     +++|
00685  M01S00638.ds1     +++|
00686  M01S00639.ds1     +++| FCN      SUBR               ENTRY/EXIT
00687  M01S00640.ds1     +++|          LDD    TS          CHECK TUBE SWITCH
00688  M01S00641.ds1     +++|          ZJN    FCN1        IF NOT TUBE 1
00689  M01S00642.ds1     +++|          LDD    TB1         SET TUBE 1
00690  M01S00643.ds1     +++|          UJN    FCN2
00691  M01S00644.ds1     +++| FCN1     LDD    TB2         SET TUBE 2
00692  M01S00645.ds1     +++| FCN2     ADD    SZ          FORM FUNCTION CODE
00693  M01S00646.ds1     +++|          ADC    7000
00694  M01S00647.ds1     +++|          FAN    CH          SELECT TUBE AND SIZE
00695  M01S00648.ds1     +++|          UJN    FCNX        RETURN
00696  M01S00649.ds1     +++| TCR      SPACE  4
00697  M01S00650.ds1     +++|**        TCR - SELECT TUBE, CHARACTER, SIZE.
Line S00651 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00651.ns22000 ---|*         USES   TS, TB1, TB2, TB, SZ, CR, SIZ.
00699  M01S00045.ns22000 +++|*
00700  M01S00046.ns22000 +++|*         USES   CR, SIZ, SZ, TB, TB1, TB2, TS.
00701  M01S00652.ds1     +++|
00702  M01S00653.ds1     +++|
00703  M01S00654.ds1     +++| TCR      SUBR               ENTRY/EXIT
00704  M01S00655.ds1     +++|
00705  M01S00656.ds1     +++|*         SELECT TUBE.
00706  M01S00657.ds1     +++|
00707  M01S00658.ds1     +++|          LDN    0           PRESET TUBE 1 = TUBE 2 = *LEFT*
00708  M01S00659.ds1     +++|          STD    TB1
00709  M01S00660.ds1     +++|          STD    TB2
00710  M01S00661.ds1     +++|          LDD    TB          CHECK TUBE SELECTION
00711  M01S00662.ds1     +++|          SBN    1RB
00712  M01S00663.ds1     +++|          NJN    TCR1        IF NOT *B*
00713  M01S00664.ds1     +++|          LDD    HN          SET *BOTH*
00714  M01S00665.ds1     +++|          UJN    TCR2
00715  M01S00666.ds1     +++| TCR1     SBN    1RR-1RB
00716  M01S00667.ds1     +++|          NJN    TCR3        IF NOT *R*  (ASSUME *L*)
00717  M01S00668.ds1     +++|          LDD    HN          SET *RIGHT*
00718  M01S00669.ds1     +++|          STD    TB2
00719  M01S00670.ds1     +++| TCR2     STD    TB1
00720  M01S00671.ds1     +++|
00721  M01S00672.ds1     +++|*         SELECT SIZE.
00722  M01S00673.ds1     +++|
00723  M01S00674.ds1     +++| TCR3     LDN    2           PRESET *LARGE*
00724  M01S00675.ds1     +++|          STD    SZ
00725  M01S00676.ds1     +++|          LDD    SIZ         CHECK SELECTION
00726  M01S00677.ds1     +++|          ZJN    TCR6        IF NO SELECTION
00727  M01S00678.ds1     +++|          SBN    1RM
00728  M01S00679.ds1     +++|          NJN    TCR4        IF NOT *M*
00729  M01S00680.ds1     +++|          LDN    1           SET *MEDIUM*
00730  M01S00681.ds1     +++|          UJN    TCR5
00731  M01S00682.ds1     +++| TCR4     SBN    1RS-1RM
00732  M01S00683.ds1     +++|          NJN    TCR6        IF NOT *S*
00733  M01S00684.ds1     +++|          LDN    0           SET *SMALL*
00734  M01S00685.ds1     +++| TCR5     STD    SZ
00735  M01S00686.ds1     +++|
00736  M01S00687.ds1     +++|*         SELECT CHARACTER.
00737  M01S00688.ds1     +++|
00738  M01S00689.ds1     +++| TCR6     LDD    CR
00739  M01S00690.ds1     +++|          LPN    77
00740  M01S00691.ds1     +++|          STD    CR
00741  M01S00692.ds1     +++|          ZJN    TCR7        IF NO SELECTION
00742  M01S00693.ds1     +++|          SBN    1R$
00743  M01S00694.ds1     +++|          ZJN    TCR7        IF *$*
00744  M01S00695.ds1     +++|          SBN    1R -1R$
00745  M01S00696.ds1     +++|          ZJN    TCR7        IF *BLANK*
00746  M01S00697.ds1     +++|          SBN    1R.-1R +1
00747  M01S00698.ds1     +++|          MJN    TCR8        IF LEGAL DISPLAY CODE
00748  M01S00699.ds1     +++| TCR7     LDN    1RA         SET *A*
00749  M01S00700.ds1     +++|          STD    CR
00750  M01S00701.ds1     +++| TCR8     LJM    TCRX        RETURN
00751  M01S00702.ds1     +++| MDC      SPACE  4
00752  M01S00703.ds1     +++|**        MDC - MODIFY CHANNEL INSTRUCTIONS.
00753  M01S00047.ns22000 +++|*
00754  M01S00704.ds1     +++|*         USES   T1, T2, T3.
00755  M01S00705.ds1     +++|
00756  M01S00706.ds1     +++|
00757  M01S00707.ds1     +++| MDC      SUBR               ENTRY/EXIT
00758  M01S00708.ds1     +++|          LDM    /COMDDSP/DDSB CHECK ASSIGNED CHANNEL
00759  M01S00709.ds1     +++|          STD    T3
00760  M01S00710.ds1     +++|          CHTE   *
00761  M01S00711.ds1     +++|          LMN    CH
00762  M01S00712.ds1     +++|          ZJN    MDCX        IF CHANNELS MODIFIED
00763  M01S00713.ds1     +++|          LDC    TCHS        MODIFY CHANNELS
00764  M01S00714.ds1     +++|          STD    T1
00765  M01S00715.ds1     +++| MDC1     LDI    T1
00766  M01S00716.ds1     +++|          ZJN    MDC2        IF CHANNEL TABLE MODIFICATION COMPLETE
00767  M01S00717.ds1     +++|          STD    T2
00768  M01S00718.ds1     +++|          LDI    T2
00769  M01S00719.ds1     +++|          SCN    77
00770  M01S00720.ds1     +++|          ADD    T3
00771  M01S00721.ds1     +++|          STI    T2
00772  M01S00722.ds1     +++|          AOD    T1          ADVANCE ADDRESS
00773  M01S00723.ds1     +++|          UJN    MDC1        LOOP TO END OF TABLE
00774  M01S00724.ds1     +++| MDC2     LDC    MDCA        SET 1ST ADDRESS FOR BLIND MODIFICATION
00775  M01S00725.ds1     +++|          STD    T1
00776  M01S00726.ds1     +++| MDC3     AOD    T1          ADVANCE ADDRESS
00777  M01S00727.ds1     +++|          LMC    MDCB
00778  M01S00728.ds1     +++|          ZJN    MDCX        RETURN IF COMPLETE
00779  M01S00729.ds1     +++|          LDI    T1          CHECK WORD
00780  M01S00730.ds1     +++|          LPC    7077
00781  M01S00731.ds1     +++|          LMC    7000+CH
00782  M01S00732.ds1     +++|          NJN    MDC3        IF NOT 7XCH
00783  M01S00733.ds1     +++|          LDI    T1          MODIFY INSTRUCTION
00784  M01S00734.ds1     +++|          SCN    77
00785  M01S00735.ds1     +++|          ADD    T3
00786  M01S00736.ds1     +++|          STI    T1
00787  M01S00737.ds1     +++|          UJN    MDC3        LOOP
00788  M01S00738.ds1     +++| TCHS     SPACE  4
00789  M01S00739.ds1     +++|**        TCHS - TABLE OF CHANNEL INSTRUCTIONS.
00790  M01S00740.ds1     +++|
00791  M01S00741.ds1     +++| TCHS     CHTB
00792  M01S00742.ds1     +++|
00793  M01S00743.ds1     +++|
00794  M01S00744.ds1     +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
Line S00745 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00745.ns22000 ---|
Line S00746 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00746.ns22000 ---|
00797  M01S00048.ns22000 +++| COMMON   SPACE  4,10
00798  M01S00747.ds1     +++|**        COMMON DECKS.
00799  M01S00049.ns22000 +++|
00800  M01S00748.ds1     +++|
00801  M01S00749.ds1     +++| MDCA     BSS    0           FIRST ADDRESS FOR BLIND CHANNEL MOD
00802  M01S00750.ds1     +++|
00803  M01S00751.ds1     +++|*CALL     COMDSYS
00804  M01S00752.ds1     +++|*CALL     COMDDSP
00805  M01S00753.ds1     +++|
00806  M01S00754.ds1     +++| MDCB     BSS    0           LIMIT ADDRESS FOR BLIND CHANNEL MOD
00807  M01S00755.ds1     +++| ATR      TITLE    UTILITY SUBROUTINES
00808  M01S00756.ds1     +++|**        ATR - ADVANCE TEST ROUTINE.
00809  M01S00050.ns22000 +++|*
00810  M01S00757.ds1     +++|*         USES   PI, PA.
00811  M01S00051.ns22000 +++|*
00812  M01S00758.ds1     +++|*         CALLS  TTC.
00813  M01S00759.ds1     +++|
00814  M01S00760.ds1     +++|
00815  M01S00761.ds1     +++| ATR      SUBR               ENTRY/EXIT
00816  M01S00762.ds1     +++|          LDD    KB          CHECK KEYBOARD
00817  M01S00763.ds1     +++|          ZJN    ATR1        IF NO ENTRY
00818  M01S00764.ds1     +++|          RJM    STR         SELECT TEST ROUTINE
00819  M01S00765.ds1     +++|          UJN    ATRX        RETURN
00820  M01S00766.ds1     +++| ATR1     LDD    AF
00821  M01S00767.ds1     +++|          NJN    ATR2        IF *ALL TESTS*
00822  M01S00768.ds1     +++|          LDD    PA          TOGGLE ADDRESS
00823  M01S00769.ds1     +++|          LMC    CTL
00824  M01S00770.ds1     +++|          LMM    TTRA,PI
00825  M01S00771.ds1     +++|          STD    PA
00826  M01S00772.ds1     +++|          UJN    ATRX        RETURN
00827  M01S00773.ds1     +++| ATR2     AOD    PI          ADVANCE TEST
00828  M01S00774.ds1     +++| ATR3     LDM    TTRA,PI
00829  M01S00775.ds1     +++|          NJN    ATR4        IF NOT END OF TABLE
00830  M01S00776.ds1     +++|          STD    PI          RESET PROGRAM INDEX
00831  M01S00777.ds1     +++|          UJN    ATR3
00832  M01S00778.ds1     +++| ATR4     STD    PA
00833  M01S00779.ds1     +++|          UJN    ATRX        RETURN
00834  M01S00780.ds1     +++| DRP      SPACE  4
00835  M01S00781.ds1     +++|**        DRP - DROP DISPLAY.
Line S00782 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00782.ns22000 ---|*         ENTRY BY *LJM* INSTRUCTION.
00837  M01S00052.ns22000 +++|*
00838  M01S00053.ns22000 +++|*         ENTRY  VIA *LJM*.
00839  M01S00054.ns22000 +++|*
00840  M01S00783.ds1     +++|*         CALLS  DDS, FTN, PPR.
00841  M01S00784.ds1     +++|
00842  M01S00785.ds1     +++|
00843  M01S00786.ds1     +++| DRP      RJM    DDS         DROP DISPLAY
00844  M01S00787.ds1     +++| DPP      MONITOR DPPM       DROP PP
00845  M01S00788.ds1     +++|          LJM    PPR         EXIT TO PP RESIDENT
00846  M01S00789.ds1     +++| STR      SPACE  4
00847  M01S00790.ds1     +++|**        STR - SELECT TEST ROUTINE.
Line S00791 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00791.ns22000 ---|*         USES   T1, TB, CR, SZ.
00849  M01S00055.ns22000 +++|*
00850  M01S00056.ns22000 +++|*         USES   CR, SZ, TB, T1.
00851  M01S00057.ns22000 +++|*
00852  M01S00792.ds1     +++|*         CALLS  EEB.
00853  M01S00793.ds1     +++|
00854  M01S00794.ds1     +++|
00855  M01S00795.ds1     +++| STR      SUBR               ENTRY/EXIT
00856  M01S00796.ds1     +++|          LDN    0
00857  M01S00797.ds1     +++|          STD    T1          PRESET INDEX
00858  M01S00798.ds1     +++|          STD    AF          CLEAR *ALL TESTS* FLAG
00859  M01S00799.ds1     +++|          LDD    KB          CHECK TEST SELECTION
00860  M01S00800.ds1     +++|          LMN    1RL
00861  M01S00801.ds1     +++|          NJN    STR1        IF NOT *L*
00862  M01S00802.ds1     +++|          LDN    1           SET *ALL TESTS* FLAG
00863  M01S00803.ds1     +++|          STD    AF
00864  M01S00804.ds1     +++|          UJN    STR3
00865  M01S00805.ds1     +++| STR1     LDM    TTRM,T1
00866  M01S00806.ds1     +++|          NJN    STR2        IF NOT END OF TABLE
00867  M01S00807.ds1     +++|          STD    PI
00868  M01S00808.ds1     +++|          LDC    CTL         SELECT CONTROL PROGRAM
00869  M01S00809.ds1     +++|          STD    PA
00870  M01S00810.ds1     +++|          RJM    EEB         ERASE ENTRY BUFFER
00871  M01S00811.ds1     +++|          LDM    TTRM,PI     SET FIRST TEST MNEMONIC IN *PM*
00872  M01S00812.ds1     +++|          STD    PM
00873  M01S00813.ds1     +++|          UJN    STRX        RETURN
00874  M01S00814.ds1     +++| STR2     LMD    KB
00875  M01S00815.ds1     +++|          ZJN    STR3        IF TEST FOUND
00876  M01S00816.ds1     +++|          AOD    T1          ADVANCE INDEX
00877  M01S00817.ds1     +++|          UJN    STR1        LOOP
00878  M01S00818.ds1     +++| STR3     LDM    TTRA,T1     SET PROGRAM ADDRESS
00879  M01S00819.ds1     +++|          STD    PA
00880  M01S00820.ds1     +++|          LDD    T1          SET PROGRAM INDEX
00881  M01S00821.ds1     +++|          STD    PI
00882  M01S00822.ds1     +++|          LDD    KB          SET PROGRAM MNEMONIC
00883  M01S00823.ds1     +++|          STD    PM
00884  M01S00824.ds1     +++|          LDD    KB+1        SET TUBE
00885  M01S00825.ds1     +++|          STD    TB
00886  M01S00826.ds1     +++|          LDD    KB+2        SET CHARACTER
00887  M01S00827.ds1     +++|          STD    CR
00888  M01S00828.ds1     +++|          LDD    KB+3        SET SIZE
00889  M01S00829.ds1     +++|          STD    SIZ
00890  M01S00830.ds1     +++|          RJM    EEB         ERASE ENTRY BUFFER
00891  M01S00831.ds1     +++|          LJM    STRX        RETURN
00892  M01S00832.ds1     +++|
00893  M01S00833.ds1     +++|*         TTRM - TABLE OF TEST MNEMONICS.
00894  M01S00834.ds1     +++|
00895  M01S00835.ds1     +++| TTRM     BSS    0
00896  M01S00836.ds1     +++|          DATA   1RA
00897  M01S00837.ds1     +++|          DATA   1RC
00898  M01S00838.ds1     +++|          DATA   1RD
00899  M01S00839.ds1     +++|          DATA   1RI
00900  M01S00840.ds1     +++|          DATA   1RS
00901  M01S00841.ds1     +++|          DATA   1RX
00902  M01S00842.ds1     +++|          DATA   1RZ
00903  M01S00843.ds1     +++|          DATA   0
00904  M01S00844.ds1     +++|
00905  M01S00845.ds1     +++|*         TTRA - TABLE OF TEST ADDRESSES.
00906  M01S00846.ds1     +++|
00907  M01S00847.ds1     +++| TTRA     BSS    0
00908  M01S00848.ds1     +++|          CON    TRA
00909  M01S00849.ds1     +++|          CON    TRC
00910  M01S00850.ds1     +++|          CON    TRD
00911  M01S00851.ds1     +++|          CON    TRI
00912  M01S00852.ds1     +++|          CON    TRS
00913  M01S00853.ds1     +++|          CON    TRX
00914  M01S00854.ds1     +++|          CON    TRZ
00915  M01S00855.ds1     +++|          DATA   0
00916  M01S00856.ds1     +++| TTC      SPACE  4
00917  M01S00857.ds1     +++|**        TTC - TOGGLE TEST AND CONTROL.
Line S00858 Modification History
M01 (Added by) ds1
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00858.ns22000 ---|*         USES   PA, PI
00919  M01S00058.ns22000 +++|*
00920  M01S00059.ns22000 +++|*         USES   PA, PI.
00921  M01S00060.ns22000 +++|*
00922  M01S00859.ds1     +++|*         CALLS  STR.
00923  M01S00860.ds1     +++|
00924  M01S00861.ds1     +++|
00925  M01S00862.ds1     +++| TTC      SUBR               ENTRY/EXIT
00926  M01S00863.ds1     +++|          LDD    KB          CHECK KEYBOARD
00927  M01S00864.ds1     +++|          ZJN    TTC1        IF NO ENTRY
00928  M01S00865.ds1     +++|          RJM    STR         SELECT TEST ROUTINE
00929  M01S00866.ds1     +++|          UJN    TTCX        RETURN
00930  M01S00867.ds1     +++| TTC1     LDD    PA          TOGGLE ADDRESS
00931  M01S00868.ds1     +++|          LMC    CTL
00932  M01S00869.ds1     +++|          LMM    TTRA,PI
00933  M01S00870.ds1     +++|          STD    PA
00934  M01S00871.ds1     +++|          UJN    TTCX        RETURN
00935  M01S00872.ds1     +++|          SPACE  4,10
00936  M01S00873.ds1     +++| DIS      HERE               *COMDSYS* *DISPLA* EXPANSION
00937  M01S00874.ds1     +++| PRS      TITLE  PRESET PROGRAM
00938  M01S00875.ds1     +++|**        PRS - PRESET PROGRAM.
00939  M01S00876.ds1     +++|*
00940  M01S00877.ds1     +++|*         EXIT   (NC) = NUMBER OF CP-S.
00941  M01S00878.ds1     +++|
00942  M01S00879.ds1     +++|
00943  M01S00880.ds1     +++| PRS      SUBR               ENTRY/EXIT
Line S00881 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00944  M02S00881.v23l617 ---|          RJM    CUA         CHECK USER ACCESS
Line S00882 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00882.v23l617 ---|          LDD    CM
Line S00883 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00883.v23l617 ---|          ZJN    PRS1        IF ENGINEERING MODE
Line S00884 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00884.v23l617 ---|          LDC    PRSA        DAYFILE MESSAGE *ILLEGAL CONTROL CARD.*
Line S00885 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00885.v23l617 ---|          RJM    DFM
Line S00886 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00949  M02S00886.v23l617 ---|          MONITOR ABTM       ABORT JOB
Line S00887 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00887.v23l617 ---|          LJM    PPR         EXIT TO PP RESIDENT
Line S00888 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00888.v23l617 ---|
00952  M01S00002.v23l617 +++|          CATD               CHECK ACCESS TO DISPLAY CONSOLE
00953  M01S00003.v23l617 +++|          LDD    CM
00954  M01S00004.v23l617 +++|          NJN    CAT1        IF ENGINEERING MODE NOT ENABLED
00955  M01S00889.ds1     +++| PRS1     PAUSE
00956  M01S00890.ds1     +++|          LDD    FL
00957  M01S00891.ds1     +++|          ZJN    PRS3        IF FL = 0
00958  M01S00892.ds1     +++|          LDD    CM+1
00959  M01S00893.ds1     +++|          ZJN    PRS2        IF ERROR FLAG NOT SET
00960  M01S00894.ds1     +++|          LJM    DPP         DROP PP
00961  M01S00895.ds1     +++|
00962  M01S00896.ds1     +++| PRS2     STD    CM+2        SET CM REQUEST
00963  M01S00897.ds1     +++|          MONITOR RSTM       REQUEST 0 FL
00964  M01S00898.ds1     +++|          UJN    PRS1
00965  M01S00899.ds1     +++|
00966  M01S00900.ds1     +++| PRS3     RJM    RDS         REQUEST DISPLAY
00967  M01S00901.ds1     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
00968  M01S00902.ds1     +++|          STD    TS          PRESET TUBE SWITCH
00969  M01S00903.ds1     +++|          STD    KI          SET KEYBOARD INDEX
00970  M01S00904.ds1     +++|          STD    AF          CLEAR *ALL TESTS* FLAG
00971  M01S00905.ds1     +++|          STD    PI          SET PROGRAM INDEX
00972  M01S00906.ds1     +++|          CRD    KB          CLEAR KEYBOARD BUFFER
00973  M01S00907.ds1     +++|          LDN    1RA         SET PROGRAM MNEMONIC *A*
00974  M01S00908.ds1     +++|          STD    PM
00975  M01S00909.ds1     +++|          LDC    CTL         PRESET PROGRAM ADDRESS = *CONTROL*
00976  M01S00910.ds1     +++|          STD    PA
00977  M01S00911.ds1     +++|          LDD    HN          PRESET *RIGHT* TUBE
00978  M01S00912.ds1     +++|          STD    TB1
00979  M01S00913.ds1     +++|          STD    TB2
00980  M01S00914.ds1     +++|          LDN    1RB
00981  M01S00915.ds1     +++|          STD    TB
00982  M01S00916.ds1     +++|          LDN    2           PRESET *LARGE* SIZE
00983  M01S00917.ds1     +++|          STD    SZ
00984  M01S00918.ds1     +++|          LDN    1RL
00985  M01S00919.ds1     +++|          STD    SIZ
00986  M01S00920.ds1     +++|          LDN    1RA         PRESET CHARACTER = *A*
00987  M01S00921.ds1     +++|          STD    CR
00988  M01S00922.ds1     +++|          LDC    6200        SET KEYBOARD BUFFER DISPLAY COORDINATES
00989  M01S00923.ds1     +++|          STD    KX
00990  M01S00924.ds1     +++|          LDC    7340
00991  M01S00925.ds1     +++|          STD    KY
00992  M01S00926.ds1     +++|          LDN    NCPL        SAVE NUMBER OF CP-S
00993  M01S00927.ds1     +++|          CRD    CM
00994  M01S00928.ds1     +++|          AOD    CM+1
00995  M01S00929.ds1     +++|          STD    NC
00996  M01S00930.ds1     +++|          LJM    PRSX        RETURN
Line S00931 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00931.v23l617 ---|
Line S00932 Modification History
M01 (Added by) ds1
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00932.v23l617 ---| PRSA     DATA   C* ILLEGAL CONTROL CARD.*
00999  M01S00933.ds1     +++|          SPACE  4
01000  M01S00061.ns22000 +++|**        COMMON DECKS.
01001  M01S00062.ns22000 +++|
01002  M01S00063.ns22000 +++|
01003  M01S00934.ds1     +++|*CALL     COMPCUA
01004  M01S00935.ds1     +++|          SPACE  4
01005  M01S00936.ds1     +++|          END
cdc/nos2.source/opl.opl871/deck/ds1.txt ยท Last modified: by 127.0.0.1