File psl-1983/tests/laptest-alm.lap artifact 4ad534b790 part of check-in 79abca0c1b


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


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]