SUBROUTINE STSWH (IMASK, IWORD)
STSWH lets you turn on bits in the program switch word. The integer IMASK is treated as a mask of bits OR'ed into the switch word. The value of the new switch word is returned in IWORD. Normally, only bits 18 to 35 are altered. However, if you provide a third argument with the type CHARACTER*4 and containing the secret password "/##/", bits 0 to 17 can also be altered.
For example, if KK is an integer in the range 18 to 35 (inclusive), the statements
LL = 2 ** (35 - KK) CALL STSWH ( LL, I2 )
will ensure that bit number KK of the program switch word is turned on.
Copyright © 1996, Thinkage Ltd.