(ASSEMBLE.CLAUSE ( write 1 si ) 19
(put.Ai.value.Xn 2 1)
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(put.Ai.symbol 1 current)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( write 2 si ) 15
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( write 3 si ) 16
(put.Ai.value.Xn 4 3)
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( write 4 si ) 17
(put.Ai.value.Xn 5 4)
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 5)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( writeq 1 si ) 19
(put.Ai.value.Xn 2 1)
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(put.Ai.symbol 1 current)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( writeq 2 si ) 15
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( writeq 3 si ) 16
(put.Ai.value.Xn 4 3)
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( writeq 4 si ) 17
(put.Ai.value.Xn 5 4)
(allocate)
(load.pos.word 0)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 5)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( print 1 si ) 19
(put.Ai.value.Xn 2 1)
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(put.Ai.symbol 1 current)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( print 2 si ) 15
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( print 3 si ) 16
(put.Ai.value.Xn 4 3)
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( print 4 si ) 17
(put.Ai.value.Xn 5 4)
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 0)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 5)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( printq 1 si ) 19
(put.Ai.value.Xn 2 1)
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(put.Ai.symbol 1 current)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( printq 2 si ) 15
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.nil 4)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( printq 3 si ) 16
(put.Ai.value.Xn 4 3)
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.constant 3 -1)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( printq 4 si ) 17
(put.Ai.value.Xn 5 4)
(allocate)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.pos.word 1)
(settopval QP%.WRITE%.QUOTE)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 5)
(depart write←term2 4 si)
)
(ASSEMBLE.CLAUSE ( write←term2 4 si ) 12
(get.Ai.constant 1 current)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(put.Ai.value.Xn 3 4)
(head.cut)
(execute write←term3 3 si)
)
(ASSEMBLE.CLAUSE ( write←term2 4 si ) 19
(allocate)
(get.Ai.variable.Yn 2 1)
(get.Ai.variable.Yn 3 2)
(get.Ai.variable.Yn 4 3)
(call 6 current←output 1 si)
(body.cut)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←term3 3 si)
)
(ASSEMBLE.CLAUSE ( write←term2 4 si ) 32
(allocate)
(get.Ai.variable.Yn 1 5)
(get.Ai.variable.Yn 2 2)
(get.Ai.variable.Yn 3 3)
(get.Ai.variable.Yn 4 4)
(put.Ai.variable.Yn 1 1)
(call 8 current←output 1 si)
(put.Ai.value.Yn 1 5)
(call 7 set←output 1 si)
(put.Ai.value.Yn 3 4)
(put.Ai.value.Yn 2 3)
(put.Ai.value.Yn 1 2)
(call 4 write←term3 3 si)
(put.Ai.unsafe.Yn 1 1)
(depart set←output 1 si)
)
(ASSEMBLE.CLAUSE ( write←term3 3 si ) 12
(put.Ai.value.Xn 4 2)
(put.Ai.value.Xn 5 3)
(allocate)
(put.Ai.void 3)
(put.Ai.symbol 2 solo)
(call 3 write←term 5 si)
(fail)
)
(ASSEMBLE.CLAUSE ( write←term3 3 si ) 1
(proceed)
)
(ASSEMBLE.CLAUSE ( write←term 5 si ) 62
(allocate)
(get.Ai.variable.Yn 1 4)
(get.Ai.symbol 3 solo)
(put.Ai.value.Yn 1 4)
(is.a 254)
(gettopval QP%.WRITE%.PORTRAY)
(store.integer 1)
(gettopval QP%.WRITE%.QUOTE)
(store.variable.Yn 1)
(either 7 23)
(jump.to 32)
(or.finally)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.value.Yn 1)
(settopval QP%.WRITE%.QUOTE)
(fail)
(load.choice.point)
(store.variable.Yn 2)
(either 7 54)
(load.choice.point)
(store.variable.Yn 3)
(either 7 50)
(put.Ai.value.Yn 1 4)
(call 6 portray 1 user)
(load.value.Yn 3)
(cut.to.choice.point)
(fail)
(or.finally)
(load.value.Yn 2)
(cut.to.choice.point)
(fail)
(or.finally)
(body.cut)
(load.pos.word 1)
(settopval QP%.WRITE%.PORTRAY)
(load.value.Yn 1)
(settopval QP%.WRITE%.QUOTE)
(progress)
)
(ASSEMBLE.CLAUSE ( write←term 5 si ) 2
(execute write←term1 5 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 21
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 2)
(get.Ai.symbol 3 alphameric)
(get.Ai.variable.Yn 5 3)
(put.Ai.value.Yn 1 1)
(is.a 1)
(body.cut)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←var 3 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 26
(get.Ai.constant 1 %.)
(put.Ai.value.Xn 1 2)
(get.Ai.symbol 3 alphameric)
(allocate)
(gettopval QP%.WRITE%.QUOTE)
(store.integer 1)
(head.cut)
(put.Ai.symbol 2 alphameric)
(call 3 put←space←if←needed 2 si)
(put.Ai.constant 2 0)
(put.Ai.symbol 1 %'%.%')
(depart put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 24
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 2)
(put.Ai.value.Yn 1 1)
(is.a 248)
(body.cut)
(put.Ai.value.Yn 2 3)
(put.Ai.value.Yn 1 1)
(call 5 write←atom 2 si)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart token←type 2 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 15
(get.Ai.list 1)
(unify.variable.Xn 7)
(unify.variable.Xn 6)
(get.Ai.symbol 3 solo)
(put.Ai.value.Xn 2 4)
(put.Ai.value.Xn 3 5)
(head.cut)
(put.Ai.list 1)
(unify.value.Xn 7)
(unify.value.Xn 6)
(execute write←list 3 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 13
(get.Ai.symbol 3 agglutinating)
(get.Ai.constant 4 0)
(head.cut)
(put.Ai.constant 2 0)
(put.Ai.symbol 1 %.%.%.)
(execute put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 37
(get.Ai.structure 1 %{%} 1)
(allocate)
(unify.variable.Yn 1)
(get.Ai.symbol 3 solo)
(get.Ai.variable.Yn 4 3)
(get.Ai.variable.Yn 5 2)
(head.cut)
(put.Ai.constant 1 123)
(call 6 put 1 si)
(load.value.Yn 3)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 2)
(put.Ai.void 3)
(put.Ai.symbol 2 solo)
(put.Ai.value.Yn 1 1)
(call 3 write←term 5 si)
(put.Ai.constant 1 125)
(depart put 1 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 41
(get.Ai.structure 1 %$VAR 1)
(allocate)
(unify.variable.Yn 4)
(get.Ai.variable.Yn 2 3)
(get.Ai.symbol 3 alphameric)
(put.Ai.value.Yn 1 4)
(is.a 24)
(body.cut)
(load.value.Yn 4)
(load.pos.word 26)
(modulus)
(add.pos.word 65)
(store.variable.Yn 2)
(load.value.Yn 4)
(load.pos.word 26)
(integer.divide)
(store.variable.Yn 1)
(put.Ai.symbol 2 alphameric)
(put.Ai.value.Yn 1 3)
(call 5 put←space←if←needed 2 si)
(put.Ai.value.Yn 1 2)
(call 4 put 1 si)
(put.Ai.value.Yn 1 1)
(depart write←number←suffix 1 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 55
(allocate)
(get.Ai.variable.Yn 1 3)
(get.Ai.variable.Yn 2 6)
(get.Ai.variable.Yn 3 7)
(get.Ai.variable.Yn 4 8)
(get.Ai.variable.Yn 5 9)
(put.Ai.variable.Yn 3 2)
(put.Ai.variable.Yn 2 4)
(put.Ai.value.Yn 1 3)
(functor)
(put.Ai.value.Yn 3 4)
(put.Ai.variable.Yn 2 1)
(put.Ai.variable.Yn 1 5)
(call 12 current←op 3 si)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(call 12 arity←kind 2 si)
(body.cut)
(put.Ai.value.Yn 9 9)
(put.Ai.value.Yn 8 8)
(put.Ai.value.Yn 7 7)
(put.Ai.value.Yn 6 6)
(put.Ai.unsafe.Yn 5 5)
(put.Ai.unsafe.Yn 4 4)
(put.Ai.value.Yn 3 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.unsafe.Yn 1 1)
(depart write←operator 9 si)
)
(ASSEMBLE.CLAUSE ( write←term1 5 si ) 31
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 4)
(get.Ai.variable.Yn 4 5)
(get.Ai.variable.Yn 5 6)
(put.Ai.void 3)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 1)
(functor)
(put.Ai.value.Yn 6 6)
(put.Ai.value.Yn 5 5)
(put.Ai.value.Yn 4 4)
(put.Ai.value.Yn 3 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←nonoperator←term 6 si)
)
(ASSEMBLE.CLAUSE ( write←atom 2 si ) 27
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 1)
(is.a 56)
(load.value.Yn 1)
(load.pos.word 0)
(less.than)
(body.cut)
(put.Ai.symbol 2 agglutinating)
(put.Ai.value.Yn 1 2)
(call 4 put←space←if←needed 2 si)
(put.Ai.constant 2 0)
(put.Ai.value.Yn 1 1)
(depart put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←atom 2 si ) 2
(execute write←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←token 2 si ) 26
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 2)
(put.Ai.variable.Yn 2 3)
(put.Ai.value.Yn 1 1)
(call 6 token←type 2 si)
(put.Ai.unsafe.Yn 2 3)
(put.Ai.value.Yn 1 2)
(call 4 put←space←if←needed 2 si)
(gettopval QP%.WRITE%.QUOTE)
(store.variable.Xn 2)
(put.Ai.value.Yn 1 1)
(depart put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←operator←token 2 si ) 26
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 2)
(put.Ai.variable.Yn 2 3)
(put.Ai.value.Yn 1 1)
(call 6 token←type 2 si)
(put.Ai.unsafe.Yn 2 3)
(put.Ai.value.Yn 1 2)
(call 4 put←space←if←needed 2 si)
(put.Ai.constant 2 0)
(put.Ai.value.Yn 1 1)
(depart put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←var 3 si ) 4
(get.Ai.nil 3)
(head.cut)
(execute write←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←var 3 si ) 8
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 2)
(put.Ai.value.Xn 2 4)
(execute var←print←form 3 si)
)
(ASSEMBLE.CLAUSE ( var←print←form 3 si ) 5
(get.Ai.nil 2)
(put.Ai.value.Xn 2 3)
(execute write←token 2 si)
)
(ASSEMBLE.CLAUSE ( var←print←form 3 si ) 27
(get.Ai.list 2)
(unify.variable.Xn 2)
(unify.void 1)
(get.Ai.structure 2 %= 2)
(allocate)
(unify.variable.Yn 1)
(unify.variable.Xn 2)
(get.Ai.variable.Yn 3 2)
(compare)
(load.pos.word 0)
(equal.to)
(body.cut)
(put.Ai.symbol 2 alphameric)
(put.Ai.value.Yn 1 2)
(call 4 put←space←if←needed 2 si)
(put.Ai.value.Yn 1 1)
(depart print←variable←name 1 si)
)
(ASSEMBLE.CLAUSE ( var←print←form 3 si ) 5
(get.Ai.list 2)
(unify.void 1)
(unify.variable.Xn 2)
(execute var←print←form 3 si)
)
(ASSEMBLE.CLAUSE ( write←number←suffix 1 si ) 4
(get.Ai.constant 1 0)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←number←suffix 1 si ) 5
(put.Ai.constant 2 0)
(execute put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 55
(get.Ai.constant 1 fx)
(get.Ai.constant 2 1)
(get.Ai.structure 3 %- 1)
(allocate)
(unify.variable.Yn 1)
(get.Ai.variable.Yn 6 4)
(get.Ai.symbol 7 solo)
(get.Ai.variable.Yn 8 3)
(get.Ai.variable.Yn 9 2)
(put.Ai.value.Yn 1 1)
(is.a 24)
(body.cut)
(put.Ai.value.Yn 2 4)
(put.Ai.symbol 1 %-)
(call 6 write←operator←token 2 si)
(put.Ai.constant 1 40)
(call 6 put 1 si)
(load.value.Yn 3)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 2)
(put.Ai.void 3)
(put.Ai.symbol 2 solo)
(put.Ai.value.Yn 1 1)
(call 3 write←term 5 si)
(put.Ai.constant 1 41)
(depart put 1 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 97
(get.Ai.constant 1 fx)
(get.Ai.constant 2 1)
(put.Ai.value.Xn 2 3)
(allocate)
(get.Ai.variable.Yn 4 10)
(get.Ai.variable.Yn 5 1)
(get.Ai.variable.Yn 6 11)
(get.Ai.variable.Yn 7 4)
(get.Ai.variable.Yn 8 8)
(get.Ai.variable.Yn 9 7)
(put.Ai.variable.Yn 3 5)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 5)
(call 14 precedence 2 si)
(put.Ai.variable.Yn 2 9)
(put.Ai.value.Yn 1 10)
(call 14 token←type 2 si)
(put.Ai.value.Yn 2 11)
(put.Ai.value.Yn 1 10)
(call 12 write←operator←token 2 si)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 12 space←after←prefix←op 3 si)
(put.Ai.variable.Yn 5 6)
(put.Ai.unsafe.Yn 4 9)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 11 lparen←if←needed 5 si)
(load.value.Yn 8)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 7)
(put.Ai.variable.Yn 3 3)
(put.Ai.unsafe.Yn 2 6)
(put.Ai.unsafe.Yn 1 5)
(call 7 write←term 5 si)
(put.Ai.value.Yn 5 4)
(put.Ai.unsafe.Yn 4 3)
(put.Ai.unsafe.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(depart rparen←if←needed 5 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 97
(get.Ai.constant 1 fy)
(get.Ai.constant 2 1)
(put.Ai.value.Xn 2 3)
(allocate)
(get.Ai.variable.Yn 4 10)
(get.Ai.variable.Yn 5 1)
(get.Ai.variable.Yn 6 11)
(get.Ai.variable.Yn 7 4)
(get.Ai.variable.Yn 8 8)
(get.Ai.variable.Yn 9 7)
(put.Ai.variable.Yn 3 5)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 5)
(call 14 precedence 2 si)
(put.Ai.variable.Yn 2 9)
(put.Ai.value.Yn 1 10)
(call 14 token←type 2 si)
(put.Ai.value.Yn 2 11)
(put.Ai.value.Yn 1 10)
(call 12 write←operator←token 2 si)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(call 12 space←after←prefix←op 3 si)
(put.Ai.variable.Yn 5 6)
(put.Ai.unsafe.Yn 4 9)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(call 11 lparen←if←needed 5 si)
(load.value.Yn 8)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 7)
(put.Ai.variable.Yn 3 3)
(put.Ai.unsafe.Yn 2 6)
(put.Ai.unsafe.Yn 1 5)
(call 7 write←term 5 si)
(put.Ai.value.Yn 5 4)
(put.Ai.unsafe.Yn 4 3)
(put.Ai.unsafe.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(depart rparen←if←needed 5 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 88
(get.Ai.constant 1 xf)
(get.Ai.constant 2 1)
(put.Ai.value.Xn 2 3)
(allocate)
(get.Ai.variable.Yn 4 1)
(get.Ai.variable.Yn 5 3)
(get.Ai.variable.Yn 6 10)
(get.Ai.variable.Yn 7 11)
(get.Ai.variable.Yn 8 9)
(get.Ai.variable.Yn 9 8)
(put.Ai.variable.Yn 3 6)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 2 4)
(put.Ai.value.Yn 1 6)
(call 14 precedence 2 si)
(put.Ai.value.Yn 2 11)
(put.Ai.value.Yn 1 1)
(call 13 token←type 2 si)
(put.Ai.variable.Yn 5 7)
(put.Ai.value.Yn 4 10)
(put.Ai.value.Yn 3 4)
(put.Ai.value.Yn 2 3)
(put.Ai.symbol 1 %>)
(call 12 lparen←if←needed 5 si)
(load.value.Yn 9)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 8)
(put.Ai.variable.Yn 3 5)
(put.Ai.unsafe.Yn 2 7)
(put.Ai.unsafe.Yn 1 6)
(call 8 write←term 5 si)
(put.Ai.variable.Yn 5 2)
(put.Ai.unsafe.Yn 4 5)
(put.Ai.unsafe.Yn 3 4)
(put.Ai.value.Yn 2 3)
(put.Ai.symbol 1 %>)
(call 5 rparen←if←needed 5 si)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←operator←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 88
(get.Ai.constant 1 yf)
(get.Ai.constant 2 1)
(put.Ai.value.Xn 2 3)
(allocate)
(get.Ai.variable.Yn 4 1)
(get.Ai.variable.Yn 5 3)
(get.Ai.variable.Yn 6 10)
(get.Ai.variable.Yn 7 11)
(get.Ai.variable.Yn 8 9)
(get.Ai.variable.Yn 9 8)
(put.Ai.variable.Yn 3 6)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 2 4)
(put.Ai.value.Yn 1 6)
(call 14 precedence 2 si)
(put.Ai.value.Yn 2 11)
(put.Ai.value.Yn 1 1)
(call 13 token←type 2 si)
(put.Ai.variable.Yn 5 7)
(put.Ai.value.Yn 4 10)
(put.Ai.value.Yn 3 4)
(put.Ai.value.Yn 2 3)
(put.Ai.symbol 1 %>%=)
(call 12 lparen←if←needed 5 si)
(load.value.Yn 9)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 8)
(put.Ai.variable.Yn 3 5)
(put.Ai.unsafe.Yn 2 7)
(put.Ai.unsafe.Yn 1 6)
(call 8 write←term 5 si)
(put.Ai.variable.Yn 5 2)
(put.Ai.unsafe.Yn 4 5)
(put.Ai.unsafe.Yn 3 4)
(put.Ai.value.Yn 2 3)
(put.Ai.symbol 1 %>%=)
(call 5 rparen←if←needed 5 si)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←operator←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 146
(get.Ai.constant 1 xfy)
(get.Ai.constant 2 2)
(allocate)
(get.Ai.variable.Yn 3 18)
(get.Ai.variable.Yn 4 10)
(get.Ai.variable.Yn 5 1)
(get.Ai.variable.Yn 6 16)
(get.Ai.variable.Yn 7 4)
(get.Ai.variable.Yn 8 17)
(get.Ai.variable.Yn 9 8)
(put.Ai.variable.Yn 3 14)
(put.Ai.value.Yn 2 18)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 3 5)
(put.Ai.value.Yn 2 18)
(put.Ai.constant 1 2)
(arg)
(put.Ai.variable.Yn 2 12)
(put.Ai.value.Yn 1 14)
(call 20 precedence 2 si)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 5)
(call 20 precedence 2 si)
(put.Ai.variable.Yn 2 9)
(put.Ai.value.Yn 1 10)
(call 20 token←type 2 si)
(load.value.Yn 17)
(add.neg.word -1)
(store.variable.Yn 7)
(put.Ai.variable.Yn 5 15)
(put.Ai.value.Yn 4 16)
(put.Ai.value.Yn 3 12)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 18 lparen←if←needed 5 si)
(put.Ai.value.Yn 5 8)
(put.Ai.value.Yn 4 7)
(put.Ai.variable.Yn 3 13)
(put.Ai.unsafe.Yn 2 15)
(put.Ai.unsafe.Yn 1 14)
(call 16 write←term 5 si)
(put.Ai.variable.Yn 5 11)
(put.Ai.unsafe.Yn 4 13)
(put.Ai.unsafe.Yn 3 12)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 14 rparen←if←needed 5 si)
(put.Ai.unsafe.Yn 2 11)
(put.Ai.value.Yn 1 10)
(call 12 write←operator←token 2 si)
(put.Ai.variable.Yn 5 6)
(put.Ai.unsafe.Yn 4 9)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(call 11 lparen←if←needed 5 si)
(put.Ai.value.Yn 5 8)
(put.Ai.value.Yn 4 7)
(put.Ai.variable.Yn 3 3)
(put.Ai.unsafe.Yn 2 6)
(put.Ai.unsafe.Yn 1 5)
(call 7 write←term 5 si)
(put.Ai.value.Yn 5 4)
(put.Ai.unsafe.Yn 4 3)
(put.Ai.unsafe.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(depart rparen←if←needed 5 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 146
(get.Ai.constant 1 yfx)
(get.Ai.constant 2 2)
(allocate)
(get.Ai.variable.Yn 3 18)
(get.Ai.variable.Yn 4 10)
(get.Ai.variable.Yn 5 1)
(get.Ai.variable.Yn 6 16)
(get.Ai.variable.Yn 7 4)
(get.Ai.variable.Yn 8 17)
(get.Ai.variable.Yn 9 8)
(put.Ai.variable.Yn 3 14)
(put.Ai.value.Yn 2 18)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 3 5)
(put.Ai.value.Yn 2 18)
(put.Ai.constant 1 2)
(arg)
(put.Ai.variable.Yn 2 12)
(put.Ai.value.Yn 1 14)
(call 20 precedence 2 si)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 5)
(call 20 precedence 2 si)
(put.Ai.variable.Yn 2 9)
(put.Ai.value.Yn 1 10)
(call 20 token←type 2 si)
(load.value.Yn 17)
(add.neg.word -1)
(store.variable.Yn 7)
(put.Ai.variable.Yn 5 15)
(put.Ai.value.Yn 4 16)
(put.Ai.value.Yn 3 12)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(call 18 lparen←if←needed 5 si)
(put.Ai.value.Yn 5 8)
(put.Ai.value.Yn 4 7)
(put.Ai.variable.Yn 3 13)
(put.Ai.unsafe.Yn 2 15)
(put.Ai.unsafe.Yn 1 14)
(call 16 write←term 5 si)
(put.Ai.variable.Yn 5 11)
(put.Ai.unsafe.Yn 4 13)
(put.Ai.unsafe.Yn 3 12)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>%=)
(call 14 rparen←if←needed 5 si)
(put.Ai.unsafe.Yn 2 11)
(put.Ai.value.Yn 1 10)
(call 12 write←operator←token 2 si)
(put.Ai.variable.Yn 5 6)
(put.Ai.unsafe.Yn 4 9)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 11 lparen←if←needed 5 si)
(put.Ai.value.Yn 5 8)
(put.Ai.value.Yn 4 7)
(put.Ai.variable.Yn 3 3)
(put.Ai.unsafe.Yn 2 6)
(put.Ai.unsafe.Yn 1 5)
(call 7 write←term 5 si)
(put.Ai.value.Yn 5 4)
(put.Ai.unsafe.Yn 4 3)
(put.Ai.unsafe.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(depart rparen←if←needed 5 si)
)
(ASSEMBLE.CLAUSE ( write←operator 9 si ) 142
(get.Ai.constant 1 xfx)
(get.Ai.constant 2 2)
(allocate)
(get.Ai.variable.Yn 3 17)
(get.Ai.variable.Yn 4 10)
(get.Ai.variable.Yn 5 1)
(get.Ai.variable.Yn 6 16)
(get.Ai.variable.Yn 7 4)
(get.Ai.variable.Yn 8 7)
(get.Ai.variable.Yn 9 8)
(put.Ai.variable.Yn 3 14)
(put.Ai.value.Yn 2 17)
(put.Ai.constant 1 1)
(arg)
(put.Ai.variable.Yn 3 5)
(put.Ai.value.Yn 2 17)
(put.Ai.constant 1 2)
(arg)
(put.Ai.variable.Yn 2 12)
(put.Ai.value.Yn 1 14)
(call 19 precedence 2 si)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 5)
(call 19 precedence 2 si)
(put.Ai.variable.Yn 2 9)
(put.Ai.value.Yn 1 10)
(call 19 token←type 2 si)
(put.Ai.variable.Yn 5 15)
(put.Ai.value.Yn 4 16)
(put.Ai.value.Yn 3 12)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 18 lparen←if←needed 5 si)
(put.Ai.value.Yn 5 8)
(put.Ai.value.Yn 4 7)
(put.Ai.variable.Yn 3 13)
(put.Ai.unsafe.Yn 2 15)
(put.Ai.unsafe.Yn 1 14)
(call 16 write←term 5 si)
(put.Ai.variable.Yn 5 11)
(put.Ai.unsafe.Yn 4 13)
(put.Ai.unsafe.Yn 3 12)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 14 rparen←if←needed 5 si)
(put.Ai.unsafe.Yn 2 11)
(put.Ai.value.Yn 1 10)
(call 12 write←operator←token 2 si)
(put.Ai.variable.Yn 5 6)
(put.Ai.unsafe.Yn 4 9)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(call 11 lparen←if←needed 5 si)
(put.Ai.value.Yn 5 8)
(put.Ai.value.Yn 4 7)
(put.Ai.variable.Yn 3 3)
(put.Ai.unsafe.Yn 2 6)
(put.Ai.unsafe.Yn 1 5)
(call 7 write←term 5 si)
(put.Ai.value.Yn 5 4)
(put.Ai.unsafe.Yn 4 3)
(put.Ai.unsafe.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 %>)
(depart rparen←if←needed 5 si)
)
(ASSEMBLE.CLAUSE ( write←list 3 si ) 34
(get.Ai.list 1)
(allocate)
(unify.variable.Yn 1)
(unify.nil)
(get.Ai.constant 2 0)
(get.Ai.variable.Yn 3 2)
(put.Ai.value.Yn 1 1)
(is.a 248)
(body.cut)
(put.Ai.constant 1 91)
(call 5 put 1 si)
(put.Ai.value.Yn 3 2)
(put.Ai.constant 2 0)
(put.Ai.value.Yn 1 1)
(call 3 write←seq←element 3 si)
(put.Ai.constant 1 93)
(depart put 1 si)
)
(ASSEMBLE.CLAUSE ( write←list 3 si ) 11
(get.Ai.constant 2 0)
(head.cut)
(put.Ai.constant 2 0)
(put.Ai.symbol 1 %[%.%.%.%])
(execute put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←list 3 si ) 35
(get.Ai.list 1)
(allocate)
(unify.variable.Yn 4)
(unify.variable.Yn 1)
(get.Ai.variable.Yn 2 5)
(get.Ai.variable.Yn 3 3)
(put.Ai.constant 1 91)
(call 8 put 1 si)
(load.value.Yn 5)
(add.neg.word -1)
(store.variable.Yn 2)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 5)
(put.Ai.value.Yn 1 4)
(call 6 write←seq←element 3 si)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←list←elements 3 si)
)
(ASSEMBLE.CLAUSE ( write←list←elements 3 si ) 31
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 2)
(get.Ai.variable.Yn 3 3)
(put.Ai.value.Yn 1 1)
(is.a 1)
(body.cut)
(put.Ai.constant 1 124)
(call 6 put 1 si)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(call 3 write←seq←element 3 si)
(put.Ai.constant 1 93)
(depart put 1 si)
)
(ASSEMBLE.CLAUSE ( write←list←elements 3 si ) 9
(get.Ai.constant 1 NIL)
(head.cut)
(put.Ai.constant 1 93)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( write←list←elements 3 si ) 34
(get.Ai.list 1)
(allocate)
(unify.variable.Yn 1)
(unify.nil)
(get.Ai.constant 2 0)
(get.Ai.variable.Yn 3 2)
(put.Ai.value.Yn 1 1)
(is.a 248)
(body.cut)
(put.Ai.constant 1 44)
(call 5 put 1 si)
(put.Ai.value.Yn 3 2)
(put.Ai.constant 2 0)
(put.Ai.value.Yn 1 1)
(call 3 write←seq←element 3 si)
(put.Ai.constant 1 93)
(depart put 1 si)
)
(ASSEMBLE.CLAUSE ( write←list←elements 3 si ) 11
(get.Ai.constant 2 0)
(head.cut)
(put.Ai.constant 2 0)
(put.Ai.symbol 1 %,%.%.%.%])
(execute put←token 2 si)
)
(ASSEMBLE.CLAUSE ( write←list←elements 3 si ) 36
(get.Ai.list 1)
(allocate)
(unify.variable.Yn 4)
(unify.variable.Yn 1)
(get.Ai.variable.Yn 2 5)
(get.Ai.variable.Yn 3 3)
(head.cut)
(put.Ai.constant 1 44)
(call 8 put 1 si)
(load.value.Yn 5)
(add.neg.word -1)
(store.variable.Yn 2)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 5)
(put.Ai.value.Yn 1 4)
(call 6 write←seq←element 3 si)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←list←elements 3 si)
)
(ASSEMBLE.CLAUSE ( write←list←elements 3 si ) 29
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 2)
(put.Ai.constant 1 124)
(call 6 put 1 si)
(load.value.Yn 3)
(add.neg.word -1)
(store.variable.Xn 2)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 1 1)
(call 3 write←seq←element 3 si)
(put.Ai.constant 1 93)
(depart put 1 si)
)
(ASSEMBLE.CLAUSE ( write←seq←element 3 si ) 62
(allocate)
(get.Ai.variable.Yn 1 2)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 4)
(put.Ai.value.Yn 1 2)
(is.a 254)
(body.cut)
(put.Ai.void 3)
(put.Ai.variable.Yn 2 5)
(put.Ai.value.Yn 1 2)
(functor)
(put.Ai.variable.Yn 3 1)
(put.Ai.unsafe.Yn 2 5)
(put.Ai.value.Yn 1 2)
(call 7 paren←for←seq 3 si)
(load.value.Yn 1)
(load.pos.word 1)
(equal.to.else 41)
(put.Ai.constant 1 40)
(call 7 put 1 si)
(jump.to 41)
(put.Ai.value.Yn 5 4)
(put.Ai.value.Yn 4 3)
(put.Ai.void 3)
(put.Ai.symbol 2 solo)
(put.Ai.value.Yn 1 2)
(call 4 write←term 5 si)
(load.value.Yn 1)
(load.pos.word 1)
(equal.to.else 63)
(put.Ai.constant 1 41)
(depart put 1 si)
(progress)
)
(ASSEMBLE.CLAUSE ( write←seq←element 3 si ) 9
(put.Ai.value.Xn 4 2)
(put.Ai.value.Xn 5 3)
(put.Ai.void 3)
(put.Ai.symbol 2 solo)
(execute write←term 5 si)
)
(ASSEMBLE.CLAUSE ( write←nonoperator←term 6 si ) 45
(allocate)
(get.Ai.variable.Yn 1 2)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.symbol 4 solo)
(get.Ai.variable.Yn 5 5)
(get.Ai.variable.Yn 6 4)
(call 8 write←token 2 si)
(load.pos.word 40)
(store.variable.Xn 1)
(call 8 put 1 si)
(load.value.Yn 5)
(add.neg.word -1)
(store.variable.Yn 3)
(put.Ai.variable.Yn 3 1)
(put.Ai.void 2)
(put.Ai.value.Yn 1 2)
(functor)
(put.Ai.value.Yn 5 4)
(put.Ai.value.Yn 4 3)
(put.Ai.value.Yn 3 2)
(put.Ai.unsafe.Yn 2 1)
(put.Ai.constant 1 1)
(depart write←term←args 5 si)
)
(ASSEMBLE.CLAUSE ( write←term←args 5 si ) 74
(allocate)
(get.Ai.variable.Yn 1 5)
(get.Ai.variable.Yn 2 1)
(get.Ai.variable.Yn 3 2)
(get.Ai.variable.Yn 4 4)
(get.Ai.variable.Yn 5 3)
(load.value.Yn 4)
(load.pos.word 0)
(equal.to.else 29)
(load.value.Yn 5)
(load.value.Yn 1)
(less.than.else 29)
(put.Ai.constant 2 0)
(put.Ai.symbol 1 %.%.%.%))
(depart put←token 2 si)
(put.Ai.variable.Yn 3 6)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 5)
(arg)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 4)
(put.Ai.unsafe.Yn 1 6)
(call 8 write←seq←element 3 si)
(load.value.Yn 5)
(load.value.Yn 1)
(not.less.than.else 54)
(load.pos.word 41)
(store.variable.Xn 1)
(depart put 1 si)
(load.pos.word 44)
(store.variable.Xn 1)
(call 8 put 1 si)
(load.value.Yn 5)
(add.pos.word 1)
(store.variable.Xn 1)
(load.value.Yn 4)
(add.neg.word -1)
(store.variable.Xn 4)
(put.Ai.value.Yn 5 3)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(depart write←term←args 5 si)
)
(ASSEMBLE.CLAUSE ( put←space←if←needed 2 si ) 6
(get.Ai.constant 1 solo)
(get.Ai.symbol 2 solo)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( put←space←if←needed 2 si ) 8
(get.Ai.value.Xn 2 1)
(head.cut)
(put.Ai.constant 1 32)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( put←space←if←needed 2 si ) 1
(proceed)
)
(ASSEMBLE.CLAUSE ( space←after←prefix←op 3 si ) 5
(allocate)
(call 3 paren←not←needed 3 si)
(depart.cut)
)
(ASSEMBLE.CLAUSE ( space←after←prefix←op 3 si ) 5
(put.Ai.constant 1 32)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( paren←not←needed 3 si ) 7
(get.Ai.constant 1 %>)
(load.value.Xn 2)
(load.value.Xn 3)
(greater.than)
(proceed)
)
(ASSEMBLE.CLAUSE ( paren←not←needed 3 si ) 7
(get.Ai.constant 1 %>%=)
(load.value.Xn 2)
(load.value.Xn 3)
(not.less.than)
(proceed)
)
(ASSEMBLE.CLAUSE ( lparen←if←needed 5 si ) 9
(get.Ai.constant 1 %>)
(get.Ai.value.Xn 5 4)
(load.value.Xn 2)
(load.value.Xn 3)
(greater.than)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( lparen←if←needed 5 si ) 9
(get.Ai.constant 1 %>%=)
(get.Ai.value.Xn 5 4)
(load.value.Xn 2)
(load.value.Xn 3)
(not.less.than)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( lparen←if←needed 5 si ) 7
(get.Ai.symbol 5 solo)
(put.Ai.constant 1 40)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( rparen←if←needed 5 si ) 9
(get.Ai.constant 1 %>)
(get.Ai.value.Xn 5 4)
(load.value.Xn 2)
(load.value.Xn 3)
(greater.than)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( rparen←if←needed 5 si ) 9
(get.Ai.constant 1 %>%=)
(get.Ai.value.Xn 5 4)
(load.value.Xn 2)
(load.value.Xn 3)
(not.less.than)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( rparen←if←needed 5 si ) 7
(get.Ai.symbol 5 solo)
(put.Ai.constant 1 41)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( paren←for←seq 3 si ) 44
(get.Ai.value.Xn 2 1)
(allocate)
(get.Ai.variable.Yn 3 1)
(head.cut)
(load.choice.point)
(store.variable.Yn 2)
(either 7 39)
(put.Ai.value.Xn 3 1)
(put.Ai.variable.Yn 2 3)
(put.Ai.variable.Yn 1 4)
(call 7 current←op 3 si)
(load.value.Yn 4)
(load.pos.word 1000)
(not.less.than)
(put.Ai.unsafe.Yn 1 3)
(call 5 prefix←op←type 1 si)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 1)
(progress)
(or.finally)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 0)
(progress)
)
(ASSEMBLE.CLAUSE ( paren←for←seq 3 si ) 17
(get.Ai.constant 3 1)
(allocate)
(put.Ai.value.Xn 3 2)
(put.Ai.void 2)
(put.Ai.variable.Yn 1 1)
(call 4 current←op 3 si)
(load.value.Yn 1)
(load.pos.word 1000)
(not.less.than)
(depart.cut)
)
(ASSEMBLE.CLAUSE ( paren←for←seq 3 si ) 4
(get.Ai.constant 3 0)
(proceed)
)
(ASSEMBLE.CLAUSE ( prefix←operator 1 si ) 13
(put.Ai.value.Xn 3 1)
(allocate)
(put.Ai.variable.Yn 2 1)
(put.Ai.void 1)
(call 4 current←op 3 si)
(put.Ai.unsafe.Yn 1 1)
(depart prefix←op←type 1 si)
)
(ASSEMBLE.CLAUSE ( prefix←op←type 1 si ) 4
(get.Ai.constant 1 fx)
(proceed)
)
(ASSEMBLE.CLAUSE ( prefix←op←type 1 si ) 4
(get.Ai.constant 1 fy)
(proceed)
)
(ASSEMBLE.CLAUSE ( token←type 2 si ) 5
(get.Ai.symbol 2 alphameric)
(allocate)
(is.a 1)
(depart.cut)
)
(ASSEMBLE.CLAUSE ( token←type 2 si ) 6
(get.Ai.constant 1 NIL)
(get.Ai.symbol 2 solo)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( token←type 2 si ) 15
(allocate)
(get.Ai.variable.Yn 2 2)
(put.Ai.variable.Yn 2 1)
(call 5 p←token←type 2 si)
(body.cut)
(put.Ai.value.Yn 2 2)
(put.Ai.unsafe.Yn 1 1)
(depart tok←type 2 si)
)
(ASSEMBLE.CLAUSE ( token←type 2 si ) 3
(get.Ai.symbol 2 alphameric)
(proceed)
)
(ASSEMBLE.CLAUSE ( tok←type 2 si ) 6
(get.Ai.constant 1 1)
(get.Ai.symbol 2 alphameric)
(proceed)
)
(ASSEMBLE.CLAUSE ( tok←type 2 si ) 6
(get.Ai.constant 1 2)
(get.Ai.symbol 2 agglutinating)
(proceed)
)
(ASSEMBLE.CLAUSE ( tok←type 2 si ) 6
(get.Ai.constant 1 3)
(get.Ai.symbol 2 solo)
(proceed)
)
STOP