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*)