home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Assempro 1987.07.12 / Lowe_Assempro_1987_07_12.img / DEMO / POLYGON.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  1.0 KB  |  62 lines
  1. contrl=4
  2. ptsin=12
  3. fg_bp1=24
  4. fg_bp2=26
  5. fg_bp3=28
  6. fg_bp4=30
  7. wrt_mod=36
  8. y1=40
  9. patptr=46
  10. patmsk=50
  11. multifill=52
  12. clip=54
  13. xmn_clip=56
  14. ymn_clip=58
  15. xmx_clip=60
  16. ymx_clip=62
  17. init   equ dc.w $a000
  18. polygon equ dc.w $a006
  19.  init
  20.  move.w  #1,fg_bp1(a0)
  21.  clr.w   fg_bp2(a0)
  22.  clr.w   fg_bp3(a0)
  23.  clr.w   fg_bp4(a0)
  24.  move.w  #2,wrt_mod(a0)
  25.  pea     fill
  26.  move.l  (a7)+,patptr(a0)
  27.  move.w  #4,patmsk(a0)
  28.  clr.w   multifill(a0)
  29.  clr.w   clip(a0)
  30.  move.l  contrl(a0),a6
  31.  addq.l  #2,a6
  32.  move.w  #3,(a6)
  33.  move.l  ptsin(a0),a6
  34.  lea     tab,a5
  35.  moveq   #8,d3
  36. loop    move.w  (a5)+,(a6)+
  37.  dbra    d3,loop
  38.  moveq   #100,d3
  39. loop1   move.w  d3,y1(a0)
  40.  movem.l d3/a0,-(sp)
  41.  polygon
  42.  movem.l (sp)+,d3/a0
  43.  addq.w  #1,d3
  44.  cmp.w   #301,d3
  45.  bne.s   loop1
  46.  move.w  #7,-(a7)
  47.  trap    #1
  48.  addq.l  #2,a7
  49.  clr.w   -(sp) ;exit
  50.  trap    #1
  51.  addq.l  #2,sp
  52.  rts
  53. fill    dc.w    %1100110011001100
  54.  dc.w    %0110011001100110
  55.  dc.w    %0011001100110011
  56.  dc.w    %1001100110011001
  57. tab     dc.w    320,100
  58.  dc.w    120,300
  59.  dc.w    520,300
  60.  dc.w    320,100
  61.  end
  62.