(ASSEMBLE.CLAUSE ( %=%= 2 si ) 5
    (compare)
    (load.pos.word 0)
    (equal.to)
    (proceed)
)

(ASSEMBLE.CLAUSE ( %\%=%= 2 si ) 5
    (compare)
    (load.pos.word 0)
    (not.equal.to)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arg0 3 si ) 6
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.variable.Xn 1)
    (arg)
    (proceed)
)

(ASSEMBLE.CLAUSE ( %=%.%. 2 si ) 28
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.list 2)
    (unify.variable.Yn 4)
    (unify.variable.Yn 3)
    (put.Ai.value.Yn 1 2)
    (is.a 254)
    (body.cut)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 2)
    (functor)
    (put.Ai.value.Yn 4 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.constant 1 0)
    (depart term←args 4 si)
)

(ASSEMBLE.CLAUSE ( %=%.%. 2 si ) 34
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.list 2)
    (unify.variable.Yn 4)
    (unify.variable.Yn 3)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 7 length 2 si)
    (put.Ai.value.Yn 1 4)
    (is.a 248)
    (put.Ai.value.Yn 3 1)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 2)
    (functor)
    (put.Ai.value.Yn 4 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.constant 1 0)
    (depart term←args 4 si)
)

(ASSEMBLE.CLAUSE ( term←args 4 si ) 4
    (get.Ai.value.Xn 2 1)
    (get.Ai.nil 4)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( term←args 4 si ) 27
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.list 4)
    (unify.variable.Xn 3)
    (unify.variable.Yn 4)
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.variable.Yn 1)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 1)
    (arg)
    (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 term←args 4 si)
)

(ASSEMBLE.CLAUSE ( length 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 3 2)
    (put.Ai.constant 2 0)
    (put.Ai.value.Yn 1 1)
    (depart length 3 si)
)

(ASSEMBLE.CLAUSE ( length 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 1)
    (load.pos.word 0)
    (not.less.than)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart make←length 2 si)
)

(ASSEMBLE.CLAUSE ( make←length 2 si ) 5
    (get.Ai.constant 1 0)
    (get.Ai.nil 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( make←length 2 si ) 9
    (get.Ai.list 2)
    (unify.void 1)
    (unify.variable.Xn 2)
    (load.value.Xn 1)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (execute make←length 2 si)
)

(ASSEMBLE.CLAUSE ( length 3 si ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( length 3 si ) 9
    (get.Ai.list 1)
    (unify.void 1)
    (unify.variable.Xn 1)
    (load.value.Xn 2)
    (add.pos.word 1)
    (store.variable.Xn 2)
    (execute length 3 si)
)

(ASSEMBLE.CLAUSE ( name 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart build←object 2 si)
)

(ASSEMBLE.CLAUSE ( name 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart number←chars 2 si)
)

(ASSEMBLE.CLAUSE ( name 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (is.a 32)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart float←chars 2 si)
)

(ASSEMBLE.CLAUSE ( name 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (is.a 128)
    (body.cut)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 6 symbol←length 2 si)
    (put.Ai.value.Yn 4 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.constant 1 0)
    (depart symbol←char←list 4 si)
)

(ASSEMBLE.CLAUSE ( build←object 2 si ) 34
    (get.Ai.list 1)
    (unify.constant 45)
    (unify.list)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 4)
    (is.a 24)
    (load.value.Yn 4)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Yn 4)
    (load.pos.word 57)
    (not.greater.than)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.list 1)
    (unify.value.Yn 4)
    (unify.value.Yn 3)
    (call 5 build←number 2 si)
    (body.cut)
    (load.value.Yn 2)
    (minus)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( build←object 2 si ) 26
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 2)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.value.Yn 2)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 57)
    (not.greater.than)
    (put.Ai.value.Yn 2 3)
    (put.Ai.list 1)
    (unify.value.Yn 2)
    (unify.value.Yn 1)
    (call 3 build←number 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( build←object 2 si ) 18
    (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 build←symbol 1 si)
    (body.cut)
    (put.Ai.value.Yn 1 1)
    (depart intern←symbol 1 si)
)

(ASSEMBLE.CLAUSE ( build←object 2 si ) 7
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 520)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( build←symbol 1 si ) 25
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 2)
    (unify.variable.Yn 1)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.value.Yn 2)
    (load.pos.word 1)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 65535)
    (not.greater.than)
    (body.cut)
    (put.Ai.value.Yn 1 2)
    (call 4 put←byte 1 si)
    (put.Ai.value.Yn 1 1)
    (depart build←symbol 1 si)
)

(ASSEMBLE.CLAUSE ( build←symbol 1 si ) 12
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 NIL)
    (progress)
)

(ASSEMBLE.CLAUSE ( build←number 2 si ) 17
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 5 all←digits 1 si)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart number←from←list 2 si)
)

(ASSEMBLE.CLAUSE ( build←number 2 si ) 22
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 5 valid←float←syntax 1 si)
    (call 5 clear←byte←buffer 0 si)
    (put.Ai.value.Yn 1 2)
    (call 4 chars←to←byte←buffer 1 si)
    (put.Ai.value.Yn 1 1)
    (depart float←from←byte←buffer 1 si)
)

(ASSEMBLE.CLAUSE ( float←chars 2 si ) 10
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (call 4 float←to←byte←buffer 1 si)
    (put.Ai.value.Yn 1 1)
    (depart chars←from←byte←buffer 1 si)
)

(ASSEMBLE.CLAUSE ( all←digits 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( all←digits 1 si ) 13
    (get.Ai.list 1)
    (unify.variable.Xn 2)
    (unify.variable.Xn 1)
    (load.value.Xn 2)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Xn 2)
    (load.pos.word 57)
    (not.greater.than)
    (execute all←digits 1 si)
)

(ASSEMBLE.CLAUSE ( valid←float←syntax 1 si ) 27
    (allocate)
    (put.Ai.variable.Yn 2 3)
    (call 6 rem←sign 2 si)
    (put.Ai.list 2)
    (unify.constant 46)
    (unify.variable.Yn 2)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 rem←digits 2 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 rem←digits 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart is←exponent 1 si)
)

(ASSEMBLE.CLAUSE ( rem←digits 2 si ) 14
    (get.Ai.list 1)
    (unify.variable.Xn 3)
    (unify.variable.Xn 1)
    (load.value.Xn 3)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Xn 3)
    (load.pos.word 57)
    (not.greater.than)
    (head.cut)
    (execute rem←digits 2 si)
)

(ASSEMBLE.CLAUSE ( rem←digits 2 si ) 3
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( rem←sign 2 si ) 8
    (get.Ai.list 1)
    (unify.constant 43)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 2 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( rem←sign 2 si ) 8
    (get.Ai.list 1)
    (unify.constant 45)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 2 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( rem←sign 2 si ) 3
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←exponent 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←exponent 1 si ) 36
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 3)
    (unify.variable.Yn 2)
    (either 6 16)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 101)
    (jump.to 22)
    (or.finally)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 69)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 rem←sign 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (get.Ai.list 1)
    (unify.void 2)
    (put.Ai.nil 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart rem←digits 2 si)
)

(ASSEMBLE.CLAUSE ( number←from←list 2 si ) 5
    (put.Ai.constant 3 0)
    (execute number←from←list 3 si)
)

(ASSEMBLE.CLAUSE ( number←from←list 3 si ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( number←from←list 3 si ) 14
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (unify.variable.Xn 1)
    (load.value.Xn 3)
    (load.pos.word 10)
    (multiply)
    (load.value.Xn 4)
    (add.neg.word -48)
    (add)
    (store.variable.Xn 3)
    (execute number←from←list 3 si)
)

(ASSEMBLE.CLAUSE ( number←chars 2 si ) 24
    (put.Ai.value.Xn 3 2)
    (load.value.Xn 1)
    (load.pos.word 0)
    (not.less.than)
    (head.cut)
    (load.value.Xn 1)
    (load.pos.word 10)
    (modulus)
    (add.pos.word 48)
    (store.variable.Xn 4)
    (load.value.Xn 1)
    (load.pos.word 10)
    (integer.divide)
    (store.variable.Xn 1)
    (put.Ai.list 2)
    (unify.value.Xn 4)
    (unify.nil)
    (execute number←chars 3 si)
)

(ASSEMBLE.CLAUSE ( number←chars 2 si ) 25
    (get.Ai.list 2)
    (unify.constant 45)
    (unify.variable.Xn 3)
    (load.value.Xn 1)
    (minus)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (load.pos.word 10)
    (modulus)
    (add.pos.word 48)
    (store.variable.Xn 4)
    (load.value.Xn 1)
    (load.pos.word 10)
    (integer.divide)
    (store.variable.Xn 1)
    (put.Ai.list 2)
    (unify.value.Xn 4)
    (unify.nil)
    (execute number←chars 3 si)
)

(ASSEMBLE.CLAUSE ( number←chars 3 si ) 9
    (get.Ai.constant 1 0)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (get.Ai.value.Xn 1 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( number←chars 3 si ) 19
    (put.Ai.value.Xn 4 2)
    (load.value.Xn 1)
    (load.pos.word 10)
    (modulus)
    (add.pos.word 48)
    (store.variable.Xn 5)
    (load.value.Xn 1)
    (load.pos.word 10)
    (integer.divide)
    (store.variable.Xn 1)
    (put.Ai.list 2)
    (unify.value.Xn 5)
    (unify.local.Xn 4)
    (execute number←chars 3 si)
)

(ASSEMBLE.CLAUSE ( symbol←char←list 4 si ) 9
    (get.Ai.value.Xn 2 1)
    (put.Ai.value.Xn 1 4)
    (head.cut)
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( symbol←char←list 4 si ) 29
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.list 4)
    (unify.variable.Xn 3)
    (unify.variable.Yn 4)
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.variable.Yn 1)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 1)
    (call 7 symbol←char 3 si)
    (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 symbol←char←list 4 si)
)

(ASSEMBLE.CLAUSE ( prompt 2 si ) 10
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (call 4 getprompt 1 si)
    (put.Ai.value.Yn 1 1)
    (depart setprompt 1 si)
)

(ASSEMBLE.CLAUSE ( save←program 1 si ) 9
    (put.Ai.structure 2 save←program 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( save 1 si ) 9
    (put.Ai.structure 2 save 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( save 2 si ) 12
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 save 2)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( restore 1 si ) 9
    (put.Ai.structure 2 restore 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( repeat 0 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( repeat 0 si ) 2
    (execute repeat 0 si)
)

(ASSEMBLE.CLAUSE ( LC 0 si ) 7
    (put.Ai.symbol 2 LC)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( NOLC 0 si ) 7
    (put.Ai.symbol 2 NOLC)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( log 0 si ) 7
    (put.Ai.symbol 2 log)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( nolog 0 si ) 7
    (put.Ai.symbol 2 nolog)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( plsys 1 si ) 9
    (put.Ai.structure 2 plsys 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( rename 2 si ) 12
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 rename 2)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( revive 2 si ) 12
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 revive 2)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( current←functor 2 si ) 12
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 current←functor 2)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %:%- 1 si ) 9
    (put.Ai.structure 2 %:%- 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %:%- 2 si ) 12
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 %:%- 2)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 361)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( gc 0 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( nogc 0 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( gcguide 3 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( reconsult 1 si ) 2
    (execute consult 1 si)
)

(ASSEMBLE.CLAUSE ( dynamic 1 si ) 9
    (put.Ai.structure 2 dynamic 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 362)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( multifile 1 si ) 9
    (put.Ai.structure 2 multifile 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 362)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( mode 1 si ) 9
    (put.Ai.structure 2 mode 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 362)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( public 1 si ) 9
    (put.Ai.structure 2 public 1)
    (unify.local.Xn 1)
    (put.Ai.constant 1 362)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( callable 1 si ) 16
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.value.Yn 1 2)
    (is.a 254)
    (put.Ai.void 3)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (functor)
    (put.Ai.unsafe.Yn 1 1)
    (is.a 128)
    (progress)
)

(ASSEMBLE.CLAUSE ( is←list 1 si ) 10
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (put.Ai.value.Yn 1 1)
    (depart is←list0 1 si)
)

(ASSEMBLE.CLAUSE ( is←list0 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←list0 1 si ) 11
    (get.Ai.list 1)
    (unify.void 1)
    (allocate)
    (unify.variable.Yn 1)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (put.Ai.value.Yn 1 1)
    (depart is←list0 1 si)
)

(ASSEMBLE.CLAUSE ( conc 3 si ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( conc 3 si ) 8
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (unify.variable.Xn 1)
    (get.Ai.list 3)
    (unify.value.Xn 4)
    (unify.variable.Xn 3)
    (execute conc 3 si)
)

(ASSEMBLE.CLAUSE ( member 2 si ) 4
    (get.Ai.list 2)
    (unify.local.Xn 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( member 2 si ) 5
    (get.Ai.list 2)
    (unify.void 1)
    (unify.variable.Xn 2)
    (execute member 2 si)
)

(ASSEMBLE.CLAUSE ( C 3 si ) 8
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 2 4)
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pad←zeros 1 si ) 7
    (load.value.Xn 1)
    (load.pos.word 100)
    (not.less.than)
    (head.cut)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( pad←zeros 1 si ) 18
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (load.value.Yn 1)
    (load.pos.word 10)
    (not.less.than)
    (head.cut)
    (put.Ai.constant 1 0)
    (call 4 write 1 si)
    (put.Ai.value.Yn 1 1)
    (depart write 1 si)
)

(ASSEMBLE.CLAUSE ( pad←zeros 1 si ) 17
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (load.value.Yn 1)
    (load.pos.word 1)
    (not.less.than)
    (head.cut)
    (put.Ai.symbol 1 00)
    (call 4 write 1 si)
    (put.Ai.value.Yn 1 1)
    (depart write 1 si)
)

(ASSEMBLE.CLAUSE ( pad←zeros 1 si ) 8
    (get.Ai.constant 1 0)
    (put.Ai.constant 1 0)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( halt 0 si ) 5
    (put.Ai.constant 1 3)
    (execute prolog←event 1 si)
)

(ASSEMBLE.CLAUSE ( abort 0 si ) 5
    (put.Ai.constant 1 8)
    (execute prolog←event 1 si)
)

(ASSEMBLE.CLAUSE ( begin←critical 0 si ) 5
    (put.Ai.constant 1 4)
    (execute block←events 1 si)
)

(ASSEMBLE.CLAUSE ( end←critical 0 si ) 5
    (put.Ai.constant 1 4)
    (execute unblock←events 1 si)
)

(ASSEMBLE.CLAUSE ( version 0 si ) 68
    (allocate)
    (put.Ai.variable.Yn 4 5)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 3)
    (call 8 host←version 4 si)
    (put.Ai.void 1)
    (call 8 machine 1 si)
    (put.Ai.list 1)
    (unify.local.Yn 5)
    (unify.nil)
    (put.Ai.list 2)
    (unify.local.Yn 4)
    (unify.value.Xn 1)
    (put.Ai.symbol 1 %~nXerox% Quintus% Prolog% Release% %~w%.%~w%~n)
    (call 6 format 2 format)
    (put.Ai.unsafe.Yn 2 3)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 internal←version 2 si)
    (put.Ai.nil 2)
    (put.Ai.symbol 1 Copyright% %(C%)% 1985%,% Quintus% Computer% Systems%,% Inc%.% % All% rights% reserved%.%~n)
    (call 4 format 2 format)
    (put.Ai.nil 2)
    (put.Ai.symbol 1 Copyright% %(C%)% 1985%,% Xerox% Corporation%.% % All% rights% reserved%.%~n)
    (call 4 format 2 format)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 user←message 1)
    (unify.variable.Yn 1)
    (call 4 clause←module 3 si)
    (call 4 nl 0 si)
    (put.Ai.value.Yn 1 1)
    (call 3 write 1 si)
    (call 3 nl 0 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( version 0 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( machine 1 si ) 13
    (put.Ai.value.Xn 2 1)
    (put.Ai.void 1)
    (put.Ai.value.Xn 4 1)
    (get.Ai.constant 1 5)
    (put.Ai.void 3)
    (put.Ai.value.Xn 1 4)
    (execute machine 3 si)
)

(ASSEMBLE.CLAUSE ( os←type 1 si ) 13
    (put.Ai.value.Xn 3 1)
    (put.Ai.void 1)
    (put.Ai.value.Xn 4 1)
    (get.Ai.constant 1 5)
    (put.Ai.void 2)
    (put.Ai.value.Xn 1 4)
    (execute machine 3 si)
)

(ASSEMBLE.CLAUSE ( machine 3 si ) 8
    (get.Ai.constant 1 1)
    (get.Ai.symbol 2 Sun)
    (get.Ai.symbol 3 unix)
    (proceed)
)

(ASSEMBLE.CLAUSE ( machine 3 si ) 8
    (get.Ai.constant 1 2)
    (get.Ai.symbol 2 VAX% Unix% 4%.2BSD)
    (get.Ai.symbol 3 unix)
    (proceed)
)

(ASSEMBLE.CLAUSE ( machine 3 si ) 8
    (get.Ai.constant 1 3)
    (get.Ai.symbol 2 XE500)
    (get.Ai.symbol 3 unix)
    (proceed)
)

(ASSEMBLE.CLAUSE ( machine 3 si ) 8
    (get.Ai.constant 1 4)
    (get.Ai.symbol 2 VAX%/VMS)
    (get.Ai.symbol 3 vms)
    (proceed)
)

(ASSEMBLE.CLAUSE ( machine 3 si ) 8
    (get.Ai.constant 1 5)
    (get.Ai.symbol 2 Xerox% 1100)
    (get.Ai.symbol 3 xerox)
    (proceed)
)

(ASSEMBLE.CLAUSE ( internal←version 2 si ) 22
    (get.Ai.constant 1 0)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 5 major←system←version 1 si)
    (put.Ai.list 1)
    (unify.local.Yn 2)
    (unify.nil)
    (put.Ai.list 2)
    (unify.local.Yn 1)
    (unify.value.Xn 1)
    (put.Ai.symbol 1 %.%~w%.%~w)
    (depart format 2 format)
)

(ASSEMBLE.CLAUSE ( internal←version 2 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( prolog←flag 3 si ) 32
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 1 4)
    (get.Ai.structure 1 prolog←flag 3)
    (unify.local.Yn 1)
    (unify.local.Yn 2)
    (unify.local.Yn 3)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 1)
    (call 7 valid←flag 2 si)
    (put.Ai.unsafe.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart prolog←flag 4 si)
)

(ASSEMBLE.CLAUSE ( prolog←flag 4 si ) 37
    (get.Ai.constant 1 fileerrors)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 3)
    (head.cut)
    (gettopval QP%.FILE%.ERRORS)
    (store.variable.Xn 2)
    (call 6 on←off←flag 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.symbol 1 fileerrors)
    (call 5 valid←flag←value 3 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 on←off←flag 2 si)
    (load.value.Yn 1)
    (settopval QP%.FILE%.ERRORS)
    (progress)
)

(ASSEMBLE.CLAUSE ( prolog←flag 4 si ) 37
    (get.Ai.constant 1 character←escapes)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 3)
    (head.cut)
    (gettopval QP%.CHARACTER%.ESCAPES)
    (store.variable.Xn 2)
    (call 6 on←off←flag 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.symbol 1 character←escapes)
    (call 5 valid←flag←value 3 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 on←off←flag 2 si)
    (load.value.Yn 1)
    (settopval QP%.CHARACTER%.ESCAPES)
    (progress)
)

(ASSEMBLE.CLAUSE ( prolog←flag 4 si ) 37
    (get.Ai.constant 1 debugging)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 3)
    (head.cut)
    (gettopval QP%.TOP%.TRACE%.STATE)
    (store.variable.Xn 2)
    (call 6 debugging←flag 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.symbol 1 debugging)
    (call 5 valid←flag←value 3 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 debugging←flag 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart new←trace←state 1 interp)
)

(ASSEMBLE.CLAUSE ( valid←flag 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 170)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( valid←flag 2 si ) 4
    (get.Ai.constant 1 fileerrors)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( valid←flag 2 si ) 4
    (get.Ai.constant 1 character←escapes)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( valid←flag 2 si ) 4
    (get.Ai.constant 1 debugging)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( valid←flag 2 si ) 10
    (put.Ai.value.Xn 3 1)
    (allocate)
    (put.Ai.constant 1 170)
    (call 3 nerror2 3 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( valid←flag←value 3 si ) 11
    (get.Ai.constant 1 fileerrors)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (put.Ai.void 2)
    (call 3 on←off←flag 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( valid←flag←value 3 si ) 11
    (get.Ai.constant 1 character←escapes)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (put.Ai.void 2)
    (call 3 on←off←flag 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( valid←flag←value 3 si ) 11
    (get.Ai.constant 1 debugging)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (put.Ai.void 2)
    (call 3 debugging←flag 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( valid←flag←value 3 si ) 14
    (put.Ai.value.Xn 1 3)
    (allocate)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 171)
    (call 3 nerror2 3 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( on←off←flag 2 si ) 7
    (get.Ai.constant 1 on)
    (get.Ai.constant 2 0)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( on←off←flag 2 si ) 7
    (get.Ai.constant 1 off)
    (get.Ai.constant 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( debugging←flag 2 si ) 7
    (get.Ai.constant 1 off)
    (get.Ai.constant 2 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( debugging←flag 2 si ) 7
    (get.Ai.constant 1 trace)
    (get.Ai.constant 2 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( debugging←flag 2 si ) 7
    (get.Ai.constant 1 debug)
    (get.Ai.constant 2 3)
    (proceed)
)

STOP