home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 245.lha / PointerBeGone / PointerBeGone.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-03  |  1.0 KB  |  38 lines
  1.  
  2.  
  3.                 XREF        _AbsExecBase
  4.                 XREF        _LVOOpenLibrary
  5.                 XREF        _LVOCreateProc
  6.                 XREF        _LVOLoadSeg
  7.  
  8.                 movea.l     _AbsExecBase,a6
  9.                 clr.l       d0
  10.                 movea.l     #Dosname,a1
  11.                 jsr         _LVOOpenLibrary(a6)
  12.                 move.l      d0,Dosptr
  13.  
  14.  
  15. Crproc:
  16.                 move.l      Dosptr,a6
  17.                 move.l      #ProcName,d1
  18.                 jsr         _LVOLoadSeg(a6)
  19.                 move.l      d0,d3
  20.                 move.l      Dosptr,a6
  21.                 move.l      #Name,d1
  22.                 move.l      #0,d2
  23.                 move.l      #4000,d4
  24.                 jsr         _LVOCreateProc(a6)
  25.                 clr.l       d0
  26.                 rts
  27.  
  28.  
  29.  
  30. ProcName:       dc.b        'PBG',0
  31.                 cnop        0,2
  32. Name:           dc.b        'name',0
  33.                 cnop        0,2
  34. Dosname:        dc.b        'dos.library',0
  35.                 cnop        0,2
  36. Dosptr:         ds.l        1
  37.  
  38.