34 lines
910 B
OpenEdge ABL
34 lines
910 B
OpenEdge ABL
37900 #include "rundecs.h"
|
|
37910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
37920 (**)
|
|
37930 (**)
|
|
37940 PROCEDURE LINIT3(BY: INTEGER; PTR: BYLPP) ;
|
|
37950 BEGIN
|
|
37960 FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT+1;
|
|
37970 WITH PTR^ DO
|
|
37980 BEGIN
|
|
37990 LOOPTYP := 3;
|
|
38000 BYPART := BY;
|
|
38010 FROMPART := GETSTKTOP(SZINT, 0);
|
|
38020 END;
|
|
38030 END;
|
|
38040 (**)
|
|
38050 PROCEDURE LINIT4(FROM: INTEGER; PTR: NOBYLPP) ;
|
|
38060 BEGIN
|
|
38070 FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT+1;
|
|
38080 WITH PTR^ DO
|
|
38090 BEGIN
|
|
38100 LOOPTYP := 4;
|
|
38110 FROMPART := FROM;
|
|
38120 END;
|
|
38130 END;
|
|
38140 (**)
|
|
38150 (**)
|
|
38160 (*-02()
|
|
38170 BEGIN
|
|
38180 END ;
|
|
38190 ()-02*)
|
|
38200 (*+01()
|
|
38210 BEGIN (*OF MAIN PROGRAM*)
|
|
38220 END (*OF EVERYTHING*).
|
|
38230 ()+01*)
|