User Tools

Site Tools


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

Deck WRM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.wrm     +++|          IDENT  WRM,WRM
00002  M00S00002.wrm     +++|          PERIPH
00003  M00S00003.wrm     +++|          BASE   MIXED
00004  M00S00004.wrm     +++|          SST    RDS
Line S00005 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.ns22000 ---|*COMMENT  WORM(S) DISPLAY.
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns22000 +++|*COMMENT  WRM - WORM(S) DISPLAY.
Line S00002 Modification History
M01 (Added by) ns22000
M02 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00002.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00006.wrm     +++|          TITLE  WRM - WORM(S) DISPLAY.
00010  M00S00007.wrm     +++|          SPACE  4
00011  M00S00008.wrm     +++|***       WRM - WORM(S) DISPLAY.
00012  M00S00009.wrm     +++|*         AUTHOR UNKNOWN.
00013  M00S00010.wrm     +++|*         DISASSEMBLED FROM OCTAL AND REVISED  -  JAN 69.  E.W. HOBBS.
00014  M00S00011.wrm     +++|*         REVISED.  E. W. HOBBS.  70/04/21.
00015  M00S00012.wrm     +++|          SPACE  4
Line S00003 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00003.ns22000 +++|**        COMMON DECKS.
00017  M01S00004.ns22000 +++|
00018  M01S00005.ns22000 +++|
00019  M00S00013.wrm     +++|*CALL     COMDMAC
00020  M00S00014.wrm     +++|*CALL     COMPMAC
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00001.242l642 +++|*CALL     COMSCPS
00022  M00S00015.wrm     +++|          SPACE  4
Line S00016 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00016.ns22000 ---|****      DIRECT LOCATION ASSIGNMENTS -
Line S00006 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00006.ns22000 +++|****      DIRECT LOCATION ASSIGNMENTS.
00025  M00S00017.wrm     +++|
00026  M00S00018.wrm     +++| NC       EQU    15          NUMBER OF CP-S (FOR *COMDSYS*)
00027  M00S00019.wrm     +++| XC       EQU    16          X - COORDINATE
00028  M00S00020.wrm     +++| YC       EQU    17          Y - COORDINATE
00029  M00S00021.wrm     +++| AB       EQU    20 - 24     CM WORD BUFFER (5 LOC)
00030  M00S00022.wrm     +++| I1       EQU    25          INDEX
00031  M00S00023.wrm     +++| I2       EQU    26          INDEX
Line S00024 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00024.ns22000 ---| EQ       EQU    27          EQUIPMENT NUMBER
Line S00007 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00007.ns22000 +++| EQ       EQU    27          EST ORDINAL
00034  M00S00025.wrm     +++| DC       EQU    30          DELAY COUNTER
00035  M00S00026.wrm     +++| PM       EQU    32          PROGRAM JUMP ADDRESS
00036  M00S00027.wrm     +++| PI       EQU    33          PROGRAM INDEX
00037  M00S00028.wrm     +++| CT       EQU    34 - 37     PASS COUNTERS
00038  M00S00029.wrm     +++|
Line S00030 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00030.ns22000 ---|**        ASSEMBLY CONSTANTS -
Line S00008 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00008.ns22000 +++|**        ASSEMBLY CONSTANTS.
00041  M00S00031.wrm     +++|
00042  M00S00032.wrm     +++| NAME     MICRO  1,, WORMS
00043  M00S00033.wrm     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00044  M00S00034.wrm     +++| DSCT     EQU    0           DISPLAY CYCLE (SET = 0 FOR FULL SPEED)
00045  M00S00035.wrm     +++|
00046  M00S00036.wrm     +++|****
00047  M00S00037.wrm     +++| WRM      TITLE  WRM - MAIN ROUTINE
00048  M00S00038.wrm     +++|          ORG    PPFW
00049  M00S00039.wrm     +++|
Line S00040 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00040.ns22000 ---|**        WRM - MAIN ROUTINE
Line S00009 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00009.ns22000 +++|**        WRM - MAIN ROUTINE.
00052  M01S00010.ns22000 +++|
00053  M00S00041.wrm     +++|
00054  M00S00042.wrm     +++| WRM      RJM    PRS         PRESET
00055  M00S00043.wrm     +++| WRM1     RJM    KBI         CHECK KEYBOARD
00056  M00S00044.wrm     +++|          RJM    0,PM        DISPLAY
00057  M00S00045.wrm     +++|          RJM    DEL         DELAY
00058  M00S00046.wrm     +++|          RJM    PSS         PAUSE FOR SYSTEM
00059  M00S00047.wrm     +++|          UJN    WRM1        LOOP
00060  M00S00048.wrm     +++| DEL      TITLE    UTILITY SUBROUTINES
00061  M00S00049.wrm     +++|**        DEL - DELAY.
00062  M00S00050.wrm     +++|
00063  M00S00051.wrm     +++|
00064  M00S00052.wrm     +++| DEL      SUBR               ENTRY/EXIT
00065  M00S00053.wrm     +++|          LDD    DC          DELAY
00066  M00S00054.wrm     +++|          SBN    1
00067  M00S00055.wrm     +++|          PJN    *-1
00068  M00S00056.wrm     +++|          UJN    DELX        RETURN
00069  M00S00057.wrm     +++| RNG      SPACE  4
Line S00058 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00058.ns22000 ---|**        RNG - RANDOM NUMBER GENERATOR
Line S00011 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00011.ns22000 +++|**        RNG - RANDOM NUMBER GENERATOR.
00072  M00S00059.wrm     +++|
00073  M00S00060.wrm     +++| RNG      SUBR               ENTRY/EXIT
00074  M00S00061.wrm     +++|
00075  M00S00062.wrm     +++|          IAN    14          READ CLOCK CHANNEL
00076  M00S00063.wrm     +++|          LMM    RNGB,I1     COMPUTE RANDOM NUMBER
00077  M00S00064.wrm     +++|          RAM    RNGA,I1
00078  M00S00065.wrm     +++|          SHN    6
00079  M00S00066.wrm     +++|          RAM    RNGB,I1
00080  M00S00067.wrm     +++|          SHN    6
00081  M00S00068.wrm     +++|          LMM    RNGA,I1
00082  M00S00069.wrm     +++|          SHN    4
00083  M00S00070.wrm     +++|          RAM    RNGA,I1
00084  M00S00071.wrm     +++|          UJN    RNGX        RETURN
00085  M00S00072.wrm     +++|
00086  M00S00073.wrm     +++| RNGA     DATA   6625
00087  M00S00074.wrm     +++|          DATA   1347
00088  M00S00075.wrm     +++|          DATA   3141
00089  M00S00076.wrm     +++|          DATA   1415
00090  M00S00077.wrm     +++|          DATA   4157
00091  M00S00078.wrm     +++|          DATA   1514
00092  M00S00079.wrm     +++|          DATA   7233
00093  M00S00080.wrm     +++| RNGB     DATA   1015
00094  M00S00081.wrm     +++|          DATA   6553
00095  M00S00082.wrm     +++|          DATA   2565
00096  M00S00083.wrm     +++|          DATA   2761
00097  M00S00084.wrm     +++|          DATA   3777
00098  M00S00085.wrm     +++|          DATA   1313
00099  M00S00086.wrm     +++|          DATA   1133
00100  M00S00087.wrm     +++| ALW      TITLE    GENERATE AND DISPLAY WORM(S)
00101  M00S00088.wrm     +++|**        ALW - ADVANCE LONG WORM.
00102  M00S00089.wrm     +++|
00103  M00S00090.wrm     +++| ALW      SUBR               ENTRY/EXIT
00104  M00S00091.wrm     +++|          SOM    CTRL        DECREMENT COUNTER
00105  M00S00092.wrm     +++|          NJN    ALW1        IF NEW RANDOM NUMBER NOT REQUIRED
00106  M00S00093.wrm     +++|          RJM    RNG         GENERATE RANDOM NUMBER
00107  M00S00094.wrm     +++|          LPN    3
00108  M00S00095.wrm     +++|          SHN    1
00109  M00S00096.wrm     +++|          ADN    1
00110  M00S00097.wrm     +++|          STM    CTRL
00111  M00S00098.wrm     +++| ALW1     LDM    RNGA        COMPUTE NEW X INCREMENT
00112  M00S00099.wrm     +++|          STD    T6
00113  M00S00100.wrm     +++|          SHN    -10
00114  M00S00101.wrm     +++|          LPN    14
00115  M00S00102.wrm     +++|          STD    T7
00116  M00S00103.wrm     +++|          LPN    10          CONVERT TO SYMMETRIC INCREMENT
00117  M00S00104.wrm     +++|          ZJN    ALW2
00118  M00S00105.wrm     +++|          LDD    T7
00119  M00S00106.wrm     +++|          LMC    -10
00120  M00S00107.wrm     +++|          UJN    ALW3
00121  M00S00108.wrm     +++|
00122  M00S00109.wrm     +++| ALW2     LDD    T7
00123  M00S00110.wrm     +++| ALW3     ADM    TXCL+40     GENERATE NEW X-COORDINATE
00124  M00S00111.wrm     +++|          STD    T7
00125  M00S00112.wrm     +++|          PJN    ALW4
00126  M00S00113.wrm     +++|          LMC    -0
00127  M00S00114.wrm     +++|          UJN    ALW6
00128  M00S00115.wrm     +++|
00129  M00S00116.wrm     +++| ALW4     ADC    -770
00130  M00S00117.wrm     +++|          MJN    ALW5
00131  M00S00118.wrm     +++|          STD    T2
00132  M00S00119.wrm     +++|          LDC    770
00133  M00S00120.wrm     +++|          SBD    T2
00134  M00S00121.wrm     +++|          UJN    ALW6
00135  M00S00122.wrm     +++|
00136  M00S00123.wrm     +++| ALW5     LDD    T7
00137  M00S00124.wrm     +++| ALW6     STD    T3
00138  M00S00125.wrm     +++|          LDD    T6          COMPUTE NEW Y INCREMENT
00139  M00S00126.wrm     +++|          LPN    14
00140  M00S00127.wrm     +++|          STD    T7
00141  M00S00128.wrm     +++|          LPN    10          CONVERT TO SYMMETRIC INCREMENT
00142  M00S00129.wrm     +++|          ZJN    ALW7
00143  M00S00130.wrm     +++|          LDD    T7
00144  M00S00131.wrm     +++|          LMC    -10
00145  M00S00132.wrm     +++|          UJN    ALW8
00146  M00S00133.wrm     +++|
00147  M00S00134.wrm     +++| ALW7     LDD    T7
00148  M00S00135.wrm     +++| ALW8     ADM    TYCL+40     GENERATE NEW Y-COORDINATE
00149  M00S00136.wrm     +++|          STD    T7
00150  M00S00137.wrm     +++|          PJN    ALW9
00151  M00S00138.wrm     +++|          LMC    -0
00152  M00S00139.wrm     +++|          UJN    ALW11
00153  M00S00140.wrm     +++|
00154  M00S00141.wrm     +++| ALW9     ADC    -770
00155  M00S00142.wrm     +++|          MJN    ALW10
00156  M00S00143.wrm     +++|          STD    T2
00157  M00S00144.wrm     +++|          LDC    770
00158  M00S00145.wrm     +++|          SBD    T2
00159  M00S00146.wrm     +++|          UJN    ALW11
00160  M00S00147.wrm     +++|
00161  M00S00148.wrm     +++| ALW10    LDD    T7
00162  M00S00149.wrm     +++| ALW11    STD    T4
00163  M00S00150.wrm     +++|          LDD    T6
00164  M00S00151.wrm     +++|          SHN    -6
00165  M00S00152.wrm     +++|          LPN    3
00166  M00S00153.wrm     +++|          ADN    1
00167  M00S00154.wrm     +++|          STD    CT
00168  M00S00155.wrm     +++|          LDN    4
00169  M00S00156.wrm     +++|          STD    T2
00170  M00S00157.wrm     +++| ALW12    LDM    TXCL+34,T2
00171  M00S00158.wrm     +++|          LMD    T3
00172  M00S00159.wrm     +++|          NJN    ALW13
00173  M00S00160.wrm     +++|          LDM    TYCL+34,T2
00174  M00S00161.wrm     +++|          LMD    T4
00175  M00S00162.wrm     +++|          NJN    ALW13
00176  M00S00163.wrm     +++|          LJM    ALWX        RETURN
00177  M00S00164.wrm     +++|
00178  M00S00165.wrm     +++| ALW13    SOD    T2
00179  M00S00166.wrm     +++|          NJN    ALW12
00180  M00S00167.wrm     +++|          LDN    1           SHIFT TABLE DOWN
00181  M00S00168.wrm     +++|          STD    T1
00182  M00S00169.wrm     +++| ALW14    LDM    TXCL+1,T1
00183  M00S00170.wrm     +++|          STM    TXCL,T1
00184  M00S00171.wrm     +++|          LDM    TYCL+1,T1
00185  M00S00172.wrm     +++|          STM    TYCL,T1
00186  M00S00173.wrm     +++|          AOD    T1
00187  M00S00174.wrm     +++|          LMN    40
00188  M00S00175.wrm     +++|          NJN    ALW14
00189  M00S00176.wrm     +++|          LDD    T3
00190  M00S00177.wrm     +++|          STM    TXCL+40
00191  M00S00178.wrm     +++|          LDD    T4
00192  M00S00179.wrm     +++|          STM    TYCL+40
00193  M00S00180.wrm     +++|          LJM    ALWX        RETURN
00194  M00S00181.wrm     +++| ASW      SPACE  4
00195  M00S00182.wrm     +++|**        ASW - ADVANCE SHORT WORM.
00196  M00S00183.wrm     +++|
00197  M00S00184.wrm     +++| ASW      SUBR               ENTRY/EXIT
00198  M00S00185.wrm     +++|          SOM    CTRA,I2     DECREMENT COUNTER
00199  M00S00186.wrm     +++|          NJN    ASW1        IF NEW RANDOM NUMBER NOT REQUIRED
00200  M00S00187.wrm     +++|          RJM    RNG         GENERATE RANDOM NUMBER
00201  M00S00188.wrm     +++|          LPN    3
00202  M00S00189.wrm     +++|          ADN    1
00203  M00S00190.wrm     +++|          STM    CTRA,I2
00204  M00S00191.wrm     +++| ASW1     LDM    RNGA,I1     COMPUTE NEW X INCREMENT
00205  M00S00192.wrm     +++|          STD    T6
00206  M00S00193.wrm     +++|          SHN    -10
00207  M00S00194.wrm     +++|          LPN    14
00208  M00S00195.wrm     +++|          STD    T7
00209  M00S00196.wrm     +++|          LPN    10          CONVERT TO SYMMETRIC INCREMENT
00210  M00S00197.wrm     +++|          ZJN    ASW2
00211  M00S00198.wrm     +++|          LDD    T7
00212  M00S00199.wrm     +++|          LMC    -10
00213  M00S00200.wrm     +++|          UJN    ASW3
00214  M00S00201.wrm     +++|
00215  M00S00202.wrm     +++| ASW2     LDD    T7
00216  M00S00203.wrm     +++| ASW3     ADM    TXCA+20,I2  GENERATE NEW X-COORDINATE
00217  M00S00204.wrm     +++|          STD    T7
00218  M00S00205.wrm     +++|          PJN    ASW4
00219  M00S00206.wrm     +++|          LMC    -0
00220  M00S00207.wrm     +++|          UJN    ASW6
00221  M00S00208.wrm     +++|
00222  M00S00209.wrm     +++| ASW4     ADC    -770
00223  M00S00210.wrm     +++|          MJN    ASW5
00224  M00S00211.wrm     +++|          STD    T2
00225  M00S00212.wrm     +++|          LDC    770
00226  M00S00213.wrm     +++|          SBD    T2
00227  M00S00214.wrm     +++|          UJN    ASW6
00228  M00S00215.wrm     +++|
00229  M00S00216.wrm     +++| ASW5     LDD    T7
00230  M00S00217.wrm     +++| ASW6     STD    T3          COMPUTE NEW Y INCREMENT
00231  M00S00218.wrm     +++|          LDD    T6
00232  M00S00219.wrm     +++|          LPN    14
00233  M00S00220.wrm     +++|          STD    T7
00234  M00S00221.wrm     +++|          LPN    10          CONVERT TO SYMMETRIC INCREMENT
00235  M00S00222.wrm     +++|          ZJN    ASW7
00236  M00S00223.wrm     +++|          LDD    T7
00237  M00S00224.wrm     +++|          LMC    -10
00238  M00S00225.wrm     +++|          UJN    ASW8
00239  M00S00226.wrm     +++|
00240  M00S00227.wrm     +++| ASW7     LDD    T7
00241  M00S00228.wrm     +++| ASW8     ADM    TYCA+20,I2  GENERATE NEW Y-COORDINATE
00242  M00S00229.wrm     +++|          STD    T7
00243  M00S00230.wrm     +++|          PJN    ASW9
00244  M00S00231.wrm     +++|          LMC    -0
00245  M00S00232.wrm     +++|          UJN    ASW11
00246  M00S00233.wrm     +++|
00247  M00S00234.wrm     +++| ASW9     ADC    -770
00248  M00S00235.wrm     +++|          MJN    ASW10
00249  M00S00236.wrm     +++|          STD    T2
00250  M00S00237.wrm     +++|          LDC    770
00251  M00S00238.wrm     +++|          SBD    T2
00252  M00S00239.wrm     +++|          UJN    ASW11
00253  M00S00240.wrm     +++|
00254  M00S00241.wrm     +++| ASW10    LDD    T7
00255  M00S00242.wrm     +++| ASW11    STD    T4
00256  M00S00243.wrm     +++|          LDD    T6
00257  M00S00244.wrm     +++|          SHN    -6
00258  M00S00245.wrm     +++|          LPN    3
00259  M00S00246.wrm     +++|          ADN    1
00260  M00S00247.wrm     +++|          STM    CT,I1
00261  M00S00248.wrm     +++|          LDN    4
00262  M00S00249.wrm     +++|          ADD    I2
00263  M00S00250.wrm     +++|          STD    T2
00264  M00S00251.wrm     +++| ASW12    LDM    TXCA+14,T2
00265  M00S00252.wrm     +++|          LMD    T3
00266  M00S00253.wrm     +++|          NJN    ASW13
00267  M00S00254.wrm     +++|          LDM    TYCA+14,T2
00268  M00S00255.wrm     +++|          LMD    T4
00269  M00S00256.wrm     +++|          NJN    ASW13
00270  M00S00257.wrm     +++|          LJM    ASWX        RETURN
00271  M00S00258.wrm     +++|
00272  M00S00259.wrm     +++| ASW13    SOD    T2
00273  M00S00260.wrm     +++|          SBD    I2
00274  M00S00261.wrm     +++|          NJN    ASW12
00275  M00S00262.wrm     +++|          LDN    1           SHIFT TABLES DOWN
00276  M00S00263.wrm     +++|          ADD    I2
00277  M00S00264.wrm     +++|          STD    T1
00278  M00S00265.wrm     +++| ASW14    LDM    TXCA+1,T1
00279  M00S00266.wrm     +++|          STM    TXCA,T1
00280  M00S00267.wrm     +++|          LDM    TYCA+1,T1
00281  M00S00268.wrm     +++|          STM    TYCA,T1
00282  M00S00269.wrm     +++|          AOD    T1
00283  M00S00270.wrm     +++|          SBD    I2
00284  M00S00271.wrm     +++|          LMN    20
00285  M00S00272.wrm     +++|          NJN    ASW14
00286  M00S00273.wrm     +++|          LDD    T3
00287  M00S00274.wrm     +++|          STM    TXCA+20,I2
00288  M00S00275.wrm     +++|          LDD    T4
00289  M00S00276.wrm     +++|          STM    TYCA+20,I2
00290  M00S00277.wrm     +++|          LJM    ASWX        RETURN
00291  M00S00278.wrm     +++| D1W      SPACE  4
00292  M00S00279.wrm     +++|**        D1W - DISPLAY 1 WORM.
Line S00280 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00293  M01S00280.ns22000 ---|*         CALLS  DLW, ALW
00294  M01S00281.ns22000 ---|*         USES   CT
Line S00012 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00012.ns22000 +++|*
00296  M01S00013.ns22000 +++|*         CALLS  ALW, DLW.
00297  M01S00014.ns22000 +++|*
00298  M01S00015.ns22000 +++|*         USES   CT.
00299  M00S00282.wrm     +++|
00300  M00S00283.wrm     +++| D1W      SUBR               ENTRY/EXIT
00301  M00S00284.wrm     +++|          LDD    DC          DELAY
00302  M00S00285.wrm     +++|          SBN    1
00303  M00S00286.wrm     +++|          PJN    *-1
00304  M00S00287.wrm     +++|          RJM    DLW         DISPLAY LONG WORM
00305  M00S00288.wrm     +++|          SOD    CT
00306  M00S00289.wrm     +++|          NJN    D1WX        RETURN IF NOT 4TH PASS
00307  M00S00290.wrm     +++|          RJM    ALW         ADVANCE LONG WORM
00308  M00S00291.wrm     +++|          UJN    D1WX        RETURN
00309  M00S00292.wrm     +++| D2W      SPACE  4
00310  M00S00293.wrm     +++|**        D2W - DISPLAY 2 WORMS.
Line S00294 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00294.ns22000 ---|*         CALLS  DSW, ASW
00312  M01S00295.ns22000 ---|*         USES   I1, I2, CT, CT+1
Line S00016 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00313  M01S00016.ns22000 +++|*
00314  M01S00017.ns22000 +++|*         CALLS  ASW, DSW.
00315  M01S00018.ns22000 +++|*
00316  M01S00019.ns22000 +++|*         USES   I1, I2, CT - CT+1.
00317  M00S00296.wrm     +++|
00318  M00S00297.wrm     +++| D2W      SUBR               ENTRY/EXIT
00319  M00S00298.wrm     +++|          RJM    DSW         DISPLAY SHORT WORM
00320  M00S00299.wrm     +++|          SOM    CT,I1
00321  M00S00300.wrm     +++|          NJN    D2W1        IF NOT 4TH PASS
00322  M00S00301.wrm     +++|          RJM    ASW         ADVANCE SHORT WORM
00323  M00S00302.wrm     +++| D2W1     LDD    I1          TOGGLE INDICES
00324  M00S00303.wrm     +++|          LMN    1
00325  M00S00304.wrm     +++|          STD    I1
00326  M00S00305.wrm     +++|          LDD    I2
00327  M00S00306.wrm     +++|          LMN    TXYAL
00328  M00S00307.wrm     +++|          STD    I2
00329  M00S00308.wrm     +++|          UJN    D2WX        RETURN
00330  M00S00309.wrm     +++| D3W      SPACE  4
00331  M00S00310.wrm     +++|**        D3W - DISPLAY 3 WORMS.
Line S00311 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00332  M01S00311.ns22000 ---|*         CALLS  DSW, ASW
00333  M01S00312.ns22000 ---|*         USES   I1, I2, CT - CT+2
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00334  M01S00020.ns22000 +++|*
00335  M01S00021.ns22000 +++|*         CALLS  ASW, DSW.
00336  M01S00022.ns22000 +++|*
00337  M01S00023.ns22000 +++|*         USES   I1, I2, CT - CT+2.
00338  M00S00313.wrm     +++|
00339  M00S00314.wrm     +++| D3W      SUBR               ENTRY/EXIT
00340  M00S00315.wrm     +++|          RJM    DSW         DISPLAY SHORT WORM
00341  M00S00316.wrm     +++|          SOM    CT,I1
00342  M00S00317.wrm     +++|          NJN    D3W1        IF NOT 4TH PASS
00343  M00S00318.wrm     +++|          RJM    ASW         ADVANCE SHORT WORM
00344  M00S00319.wrm     +++| D3W1     AOD    I1          ADVANCE INDICES
00345  M00S00320.wrm     +++|          SBN    3
00346  M00S00321.wrm     +++|          MJN    D3W2        IF < 3
00347  M00S00322.wrm     +++|          STD    I1          RESET TO 0
00348  M00S00323.wrm     +++|          STD    I2
00349  M00S00324.wrm     +++|          UJN    D3WX        RETURN
00350  M00S00325.wrm     +++|
00351  M00S00326.wrm     +++| D3W2     LDN    TXYAL
00352  M00S00327.wrm     +++|          RAD    I2
00353  M00S00328.wrm     +++|          UJN    D3WX        RETURN
00354  M00S00329.wrm     +++| D4W      SPACE  4
00355  M00S00330.wrm     +++|**        D4W - DISPLAY 4 WORMS.
Line S00331 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00331.ns22000 ---|*         CALLS  DSW,ASW
00357  M01S00332.ns22000 ---|*         USES   I1, I2, CT - CT+3
Line S00024 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00358  M01S00024.ns22000 +++|*
00359  M01S00025.ns22000 +++|*         CALLS  ASW, DSW.
00360  M01S00026.ns22000 +++|*
00361  M01S00027.ns22000 +++|*         USES   I1, I2, CT - CT+3.
00362  M00S00333.wrm     +++|
00363  M00S00334.wrm     +++| D4W      SUBR               ENTRY/EXIT
00364  M00S00335.wrm     +++|          RJM    DSW         DISPLAY SHORT WORM
00365  M00S00336.wrm     +++|          SOM    CT,I1
00366  M00S00337.wrm     +++|          NJN    D4W1        IF NOT 4TH PASS
00367  M00S00338.wrm     +++|          RJM    ASW         ADVANCE SHORT WORM
00368  M00S00339.wrm     +++| D4W1     AOD    I1          ADVANCE INDICES
00369  M00S00340.wrm     +++|          SBN    4
00370  M00S00341.wrm     +++|          MJN    D4W2        IF < 4
00371  M00S00342.wrm     +++|          STD    I1          RESET TO 0
00372  M00S00343.wrm     +++|          STD    I2
00373  M00S00344.wrm     +++|          UJN    D4WX        RETURN
00374  M00S00345.wrm     +++|
00375  M00S00346.wrm     +++| D4W2     LDN    TXYAL
00376  M00S00347.wrm     +++|          RAD    I2
00377  M00S00348.wrm     +++|          UJN    D4WX
00378  M00S00349.wrm     +++| D5W      SPACE  4
00379  M00S00350.wrm     +++|**        D5W - DISPLAY 5 WORMS.
Line S00351 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00380  M01S00351.ns22000 ---|*         CALLS  DSW,ASW
00381  M01S00352.ns22000 ---|*         USES   I1, I2, CT - CT+4
Line S00028 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00382  M01S00028.ns22000 +++|*
00383  M01S00029.ns22000 +++|*         CALLS  ASW, DSW.
00384  M01S00030.ns22000 +++|*
00385  M01S00031.ns22000 +++|*         USES   I1, I2, CT - CT+4.
00386  M00S00353.wrm     +++|
00387  M00S00354.wrm     +++| D5W      SUBR               ENTRY/EXIT
00388  M00S00355.wrm     +++|          RJM    DSW         DISPLAY SHORT WORM
00389  M00S00356.wrm     +++|          SOM    CT,I1
00390  M00S00357.wrm     +++|          NJN    D5W1        IF NOT 4TH PASS
00391  M00S00358.wrm     +++|          RJM    ASW         ADVANCE SHORT WORM
00392  M00S00359.wrm     +++| D5W1     AOD    I1          ADVANCE INDICES
00393  M00S00360.wrm     +++|          SBN    5
00394  M00S00361.wrm     +++|          MJN    D5W2        IF < 5
00395  M00S00362.wrm     +++|          STD    I1          RESET TO 0
00396  M00S00363.wrm     +++|          STD    I2
00397  M00S00364.wrm     +++|          UJN    D5WX        RETURN
00398  M00S00365.wrm     +++|
00399  M00S00366.wrm     +++| D5W2     LDN    TXYAL
00400  M00S00367.wrm     +++|          RAD    I2
00401  M00S00368.wrm     +++|          UJN    D5WX        RETURN
00402  M00S00369.wrm     +++| D6W      SPACE  4
00403  M00S00370.wrm     +++|**        D6W - DISPLAY 6 SHORT WORMS.
Line S00371 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00404  M01S00371.ns22000 ---|*         CALLS  DSW,ASW
00405  M01S00372.ns22000 ---|*         USES   I1, I2, CT - CT+5
Line S00032 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00032.ns22000 +++|*
00407  M01S00033.ns22000 +++|*         CALLS  ASW, DSW.
00408  M01S00034.ns22000 +++|*
00409  M01S00035.ns22000 +++|*         USES   I1, I2, CT - CT+5.
00410  M00S00373.wrm     +++|
00411  M00S00374.wrm     +++| D6W      SUBR               ENTRY/EXIT
00412  M00S00375.wrm     +++|          RJM    DSW         DISPLAY SHORT WORM
00413  M00S00376.wrm     +++|          SOM    CT,I1
00414  M00S00377.wrm     +++|          NJN    D6W1        IF NOT 4TH PASS
00415  M00S00378.wrm     +++|          RJM    ASW         ADVANCE SHORT WORM
00416  M00S00379.wrm     +++| D6W1     AOD    I1          ADVANCE INDICES
00417  M00S00380.wrm     +++|          SBN    6
00418  M00S00381.wrm     +++|          MJN    D6W2        IF < 6
00419  M00S00382.wrm     +++|          STD    I1          RESET TO 0
00420  M00S00383.wrm     +++|          STD    I2
00421  M00S00384.wrm     +++|          UJN    D6WX        RETURN
00422  M00S00385.wrm     +++|
00423  M00S00386.wrm     +++| D6W2     LDN    TXYAL
00424  M00S00387.wrm     +++|          RAD    I2
00425  M00S00388.wrm     +++|          UJN    D6WX        RETURN
00426  M00S00389.wrm     +++| DLW      SPACE  4
Line S00390 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00427  M01S00390.ns22000 ---|**        DLW - DISPLAY LONG WORM
00428  M01S00391.ns22000 ---|*         CALLS  DSZ
00429  M01S00392.ns22000 ---|*         USES   T3, T4
Line S00036 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00430  M01S00036.ns22000 +++|**        DLW - DISPLAY LONG WORM.
00431  M01S00037.ns22000 +++|*
00432  M01S00038.ns22000 +++|*         CALLS  DSZ.
00433  M01S00039.ns22000 +++|*
00434  M01S00040.ns22000 +++|*         USES   T3, T4.
00435  M00S00393.wrm     +++|
00436  M00S00394.wrm     +++| DLW      SUBR               ENTRY/EXIT
00437  M00S00395.wrm     +++|          LDN    40
00438  M00S00396.wrm     +++|          STD    T4
00439  M00S00397.wrm     +++| DLW1     ADN    1
00440  M00S00398.wrm     +++|          SHN    -1
00441  M00S00399.wrm     +++|          STD    T3
00442  M00S00400.wrm     +++|          LDM    TXCL,T4
00443  M00S00401.wrm     +++|          ADC    6000
00444  M00S00402.wrm     +++|          STM    DSZB
00445  M00S00403.wrm     +++|          LDM    TYCL,T4
00446  M00S00404.wrm     +++|          ADC    7000
00447  M00S00405.wrm     +++|          STM    DSZC
00448  M00S00406.wrm     +++|          RJM    DSZ         DISPLAY SEGMENT
00449  M00S00407.wrm     +++|          SOD    T4          DECREMENT ELEMENT INDEX
00450  M00S00408.wrm     +++|          NJN    DLW1        LOOP FOR NEXT ELEMENT
00451  M00S00409.wrm     +++|          LDM    TXCL+40
00452  M00S00410.wrm     +++|          ADC    6000-1
00453  M00S00411.wrm     +++|          STM    DSZB
00454  M00S00412.wrm     +++|          LDM    TYCL+40
00455  M00S00413.wrm     +++|          ADC    7000
00456  M00S00414.wrm     +++|          STM    DSZC
00457  M00S00415.wrm     +++|          SOM    DSZA        CHANGE TO 64 CHAR./LINE
00458  M00S00416.wrm     +++|          LDN    77          SET REWRITE COUNT
00459  M00S00417.wrm     +++|          STD    T3
00460  M00S00418.wrm     +++|          RJM    DSZ         DISPLAY HEAD
00461  M00S00419.wrm     +++|          AOM    DSZA        RESTORE 32 CHAR./LINE
00462  M00S00420.wrm     +++|          LJM    DLWX        RETURN
00463  M00S00421.wrm     +++| DSW      SPACE  4
Line S00422 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00464  M01S00422.ns22000 ---|**        DSW - DISPLAY SHORT WORM
00465  M01S00423.ns22000 ---|*         USES   T3, T4
00466  M01S00424.ns22000 ---|*         CALLS  DSZ
Line S00041 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00467  M01S00041.ns22000 +++|**        DSW - DISPLAY SHORT WORM.
00468  M01S00042.ns22000 +++|*
00469  M01S00043.ns22000 +++|*         CALLS  DSZ.
00470  M01S00044.ns22000 +++|*
00471  M01S00045.ns22000 +++|*         USES   T3, T4.
00472  M00S00425.wrm     +++|
00473  M00S00426.wrm     +++| DSW      SUBR               ENTRY/EXIT
00474  M00S00427.wrm     +++|          LDN    20
00475  M00S00428.wrm     +++| DSW1     ADD    I2
00476  M00S00429.wrm     +++|          STD    T4
00477  M00S00430.wrm     +++|          SBD    I2
00478  M00S00431.wrm     +++|          STD    T3
00479  M00S00432.wrm     +++|          LDM    TXCA,T4
00480  M00S00433.wrm     +++|          ADC    6000
00481  M00S00434.wrm     +++|          STM    DSZB
00482  M00S00435.wrm     +++|          LDM    TYCA,T4
00483  M00S00436.wrm     +++|          ADC    7000
00484  M00S00437.wrm     +++|          STM    DSZC
00485  M00S00438.wrm     +++|          RJM    DSZ         DISPLAY SEGMENT
00486  M00S00439.wrm     +++|          SOD    T4          DECREMENT ELEMENT INDEX
00487  M00S00440.wrm     +++|          SBD    I2
00488  M00S00441.wrm     +++|          NJN    DSW1        LOOP FOR NEXT ELEMENT
00489  M00S00442.wrm     +++|          LDM    TXCA+20,I2
00490  M00S00443.wrm     +++|          ADC    6000-1
00491  M00S00444.wrm     +++|          STM    DSZB
00492  M00S00445.wrm     +++|          LDM    TYCA+20,I2
00493  M00S00446.wrm     +++|          ADC    7000
00494  M00S00447.wrm     +++|          STM    DSZC
00495  M00S00448.wrm     +++|          SOM    DSZA        CHANGE TO 64 CHAR./LINE
00496  M00S00449.wrm     +++|          LDN    77          SET REWRITE COUNT
00497  M00S00450.wrm     +++|          STD    T3
00498  M00S00451.wrm     +++|          RJM    DSZ         DISPLAY HEAD
00499  M00S00452.wrm     +++|          AOM    DSZA        RESTORE 32 CHAR./LINE
00500  M00S00453.wrm     +++|          LJM    DSWX        RETURN
00501  M00S00454.wrm     +++| DSZ      TITLE    DISPLAY SUBROUTINES
00502  M00S00455.wrm     +++|**        DSZ - DISPLAY ZERO.
Line S00456 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00456.ns22000 ---|*         ENTRY  (T3) = REWRITE COUNT
00504  M01S00457.ns22000 ---|*         USES   T3
Line S00046 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00505  M01S00046.ns22000 +++|*
00506  M01S00047.ns22000 +++|*         ENTRY  (T3) = REWRITE COUNT.
00507  M01S00048.ns22000 +++|*
00508  M01S00049.ns22000 +++|*         USES   T3.
00509  M00S00458.wrm     +++|
00510  M00S00459.wrm     +++| DSZ      SUBR               ENTRY/EXIT
00511  M00S00460.wrm     +++| DSZ1     FNC    7001,CH     SELECT WRITE LEFT SCREEN
00512  M00S00461.wrm     +++| DSZA     EQU    *-1
00513  M00S00462.wrm     +++|          ACN    CH
00514  M00S00463.wrm     +++| DSZ2     LDN    3           DISPLAY *0*
00515  M00S00464.wrm     +++|          OAM    DSZB,CH
00516  M00S00465.wrm     +++|          SOD    T3          DECREMENT REWRITE COUNT
00517  M00S00466.wrm     +++|          PJN    DSZ2        LOOP TO INTENSIFY
00518  M00S00467.wrm     +++|          DCN    CH
00519  M00S00468.wrm     +++|          UJN    DSZX        RETURN
00520  M00S00469.wrm     +++|
00521  M00S00470.wrm     +++| DSZB     DATA   6347
00522  M00S00471.wrm     +++| DSZC     DATA   7741
00523  M00S00472.wrm     +++|          DATA   L*0*
00524  M00S00473.wrm     +++| KBI      SPACE  4
00525  M00S00474.wrm     +++|**        KBI - KEYBOARD INPUT AND INTERPRETATION.
00526  M00S00475.wrm     +++|
00527  M00S00476.wrm     +++| KBI      SUBR               ENTRY/EXIT
00528  M00S00477.wrm     +++|          LDD    CP          CHECK ROLLOUT FLAG
00529  M00S00478.wrm     +++|          ADN    STSW
00530  M00S00479.wrm     +++|          CRD    CM
00531  M00S00480.wrm     +++|          LDD    CM+2
00532  M00S00481.wrm     +++|          LPN    1
00533  M00S00482.wrm     +++|          NJN    DRP         IF ROLLOUT FLAG SET
00534  M00S00483.wrm     +++|          FNC    7020,CH     SELECT KEYBOARD INPUT
00535  M00S00484.wrm     +++|          ACN    CH
00536  M00S00485.wrm     +++|          IAN    CH
00537  M00S00486.wrm     +++|          DCN    CH
00538  M00S00487.wrm     +++|          ZJN    KBIX        RETURN IF NO INPUT
00539  M00S00488.wrm     +++|          SBN    1RD
00540  M00S00489.wrm     +++|          NJN    KBI1        IF NOT +D+
00541  M00S00490.wrm     +++| DRP      RJM    DDS         DROP DISPLAY
00542  M00S00491.wrm     +++| DPP      MONITOR DPPM       DROP PP
00543  M00S00492.wrm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00544  M00S00493.wrm     +++|
00545  M00S00494.wrm     +++| KBI1     SBN    1RH-1RD
00546  M00S00495.wrm     +++|          NJN    KBI3        IF NOT +H+
00547  M00S00496.wrm     +++|          RJM    DDS         DROP DISPLAY
00548  M00S00497.wrm     +++|          RJM    RDS         REQUEST DISPLAY
00549  M00S00498.wrm     +++|          RJM    MDC         MODIFY CHANNELS
00550  M00S00499.wrm     +++| KBI2     LDN    4           RESET COUNTER
00551  M00S00500.wrm     +++|          STM    CTRA,I2
00552  M00S00501.wrm     +++|          STM    CTRL
00553  M00S00502.wrm     +++|          LJM    KBIX        RETURN
00554  M00S00503.wrm     +++|
00555  M00S00504.wrm     +++| KBI3     SBN    1R+-1RH
00556  M00S00505.wrm     +++|          NJN    KBI4        IF NOT *+*
00557  M00S00506.wrm     +++|          LDN    0           SET 0 DELAY
00558  M00S00507.wrm     +++|          UJN    KBI5
00559  M00S00508.wrm     +++|
00560  M00S00509.wrm     +++| KBI4     SBN    1R--1R+
00561  M00S00510.wrm     +++|          NJN    KBI6        IF NOT *-*
00562  M00S00511.wrm     +++|          LDM    TDCT,PI     SET DELAY
00563  M00S00512.wrm     +++| KBI5     STD    DC
00564  M00S00513.wrm     +++|          UJN    KBI2
00565  M00S00514.wrm     +++|
00566  M00S00515.wrm     +++| KBI6     SBN    1R*-1R-
00567  M00S00516.wrm     +++|          NJN    KBI7        IF NOT +*+
00568  M00S00517.wrm     +++|          RJM    HDC         HOLD DISPLAY CHANNEL
00569  M00S00518.wrm     +++|          UJN    KBI2
00570  M00S00519.wrm     +++|
00571  M00S00520.wrm     +++| KBI7     ADN    1R*-1R1
00572  M00S00521.wrm     +++|          NJN    KBI8        IF NOT *1*
00573  M00S00522.wrm     +++|          LDN    1           SET PROGRAM INDEX
00574  M00S00523.wrm     +++|          STD    PI
00575  M00S00524.wrm     +++|          LDC    D1W         SET TO DISPLAY 1 LONG WORM
00576  M00S00525.wrm     +++|          UJN    KBI10
00577  M00S00526.wrm     +++|
00578  M00S00527.wrm     +++| KBI8     SBN    1R2-1R1
00579  M00S00528.wrm     +++|          NJN    KBI9        IF NOT *2*
00580  M00S00529.wrm     +++|          LDN    2           SET PROGRAM INDEX
00581  M00S00530.wrm     +++|          STD    PI
00582  M00S00531.wrm     +++|          LDC    D2W         SET TO DISPLAY 2 SHORT WORMS
00583  M00S00532.wrm     +++|          UJN    KBI10
00584  M00S00533.wrm     +++|
00585  M00S00534.wrm     +++| KBI9     SBN    1R3-1R2
00586  M00S00535.wrm     +++|          NJN    KBI12       IF NOT *3*
00587  M00S00536.wrm     +++|          LDN    3           SET PROGRAM INDEX
00588  M00S00537.wrm     +++|          STD    PI
00589  M00S00538.wrm     +++|          LDC    D3W         SET TO DISPLAY 3 SHORT WORMS
00590  M00S00539.wrm     +++| KBI10    STD    PM          SET PROGRAM ADDRESS
00591  M00S00540.wrm     +++|          LDN    0           RESET INDICES
00592  M00S00541.wrm     +++|          STD    I1
00593  M00S00542.wrm     +++|          STD    I2
00594  M00S00543.wrm     +++|          LDM    TDCT,PI     SET DELAY
00595  M00S00544.wrm     +++|          STD    DC
00596  M00S00545.wrm     +++| KBI11    LJM    KBI2
00597  M00S00546.wrm     +++|
00598  M00S00547.wrm     +++| KBI12    SBN    1R4-1R3
00599  M00S00548.wrm     +++|          NJN    KBI13       IF NOT *4*
00600  M00S00549.wrm     +++|          LDN    4           SET PROGRAM INDEX
00601  M00S00550.wrm     +++|          STD    PI
00602  M00S00551.wrm     +++|          LDC    D4W         SET TO DISPLAY 4 SHORT WORMS
00603  M00S00552.wrm     +++|          UJN    KBI10
00604  M00S00553.wrm     +++|
00605  M00S00554.wrm     +++| KBI13    SBN    1R5-1R4
00606  M00S00555.wrm     +++|          NJN    KBI14       IF NOT *5*
00607  M00S00556.wrm     +++|          LDN    5           SET PROGRAM INDEX
00608  M00S00557.wrm     +++|          STD    PI
00609  M00S00558.wrm     +++|          LDC    D5W         SET TO DISPLAY 5 SHORT WORMS
00610  M00S00559.wrm     +++|          UJN    KBI10
00611  M00S00560.wrm     +++|
00612  M00S00561.wrm     +++| KBI14    SBN    1R6-1R5
00613  M00S00562.wrm     +++|          NJN    KBI11       IF NOT *6*
00614  M00S00563.wrm     +++|          LDN    6           SET PROGRAM INDEX
00615  M00S00564.wrm     +++|          STD    PI
00616  M00S00565.wrm     +++|          LDC    D6W         SET TO DISPLAY 6 SHORT WORMS
00617  M00S00566.wrm     +++|          UJN    KBI10
00618  M00S00567.wrm     +++| COMDSYS  SPACE  4
Line S00050 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00619  M01S00050.ns22000 +++|**        COMMON DECKS.
00620  M01S00051.ns22000 +++|
00621  M01S00052.ns22000 +++|
00622  M00S00568.wrm     +++|*CALL     COMDSYS
00623  M00S00569.wrm     +++|*CALL     COMDDSP
00624  M00S00570.wrm     +++|          SPACE  4,10
00625  M00S00571.wrm     +++| DIS      HERE               *COMDSYS* *DISPLA* EXPANSION
00626  M00S00572.wrm     +++| MDC      SPACE  4
00627  M00S00573.wrm     +++|**        MDC - MODIFY DISPLAY CHANNELS.
Line S00574 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00574.ns22000 ---|*         USES   T1,T2.
Line S00053 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00629  M01S00053.ns22000 +++|*
00630  M01S00054.ns22000 +++|*         USES   T1, T2.
00631  M00S00575.wrm     +++|
00632  M00S00576.wrm     +++| MDC      SUBR               ENTRY/EXIT
00633  M00S00577.wrm     +++|          LDM    /COMDDSP/DDSB
00634  M00S00578.wrm     +++|          STD    T2
00635  M00S00579.wrm     +++|          LMM    DSZ1        CHECK CHANNEL
00636  M00S00580.wrm     +++|          LPN    77
00637  M00S00581.wrm     +++|          ZJN    MDCX        RETURN IF SET
00638  M00S00582.wrm     +++|          LDC    DSZ1-1      SET FIRST ADDRESS
00639  M00S00583.wrm     +++|          STD    T1
00640  M00S00584.wrm     +++| MDC1     AOD    T1          ADVANCE ADDRESS
00641  M00S00585.wrm     +++|          LMC    MDC2
00642  M00S00586.wrm     +++|          ZJN    MDCX        RETURN IF COMPLETE
00643  M00S00587.wrm     +++|          LDI    T1          CHECK WORD
00644  M00S00588.wrm     +++|          LPC    7077
00645  M00S00589.wrm     +++|          LMC    7000+CH
00646  M00S00590.wrm     +++| MDC2     NJN    MDC1        IF NOT 7XCH
00647  M00S00591.wrm     +++|          LDI    T1          MODIFY CHANNEL
00648  M00S00592.wrm     +++|          SCN    77
00649  M00S00593.wrm     +++|          ADD    T2
00650  M00S00594.wrm     +++|          STI    T1
00651  M00S00595.wrm     +++|          UJN    MDC1        LOOP
00652  M00S00596.wrm     +++| PRS      TITLE  PRESET PROGRAM
00653  M00S00597.wrm     +++|**        PRS - PRESET PROGRAM.
00654  M00S00598.wrm     +++|*
00655  M00S00599.wrm     +++|*         EXIT   (NC) = NUMBER OF CP-S.
00656  M00S00600.wrm     +++|
00657  M00S00601.wrm     +++|
00658  M00S00602.wrm     +++| PRS      SUBR               ENTRY/EXIT
Line S00603 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00659  M01S00603.v23l617 ---|          RJM    CUA         CHECK USER ACCESS
00660  M01S00604.v23l617 ---|          ZJN    PRS1        IF ACCESS ALLOWED
00661  M01S00605.v23l617 ---|          LDC    PRSA        DAYFILE MESSAGE *ILLEGAL CONTROL CARD.*
00662  M01S00606.v23l617 ---|          RJM    DFM
00663  M01S00607.v23l617 ---|          MONITOR ABTM       ABORT JOB
00664  M01S00608.v23l617 ---|          LJM    PPR         EXIT TO PP RESIDENT
00665  M01S00609.v23l617 ---|
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00666  M01S00001.v23l617 +++|          CATD               CHECK ACCESS TO DISPLAY CONSOLE
00667  M00S00610.wrm     +++| PRS1     PAUSE
00668  M00S00611.wrm     +++|          LDD    FL
00669  M00S00612.wrm     +++|          ZJN    PRS3        IF FL = 0
00670  M00S00613.wrm     +++|          LDD    CM+1
00671  M00S00614.wrm     +++|          ZJN    PRS2        IF ERROR FLAG NOT SET
00672  M00S00615.wrm     +++|          LJM    DPP         DROP PP
00673  M00S00616.wrm     +++|
00674  M00S00617.wrm     +++| PRS2     STD    CM+2        SET CM REQUEST
00675  M00S00618.wrm     +++|          MONITOR RSTM       REQUEST 0 FL
00676  M00S00619.wrm     +++|          UJN    PRS1
00677  M00S00620.wrm     +++|
00678  M00S00621.wrm     +++| PRS3     RJM    RDS         REQUEST DISPLAY
00679  M00S00622.wrm     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
00680  M00S00623.wrm     +++|          LDN    0           CLEAR INDICES
00681  M00S00624.wrm     +++|          STD    I1
00682  M00S00625.wrm     +++|          STD    I2
00683  M00S00626.wrm     +++|          LDN    4           PRESET COUNTERS
00684  M00S00627.wrm     +++|          STD    CT
00685  M00S00628.wrm     +++|          STD    CT+1
00686  M00S00629.wrm     +++|          STD    CT+2
00687  M00S00630.wrm     +++|          STD    CT+3
00688  M00S00631.wrm     +++|          STD    CT+4
00689  M00S00632.wrm     +++|          STD    CT+5
00690  M00S00633.wrm     +++|          LDC    3777        SET DELAY COUNTER
00691  M00S00634.wrm     +++|          STD    DC
00692  M00S00635.wrm     +++|          LDC    D2W         PRESET FOR 2 WORMS
00693  M00S00636.wrm     +++|          STD    PM
00694  M00S00637.wrm     +++|          LDN    2           SET PROGRAM INDEX
00695  M00S00638.wrm     +++|          STD    PI
00696  M00S00639.wrm     +++|          LDN    NCPL        SAVE NUMBER OF CP-S
00697  M00S00640.wrm     +++|          CRD    CM
00698  M00S00641.wrm     +++|          AOD    CM+1
00699  M00S00642.wrm     +++|          STD    NC
00700  M00S00643.wrm     +++|          LJM    PRSX        RETURN
Line S00644 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00644.v23l617 ---|
00702  M01S00645.v23l617 ---| PRSA     DATA   C*ILLEGAL CONTROL CARD.*
00703  M00S00646.wrm     +++|          SPACE  4
Line S00055 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00704  M01S00055.ns22000 +++|**        COMMON DECKS.
00705  M01S00056.ns22000 +++|
00706  M01S00057.ns22000 +++|
00707  M00S00647.wrm     +++|*CALL     COMPCUA
00708  M00S00648.wrm     +++| TDCT     TITLE    TABLES
00709  M00S00649.wrm     +++|**        TDCT - TABLE OF DELAY COUNTS.
00710  M00S00650.wrm     +++|
00711  M00S00651.wrm     +++| TDCT     DATA   0
00712  M00S00652.wrm     +++|          DATA   3777
00713  M00S00653.wrm     +++|          DATA   3777
00714  M00S00654.wrm     +++|          DATA   1777
00715  M00S00655.wrm     +++|          DATA   777
00716  M00S00656.wrm     +++|          DATA   0
00717  M00S00657.wrm     +++|          DATA   0
00718  M00S00658.wrm     +++| TDCTL    EQU    *-TDCT
00719  M00S00659.wrm     +++| CTRA     SPACE  4
00720  M00S00660.wrm     +++|**        TABLES OF X/Y COORDINATES.
Line S00661 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00721  M01S00661.ns22000 ---|*         NOTE:THE INITIAL ENTRIES SHOULD ALL BE ODD TO PREVENT
00722  M01S00662.ns22000 ---|*         THE WORM FROM WORKING ITSELF INTO A CORNER.
Line S00058 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00723  M01S00058.ns22000 +++|*
00724  M01S00059.ns22000 +++|*         NOTE   THE INITIAL ENTRIES SHOULD ALL BE ODD TO PREVENT
00725  M01S00060.ns22000 +++|*                THE WORM FROM WORKING ITSELF INTO A CORNER.
00726  M00S00663.wrm     +++|
00727  M00S00664.wrm     +++| CTRA     DATA   4
00728  M00S00665.wrm     +++|
00729  M00S00666.wrm     +++| TXCA     DATA   0
00730  M00S00667.wrm     +++|          DATA   353
00731  M00S00668.wrm     +++|          DATA   353
00732  M00S00669.wrm     +++|          DATA   353
00733  M00S00670.wrm     +++|          DATA   357
00734  M00S00671.wrm     +++|          DATA   363
00735  M00S00672.wrm     +++|          DATA   367
00736  M00S00673.wrm     +++|          DATA   373
00737  M00S00674.wrm     +++|          DATA   367
00738  M00S00675.wrm     +++|          DATA   363
00739  M00S00676.wrm     +++|          DATA   357
00740  M00S00677.wrm     +++|          DATA   353
00741  M00S00678.wrm     +++|          DATA   353
00742  M00S00679.wrm     +++|          DATA   353
00743  M00S00680.wrm     +++|          DATA   353
00744  M00S00681.wrm     +++|          DATA   353
00745  M00S00682.wrm     +++|          DATA   347
00746  M00S00683.wrm     +++| TYCA     DATA   0
00747  M00S00684.wrm     +++|          DATA   725
00748  M00S00685.wrm     +++|          DATA   721
00749  M00S00686.wrm     +++|          DATA   715
00750  M00S00687.wrm     +++|          DATA   721
00751  M00S00688.wrm     +++|          DATA   725
00752  M00S00689.wrm     +++|          DATA   731
00753  M00S00690.wrm     +++|          DATA   735
00754  M00S00691.wrm     +++|          DATA   741
00755  M00S00692.wrm     +++|          DATA   745
00756  M00S00693.wrm     +++|          DATA   751
00757  M00S00694.wrm     +++|          DATA   755
00758  M00S00695.wrm     +++|          DATA   751
00759  M00S00696.wrm     +++|          DATA   745
00760  M00S00697.wrm     +++|          DATA   741
00761  M00S00698.wrm     +++|          DATA   735
00762  M00S00699.wrm     +++|          DATA   741
00763  M00S00700.wrm     +++| TXYAL    EQU    *-CTRA
00764  M00S00701.wrm     +++|
00765  M00S00702.wrm     +++| CTRB     DATA   4
00766  M00S00703.wrm     +++|
00767  M00S00704.wrm     +++|          DATA   0
00768  M00S00705.wrm     +++|          DATA   273
00769  M00S00706.wrm     +++|          DATA   277
00770  M00S00707.wrm     +++|          DATA   303
00771  M00S00708.wrm     +++|          DATA   277
00772  M00S00709.wrm     +++|          DATA   277
00773  M00S00710.wrm     +++|          DATA   277
00774  M00S00711.wrm     +++|          DATA   273
00775  M00S00712.wrm     +++|          DATA   273
00776  M00S00713.wrm     +++|          DATA   273
00777  M00S00714.wrm     +++|          DATA   273
00778  M00S00715.wrm     +++|          DATA   273
00779  M00S00716.wrm     +++|          DATA   267
00780  M00S00717.wrm     +++|          DATA   267
00781  M00S00718.wrm     +++|          DATA   267
00782  M00S00719.wrm     +++|          DATA   267
00783  M00S00720.wrm     +++|          DATA   267
00784  M00S00721.wrm     +++|          DATA   0
00785  M00S00722.wrm     +++|          DATA   125
00786  M00S00723.wrm     +++|          DATA   125
00787  M00S00724.wrm     +++|          DATA   125
00788  M00S00725.wrm     +++|          DATA   131
00789  M00S00726.wrm     +++|          DATA   135
00790  M00S00727.wrm     +++|          DATA   141
00791  M00S00728.wrm     +++|          DATA   145
00792  M00S00729.wrm     +++|          DATA   141
00793  M00S00730.wrm     +++|          DATA   135
00794  M00S00731.wrm     +++|          DATA   131
00795  M00S00732.wrm     +++|          DATA   125
00796  M00S00733.wrm     +++|          DATA   131
00797  M00S00734.wrm     +++|          DATA   135
00798  M00S00735.wrm     +++|          DATA   141
00799  M00S00736.wrm     +++|          DATA   145
00800  M00S00737.wrm     +++|          DATA   151
00801  M00S00738.wrm     +++|
00802  M00S00739.wrm     +++| CTRC     DATA   4
00803  M00S00740.wrm     +++|
00804  M00S00741.wrm     +++|          DATA   0
00805  M00S00742.wrm     +++|          DATA   633
00806  M00S00743.wrm     +++|          DATA   633
00807  M00S00744.wrm     +++|          DATA   627
00808  M00S00745.wrm     +++|          DATA   623
00809  M00S00746.wrm     +++|          DATA   617
00810  M00S00747.wrm     +++|          DATA   617
00811  M00S00748.wrm     +++|          DATA   617
00812  M00S00749.wrm     +++|          DATA   617
00813  M00S00750.wrm     +++|          DATA   623
00814  M00S00751.wrm     +++|          DATA   623
00815  M00S00752.wrm     +++|          DATA   627
00816  M00S00753.wrm     +++|          DATA   633
00817  M00S00754.wrm     +++|          DATA   637
00818  M00S00755.wrm     +++|          DATA   643
00819  M00S00756.wrm     +++|          DATA   647
00820  M00S00757.wrm     +++|          DATA   653
00821  M00S00758.wrm     +++|          DATA   0
00822  M00S00759.wrm     +++|          DATA   515
00823  M00S00760.wrm     +++|          DATA   511
00824  M00S00761.wrm     +++|          DATA   511
00825  M00S00762.wrm     +++|          DATA   511
00826  M00S00763.wrm     +++|          DATA   515
00827  M00S00764.wrm     +++|          DATA   521
00828  M00S00765.wrm     +++|          DATA   525
00829  M00S00766.wrm     +++|          DATA   531
00830  M00S00767.wrm     +++|          DATA   531
00831  M00S00768.wrm     +++|          DATA   535
00832  M00S00769.wrm     +++|          DATA   541
00833  M00S00770.wrm     +++|          DATA   541
00834  M00S00771.wrm     +++|          DATA   545
00835  M00S00772.wrm     +++|          DATA   545
00836  M00S00773.wrm     +++|          DATA   545
00837  M00S00774.wrm     +++|          DATA   545
00838  M00S00775.wrm     +++|
00839  M00S00776.wrm     +++| CTRD     DATA   4
00840  M00S00777.wrm     +++|
00841  M00S00778.wrm     +++|          DATA   0
00842  M00S00779.wrm     +++|          DATA   725
00843  M00S00780.wrm     +++|          DATA   721
00844  M00S00781.wrm     +++|          DATA   715
00845  M00S00782.wrm     +++|          DATA   721
00846  M00S00783.wrm     +++|          DATA   725
00847  M00S00784.wrm     +++|          DATA   731
00848  M00S00785.wrm     +++|          DATA   735
00849  M00S00786.wrm     +++|          DATA   741
00850  M00S00787.wrm     +++|          DATA   745
00851  M00S00788.wrm     +++|          DATA   751
00852  M00S00789.wrm     +++|          DATA   755
00853  M00S00790.wrm     +++|          DATA   751
00854  M00S00791.wrm     +++|          DATA   745
00855  M00S00792.wrm     +++|          DATA   741
00856  M00S00793.wrm     +++|          DATA   735
00857  M00S00794.wrm     +++|          DATA   741
00858  M00S00795.wrm     +++|          DATA   0
00859  M00S00796.wrm     +++|          DATA   353
00860  M00S00797.wrm     +++|          DATA   353
00861  M00S00798.wrm     +++|          DATA   353
00862  M00S00799.wrm     +++|          DATA   357
00863  M00S00800.wrm     +++|          DATA   363
00864  M00S00801.wrm     +++|          DATA   367
00865  M00S00802.wrm     +++|          DATA   373
00866  M00S00803.wrm     +++|          DATA   367
00867  M00S00804.wrm     +++|          DATA   363
00868  M00S00805.wrm     +++|          DATA   357
00869  M00S00806.wrm     +++|          DATA   353
00870  M00S00807.wrm     +++|          DATA   353
00871  M00S00808.wrm     +++|          DATA   353
00872  M00S00809.wrm     +++|          DATA   353
00873  M00S00810.wrm     +++|          DATA   353
00874  M00S00811.wrm     +++|          DATA   347
00875  M00S00812.wrm     +++|
00876  M00S00813.wrm     +++| CTRE     DATA   4
00877  M00S00814.wrm     +++|
00878  M00S00815.wrm     +++|          DATA   0
00879  M00S00816.wrm     +++|          DATA   125
00880  M00S00817.wrm     +++|          DATA   125
00881  M00S00818.wrm     +++|          DATA   125
00882  M00S00819.wrm     +++|          DATA   131
00883  M00S00820.wrm     +++|          DATA   135
00884  M00S00821.wrm     +++|          DATA   141
00885  M00S00822.wrm     +++|          DATA   145
00886  M00S00823.wrm     +++|          DATA   141
00887  M00S00824.wrm     +++|          DATA   135
00888  M00S00825.wrm     +++|          DATA   131
00889  M00S00826.wrm     +++|          DATA   125
00890  M00S00827.wrm     +++|          DATA   131
00891  M00S00828.wrm     +++|          DATA   135
00892  M00S00829.wrm     +++|          DATA   141
00893  M00S00830.wrm     +++|          DATA   145
00894  M00S00831.wrm     +++|          DATA   151
00895  M00S00832.wrm     +++|          DATA   0
00896  M00S00833.wrm     +++|          DATA   273
00897  M00S00834.wrm     +++|          DATA   277
00898  M00S00835.wrm     +++|          DATA   303
00899  M00S00836.wrm     +++|          DATA   277
00900  M00S00837.wrm     +++|          DATA   277
00901  M00S00838.wrm     +++|          DATA   277
00902  M00S00839.wrm     +++|          DATA   273
00903  M00S00840.wrm     +++|          DATA   273
00904  M00S00841.wrm     +++|          DATA   273
00905  M00S00842.wrm     +++|          DATA   273
00906  M00S00843.wrm     +++|          DATA   273
00907  M00S00844.wrm     +++|          DATA   267
00908  M00S00845.wrm     +++|          DATA   267
00909  M00S00846.wrm     +++|          DATA   267
00910  M00S00847.wrm     +++|          DATA   267
00911  M00S00848.wrm     +++|          DATA   267
00912  M00S00849.wrm     +++|
00913  M00S00850.wrm     +++| CTRF     DATA   4
00914  M00S00851.wrm     +++|
00915  M00S00852.wrm     +++|          DATA   0
00916  M00S00853.wrm     +++|          DATA   515
00917  M00S00854.wrm     +++|          DATA   511
00918  M00S00855.wrm     +++|          DATA   511
00919  M00S00856.wrm     +++|          DATA   511
00920  M00S00857.wrm     +++|          DATA   515
00921  M00S00858.wrm     +++|          DATA   521
00922  M00S00859.wrm     +++|          DATA   525
00923  M00S00860.wrm     +++|          DATA   531
00924  M00S00861.wrm     +++|          DATA   531
00925  M00S00862.wrm     +++|          DATA   535
00926  M00S00863.wrm     +++|          DATA   541
00927  M00S00864.wrm     +++|          DATA   541
00928  M00S00865.wrm     +++|          DATA   545
00929  M00S00866.wrm     +++|          DATA   545
00930  M00S00867.wrm     +++|          DATA   545
00931  M00S00868.wrm     +++|          DATA   545
00932  M00S00869.wrm     +++|          DATA   0
00933  M00S00870.wrm     +++|          DATA   633
00934  M00S00871.wrm     +++|          DATA   633
00935  M00S00872.wrm     +++|          DATA   627
00936  M00S00873.wrm     +++|          DATA   623
00937  M00S00874.wrm     +++|          DATA   617
00938  M00S00875.wrm     +++|          DATA   617
00939  M00S00876.wrm     +++|          DATA   617
00940  M00S00877.wrm     +++|          DATA   617
00941  M00S00878.wrm     +++|          DATA   623
00942  M00S00879.wrm     +++|          DATA   623
00943  M00S00880.wrm     +++|          DATA   627
00944  M00S00881.wrm     +++|          DATA   633
00945  M00S00882.wrm     +++|          DATA   637
00946  M00S00883.wrm     +++|          DATA   643
00947  M00S00884.wrm     +++|          DATA   647
00948  M00S00885.wrm     +++|          DATA   653
00949  M00S00886.wrm     +++|
00950  M00S00887.wrm     +++| CTRL     DATA   4
00951  M00S00888.wrm     +++|
00952  M00S00889.wrm     +++| TXCL     DATA   0
00953  M00S00890.wrm     +++|          DATA   273
00954  M00S00891.wrm     +++|          DATA   277
00955  M00S00892.wrm     +++|          DATA   303
00956  M00S00893.wrm     +++|          DATA   277
00957  M00S00894.wrm     +++|          DATA   277
00958  M00S00895.wrm     +++|          DATA   277
00959  M00S00896.wrm     +++|          DATA   273
00960  M00S00897.wrm     +++|          DATA   273
00961  M00S00898.wrm     +++|          DATA   273
00962  M00S00899.wrm     +++|          DATA   273
00963  M00S00900.wrm     +++|          DATA   273
00964  M00S00901.wrm     +++|          DATA   267
00965  M00S00902.wrm     +++|          DATA   267
00966  M00S00903.wrm     +++|          DATA   267
00967  M00S00904.wrm     +++|          DATA   267
00968  M00S00905.wrm     +++|          DATA   267
00969  M00S00906.wrm     +++|          DATA   273
00970  M00S00907.wrm     +++|          DATA   273
00971  M00S00908.wrm     +++|          DATA   273
00972  M00S00909.wrm     +++|          DATA   273
00973  M00S00910.wrm     +++|          DATA   277
00974  M00S00911.wrm     +++|          DATA   277
00975  M00S00912.wrm     +++|          DATA   277
00976  M00S00913.wrm     +++|          DATA   273
00977  M00S00914.wrm     +++|          DATA   273
00978  M00S00915.wrm     +++|          DATA   273
00979  M00S00916.wrm     +++|          DATA   277
00980  M00S00917.wrm     +++|          DATA   303
00981  M00S00918.wrm     +++|          DATA   307
00982  M00S00919.wrm     +++|          DATA   313
00983  M00S00920.wrm     +++|          DATA   317
00984  M00S00921.wrm     +++|          DATA   323
00985  M00S00922.wrm     +++| TYCL     DATA   0
00986  M00S00923.wrm     +++|          DATA   125
00987  M00S00924.wrm     +++|          DATA   125
00988  M00S00925.wrm     +++|          DATA   125
00989  M00S00926.wrm     +++|          DATA   131
00990  M00S00927.wrm     +++|          DATA   135
00991  M00S00928.wrm     +++|          DATA   141
00992  M00S00929.wrm     +++|          DATA   145
00993  M00S00930.wrm     +++|          DATA   141
00994  M00S00931.wrm     +++|          DATA   135
00995  M00S00932.wrm     +++|          DATA   131
00996  M00S00933.wrm     +++|          DATA   125
00997  M00S00934.wrm     +++|          DATA   131
00998  M00S00935.wrm     +++|          DATA   135
00999  M00S00936.wrm     +++|          DATA   141
01000  M00S00937.wrm     +++|          DATA   145
01001  M00S00938.wrm     +++|          DATA   151
01002  M00S00939.wrm     +++|          DATA   151
01003  M00S00940.wrm     +++|          DATA   145
01004  M00S00941.wrm     +++|          DATA   141
01005  M00S00942.wrm     +++|          DATA   135
01006  M00S00943.wrm     +++|          DATA   135
01007  M00S00944.wrm     +++|          DATA   131
01008  M00S00945.wrm     +++|          DATA   125
01009  M00S00946.wrm     +++|          DATA   125
01010  M00S00947.wrm     +++|          DATA   131
01011  M00S00948.wrm     +++|          DATA   135
01012  M00S00949.wrm     +++|          DATA   135
01013  M00S00950.wrm     +++|          DATA   141
01014  M00S00951.wrm     +++|          DATA   145
01015  M00S00952.wrm     +++|          DATA   151
01016  M00S00953.wrm     +++|          DATA   155
01017  M00S00954.wrm     +++|          DATA   161
01018  M00S00955.wrm     +++|          SPACE  4
01019  M00S00956.wrm     +++|          END
cdc/nos2.source/opl.opl871/deck/wrm.txt ยท Last modified: by 127.0.0.1