; aduna code beginning		ENTER 2, 0		LOD -2 		LOD -4 		LOD -3 		ADD		STO		LEAVE		RET; add code beginning		ENTER 2, 0		LODA -4 		LOD -3 		LOD -2 		ADD		STO		LEAVE		RET; tipareste code beginning		ENTER 2, 1		LODA 3 		LODI 1		STOET1:		LODA 3 		USTO		LOD -2 		GRT		FJP ET2		LOD 3 		OUTP		LODA 3 		COPY		USTO		LODI 1		ADD		STO		UJP ET1ET2:		LEAVE		RET; test2 code beginning		ENTER 1, 7		LODI X		OUTP		LODI =		OUTP		LODA 2 		INP 2 		STO		LODI Y		OUTP		LODI =		OUTP		LODA 3 		INP 2 		STO; Calling: aduna		LOD 2 		LOD 3 		LODA 4 		CALL aduna		RED 3 		LODI X		OUTP		LODI +		OUTP		LODI Y		OUTP		LODI  		OUTP		LODI =		OUTP		LODI  		OUTP		LOD 4 		OUTP		LODA 5 		INP 1 		STO		LODI 		OUTP		LODI 
		OUTP		LODI X		OUTP		LODI +		OUTP		LODI Y		OUTP		LODI  		OUTP		LODI =		OUTP		LODI  		OUTP; Calling: add		LODI 0		LOD 2 		LOD 3 		CALL add		RED 2 		OUTP; Calling: tipareste		LODI 10		CALL tipareste		RED 1 		LODA 5 		INP 1 		STO		LEAVE		RET		STOP