Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50417/acknew.pas
There are no other files named acknew.pas in the archive.
00010 PROGRAM ACK3;
00020 VAR
00030 STACK:ARRAY[1..1000] OF INTEGER;
00040 X,Y,STACK_COUNT,TIME,A:INTEGER;
00050
00060 PROCEDURE PUSH(K:INTEGER);
00070 BEGIN
00080 STACK_COUNT:=STACK_COUNT+1;
00090 STACK[STACK_COUNT]:=K;
00100 END (* OF PUSH *);
00110
00120 PROCEDURE POP(VAR K:INTEGER);
00130 BEGIN
00140 K:=STACK[STACK_COUNT];
00150 STACK_COUNT:=STACK_COUNT-1;
00160 END (* OF POP *);
00170
00180 FUNCTION ACKER(X,Y:INTEGER):INTEGER;
00190 CONST
00200 STACKEND=-1;
00210 BEGIN
00220 STACK_COUNT:=0;
00230 PUSH(STACKEND);
00240 REPEAT
00250 IF X=0
00260 THEN
00270 BEGIN