Trailing-Edge
-
PDP-10 Archives
-
BB-4170G-SM
-
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