home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Source / pheno.lha / pha / 3dstars.S next >
Encoding:
Text File  |  1987-12-17  |  23.4 KB  |  754 lines
  1. ;------------------------------------------------------------------------
  2. ;-                                        -
  3. ;-                   3D-Stars                    -
  4. ;-            By: Mace of Phenomena                -
  5. ;-                                        -
  6. ;------------------------------------------------------------------------
  7.  
  8. org    $20000
  9. load    $20000
  10.  
  11. AntStars:    =    256-1
  12.  
  13. ;------------------------------------------------------------------------
  14.  
  15. S:        move.l    #Program,$80
  16.         trap    #0
  17.         moveq    #0,d0
  18.         rts
  19.  
  20. ;------------------------------------------------------------------------
  21.  
  22. Program:    movem.l    d0-d7/a0-a6,-(sp)
  23.         bsr    SaveAll
  24.         bsr    InitSpr
  25.         bsr    InitAll
  26.         bsr    MakeMulsList
  27.         bsr    Randomize
  28.         bsr    BlitWait
  29.         bsr    StartCopper
  30.         bsr    MainLoop
  31.         bsr    RestoreAll
  32.         movem.l    (sp)+,d0-d7/a0-a6
  33.         rte
  34.  
  35. SaveAll:    move.l    $4,a6
  36.         lea.l    GfxName,a1
  37.         moveq    #0,d0
  38.         jsr    -408(a6)
  39.         move.l    d0,a0
  40.         move.l    $26(a0),OldCop
  41.         move.l    a0,a1
  42.         jsr    -414(a6)
  43.         move.w    $dff002,d0
  44.         bset    #15,d0
  45.         move.w    d0,OldDma
  46.         move.w    #$4000,$dff09a
  47.         lea.l    $dff000,a6
  48.         rts
  49.  
  50. RestoreAll:    move.l    OldCop,$80(a6)
  51.         tst.w    $88(a6)
  52.         move.w    OldDma,$96(a6)
  53.         rts
  54.  
  55. InitSpr:    lea.l    CopperList,a0
  56.         move.l    #BlindSpr,d0
  57.         moveq    #8-1,d7
  58. SprLoop1:    swap    d0
  59.         move.w    d0,2(a0)
  60.         swap    d0
  61.         move.w    d0,6(a0)
  62.         addq.l    #8,a0
  63.         dbra    d7,SprLoop1
  64.         rts
  65.  
  66. StartCopper:    move.l    #CopperList,$80(a6)
  67.         tst.w    $88(a6)
  68.         move.w    #$7fff,$96(a6)
  69.         move.w    #$87e0,$96(a6)
  70.         rts
  71.  
  72. BlitWait:    btst    #14,$2(a6)
  73.         bne.S    BlitWait
  74.         rts
  75.  
  76. ClearScreen:    bsr    BlitWait
  77.         move.l    #-1,$44(a6)
  78.         move.w    d2,$66(a6)
  79.         move.l    #$01000000,$40(a6)
  80.         move.l    d0,$54(a6)
  81.         move.w    d1,$58(a6)
  82.         rts
  83.  
  84. Randomize:    lea.l    StarAdr,a0
  85.         move.w    #13,d1
  86.         move.w    #12456,d2
  87.         move.w    #4,d3
  88.         move.w    #500-1,d7
  89. RNDLoop:    moveq    #3-1,d6
  90. RNDLoop2:    move.w    $6(a6),d0
  91.         ext.w    d0
  92.         muls    d2,d0
  93.         muls    d1,d0
  94.         and.w    #$1ff,d0
  95.         move.w    d0,(a0)+
  96.         add.w    d1,d2
  97.         add.w    d3,d1
  98.         dbra    d6,RNDLoop2
  99.         dbra    d7,RNDLoop
  100.         rts
  101.  
  102. ;------------------------------------------------------------------------
  103.  
  104.     ;--------------------------------------------
  105.  
  106.         ScreenH:    =    280
  107.         ScreenW:    =    44
  108.         BMapSize:    =    280*44
  109.  
  110.         Screen:        dc.l    $63000
  111.                 dc.l    $73000
  112.  
  113.         StarAdr:    =    $6c000
  114.         OldAdr:        =    $6d000
  115.         MulsAdr:    =    $7d000
  116.  
  117.     ;--------------------------------------------
  118.  
  119. InitAll:    move.l    Screen(pc),d0
  120.         move.w    #280*64*2+22,d1
  121.         moveq    #0,d2
  122.         bsr    ClearScreen
  123.         move.l    Screen+4(pc),d0
  124.         move.w    #280*64*2+22,d1
  125.         moveq    #0,d2
  126.         bsr    ClearScreen
  127.  
  128.         lea.l    BMap(pc),a0
  129.         moveq    #2-1,d7
  130. BMapLoop:    swap    d0
  131.         move.w    d0,2(a0)
  132.         swap    d0
  133.         move.w    d0,6(a0)
  134.         addq.l    #8,a0
  135.         add.l    #BMapSize,d0
  136.         dbra    d7,BMapLoop
  137.  
  138.         move.l    #ZV,XSave
  139.         move.l    #YV,YSave
  140.         move.l    #ZV,ZSave
  141.         rts
  142.  
  143. MakeMulsList:    move.l    #MulsAdr,a0
  144.         moveq    #0,d0
  145.         move.w    #380-1,d7
  146. MulsLoop:    move.w    d0,d1
  147.         muls    #ScreenW,d1
  148.         move.w    d1,(a0)+
  149.         cmp.w    #280,d0
  150.         beq.S    NoAdd33
  151.         addq.w    #1,d0
  152. NoAdd33:    dbra    d7,MulsLoop
  153.         rts
  154.  
  155. ;------------------------------------------------------------------------
  156.  
  157. MainLoop:    cmp.b    #-1,$6(a6)
  158.         bne.S    MainLoop
  159.  
  160.         btst    #10,$16(a6)
  161.         beq.S    MainLoop
  162.  
  163.         ;move.w    #$0400,$180(a6)
  164.         bsr    Stars
  165.         ;move.w    #$0030,$180(a6)
  166.  
  167.         btst    #6,$bfe001
  168.         bne.S    MainLoop
  169.         rts
  170.  
  171. ;------------------------------------------------------------------------
  172.  
  173. Stars:        bsr    Buffra
  174.         bsr    ClearOld
  175.         bsr    FixSpeed
  176.         bsr    FixValues
  177.         bsr    BlitWait
  178.         bsr    PlotStars
  179.         rts
  180.  
  181. Buffra:        move.l    Screen(pc),d0
  182.         move.l    Screen+4(pc),Screen
  183.         move.l    d0,Screen+4
  184.         lea.l    BMap(pc),a0
  185.         moveq    #2-1,d7
  186. BMapLoop2:    swap    d0
  187.         move.w    d0,2(a0)
  188.         swap    d0
  189.         move.w    d0,6(a0)
  190.         addq.l    #8,a0
  191.         add.l    #BMapSize,d0
  192.         dbra    d7,BMapLoop2
  193.         rts
  194.  
  195. ClearOld:    move.l    Screen(pc),d0
  196.         move.w    #280*64*2+22,d1
  197.         moveq    #0,d2
  198.         bsr    ClearScreen
  199.         rts
  200.  
  201. FixValues:    lea.l    StarAdr,a0
  202.         move.w    ZAdd(pc),d2
  203.         move.w    XAdd(pc),d0
  204.         move.w    YAdd(pc),d1
  205.         move.w    #AntStars,d7
  206. FixLoop:    move.w    (a0),d3
  207.         add.w    d0,d3
  208.         cmp.w    #-250,d3
  209.         bge.S    NoLo
  210.         add.w    #500,d3
  211. NoLo:        cmp.w    #250,d3
  212.         blt.S    NoHi
  213.         sub.w    #500,d3
  214. NoHi:        move.w    d3,(a0)+
  215.         move.w    (a0),d3
  216.         add.w    d1,d3
  217.         add.w    #256,d3
  218.         and.w    #$1ff,d3
  219.         sub.w    #256,d3
  220.         move.w    d3,(a0)+
  221.         move.w    (a0),d3
  222.         add.w    d2,d3
  223.         and.w    #$1ff,d3
  224.         move.w    d3,(a0)+
  225.         dbra    d7,FixLoop
  226.         rts
  227.  
  228. PlotStars:    lea.l    OldAdr,a1
  229.         lea.l    StarAdr,a0
  230.         move.l    Screen(pc),a2
  231.         lea.l    Djup(pc),a3
  232.         lea.l    MulsAdr,a4
  233.         move.w    #352,a5
  234.         move.w    #280,a6
  235.         move.w    #172,d2
  236.         move.w    #140,d4
  237.         move.w    #BMapSize,d1
  238.         move.w    #AntStars,d7
  239.  
  240. PlotLoop:    move.w    4(a0),d5
  241.         add.w    d5,d5
  242.         move.w    (a3,d5.W),d6
  243.         move.w    (a0)+,d0
  244.         muls    d6,d0
  245.         lsl.l    #4,d0
  246.         swap    d0
  247.         add.w    d2,d0
  248.         muls    (a0)+,d6
  249.         lsl.l    #4,d6
  250.         swap    d6
  251.         add.w    d4,d6
  252.         cmp.w    a6,d6
  253.         bhi.S    NoPlot2
  254.         cmp.w    a5,d0
  255.         bhi.S    NoPlot2
  256.         move.w    d0,d3
  257.         lsr.w    #3,d0
  258.         add.w    d6,d6
  259.         move.w    (a4,d6.W),d6
  260.         add.w    d0,d6
  261.         moveq    #7,d0
  262.         sub.w    d3,d0
  263.         btst    #8,d5
  264.         beq.S    NoPlot1
  265.         bset    d0,(a2,d6.W)
  266. NoPlot1:    add.w    d1,d6
  267.         btst    #9,d5
  268.         beq.S    NoPlot2
  269.         bset    d0,(a2,d6.W)
  270. NoPlot2:    addq.w    #2,a0
  271.         dbra    d7,PlotLoop
  272.  
  273.         lea.l    $dff000,a6
  274.         rts
  275.  
  276. FixSpeed:    move.l    XSave(pc),a0
  277.         addq.l    #4,a0
  278.         cmp.w    #60,(a0)
  279.         bne.S    OO1
  280.         move.l    #ZV,XSave
  281.         move.l    XSave(pc),a0
  282. OO1:        move.w    (a0),XAdd
  283.         move.l    a0,XSave
  284.         move.l    YSave(pc),a0
  285.         addq.l    #2,a0
  286.         cmp.w    #60,(a0)
  287.         bne.S    OO2
  288.         move.l    #YV,YSave
  289.         move.l    YSave(pc),a0
  290. OO2:        move.w    (a0),YAdd
  291.         move.l    a0,YSave
  292.         move.l    ZSave(pc),a0
  293.         addq.l    #2,a0
  294.         cmp.w    #60,(a0)
  295.         bne.S    OO3
  296.         move.l    #ZV,ZSave
  297.         move.l    ZSave(pc),a0
  298. OO3:        move.w    (a0),ZAdd
  299.         move.l    a0,ZSave
  300.         rts
  301.  
  302. ZAdd:        dc.w    -8
  303. XAdd:        dc.w    0
  304. YAdd:        dc.w    0
  305.  
  306. XSave:        dc.l    0
  307. YSave:        dc.l    0
  308. ZSave:        dc.l    0
  309.  
  310. XV:        dc.w    -4,60
  311.  
  312. YV:    dc.w    10,10,10,10,10,10,10,10
  313.     dc.w    10,10,10,10,10,10,10,10
  314.     dc.w    10,10,10,10,10,10,10,10
  315.     dc.w    10,10,10,10,10,10,10,9
  316.     dc.w    9,9,9,9,9,9,9,9
  317.     dc.w    9,9,9,9,9,9,9,9
  318.     dc.w    9,9,9,9,9,8,8,8
  319.     dc.w    8,8,8,8,8,8,8,8
  320.     dc.w    8,8,8,8,8,8,7,7
  321.     dc.w    7,7,7,7,7,7,7,7
  322.     dc.w    7,7,7,6,6,6,6,6
  323.     dc.w    6,6,6,6,6,6,6,5
  324.     dc.w    5,5,5,5,5,5,5,5
  325.     dc.w    5,5,4,4,4,4,4,4
  326.     dc.w    4,4,4,4,3,3,3,3
  327.     dc.w    3,3,3,3,3,3,2,2
  328.     dc.w    2,2,2,2,2,2,2,2
  329.     dc.w    1,1,1,1,1,1,1,1
  330.     dc.w    1,1,0,0,0,0,0,0
  331.     dc.w    0,0,0,0,0,0,0,0
  332.     dc.w    0,0,0,0,0,-1,-1,-1
  333.     dc.w    -1,-1,-1,-1,-1,-1,-1,-2
  334.     dc.w    -2,-2,-2,-2,-2,-2,-2,-2
  335.     dc.w    -2,-3,-3,-3,-3,-3,-3,-3
  336.     dc.w    -3,-3,-3,-4,-4,-4,-4,-4
  337.     dc.w    -4,-4,-4,-4,-4,-4,-5,-5
  338.     dc.w    -5,-5,-5,-5,-5,-5,-5,-5
  339.     dc.w    -5,-5,-6,-6,-6,-6,-6,-6
  340.     dc.w    -6,-6,-6,-6,-6,-6,-6,-7
  341.     dc.w    -7,-7,-7,-7,-7,-7,-7,-7
  342.     dc.w    -7,-7,-7,-7,-7,-7,-7,-7
  343.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  344.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  345.     dc.w    -8,-8,-8,-8,-8,-8,-9,-9
  346.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  347.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  348.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  349.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  350.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  351.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  352.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  353.     dc.w    -9,-9,-9,-8,-8,-8,-8,-8
  354.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  355.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  356.     dc.w    -8,-7,-7,-7,-7,-7,-7,-7
  357.     dc.w    -7,-7,-7,-7,-7,-7,-7,-7
  358.     dc.w    -7,-7,-6,-6,-6,-6,-6,-6
  359.     dc.w    -6,-6,-6,-6,-6,-6,-6,-5
  360.     dc.w    -5,-5,-5,-5,-5,-5,-5,-5
  361.     dc.w    -5,-5,-5,-4,-4,-4,-4,-4
  362.     dc.w    -4,-4,-4,-4,-4,-4,-3,-3
  363.     dc.w    -3,-3,-3,-3,-3,-3,-3,-3
  364.     dc.w    -2,-2,-2,-2,-2,-2,-2,-2
  365.     dc.w    -2,-2,-1,-1,-1,-1,-1,-1
  366.     dc.w    -1,-1,-1,-1,0,0,0,0
  367.     dc.w    0,0,0,0,0,0,0,0
  368.     dc.w    0,0,0,0,0,0,0,1
  369.     dc.w    1,1,1,1,1,1,1,1
  370.     dc.w    1,2,2,2,2,2,2,2
  371.     dc.w    2,2,2,3,3,3,3,3
  372.     dc.w    3,3,3,3,3,4,4,4
  373.     dc.w    4,4,4,4,4,4,4,5
  374.     dc.w    5,5,5,5,5,5,5,5
  375.     dc.w    5,5,6,6,6,6,6,6
  376.     dc.w    6,6,6,6,6,6,7,7
  377.     dc.w    7,7,7,7,7,7,7,7
  378.     dc.w    7,7,7,8,8,8,8,8
  379.     dc.w    8,8,8,8,8,8,8,8
  380.     dc.w    8,8,8,8,9,9,9,9
  381.     dc.w    9,9,9,9,9,9,9,9
  382.     dc.w    9,9,9,9,9,9,9,9
  383.     dc.w    9,9,10,10,10,10,10,10
  384.     dc.w    10,10,10,10,10,10,10,10
  385.     dc.w    10,10,10,10,10,10,10,10
  386.     dc.w    10,10,10,10,10,10,10,10,60
  387.  
  388. ZV:    dc.w    0,0,0,0,0,0,0,0
  389.     dc.w    0,0,0,0,0,-1,-1,-1
  390.     dc.w    -1,-1,-1,-1,-1,-1,-1,-2
  391.     dc.w    -2,-2,-2,-2,-2,-2,-2,-2
  392.     dc.w    -2,-3,-3,-3,-3,-3,-3,-3
  393.     dc.w    -3,-3,-3,-4,-4,-4,-4,-4
  394.     dc.w    -4,-4,-4,-4,-4,-4,-5,-5
  395.     dc.w    -5,-5,-5,-5,-5,-5,-5,-5
  396.     dc.w    -5,-5,-6,-6,-6,-6,-6,-6
  397.     dc.w    -6,-6,-6,-6,-6,-6,-6,-7
  398.     dc.w    -7,-7,-7,-7,-7,-7,-7,-7
  399.     dc.w    -7,-7,-7,-7,-7,-7,-7,-7
  400.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  401.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  402.     dc.w    -8,-8,-8,-8,-8,-8,-9,-9
  403.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  404.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  405.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  406.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  407.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  408.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  409.     dc.w    -9,-9,-9,-9,-9,-9,-9,-9
  410.     dc.w    -9,-9,-9,-8,-8,-8,-8,-8
  411.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  412.     dc.w    -8,-8,-8,-8,-8,-8,-8,-8
  413.     dc.w    -8,-7,-7,-7,-7,-7,-7,-7
  414.     dc.w    -7,-7,-7,-7,-7,-7,-7,-7
  415.     dc.w    -7,-7,-6,-6,-6,-6,-6,-6
  416.     dc.w    -6,-6,-6,-6,-6,-6,-6,-5
  417.     dc.w    -5,-5,-5,-5,-5,-5,-5,-5
  418.     dc.w    -5,-5,-5,-4,-4,-4,-4,-4
  419.     dc.w    -4,-4,-4,-4,-4,-4,-3,-3
  420.     dc.w    -3,-3,-3,-3,-3,-3,-3,-3
  421.     dc.w    -2,-2,-2,-2,-2,-2,-2,-2
  422.     dc.w    -2,-2,-1,-1,-1,-1,-1,-1
  423.     dc.w    -1,-1,-1,-1,0,0,0,0
  424.     dc.w    0,0,0,0,0,0,0,0
  425.     dc.w    0,0,0,0,0,0,0,1
  426.     dc.w    1,1,1,1,1,1,1,1
  427.     dc.w    1,2,2,2,2,2,2,2
  428.     dc.w    2,2,2,3,3,3,3,3
  429.     dc.w    3,3,3,3,3,4,4,4
  430.     dc.w    4,4,4,4,4,4,4,5
  431.     dc.w    5,5,5,5,5,5,5,5
  432.     dc.w    5,5,6,6,6,6,6,6
  433.     dc.w    6,6,6,6,6,6,7,7
  434.     dc.w    7,7,7,7,7,7,7,7
  435.     dc.w    7,7,7,8,8,8,8,8
  436.     dc.w    8,8,8,8,8,8,8,8
  437.     dc.w    8,8,8,8,9,9,9,9
  438.     dc.w    9,9,9,9,9,9,9,9
  439.     dc.w    9,9,9,9,9,9,9,9
  440.     dc.w    9,9,10,10,10,10,10,10
  441.     dc.w    10,10,10,10,10,10,10,10
  442.     dc.w    10,10,10,10,10,10,10,10
  443.     dc.w    10,10,10,10,10,10,10,10
  444.     dc.w    10,10,10,10,10,10,10,10
  445.     dc.w    10,10,10,10,10,10,10,10
  446.     dc.w    10,10,10,10,10,10,10,10
  447.     dc.w    10,10,10,10,10,10,10,9
  448.     dc.w    9,9,9,9,9,9,9,9
  449.     dc.w    9,9,9,9,9,9,9,9
  450.     dc.w    9,9,9,9,9,8,8,8
  451.     dc.w    8,8,8,8,8,8,8,8
  452.     dc.w    8,8,8,8,8,8,7,7
  453.     dc.w    7,7,7,7,7,7,7,7
  454.     dc.w    7,7,7,6,6,6,6,6
  455.     dc.w    6,6,6,6,6,6,6,5
  456.     dc.w    5,5,5,5,5,5,5,5
  457.     dc.w    5,5,4,4,4,4,4,4
  458.     dc.w    4,4,4,4,3,3,3,3
  459.     dc.w    3,3,3,3,3,3,2,2
  460.     dc.w    2,2,2,2,2,2,2,2
  461.     dc.w    1,1,1,1,1,1,1,1
  462.     dc.w    1,1,0,0,0,0,0,0,60
  463.  
  464.  
  465.  
  466.  
  467. ;------------------------------------------------------------------------
  468.  
  469. CopperList:    dc.l    $01200000,$01220000,$01240000,$01260000
  470.         dc.l    $01280000,$012a0000,$012c0000,$012e0000
  471.         dc.l    $01300000,$01320000,$01340000,$01360000
  472.         dc.l    $01380000,$013a0000,$013c0000,$013e0000
  473.  
  474.         dc.l    $008e2077,$009038c6,$00920030,$009400d8
  475.         dc.l    $01020000,$01040040,$01080000,$010a0000
  476.         dc.l    $01800000,$01820ddd,$01840888,$01860444
  477.         dc.l    $01002000
  478. BMap:        dc.l    $00e00000,$00e20000,$00e40000,$00e60000
  479.  
  480.         dc.l    -2
  481.  
  482. ;------------------------------------------------------------------------
  483.  
  484. OldCop:        dc.l    0
  485. OldDma:        dc.w    0
  486. BlindSpr:    dc.l    0
  487. GfxName:    dc.b    'graphics.library',0
  488.         even
  489.  
  490. ;------------------------------------------------------------------------
  491.  
  492. MainSinus:    =    $35000
  493. MiniBob:    =    $30000
  494.  
  495. DJUP:
  496.     dc.w    $6a00,$6000,$5a00,$5200,$4d00,$4800,$4400,$4000
  497.     DC.W    $3D12,$3BF4,$3AE0,$39D6,$38D6,$37DE,$36EE,$3606
  498.     DC.W    $3526,$344C,$337A,$32AE,$31E9,$3129,$306F,$2FBA
  499.     DC.W    $2F0B,$2E60,$2DBB,$2D1A,$2C7D,$2BE4,$2B50,$2ABF
  500.     DC.W    $2A32,$29A9,$2923,$28A0,$2821,$27A5,$272B,$26B5
  501.     DC.W    $2641,$25D0,$2562,$24F6,$248C,$2425,$23C0,$235D
  502.     DC.W    $22FD,$229E,$2241,$21E7,$218E,$2137,$20E1,$208E
  503.     DC.W    $203C,$1FEB,$1F9C,$1F4F,$1F03,$1EB9,$1E70,$1E28
  504.     DC.W    $1DE2,$1D9C,$1D59,$1D16,$1CD4,$1C94,$1C55,$1C17
  505.     DC.W    $1BD9,$1B9D,$1B62,$1B28,$1AEF,$1AB7,$1A7F,$1A49
  506.     DC.W    $1A13,$19DF,$19AB,$1978,$1946,$1914,$18E3,$18B3
  507.     DC.W    $1884,$1855,$1827,$17FA,$17CE,$17A2,$1776,$174C
  508.     DC.W    $1721,$16F8,$16CF,$16A7,$167F,$1658,$1631,$160B
  509.     DC.W    $15E5,$15C0,$159B,$1577,$1553,$1530,$150D,$14EA
  510.     DC.W    $14C8,$14A7,$1486,$1465,$1445,$1425,$1405,$13E6
  511.     DC.W    $13C7,$13A9,$138B,$136D,$1350,$1333,$1316,$12FA
  512.     DC.W    $12DE,$12C3,$12A7,$128C,$1271,$1257,$123D,$1223
  513.     DC.W    $1209,$11F0,$11D7,$11BE,$11A6,$118E,$1176,$115E
  514.     DC.W    $1147,$112F,$1118,$1102,$10EB,$10D5,$10BF,$10A9
  515.     DC.W    $1094,$107E,$1069,$1054,$103F,$102B,$1017,$1002
  516.     DC.W    $0FEF,$0FDB,$0FC7,$0FB4,$0FA1,$0F8E,$0F7B,$0F68
  517.     DC.W    $0F56,$0F43,$0F31,$0F1F,$0F0E,$0EFC,$0EEB,$0ED9
  518.     DC.W    $0EC8,$0EB7,$0EA6,$0E96,$0E85,$0E75,$0E64,$0E54
  519.     DC.W    $0E44,$0E34,$0E25,$0E15,$0E06,$0DF6,$0DE7,$0DD8
  520.     DC.W    $0DC9,$0DBA,$0DAC,$0D9D,$0D8F,$0D81,$0D72,$0D64
  521.     DC.W    $0D56,$0D48,$0D3B,$0D2D,$0D20,$0D12,$0D05,$0CF8
  522.     DC.W    $0CEB,$0CDE,$0CD1,$0CC4,$0CB7,$0CAB,$0C9E,$0C92
  523.     DC.W    $0C86,$0C79,$0C6D,$0C61,$0C55,$0C49,$0C3E,$0C32
  524.     DC.W    $0C26,$0C1B,$0C0F,$0C04,$0BF9,$0BEE,$0BE3,$0BD8
  525.     DC.W    $0BCD,$0BC2,$0BB7,$0BAC,$0BA2,$0B97,$0B8D,$0B82
  526.     DC.W    $0B78,$0B6E,$0B64,$0B5A,$0B50,$0B46,$0B3C,$0B32
  527.     DC.W    $0B28,$0B1E,$0B15,$0B0B,$0B02,$0AF8,$0AEF,$0AE6
  528.     DC.W    $0ADC,$0AD3,$0ACA,$0AC1,$0AB8,$0AAF,$0AA6,$0A9D
  529.     DC.W    $0A95,$0A8C,$0A83,$0A7B,$0A72,$0A69,$0A61,$0A59
  530.     DC.W    $0A50,$0A48,$0A40,$0A38,$0A2F,$0A27,$0A1F,$0A17
  531.     DC.W    $0A0F,$0A08,$0A00,$09F8,$09F0,$09E8,$09E1,$09D9
  532.     DC.W    $09D2,$09CA,$09C3,$09BB,$09B4,$09AD,$09A5,$099E
  533.     DC.W    $0997,$0990,$0989,$0981,$097A,$0973,$096C,$0966
  534.     DC.W    $095F,$0958,$0951,$094A,$0943,$093D,$0936,$0930
  535.     DC.W    $0929,$0922,$091C,$0915,$090F,$0909,$0902,$08FC
  536.     DC.W    $08F6,$08EF,$08E9,$08E3,$08DD,$08D7,$08D1,$08CB
  537.     DC.W    $08C5,$08BF,$08B9,$08B3,$08AD,$08A7,$08A1,$089B
  538.     DC.W    $0895,$0890,$088A,$0884,$087F,$0879,$0873,$086E
  539.     DC.W    $0868,$0863,$085D,$0858,$0852,$084D,$0848,$0842
  540.     DC.W    $083D,$0838,$0832,$082D,$0828,$0823,$081E,$0819
  541.     DC.W    $0813,$080E,$0809,$0804,$07FF,$07FA,$07F5,$07F0
  542.     DC.W    $07EB,$07E7,$07E2,$07DD,$07D8,$07D3,$07CE,$07CA
  543.     DC.W    $07C5,$07C0,$07BC,$07B7,$07B2,$07AE,$07A9,$07A4
  544.     DC.W    $07A0,$079B,$0797,$0792,$078E,$0789,$0785,$0781
  545.     DC.W    $077C,$0778,$0774,$076F,$076B,$0767,$0762,$075E
  546.     DC.W    $075A,$0756,$0751,$074D,$0749,$0745,$0741,$073D
  547.     DC.W    $0739,$0735,$0731,$072C,$0728,$0724,$0720,$071D
  548.     DC.W    $0719,$0715,$0711,$070D,$0709,$0705,$0701,$06FD
  549.     DC.W    $06FA,$06F6,$06F2,$06EE,$06EB,$06E7,$06E3,$06DF
  550.     DC.W    $06DC,$06D8,$06D4,$06D1,$06CD,$06CA,$06C6,$06C2
  551.     DC.W    $06BF,$06BB,$06B8,$06B4,$06B1,$06AD,$06AA,$06A6
  552.     DC.W    $06A3,$069F,$069C,$0699,$0695,$0692,$068E,$068B
  553.     DC.W    $0688,$0684,$0681,$067E,$067A,$0677,$0674,$0671
  554.     DC.W    $066D,$066A,$0667,$0664,$0661,$065D,$065A,$0657
  555.     DC.W    $0654,$0651,$064E,$064B,$0648,$0645,$0641,$063E
  556.     DC.W    $063B,$0638,$0635,$0632,$062F,$062C,$0629,$0626
  557.     DC.W    $0623,$0620,$061E,$061B,$0618,$0615,$0612,$060F
  558.     DC.W    $060C,$0609,$0607,$0604,$0601,$05FE,$05FB,$05F8
  559.     DC.W    $05F6,$05F3,$05F0,$05ED,$05EB,$05E8,$05E5,$05E2
  560.     DC.W    $05E0,$05DD,$05DA,$05D8,$05D5,$05D2,$05D0,$05CD
  561.     DC.W    $05CA,$05C8,$05C5,$05C3,$05C0,$05BE,$05BB,$05B8
  562.     DC.W    $05B6,$05B3,$05B1,$05AE,$05AC,$05A9,$05A7,$05A4
  563.     DC.W    $05A2,$059F,$059D,$059A,$0598,$0595,$0593,$0591
  564.     DC.W    $058E,$058C,$0589,$0587,$0585,$0582,$0580,$057D
  565.     DC.W    $057B,$0579,$0576,$0574,$0572,$056F,$056D,$056B
  566.     DC.W    $0569,$0566,$0564,$0562,$055F,$055D,$055B,$0559
  567.     DC.W    $0556,$0554,$0552,$0550,$054E,$054B,$0549,$0547
  568.     DC.W    $0545,$0543,$0541,$053E,$053C,$053A,$0538,$0536
  569.     DC.W    $0534,$0532,$0530,$052D,$052B,$0529,$0527,$0525
  570.     DC.W    $0523,$0521,$051F,$051D,$051B,$0519,$0517,$0515
  571.     DC.W    $0513,$0511,$050F,$050D,$050B,$0509,$0507,$0505
  572.     DC.W    $0503,$0501,$04FF,$04FD,$04FB,$04F9,$04F7,$04F5
  573.     DC.W    $04F3,$04F1,$04F0,$04EE,$04EC,$04EA,$04E8,$04E6
  574.     DC.W    $04E4,$04E2,$04E0,$04DF,$04DD,$04DB,$04D9,$04D7
  575.     DC.W    $04D5,$04D4,$04D2,$04D0,$04CE,$04CC,$04CB,$04C9
  576.     DC.W    $04C7,$04C5,$04C3,$04C2,$04C0,$04BE,$04BC,$04BB
  577.     DC.W    $04B9,$04B7,$04B5,$04B4,$04B2,$04B0,$04AE,$04AD
  578.     DC.W    $04AB,$04A9,$04A8,$04A6,$04A4,$04A3,$04A1,$049F
  579.     DC.W    $049E,$049C,$049A,$0499,$0497,$0495,$0494,$0492
  580.     DC.W    $0490,$048F,$048D,$048C,$048A,$0488,$0487,$0485
  581.     DC.W    $0484,$0482,$0480,$047F,$047D,$047C,$047A,$0478
  582.     DC.W    $0477,$0475,$0474,$0472,$0471,$046F,$046E,$046C
  583.     DC.W    $046B,$0469,$0468,$0466,$0465,$0463,$0461,$0460
  584.     DC.W    $045E,$045D,$045C,$045A,$0459,$0457,$0456,$0454
  585.     DC.W    $0453,$0451,$0450,$044E,$044D,$044B,$044A,$0449
  586.     DC.W    $0447,$0446,$0444,$0443,$0441,$0440,$043F,$043D
  587.     DC.W    $043C,$043A,$0439,$0438,$0436,$0435,$0433,$0432
  588.     DC.W    $0431,$042F,$042E,$042D,$042B,$042A,$0429,$0427
  589.     DC.W    $0426,$0424,$0423,$0422,$0420,$041F,$041E,$041C
  590.     DC.W    $041B,$041A,$0419,$0417,$0416,$0415,$0413,$0412
  591.     DC.W    $0411,$040F,$040E,$040D,$040C,$040A,$0409,$0408
  592.     DC.W    $0406,$0405,$0404,$0403,$0401,$0400,$03FF,$03FE
  593.     DC.W    $03FC,$03FB,$03FA,$03F9,$03F7,$03F6,$03F5,$03F4
  594.     DC.W    $03F3,$03F1,$03F0,$03EF,$03EE,$03ED,$03EB,$03EA
  595.     DC.W    $03E9,$03E8,$03E7,$03E5,$03E4,$03E3,$03E2,$03E1
  596.     DC.W    $03DF,$03DE,$03DD,$03DC,$03DB,$03DA,$03D8,$03D7
  597.     DC.W    $03D6,$03D5,$03D4,$03D3,$03D2,$03D0,$03CF,$03CE
  598.     DC.W    $03CD,$03CC,$03CB,$03CA,$03C9,$03C7,$03C6,$03C5
  599.     DC.W    $03C4,$03C3,$03C2,$03C1,$03C0,$03BF,$03BD,$03BC
  600.     DC.W    $03BB,$03BA,$03B9,$03B8,$03B7,$03B6,$03B5,$03B4
  601.     DC.W    $03B3,$03B2,$03B1,$03AF,$03AE,$03AD,$03AC,$03AB
  602.     DC.W    $03AA,$03A9,$03A8,$03A7,$03A6,$03A5,$03A4,$03A3
  603.     DC.W    $03A2,$03A1,$03A0,$039F,$039E,$039D,$039C,$039B
  604.     DC.W    $039A,$0399,$0398,$0397,$0396,$0395,$0394,$0393
  605.     DC.W    $0392,$0391,$0390,$038F,$038E,$038D,$038C,$038B
  606.     DC.W    $038A,$0389,$0388,$0387,$0386,$0385,$0384,$0383
  607.     DC.W    $0382,$0381,$0380,$037F,$037E,$037D,$037C,$037B
  608.     DC.W    $037A,$0379,$0378,$0378,$0377,$0376,$0375,$0374
  609.     DC.W    $0373,$0372,$0371,$0370,$036F,$036E,$036D,$036C
  610.     DC.W    $036B,$036B,$036A,$0369,$0368,$0367,$0366,$0365
  611.     DC.W    $0364,$0363,$0362,$0362,$0361,$0360,$035F,$035E
  612.     DC.W    $035D,$035C,$035B,$035A,$035A,$0359,$0358,$0357
  613.     DC.W    $0356,$0355,$0354,$0353,$0353,$0352,$0351,$0350
  614.     DC.W    $034F,$034E,$034D,$034D,$034C,$034B,$034A,$0349
  615.     DC.W    $0348,$0347,$0347,$0346,$0345,$0344,$0343,$0342
  616.     DC.W    $0342,$0341,$0340,$033F,$033E,$033E,$033D,$033C
  617.     DC.W    $033B,$033A,$0339,$0339,$0338,$0337,$0336,$0335
  618.     DC.W    $0335,$0334,$0333,$0332,$0331,$0331,$0330,$032F
  619.     DC.W    $032E,$032D,$032D,$032C,$032B,$032A,$0329,$0329
  620.     DC.W    $0328,$0327,$0326,$0326,$0325,$0324,$0323,$0323
  621.     DC.W    $0322,$0321,$0320,$031F,$031F,$031E,$031D,$031C
  622.     DC.W    $031C,$031B,$031A,$0319,$0319,$0318,$0317,$0316
  623.     DC.W    $0316,$0315,$0314,$0313,$0313,$0312,$0311,$0310
  624.     DC.W    $0310,$030F,$030E,$030E,$030D,$030C,$030B,$030B
  625.     DC.W    $030A,$0309,$0308,$0308,$0307,$0306,$0306,$0305
  626.     DC.W    $0304,$0303,$0303,$0302,$0301,$0301,$0300,$02FF
  627.     DC.W    $02FF,$02FE,$02FD,$02FC,$02FC,$02FB,$02FA,$02FA
  628.     DC.W    $02F9,$02F8,$02F8,$02F7,$02F6,$02F6,$02F5,$02F4
  629.     DC.W    $02F3,$02F3,$02F2,$02F1,$02F1,$02F0,$02EF,$02EF
  630.     DC.W    $02EE,$02ED,$02ED,$02EC,$02EB,$02EB,$02EA,$02E9
  631.     DC.W    $02E9,$02E8,$02E7,$02E7,$02E6,$02E5,$02E5,$02E4
  632.     DC.W    $02E3,$02E3,$02E2,$02E2,$02E1,$02E0,$02E0,$02DF
  633.     DC.W    $02DE,$02DE,$02DD,$02DC,$02DC,$02DB,$02DA,$02DA
  634.     DC.W    $02D9,$02D9,$02D8,$02D7,$02D7,$02D6,$02D5,$02D5
  635.     DC.W    $02D4,$02D3,$02D3,$02D2,$02D2,$02D1,$02D0,$02D0
  636.     DC.W    $02CF,$02CF,$02CE,$02CD,$02CD,$02CC,$02CB,$02CB
  637.     DC.W    $02CA,$02CA,$02C9,$02C8,$02C8,$02C7,$02C7,$02C6
  638.     DC.W    $02C5,$02C5,$02C4,$02C4,$02C3,$02C2,$02C2,$02C1
  639.     DC.W    $02C1,$02C0,$02BF,$02BF,$02BE,$02BE,$02BD,$02BD
  640.     DC.W    $02BC,$02BB,$02BB,$02BA,$02BA,$02B9,$02B8,$02B8
  641.     DC.W    $02B7,$02B7,$02B6,$02B6,$02B5,$02B4,$02B4,$02B3
  642.     DC.W    $02B3,$02B2,$02B2,$02B1,$02B0,$02B0,$02AF,$02AF
  643.     DC.W    $02AE,$02AE,$02AD,$02AC,$02AC,$02AB,$02AB,$02AA
  644.     DC.W    $02AA,$02A9,$02A9,$02A8,$02A7,$02A7,$02A6,$02A6
  645.     DC.W    $02A5,$02A5,$02A4,$02A4,$02A3,$02A3,$02A2,$02A1
  646.     DC.W    $02A1,$02A0,$02A0,$029F,$029F,$029E,$029E,$029D
  647.     DC.W    $029D,$029C,$029C,$029B,$029B,$029A,$0299,$0299
  648.     DC.W    $0298,$0298,$0297,$0297,$0296,$0296,$0295,$0295
  649.     DC.W    $0294,$0294,$0293,$0293,$0292,$0292,$0291,$0291
  650.     DC.W    $0290,$0290,$028F,$028F,$028E,$028E,$028D,$028C
  651.     DC.W    $028C,$028B,$028B,$028A,$028A,$0289,$0289,$0288
  652.     DC.W    $0288,$0287,$0287,$0286,$0286,$0285,$0285,$0284
  653.     DC.W    $0284,$0283,$0283,$0282,$0282,$0281,$0281,$0281
  654.     DC.W    $0280,$0280,$027F,$027F,$027E,$027E,$027D,$027D
  655.     DC.W    $027C,$027C,$027B,$027B,$027A,$027A,$0279,$0279
  656.     DC.W    $0278,$0278,$0277,$0277,$0276,$0276,$0275,$0275
  657.     DC.W    $0274,$0274,$0274,$0273,$0273,$0272,$0272,$0271
  658.     DC.W    $0271,$0270,$0270,$026F,$026F,$026E,$026E,$026D
  659.     DC.W    $026D,$026D,$026C,$026C,$026B,$026B,$026A,$026A
  660.     DC.W    $0269,$0269,$0268,$0268,$0268,$0267,$0267,$0266
  661.     DC.W    $0266,$0265,$0265,$0264,$0264,$0264,$0263,$0263
  662.     DC.W    $0262,$0262,$0261,$0261,$0260,$0260,$0260,$025F
  663.     DC.W    $025F,$025E,$025E,$025D,$025D,$025C,$025C,$025C
  664.     DC.W    $025B,$025B,$025A,$025A,$0259,$0259,$0259,$0258
  665.     DC.W    $0258,$0257,$0257,$0256,$0256,$0256,$0255,$0255
  666.     DC.W    $0254,$0254,$0253,$0253,$0253,$0252,$0252,$0251
  667.     DC.W    $0251,$0250,$0250,$0250,$024F,$024F,$024E,$024E
  668.     DC.W    $024E,$024D,$024D,$024C,$024C,$024B,$024B,$024B
  669.     DC.W    $024A,$024A,$0249,$0249,$0249,$0248,$0248,$0247
  670.     DC.W    $0247,$0247,$0246,$0246,$0245,$0245,$0245,$0244
  671.     DC.W    $0244,$0243,$0243,$0243,$0242,$0242,$0241,$0241
  672.     DC.W    $0241,$0240,$0240,$023F,$023F,$023F,$023E,$023E
  673.     DC.W    $023D,$023D,$023D,$023C,$023C,$023B,$023B,$023B
  674.     DC.W    $023A,$023A,$023A,$0239,$0239,$0238,$0238,$0238
  675.     DC.W    $0237,$0237,$0236,$0236,$0236,$0235,$0235,$0235
  676.     DC.W    $0234,$0234,$0233,$0233,$0233,$0232,$0232,$0231
  677.     DC.W    $0231,$0231,$0230,$0230,$0230,$022F,$022F,$022E
  678.     DC.W    $022E,$022E,$022D,$022D,$022D,$022C,$022C,$022C
  679.     DC.W    $022B,$022B,$022A,$022A,$022A,$0229,$0229,$0229
  680.     DC.W    $0228,$0228,$0228,$0227,$0227,$0226,$0226,$0226
  681.     DC.W    $0225,$0225,$0225,$0224,$0224,$0224,$0223,$0223
  682.     DC.W    $0222,$0222,$0222,$0221,$0221,$0221,$0220,$0220
  683.     DC.W    $0220,$021F,$021F,$021F,$021E,$021E,$021E,$021D
  684.     DC.W    $021D,$021C,$021C,$021C,$021B,$021B,$021B,$021A
  685.     DC.W    $021A,$021A,$0219,$0219,$0219,$0218,$0218,$0218
  686.     DC.W    $0217,$0217,$0217,$0216,$0216,$0216,$0215,$0215
  687.     DC.W    $0215,$0214,$0214,$0214,$0213,$0213,$0213,$0212
  688.     DC.W    $0212,$0212,$0211,$0211,$0211,$0210,$0210,$0210
  689.     DC.W    $020F,$020F,$020F,$020E,$020E,$020E,$020D,$020D
  690.     DC.W    $020D,$020C,$020C,$020C,$020B,$020B,$020B,$020A
  691.     DC.W    $020A,$020A,$0209,$0209,$0209,$0208,$0208,$0208
  692.     DC.W    $0207,$0207,$0207,$0206,$0206,$0206,$0205,$0205
  693.     DC.W    $0205,$0204,$0204,$0204,$0204,$0203,$0203,$0203
  694.     DC.W    $0202,$0202,$0202,$0201,$0201,$0201,$0200,$0200
  695.     DC.W    $0200,$01FF,$01FF,$01FF,$01FE,$01FE,$01FE,$01FE
  696.     DC.W    $01FD,$01FD,$01FD,$01FC,$01FC,$01FC,$01FB,$01FB
  697.     DC.W    $01FB,$01FA,$01FA,$01FA,$01FA,$01F9,$01F9,$01F9
  698.     DC.W    $01F8,$01F8,$01F8,$01F7,$01F7,$01F7,$01F7,$01F6
  699.     DC.W    $01F6,$01F6,$01F5,$01F5,$01F5,$01F4,$01F4,$01F4
  700.     DC.W    $01F4,$01F3,$01F3,$01F3,$01F2,$01F2,$01F2,$01F1
  701.     DC.W    $01F1,$01F1,$01F1,$01F0,$01F0,$01F0,$01EF,$01EF
  702.     DC.W    $01EF,$01EF,$01EE,$01EE,$01EE,$01ED,$01ED,$01ED
  703.     DC.W    $01EC,$01EC,$01EC,$01EC,$01EB,$01EB,$01EB,$01EA
  704.     DC.W    $01EA,$01EA,$01EA,$01E9,$01E9,$01E9,$01E8,$01E8
  705.     DC.W    $01E8,$01E8,$01E7,$01E7,$01E7,$01E6,$01E6,$01E6
  706.     DC.W    $01E6,$01E5,$01E5,$01E5,$01E4,$01E4,$01E4,$01E4
  707.     DC.W    $01E3,$01E3,$01E3,$01E3,$01E2,$01E2,$01E2,$01E1
  708.     DC.W    $01E1,$01E1,$01E1,$01E0,$01E0,$01E0,$01DF,$01DF
  709.     DC.W    $01DF,$01DF,$01DE,$01DE,$01DE,$01DE,$01DD,$01DD
  710.     DC.W    $01DD,$01DC,$01DC,$01DC,$01DC,$01DB,$01DB,$01DB
  711.     DC.W    $01DB,$01DA,$01DA,$01DA,$01DA,$01D9,$01D9,$01D9
  712.     DC.W    $01D8,$01D8,$01D8,$01D8,$01D7,$01D7,$01D7,$01D7
  713.     DC.W    $01D6,$01D6,$01D6,$01D6,$01D5,$01D5,$01D5,$01D4
  714.     DC.W    $01D4,$01D4,$01D4,$01D3,$01D3,$01D3,$01D3,$01D2
  715.     DC.W    $01D2,$01D2,$01D2,$01D1,$01D1,$01D1,$01D1,$01D0
  716.     DC.W    $01D0,$01D0,$01D0,$01CF,$01CF,$01CF,$01CF,$01CE
  717.     DC.W    $01CE,$01CE,$01CE,$01CD,$01CD,$01CD,$01CD,$01CC
  718.     DC.W    $01CC,$01CC,$01CB,$01CB,$01CB,$01CB,$01CA,$01CA
  719.     DC.W    $01CA,$01CA,$01C9,$01C9,$01C9,$01C9,$01C8,$01C8
  720.     DC.W    $01C8,$01C8,$01C7,$01C7,$01C7,$01C7,$01C6,$01C6
  721.     DC.W    $01C6,$01C6,$01C6,$01C5,$01C5,$01C5,$01C5,$01C4
  722.     DC.W    $01C4,$01C4,$01C4,$01C3,$01C3,$01C3,$01C3,$01C2
  723.     DC.W    $01C2,$01C2,$01C2,$01C1,$01C1,$01C1,$01C1,$01C0
  724.     DC.W    $01C0,$01C0,$01C0,$01BF,$01BF,$01BF,$01BF,$01BE
  725.     DC.W    $01BE,$01BE,$01BE,$01BE,$01BD,$01BD,$01BD,$01BD
  726.     DC.W    $01BC,$01BC,$01BC,$01BC,$01BB,$01BB,$01BB,$01BB
  727.     DC.W    $01BA,$01BA,$01BA,$01BA,$01BA,$01B9,$01B9,$01B9
  728.     DC.W    $01B9,$01B8,$01B8,$01B8,$01B8,$01B7,$01B7,$01B7
  729.     DC.W    $01B7,$01B7,$01B6,$01B6,$01B6,$01B6,$01B5,$01B5
  730.     DC.W    $01B5,$01B5,$01B4,$01B4,$01B4,$01B4,$01B4,$01B3
  731.     DC.W    $01B3,$01B3,$01B3,$01B2,$01B2,$01B2,$01B2,$01B2
  732.     DC.W    $01B1,$01B1,$01B1,$01B1,$01B0,$01B0,$01B0,$01B0
  733.     DC.W    $01B0,$01AF,$01AF,$01AF,$01AF,$01AE,$01AE,$01AE
  734.     DC.W    $01AE,$01AE,$01AD,$01AD,$01AD,$01AD,$01AC,$01AC
  735.     DC.W    $01AC,$01AC,$01AC,$01AB,$01AB,$01AB,$01AB,$01AA
  736.     DC.W    $01AA,$01AA,$01AA,$01AA,$01A9,$01A9,$01A9,$01A9
  737.     DC.W    $01A9,$01A8,$01A8,$01A8,$01A8,$01A7,$01A7,$01A7
  738.     DC.W    $01A7,$01A7,$01A6,$01A6,$01A6,$01A6,$01A6,$01A5
  739.     DC.W    $01A5,$01A5,$01A5,$01A4,$01A4,$01A4,$01A4,$01A4
  740.     DC.W    $01A3,$01A3,$01A3,$01A3,$01A3,$01A2,$01A2,$01A2
  741.     DC.W    $01A2,$01A2,$01A1,$01A1,$01A1,$01A1,$01A1,$01A0
  742.     DC.W    $01A0,$01A0,$01A0,$019F,$019F,$019F,$019F,$019F
  743.     DC.W    $019E,$019E,$019E,$019E,$019E,$019D,$019D,$019D
  744.     DC.W    $019D,$019D,$019C,$019C,$019C,$019C,$019C,$019B
  745.     DC.W    $019B,$019B,$019B,$019B,$019A,$019A,$019A,$019A
  746.     DC.W    $019A,$0199,$0199,$0199,$0199,$0199,$0198,$0198
  747.     DC.W    $0198,$0198,$0198,$0197,$0197,$0197,$0197,$0197
  748.     DC.W    $0197,$0197,$0197,$0197,$0197,$0197,$0197,$0197
  749.     DC.W    $0197,$0197,$0197,$0197,$0196,$0196,$0196,$0196
  750.     DC.W    $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196
  751.     DC.W    $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196
  752.     DC.W    $0196,$0196,$0196,$0196,$0196,$0196,$0196,$0196
  753.  
  754.