(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 XPINFO%.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