home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / copb.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  93 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. andi.b #64,$bfe001
  24. bne loop
  25. jmp $fc0000
  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,$0000
  33. dc.w $010a,$0000
  34. dc.w $00e0,$0000
  35. dc.w $00e2,$0000
  36. dc.w $0182,$000f
  37. dc.w $0180,$0000
  38. dc.w $8001,$ff00
  39. dc.w $0180,$0000
  40. dc.w $0180,$0fff
  41. dc.w $8201,$ff00
  42. dc.w $0180,$0fff
  43. dc.w $0180,$fff0
  44. dc.w $9201,$ff00
  45. dc.w $0180,$fff0
  46. dc.w $0180,$f0f4
  47. dc.w $9401,$ff00
  48. dc.w $0180,$f0f4
  49. dc.w $0180,$0000
  50. dc.w $9501,$ff00
  51. poke:
  52. dc.w $00e0,$0000
  53. dc.w $00e2,$0000
  54. dc.w $1011,$ff00
  55. dc.w $00e0,$0000
  56. dc.w $00e2,$0000
  57. dc.w $e001,$ff00
  58. dc.w $0180,$0000
  59. dc.w $0180,$1234
  60. dc.w $1211,$ff00
  61. dc.w $0180,$1234
  62. dc.w $0180,$4321
  63. dc.w $2211,$ff00
  64. dc.w $0180,$4321
  65. dc.w $0180,$5678
  66. dc.w $2411,$ff00
  67. dc.w $0180,$5678
  68. dc.w $0180,$0000
  69. dc.w $2e11,$ff00
  70. dc.w $0180,$0000
  71. dc.w $0180,$ffff
  72. dc.w $3211,$ff00
  73. dc.w $0180,$ffff
  74. dc.w $0180,$0000
  75. dc.w $ffff,$fffe
  76. execbase         = 4
  77. oldopenlibrary   = -30-378
  78. even
  79. gfxname:  dc.b "graphics.library",0
  80. even
  81. gfxbase:  dc.l 0
  82.  
  83. getbas:
  84. move.l execbase,a6
  85. lea gfxname,a1
  86. jsr oldopenlibrary(a6)
  87. move.l d0,gfxbase
  88. rts
  89. tab: 
  90. dc.b $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7a,$7b,$7c,$7d,$7e,$7f
  91. dc.b $7f,$7e,$7d,$7c,$7b,$7a,$79,$78,$77,$76,$75,$74,$73,$72,$71,$70
  92. dc.b $00
  93.