(ASSEMBLE.CLAUSE ( len 4 format ) 9
(start.calling QP%.LEN 3)
(send.direct.Ai 1)
(send.direct.Ai 2)
(send.direct.Ai 3)
(call.lisp 1)
(unify.local.Xn 4)
(proceed)
)
(ASSEMBLE.CLAUSE ( cprint 3 format ) 9
(start.calling QP%.CPRINT 3)
(send.direct.Ai 1)
(send.direct.Ai 2)
(send.direct.Ai 3)
(call.lisp 1)
(unify.void 1)
(proceed)
)
(ASSEMBLE.CLAUSE ( format 3 format ) 28
(allocate)
(get.Ai.variable.Yn 1 4)
(get.Ai.variable.Yn 2 2)
(get.Ai.variable.Yn 3 3)
(put.Ai.variable.Yn 1 1)
(call 7 current←output 1 si)
(put.Ai.value.Yn 1 4)
(call 6 set←output 1 si)
(put.Ai.value.Yn 2 3)
(put.Ai.value.Yn 1 2)
(call 4 format 2 format)
(put.Ai.unsafe.Yn 1 1)
(depart set←output 1 si)
)
(ASSEMBLE.CLAUSE ( format 2 format ) 21
(allocate)
(get.Ai.variable.Yn 1 3)
(get.Ai.variable.Yn 2 1)
(put.Ai.value.Yn 1 3)
(is.a 128)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 3)
(call 5 name 2 si)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart format←list1 2 format)
)
(ASSEMBLE.CLAUSE ( format 2 format ) 23
(allocate)
(get.Ai.variable.Yn 1 2)
(get.Ai.variable.Yn 2 1)
(load.choice.point)
(store.variable.Yn 3)
(either 6 18)
(put.Ai.value.Yn 1 2)
(is.a 128)
(load.value.Yn 3)
(cut.to.choice.point)
(fail)
(or.finally)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart format←list1 2 format)
)
(ASSEMBLE.CLAUSE ( format 2 format ) 1
(proceed)
)
(ASSEMBLE.CLAUSE ( format←list1 2 format ) 9
(get.Ai.constant 1 NIL)
(put.Ai.value.Xn 1 2)
(head.cut)
(put.Ai.nil 2)
(execute format←list2 2 format)
)
(ASSEMBLE.CLAUSE ( format←list1 2 format ) 11
(get.Ai.list 1)
(unify.variable.Xn 4)
(unify.variable.Xn 3)
(put.Ai.value.Xn 1 2)
(head.cut)
(put.Ai.list 2)
(unify.value.Xn 4)
(unify.value.Xn 3)
(execute format←list2 2 format)
)
(ASSEMBLE.CLAUSE ( format←list1 2 format ) 9
(put.Ai.value.Xn 3 2)
(put.Ai.list 2)
(unify.local.Xn 1)
(unify.nil)
(put.Ai.value.Xn 1 3)
(execute format←list2 2 format)
)
(ASSEMBLE.CLAUSE ( format←list2 2 format ) 127
(allocate)
(get.Ai.variable.Yn 1 4)
(get.Ai.variable.Yn 2 2)
(put.Ai.variable.Yn 6 1)
(put.Ai.variable.Yn 5 8)
(put.Ai.variable.Yn 4 9)
(put.Ai.variable.Yn 3 7)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 4)
(call 16 valid 6 format)
(body.cut)
(put.Ai.variable.Yn 1 10)
(call 16 current←output 1 si)
(put.Ai.constant 2 1)
(put.Ai.variable.Yn 1 12)
(call 16 fileerrors 2 si)
(load.choice.point)
(store.variable.Yn 13)
(either 16 56)
(put.Ai.variable.Yn 1 6)
(call 16 open←null←stream 1 si)
(load.value.Yn 13)
(cut.to.choice.point)
(put.Ai.value.Yn 2 12)
(put.Ai.void 1)
(call 15 fileerrors 2 si)
(jump.to 68)
(or.finally)
(put.Ai.unsafe.Yn 2 12)
(put.Ai.void 1)
(call 14 fileerrors 2 si)
(put.Ai.variable.Yn 1 6)
(get.Ai.constant 1 user←error)
(put.Ai.variable.Yn 2 11)
(put.Ai.value.Yn 1 10)
(call 14 line←position 2 si)
(put.Ai.value.Yn 7 1)
(put.Ai.unsafe.Yn 6 11)
(put.Ai.value.Yn 5 6)
(put.Ai.unsafe.Yn 4 10)
(put.Ai.unsafe.Yn 3 9)
(put.Ai.unsafe.Yn 2 8)
(put.Ai.unsafe.Yn 1 7)
(call 9 output 7 format)
(put.Ai.unsafe.Yn 1 6)
(call 8 close 1 si)
(load.choice.point)
(store.variable.Yn 5)
(either 8 126)
(put.Ai.value.Yn 1 1)
(is.a 254)
(load.value.Yn 5)
(cut.to.choice.point)
(put.Ai.value.Yn 2 4)
(put.Ai.variable.Yn 1 3)
(call 6 name 2 si)
(put.Ai.structure 2 format 2)
(unify.local.Yn 3)
(unify.local.Yn 2)
(put.Ai.unsafe.Yn 1 1)
(call 3 nerror 2 si)
(jump.to 127)
(or.finally)
(body.cut)
(fail)
)
(ASSEMBLE.CLAUSE ( valid 6 format ) 14
(put.Ai.value.Xn 7 5)
(put.Ai.value.Xn 10 6)
(put.Ai.constant 9 0)
(put.Ai.nil 8)
(put.Ai.nil 6)
(put.Ai.value.Xn 5 4)
(put.Ai.nil 4)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 10 format ) 16
(get.Ai.constant 1 NIL)
(get.Ai.nil 2)
(get.Ai.value.Xn 4 3)
(get.Ai.list 5)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 6 2)
(get.Ai.value.Xn 8 7)
(get.Ai.value.Xn 9 1)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( valid 10 format ) 36
(get.Ai.constant 1 NIL)
(get.Ai.value.Xn 4 3)
(get.Ai.list 5)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 6 2)
(get.Ai.value.Xn 8 7)
(get.Ai.value.Xn 9 1)
(allocate)
(get.Ai.variable.Yn 10 1)
(head.cut)
(load.choice.point)
(store.variable.Yn 2)
(either 5 36)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 501)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( valid 10 format ) 30
(get.Ai.list 1)
(unify.constant 126)
(unify.list)
(unify.variable.Xn 1)
(unify.variable.Xn 12)
(put.Ai.value.Xn 11 10)
(head.cut)
(put.Ai.value.Xn 10 9)
(put.Ai.value.Xn 9 8)
(put.Ai.value.Xn 8 7)
(put.Ai.value.Xn 7 6)
(put.Ai.value.Xn 6 5)
(put.Ai.value.Xn 5 4)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 2)
(put.Ai.value.Xn 2 12)
(execute valid 11 format)
)
(ASSEMBLE.CLAUSE ( valid 10 format ) 31
(get.Ai.list 1)
(unify.constant 13)
(unify.variable.Xn 1)
(put.Ai.value.Xn 11 10)
(head.cut)
(put.Ai.value.Xn 10 9)
(put.Ai.value.Xn 9 8)
(put.Ai.value.Xn 8 7)
(put.Ai.value.Xn 7 6)
(put.Ai.value.Xn 6 5)
(put.Ai.value.Xn 5 4)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Xn 3 2)
(put.Ai.value.Xn 2 1)
(put.Ai.constant 1 110)
(execute valid 11 format)
)
(ASSEMBLE.CLAUSE ( valid 10 format ) 8
(get.Ai.list 1)
(unify.variable.Xn 11)
(unify.variable.Xn 1)
(get.Ai.list 3)
(unify.value.Xn 11)
(unify.variable.Xn 3)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 78
(get.Ai.constant 1 42)
(get.Ai.list 2)
(allocate)
(unify.variable.Yn 3)
(unify.variable.Yn 4)
(put.Ai.value.Xn 1 3)
(get.Ai.variable.Yn 4 6)
(get.Ai.variable.Yn 5 7)
(get.Ai.variable.Yn 6 8)
(get.Ai.variable.Yn 7 9)
(get.Ai.variable.Yn 8 10)
(get.Ai.variable.Yn 9 11)
(get.Ai.variable.Yn 10 12)
(get.Ai.variable.Yn 11 13)
(head.cut)
(put.Ai.value.Yn 4 13)
(put.Ai.variable.Yn 3 5)
(put.Ai.variable.Yn 2 14)
(call 17 check←int 4 format)
(put.Ai.symbol 6 numeric)
(put.Ai.variable.Yn 5 2)
(put.Ai.void 4)
(put.Ai.void 3)
(put.Ai.variable.Yn 2 1)
(put.Ai.value.Yn 1 3)
(call 17 specifier 6 format)
(put.Ai.unsafe.Yn 14 14)
(put.Ai.value.Yn 13 13)
(put.Ai.value.Yn 12 12)
(put.Ai.value.Yn 11 11)
(put.Ai.value.Yn 10 10)
(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.value.Yn 4 4)
(put.Ai.value.Yn 3 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.unsafe.Yn 1 1)
(depart fillup 14 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 37
(get.Ai.constant 1 43)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant -43)
(unify.list)
(unify.constant 8)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(get.Ai.list 6)
(unify.variable.Xn 12)
(unify.variable.Xn 5)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(get.Ai.value.Xn 10 12)
(put.Ai.value.Xn 10 11)
(head.cut)
(put.Ai.constant 9 0)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 37
(get.Ai.constant 1 78)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant -78)
(unify.list)
(unify.constant 1)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(get.Ai.list 6)
(unify.variable.Xn 12)
(unify.variable.Xn 5)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(get.Ai.value.Xn 10 12)
(put.Ai.value.Xn 10 11)
(head.cut)
(put.Ai.constant 9 0)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 38
(get.Ai.constant 1 96)
(get.Ai.list 2)
(unify.variable.Xn 12)
(unify.list)
(unify.constant 116)
(unify.variable.Xn 1)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant -116)
(unify.list)
(unify.value.Xn 12)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(put.Ai.value.Xn 5 6)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(head.cut)
(load.value.Xn 10)
(add.pos.word 1)
(store.variable.Xn 9)
(put.Ai.value.Xn 10 11)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 37
(get.Ai.constant 1 110)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant -110)
(unify.list)
(unify.constant 1)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(get.Ai.list 6)
(unify.variable.Xn 12)
(unify.variable.Xn 5)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(get.Ai.value.Xn 10 12)
(put.Ai.value.Xn 10 11)
(head.cut)
(put.Ai.constant 9 0)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 35
(get.Ai.constant 1 116)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant -116)
(unify.list)
(unify.constant 32)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(put.Ai.value.Xn 5 6)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(head.cut)
(load.value.Xn 10)
(add.pos.word 1)
(store.variable.Xn 9)
(put.Ai.value.Xn 10 11)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 37
(get.Ai.constant 1 124)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant -124)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(get.Ai.list 6)
(unify.variable.Xn 12)
(unify.variable.Xn 5)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(get.Ai.value.Xn 10 12)
(put.Ai.value.Xn 10 11)
(head.cut)
(put.Ai.constant 9 0)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 29
(get.Ai.constant 1 126)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.list 4)
(unify.constant 126)
(unify.variable.Xn 3)
(put.Ai.value.Xn 4 5)
(put.Ai.value.Xn 5 6)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(put.Ai.value.Xn 9 10)
(put.Ai.value.Xn 10 11)
(head.cut)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 101
(allocate)
(get.Ai.variable.Yn 2 1)
(get.Ai.variable.Yn 3 16)
(get.Ai.variable.Yn 4 12)
(get.Ai.variable.Yn 5 4)
(get.Ai.variable.Yn 6 5)
(get.Ai.variable.Yn 7 6)
(get.Ai.variable.Yn 8 11)
(get.Ai.variable.Yn 9 7)
(get.Ai.variable.Yn 10 8)
(get.Ai.variable.Yn 11 9)
(put.Ai.void 6)
(put.Ai.variable.Yn 5 15)
(put.Ai.variable.Yn 4 3)
(put.Ai.variable.Yn 3 13)
(put.Ai.symbol 2 atom)
(call 19 specifier 6 format)
(body.cut)
(put.Ai.value.Yn 5 9)
(put.Ai.variable.Yn 4 2)
(put.Ai.variable.Yn 3 10)
(put.Ai.value.Yn 2 16)
(put.Ai.unsafe.Yn 1 15)
(call 17 check←type 5 format)
(load.choice.point)
(store.variable.Yn 14)
(either 17 73)
(put.Ai.value.Yn 1 9)
(is.a 254)
(load.value.Yn 14)
(cut.to.choice.point)
(put.Ai.value.Yn 1 4)
(get.Ai.value.Yn 1 12)
(put.Ai.value.Yn 1 5)
(get.Ai.list 1)
(unify.local.Yn 8)
(unify.local.Yn 6)
(put.Ai.value.Yn 1 7)
(get.Ai.value.Yn 1 11)
(progress)
(or.finally)
(put.Ai.unsafe.Yn 1 13)
(get.Ai.value.Yn 1 12)
(put.Ai.value.Yn 1 11)
(get.Ai.list 1)
(unify.local.Yn 10)
(unify.variable.Xn 7)
(put.Ai.value.Yn 10 9)
(put.Ai.value.Yn 9 8)
(put.Ai.value.Yn 8 7)
(put.Ai.value.Yn 6 6)
(put.Ai.value.Yn 5 5)
(put.Ai.value.Yn 4 4)
(put.Ai.unsafe.Yn 3 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart valid 10 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 38
(put.Ai.value.Xn 12 2)
(put.Ai.value.Xn 2 3)
(put.Ai.value.Xn 3 4)
(put.Ai.value.Xn 4 5)
(put.Ai.value.Xn 5 6)
(put.Ai.value.Xn 6 7)
(put.Ai.value.Xn 7 8)
(put.Ai.value.Xn 8 9)
(put.Ai.value.Xn 9 10)
(put.Ai.value.Xn 10 11)
(load.value.Xn 1)
(load.pos.word 48)
(subtract)
(store.variable.Xn 11)
(load.value.Xn 11)
(load.pos.word 10)
(less.than)
(load.value.Xn 11)
(load.pos.word 0)
(not.less.than)
(head.cut)
(put.Ai.value.Xn 1 12)
(execute valid←integer 11 format)
)
(ASSEMBLE.CLAUSE ( valid 11 format ) 32
(get.Ai.value.Xn 5 4)
(get.Ai.list 6)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 7 2)
(get.Ai.value.Xn 9 8)
(get.Ai.value.Xn 10 1)
(allocate)
(get.Ai.variable.Yn 11 1)
(load.choice.point)
(store.variable.Yn 2)
(either 5 32)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 503)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( valid←integer 11 format ) 26
(get.Ai.list 1)
(unify.variable.Xn 12)
(unify.variable.Xn 1)
(load.value.Xn 12)
(load.pos.word 48)
(subtract)
(store.variable.Xn 12)
(load.value.Xn 12)
(load.pos.word 10)
(less.than)
(load.value.Xn 12)
(load.pos.word 0)
(not.less.than)
(head.cut)
(load.value.Xn 11)
(load.pos.word 10)
(multiply)
(load.value.Xn 12)
(add)
(store.variable.Xn 11)
(execute valid←integer 11 format)
)
(ASSEMBLE.CLAUSE ( valid←integer 11 format ) 68
(get.Ai.list 1)
(allocate)
(unify.variable.Yn 3)
(unify.variable.Yn 4)
(get.Ai.variable.Yn 2 5)
(get.Ai.variable.Yn 3 6)
(get.Ai.variable.Yn 4 7)
(get.Ai.variable.Yn 5 8)
(get.Ai.variable.Yn 6 9)
(get.Ai.variable.Yn 7 10)
(get.Ai.variable.Yn 8 11)
(get.Ai.variable.Yn 9 12)
(get.Ai.variable.Yn 10 13)
(get.Ai.variable.Yn 11 14)
(put.Ai.symbol 6 numeric)
(put.Ai.variable.Yn 5 2)
(put.Ai.void 4)
(put.Ai.void 3)
(put.Ai.variable.Yn 2 1)
(put.Ai.value.Yn 1 3)
(call 17 specifier 6 format)
(body.cut)
(put.Ai.value.Yn 14 14)
(put.Ai.value.Yn 13 13)
(put.Ai.value.Yn 12 12)
(put.Ai.value.Yn 11 11)
(put.Ai.value.Yn 10 10)
(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.value.Yn 5 5)
(put.Ai.value.Yn 4 4)
(put.Ai.value.Yn 3 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.unsafe.Yn 1 1)
(depart fillup 14 format)
)
(ASSEMBLE.CLAUSE ( valid←integer 11 format ) 32
(get.Ai.value.Xn 4 3)
(get.Ai.list 5)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 6 2)
(get.Ai.value.Xn 8 7)
(get.Ai.value.Xn 9 1)
(allocate)
(get.Ai.variable.Yn 10 1)
(load.choice.point)
(store.variable.Yn 2)
(either 5 32)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 503)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( fillup 14 format ) 98
(get.Ai.constant 1 atom)
(put.Ai.value.Xn 1 2)
(allocate)
(get.Ai.variable.Yn 3 13)
(get.Ai.variable.Yn 4 1)
(put.Ai.value.Xn 2 5)
(get.Ai.variable.Yn 6 12)
(get.Ai.variable.Yn 7 3)
(get.Ai.variable.Yn 8 4)
(get.Ai.variable.Yn 9 5)
(get.Ai.variable.Yn 10 10)
(get.Ai.variable.Yn 11 6)
(get.Ai.variable.Yn 12 7)
(get.Ai.variable.Yn 13 8)
(get.Ai.variable.Yn 14 11)
(head.cut)
(put.Ai.value.Yn 5 8)
(put.Ai.variable.Yn 4 2)
(put.Ai.variable.Yn 3 9)
(call 17 check←type 5 format)
(load.choice.point)
(store.variable.Yn 14)
(either 17 66)
(put.Ai.value.Yn 1 8)
(is.a 254)
(load.value.Yn 14)
(cut.to.choice.point)
(put.Ai.value.Yn 1 3)
(get.Ai.value.Yn 1 12)
(put.Ai.value.Yn 1 4)
(get.Ai.list 1)
(unify.local.Yn 7)
(unify.local.Yn 5)
(put.Ai.value.Yn 1 6)
(get.Ai.value.Yn 1 10)
(progress)
(or.finally)
(load.value.Yn 13)
(minus)
(store.variable.Xn 1)
(put.Ai.value.Yn 2 12)
(get.Ai.list 2)
(unify.value.Xn 1)
(unify.list)
(unify.local.Yn 11)
(unify.variable.Xn 3)
(put.Ai.value.Yn 1 10)
(get.Ai.list 1)
(unify.local.Yn 9)
(unify.variable.Xn 7)
(put.Ai.value.Yn 10 8)
(put.Ai.value.Yn 9 7)
(put.Ai.value.Yn 8 6)
(put.Ai.value.Yn 6 5)
(put.Ai.value.Yn 5 4)
(put.Ai.value.Yn 4 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart valid 10 format)
)
(ASSEMBLE.CLAUSE ( fillup 14 format ) 38
(get.Ai.constant 1 fill)
(put.Ai.value.Xn 1 4)
(put.Ai.value.Xn 2 5)
(get.Ai.list 6)
(unify.variable.Xn 16)
(unify.list)
(unify.variable.Xn 17)
(unify.variable.Xn 15)
(put.Ai.value.Xn 4 7)
(put.Ai.value.Xn 5 8)
(put.Ai.value.Xn 6 9)
(put.Ai.value.Xn 7 10)
(put.Ai.value.Xn 8 11)
(put.Ai.value.Xn 10 13)
(get.Ai.value.Xn 14 17)
(head.cut)
(load.value.Xn 3)
(minus)
(store.value.Xn 16)
(load.value.Xn 12)
(add.pos.word 1)
(store.variable.Xn 9)
(put.Ai.value.Xn 3 15)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( fillup 14 format ) 40
(get.Ai.constant 1 mark)
(put.Ai.value.Xn 1 4)
(put.Ai.value.Xn 2 5)
(get.Ai.list 6)
(unify.variable.Xn 16)
(unify.list)
(unify.variable.Xn 17)
(unify.variable.Xn 15)
(put.Ai.value.Xn 4 7)
(get.Ai.list 8)
(unify.variable.Xn 18)
(unify.variable.Xn 5)
(put.Ai.value.Xn 6 9)
(put.Ai.value.Xn 7 10)
(put.Ai.value.Xn 8 11)
(get.Ai.value.Xn 12 18)
(put.Ai.value.Xn 10 13)
(get.Ai.value.Xn 14 17)
(head.cut)
(load.value.Xn 3)
(minus)
(store.value.Xn 16)
(put.Ai.constant 9 0)
(put.Ai.value.Xn 3 15)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( fillup 14 format ) 32
(put.Ai.value.Xn 1 4)
(put.Ai.value.Xn 2 5)
(get.Ai.list 6)
(unify.variable.Xn 16)
(unify.list)
(unify.variable.Xn 17)
(unify.variable.Xn 15)
(put.Ai.value.Xn 4 7)
(put.Ai.value.Xn 5 8)
(put.Ai.value.Xn 6 9)
(put.Ai.value.Xn 7 10)
(put.Ai.value.Xn 8 11)
(put.Ai.value.Xn 9 12)
(put.Ai.value.Xn 10 13)
(get.Ai.value.Xn 14 17)
(load.value.Xn 3)
(minus)
(store.value.Xn 16)
(put.Ai.value.Xn 3 15)
(execute valid 10 format)
)
(ASSEMBLE.CLAUSE ( output 7 format ) 4
(get.Ai.constant 1 NIL)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( output 7 format ) 40
(get.Ai.nil 3)
(allocate)
(get.Ai.variable.Yn 4 3)
(get.Ai.variable.Yn 5 4)
(get.Ai.variable.Yn 6 5)
(get.Ai.variable.Yn 7 6)
(put.Ai.value.Yn 7 6)
(put.Ai.value.Yn 6 5)
(put.Ai.nil 5)
(put.Ai.variable.Yn 4 2)
(put.Ai.value.Xn 3 2)
(put.Ai.variable.Yn 2 1)
(call 9 output←field 7 format)
(body.cut)
(put.Ai.value.Yn 7 6)
(put.Ai.value.Yn 6 5)
(put.Ai.value.Yn 5 4)
(put.Ai.value.Yn 4 3)
(put.Ai.nil 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.unsafe.Yn 1 1)
(depart output 7 format)
)
(ASSEMBLE.CLAUSE ( output 7 format ) 98
(allocate)
(get.Ai.variable.Yn 1 8)
(get.Ai.variable.Yn 2 9)
(get.Ai.list 3)
(unify.variable.Yn 12)
(unify.variable.Yn 3)
(get.Ai.variable.Yn 4 4)
(get.Ai.variable.Yn 5 5)
(get.Ai.variable.Yn 6 11)
(get.Ai.variable.Yn 7 7)
(load.value.Yn 12)
(load.pos.word 0)
(equal.to.else 30)
(put.Ai.variable.Yn 1 10)
(get.Ai.constant 1 NIL)
(jump.to 59)
(put.Ai.value.Yn 1 5)
(call 15 set←output 1 si)
(call 15 nl 0 si)
(put.Ai.constant 6 0)
(put.Ai.value.Yn 5 12)
(put.Ai.variable.Yn 4 10)
(put.Ai.value.Yn 3 11)
(put.Ai.value.Yn 2 9)
(put.Ai.value.Yn 1 8)
(call 14 find←fill←length 6 format)
(put.Ai.value.Yn 1 4)
(call 14 set←output 1 si)
(put.Ai.value.Yn 7 7)
(put.Ai.value.Yn 6 11)
(put.Ai.unsafe.Yn 5 10)
(put.Ai.variable.Yn 4 2)
(put.Ai.value.Yn 3 9)
(put.Ai.variable.Yn 2 1)
(put.Ai.value.Yn 1 8)
(call 10 output←field 7 format)
(body.cut)
(put.Ai.variable.Yn 2 6)
(put.Ai.value.Yn 1 4)
(call 10 line←position 2 si)
(put.Ai.value.Yn 7 7)
(put.Ai.unsafe.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.unsafe.Yn 1 1)
(depart output 7 format)
)
(ASSEMBLE.CLAUSE ( output←field 7 format ) 5
(get.Ai.constant 1 NIL)
(get.Ai.nil 2)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( output←field 7 format ) 28
(get.Ai.list 1)
(unify.variable.Xn 1)
(unify.list)
(unify.variable.Xn 10)
(unify.variable.Xn 11)
(put.Ai.value.Xn 8 6)
(put.Ai.value.Xn 9 7)
(load.value.Xn 1)
(load.pos.word 0)
(less.than)
(head.cut)
(put.Ai.value.Xn 7 5)
(put.Ai.value.Xn 6 4)
(put.Ai.value.Xn 5 3)
(put.Ai.value.Xn 4 2)
(put.Ai.value.Xn 3 11)
(put.Ai.value.Xn 2 10)
(execute do←output 9 format)
)
(ASSEMBLE.CLAUSE ( output←field 7 format ) 35
(get.Ai.list 1)
(unify.variable.Xn 1)
(allocate)
(unify.variable.Yn 1)
(get.Ai.variable.Yn 2 2)
(get.Ai.variable.Yn 3 3)
(get.Ai.variable.Yn 4 4)
(get.Ai.variable.Yn 5 5)
(get.Ai.variable.Yn 6 6)
(get.Ai.variable.Yn 7 7)
(call 10 put 1 si)
(put.Ai.value.Yn 7 7)
(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.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart output←field 7 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 62
(get.Ai.constant 1 -43)
(allocate)
(get.Ai.variable.Yn 2 5)
(get.Ai.value.Xn 4 3)
(get.Ai.value.Xn 6 5)
(get.Ai.variable.Yn 8 6)
(get.Ai.variable.Yn 9 3)
(head.cut)
(put.Ai.variable.Yn 1 7)
(call 10 current←output 1 si)
(put.Ai.variable.Yn 2 1)
(put.Ai.unsafe.Yn 1 7)
(call 9 line←position 2 si)
(load.value.Yn 6)
(load.value.Yn 5)
(add)
(store.variable.Yn 2)
(load.value.Yn 2)
(load.value.Yn 1)
(less.than.else 55)
(load.choice.point)
(store.variable.Yn 4)
(either 7 53)
(put.Ai.value.Yn 1 3)
(is.a 1)
(load.value.Yn 4)
(cut.to.choice.point)
(put.Ai.value.Yn 1 3)
(get.Ai.constant 1 504)
(progress)
(or.finally)
(progress)
(load.value.Yn 2)
(load.value.Yn 1)
(subtract)
(store.variable.Xn 1)
(put.Ai.constant 2 32)
(depart write←many 2 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 43
(get.Ai.constant 1 -78)
(allocate)
(get.Ai.variable.Yn 2 2)
(get.Ai.value.Xn 4 3)
(get.Ai.value.Xn 6 5)
(head.cut)
(put.Ai.variable.Yn 1 4)
(call 7 current←output 1 si)
(put.Ai.variable.Yn 2 3)
(put.Ai.unsafe.Yn 1 4)
(call 6 line←position 2 si)
(load.value.Yn 3)
(load.pos.word 0)
(equal.to.else 36)
(load.value.Yn 2)
(add.neg.word -1)
(store.variable.Yn 1)
(jump.to 38)
(load.value.Yn 2)
(store.variable.Yn 1)
(put.Ai.constant 2 13)
(put.Ai.value.Yn 1 1)
(depart write←many 2 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 15
(get.Ai.constant 1 -110)
(put.Ai.value.Xn 1 2)
(get.Ai.value.Xn 4 3)
(get.Ai.value.Xn 6 5)
(head.cut)
(put.Ai.constant 2 13)
(execute write←many 2 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 20
(get.Ai.constant 1 -116)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 2 4)
(put.Ai.value.Xn 3 5)
(put.Ai.value.Xn 4 6)
(get.Ai.nil 7)
(put.Ai.value.Xn 6 8)
(put.Ai.value.Xn 7 9)
(head.cut)
(put.Ai.nil 5)
(execute output←field 7 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 39
(get.Ai.constant 1 -116)
(allocate)
(get.Ai.variable.Yn 3 1)
(get.Ai.variable.Yn 4 2)
(get.Ai.variable.Yn 5 3)
(get.Ai.variable.Yn 6 4)
(get.Ai.list 7)
(unify.variable.Xn 1)
(unify.variable.Yn 5)
(get.Ai.variable.Yn 8 6)
(get.Ai.variable.Yn 9 7)
(head.cut)
(call 10 write←many 2 format)
(put.Ai.value.Yn 7 7)
(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.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart output←field 7 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 56
(get.Ai.constant 1 -124)
(allocate)
(get.Ai.variable.Yn 2 2)
(get.Ai.value.Xn 4 3)
(get.Ai.value.Xn 6 5)
(get.Ai.variable.Yn 9 3)
(head.cut)
(put.Ai.variable.Yn 1 5)
(call 8 current←output 1 si)
(put.Ai.variable.Yn 2 1)
(put.Ai.unsafe.Yn 1 5)
(call 7 line←position 2 si)
(load.value.Yn 2)
(load.value.Yn 1)
(less.than.else 49)
(load.choice.point)
(store.variable.Yn 4)
(either 7 47)
(put.Ai.value.Yn 1 3)
(is.a 1)
(load.value.Yn 4)
(cut.to.choice.point)
(put.Ai.value.Yn 1 3)
(get.Ai.constant 1 504)
(progress)
(or.finally)
(progress)
(load.value.Yn 2)
(load.value.Yn 1)
(subtract)
(store.variable.Xn 1)
(put.Ai.constant 2 32)
(depart write←many 2 format)
)
(ASSEMBLE.CLAUSE ( do←output 9 format ) 37
(allocate)
(get.Ai.variable.Yn 3 1)
(get.Ai.variable.Yn 4 2)
(get.Ai.list 5)
(unify.variable.Xn 3)
(unify.variable.Yn 3)
(get.Ai.variable.Yn 6 4)
(get.Ai.variable.Yn 7 5)
(get.Ai.variable.Yn 8 6)
(get.Ai.variable.Yn 9 7)
(put.Ai.value.Yn 4 7)
(call 10 write←to←user 4 format)
(put.Ai.value.Yn 7 7)
(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.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart output←field 7 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 6 format ) 12
(get.Ai.constant 1 NIL)
(put.Ai.value.Xn 1 4)
(put.Ai.value.Xn 2 5)
(put.Ai.value.Xn 3 6)
(head.cut)
(execute make←fill 3 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 6 format ) 26
(get.Ai.list 1)
(unify.variable.Xn 1)
(unify.list)
(unify.variable.Xn 9)
(unify.variable.Xn 10)
(put.Ai.value.Xn 7 5)
(put.Ai.value.Xn 8 6)
(load.value.Xn 1)
(load.pos.word 0)
(less.than)
(head.cut)
(put.Ai.value.Xn 6 4)
(put.Ai.value.Xn 5 3)
(put.Ai.value.Xn 4 2)
(put.Ai.value.Xn 3 10)
(put.Ai.value.Xn 2 9)
(execute find←fill←length 8 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 6 format ) 9
(get.Ai.list 1)
(unify.void 1)
(unify.variable.Xn 1)
(load.value.Xn 6)
(add.pos.word 1)
(store.variable.Xn 6)
(execute find←fill←length 6 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 8 format ) 37
(get.Ai.constant 1 -43)
(allocate)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 6 1)
(get.Ai.variable.Yn 7 2)
(get.Ai.variable.Yn 8 5)
(head.cut)
(put.Ai.variable.Yn 1 6)
(call 9 current←output 1 si)
(put.Ai.variable.Yn 2 4)
(put.Ai.unsafe.Yn 1 6)
(call 8 line←position 2 si)
(load.value.Yn 5)
(load.value.Yn 4)
(add)
(store.variable.Xn 4)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart make←fill 4 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 8 format ) 12
(get.Ai.constant 1 -78)
(put.Ai.value.Xn 1 6)
(put.Ai.value.Xn 2 7)
(put.Ai.value.Xn 3 8)
(head.cut)
(execute make←fill 3 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 8 format ) 18
(get.Ai.constant 1 -116)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 2 4)
(put.Ai.value.Xn 3 5)
(put.Ai.value.Xn 4 6)
(put.Ai.value.Xn 5 7)
(put.Ai.value.Xn 6 8)
(head.cut)
(execute find←fill←length 6 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 8 format ) 12
(get.Ai.constant 1 -110)
(put.Ai.value.Xn 1 6)
(put.Ai.value.Xn 2 7)
(put.Ai.value.Xn 3 8)
(head.cut)
(execute make←fill 3 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 8 format ) 39
(get.Ai.constant 1 -124)
(allocate)
(get.Ai.variable.Yn 6 1)
(get.Ai.variable.Yn 7 2)
(get.Ai.variable.Yn 8 5)
(head.cut)
(load.value.Xn 2)
(load.value.Xn 5)
(subtract)
(store.variable.Yn 3)
(put.Ai.variable.Yn 1 6)
(call 9 current←output 1 si)
(put.Ai.variable.Yn 2 4)
(put.Ai.unsafe.Yn 1 6)
(call 8 line←position 2 si)
(load.value.Yn 5)
(load.value.Yn 4)
(add)
(store.variable.Xn 4)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart make←fill 4 format)
)
(ASSEMBLE.CLAUSE ( find←fill←length 8 format ) 35
(allocate)
(get.Ai.variable.Yn 3 1)
(get.Ai.list 4)
(unify.variable.Xn 3)
(unify.variable.Yn 2)
(get.Ai.variable.Yn 5 3)
(get.Ai.variable.Yn 6 4)
(get.Ai.variable.Yn 7 5)
(get.Ai.variable.Yn 8 7)
(put.Ai.variable.Yn 4 6)
(call 10 write←to←null 4 format)
(load.value.Yn 7)
(load.value.Yn 6)
(add)
(store.variable.Xn 6)
(put.Ai.value.Yn 5 5)
(put.Ai.value.Yn 4 4)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart find←fill←length 6 format)
)
(ASSEMBLE.CLAUSE ( make←fill 3 format ) 31
(allocate)
(get.Ai.variable.Yn 1 1)
(get.Ai.variable.Yn 2 2)
(get.Ai.variable.Yn 3 4)
(put.Ai.variable.Yn 1 5)
(call 8 current←output 1 si)
(put.Ai.variable.Yn 2 3)
(put.Ai.unsafe.Yn 1 5)
(call 7 line←position 2 si)
(load.value.Yn 4)
(load.value.Yn 3)
(add)
(store.variable.Xn 3)
(put.Ai.value.Xn 4 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart make←fill 4 format)
)
(ASSEMBLE.CLAUSE ( make←fill 4 format ) 7
(get.Ai.constant 1 NIL)
(get.Ai.constant 2 0)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( make←fill 4 format ) 41
(allocate)
(get.Ai.variable.Yn 1 3)
(get.Ai.variable.Yn 2 1)
(load.value.Xn 3)
(load.value.Xn 4)
(subtract)
(store.variable.Xn 1)
(load.value.Xn 1)
(load.pos.word 0)
(not.less.than.else 26)
(load.value.Xn 1)
(load.value.Yn 1)
(integer.divide)
(store.variable.Yn 4)
(load.value.Xn 1)
(load.value.Yn 1)
(modulus)
(store.variable.Yn 2)
(jump.to 32)
(load.pos.word 0)
(store.variable.Yn 4)
(load.pos.word 0)
(store.variable.Yn 2)
(put.Ai.value.Yn 5 4)
(put.Ai.value.Yn 4 3)
(put.Ai.nil 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart build←fill 5 format)
)
(ASSEMBLE.CLAUSE ( build←fill 5 format ) 6
(get.Ai.constant 1 0)
(get.Ai.value.Xn 4 3)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( build←fill 5 format ) 21
(get.Ai.constant 2 0)
(put.Ai.value.Xn 2 3)
(put.Ai.value.Xn 6 5)
(load.value.Xn 1)
(add.neg.word -1)
(store.variable.Xn 1)
(put.Ai.value.Xn 5 6)
(put.Ai.list 3)
(unify.local.Xn 6)
(unify.local.Xn 2)
(put.Ai.constant 2 0)
(execute build←fill 5 format)
)
(ASSEMBLE.CLAUSE ( build←fill 5 format ) 19
(put.Ai.value.Xn 6 3)
(load.value.Xn 1)
(add.neg.word -1)
(store.variable.Xn 1)
(load.value.Xn 2)
(add.neg.word -1)
(store.variable.Xn 2)
(load.value.Xn 5)
(add.pos.word 1)
(store.variable.Xn 7)
(put.Ai.list 3)
(unify.value.Xn 7)
(unify.local.Xn 6)
(execute build←fill 5 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 105
(get.Ai.constant 1 -68)
(allocate)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 7)
(load.value.Yn 7)
(load.pos.word 0)
(less.than.else 26)
(load.pos.word 45)
(store.variable.Xn 1)
(call 10 put 1 si)
(load.value.Yn 7)
(minus)
(store.variable.Yn 6)
(jump.to 28)
(load.value.Yn 7)
(store.variable.Yn 6)
(put.Ai.variable.Yn 2 2)
(put.Ai.value.Yn 1 6)
(call 8 name 2 si)
(put.Ai.variable.Yn 2 4)
(put.Ai.value.Yn 1 2)
(call 8 length 2 si)
(load.value.Yn 3)
(load.pos.word 0)
(equal.to.else 54)
(put.Ai.void 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 4)
(depart write←clist 3 format)
(load.value.Yn 3)
(load.value.Yn 4)
(not.less.than.else 86)
(load.value.Yn 3)
(load.value.Yn 4)
(subtract)
(store.variable.Yn 5)
(load.pos.word 48)
(store.variable.Xn 1)
(call 8 put 1 si)
(load.pos.word 46)
(store.variable.Xn 1)
(call 8 put 1 si)
(put.Ai.constant 2 48)
(put.Ai.value.Yn 1 5)
(call 7 write←many 2 format)
(put.Ai.value.Yn 1 2)
(depart write←list 1 format)
(load.value.Yn 4)
(load.value.Yn 3)
(subtract)
(store.variable.Xn 1)
(put.Ai.variable.Yn 3 1)
(put.Ai.unsafe.Yn 2 2)
(call 4 write←clist 3 format)
(load.pos.word 46)
(store.variable.Xn 1)
(call 4 put 1 si)
(put.Ai.unsafe.Yn 1 1)
(depart write←list 1 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 29
(get.Ai.constant 1 -69)
(allocate)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 1)
(load.value.Yn 3)
(load.pos.word 1)
(less.than.else 20)
(load.pos.word 1)
(store.variable.Yn 2)
(jump.to 22)
(load.value.Yn 3)
(store.variable.Yn 2)
(put.Ai.value.Yn 3 2)
(put.Ai.constant 2 69)
(put.Ai.value.Yn 1 1)
(depart cprint 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 29
(get.Ai.constant 1 -71)
(allocate)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 1)
(load.value.Yn 3)
(load.pos.word 2)
(less.than.else 20)
(load.pos.word 2)
(store.variable.Yn 2)
(jump.to 22)
(load.value.Yn 3)
(store.variable.Yn 2)
(put.Ai.value.Yn 3 2)
(put.Ai.constant 2 71)
(put.Ai.value.Yn 1 1)
(depart cprint 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 45
(get.Ai.constant 1 -82)
(allocate)
(get.Ai.variable.Yn 4 1)
(load.value.Xn 2)
(load.pos.word 2)
(not.less.than.else 29)
(load.value.Xn 2)
(load.pos.word 36)
(not.greater.than.else 29)
(put.Ai.variable.Yn 4 3)
(put.Ai.symbol 1 upper)
(call 6 convert←to←radix 4 format)
(put.Ai.unsafe.Yn 1 3)
(depart write←list 1 format)
(load.choice.point)
(store.variable.Yn 2)
(either 5 45)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 505)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 7
(get.Ai.constant 1 -97)
(put.Ai.value.Xn 1 3)
(execute write 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 11
(get.Ai.constant 1 -99)
(get.Ai.constant 2 1)
(put.Ai.value.Xn 1 3)
(head.cut)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 9
(get.Ai.constant 1 -99)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(execute write←many 2 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 11
(get.Ai.constant 1 -100)
(get.Ai.constant 2 0)
(put.Ai.value.Xn 1 3)
(head.cut)
(execute write 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 95
(get.Ai.constant 1 -100)
(allocate)
(get.Ai.variable.Yn 2 4)
(get.Ai.variable.Yn 3 7)
(load.value.Yn 7)
(load.pos.word 0)
(less.than.else 26)
(load.pos.word 45)
(store.variable.Xn 1)
(call 10 put 1 si)
(load.value.Yn 7)
(minus)
(store.variable.Yn 6)
(jump.to 28)
(load.value.Yn 7)
(store.variable.Yn 6)
(put.Ai.variable.Yn 2 3)
(put.Ai.value.Yn 1 6)
(call 9 name 2 si)
(put.Ai.variable.Yn 2 5)
(put.Ai.value.Yn 1 3)
(call 9 length 2 si)
(load.value.Yn 4)
(load.value.Yn 5)
(not.less.than.else 74)
(load.value.Yn 4)
(load.value.Yn 5)
(subtract)
(store.variable.Yn 2)
(load.pos.word 48)
(store.variable.Xn 1)
(call 9 put 1 si)
(load.pos.word 46)
(store.variable.Xn 1)
(call 9 put 1 si)
(put.Ai.constant 2 48)
(put.Ai.value.Yn 1 2)
(call 9 write←many 2 format)
(put.Ai.value.Yn 1 6)
(depart write 1 si)
(load.value.Yn 5)
(load.value.Yn 4)
(subtract)
(store.variable.Yn 2)
(put.Ai.variable.Yn 3 1)
(put.Ai.unsafe.Yn 2 3)
(put.Ai.value.Yn 1 2)
(call 4 write←list 3 format)
(load.pos.word 46)
(store.variable.Xn 1)
(call 4 put 1 si)
(put.Ai.unsafe.Yn 1 1)
(depart write←list 1 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 29
(get.Ai.constant 1 -101)
(allocate)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 1)
(load.value.Yn 3)
(load.pos.word 1)
(less.than.else 20)
(load.pos.word 1)
(store.variable.Yn 2)
(jump.to 22)
(load.value.Yn 3)
(store.variable.Yn 2)
(put.Ai.value.Yn 3 2)
(put.Ai.constant 2 101)
(put.Ai.value.Yn 1 1)
(depart cprint 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 12
(get.Ai.constant 1 -102)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 102)
(execute cprint 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 29
(get.Ai.constant 1 -103)
(allocate)
(get.Ai.variable.Yn 2 3)
(get.Ai.variable.Yn 3 1)
(load.value.Yn 3)
(load.pos.word 2)
(less.than.else 20)
(load.pos.word 2)
(store.variable.Yn 2)
(jump.to 22)
(load.value.Yn 3)
(store.variable.Yn 2)
(put.Ai.value.Yn 3 2)
(put.Ai.constant 2 103)
(put.Ai.value.Yn 1 1)
(depart cprint 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 4
(get.Ai.constant 1 -105)
(proceed)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 7
(get.Ai.constant 1 -107)
(put.Ai.value.Xn 1 3)
(execute write←canonical 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 7
(get.Ai.constant 1 -112)
(put.Ai.value.Xn 1 3)
(execute print 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 7
(get.Ai.constant 1 -113)
(put.Ai.value.Xn 1 3)
(execute writeq 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 45
(get.Ai.constant 1 -114)
(allocate)
(get.Ai.variable.Yn 4 1)
(load.value.Xn 2)
(load.pos.word 2)
(not.less.than.else 29)
(load.value.Xn 2)
(load.pos.word 36)
(not.greater.than.else 29)
(put.Ai.variable.Yn 4 3)
(put.Ai.symbol 1 lower)
(call 6 convert←to←radix 4 format)
(put.Ai.unsafe.Yn 1 3)
(depart write←list 1 format)
(load.choice.point)
(store.variable.Yn 2)
(either 5 45)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 505)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 11
(get.Ai.constant 1 -115)
(get.Ai.constant 2 0)
(put.Ai.value.Xn 1 3)
(head.cut)
(execute write←list 1 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 10
(get.Ai.constant 1 -115)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(put.Ai.void 3)
(execute write←list 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←user 4 format ) 7
(get.Ai.constant 1 -119)
(put.Ai.value.Xn 1 3)
(execute write 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 23
(get.Ai.constant 1 -68)
(get.Ai.constant 2 0)
(allocate)
(get.Ai.variable.Yn 3 1)
(get.Ai.variable.Yn 4 2)
(head.cut)
(put.Ai.value.Yn 1 1)
(call 5 write 1 si)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart commas 2 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 43
(get.Ai.constant 1 -68)
(allocate)
(get.Ai.variable.Yn 2 6)
(get.Ai.variable.Yn 3 5)
(get.Ai.variable.Yn 4 1)
(put.Ai.variable.Yn 4 3)
(put.Ai.value.Yn 3 5)
(put.Ai.value.Yn 2 6)
(put.Ai.constant 1 -100)
(call 9 write←to←null 4 format)
(put.Ai.variable.Yn 2 4)
(put.Ai.value.Yn 1 6)
(call 8 ten←power 2 format)
(load.value.Yn 5)
(load.value.Yn 4)
(integer.divide)
(store.variable.Xn 1)
(put.Ai.variable.Yn 2 2)
(call 6 commas 2 format)
(load.value.Yn 3)
(load.value.Yn 2)
(add)
(store.value.Yn 1)
(progress)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 12
(get.Ai.constant 1 -69)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 69)
(execute len 4 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 12
(get.Ai.constant 1 -71)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 71)
(execute len 4 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 30
(get.Ai.constant 1 -82)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(allocate)
(get.Ai.variable.Yn 4 1)
(load.value.Xn 1)
(load.pos.word 2)
(not.less.than.else 26)
(load.value.Xn 1)
(load.pos.word 36)
(not.greater.than.else 26)
(put.Ai.value.Yn 3 1)
(depart find←radix←length 3 format)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 0)
(progress)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 10
(get.Ai.constant 1 -97)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(execute write 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 14
(get.Ai.constant 1 -99)
(get.Ai.constant 2 1)
(get.Ai.constant 4 1)
(load.value.Xn 3)
(load.pos.word 32)
(greater.than)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 14
(get.Ai.constant 1 -99)
(get.Ai.constant 2 1)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(head.cut)
(execute put 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 10
(get.Ai.constant 1 -99)
(get.Ai.value.Xn 4 2)
(load.value.Xn 3)
(load.pos.word 32)
(greater.than)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 12
(get.Ai.constant 1 -99)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.constant 4 0)
(execute write←many 2 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 14
(get.Ai.constant 1 -100)
(get.Ai.constant 2 0)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(head.cut)
(execute write 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 54
(get.Ai.constant 1 -100)
(allocate)
(get.Ai.variable.Yn 2 5)
(get.Ai.variable.Yn 3 7)
(get.Ai.variable.Yn 4 1)
(put.Ai.variable.Yn 1 6)
(call 10 current←output 1 si)
(put.Ai.variable.Yn 2 3)
(put.Ai.value.Yn 1 6)
(call 10 line←position 2 si)
(put.Ai.value.Yn 1 7)
(call 9 write 1 si)
(put.Ai.variable.Yn 2 4)
(put.Ai.unsafe.Yn 1 6)
(call 8 line←position 2 si)
(load.value.Yn 5)
(load.value.Yn 4)
(subtract)
(load.value.Yn 3)
(add)
(store.variable.Yn 2)
(load.value.Yn 2)
(load.pos.word 0)
(less.than.else 51)
(load.pos.word 1)
(store.value.Yn 1)
(progress)
(load.value.Yn 2)
(add.pos.word 2)
(store.value.Yn 1)
(progress)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 12
(get.Ai.constant 1 -101)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 101)
(execute len 4 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 12
(get.Ai.constant 1 -102)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 102)
(execute len 4 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 12
(get.Ai.constant 1 -103)
(put.Ai.value.Xn 1 3)
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 103)
(execute len 4 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 7
(get.Ai.constant 1 -105)
(get.Ai.constant 4 0)
(proceed)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 10
(get.Ai.constant 1 -107)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(execute write←canonical 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 10
(get.Ai.constant 1 -112)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(execute print 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 10
(get.Ai.constant 1 -113)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(execute writeq 1 si)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 30
(get.Ai.constant 1 -114)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(allocate)
(get.Ai.variable.Yn 4 1)
(load.value.Xn 1)
(load.pos.word 2)
(not.less.than.else 26)
(load.value.Xn 1)
(load.pos.word 36)
(not.greater.than.else 26)
(put.Ai.value.Yn 3 1)
(depart find←radix←length 3 format)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 0)
(progress)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 14
(get.Ai.constant 1 -115)
(get.Ai.constant 2 0)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(head.cut)
(execute write←list 1 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 13
(get.Ai.constant 1 -115)
(put.Ai.value.Xn 1 2)
(put.Ai.value.Xn 2 3)
(get.Ai.constant 4 0)
(put.Ai.void 3)
(execute write←list 3 format)
)
(ASSEMBLE.CLAUSE ( write←to←null 4 format ) 10
(get.Ai.constant 1 -119)
(put.Ai.value.Xn 1 3)
(get.Ai.constant 4 0)
(execute write 1 si)
)
(ASSEMBLE.CLAUSE ( check←int 4 format ) 29
(get.Ai.constant 1 NIL)
(get.Ai.constant 2 0)
(get.Ai.nil 3)
(allocate)
(get.Ai.variable.Yn 4 1)
(head.cut)
(load.choice.point)
(store.variable.Yn 2)
(either 5 29)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 501)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( check←int 4 format ) 16
(get.Ai.list 1)
(allocate)
(unify.variable.Yn 1)
(unify.variable.Xn 1)
(get.Ai.value.Yn 2 1)
(get.Ai.value.Xn 3 1)
(put.Ai.value.Yn 1 1)
(is.a 24)
(load.value.Yn 1)
(load.pos.word 0)
(not.less.than)
(progress)
)
(ASSEMBLE.CLAUSE ( check←int 4 format ) 25
(get.Ai.constant 2 0)
(get.Ai.nil 3)
(allocate)
(get.Ai.variable.Yn 4 1)
(load.choice.point)
(store.variable.Yn 2)
(either 5 25)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 502)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 27
(get.Ai.nil 2)
(get.Ai.constant 3 0)
(get.Ai.nil 4)
(allocate)
(get.Ai.variable.Yn 5 1)
(head.cut)
(load.choice.point)
(store.variable.Yn 2)
(either 5 27)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 501)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 11
(get.Ai.constant 1 any)
(get.Ai.list 2)
(unify.variable.Xn 2)
(unify.variable.Xn 1)
(get.Ai.value.Xn 3 2)
(get.Ai.value.Xn 4 1)
(proceed)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 12
(get.Ai.constant 1 atom)
(get.Ai.list 2)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 3 1)
(get.Ai.value.Xn 4 2)
(is.a 128)
(proceed)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 23
(get.Ai.constant 1 char)
(get.Ai.list 2)
(allocate)
(unify.variable.Yn 1)
(unify.variable.Xn 1)
(get.Ai.value.Yn 3 1)
(get.Ai.value.Xn 4 1)
(put.Ai.value.Yn 1 1)
(is.a 24)
(load.value.Yn 1)
(load.pos.word 0)
(not.less.than)
(load.value.Yn 1)
(load.pos.word 128)
(less.than)
(progress)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 12
(get.Ai.constant 1 flp)
(get.Ai.list 2)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 3 1)
(get.Ai.value.Xn 4 2)
(is.a 32)
(proceed)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 18
(get.Ai.constant 1 flp)
(get.Ai.list 2)
(allocate)
(unify.variable.Yn 2)
(unify.variable.Xn 1)
(get.Ai.variable.Yn 3 1)
(get.Ai.value.Xn 4 1)
(put.Ai.value.Yn 1 2)
(is.a 24)
(load.value.Yn 2)
(float)
(store.value.Yn 1)
(progress)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 12
(get.Ai.constant 1 int)
(get.Ai.list 2)
(unify.variable.Xn 1)
(unify.variable.Xn 2)
(get.Ai.value.Xn 3 1)
(get.Ai.value.Xn 4 2)
(is.a 24)
(proceed)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 19
(get.Ai.constant 1 list)
(get.Ai.list 2)
(allocate)
(unify.variable.Yn 1)
(unify.variable.Xn 1)
(get.Ai.value.Yn 3 1)
(get.Ai.value.Xn 4 1)
(put.Ai.value.Yn 1 1)
(is.a 254)
(put.Ai.value.Yn 1 1)
(get.Ai.list 1)
(unify.void 2)
(progress)
)
(ASSEMBLE.CLAUSE ( check←type 5 format ) 25
(get.Ai.constant 3 0)
(get.Ai.nil 4)
(allocate)
(get.Ai.variable.Yn 5 1)
(load.choice.point)
(store.variable.Yn 2)
(either 5 25)
(put.Ai.value.Yn 1 1)
(is.a 1)
(load.value.Yn 2)
(cut.to.choice.point)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 502)
(progress)
(or.finally)
(progress)
)
(ASSEMBLE.CLAUSE ( find←radix←length 3 format ) 7
(get.Ai.constant 2 0)
(get.Ai.constant 3 1)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( find←radix←length 3 format ) 12
(put.Ai.value.Xn 4 3)
(load.value.Xn 2)
(load.pos.word 0)
(greater.than)
(head.cut)
(put.Ai.constant 3 0)
(execute find←radix←len 4 format)
)
(ASSEMBLE.CLAUSE ( find←radix←length 3 format ) 19
(allocate)
(get.Ai.variable.Yn 3 1)
(load.value.Xn 2)
(minus)
(store.variable.Xn 2)
(put.Ai.variable.Yn 4 2)
(put.Ai.constant 3 0)
(call 5 find←radix←len 4 format)
(load.value.Yn 2)
(add.pos.word 1)
(store.value.Yn 1)
(progress)
)
(ASSEMBLE.CLAUSE ( find←radix←len 4 format ) 6
(get.Ai.constant 2 0)
(get.Ai.value.Xn 4 3)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( find←radix←len 4 format ) 10
(load.value.Xn 2)
(load.value.Xn 1)
(integer.divide)
(store.variable.Xn 2)
(load.value.Xn 3)
(add.pos.word 1)
(store.variable.Xn 3)
(execute find←radix←len 4 format)
)
(ASSEMBLE.CLAUSE ( convert←to←radix 4 format ) 9
(get.Ai.constant 3 0)
(get.Ai.list 4)
(unify.constant 48)
(unify.nil)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( convert←to←radix 4 format ) 10
(put.Ai.value.Xn 5 4)
(load.value.Xn 3)
(load.pos.word 0)
(greater.than)
(head.cut)
(put.Ai.nil 4)
(execute convert←to←radix 5 format)
)
(ASSEMBLE.CLAUSE ( convert←to←radix 4 format ) 11
(get.Ai.list 4)
(unify.constant 45)
(unify.variable.Xn 5)
(load.value.Xn 3)
(minus)
(store.variable.Xn 3)
(put.Ai.nil 4)
(execute convert←to←radix 5 format)
)
(ASSEMBLE.CLAUSE ( convert←to←radix 5 format ) 6
(get.Ai.constant 3 0)
(get.Ai.value.Xn 5 4)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( convert←to←radix 5 format ) 46
(get.Ai.constant 1 lower)
(allocate)
(get.Ai.variable.Yn 2 1)
(get.Ai.variable.Yn 4 3)
(get.Ai.variable.Yn 5 5)
(load.value.Xn 3)
(load.value.Yn 1)
(integer.divide)
(store.variable.Yn 2)
(load.value.Xn 3)
(load.value.Yn 1)
(modulus)
(store.variable.Yn 6)
(load.value.Yn 6)
(load.pos.word 9)
(greater.than.else 31)
(load.value.Yn 6)
(add.pos.word 87)
(store.variable.Yn 4)
(jump.to 35)
(load.value.Yn 6)
(add.pos.word 48)
(store.variable.Yn 4)
(put.Ai.value.Yn 5 5)
(put.Ai.list 4)
(unify.value.Yn 4)
(unify.local.Yn 3)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 lower)
(depart convert←to←radix 5 format)
)
(ASSEMBLE.CLAUSE ( convert←to←radix 5 format ) 46
(get.Ai.constant 1 upper)
(allocate)
(get.Ai.variable.Yn 2 1)
(get.Ai.variable.Yn 4 3)
(get.Ai.variable.Yn 5 5)
(load.value.Xn 3)
(load.value.Yn 1)
(integer.divide)
(store.variable.Yn 2)
(load.value.Xn 3)
(load.value.Yn 1)
(modulus)
(store.variable.Yn 6)
(load.value.Yn 6)
(load.pos.word 9)
(greater.than.else 31)
(load.value.Yn 6)
(add.pos.word 55)
(store.variable.Yn 4)
(jump.to 35)
(load.value.Yn 6)
(add.pos.word 48)
(store.variable.Yn 4)
(put.Ai.value.Yn 5 5)
(put.Ai.list 4)
(unify.value.Yn 4)
(unify.local.Yn 3)
(put.Ai.value.Yn 3 2)
(put.Ai.value.Yn 2 1)
(put.Ai.symbol 1 upper)
(depart convert←to←radix 5 format)
)
(ASSEMBLE.CLAUSE ( write←many 2 format ) 4
(get.Ai.constant 1 0)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←many 2 format ) 18
(allocate)
(get.Ai.variable.Yn 1 2)
(get.Ai.variable.Yn 2 1)
(put.Ai.value.Yn 1 1)
(call 5 put 1 si)
(load.value.Yn 2)
(add.neg.word -1)
(store.variable.Xn 1)
(put.Ai.value.Yn 2 1)
(depart write←many 2 format)
)
(ASSEMBLE.CLAUSE ( write←list 1 format ) 4
(get.Ai.constant 1 NIL)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←list 1 format ) 11
(get.Ai.list 1)
(unify.variable.Xn 1)
(allocate)
(unify.variable.Yn 1)
(call 4 put 1 si)
(put.Ai.value.Yn 1 1)
(depart write←list 1 format)
)
(ASSEMBLE.CLAUSE ( write←list 3 format ) 6
(get.Ai.constant 1 0)
(get.Ai.nil 2)
(get.Ai.nil 3)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←list 3 format ) 6
(get.Ai.constant 1 0)
(get.Ai.value.Xn 3 2)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←list 3 format ) 3
(get.Ai.nil 2)
(get.Ai.nil 3)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←list 3 format ) 23
(get.Ai.list 2)
(unify.variable.Xn 2)
(allocate)
(unify.variable.Yn 2)
(get.Ai.variable.Yn 3 3)
(load.value.Xn 1)
(add.neg.word -1)
(store.variable.Yn 1)
(put.Ai.value.Xn 1 2)
(call 6 put 1 si)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←list 3 format)
)
(ASSEMBLE.CLAUSE ( write←clist 3 format ) 6
(get.Ai.constant 1 0)
(get.Ai.value.Xn 3 2)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( write←clist 3 format ) 58
(allocate)
(get.Ai.variable.Yn 1 5)
(get.Ai.variable.Yn 2 6)
(get.Ai.variable.Yn 3 3)
(load.value.Yn 5)
(load.pos.word 3)
(modulus)
(store.variable.Yn 7)
(load.value.Yn 7)
(load.pos.word 0)
(equal.to.else 24)
(load.pos.word 3)
(store.variable.Yn 4)
(jump.to 26)
(load.value.Yn 7)
(store.variable.Yn 4)
(put.Ai.variable.Yn 3 2)
(put.Ai.value.Yn 2 6)
(put.Ai.value.Yn 1 4)
(call 8 cwrite←list 3 format)
(load.value.Yn 5)
(load.value.Yn 4)
(subtract)
(store.variable.Yn 1)
(load.value.Yn 1)
(load.pos.word 0)
(equal.to.else 46)
(jump.to 52)
(put.Ai.constant 1 44)
(call 6 put 1 si)
(put.Ai.value.Yn 3 3)
(put.Ai.unsafe.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart write←clist 3 format)
)
(ASSEMBLE.CLAUSE ( cwrite←list 3 format ) 6
(get.Ai.constant 1 0)
(get.Ai.value.Xn 3 2)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( cwrite←list 3 format ) 3
(get.Ai.nil 2)
(get.Ai.nil 3)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( cwrite←list 3 format ) 23
(get.Ai.list 2)
(unify.variable.Xn 2)
(allocate)
(unify.variable.Yn 2)
(get.Ai.variable.Yn 3 3)
(load.value.Xn 1)
(add.neg.word -1)
(store.variable.Yn 1)
(put.Ai.value.Xn 1 2)
(call 6 put 1 si)
(put.Ai.value.Yn 3 3)
(put.Ai.value.Yn 2 2)
(put.Ai.value.Yn 1 1)
(depart cwrite←list 3 format)
)
(ASSEMBLE.CLAUSE ( commas 2 format ) 34
(allocate)
(get.Ai.variable.Yn 1 2)
(get.Ai.variable.Yn 2 1)
(load.value.Yn 2)
(load.constant 999999)
(greater.than.else 19)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 2)
(progress)
(load.value.Yn 2)
(load.pos.word 999)
(greater.than.else 30)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 1)
(progress)
(put.Ai.value.Yn 1 1)
(get.Ai.constant 1 0)
(progress)
)
(ASSEMBLE.CLAUSE ( ten←power 2 format ) 7
(put.Ai.value.Xn 3 2)
(put.Ai.constant 2 1)
(execute ten←power 3 format)
)
(ASSEMBLE.CLAUSE ( ten←power 3 format ) 6
(get.Ai.constant 1 0)
(get.Ai.value.Xn 3 2)
(cut.proceed)
)
(ASSEMBLE.CLAUSE ( ten←power 3 format ) 11
(load.value.Xn 1)
(add.neg.word -1)
(store.variable.Xn 1)
(load.value.Xn 2)
(load.pos.word 10)
(multiply)
(store.variable.Xn 2)
(execute ten←power 3 format)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 43)
(get.Ai.symbol 2 mark)
(get.Ai.list 3)
(unify.constant -43)
(unify.list)
(unify.constant 8)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 none)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 68)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -68)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 int)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 69)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -69)
(unify.list)
(unify.constant 6)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 flp)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 71)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -71)
(unify.list)
(unify.constant 6)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 flp)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 78)
(get.Ai.symbol 2 misc)
(get.Ai.list 3)
(unify.constant -78)
(unify.list)
(unify.constant 1)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 none)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 82)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -82)
(unify.list)
(unify.constant 8)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 int)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 97)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -97)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 atom)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 99)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -99)
(unify.list)
(unify.constant 1)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 char)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 100)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -100)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 int)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 101)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -101)
(unify.list)
(unify.constant 6)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 flp)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 102)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -102)
(unify.list)
(unify.constant 6)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 flp)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 103)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -103)
(unify.list)
(unify.constant 6)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 flp)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 105)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -105)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 any)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 107)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -107)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 any)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 110)
(get.Ai.symbol 2 misc)
(get.Ai.list 3)
(unify.constant -110)
(unify.list)
(unify.constant 1)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 none)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 112)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -112)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 any)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 113)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -113)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 any)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 114)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -114)
(unify.list)
(unify.constant 8)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 int)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 115)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -115)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 list)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 116)
(get.Ai.symbol 2 fill)
(get.Ai.list 3)
(unify.constant -116)
(unify.list)
(unify.constant 32)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 none)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 119)
(get.Ai.symbol 2 atom)
(get.Ai.list 3)
(unify.constant -119)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 any)
(get.Ai.symbol 6 simple)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 124)
(get.Ai.symbol 2 mark)
(get.Ai.list 3)
(unify.constant -124)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 none)
(get.Ai.symbol 6 numeric)
(proceed)
)
(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
(get.Ai.constant 1 126)
(get.Ai.symbol 2 misc)
(get.Ai.list 3)
(unify.constant -126)
(unify.list)
(unify.constant 0)
(unify.variable.Xn 1)
(get.Ai.value.Xn 4 1)
(get.Ai.symbol 5 none)
(get.Ai.symbol 6 simple)
(proceed)
)
STOP