Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0100/lin81.mac
There is 1 other file named lin81.mac in the archive. Click here to see a list.
;       LINCUR.MAC FOR USE WITH F10 OR F40 COMPILER.
	TITLE	DEPBYT
	ENTRY	DEPSIT
DEPSIT:	MOVE	6,@0(16)
	MOVE	7,@1(16)
	MOVE	8,@2(16)
	MOVEM	8,DATA
	LSH	6,-35
	DPB	6,PTR(7)
	MOVE	8,DATA
	MOVEM	8,@2(16)
	POPJ	17,
PTR:	0
	POINT	7,DATA,6
	POINT	7,DATA,13
	POINT	7,DATA,20
	POINT	7,DATA,27
	POINT	7,DATA,34
DATA:	0
	END