.ENABLE GLOBAL .ENABLE SUBSTITUTION .SETS UIC .SETS LI "" .SETS MP "" .SETS N "5" .IFNDF $20KEX .ASK $20KEX DO YOU HAVE 20K EXEC SUPPORT .IFNDF $SYSAC .ASK $SYSAC HAVE YOU INCORPORATED THE SYSTEM ACCOUNTING DATA BASES .IFT $SYSAC .SETF $LOGIT .IFF $SYSAC .ASK $LOGIT DO YOU WANT LOGON DATA SENT TO LOG... .IFT $20KEX .SETF RESLB .IFT $20KEX .GOTO 10 .IFNDF $RESLB .GOTO 5 .SET'$RESLB' RESLB .SETS N "4" .GOTO 10 .5: .IFNDF $RESLB .ASK RESLB DO YOU WISH TO BUILD HELLO WITH AN FCS RESIDENT LIBRARY .IFT RESLB .SETS N "4" .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 HELLO.OBJ;*/DE/NM .IFT $ASM SLP @HELLO.SLP .IFT $ASM .OPEN HELLOASM.CMD;1 .IFT $ASM .DATA HELLO'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,- .IFT $ASM .DATA SY:'UIC'HELLO .IFT $ASM .CLOSE .IFT $ASM MAC @HELLOASM .IFT $ASM PIP HELLOASM.CMD;1/DE/NM,HELLO.MAC;2 .IFT $TKB .GOTO START2 .ASK $TKB TASKBUILD .IFT $TKB .ASK $MAP MAP .IFT $MAP .SETS MP ",TI:" .START2:.IFT $TKB PIP HEL.TSK;*/DE/NM .IFT $TKB .OPEN HELLOBLD.CMD;1 .IFT $TKB .DATA HEL.TSK;1/PR:'N'/MM/CP'MP'=HELLO,MCR/LB:ACTFIL .IFT $TKB .DATA MCR/LB,LB0:[1,54]RSX11M.STB,[1,1]EXELIB/LB .IFT $TKB .DATA / .IFT $TKB .DATA UNITS=7 .IFT $TKB .DATA PAR=GEN .IFT $TKB .IFT RESLB .DATA LIBR=FCSRES:RO:6 .IFT $TKB .DATA ; HELP$P DEFINES THE PRIORITY AT WHICH HELP INFORMATION .IFT $TKB .DATA ; IS PRINTED OUT. IF THE SYSTEM SUPPORTS THE ALTER .IFT $TKB .DATA ; PRIORITY DIRECTIVE AND THE DEFAULT OR INSTALLED .IFT $TKB .DATA ; PRIORITY OF HELLO IS SET ABOVE THE SYSTEM DEFAULT, .IFT $TKB .DATA ; HELP$P (OCTAL) SHOULD BE SET TO THE DESIRED LOWER .IFT $TKB .DATA ; VALUE. (62(8)=50.) .IFT $TKB .DATA GBLDEF=HELP$P:62 .IFT $TKB .DATA ASG=TI:1:7 .IFT $TKB .DATA ASG=SY:2 .IFT $TKB .DATA ASG=CO:3 .IFT $TKB .DATA STACK=64 .IFT $TKB .DATA GBLDEF=$USESB:0 ; ADDRESS OF USER SUBROUTINE(0=NOT USED) .IFT $TKB .DATA GBLDEF=$DNTSB:0 ; ADDRESS OF DECNET SUBROUTINE(0=NOT USED) .IFT $TKB .DATA GBLDEF=ENCRPT:0 ; ADDRESS OF PASSWORD ENCRYPT(0=NOT USED) .IFT $TKB .DATA TASK=...HEL .IFT $TKB .DATA ; IF ONE DOES NOT WANT TO INCORPORATE THE CHANGES TO SYSCM .IFT $TKB .DATA ; THAT ALLOW CPU TIME LOGGING TO OCCUR, ONE MAY STILL BUILD .IFT $TKB .DATA ; A VERSION OF HELLO WHICH WILL EITHER BEHAVE AS BEFORE OR .IFT $TKB .DATA ; SEND OFF LOGON STATISTICS TO A TASK LOG... .IFT $TKB .IFF $SYSAC .IFF $LOGIT .DATA GBLDEF=$ACMSK:0 ; DON"T SEND DATA TO LOG... .IFT $TKB .IFT $LOGIT .DATA GBLDEF=$ACMSK:200 ; SEND DATA TO LOG... .IFT $TKB .DATA PRI=70 .IFT $TKB .DATA / .IFT $TKB .CLOSE .IFT $TKB TKB @HELLOBLD ; .IFT $TKB PIP HELLOBLD.CMD;1/DE/NM .EEND: ;EOF HELLO