reduce-historical/psl-1983/tests/laptest-tlm-20.lap

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