(ASSEMBLE.CLAUSE ( init←system 0 si ) 52
    (allocate)
    (load.pos.word 1)
    (settopval QP%.TOP%.TRACE%.STATE)
    (load.pos.word 1)
    (settopval QP%.TRACE%.STATE)
    (load.pos.word 15)
    (settopval QP%.LEASH)
    (load.pos.word 15)
    (settopval QP%.LEASH%.SPY)
    (load.pos.word 0)
    (settopval QP%.BACKUP%.MODE)
    (load.pos.word 1)
    (settopval QP%.UNKNOWN)
    (load.pos.word 10)
    (settopval QP%.DEBUG%.PRINT%.DEPTH)
    (load.constant 100000)
    (settopval QP%.MAXDEPTH)
    (load.pos.word 1)
    (settopval QP%.STKSHFLG)
    (load.pos.word 1)
    (settopval QP%.STREAM%.COUNTER)
    (call 3 init←style←checking 0 si)
    (put.Ai.symbol 3 off)
    (put.Ai.void 2)
    (put.Ai.symbol 1 character←escapes)
    (depart prolog←flag 3 si)
)

(ASSEMBLE.CLAUSE ( init←style←checking 0 si ) 7
    (allocate)
    (put.Ai.symbol 1 all)
    (call 3 style←check 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( init←style←checking 0 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( init←world 0 si ) 7
    (allocate)
    (load.pos.word 0)
    (settopval QP%.BREAK%.LEVEL)
    (depart mode←line←changed 0 si)
)

(ASSEMBLE.CLAUSE ( init←after←restore 0 si ) 6
    (allocate)
    (call 3 reset←editor←state 0 si)
    (depart mode←line←changed 0 si)
)

(ASSEMBLE.CLAUSE ( pre←init←debugging 0 si ) 7
    (gettopval QP%.TOP%.TRACE%.STATE)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (settopval QP%.TRACE%.STATE)
    (proceed)
)

(ASSEMBLE.CLAUSE ( init←debugging 0 si ) 9
    (allocate)
    (gettopval QP%.TOP%.TRACE%.STATE)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (settopval QP%.TRACE%.STATE)
    (depart init←for←goal 0 si)
)

(ASSEMBLE.CLAUSE ( init←no←debugging 0 si ) 7
    (allocate)
    (load.pos.word 1)
    (settopval QP%.TRACE%.STATE)
    (depart init←for←goal 0 si)
)

(ASSEMBLE.CLAUSE ( init←for←goal 0 si ) 14
    (allocate)
    (load.pos.word 0)
    (settopval QP%.INVOCATION%.COUNT)
    (load.pos.word 0)
    (settopval QP%.FIRST%.TRAP)
    (load.pos.word 0)
    (settopval QP%.INSIDE%.DEBUGGER)
    (progress)
)

(ASSEMBLE.CLAUSE ( debug←state 1 si ) 9
    (put.Ai.value.Xn 2 1)
    (gettopval QP%.TOP%.TRACE%.STATE)
    (store.variable.Xn 3)
    (put.Ai.value.Xn 1 3)
    (execute state←decode 2 si)
)

(ASSEMBLE.CLAUSE ( state←decode 2 si ) 6
    (get.Ai.constant 1 1)
    (get.Ai.symbol 2 nodebug)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( state←decode 2 si ) 6
    (get.Ai.constant 1 2)
    (get.Ai.symbol 2 trace)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( state←decode 2 si ) 6
    (get.Ai.constant 1 3)
    (get.Ai.symbol 2 debug)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( state←decode 2 si ) 6
    (get.Ai.constant 1 4)
    (get.Ai.symbol 2 skipping)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( state←decode 2 si ) 5
    (get.Ai.structure 2 INVALID 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( get←break←state 2 si ) 18
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (call 4 get←state 1 si)
    (gettopval QP%.BREAK%.LEVEL)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.value.Yn 1)
    (load.value.Yn 1)
    (settopval QP%.BREAK%.LEVEL)
    (depart mode←line←changed 0 si)
)

(ASSEMBLE.CLAUSE ( set←break←state 2 si ) 15
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (call 4 set←state 1 si)
    (load.value.Yn 1)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (settopval QP%.BREAK%.LEVEL)
    (depart mode←line←changed 0 si)
)

(ASSEMBLE.CLAUSE ( get←state 1 si ) 28
    (get.Ai.structure 1 state 6)
    (unify.variable.Xn 6)
    (unify.variable.Xn 5)
    (unify.variable.Xn 4)
    (unify.variable.Xn 3)
    (unify.variable.Xn 2)
    (unify.variable.Xn 1)
    (gettopval QP%.TRACE%.STATE)
    (store.value.Xn 6)
    (gettopval QP%.FIRST%.TRAP)
    (store.value.Xn 5)
    (gettopval QP%.INVOCATION%.COUNT)
    (store.value.Xn 4)
    (gettopval QP%.SKIP%.INVOCATION)
    (store.value.Xn 3)
    (gettopval QP%.INSIDE%.DEBUGGER)
    (store.value.Xn 2)
    (gettopval QP%.LURCH)
    (store.value.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( set←state 1 si ) 29
    (get.Ai.structure 1 state 6)
    (unify.variable.Xn 6)
    (unify.variable.Xn 5)
    (unify.variable.Xn 4)
    (unify.variable.Xn 3)
    (unify.variable.Xn 2)
    (unify.variable.Xn 1)
    (allocate)
    (load.value.Xn 6)
    (settopval QP%.TRACE%.STATE)
    (load.value.Xn 5)
    (settopval QP%.FIRST%.TRAP)
    (load.value.Xn 4)
    (settopval QP%.INVOCATION%.COUNT)
    (load.value.Xn 3)
    (settopval QP%.SKIP%.INVOCATION)
    (load.value.Xn 2)
    (settopval QP%.INSIDE%.DEBUGGER)
    (load.value.Xn 1)
    (settopval QP%.LURCH)
    (progress)
)

(ASSEMBLE.CLAUSE ( ttyeol←get 1 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 current←input 1 si)
    (put.Ai.symbol 1 user)
    (call 5 set←input 1 si)
    (put.Ai.value.Yn 1 2)
    (call 5 get0 1 si)
    (put.Ai.value.Yn 1 2)
    (call 4 ttyeol 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart set←input 1 si)
)

(ASSEMBLE.CLAUSE ( ttyeol 1 si ) 4
    (get.Ai.constant 1 13)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( ttyeol 1 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart ttyeol 1 si)
)

STOP