/* REXX */
parse arg source object list options

if source='' then
do
   say 'Usage : as2 source object list options'
   exit 2
end

x=bpxwdyn("alloc fi(sysin) path('"source"') pathopts(ordonly) msg(2)")
x=x+bpxwdyn("alloc fi(sysprint) path('"list"')",
            "pathopts(owronly,ocreat,otrunc) pathmode(sirwxu) msg(2)")
x=x+bpxwdyn("alloc fi(syslin) path('"object"')",
            "pathopts(owronly,ocreat,otrunc) pathmode(sirwxu) msg(2)")
x=x+bpxwdyn("alloc fi(syslib) dsn('"SYS1.MACLIB"') shr msg(2)")
x=x+bpxwdyn("alloc fi(sysut1) new space(10,10) tracks unit(sysallda) msg(2)")

if x<>0 then
do
   x=bpxwdyn("free fi(sysin)")
   x=bpxwdyn("free fi(sysprint)")
   x=bpxwdyn("free fi(syslin)")
   x=bpxwdyn("free fi(syslib)")
   x=bpxwdyn("free fi(sysut1)")
   exit 4
end

parm=""options""

address attchmvs 'ASMA90 parm'
rrc=rc

x=bpxwdyn("free fi(sysin)")
x=bpxwdyn("free fi(sysprint)")
x=bpxwdyn("free fi(syslin)")
x=bpxwdyn("free fi(syslib)")
x=bpxwdyn("free fi(sysut1)")

if rrc>4 then
    'rm 'object''

exit rrc
