(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 ) 41
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 8 valid←file←spec 2 si)
    (put.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 1 2)
    (call 7 valid←file←spec 2 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 4)
    (call 6 make←absolute←path 2 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 possibly←add←pl←extension 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart cannonical←file←name 2 si)
)

(ASSEMBLE.CLAUSE ( cannonical←file←name 2 si ) 7
    (start.calling QP%.CANNONICAL%.FILE%.NAME 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(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