home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / PModules / argarray / argarraydone.asm next >
Encoding:
Assembly Source File  |  1994-04-19  |  687 b   |  36 lines
  1. *
  2. * argarraydone.asm
  3. *
  4. * binary source for EPP Module argarray.e
  5. *
  6.     opt l-    ; non-linkable, keep other default optimisations
  7.  
  8.     include    asmsupp.i
  9.     include    exec/exec_lib.i
  10.     include    workbench/icon_lib.i
  11.  
  12.         rsreset
  13. argarray    rs.l 1
  14. argarraysize    rs.l 1
  15. diskobject    rs.l 1
  16.  
  17. _ArgArrayInit
  18.     cargs    #0,iconbase.l,argarraydatabase.l
  19.     movea.l    argarraydatabase(sp),a2
  20.     move.l    (a2),d0        ; argarray(a2)
  21.     beq.s    noArray
  22.     movea.l    d0,a1
  23.     movea.l    4.w,a6
  24.     CALLSYS    FreeVec
  25.     clr.l    (a2)        ; argarray(a2)=NULL
  26.  
  27. noArray    move.l    diskobject(a2),d0
  28.     beq.s    noDiskObject
  29.     movea.l    d0,a0
  30.     move.l    (sp),a6        ; iconbase(sp)
  31.     CALLSYS    FreeDiskObject
  32.     clr.l    diskobject(a2)    ; NULL to prevent crash if second call to us
  33.  
  34. noDiskObject
  35.  
  36.