home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / sprites.s < prev    next >
Text File  |  1995-03-17  |  12KB  |  492 lines
  1. ; Sprite Moving routine
  2. ; Modified for SEKA on 18-2-87
  3.  
  4. ; Special AMIGA Equates
  5.  
  6. MaxSndLen:  equ  14000
  7.  
  8. AbsExecBase:  equ  4   ; the only absolute address !
  9. Level3Int:  equ  $6c
  10. ScrPlane:  equ  $40000  ; $35000
  11. SndBuffer:  equ  $45000
  12. BPlane1:  equ  SndBuffer+MaxSndLen ; BPLANE MUST LAST DATA SEGMENT
  13. BPlane2:  equ  BPlane1+3440 ; 3440 = 80Bytes ; 43rows
  14. PField1:  equ  BPlane2+4000
  15. MusicBuffer: equ  PField1+7000
  16.  
  17. ; AMIGA Hardware Addresses
  18. JOY0DAT:   equ  $dff00a
  19. INTREQR:   equ  $dff01e  ; Interrupt request read
  20. DMACON:   equ  $dff096
  21. INTENA:   equ  $dff09a
  22. INTREQ:   equ  $dff09c
  23. AUD0LC:   equ  $dff0a0
  24. AUD0LEN:   equ  $dff0a4
  25. AUD0PER:   equ  $dff0a6
  26. AUD0VOL:   equ  $dff0a8
  27. AUD1LC:   equ  $dff0b0
  28. AUD1LEN:   equ  $dff0b4
  29. AUD1PER:   equ  $dff0b6
  30. AUD1VOL:   equ  $dff0b8
  31.  
  32. ; Exec Library Vector Offsets
  33. Alert:   equ  -108
  34. Permit:   equ  -138
  35. Forbid:  equ  -132
  36. OpenLibrary:  equ  -408
  37. CloseLibrary: equ  -414
  38.  
  39. ; Graphics Library Vector Offsets
  40. Text:   equ  -60
  41. SetFont:   equ  -66
  42. CloseFont:  equ  -78
  43. InitRastPort: equ  -198
  44. InitBitMap:  equ  -390
  45. SetDrMd:   equ  -354
  46. SetAPen:   equ  -342
  47. MovePen:   equ  -240
  48.  
  49. ; Diskfont Library Vectors
  50. OpenDiskFont: equ  -30
  51.  
  52. Open:   equ  -30
  53. Read:   equ  -42
  54. Close:   equ  -36
  55.   CODE
  56. ; 
  57. ;  Initialize the Libraries needed!
  58. ;
  59.    move.l sp,initialSP  
  60.    move.l AbsExecBase,a6  ; ExecLib Base
  61.    lea  GfxName,a1   ; addr. of library name
  62.    jsr  OpenLibrary(a6)  ; open it
  63.    move.l d0,GfxBase   ; store base pointer for use
  64.    move.l d0,d6    ; save for use
  65.    beq  NoGfx    ; cannot open dos.lib
  66.  
  67.    lea  SndBuffer,a1
  68.    lea  Sprites,a0
  69.    move.l #S_end-Sprites,d0
  70. lok1:   move.b (a0)+,(a1)+
  71.    dbra d0,lok1
  72. ;
  73. ; setup the new copper list (will be performed in next VBlank)
  74. ;
  75.    move.l AbsExecBase,a6
  76.    jsr  Forbid(a6)   ; stop multitasking
  77.  
  78.    move.l GfxBase,a0
  79.    add.l #$32,a0    ; point to LOFlist in GfxBase
  80.  
  81.    move.w #0,index+6
  82.    move.w #21,index+4
  83.    move.w #14,index+2
  84.    move.w #7,index
  85.  
  86.    move.w #$4000,INTENA  ; Master Interrupt Enable OFF
  87.    move.l Level3Int,OldVector ; store old interrupt vector
  88.    move.l #Handler,Level3Int
  89.  
  90.    move.w #$c000,INTENA  ; 
  91.  
  92.    move.w #$0080,DMACON  ; stop Copper DMA
  93.    move.l (a0),OldCopper  ; pointer to old copper list
  94.    move.l #CopList,(a0)  ; my own Coppers..
  95.    move.w #$80A0,DMACON  ; 
  96. ;
  97. ;  Moving Main Routine
  98. ;
  99. mvrt:
  100.    move.b $bfe001,d0   ; wait until mouse button
  101.    and.l #$40,d0
  102.    bne  mvrt  
  103. ;
  104. ;  reset all resources used!
  105. ;
  106.    move.l GfxBase,a0
  107.    add.l #$32,a0    ; point to LOFlist in GfxBase
  108.  
  109.    move.w #$0080,DMACON  ; stop Copper and Sound
  110.    move.l OldCopper,(a0)  ; restore pointer
  111.    move.w #$8180,DMACON  ; start again ...
  112.  
  113.    move.w #$4000,INTENA  ; stop interrupts
  114.    move.l OldVector,Level3Int
  115.    move.w #$c000,INTENA  ; start again
  116.  
  117.    move.l AbsExecBase,a6
  118.    jsr  Permit(a6)   ; restart multitasking
  119. ;
  120. ;  Ready to give system back
  121. ;
  122.    move.l GfxBase,a1
  123.    jsr  CloseLibrary(a6)
  124.    move.l initialSP,sp
  125.    clr.l d0     ; E.T. phone home!!
  126. ILLEGAL
  127. ;   rts
  128. ;
  129. ;  Display System ALERT
  130. ;
  131. FontErr: move.l #$60000!$8022,d7
  132.    bra.s DoAlert 
  133. NoGfx:  move.l #$30000!$8002,d7 ; AG_OpenLib!AO_GfxLib
  134. DoAlert: jsr  Alert(a6)
  135.    move.l initialSP,sp
  136.    rts       ; try to escape (without hope!)
  137. ;
  138. ;  ---------------------------------------------
  139. ;  Level 3 Interrupt Handler for VBlank & Copper
  140. ;  ---------------------------------------------
  141. ;
  142. Handler: movem.l d0-d2/a0-a1,-(a7)
  143.    move SR,-(sp)   ; don't modify registers
  144.    move.w INTREQR,d0   ; get interrupts
  145.    btst #5,d0    ; test for VBlank Interrupt
  146.    bne.s VBlank    ; VBlank Handler
  147.    bra  EndHandler 
  148. ;
  149. ; VBlank Handler Fine Scrolling Routine
  150. ;
  151. VBlank:
  152.    clr.l d2
  153.    lea  xpos,a0
  154.    lea  SndBuffer,a1
  155. mvobj:
  156.    clr.l d0
  157.    move.w 0(a0,d2.w),d0
  158.    lsr.w #1,d0
  159.    bcs.s sethorz
  160.    bclr #0,3(a1)
  161.    bra.s lab1
  162. sethorz: bset #0,3(a1)
  163. lab1:
  164.    move.b d0,1(a1)
  165.  
  166.    move.b d0,73(a1)
  167.    move.w 8(a0,d2.w),d0
  168.    move.b d0,(a1)
  169.    add.w #17,d0
  170.    move.b d0,2(a1)
  171.  
  172.    add.l #148,a1    ; point to next Sprite Block
  173.    addq.w #2,d2    ; next sprite !
  174.    cmp.w #6,d2
  175.    bls  mvobj
  176.  
  177. ;
  178. ;  Move Sprites
  179. ;
  180.    movem.l a2-a3,-(sp)
  181.  
  182.    clr.l d2
  183.    lea  index,a0
  184.    lea  x_position,a1
  185.    lea  y_position,a2
  186.    lea  xpos,a3
  187. npos:
  188.    move.w 0(a0,d2.w),d0
  189.    cmp.w #256,d0
  190.    bcs.s lok2
  191.    clr.w d0
  192. lok2:  move.b 0(a1,d0.w),d1
  193.    and.w #$ff,d1
  194.    add.w #120,d1
  195.    move.w d1,0(a3,d2.w)
  196.  
  197.    move.b 0(a2,d0.w),d1
  198.    and.w #$ff,d1
  199.    add.w #44,d1
  200.    move.w d1,8(a3,d2.w)
  201.  
  202.    addq.w #1,d0
  203.    move.w d0,0(a0,d2.w)
  204.  
  205.    addq.w #2,d2
  206.    cmp.l #6,d2
  207.    bls  npos
  208.  
  209.    movem.l (sp)+,a2-a3
  210. ;
  211. ;  End of Vertical Blank Handler Routine
  212. ;
  213. EndHandler:
  214.    move (sp)+,SR
  215.    movem.l (sp)+,d0-d2/a0-a1
  216.    DC.W $4ef9
  217. OldVector: DC.L $0000
  218.  
  219. GfxName: DC.B 'graphics.library',0
  220.    even
  221.  
  222. Sprites:
  223. ;
  224. ;  Sprite Data 4
  225. ;
  226.    DC.W $6d60
  227.    DC.W $7e00
  228.    DC.W $00f8,$0000
  229.    DC.W $0108,$00f0
  230.    DC.W $02e8,$01f0
  231.    DC.W $05e8,$03f0
  232.    DC.W $0be8,$07f0
  233.    DC.W $1668,$0ff0
  234.    DC.W $2c68,$1ef0
  235.    DC.W $5868,$3cf0
  236.    DC.W $b868,$7cf0
  237.    DC.W $bfe2,$7ffc
  238.    DC.W $bffa,$7ffc
  239.    DC.W $8062,$7ffc
  240.    DC.W $ff6e,$00f0
  241.    DC.W $0168,$00f0
  242.    DC.W $0168,$00f0
  243.    DC.W $0108,$00f0
  244.    DC.W $01f8,$0000
  245.  
  246.    DC.W $c060,$d100  ; position control of Spr. Reuse
  247.    DC.W $00f8,$0000
  248.    DC.W $0108,$00f0
  249.    DC.W $02e8,$01f0
  250.    DC.W $05e8,$03f0
  251.    DC.W $0be8,$07f0
  252.    DC.W $1668,$0ff0
  253.    DC.W $2c68,$1ef0
  254.    DC.W $5868,$3cf0
  255.    DC.W $b868,$7cf0
  256.    DC.W $bfe2,$7ffc
  257.    DC.W $bffa,$7ffc
  258.    DC.W $8062,$7ffc
  259.    DC.W $ff6e,$00f0
  260.    DC.W $0168,$00f0
  261.    DC.W $0168,$00f0
  262.    DC.W $0108,$00f0
  263.    DC.W $01f8,$0000
  264.    DC.W $0000,$0000
  265. ;
  266. ;   Sprite Data 9
  267. ;
  268.    DC.W $6d60,$7e00
  269.    DC.W $1fe0,$0000
  270.    DC.W $2010,$1fe0
  271.    DC.W $5fe8,$3ff0
  272.    DC.W $b074,$7ff8
  273.    DC.W $b074,$78f8
  274.    DC.W $b074,$78f8
  275.    DC.W $b074,$78f8
  276.    DC.W $bff4,$7ff8
  277.    DC.W $5ff4,$3ff8
  278.    DC.W $2074,$1ff8
  279.    DC.W $1f74,$00f8
  280.    DC.W $f174,$00f8
  281.    DC.W $8f74,$70f8
  282.    DC.W $b074,$7ff8
  283.    DC.W $5fe8,$3ff0
  284.    DC.W $2010,$1fe0
  285.    Dc.W $1fe0,$0000
  286.  
  287.    DC.W $c060,$d100   ; position control
  288.    DC.W $1fe0,$0000
  289.    DC.W $2010,$1fe0
  290.    DC.W $5fe8,$3ff0
  291.    DC.W $b074,$7ff8
  292.    DC.W $b074,$78f8
  293.    DC.W $b074,$78f8
  294.    DC.W $b074,$78f8
  295.    DC.W $bff4,$7ff8
  296.    DC.W $5ff4,$3ff8
  297.    DC.W $2074,$1ff8
  298.    DC.W $1f74,$00f8
  299.    DC.W $f174,$00f8
  300.    DC.W $8f74,$70f8
  301.    DC.W $b074,$7ff8
  302.    DC.W $5fe8,$3ff0
  303.    DC.W $2010,$1fe0
  304.    Dc.W $1fe0,$0000
  305.    Dc.W $0000,$0000
  306.  
  307. ; Sprite Data 1   (times 2)
  308.  
  309.    DC.W $6d60,$7e00
  310.    DC.W $0fe0,$0000
  311.    DC.W $1020,$0fc0
  312.    DC.W $2fa0,$1fc0
  313.    DC.W $5fa0,$3fc0
  314.    DC.W $b3a0,$7fc0
  315.    DC.W $aba0,$77c0
  316.    DC.W $9ba0,$67c0
  317.    DC.W $eba0,$07c0
  318.    DC.W $0ba0,$07c0
  319.    DC.W $0ba0,$07c0
  320.    DC.W $0ba0,$07c0
  321.    DC.W $0ba0,$07c0
  322.    DC.W $0ba0,$07c0
  323.    DC.W $0ba0,$07c0
  324.    DC.W $0ba0,$07c0
  325.    DC.W $0820,$07c0
  326.    DC.W $0fe0,$0000
  327.  
  328.    DC.W $c060,$d100   ; position control
  329.    DC.W $0fe0,$0000
  330.    DC.W $1020,$0fc0
  331.    DC.W $2fa0,$1fc0
  332.    DC.W $5fa0,$3fc0
  333.    DC.W $b3a0,$7fc0
  334.    DC.W $aba0,$77c0
  335.    DC.W $9ba0,$67c0
  336.    DC.W $eba0,$07c0
  337.    DC.W $0ba0,$07c0
  338.    DC.W $0ba0,$07c0
  339.    DC.W $0ba0,$07c0
  340.    DC.W $0ba0,$07c0
  341.    DC.W $0ba0,$07c0
  342.    DC.W $0ba0,$07c0
  343.    DC.W $0ba0,$07c0
  344.    DC.W $0820,$07c0
  345.    DC.W $0fe0,$0000
  346.    DC.W $0000,$0000
  347. ;
  348. ;  last Sprite of 1 image
  349. ;
  350.    DC.W $6d60,$7e00
  351.    DC.W $0fe0,$0000
  352.    DC.W $1020,$0fc0
  353.    DC.W $2fa0,$1fc0
  354.    DC.W $5fa0,$3fc0
  355.    DC.W $b3a0,$7fc0
  356.    DC.W $aba0,$77c0
  357.    DC.W $9ba0,$67c0
  358.    DC.W $eba0,$07c0
  359.    DC.W $0ba0,$07c0
  360.    DC.W $0ba0,$07c0
  361.    DC.W $0ba0,$07c0
  362.    DC.W $0ba0,$07c0
  363.    DC.W $0ba0,$07c0
  364.    DC.W $0ba0,$07c0
  365.    DC.W $0ba0,$07c0
  366.    DC.W $0820,$07c0
  367.    DC.W $0fe0,$0000
  368.  
  369.    DC.W $c060,$d100   ; position control
  370.    DC.W $0fe0,$0000
  371.    DC.W $1020,$0fc0
  372.    DC.W $2fa0,$1fc0
  373.    DC.W $5fa0,$3fc0
  374.    DC.W $b3a0,$7fc0
  375.    DC.W $aba0,$77c0
  376.    DC.W $9ba0,$67c0
  377.    DC.W $eba0,$07c0
  378.    DC.W $0ba0,$07c0
  379.    DC.W $0ba0,$07c0
  380.    DC.W $0ba0,$07c0
  381.    DC.W $0ba0,$07c0
  382.    DC.W $0ba0,$07c0
  383.    DC.W $0ba0,$07c0
  384.    DC.W $0ba0,$07c0
  385.    DC.W $0820,$07c0
  386.    DC.W $0fe0,$0000
  387.    DC.W $0000,$0000
  388. S_end:  equ  *
  389. ;  -------------------------------------
  390. ;  DISPLAY COPROCCESSOR INSTRUCTION LIST
  391. ;  -------------------------------------
  392. ;
  393. CopList:
  394.   DC.W $008e,$2c81    ; DIW Start (3781)
  395.   DC.W $0090,$f4c1    ; DIW Stop (f6d1)
  396.   DC.W $0092,$38  ; DDF Start FETCH 22 WORDS ($28)
  397.   DC.W $0094,$d0  ; DDF Stop ($d8)
  398.   DC.W $00e0,BPlane1/$10000,$00e2
  399. LP1: DC.W [BPlane1&$ffff]+40
  400.   DC.W $00e4,BPlane2/$10000,$00e6
  401. LP2: DC.W [BPlane2&$ffff]+40
  402.   DC.W $0108,00  ; modulo odd planes (34)
  403.   DC.W $0100,$1200  ; 2 BitPlanes
  404.   DC.W $0102,$0000
  405.   DC.W $0104,$0024
  406.   DC.W $0180,$000  ; Background color
  407.   DC.W $0182,$000
  408.   DC.W $01a2,$00f
  409.   DC.W $01a4,$0af
  410.   DC.W $01a6,$0dd
  411.  
  412.   DC.W $01aa,$00f
  413.   DC.W $01ac,$0af
  414.   DC.W $01ae,$0dd
  415.  
  416.   DC.W $0120,$0004   ;[SndBuffer+148*2]/$10000
  417.   DC.W $0122,$5128   ;[SndBuffer+148*2]&$ffff
  418.  
  419.   DC.W $0124,$0004   ;[SndBuffer+148*1]/$10000
  420.   DC.W $0126,$5094   ;[SndBuffer+148*1]&$ffff
  421.  
  422.   DC.W $0128,$0004   ;SndBuffer/$10000
  423.   DC.W $012a,$5000   ;SndBuffer&$ffff
  424.  
  425.   DC.W $012c,$0004   ;[SndBuffer+148*3]/$10000
  426.   DC.W $012e,$51bc   ;[SndBuffer+148*3]&$ffff
  427. ;
  428. ; End of Copper List
  429. ;
  430.   DC.W $ffff,$fffe
  431.  
  432. ;
  433. ;  Sprite Moving Datas
  434. ;
  435. x_position:
  436.   DC.B $50,$50,$51,$53,$56,$5a,$5e,$63,$68,$6e,$74,$7b,$82
  437.   DC.B $89,$91,$98,$9f,$a7,$ad,$b4,$ba,$c0,$c5,$ca,$ce
  438.   DC.B $d1,$d4,$d6,$d7,$d8,$d8,$d8,$d6,$d5,$d2,$d0,$cd
  439.   DC.B $c9,$c5,$c1,$bd,$b9,$b5,$b1,$ad,$a9,$a6,$a2,$a0
  440.   DC.B $9d,$9b,$99,$98,$97,$97,$97,$97,$98,$99,$9b,$9c
  441.   DC.B $9e,$a0,$a2,$a4,$a6,$a8,$aa,$ab,$ac,$ad,$ae,$ae
  442.   Dc.B $ae,$ad,$ac,$aa,$a8,$a6,$a3,$a0,$9c,$98,$94,$8f
  443.   DC.B $8b,$86,$81,$7d,$78,$74,$70,$6c,$69,$66,$64,$62
  444.   DC.B $61,$61,$61,$62,$64,$66,$6a,$6d,$72,$77,$7d,$83
  445.   DC.B $89,$90,$97,$9f,$a6,$ae,$b6,$bd,$c4,$cb,$d1,$d7
  446.   DC.B $dd,$e2,$e6,$e9,$ec,$ee,$ef,$ef,$ee,$ed,$eb,$e8
  447.   DC.B $e4,$e0,$db,$d6,$d0,$ca,$c3,$bc,$b5,$ae,$a7,$a0
  448.   DC.B $9a,$93,$8d,$87,$82,$7d,$79,$76,$73,$70,$6f,$6e
  449.   DC.B $6d,$6d,$6e,$70,$71,$74,$76,$79,$7c,$80,$83,$87
  450.   DC.B $8b,$8e,$92,$95,$98,$9b,$9d,$9f,$a1,$a2,$a3,$a3
  451.   DC.B $a3,$a3,$a2,$a1,$a0,$9e,$9c,$9a,$98,$96,$94,$92
  452.   DC.B $90,$8e,$8d,$8b,$8b,$8a,$8a,$8b,$8b,$8d,$8f,$91
  453.   DC.B $94,$97,$9b,$9f,$a3,$a8,$ad,$b2,$b7,$bc,$c2,$c7
  454.   DC.B $cc,$d0,$d4,$d8,$dc,$de,$e1,$e2,$e3,$e3,$e3,$e1
  455.   DC.B $df,$dd,$d9,$d5,$d0,$cb,$c5,$be,$b7,$b0,$a9,$a1
  456.   DC.B $99,$91,$8a,$82,$7b,$74,$6e,$68,$63,$5e,$5a,$57
  457.   DC.B $54,$53,$52
  458.  
  459. y_position:
  460.   DC.B $56,$52,$4f,$4b,$48,$44,$41,$3e,$3c,$39,$37,$36
  461.   DC.B $35,$34,$33,$33,$33,$34,$35,$36,$37,$39,$3b,$3e
  462.   DC.B $40,$43,$45,$48,$4b,$4e,$51,$53,$56,$59,$5b,$5d
  463.   DC.B $5f,$61,$62,$63,$64,$65,$65,$66,$65,$65,$65,$64
  464.   DC.B $63,$62,$61,$60,$5f,$5e,$5c,$5b,$5a,$59,$58,$57
  465.   DC.B $57,$56,$56,$56,$56,$56,$57,$58,$58,$59,$5a,$5c
  466.   DC.B $5d,$5e,$60,$61,$63,$64,$65,$66,$67,$68,$69,$69
  467.   DC.B $69,$69,$69,$68,$67,$66,$64,$62,$60,$5e,$5c,$59
  468.   DC.B $56,$53,$50,$4d,$4a,$47,$44,$41,$3f,$3c,$3a,$38
  469.   DC.B $36,$34,$33,$32,$32,$32,$32,$32,$33,$35,$37,$39
  470.   DC.B $3b,$3e,$41,$44,$47,$4b,$4e,$52,$56,$59,$5d,$61
  471.   DC.B $64,$67,$6a,$6d,$6f,$72,$73,$75,$76,$77,$77,$77
  472.   DC.B $77,$77,$76,$74,$73,$71,$6f,$6d,$6b,$68,$66,$63
  473.   DC.B $60,$5e,$5b,$59,$56,$54,$52,$50,$4f,$4d,$4c,$4b
  474.   DC.B $4b,$4a,$4a,$4a,$4b,$4b,$4c,$4c,$4d,$4e,$4f,$50
  475.   DC.B $51,$52,$53,$54,$55,$56,$57,$57,$57,$57,$57,$57
  476.   DC.B $56,$56,$55,$54,$52,$51,$50,$4e,$4c,$4b,$49,$48
  477.   DC.B $46,$45,$43,$42,$41,$41,$40,$40,$40,$40,$41,$42
  478.   DC.B $43,$44,$46,$48,$4a,$4d,$50,$53,$56,$59,$5c,$5f
  479.   DC.B $62,$66,$69,$6c,$6f,$71,$74,$76,$78,$79,$7a,$7b
  480.   DC.B $7c,$7c,$7b,$7b,$79,$78,$76,$74,$72,$6f,$6c,$69
  481.   DC.B $65,$62,$5e,$5b
  482.  
  483.   DATA
  484. GfxBase: blk.l 1,0
  485. initialSP: blk.l 1,0
  486. OldCopper: blk.l 1,0
  487. Timer: blk.w 1,0
  488. xpos:  blk.w 4,0
  489. ypos:  blk.w 4,0
  490. index:  blk.w 4,0
  491.   END
  492.