; ; SPWN80.COR 5/22/83 G.Cornelius ; ; This converts SPWN80.MAC from the tape into an earlier version ; which did not support a variable-length string for the 2nd ; parameter. SPWN80.MAC should work OK but haven't had time to ; double-check it; hence, this file. ; spwn80.old/-au=spwn80.mac -2,2 .ident /001/ -9,32 ; specified 80-byte buffer, and waits (stopped) for spawned ; task to complete. ; ; Returns IDS = directive status from spawn ; IESTS = return code from spawned task exit ; ; Allows IDS, IESTS to be omitted. In this case, ; aborts if IDS.NE.1 or if IESTS.NE.EX$SUC ; (FUTURE CHANGE: will print an error message on ; system error LUN (.MOLUN)) -36,38 isz=79. ; cmd line size to use .mcall spwn$s,stse$s -50,53 call $cat5 ; convert 3 chrs to R50 mov r1,-(sp) bcs 10$ ; skip done call $cat5 ; convert 3 more -64,82 spwn$s r3,,, , , #ef2, ,r4,4(r5),#isz, ; ; spawn call parms ; 1: taskname 2-3:N/A 4-5:g,m for uic ; 6:ev flg 7:ast 8:ex sts blk 9:cmdline 10:cmd len ; 11-12:nn,dd of ddnn: ; ; (g,m ; ast ; nn,dd all omitted) -161,161 br 100$ ; In case returns from trap /