mach/mantra/int/deffile

   1 #ifdef lword
   2 #define word 4
   3 #define wrd     #4
   4 #define wmu #2
   5 #define und     #-0x80000000
   6 #define ad      add.l
   7 #define an      and.l
   8 #define asle    asl.l
   9 #define asri    asr.l
  10 #define cl clr.l
  11 #define comp    cmp.l
  12 #define exor    eor.l
  13 #define extend  !
  14 #define inor    or.l
  15 #define lsle    lsl.l
  16 #define lsri    lsr.l
  17 #define nega    neg.l
  18 #define mov move.l
  19 #define nt      not.l
  20 #define rotl    rol.l
  21 #define rotr    ror.l
  22 #define subt    sub.l
  23 #define testen tst.l
  24 #define l0 16
  25 #define l1 20
  26 #define l2 24
  27 #define l3 28
  28 #define l_1 -4
  29 #define l_2 -8
  30 #define l_3 -12
  31 #define l_4 -16
  32 #define l_5 -20
  33 #define l_6 -24
  34 #define l_7 -28
  35 #define l_8 -32
  36 #define checksize cmp.l #4,d0 ; beq 4f ; cmp.l #8,d0 ; bne 9f ; bsr no8bar ; \
  37 9: bra e_oddz
  38 #else
  39 #define word 2
  40 #define wrd     #2
  41 #define wmu #1
  42 #define und     #-0x8000
  43 #define ad      add.w
  44 #define an      and.w
  45 #define asle    asl.w
  46 #define asri    asr.w
  47 #define cl clr.w
  48 #define comp    cmp.w
  49 #define exor    eor.w
  50 #define extend  ext.l
  51 #define inor    or.w
  52 #define lsle    lsl.w
  53 #define lsri    lsr.w
  54 #define nega    neg.w
  55 #define mov move.w
  56 #define nt      not.w
  57 #define rotl    rol.w
  58 #define rotr    ror.w
  59 #define subt    sub.w
  60 #define testen tst.w
  61 #define l0 16
  62 #define l1 18
  63 #define l2 20
  64 #define l3 22
  65 #define l_1 -2
  66 #define l_2 -4
  67 #define l_3 -6
  68 #define l_4 -8
  69 #define l_5 -10
  70 #define l_6 -12
  71 #define l_7 -14
  72 #define l_8 -16
  73 #define checksize cmp.w #2,d0 ; beq 2f ; cmp.w #4,d0 ; beq 4f ; bra e_oddz
  74 #endif
  75 #define  adroff move.b  (a3)+,(a5) ;    move.b  (a3)+,1(a5)
  76 #define claimstack      tst.b   -1024(sp)
  77 #define locptr  cmp.l   topstack,a0 ;\
  78                 bhi     7f ;\
  79                 cmp.l   sp,a0 ;\
  80                 bcc     6f
  81 #define heaptr  cmp.l   hp,a0 ;\
  82                 bhi     7f ;\
  83                 cmp.l   tblmax,a0 ;\
  84                 bcc     6f
  85 #define extptr  cmp.l   globmax,a0 ;\
  86                 bcc     7f ;\
  87                 cmp.l   a6,a0 ;\
  88                 bcc     6f
  89 #define checkfsize cmp.w #4,d0 ; beq 4f ; cmp.w #8,d0 ; beq 8f ; bra e_oddz
  90