Retro1.org codex

DOG

[00007] DOG - SNOOPY DISPLAY ROUTINE.
[00009] SNOOPY DISPLAY ROUTINE.
[00053] SUPER DOG 70/07/25.
[00055] MAIN PROGRAM.
[00069] ALT - CHANGE ALTITUDE.
[00117] CRO - CHECK ROLLOUT STATUS.
[00139] DRP - DROP PP.
[00146] DSD - DISPLAY DOT FIELD.
[00165] DSS - DISPLAY SYSTEM STATUS.
[00193] INV - INVERT SNOOPY.
[00218] KBI - PROCESS KEYBOARD INPUT.
[00238] LOV - LOAD OVERLAY.
[00312] MVE - MOVE SNOOPY.
[00368] PDD - PICK DIRECTION AND DISTANCE.
[00420] PKS - PICK SCREEN.
[00438] PLS - PROCESS LARGE SIZE FIGURE.
[00467] PMS - PROCESS MEDIUM SIZE FIGURE.
[00489] PNP - PRESET NEXT PASS.
[00515] PSS - PROCESS SMALL SIZE FIGURE.
[00546] SZE - CHANGE SIZE OF MASTER PICTURE.
[00579] PRS - PRESET PROGRAM.
[00635] 9ZA - SNOOPY MASTER DISPLAY FIELD.
Source Code

          IDENT  DOG,DOG     MAIN PROGRAM. 
          PERIPH J
          BASE   MISCELLANEOUS
          SST    RDS
*COMMENT  DOG - WORLD WAR I FLYING ACE.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
          TITLE  DOG - SNOOPY DISPLAY ROUTINE.
          SPACE  4
***       DOG - SNOOPY DISPLAY ROUTINE.
*         L. W. SMITH.       69/03/21.
*         L. W. SMITH.       70/07/25.
          SPACE  4
**        COMMON DECKS.
 
 
*CALL     COMDMAC
*CALL     COMPMAC
*CALL     COMSCPS
*CALL     COMSPIM
          SPACE  4
****      DIRECT LOCATION ASSIGNMENTS.
 
 
 NC       EQU    15          NUMBER OF CP-S (FOR *COMDSYS*)
 BG       EQU    20          BEGINNING OF DOT FIELD DISPLAY
 EN       EQU    21          END OF DOT FIELD DISPLAY
 DL       EQU    22          DOT FIELD LENGTH
 FW       EQU    23          CURRENT DISPLAY FWA
 WC       EQU    24          CURRENT DISPLAY WORD COUNT
 XI       EQU    25          X INCREMENTER
 AL       EQU    26          ALTITUDE INDEX
 ST       EQU    27          STATUS
 CC       EQU    30          CYCLE COUNT
 ES       EQU    31          *END OF SCREEN* VALUE
 AK       EQU    32          ALTITUDE CONSTANT
 SB       EQU    33          SYSTEM BUSY FLAG
 XC       EQU    34          X COORDINATE
 YC       EQU    35          Y COORDINATE
 
 
 CNST     EQU    36          RANDOM CONSTANTS BUFFER (3 LOCATIONS)
 SK       EQU    CNST        SIZE CONSTANT
 TK       EQU    CNST+1      SCREEN CONSTANT
 DK       EQU    CNST+2      DIRECTION CONSTANT
****
          SPACE  4
*         ASSEMBLY CONSTANTS.
 
 
 NAME     MICRO  1,,$SNOOPY$
 CH       EQU    CHDS        DISPLAY CHANNEL
 DSCT     EQU    0           DISPLAY CYCLE TIME
          TITLE  SUPER DOG   70/07/25.
 DOG      SPACE  4
**        DOG - MAIN PROGRAM.
 
 
          ORG    PPFW
 DOG      RJM    PRS         PRESET PROGRAM
          RJM    RDS         REQUEST DISPLAY
          RJM    PNP         PRESET NEXT PASS
 DOG1     RJM    PSS         PAUSE FOR SYSTEM
          RJM    MVE         MOVE SNOOPY
          RJM    DSS         DISPLAY SYSTEM STATUS
          RJM    DSD         DISPLAY SNOOPY - DOT MODE
          RJM    KBI         PROCESS KEYBOARD INPUT
          UJN    DOG1        LOOP
 ALT      SPACE  4
**        ALT - CHANGE ALTITUDE.
*         ALTERNATELY ADDS OR SUBTRACTS ALTITUDE FROM
*         THE MASTER PICTURE (LOADED EVERY PASS).
*         MASTER PICTURE  Y MIN = 7200 , Y MAX = 7432.
*         LARGE FIGURE IS DISPLAYED WHEN Y MIN < 7140.
*         USES   T1,T2
*         EXIT   Y COORDINATES ADJUSTED.
*                X COORDINATES DESTROYED.
 
 
 ALT      SUBR               ENTRY/EXIT
          AOD    AL          ADVANCE TABLE INDEX
          LMC    TALTE
          NJN    ALT1        IF NOT END TABLE
          STD    AK
          LDC    TALT        RECYCLE TABLE
          STD    AL
 ALT1     AOD    AK
          LPN    1
          ZJN    ALT2
          LDC    ADDI&T2     ADD ALTITUDE
          UJN    *+3
 ALT2     LDC    SBDI&T2     SUBTRACT ALTITUDE
          STM    ALTA
          LDD    BG          SET INDEX
          STD    T1
          LDI    AL          SET COORDINATE INCREMENT VALUE
          STD    T2
 ALT3     LDI    T1
          ZJN    ALT4        IF NO COORDINATE
 ALTA     ADD    T2          INCREMENT COORDINATE
          STI    T1
 ALT4     AOD    T1          ADVANCE INDEX
          LMD    EN
          NJN    ALT3        IF NOT END OF DOT FIELD
          LJM    ALTX        RETURN
 
 
 TALT     BSS    0           TABLE OF ALTITUDE INCREMENTS
          CON    340         +
          CON    200         -   (LARGE FIGURE)
          CON    200         +
          CON    0           -
          CON    100         +
          CON    41          -   (LARGE FIGURE)
          CON    240         +
 TALTE    BSS    0           END TABLE
 CRO      SPACE  4
**        CRO - CHECK ROLLOUT STATUS.
 
 
 CRO      SUBR
          LDD    CP
          ADN    STSW
          CRD    CM
          LDD    CM+2
          LPN    1
          ZJN    CROX        RETURN IF NO ROLLOUT REQUEST
 
*         ENTER HERE FROM HOLD DISPLAY.
 
 CRO1     BSS    0
          RJM    DDS         DROP DISPLAY
          LDN    ZERL        CLEAR REQUEST BUFFER
          CRD    CM
          LDD    MA          WRITE IR TO MESSAGE BUFFER
          CWD    IR
          MONITOR  RECM      RECALL PP
          LJM    PPR         RETURN TO RESIDENT
 DRP      SPACE  4
**        DRP - DROP PP.
 
 
 DRP      RJM    DDS         DROP DISPLAY
 DPP      MONITOR DPPM       DROP PPU
          LJM    PPR         EXIT TO PP RESIDENT
 DSD      SPACE  4
**        DSD - DISPLAY DOT FIELD.
*
*         ENTRY  (WC) = WORD COUNT.
*                (FW) = FIRST WORD ADDRESS.
 
 
 DSD      SUBR               ENTRY/EXIT
          LDD    FW          SET OUTPUT FWA
          STM    DSDB
          LDD    WC
          ZJN    DSDX
          FNC    7010,CH     SELECT DOT MODE
 DSDA     EQU    *-1         SCREEN SELECTED
          ACN    CH
          OAM    **,CH       DISPLAY SNOOPY
 DSDB     EQU    *-1
          DCN    CH
          UJN    DSDX        RETURN
 DSS      SPACE  4
**        DSS - DISPLAY SYSTEM STATUS.
*
*         CALLS  SYS.
 
 
 DSS      SUBR               ENTRY/EXIT
          LDC    6000        SET X COORDINATE
          STD    XC
          RJM    SYS         DISPLAY SYSTEM STATUS
          DCN    CH+40
          LDD    SB
          ZJN    DSSX        RETURN IF OVERLAY LOAD NOT IN PROGRESS
          FNC    7001,CH
          ACN    CH
          LDN    DSSAL
          OAM    DSSA,CH     DISPLAY *SYSTEM BUSY.*
          LDN    DSSAL
          OAM    DSSA,CH     DISPLAY *SYSTEM BUSY.*
          LDN    DSSAL
          OAM    DSSA,CH     DISPLAY *SYSTEM BUSY.*
          DCN    CH
          UJN    DSSX        RETURN
 
 
 DSSA     DATA   6000,7040
          DATA   H*SYSTEM BUSY.*
 DSSAL    EQU    *-DSSA      LENGTH
 INV      SPACE  4,10
**        INV - INVERT SNOOPY.
*
*         EXIT   SNOOPY INVERTED.
*
*         USES   T1.
 
 
 INV      SUBR               ENTRY/EXIT
          LDD    BG          SET INDEX
          SBN    1
          STD    T1
 INV1     AOD    T1
          LPN    17
          LMN    BEGF-BEGF/20*20
          ZJN    INV2        IF X COORDINATE
          LDI    T1
          ZJN    INV1        IF NO COORDINATE
          LMC    777         COMPLEMENT COORDINATE
          STI    T1
          UJN    INV1        LOOP
 INV2     LDD    T1
          LMD    EN
          NJN    INV1        IF NOT END OF DOT FIELD
          UJN    INVX        RETURN
 KBI      SPACE  4
**        KBI - PROCESS KEYBOARD INPUT.
*
*         CALLS  DDS, DRP, RDS.
 
 
 KBI      SUBR               ENTRY/EXIT
          FNC    7020,CH     SELECT KEYBOARD INPUT
          ACN    CH
          IAN    CH
          DCN    CH
          ZJN    KBIX        IF NO INPUT
          LMN    1RD
          NJN    *+3         IF NOT *D*
          LJM    DRP         DROP PROGRAM
          LMN    1RD&1RH
          NJN    KBIX        IF NOT *H*
          RJM    DDS         DROP DISPLAY
          RJM    RDS         REQUEST DISPLAY
          UJN    KBIX        RETURN
 LOV      SPACE  4
**        LOV - LOAD OVERLAY.
*
*         EXIT   (SB) = O IF LOAD COMPLETE.
 
 
 LOV      SUBR               ENTRY/EXIT
          LDC    0
 LOVA     EQU    *-1         ENTRY POINT CONTROL
          NJN    LOV1        IF 1DL ALREADY REQUESTED
 
*         REQUEST 1DL.
 
          LDN    CH
          LPN    77
          STD    SB          SET SYSTEM BUSY FLAG
          STM    LOVC+2
          EXECUTE 1DL,=
          LDD    MA
          CWM    LOVC,ON     SET MESSAGE
          LDN    ZERL
          CRD    CM
          AOD    CM+1        SET PRIORITY REQUEST
          MONITOR RPPM       REQUEST 1DL
          LDD    CM+1
          STM    LOVB
          ZJN    LOVX        IF PPU NOT AVALIABLE
          AOM    LOVA        ADVANCE ENTRY POINT
          UJN    LOVX        RETURN
 
*         AWAIT 1DL READY.
 
 LOV1     LDC    **          READ 1DL INPUT REG
 LOVB     EQU    *-1
          CRD    CM
          LDD    CM+1
          SCN    37
          SHN    6
          LMD    CM
          LMC    3RL1D
          ZJN    LOV2        IF *1DL*
          LDN    0
          STM    LOVA        RE-LOAD 1DL
 LOV1X    LJM    LOVX        RETURN
 LOV2     LDD    CM+2
          LMC    7777
          NJN    LOV1X       RETURN IF 1DL NOT READY
 
*         INPUT OVERLAY.
 
          FNC    0,CH        DESELECT DISPLAY
          LDC    1000
          SBN    1
          NJN    *-1
          STM    LOVA        RESET ENTRY
          STD    CM+2        SET INPUT READY
          DCN    CH
          LDM    LOVB
          CWD    CM          SEND READY TO 1DL
          ACN    CH
          LDN    0
 LOV3     FJM    LOV4,CH
          SBN    1
          NJN    LOV3
          DCN    CH
          UJN    LOV4X       RETURN AND RE-TRY
 LOV4     LDN    0
          STD    SB          CLEAR SYSTEM BUSY FLAG
          IAM    OVL-5,CH    INPUT OVERLAY
 LOV4X    LJM    LOVX        RETURN
 
 
 LOVC     VFD    42/0L1DL    1DL CALL
          VFD    18/0L9ZA
 MVE      SPACE  4
**        MVE - MOVE SNOOPY.
*
*         ENTRY  (ST) = 0 IF MOVING ONTO THE SCREEN
*                       1 IF COMPLETELY ON THE SCREEN.
*                       2 IF GOING OFF THE SCREEN.
*                (XI) = *ADN N* OR *SBN N*.
*
*         USES   T1.
*
*         CALLS  PNP.
 
 
 MVE      SUBR               ENTRY/EXIT
          LDD    XI          SET X INCREMENTER
          STM    MVEA
          LDD    BG          SET INDEX
          STD    T1
 MVE1     LDI    T1
 MVEA     ADN    2           INCREMENT X COORDINATE
          STI    T1
          LDN    20          ADVANCE INDEX
          RAD    T1
          LMD    EN
          NJN    MVE1        IF NOT END OF DOT FIELD
          LDD    ST          CHECK STATUS
          SBN    1
          ZJN    MVE2        IF FULLY ON SCREEN
          PJN    MVE3        IF GOING OFF SCREEN
 
*         IF MOVING ONTO THE SCREEN.
 
          LDN    40          ADVANCE DISPLAY WORD COUNT
          RAD    WC
          LMD    DL
          NJN    MVEX        IF FULL FIELD LENGTH NOT REACHED
          AOD    ST          SET STATUS *ON SCREEN*
 
*         IF FULLY ON THE SCREEEN.
 
 MVE2     LDI    BG          CHECK FIRST X COORDINATE
          LMD    ES
          NJN    MVEX        IF NOT AT END OF SCREEN
          AOD    ST          SET STATUS *GOING OFF SCREEN*
 
*         IF MOVING OFF THE SCREEN.
 
 MVE3     LDN    40          ADVANCE DISPLAY FWA
          RAD    FW
          LDD    WC          DECREMENT WORD COUNT
          SBN    40
          STD    WC
          NJN    MVE4        IF NOT COMPLETELY OFF THE SCREEN
          STD    ST          RESET STATUS = COMMING ONTO SCREEN
          RJM    PNP         PRESET NEXT PASS
 MVE4     LJM    MVEX        RETURN
 PDD      SPACE  4
**        PDD - PICK DIRECTION AND DISTANCE.
 
 
 PDD      SUBR               ENTRY/EXIT
          LDD    DK          ADVANCE DIRECTION CONSTANT
          SHN    1
          STD    DK
          LPC    10000       PICK DIRECTION
          NJN    PDD1        IF LEFT TO RIGHT
 
*         IF RIGHT TO LEFT DIRECTION.
 
          AOD    DK
          LDC    SBNI&1      SET X INCREMENTER
          STD    XI
          LDC    6000        SET *END OF SCREEN* VALUE
          STD    ES
          LDC    7000        SET FIRST X COORDINATE
          STD    T2
          LDC    AODI&T2     SET *AOD T2*
          STD    T1
          UJN    PDD2
 
*         IF LEFT TO RIGHT DIRECTION.
 
 PDD1     LDC    ADNI&1      SET X INCREMENTER
          STD    XI
          LDC    7000        SET *END OF SCREEN* VALUE
          STD    ES
          LDC    6000        SET FIRST X COORDINATE
          STD    T2
          LDC    SODI&T2     SET *SOD T2*
          STD    T1
 
*         PRESET SIZE OF PICTURE.
 
 PDD2     LDM    1,BG        CHECK FIRST Y COORD
          ADC    -7200
          PJN    PDD3        IF BASE ALTITUDE \ 7140
          RJM    PLS         PROCESS LARGE SIZE FIGURE
          LJM    PDDX        RETURN
 PDD3     LDD    SK          ADVANCE SIZE CONSTANT
          SHN    1
          STD    SK
          LPC    10000
          NJN    PDD4        IF MEDIUM SIZE
          AOD    SK
          RJM    .PSS        PROCESS SMALL SIZE
          UJN    *+3
 PDD4     RJM    PMS         PROCESS MEDIUM SIZE
          LJM    PDDX        RETURN
 PKS      SPACE  4
**        PKS - PICK SCREEN.
*
*         EXIT  (DSDA) =  7110 OR 7010.
 
 
 PKS      SUBR               ENTRY/EXIT
          LDD    TK
          SHN    1           ADVANCE SCREEN SELECT CONSTANT
          STD    TK
          LPC    10000       PICK SCREEN
          NJN    PKS1        IF LEFT SCREEN
          AOD    TK
          LDC    7110
          UJN    *+3
 PKS1     LDC    7010
          STM    DSDA        SET LEFT SCREEN
          UJN    PKSX        RETURN
 PLS      SPACE  4
**        PLS - PROCESS LARGE SIZE FIGURE.
*
*         ENTRY  (T1) = *AOD T2* OR *SOD T2*.
*                (T2) = FIRST X COORDINATE.
*
*         CALLS  SZE.
 
 
 PLS      SUBR               ENTRY/EXIT
          LDD    T1          SET INCREMENT
          STM    PLSA
          STM    PLSB
          LDC    SHNI&1      SET SHIFT
          RJM    SZE         DOUBLE SIZE
          LDD    BG          SET INDEX
          STD    T1
 PLS1     LDD    T2
          STI    T1          STORE X COORDINATE
          LDN    20          ADVANCE INDEX
          RAD    T1
          LMD    EN
          ZJN    PLS2        IF END OF DOT FIELD
 PLSA     AOD    T2          ADVANCE X COORDINATE
 PLSB     AOD    T2
          UJN    PLS1        LOOP
 PLS2     LDN    3           SPEED UP X INCREMENTER
          RAD    XI
          UJN    PLSX        RETURN
 PMS      SPACE  4
**        PMS - PROCESS MEDIUM SIZE FIGURE.
*
*         ENTRY  (T1) = *AOD T2* OR *SOD T2*.
*                (T2) = FIRST X COORDINATE.
 
 
 PMS      SUBR               ENTRY/EXIT
          LDD    T1          SET INCREMENT
          STM    PMSA
          LDD    BG          SET INDEX
          STD    T1
 PMS1     LDD    T2
          STI    T1          STORE X COORDINATE
          LDN    20          ADVANCE INDEX
          RAD    T1
          LMD    EN
          ZJN    PMS2        IF END OF DOT FIELD
 PMSA     AOD    T2          ADVANCE X COORDINATE
          UJN    PMS1        LOOP
 PMS2     AOD    XI          SPEED UP X INCREMENTER
          UJN    PMSX        RETURN
 PNP      SPACE  4
**        PNP - PRESET NEXT PASS.
*
*         CALLS  ALT, DSS, INV, KBI, LOV, PDD, PKS, PSS.
 
 
 PNP      SUBR               ENTRY/EXIT
          RJM    CRO         CHECK ROLLOUT REQUEST
 PNP1     RJM    PSS         PAUSE FOR SYSTEM
          RJM    /COMDSYS/PSE PAUSE FOR CONSTANT DISPLAY TIME
          RJM    DSS         DISPLAY SYSTEM STATUS
          RJM    KBI         INPUT KEYBOARD
          RJM    LOV         LOAD OVERLAY
          LDD    SB          CHECK SYSTEM BUSY
          NJN    PNP1        IF LOAD NOT COMPLETE
          LDD    BG          RESET DISPLAY FWA
          STD    FW
          RJM    ALT         CHANGE ALTITUDE
          RJM    PKS         PICK SCREEN
          RJM    PDD         PICK DIRECTION, DISTANCE, AND VELOCITY
          AOD    CC          ADVANCE CYCLE COUNT
          SBN    5
          NJN    PNPX        RETURN  IF NOT 5TH PASS
          STD    CC          RESET
          RJM    INV         INVERT SNOOPY
          UJN    PNPX        RETURN
 .PSS     SPACE  4
**        PSS - PROCESS SMALL SIZE FIGURE.
*
*         ENTRY  (T1) = *AOD T2* OR *SOD T2*.
*                (T2) = FIRST X COORDINATE.
*
*         CALLS  SZE.
*
*         USES   T1, T2, T3.
 
 
 .PSS     SUBR               ENTRY/EXIT
          LDD    T1          SET INCREMENT
          STM    .PSSA
          LDC    SHNI&76     SET SHIFT
          RJM    SZE         DECREASE SIZE BY 1/2
          LDD    BG          SET INDEX
          STD    T1
          LDN    0           SET COUNTER
          STD    T3
 .PSS1    LDD    T2
          STI    T1          STORE X COORDINATE
          LDN    20          ADVANCE INDEX
          RAD    T1
          LMD    EN
          ZJN    .PSSX       IF END DOT FIELD
          AOD    T3          ADVANCE COUNTER
          LPN    1
          NJN    .PSS1       IF ODD COORDINATE
 .PSSA    AOD    T2          ADVANCE X COORDINATE
          UJN    .PSS1       LOOP
 SZE      SPACE  4
**        SZE - CHANGE SIZE OF MASTER PICTURE.
*
*         ENTRY  (A) = SHIFT INSTRUCTION.
*
*         EXIT   ALL Y COORDINATES ADJUSTED.
*                ALL X COORDINATES DESTROYED.
*
*         USES   T1.
 
 
 SZE      SUBR               ENTRY/EXIT
          STM    SZEA        SET SHIFT
          LDD    BG          SET INDEX
          STD    T1
 SZE1     LDI    T1
          ZJN    SZE2        IF NO COORD
          LPC    777
 SZEA     SHN    1           SET NEW COORDINATE
          LMC    7000
          STI    T1
 SZE2     AOD    T1          ADVANCE INDEX
          LMD    EN
          NJN    SZE1        IF NOT END OF DOT FIELD
          UJN    SZEX        RETURN
          SPACE  4
**        COMMON DECKS.
 
 
*CALL     COMDSYS
*CALL     COMDDSP
          SPACE  4,10
 DIS      HERE               *COMDSYS* *DISPLA* EXPANSION
 PRS      SPACE  4
**        PRS - PRESET PROGRAM.
*
*         EXIT   (NC) = NUMBER OF CP-S.
 
 
 PRS      SUBR               ENTRY/EXIT
          CATD               CHECK ACCESS TO DISPLAY CONSOLE
          LDD    IR+1        SET CONTROL POINT NUMBER IN *1DL* CALL
          LPN    37
          RAM    LOVC+1
          LDC    TALT-1      SET ALTITUDE INDEX
          STD    AL
          LDN    0
          STD    CC          CLEAR CYCLE COUNTER
          STD    WC          CLEAR DISPLAY WORD COUNT
          STD    SB          CLEAR *SYSTEM BUSY.* FLAG
          STD    AK          CLEAR ALTITUDE CONSTANT
          STD    ST          SET STATUS = MOVING ONTO THE SCREEN
          LDC    BEGF        SET BEGINNING OF DOT DISPLAY FIELD
          STD    BG
          LDC    ENDF        SET END OF DISPLAY FIELD
          STD    EN
          LDC    FLDL        SET DOT FIELD LENGTH
          STD    DL
 PRS1     IAN    14          LOAD RANDOM CONSTANTS BUFFER
 PRSA     STD    CNST
          SBN    1
          NJN    *-1
          AOM    PRSA        ADVANCE STORE INDEX
          LPN    77
          LMN    CNST+3
          NJN    PRS1        IF NOT END OF CONSTANT BUFFER
          LDC    CRO1
          STM    /COMDDSP/ROFA
 PRS1.1   PAUSE
          LDD    FL
          ZJN    PRS1.2      IF NO FL
          LDN    0
          STD    CM+1
          STD    CM+2        SET CM REQUEST
          MONITOR RSTM       REDUCE FL TO 0
          UJN    PRS1.1
 
 PRS1.2   LDN    NCPL        SAVE NUMBER OF CP-S
          CRD    CM
          AOD    CM+1
          STD    NC
          LJM    PRSX        RETURN
 COMMON   SPACE  4,10
**        COMMON DECKS.
 
 
*CALL     COMPCUA
          SPACE  4
 OVL      EQU    PRS+5      OVERLAY LOAD ADDRESS/CONTROL WORD
 9ZA      SPACE  4
**        9ZA - SNOOPY MASTER DISPLAY FIELD.
*         EVERY 20TH LOCATION IS AN X COORDINATE.
*         ALL OTHER LOCATIONS ARE EITHER Y COORDINATES OR ZERO.
*         SNOOPY S FRONT END IS AT THE BEGINNING OF THE FIELD.
 
 
          QUAL   SNOOPY
          IDENT  9ZA,OVL     MASTER PICTURE OVERLAY.
          ORG    OVL
*COMMENT  DOG - DISPLAY DATA.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 BEGF     BSS    0           BEGINNING OF DISPLAY FIELD
          LIST   -L
          DATA   6004
          DATA   7240
          DATA   7241
          DATA   7242
          DATA   7243
          BSSZ   13
          DATA   6003
          DATA   7240
          DATA   7243
          DATA   7244
          DATA   7245
          BSSZ   13
          DATA   6002
          DATA   7240
          DATA   7243
          DATA   7245
          DATA   7246
          DATA   7247
          BSSZ   12
          DATA   6001
          DATA   7240
          DATA   7243
          DATA   7247
          DATA   7250
          DATA   7251
          DATA   7252
          BSSZ   11
          DATA   6000
          DATA   7240
          DATA   7243
          DATA   7252
          DATA   7253
          DATA   7254
          BSSZ   12
          DATA   5777
          DATA   7240
          DATA   7243
          DATA   7254
          DATA   7255
          DATA   7256
          BSSZ   12
          DATA   5776
          DATA   7240
          DATA   7243
          DATA   7256
          DATA   7257
          DATA   7260
          BSSZ   12
          DATA   5775
          DATA   7240
          DATA   7243
          DATA   7260
          DATA   7261
          DATA   7262
          DATA   7263
          DATA   7371
          DATA   7372
          DATA   7373
          BSSZ   6
          DATA   5774
          DATA   7240
          DATA   7243
          DATA   7263
          DATA   7264
          DATA   7265
          DATA   7370
          DATA   7371
          DATA   7374
          DATA   7375
          BSSZ   6
          DATA   5773
          DATA   7240
          DATA   7243
          DATA   7265
          DATA   7266
          DATA   7267
          DATA   7270
          DATA   7367
          DATA   7370
          DATA   7371
          DATA   7372
          DATA   7376
          BSSZ   4
          DATA   5772
          DATA   7240
          DATA   7243
          DATA   7270
          DATA   7271
          DATA   7272
          DATA   7367
          DATA   7370
          DATA   7371
          DATA   7372
          DATA   7373
          DATA   7377
          BSSZ   4
          DATA   5771
          DATA   7240
          DATA   7243
          DATA   7272
          DATA   7273
          DATA   7274
          DATA   7367
          DATA   7370
          DATA   7371
          DATA   7372
          DATA   7373
          DATA   7374
          DATA   7377
          BSSZ   3
          DATA   5770
          DATA   7240
          DATA   7243
          DATA   7274
          DATA   7275
          DATA   7276
          DATA   7277
          DATA   7367
          DATA   7370
          DATA   7371
          DATA   7372
          DATA   7373
          DATA   7374
          DATA   7377
          BSSZ   2
          DATA   5767
          DATA   7240
          DATA   7243
          DATA   7277
          DATA   7300
          DATA   7301
          DATA   7366
          DATA   7367
          DATA   7370
          DATA   7371
          DATA   7372
          DATA   7374
          DATA   7375
          DATA   7376
          DATA   7377
          DATA   7400
          DATA   5766
          DATA   7240
          DATA   7243
          DATA   7301
          DATA   7302
          DATA   7303
          DATA   7365
          DATA   7366
          DATA   7400
          DATA   7401
          DATA   7402
          BSSZ   5
          DATA   5765
          DATA   7240
          DATA   7243
          DATA   7303
          DATA   7304
          DATA   7305
          DATA   7306
          DATA   7363
          DATA   7402
          DATA   7403
          BSSZ   6
          DATA   5764
          DATA   7240
          DATA   7243
          DATA   7306
          DATA   7307
          DATA   7310
          DATA   7311
          DATA   7362
          DATA   7404
          DATA   7405
          BSSZ   6
          DATA   5763
          DATA   7240
          DATA   7243
          DATA   7311
          DATA   7312
          DATA   7313
          DATA   7362
          DATA   7406
          BSSZ   10
          DATA   5762
          DATA   7240
          DATA   7243
          DATA   7313
          DATA   7314
          DATA   7315
          DATA   7316
          DATA   7361
          DATA   7407
          BSSZ   7
          DATA   5761
          DATA   7232
          DATA   7233
          DATA   7234
          DATA   7235
          DATA   7236
          DATA   7237
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7317
          DATA   7320
          DATA   7361
          DATA   7410
          BSSZ   2
          DATA   5760
          DATA   7222
          DATA   7223
          DATA   7224
          DATA   7225
          DATA   7226
          DATA   7227
          DATA   7230
          DATA   7231
          DATA   7232
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7361
          DATA   7410
          DATA   0000
          DATA   5757
          DATA   7212
          DATA   7213
          DATA   7214
          DATA   7215
          DATA   7216
          DATA   7217
          DATA   7220
          DATA   7221
          DATA   7222
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7411
          DATA   0000
          DATA   5756
          DATA   7202
          DATA   7203
          DATA   7204
          DATA   7205
          DATA   7206
          DATA   7207
          DATA   7210
          DATA   7211
          DATA   7212
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7411
          DATA   0000
          DATA   5755
          DATA   7200
          DATA   7201
          DATA   7202
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7411
          BSSZ   7
          DATA   5754
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7410
          DATA   0000
          BSSZ   10
          DATA   5753
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7410
          BSSZ   11
          DATA   5752
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7410
          BSSZ   11
          DATA   5751
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7410
          BSSZ   11
          DATA   5750
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7360
          DATA   7410
          BSSZ   11
          DATA   5747
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7361
          DATA   7411
          DATA   0000
          DATA   0000
          BSSZ   7
          DATA   5746
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7361
          DATA   7411
          BSSZ   11
          DATA   5745
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7361
          DATA   7412
          BSSZ   11
          DATA   5744
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7361
          DATA   7411
          DATA   7412
          DATA   7413
          DATA   7414
          BSSZ   6
          DATA   5743
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7345
          DATA   7346
          DATA   7351
          DATA   7352
          DATA   7362
          DATA   7410
          DATA   7415
          DATA   7416
          BSSZ   2
          DATA   5742
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7343
          DATA   7344
          DATA   7346
          DATA   7350
          DATA   7352
          DATA   7353
          DATA   7362
          DATA   7363
          DATA   7407
          DATA   7417
          DATA   0000
          DATA   5741
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7343
          DATA   7347
          DATA   7350
          DATA   7353
          DATA   7354
          DATA   7363
          DATA   7406
          DATA   7412
          DATA   7413
          DATA   7414
          DATA   7420
          DATA   5740
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7343
          DATA   7347
          DATA   7353
          DATA   7355
          DATA   7363
          DATA   7406
          DATA   7411
          DATA   7412
          DATA   7414
          DATA   7415
          DATA   7421
          DATA   5737
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7342
          DATA   7353
          DATA   7354
          DATA   7355
          DATA   7363
          DATA   7405
          DATA   7411
          DATA   7413
          DATA   7415
          DATA   7416
          DATA   7422
          DATA   5736
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7341
          DATA   7353
          DATA   7363
          DATA   7405
          DATA   7410
          DATA   7411
          DATA   7412
          DATA   7414
          DATA   7416
          DATA   7417
          DATA   7422
          DATA   5735
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7340
          DATA   7354
          DATA   7363
          DATA   7405
          DATA   7410
          DATA   7411
          DATA   7413
          DATA   7415
          DATA   7416
          DATA   7417
          DATA   7422
          DATA   5734
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7340
          DATA   7355
          DATA   7363
          DATA   7364
          DATA   7404
          DATA   7410
          DATA   7412
          DATA   7414
          DATA   7415
          DATA   7416
          DATA   7421
          DATA   5733
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7341
          DATA   7356
          DATA   7363
          DATA   7364
          DATA   7404
          DATA   7407
          DATA   7411
          DATA   7413
          DATA   7415
          DATA   7416
          DATA   7421
          DATA   5732
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7341
          DATA   7356
          DATA   7363
          DATA   7365
          DATA   7404
          DATA   7410
          DATA   7412
          DATA   7414
          DATA   7416
          DATA   7420
          DATA   7421
          DATA   5731
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7342
          DATA   7356
          DATA   7363
          DATA   7365
          DATA   7405
          DATA   7410
          DATA   7411
          DATA   7413
          DATA   7415
          DATA   7420
          DATA   7422
          DATA   5730
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7342
          DATA   7356
          DATA   7363
          DATA   7366
          DATA   7405
          DATA   7411
          DATA   7412
          DATA   7414
          DATA   7417
          DATA   7423
          DATA   7424
          DATA   5727
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7343
          DATA   7353
          DATA   7354
          DATA   7355
          DATA   7363
          DATA   7366
          DATA   7405
          DATA   7411
          DATA   7413
          DATA   7417
          DATA   7424
          DATA   5726
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7350
          DATA   7351
          DATA   7352
          DATA   7354
          DATA   7363
          DATA   7367
          DATA   7405
          DATA   7412
          DATA   7416
          DATA   7425
          DATA   5725
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7352
          DATA   7354
          DATA   7363
          DATA   7367
          DATA   7406
          DATA   7415
          DATA   7426
          BSSZ   3
          DATA   5724
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7352
          DATA   7354
          DATA   7362
          DATA   7363
          DATA   7367
          DATA   7406
          DATA   7407
          DATA   7414
          DATA   7426
          DATA   0000
          DATA   5723
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7352
          DATA   7354
          DATA   7362
          DATA   7367
          DATA   7406
          DATA   7410
          DATA   7413
          DATA   7427
          BSSZ   2
          DATA   5722
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7352
          DATA   7354
          DATA   7362
          DATA   7366
          DATA   7406
          DATA   7411
          DATA   7412
          DATA   7413
          DATA   7427
          DATA   0000
          DATA   5721
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7352
          DATA   7354
          DATA   7361
          DATA   7362
          DATA   7366
          DATA   7405
          DATA   7411
          DATA   7413
          DATA   7430
          DATA   0000
          DATA   5720
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7344
          DATA   7352
          DATA   7354
          DATA   7361
          DATA   7365
          DATA   7405
          DATA   7411
          DATA   7413
          DATA   7430
          BSSZ   2
          DATA   5717
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7343
          DATA   7352
          DATA   7354
          DATA   7357
          DATA   7360
          DATA   7361
          DATA   7404
          DATA   7411
          DATA   7413
          DATA   7431
          DATA   0000
          DATA   5716
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7343
          DATA   7352
          DATA   7353
          DATA   7354
          DATA   7355
          DATA   7356
          DATA   7360
          DATA   7403
          DATA   7411
          DATA   7413
          DATA   7431
          DATA   5715
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7337
          DATA   7340
          DATA   7341
          DATA   7343
          DATA   7352
          DATA   7355
          DATA   7360
          DATA   7402
          DATA   7411
          DATA   7413
          DATA   7432
          DATA   5714
          DATA   7200
          DATA   7320
          DATA   7326
          DATA   7327
          DATA   7330
          DATA   7331
          DATA   7332
          DATA   7333
          DATA   7343
          DATA   7352
          DATA   7360
          DATA   7401
          DATA   7411
          DATA   7414
          DATA   7432
          DATA   5713
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7324
          DATA   7325
          DATA   7334
          DATA   7336
          DATA   7343
          DATA   7360
          DATA   7377
          DATA   7400
          DATA   7410
          DATA   7415
          DATA   7432
          DATA   5712
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7322
          DATA   7323
          DATA   7335
          DATA   7343
          DATA   7352
          DATA   7360
          DATA   7375
          DATA   7376
          DATA   7407
          DATA   7415
          DATA   7432
          DATA   5711
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7321
          DATA   7336
          DATA   7343
          DATA   7360
          DATA   7372
          DATA   7373
          DATA   7374
          DATA   7405
          DATA   7406
          DATA   7416
          DATA   7432
          DATA   5710
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7337
          DATA   7343
          DATA   7354
          DATA   7360
          DATA   7366
          DATA   7367
          DATA   7370
          DATA   7371
          DATA   7404
          DATA   7416
          DATA   7432
          DATA   5707
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7340
          DATA   7343
          DATA   7354
          DATA   7360
          DATA   7363
          DATA   7364
          DATA   7365
          DATA   7370
          DATA   7403
          DATA   7416
          DATA   7431
          DATA   5706
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7340
          DATA   7342
          DATA   7354
          DATA   7357
          DATA   7360
          DATA   7361
          DATA   7362
          DATA   7402
          DATA   7416
          DATA   7431
          DATA   0000
          DATA   5705
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7314
          DATA   7337
          DATA   7342
          DATA   7354
          DATA   7356
          DATA   7360
          DATA   7401
          DATA   7416
          DATA   7431
          BSSZ   3
          DATA   5704
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7314
          DATA   7336
          DATA   7337
          DATA   7342
          DATA   7353
          DATA   7355
          DATA   7360
          DATA   7362
          DATA   7401
          DATA   7416
          DATA   7431
          DATA   0000
          DATA   5703
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7314
          DATA   7334
          DATA   7335
          DATA   7342
          DATA   7353
          DATA   7355
          DATA   7360
          DATA   7363
          DATA   7400
          DATA   7415
          DATA   7431
          DATA   0000
          DATA   5702
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7331
          DATA   7332
          DATA   7333
          DATA   7342
          DATA   7353
          DATA   7354
          DATA   7360
          DATA   7364
          DATA   7400
          DATA   7415
          DATA   7430
          DATA   5701
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7326
          DATA   7327
          DATA   7330
          DATA   7353
          DATA   7360
          DATA   7364
          DATA   7400
          DATA   7414
          DATA   7430
          BSSZ   2
          DATA   5700
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7326
          DATA   7353
          DATA   7360
          DATA   7365
          DATA   7400
          DATA   7413
          DATA   7427
          BSSZ   4
          DATA   5677
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7327
          DATA   7353
          DATA   7360
          DATA   7365
          DATA   7401
          DATA   7410
          DATA   7411
          DATA   7412
          DATA   7426
          BSSZ   2
          DATA   5676
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7330
          DATA   7352
          DATA   7353
          DATA   7360
          DATA   7366
          DATA   7401
          DATA   7407
          DATA   7410
          DATA   7426
          BSSZ   2
          DATA   5675
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7331
          DATA   7352
          DATA   7353
          DATA   7360
          DATA   7366
          DATA   7402
          DATA   7405
          DATA   7406
          DATA   7425
          BSSZ   2
          DATA   5674
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7332
          DATA   7351
          DATA   7353
          DATA   7360
          DATA   7367
          DATA   7403
          DATA   7404
          DATA   7424
          BSSZ   3
          DATA   5673
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7333
          DATA   7351
          DATA   7353
          DATA   7360
          DATA   7361
          DATA   7370
          DATA   7423
          DATA   0000
          DATA   0000
          DATA   0000
          DATA   0000
          DATA   5672
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7333
          DATA   7350
          DATA   7353
          DATA   7360
          DATA   7361
          DATA   7371
          DATA   7422
          BSSZ   4
          DATA   5671
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7321
          DATA   7333
          DATA   7347
          DATA   7353
          DATA   7360
          DATA   7361
          DATA   7372
          DATA   7420
          DATA   7421
          BSSZ   3
          DATA   5670
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7321
          DATA   7333
          DATA   7347
          DATA   7352
          DATA   7353
          DATA   7360
          DATA   7361
          DATA   7373
          DATA   7415
          DATA   7416
          DATA   7417
          DATA   0000
          DATA   5667
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7321
          DATA   7333
          DATA   7345
          DATA   7346
          DATA   7352
          DATA   7353
          DATA   7361
          DATA   7374
          DATA   7375
          DATA   7412
          DATA   7413
          DATA   7414
          DATA   5666
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7333
          DATA   7344
          DATA   7345
          DATA   7346
          DATA   7352
          DATA   7353
          DATA   7361
          DATA   7376
          DATA   7377
          DATA   7410
          DATA   7411
          DATA   5665
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7332
          DATA   7344
          DATA   7345
          DATA   7346
          DATA   7353
          DATA   7361
          DATA   7400
          DATA   7401
          DATA   7402
          DATA   7406
          DATA   7407
          DATA   5664
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7332
          DATA   7342
          DATA   7343
          DATA   7344
          DATA   7345
          DATA   7352
          DATA   7353
          DATA   7361
          DATA   7403
          DATA   7404
          DATA   7405
          DATA   5663
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7331
          DATA   7340
          DATA   7341
          DATA   7342
          DATA   7343
          DATA   7344
          DATA   7351
          DATA   7353
          DATA   7361
          BSSZ   2
          DATA   5662
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7330
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7341
          DATA   7342
          DATA   7343
          DATA   7344
          DATA   7351
          DATA   7353
          DATA   7361
          DATA   5661
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7341
          DATA   7342
          DATA   7343
          DATA   7350
          DATA   7351
          DATA   7353
          DATA   7361
          DATA   5660
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7341
          DATA   7350
          DATA   7351
          DATA   7353
          DATA   7361
          DATA   0000
          DATA   5657
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7341
          DATA   7350
          DATA   7351
          DATA   7353
          DATA   7361
          DATA   0000
          DATA   5656
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7333
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7341
          DATA   7350
          DATA   7353
          DATA   7361
          DATA   0000
          DATA   5655
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7333
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7350
          DATA   7353
          DATA   7361
          BSSZ   2
          DATA   5654
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7333
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7340
          DATA   7347
          DATA   7350
          DATA   7353
          DATA   7361
          DATA   0000
          DATA   5653
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7332
          DATA   7333
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7337
          DATA   7347
          DATA   7350
          DATA   7353
          DATA   7361
          DATA   0000
          DATA   5652
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7332
          DATA   7333
          DATA   7334
          DATA   7335
          DATA   7336
          DATA   7347
          DATA   7350
          DATA   7353
          DATA   7361
          BSSZ   2
          DATA   5651
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7331
          DATA   7332
          DATA   7333
          DATA   7334
          DATA   7335
          DATA   7347
          DATA   7353
          DATA   7361
          BSSZ   3
          DATA   5650
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7330
          DATA   7331
          DATA   7332
          DATA   7333
          DATA   7347
          DATA   7353
          DATA   7361
          BSSZ   4
          DATA   5647
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7326
          DATA   7327
          DATA   7330
          DATA   7331
          DATA   7347
          DATA   7353
          DATA   7361
          DATA   7362
          BSSZ   3
          DATA   5646
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7322
          DATA   7323
          DATA   7324
          DATA   7325
          DATA   7326
          DATA   7346
          DATA   7347
          DATA   7353
          DATA   7361
          DATA   7362
          DATA   0000
          DATA   5645
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7322
          DATA   7346
          DATA   7347
          DATA   7353
          DATA   7361
          DATA   7362
          BSSZ   5
          DATA   5644
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7321
          DATA   7322
          DATA   7346
          DATA   7347
          DATA   7352
          DATA   7353
          DATA   7362
          BSSZ   4
          DATA   5643
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7321
          DATA   7322
          DATA   7323
          DATA   7346
          DATA   7352
          DATA   7353
          DATA   7362
          BSSZ   4
          DATA   5642
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7320
          DATA   7321
          DATA   7322
          DATA   7323
          DATA   7346
          DATA   7352
          DATA   7353
          DATA   7362
          BSSZ   3
          DATA   5641
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7317
          DATA   7320
          DATA   7321
          DATA   7322
          DATA   7323
          DATA   7324
          DATA   7346
          DATA   7352
          DATA   7353
          DATA   7362
          DATA   0000
          DATA   5640
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7316
          DATA   7317
          DATA   7320
          DATA   7321
          DATA   7322
          DATA   7324
          DATA   7346
          DATA   7352
          DATA   7362
          BSSZ   2
          DATA   5637
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7316
          DATA   7317
          DATA   7320
          DATA   7321
          DATA   7324
          DATA   7346
          DATA   7352
          DATA   7362
          BSSZ   3
          DATA   5636
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7317
          DATA   7320
          DATA   7324
          DATA   7346
          DATA   7352
          DATA   7362
          DATA   7363
          BSSZ   4
          DATA   5635
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7317
          DATA   7324
          DATA   7346
          DATA   7352
          DATA   7362
          DATA   7363
          BSSZ   5
          DATA   5634
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7324
          DATA   7346
          DATA   7352
          DATA   7362
          DATA   7363
          BSSZ   6
          DATA   5633
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7323
          DATA   7346
          DATA   7352
          DATA   7362
          DATA   7363
          BSSZ   6
          DATA   5632
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7315
          DATA   7323
          DATA   7346
          DATA   7351
          DATA   7352
          DATA   7363
          BSSZ   6
          DATA   5631
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7323
          DATA   7346
          DATA   7351
          DATA   7352
          DATA   7363
          BSSZ   6
          DATA   5630
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7323
          DATA   7346
          DATA   7350
          DATA   7351
          DATA   7352
          DATA   7363
          BSSZ   5
          DATA   5627
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7322
          DATA   7346
          DATA   7350
          DATA   7351
          DATA   7352
          DATA   7363
          BSSZ   5
          DATA   5626
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7322
          DATA   7346
          DATA   7347
          DATA   7350
          DATA   7352
          DATA   7363
          BSSZ   5
          DATA   5625
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7317
          DATA   7322
          DATA   7346
          DATA   7347
          DATA   7350
          DATA   7352
          DATA   7363
          BSSZ   5
          DATA   5624
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7321
          DATA   7346
          DATA   7352
          DATA   7363
          BSSZ   7
          DATA   5623
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7346
          DATA   7352
          DATA   7363
          BSSZ   10
          DATA   5622
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7363
          BSSZ   11
          DATA   5621
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7363
          BSSZ   11
          DATA   5620
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7363
          BSSZ   11
          DATA   5617
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7363
          BSSZ   11
          DATA   5616
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7357
          DATA   7360
          DATA   7361
          DATA   7362
          DATA   7363
          BSSZ   5
          DATA   5615
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7357
          DATA   7360
          DATA   7361
          DATA   7362
          DATA   7363
          BSSZ   5
          DATA   5614
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7356
          DATA   7357
          DATA   7363
          BSSZ   7
          DATA   5613
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7355
          DATA   7356
          DATA   7363
          BSSZ   7
          DATA   5612
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7354
          DATA   7355
          DATA   7364
          BSSZ   7
          DATA   5611
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7353
          DATA   7354
          DATA   7364
          BSSZ   7
          DATA   5610
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          DATA   7353
          BSSZ   11
          DATA   5607
          DATA   7200
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          BSSZ   12
          DATA   5606
          DATA   7200
          DATA   7201
          DATA   7202
          DATA   7203
          DATA   7204
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   7352
          BSSZ   6
          DATA   5605
          DATA   7200
          DATA   7204
          DATA   7205
          DATA   7206
          DATA   7207
          DATA   7210
          DATA   7211
          DATA   7212
          DATA   7213
          DATA   7214
          DATA   7215
          DATA   7216
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   5604
          DATA   7216
          DATA   7217
          DATA   7220
          DATA   7221
          DATA   7222
          DATA   7223
          DATA   7224
          DATA   7225
          DATA   7226
          DATA   7227
          DATA   7230
          DATA   7240
          DATA   7243
          DATA   7320
          DATA   0000
          DATA   5603
          DATA   7230
          DATA   7231
          DATA   7232
          DATA   7233
          DATA   7234
          DATA   7235
          DATA   7236
          DATA   7237
          DATA   7240
          DATA   7241
          DATA   7242
          DATA   7243
          DATA   7320
          BSSZ   2
          DATA   5602
          DATA   7240
          DATA   7243
          DATA   7316
          DATA   7317
          DATA   7320
          BSSZ   12
          DATA   5601
          DATA   7240
          DATA   7243
          DATA   7313
          DATA   7314
          DATA   7315
          DATA   7316
          BSSZ   11
          DATA   5600
          DATA   7240
          DATA   7243
          DATA   7311
          DATA   7312
          DATA   7313
          BSSZ   12
          DATA   5577
          DATA   7240
          DATA   7243
          DATA   7306
          DATA   7307
          DATA   7310
          DATA   7311
          BSSZ   11
          DATA   5576
          DATA   7240
          DATA   7243
          DATA   7304
          DATA   7305
          DATA   7306
          BSSZ   12
          DATA   5575
          DATA   7240
          DATA   7243
          DATA   7301
          DATA   7302
          DATA   7303
          DATA   7304
          BSSZ   11
          DATA   5574
          DATA   7240
          DATA   7243
          DATA   7276
          DATA   7277
          DATA   7300
          DATA   7301
          BSSZ   11
          DATA   5573
          DATA   7240
          DATA   7243
          DATA   7274
          DATA   7275
          DATA   7276
          BSSZ   12
          DATA   5572
          DATA   7240
          DATA   7243
          DATA   7272
          DATA   7273
          DATA   7274
          BSSZ   12
          DATA   5571
          DATA   7240
          DATA   7243
          DATA   7267
          DATA   7270
          DATA   7271
          DATA   7272
          BSSZ   11
          DATA   5570
          DATA   7240
          DATA   7243
          DATA   7265
          DATA   7266
          DATA   7267
          BSSZ   12
          DATA   5567
          DATA   7240
          DATA   7243
          DATA   7263
          DATA   7264
          DATA   7265
          BSSZ   12
          DATA   5566
          DATA   7240
          DATA   7243
          DATA   7260
          DATA   7261
          DATA   7262
          DATA   7263
          BSSZ   11
          DATA   5565
          DATA   7240
          DATA   7243
          DATA   7256
          DATA   7257
          DATA   7260
          BSSZ   12
          DATA   5564
          DATA   7240
          DATA   7243
          DATA   7253
          DATA   7254
          DATA   7255
          DATA   7256
          BSSZ   11
          DATA   5563
          DATA   7240
          DATA   7243
          DATA   7251
          DATA   7252
          DATA   7253
          BSSZ   12
          DATA   5562
          DATA   7240
          DATA   7243
          DATA   7246
          DATA   7247
          DATA   7250
          DATA   7251
          BSSZ   11
          DATA   5561
          DATA   7240
          DATA   7243
          DATA   7244
          DATA   7245
          DATA   7246
          BSSZ   12
          DATA   5560
          DATA   7240
          DATA   7243
          DATA   7244
          BSSZ   14
          DATA   5557
          DATA   7240
          DATA   7241
          DATA   7242
          DATA   7243
          BSSZ   13
          LIST   L
 FLDL     EQU    *-BEGF      DOT FIELD LENGTH
 ENDF     BSSZ   40
          SPACE  4
          QUAL
 BEGF     EQU    /SNOOPY/BEGF
 FLDL     EQU    /SNOOPY/FLDL
 ENDF     EQU    /SNOOPY/ENDF
          SPACE  4
          END
Retro1.org codex

Table of Contents

DOG

Table Of Contents

Source Code
