home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / enote / source.lha / source / call.i next >
Text File  |  1995-01-10  |  900b  |  81 lines
  1. LibCall        macro
  2.         xref    _LVO\1
  3.         jsr    _LVO\1(a6)
  4.         endm
  5.  
  6. ExCall        macro
  7.         xref    _SysBase
  8.         ifd    Relative
  9.         move.l    _SysBase(a4),a6
  10.         endc
  11.         ifnd    Relative
  12.         move.l    _SysBase,a6
  13.         endc
  14.         xref    _LVO\1
  15.         jsr    _LVO\1(a6)
  16.         endm
  17.  
  18. DosCall        macro
  19.         xref    _DOSBase
  20.         ifd    Relative
  21.         move.l    _DOSBase(a4),a6
  22.         endc
  23.         ifnd    Relative
  24.         move.l    _DOSBase,a6
  25.         endc
  26.         xref    _LVO\1
  27.         jsr    _LVO\1(a6)
  28.         endm
  29.  
  30. IntCall        macro
  31.         xref    _IntuitionBase
  32.         ifd    Relative
  33.         move.l    _IntuitionBase(a4),a6
  34.         endc
  35.         ifnd    Relative
  36.         move.l    _IntuitionBase,a6
  37.         endc
  38.         xref    _LVO\1
  39.         jsr    _LVO\1(a6)
  40.         endm
  41.  
  42. Call        macro
  43.         ifnd    \1
  44.         xref    \1
  45.         endc
  46.         ifd    LatticeAsm
  47.         jsr    \1(pc)
  48.         endc
  49.         ifnd    LatticeAsm
  50.         bsr    \1
  51.         endc
  52.         endm
  53.  
  54. Jump        macro
  55.         xref    \1
  56.         ifd    LatticeAsm
  57.         jmp    \1(pc)
  58.         endc
  59.         ifnd    LatticeAsm
  60.         bra    \1
  61.         endc
  62.         endm
  63.  
  64.  
  65.  
  66. Func        macro
  67.         ifnc    '\1',''
  68.         xdef    \1
  69. \1
  70.         endc
  71.         ifnc    '\2',''
  72.         xdef    \2
  73. \2
  74.         endc
  75.         ifnc    '\3',''
  76.         xdef    \3
  77. \3
  78.         endc
  79.         endm
  80.  
  81.