.IFNDF LDLG .GOTO START ; THREE VERSIONS OF CCL ARE AVAILABLE. ; V1. USERS R. KIRKMAN'S PUTMCR DIRECTIVE. THIS REQUIRES A SYSGEN TO ; INCORPORATE, AND IS SUBSTANTIALLY LESS VERSITILE THAN THE ; SPAWN DIRECTIVE. HOWEVER, IT'S OVERHEAD AND SIZE IS LOWER. ; IT'S USE IS NOT SUPPORTED(OR EVER TRIED) UNDER V3.2 ; V2. USES THE MCR DRIVER(EDDRV). SMALL IN SIZE BUT THE QIO OVERHEAD ; AND THE DRIVER OVERHEAD MAKE THE SPAWN DIRECTIVE A BETTER ; CHOICE FOR SPEED AND LOWER SYSTEM OVERHEAD. HOWEVER, THE ; SPAWN DIRECTIVE CREATES A LARGER SYSTEM THAN JUST ADDING AN ; EDDRV TO AN EXISTING SYSTEM. ALSO USING EDDRV DOES NOT REQUIRE ; A SYSGEN. EDDRV HAS BEEN USED UNDER V3.2. ; V3. USE THE NEW SPAWN DIRECTIVE IF IT IS GENNED INTO THE SYSTEM. ; SPWNMCR.MAC IS A FIRST CUT AT USING SPWN$, AND NO ATTEMPT IS ; MADE TO PASS SPECIFIC EXIT STATUS OR TO MAKE USE OF IT ; ALTHOUGH IT MIGHT BE USEFUL. HOWEVER, FATAL ERROR SITUATIONS ; DO CAUSE CCL COMMANDS TO RETURN AN EXIT STATUS OF '4' TO ...AT. ; >>>EXIT WITH STATUS IS REQUIRED<<< THIS REQUIREMENT CAN ; SIMPLY BE EDITED OUT, BUT IS NOT SUPPORTED. .START: .ASK Z TASKBUILDER MAP .SETS MP "" .IFT Z .SETS MP ",TI:/MA" MAC CCL.OBJ;1=CCL ;MAC PUTMCR.OBJ;1=PUTMCR ! FOR USE WITH PUTMCR DIRECTIVE ;MAC PTMCR.OBJ;1=PTMCR ! FOR USE WITH MCRDRIVER(EDDRV) MAC SPWNMCR.OBJ;1=SPWNMCR ! FOR USE WITH THE SPAWN DIRECTIVE MAC FIXUP=FIXUP MAC LOOKUP=LOOKUP PIP PUT.OBJ;1/RE=SPWNMCR.OBJ !RENAME WHICHEVER MODULE YOU USE .IFDF LDLG ; REMEMBER TO GET GETMCR FROM WHEREVER F4POTS IS STORED. .IFDF LDLG ; WE WILL BUILD WILL AN F4P RESIDENT LIBRARY .IFDF LDLG ; IF BUILDING WITH EDDRV ADD ASG=ED:3, AND CHANGE UNITS=2 .IFDF LDLG ; TO UNITS=3 .OPEN CCLBUILD.CMD;1 .DATA CCL.TSK;1/CP/FP'MP'=CCL,FIXUP,LOOKUP,PUT .DATA / .DATA LIBR=F4PRES:RO .DATA TASK=...CCL .DATA PRI=90 .DATA UNITS=2 .DATA ASG=TI:2,LB:1 .DATA STACK=64 .DATA // .CLOSE TKB @CCLBUILD PIP CCLBUILD.CMD;*/DE,FIXUP.OBJ;*,LOOKUP.OBJ;*,PUT.OBJ;*,CCL.OBJ;*