43 lines
1.4 KiB
OpenEdge ABL
43 lines
1.4 KiB
OpenEdge ABL
28000 #include "rundecs.h"
|
|
28010 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
28020 (**)
|
|
28030 (**)
|
|
28040 PROCEDURE DCLSN( COUNT: DEPTHRANGE ; OFFSET: OFFSETRANGE ) ;
|
|
28050 VAR PTR: UNDRESSP ;
|
|
28060 I : INTEGER ;
|
|
28070 BEGIN
|
|
28080 PTR := INCPTR( ASPTR(STATIC( ME )) , (*+41() - ()+41*) OFFSET ) ;
|
|
28090 FOR I := COUNT DIV SZINT - 1 DOWNTO 0 DO
|
|
28100 BEGIN
|
|
28110 (*+41() PTR := INCPTR( PTR , - SZINT ) ; ()+41*)
|
|
28120 PTR ^.FIRSTINT := GETSTKTOP( SZINT , SZINT * I ) ;
|
|
28130 (*-41() PTR := INCPTR( PTR , SZINT ) ()-41*)
|
|
28140 END
|
|
28150 END ;
|
|
28160 (**)
|
|
28170 PROCEDURE DCLPN( COUNT: DEPTHRANGE ; OFFSET: OFFSETRANGE ) ;
|
|
28180 VAR PTR: UNDRESSP ;
|
|
28190 I: INTEGER ;
|
|
28200 BEGIN
|
|
28210 PTR := INCPTR( ASPTR(STATIC( ME )) , (*+41() - ()+41*) OFFSET ) ;
|
|
28220 FOR I := COUNT DIV SZADDR - 1 DOWNTO 0 DO
|
|
28230 BEGIN
|
|
28240 (*+41() PTR := INCPTR( PTR , - SZADDR ) ; ()+41*)
|
|
28250 PTR ^.FIRSTPTR := ASPTR(GETSTKTOP( SZADDR , SZADDR * I )) ;
|
|
28260 WITH PTR ^ DO
|
|
28270 WITH FIRSTPTR ^ DO
|
|
28280 FINC;
|
|
28290 (*-41() PTR := INCPTR( PTR , SZADDR ) ()-41*)
|
|
28300 END
|
|
28310 END ;
|
|
28320 (**)
|
|
28330 (**)
|
|
28340 (*-02()
|
|
28350 BEGIN
|
|
28360 END ;
|
|
28370 ()-02*)
|
|
28380 (*+01()
|
|
28390 BEGIN (*OF MAIN PROGRAM*)
|
|
28400 END (*OF EVERYTHING*).
|
|
28410 ()+01*)
|