subroutine RTSWH (IMASK, IWORD)
RTSWH uses the integer IMASK as a mask to turn off bits in the program switch word. A one bit in IMASK turns off the corresponding bit in the switch word. IWORD is the new switch word. Normally, only bits 18 to 35 are altered, unless the password is supplied as a third argument; if it is, bits 0 to 17 may also be altered.
For example, if KK is an integer between 18 and 35 (inclusive), the statements
LL = 2 ** (35 - KK) CALL RSTWH ( LL, J2 )
will ensure that bit KK of the program switch word is in the off position.
Copyright © 1996, Thinkage Ltd.