Trailing-Edge
-
PDP-10 Archives
-
bb-d549g-sb
-
scd5.mac
There are no other files named scd5.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 -- %5(362) 13-MAY-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==5 ;DEC VERSION
DECMVR==0 ;DEC MINOR VERSION
DECEVR==362 ;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 572 ;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