(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