Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/enable.for
There is 1 other file named enable.for in the archive. Click here to see a list.
	SUBROUTINE ENABLE(DISNUM)
C************************************************************
C
C  THIS SUBROUTINE IS USED TO ENABLE (I.E. TURN ON)
C  A DISPLAY FILE, THAT ALREADY EXISTS IN THE GT40
C
C  POSSIBLE ERRORS:
C	%TRYING TO ENABLE A NON-EXISTENT DISPLAY
C	%TRYING TO ENABLE AN ILLEGAL DISPLAY NUMBER
C	?INVALID REPLY FROM GT40 (RETURNS DISNUM = 0)
C
C  ROUTINES CALLED:
C	SEND   - SEND COMMAND TO GT40
C	GET    - GET STATUS TRANSMISSION FROM GT40
C	ERROR  - ERROR LOGGING ROUTINE
C
C************************************************************
	IMPLICIT INTEGER (A - Z)

100	CALL SEND(1, DISNUM, 0, 0)
	CALL GET(STATUS, X, Y, DNUM)
	IF(STATUS .EQ. "66) GO TO 100
	IF(STATUS .EQ. 0) RETURN

	IF(STATUS .NE. 1) GO TO 200
	CALL ERROR('%TRYING TO ENABLE A NON-EXISTENT DISPLAY =', DISNUM)
	RETURN

200	IF(STATUS .NE. 3) GO TO 300
	CALL ERROR('%TRYING TO ENABLE A BAD DISPLAY # =', DISNUM)
	RETURN

300	CALL ERROR('?INVALID RESPONSE TO ENABLE, STATUS =', STATUS)
	DISNUM = 0
	RETURN
	END