home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / gadtoolsbox / oberon / getfile / mymacros.i < prev   
Encoding:
Text File  |  1995-02-27  |  2.0 KB  |  134 lines
  1. *
  2. * mymacros.i - © Copyright 1990-91 Jaba Development
  3. *
  4. * Author  : Jan van den Baard
  5. *
  6. * Some very simple macros to make life easier......(?)
  7. *
  8.  
  9.     IFND    MYMACROS_I
  10. MYMACROS_I  SET 1
  11.  
  12. *
  13. *   libcall OpenWindow   equals   jsr _LVOOpenWindow(a6)
  14. *
  15. libcall macro
  16.         ifc     '','\1'
  17.         fail
  18.         mexit
  19.         endc
  20.         jsr     _LVO\1(a6)
  21.         endm
  22.  
  23. *
  24. *   cldat d0   equals   moveq #0,d0
  25. *
  26. cldat   macro
  27.         ifc     '','\1'
  28.         fail
  29.         mexit
  30.         endc
  31.         moveq   #0,\1
  32.         endm
  33.  
  34. *
  35. *   cladr a0   equals   suba.l a0,a0
  36. *
  37. cladr   macro
  38.         ifc     '','\1'
  39.         fail
  40.         mexit
  41.         endc
  42.         suba.l  \1,\1
  43.         endm
  44.  
  45. *
  46. *   inc.l d0   equals   addq.l #1,d0
  47. *
  48. inc     macro
  49.         ifc     '','\1'
  50.         fail
  51.         mexit
  52.         endc
  53.         addq.\0  #1,\1
  54.         endm
  55.  
  56. *
  57. *   dec.l d0   equals   subq.l #1,d0
  58. *
  59. dec     macro
  60.         ifc     '','\1'
  61.         fail
  62.         mexit
  63.         endc
  64.         subq.\0  #1,\1
  65.         endm
  66.  
  67. *
  68. *   push.w d0   equals   move.w d0,-(sp)
  69. *
  70. push    macro
  71.         ifc     '','\1'
  72.         fail
  73.         mexit
  74.         endc
  75.         move.\0 \1,-(sp)
  76.         endm
  77.  
  78. *
  79. *   pop.w d0   equals   move.w (sp)+,d0
  80. *
  81. pop     macro
  82.         ifc     '','\1'
  83.         fail
  84.         mexit
  85.         endc
  86.         move.\0 (sp)+,\1
  87.         endm
  88.  
  89. *
  90. *   pull 4,d0   equals   move.l 4(sp),d0
  91. *
  92. pull    macro
  93.         ifne    NARG-3
  94.         fail
  95.         mexit
  96.         endc
  97.         move.\0 \1(sp),\2
  98.         endm
  99.  
  100. *
  101. *   pushem.l d0-d2/a0/a6   equals   movem.l d0-d2/a0/a6,-(sp)
  102. *
  103. pushem  macro
  104.         ifc     '','\1'
  105.         fail
  106.         mexit
  107.         endc
  108.         movem.\0 \1,-(sp)
  109.         endm
  110.  
  111. *
  112. *   popem.l d0-d2/a0/a6   equals   movem.l (sp)+,d0-d2/a0/a6
  113. *
  114. popem   macro
  115.         ifc     '','\1'
  116.         fail
  117.         mexit
  118.         endc
  119.         movem.\0 (sp)+,\1
  120.         endm
  121.  
  122. *
  123. *   pullem.l 4,d0-d3/a0   equals   movem.l 4(sp),d0-d3/a0
  124. *
  125. pullem  macro
  126.         ifne    NARG-3
  127.         fail
  128.         mexit
  129.         endc
  130.         movem.\0 \1(sp),\2
  131.         endm
  132.  
  133.     ENDC    !MYMACROS_I
  134.