home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / plotplane.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  568 b   |  47 lines
  1. InitPlot:
  2. move.l #$60000,d0    ;Plot plan!
  3. move.w #255,d1
  4. lea ypos(pc),a0
  5. lea xpos(pc),a1
  6. clr.l d2
  7. Initplot1:
  8. move.l d0,(a0)+
  9. add.l #40,d0
  10. dbf d1,initplot1
  11. move.w #319,d1
  12. clr.l d0
  13. Initplot2:
  14. move.l d0,d2
  15. divu #8,d2
  16. move.b d2,(a1)+
  17. swap d2
  18. move.b d2,d4
  19. eor #7,d4
  20. move.b d4,(a1)+
  21. add.w #1,d0
  22. dbf d1,initplot2
  23. rts
  24.  
  25. Plot:
  26. asl #2,d0
  27. asl #1,d1
  28. move.l (a0,d0.w),a1
  29. move.b (a2,d1.w),d4
  30. move.b 1(a2,d1.w),d1
  31. bset d1,(a1,d4.b)
  32. rts
  33.  
  34. UnPlot:
  35. asl #2,d0
  36. asl #1,d1
  37. move.l (a0,d0.w),a1
  38. move.b (a2,d1.w),d4
  39. move.b 1(a2,d1.w),d1
  40. bclr d1,(a1,d4.b)
  41. rts
  42.  
  43. ypos:
  44. blk.l 256,0
  45. xpos:
  46. blk.l 320,0
  47.