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