29 lines
713 B
OpenEdge ABL
29 lines
713 B
OpenEdge ABL
|
37600 #include "rundecs.h"
|
||
|
|
37610 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
37620 (**)
|
||
|
|
37630 (**)
|
||
|
|
37640 (*-01()
|
||
|
|
37650 FUNCTION LINIT2(TOO: INTEGER; PTR: NOBYLPP): BOOLEAN ;
|
||
|
|
37660 (*PLOOPINIT+1*)
|
||
|
|
37670 BEGIN
|
||
|
|
37680 FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT+1;
|
||
|
|
37690 WITH PTR^ DO
|
||
|
|
37700 BEGIN
|
||
|
|
37710 LOOPTYP := 2;
|
||
|
|
37720 FROMPART := GETSTKTOP(SZINT, 0);
|
||
|
|
37730 TOPART := TOO;
|
||
|
|
37740 LINIT2 := TOPART>=FROMPART;
|
||
|
|
37750 END;
|
||
|
|
37760 END;
|
||
|
|
37770 ()-01*)
|
||
|
|
37780 (**)
|
||
|
|
37790 (**)
|
||
|
|
37800 (*-02()
|
||
|
|
37810 BEGIN
|
||
|
|
37820 END ;
|
||
|
|
37830 ()-02*)
|
||
|
|
37840 (*+01()
|
||
|
|
37850 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
37860 END (*OF EVERYTHING*).
|
||
|
|
37870 ()+01*)
|