Upload

Digital Research

ASSEMBLY & COMPILE TOOLS/PLM-2-C 2/plm2c/test.plm

@@ -0,0 +1,25 @@
+FOO:	DO;
+
+FARP: PROCEDURE EXTERNAL;
+END;
+
+SLUG :PROCEDURE;
+	DECLARE PTR POINTER;
+	DECLARE I INTEGER;
+	DECLARE IPTR BASED PTR INTEGER;
+	DECLARE J REAL;
+	declare k real;
+	declare l REAL;
+	declare mqaFOO WORD;
+	declare FOObar DWORD;
+
+	PTR = @I;
+	IPTR = 72;
+	CALL IPTFIL;
+	CALL SET$INTERRPUT(0, FARP);
+	CALL SET$INTERRUPT(IABS(I), FIX(I));
+	J = FLOAT(FIX(I));
+
+END SLUG;
+	END FOO;
+