.TITLE TABLE .ENABLE LC .NLIST BEX ; ; DEFINE INTERNAL COMMANDS THAT ARE LEGITIMATE ; .PSECT $TABLE,RO,D,GBL,REL,OVR $TABLE:: ; ; *** CLITBL.CCL Defines several important commands for alternate ; CLIs under RSX-11MV3.2/MplusV1.0. This file should ; be converted to CCL's internal table file format ; using TABLEGEN. The resulting "TABLE.MAC" file should ; then be assembled (MAC TABLE=TABLE) and the CLI's ; interpreter task, CCLCLI.TSK, created via "TKB @CCLCLIBLD". ; ; *** THESE COMMANDS NEED NEXT TO NO PARSING... .WORD 12. .ASCII &^^< >< ><><>& .EVEN ; ; BYE ; .WORD 8. .ASCII &$3000BYE& .EVEN .WORD 16. .ASCII &+CLI /SET=TI:MCR& .EVEN .WORD 4. .ASCII &*BYE& .EVEN ; ; HELLO ; .WORD 10. .ASCII &$4000HELLO& .EVEN .WORD 10. .ASCII &*HELLO %1%& .EVEN ; ; HELP ; .WORD 9. .ASCII &$4000HELP& .EVEN .WORD 9. .ASCII &*HELP %1%& .EVEN ; ; *** GIVE PATH TO MCR ; ; MCR ; .WORD 8. .ASCII &$3000MCR& .EVEN .WORD 7. .ASCII &*%1\%%Q& .EVEN .WORD 0 ;EOF .WORD 0 .END