home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / team.s < prev    next >
Encoding:
Text File  |  2010-02-27  |  2.6 KB  |  153 lines
  1. openlibrary=    -30-522
  2. forbid=        -30-102
  3. permit=        -30-108
  4. allocmem=    -30-168
  5. freemem=    -30-180
  6. startlist=    38
  7. execbase=    4
  8. numplanes=    1
  9. planewith=    40
  10. planehigh=    224
  11. planesize=    planewith*planehigh
  12. allocsize=    planesize*numplanes
  13. CLsize=        3000            ;(numplns*8)+4
  14. chip=        2
  15. clear=        $10000
  16.  
  17. cbadr:    dc.l    0
  18. cbc:    dc.l    0
  19.  
  20. start:
  21.     move.l    $04,a6
  22.     lea    gfxname,a1
  23.     jsr    -408(a6)
  24.     move.l    d0,gfxbase
  25.     move.l    d0,a0
  26.     move.l    50(a0),oldclist
  27.     move.l    #newclist,50(a0)
  28.     move.l    gfxbase,a6
  29.     lea    bitmap,a0
  30.     move.l    #$01,d0
  31.     move.l    #336,d1
  32.     move.l    #200,d2
  33.     jsr    -390(a6)
  34.     move.l    #$60000,plane1
  35.     lea    rastport,a1
  36.     jsr    -198(a6)
  37.     move.l    #bitmap,r_bitmap
  38.     lea    rastport,a1
  39.     jsr    -48(a6)
  40.     move.l    #scrollm,zeiger
  41.     move.l    $6c,oldirq+2
  42.     move.l    #newirq,$6c
  43. wait:
  44.     btst    #6,$bfe001
  45.     bne.s    wait
  46.     move.l    oldirq+2,$6c
  47.     move.l    gfxbase,a0
  48.     move.l    oldclist,50(a0)
  49.     move.l    $04,a6
  50.     move.l    gfxbase,a1
  51.     jsr    -414(a6)
  52.     rts
  53.  
  54. newirq:
  55.     movem.l    d0-d7/a0-a6,-(sp)
  56.     move.l    gfxbase,a6
  57.     lea    rastport,a1
  58.     move.l    #$01,d0
  59.     clr.l    d1
  60.     clr.l    d2
  61.     move.l    #000,d3
  62.     move.l    #336,d4
  63.     move.l    #200,d5
  64.     jsr    -396(a6)
  65.     sub.b    #$01,rows
  66.     bne.s    exit
  67.     move.b    #$08,rows
  68.     lea    rastport,a1
  69.     move.l    #320,d0
  70. *    jsr     upndown
  71.     jsr    -240(a6)
  72.     lea    rastport,a1
  73.     move.l    zeiger,a0
  74.     move.l    #$01,d0
  75.     jsr    -60(a6)
  76.     addq.l    #$01,zeiger
  77.     cmp.l    #end,zeiger
  78.     blt.s    exit
  79.     move.l    #scrollm,zeiger
  80. exit:
  81.     movem.l    (sp)+,d0-d7/a0-a6
  82. oldirq:
  83.     jmp    $00000000
  84.  
  85. newclist:
  86.     dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  87.     dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  88.     dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  89.     dc.w    $00e0,$0006,$00e2,$0000
  90.     dc.w    $ffff,$fffe
  91. scrollm:
  92.     dc.b    "TEAM'89         "
  93. end:
  94.     even
  95. zeiger:
  96.     dc.l    0
  97. oldclist:
  98.     dc.l    0
  99. gfxbase:
  100.     dc.l    0
  101. gfxname:
  102.     dc.b    "graphics.library",0
  103.     even
  104. bitmap:
  105.     blk.w    4,0
  106. plane1:
  107.     blk.l    20,0
  108. rastport:
  109.     dc.l    0
  110. r_bitmap:
  111.     blk.l    30,0
  112. rows:
  113.     dc.b    2
  114.     even
  115. sine:
  116.     cmp.l    #$ff,d0
  117.     ble.b    ntbig
  118.     sub.l    #$100,d0
  119.     jmp    sine
  120. ntbig:    move.l    #0,d1
  121.     cmp.l    #$80,d0
  122.     ble.b    nneg
  123.     move.l    #-1,d1
  124.     sub.l    #$80,d0
  125. nneg:    lea    sinetable,a0
  126.     cmp.l    #64,d0
  127.     ble.b    nomv
  128.     move.l    #64,d2
  129.     sub.l    d2,d0
  130.     sub.l    d0,d2
  131.     move.l    d2,d0
  132. nomv:    add.l    d0,a0
  133.     move.b    (a0),d0
  134.     cmp.l    #-1,d1
  135. *    bne    nneged
  136.     move.l    #$80,d2
  137.     sub.l    d2,d0
  138.     sub.l    d0,d2
  139.     move.l    d2,d0
  140. sinetable:
  141.     dc.b    128,131,134,137,140,144,147,150,153
  142.     dc.b    156,159,162,165,168,171,174,177,179
  143.     dc.b    182,185,188,191,193,196,199,201,204
  144.     dc.b    206,209,211,213,216,218,220,222,224
  145.     dc.b    226,228,230,232,234,235,237,239,240
  146.     dc.b    241,243,244,245,246,248,249,250,250
  147.     dc.b    251,252,253,253,254,254,254,255,255
  148.         dc.b    254,254
  149. cb:    dc.b    00,05,10,15,20,25,30,35,40,45
  150.     dc.b    50,55,60,65,70,75,80,85,90,95
  151.     dc.b    100,105,110,115,120,125,130,135,140,145
  152.     dc.b    150,155,160,165,170,175,180,185,190,195
  153.