home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / SOURCECODE / ps3msrc.lha / PS3M / demo / Guru.i < prev    next >
Encoding:
Text File  |  1994-08-24  |  2.5 KB  |  191 lines
  1. Push    macro
  2.     ifc    "\1","All"
  3.     movem.l    d0-a6,-(sp)
  4.     else    
  5.     movem.l    \1,-(sp)
  6.     endc
  7.     endm
  8.  
  9. Pull    macro
  10.     ifc    "\1","All"
  11.     movem.l    (sp)+,d0-a6
  12.     else    
  13.     movem.l    (sp)+,\1
  14.     endc
  15.     endm
  16.  
  17. CALL    macro
  18.     jsr    _LVO\1(a6)
  19.     endm
  20.  
  21. CLIB    macro
  22.     ifc    "\1","Exec"
  23.     move.l    4.w,a6
  24.     else
  25.     move.l    _\1Base,a6
  26.     endc
  27.     jsr    _LVO\2(a6)
  28.     endm
  29.  
  30. CPLIB    macro
  31.     ifc    "\1","Exec"
  32.     move.l    4.w,a6
  33.     else
  34.     move.l    _\1Base(pc),a6
  35.     endc
  36.     jsr    _LVO\2(a6)
  37.     endm
  38.  
  39. C5LIB    macro
  40.     ifc    "\1","Exec"
  41.     move.l    4.w,a6
  42.     else
  43.     move.l    _\1Base(a5),a6
  44.     endc
  45.     jsr    _LVO\2(a6)
  46.     endm
  47.  
  48. OLIB    macro    *LIB_ID,CLEANUP    openlib Dos, cleanup
  49. D\1    set    1
  50.     move.l    4.w,a6
  51.     lea    _\1Lib(pc),a1
  52.     moveq    #0,d0
  53.     jsr    _LVOOpenLibrary(a6)
  54.     ifd    RELATIVE
  55.     move.l    d0,_\1Base(a5)
  56.     endc
  57.     ifnd    RELATIVE
  58.     move.l    d0,_\1Base
  59.     endc
  60.     ifnc    '\2',''
  61.     beq    \2
  62.     endc
  63.     endm
  64.  
  65. CLLIB    macro    *LIB_ID        closlib Dos
  66.     ifd    RELATIVE
  67.     move.l    _\1Base(a5),a1
  68.     endc
  69.     ifnd    RELATIVE
  70.     move.l    _\1Base(pc),a1
  71.     endc
  72.     move.l    a1,d0
  73.     beq    cLIB\@
  74.     move.l    4,a6
  75.     jsr    _LVOCloseLibrary(a6)
  76. cLIB\@        
  77.     ifd    RELATIVE
  78.     clr.l    _\1Base(a5)
  79.     endc
  80.     ifnd    RELATIVE
  81.     clr.l    _\1Base
  82.     endc
  83.     endm
  84.  
  85. libnames    macro
  86.         ifd    DClist
  87. _ClistLib    dc.b    'clist.library',0
  88.         cnop    0,2
  89.         ifnd    _ClistBase
  90. _ClistBase    dc.l    0
  91.         endc
  92.         endc
  93.  
  94.         ifd    DGFX
  95. _GFXLib        dc.b    'graphics.library',0
  96.         cnop    0,2
  97.         ifnd    _GFXBase
  98. _GFXBase    dc.l    0
  99.         endc
  100.         endc
  101.  
  102.         ifd    DLayers
  103. _LayersLib    dc.b    'layers.library',0
  104.         cnop    0,2
  105.         ifnd    _LayersBase
  106. _LayersBase    dc.l    0
  107.         endc
  108.         endc
  109.  
  110.         ifd    DInt
  111. _IntLib        dc.b    'intuition.library',0
  112.         cnop    0,2
  113.         ifnd    _IntBase
  114. _IntBase    dc.l    0
  115.         endc
  116.         endc
  117.  
  118.         ifd    DMath
  119. _MathLib    dc.b    'mathffp.library',0
  120.         cnop    0,2
  121.         ifnd    _MathBase
  122. _MathBase    dc.l    0
  123.         endc
  124.         endc
  125.  
  126.         ifd    DMathTrans
  127. _MathTransLib    dc.b    'mathtrans.library',0
  128.         cnop    0,2
  129.         ifnd    _MathTransBase
  130. _MathTransBase    dc.l    0
  131.         endc
  132.         endc
  133.  
  134.         ifd    DMathIeeeDoubBas
  135. _MathIeeeDoubBasLib    dc.b    'mathieeedoubbas.library',0
  136.         cnop    0,2
  137.         ifnd    _MathIeeeDoubBasBase
  138. _MathIeeeDoubBasBase    dc.l    0
  139.         endc
  140.         endc
  141.  
  142.         ifd    DDos
  143. _DosLib        dc.b    'dos.library',0
  144.         cnop    0,2
  145.         ifnd    _DosBase
  146. _DosBase    dc.l    0
  147.         endc
  148.         endc
  149.  
  150.         ifd    DPP
  151. _PPLib        dc.b    'powerpacker.library',0
  152.         cnop    0,2
  153.         ifnd    _PPBase
  154. _PPBase        dc.l    0
  155.         endc
  156.         endc
  157.  
  158.         ifd    DRT
  159. _RTLib        dc.b    'reqtools.library',0
  160.         cnop    0,2
  161.         ifnd    _RTBase
  162. _RTBase        dc.l    0
  163.         endc
  164.         endc
  165.  
  166.         ifd    DTranslator
  167. _TranslatorLib    dc.b    'translator.library',0
  168.         cnop    0,2
  169.         ifnd    _TranslatorBase
  170. _TranslatorBase    ds.l    1
  171.         endc
  172.         endc
  173.  
  174.         ifd    DIcon
  175. _IconLib    dc.b    'icon.library',0
  176.         cnop    0,2
  177.         ifnd    _IconBase
  178. _IconBase    dc.l    0
  179.         endc
  180.         endc
  181.  
  182.         ifd    DDiskfont
  183. _DiskfontLib    dc.b    'diskfont.library',0
  184.         cnop    0,2
  185.         ifnd        _DiskfontBase
  186. _DiskfontBase    dc.l    0
  187.         endc
  188.         endc
  189.         endm
  190.  
  191.