'PROCEDURE' F0IST(INDEX,VALUE);
'VALUE' INDEX,VALUE;
'INTEGER' INDEX,VALUE;
'COMMENT' STORE INTEGER IN FIELD 0;
'TRANS' OCTAL;
JMS PAR;
ISZ 10; ISZ 10;
TAD I 10; CDF; DCA I 11;
JMP PASTI;

PAR,	0; CDF 10; TAD I X22; TAD X12; DCA 10;
	TAD I 10;
	TAD PV; DCA 11; JMP I PAR;
PV,	V;
X22,	22;
X12,	12;
PM4,	-4;

PASTI,	'ALGOL';

'INTEGER''PROCEDURE' F0IGET(INDEX);
'VALUE' INDEX; 'INTEGER' INDEX;
'COMMENT' GET INTEGER FROM FIELD 0;
'TRANS' OCTAL;
JMS PAR; TAD PM4; TAD 10; DCA 10;
CDF; TAD I 11; CDF 10; DCA I 10; CDF;
'ALGOL';


'PROCEDURE' F0RST(INDEX,VALUE);
'VALUE' INDEX,VALUE;
'INTEGER' INDEX;
'REAL' VALUE;
'COMMENT' STORE REAL IN FIELD 0;
'TRANS' OCTAL;
JMS PAR1;
TAD I 10; CDF; DCA I 11; CDF 10;
TAD I 10; CDF; DCA I 11; CDF 10;
TAD I 10; CDF; DCA I 11;
JMP PAST;

PAR1,	0; CDF 10; TAD I P22; TAD P12; DCA 10;
	TAD I 10; DCA 1; TAD 1; CLL RAL; TAD 1;
	TAD XV; DCA 11; JMP I PAR1;
XV,	V;
P22,	22;
P12,	12;
XM6,	-6;

PAST,	'ALGOL';

'REAL''PROCEDURE' F0RGET(INDEX);
'VALUE' INDEX; 'INTEGER' INDEX;
'COMMENT' GET REAL FROM FIELD 0;
'TRANS' OCTAL;
JMS PAR1; TAD XM6; TAD 10; DCA 10;
CDF; TAD I 11; CDF 10; DCA I 10;
CDF; TAD I 11; CDF 10; DCA I 10;
CDF; TAD I 11; CDF 10; DCA I 10; CDF;
'ALGOL';



#*U*5