(ASSEMBLE.CLAUSE ( open 3 si ) 31
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 1)
    (either 6 17)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (jump.to 21)
    (or.finally)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (body.cut)
    (put.Ai.structure 2 open 3)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (put.Ai.constant 1 150)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( open 3 si ) 18
    (get.Ai.constant 1 user)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.structure 2 open 3)
    (unify.symbol user)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 150)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( open 3 si ) 18
    (get.Ai.constant 1 user_input)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.structure 2 open 3)
    (unify.symbol user_input)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 150)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( open 3 si ) 18
    (get.Ai.constant 1 user_output)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.structure 2 open 3)
    (unify.symbol user_output)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 150)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( open 3 si ) 18
    (get.Ai.constant 1 user_error)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.structure 2 open 3)
    (unify.symbol user_error)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 150)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( open 3 si ) 48
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.structure 3 %$stream 2)
    (unify.variable.Yn 1)
    (unify.variable.Yn 6)
    (gettopval QP%.STREAM%.COUNTER)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.value.Yn 1)
    (put.Ai.variable.Yn 2 5)
    (put.Ai.value.Yn 1 3)
    (call 9 make_absolute_path 2 si)
    (put.Ai.variable.Yn 5 2)
    (put.Ai.value.Yn 4 1)
    (put.Ai.value.Yn 3 6)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 6 open_file 5 si)
    (put.Ai.value.Yn 2 3)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 stream_status 2 si)
    (load.value.Yn 1)
    (settopval QP%.STREAM%.COUNTER)
    (progress)
)

(ASSEMBLE.CLAUSE ( open_file 5 si ) 13
    (get.Ai.constant 1 read)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 3 4)
    (put.Ai.value.Xn 4 5)
    (execute open_read 4 si)
)

(ASSEMBLE.CLAUSE ( open_file 5 si ) 13
    (get.Ai.constant 1 write)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 3 4)
    (put.Ai.value.Xn 4 5)
    (execute open_write 4 si)
)

(ASSEMBLE.CLAUSE ( open_file 5 si ) 13
    (get.Ai.constant 1 append)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 3 4)
    (put.Ai.value.Xn 4 5)
    (execute open_append 4 si)
)

(ASSEMBLE.CLAUSE ( open_null_stream 1 si ) 31
    (get.Ai.structure 1 %$stream 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Xn 1)
    (gettopval QP%.STREAM%.COUNTER)
    (store.variable.Xn 2)
    (load.value.Xn 2)
    (add.pos.word 1)
    (store.value.Yn 1)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (call 5 open_null_write 3 si)
    (put.Ai.symbol 2 null% stream)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 stream_status 2 si)
    (load.value.Yn 1)
    (settopval QP%.STREAM%.COUNTER)
    (progress)
)

(ASSEMBLE.CLAUSE ( close 1 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 152)
    (depart nerror 2 si)
)

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

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

(ASSEMBLE.CLAUSE ( close 1 si ) 4
    (get.Ai.constant 1 user_output)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( close 1 si ) 4
    (get.Ai.constant 1 user_error)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( close 1 si ) 20
    (get.Ai.structure 1 %$stream 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 5 reset_if_current 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart p_close 2 si)
)

(ASSEMBLE.CLAUSE ( close 1 si ) 12
    (allocate)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.void 2)
    (call 4 current_stream 3 si)
    (body.cut)
    (put.Ai.unsafe.Yn 1 1)
    (depart close 1 si)
)

(ASSEMBLE.CLAUSE ( close 1 si ) 3
    (allocate)
    (is.a 128)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( close 1 si ) 7
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 152)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( reset_if_current 2 si ) 16
    (put.Ai.value.Xn 3 1)
    (allocate)
    (put.Ai.structure 1 %$stream 2)
    (unify.local.Xn 3)
    (unify.local.Xn 2)
    (call 3 current_input 1 si)
    (body.cut)
    (put.Ai.symbol 1 user_input)
    (depart set_input 1 si)
)

(ASSEMBLE.CLAUSE ( reset_if_current 2 si ) 16
    (put.Ai.value.Xn 3 1)
    (allocate)
    (put.Ai.structure 1 %$stream 2)
    (unify.local.Xn 3)
    (unify.local.Xn 2)
    (call 3 current_output 1 si)
    (body.cut)
    (put.Ai.symbol 1 user_output)
    (depart set_output 1 si)
)

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

(ASSEMBLE.CLAUSE ( closefiles 0 si ) 24
    (allocate)
    (put.Ai.symbol 1 user_input)
    (call 4 set_input 1 si)
    (put.Ai.symbol 1 user_output)
    (call 4 set_output 1 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.void 2)
    (put.Ai.void 1)
    (call 4 current_stream 3 si)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 close 1 si)
    (fail)
)

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

(ASSEMBLE.CLAUSE ( current_stream 3 si ) 44
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.structure 3 %$stream 2)
    (unify.variable.Yn 1)
    (unify.variable.Yn 2)
    (load.choice.point)
    (store.variable.Yn 6)
    (either 9 31)
    (put.Ai.value.Yn 1 5)
    (is.a 254)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 5)
    (call 8 make_absolute_path 2 si)
    (jump.to 36)
    (or.finally)
    (put.Ai.variable.Yn 1 3)
    (get.Ai.value.Yn 1 5)
    (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 current_stream 4 si)
)

(ASSEMBLE.CLAUSE ( current_stream 4 si ) 47
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 6)
    (get.Ai.variable.Yn 4 2)
    (put.Ai.value.Yn 1 3)
    (is.a 24)
    (body.cut)
    (load.value.Yn 3)
    (load.pos.word 3)
    (not.less.than)
    (load.value.Yn 3)
    (load.pos.word 20)
    (not.greater.than)
    (put.Ai.constant 6 1)
    (put.Ai.variable.Yn 5 1)
    (put.Ai.value.Yn 4 6)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 1 3)
    (call 7 str_opened 6 si)
    (put.Ai.unsafe.Yn 1 4)
    (get.Ai.value.Yn 1 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart mode_number 2 si)
)

(ASSEMBLE.CLAUSE ( current_stream 4 si ) 32
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 5)
    (get.Ai.variable.Yn 4 2)
    (put.Ai.value.Yn 1 4)
    (is.a 1)
    (put.Ai.variable.Yn 5 1)
    (put.Ai.value.Yn 4 5)
    (put.Ai.value.Yn 3 4)
    (put.Ai.value.Yn 2 3)
    (put.Ai.constant 1 3)
    (call 5 current_stream1 5 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart mode_number 2 si)
)

(ASSEMBLE.CLAUSE ( current_stream1 5 si ) 62
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 3)
    (get.Ai.variable.Yn 5 4)
    (load.value.Xn 1)
    (load.pos.word 20)
    (not.greater.than)
    (put.Ai.constant 6 1)
    (put.Ai.variable.Yn 5 6)
    (put.Ai.variable.Yn 4 7)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 2 8)
    (call 11 str_opened 6 si)
    (either 11 49)
    (put.Ai.unsafe.Yn 1 8)
    (get.Ai.value.Yn 1 1)
    (put.Ai.value.Yn 1 5)
    (get.Ai.value.Yn 1 2)
    (put.Ai.unsafe.Yn 1 7)
    (get.Ai.value.Yn 1 3)
    (put.Ai.unsafe.Yn 1 6)
    (get.Ai.value.Yn 1 4)
    (progress)
    (or.finally)
    (load.value.Yn 5)
    (add.pos.word 1)
    (store.variable.Xn 1)
    (put.Ai.value.Yn 5 4)
    (put.Ai.value.Yn 4 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (depart current_stream1 5 si)
)

(ASSEMBLE.CLAUSE ( flush_output 1 si ) 14
    (allocate)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 5 outsex 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart p_flush 2 si)
)

(ASSEMBLE.CLAUSE ( set_input 1 si ) 16
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (body.cut)
    (put.Ai.structure 2 set_input 1)
    (unify.local.Yn 1)
    (put.Ai.constant 1 151)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( set_input 1 si ) 14
    (allocate)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 5 insex 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart p_set_input 2 si)
)

(ASSEMBLE.CLAUSE ( set_output 1 si ) 16
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (body.cut)
    (put.Ai.structure 2 set_output 1)
    (unify.local.Yn 1)
    (put.Ai.constant 1 151)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( set_output 1 si ) 14
    (allocate)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 5 outsex 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart p_set_output 2 si)
)

(ASSEMBLE.CLAUSE ( current_input 1 si ) 29
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 1 2)
    (call 6 p_current_input 2 si)
    (load.value.Yn 2)
    (load.neg.word -1)
    (equal.to.else 23)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 user_input)
    (progress)
    (put.Ai.value.Yn 1 3)
    (get.Ai.structure 1 %$stream 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( current_output 1 si ) 40
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 1 2)
    (call 6 p_current_output 2 si)
    (load.value.Yn 2)
    (load.neg.word -1)
    (equal.to.else 34)
    (load.value.Yn 1)
    (load.pos.word 1)
    (equal.to.else 28)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 user_output)
    (progress)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 user_error)
    (progress)
    (put.Ai.value.Yn 1 3)
    (get.Ai.structure 1 %$stream 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( character_count 2 si ) 19
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 6 outsex 3 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pchar_count 3 si)
)

(ASSEMBLE.CLAUSE ( character_count 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 6 insex 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pchar_count 3 si)
)

(ASSEMBLE.CLAUSE ( line_count 2 si ) 19
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 6 outsex 3 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pline_count 3 si)
)

(ASSEMBLE.CLAUSE ( line_count 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 6 insex 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pline_count 3 si)
)

(ASSEMBLE.CLAUSE ( line_position 2 si ) 19
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 6 outsex 3 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pline_position 3 si)
)

(ASSEMBLE.CLAUSE ( line_position 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 6 insex 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pline_position 3 si)
)

(ASSEMBLE.CLAUSE ( put 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (either 4 11)
    (is.a 1)
    (jump.to 15)
    (or.finally)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( put 2 si ) 13
    (get.Ai.constant 1 user)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 1)
    (put.Ai.constant 1 -1)
    (execute put_2 3 si)
)

(ASSEMBLE.CLAUSE ( put 2 si ) 13
    (get.Ai.constant 1 user_output)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 1)
    (put.Ai.constant 1 -1)
    (execute put_2 3 si)
)

(ASSEMBLE.CLAUSE ( put 2 si ) 13
    (get.Ai.constant 1 user_error)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 2)
    (put.Ai.constant 1 -1)
    (execute put_2 3 si)
)

(ASSEMBLE.CLAUSE ( put 2 si ) 11
    (get.Ai.structure 1 %$stream 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 4)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 4)
    (execute put_2 3 si)
)

(ASSEMBLE.CLAUSE ( put 2 si ) 10
    (get.Ai.constant 1 user_input)
    (put.Ai.symbol 2 user_input)
    (put.Ai.constant 1 153)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( get0 2 si ) 4
    (allocate)
    (is.a 1)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( get0 2 si ) 13
    (get.Ai.constant 1 user)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 0)
    (put.Ai.constant 1 -1)
    (execute get0_2 3 si)
)

(ASSEMBLE.CLAUSE ( get0 2 si ) 13
    (get.Ai.constant 1 user_input)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 0)
    (put.Ai.constant 1 -1)
    (execute get0_2 3 si)
)

(ASSEMBLE.CLAUSE ( get0 2 si ) 11
    (get.Ai.structure 1 %$stream 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 4)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 4)
    (execute get0_2 3 si)
)

(ASSEMBLE.CLAUSE ( get0 2 si ) 10
    (get.Ai.constant 1 user_output)
    (put.Ai.symbol 2 user_output)
    (put.Ai.constant 1 154)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( get0 2 si ) 10
    (get.Ai.constant 1 user_error)
    (put.Ai.symbol 2 user_error)
    (put.Ai.constant 1 154)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( nl 1 si ) 5
    (put.Ai.constant 2 13)
    (execute put 2 si)
)

(ASSEMBLE.CLAUSE ( nl 0 si ) 5
    (put.Ai.constant 1 13)
    (execute put 1 si)
)

(ASSEMBLE.CLAUSE ( tab 2 si ) 30
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.value.Yn 2)
    (load.pos.word 0)
    (greater.than.else 31)
    (put.Ai.constant 2 32)
    (put.Ai.value.Yn 1 1)
    (call 5 put 2 si)
    (load.value.Yn 2)
    (add.neg.word -1)
    (store.variable.Xn 2)
    (put.Ai.value.Yn 1 1)
    (depart tab 2 si)
    (progress)
)

(ASSEMBLE.CLAUSE ( tab 1 si ) 24
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 1)
    (load.pos.word 0)
    (greater.than.else 25)
    (put.Ai.constant 1 32)
    (call 4 put 1 si)
    (load.value.Yn 1)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (depart tab 1 si)
    (progress)
)

(ASSEMBLE.CLAUSE ( get 2 si ) 34
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (call 5 repeat 0 si)
    (put.Ai.value.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 get0 2 si)
    (either 4 30)
    (load.value.Yn 1)
    (load.pos.word 32)
    (greater.than)
    (load.value.Yn 1)
    (load.pos.word 127)
    (less.than)
    (jump.to 35)
    (or.finally)
    (load.value.Yn 1)
    (load.neg.word -1)
    (equal.to)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( get 1 si ) 30
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (call 4 repeat 0 si)
    (put.Ai.value.Yn 1 1)
    (call 4 get0 1 si)
    (either 4 26)
    (load.value.Yn 1)
    (load.pos.word 32)
    (greater.than)
    (load.value.Yn 1)
    (load.pos.word 127)
    (less.than)
    (jump.to 31)
    (or.finally)
    (load.value.Yn 1)
    (load.neg.word -1)
    (equal.to)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( skip 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.value.Yn 2)
    (load.pos.word 0)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 127)
    (not.greater.than)
    (call 5 repeat 0 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 3 get0 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( skip 1 si ) 23
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 1)
    (load.pos.word 0)
    (not.less.than)
    (load.value.Yn 1)
    (load.pos.word 127)
    (not.greater.than)
    (call 4 repeat 0 si)
    (put.Ai.value.Yn 1 1)
    (call 3 get0 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( see 1 si ) 16
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (body.cut)
    (put.Ai.structure 2 see 1)
    (unify.local.Yn 1)
    (put.Ai.constant 1 151)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( see 1 si ) 8
    (get.Ai.constant 1 user)
    (head.cut)
    (put.Ai.symbol 1 user_input)
    (execute set_input 1 si)
)

(ASSEMBLE.CLAUSE ( see 1 si ) 8
    (get.Ai.constant 1 user_input)
    (head.cut)
    (put.Ai.symbol 1 user_input)
    (execute set_input 1 si)
)

(ASSEMBLE.CLAUSE ( see 1 si ) 13
    (get.Ai.structure 1 %$stream 2)
    (unify.variable.Xn 3)
    (unify.variable.Xn 2)
    (head.cut)
    (put.Ai.structure 1 %$stream 2)
    (unify.value.Xn 3)
    (unify.value.Xn 2)
    (execute set_input 1 si)
)

(ASSEMBLE.CLAUSE ( see 1 si ) 13
    (allocate)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.symbol 2 read)
    (call 4 current_stream 3 si)
    (body.cut)
    (put.Ai.unsafe.Yn 1 1)
    (depart set_input 1 si)
)

(ASSEMBLE.CLAUSE ( see 1 si ) 12
    (allocate)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.symbol 2 read)
    (call 4 open 3 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart set_input 1 si)
)

(ASSEMBLE.CLAUSE ( seeing 1 si ) 2
    (execute current_input 1 si)
)

(ASSEMBLE.CLAUSE ( seen 0 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 current_input 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart close 1 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 16
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (body.cut)
    (put.Ai.structure 2 tell 1)
    (unify.local.Yn 1)
    (put.Ai.constant 1 151)
    (depart nerror 2 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 8
    (get.Ai.constant 1 user)
    (head.cut)
    (put.Ai.symbol 1 user_output)
    (execute set_output 1 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 8
    (get.Ai.constant 1 user_output)
    (head.cut)
    (put.Ai.symbol 1 user_output)
    (execute set_output 1 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 8
    (get.Ai.constant 1 user_error)
    (head.cut)
    (put.Ai.symbol 1 user_error)
    (execute set_output 1 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 13
    (get.Ai.structure 1 %$stream 2)
    (unify.variable.Xn 3)
    (unify.variable.Xn 2)
    (head.cut)
    (put.Ai.structure 1 %$stream 2)
    (unify.value.Xn 3)
    (unify.value.Xn 2)
    (execute set_output 1 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 18
    (allocate)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.variable.Yn 2 2)
    (call 5 current_stream 3 si)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 output_mode 1 si)
    (body.cut)
    (put.Ai.unsafe.Yn 1 1)
    (depart set_output 1 si)
)

(ASSEMBLE.CLAUSE ( tell 1 si ) 12
    (allocate)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.symbol 2 write)
    (call 4 open 3 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart set_output 1 si)
)

(ASSEMBLE.CLAUSE ( telling 1 si ) 2
    (execute current_output 1 si)
)

(ASSEMBLE.CLAUSE ( told 0 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 current_output 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart close 1 si)
)

(ASSEMBLE.CLAUSE ( output_mode 1 si ) 4
    (get.Ai.constant 1 write)
    (proceed)
)

(ASSEMBLE.CLAUSE ( output_mode 1 si ) 4
    (get.Ai.constant 1 append)
    (proceed)
)

(ASSEMBLE.CLAUSE ( mode_number 2 si ) 6
    (get.Ai.constant 1 0)
    (get.Ai.symbol 2 read)
    (proceed)
)

(ASSEMBLE.CLAUSE ( mode_number 2 si ) 6
    (get.Ai.constant 1 1)
    (get.Ai.symbol 2 write)
    (proceed)
)

(ASSEMBLE.CLAUSE ( mode_number 2 si ) 6
    (get.Ai.constant 1 2)
    (get.Ai.symbol 2 append)
    (proceed)
)

(ASSEMBLE.CLAUSE ( stream_status 2 si ) 5
    (allocate)
    (call 3 io_ok 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( stream_status 2 si ) 2
    (execute nerror 2 si)
)

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

(ASSEMBLE.CLAUSE ( fileerrors 0 si ) 5
    (load.pos.word 0)
    (settopval QP%.FILE%.ERRORS)
    (proceed)
)

(ASSEMBLE.CLAUSE ( nofileerrors 0 si ) 5
    (load.pos.word 1)
    (settopval QP%.FILE%.ERRORS)
    (proceed)
)

(ASSEMBLE.CLAUSE ( fileerrors 2 si ) 13
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (gettopval QP%.FILE%.ERRORS)
    (store.value.Xn 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 1)
    (settopval QP%.FILE%.ERRORS)
    (progress)
)

(ASSEMBLE.CLAUSE ( file_exists 1 si ) 5
    (put.Ai.constant 2 1)
    (execute file_exists 2 si)
)

(ASSEMBLE.CLAUSE ( ttyget 1 si ) 6
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 user)
    (execute get 2 si)
)

(ASSEMBLE.CLAUSE ( ttyget0 1 si ) 6
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 user)
    (execute get0 2 si)
)

(ASSEMBLE.CLAUSE ( ttyskip 1 si ) 6
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 user)
    (execute skip 2 si)
)

(ASSEMBLE.CLAUSE ( ttytab 1 si ) 6
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 user)
    (execute tab 2 si)
)

(ASSEMBLE.CLAUSE ( ttynl 0 si ) 4
    (put.Ai.symbol 1 user)
    (execute nl 1 si)
)

(ASSEMBLE.CLAUSE ( ttyput 1 si ) 6
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 user)
    (execute put 2 si)
)

(ASSEMBLE.CLAUSE ( ttyflush 0 si ) 4
    (put.Ai.symbol 1 user)
    (execute flush_output 1 si)
)

(ASSEMBLE.CLAUSE ( put_token 1 si ) 5
    (put.Ai.constant 2 0)
    (execute put_token 2 si)
)

(ASSEMBLE.CLAUSE ( insex 3 si ) 12
    (get.Ai.structure 1 %$stream 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 4)
    (get.Ai.value.Xn 2 1)
    (get.Ai.value.Xn 3 4)
    (head.cut)
    (is.a 254)
    (proceed)
)

(ASSEMBLE.CLAUSE ( insex 3 si ) 10
    (get.Ai.constant 1 user_input)
    (get.Ai.constant 2 -1)
    (get.Ai.constant 3 0)
    (proceed)
)

(ASSEMBLE.CLAUSE ( insex 3 si ) 10
    (get.Ai.constant 1 user)
    (get.Ai.constant 2 -1)
    (get.Ai.constant 3 0)
    (proceed)
)

(ASSEMBLE.CLAUSE ( outsex 3 si ) 12
    (get.Ai.structure 1 %$stream 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 4)
    (get.Ai.value.Xn 2 1)
    (get.Ai.value.Xn 3 4)
    (head.cut)
    (is.a 254)
    (proceed)
)

(ASSEMBLE.CLAUSE ( outsex 3 si ) 10
    (get.Ai.constant 1 user_output)
    (get.Ai.constant 2 -1)
    (get.Ai.constant 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( outsex 3 si ) 10
    (get.Ai.constant 1 user)
    (get.Ai.constant 2 -1)
    (get.Ai.constant 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( outsex 3 si ) 10
    (get.Ai.constant 1 user_error)
    (get.Ai.constant 2 -1)
    (get.Ai.constant 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( stream_code 2 si ) 21
    (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.structure 2 stream_code 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (put.Ai.constant 1 155)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( stream_code 2 si ) 20
    (get.Ai.constant 1 user_input)
    (put.Ai.value.Xn 3 2)
    (head.cut)
    (put.Ai.structure 4 stream_code 2)
    (unify.symbol user_input)
    (unify.local.Xn 3)
    (put.Ai.constant 2 0)
    (put.Ai.constant 1 -1)
    (execute convert_stream 4 si)
)

(ASSEMBLE.CLAUSE ( stream_code 2 si ) 20
    (get.Ai.constant 1 user_output)
    (put.Ai.value.Xn 3 2)
    (head.cut)
    (put.Ai.structure 4 stream_code 2)
    (unify.symbol user_output)
    (unify.local.Xn 3)
    (put.Ai.constant 2 1)
    (put.Ai.constant 1 -1)
    (execute convert_stream 4 si)
)

(ASSEMBLE.CLAUSE ( stream_code 2 si ) 20
    (get.Ai.constant 1 user_error)
    (put.Ai.value.Xn 3 2)
    (head.cut)
    (put.Ai.structure 4 stream_code 2)
    (unify.symbol user_error)
    (unify.local.Xn 3)
    (put.Ai.constant 2 2)
    (put.Ai.constant 1 -1)
    (execute convert_stream 4 si)
)

(ASSEMBLE.CLAUSE ( stream_code 2 si ) 36
    (get.Ai.structure 1 %$stream 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.structure 3 %$stream 2)
    (unify.value.Yn 1)
    (unify.value.Yn 2)
    (put.Ai.void 2)
    (put.Ai.void 1)
    (call 6 current_stream 3 si)
    (put.Ai.structure 1 %$stream 2)
    (unify.value.Yn 1)
    (unify.value.Yn 2)
    (put.Ai.structure 4 stream_code 2)
    (unify.value.Xn 1)
    (unify.local.Yn 3)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart convert_stream 4 si)
)

(ASSEMBLE.CLAUSE ( convert_stream 4 si ) 21
    (get.Ai.constant 3 0)
    (load.value.Xn 2)
    (load.pos.word 0)
    (less.than)
    (load.value.Xn 2)
    (load.pos.word 31)
    (greater.than)
    (head.cut)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 4)
    (put.Ai.constant 1 156)
    (execute nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( convert_stream 4 si ) 22
    (get.Ai.constant 3 0)
    (put.Ai.value.Xn 2 4)
    (load.value.Xn 1)
    (load.pos.word 0)
    (less.than)
    (load.value.Xn 1)
    (load.constant 8388607)
    (greater.than)
    (head.cut)
    (put.Ai.value.Xn 3 1)
    (put.Ai.constant 1 157)
    (execute nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( convert_stream 4 si ) 8
    (load.value.Xn 1)
    (load.pos.word 5)
    (left.shift)
    (load.value.Xn 2)
    (boolean.or)
    (store.value.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( stream_position 3 si ) 24
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 1)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.structure 2 stream_position 3)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (put.Ai.constant 1 143)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( stream_position 3 si ) 18
    (get.Ai.constant 1 user)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.structure 2 stream_position 3)
    (unify.symbol user)
    (unify.local.Xn 1)
    (unify.local.Xn 3)
    (put.Ai.constant 1 131)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( stream_position 3 si ) 41
    (allocate)
    (get.Ai.variable.Yn 2 6)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 9 stream_code 2 si)
    (put.Ai.variable.Yn 4 3)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 2 5)
    (put.Ai.value.Yn 1 1)
    (call 9 stream_tell 4 si)
    (put.Ai.value.Yn 1 6)
    (get.Ai.structure 1 %$stream_position 3)
    (unify.local.Yn 5)
    (unify.local.Yn 4)
    (unify.local.Yn 3)
    (put.Ai.value.Yn 1 2)
    (get.Ai.structure 1 %$stream_position 3)
    (unify.variable.Xn 2)
    (unify.variable.Xn 3)
    (unify.variable.Xn 4)
    (put.Ai.unsafe.Yn 1 1)
    (depart stream_seek 4 si)
)

(ASSEMBLE.CLAUSE ( absolute_file_name 2 si ) 11
    (put.Ai.value.Xn 4 2)
    (put.Ai.value.Xn 3 4)
    (put.Ai.structure 2 absolute_file_name 2)
    (unify.local.Xn 1)
    (unify.local.Xn 4)
    (execute absolute_file_name 3 si)
)

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

(ASSEMBLE.CLAUSE ( absolute_file_name 3 si ) 6
    (get.Ai.constant 1 user)
    (get.Ai.symbol 3 user)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( absolute_file_name 3 si ) 34
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (call 7 valid_file_spec 2 si)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 2)
    (call 6 valid_file_spec 2 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 5 make_absolute_path 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart possibly_add_pl_extension 2 si)
)

(ASSEMBLE.CLAUSE ( make_absolute_path 2 si ) 42
    (get.Ai.structure 1 pathname 7)
    (unify.variable.Xn 8)
    (unify.variable.Xn 7)
    (unify.variable.Xn 6)
    (unify.variable.Xn 5)
    (unify.variable.Xn 4)
    (unify.variable.Xn 3)
    (unify.variable.Xn 1)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (head.cut)
    (put.Ai.structure 2 pathname 7)
    (unify.value.Xn 8)
    (unify.value.Xn 7)
    (unify.value.Xn 6)
    (unify.value.Xn 5)
    (unify.value.Xn 4)
    (unify.value.Xn 3)
    (unify.value.Xn 1)
    (put.Ai.variable.Yn 1 3)
    (call 6 pathname 2 pathname)
    (put.Ai.unsafe.Yn 2 3)
    (put.Ai.variable.Yn 1 1)
    (call 5 name 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart absolute_path 2 si)
)

(ASSEMBLE.CLAUSE ( make_absolute_path 2 si ) 7
    (get.Ai.structure 1 library 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute find_library_file 2 si)
)

(ASSEMBLE.CLAUSE ( make_absolute_path 2 si ) 22
    (get.Ai.structure 1 runtime 1)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 2 3)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 installation_directory 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.list 2)
    (unify.value.Yn 2)
    (unify.nil)
    (put.Ai.unsafe.Yn 1 1)
    (depart add_file_to_path 3 si)
)

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

(ASSEMBLE.CLAUSE ( make_absolute_path 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 2 2)
    (call 5 absolute_path 2 si)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 5 22)
    (put.Ai.value.Yn 2 2)
    (get.Ai.symbol 2 |.(MKATOM ""))
    (load.value.Xn 1)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (body.cut)
    (put.Ai.unsafe.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( make_absolute_path 2 si ) 7
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 394)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( valid_file_spec 2 si ) 3
    (allocate)
    (is.a 1)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( valid_file_spec 2 si ) 2
    (execute check_file_spec 2 si)
)

(ASSEMBLE.CLAUSE ( check_file_spec 2 si ) 7
    (get.Ai.structure 1 library 1)
    (unify.variable.Xn 1)
    (head.cut)
    (is.a 128)
    (proceed)
)

(ASSEMBLE.CLAUSE ( check_file_spec 2 si ) 7
    (get.Ai.structure 1 runtime 1)
    (unify.variable.Xn 1)
    (head.cut)
    (is.a 128)
    (proceed)
)

(ASSEMBLE.CLAUSE ( check_file_spec 2 si ) 5
    (get.Ai.structure 1 pathname 7)
    (unify.void 7)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( check_file_spec 2 si ) 3
    (allocate)
    (is.a 128)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( check_file_spec 2 si ) 7
    (put.Ai.value.Xn 3 1)
    (put.Ai.constant 1 391)
    (execute nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( possibly_add_pl_extension 2 si ) 67
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 5)
    (is.a 128)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 5)
    (call 7 name 2 si)
    (load.choice.point)
    (store.variable.Yn 4)
    (either 7 33)
    (put.Ai.value.Yn 2 3)
    (put.Ai.constant 1 46)
    (call 7 member 2 si)
    (load.value.Yn 4)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.list 2)
    (unify.constant 108)
    (unify.nil)
    (put.Ai.list 1)
    (unify.constant 112)
    (unify.value.Xn 2)
    (put.Ai.list 2)
    (unify.constant 46)
    (unify.value.Xn 1)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 conc 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 4 name 2 si)
    (put.Ai.value.Yn 1 1)
    (call 3 file_exists 1 si)
    (depart.cut)
)

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

(ASSEMBLE.CLAUSE ( find_library_file 2 si ) 43
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 2 5)
    (call 8 list_of_possible_names 2 si)
    (put.Ai.variable.Yn 1 3)
    (call 8 library_directory 1 user)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.variable.Yn 1 4)
    (call 7 member 2 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.list 2)
    (unify.local.Yn 4)
    (unify.nil)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 add_file_to_path 3 si)
    (put.Ai.value.Yn 2 1)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 absolute_path 2 si)
    (put.Ai.value.Yn 1 1)
    (call 3 file_exists 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( find_library_file 2 si ) 7
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 140)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( list_of_possible_names 2 si ) 18
    (get.Ai.list 2)
    (unify.local.Xn 1)
    (unify.nil)
    (allocate)
    (put.Ai.variable.Yn 2 1)
    (call 4 name 2 si)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.constant 1 46)
    (call 3 member 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( list_of_possible_names 2 si ) 39
    (get.Ai.list 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.list)
    (unify.local.Xn 1)
    (unify.nil)
    (put.Ai.variable.Yn 2 3)
    (call 6 name 2 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.list 2)
    (unify.constant 108)
    (unify.nil)
    (put.Ai.list 1)
    (unify.constant 112)
    (unify.value.Xn 2)
    (put.Ai.list 2)
    (unify.constant 46)
    (unify.value.Xn 1)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 conc 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

STOP