Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 31/1	;07C1
		CMDEDT==:146	;EDIT LEVEL
 WIT
		CMDEDT==:147	;EDIT LEVEL
 INS 206/3	;07C2
	147	10/24/83 Add some range checking stuff to prevent more than ten
		objects at a time from being started.  GCO 1555

 REP 15/6	;07C3
	%URG01:	$RANGE(%URG02,<number or range (n:m)(/NODE:)>)
	%URG02:	$NODE(NEXT)
	>	;END $URANGE DEFINITION

 WIT
	%URG01:	$ORANGE(%URG02,<number or range (n:m)(/NODE:)>)
	%URG02:	$NODE(NEXT)
	>	;END $URANGE DEFINITION
	;**;[147]Change reference $RANGE to $ORANGE at %URG01 above.  24-Oct-83 DEK
 REP 30/6	;07C4
	%SRG01:	$RANGE(%SRG02,<number or range (n:m)(/NODE:)>)
	%SRG02:	$NODE(NEXT)

	>	;END $SRANGE DEFINITION
 WIT
	%SRG01:	$ORANGE(%SRG02,<number or range (n:m)(/NODE:)>)
	%SRG02:	$NODE(NEXT)
	>	;END $SRANGE DEFINITION
	;**;[147]Change reference $RANGE to $ORANGE at %SRG01 above.  24-Oct-83 DEK
 DEL 3/7	;07C5

 INS 19/7	;07C6
	;**;[147]Define MXOBJR and replicate $RANGE as $ORANGE.  24-Oct-83 DEK

		MXOBJR==^D10		;[147]MaX OBJect Range -- used to check width

	;$ORANGE (that's O-RANGE, not the citrus fruit!) is the same as $RANGE with
	;one difference, the range itself is checked for width using routine STOOHG
	;instead of STOHGH.

		DEFINE	$ORANGE(NEXT,HLPT,ARGLST,%ORG01,%ORG02),<
		.XCREF	%ORG01,%ORG02
		SUPPRESS %ORG01,%ORG02
		$NUMBER	(%ORG01,^D10,HLPT,<$ACTION(STOBTH),ARGLST>)

	%ORG01:	$TOKEN	(%ORG02,<:>,<$HELP(<colon to specify a range>),$ALTERNATE(NEXT)>)

	%ORG02:	$NUMBER	(NEXT,^D10,,<$ACTION(STOOHG)>)

	>	;END DEFINITION OF $ORANGE

 INS 35/9	;07C7
	;**;[147]Add routine STOOHG before STOHGH to check range width.  24-Oct-83 DEK

	STOOHG:	SKIPGE	T1,CR.RES(S2)		;[147]
		PJRST	CHKVAL			;[147]Abort command
		SUB	T1,LSTARG		;[147]Subtract the beginning of range
		JUMPL	T1,STOH.1		;[147]Bad range
		CAIG	T1,MXOBJR		;[147]Too big?
		$RETT				;[147]Just fine
		JRST STOH.1			;[147]Bad range

 REP 40/9	;07C8
		PUSHJ	P,FIXIT
 WIT
	;**;[147]Add label STOH.1 at STOHGH+5.  24-Oct-83 DEK
	STOH.1:	PUSHJ	P,FIXIT
 SUM 173964