(ASSEMBLE.CLAUSE ( first_symbol 1 si ) 6
    (start.calling QP%.FIRST%.SYMBOL 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( next_symbol 2 si ) 7
    (start.calling QP%.NEXT%.SYMBOL 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( first_procedure 1 si ) 6
    (start.calling QP%.FIRST%.PREDICATE 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( atom_predicate 2 si ) 7
    (start.calling QP%.ATOM%.PREDICATE 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( functor_predicate 3 si ) 8
    (start.calling QP%.FUNCTOR%.PREDICATE 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_check_predicate 4 si ) 9
    (start.calling QP%.P%.CHECK%.PREDICATE 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( local_predicate 4 si ) 9
    (start.calling QP%.LOCAL%.PREDICATE 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( predicate_parts 5 si ) 10
    (start.calling QP%.PREDINFO 1)
    (send.direct.Ai 1)
    (call.lisp 4)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (unify.local.Xn 5)
    (proceed)
)

(ASSEMBLE.CLAUSE ( predicate_parts 4 si ) 9
    (start.calling QP%.PREDINFO 1)
    (send.direct.Ai 1)
    (call.lisp 3)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( gettopval 2 si ) 7
    (start.calling GETTOPVAL 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( settopval 2 si ) 8
    (start.calling SETTOPVAL 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( free_clause 1 si ) 7
    (start.calling QP%.FREE%.CLAUSE 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( getenv 2 si ) 7
    (start.calling QP%.GETENV 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( chars_from_byte_buffer 1 si ) 6
    (start.calling QP%.CHARS%.FROM%.BYTE%.BUFFER 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( copy_procedure_record 2 si ) 7
    (start.calling QP%.COPY%.PROCEDURE%.RECORD 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( free_procedure_record 1 si ) 7
    (start.calling QP%.FREE%.PROCEDURE%.RECORD 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( statistic 2 si ) 7
    (start.calling PROLOG%.STATISTIC 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( trimcore 0 si ) 6
    (start.calling QP%.TRIMCORE 0)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( block_events 1 si ) 7
    (start.calling QP%.BLOCK%.EVENTS 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( unblock_events 1 si ) 7
    (start.calling QP%.UNBLOCK%.EVENTS 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( deliver_errors 3 si ) 8
    (start.calling QP%.DELIVER%.ERRORS 0)
    (call.lisp 3)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( tmp_manage 2 si ) 8
    (start.calling QP%.TMP%.MANAGE 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prolog_event 1 si ) 7
    (start.calling QP%.PROLOG%.EVENT 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( len 4 si ) 9
    (start.calling QP%.LEN 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( cprint 3 si ) 9
    (start.calling QP%.CPRINT 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( open_read 4 si ) 9
    (start.calling QP%.OPEN%.READ 2)
    (send.direct.Ai 1)
    (send.direct.Ai 3)
    (call.lisp 2)
    (unify.local.Xn 4)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( open_write 4 si ) 9
    (start.calling QP%.OPEN%.WRITE 2)
    (send.direct.Ai 1)
    (send.direct.Ai 3)
    (call.lisp 2)
    (unify.local.Xn 4)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( open_append 4 si ) 9
    (start.calling QP%.OPEN%.APPEND 2)
    (send.direct.Ai 1)
    (send.direct.Ai 3)
    (call.lisp 2)
    (unify.local.Xn 4)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( open_null_write 3 si ) 8
    (start.calling QP%.OPEN%.NULL%.WRITE 1)
    (send.direct.Ai 2)
    (call.lisp 2)
    (unify.local.Xn 3)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_set_input 2 si ) 8
    (start.calling QP%.P%.SET%.INPUT 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_set_output 2 si ) 8
    (start.calling QP%.P%.SET%.OUTPUT 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_current_input 2 si ) 7
    (start.calling QP%.P%.CURRENT%.INPUT 0)
    (call.lisp 2)
    (unify.local.Xn 2)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_current_output 2 si ) 7
    (start.calling QP%.P%.CURRENT%.OUTPUT 0)
    (call.lisp 2)
    (unify.local.Xn 2)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( str_opened 6 si ) 11
    (start.calling QP%.STR%.OPENED 1)
    (send.direct.Ai 1)
    (call.lisp 5)
    (unify.local.Xn 6)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (unify.local.Xn 5)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_close 2 si ) 8
    (start.calling QP%.P%.CLOSE 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pchar_count 3 si ) 8
    (start.calling QP%.PCHAR%.COUNT 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pline_count 3 si ) 8
    (start.calling QP%.PLINE%.COUNT 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pline_position 3 si ) 8
    (start.calling QP%.PLINE%.POSITION 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_flush 2 si ) 8
    (start.calling QP%.P%.FLUSH 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( get0 1 si ) 6
    (start.calling QP%.GET0 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( get0_2 3 si ) 8
    (start.calling QP%.GET0%.2 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( unget0 1 si ) 7
    (start.calling QP%.UNGET0 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( get_char 2 si ) 7
    (start.calling QP%.GET%.CHAR 0)
    (call.lisp 2)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( put 1 si ) 7
    (start.calling QP%.PUT 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( put_2 3 si ) 9
    (start.calling QP%.PUT%.2 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( put_token 2 si ) 8
    (start.calling QP%.PUT%.TOKEN 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( setprompt 1 si ) 7
    (start.calling QP%.SETPROMPT 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( getprompt 1 si ) 6
    (start.calling QP%.GETPROMPT 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_alphameric 1 si ) 7
    (start.calling QP%.P%.ALPHAMERIC 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( get_char_token 2 si ) 7
    (start.calling QP%.GET%.CHAR%.TOKEN 0)
    (call.lisp 2)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( print_opsys_error 1 si ) 7
    (start.calling QP%.PRINT%.OPSYS%.ERROR 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( file_exists 2 si ) 7
    (start.calling QP%.FILE%.EXISTS 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( stream_tell 4 si ) 9
    (start.calling QP%.STREAM%.TELL 1)
    (send.direct.Ai 1)
    (call.lisp 3)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( stream_seek 4 si ) 10
    (start.calling QP%.STREAM%.SEEK 4)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (send.direct.Ai 4)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( host_version 4 si ) 9
    (start.calling QP%.HOST%.VERSION 0)
    (call.lisp 4)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prolog_command 2 si ) 7
    (start.calling QP%.PROLOG%.COMMAND 0)
    (call.lisp 2)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( quintus_path 1 si ) 6
    (start.calling QP%.QUINTUS%.PATH 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( save_restore 2 si ) 8
    (start.calling QP%.SAVE%.RESTORE 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( operation 2 si ) 7
    (start.calling QP%.OPERATION 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( var_location 2 si ) 7
    (start.calling QP%.VAR%.LOCATION 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( clear_byte_buffer 0 si ) 6
    (start.calling QP%.CLEAR%.BYTE%.BUFFER 0)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( put_byte 1 si ) 7
    (start.calling QP%.PUT%.BYTE 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( intern_symbol 1 si ) 6
    (start.calling QP%.INTERN%.SYMBOL 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( float_from_byte_buffer 1 si ) 6
    (start.calling QP%.FLOAT%.FROM%.BYTE%.BUFFER 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( float_to_byte_buffer 1 si ) 7
    (start.calling QP%.FLOAT%.TO%.BYTE%.BUFFER 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( symbol_to_byte_buffer 1 si ) 7
    (start.calling QP%.SYMBOL%.TO%.BYTE%.BUFFER 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( symbol_length 2 si ) 7
    (start.calling QP%.SYMBOL%.LENGTH 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( symbol_char 3 si ) 8
    (start.calling QP%.SYMBOL%.CHAR 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_token_type 2 si ) 7
    (start.calling QP%.P%.TOKEN%.TYPE 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( fix_arity 2 si ) 8
    (start.calling QP%.FIX%.ARITY 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( p_procedure 4 si ) 9
    (start.calling QP%.PREDINFO 1)
    (send.direct.Ai 1)
    (call.lisp 3)
    (unify.local.Xn 2)
    (unify.local.Xn 3)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( installation_directory 1 si ) 6
    (start.calling QP%.INSTALLATION%.DIRECTORY 0)
    (call.lisp 1)
    (unify.local.Xn 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( absolute_path 2 si ) 7
    (start.calling QP%.ABSOLUTE%.PATH 1)
    (send.direct.Ai 1)
    (call.lisp 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( add_file_to_path 3 si ) 8
    (start.calling QP%.ADD%.FILE%.TO%.PATH 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( lisp_apply 3 si ) 8
    (start.calling APPLY 2)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (call.lisp 1)
    (unify.local.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( global 3 si ) 1
    (fail)
)

STOP