Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/lunpak.mac
There are no other files named lunpak.mac in the archive.
	TITLE LUNPAK
	ENTRY LUNPAK
INTERN LUNPAK
LUNPAK:	0
	MOVSI	2		;SAVE AC2 TO AC4
	HRRI	ACSAV
	BLT	ACSAV+2
	MOVE	2,@(16)		;AC2=NL
	MOVE	3,@1(16)	;AC3=NR
	MOVE	0,@2(16)	;AC0=IW
	IMULI	3,7		;AC3=NR*7
	ADDI	3,1		;AC3=NR*7+1
	MOVN	4,3		;AC4=-(NR*7+1)
	HRRZS	4		;AC4=0,-(NR*7+1)
	LSH	0,@4		;SHIFT RIGHT,END OFF-ZERO FILL
	IMULI	2,7		;AC2=NL*7
	ADD	2,3		;AC2=7*(NL+NR)+1
	MOVE	1,BLANKS	;AC1=ALL BLANKS
	ROTC	0,@2		;ROTATE LEFT,END OFF-BLKFILL
	MOVSI	1,ACSAV		;RESTORE AC'S
	HRRI	1,2
	BLT	1,4
	JRA	16,3(16)
BLANKS:	BYTE(7) 040,040,040,040,040
ACSAV:	BLOCK 3
	END