home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / copd.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  104 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. move.l #$7f17a,a5
  13. move.l a5,a7
  14. loop:
  15. move.b $dff006,d0
  16. cmp.b #$ff,d0
  17. bne loop
  18. move.w poke+2,d0
  19. swap d0
  20. move.w poke+6,d0
  21. add.l #40,d0
  22. move.w d0,poke+6
  23. swap d0
  24. move.w d0,poke+2
  25. move.b (a7),poke1
  26. move.b 1(a7),poke2
  27. addq.l #2,a7
  28. cmp.l #$7f1b5,a7
  29. bne loop
  30. move.l a5,a7
  31. andi.b #64,$bfe001
  32. bne loop
  33. jmp $fc0000
  34. copper:
  35. dc.w $0100,$1200
  36. dc.w $008e,$1f81
  37. dc.w $0090,$2ec1
  38. dc.w $0092,$38
  39. dc.w $0094,$d0
  40. dc.w $0108,$0000
  41. dc.w $010a,$0000
  42. dc.w $00e0,$0000
  43. dc.w $00e2,$0006
  44. dc.w $0182,$000f
  45. dc.w $0180,$0000
  46. dc.w $3001,$ff00
  47. dc.w $0180,$0000
  48. dc.w $0180,$0fff
  49. dc.w $3201,$ff00
  50. dc.w $0180,$0fff
  51. dc.w $0180,$fff0
  52. dc.w $4201,$ff00
  53. dc.w $0180,$fff0
  54. dc.w $0180,$f0f4
  55. dc.w $4401,$ff00
  56. dc.w $0180,$f0f4
  57. dc.w $0180,$0000
  58. dc.w $4501,$ff00
  59. poke:
  60. dc.w $00e0,$0000
  61. dc.w $00e2,$0000
  62. dc.w $6f01,$ff00
  63. dc.w $00e0,$0000
  64. dc.w $00e2,$0006
  65. dc.w $7001,$ff00
  66. dc.w $0180,$0000
  67. dc.w $0180,$1234
  68. dc.w $7201,$ff00
  69. dc.w $0180,$1234
  70. dc.w $0180,$4321
  71. dc.w $8201,$ff00
  72. dc.w $0180,$4321
  73. dc.w $0180,$5678
  74. dc.w $8401,$ff00
  75. dc.w $0180,$5678
  76. dc.w $0180,$0000
  77. poke1:
  78. dc.w $9001,$ff00
  79. dc.w $0182,$0000
  80. dc.w $0180,$ffff
  81. poke2:
  82. dc.w $9101,$ff00
  83. dc.w $0182,$0000
  84. dc.w $0180,$0000
  85. dc.w $ffff,$fffe
  86. execbase         = 4
  87. oldopenlibrary   = -30-378
  88. even
  89. gfxname:  dc.b "graphics.library",0
  90. even
  91. gfxbase:  dc.l 0
  92.  
  93. getbas:
  94. move.l execbase,a6
  95. lea gfxname,a1
  96. jsr oldopenlibrary(a6)
  97. move.l d0,gfxbase
  98. rts
  99. tab: 
  100. dc.b $90,$91,$91,$92,$92,$93,$93,$94,$94,$95,$95,$96,$96,$97,$97
  101. dc.b $98,$98,$99,$99,$9a,$9a,$9b,$9b,$9c,$9c,$9d,$9d,$9e,$9e,$9f,$9e
  102. dc.b $9f,$9d,$9e,$9c,$9d,$9b,$9c,$9a,$9b,$99,$9a,$98,$99,$97,$98,$96
  103. dc.b $97,$95,$96,$94,$95,$93,$94,$92,$93,$91,$92,$90,$91
  104.