Artifact 7dcab7157ee0d4a2db4e371919449271be156ea5b475c0e94144f0f32839ad79:

• File perq-pascal-lisp-project/pasn.pre — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1300) [annotate] [blame] [check-ins using] [more...]

#adptwv      (* Pre-process with filter *)
(*
 
                PASCAL BASED MINI-LISP
 
  File:         PASN.RED - Trailer File
  ChangeDate:   5:39am  Saturday, 26 September 1981
  By:           M. L. Griss
                Add Hooks for CATCH/THROW
 
            All RIGHTS RESERVED
            COPYRIGHT (C) - 1981 - M. L. GRISS
            Computer Science Department
            University of Utah
 
            Do Not distribute with out written consent of M. L. Griss
 
*)


(* pasN.PAS ---- the last file to be appended, close CATCH, do init *)
BEGIN     (*  Body of Catch  *)
IF initphase=0 THEN  (* Kludge to get into scope of CATCH *)
    BEGIN init; initphase := 1; firstp; END
ELSE BEGIN
#p  initphase:=initphase+1;               (* ??? *)
    idspace[xthrowing].val := nilref;
    catch_stk:=st;                        (* Capture Stack *)
    catch_bstk:=idspace[xbstack].val;     (* Capture Bstack *)
    xeval;
#p    initphase:=initphase-1;            (* ??? *)
   (* Return Point *)
#adv 9999:
    IF idspace[xthrowing].val <> nilref
    THEN BEGIN
        st:=catch_stk;
        r[2]:=catch_bstk;
        xunbindto; (* return value, old stack *)
        END;
    END
END (* catch *);

BEGIN   (* Top Level *)
    initphase := 0;
    r[1] := nilref;
    Xcatch;
#d  break(tty);
end.