(ASSEMBLE.CLAUSE ( nerror 2 si ) 9
    (put.Ai.value.Xn 4 2)
    (put.Ai.symbol 3 here)
    (put.Ai.list 2)
    (unify.local.Xn 4)
    (unify.nil)
    (execute error 3 si)
)

(ASSEMBLE.CLAUSE ( nerror2 3 si ) 14
    (put.Ai.value.Xn 5 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.symbol 3 here)
    (put.Ai.list 4)
    (unify.local.Xn 2)
    (unify.nil)
    (put.Ai.list 2)
    (unify.local.Xn 5)
    (unify.value.Xn 4)
    (execute error 3 si)
)

(ASSEMBLE.CLAUSE ( error 3 si ) 40
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 5 5)
    (put.Ai.variable.Yn 4 4)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.value.Yn 1 3)
    (call 9 error 5 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 error_action 2 si)
    (put.Ai.unsafe.Yn 4 5)
    (put.Ai.unsafe.Yn 3 4)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 1)
    (call 5 report_error 4 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart do_error_action 2 si)
)

(ASSEMBLE.CLAUSE ( error 5 si ) 10
    (get.Ai.symbol 3 abort)
    (get.Ai.symbol 4 unix_error)
    (get.Ai.nil 5)
    (load.value.Xn 1)
    (load.pos.word 100)
    (less.than)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( error 5 si ) 9
    (get.Ai.value.Xn 5 2)
    (allocate)
    (put.Ai.value.Xn 2 4)
    (call 3 errortab 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( error 5 si ) 7
    (get.Ai.symbol 3 abort)
    (get.Ai.symbol 4 the% culprit% is% %~w)
    (get.Ai.value.Xn 5 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( report_error 4 si ) 15
    (allocate)
    (put.Ai.constant 1 1)
    (get.Ai.constant 1 0)
    (put.Ai.symbol 2 user)
    (put.Ai.symbol 1 suppress_error_messages)
    (call 3 call_direct 2 interp)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( report_error 4 si ) 4
    (get.Ai.constant 1 silent_fail)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( report_error 4 si ) 6
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 4)
    (execute print_error 3 si)
)

(ASSEMBLE.CLAUSE ( print_error 3 si ) 29
    (get.Ai.constant 1 unix_error)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (head.cut)
    (put.Ai.list 3)
    (unify.local.Yn 1)
    (unify.nil)
    (put.Ai.symbol 2 %[% Operating% system% error% %~w%:% )
    (put.Ai.symbol 1 user_error)
    (call 4 format 3 format)
    (put.Ai.value.Yn 1 1)
    (call 3 print_opsys_error 1 si)
    (put.Ai.nil 3)
    (put.Ai.symbol 2 % %]%~n)
    (put.Ai.symbol 1 user_error)
    (depart format 3 format)
)

(ASSEMBLE.CLAUSE ( print_error 3 si ) 33
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.nil 3)
    (put.Ai.symbol 2 %~N%[ERROR%:% )
    (put.Ai.symbol 1 user_error)
    (call 6 format 3 format)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.symbol 1 user_error)
    (call 4 format 3 format)
    (put.Ai.list 3)
    (unify.local.Yn 1)
    (unify.nil)
    (put.Ai.symbol 2 % %(error% %~d%)%]%~n)
    (put.Ai.symbol 1 user_error)
    (depart format 3 format)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 7
    (get.Ai.constant 1 silent_fail)
    (get.Ai.symbol 2 here)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 8
    (get.Ai.constant 1 abort)
    (get.Ai.symbol 2 here)
    (head.cut)
    (execute abort 0 si)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 7
    (get.Ai.constant 1 fail)
    (get.Ai.symbol 2 here)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 6
    (get.Ai.constant 1 true)
    (get.Ai.symbol 2 here)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 13
    (get.Ai.constant 1 trace)
    (get.Ai.symbol 2 here)
    (put.Ai.constant 1 1)
    (get.Ai.constant 1 0)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 12
    (get.Ai.constant 1 trace)
    (get.Ai.symbol 2 here)
    (head.cut)
    (allocate)
    (load.pos.word 2)
    (settopval QP%.TRACE%.STATE)
    (fail)
)

(ASSEMBLE.CLAUSE ( do_error_action 2 si ) 3
    (get.Ai.symbol 2 top)
    (proceed)
)

(ASSEMBLE.CLAUSE ( error_action 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 2 1)
    (call 5 error_flag 2 si)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart action_code 2 si)
)

(ASSEMBLE.CLAUSE ( error_action 2 si ) 2
    (execute default_error_action 2 si)
)

(ASSEMBLE.CLAUSE ( default_error_action 2 si ) 6
    (get.Ai.constant 1 trace)
    (get.Ai.symbol 2 trace)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( default_error_action 2 si ) 6
    (get.Ai.constant 1 true)
    (get.Ai.symbol 2 true)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( default_error_action 2 si ) 6
    (get.Ai.constant 1 fail)
    (get.Ai.symbol 2 fail)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( default_error_action 2 si ) 6
    (get.Ai.constant 1 silent_fail)
    (get.Ai.symbol 2 silent_fail)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( default_error_action 2 si ) 3
    (get.Ai.symbol 2 abort)
    (proceed)
)

(ASSEMBLE.CLAUSE ( action_code 2 si ) 6
    (get.Ai.constant 1 0)
    (get.Ai.symbol 2 abort)
    (proceed)
)

(ASSEMBLE.CLAUSE ( action_code 2 si ) 6
    (get.Ai.constant 1 1)
    (get.Ai.symbol 2 silent_fail)
    (proceed)
)

(ASSEMBLE.CLAUSE ( action_code 2 si ) 6
    (get.Ai.constant 1 2)
    (get.Ai.symbol 2 trace)
    (proceed)
)

(ASSEMBLE.CLAUSE ( action_code 2 si ) 6
    (get.Ai.constant 1 3)
    (get.Ai.symbol 2 fail)
    (proceed)
)

(ASSEMBLE.CLAUSE ( error_flag 2 si ) 8
    (get.Ai.constant 1 failable_io)
    (head.cut)
    (gettopval QP%.FILE%.ERRORS)
    (store.value.Xn 2)
    (proceed)
)

STOP