(ASSEMBLE.CLAUSE ( consult 1 si ) 15
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 3 consult 1)
    (unify.local.Xn 4)
    (put.Ai.structure 1 load_code 2)
    (unify.local.Xn 4)
    (unify.value.Xn 3)
    (execute with_waiting_cursor 2 si)
)

(ASSEMBLE.CLAUSE ( compile 1 si ) 15
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 3 compile 1)
    (unify.local.Xn 4)
    (put.Ai.structure 1 load_code 2)
    (unify.local.Xn 4)
    (unify.value.Xn 3)
    (execute with_waiting_cursor 2 si)
)

(ASSEMBLE.CLAUSE ( ensure_loaded 1 si ) 15
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 3 ensure_loaded 1)
    (unify.local.Xn 4)
    (put.Ai.structure 1 load_code 2)
    (unify.local.Xn 4)
    (unify.value.Xn 3)
    (execute with_waiting_cursor 2 si)
)

(ASSEMBLE.CLAUSE ( %. 2 si ) 17
    (put.Ai.value.Xn 5 2)
    (put.Ai.symbol 2 si)
    (put.Ai.list 4)
    (unify.local.Xn 1)
    (unify.local.Xn 5)
    (put.Ai.list 3)
    (unify.local.Xn 1)
    (unify.local.Xn 5)
    (put.Ai.structure 1 load_code 2)
    (unify.value.Xn 4)
    (unify.value.Xn 3)
    (execute with_waiting_cursor 2 si)
)

(ASSEMBLE.CLAUSE ( load_code 2 si ) 12
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 350)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( load_code 2 si ) 4
    (get.Ai.constant 1 NIL)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( load_code 2 si ) 18
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (head.cut)
    (put.Ai.value.Yn 2 2)
    (call 5 load_code 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart load_code 2 si)
)

(ASSEMBLE.CLAUSE ( load_code 2 si ) 17
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (call 5 absolute_file_name 3 si)
    (body.cut)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart load_code_dispatch 2 si)
)

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

(ASSEMBLE.CLAUSE ( load_code_dispatch 2 si ) 14
    (get.Ai.structure 1 compile 1)
    (unify.void 1)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 3 false)
    (put.Ai.symbol 2 compile)
    (execute load_code 4 si)
)

(ASSEMBLE.CLAUSE ( load_code_dispatch 2 si ) 14
    (get.Ai.structure 1 consult 1)
    (unify.void 1)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 3 false)
    (put.Ai.symbol 2 consult)
    (execute load_code 4 si)
)

(ASSEMBLE.CLAUSE ( load_code_dispatch 2 si ) 12
    (get.Ai.list 1)
    (unify.void 2)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 3 false)
    (put.Ai.symbol 2 consult)
    (execute load_code 4 si)
)

(ASSEMBLE.CLAUSE ( load_code_dispatch 2 si ) 11
    (get.Ai.structure 1 ensure_loaded 1)
    (unify.void 1)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (call 3 source_file 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( load_code_dispatch 2 si ) 14
    (get.Ai.structure 1 ensure_loaded 1)
    (unify.void 1)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 3 false)
    (put.Ai.symbol 2 compile)
    (execute load_code 4 si)
)

(ASSEMBLE.CLAUSE ( %$editor_load_code 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.structure 2 lisp_datatype 2)
    (unify.variable.Xn 4)
    (unify.variable.Xn 2)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.list 1)
    (unify.value.Xn 2)
    (unify.nil)
    (put.Ai.list 2)
    (unify.value.Xn 4)
    (unify.value.Xn 1)
    (put.Ai.symbol 1 %\VAG2)
    (call 5 lisp_apply 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart %$editor_load_code 2 si)
)

(ASSEMBLE.CLAUSE ( %$editor_load_code 2 si ) 25
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 1 3)
    (call 6 editor_temporary_file 1 si)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 load_code 4)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (unify.symbol true)
    (unify.local.Yn 1)
    (call 3 with_waiting_cursor 2 si)
    (depart toplevel_repeat_prompt 0 si)
)

(ASSEMBLE.CLAUSE ( load_code 4 si ) 160
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (put.Ai.value.Xn 1 4)
    (put.Ai.variable.Yn 2 10)
    (call 18 file_index_in_table 2 si)
    (put.Ai.list 2)
    (unify.variable.Yn 8)
    (unify.void 1)
    (put.Ai.symbol 1 runtime)
    (call 18 statistics 2 si)
    (put.Ai.list 2)
    (unify.variable.Yn 6)
    (unify.void 1)
    (put.Ai.symbol 1 program)
    (call 18 statistics 2 si)
    (load.pos.word 0)
    (settopval QP%.LOAD%.PROC)
    (put.Ai.variable.Yn 2 11)
    (put.Ai.value.Yn 1 2)
    (call 18 open_input_file 2 si)
    (body.cut)
    (put.Ai.variable.Yn 1 13)
    (call 18 current_input 1 si)
    (put.Ai.variable.Yn 1 12)
    (call 18 current_output 1 si)
    (put.Ai.variable.Yn 1 14)
    (call 18 current_module 1 si)
    (put.Ai.symbol 2 %|% )
    (put.Ai.variable.Yn 1 15)
    (call 18 prompt 2 si)
    (put.Ai.structure 2 flags 4)
    (unify.local.Yn 3)
    (unify.local.Yn 1)
    (unify.local.Yn 10)
    (unify.local.Yn 11)
    (put.Ai.value.Yn 1 11)
    (call 18 load_code_loop 2 si)
    (put.Ai.unsafe.Yn 2 15)
    (put.Ai.void 1)
    (call 17 prompt 2 si)
    (put.Ai.variable.Yn 1 5)
    (call 17 current_module 1 si)
    (put.Ai.unsafe.Yn 2 14)
    (put.Ai.value.Yn 1 5)
    (call 16 end_of_module 2 si)
    (put.Ai.unsafe.Yn 1 13)
    (call 15 set_input 1 si)
    (put.Ai.unsafe.Yn 1 12)
    (call 14 set_output 1 si)
    (put.Ai.unsafe.Yn 1 11)
    (call 13 close 1 si)
    (put.Ai.value.Yn 2 10)
    (put.Ai.value.Yn 1 5)
    (call 13 transfer_procedures 2 si)
    (put.Ai.unsafe.Yn 1 10)
    (call 12 retract_auxiliary_predicates 1 si)
    (call 12 clean_up_clauses 0 si)
    (put.Ai.list 2)
    (unify.variable.Yn 9)
    (unify.void 1)
    (put.Ai.symbol 1 runtime)
    (call 12 statistics 2 si)
    (load.value.Yn 9)
    (load.value.Yn 8)
    (subtract)
    (store.variable.Yn 4)
    (put.Ai.list 2)
    (unify.variable.Yn 7)
    (unify.void 1)
    (put.Ai.symbol 1 program)
    (call 10 statistics 2 si)
    (load.value.Yn 7)
    (load.value.Yn 6)
    (subtract)
    (store.variable.Xn 5)
    (put.Ai.unsafe.Yn 6 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart report_readin 6 si)
)

(ASSEMBLE.CLAUSE ( load_code 4 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( end_of_module 2 si ) 4
    (put.Ai.value.Xn 1 2)
    (execute module 1 si)
)

(ASSEMBLE.CLAUSE ( load_code_loop 2 si ) 35
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 3)
    (call 8 repeat 0 si)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.void 3)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 5)
    (call 7 read 4 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 expand_term 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 load_clause_fail 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( load_clause_fail 3 si ) 14
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 353)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( load_clause_fail 3 si ) 4
    (get.Ai.constant 1 end_of_file)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( load_clause_fail 3 si ) 24
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 1 3)
    (call 7 current_module 1 si)
    (put.Ai.value.Yn 4 4)
    (put.Ai.unsafe.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 3 load_clause 4 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( load_clause 4 si ) 11
    (get.Ai.structure 1 %:%- 1)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 3 4)
    (head.cut)
    (execute do_command 3 si)
)

(ASSEMBLE.CLAUSE ( load_clause 4 si ) 11
    (get.Ai.structure 1 %?%- 1)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 3 4)
    (head.cut)
    (execute do_command 3 si)
)

(ASSEMBLE.CLAUSE ( load_clause 4 si ) 106
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (put.Ai.void 3)
    (put.Ai.variable.Yn 2 11)
    (put.Ai.value.Yn 1 1)
    (call 14 split_clause 3 si)
    (body.cut)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.variable.Yn 2 6)
    (put.Ai.unsafe.Yn 1 11)
    (functor)
    (put.Ai.variable.Yn 4 10)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 7)
    (put.Ai.value.Yn 1 6)
    (call 13 predicate_module 4 si)
    (put.Ai.variable.Yn 6 2)
    (put.Ai.value.Yn 5 4)
    (put.Ai.unsafe.Yn 4 10)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 7)
    (put.Ai.value.Yn 1 6)
    (call 12 find_proc_record 6 si)
    (put.Ai.variable.Yn 2 9)
    (put.Ai.value.Yn 1 4)
    (call 12 file_index 2 si)
    (load.choice.point)
    (store.variable.Yn 8)
    (either 12 79)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 dont_load_procedure 2)
    (unify.local.Yn 2)
    (unify.local.Yn 9)
    (call 11 clause_module 3 si)
    (load.value.Yn 8)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 2)
    (call 10 update_procedure 2 si)
    (put.Ai.value.Yn 4 3)
    (put.Ai.unsafe.Yn 3 7)
    (put.Ai.unsafe.Yn 2 6)
    (put.Ai.value.Yn 1 5)
    (call 7 style_check_single_vars 4 si)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart add_clause 4 si)
)

(ASSEMBLE.CLAUSE ( load_clause 4 si ) 10
    (allocate)
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 331)
    (call 3 nerror 2 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 11
    (get.Ai.structure 1 mode 1)
    (unify.void 1)
    (head.cut)
    (put.Ai.structure 1 mode 1)
    (unify.void 1)
    (execute compiler_command 1 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 11
    (get.Ai.structure 1 public 1)
    (unify.void 1)
    (head.cut)
    (put.Ai.structure 1 public 1)
    (unify.void 1)
    (execute compiler_command 1 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 15
    (get.Ai.structure 1 dynamic 1)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 4 3)
    (head.cut)
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 dynamic 1)
    (unify.value.Xn 1)
    (execute declaration 4 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 15
    (get.Ai.structure 1 multifile 1)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 4 3)
    (head.cut)
    (put.Ai.value.Xn 3 2)
    (put.Ai.structure 2 multifile 1)
    (unify.value.Xn 1)
    (execute declaration 4 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 19
    (get.Ai.structure 1 primitive 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 development 0 si)
    (body.cut)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 slave)
    (depart special_cassert 3 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 19
    (get.Ai.structure 1 master_primitive 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 development 0 si)
    (body.cut)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 master)
    (depart special_cassert 3 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 12
    (get.Ai.structure 1 lisp_predicate 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 4)
    (head.cut)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 4)
    (execute special_cassert 3 si)
)

(ASSEMBLE.CLAUSE ( do_command 3 si ) 10
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (call 4 execute_command 1 si)
    (put.Ai.value.Yn 1 1)
    (depart check_stream_still_open 1 si)
)

(ASSEMBLE.CLAUSE ( check_stream_still_open 1 si ) 12
    (allocate)
    (put.Ai.variable.Yn 2 1)
    (call 4 input_stream 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 current_input_stream 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( check_stream_still_open 1 si ) 40
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (put.Ai.variable.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 8 file_index 2 si)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.variable.Yn 1 1)
    (call 7 source_file_table 2 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 4)
    (call 6 compile_flag 2 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 load_type 2 si)
    (put.Ai.unsafe.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.constant 1 359)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( current_input_stream 1 si ) 4
    (get.Ai.constant 1 user)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( current_input_stream 1 si ) 4
    (get.Ai.constant 1 user_input)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( current_input_stream 1 si ) 7
    (put.Ai.value.Xn 3 1)
    (put.Ai.symbol 2 read)
    (put.Ai.void 1)
    (execute current_stream 3 si)
)

(ASSEMBLE.CLAUSE ( find_proc_record 6 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Xn 1 3)
    (get.Ai.value.Xn 4 1)
    (get.Ai.variable.Yn 6 4)
    (head.cut)
    (put.Ai.variable.Yn 2 3)
    (call 7 maybe_brother_module 2 si)
    (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 local_predicate 4 si)
)

(ASSEMBLE.CLAUSE ( find_proc_record 6 si ) 28
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 5)
    (put.Ai.value.Xn 1 5)
    (put.Ai.variable.Yn 2 4)
    (call 8 file_index 2 si)
    (put.Ai.value.Yn 5 5)
    (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 wrong_module 5 si)
)

(ASSEMBLE.CLAUSE ( wrong_module 5 si ) 22
    (put.Ai.value.Xn 8 1)
    (put.Ai.value.Xn 7 2)
    (put.Ai.value.Xn 6 3)
    (allocate)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 wrong_module_error 4)
    (unify.local.Xn 8)
    (unify.local.Xn 7)
    (unify.local.Xn 6)
    (unify.local.Xn 4)
    (call 3 clause_module 3 si)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( wrong_module 5 si ) 37
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 5 3)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 wrong_module_error 4)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (call 6 asserta_module 2 si)
    (put.Ai.value.Yn 1 3)
    (call 5 system_module 1 si)
    (body.cut)
    (put.Ai.structure 2 %/ 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (put.Ai.constant 1 354)
    (call 3 nerror 2 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( wrong_module 5 si ) 21
    (allocate)
    (put.Ai.list 4)
    (unify.local.Xn 3)
    (unify.nil)
    (put.Ai.list 3)
    (unify.local.Xn 2)
    (unify.value.Xn 4)
    (put.Ai.list 2)
    (unify.local.Xn 1)
    (unify.value.Xn 3)
    (put.Ai.list 3)
    (unify.local.Xn 5)
    (unify.value.Xn 2)
    (put.Ai.symbol 2 %~N%[ERROR%:% attempting% to% redefine% %~q%:%~q%/%~d% in% module% %~q%]%~n)
    (put.Ai.symbol 1 user_error)
    (call 3 format 3 format)
    (fail)
)

(ASSEMBLE.CLAUSE ( update_procedure 2 si ) 15
    (gettopval QP%.LOAD%.PROC)
    (store.value.Xn 1)
    (head.cut)
    (gettopval QP%.LOAD%.COUNT)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (settopval QP%.LOAD%.COUNT)
    (proceed)
)

(ASSEMBLE.CLAUSE ( update_procedure 2 si ) 35
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Xn 1 2)
    (load.value.Yn 1)
    (settopval QP%.LOAD%.PROC)
    (load.pos.word 1)
    (settopval QP%.LOAD%.COUNT)
    (put.Ai.variable.Yn 2 2)
    (call 5 file_index 2 si)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 already_loading 2)
    (unify.local.Yn 1)
    (unify.local.Yn 2)
    (call 5 clause_module 3 si)
    (body.cut)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart style_check_discontiguous 2 si)
)

(ASSEMBLE.CLAUSE ( update_procedure 2 si ) 2
    (execute new_procedure 2 si)
)

(ASSEMBLE.CLAUSE ( new_procedure 2 si ) 73
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (get.word)
    (load.value.Yn 6)
    (load.pos.word 16)
    (boolean.and)
    (load.pos.word 0)
    (not.equal.to)
    (body.cut)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 8 file_index 2 si)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 already_loading 2)
    (unify.local.Yn 1)
    (unify.local.Yn 3)
    (call 8 assertz_module 2 si)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (get.word)
    (load.value.Yn 5)
    (load.pos.word 6)
    (right.shift)
    (store.variable.Yn 4)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 7 file_index 2 si)
    (put.Ai.value.Yn 3 1)
    (put.Ai.value.Yn 2 4)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 test_reloading 3 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart compile_or_consult 2 si)
)

(ASSEMBLE.CLAUSE ( new_procedure 2 si ) 2
    (execute maybe_reinitialise_proc 2 si)
)

(ASSEMBLE.CLAUSE ( maybe_reinitialise_proc 2 si ) 68
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 1)
    (call 7 file_index 2 si)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 already_loading 2)
    (unify.local.Yn 2)
    (unify.local.Yn 4)
    (call 7 assertz_module 2 si)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 2)
    (call 7 style_check_multiple 2 si)
    (put.Ai.value.Yn 1 2)
    (call 7 abolish_procedure 1 si)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 2)
    (get.word)
    (load.value.Yn 4)
    (load.pos.word 6)
    (left.shift)
    (store.variable.Xn 1)
    (load.value.Yn 3)
    (load.pos.word 63)
    (boolean.and)
    (load.value.Xn 1)
    (add)
    (store.variable.Xn 3)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 2)
    (put.word)
    (put.Ai.symbol 3 |.(MKATOM ""))
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart maybe_report_loading_proc 3 si)
)

(ASSEMBLE.CLAUSE ( test_reloading 3 si ) 56
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 3 4)
    (either 7 15)
    (load.value.Yn 3)
    (load.value.Xn 2)
    (equal.to)
    (jump.to 27)
    (or.finally)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 multifile 2)
    (unify.local.Yn 4)
    (unify.local.Yn 3)
    (call 7 clause_module 3 si)
    (body.cut)
    (put.Ai.void 4)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 7 p_procedure 4 si)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 dont_load_procedure 2)
    (unify.local.Yn 4)
    (unify.local.Yn 3)
    (call 5 asserta_module 2 si)
    (put.Ai.structure 2 %/ 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (put.Ai.constant 1 356)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( test_reloading 3 si ) 11
    (put.Ai.value.Xn 4 1)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 multifile 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (execute assertz_module 2 si)
)

(ASSEMBLE.CLAUSE ( compile_or_consult 2 si ) 91
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 10)
    (put.Ai.variable.Yn 3 11)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 5)
    (get.word)
    (load.value.Yn 11)
    (load.pos.word 3)
    (boolean.and)
    (store.variable.Yn 8)
    (put.Ai.variable.Yn 2 6)
    (put.Ai.value.Yn 1 10)
    (call 12 compile_flag 2 si)
    (load.choice.point)
    (store.variable.Yn 9)
    (either 12 42)
    (put.Ai.value.Yn 2 6)
    (put.Ai.value.Yn 1 8)
    (call 12 is_compatible 2 si)
    (load.value.Yn 9)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (body.cut)
    (put.Ai.variable.Yn 2 7)
    (put.Ai.value.Yn 1 8)
    (call 10 is_compatible 2 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 load_type 2 si)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 load_type 2 si)
    (put.Ai.void 4)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 5)
    (call 7 p_procedure 4 si)
    (put.Ai.list 1)
    (unify.local.Yn 4)
    (unify.nil)
    (put.Ai.list 2)
    (unify.local.Yn 3)
    (unify.value.Xn 1)
    (put.Ai.list 1)
    (unify.local.Yn 2)
    (unify.value.Xn 2)
    (put.Ai.list 3)
    (unify.local.Yn 1)
    (unify.value.Xn 1)
    (put.Ai.symbol 2 %~N%[WARNING%:% clauses% for% multifile% predicate% %~a%/%~d%~n% are% being% %~aed%,% not% %~aed%]%~n)
    (put.Ai.symbol 1 user_error)
    (depart format 3 format)
)

(ASSEMBLE.CLAUSE ( compile_or_consult 2 si ) 10
    (put.Ai.value.Xn 4 2)
    (put.Ai.symbol 3 more% clauses% for% multifile% )
    (put.Ai.value.Xn 2 1)
    (put.Ai.value.Xn 1 4)
    (execute maybe_report_loading_proc 3 si)
)

(ASSEMBLE.CLAUSE ( is_compatible 2 si ) 4
    (get.Ai.constant 1 0)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is_compatible 2 si ) 6
    (get.Ai.constant 1 1)
    (get.Ai.symbol 2 compile)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is_compatible 2 si ) 6
    (get.Ai.constant 1 2)
    (get.Ai.symbol 2 consult)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is_compatible 2 si ) 4
    (get.Ai.constant 1 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( add_clause 4 si ) 33
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 4)
    (put.Ai.value.Xn 1 4)
    (put.Ai.variable.Yn 2 5)
    (call 8 compile_flag 2 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.value.Yn 1 3)
    (call 7 adjust_compflag 3 si)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart add_the_clause 4 si)
)

(ASSEMBLE.CLAUSE ( add_the_clause 4 si ) 9
    (get.Ai.constant 1 compile)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (execute loadcode_cassert 2 si)
)

(ASSEMBLE.CLAUSE ( add_the_clause 4 si ) 9
    (get.Ai.constant 1 consult)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (execute consult_assert 2 si)
)

(ASSEMBLE.CLAUSE ( adjust_compflag 3 si ) 28
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (get.word)
    (load.value.Yn 4)
    (load.pos.word 3)
    (boolean.and)
    (store.variable.Xn 1)
    (put.Ai.value.Yn 4 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (depart adjust_compflag 4 si)
)

(ASSEMBLE.CLAUSE ( adjust_compflag 4 si ) 6
    (get.Ai.constant 1 3)
    (get.Ai.symbol 4 consult)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( adjust_compflag 4 si ) 28
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 4 2)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.constant 2 13)
    (get.word)
    (load.value.Yn 3)
    (load.pos.word 16)
    (boolean.and)
    (load.pos.word 0)
    (not.equal.to)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 3 set_compflag 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( adjust_compflag 4 si ) 3
    (get.Ai.value.Xn 4 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( set_compflag 2 si ) 6
    (get.Ai.constant 1 1)
    (get.Ai.symbol 2 compile)
    (proceed)
)

(ASSEMBLE.CLAUSE ( set_compflag 2 si ) 6
    (get.Ai.constant 1 2)
    (get.Ai.symbol 2 consult)
    (proceed)
)

(ASSEMBLE.CLAUSE ( set_compflag 2 si ) 6
    (get.Ai.constant 1 3)
    (get.Ai.symbol 2 consult)
    (proceed)
)

(ASSEMBLE.CLAUSE ( open_input_file 2 si ) 6
    (get.Ai.constant 1 user)
    (get.Ai.symbol 2 user)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( open_input_file 2 si ) 6
    (get.Ai.constant 1 user_input)
    (get.Ai.symbol 2 user)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( open_input_file 2 si ) 50
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 4)
    (put.Ai.constant 2 1)
    (put.Ai.variable.Yn 1 2)
    (call 7 fileerrors 2 si)
    (load.choice.point)
    (store.variable.Yn 3)
    (either 7 36)
    (put.Ai.value.Yn 3 4)
    (put.Ai.symbol 2 read)
    (put.Ai.value.Yn 1 1)
    (call 6 open 3 si)
    (load.value.Yn 3)
    (cut.to.choice.point)
    (put.Ai.value.Yn 2 2)
    (put.Ai.void 1)
    (depart fileerrors 2 si)
    (or.finally)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.void 1)
    (call 4 fileerrors 2 si)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 355)
    (call 3 nerror 2 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( maybe_report_loading_proc 3 si ) 78
    (allocate)
    (get.Ai.variable.Yn 1 7)
    (get.Ai.variable.Yn 2 9)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.symbol 2 true)
    (put.Ai.value.Yn 1 7)
    (call 12 edit_flag 2 si)
    (body.cut)
    (put.Ai.variable.Yn 4 8)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 9)
    (call 11 p_procedure 4 si)
    (put.Ai.unsafe.Yn 2 8)
    (put.Ai.variable.Yn 1 1)
    (call 10 maybe_brother_module 2 si)
    (put.Ai.variable.Yn 2 6)
    (put.Ai.value.Yn 1 7)
    (call 9 compile_flag 2 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 load_type 2 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.list 1)
    (unify.local.Yn 3)
    (unify.value.Xn 2)
    (put.Ai.list 3)
    (unify.local.Yn 2)
    (unify.value.Xn 1)
    (put.Ai.symbol 2 %~N%[%~aing% %~aprocedure% %~a%/%~d)
    (put.Ai.symbol 1 user)
    (call 4 format 3 format)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 maybe_write_module 1 si)
    (put.Ai.nil 3)
    (put.Ai.symbol 2 %]%~n)
    (put.Ai.symbol 1 user)
    (depart format 3 format)
)

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

(ASSEMBLE.CLAUSE ( report_readin 6 si ) 78
    (allocate)
    (get.Ai.variable.Yn 1 6)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 7)
    (get.Ai.variable.Yn 4 2)
    (get.Ai.variable.Yn 6 4)
    (put.Ai.variable.Yn 1 1)
    (call 10 current_output 1 si)
    (put.Ai.symbol 1 user)
    (call 10 set_output 1 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 7)
    (call 9 load_type 2 si)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 9 59)
    (put.Ai.value.Yn 2 6)
    (get.Ai.symbol 2 false)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (put.Ai.list 1)
    (unify.local.Yn 3)
    (unify.nil)
    (put.Ai.list 2)
    (unify.local.Yn 5)
    (unify.value.Xn 1)
    (put.Ai.symbol 1 %~N%[%~w% %~aed)
    (call 7 format 2 format)
    (put.Ai.value.Yn 1 4)
    (call 6 maybe_write_module 1 si)
    (jump.to 68)
    (or.finally)
    (put.Ai.list 2)
    (unify.local.Yn 3)
    (unify.nil)
    (put.Ai.symbol 1 %~N%[%~aation% completed)
    (call 5 format 2 format)
    (put.Ai.list 2)
    (unify.local.Yn 2)
    (unify.nil)
    (put.Ai.symbol 1 % %(%~3d% sec%)%]%~n)
    (call 4 format 2 format)
    (put.Ai.unsafe.Yn 1 1)
    (depart set_output 1 si)
)

(ASSEMBLE.CLAUSE ( load_type 2 si ) 6
    (get.Ai.constant 1 consult)
    (get.Ai.symbol 2 consult)
    (proceed)
)

(ASSEMBLE.CLAUSE ( load_type 2 si ) 6
    (get.Ai.constant 1 compile)
    (get.Ai.symbol 2 compil)
    (proceed)
)

(ASSEMBLE.CLAUSE ( maybe_write_module 1 si ) 4
    (get.Ai.constant 1 user)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( maybe_write_module 1 si ) 9
    (put.Ai.list 3)
    (unify.local.Xn 1)
    (unify.nil)
    (put.Ai.symbol 2 % in% module% %~w)
    (put.Ai.symbol 1 user)
    (execute format 3 format)
)

(ASSEMBLE.CLAUSE ( transfer_procedures 2 si ) 149
    (allocate)
    (get.Ai.variable.Yn 1 9)
    (get.Ai.variable.Yn 2 11)
    (call 14 development 0 si)
    (put.Ai.value.Yn 1 9)
    (call 14 system_module 1 si)
    (either 14 26)
    (put.Ai.constant 1 1)
    (call 14 block_events 1 si)
    (jump.to 34)
    (or.finally)
    (put.Ai.constant 1 1)
    (call 14 unblock_events 1 si)
    (fail)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 already_loading 2)
    (unify.variable.Yn 1)
    (unify.local.Yn 11)
    (call 13 clause_module 3 si)
    (put.Ai.variable.Yn 4 10)
    (put.Ai.variable.Yn 3 8)
    (put.Ai.variable.Yn 2 7)
    (put.Ai.value.Yn 1 1)
    (call 13 p_procedure 4 si)
    (put.Ai.unsafe.Yn 2 10)
    (put.Ai.value.Yn 1 9)
    (call 12 brother_module 2 si)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.value.Yn 3 9)
    (put.Ai.unsafe.Yn 2 8)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 local_predicate 4 si)
    (put.Ai.value.Yn 1 2)
    (call 9 remove_trap 1 interp)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.constant 2 8)
    (put.Ai.value.Yn 1 1)
    (get.addr)
    (put.Ai.unsafe.Yn 3 6)
    (put.Ai.constant 2 8)
    (put.Ai.value.Yn 1 2)
    (put.addr)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 10)
    (put.Ai.value.Yn 1 1)
    (get.addr)
    (put.Ai.unsafe.Yn 3 5)
    (put.Ai.constant 2 10)
    (put.Ai.value.Yn 1 2)
    (put.addr)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (get.word)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 2)
    (get.word)
    (load.value.Yn 4)
    (load.pos.word 4)
    (boolean.and)
    (load.value.Yn 3)
    (boolean.or)
    (store.variable.Xn 3)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 2)
    (put.word)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 check_traps 1 interp)
    (put.Ai.value.Yn 1 1)
    (call 3 really_abolish 1 si)
    (fail)
)

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

(ASSEMBLE.CLAUSE ( brother_module 2 si ) 17
    (put.Ai.value.Xn 5 1)
    (put.Ai.value.Xn 4 2)
    (allocate)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 brother_module1 2)
    (unify.local.Xn 5)
    (unify.local.Xn 4)
    (call 3 clause_module 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( brother_module 2 si ) 45
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (is.a 128)
    (body.cut)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 6 name 2 si)
    (put.Ai.list 2)
    (unify.constant 37)
    (unify.local.Yn 3)
    (put.Ai.list 1)
    (unify.constant 37)
    (unify.value.Xn 2)
    (put.Ai.list 2)
    (unify.constant 37)
    (unify.value.Xn 1)
    (put.Ai.value.Yn 1 1)
    (call 5 name 2 si)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 brother_module1 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (depart assert_module 2 si)
)

(ASSEMBLE.CLAUSE ( brother_module 2 si ) 14
    (allocate)
    (put.Ai.structure 3 brother_module 2)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (put.Ai.symbol 2 %~N%[Internal% Error%:% %~q%]%~n)
    (put.Ai.symbol 1 user_error)
    (call 3 format 3 format)
    (fail)
)

(ASSEMBLE.CLAUSE ( maybe_brother_module 2 si ) 16
    (get.Ai.value.Xn 2 1)
    (allocate)
    (load.choice.point)
    (store.variable.Yn 1)
    (either 4 16)
    (call 4 development 0 si)
    (load.value.Yn 1)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( maybe_brother_module 2 si ) 6
    (get.Ai.constant 1 user)
    (get.Ai.symbol 2 user)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( maybe_brother_module 2 si ) 18
    (put.Ai.value.Xn 4 1)
    (get.Ai.value.Xn 2 4)
    (allocate)
    (put.Ai.symbol 3 module_facts)
    (put.Ai.symbol 2 true)
    (put.Ai.structure 1 loaded 2)
    (unify.local.Xn 4)
    (unify.void 1)
    (call 3 clause_module 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( maybe_brother_module 2 si ) 2
    (execute brother_module 2 si)
)

(ASSEMBLE.CLAUSE ( retract_auxiliary_predicates 1 si ) 42
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.structure 1 already_loading 2)
    (unify.void 1)
    (unify.local.Yn 1)
    (call 4 retract_all 1 si)
    (put.Ai.structure 1 wrong_module_error 4)
    (unify.void 3)
    (unify.local.Yn 1)
    (call 4 retract_all 1 si)
    (put.Ai.structure 1 is_discontiguous 2)
    (unify.void 1)
    (unify.local.Yn 1)
    (call 4 retract_all 1 si)
    (put.Ai.structure 1 dont_load_procedure 2)
    (unify.void 1)
    (unify.local.Yn 1)
    (call 4 retract_all 1 si)
    (put.Ai.structure 1 multi_style_checking_off 2)
    (unify.void 1)
    (unify.local.Yn 1)
    (depart retract_all 1 si)
)

(ASSEMBLE.CLAUSE ( retract_all 1 si ) 7
    (allocate)
    (put.Ai.symbol 2 si)
    (call 3 retract_module 2 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( retract_all 1 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( abolish_loadcode_facts 0 si ) 50
    (allocate)
    (put.Ai.symbol 3 si)
    (put.Ai.constant 2 2)
    (put.Ai.symbol 1 already_loading)
    (call 3 abolish 3 si)
    (put.Ai.symbol 3 si)
    (put.Ai.constant 2 4)
    (put.Ai.symbol 1 wrong_module_error)
    (call 3 abolish 3 si)
    (put.Ai.symbol 3 si)
    (put.Ai.constant 2 2)
    (put.Ai.symbol 1 is_discontiguous)
    (call 3 abolish 3 si)
    (put.Ai.symbol 3 si)
    (put.Ai.constant 2 2)
    (put.Ai.symbol 1 dont_load_procedure)
    (call 3 abolish 3 si)
    (put.Ai.symbol 3 si)
    (put.Ai.constant 2 2)
    (put.Ai.symbol 1 multi_style_checking_off)
    (depart abolish 3 si)
)

(ASSEMBLE.CLAUSE ( clear_multi_files 1 si ) 29
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (get.word)
    (load.value.Yn 2)
    (load.pos.word 16)
    (boolean.and)
    (load.pos.word 0)
    (not.equal.to)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 multifile 2)
    (unify.local.Yn 1)
    (unify.void 1)
    (call 3 retract_module 2 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( clear_multi_files 1 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( declaration 4 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 337)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( declaration 4 si ) 32
    (get.Ai.structure 1 %, 2)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (head.cut)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (call 7 declaration 4 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 declaration 4 si)
)

(ASSEMBLE.CLAUSE ( declaration 4 si ) 53
    (get.Ai.structure 1 %/ 2)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 5)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 6)
    (get.Ai.variable.Yn 4 3)
    (put.Ai.value.Yn 1 4)
    (is.a 128)
    (put.Ai.value.Yn 1 5)
    (is.a 24)
    (body.cut)
    (put.Ai.variable.Yn 4 7)
    (put.Ai.value.Yn 3 6)
    (put.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 10 predicate_module 4 si)
    (put.Ai.variable.Yn 6 2)
    (put.Ai.value.Yn 5 3)
    (put.Ai.unsafe.Yn 4 7)
    (put.Ai.value.Yn 3 6)
    (put.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 6 find_proc_record 6 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart handle_declaration 3 si)
)

(ASSEMBLE.CLAUSE ( declaration 4 si ) 7
    (put.Ai.value.Xn 3 1)
    (put.Ai.constant 1 337)
    (execute nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( handle_declaration 3 si ) 34
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (call 7 file_index 2 si)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 already_loading 2)
    (unify.local.Yn 1)
    (unify.local.Yn 4)
    (call 6 clause_module 3 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart declaration_not_first 3 si)
)

(ASSEMBLE.CLAUSE ( handle_declaration 3 si ) 23
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 6 maybe_reinitialise_proc 2 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart handle_decl 3 si)
)

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

(ASSEMBLE.CLAUSE ( declaration_not_first 3 si ) 33
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 4)
    (call 7 has_clauses 1 si)
    (body.cut)
    (put.Ai.void 4)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 4)
    (call 6 p_procedure 4 si)
    (put.Ai.structure 3 %/ 2)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 334)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( declaration_not_first 3 si ) 8
    (put.Ai.value.Xn 4 2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.value.Xn 1 4)
    (execute handle_decl 3 si)
)

(ASSEMBLE.CLAUSE ( handle_decl 3 si ) 8
    (get.Ai.structure 1 dynamic 1)
    (unify.void 1)
    (put.Ai.value.Xn 1 2)
    (execute dynamic_procedure 1 si)
)

(ASSEMBLE.CLAUSE ( handle_decl 3 si ) 41
    (get.Ai.structure 1 multifile 1)
    (unify.void 1)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Xn 1 3)
    (put.Ai.variable.Yn 2 3)
    (call 6 compile_flag 2 si)
    (put.Ai.value.Yn 2 1)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 initialise_proc_state 2 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (get.word)
    (load.value.Yn 2)
    (load.pos.word 16)
    (boolean.or)
    (store.variable.Xn 3)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (put.word)
    (progress)
)

(ASSEMBLE.CLAUSE ( initialise_proc_state 2 si ) 10
    (get.Ai.constant 1 compile)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (call 3 compiled_procedure 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( initialise_proc_state 2 si ) 4
    (get.Ai.constant 1 compile)
    (proceed)
)

(ASSEMBLE.CLAUSE ( initialise_proc_state 2 si ) 7
    (get.Ai.constant 1 consult)
    (put.Ai.value.Xn 1 2)
    (execute interpreted_procedure 1 si)
)

(ASSEMBLE.CLAUSE ( compile_flag 2 si ) 8
    (get.Ai.structure 1 flags 4)
    (unify.variable.Xn 1)
    (unify.void 3)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( edit_flag 2 si ) 9
    (get.Ai.structure 1 flags 4)
    (unify.void 1)
    (unify.variable.Xn 1)
    (unify.void 2)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( file_index 2 si ) 9
    (get.Ai.structure 1 flags 4)
    (unify.void 2)
    (unify.variable.Xn 1)
    (unify.void 1)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( input_stream 2 si ) 8
    (get.Ai.structure 1 flags 4)
    (unify.void 3)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

STOP