ALWAYS	28SEP1	NEGATE	<NEGATE VIRTUAL MEMORY>				;28SEP1
	.MCALL	DIR$								;**-1
	.PSECT
;************************************************************************
;*									*
;*	MODULE: NEGATE							*
;*									*
;*	FUNCTION: LOGICALLY NEGATE EACH BYTE IN THE RANGE FROM-THRU.
;*									*
;*	INPUT PARAMETERS:						*
;*									*
;*	R0 POINTS TO THE COMMAND LINE IN PROCESS			*
;*									*
;*	OUTPUT PARAMETERS:						*
;*									*
;*	R0 POINTS JUST BEYOND COMMAND LINE				*
;*									*
;*	DESTROYS: R1,R2,R3						*
;*									*
;*	AUTHOR: KEVIN ANGLEY						*
;*									*
;*	DATE: 28-SEP-81							*
;*									*
;************************************************************************

NEGATE::
	CALL	FROMTH		; GET FROM ADDR IN R1, THRU ADDR IN R2
				;  AND COUNT IN R3
	BCS	250$		;  CS: NOT SUCCESSFUL, TAKE ERROR EXIT
	MOV	R1,R2		; SAVE FROM ADDRESS IN R2 - DON'T NEED THRU
30$:
	NEGB	MEMORY(R2)	; ARITHMETICALLY NEGATE VIRTUAL MEMORY
	INC	R2		; MOVE TO NEXT VIRTUAL MEMORY LOCATION
	SOB	R3,30$		; USE COUNT TO COUNT LOCATIONS TO NEGATE
250$:
255$:				; NORMAL EXIT
	CALL$R	EXTRA		; PURGE COMMAND LINE OF SUPERFLUOUS JUNK
				;  AND RETURN FROM THERE
	.END