SUBROUTINE TSTTSX C C TSTTSX.SUB NAB 22-Mar-85/28-Mar-85. C C Description: C C Test to determine if the operating system is TSX-Plus or RT-11. C If running under TSX-Plus, lock the job into the lowest pos- C sible position in memory and turn on high efficiency terminal C mode. C #include "CNVL2D.DAT" C 1 FORMAT (/,' ?CNVL2D-F-Cannot lock job in memory',A1,/) C C TSXFLG = ITSLIN () IF (TSXFLG .EQ. 0) GO TO 210 IRET = LKLOMY () IF (IRET .LT. 0) GO TO 200 TYPE 1,BEEP(1) ERRFLG = 1 GO TO 210 200 CONTINUE CALL HIEFON 210 CONTINUE C RETURN END