home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / AmiCron_v4.2 / self.a < prev    next >
Text File  |  1991-04-06  |  784b  |  48 lines
  1.     INCLUDE    "macros.i"
  2.     INCLUDE    "exec/types.i"
  3.     INCLUDE    "exec/ables.i"
  4.     INCLUDE    "exec/execbase.i"
  5.     INCLUDE    "libraries/dosextens.i"
  6.     INCLUDE    "libraries/arpbase.i"
  7.  
  8.     BITDEF    PR,DEFSTACK,7
  9. ExecBase    EQU    4
  10.  
  11.     xref    LinkerDB
  12.     xref    AmiCron
  13.  
  14.     csect    _NOMERGE,0,0,0,4
  15. ;    section    _NOMERGE,code
  16.  
  17.     XDEF    MyExit
  18.  
  19. run    movem.l    d0/a0,-(a7)
  20.     lea    LinkerDB,a4
  21. cont    move.l    ExecBase.w,a6
  22.     lea    Arp,a1
  23.     moveq.l    #ArpVersion,d0
  24.     Call    OpenLibrary
  25.     move.l    d0,ArpBase(a4)
  26.     move.l    d0,a0
  27.     move.l    ab_DosBase(a0),DOSBase(a4)
  28.     move.l    ab_IntuiBase(a0),IntuitionBase(a4)
  29.  
  30.     movem.l    (a7)+,d0/a0
  31.     jsr    AmiCron(pc)
  32. MyExit    move.l    ArpBase(a4),a6
  33.     Call    ArpExit
  34.     rts
  35.  
  36. Arp    dc.b    "arp.library",0
  37.  
  38.     csect    __MERGED,1,0,0,4
  39. ;    section    __MERGED,data
  40.  
  41.     xdef    ArpBase,DOSBase,IntuitionBase
  42.  
  43. ArpBase    dc.l    0
  44. DOSBase    dc.l    0
  45. IntuitionBase
  46.     dc.l    0
  47.     END
  48.