(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 ) 13
    (allocate)
    (put.Ai.variable.Yn 2 1)
    (call 4 absolute_path 2 si)
    (put.Ai.constant 2 1)
    (put.Ai.unsafe.Yn 1 1)
    (depart save_restore 2 si)
)

(ASSEMBLE.CLAUSE ( save 1 si ) 11
    (allocate)
    (put.Ai.variable.Yn 2 1)
    (call 4 absolute_path 2 si)
    (put.Ai.void 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart save 2 si)
)

(ASSEMBLE.CLAUSE ( save 2 si ) 34
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 2 3)
    (call 6 absolute_path 2 si)
    (put.Ai.constant 2 2)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 save_restore 2 si)
    (gettopval QP%.SAVE%.FLAG)
    (store.variable.Yn 2)
    (load.value.Yn 2)
    (load.pos.word 0)
    (equal.to.else 28)
    (jump.to 31)
    (call 5 init_after_restore 0 si)
    (put.Ai.value.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( restore 1 si ) 20
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (call 5 closefiles 0 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 absolute_path 2 si)
    (put.Ai.constant 2 3)
    (put.Ai.unsafe.Yn 1 1)
    (depart save_restore 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