home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scrollup2.s < prev    next >
Text File  |  1995-03-17  |  789b  |  53 lines
  1. j: 
  2. move.l execbase,a6
  3. lea gfxname,a1
  4. jsr oldopenlibrary(a6)
  5. move.l d0,gfxbase
  6. move.l    $2230,(a7)
  7. move.l    #copper,$2230
  8. loop:
  9. move.w copper+6,kurt
  10. cmp.b #$5560,kurt
  11. bne next
  12. move.w #$0000,copper+6
  13. next:
  14. move.b $dff006,d0
  15. cmp.b #$ff,d0
  16. bne next
  17. next2:move.b $dff006,d0
  18. cmp.b #$fe,d0
  19. bne next2
  20. move.w copper+2,d0
  21. swap d0
  22. move.w copper+6,d0
  23. add.l #40,d0
  24. move.w d0,copper+6
  25. swap d0
  26. andi.b #64,$bfe001
  27. bne loop
  28. move.l (a7),$2230
  29. rts
  30. copper:
  31. dc.w $00e0,$0004
  32. dc.w $00e2,$0000
  33. dc.w $0180,$0000
  34. dc.w $0182,$0aaa
  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 $0120,$0004,$0122,$0000
  43. dc.w $ffff,$ff00
  44.  
  45. execbase         = 4
  46. oldopenlibrary   = -30-378
  47. even
  48. gfxname:  dc.b "graphics.library",0
  49. even
  50. gfxbase:  dc.l 0
  51. kurt:
  52. dc.l    0
  53.