home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / cop2.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  114 lines
  1. ; copper exempel til amiga mc
  2. org   $7f000
  3. load  $7f000
  4. run:
  5. bsr getbas 
  6.  
  7. move.l gfxbase,a0
  8. add.l #$32,a0
  9. move.w #$0080,$dff096
  10. move.l #copper,(a0)
  11. move.w #$8080,$dff096
  12. loop:
  13. move.b $dff006,d0
  14. cmp.b #$ff,d0
  15. bne loop
  16. move.w poke+2,d0
  17. swap d0
  18. move.w poke+6,d0
  19. add.l #40,d0
  20. move.w d0,poke+6
  21. swap d0
  22. move.w d0,poke+2
  23. move.w paki+2,d0
  24. swap d0
  25. move.w paki+6,d0
  26. sub.l #$28,d0
  27. move.w d0,paki+6
  28. swap d0
  29. move.w d0,paki+2
  30. addq.w #8,pike+2
  31. addq.w #8,pike1+2
  32. addq.w #8,pike2+2
  33. addq.w #8,pike3+2
  34. addq.w #8,pike4+2
  35. addq.w #8,pike5+2
  36. andi.b #64,$bfe001
  37. bne loop
  38. jmp $fc0000
  39.  
  40. copper:
  41. dc.w $0100,$1200
  42. dc.w $008e,$1f81
  43. dc.w $0090,$2ec1
  44. dc.w $0092,$38
  45. dc.w $0094,$d0
  46. dc.w $0108,$0000
  47. dc.w $010a,$0000
  48. poke:
  49. dc.w $00e0,$0000
  50. dc.w $00e2,$0000
  51. dc.w $0182,$000f
  52. dc.w $0180,$0000
  53. dc.w $a851,$fffe
  54. pike:
  55. dc.w $0180,$0fff
  56. dc.w $a8c5,$fffe
  57. dc.w $0180,$0000
  58. dc.w $a951,$fffe
  59. pike1:
  60. dc.w $0180,$0fff
  61. dc.w $a9c5,$fffe
  62. dc.w $0180,$0000
  63. dc.w $aa51,$fffe
  64. pike2:
  65. dc.w $0180,$0fff
  66. dc.w $aac5,$fffe
  67. dc.w $0180,$0000
  68. dc.w $ab51,$fffe
  69. pike3:
  70. dc.w $0180,$0fff
  71. dc.w $abc5,$fffe
  72. dc.w $0180,$0000
  73. dc.w $ac51,$fffe
  74. pike4:
  75. dc.w $0180,$0fff
  76. dc.w $acc5,$fffe
  77. dc.w $0180,$0000
  78. dc.w $ad51,$fffe
  79. pike5:
  80. dc.w $0180,$0fff
  81. dc.w $adc5,$fffe
  82. dc.w $0180,$0000
  83. dc.w $d001,$ff00
  84. dc.w $0180,$0111
  85. dc.w $0182,$0fff
  86. paki:
  87. dc.w $00e0,$0000
  88. dc.w $00e2,$0000
  89. dc.w $d901,$ff00
  90. dc.w $0180,$0fff
  91. dc.w $0182,$f000
  92. dc.w $e05f,$fffe
  93. dc.w $0180,$0222
  94. dc.w $0182,$0333
  95. dc.w $e09f,$fffe
  96. dc.w $0180,$0fff
  97. dc.w $0182,$0111
  98. dc.w $ffff,$fffe
  99.  
  100. execbase         = 4
  101. oldopenlibrary   = -30-378
  102. even
  103. gfxname:  dc.b "graphics.library",0
  104. even
  105. gfxbase:  dc.l 0
  106.  
  107. getbas:
  108. move.l execbase,a6
  109. lea gfxname,a1
  110. jsr oldopenlibrary(a6)
  111. move.l d0,gfxbase
  112. rts
  113.  
  114.