home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / changeicon-1.0.lha / ChangeIcon / inc / private / macros.i < prev    next >
Text File  |  1993-08-16  |  738b  |  61 lines
  1.     IFND    PRIVATE_MACROS_I
  2. PRIVATE_MACROS_I=1
  3.     IFND    PRIVATE_EXEC_LIB_I
  4.     INCLUDE    "private/exec_lib.i"
  5.     ENDC
  6.     IFND    EXEC_EXECBASE_I
  7.     INCLUDE    "exec/execbase.i"
  8.     ENDC
  9. exec    MACRO
  10.     IF NARG
  11.     MOVE.L    4.W,\1
  12.     ELSE
  13.     MOVE.L    4.W,A6
  14.     ENDC
  15.     ENDM
  16. slib    MACRO
  17.     IF NARG-1
  18.     MOVE.L    gl_\1Base(A5),\2
  19.     ELSE
  20.     MOVE.L    gl_\1Base(A5),A6
  21.     ENDC
  22.     ENDM
  23. fjsr    MACRO
  24.     JSR    _LVO\1(A6)
  25.     ENDM
  26. fjmp    MACRO
  27.     JMP    _LVO\1(A6)
  28.     ENDM
  29. push    MACRO
  30.     IF NARG
  31.     MOVEM.L    \1,-(A7)
  32.     ELSE
  33.     MOVEM.L    D0-D7/A0-A6,-(A7)
  34.     ENDC
  35.     ENDM
  36. pull    MACRO
  37.     IF NARG
  38.     MOVEM.L    (A7)+,\1
  39.     ELSE
  40.     MOVEM.L    (A7)+,D0-D7/A0-A6
  41.     ENDC
  42.     ENDM
  43. lpush    MACRO
  44.     MOVE.L    \1,-(A7)
  45.     ENDM
  46. lpull    MACRO
  47.     MOVE.L    (A7)+,\1
  48.     ENDM
  49. rsword    MACRO
  50. .W    RS.B    0
  51.     RS.B    .W&1
  52.     ENDM
  53. rslong    MACRO
  54. .L    RS.B    0
  55.     RS.B    -.L&3
  56.     ENDM
  57. lb    EQUR    A6
  58. gl    EQUR    A5
  59. lo    EQUR    A4
  60.     ENDC
  61.