WRM 
          IDENT  WRM,WRM
          PERIPH
          BASE   MIXED
          SST    RDS
*COMMENT  WRM - WORM(S) DISPLAY.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          TITLE  WRM - WORM(S) DISPLAY. 
          SPACE  4
***       WRM - WORM(S) DISPLAY.
*         AUTHOR UNKNOWN. 
*         DISASSEMBLED FROM OCTAL AND REVISED  -  JAN 69.  E.W. HOBBS.
*         REVISED.  E. W. HOBBS.  70/04/21. 
          SPACE  4
**        COMMON DECKS. 
  
  
*CALL     COMDMAC 
*CALL     COMPMAC 
*CALL     COMSCPS 
          SPACE  4
****      DIRECT LOCATION ASSIGNMENTS.
  
 NC       EQU    15          NUMBER OF CP-S (FOR *COMDSYS*) 
 XC       EQU    16          X - COORDINATE 
 YC       EQU    17          Y - COORDINATE 
 AB       EQU    20 - 24     CM WORD BUFFER (5 LOC) 
 I1       EQU    25          INDEX
 I2       EQU    26          INDEX
 EQ       EQU    27          EST ORDINAL
 DC       EQU    30          DELAY COUNTER
 PM       EQU    32          PROGRAM JUMP ADDRESS 
 PI       EQU    33          PROGRAM INDEX
 CT       EQU    34 - 37     PASS COUNTERS
  
**        ASSEMBLY CONSTANTS. 
  
 NAME     MICRO  1,, WORMS
 CH       EQU    CHDS        DISPLAY CHANNEL
 DSCT     EQU    0           DISPLAY CYCLE (SET = 0 FOR FULL SPEED) 
  
****
 WRM      TITLE  WRM - MAIN ROUTINE 
          ORG    PPFW 
  
**        WRM - MAIN ROUTINE. 
  
  
 WRM      RJM    PRS         PRESET 
 WRM1     RJM    KBI         CHECK KEYBOARD 
          RJM    0,PM        DISPLAY
          RJM    DEL         DELAY
          RJM    PSS         PAUSE FOR SYSTEM 
          UJN    WRM1        LOOP 
 DEL      TITLE    UTILITY SUBROUTINES
**        DEL - DELAY.
  
  
 DEL      SUBR               ENTRY/EXIT 
          LDD    DC          DELAY
          SBN    1
          PJN    *-1
          UJN    DELX        RETURN 
 RNG      SPACE  4
**        RNG - RANDOM NUMBER GENERATOR.
  
 RNG      SUBR               ENTRY/EXIT 
  
          IAN    14          READ CLOCK CHANNEL 
          LMM    RNGB,I1     COMPUTE RANDOM NUMBER
          RAM    RNGA,I1
          SHN    6
          RAM    RNGB,I1
          SHN    6
          LMM    RNGA,I1
          SHN    4
          RAM    RNGA,I1
          UJN    RNGX        RETURN 
  
 RNGA     DATA   6625 
          DATA   1347 
          DATA   3141 
          DATA   1415 
          DATA   4157 
          DATA   1514 
          DATA   7233 
 RNGB     DATA   1015 
          DATA   6553 
          DATA   2565 
          DATA   2761 
          DATA   3777 
          DATA   1313 
          DATA   1133 
 ALW      TITLE    GENERATE AND DISPLAY WORM(S) 
**        ALW - ADVANCE LONG WORM.
  
 ALW      SUBR               ENTRY/EXIT 
          SOM    CTRL        DECREMENT COUNTER
          NJN    ALW1        IF NEW RANDOM NUMBER NOT REQUIRED
          RJM    RNG         GENERATE RANDOM NUMBER 
          LPN    3
          SHN    1
          ADN    1
          STM    CTRL 
 ALW1     LDM    RNGA        COMPUTE NEW X INCREMENT
          STD    T6 
          SHN    -10
          LPN    14 
          STD    T7 
          LPN    10          CONVERT TO SYMMETRIC INCREMENT 
          ZJN    ALW2 
          LDD    T7 
          LMC    -10
          UJN    ALW3 
  
 ALW2     LDD    T7 
 ALW3     ADM    TXCL+40     GENERATE NEW X-COORDINATE
          STD    T7 
          PJN    ALW4 
          LMC    -0 
          UJN    ALW6 
  
 ALW4     ADC    -770 
          MJN    ALW5 
          STD    T2 
          LDC    770
          SBD    T2 
          UJN    ALW6 
  
 ALW5     LDD    T7 
 ALW6     STD    T3 
          LDD    T6          COMPUTE NEW Y INCREMENT
          LPN    14 
          STD    T7 
          LPN    10          CONVERT TO SYMMETRIC INCREMENT 
          ZJN    ALW7 
          LDD    T7 
          LMC    -10
          UJN    ALW8 
  
 ALW7     LDD    T7 
 ALW8     ADM    TYCL+40     GENERATE NEW Y-COORDINATE
          STD    T7 
          PJN    ALW9 
          LMC    -0 
          UJN    ALW11
  
 ALW9     ADC    -770 
          MJN    ALW10
          STD    T2 
          LDC    770
          SBD    T2 
          UJN    ALW11
  
 ALW10    LDD    T7 
 ALW11    STD    T4 
          LDD    T6 
          SHN    -6 
          LPN    3
          ADN    1
          STD    CT 
          LDN    4
          STD    T2 
 ALW12    LDM    TXCL+34,T2 
          LMD    T3 
          NJN    ALW13
          LDM    TYCL+34,T2 
          LMD    T4 
          NJN    ALW13
          LJM    ALWX        RETURN 
  
 ALW13    SOD    T2 
          NJN    ALW12
          LDN    1           SHIFT TABLE DOWN 
          STD    T1 
 ALW14    LDM    TXCL+1,T1
          STM    TXCL,T1
          LDM    TYCL+1,T1
          STM    TYCL,T1
          AOD    T1 
          LMN    40 
          NJN    ALW14
          LDD    T3 
          STM    TXCL+40
          LDD    T4 
          STM    TYCL+40
          LJM    ALWX        RETURN 
 ASW      SPACE  4
**        ASW - ADVANCE SHORT WORM. 
  
 ASW      SUBR               ENTRY/EXIT 
          SOM    CTRA,I2     DECREMENT COUNTER
          NJN    ASW1        IF NEW RANDOM NUMBER NOT REQUIRED
          RJM    RNG         GENERATE RANDOM NUMBER 
          LPN    3
          ADN    1
          STM    CTRA,I2
 ASW1     LDM    RNGA,I1     COMPUTE NEW X INCREMENT
          STD    T6 
          SHN    -10
          LPN    14 
          STD    T7 
          LPN    10          CONVERT TO SYMMETRIC INCREMENT 
          ZJN    ASW2 
          LDD    T7 
          LMC    -10
          UJN    ASW3 
  
 ASW2     LDD    T7 
 ASW3     ADM    TXCA+20,I2  GENERATE NEW X-COORDINATE
          STD    T7 
          PJN    ASW4 
          LMC    -0 
          UJN    ASW6 
  
 ASW4     ADC    -770 
          MJN    ASW5 
          STD    T2 
          LDC    770
          SBD    T2 
          UJN    ASW6 
  
 ASW5     LDD    T7 
 ASW6     STD    T3          COMPUTE NEW Y INCREMENT
          LDD    T6 
          LPN    14 
          STD    T7 
          LPN    10          CONVERT TO SYMMETRIC INCREMENT 
          ZJN    ASW7 
          LDD    T7 
          LMC    -10
          UJN    ASW8 
  
 ASW7     LDD    T7 
 ASW8     ADM    TYCA+20,I2  GENERATE NEW Y-COORDINATE
          STD    T7 
          PJN    ASW9 
          LMC    -0 
          UJN    ASW11
  
 ASW9     ADC    -770 
          MJN    ASW10
          STD    T2 
          LDC    770
          SBD    T2 
          UJN    ASW11
  
 ASW10    LDD    T7 
 ASW11    STD    T4 
          LDD    T6 
          SHN    -6 
          LPN    3
          ADN    1
          STM    CT,I1
          LDN    4
          ADD    I2 
          STD    T2 
 ASW12    LDM    TXCA+14,T2 
          LMD    T3 
          NJN    ASW13
          LDM    TYCA+14,T2 
          LMD    T4 
          NJN    ASW13
          LJM    ASWX        RETURN 
  
 ASW13    SOD    T2 
          SBD    I2 
          NJN    ASW12
          LDN    1           SHIFT TABLES DOWN
          ADD    I2 
          STD    T1 
 ASW14    LDM    TXCA+1,T1
          STM    TXCA,T1
          LDM    TYCA+1,T1
          STM    TYCA,T1
          AOD    T1 
          SBD    I2 
          LMN    20 
          NJN    ASW14
          LDD    T3 
          STM    TXCA+20,I2 
          LDD    T4 
          STM    TYCA+20,I2 
          LJM    ASWX        RETURN 
 D1W      SPACE  4
**        D1W - DISPLAY 1 WORM. 
* 
*         CALLS  ALW, DLW.
* 
*         USES   CT.
  
 D1W      SUBR               ENTRY/EXIT 
          LDD    DC          DELAY
          SBN    1
          PJN    *-1
          RJM    DLW         DISPLAY LONG WORM
          SOD    CT 
          NJN    D1WX        RETURN IF NOT 4TH PASS 
          RJM    ALW         ADVANCE LONG WORM
          UJN    D1WX        RETURN 
 D2W      SPACE  4
**        D2W - DISPLAY 2 WORMS.
* 
*         CALLS  ASW, DSW.
* 
*         USES   I1, I2, CT - CT+1. 
  
 D2W      SUBR               ENTRY/EXIT 
          RJM    DSW         DISPLAY SHORT WORM 
          SOM    CT,I1
          NJN    D2W1        IF NOT 4TH PASS
          RJM    ASW         ADVANCE SHORT WORM 
 D2W1     LDD    I1          TOGGLE INDICES 
          LMN    1
          STD    I1 
          LDD    I2 
          LMN    TXYAL
          STD    I2 
          UJN    D2WX        RETURN 
 D3W      SPACE  4
**        D3W - DISPLAY 3 WORMS.
* 
*         CALLS  ASW, DSW.
* 
*         USES   I1, I2, CT - CT+2. 
  
 D3W      SUBR               ENTRY/EXIT 
          RJM    DSW         DISPLAY SHORT WORM 
          SOM    CT,I1
          NJN    D3W1        IF NOT 4TH PASS
          RJM    ASW         ADVANCE SHORT WORM 
 D3W1     AOD    I1          ADVANCE INDICES
          SBN    3
          MJN    D3W2        IF < 3 
          STD    I1          RESET TO 0 
          STD    I2 
          UJN    D3WX        RETURN 
  
 D3W2     LDN    TXYAL
          RAD    I2 
          UJN    D3WX        RETURN 
 D4W      SPACE  4
**        D4W - DISPLAY 4 WORMS.
* 
*         CALLS  ASW, DSW.
* 
*         USES   I1, I2, CT - CT+3. 
  
 D4W      SUBR               ENTRY/EXIT 
          RJM    DSW         DISPLAY SHORT WORM 
          SOM    CT,I1
          NJN    D4W1        IF NOT 4TH PASS
          RJM    ASW         ADVANCE SHORT WORM 
 D4W1     AOD    I1          ADVANCE INDICES
          SBN    4
          MJN    D4W2        IF < 4 
          STD    I1          RESET TO 0 
          STD    I2 
          UJN    D4WX        RETURN 
  
 D4W2     LDN    TXYAL
          RAD    I2 
          UJN    D4WX 
 D5W      SPACE  4
**        D5W - DISPLAY 5 WORMS.
* 
*         CALLS  ASW, DSW.
* 
*         USES   I1, I2, CT - CT+4. 
  
 D5W      SUBR               ENTRY/EXIT 
          RJM    DSW         DISPLAY SHORT WORM 
          SOM    CT,I1
          NJN    D5W1        IF NOT 4TH PASS
          RJM    ASW         ADVANCE SHORT WORM 
 D5W1     AOD    I1          ADVANCE INDICES
          SBN    5
          MJN    D5W2        IF < 5 
          STD    I1          RESET TO 0 
          STD    I2 
          UJN    D5WX        RETURN 
  
 D5W2     LDN    TXYAL
          RAD    I2 
          UJN    D5WX        RETURN 
 D6W      SPACE  4
**        D6W - DISPLAY 6 SHORT WORMS.
* 
*         CALLS  ASW, DSW.
* 
*         USES   I1, I2, CT - CT+5. 
  
 D6W      SUBR               ENTRY/EXIT 
          RJM    DSW         DISPLAY SHORT WORM 
          SOM    CT,I1
          NJN    D6W1        IF NOT 4TH PASS
          RJM    ASW         ADVANCE SHORT WORM 
 D6W1     AOD    I1          ADVANCE INDICES
          SBN    6
          MJN    D6W2        IF < 6 
          STD    I1          RESET TO 0 
          STD    I2 
          UJN    D6WX        RETURN 
  
 D6W2     LDN    TXYAL
          RAD    I2 
          UJN    D6WX        RETURN 
 DLW      SPACE  4
**        DLW - DISPLAY LONG WORM.
* 
*         CALLS  DSZ. 
* 
*         USES   T3, T4.
  
 DLW      SUBR               ENTRY/EXIT 
          LDN    40 
          STD    T4 
 DLW1     ADN    1
          SHN    -1 
          STD    T3 
          LDM    TXCL,T4
          ADC    6000 
          STM    DSZB 
          LDM    TYCL,T4
          ADC    7000 
          STM    DSZC 
          RJM    DSZ         DISPLAY SEGMENT
          SOD    T4          DECREMENT ELEMENT INDEX
          NJN    DLW1        LOOP FOR NEXT ELEMENT
          LDM    TXCL+40
          ADC    6000-1 
          STM    DSZB 
          LDM    TYCL+40
          ADC    7000 
          STM    DSZC 
          SOM    DSZA        CHANGE TO 64 CHAR./LINE
          LDN    77          SET REWRITE COUNT
          STD    T3 
          RJM    DSZ         DISPLAY HEAD 
          AOM    DSZA        RESTORE 32 CHAR./LINE
          LJM    DLWX        RETURN 
 DSW      SPACE  4
**        DSW - DISPLAY SHORT WORM. 
* 
*         CALLS  DSZ. 
* 
*         USES   T3, T4.
  
 DSW      SUBR               ENTRY/EXIT 
          LDN    20 
 DSW1     ADD    I2 
          STD    T4 
          SBD    I2 
          STD    T3 
          LDM    TXCA,T4
          ADC    6000 
          STM    DSZB 
          LDM    TYCA,T4
          ADC    7000 
          STM    DSZC 
          RJM    DSZ         DISPLAY SEGMENT
          SOD    T4          DECREMENT ELEMENT INDEX
          SBD    I2 
          NJN    DSW1        LOOP FOR NEXT ELEMENT
          LDM    TXCA+20,I2 
          ADC    6000-1 
          STM    DSZB 
          LDM    TYCA+20,I2 
          ADC    7000 
          STM    DSZC 
          SOM    DSZA        CHANGE TO 64 CHAR./LINE
          LDN    77          SET REWRITE COUNT
          STD    T3 
          RJM    DSZ         DISPLAY HEAD 
          AOM    DSZA        RESTORE 32 CHAR./LINE
          LJM    DSWX        RETURN 
 DSZ      TITLE    DISPLAY SUBROUTINES
**        DSZ - DISPLAY ZERO. 
* 
*         ENTRY  (T3) = REWRITE COUNT.
* 
*         USES   T3.
  
 DSZ      SUBR               ENTRY/EXIT 
 DSZ1     FNC    7001,CH     SELECT WRITE LEFT SCREEN 
 DSZA     EQU    *-1
          ACN    CH 
 DSZ2     LDN    3           DISPLAY *0*
          OAM    DSZB,CH
          SOD    T3          DECREMENT REWRITE COUNT
          PJN    DSZ2        LOOP TO INTENSIFY
          DCN    CH 
          UJN    DSZX        RETURN 
  
 DSZB     DATA   6347 
 DSZC     DATA   7741 
          DATA   L*0* 
 KBI      SPACE  4
**        KBI - KEYBOARD INPUT AND INTERPRETATION.
  
 KBI      SUBR               ENTRY/EXIT 
          LDD    CP          CHECK ROLLOUT FLAG 
          ADN    STSW 
          CRD    CM 
          LDD    CM+2 
          LPN    1
          NJN    DRP         IF ROLLOUT FLAG SET
          FNC    7020,CH     SELECT KEYBOARD INPUT
          ACN    CH 
          IAN    CH 
          DCN    CH 
          ZJN    KBIX        RETURN IF NO INPUT 
          SBN    1RD
          NJN    KBI1        IF NOT +D+ 
 DRP      RJM    DDS         DROP DISPLAY 
 DPP      MONITOR DPPM       DROP PP
          LJM    PPR         EXIT TO PP RESIDENT
  
 KBI1     SBN    1RH-1RD
          NJN    KBI3        IF NOT +H+ 
          RJM    DDS         DROP DISPLAY 
          RJM    RDS         REQUEST DISPLAY
          RJM    MDC         MODIFY CHANNELS
 KBI2     LDN    4           RESET COUNTER
          STM    CTRA,I2
          STM    CTRL 
          LJM    KBIX        RETURN 
  
 KBI3     SBN    1R+-1RH
          NJN    KBI4        IF NOT *+* 
          LDN    0           SET 0 DELAY
          UJN    KBI5 
  
 KBI4     SBN    1R--1R+
          NJN    KBI6        IF NOT *-* 
          LDM    TDCT,PI     SET DELAY
 KBI5     STD    DC 
          UJN    KBI2 
  
 KBI6     SBN    1R*-1R-
          NJN    KBI7        IF NOT +*+ 
          RJM    HDC         HOLD DISPLAY CHANNEL 
          UJN    KBI2 
  
 KBI7     ADN    1R*-1R1
          NJN    KBI8        IF NOT *1* 
          LDN    1           SET PROGRAM INDEX
          STD    PI 
          LDC    D1W         SET TO DISPLAY 1 LONG WORM 
          UJN    KBI10
  
 KBI8     SBN    1R2-1R1
          NJN    KBI9        IF NOT *2* 
          LDN    2           SET PROGRAM INDEX
          STD    PI 
          LDC    D2W         SET TO DISPLAY 2 SHORT WORMS 
          UJN    KBI10
  
 KBI9     SBN    1R3-1R2
          NJN    KBI12       IF NOT *3* 
          LDN    3           SET PROGRAM INDEX
          STD    PI 
          LDC    D3W         SET TO DISPLAY 3 SHORT WORMS 
 KBI10    STD    PM          SET PROGRAM ADDRESS
          LDN    0           RESET INDICES
          STD    I1 
          STD    I2 
          LDM    TDCT,PI     SET DELAY
          STD    DC 
 KBI11    LJM    KBI2 
  
 KBI12    SBN    1R4-1R3
          NJN    KBI13       IF NOT *4* 
          LDN    4           SET PROGRAM INDEX
          STD    PI 
          LDC    D4W         SET TO DISPLAY 4 SHORT WORMS 
          UJN    KBI10
  
 KBI13    SBN    1R5-1R4
          NJN    KBI14       IF NOT *5* 
          LDN    5           SET PROGRAM INDEX
          STD    PI 
          LDC    D5W         SET TO DISPLAY 5 SHORT WORMS 
          UJN    KBI10
  
 KBI14    SBN    1R6-1R5
          NJN    KBI11       IF NOT *6* 
          LDN    6           SET PROGRAM INDEX
          STD    PI 
          LDC    D6W         SET TO DISPLAY 6 SHORT WORMS 
          UJN    KBI10
 COMDSYS  SPACE  4
**        COMMON DECKS. 
  
  
*CALL     COMDSYS 
*CALL     COMDDSP 
          SPACE  4,10 
 DIS      HERE               *COMDSYS* *DISPLA* EXPANSION 
 MDC      SPACE  4
**        MDC - MODIFY DISPLAY CHANNELS.
* 
*         USES   T1, T2.
  
 MDC      SUBR               ENTRY/EXIT 
          LDM    /COMDDSP/DDSB
          STD    T2 
          LMM    DSZ1        CHECK CHANNEL
          LPN    77 
          ZJN    MDCX        RETURN IF SET
          LDC    DSZ1-1      SET FIRST ADDRESS
          STD    T1 
 MDC1     AOD    T1          ADVANCE ADDRESS
          LMC    MDC2 
          ZJN    MDCX        RETURN IF COMPLETE 
          LDI    T1          CHECK WORD 
          LPC    7077 
          LMC    7000+CH
 MDC2     NJN    MDC1        IF NOT 7XCH
          LDI    T1          MODIFY CHANNEL 
          SCN    77 
          ADD    T2 
          STI    T1 
          UJN    MDC1        LOOP 
 PRS      TITLE  PRESET PROGRAM 
**        PRS - PRESET PROGRAM. 
* 
*         EXIT   (NC) = NUMBER OF CP-S. 
  
  
 PRS      SUBR               ENTRY/EXIT 
          CATD               CHECK ACCESS TO DISPLAY CONSOLE
 PRS1     PAUSE 
          LDD    FL 
          ZJN    PRS3        IF FL = 0
          LDD    CM+1 
          ZJN    PRS2        IF ERROR FLAG NOT SET
          LJM    DPP         DROP PP
  
 PRS2     STD    CM+2        SET CM REQUEST 
          MONITOR RSTM       REQUEST 0 FL 
          UJN    PRS1 
  
 PRS3     RJM    RDS         REQUEST DISPLAY
          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
          LDN    0           CLEAR INDICES
          STD    I1 
          STD    I2 
          LDN    4           PRESET COUNTERS
          STD    CT 
          STD    CT+1 
          STD    CT+2 
          STD    CT+3 
          STD    CT+4 
          STD    CT+5 
          LDC    3777        SET DELAY COUNTER
          STD    DC 
          LDC    D2W         PRESET FOR 2 WORMS 
          STD    PM 
          LDN    2           SET PROGRAM INDEX
          STD    PI 
          LDN    NCPL        SAVE NUMBER OF CP-S
          CRD    CM 
          AOD    CM+1 
          STD    NC 
          LJM    PRSX        RETURN 
          SPACE  4
**        COMMON DECKS. 
  
  
*CALL     COMPCUA 
 TDCT     TITLE    TABLES 
**        TDCT - TABLE OF DELAY COUNTS. 
  
 TDCT     DATA   0
          DATA   3777 
          DATA   3777 
          DATA   1777 
          DATA   777
          DATA   0
          DATA   0
 TDCTL    EQU    *-TDCT 
 CTRA     SPACE  4
**        TABLES OF X/Y COORDINATES.
* 
*         NOTE   THE INITIAL ENTRIES SHOULD ALL BE ODD TO PREVENT 
*                THE WORM FROM WORKING ITSELF INTO A CORNER.
  
 CTRA     DATA   4
  
 TXCA     DATA   0
          DATA   353
          DATA   353
          DATA   353
          DATA   357
          DATA   363
          DATA   367
          DATA   373
          DATA   367
          DATA   363
          DATA   357
          DATA   353
          DATA   353
          DATA   353
          DATA   353
          DATA   353
          DATA   347
 TYCA     DATA   0
          DATA   725
          DATA   721
          DATA   715
          DATA   721
          DATA   725
          DATA   731
          DATA   735
          DATA   741
          DATA   745
          DATA   751
          DATA   755
          DATA   751
          DATA   745
          DATA   741
          DATA   735
          DATA   741
 TXYAL    EQU    *-CTRA 
  
 CTRB     DATA   4
  
          DATA   0
          DATA   273
          DATA   277
          DATA   303
          DATA   277
          DATA   277
          DATA   277
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   267
          DATA   267
          DATA   267
          DATA   267
          DATA   267
          DATA   0
          DATA   125
          DATA   125
          DATA   125
          DATA   131
          DATA   135
          DATA   141
          DATA   145
          DATA   141
          DATA   135
          DATA   131
          DATA   125
          DATA   131
          DATA   135
          DATA   141
          DATA   145
          DATA   151
  
 CTRC     DATA   4
  
          DATA   0
          DATA   633
          DATA   633
          DATA   627
          DATA   623
          DATA   617
          DATA   617
          DATA   617
          DATA   617
          DATA   623
          DATA   623
          DATA   627
          DATA   633
          DATA   637
          DATA   643
          DATA   647
          DATA   653
          DATA   0
          DATA   515
          DATA   511
          DATA   511
          DATA   511
          DATA   515
          DATA   521
          DATA   525
          DATA   531
          DATA   531
          DATA   535
          DATA   541
          DATA   541
          DATA   545
          DATA   545
          DATA   545
          DATA   545
  
 CTRD     DATA   4
  
          DATA   0
          DATA   725
          DATA   721
          DATA   715
          DATA   721
          DATA   725
          DATA   731
          DATA   735
          DATA   741
          DATA   745
          DATA   751
          DATA   755
          DATA   751
          DATA   745
          DATA   741
          DATA   735
          DATA   741
          DATA   0
          DATA   353
          DATA   353
          DATA   353
          DATA   357
          DATA   363
          DATA   367
          DATA   373
          DATA   367
          DATA   363
          DATA   357
          DATA   353
          DATA   353
          DATA   353
          DATA   353
          DATA   353
          DATA   347
  
 CTRE     DATA   4
  
          DATA   0
          DATA   125
          DATA   125
          DATA   125
          DATA   131
          DATA   135
          DATA   141
          DATA   145
          DATA   141
          DATA   135
          DATA   131
          DATA   125
          DATA   131
          DATA   135
          DATA   141
          DATA   145
          DATA   151
          DATA   0
          DATA   273
          DATA   277
          DATA   303
          DATA   277
          DATA   277
          DATA   277
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   267
          DATA   267
          DATA   267
          DATA   267
          DATA   267
  
 CTRF     DATA   4
  
          DATA   0
          DATA   515
          DATA   511
          DATA   511
          DATA   511
          DATA   515
          DATA   521
          DATA   525
          DATA   531
          DATA   531
          DATA   535
          DATA   541
          DATA   541
          DATA   545
          DATA   545
          DATA   545
          DATA   545
          DATA   0
          DATA   633
          DATA   633
          DATA   627
          DATA   623
          DATA   617
          DATA   617
          DATA   617
          DATA   617
          DATA   623
          DATA   623
          DATA   627
          DATA   633
          DATA   637
          DATA   643
          DATA   647
          DATA   653
  
 CTRL     DATA   4
  
 TXCL     DATA   0
          DATA   273
          DATA   277
          DATA   303
          DATA   277
          DATA   277
          DATA   277
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   267
          DATA   267
          DATA   267
          DATA   267
          DATA   267
          DATA   273
          DATA   273
          DATA   273
          DATA   273
          DATA   277
          DATA   277
          DATA   277
          DATA   273
          DATA   273
          DATA   273
          DATA   277
          DATA   303
          DATA   307
          DATA   313
          DATA   317
          DATA   323
 TYCL     DATA   0
          DATA   125
          DATA   125
          DATA   125
          DATA   131
          DATA   135
          DATA   141
          DATA   145
          DATA   141
          DATA   135
          DATA   131
          DATA   125
          DATA   131
          DATA   135
          DATA   141
          DATA   145
          DATA   151
          DATA   151
          DATA   145
          DATA   141
          DATA   135
          DATA   135
          DATA   131
          DATA   125
          DATA   125
          DATA   131
          DATA   135
          DATA   135
          DATA   141
          DATA   145
          DATA   151
          DATA   155
          DATA   161
          SPACE  4
          END 
