2BSD/src/pascal/tests/x

 1026	TRA	0 
 1030	TRA	4 
	patch 1030 8
 1034	BEG
 1036	CONG:8	sneaky
 1046		5 
 1048	LINO	6 
 1052	LV:2	-8 
 1056	RV4:2	-8 
 1060	RV4:4	16 
 1064	SUB4
 1066	AS4
 1068	LINO	7 
 1072	LV:4	20 
 1076	RV4:4	16 
 1080	SQR4
 1082	AS4
 1084	END
	patch 1034 0
	patch 1026 60
 1086	BEG
 1088	CONG:8	sideffect
 1098		9 
 1100	LINO	10 
 1104	LV:2	-8 
 1108	CON2:10
 1110	AS24
 1112	LINO	11 
 1116	LV:2	-4 
 1120	PUSH:-4
 1122	RV4:2	-8 
 1126	CALL:2	4 
 1130	POP:4
 1132	AS4
 1134	LINO	12 
 1138	UNITOUT
 1140	RV4:2	-4 
 1144	WRIT4
 1146	RV4:2	-8 
 1150	WRIT4
 1152	WRITLN
 1154	LINO	13 
 1158	LV:2	-8 
 1162	CON2:10
 1164	AS24
 1166	LINO	14 
 1170	LV:2	-4 
 1174	PUSH:-4
 1176	CON2:10
 1178	STOI
 1180	CALL:2	4 
 1184	POP:4
 1186	PUSH:-4
 1188	RV4:2	-8 
 1192	CALL:2	4 
 1196	POP:4
 1198	MUL4
 1200	AS4
 1202	LINO	15 
 1206	UNITOUT
 1208	RV4:2	-4 
 1212	WRIT4
 1214	RV4:2	-8 
 1218	WRIT4
 1220	WRITLN
 1222	LINO	16 
 1226	LV:2	-8 
 1230	CON2:10
 1232	AS24
 1234	LINO	17 
 1238	LV:2	-4 
 1242	PUSH:-4
 1244	RV4:2	-8 
 1248	CALL:2	4 
 1252	POP:4
 1254	PUSH:-4
 1256	CON2:10
 1258	STOI
 1260	CALL:2	4 
 1264	POP:4
 1266	MUL4
 1268	AS4
 1270	LINO	18 
 1274	UNITOUT
 1276	RV4:2	-4 
 1280	WRIT4
 1282	RV4:2	-8 
 1286	WRIT4
 1288	WRITLN
 1290	END
	patch 1086 -8
1252	POP:4
 1254	PUSH:-4
 1256	CON2:10
 1258	STOI
 1260	CALL:2	4 
 1264	POP:4
 1266	MUL4
 1268	AS4
 1270	LINO	18 
 1274	UNITOUT
 1276	RV4:2	-4 
 1280	WRIT4
 1282	RV4:2	-8 
 1286	WRIT4
 1288	WRITLN
 1290	END
	patch 1086 -8