home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / AmiCron_v4.2 / run.a < prev    next >
Encoding:
Text File  |  1991-04-06  |  559 b   |  34 lines
  1.     INCLUDE    "macros.i"
  2.     INCLUDE    "exec/types.i"
  3.     INCLUDE    "libraries/arpbase.i"
  4.     INCLUDE    "exec/ables.i"
  5.  
  6. ExecBase    EQU    4
  7.  
  8.     csect    _NOMERGE,0,0,0,4
  9. ;    section    _NOMERGE,code
  10.  
  11.     XDEF    MyExit,cmdlen,cmdline,run
  12.     XREF    LinkerDB,AmiCron,curdir,ArpBase,DOSBase,seglist
  13.  
  14. run    lea    LinkerDB,a4
  15.     lea    cmdline,a0
  16.     move.l    cmdlen,d0
  17.     jsr    AmiCron(pc)
  18. MyExit    move.l    ArpBase(a4),a6
  19.     move.l    curdir(a4),d1
  20.     Call    UnLock
  21.  
  22.     move.l    ExecBase.w,a6
  23.     FORBID
  24.     move.l    seglist(a4),d1
  25.     move.l    DOSBase(a4),a6
  26.     Call    UnLoadSeg
  27.     move.l    ArpBase(a4),a6
  28.     Call    ArpExit
  29.     rts
  30.  
  31. cmdlen    dc.l    0
  32. cmdline    ds.b    256
  33.     END
  34.