home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / starsbycoke.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  9.2 KB  |  406 lines
  1.        ;The Coke presenterar lite lameit stuff specialdesignat f|r
  2.        ;The Cracker,men e free to use inom Triangle
  3.        ;Jag stressa fram skiten sa det blev ju inte det basta, sorry!
  4.        ;Sprid inte till ej Triangle-members!!!!! (Jovisst!)
  5.        ;(Jag sk{ms |ver alla tabbarna!!!)
  6.        ; (Snygg exit!  Prova att assemblera igen= gakk ikke!)
  7.        ;    /The Coke/Triangle
  8.        ;
  9.        ;
  10.        ; PS: John, var nu lite sn{ll mot alla LAMERS p} partyt!
  11.        ;   :DS    (Varfor de????)
  12.        ;
  13.        ; PS2: Hoppas det h{r kom fram i tid! :DS2
  14.        ; (De jorde den inte!)
  15.        ;
  16.        ; Forpackningsdag: 890510
  17.        ; Smakar bast fore: 890511
  18.        ; Avsmakning: 89-05-16 (Ganska Sur!)
  19.        ;
  20.  
  21.            Xmax = 320
  22.            Ymax = 200
  23.            ir = $6C
  24.            Mod = 40
  25.            CoAdd = $40*2
  26.            Stars = $100       ; Lek lite h{r !!
  27.            And1 = $fFFF      ;   ---"---
  28.            And2 = $3FF       ;   ---"---
  29.            And3 = $fff       ; Den h{r fattar du dig inte p}!
  30.            AddX = 160        ; 
  31.            AddY = 100        ; Just kiddin!!
  32.  
  33.            J:
  34.        jmp Init
  35.            Gurka1: dc.w 0
  36.            Gurka2: dc.w 0
  37.            HvorSkaJaHen: dc.l 0
  38.  
  39.            Init:
  40.        jsr InitIt
  41.        jsr BlandaSoppa
  42.        move.w $DFF01C,Gurka1
  43.        move.w $DFF002,Gurka2
  44.        bset #7,Gurka1
  45.        bset #7,Gurka2
  46.        ;move.w #$7FFF,$DFF09A
  47.        move.l ir,HvorSkaJaHen
  48.        move.l #INT,ir
  49.        move.w #$C010,$DFF09A
  50.        move.l #CopperList,$DFF084
  51.  
  52.            Loop:
  53.            Sync:
  54.        btst #6,$BFE001
  55.        beq Check
  56.        tst.w Zync
  57.        beq Sync
  58.        move.w Sync,d0; now d0 holds no o frames
  59.        clr.w Zync
  60.        ;move.w #$0F0,$DFF180
  61.        ;clr.w d4
  62.        ;clr.w d5
  63.        move.b $DFF00A,d0
  64.  
  65.        move.b $DFF00B,d1
  66.        move.b d0,d5
  67.        move.b d1,d4
  68.        ext.w d4
  69.        ext.w d5
  70.        asl.w #4,d4
  71.        ;asl.w #3,d5
  72.        add.w d4,Fitta    ;Snygg label Robert!!!!
  73.        add.w d5,Fitta2    ;Fantasi eller vad!
  74.        move.w Fitta,d4
  75.        move.w Fitta2,d5
  76.  
  77.        jsr CiRcUs    ;Villken CiRcUs TRIANGLE e! Ta tex Coke! HaHa!
  78.        jsr Senig    ;E du de eller???
  79.        move.w h1,d1
  80.  
  81.        add.w #$100,XxX    ;XXX wow!   villken sort???
  82.        move.w XxX,d0
  83.        asr.w #8,d0
  84.        asr.w #4,d1
  85.        ;move.w #$80,d1
  86.        add.w #$80,d1
  87.        jsr Plask
  88.  
  89.  
  90.  
  91.  
  92.            Check:    ;Pa $10000 till mig! emottager jarna!/John
  93.        btst #6,$BFE001
  94.        bne Loop
  95.        btst #2,$DFF016
  96.        bne Loop
  97.  
  98.            EXIT:
  99.        move.w #$7FFF,$DFF09A
  100.        move.l HvorSkaJaHen,ir
  101.        move.w #$FFFF,d0
  102.            Lugnistormen:    ;JaJaJa!
  103.        move.w d0,$DFF180
  104.        dbf d0,Lugnistormen
  105.  
  106.  
  107.  
  108.        move.w Gurka1,$DFF09A
  109.        move.w #$7FFF,$DFF096
  110.        move.w Gurka2,$DFF096
  111.        rts
  112.  
  113.            INT:
  114.        move.w #$7FFF,$DFF09C
  115.  
  116.        ;move.w #$F0F,$DFF180
  117.        addq.w #1,Zync
  118.            SSync:
  119.        tst.b $DFF006
  120.        bne SSync
  121.        ;clr.w $DFF08A
  122.        ;move.w #$FF0,$DFF180
  123.        rte
  124.  
  125.            InitIt:
  126.        lea $60000,a0
  127.        move.w #$1FFF,d0
  128.            InitIt2:
  129.        move.w #$00,(a0)+
  130.        dbf d0,InitIt2
  131.  
  132.        move.l #$00FF00FF,$60000
  133.        move.l #$0000FFFF,$60000+Mod*1
  134.        move.l #$00FF00FF,$60000+Mod*2
  135.        move.l #$0000FFFF,$60000+Mod*3
  136.        move.l #$00FF00FF,$60000+Mod*4
  137.        move.l #$0000FFFF,$60000+Mod*5
  138.        move.l #$00FF00FF,$60000+Mod*6
  139.        move.l #$0000FFFF,$60000+Mod*7
  140.  
  141.        rts
  142. BlandaSoppa:                ;Lustigt Varre!
  143.        movem.l d0-d7/a0,-(a7)
  144.        clr.w d6
  145.        clr.w d5
  146.        move.b $DFF006,d5
  147.        move.b $DFF007,d6
  148.        asl.w #8,d5
  149.        asl.w #8,d6
  150.        lea XyRzs,a0
  151.        move.w #2*Stars-1,d7
  152.            Tjooo:            ;Tjoooo sjalv!
  153.        add.w #$5231,d6
  154.        add.w d6,d5
  155.        add.w d5,d4
  156.        add.w d4,d3
  157.        add.w d3,d2
  158.        add.w d2,d1
  159.        sub.w d1,d6
  160.        move.w d1,d0
  161.        and.w #And1,d0
  162.        move.w d0,(a0)+
  163.        add.w #$6419,d6
  164.        add.w d6,d5
  165.        add.w d5,d4
  166.        add.w d4,d3
  167.        add.w d3,d2
  168.        add.w d2,d1
  169.        sub.w d1,d6
  170.        move.w d1,d0
  171.        and.w #And2,d0
  172.        move.w d0,(a0)+
  173.        dbf d7,Tjooo
  174.        movem.l (a7)+,d0-d7/a0
  175.  
  176. CiRcUs:
  177.        lea XyRzs,a0
  178.        ;lea rzs,a1
  179.        lea ssin,a2
  180.        move.w #Stars-1,d7
  181. FiskSoppa:                ;UUuuuuuuurrrkkkk!
  182.        move.w d7,d6
  183.        asl.w #2,d6
  184.        ;add.w d4,4(a0)
  185.  
  186.        ;add.w d5,6(a0)
  187.        ;and.w #$FFF,6(a0)
  188.        move.w 4(a0),d0
  189.  
  190.        move.w 6(a0),d1
  191.        add.w d4,d0
  192.        add.w d5,d1
  193.        and.w #And3,d1
  194.        move.w d1,d6
  195.        asr.w #5,d6
  196.        bset #0,d1       ;Prevent div0
  197.        asr.w #8,d0
  198.        and.w #$FF,d0
  199.        asl.w #1,d0
  200.        ;asl.w #1,d0
  201.        clr.l d2
  202.        clr.l d3
  203.        move.w 0(a2,d0),d2
  204.        add.w #CoAdd,d0
  205.        and.w #$1FE,d0
  206.        move.w 0(a2,d0),d3
  207.        ;swap d2
  208.        ;swap d3
  209.        muls #$200,d2
  210.        muls #$200,d3
  211.        ;ext.l d2
  212.        ;ext.l d3
  213.        add.w #$10,d1
  214.        divs d1,d2
  215.        divs d1,d3
  216.  
  217.        move.w (a0),d0
  218.        move.w 2(a0),d1
  219.        jsr UnPlot
  220.        move.w d2,d0
  221.        move.w d3,d1
  222.        add.w #AddX,d0
  223.        add.w #AddY,d1
  224.        sub.w d6,d0       ; Left
  225.        sub.w d6,d1       ; Up
  226.        jsr plot
  227.        move.w d0,(a0)
  228.        move.w d1,2(a0)
  229.        addq.l #$8,a0
  230.  
  231.        dbf d7,FiskSoppa
  232.  
  233.  
  234.            Pxt: rts
  235.  
  236.            plot: ;(d0,d1)
  237.        ;and.w #$FF,d0
  238.        ;and.w #$FF,d1
  239.        cmp.w #$0,d0
  240.        bmi Pxt
  241.        cmp.w #$0,d1
  242.        bmi Pxt
  243.        cmp.w #Xmax,d0
  244.        bpl Pxt
  245.        cmp.w #Ymax,d1
  246.        bpl Pxt
  247.  
  248.        movem.l d0/d1/d2/a0,-(a7)
  249.        lea $60000,a0
  250.        move.w d0,d2
  251.        and.w #$7,d2
  252.        eor.w #$7,d2
  253.        asr.w #$3,d0
  254.        mulu #Mod,d1
  255.        add.w d1,d0
  256.        bset d2,0(a0,d0.w)
  257.        movem.l (a7)+,d0/d1/d2/a0
  258.  
  259.  
  260.            Uxt: rts
  261.  
  262.            UnPlot: ;(d0,d1)
  263.        ;and.w #$FF,d0
  264.        ;and.w #$FF,d1
  265.        cmp.w #$0,d0
  266.        bmi Uxt
  267.        cmp.w #$0,d1
  268.        bmi Uxt
  269.        cmp.w #Xmax,d0
  270.        bpl Uxt
  271.        cmp.w #Ymax,d1
  272.        bpl Uxt
  273.        movem.l d0/d1/d2/a0,-(a7)
  274.        lea $60000,a0
  275.        move.w d0,d2
  276.        and.w #$7,d2
  277.        eor.w #$7,d2
  278.        asr.w #$3,d0
  279.        mulu #Mod,d1
  280.        add.w d1,d0
  281.        bclr d2,0(a0,d0.w)
  282.        movem.l (a7)+,d0/d1/d2/a0
  283.        rts
  284.  
  285.            OjOjOj:
  286.        rts
  287.        jsr plot
  288.        clr.w d2
  289.        move.b Cntr,d2
  290.        lea Torsk,a0
  291.        move.w d0,0(a0,d2)
  292.        move.w d1,2(a0,d2)
  293.        addq.b #4,Cntr
  294.        move.b Cntr,d2
  295.        move.w 0(a0,d2.w),d0
  296.        move.w 2(a0,d2.w),d1
  297.        jsr UnPlot
  298.        ;addq.b #4,cntr
  299.        rts
  300.  
  301.            Plask:        ;Sager de nar man hoppar i vattne!
  302.        move.b d1,Spritex
  303.        move.b d0,Spritey
  304.        move.b d1,Spritexe
  305.        add.b #$10,Spritexe
  306.        rts
  307.  
  308.            Senig:        ;E coke!
  309.        tst.w h1
  310.        bmi Korkmatta
  311.        subq.w #2,s1
  312.  
  313.            Korkmatta:        ;Vem va de ni ijann????
  314.        addq.w #1,s1
  315.  
  316.        move.w s1,d0
  317.        add.w d0,h1
  318.        ;add.w d0,h2
  319.        tst.w h2
  320.        bmi Korkmatta2
  321.  
  322.        subq.w #4,s2
  323.            Korkmatta2:
  324.  
  325.        addq.w #2,s2
  326.        move.w s2,d0
  327.        add.w d0,h2
  328.        add.w d0,h1
  329.        rts
  330.  
  331.        ;Spritex:
  332.        ;Spritey:
  333.        ;Spritexe:
  334.            Fitta: dc.w 0        ;   ^
  335.            Fitta2: dc.w 0        ;E gott!
  336.            XxX: dc.w 0
  337.            h1: dc.w -200
  338.            h2: dc.w 170
  339.            s1: dc.w 0
  340.            s2: dc.w 0
  341.            XyRzs: blk.w Stars*4,7777
  342.        ;rzs: blk.w stars*2,0
  343.        blk.w Stars*4,0
  344.            Cntr: dc.w 0
  345.            Zync: dc.w 0
  346.        ;gurka1: dc.w 0
  347.        ;gurka2: dc.w 0
  348.        ;hvorskajahen: dc.l 0
  349.            Torsk: blk.l 256,0    ;Den e ganska sladdrig den har torsken
  350.            CopperList:
  351.  
  352.        dc.l $01000000
  353.        ;dc.l $01240000
  354.        ;dc.l $01407070
  355.        ;dc.l $0142FF00
  356.        dc.l $01800000
  357.        dc.l $01820FFF
  358.        ;dc.l $01840888
  359.        ;dc.l $01860CCC
  360.        dc.l $00E00006
  361.        dc.l $00E20000
  362.        ;dc.l $00E40006
  363.        ;dc.l $00E60000+Mod
  364.        dc.l $01080000;+Mod
  365.        dc.l $010A0000;+Mod
  366.        dc.l $3001FFFE
  367.        dc.w $0140
  368.            Spritex: dc.b $70
  369.            Spritey: dc.b $70
  370.        dc.w $0142
  371.            Spritexe: dc.w 8000
  372.        dc.l $01001000
  373.  
  374.  
  375.  
  376.        dc.l $FFE1FFFE
  377.        ;dc.l $3F01FFFE
  378.        dc.l $009C8010
  379.  
  380.        dc.l -2
  381.  
  382.  
  383. ssin:
  384.        dc.w 0,3,6,9,12,15,18,21,24,28,31,34,37,40,43,46
  385.        dc.w 48,51,54,57,60,63,65,68,71,73,76,78,81,83,85,88
  386.        dc.w 90,92,94,96,98,100,102,104,106,108,109,111,112,114,115,117
  387.        dc.w 118,119,120,121,122,123,124,124,125,126,126,127,127,127,127,127
  388.        dc.w 127,127,127,127,127,127,126,126,125,124,124,123,122,121,120,119
  389.        dc.w 118,117,115,114,112,111,109,108,106,104,102,100,98,96,94,92
  390.        dc.w 90,88,85,83,81,78,76,73,71,68,65,63,60,57,54,51
  391.        dc.w 48,46,43,40,37,34,31,28,24,21,18,15,12,9,6,3
  392.        dc.w 0,-3,-6,-9,-12,-15,-18,-21,-24,-28,-31,-34,-37,-40,-43,-46
  393.        dc.w -48,-51,-54,-57,-60,-63,-65,-68,-71,-73,-76,-78,-81,-83,-85,-88
  394.        dc.w -90,-92,-94,-96,-98,-100,-102,-104
  395.        dc.w -106,-108,-109,-111,-112,-114,-115,-117
  396.        dc.w -118,-119,-120,-121,-122,-123,-124,-124
  397.        dc.w -125,-126,-126,-127,-127,-127,-127,-127
  398.        dc.w -127,-127,-127,-127,-127,-127,-126,-126
  399.        dc.w -125,-124,-124,-123,-122,-121,-120,-119
  400.        dc.w -118,-117,-115,-114,-112,-111,-109,-108
  401.        dc.w -106,-104,-102,-100,-98,-96,-94,-92
  402.        dc.w -90,-88,-85,-83,-81,-78,-76,-73,-71,-68,-65,-63,-60,-57,-54,-51
  403.        dc.w -48,-46,-43,-40,-37,-34,-31,-28,-24,-21,-18,-15,-12,-9,-6,-3
  404.  
  405.  
  406.