home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Source / pheno.lha / pha / VectorBalls22.S < prev    next >
Encoding:
Text File  |  1987-12-17  |  12.5 KB  |  548 lines
  1. ;------------------------------------------------------------------------
  2. ;-                                    -
  3. ;-                 Vector-Stars                -
  4. ;-                                    -
  5. ;------------------------------------------------------------------------
  6.  
  7. org    $20000
  8. load    $20000
  9.  
  10. >EXTERN        'Perspektiv',Per
  11. >EXTERN        'VectorBob.RB',Bob
  12.  
  13. ;------------------------------------------------------------------------
  14.  
  15. S:        movem.l    d0-d7/a0-a6,-(sp)
  16.         lea.l    $dff000,a6
  17.         bsr    Startup
  18.         bsr    InitRutin
  19.         bsr    BlitWait
  20.         bsr    StartCop
  21.         bsr    MainLoop
  22.         bsr    RestoreCop
  23.         movem.l    (sp)+,d0-d7/a0-a6
  24.         rts
  25.  
  26. Startup:    move.w    2(a6),d0
  27.         bset    #15,d0
  28.         move.w    d0,OldDma
  29.         move.w    $1c(a6),d0
  30.         bset    #15,d0
  31.         move.w    d0,OldIrq
  32.         move.l    $4,a6
  33.         lea.l    Lib(pc),a1
  34.         moveq    #0,d0
  35.         jsr    -408(a6)
  36.         move.l    d0,a0
  37.         move.l    $26(a0),OldCop
  38.         lea.l    $dff000,a6
  39.         rts
  40.  
  41. StartCop:    move.l    #CopperList,$80(a6)
  42.         tst.w    $88(a6)
  43.         move.w    #$7fff,$96(a6)
  44.         move.w    #$87c0,$96(a6)
  45.         move.w    #$7fff,$9a(a6)
  46.         move.w    #$c000,$9a(a6)
  47.         rts
  48.  
  49. RestoreCop:    move.l    OldCop(pc),$80(a6)
  50.         tst.w    $88(a6)
  51.         move.w    OldDma(pc),$96(a6)
  52.         move.w    OldIrq(pc),$9a(a6)
  53.         rts
  54.  
  55.     ;-----------------------------------------------------
  56.         OldCop:        dc.l    0
  57.         OldDma:        dc.w    0
  58.         OldIrq:        dc.w    0
  59.         Lib:        dc.b    'graphics.library',0
  60.                 even
  61.     ;-----------------------------------------------------
  62.  
  63. ;------------------------------------------------------------------------
  64.  
  65. BlitWait:    btst    #14,2(a6)
  66.         bne.S    BlitWait
  67.         rts
  68.  
  69. ClearScreen:    bsr.S    BlitWait
  70.         move.l    #-1,$44(a6)
  71.         move.l    #$01000000,$40(a6)
  72.         move.w    d2,$66(a6)
  73.         move.l    d0,$54(a6)
  74.         move.w    d1,$58(a6)
  75.         rts
  76.  
  77. ;------------------------------------------------------------------------
  78.  
  79. InitRutin:    move.l    Screen(pc),d0
  80.         move.w    #280*2*64+24,d1
  81.         moveq    #0,d2
  82.         bsr    ClearScreen
  83.         move.l    Screen+4(pc),d0
  84.         bsr    ClearScreen
  85.  
  86.         lea.l    Cols+2(pc),a0
  87.         lea.l    Bob,a1
  88.         moveq    #8-1,d7
  89. CLoop:        move.w    (a1)+,(a0)
  90.         addq.l    #4,a0
  91.         dbra    d7,CLoop
  92.         move.l    a1,BobAdr
  93.  
  94.         lea.l    MulsList,a0
  95.         moveq    #0,d0
  96.         move.w    #300-1,d7
  97. MulsLoop:    move.w    d0,(a0)+
  98.         add.w    #44*3,d0
  99.         dbra    d7,MulsLoop
  100.  
  101.         lea.l    JsrList,a0
  102.         move.w    Kommando(pc),d0
  103.         move.w    #400-1,d7
  104. LLoop:        move.w    d0,(a0)+
  105.         dbra    d7,LLoop
  106.         move.w    Rts(pc),(a0)+
  107.         rts
  108.  
  109. MulsList:    =    $6d000
  110. JsrList:    =    $7d000
  111.  
  112. Rts:        rts
  113. Kommando:    move.w    -(a2),-(a3)
  114.  
  115. ;------------------------------------------------------------------------
  116.  
  117. MainLoop:    cmp.b    #-1,$6(a6)
  118.         bne.S    MainLoop
  119.  
  120.         ;move.w    #$4,$180(a6)
  121.         bsr    VectorBobs
  122.         ;move.w    #$40,$180(a6)
  123.  
  124.         btst    #6,$bfe001
  125.         bne.S    MainLoop
  126.         rts
  127.  
  128. ;------------------------------------------------------------------------
  129.  
  130. Vectorbobs:    bsr    Buffra
  131.         bsr    Rensa
  132.         bsr    VinkelAdd
  133.         ;move.w    #$060,$180(a6)
  134.         bsr    Rakna
  135.         ;move.w    #$006,$180(a6)
  136.         bsr    Sortera
  137.         ;move.w    #$600,$180(a6)
  138.         bsr    Plotta
  139.         ;move.w    #$060,$180(a6)
  140.         rts
  141.  
  142. Sortera:    lea.l    Posses+4(pc),a0
  143.         lea.l    Posses2(pc),a1
  144.         moveq    #6,d6
  145.         moveq    #0,d2
  146.         move.w    AntBobs(pc),d7
  147.         move.l    -4(a0),(a1)
  148.         move.w    (a0),4(a1)
  149.         move.w    (a0),d2
  150.         addq.l    #6,a0
  151.         subq.w    #1,d7
  152.  
  153.         bsr    BlitWait
  154.         move.l    #-1,$44(a6)
  155.         move.l    #$09f00002,$40(a6)
  156.         clr.l    $64(a6)
  157.         move.l    a1,$50(a6)
  158.         move.l    a1,$54(a6)
  159.  
  160. SortLoop:    move.w    (a0),d0
  161.         move.w    d6,d5
  162.         move.l    a1,a2
  163.         addq.w    #4,a2
  164.         cmp.w    d0,d2
  165.         blo.S    NoLow
  166.         move.l    -4(a0),(a1,d6.W)
  167.         addq.w    #4,d6
  168.         move.w    d0,(a1,d6.W)
  169.         addq.w    #2,d6
  170.         move.w    d0,d2
  171.         bra.S    Next
  172. NoLow:        cmp.w    (a2),d0
  173.         bge.S    MoveIt
  174.         addq.w    #6,a2
  175.         subq.w    #6,d5
  176.         bne.S    NoLow
  177. MoveIt:        move.l    a2,a4
  178.         add.w    d5,a2
  179.         move.l    a2,a3
  180.         addq.w    #6,a3
  181.         lsr.w    #1,d5
  182.         addq.w    #3,d5
  183.         lsl.w    #6,d5
  184.         addq.w    #1,d5
  185.         move.l    a2,$50(a6)
  186.         move.l    a3,$54(a6)
  187.         move.w    d5,$58(a6)
  188. WW:        btst    #14,$2(a6)
  189.         bne.S    WW
  190.         move.w    d0,(a4)
  191.         move.l    -4(a0),-4(a4)
  192.         addq.w    #6,d6
  193. Next:        addq.w    #6,a0
  194.         dbra    d7,SortLoop
  195.         rts
  196.  
  197.  
  198. Buffra:        move.l    Screen(pc),d0
  199.         move.l    Screen+4(pc),Screen
  200.         move.l    d0,Screen+4
  201.         lea.l    BMap(pc),a0
  202.         moveq    #3-1,d7
  203. BMapLoop:    swap    d0
  204.         move.w    d0,2(a0)
  205.         swap    d0
  206.         move.w    d0,6(a0)
  207.         addq.l    #8,a0
  208.         add.l    #44,d0
  209.         dbra    d7,BMapLoop
  210.         rts
  211.  
  212. Rensa:        move.l    Screen(pc),d0
  213.         moveq    #44-40,d2
  214.         move.w    #200*64*3+20,d1
  215.         bsr    ClearScreen
  216.         rts
  217.  
  218. VinkelAdd:    lea.l    Vinklar(pc),a0
  219.         lea.l    VAdds(pc),a1
  220.         move.w    #720,d1
  221.         moveq    #3-1,d7
  222. VAddLoop:    move.w    (a0),d0
  223.         add.w    (a1)+,d0
  224.         cmp.w    d1,d0
  225.         bls.S    Nothing
  226.         sub.w    d1,d0
  227. Nothing:    move.w    d0,(a0)+
  228.         dbra    d7,VAddLoop
  229.         rts
  230.  
  231. Rakna:        lea.l    Sinus+180(pc),a1
  232.         lea.l    Sinus(pc),a2
  233.         lea.l    Vinklar(pc),a3
  234.         lea.l    Posses(pc),a4
  235.         lea.l    Per,a5
  236.  
  237.         lea.l    CalcUp(pc),a6
  238.         move.w    (a3),d0
  239.         move.w    (a1,d0.W),(a6)+
  240.         move.w    (a2,d0.W),(a6)+
  241.         move.w    4(a3),d0
  242.         move.w    (a1,d0.W),(a6)+
  243.         move.w    (a2,d0.W),(a6)+
  244.         move.w    2(a3),d0
  245.         move.w    (a1,d0.W),(a6)+
  246.         move.w    (a2,d0.W),(a6)+
  247.  
  248.         lea.l    CalcUp(pc),a1
  249.         lea.l    MulsList,a6
  250.         move.l    a7,SPSave
  251.         lea.l    ObjX(pc),a0
  252.         lea.l    ObjY(pc),a2
  253.         lea.l    ObjZ(pc),a7
  254.         move.w    AntBobs,d7
  255.  
  256. RakneLoop:    move.w    (a1)+,d1
  257.         move.w    (a1)+,d2
  258.  
  259.         move.w    (a2),d3
  260.         muls    d2,d3
  261.         move.w    (a7),d4
  262.         muls    d1,d4
  263.         sub.l    d4,d3
  264.         asl.l    #2,d3
  265.         swap    d3        ;Y
  266.         move.w    (a2)+,d4
  267.         muls    d1,d4
  268.         move.w    (a7)+,d5
  269.         muls    d2,d5
  270.         add.l    d5,d4
  271.         asl.l    #2,d4
  272.         swap    d4        ;Z
  273.  
  274.         move.w    (a1)+,d1
  275.         move.w    (a1)+,d2
  276.         move.w    (a0),d5
  277.         muls    d2,d5
  278.         move.w    d3,d6
  279.         muls    d1,d6
  280.         sub.l    d6,d5
  281.         asl.l    #2,d5
  282.         swap    d5        ;X
  283.         move.w    (a0)+,d6
  284.         muls    d1,d6
  285.         muls    d2,d3
  286.         add.l    d6,d3
  287.         asl.l    #2,d3
  288.         swap    d3        ;Y
  289.  
  290.         move.w    (a1)+,d1
  291.         move.w    (a1)+,d2
  292.         move.w    d5,d0
  293.         muls    d2,d0
  294.         move.w    d4,d6
  295.         muls    d1,d6
  296.         sub.l    d6,d0
  297.         asl.l    #2,d0
  298.         swap    d0        ;X
  299.         muls    d1,d5
  300.         muls    d2,d4
  301.         add.l    d5,d4
  302.         asl.l    #2,d4
  303.         swap    d4        ;Z
  304.  
  305.         add.w    #256,d4
  306.         add.w    d4,d4
  307.         move.w    (a5,d4.W),d2
  308.         muls    d2,d0
  309.         muls    d2,d3
  310.         lsl.l    #5,d0
  311.         lsl.l    #5,d3
  312.         swap    d0
  313.         swap    d3
  314.  
  315.         add.w    #176,d0
  316.         add.w    #100,d3
  317.  
  318.         move.w    d0,d1
  319.         lsr.w    #3,d0
  320.         and.w    #$f,d1
  321.         ror.w    #4,d1
  322.         add.w    d3,d3
  323.         move.w    (a6,d3.W),d3
  324.         add.w    d3,d0
  325.  
  326.         move.w    d0,(a4)+
  327.         move.w    d1,(a4)+
  328.         move.w    d4,(a4)+
  329.         lea.l    -12(a1),a1
  330.         dbra    d7,RakneLoop
  331.         lea.l    $dff000,a6
  332.         move.l    SPSave(pc),a7
  333.         rts
  334.  
  335. SPSave:        dc.l    0
  336.  
  337. Plotta:        lea.l    Posses2(pc),a0
  338.         move.l    Screen(pc),d0
  339.         move.l    BobAdr(pc),d1
  340.         move.l    d1,d2
  341.         add.l    #15*2*3,d2
  342.         move.w    #15*64*3+2,d3
  343.         move.w    #$fca,d6
  344.  
  345.         bsr    BlitWait
  346.         move.l    #$ffff0000,$44(a6)
  347.         move.w    #2-4,$62(a6)
  348.         move.w    #2-4,$64(a6)
  349.         move.w    #44-4,$60(a6)
  350.         move.w    #44-4,$66(a6)
  351.         move.l    d0,$48(a6)
  352.         move.l    d0,$54(a6)
  353.         move.l    d1,$4c(a6)
  354.         move.l    d2,$50(a6)
  355.  
  356.         lea.l    $40(a6),a1
  357.         lea.l    $4a(a6),a2
  358.         lea.l    $4e(a6),a3
  359.         lea.l    $52(a6),a4
  360.         lea.l    $56(a6),a5
  361.         lea.l    $58(a6),a6
  362.  
  363.         move.w    AntBobs(pc),d7
  364.  
  365. PlotLoop:    move.w    d0,d4
  366.         add.w    (a0)+,d4
  367.         move.w    (a0)+,d5
  368.         move.w    d5,2(a1)
  369.         add.w    d6,d5
  370.         move.w    d5,(a1)
  371.         move.w    d4,(a2)
  372.         move.w    d4,(a5)
  373.         move.w    d1,(a3)
  374.         move.w    d2,(a4)
  375.         move.w    d3,(a6)
  376.         addq.w    #2,a0
  377.         dbra    d7,PlotLoop
  378.         lea.l    $dff000,a6
  379.         rts
  380.  
  381.     ;--------------------------------------------------
  382.  
  383.         Screen:        dc.l    $60000
  384.                 dc.l    $70000
  385.  
  386.         BMapSize:    =    280*44
  387.  
  388.         Posses:        blk.w    400*3,0
  389.         Posses2:    blk.w    400*3,0
  390.         CalcUp:        blk.w    3*2,0
  391.         BobAdr:        dc.l    0
  392.  
  393.         Vinklar:    dc.w    0
  394.                 dc.w    0
  395.                 dc.w    0
  396.  
  397.         VAdds:        dc.w    2
  398.                 dc.w    4
  399.                 dc.w    6
  400.  
  401.     ;--------------------------------------------------
  402.  
  403. ObjX:
  404. dc.w    -80,-40,0,40,80,-80,-40,0,40,80
  405. dc.w    -80,-40,0,40,80,-80,-40,0,40,80
  406. blk.w    3,-80
  407. blk.w    3,80
  408. blk.w    3,-80
  409. blk.w    3,80
  410. blk.w    6,80
  411. blk.w    6,-80
  412. dc.w    -140,-100,-60,-20,20,60,100,140
  413. blk.w    16,0
  414.  
  415. ObjY:
  416. blk.w    10,80
  417. blk.w    10,-80
  418. dc.w    -80,-80,-80,-80,-80,-80,80,80,80,80,80,80
  419. dc.w    -40,0,40,-40,0,40,-40,0,40,-40,0,40
  420. dc.w    0,0,0,0,0,0,0,0
  421. dc.w    -140,-100,-60,-20,20,60,100,140
  422. dc.w    0,0,0,0,0,0,0,0
  423.  
  424. ObjZ:
  425. blk.w    5,80
  426. blk.w    5,-80
  427. blk.w    5,80
  428. blk.w    5,-80
  429. dc.w    40,0,-40,40,0,-40,40,0,-40,40,0,-40
  430. dc.w    80,80,80,-80,-80,-80,80,80,80,-80,-80,-80
  431. blk.w    16,0
  432. dc.w    -140,-100,-60,-20,20,60,100,140
  433.  
  434. AntBobs:    dc.w    68-1
  435.  
  436. ;------------------------------------------------------------------------
  437.  
  438. CopperList:    dc.l    $008e4866,$009010c6,$00920030,$009400d8
  439.         dc.l    $01020000,$01040000,$01080058,$010a0058
  440.  
  441. Cols:        dc.l    $01800000,$01820000,$01840000,$01860000
  442.         dc.l    $01880000,$018a0000,$018c0000,$018e0000
  443. BMap:        dc.l    $00e00000,$00e20000,$00e40000,$00e60000
  444.         dc.l    $00e80000,$00ea0000
  445.         dc.l    $01003000
  446.  
  447.         dc.l    -2
  448.  
  449. ;------------------------------------------------------------------------
  450.  
  451. Per:        =    $30000
  452. Bob:        =    $33000
  453.  
  454. Sinus:    dc.w    16384,16382,16374,16362,16344,16322,16294,16262
  455.     dc.w    16225,16182,16135,16083,16026,15964,15897,15826
  456.     dc.w    15749,15668,15582,15491,15396,15296,15191,15082
  457.     dc.w    14967,14849,14726,14598,14466,14330,14189,14044
  458.     dc.w    13894,13741,13583,13421,13255,13085,12911,12733
  459.     dc.w    12551,12365,12176,11982,11786,11585,11381,11174
  460.     dc.w    10963,10749,10531,10311,10087,9860,9630,9397
  461.     dc.w    9162,8923,8682,8438,8192,7943,7692,7438
  462.     dc.w    7182,6924,6664,6401,6137,5871,5603,5334
  463.     dc.w    5063,4790,4516,4240,3963,3685,3406,3126
  464.     dc.w    2845,2563,2280,1996,1712,1427,1142,857
  465.     dc.w    571,285,0,-285,-571,-857,-1142,-1428
  466.     dc.w    -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685
  467.     dc.w    -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871
  468.     dc.w    -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943
  469.     dc.w    -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860
  470.     dc.w    -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585
  471.     dc.w    -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085
  472.     dc.w    -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330
  473.     dc.w    -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296
  474.     dc.w    -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964
  475.     dc.w    -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322
  476.     dc.w    -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362
  477.     dc.w    -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083
  478.     dc.w    -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491
  479.     dc.w    -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  480.     dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421
  481.     dc.w    -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982
  482.     dc.w    -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311
  483.     dc.w    -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438
  484.     dc.w    -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402
  485.     dc.w    -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240
  486.     dc.w    -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996
  487.     dc.w    -1712,-1428,-1143,-857,-572,-286,0,285
  488.     dc.w    571,857,1142,1427,1712,1996,2280,2562
  489.     dc.w    2844,3126,3406,3685,3963,4240,4515,4790
  490.     dc.w    5062,5334,5603,5871,6137,6401,6663,6924
  491.     dc.w    7182,7438,7691,7943,8192,8438,8682,8923
  492.     dc.w    9161,9397,9630,9860,10087,10310,10531,10748
  493.     dc.w    10963,11173,11381,11585,11785,11982,12175,12365
  494.     dc.w    12551,12732,12910,13085,13255,13421,13583,13740
  495.     dc.w    13894,14044,14189,14330,14466,14598,14726,14849
  496.     dc.w    14967,15081,15191,15296,15396,15491,15582,15668
  497.     dc.w    15749,15826,15897,15964,16026,16083,16135,16182
  498.     dc.w    16224,16262,16294,16322,16344,16361,16374,16382
  499.  
  500.     dc.w    16384,16382,16374,16362,16344,16322,16294,16262
  501.     dc.w    16225,16182,16135,16083,16026,15964,15897,15826
  502.     dc.w    15749,15668,15582,15491,15396,15296,15191,15082
  503.     dc.w    14967,14849,14726,14598,14466,14330,14189,14044
  504.     dc.w    13894,13741,13583,13421,13255,13085,12911,12733
  505.     dc.w    12551,12365,12176,11982,11786,11585,11381,11174
  506.     dc.w    10963,10749,10531,10311,10087,9860,9630,9397
  507.     dc.w    9162,8923,8682,8438,8192,7943,7692,7438
  508.     dc.w    7182,6924,6664,6401,6137,5871,5603,5334
  509.     dc.w    5063,4790,4516,4240,3963,3685,3406,3126
  510.     dc.w    2845,2563,2280,1996,1712,1427,1142,857
  511.     dc.w    571,285,0,-285,-571,-857,-1142,-1428
  512.     dc.w    -1712,-1996,-2280,-2563,-2845,-3126,-3406,-3685
  513.     dc.w    -3963,-4240,-4516,-4790,-5063,-5334,-5603,-5871
  514.     dc.w    -6137,-6401,-6664,-6924,-7182,-7438,-7692,-7943
  515.     dc.w    -8192,-8438,-8682,-8923,-9162,-9397,-9630,-9860
  516.     dc.w    -10087,-10311,-10531,-10749,-10963,-11174,-11381,-11585
  517.     dc.w    -11786,-11982,-12176,-12365,-12551,-12733,-12911,-13085
  518.     dc.w    -13255,-13421,-13583,-13741,-13894,-14044,-14189,-14330
  519.     dc.w    -14466,-14598,-14726,-14849,-14967,-15082,-15191,-15296
  520.     dc.w    -15396,-15491,-15582,-15668,-15749,-15826,-15897,-15964
  521.     dc.w    -16026,-16083,-16135,-16182,-16225,-16262,-16294,-16322
  522.     dc.w    -16344,-16362,-16374,-16382,-16384,-16382,-16374,-16362
  523.     dc.w    -16344,-16322,-16294,-16262,-16225,-16182,-16135,-16083
  524.     dc.w    -16026,-15964,-15897,-15826,-15749,-15668,-15582,-15491
  525.     dc.w    -15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  526.     dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421
  527.     dc.w    -13255,-13085,-12911,-12733,-12551,-12365,-12176,-11982
  528.     dc.w    -11786,-11585,-11381,-11174,-10963,-10749,-10531,-10311
  529.     dc.w    -10087,-9860,-9630,-9397,-9162,-8923,-8682,-8438
  530.     dc.w    -8192,-7943,-7692,-7438,-7182,-6924,-6664,-6402
  531.     dc.w    -6137,-5871,-5604,-5334,-5063,-4790,-4516,-4240
  532.     dc.w    -3963,-3685,-3406,-3126,-2845,-2563,-2280,-1996
  533.     dc.w    -1712,-1428,-1143,-857,-572,-286,0,285
  534.     dc.w    571,857,1142,1427,1712,1996,2280,2562
  535.     dc.w    2844,3126,3406,3685,3963,4240,4515,4790
  536.     dc.w    5062,5334,5603,5871,6137,6401,6663,6924
  537.     dc.w    7182,7438,7691,7943,8192,8438,8682,8923
  538.     dc.w    9161,9397,9630,9860,10087,10310,10531,10748
  539.     dc.w    10963,11173,11381,11585,11785,11982,12175,12365
  540.     dc.w    12551,12732,12910,13085,13255,13421,13583,13740
  541.     dc.w    13894,14044,14189,14330,14466,14598,14726,14849
  542.     dc.w    14967,15081,15191,15296,15396,15491,15582,15668
  543.     dc.w    15749,15826,15897,15964,16026,16083,16135,16182
  544.     dc.w    16224,16262,16294,16322,16344,16361,16374,16382
  545.  
  546.  
  547.  
  548.