Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0119/masget.mac
There are 2 other files named masget.mac in the archive. Click here to see a list.
;   RETRIEVES DATA FROM SQUASH.CNT FOR BOOKKEEPING
	TITLE GET
	INTERN GET
D1=1
GET:	INIT D1,10
	SIXBIT/DSK/
	EXP RD
	HALT
	LOOKUP D1,[SIXBIT/SQUASH/
	   SIXBIT/CNT/
	   Z
	   Z]
	 HALT
	INPUT D1,
	HRRZ 1,RD+1
	MOVE 2,1(1)
	MOVEM 2,@(16)
	MOVE 2,2(1)
	MOVEM 2,@1(16)
	MOVE 2,3(1)
	MOVEM 2,@2(16)
	RELEAS D1,
	POPJ 17,
RD:	BLOCK 3
	END