home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / cop6.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  86 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.w #10,poki 
  19. add.l #40,d0
  20. move.w d0,poke+6
  21. swap d0
  22. move.w d0,poke+2
  23. move.w $dff00a,pake+6
  24. btst #10,$dff016
  25. bne.s ne
  26. add.w #1,pake+2
  27. ne: andi.b #64,$bfe001
  28. bne loop
  29. jmp $fc0000
  30.  
  31. copper:
  32. dc.w $0100,$1200
  33. dc.w $008e,$1f81
  34. dc.w $0090,$2ec1
  35. dc.w $0092,$38
  36. dc.w $0094,$d0
  37. dc.w $0108,$0000
  38. dc.w $010a,$0000
  39. poke:
  40. dc.w $00e0,$0000
  41. dc.w $00e2,$0000
  42. dc.w $0182,$000f
  43. dc.w $0180,$0000
  44. dc.w $3001,$ff01
  45. dc.w $0180
  46. poki:
  47. dc.w $0f00
  48. dc.w $4001,$ff02
  49. dc.w $0180,$0000
  50. dc.w $0100,$1210
  51. dc.w $4501,$ff01
  52. dc.w $0180,$0911
  53. dc.w $5001,$ff03
  54. dc.w $0180,$0000
  55. dc.w $6001,$ff04
  56. dc.w $0180,$00f0
  57. pake:
  58. dc.w $00e0,$0000
  59. dc.w $00e2,$0000
  60. dc.w $8001,$ff00
  61. dc.w $0180,$ff33
  62. dc.w $8101,$ff10
  63. dc.w $0180,$ff35
  64. dc.w $8501,$ff11
  65. dc.w $0180,$ff34
  66. dc.w $8601,$ff00
  67. dc.w $0180,$ff00
  68. dc.w $f001,$ff00
  69. dc.w $0180,$0000
  70. dc.w $ffff,$fffe
  71.  
  72. execbase         = 4
  73. oldopenlibrary   = -30-378
  74. even
  75. gfxname:  dc.b "graphics.library",0
  76. even
  77. gfxbase:  dc.l 0
  78.  
  79. getbas:
  80. move.l execbase,a6
  81. lea gfxname,a1
  82. jsr oldopenlibrary(a6)
  83. move.l d0,gfxbase
  84. rts
  85.  
  86.