home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / nasm20 / nasm20s / graphix.h65 < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.0 KB  |  47 lines
  1.    .if .not .def _GRAPHIX_
  2.  
  3. _GRAPHIX_ = 1   
  4.  
  5.    .if .not .def _SYSTEM
  6.       .include #system
  7.    .endif
  8.    .if .not .def _MACROS_
  9.       .include #macros
  10.    .endif
  11. ; -------------------------------------------------------------
  12. ; For the macro...
  13. ;              FILL  channel,x,y,color[,flags]
  14. ; will get us
  15. ;     channel in X
  16. ; -------------------------------------------------------------
  17.    .macro fill
  18. @tmp  .= p2 + p3 + p3   
  19.       .if %0 = 5
  20.          .if .not [%5 & $8000]
  21.             ch_x  %5
  22.          .endif
  23. @tmp     .=  %5
  24.       .endif
  25.       @moke_x  %2,colcrs,@tmp,2
  26.       @moke_x  %3,rowcrs,@tmp,4
  27.       @moke_x  %4,fildat,@tmp,8
  28.       poke_x   iccom,18
  29.       jsr   ciov
  30.    .endm
  31.  
  32. ; -------------------------------------------------------------
  33. ; For the macro...
  34. ;              POSITION    x,y[,select]
  35. ; -------------------------------------------------------------
  36.    .macro position
  37.       .if %0 <> 3
  38.          dpoke colcrs,%1
  39.          poke  rowcrs,%2
  40.       .else
  41.          @moke %1,colcrs,%3,1
  42.          @moke %2,rowcrs,%3,2
  43.       .endif
  44.    .endm
  45.  
  46.    .endif
  47.