home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / show32.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  1.6 KB  |  87 lines
  1. ;org $30000
  2. ;load $30000
  3.  
  4. j:
  5. move.l SP,STACKPOINTER
  6. move.l $4,a6
  7. jsr -150(a6)
  8. move.l d0,sysstack
  9.  
  10. ClearSpritePointers:
  11. lea SpritePointers(pc),a0
  12. move.w #7,d0
  13. move.l #Dummy,d1
  14. ClearS:
  15. move.w d1,6(a0)
  16. swap d1
  17. move.w d1,2(a0)
  18. swap d1
  19. addi.l #8,a0
  20. dbf d0,ClearS
  21.  
  22. move.l #copperlist,$dff080
  23. move.w $dff088,d0
  24. move.w #$8380,$dff096
  25.  
  26. ;bsr mt_init
  27.  
  28. koll:
  29. cmp.b #$ff,$dff006
  30. bne koll
  31.  
  32. ;move.w #$fff,$dff180    ;Raster Check
  33.  
  34. ;bsr mt_music
  35.  
  36. ;clr.w $dff180        ;End of raster check!
  37.  
  38. btst #6,$bfe001
  39. bne koll
  40.  
  41. Exit:
  42. ;bsr mt_end
  43. move.l $4,a6
  44. move.l sysstack,d0
  45. jsr -156(a6)
  46. lea graph(pc),a1
  47. jsr -408(a6)
  48. move.l d0,a6
  49. move.l 38(a6),$dff080
  50. move.w #$c000,$dff09a
  51. move.l STACKPOINTER,SP
  52. clr.l d0
  53. clr.l d1
  54. rts
  55.  
  56. copperlist:
  57. SpritePointers:
  58. dc.l $01200000,$01220000,$01240000,$01260000,$01280000,$012a0000
  59. dc.l $012c0000,$012e0000,$01300000,$01320000,$01340000,$01360000
  60. dc.l $01380000,$013a0000,$013c0000,$013e0000
  61.  
  62. dc.l $01005200,$00920038,$009400d0,$008e2481,$0090f4cc,$01020000
  63. dc.l $01080000,$010a0000
  64.  
  65. dc.l $01800000,$01820000,$01840000,$01860000,$01880000,$018a0000
  66. dc.l $018c0000,$018e0000,$01900000,$01920000,$01940000,$01960000
  67. dc.l $01980000,$019a0000,$019c0000,$019e0000,$01a00000,$01a20000
  68. dc.l $01a40000,$01a60000,$01a80000,$01aa0000,$01ac0000,$01ae0000
  69. dc.l $01b00000,$01b20000,$01b40000,$01b60000,$01b80000,$01ba0000
  70. dc.l $01bc0000,$01be0000
  71.  
  72. dc.l $00e00006,$00e20000    ;Var bitplane 1 ligger
  73. dc.l $00e40006,$00e61f40    ;Var bitplane 2 ligger
  74. dc.l $00e80006,$00ea3e80    ;Var bitplane 3 ligger
  75. dc.l $00ec0006,$00ee5dc0    ;Var bitplane 4 ligger
  76. dc.l $00f00006,$00f27d00    ;Var bitplane 5 ligger
  77.  
  78.  
  79. dc.l $fffffffe
  80.  
  81. graph: dc.b 'graphics.library',0
  82. EVEN
  83. SYSSTACK: dc.l 0
  84. STACKPOINTER: dc.l 0
  85. Dummy: dc.l 0
  86. End:
  87.