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