.TITLE	INSPS
;
; COPYRIGHT (C) 1977
; DIGITAL EQIPMENT CORPORATION, MAYNARD, MASS.
;
;
; MODIFICATIONS:
;
;	02A -- ALLOW FOR INC=0
;
;
	.IDENT	/02A/
	.PSECT
.BLK.=.
.=.BLK.+504

	CALL 	PAT1

.=.BLK.

	.PSECT	$$PAT1

$$PAT1=.

PAT1:	
	BIS	#400,$FLGS	; FLAG INC SWITCH FOUND
	MOV	R1,$INC		; SET INCREMENT
	RETURN

.=$$PAT1
	.END