.ENABLE GLOBAL .ENABLE SUBSTITUTION .SETS UIC .SETS LI "" .SETS MP "" .IFNDF $20KEX .ASK $20KEX DO YOU HAVE 20K EXEC SUPPORT .IFT $20KEXC .SETF $RESLB .IFT $20KEXC .GOTO 10 .IFNDF $RESLB .ASK $RESLB DO YOU WISH TO BUILD HELLO 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 HELLO.OBJ;*/DE .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,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 .IFT $TKB .OPEN HELLOBLD.CMD;1 .IFT $TKB .DATA HEL/PR/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 PAR=GEN .IFT $TKB .IFT $RESLB LIBR=FCSRES:RO:6 .IFT $TKB .DATA ; HLPPRI 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 ; HLPPRI (OCTAL) SHOUL BE SET TO THE DESIRED LOWER .IFT $TKB .DATA ; VALUE. (62(8)=50.) .IFT $TKB .DATA GBLDEF=HLPPRI:62 .IFT $TKB .DATA ASG=TI:1 .IFT $TKB .DATA ASG=SY:2 .IFT $TKB .DATA STACK=64 .IFT $TKB .DATA TASK=...HEL .IFT $TKB .DATA PRI=70 .IFT $TKB .DATA / .IFT $TKB .CLOSE .IFT $TKB TKB @HELLOBLD .IFT $TKB PIP HELLOBLD.CMD;1/DE .EEND: ;EOF HELLO