Google
 

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

100	CALL SEND(2, 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 DISABLE A NON-EXISTENT DISPLAY =', DISNUM)
	RETURN

200	IF(STATUS .NE. 2) GO TO 300
	CALL ERROR('%CANNOT DISABLE THIS DISPLAY =', DISNUM)
	RETURN

300	IF(STATUS .NE. 3) GO TO 400
	CALL ERROR('%TRYING TO DISABLE A BAD DISPLAY NUMBER =', DISNUM)
	RETURN

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