(ASSEMBLE.CLAUSE ( alphameric_type 1 si ) 4
    (get.Ai.constant 1 capital_letter)
    (proceed)
)

(ASSEMBLE.CLAUSE ( alphameric_type 1 si ) 4
    (get.Ai.constant 1 small_letter)
    (proceed)
)

(ASSEMBLE.CLAUSE ( alphameric_type 1 si ) 4
    (get.Ai.constant 1 digit)
    (proceed)
)

(ASSEMBLE.CLAUSE ( alphameric_type 1 si ) 4
    (get.Ai.constant 1 underbar)
    (proceed)
)

(ASSEMBLE.CLAUSE ( read_tokens 2 si ) 40
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.symbol 1 user_input)
    (call 6 current_input 1 si)
    (body.cut)
    (put.Ai.symbol 2 %-)
    (put.Ai.symbol 1 term_reading_mode)
    (call 6 maybe_tell_emacs 2 si)
    (put.Ai.variable.Yn 1 1)
    (call 6 getprompt 1 si)
    (call 6 skip_white_space 0 si)
    (call 6 set_continuation_prompt 0 si)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 4 read_the_tokens 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart setprompt 1 si)
)

(ASSEMBLE.CLAUSE ( read_tokens 2 si ) 2
    (execute read_the_tokens 2 si)
)

(ASSEMBLE.CLAUSE ( skip_white_space 0 si ) 14
    (allocate)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get_char_token 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart check_for_escape 2 si)
)

(ASSEMBLE.CLAUSE ( check_for_escape 2 si ) 13
    (get.Ai.constant 1 escape)
    (allocate)
    (call 3 under_emacs 0 si)
    (body.cut)
    (call 3 process_escape_sequence 0 si)
    (depart skip_white_space 0 si)
)

(ASSEMBLE.CLAUSE ( check_for_escape 2 si ) 4
    (put.Ai.value.Xn 1 2)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( set_continuation_prompt 0 si ) 20
    (allocate)
    (load.choice.point)
    (store.variable.Yn 1)
    (either 4 17)
    (call 4 under_emacs 0 si)
    (load.value.Yn 1)
    (cut.to.choice.point)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (depart setprompt 1 si)
    (or.finally)
    (put.Ai.symbol 1 % % % % % )
    (depart setprompt 1 si)
)

(ASSEMBLE.CLAUSE ( read_the_tokens 2 si ) 23
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 3)
    (call 6 variable_array 1 si)
    (put.Ai.variable.Yn 1 1)
    (call 6 next_token 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart tokens_to_period 3 si)
)

(ASSEMBLE.CLAUSE ( tokens_to_period 3 si ) 7
    (get.Ai.constant 1 end_of_clause)
    (get.Ai.nil 2)
    (head.cut)
    (execute flush_to_eol 0 si)
)

(ASSEMBLE.CLAUSE ( tokens_to_period 3 si ) 8
    (get.Ai.constant 1 end_of_stream)
    (get.Ai.list 2)
    (unify.symbol end_of_stream)
    (unify.nil)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( tokens_to_period 3 si ) 24
    (get.Ai.list 2)
    (unify.local.Xn 1)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 3)
    (call 6 absorb_variable 2 si)
    (put.Ai.variable.Yn 1 1)
    (call 6 next_token 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart tokens_to_period 3 si)
)

(ASSEMBLE.CLAUSE ( absorb_variable 2 si ) 12
    (get.Ai.structure 1 var 2)
    (unify.variable.Xn 4)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 3 2)
    (head.cut)
    (put.Ai.value.Xn 2 4)
    (execute lookup_variable 3 si)
)

(ASSEMBLE.CLAUSE ( absorb_variable 2 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( flush_to_eol 0 si ) 14
    (allocate)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get_char 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart flush_to_eol 2 si)
)

(ASSEMBLE.CLAUSE ( flush_to_eol 2 si ) 7
    (get.Ai.constant 1 white_space)
    (get.Ai.constant 2 13)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( flush_to_eol 2 si ) 18
    (get.Ai.constant 1 white_space)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get_char 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart flush_to_eol 2 si)
)

(ASSEMBLE.CLAUSE ( flush_to_eol 2 si ) 4
    (put.Ai.value.Xn 1 2)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( next_token 1 si ) 20
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get_char_token 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 token_start 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 21
    (get.Ai.constant 1 white_space)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (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 token_start_white 3 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 6
    (get.Ai.constant 1 end_of_stream)
    (get.Ai.symbol 3 end_of_stream)
    (proceed)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 29
    (get.Ai.constant 1 digit)
    (allocate)
    (get.Ai.variable.Yn 3 4)
    (load.value.Xn 2)
    (load.pos.word 48)
    (subtract)
    (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.list 3)
    (unify.value.Yn 3)
    (unify.nil)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart number_seq 4 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 22
    (get.Ai.constant 1 single_quote)
    (get.Ai.structure 3 atom 1)
    (allocate)
    (unify.variable.Yn 2)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.constant 1 39)
    (call 5 read_string 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart string_to_atom 2 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 12
    (get.Ai.constant 1 double_quote)
    (get.Ai.structure 3 string 1)
    (unify.variable.Xn 2)
    (put.Ai.constant 1 34)
    (execute read_string 2 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 17
    (get.Ai.constant 1 small_letter)
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (allocate)
    (unify.variable.Yn 1)
    (call 4 p_alphameric 1 si)
    (put.Ai.value.Yn 1 1)
    (depart intern_symbol 1 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 28
    (get.Ai.constant 1 underbar)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.structure 3 var 2)
    (unify.void 1)
    (unify.variable.Yn 4)
    (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 ( token_start 3 si ) 28
    (get.Ai.constant 1 capital_letter)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.structure 3 var 2)
    (unify.void 1)
    (unify.variable.Yn 4)
    (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 ( token_start 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 46)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (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 token_period 3 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 47)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (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 token_slash 3 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 35)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (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 token_hash 3 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 11
    (get.Ai.constant 1 agglutinating)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Xn 3)
    (put.Ai.symbol 1 agglutinating)
    (execute agglutinating_seq 3 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 17
    (get.Ai.constant 1 percent)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get0 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token_after_cr 2 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 9
    (get.Ai.constant 1 individual_char)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (execute individual_char_symbol 2 si)
)

(ASSEMBLE.CLAUSE ( token_start 3 si ) 11
    (get.Ai.constant 1 individual_atom)
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Xn 2)
    (execute individual_atom_symbol 2 si)
)

(ASSEMBLE.CLAUSE ( token_start_white 3 si ) 9
    (get.Ai.constant 1 individual_char)
    (get.Ai.constant 2 40)
    (get.Ai.symbol 3 % %()
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( token_start_white 3 si ) 2
    (execute token_start 3 si)
)

(ASSEMBLE.CLAUSE ( string_to_atom 2 si ) 14
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 clear_byte_buffer 0 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart build_an_atom 2 si)
)

(ASSEMBLE.CLAUSE ( build_an_atom 2 si ) 7
    (get.Ai.constant 1 NIL)
    (put.Ai.value.Xn 1 2)
    (execute intern_symbol 1 si)
)

(ASSEMBLE.CLAUSE ( build_an_atom 2 si ) 15
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 put_byte 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart build_an_atom 2 si)
)

(ASSEMBLE.CLAUSE ( token_period 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 46)
    (call 5 put_byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating_seq 3 si)
)

(ASSEMBLE.CLAUSE ( token_period 3 si ) 10
    (get.Ai.constant 1 white_space)
    (put.Ai.value.Xn 1 2)
    (get.Ai.symbol 3 end_of_clause)
    (head.cut)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( token_period 3 si ) 10
    (get.Ai.constant 1 end_of_stream)
    (put.Ai.value.Xn 1 2)
    (get.Ai.symbol 3 end_of_clause)
    (head.cut)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( token_period 3 si ) 16
    (get.Ai.constant 1 digit)
    (get.Ai.structure 3 fraction 1)
    (unify.list)
    (unify.constant 46)
    (unify.variable.Xn 3)
    (head.cut)
    (put.Ai.symbol 1 digit)
    (execute float_seq 3 si)
)

(ASSEMBLE.CLAUSE ( token_period 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %.)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( token_slash 3 si ) 24
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 42)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 get0 1 si)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 after_slash_comment 1 si)
    (put.Ai.value.Yn 1 1)
    (depart next_token 1 si)
)

(ASSEMBLE.CLAUSE ( token_slash 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 47)
    (call 5 put_byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating_seq 3 si)
)

(ASSEMBLE.CLAUSE ( token_slash 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %/)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( after_slash_comment 1 si ) 14
    (get.Ai.constant 1 42)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart after_star 1 si)
)

(ASSEMBLE.CLAUSE ( after_slash_comment 1 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart after_slash_comment 1 si)
)

(ASSEMBLE.CLAUSE ( after_star 1 si ) 4
    (get.Ai.constant 1 47)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( after_star 1 si ) 2
    (execute after_slash_comment 1 si)
)

(ASSEMBLE.CLAUSE ( token_hash 3 si ) 28
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 35)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (call 6 development 0 si)
    (body.cut)
    (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 more_token_hash 3 si)
)

(ASSEMBLE.CLAUSE ( token_hash 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 35)
    (call 5 put_byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating_seq 3 si)
)

(ASSEMBLE.CLAUSE ( token_hash 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %#)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( more_token_hash 3 si ) 22
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (gettopval QP%.CONDIT%.READING)
    (store.integer 1)
    (head.cut)
    (load.pos.word 0)
    (settopval QP%.CONDIT%.READING)
    (call 4 unget0 1 si)
    (put.Ai.value.Yn 1 1)
    (depart next_token 1 si)
)

(ASSEMBLE.CLAUSE ( more_token_hash 3 si ) 27
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 43)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 read 1 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.constant 1 43)
    (call 4 do_hash_conditional 2 si)
    (put.Ai.value.Yn 1 1)
    (depart next_token 1 si)
)

(ASSEMBLE.CLAUSE ( more_token_hash 3 si ) 27
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 45)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 read 1 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.constant 1 45)
    (call 4 do_hash_conditional 2 si)
    (put.Ai.value.Yn 1 1)
    (depart next_token 1 si)
)

(ASSEMBLE.CLAUSE ( more_token_hash 3 si ) 31
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 35)
    (call 5 put_byte 1 si)
    (put.Ai.constant 1 35)
    (call 5 put_byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating_seq 3 si)
)

(ASSEMBLE.CLAUSE ( more_token_hash 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %#%#)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( do_hash_conditional 2 si ) 15
    (get.Ai.constant 1 43)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (call 3 call 1 interp)
    (body.cut)
    (load.pos.word 1)
    (settopval QP%.CONDIT%.READING)
    (progress)
)

(ASSEMBLE.CLAUSE ( do_hash_conditional 2 si ) 19
    (get.Ai.constant 1 45)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (call 4 call 1 interp)
    (body.cut)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart skip_until_end_conditional 1 si)
)

(ASSEMBLE.CLAUSE ( do_hash_conditional 2 si ) 13
    (get.Ai.constant 1 43)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart skip_until_end_conditional 1 si)
)

(ASSEMBLE.CLAUSE ( do_hash_conditional 2 si ) 8
    (get.Ai.constant 1 45)
    (load.pos.word 1)
    (settopval QP%.CONDIT%.READING)
    (proceed)
)

(ASSEMBLE.CLAUSE ( skip_until_end_conditional 1 si ) 14
    (get.Ai.constant 1 35)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart after_end_hash 1 si)
)

(ASSEMBLE.CLAUSE ( skip_until_end_conditional 1 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart skip_until_end_conditional 1 si)
)

(ASSEMBLE.CLAUSE ( after_end_hash 1 si ) 4
    (get.Ai.constant 1 35)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( after_end_hash 1 si ) 2
    (execute skip_until_end_conditional 1 si)
)

(ASSEMBLE.CLAUSE ( token_after_cr 2 si ) 8
    (get.Ai.constant 1 13)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (execute next_token 1 si)
)

(ASSEMBLE.CLAUSE ( token_after_cr 2 si ) 6
    (get.Ai.constant 1 -1)
    (get.Ai.symbol 2 end_of_stream)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( token_after_cr 2 si ) 14
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get0 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token_after_cr 2 si)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 40)
    (get.Ai.symbol 2 %()
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 41)
    (get.Ai.symbol 2 %))
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 44)
    (get.Ai.symbol 2 %,)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 91)
    (get.Ai.symbol 2 %[)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 93)
    (get.Ai.symbol 2 %])
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 123)
    (get.Ai.symbol 2 %{)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 124)
    (get.Ai.symbol 2 %|)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_char_symbol 2 si ) 6
    (get.Ai.constant 1 125)
    (get.Ai.symbol 2 %})
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_atom_symbol 2 si ) 6
    (get.Ai.constant 1 33)
    (get.Ai.symbol 2 %!)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual_atom_symbol 2 si ) 6
    (get.Ai.constant 1 59)
    (get.Ai.symbol 2 %;)
    (proceed)
)

(ASSEMBLE.CLAUSE ( number_seq 4 si ) 63
    (get.Ai.constant 1 single_quote)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.list 3)
    (unify.variable.Yn 3)
    (unify.variable.Yn 2)
    (get.Ai.structure 4 integer 1)
    (unify.variable.Yn 4)
    (head.cut)
    (put.Ai.variable.Yn 5 7)
    (put.Ai.constant 4 1)
    (put.Ai.constant 3 0)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 10 base_10_integer 5 si)
    (put.Ai.variable.Yn 2 6)
    (put.Ai.variable.Yn 1 5)
    (call 10 get_char 2 si)
    (load.value.Yn 7)
    (load.pos.word 37)
    (less.than.else 56)
    (put.Ai.value.Yn 5 4)
    (put.Ai.unsafe.Yn 4 7)
    (put.Ai.constant 3 0)
    (put.Ai.unsafe.Yn 2 6)
    (put.Ai.unsafe.Yn 1 5)
    (depart based_integer 5 si)
    (put.Ai.value.Yn 1 4)
    (get.Ai.list 1)
    (unify.value.Yn 3)
    (unify.value.Yn 2)
    (put.Ai.value.Yn 1 1)
    (depart unget0 1 si)
)

(ASSEMBLE.CLAUSE ( number_seq 4 si ) 32
    (get.Ai.constant 1 digit)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 5)
    (head.cut)
    (load.value.Xn 2)
    (load.pos.word 48)
    (subtract)
    (store.variable.Yn 4)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 8 get_char 2 si)
    (put.Ai.value.Yn 4 5)
    (put.Ai.list 3)
    (unify.value.Yn 4)
    (unify.local.Yn 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart number_seq 4 si)
)

(ASSEMBLE.CLAUSE ( number_seq 4 si ) 8
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 4 integer 1)
    (unify.local.Xn 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( based_integer 5 si ) 6
    (get.Ai.constant 4 0)
    (get.Ai.value.Xn 5 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( based_integer 5 si ) 41
    (get.Ai.constant 1 capital_letter)
    (allocate)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (load.value.Xn 2)
    (add.neg.word -55)
    (store.variable.Xn 1)
    (load.value.Yn 4)
    (load.value.Xn 1)
    (greater.than)
    (head.cut)
    (load.value.Xn 3)
    (load.value.Yn 4)
    (multiply)
    (load.value.Xn 1)
    (add)
    (store.variable.Yn 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 8 get_char 2 si)
    (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 based_integer 5 si)
)

(ASSEMBLE.CLAUSE ( based_integer 5 si ) 11
    (get.Ai.constant 1 small_letter)
    (load.value.Xn 2)
    (add.neg.word -32)
    (store.variable.Xn 2)
    (put.Ai.symbol 1 capital_letter)
    (execute based_integer 5 si)
)

(ASSEMBLE.CLAUSE ( based_integer 5 si ) 42
    (get.Ai.constant 1 digit)
    (allocate)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (load.value.Xn 2)
    (load.pos.word 48)
    (subtract)
    (store.variable.Xn 1)
    (load.value.Yn 4)
    (load.value.Xn 1)
    (greater.than)
    (head.cut)
    (load.value.Xn 3)
    (load.value.Yn 4)
    (multiply)
    (load.value.Xn 1)
    (add)
    (store.variable.Yn 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 8 get_char 2 si)
    (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 based_integer 5 si)
)

(ASSEMBLE.CLAUSE ( based_integer 5 si ) 6
    (put.Ai.value.Xn 1 2)
    (get.Ai.value.Xn 5 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( base_10_integer 5 si ) 12
    (get.Ai.constant 1 NIL)
    (load.value.Xn 2)
    (load.value.Xn 4)
    (multiply)
    (store.variable.Xn 1)
    (load.value.Xn 3)
    (load.value.Xn 1)
    (add)
    (store.value.Xn 5)
    (proceed)
)

(ASSEMBLE.CLAUSE ( base_10_integer 5 si ) 20
    (get.Ai.list 1)
    (unify.variable.Xn 6)
    (unify.variable.Xn 1)
    (load.value.Xn 2)
    (load.value.Xn 4)
    (multiply)
    (store.variable.Xn 2)
    (load.value.Xn 3)
    (load.value.Xn 2)
    (add)
    (store.variable.Xn 3)
    (load.pos.word 10)
    (load.value.Xn 4)
    (multiply)
    (store.variable.Xn 4)
    (put.Ai.value.Xn 2 6)
    (execute base_10_integer 5 si)
)

(ASSEMBLE.CLAUSE ( float_seq 3 si ) 23
    (get.Ai.constant 1 digit)
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (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 float_seq 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq 3 si ) 2
    (execute float_seq_exp 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp 3 si ) 28
    (get.Ai.constant 1 small_letter)
    (get.Ai.constant 2 101)
    (get.Ai.list 3)
    (unify.constant 69)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (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 float_seq_exp_sign 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp 3 si ) 28
    (get.Ai.constant 1 capital_letter)
    (get.Ai.constant 2 69)
    (get.Ai.list 3)
    (unify.constant 69)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (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 float_seq_exp_sign 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp 3 si ) 5
    (put.Ai.value.Xn 1 2)
    (get.Ai.nil 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp_sign 3 si ) 28
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 45)
    (get.Ai.list 3)
    (unify.constant 45)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (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 float_seq_exp_nums 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp_sign 3 si ) 28
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 43)
    (get.Ai.list 3)
    (unify.constant 43)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (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 float_seq_exp_nums 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp_sign 3 si ) 2
    (execute float_seq_exp_nums 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp_nums 3 si ) 23
    (get.Ai.constant 1 digit)
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (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 float_seq_exp_nums 3 si)
)

(ASSEMBLE.CLAUSE ( float_seq_exp_nums 3 si ) 5
    (put.Ai.value.Xn 1 2)
    (get.Ai.nil 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( agglutinating_seq 3 si ) 27
    (get.Ai.constant 1 agglutinating)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (call 6 put_byte 1 si)
    (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 agglutinating_seq 3 si)
)

(ASSEMBLE.CLAUSE ( agglutinating_seq 3 si ) 12
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (call 4 unget0 1 si)
    (put.Ai.value.Yn 1 1)
    (depart intern_symbol 1 si)
)

(ASSEMBLE.CLAUSE ( read_string 2 si ) 26
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 3)
    (put.Ai.symbol 1 character_escapes)
    (call 6 prolog_flag 3 si)
    (put.Ai.unsafe.Yn 1 3)
    (get.Ai.constant 1 on)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart read_string_with_esc 2 si)
)

(ASSEMBLE.CLAUSE ( read_string 2 si ) 2
    (execute read_string_without_esc 2 si)
)

(ASSEMBLE.CLAUSE ( read_string_with_esc 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 1 4)
    (call 7 get0 1 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 interp_char_with_esc 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart process_char_with_esc 3 si)
)

(ASSEMBLE.CLAUSE ( process_char_with_esc 3 si ) 5
    (get.Ai.constant 2 -2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( process_char_with_esc 3 si ) 5
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (unify.variable.Xn 2)
    (execute read_string_with_esc 2 si)
)

(ASSEMBLE.CLAUSE ( read_string_without_esc 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 1 4)
    (call 7 get0 1 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 interp_char_without_esc 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart process_char_without_esc 3 si)
)

(ASSEMBLE.CLAUSE ( process_char_without_esc 3 si ) 5
    (get.Ai.constant 2 -2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( process_char_without_esc 3 si ) 5
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (unify.variable.Xn 2)
    (execute read_string_without_esc 2 si)
)

(ASSEMBLE.CLAUSE ( interp_char_with_esc 3 si ) 31
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.value.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (load.value.Yn 1)
    (load.value.Yn 3)
    (equal.to.else 24)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 2)
    (progress)
    (put.Ai.value.Yn 1 2)
    (get.Ai.constant 1 -2)
    (put.Ai.unsafe.Yn 1 1)
    (depart unget0 1 si)
)

(ASSEMBLE.CLAUSE ( interp_char_with_esc 3 si ) 22
    (get.Ai.constant 1 92)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart read_escape_seq 3 si)
)

(ASSEMBLE.CLAUSE ( interp_char_with_esc 3 si ) 32
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.value.Yn 3 1)
    (either 4 20)
    (load.value.Yn 1)
    (load.pos.word 33)
    (not.less.than)
    (load.value.Yn 1)
    (load.pos.word 126)
    (not.greater.than)
    (jump.to 33)
    (or 28)
    (load.value.Yn 1)
    (load.pos.word 9)
    (equal.to)
    (jump.to 33)
    (or.finally)
    (load.value.Yn 1)
    (load.pos.word 32)
    (equal.to)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( interp_char_with_esc 3 si ) 5
    (get.Ai.constant 1 -1)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( interp_char_with_esc 3 si ) 10
    (get.Ai.constant 3 -2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 141)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( read_escape_seq 3 si ) 35
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (either 7 18)
    (load.value.Yn 4)
    (load.pos.word 32)
    (not.greater.than)
    (jump.to 23)
    (or.finally)
    (load.value.Yn 4)
    (load.pos.word 127)
    (not.less.than)
    (body.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart interp_char_with_esc 3 si)
)

(ASSEMBLE.CLAUSE ( read_escape_seq 3 si ) 84
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 3 1)
    (load.value.Yn 2)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 55)
    (not.greater.than)
    (head.cut)
    (put.Ai.variable.Yn 1 3)
    (call 7 get0 1 si)
    (load.value.Yn 3)
    (load.pos.word 48)
    (not.less.than.else 76)
    (load.value.Yn 3)
    (load.pos.word 55)
    (not.greater.than.else 76)
    (put.Ai.variable.Yn 1 4)
    (call 7 get0 1 si)
    (load.value.Yn 4)
    (load.pos.word 48)
    (not.less.than.else 61)
    (load.value.Yn 4)
    (load.pos.word 55)
    (not.greater.than.else 61)
    (load.value.Yn 2)
    (load.pos.word 8)
    (multiply)
    (load.value.Yn 3)
    (add)
    (load.pos.word 8)
    (multiply)
    (load.value.Yn 4)
    (add)
    (add.neg.word -3504)
    (store.value.Yn 1)
    (progress)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 unget0 1 si)
    (load.value.Yn 2)
    (load.pos.word 8)
    (multiply)
    (load.value.Yn 3)
    (add)
    (add.neg.word -432)
    (store.value.Yn 1)
    (progress)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 unget0 1 si)
    (load.value.Yn 2)
    (add.neg.word -48)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( read_escape_seq 3 si ) 22
    (get.Ai.constant 1 99)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart interp_char_with_esc 3 si)
)

(ASSEMBLE.CLAUSE ( read_escape_seq 3 si ) 18
    (get.Ai.constant 1 94)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 get0 1 si)
    (load.value.Yn 2)
    (load.pos.word 31)
    (boolean.and)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( read_escape_seq 3 si ) 7
    (put.Ai.value.Xn 2 3)
    (allocate)
    (call 3 escape_char 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( read_escape_seq 3 si ) 3
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 98)
    (get.Ai.constant 2 8)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 100)
    (get.Ai.constant 2 127)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 101)
    (get.Ai.constant 2 27)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 102)
    (get.Ai.constant 2 12)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 110)
    (get.Ai.constant 2 13)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 114)
    (get.Ai.constant 2 13)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 116)
    (get.Ai.constant 2 9)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape_char 2 si ) 7
    (get.Ai.constant 1 118)
    (get.Ai.constant 2 11)
    (proceed)
)

(ASSEMBLE.CLAUSE ( interp_char_without_esc 3 si ) 31
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.value.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (load.value.Yn 1)
    (load.value.Yn 3)
    (equal.to.else 24)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 2)
    (progress)
    (put.Ai.value.Yn 1 2)
    (get.Ai.constant 1 -2)
    (put.Ai.unsafe.Yn 1 1)
    (depart unget0 1 si)
)

(ASSEMBLE.CLAUSE ( interp_char_without_esc 3 si ) 5
    (get.Ai.constant 1 -1)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( interp_char_without_esc 3 si ) 3
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( process_escape_sequence 0 si ) 12
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 read_directly 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 dispatch_term 1 si)
    (depart.cut)
)

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

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 8
    (get.Ai.structure 1 %$editor_load_code 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (head.cut)
    (execute %$editor_load_code 2 si)
)

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 8
    (get.Ai.structure 1 find_predicate1 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (head.cut)
    (execute find_predicate1 2 si)
)

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 6
    (get.Ai.constant 1 capture_version)
    (head.cut)
    (execute capture_version 0 si)
)

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 6
    (get.Ai.constant 1 capture_root)
    (head.cut)
    (execute capture_root 0 si)
)

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 7
    (get.Ai.structure 1 find_library_package 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute find_library_package 1 si)
)

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 7
    (get.Ai.structure 1 manual 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute manual 1 si)
)

(ASSEMBLE.CLAUSE ( dispatch_term 1 si ) 2
    (execute call 1 interp)
)

STOP