(ASSEMBLE.CLAUSE ( manual 0 si ) 4
    (put.Ai.symbol 1 manuals)
    (execute manual 1 si)
)

(ASSEMBLE.CLAUSE ( manual 1 si ) 15
    (allocate)
    (load.choice.point)
    (store.variable.Yn 1)
    (either 4 14)
    (call 4 ground←check 1 si)
    (load.value.Yn 1)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( manual 1 si ) 25
    (get.Ai.constant 1 manuals)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.nil 2)
    (put.Ai.symbol 1 XQPM%.GET%.GRAPH)
    (call 4 lisp←apply 3 si)
    (put.Ai.void 3)
    (put.Ai.list 1)
    (unify.local.Yn 1)
    (unify.nil)
    (put.Ai.list 2)
    (unify.symbol Top)
    (unify.value.Xn 1)
    (put.Ai.symbol 1 XQPINFO%.SPECIAL%.UPDATE)
    (depart lisp←apply 3 si)
)

(ASSEMBLE.CLAUSE ( manual 1 si ) 20
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.value.Yn 1 2)
    (call 5 is←a←section 1 si)
    (body.cut)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 4 make←file←name 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart display←help←file 1 si)
)

(ASSEMBLE.CLAUSE ( manual 1 si ) 2
    (execute help 1 si)
)

(ASSEMBLE.CLAUSE ( is←a←section 1 si ) 4
    (get.Ai.constant 1 manuals)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( is←a←section 1 si ) 5
    (allocate)
    (call 3 manual←type 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( is←a←section 1 si ) 2
    (execute is←a←section1 1 si)
)

(ASSEMBLE.CLAUSE ( is←a←section1 1 si ) 14
    (get.Ai.structure 1 %- 2)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (call 4 manual←type 1 si)
    (body.cut)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (progress)
)

(ASSEMBLE.CLAUSE ( is←a←section1 1 si ) 11
    (get.Ai.structure 1 %- 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Xn 1)
    (is.a 24)
    (put.Ai.value.Yn 1 1)
    (depart is←a←section1 1 si)
)

(ASSEMBLE.CLAUSE ( manual←type 1 si ) 4
    (get.Ai.constant 1 ref)
    (proceed)
)

(ASSEMBLE.CLAUSE ( manual←type 1 si ) 4
    (get.Ai.constant 1 user)
    (proceed)
)

(ASSEMBLE.CLAUSE ( manual←type 1 si ) 4
    (get.Ai.constant 1 sysdep)
    (proceed)
)

(ASSEMBLE.CLAUSE ( display←help←file 1 si ) 8
    (put.Ai.void 3)
    (put.Ai.list 2)
    (unify.local.Xn 1)
    (unify.nil)
    (put.Ai.symbol 1 XQPM%.MANUAL)
    (execute lisp←apply 3 si)
)

(ASSEMBLE.CLAUSE ( make←file←name 2 si ) 14
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 2 2)
    (call 5 make←file←name1 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

(ASSEMBLE.CLAUSE ( make←file←name1 2 si ) 14
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (is.a 248)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

(ASSEMBLE.CLAUSE ( make←file←name1 2 si ) 31
    (get.Ai.structure 1 %- 2)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 4)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 2 1)
    (call 7 make←file←name1 2 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 6 make←file←name1 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.list 2)
    (unify.constant 45)
    (unify.local.Yn 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart conc 3 si)
)

(ASSEMBLE.CLAUSE ( is←manual 1 si ) 4
    (get.Ai.constant 1 manuals)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←manual 1 si ) 4
    (get.Ai.constant 1 user)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←manual 1 si ) 4
    (get.Ai.constant 1 ref)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←manual 1 si ) 4
    (get.Ai.constant 1 sysdep)
    (proceed)
)

(ASSEMBLE.CLAUSE ( help 1 si ) 15
    (allocate)
    (load.choice.point)
    (store.variable.Yn 1)
    (either 4 14)
    (call 4 ground←check 1 si)
    (load.value.Yn 1)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( help 1 si ) 11
    (allocate)
    (put.Ai.variable.Yn 2 1)
    (call 4 makelist 2 si)
    (body.cut)
    (put.Ai.unsafe.Yn 1 1)
    (depart help1 1 si)
)

(ASSEMBLE.CLAUSE ( help 1 si ) 7
    (put.Ai.nil 3)
    (put.Ai.symbol 2 %~nWhat%?%~n)
    (put.Ai.symbol 1 user)
    (execute format 3 format)
)

(ASSEMBLE.CLAUSE ( makelist 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (is.a 248)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

(ASSEMBLE.CLAUSE ( makelist 2 si ) 32
    (get.Ai.structure 1 %- 2)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 4)
    (get.Ai.variable.Yn 2 3)
    (head.cut)
    (put.Ai.variable.Yn 2 1)
    (call 7 makelist 2 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 6 makelist 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.list 2)
    (unify.constant 45)
    (unify.local.Yn 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart conc 3 si)
)

(ASSEMBLE.CLAUSE ( makelist 2 si ) 32
    (get.Ai.structure 1 %/ 2)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 4)
    (get.Ai.variable.Yn 2 3)
    (head.cut)
    (put.Ai.variable.Yn 2 1)
    (call 7 makelist 2 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 6 makelist 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.list 2)
    (unify.constant 47)
    (unify.local.Yn 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart conc 3 si)
)

(ASSEMBLE.CLAUSE ( makelist 2 si ) 7
    (get.Ai.value.Xn 2 1)
    (allocate)
    (call 3 is←char←list 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( makelist 2 si ) 17
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.variable.Yn 2 2)
    (functor)
    (put.Ai.value.Yn 2 3)
    (put.Ai.structure 1 %/ 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (depart makelist 2 si)
)

(ASSEMBLE.CLAUSE ( is←char←list 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←char←list 1 si ) 19
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 2)
    (unify.variable.Yn 1)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.pos.word 32)
    (load.value.Yn 2)
    (not.greater.than)
    (load.value.Yn 2)
    (load.pos.word 127)
    (less.than)
    (put.Ai.value.Yn 1 1)
    (depart is←char←list 1 si)
)

(ASSEMBLE.CLAUSE ( help1 1 si ) 16
    (put.Ai.value.Xn 2 1)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 name 2 si)
    (put.Ai.void 3)
    (put.Ai.list 2)
    (unify.local.Yn 1)
    (unify.nil)
    (put.Ai.symbol 1 XQPM%.HELP)
    (depart lisp←apply 3 si)
)

(ASSEMBLE.CLAUSE ( ground←check 1 si ) 12
    (allocate)
    (is.a 1)
    (body.cut)
    (put.Ai.nil 3)
    (put.Ai.symbol 2 %~n%[Variable% not% allowed% as% argument% %(use% lower% case% only%)%]%~n)
    (put.Ai.symbol 1 user)
    (call 3 format 3 format)
    (fail)
)

(ASSEMBLE.CLAUSE ( ground←check 1 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.void 2)
    (put.Ai.value.Yn 1 2)
    (functor)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart ground←check←args 2 si)
)

(ASSEMBLE.CLAUSE ( ground←check←args 2 si ) 4
    (get.Ai.constant 1 0)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( ground←check←args 2 si ) 25
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (arg)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 ground←check 1 si)
    (load.value.Yn 2)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (put.Ai.value.Yn 2 1)
    (depart ground←check←args 2 si)
)

STOP