Artifact 21ce522e87f390e728da17432bf9414a5bd5ebcda7c88afdf6de342b2a3fcf8c:

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

• File psl-1983/tests/laptest-tlm-20.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: 2015) [annotate] [blame] [check-ins using]

(LAP '(
(FULLWORD 1)
(*ENTRY FOO1 EXPR 1)
(POPJ (REG ST) 0)
))
(LAP '(
(FULLWORD 1)
(*ENTRY FOO2 EXPR 1)
(HRRZI (REG 1) 1)
(POPJ (REG ST) 0)
))
(LAP '(
(FULLWORD 1)
(*ENTRY FOO3 EXPR 1)
(HRRZI (REG 2) 3)
(JRST (ENTRY PLUS2))
))
(LAP '(
(FULLWORD 1)
(*ENTRY FOO4 EXPR 1)
(HRRZI (REG 2) 4)
(PUSHJ (REG ST) (ENTRY PLUS2))
(JRST (ENTRY PRINT))
))
(LAP '(
(FULLWORD 1)
(*ENTRY FOO5 EXPR 1)
(CAIE (REG 1) 1)
(JRST G0004)
(MOVE (REG 1) L0001)
(POPJ (REG ST) 0)
G0004
(MOVE (REG 1) L0002)
(POPJ (REG ST) 0)
L0002
(FULLWORD (MKITEM 30 (IDLOC NOT-ONE)))
L0001
(FULLWORD (MKITEM 30 (IDLOC ONE)))
))
(FLUID (QUOTE (FLU1 FLU2)))
(LAP '(
(FULLWORD 2)
(*ENTRY FOO6A EXPR 2)
(JSP (REG T5) (ENTRY FASTBIND))
(HALFWORD 2 (IDLOC FLU2))
(HALFWORD 1 (IDLOC FLU1))
(MOVE (REG 3) ($FLUID FLU2))
(MOVE (REG 2) ($FLUID FLU1))
(MOVE (REG 1) L0003)
(PUSHJ (REG ST) (ENTRY LIST3))
(PUSHJ (REG ST) (ENTRY PRINT))
(HRRZI (REG T1) 10)
(MOVEM (REG T1) ($FLUID FLU1))
(HRRZI (REG T1) 20)
(MOVEM (REG T1) ($FLUID FLU2))
(MOVE (REG 3) ($FLUID FLU2))
(MOVE (REG 2) ($FLUID FLU1))
(MOVE (REG 1) L0004)
(PUSHJ (REG ST) (ENTRY LIST3))
(PUSHJ (REG ST) (ENTRY PRINT))
(MOVE (REG 1) (REG NIL))
(JSP (REG T5) (ENTRY FASTUNBIND))
(FULLWORD 2)
(POPJ (REG ST) 0)
L0004
(FULLWORD (MKITEM 30 (IDLOC AFTER)))
L0003
(FULLWORD (MKITEM 30 (IDLOC BEFORE)))
))
(LAP '(
(FULLWORD 0)
(*ENTRY FOO6 EXPR 0)
(HRRZI (REG T1) 1)
(MOVEM (REG T1) ($FLUID FLU1))
(HRRZI (REG T1) 2)
(MOVEM (REG T1) ($FLUID FLU2))
(MOVE (REG 3) ($FLUID FLU2))
(MOVE (REG 2) ($FLUID FLU1))
(MOVE (REG 1) L0005)
(PUSHJ (REG ST) (ENTRY LIST3))
(PUSHJ (REG ST) (ENTRY PRINT))
(MOVE (REG 2) L0006)
(MOVE (REG 1) L0007)
(PUSHJ (REG ST) (ENTRY FOO6A))
(MOVE (REG 3) ($FLUID FLU2))
(MOVE (REG 2) ($FLUID FLU1))
(MOVE (REG 1) L0008)
(PUSHJ (REG ST) (ENTRY LIST3))
(PUSHJ (REG ST) (ENTRY PRINT))
(MOVE (REG 1) (REG NIL))
(POPJ (REG ST) 0)
L0008
(FULLWORD (MKITEM 30 (IDLOC AFTER)))
L0007
(FULLWORD (MKITEM 30 (IDLOC A)))
L0006
(FULLWORD (MKITEM 30 (IDLOC B)))
L0005
(FULLWORD (MKITEM 30 (IDLOC BEFORE)))
))