call sswtch(swit, state)
SSWTCH tests bits 6-11 of the GCOS program switch word. This is only really of use in batch where these bits are set by options ON1 to ON6 on the $EXECUTE or $PROGRAM card. In TSS these bits have other meanings, and using them for controlling a program may have unexpected side effects. In batch, the ON1 bit (PSW bit 6) is used by the RLHS program, and so it should be avoided also.
expl f77 lib iretsw
expl f77 lib isetsw
Copyright © 1996, Thinkage Ltd.