Google
 

Trailing-Edge - PDP-10 Archives - bb-d868b-bm_tops20_v3a_2020_dist - 3a-sources/ddtblt.mac
There are 5 other files named ddtblt.mac in the archive. Click here to see a list.
;<3-MONITOR>DDTBLT.MAC.3,  7-Nov-77 12:59:50, EDIT BY KIRSCHEN
;MORE COPYRIGHT UPDATING...
;<3-MONITOR>DDTBLT.MAC.2, 10-Oct-77 10:08:28, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<2-MONITOR>DDTBLT.MAC.2, 27-Dec-76 16:38:34, EDIT BY HURLEY
;<1B-MONITOR>DDTBLT.MAC.1, 30-APR-76 12:47:37, EDIT BY MURPHY
;<V-SOURCES>DDTBLT.MAC.2, 23-DEC-75 12:14:16, EDIT BY LEWINE
;<V-SOURCES>DDT10X.BLT;3, 12-MAR-75 00:02:37, EDIT BY MURPHY


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	TITLE MOVSYM
	SALL
	SEARCH MONSYM
	EXTERN .JBSYM

DDT==770000

...BGN:	HLRE 1,.JBSYM		;GET NEG LENGTH OF SYMTAB
	ADDI 1,DDT-2		;COMPUTE NEW LOC FOR SYMTAB
	MOVE 2,1
	HRL 1,.JBSYM		;SETUP SOURCE ADDRESS
	BLT 1,DDT-2		;MOVE SYMTAB
	HLL 2,.JBSYM		;COMPUTE NEW SYMTAB POINTER
	MOVEM 2,@DDT+1		;PUT IT IN DDT
	MOVEI 1,.FHSLF
	MOVE 2,[1,,DDT]
	SEVEC			;SET PROPER ENTRY VECTOR
	HALTF

	END ...BGN