home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 130 / af130a.adf / DiskOrg.lzx / DiskOrg / mymacros.i < prev    next >
Text File  |  1983-01-21  |  1KB  |  74 lines
  1. call            macro
  2.         jsr     _LVO\1(a6)
  3.         endm
  4.  
  5. strcopy         macro
  6. .loop\@         move.b  (\1)+,(\2)+
  7.         bne.s   .loop\@
  8.         endm
  9.  
  10. strlen          macro
  11.         move.l  \1,-(sp)
  12.         moveq   #-1,d0
  13. .loop\@         addq.l  #1,d0
  14.         tst.b   (\1)+
  15.         bne.s   .loop\@
  16.         move.l  (sp)+,\1
  17.         endm
  18.  
  19. beep            macro
  20.         move.l  int_base,a6
  21.         sub.l   a0,a0
  22.         call    DisplayBeep
  23.         endm
  24.  
  25. openlib         macro
  26.         lea     \1_name,a1
  27.         move.l  #\2,d0
  28.         call    OpenLibrary
  29.         move.l  d0,\1_base
  30.         beq     \3
  31.         endm
  32.  
  33. closelib        macro
  34.         move.l  4,a6
  35.         move.l  \1_base,a1
  36.         call    CloseLibrary
  37.         endm
  38.  
  39. inc             macro
  40.         addq.\0 #1,\1
  41.         endm
  42.  
  43. dec             macro
  44.         subq.\0 #1,\1
  45.         endm
  46.  
  47. push            macro
  48.         move.\0 \1,-(sp)
  49.         endm
  50.  
  51. pull            macro
  52.         move.\0 (sp),\1
  53.         endm
  54.  
  55. pop             macro
  56.         move.\0 (sp)+,\1
  57.         endm
  58.  
  59. pushm           macro
  60.         movem.\0 \1,-(sp)
  61.         endm
  62.  
  63. popm            macro
  64.         movem.\0 (sp)+,\1
  65.         endm
  66.  
  67. cladd           macro
  68.         suba.l  \1,\1
  69.         endm
  70.  
  71. cldat           macro
  72.         moveq   #0,\1
  73.         endm
  74.