.TITLE	SPYID
;
;	SPY VS02.0 OCTOBER 23, 1979 FOR IAS VERSION 3.0
;
;	AERONAUTICAL RESEARCH ASSOCIATES OF PRINCETON (A.R.A.P.)
;	BOX 2229, PRINCETON, NJ  08540     (609) 452-2950
;
;	AUTHOR:	J.D. LEONARD
;
;	MODIFICATIONS
;
; VS 2.1 ++1 03/24/81 J.LEONARD
;		FIXED BUG IN SPYTI2.MAC FOR TEST OF WHETHER OR NOT TASK IS 
;		TIMESHARING. USE TASK FLAG BIT INSTEAD OF PRIORITY < 100.
;
	.IDENT	/VS02.1/
SPYID::
	MOV	#FROM,R0
	MOV	#TO,R1
	MOV	#12.,R2
10$:
	MOV	(R0)+,(R1)+
	SOB	R2,10$
	RETURN
;
;	THIS MODULE MERELY DEFINES THE IDENT FIELD USED WHEN
;	SPY IS INSTALLED. THIS SHOULD BE CHANGED AFTER EVERY
;	MODIFICATION TO SPY.
;	IT ALSO SETS UP THE VALUES FOR /SPYDFC/ (DEFAULT VALUE COMMON)
;	WHICH GET DEFINED DURING TASK BUILD IN GBLDEF COMMANDS.
;
; DATE		PROGRAMMER	CHANGE
; --------	------------	-----------------------------------
; 10/16/79	J. LEONARD	MODIFIED FOR MAXIMUM # OF TERMINALS
;
	.GLOBL	MAXTT
	.GLOBL	MAXBA
	.GLOBL	ICNSOL
	.GLOBL	I1T20
	.GLOBL	I21T40
	.GLOBL	I41T60
	.GLOBL	I61T10
	.GLOBL	I0BA7
	.GLOBL	NSECW
	.GLOBL	NLTD
	.GLOBL	IDISP
	.GLOBL	ITTYPE
;
FROM:	.WORD	MAXTT
	.WORD	MAXBA
	.WORD	ICNSOL
	.WORD	I1T20
	.WORD	I21T40
	.WORD	I41T60
	.WORD	I61T10
	.WORD	I0BA7
	.WORD	NSECW
	.WORD	NLTD
	.WORD	IDISP
	.WORD	ITTYPE
;
	.PSECT	SPYDFC	RW,D,OVR,GBL
TO:	.BLKW	12
	.END