Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobola.c05
There are 2 other files named cobola.c05 in the archive. Click here to see a list.
 INS 5/2	;05C1
	;DMN	03-DEC-82	[1435] Prevent TI wait state after error message
	;				is printed
	;RLF	19-NOV-82	[1432] TURN ON SWITCH TO TYPE ERROR MESSAGES
 REP 26/7	;05C2
		JRST	BADC2		;IGNORE ALL ELSE IN COMMAND STRING
 WIT
					;[1435] IGNORE ALL ELSE IN COMMAND STRING
		AND	SW,[EXP FDSKC]	;[1435] CLEAR ALL SWITCHES EXCEPT FDSKC
		JRST	COBLAR		;[1435] GET NEXT LINE
 INS 52/25	;05C3
		SWON	FTERA		;[1432] TURN ON SWITCH FOR TYPING ON TTY
 INS 5/39	;05C4
		PUSHJ	PP,FILOUT##	;[1435] TYPE DEVICE
 INS 21/39	;05C5
		TSWT	FDSKC		;[1435] IF CMDS ARE FROM TTY: RESTORE LAST CHAR
		SWON	FCOMCH		;[1435] IN CASE <CR-LF> WAS ILLEGAL CHARACTER
 REP 29/39	;05C6
		AND	SW,[EXP FDSKC]	;NO--CLEAR ALL SWITCHES EXCEPT FDSKC
		JRST	COBLAS
 WIT
		EXIT			;[1435] NO, GIVE UP
 SUM 249343