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