home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / cop9.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  71 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. cmpi.b #$ff,$dff006
  14. bne loop
  15. move.w poke+2,d0
  16. swap d0
  17. move.w poke+6,d0
  18. add.l #40,d0
  19. move.w d0,poke+6
  20. swap d0
  21. move.w d0,poke+2
  22. andi.b #64,$bfe001
  23. bne loop
  24. jmp $fc0000
  25.  
  26. copper:
  27. dc.w $0100,$1200
  28. dc.w $008e,$1f81
  29. dc.w $0090,$2ec1
  30. dc.w $0092,$38
  31. dc.w $0094,$d0
  32. dc.w $0108,$0120
  33. dc.w $010a,$0022
  34. dc.w $010c,$0012
  35. poke:
  36. dc.w $00e0,$0000
  37. dc.w $00e2,$0000
  38. dc.w $0182,$000f
  39. dc.w $0180,$0000
  40. dc.w $4001,$ff00
  41. dc.w $0182,$0000
  42. dc.w $0180,$0f00
  43. dc.w $4201,$ff00
  44. dc.w $0182,$0001
  45. dc.w $0180,$ffff
  46. dc.w $5200,$ff00
  47. dc.w $0182,$0002
  48. dc.w $0180,$0000
  49. dc.w $5401,$ff00
  50. dc.w $0182,$0003
  51. dc.w $0180,$ffff
  52. dc.w $a001,$ff00
  53. dc.w $0182,$ffd0
  54. dc.w $0180,$0000
  55. dc.w $ffff,$fffe
  56.  
  57. execbase         = 4
  58. oldopenlibrary   = -30-378
  59. even
  60. gfxname:  dc.b "graphics.library",0
  61. even
  62. gfxbase:  dc.l 0
  63.  
  64. getbas:
  65. move.l execbase,a6
  66. lea gfxname,a1
  67. jsr oldopenlibrary(a6)
  68. move.l d0,gfxbase
  69. rts
  70.  
  71.