XREF        _AbsExecBase
                XREF        _LVOOpenLibrary
                XREF        _LVOCreateProc
                XREF        _LVOLoadSeg

                movea.l     _AbsExecBase,a6
                clr.l       d0
                movea.l     #Dosname,a1
                jsr         _LVOOpenLibrary(a6)
                move.l      d0,Dosptr


Crproc:
                move.l      Dosptr,a6
                move.l      #ProcName,d1
                jsr         _LVOLoadSeg(a6)
                move.l      d0,d3
                move.l      Dosptr,a6
                move.l      #Name,d1
                move.l      #0,d2
                move.l      #4000,d4
                jsr         _LVOCreateProc(a6)
                clr.l       d0
                rts



ProcName:       dc.b        'PBG',0
                cnop        0,2
Name:           dc.b        'name',0
                cnop        0,2
Dosname:        dc.b        'dos.library',0
                cnop        0,2
Dosptr:         ds.l        1