.ENABLE GLOBAL .ENABLE QUIET .ENABLE SUBSTITUTION .SETS UIC .IFNDF $OTUIC .SETS $OTUIC .IFNDF $INUIC .SETS $INUIC .IFNDF $OTDEV .SETS $OTDEV "SY:" .SETS LI "" .SETS MP "" .IFNDF $MCLI .ASK $MCLI Does your system have multiple CLI support .IFF $MCLI .SETS TST ".IFDF" .IFF $MCLI .SETS JOIN "!" .IFT $MCLI .SETS TST ".IFNDF" .IFT $MCLI .SETS JOIN "&" .IFT $MCLI .SETS ANS "NOT" .IFF $MCLI .SETS ANS "" .DISABLE QUIET .IFNDF $SYSAC .ASK $SYSAC Have you incorporated the system accounting data .IFF $SYSAC ; bases, TASKLOG will not work unless the slp changes to SYSCM, .IFF $SYSAC ; TDSCH,SYSXT, and DATA bases for TT:, VT: and CO: have been made. .IFF $SYSAC ; Please make these changes (SLP files provided), gen a system .IFF $SYSAC ; and try again. .IFF $SYSAC / .ENABLE QUIET .IFNDF $TICS .ASK CLK Do you have a programable clock .IFDF $TICS .GOTO 5 .IFT CLK .SETN $TICS 144 .IFF CLK .SETN $TICS 74 .5: .SETN TICS $TICS+0. .DISABLE QUIET .IFDF CLK ; Your clock is assumed to "TIC" 'TICS' times/sec .ENABLE QUIET .IFNDF $RESLB .ASK $RESLB Do you wish to build tasklog with an FCS resident library .10: .IFDF $ASM .GOTO START .SETF $MAP .SETF $LIST .IFNDF $TKB .SETF $TKB .IFNDF $ASM .SETF $ASM .SETF $TKB .ASK $ASM ASSEMBLE .IFT $ASM .ASK $LIST LIST .IFT $LIST .SETS LI ",TI:" .START: .IFT $ASM PIP ''TSKLOG.OBJ;*/DE/NM .OPEN CLITST.MAC;1 .ENABLE DATA 'TST' M$$CLI'JOIN'A$$CLI .ERROR ; YOUR RSXMC.MAC DOES 'ANS' SUPPORT MULTIPLE CLI"S .ENDC .END .DISABLE DATA .CLOSE .SETF BADBAD MAC NL:=LB:[200,200]RSXMC/PA:1,SY:''CLITST .IF NE 1 .SETT BADBAD PIP ''CLITST.MAC;*/DE/NM .DISABLE QUIET .IFT BADBAD ; SORRY, you can not build TASKLOG untill you decide on multiple .IFT BADBAD ; CLI support. We will now exit. .IFT BADBAD .EXIT .ENABLE QUIET .IFT $ASM .OPEN TSKLOGASM.CMD;1 .IFT $ASM .DATA TSKLOG'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,- .IFT $ASM .DATA SY:'$INUIC'TASKLOG .IFT $ASM .CLOSE .IFT $ASM MAC @TSKLOGASM .IF NE 1 / .IFT $ASM PIP ''TSKLOGASM.CMD;*/DE .IFT $TKB .GOTO START2 .ASK $TKB TASKBUILD .IFF $TKB .GOTO .EEND .IFT $TKB .ASK $MAP MAP .IFT $MAP .SETS MP ",TI:" .START2:.IFT $TKB PIP '$OTUIC'TSKLOG.TSK;*/DE/NM .OPEN TSKLOGBLD.CMD;1 .DATA '$OTDEV''$OTUIC'TSKLOG.TSK;1/PR:4/CP'MP'=''TSKLOG,[1,24]MCR/LB .DATA LB:[1,1]EXELIB/LB .DATA LB:[1,54]RSX11M.STB/SS .DATA LB:[1,1]SYSLIB/LB/MA .DATA / .DATA ASG=SY0:1 .DATA ASG=TI0:2 .IFT $RESLB .DATA LIBR=FCSRES:RO .DATA STACK=64 .DATA GBLDEF=$$TKPS:'$TICS' .DATA PRI=65 .DATA PAR=GEN .DATA TASK=TSKLOG .DATA // .CLOSE TKB @TSKLOGBLD.CMD;1 .EEND: ;EOF TASKLOG