Google
 

Trailing-Edge - PDP-10 Archives - bb-d549g-sb - scd6.mac
There are no other files named scd6.mac in the archive.
	UNIVERSAL  $SCNDD -- DECLARATIONS FOR COMMAND SCANNER DUMMY

	IF1,<		;DEFINE ONLY DURING PASS 1

;DEFINE MACRO TO PASS DECLARATIONS ON TO EACH SUB-MODULE
	DEFINE	$SCNDD,<
	SUBTTL	P.CONKLIN/DJB/DMN/PFC -- %6(370)	1-JUL-74

	LALL

;***COPYRIGHT 1973, 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***

	SALL		;;SUPPRESS MACRO LISTINGS

	SCNDD1		;;GET REST OF DECLARATIONS
>	;END OF $SCNDD


CUSTVR==0		;CUSTOMER VERSION
DECVER==6		;DEC VERSION
DECMVR==0		;DEC MINOR VERSION
DECEVR==370		;DEC EDIT VERSION


;ASSEMBLY INSTRUCTIONS:
;.COMPILE	SCANDM
;THEN LOAD THE .REL FILE WITH ANY PROGRAM WHICH MUST RESERVE THE SAME
;  LOW SEGMENT AREA THAT SCAN DOES



	DEFINE	SCNDD1,<

%%SCAN==:CUSTVR*1B2+DECVER*1B11+DECMVR*1B17+DECEVR
	PURGE	CUSTVR,DECVER,DECMVR,DECEVR

>	;END OF SCNDD1

>	;END OF IF1
	PRGEND
	TITLE	.SCAND -- GENERALIZED USER MODE COMMAND SCANNER DUMMY

	SEARCH	$SCNDD		;GET SCAN DECLARATIONS
	$SCNDD			;INITIALIZE LISTING, ETC.


.SCANZ::!		;START OF SCAN LOW SEG
.MYPPN::BLOCK	574	;MUST AGREE WITH SCAN
.SCANL==:.-.SCANZ	;LENGTH OF SCAN LOW SEG

	PRGEND
	TITLE	.VERBD -- SUBROUTINE FOR VERBOSITY DUMMY

	SEARCH	$SCNDD		;GET SCAN DECLARATIONS
	$SCNDD			;INITIALIZE LISTING, ETC.


.VRBOZ::!		;START OF VERBO LOW SEG
.FLVRB::BLOCK	1	;MUST AGREE WITH SCAN
.FLCBF::BLOCK	1	;MUST AGREE WITH SCAN
.VRBOL==:.-.VRBOZ	;LENGTH OF VERBO LOW SEG

	PRGEND
	TITLE	.TOUTD -- SUBROUTINES FOR OUTPUT DUMMY

	SEARCH	$SCNDD		;GET SCAN DECLARATIONS
	$SCNDD			;INITIALIZE LISTING, ETC.


.TOUTZ::!		;START OF TOUTS LOW SEG
	BLOCK	2	;MUST AGREE WITH SCAN
.TOUTL==:.-.TOUTZ	;LENGTH OF TOUTS LOW SEG

	END