home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 077.lha / Postscript / Sources / ps.h < prev    next >
Encoding:
Text File  |  1986-11-20  |  1.3 KB  |  85 lines
  1.  
  2. * header for ps modules
  3.  
  4. lref  macro
  5. _LVO\1      equ  -6*(\2+4)
  6.       endm
  7.  
  8. call  macro
  9.       jsr   _LVO\1(A6)
  10.       endm
  11.  
  12. print macro
  13.       lea   \1,A0
  14.       bsr   msg
  15.       endm
  16.  
  17. ERR   macro
  18.       lea   \1,A0
  19.       bsr   msg
  20.       bra   reinterp
  21.       endm
  22.  
  23. DEF   macro
  24.       xdef  _\1
  25. _\1
  26.       endm
  27.  
  28. ARG   macro
  29.       cmp.w    #\1,(A5)+
  30.       bne      type_mismatch
  31.       move.l   (A5)+,D0
  32.       endm
  33.  
  34. RETURN   macro
  35.       move.w   #\1,D2
  36.       bra      r.ipush
  37.       endm
  38.  
  39. bstr  macro
  40. \1    dc.b  1$-*-1
  41.       dc.b  '\2',10
  42. 1$
  43.       endm
  44.  
  45.  
  46. cnttype     set   -1
  47. newtype  macro
  48. \1          equ   cnttype
  49. cnttype     set   cnttype+1
  50.          endm
  51.  
  52.    newtype     Illegal
  53.    newtype     ICode
  54.    newtype     Integer
  55.    newtype     Name
  56.    newtype     String
  57.    newtype     Boolean
  58.    newtype     Real
  59.    newtype     FontID
  60.    newtype     Array
  61.    newtype     Mark
  62.    newtype     Dictionary
  63.    newtype     Save
  64.    newtype     Dummy
  65.    newtype     File
  66.  
  67. PointFive   equ   $80000040
  68. OnePoint    equ   $80000041
  69. ThreePoint  equ   $C0000042
  70. FourPoint   equ   $80000043
  71.  
  72. HiRes       equ   1
  73. NumColors   equ   16
  74. InterAct    equ   1
  75. NumPlanes   equ   4
  76.  
  77. PstackSize  equ    20
  78. IstackSize  equ   100
  79. DstackSize  equ   20
  80. SstackSize  equ   10
  81. SAreaSize   equ   3000
  82. SizeDict    equ   100
  83. CodeSize    equ   5000
  84.  
  85.