perm filename R6.SAI[S,AIL] blob sn#109746 filedate 1974-07-07 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "R6"
C00003 ENDMK
C⊗;
BEGIN "R6"
EXTERNAL RECORD_CLASS CELL(RECORD_POINTER(ANY_CLASS) CAR,CDR);
DEFINE RPTR="RECORD_POINTER";
REQUIRE "RECAUX[S,RHT]" LOAD_MODULE;

RPTR(ANY_CLASS) PROCEDURE FOO(RPTR(ANY_CLASS) R);
	BEGIN
	INTEGER I,J;
	I←MEMORY[LOCATION(R)];
	I←I LAND '777777;
	J←MEMORY[I];
	RETURN(R);
	END;
RPTR(ANY_CLASS) R;
INTEGER I;

I←LOCATION(R);
I←MEMORY[LOCATION(R)];

FOO(NEW_RECORD(CELL));
R←FOO(NEW_RECORD(CELL));
R←CELL:CAR[R];
CELL:CAR[CELL:CAR[R]]←FOO(R);

END;