Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/getadd.mac
There are no other files named getadd.mac in the archive.
TITLE GETADD
ENTRY GETADD
SEARCH C
A=0
B=1
P=17
GETADD: MOVE A,[%LDUNI]
GETTAB A,
POPJ P,
HLRZ A,A
MOVEM A,@(16)
POPJ P,
END