home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / fader.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  823 b   |  59 lines
  1.  
  2. shadedown:    ; A0=firstcoppercol D3=numberofcols
  3. move.l #16,d0
  4. move.l a0,a1
  5. move.l d3,d6
  6. mainshade:
  7. move.l d6,d3
  8. move.l a1,a0
  9. shadeloop:
  10. move.w (a0),d1
  11. move.w d1,d2
  12. and.w  #$000f,d2
  13. cmp.w  #0,d2
  14. beq    nobluesub
  15. sub.w  #$1,d2
  16. move.w  d1,d5
  17. and.w  #$ff0,d5
  18. add.w  d2,d5
  19. move.w d5,d1
  20. nobluesub:
  21. move.w d1,d2
  22. and.w  #$00f0,d2
  23. cmp.w  #0,d2
  24. beq    nogreensub
  25. sub.w  #$10,d2
  26. move.w  d1,d5
  27. and.w  #$f0f,d5
  28. add.w  d2,d5
  29. move.w d5,d1
  30. nogreensub:
  31. move.w d1,d2
  32. and.w  #$0f00,d2
  33. cmp.w  #0,d2
  34. beq    noredsub
  35. sub.w  #$100,d2
  36. move.w  d1,d5
  37. and.w  #$0ff,d5
  38. add.w  d2,d5
  39. move.w d5,d1
  40. noredsub:
  41. move.w d1,(a0)
  42. add.l  #4,a0
  43. sub.l  #1,d3
  44. cmp.l  #0,d3
  45. bhi    shadeloop
  46. move.l #12000,d4
  47. shadeloop4:
  48. subq.l #1,d4
  49. cmp.l  #0,d4
  50. bhi    shadeloop4
  51. shadeblank:
  52. cmp.b  #$ff,$dff006
  53. bne    shadeblank
  54. sub.l  #1,d0
  55. cmp.l  #0,d0
  56. bhi    mainshade
  57. rts
  58.  
  59.