;; Generated from vminsn.scm.  DO NOT EDIT
(define-module gauche.vm.insn (extend gauche.vm.insn-core))
(select-module gauche.vm.insn)
;; #x000  NOP
(make <vm-insn-info> :name 'NOP :code 0
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body 'NEXT)

;; #x001  CONST
(make <vm-insn-info> :name 'CONST :code 1
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '#f
  :body '(let* ((val)) (FETCH-OPERAND val) INCR-PC ($result val)))

;; #x002  CONSTI
(make <vm-insn-info> :name 'CONSTI :code 2
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result:i (SCM_VM_INSN_ARG code)))

;; #x003  CONSTN
(make <vm-insn-info> :name 'CONSTN :code 3
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result SCM_NIL))

;; #x004  CONSTF
(make <vm-insn-info> :name 'CONSTF :code 4
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result SCM_FALSE))

;; #x005  CONSTU
(make <vm-insn-info> :name 'CONSTU :code 5
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result SCM_UNDEFINED))

;; #x006  CONST-PUSH
(make <vm-insn-info> :name 'CONST-PUSH :code 6
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '(CONST PUSH)
  :body '#f)

;; #x007  CONSTI-PUSH
(make <vm-insn-info> :name 'CONSTI-PUSH :code 7
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(CONSTI PUSH)
  :body '#f)

;; #x008  CONSTN-PUSH
(make <vm-insn-info> :name 'CONSTN-PUSH :code 8
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CONSTN PUSH)
  :body '#f)

;; #x009  CONSTF-PUSH
(make <vm-insn-info> :name 'CONSTF-PUSH :code 9
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CONSTF PUSH)
  :body '#f)

;; #x00a  CONST-RET
(make <vm-insn-info> :name 'CONST-RET :code 10
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '(CONST RET)
  :body '#f)

;; #x00b  CONSTF-RET
(make <vm-insn-info> :name 'CONSTF-RET :code 11
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CONSTF RET)
  :body '#f)

;; #x00c  CONSTU-RET
(make <vm-insn-info> :name 'CONSTU-RET :code 12
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CONSTU RET)
  :body '#f)

;; #x00d  PUSH
(make <vm-insn-info> :name 'PUSH :code 13
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (CHECK-STACK-PARANOIA 1) (PUSH-ARG VAL0) NEXT))

;; #x00e  PRE-CALL
(make <vm-insn-info> :name 'PRE-CALL :code 14
  :num-params 1 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((next::ScmWord*)) (CHECK-STACK-PARANOIA CONT_FRAME_SIZE) (FETCH-LOCATION next) (PUSH-CONT next) INCR-PC NEXT))

;; #x00f  PUSH-PRE-CALL
(make <vm-insn-info> :name 'PUSH-PRE-CALL :code 15
  :num-params 1 :operand-type 'addr
  :obsoleted #f
  :combined '(PUSH PRE-CALL)
  :body '#f)

;; #x010  CHECK-STACK
(make <vm-insn-info> :name 'CHECK-STACK :code 16
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((reqstack::int (SCM_VM_INSN_ARG code))) (CHECK-STACK reqstack) NEXT))

;; #x011  CALL
(make <vm-insn-info> :name 'CALL :code 17
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nm) (argc::int) (proctype::int)) (label call_entry) ($undef APPLY_CALL) ($include "./vmcall.c") (label tail_apply_entry) ($define APPLY_CALL) ($include "./vmcall.c")))

;; #x012  TAIL-CALL
(make <vm-insn-info> :name 'TAIL-CALL :code 18
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (DISCARD-ENV) ($goto-insn CALL)))

;; #x013  JUMP
(make <vm-insn-info> :name 'JUMP :code 19
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '(begin (FETCH-LOCATION PC) NEXT))

;; #x014  RET
(make <vm-insn-info> :name 'RET :code 20
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (RETURN-OP) NEXT))

;; #x015  DEFINE
(make <vm-insn-info> :name 'DEFINE :code 21
  :num-params 1 :operand-type 'obj
  :obsoleted #f
  :combined '#f
  :body '(let* ((var) (val VAL0)) (FETCH-OPERAND var) (VM_ASSERT (SCM_IDENTIFIERP var)) (SCM_FLONUM_ENSURE_MEM val) INCR-PC (let* ((mod::ScmModule* (|->| (SCM_IDENTIFIER var) module)) (name::ScmSymbol* (|->| (SCM_IDENTIFIER var) name))) (case (SCM_VM_INSN_ARG code) ((0) (Scm_MakeBinding mod name val 0)) ((1 SCM_BINDING_CONST) (Scm_MakeBinding mod name val SCM_BINDING_CONST)) ((SCM_BINDING_INLINABLE) (Scm_MakeBinding mod name val SCM_BINDING_INLINABLE))) ($result (SCM_OBJ name)))))

;; #x016  CLOSURE
(make <vm-insn-info> :name 'CLOSURE :code 22
  :num-params 0 :operand-type 'code
  :obsoleted #f
  :combined '#f
  :body '(let* ((body)) (FETCH-OPERAND body) INCR-PC ($result (Scm_MakeClosure body (get_env vm)))))

;; #x017  LOCAL-ENV
(make <vm-insn-info> :name 'LOCAL-ENV :code 23
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (CHECK-STACK-PARANOIA (ENV-SIZE 0)) (FINISH-ENV SCM_FALSE ENV) NEXT))

;; #x018  PUSH-LOCAL-ENV
(make <vm-insn-info> :name 'PUSH-LOCAL-ENV :code 24
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(PUSH LOCAL-ENV)
  :body '(begin (CHECK-STACK-PARANOIA (ENV-SIZE 1)) (PUSH-ARG VAL0) (FINISH-ENV SCM_FALSE ENV) NEXT))

;; #x019  LOCAL-ENV-CLOSURES
(make <vm-insn-info> :name 'LOCAL-ENV-CLOSURES :code 25
  :num-params 1 :operand-type 'codes
  :obsoleted #f
  :combined '#f
  :body '(let* ((nlocals::int (SCM_VM_INSN_ARG code)) (z::ScmObj*) (cp) (clo SCM_UNDEFINED) (e::ScmEnvFrame*)) (FETCH-OPERAND cp) INCR-PC (CHECK-STACK-PARANOIA (ENV-SIZE nlocals)) (dotimes (i nlocals) (set! (* (post++ SP)) SCM_UNDEFINED)) (FINISH-ENV SCM_FALSE ENV) (set! e (get_env vm)) (set! z (- (cast ScmObj* e) nlocals)) (dolist (c cp) (cond ((SCM_COMPILED_CODE_P c) (set! (* (post++ z)) (set! clo (Scm_MakeClosure c e)))) ((SCM_PROCEDUREP c) (set! (* (post++ z)) c) (set! clo c)) (else (set! (* (post++ z)) c)))) ($result clo)))

;; #x01a  POP-LOCAL-ENV
(make <vm-insn-info> :name 'POP-LOCAL-ENV :code 26
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (set! ENV (|->| ENV up)) NEXT))

;; #x01b  LOCAL-ENV-JUMP
(make <vm-insn-info> :name 'LOCAL-ENV-JUMP :code 27
  :num-params 1 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (cast int (- SP ARGP))) (env_depth::int (SCM_VM_INSN_ARG code)) (to::ScmObj*) (tenv::ScmEnvFrame* ENV)) (while (> (post-- env_depth) 0) (SCM_ASSERT tenv) (set! tenv (|->| tenv up))) (cond ((IN-STACK-P (cast ScmObj* tenv)) (if (and (IN-STACK-P (cast ScmObj* CONT)) (> (cast ScmObj* CONT) (cast ScmObj* tenv))) (set! to (CONT-FRAME-END CONT)) (set! to (+ (cast ScmObj* tenv) ENV_HDR_SIZE)))) (else (if (IN-STACK-P (cast ScmObj* CONT)) (set! to (CONT-FRAME-END CONT)) (set! to (|->| vm stackBase))))) (when (and (> nargs 0) (!= to ARGP)) (let* ((t::ScmObj* to) (a::ScmObj* ARGP)) (dotimes (c nargs) (set! (* (post++ t)) (* (post++ a)))))) (set! ARGP to) (set! SP (+ to nargs)) (if (> nargs 0) (FINISH-ENV SCM_FALSE tenv) (set! ENV tenv)) (FETCH-LOCATION PC) NEXT))

;; #x01c  LOCAL-ENV-CALL
(make <vm-insn-info> :name 'LOCAL-ENV-CALL :code 28
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (cast int (- SP ARGP)))) (VM-ASSERT (SCM_CLOSUREP VAL0)) (cond ((> nargs 0) (CHECK-STACK-PARANOIA (ENV-SIZE 0)) (FINISH-ENV SCM_FALSE (|->| (SCM_CLOSURE VAL0) env))) (else (set! ENV (|->| (SCM_CLOSURE VAL0) env)) (set! ARGP SP))) (set! (|->| vm base) (SCM_COMPILED_CODE (|->| (SCM_CLOSURE VAL0) code))) (set! PC (|->| vm base code)) (CHECK-STACK (|->| vm base maxstack)) (SCM_PROF_COUNT_CALL vm (SCM_OBJ (|->| vm base))) NEXT))

;; #x01d  LOCAL-ENV-TAIL-CALL
(make <vm-insn-info> :name 'LOCAL-ENV-TAIL-CALL :code 29
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (cast int (- SP ARGP))) (to::ScmObj*)) (VM-ASSERT (SCM_CLOSUREP VAL0)) (if (IN-STACK-P (cast ScmObj* CONT)) (set! to (CONT-FRAME-END CONT)) (set! to (|->| vm stackBase))) (when (and (> nargs 0) (!= to ARGP)) (let* ((t::ScmObj* to) (a::ScmObj* ARGP)) (dotimes (c nargs) (set! (* (post++ t)) (* (post++ a)))))) (set! ARGP to) (set! SP (+ to nargs)) ($goto-insn LOCAL-ENV-CALL)))

;; #x01e  BF
(make <vm-insn-info> :name 'BF :code 30
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($branch (SCM_FALSEP VAL0)))

;; #x01f  BT
(make <vm-insn-info> :name 'BT :code 31
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($branch (not (SCM_FALSEP VAL0))))

;; #x020  BNEQ
(make <vm-insn-info> :name 'BNEQ :code 32
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($w/argp z ($branch* (not (SCM_EQ VAL0 z)))))

;; #x021  BNEQV
(make <vm-insn-info> :name 'BNEQV :code 33
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($w/argp z ($branch* (not (Scm_EqvP VAL0 z)))))

;; #x022  BNNULL
(make <vm-insn-info> :name 'BNNULL :code 34
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($branch* (not (SCM_NULLP VAL0))))

;; #x023  BNUMNE
(make <vm-insn-info> :name 'BNUMNE :code 35
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((y VAL0)) ($w/argp x ($branch* (not (Scm_NumEq x y))))))

;; #x024  BNLT
(make <vm-insn-info> :name 'BNLT :code 36
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r < ($branch* (not r))))

;; #x025  BNLE
(make <vm-insn-info> :name 'BNLE :code 37
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r <= ($branch* (not r))))

;; #x026  BNGT
(make <vm-insn-info> :name 'BNGT :code 38
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r > ($branch* (not r))))

;; #x027  BNGE
(make <vm-insn-info> :name 'BNGE :code 39
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r >= ($branch* (not r))))

;; #x028  LREF-VAL0-BNUMNE
(make <vm-insn-info> :name 'LREF-VAL0-BNUMNE :code 40
  :num-params 2 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($arg-source lref ($insn-body BNUMNE)))

;; #x029  LREF-VAL0-BNLT
(make <vm-insn-info> :name 'LREF-VAL0-BNLT :code 41
  :num-params 2 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($arg-source lref ($insn-body BNLT)))

;; #x02a  LREF-VAL0-BNLE
(make <vm-insn-info> :name 'LREF-VAL0-BNLE :code 42
  :num-params 2 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($arg-source lref ($insn-body BNLE)))

;; #x02b  LREF-VAL0-BNGT
(make <vm-insn-info> :name 'LREF-VAL0-BNGT :code 43
  :num-params 2 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($arg-source lref ($insn-body BNGT)))

;; #x02c  LREF-VAL0-BNGE
(make <vm-insn-info> :name 'LREF-VAL0-BNGE :code 44
  :num-params 2 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($arg-source lref ($insn-body BNGE)))

;; #x02d  BNUMNEI
(make <vm-insn-info> :name 'BNUMNEI :code 45
  :num-params 1 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((imm::long (SCM_VM_INSN_ARG code))) ($w/argr v0 ($type-check v0 SCM_NUMBERP "number") ($branch* (not (or (and (SCM_INTP v0) (== (SCM_INT_VALUE v0) imm)) (and (SCM_FLONUMP v0) (== (SCM_FLONUM_VALUE v0) imm))))))))

;; #x02e  BNEQC
(make <vm-insn-info> :name 'BNEQC :code 46
  :num-params 0 :operand-type 'obj+addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((z)) (FETCH-OPERAND z) INCR-PC ($branch* (not (SCM_EQ VAL0 z)))))

;; #x02f  BNEQVC
(make <vm-insn-info> :name 'BNEQVC :code 47
  :num-params 0 :operand-type 'obj+addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((z)) (FETCH-OPERAND z) INCR-PC ($branch* (not (Scm_EqvP VAL0 z)))))

;; #x030  RF
(make <vm-insn-info> :name 'RF :code 48
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($retc (SCM_FALSEP VAL0)))

;; #x031  RT
(make <vm-insn-info> :name 'RT :code 49
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($retc (not (SCM_FALSEP VAL0))))

;; #x032  RNEQ
(make <vm-insn-info> :name 'RNEQ :code 50
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($retc* (not (SCM_EQ VAL0 v)))))

;; #x033  RNEQV
(make <vm-insn-info> :name 'RNEQV :code 51
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($retc* (not (Scm_EqvP VAL0 v)))))

;; #x034  RNNULL
(make <vm-insn-info> :name 'RNNULL :code 52
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($retc* (not (SCM_NULLP VAL0))))

;; #x035  RECEIVE
(make <vm-insn-info> :name 'RECEIVE :code 53
  :num-params 2 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '($receive (set! size (+ CONT_FRAME_SIZE (ENV_SIZE (+ reqargs restarg)))) (CHECK-STACK-PARANOIA size) (FETCH-LOCATION nextpc) INCR-PC (PUSH-CONT nextpc)))

;; #x036  TAIL-RECEIVE
(make <vm-insn-info> :name 'TAIL-RECEIVE :code 54
  :num-params 2 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($receive (set! size (ENV_SIZE (+ reqargs restarg)))))

;; #x037  RECEIVE-ALL
(make <vm-insn-info> :name 'RECEIVE-ALL :code 55
  :num-params 0 :operand-type 'addr
  :obsoleted #f
  :combined '#f
  :body '(let* ((nextpc::ScmWord*)) (CHECK-STACK-PARANOIA CONT_FRAME_SIZE) (FETCH-LOCATION nextpc) INCR_PC (PUSH-CONT nextpc) ($goto-insn TAIL-RECEIVE-ALL)))

;; #x038  TAIL-RECEIVE-ALL
(make <vm-insn-info> :name 'TAIL-RECEIVE-ALL :code 56
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (CHECK-STACK-PARANOIA (ENV-SIZE (+ (|->| vm numVals) 1))) (PUSH-ARG VAL0) (dotimes (i (- (|->| vm numVals) 1)) (PUSH-ARG (aref (|->| vm vals) i))) (FINISH-ENV SCM_FALSE ENV) NEXT))

;; #x039  VALUES-N
(make <vm-insn-info> :name 'VALUES-N :code 57
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (VM-ASSERT ENV) (let* ((nvals::int (cast int (|->| ENV size))) (v)) (set! (|->| vm numVals) nvals) (for (() (> nvals 1) (post-- nvals)) (POP-ARG (aref (|->| vm vals) (- nvals 1)))) (POP-ARG VAL0) NEXT)))

;; #x03a  LSET
(make <vm-insn-info> :name 'LSET :code 58
  :num-params 2 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((dep::int (SCM_VM_INSN_ARG0 code)) (off::int (SCM_VM_INSN_ARG1 code)) (e::ScmEnvFrame* ENV)) (for (() (> dep 0) (post-- dep)) (VM-ASSERT (!= e NULL)) (set! e (|->| e up))) (VM-ASSERT (!= e NULL)) (VM-ASSERT (> (|->| e size) off)) (SCM_FLONUM_ENSURE_MEM VAL0) (let* ((box::ScmObj (ENV-DATA e off))) (if (SCM_BOXP box) (SCM_BOX_SET box VAL0) (set! (ENV-DATA e off) VAL0))) NEXT1))

;; #x03b  GSET
(make <vm-insn-info> :name 'GSET :code 59
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '#f
  :body '(let* ((loc)) (FETCH-OPERAND loc) (cond ((SCM_GLOCP loc) (SCM_GLOC_SET (SCM_GLOC loc) VAL0)) ((SCM_IDENTIFIERP loc) (let* ((id::ScmIdentifier* (SCM_IDENTIFIER loc)) (limit::int (SCM_VM_RUNTIME_FLAG_IS_SET vm SCM_LIMIT_MODULE_MUTATION)) (gloc::ScmGloc* (Scm_FindBinding (|->| id module) (|->| id name) (?: limit SCM_BINDING_STAY_IN_MODULE 0)))) (when (== gloc NULL) (when limit (set! gloc (Scm_FindBinding (|->| id module) (|->| id name) 0)) (when (!= gloc NULL) ($vm-err "can't mutate binding of %S, which is in another module" (|->| id name)))) ($vm-err "symbol not defined: %S" loc)) (SCM_GLOC_SET gloc VAL0) (set! (* PC) (SCM_WORD gloc)))) (else ($vm-err "GSET: can't be here"))) INCR-PC NEXT1))

;; #x03c  LREF
(make <vm-insn-info> :name 'LREF :code 60
  :num-params 2 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((dep::int (SCM_VM_INSN_ARG0 code)) (off::int (SCM_VM_INSN_ARG1 code)) (e::ScmEnvFrame* ENV)) (for (() (> dep 0) (post-- dep)) (VM-ASSERT (!= e NULL)) (set! e (|->| e up))) (VM-ASSERT (!= e NULL)) (VM-ASSERT (> (|->| e size) off)) (let* ((v::ScmObj (ENV-DATA e off))) (if (SCM_BOXP v) ($result (SCM_BOX_VALUE v)) ($result v)))))

;; #x03d  LREF0
(make <vm-insn-info> :name 'LREF0 :code 61
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 0 0))

;; #x03e  LREF1
(make <vm-insn-info> :name 'LREF1 :code 62
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 0 1))

;; #x03f  LREF2
(make <vm-insn-info> :name 'LREF2 :code 63
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 0 2))

;; #x040  LREF3
(make <vm-insn-info> :name 'LREF3 :code 64
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 0 3))

;; #x041  LREF10
(make <vm-insn-info> :name 'LREF10 :code 65
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 1 0))

;; #x042  LREF11
(make <vm-insn-info> :name 'LREF11 :code 66
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 1 1))

;; #x043  LREF12
(make <vm-insn-info> :name 'LREF12 :code 67
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 1 2))

;; #x044  LREF20
(make <vm-insn-info> :name 'LREF20 :code 68
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 2 0))

;; #x045  LREF21
(make <vm-insn-info> :name 'LREF21 :code 69
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 2 1))

;; #x046  LREF30
(make <vm-insn-info> :name 'LREF30 :code 70
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($lrefNN 3 0))

;; #x047  LREF-PUSH
(make <vm-insn-info> :name 'LREF-PUSH :code 71
  :num-params 2 :operand-type 'none
  :obsoleted #f
  :combined '(LREF PUSH)
  :body '#f)

;; #x048  LREF0-PUSH
(make <vm-insn-info> :name 'LREF0-PUSH :code 72
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF0 PUSH)
  :body '#f)

;; #x049  LREF1-PUSH
(make <vm-insn-info> :name 'LREF1-PUSH :code 73
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF1 PUSH)
  :body '#f)

;; #x04a  LREF2-PUSH
(make <vm-insn-info> :name 'LREF2-PUSH :code 74
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF2 PUSH)
  :body '#f)

;; #x04b  LREF3-PUSH
(make <vm-insn-info> :name 'LREF3-PUSH :code 75
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF3 PUSH)
  :body '#f)

;; #x04c  LREF10-PUSH
(make <vm-insn-info> :name 'LREF10-PUSH :code 76
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF10 PUSH)
  :body '#f)

;; #x04d  LREF11-PUSH
(make <vm-insn-info> :name 'LREF11-PUSH :code 77
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF11 PUSH)
  :body '#f)

;; #x04e  LREF12-PUSH
(make <vm-insn-info> :name 'LREF12-PUSH :code 78
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF12 PUSH)
  :body '#f)

;; #x04f  LREF20-PUSH
(make <vm-insn-info> :name 'LREF20-PUSH :code 79
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF20 PUSH)
  :body '#f)

;; #x050  LREF21-PUSH
(make <vm-insn-info> :name 'LREF21-PUSH :code 80
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF21 PUSH)
  :body '#f)

;; #x051  LREF30-PUSH
(make <vm-insn-info> :name 'LREF30-PUSH :code 81
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF30 PUSH)
  :body '#f)

;; #x052  GREF
(make <vm-insn-info> :name 'GREF :code 82
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '#f
  :body '(let* ((v)) (GLOBAL-REF v) ($result v)))

;; #x053  GREF-PUSH
(make <vm-insn-info> :name 'GREF-PUSH :code 83
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '(GREF PUSH)
  :body '#f)

;; #x054  GREF-CALL
(make <vm-insn-info> :name 'GREF-CALL :code 84
  :num-params 1 :operand-type 'obj
  :obsoleted #f
  :combined '(GREF CALL)
  :body '#f)

;; #x055  GREF-TAIL-CALL
(make <vm-insn-info> :name 'GREF-TAIL-CALL :code 85
  :num-params 1 :operand-type 'obj
  :obsoleted #f
  :combined '(GREF TAIL-CALL)
  :body '#f)

;; #x056  PUSH-GREF
(make <vm-insn-info> :name 'PUSH-GREF :code 86
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '(PUSH GREF)
  :body '#f)

;; #x057  PUSH-GREF-CALL
(make <vm-insn-info> :name 'PUSH-GREF-CALL :code 87
  :num-params 1 :operand-type 'obj
  :obsoleted #f
  :combined '(PUSH GREF CALL)
  :body '#f)

;; #x058  PUSH-GREF-TAIL-CALL
(make <vm-insn-info> :name 'PUSH-GREF-TAIL-CALL :code 88
  :num-params 1 :operand-type 'obj
  :obsoleted #f
  :combined '(PUSH GREF TAIL-CALL)
  :body '#f)

;; #x059  LREF0-PUSH-GREF
(make <vm-insn-info> :name 'LREF0-PUSH-GREF :code 89
  :num-params 0 :operand-type 'obj
  :obsoleted #t
  :combined '(LREF0 PUSH GREF)
  :body '#f)

;; #x05a  LREF0-PUSH-GREF-CALL
(make <vm-insn-info> :name 'LREF0-PUSH-GREF-CALL :code 90
  :num-params 1 :operand-type 'obj
  :obsoleted #t
  :combined '(LREF0 PUSH GREF CALL)
  :body '#f)

;; #x05b  LREF0-PUSH-GREF-TAIL-CALL
(make <vm-insn-info> :name 'LREF0-PUSH-GREF-TAIL-CALL :code 91
  :num-params 1 :operand-type 'obj
  :obsoleted #t
  :combined '(LREF0 PUSH GREF TAIL-CALL)
  :body '#f)

;; #x05c  PROMISE
(make <vm-insn-info> :name 'PROMISE :code 92
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result (Scm_MakePromise FALSE VAL0)))

;; #x05d  VALUES-APPLY
(make <vm-insn-info> :name 'VALUES-APPLY :code 93
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code))) (CHECK-STACK (ENV-SIZE nargs)) (dotimes (i nargs) (when (>= i (- SCM_VM_MAX_VALUES 1)) (for-each (lambda (vv) (PUSH-ARG vv)) (aref (|->| vm vals) (- SCM_VM_MAX_VALUES 1))) (break)) (PUSH-ARG (aref (|->| vm vals) i))) ($goto-insn TAIL-CALL)))

;; #x05e  CONS
(make <vm-insn-info> :name 'CONS :code 94
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((ca)) (POP-ARG ca) ($result (Scm_Cons ca VAL0))))

;; #x05f  CONS-PUSH
(make <vm-insn-info> :name 'CONS-PUSH :code 95
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CONS PUSH)
  :body '#f)

;; #x060  CAR
(make <vm-insn-info> :name 'CAR :code 96
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($type-check v SCM_PAIRP "pair") ($result (SCM_CAR v))))

;; #x061  CAR-PUSH
(make <vm-insn-info> :name 'CAR-PUSH :code 97
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CAR PUSH)
  :body '#f)

;; #x062  LREF0-CAR
(make <vm-insn-info> :name 'LREF0-CAR :code 98
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF0 CAR)
  :body '#f)

;; #x063  LREF1-CAR
(make <vm-insn-info> :name 'LREF1-CAR :code 99
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF1 CAR)
  :body '#f)

;; #x064  LREF2-CAR
(make <vm-insn-info> :name 'LREF2-CAR :code 100
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF2 CAR)
  :body '#f)

;; #x065  LREF3-CAR
(make <vm-insn-info> :name 'LREF3-CAR :code 101
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF3 CAR)
  :body '#f)

;; #x066  LREF10-CAR
(make <vm-insn-info> :name 'LREF10-CAR :code 102
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF10 CAR)
  :body '#f)

;; #x067  LREF11-CAR
(make <vm-insn-info> :name 'LREF11-CAR :code 103
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF11 CAR)
  :body '#f)

;; #x068  LREF12-CAR
(make <vm-insn-info> :name 'LREF12-CAR :code 104
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF12 CAR)
  :body '#f)

;; #x069  LREF20-CAR
(make <vm-insn-info> :name 'LREF20-CAR :code 105
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF20 CAR)
  :body '#f)

;; #x06a  LREF21-CAR
(make <vm-insn-info> :name 'LREF21-CAR :code 106
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF21 CAR)
  :body '#f)

;; #x06b  LREF30-CAR
(make <vm-insn-info> :name 'LREF30-CAR :code 107
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF30 CAR)
  :body '#f)

;; #x06c  CDR
(make <vm-insn-info> :name 'CDR :code 108
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($type-check v SCM_PAIRP "pair") ($result (SCM_CDR v))))

;; #x06d  CDR-PUSH
(make <vm-insn-info> :name 'CDR-PUSH :code 109
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CDR PUSH)
  :body '#f)

;; #x06e  LREF0-CDR
(make <vm-insn-info> :name 'LREF0-CDR :code 110
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF0 CDR)
  :body '#f)

;; #x06f  LREF1-CDR
(make <vm-insn-info> :name 'LREF1-CDR :code 111
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF1 CDR)
  :body '#f)

;; #x070  LREF2-CDR
(make <vm-insn-info> :name 'LREF2-CDR :code 112
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF2 CDR)
  :body '#f)

;; #x071  LREF3-CDR
(make <vm-insn-info> :name 'LREF3-CDR :code 113
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF3 CDR)
  :body '#f)

;; #x072  LREF10-CDR
(make <vm-insn-info> :name 'LREF10-CDR :code 114
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF10 CDR)
  :body '#f)

;; #x073  LREF11-CDR
(make <vm-insn-info> :name 'LREF11-CDR :code 115
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF11 CDR)
  :body '#f)

;; #x074  LREF12-CDR
(make <vm-insn-info> :name 'LREF12-CDR :code 116
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF12 CDR)
  :body '#f)

;; #x075  LREF20-CDR
(make <vm-insn-info> :name 'LREF20-CDR :code 117
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF20 CDR)
  :body '#f)

;; #x076  LREF21-CDR
(make <vm-insn-info> :name 'LREF21-CDR :code 118
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF21 CDR)
  :body '#f)

;; #x077  LREF30-CDR
(make <vm-insn-info> :name 'LREF30-CDR :code 119
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF30 CDR)
  :body '#f)

;; #x078  CAAR
(make <vm-insn-info> :name 'CAAR :code 120
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($cxxr SCM_CAR SCM_CAR))

;; #x079  CAAR-PUSH
(make <vm-insn-info> :name 'CAAR-PUSH :code 121
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CAAR PUSH)
  :body '#f)

;; #x07a  CADR
(make <vm-insn-info> :name 'CADR :code 122
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($cxxr SCM_CAR SCM_CDR))

;; #x07b  CADR-PUSH
(make <vm-insn-info> :name 'CADR-PUSH :code 123
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CADR PUSH)
  :body '#f)

;; #x07c  CDAR
(make <vm-insn-info> :name 'CDAR :code 124
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($cxxr SCM_CDR SCM_CAR))

;; #x07d  CDAR-PUSH
(make <vm-insn-info> :name 'CDAR-PUSH :code 125
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CDAR PUSH)
  :body '#f)

;; #x07e  CDDR
(make <vm-insn-info> :name 'CDDR :code 126
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($cxxr SCM_CDR SCM_CDR))

;; #x07f  CDDR-PUSH
(make <vm-insn-info> :name 'CDDR-PUSH :code 127
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(CDDR PUSH)
  :body '#f)

;; #x080  LIST
(make <vm-insn-info> :name 'LIST :code 128
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (cp SCM_NIL) (arg)) (when (> nargs 0) (SCM_FLONUM_ENSURE_MEM VAL0) (set! cp (Scm_Cons VAL0 cp)) (while (> (pre-- nargs) 0) (POP-ARG arg) (set! cp (Scm_Cons arg cp)))) ($result cp)))

;; #x081  LIST-STAR
(make <vm-insn-info> :name 'LIST-STAR :code 129
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (cp SCM_NIL) (arg)) (when (> nargs 0) (SCM_FLONUM_ENSURE_MEM VAL0) (set! cp VAL0) (while (> (pre-- nargs) 0) (POP-ARG arg) (set! cp (Scm_Cons arg cp)))) ($result cp)))

;; #x082  LENGTH
(make <vm-insn-info> :name 'LENGTH :code 130
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((len::int (Scm_Length VAL0))) (when (< len 0) ($vm-err "proper list required, but got %S" VAL0)) ($result:i len)))

;; #x083  MEMQ
(make <vm-insn-info> :name 'MEMQ :code 131
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($result (Scm_Memq v VAL0))))

;; #x084  MEMV
(make <vm-insn-info> :name 'MEMV :code 132
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($result (Scm_Memv v VAL0))))

;; #x085  ASSQ
(make <vm-insn-info> :name 'ASSQ :code 133
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($result (Scm_Assq v VAL0))))

;; #x086  ASSV
(make <vm-insn-info> :name 'ASSV :code 134
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($result (Scm_Assv v VAL0))))

;; #x087  EQ
(make <vm-insn-info> :name 'EQ :code 135
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($result:b (SCM_EQ v VAL0))))

;; #x088  EQV
(make <vm-insn-info> :name 'EQV :code 136
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp v ($result:b (Scm_EqvP v VAL0))))

;; #x089  APPEND
(make <vm-insn-info> :name 'APPEND :code 137
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (cp SCM_NIL) (arg)) (when (> nargs 0) (SCM_FLONUM_ENSURE_MEM VAL0) (set! cp VAL0) (while (> (pre-- nargs) 0) (POP-ARG arg) (when (< (Scm_Length arg) 0) ($vm-err "list required, but got %S" arg)) (set! cp (Scm_Append2 arg cp)))) ($result cp)))

;; #x08a  NOT
(make <vm-insn-info> :name 'NOT :code 138
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_FALSEP v))))

;; #x08b  REVERSE
(make <vm-insn-info> :name 'REVERSE :code 139
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result (Scm_Reverse v))))

;; #x08c  APPLY
(make <vm-insn-info> :name 'APPLY :code 140
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (cp)) (SCM_FLONUM_ENSURE_MEM VAL0) (while (> (pre-- nargs) 1) (POP-ARG cp) (set! VAL0 (Scm_Cons cp VAL0))) (set! cp VAL0) (POP-ARG VAL0) (TAIL-CALL-INSTRUCTION) (set! VAL0 (Scm_VMApply VAL0 cp)) NEXT1))

;; #x08d  TAIL-APPLY
(make <vm-insn-info> :name 'TAIL-APPLY :code 141
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((rargc::int (Scm_Length VAL0)) (nargc::int (- (SCM_VM_INSN_ARG code) 2)) (proc (* (- SP nargc 1)))) (when (< rargc 0) ($vm-err "improper list not allowed: %S" VAL0)) (while (> nargc 0) (set! (* (- SP nargc 1)) (* (- SP nargc))) (post-- nargc)) (when (== rargc 0) (post-- SP) (set! VAL0 proc) ($goto-insn TAIL-CALL)) (set! (* (- SP 1)) VAL0) (set! VAL0 proc) (DISCARD-ENV) (goto tail_apply_entry)))

;; #x08e  IS-A
(make <vm-insn-info> :name 'IS-A :code 142
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp obj ($type-check VAL0 SCM_CLASSP "class") (let* ((c::ScmClass* (SCM_CLASS VAL0))) (cond ((not (SCM_FALSEP (|->| (Scm_ClassOf obj) redefined))) (CHECK-STACK CONT_FRAME_SIZE) (PUSH_CONT PC) (set! PC PC_TO_RETURN) ($result (Scm_VMIsA obj c))) (else ($result:b (SCM_ISA obj c)))))))

;; #x08f  NULLP
(make <vm-insn-info> :name 'NULLP :code 143
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_NULLP v))))

;; #x090  PAIRP
(make <vm-insn-info> :name 'PAIRP :code 144
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_PAIRP v))))

;; #x091  CHARP
(make <vm-insn-info> :name 'CHARP :code 145
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_CHARP v))))

;; #x092  EOFP
(make <vm-insn-info> :name 'EOFP :code 146
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_EOFP v))))

;; #x093  STRINGP
(make <vm-insn-info> :name 'STRINGP :code 147
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_STRINGP v))))

;; #x094  SYMBOLP
(make <vm-insn-info> :name 'SYMBOLP :code 148
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_SYMBOLP v))))

;; #x095  VECTORP
(make <vm-insn-info> :name 'VECTORP :code 149
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_VECTORP v))))

;; #x096  IDENTIFIERP
(make <vm-insn-info> :name 'IDENTIFIERP :code 150
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_IDENTIFIERP v))))

;; #x097  NUMBERP
(make <vm-insn-info> :name 'NUMBERP :code 151
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_NUMBERP v))))

;; #x098  REALP
(make <vm-insn-info> :name 'REALP :code 152
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result:b (SCM_REALP v))))

;; #x099  SETTER
(make <vm-insn-info> :name 'SETTER :code 153
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result (Scm_Setter v))))

;; #x09a  VALUES
(make <vm-insn-info> :name 'VALUES :code 154
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin ($values) NEXT))

;; #x09b  VALUES-RET
(make <vm-insn-info> :name 'VALUES-RET :code 155
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(VALUES RET)
  :body '(begin ($values) (RETURN-OP) NEXT))

;; #x09c  VEC
(make <vm-insn-info> :name 'VEC :code 156
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (i::int (- nargs 1)) (vec (Scm_MakeVector nargs SCM_UNDEFINED))) (when (> nargs 0) (let* ((arg VAL0)) (for (() (> i 0) (post-- i)) (SCM_FLONUM_ENSURE_MEM arg) (set! (SCM_VECTOR_ELEMENT vec i) arg) (POP-ARG arg)) (SCM_FLONUM_ENSURE_MEM arg) (set! (SCM_VECTOR_ELEMENT vec 0) arg))) ($result vec)))

;; #x09d  LIST2VEC
(make <vm-insn-info> :name 'LIST2VEC :code 157
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($result (Scm_ListToVector v 0 -1))))

;; #x09e  APP-VEC
(make <vm-insn-info> :name 'APP-VEC :code 158
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (cp SCM_NIL) (arg)) (when (> nargs 0) (SCM_FLONUM_ENSURE_MEM VAL0) (set! cp VAL0) (while (> (pre-- nargs) 0) (POP-ARG arg) (when (< (Scm_Length arg) 0) ($vm-err "list required, but got %S" arg)) (set! cp (Scm_Append2 arg cp))) ($result (Scm_ListToVector cp 0 -1)))))

;; #x09f  VEC-LEN
(make <vm-insn-info> :name 'VEC-LEN :code 159
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v ($type-check v SCM_VECTORP "vector") ($result:i (SCM_VECTOR_SIZE v))))

;; #x0a0  VEC-REF
(make <vm-insn-info> :name 'VEC-REF :code 160
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((k VAL0)) ($w/argp vec ($type-check vec SCM_VECTORP "vector") ($type-check k SCM_INTP "fixnum") (when (or (< (SCM_INT_VALUE k) 0) (>= (SCM_INT_VALUE k) (SCM_VECTOR_SIZE vec))) ($vm-err "vector-ref index out of range: %S" k)) ($result (SCM_VECTOR_ELEMENT vec (SCM_INT_VALUE k))))))

;; #x0a1  VEC-SET
(make <vm-insn-info> :name 'VEC-SET :code 161
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((vec) (ind)) (POP-ARG ind) (POP-ARG vec) ($type-check vec SCM_VECTORP "vector") ($type-check ind SCM_INTP "fixnum") (let* ((k::int (SCM_INT_VALUE ind)) (v VAL0)) (when (or (< k 0) (>= k (SCM_VECTOR_SIZE vec))) ($vm-err "vector-set! index out of range: %d" k)) (SCM_FLONUM_ENSURE_MEM v) (set! (SCM_VECTOR_ELEMENT vec k) v) ($result SCM_UNDEFINED))))

;; #x0a2  VEC-REFI
(make <vm-insn-info> :name 'VEC-REFI :code 162
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr vec ($type-check vec SCM_VECTORP "vector") (let* ((k::int (SCM_VM_INSN_ARG code))) (when (or (< k 0) (>= k (SCM_VECTOR_SIZE vec))) ($vm-err "vector-ref index out of range: %d" k)) ($result (SCM_VECTOR_ELEMENT vec k)))))

;; #x0a3  VEC-SETI
(make <vm-insn-info> :name 'VEC-SETI :code 163
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp vec ($type-check vec SCM_VECTORP "vector") (let* ((k::int (SCM_VM_INSN_ARG code)) (v VAL0)) (when (or (< k 0) (>= k (SCM_VECTOR_SIZE vec))) ($vm-err "vector-set! index out of range: %d" k)) (SCM_FLONUM_ENSURE_MEM v) (set! (SCM_VECTOR_ELEMENT vec k) v) ($result SCM_UNDEFINED))))

;; #x0a4  UVEC-REF
(make <vm-insn-info> :name 'UVEC-REF :code 164
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((k VAL0) (utype::int (SCM_VM_INSN_ARG code))) ($w/argp vec (unless (SCM_UVECTOR_SUBTYPE_P vec utype) ($vm-err "%s required, but got %S" (Scm_UVectorTypeName utype) vec)) ($type-check k SCM_INTP "fixnum") (when (or (< (SCM_INT_VALUE k) 0) (>= (SCM_INT_VALUE k) (SCM_UVECTOR_SIZE vec))) ($vm-err "uvector-ref index out of range: %S" k)) ($result (Scm_VMUVectorRef (SCM_UVECTOR vec) utype (SCM_INT_VALUE k) SCM_UNBOUND)))))

;; #x0a5  NUMEQ2
(make <vm-insn-info> :name 'NUMEQ2 :code 165
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (cond ((and (SCM_INTP VAL0) (SCM_INTP arg)) ($result:b (== VAL0 arg))) ((and (SCM_FLONUMP VAL0) (SCM_FLONUMP arg)) ($result:b (== (SCM_FLONUM_VALUE VAL0) (SCM_FLONUM_VALUE arg)))) (else ($result:b (Scm_NumEq arg VAL0))))))

;; #x0a6  NUMLT2
(make <vm-insn-info> :name 'NUMLT2 :code 166
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r < ($result:b r)))

;; #x0a7  NUMLE2
(make <vm-insn-info> :name 'NUMLE2 :code 167
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r <= ($result:b r)))

;; #x0a8  NUMGT2
(make <vm-insn-info> :name 'NUMGT2 :code 168
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r > ($result:b r)))

;; #x0a9  NUMGE2
(make <vm-insn-info> :name 'NUMGE2 :code 169
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/numcmp r >= ($result:b r)))

;; #x0aa  NUMADD2
(make <vm-insn-info> :name 'NUMADD2 :code 170
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (cond ((and (SCM_INTP arg) (SCM_INTP VAL0)) ($result:n (+ (SCM_INT_VALUE arg) (SCM_INT_VALUE VAL0)))) ((and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0)) ($result:f (+ (SCM_FLONUM_VALUE arg) (SCM_FLONUM_VALUE VAL0)))) (else ($result (Scm_Add arg VAL0))))))

;; #x0ab  NUMSUB2
(make <vm-insn-info> :name 'NUMSUB2 :code 171
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (cond ((and (SCM_INTP arg) (SCM_INTP VAL0)) ($result:n (- (SCM_INT_VALUE arg) (SCM_INT_VALUE VAL0)))) ((and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0)) ($result:f (- (SCM_FLONUM_VALUE arg) (SCM_FLONUM_VALUE VAL0)))) (else ($result (Scm_Sub arg VAL0))))))

;; #x0ac  NUMMUL2
(make <vm-insn-info> :name 'NUMMUL2 :code 172
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (if (or (and (SCM_FLONUMP arg) (SCM_REALP VAL0)) (and (SCM_FLONUMP VAL0) (SCM_REALP arg))) ($result:f (* (Scm_GetDouble arg) (Scm_GetDouble VAL0))) ($result (Scm_Mul arg VAL0)))))

;; #x0ad  NUMDIV2
(make <vm-insn-info> :name 'NUMDIV2 :code 173
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (if (or (and (SCM_FLONUMP arg) (SCM_REALP VAL0)) (and (SCM_FLONUMP VAL0) (SCM_REALP arg))) ($result:f (/ (Scm_GetDouble arg) (Scm_GetDouble VAL0))) ($result (Scm_Div arg VAL0)))))

;; #x0ae  LREF-VAL0-NUMADD2
(make <vm-insn-info> :name 'LREF-VAL0-NUMADD2 :code 174
  :num-params 2 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($arg-source lref ($insn-body NUMADD2)))

;; #x0af  NEGATE
(make <vm-insn-info> :name 'NEGATE :code 175
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argr v (cond ((SCM_INTP v) ($result:n (- (SCM_INT_VALUE v)))) ((SCM_FLONUMP v) ($result:f (- (Scm_GetDouble v)))) (else ($result (Scm_Negate v))))))

;; #x0b0  NUMIADD2
(make <vm-insn-info> :name 'NUMIADD2 :code 176
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (if (and (SCM_REALP arg) (SCM_REALP VAL0)) ($result:f (+ (Scm_GetDouble arg) (Scm_GetDouble VAL0))) ($result (Scm_Add (Scm_Inexact arg) (Scm_Inexact VAL0))))))

;; #x0b1  NUMISUB2
(make <vm-insn-info> :name 'NUMISUB2 :code 177
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (if (and (SCM_REALP arg) (SCM_REALP VAL0)) ($result:f (- (Scm_GetDouble arg) (Scm_GetDouble VAL0))) ($result (Scm_Sub (Scm_Inexact arg) (Scm_Inexact VAL0))))))

;; #x0b2  NUMIMUL2
(make <vm-insn-info> :name 'NUMIMUL2 :code 178
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (if (and (SCM_REALP arg) (SCM_REALP VAL0)) ($result:f (* (Scm_GetDouble arg) (Scm_GetDouble VAL0))) ($result (Scm_Mul (Scm_Inexact arg) (Scm_Inexact VAL0))))))

;; #x0b3  NUMIDIV2
(make <vm-insn-info> :name 'NUMIDIV2 :code 179
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp arg (if (and (SCM_REALP arg) (SCM_REALP VAL0)) ($result:f (/ (Scm_GetDouble arg) (Scm_GetDouble VAL0))) ($result (Scm_Div (Scm_Inexact arg) (Scm_Inexact VAL0))))))

;; #x0b4  NUMADDI
(make <vm-insn-info> :name 'NUMADDI :code 180
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((imm::long (SCM_VM_INSN_ARG code))) ($w/argr arg (cond ((SCM_INTP arg) ($result:n (+ imm (SCM_INT_VALUE arg)))) ((SCM_FLONUMP arg) ($result:f (+ (SCM_FLONUM_VALUE arg) (cast double imm)))) (else ($result (Scm_Add (SCM_MAKE_INT imm) arg)))))))

;; #x0b5  LREF0-NUMADDI
(make <vm-insn-info> :name 'LREF0-NUMADDI :code 181
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF0 NUMADDI)
  :body '#f)

;; #x0b6  LREF1-NUMADDI
(make <vm-insn-info> :name 'LREF1-NUMADDI :code 182
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF1 NUMADDI)
  :body '#f)

;; #x0b7  LREF2-NUMADDI
(make <vm-insn-info> :name 'LREF2-NUMADDI :code 183
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF2 NUMADDI)
  :body '#f)

;; #x0b8  LREF3-NUMADDI
(make <vm-insn-info> :name 'LREF3-NUMADDI :code 184
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF3 NUMADDI)
  :body '#f)

;; #x0b9  LREF10-NUMADDI
(make <vm-insn-info> :name 'LREF10-NUMADDI :code 185
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF10 NUMADDI)
  :body '#f)

;; #x0ba  LREF11-NUMADDI
(make <vm-insn-info> :name 'LREF11-NUMADDI :code 186
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF11 NUMADDI)
  :body '#f)

;; #x0bb  LREF12-NUMADDI
(make <vm-insn-info> :name 'LREF12-NUMADDI :code 187
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF12 NUMADDI)
  :body '#f)

;; #x0bc  LREF20-NUMADDI
(make <vm-insn-info> :name 'LREF20-NUMADDI :code 188
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF20 NUMADDI)
  :body '#f)

;; #x0bd  LREF21-NUMADDI
(make <vm-insn-info> :name 'LREF21-NUMADDI :code 189
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF21 NUMADDI)
  :body '#f)

;; #x0be  LREF30-NUMADDI
(make <vm-insn-info> :name 'LREF30-NUMADDI :code 190
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF30 NUMADDI)
  :body '#f)

;; #x0bf  LREF0-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF0-NUMADDI-PUSH :code 191
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF0 NUMADDI PUSH)
  :body '#f)

;; #x0c0  LREF1-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF1-NUMADDI-PUSH :code 192
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF1 NUMADDI PUSH)
  :body '#f)

;; #x0c1  LREF2-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF2-NUMADDI-PUSH :code 193
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF2 NUMADDI PUSH)
  :body '#f)

;; #x0c2  LREF3-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF3-NUMADDI-PUSH :code 194
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF3 NUMADDI PUSH)
  :body '#f)

;; #x0c3  LREF10-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF10-NUMADDI-PUSH :code 195
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF10 NUMADDI PUSH)
  :body '#f)

;; #x0c4  LREF11-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF11-NUMADDI-PUSH :code 196
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF11 NUMADDI PUSH)
  :body '#f)

;; #x0c5  LREF12-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF12-NUMADDI-PUSH :code 197
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF12 NUMADDI PUSH)
  :body '#f)

;; #x0c6  LREF20-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF20-NUMADDI-PUSH :code 198
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF20 NUMADDI PUSH)
  :body '#f)

;; #x0c7  LREF21-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF21-NUMADDI-PUSH :code 199
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF21 NUMADDI PUSH)
  :body '#f)

;; #x0c8  LREF30-NUMADDI-PUSH
(make <vm-insn-info> :name 'LREF30-NUMADDI-PUSH :code 200
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '(LREF30 NUMADDI PUSH)
  :body '#f)

;; #x0c9  NUMSUBI
(make <vm-insn-info> :name 'NUMSUBI :code 201
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((imm::long (SCM_VM_INSN_ARG code))) ($w/argr arg (cond ((SCM_INTP arg) ($result:n (- imm (SCM_INT_VALUE arg)))) ((SCM_FLONUMP arg) ($result:f (- (cast double imm) (SCM_FLONUM_VALUE arg)))) (else ($result (Scm_Sub (SCM_MAKE_INT imm) arg)))))))

;; #x0ca  READ-CHAR
(make <vm-insn-info> :name 'READ-CHAR :code 202
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (ch::int 0) (port::ScmPort*)) (cond ((== nargs 1) ($type-check VAL0 SCM_IPORTP "input port") (set! port (SCM_PORT VAL0))) (else (set! port SCM_CURIN))) (set! ch (Scm_Getc port)) ($result (?: (< ch 0) SCM_EOF (SCM_MAKE_CHAR ch)))))

;; #x0cb  PEEK-CHAR
(make <vm-insn-info> :name 'PEEK-CHAR :code 203
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (ch::int 0) (port::ScmPort*)) (cond ((== nargs 1) ($type-check VAL0 SCM_IPORTP "input port") (set! port (SCM_PORT VAL0))) (else (set! port SCM_CURIN))) (set! ch (Scm_Peekc port)) ($result (?: (< ch 0) SCM_EOF (SCM_MAKE_CHAR ch)))))

;; #x0cc  WRITE-CHAR
(make <vm-insn-info> :name 'WRITE-CHAR :code 204
  :num-params 1 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((nargs::int (SCM_VM_INSN_ARG code)) (ch) (port::ScmPort*)) (cond ((== nargs 2) ($type-check VAL0 SCM_OPORTP "output port") (set! port (SCM_PORT VAL0)) (POP-ARG ch)) (else (set! port SCM_CUROUT ch VAL0))) ($type-check ch SCM_CHARP "character") (SCM_PUTC (SCM_CHAR_VALUE ch) port) ($result SCM_UNDEFINED)))

;; #x0cd  CURIN
(make <vm-insn-info> :name 'CURIN :code 205
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result (SCM_OBJ (|->| vm curin))))

;; #x0ce  CUROUT
(make <vm-insn-info> :name 'CUROUT :code 206
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result (SCM_OBJ (|->| vm curout))))

;; #x0cf  CURERR
(make <vm-insn-info> :name 'CURERR :code 207
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($result (SCM_OBJ (|->| vm curerr))))

;; #x0d0  SLOT-REF
(make <vm-insn-info> :name 'SLOT-REF :code 208
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '($w/argp obj (TAIL-CALL-INSTRUCTION) (SCM_FLONUM_ENSURE_MEM VAL0) ($result (Scm_VMSlotRef obj VAL0 FALSE))))

;; #x0d1  SLOT-SET
(make <vm-insn-info> :name 'SLOT-SET :code 209
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((slot)) (POP-ARG slot) ($w/argp obj (TAIL-CALL-INSTRUCTION) (SCM_FLONUM_ENSURE_MEM slot) (SCM_FLONUM_ENSURE_MEM VAL0) ($result (Scm_VMSlotSet obj slot VAL0)))))

;; #x0d2  SLOT-REFC
(make <vm-insn-info> :name 'SLOT-REFC :code 210
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '#f
  :body '(let* ((slot)) (FETCH-OPERAND slot) INCR-PC (TAIL-CALL-INSTRUCTION) (SCM_FLONUM_ENSURE_MEM VAL0) ($result (Scm_VMSlotRef VAL0 slot FALSE))))

;; #x0d3  SLOT-SETC
(make <vm-insn-info> :name 'SLOT-SETC :code 211
  :num-params 0 :operand-type 'obj
  :obsoleted #f
  :combined '#f
  :body '(let* ((slot)) (FETCH-OPERAND slot) INCR-PC ($w/argp obj (TAIL-CALL-INSTRUCTION) (SCM_FLONUM_ENSURE_MEM VAL0) ($result (Scm_VMSlotSet obj slot VAL0)))))

;; #x0d4  PUSH-HANDLERS
(make <vm-insn-info> :name 'PUSH-HANDLERS :code 212
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(let* ((before) (after VAL0)) (VM-ASSERT (>= (- SP (|->| vm stackBase)) 1)) (POP-ARG before) (SCM_FLONUM_ENSURE_MEM before) (SCM_FLONUM_ENSURE_MEM after) (set! (|->| vm handlers) (Scm_Acons before after (|->| vm handlers))) NEXT))

;; #x0d5  POP-HANDLERS
(make <vm-insn-info> :name 'POP-HANDLERS :code 213
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (VM-ASSERT (SCM_PAIRP (|->| vm handlers))) (set! (|->| vm handlers) (SCM_CDR (|->| vm handlers))) NEXT))

;; #x0d6  LREF-RET
(make <vm-insn-info> :name 'LREF-RET :code 214
  :num-params 2 :operand-type 'none
  :obsoleted #f
  :combined '(LREF RET)
  :body '#f)

;; #x0d7  LREF0-RET
(make <vm-insn-info> :name 'LREF0-RET :code 215
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF0 RET)
  :body '#f)

;; #x0d8  LREF1-RET
(make <vm-insn-info> :name 'LREF1-RET :code 216
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF1 RET)
  :body '#f)

;; #x0d9  LREF2-RET
(make <vm-insn-info> :name 'LREF2-RET :code 217
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF2 RET)
  :body '#f)

;; #x0da  LREF3-RET
(make <vm-insn-info> :name 'LREF3-RET :code 218
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF3 RET)
  :body '#f)

;; #x0db  LREF10-RET
(make <vm-insn-info> :name 'LREF10-RET :code 219
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF10 RET)
  :body '#f)

;; #x0dc  LREF11-RET
(make <vm-insn-info> :name 'LREF11-RET :code 220
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF11 RET)
  :body '#f)

;; #x0dd  LREF12-RET
(make <vm-insn-info> :name 'LREF12-RET :code 221
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF12 RET)
  :body '#f)

;; #x0de  LREF20-RET
(make <vm-insn-info> :name 'LREF20-RET :code 222
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF20 RET)
  :body '#f)

;; #x0df  LREF21-RET
(make <vm-insn-info> :name 'LREF21-RET :code 223
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF21 RET)
  :body '#f)

;; #x0e0  LREF30-RET
(make <vm-insn-info> :name 'LREF30-RET :code 224
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '(LREF30 RET)
  :body '#f)

;; #x0e1  BOX
(make <vm-insn-info> :name 'BOX :code 225
  :num-params 0 :operand-type 'none
  :obsoleted #f
  :combined '#f
  :body '(begin (SCM_FLONUM_ENSURE_MEM VAL0) (let* ((b::ScmBox* (Scm_MakeBox VAL0))) (set! VAL0 (SCM_OBJ b))) NEXT))


