Artifact 4ad534b79047e38fbf31beb21651051c2e6aa7d426a99015579ef4b1a26c6ba3:

• File psl-1983/3-1/tests/laptest-alm.lap — 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: 1590) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/tests/laptest-alm.lap — 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: 1590) [annotate] [blame] [check-ins using]

(LAP '(
(*ENTRY FOO1 EXPR 1)
(*ALLOC 0)
(*EXIT 0)
))
(LAP '(
(*ENTRY FOO2 EXPR 1)
(*ALLOC 0)
(*MOVE (QUOTE 1) (REG 1))
(*EXIT 0)
))
(LAP '(
(*ENTRY FOO3 EXPR 1)
(*ALLOC 0)
(*MOVE (QUOTE 3) (REG 2))
(*LINKE 0 PLUS2 EXPR 2)
))
(LAP '(
(*ENTRY FOO4 EXPR 1)
(*ALLOC 0)
(*MOVE (QUOTE 4) (REG 2))
(*LINK PLUS2 EXPR 2)
(*LINKE 0 PRINT EXPR 1)
))
(LAP '(
(*ENTRY FOO5 EXPR 1)
(*ALLOC 0)
(*JUMPNOTEQ (LABEL G0004) (REG 1) (QUOTE 1))
(*MOVE (QUOTE ONE) (REG 1))
(*EXIT 0)
(*LBL (LABEL G0004))
(*MOVE (QUOTE NOT-ONE) (REG 1))
(*EXIT 0)
))
(FLUID (QUOTE (FLU1 FLU2)))
(LAP '(
(*ENTRY FOO6A EXPR 2)
(*ALLOC 0)
(*LAMBIND (REGISTERS (REG 2) (REG 1)) (NONLOCALVARS ($FLUID FLU2) ($FLUID FLU1))
)
(*MOVE ($FLUID FLU2) (REG 3))
(*MOVE ($FLUID FLU1) (REG 2))
(*MOVE (QUOTE BEFORE) (REG 1))
(*LINK LIST3 EXPR 3)
(*LINK PRINT EXPR 1)
(*MOVE (QUOTE 10) ($FLUID FLU1))
(*MOVE (QUOTE 20) ($FLUID FLU2))
(*MOVE ($FLUID FLU2) (REG 3))
(*MOVE ($FLUID FLU1) (REG 2))
(*MOVE (QUOTE AFTER) (REG 1))
(*LINK LIST3 EXPR 3)
(*LINK PRINT EXPR 1)
(*MOVE (QUOTE NIL) (REG 1))
(*FREERSTR (NONLOCALVARS ($FLUID FLU2) ($FLUID FLU1)))
(*EXIT 0)
))
(LAP '(
(*ENTRY FOO6 EXPR 0)
(*ALLOC 0)
(*MOVE (QUOTE 1) ($FLUID FLU1))
(*MOVE (QUOTE 2) ($FLUID FLU2))
(*MOVE ($FLUID FLU2) (REG 3))
(*MOVE ($FLUID FLU1) (REG 2))
(*MOVE (QUOTE BEFORE) (REG 1))
(*LINK LIST3 EXPR 3)
(*LINK PRINT EXPR 1)
(*MOVE (QUOTE B) (REG 2))
(*MOVE (QUOTE A) (REG 1))
(*LINK FOO6A EXPR 2)
(*MOVE ($FLUID FLU2) (REG 3))
(*MOVE ($FLUID FLU1) (REG 2))
(*MOVE (QUOTE AFTER) (REG 1))
(*LINK LIST3 EXPR 3)
(*LINK PRINT EXPR 1)
(*MOVE (QUOTE NIL) (REG 1))
(*EXIT 0)
))