Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - lnk572.mac
There are no other files named lnk572.mac in the archive.
	TITLE	LNK572	TEST PROGRAM TO VERIFY EDIT 572 IS CORRECT

;NOTE:	FIELD IMAGE LINK %3A(560) WILL ?ILL MEM REF ATTEMPTING
;	TO LOAD THIS PROGRAM USING THE FOLLOWING COMMAND:
;
;		.LOAD LNK572 %'MAX:13K'
;
;	THIS ERROR WILL DISAPPEAR AFTER EDIT 572 IS INSTALLED.

	A=:B##+1

	DEFINE	X(A,%B)<%B:: >

IF2,<
REPEAT ^D2000,<X>
  >

	PRGEND

	B=:-1

	END