	SUBROUTINE OP (INT, OPC, OPSUB)
C
C	FOR FURTHER INFORMATION CONTACT:
C
C	ROBERT WATSON
C	CISCO, INC.
C	4135 S. 100 E. AVE.
C	TULSA OK 74145
C
	INTEGER*4	INS(89),	INT,		PC
	INTEGER*2	OPSUB,		BLK(256),	SEGTAB(3,50)
	BYTE		OPCODE(4,88),	OPC(4),		SNAM(25)
	BYTE		OP1(4,30),	OP2(4,30),	OP3(4,28)
	EQUIVALENCE	(OPCODE( 1,1),OP1(1,1)),
	1		(OPCODE(1,31),OP2(1,1)),
	2		(OPCODE(1,61),OP3(1,1))
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	DATA	INS/	"000000,"000001,"000002,"000003,"000004, !5
	1		"000005,"000006,"000100,"000200,"000230, !10
	2		"000240,"000241,"000242,"000244,"000250, !15
	3		"000257,"000261,"000262,"000264,"000270, !20
	4		"000277,"000300,"000400,"001000,"001400, !25
	5		"002000,"002400,"003000,"003400,"004000, !30
	6		"005000,"005100,"005200,"005300,"005400, !35
	7		"005500,"005600,"005700,"006000,"006100, !40
	8		"006200,"006300,"006400,"006500,"006600, !45
	9		"006700,"010000,"020000,"030000,"040000, !50
	1		"050000,"060000,"070000,"071000,"072000, !55
	2		"073000,"074000,"077000,"100000,"100400, !60
	3		"101000,"101400,"102000,"102400,"103000, !65
	4		"103400,"104000,"104400,"105000,"105100, !70
	5		"105200,"105300,"105400,"105500,"105600, !75
	6		"105700,"106000,"106100,"106200,"106300, !80
	7		"106500,"106600,"110000,"120000,"130000, !85
	8		"140000,"150000,"160000,"170000/	 !89
	DATA	OP1/	'H','A','L','T',
	1		'W','A','I','T',
	2		'R','T','I',' ',
	3		'B','P','T',' ',
	4		'I','O','T',' ', !5
	5		'R','E','S','E',
	6		'R','T','T',' ',
	7		'J','M','P',' ',
	8		'R','T','S',' ',
	9		'S','P','L',' ', !10
	1		'N','O','P',' ',
	2		'C','L','C',' ',
	3		'C','L','V',' ',
	4		'C','L','Z',' ',
	5		'C','L','N',' ', !15
	6		'C','C','C',' ',
	7		'S','E','C',' ',
	8		'S','E','V',' ',
	9		'S','E','Z',' ',
	1		'S','E','N',' ', !20
	2		'S','C','C',' ',
	3		'S','W','A','B',
	4		'B','R',' ',' ',
	5		'B','N','E',' ',
	6		'B','E','Q',' ', !25
	7		'B','G','E',' ',
	8		'B','L','T',' ',
	9		'B','G','T',' ',
	1		'B','L','E',' ',
	2		'J','S','R',' '/ !30
	DATA	OP2/	'C','L','R',' ',
	1		'C','O','M',' ',
	2		'I','N','C',' ',
	3		'D','E','C',' ',
	4		'N','E','G',' ', !35
	5		'A','D','C',' ',
	6		'S','B','C',' ',
	7		'T','S','T',' ',
	8		'R','O','R',' ',
	9		'R','O','L',' ', !40
	1		'A','S','R',' ',
	2		'A','S','L',' ',
	3		'M','A','R','K',
	4		'M','F','P','I',
	5		'M','T','P','I', !45
	6		'S','X','T',' ',
	7		'M','O','V',' ',
	8		'C','M','P',' ',
	9		'B','I','T',' ',
	1		'B','I','C',' ', !50
	2		'B','I','S',' ',
	3		'A','D','D',' ',
	4		'M','U','L',' ',
	5		'D','I','V',' ',
	6		'A','S','H',' ', !55
	7		'A','S','H','C',
	8		'X','O','R',' ',
	9		'S','O','B',' ',
	1		'B','P','L',' ',
	2		'B','M','I',' '/ !60
	DATA	OP3/	'B','H','I',' ',
	1		'B','L','O','S',
	2		'B','V','C',' ',
	3		'B','V','S',' ',
	4		'B','C','C',' ', !65
	5		'B','C','S',' ',
	6		'E','M','T',' ',
	7		'T','R','A','P',
	8		'C','L','R','B',
	9		'C','O','M','B', !70
	1		'I','N','C','B',
	2		'D','E','C','B',
	3		'N','E','G','B',
	4		'A','D','C','B',
	5		'S','B','C','B', !75
	6		'T','S','T','B',
	7		'R','O','R','B',
	8		'R','O','L','B',
	9		'A','S','R','B',
	1		'A','S','L','B', !80
	2		'M','F','P','D',
	3		'M','T','P','D',
	4		'M','O','V','B',
	5		'C','M','P','B',
	6		'B','I','T','B', !85
	7		'B','I','C','B',
	8		'B','I','S','B',
	9		'S','U','B',' '/ !88
	DO 100 I = 2, 89
	IF (INT .LT. INS(I)) GO TO 300
100	CONTINUE
	WRITE  (5,200) 7
200	FORMAT (/,' INVALID OPERATION',A1)
	STOP
300	OPSUB = I - 1
	DO 400 I = 1, 4
	OPC(I) = OPCODE(I,OPSUB)
400	CONTINUE
	RETURN
	END
