(ASSEMBLE.CLAUSE ( var←seq1 3 si ) 26 (allocate) (get.Ai.variable.Yn 2 3) (get.Ai.variable.Yn 3 4) (call 7 alphameric←type 1 si) (body.cut) (put.Ai.variable.Yn 2 2) (put.Ai.variable.Yn 1 1) (call 7 get←char 2 si) (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 var←seq2 4 si) ) (ASSEMBLE.CLAUSE ( var←seq1 3 si ) 5 (put.Ai.value.Xn 1 2) (get.Ai.nil 3) (execute unget0 1 si) ) (ASSEMBLE.CLAUSE ( var←seq2 4 si ) 35 (allocate) (get.Ai.variable.Yn 2 5) (get.Ai.variable.Yn 3 6) (get.Ai.variable.Yn 4 4) (call 9 alphameric←type 1 si) (body.cut) (load.value.Yn 6) (load.pos.word 7) (left.shift) (load.value.Yn 5) (boolean.or) (store.variable.Yn 3) (put.Ai.variable.Yn 2 2) (put.Ai.variable.Yn 1 1) (call 7 get←char 2 si) (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 var←seq3 4 si) ) (ASSEMBLE.CLAUSE ( var←seq2 4 si ) 7 (put.Ai.value.Xn 1 2) (get.Ai.list 4) (unify.local.Xn 3) (unify.nil) (execute unget0 1 si) ) (ASSEMBLE.CLAUSE ( var←seq3 4 si ) 35 (allocate) (get.Ai.variable.Yn 2 5) (get.Ai.variable.Yn 3 6) (get.Ai.variable.Yn 4 4) (call 9 alphameric←type 1 si) (body.cut) (load.value.Yn 6) (load.pos.word 7) (left.shift) (load.value.Yn 5) (boolean.or) (store.variable.Yn 3) (put.Ai.variable.Yn 2 2) (put.Ai.variable.Yn 1 1) (call 7 get←char 2 si) (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 var←seq4 4 si) ) (ASSEMBLE.CLAUSE ( var←seq3 4 si ) 7 (put.Ai.value.Xn 1 2) (get.Ai.list 4) (unify.local.Xn 3) (unify.nil) (execute unget0 1 si) ) (ASSEMBLE.CLAUSE ( var←seq4 4 si ) 34 (allocate) (get.Ai.variable.Yn 2 5) (get.Ai.variable.Yn 3 6) (get.Ai.list 4) (unify.variable.Yn 4) (unify.variable.Yn 3) (call 9 alphameric←type 1 si) (body.cut) (load.value.Yn 6) (load.pos.word 7) (left.shift) (load.value.Yn 5) (boolean.or) (store.value.Yn 4) (put.Ai.variable.Yn 2 2) (put.Ai.variable.Yn 1 1) (call 6 get←char 2 si) (put.Ai.value.Yn 3 3) (put.Ai.unsafe.Yn 2 2) (put.Ai.unsafe.Yn 1 1) (depart var←seq1 3 si) ) (ASSEMBLE.CLAUSE ( var←seq4 4 si ) 7 (put.Ai.value.Xn 1 2) (get.Ai.list 4) (unify.local.Xn 3) (unify.nil) (execute unget0 1 si) ) (ASSEMBLE.CLAUSE ( variable←array 1 si ) 5 (get.Ai.structure 1 v 16) (unify.void 16) (proceed) ) (ASSEMBLE.CLAUSE ( lookup←variable 3 si ) 6 (get.Ai.list 1) (unify.constant 95) (unify.nil) (cut.proceed) ) (ASSEMBLE.CLAUSE ( lookup←variable 3 si ) 31 (allocate) (get.Ai.variable.Yn 1 1) (get.Ai.variable.Yn 2 2) (get.Ai.variable.Yn 3 4) (put.Ai.variable.Yn 2 5) (put.Ai.value.Yn 1 1) (call 8 var←hash 2 si) (load.value.Yn 5) (add.pos.word 1) (store.variable.Xn 1) (put.Ai.variable.Yn 3 3) (put.Ai.value.Yn 2 4) (arg) (put.Ai.unsafe.Yn 3 3) (put.Ai.value.Yn 2 2) (put.Ai.value.Yn 1 1) (depart in←bucket 3 si) ) (ASSEMBLE.CLAUSE ( var←hash 2 si ) 9 (get.Ai.list 1) (unify.variable.Xn 1) (unify.void 1) (load.value.Xn 1) (load.pos.word 15) (boolean.and) (store.value.Xn 2) (proceed) ) (ASSEMBLE.CLAUSE ( in←bucket 3 si ) 23 (allocate) (get.Ai.variable.Yn 1 2) (get.Ai.variable.Yn 2 1) (get.Ai.variable.Yn 3 3) (put.Ai.value.Yn 1 3) (is.a 1) (body.cut) (put.Ai.value.Yn 1 3) (get.Ai.list 1) (unify.variable.Xn 1) (unify.void 1) (get.Ai.structure 1 var 3) (unify.local.Yn 2) (unify.local.Yn 1) (unify.void 1) (progress) ) (ASSEMBLE.CLAUSE ( in←bucket 3 si ) 12 (get.Ai.list 3) (unify.variable.Xn 3) (unify.void 1) (get.Ai.structure 3 var 3) (unify.local.Xn 1) (unify.local.Xn 2) (unify.constant 1) (cut.proceed) ) (ASSEMBLE.CLAUSE ( in←bucket 3 si ) 5 (get.Ai.list 3) (unify.void 1) (unify.variable.Xn 3) (execute in←bucket 3 si) ) (ASSEMBLE.CLAUSE ( transform←variables 3 si ) 13 (put.Ai.value.Xn 5 3) (put.Ai.nil 6) (put.Ai.nil 4) (put.Ai.value.Xn 3 2) (put.Ai.value.Xn 2 1) (put.Ai.constant 1 1) (execute transform←array 6 si) ) (ASSEMBLE.CLAUSE ( transform←array 6 si ) 8 (get.Ai.constant 1 17) (get.Ai.value.Xn 4 3) (get.Ai.value.Xn 6 5) (cut.proceed) ) (ASSEMBLE.CLAUSE ( transform←array 6 si ) 47 (allocate) (get.Ai.variable.Yn 2 2) (get.Ai.variable.Yn 3 8) (get.Ai.variable.Yn 4 4) (get.Ai.variable.Yn 5 9) (get.Ai.variable.Yn 6 6) (load.value.Xn 1) (add.pos.word 1) (store.variable.Yn 1) (put.Ai.variable.Yn 3 7) (put.Ai.value.Yn 2 2) (arg) (put.Ai.variable.Yn 5 5) (put.Ai.value.Yn 4 9) (put.Ai.variable.Yn 3 3) (put.Ai.value.Yn 2 8) (put.Ai.unsafe.Yn 1 7) (call 9 transform←bucket 5 si) (put.Ai.value.Yn 6 6) (put.Ai.unsafe.Yn 5 5) (put.Ai.value.Yn 4 4) (put.Ai.unsafe.Yn 3 3) (put.Ai.value.Yn 2 2) (put.Ai.value.Yn 1 1) (depart transform←array 6 si) ) (ASSEMBLE.CLAUSE ( transform←bucket 5 si ) 7 (get.Ai.value.Xn 3 2) (get.Ai.value.Xn 5 4) (allocate) (is.a 1) (depart.cut) ) (ASSEMBLE.CLAUSE ( transform←bucket 5 si ) 25 (get.Ai.list 1) (unify.variable.Xn 6) (unify.variable.Xn 1) (get.Ai.structure 6 var 3) (unify.variable.Xn 6) (unify.variable.Xn 7) (unify.constant 0) (get.Ai.list 2) (unify.variable.Xn 8) (unify.variable.Xn 2) (get.Ai.structure 8 %= 2) (unify.value.Xn 6) (unify.value.Xn 7) (get.Ai.list 4) (unify.value.Xn 6) (unify.variable.Xn 4) (head.cut) (execute transform←bucket 5 si) ) (ASSEMBLE.CLAUSE ( transform←bucket 5 si ) 19 (get.Ai.list 1) (unify.variable.Xn 6) (unify.variable.Xn 1) (get.Ai.structure 6 var 3) (unify.variable.Xn 7) (unify.variable.Xn 6) (unify.void 1) (get.Ai.list 2) (unify.variable.Xn 8) (unify.variable.Xn 2) (get.Ai.structure 8 %= 2) (unify.value.Xn 7) (unify.value.Xn 6) (execute transform←bucket 5 si) ) (ASSEMBLE.CLAUSE ( make←atom 2 si ) 17 (allocate) (get.Ai.variable.Yn 1 2) (get.Ai.variable.Yn 2 1) (call 5 clear←byte←buffer 0 si) (put.Ai.value.Yn 1 2) (call 4 make←atom 1 si) (put.Ai.value.Yn 1 1) (depart intern←symbol 1 si) ) (ASSEMBLE.CLAUSE ( make←atom 1 si ) 4 (get.Ai.constant 1 NIL) (proceed) ) (ASSEMBLE.CLAUSE ( make←atom 1 si ) 46 (get.Ai.list 1) (unify.variable.Xn 4) (allocate) (unify.variable.Yn 1) (load.value.Xn 4) (load.pos.word 7) (right.shift) (store.variable.Xn 3) (load.value.Xn 3) (load.pos.word 7) (right.shift) (store.variable.Xn 2) (load.value.Xn 2) (load.pos.word 7) (right.shift) (store.variable.Xn 1) (load.value.Xn 1) (load.pos.word 127) (boolean.and) (store.variable.Xn 1) (load.value.Xn 2) (load.pos.word 127) (boolean.and) (store.variable.Xn 2) (load.value.Xn 3) (load.pos.word 127) (boolean.and) (store.variable.Xn 3) (load.value.Xn 4) (load.pos.word 127) (boolean.and) (store.variable.Xn 4) (call 4 put←bytes 4 si) (put.Ai.value.Yn 1 1) (depart make←atom 1 si) ) (ASSEMBLE.CLAUSE ( put←bytes 4 si ) 14 (get.Ai.constant 1 0) (get.Ai.constant 2 0) (get.Ai.constant 3 0) (put.Ai.value.Xn 1 4) (head.cut) (execute put←byte 1 si) ) (ASSEMBLE.CLAUSE ( put←bytes 4 si ) 19 (get.Ai.constant 1 0) (get.Ai.constant 2 0) (put.Ai.value.Xn 1 3) (allocate) (get.Ai.variable.Yn 4 1) (head.cut) (call 4 put←byte 1 si) (put.Ai.value.Yn 1 1) (depart put←byte 1 si) ) (ASSEMBLE.CLAUSE ( put←bytes 4 si ) 23 (get.Ai.constant 1 0) (put.Ai.value.Xn 1 2) (allocate) (get.Ai.variable.Yn 3 2) (get.Ai.variable.Yn 4 1) (head.cut) (call 5 put←byte 1 si) (put.Ai.value.Yn 1 2) (call 4 put←byte 1 si) (put.Ai.value.Yn 1 1) (depart put←byte 1 si) ) (ASSEMBLE.CLAUSE ( put←bytes 4 si ) 24 (allocate) (get.Ai.variable.Yn 2 3) (get.Ai.variable.Yn 3 2) (get.Ai.variable.Yn 4 1) (call 6 put←byte 1 si) (put.Ai.value.Yn 1 3) (call 5 put←byte 1 si) (put.Ai.value.Yn 1 2) (call 4 put←byte 1 si) (put.Ai.value.Yn 1 1) (depart put←byte 1 si) ) (ASSEMBLE.CLAUSE ( print←variable←name 1 si ) 4 (get.Ai.constant 1 NIL) (proceed) ) (ASSEMBLE.CLAUSE ( print←variable←name 1 si ) 46 (get.Ai.list 1) (unify.variable.Xn 4) (allocate) (unify.variable.Yn 1) (load.value.Xn 4) (load.pos.word 7) (right.shift) (store.variable.Xn 3) (load.value.Xn 3) (load.pos.word 7) (right.shift) (store.variable.Xn 2) (load.value.Xn 2) (load.pos.word 7) (right.shift) (store.variable.Xn 1) (load.value.Xn 1) (load.pos.word 127) (boolean.and) (store.variable.Xn 1) (load.value.Xn 2) (load.pos.word 127) (boolean.and) (store.variable.Xn 2) (load.value.Xn 3) (load.pos.word 127) (boolean.and) (store.variable.Xn 3) (load.value.Xn 4) (load.pos.word 127) (boolean.and) (store.variable.Xn 4) (call 4 print←bytes 4 si) (put.Ai.value.Yn 1 1) (depart print←variable←name 1 si) ) (ASSEMBLE.CLAUSE ( print←bytes 4 si ) 14 (get.Ai.constant 1 0) (get.Ai.constant 2 0) (get.Ai.constant 3 0) (put.Ai.value.Xn 1 4) (head.cut) (execute put 1 si) ) (ASSEMBLE.CLAUSE ( print←bytes 4 si ) 19 (get.Ai.constant 1 0) (get.Ai.constant 2 0) (put.Ai.value.Xn 1 3) (allocate) (get.Ai.variable.Yn 4 1) (head.cut) (call 4 put 1 si) (put.Ai.value.Yn 1 1) (depart put 1 si) ) (ASSEMBLE.CLAUSE ( print←bytes 4 si ) 23 (get.Ai.constant 1 0) (put.Ai.value.Xn 1 2) (allocate) (get.Ai.variable.Yn 3 2) (get.Ai.variable.Yn 4 1) (head.cut) (call 5 put 1 si) (put.Ai.value.Yn 1 2) (call 4 put 1 si) (put.Ai.value.Yn 1 1) (depart put 1 si) ) (ASSEMBLE.CLAUSE ( print←bytes 4 si ) 24 (allocate) (get.Ai.variable.Yn 2 3) (get.Ai.variable.Yn 3 2) (get.Ai.variable.Yn 4 1) (call 6 put 1 si) (put.Ai.value.Yn 1 3) (call 5 put 1 si) (put.Ai.value.Yn 1 2) (call 4 put 1 si) (put.Ai.value.Yn 1 1) (depart put 1 si) ) (ASSEMBLE.CLAUSE ( underscore←first 1 si ) 40 (get.Ai.list 1) (unify.variable.Xn 4) (unify.void 1) (load.value.Xn 4) (load.pos.word 7) (right.shift) (store.variable.Xn 3) (load.value.Xn 3) (load.pos.word 7) (right.shift) (store.variable.Xn 2) (load.value.Xn 2) (load.pos.word 7) (right.shift) (store.variable.Xn 1) (load.value.Xn 1) (load.pos.word 127) (boolean.and) (store.variable.Xn 1) (load.value.Xn 2) (load.pos.word 127) (boolean.and) (store.variable.Xn 2) (load.value.Xn 3) (load.pos.word 127) (boolean.and) (store.variable.Xn 3) (load.value.Xn 4) (load.pos.word 127) (boolean.and) (store.variable.Xn 4) (execute underscore←first 4 si) ) (ASSEMBLE.CLAUSE ( underscore←first 4 si ) 4 (get.Ai.constant 1 95) (proceed) ) (ASSEMBLE.CLAUSE ( underscore←first 4 si ) 7 (get.Ai.constant 1 0) (get.Ai.constant 2 95) (proceed) ) (ASSEMBLE.CLAUSE ( underscore←first 4 si ) 10 (get.Ai.constant 1 0) (get.Ai.constant 2 0) (get.Ai.constant 3 95) (proceed) ) (ASSEMBLE.CLAUSE ( underscore←first 4 si ) 13 (get.Ai.constant 1 0) (get.Ai.constant 2 0) (get.Ai.constant 3 0) (get.Ai.constant 4 95) (proceed) ) (ASSEMBLE.CLAUSE ( filter←singles 2 si ) 5 (get.Ai.constant 1 NIL) (get.Ai.nil 2) (proceed) ) (ASSEMBLE.CLAUSE ( filter←singles 2 si ) 16 (get.Ai.list 1) (unify.variable.Xn 1) (allocate) (unify.variable.Yn 1) (get.Ai.variable.Yn 2 2) (call 5 underscore←first 1 si) (body.cut) (put.Ai.value.Yn 2 2) (put.Ai.value.Yn 1 1) (depart filter←singles 2 si) ) (ASSEMBLE.CLAUSE ( filter←singles 2 si ) 8 (get.Ai.list 1) (unify.variable.Xn 3) (unify.variable.Xn 1) (get.Ai.list 2) (unify.value.Xn 3) (unify.variable.Xn 2) (execute filter←singles 2 si) ) STOP