	.TITLE	SNAP MACRO DEFINITION
/
/  23 AUG 76 - PAUL HENDERSON
/
/  THE 'SNAP' MACRO HAS THE FOLLOWING INVOCATION:
/
/	SNAP	ID,CODE,BEGIN,END
/
/  WHERE:	ID    IS A DECIMAL NUMBER NOT GREATER THAN 511
/		CODE  SPECIFIES WHICH REGISTERS TO DUMP
/		BEGIN IS THE ADDRESS TO START DISPLAYING CORE LOCATIONS
/		END   IS THE LAST ADDRESS (VARIABLE) TO DISPLAY
/
/  PRESENTLY IMPLEMENTED VALUES FOR CODE ARE:
/
/    0 DISPLAY SPECIFIED VARIABLES ONLY
/    1 DISPLAY  L AC MQ XR LR  IN ADDITION TO VARIABLES
/    2 DISPLAY FLOATING POINT REGISTERS
/    4 DISPLAY CONTENTS OF AUTO-INDEX REGISTERS.
/  400 OMIT OUTPUT OF SPECIFIED VARIABLES ('BEGIN' & 'END' NOT REQUIRED)
/
/  THE BITS ARE TESTED INDIVIDUALLY, SO THE NUMBERS MAY BE MICRO-CODED.
/
/  LUN 6 IS USED FOR OUTPUT IN A NON-FILE ORIENTED MANNER.
/
	.DEFIN	SNAP,ID,CODE,BEGIN,END
	.GLOBL	.SNAP
BG=BEGIN-1
	.DEC
ID2=ID
	.OCT
	JMS*	.SNAP
	CODE+0*1000 ID2&777
	BG
	END-BG*777777
	.ENDM
	.EOT
