; SCOPE ;Nigel Bevan .. 1980 ;TECO looks for SCOPE mode bit in TTCNFG. ;RT-11 expects to find TTCNFG one word below address ;contained in location 30 (EMT vector). Unfortunately ;TSX changes the EMT vector, so this program turns on ;the bit in the word below the TSX EMT code (with ;unknown side effects!) .MCALL .EXIT START: MOV @#30,R1 BIS #100000,-(R1) .EXIT .END START