fix bug, logand arg 2

2025-08-22 19:09:24 -05:00 · 2025-08-22 19:09:24 -05:00 · 03fa8d4370
commit 03fa8d4370
parent f91fa39aef
1 changed files with 1 additions and 1 deletions
--- a/scmvm/vm.scm
+++ b/scmvm/vm.scm
@ -164,7 +164,7 @@
  (define ram-word-set! (cute vm-memory-set! vm <> <>))
  (define debugger (vm-debugger vm))
  (define exit? #f)
-  (define (jump x) (vm-pc-set! vm x))
+  (define (jump x) (vm-pc-set! vm (logand #x2fffffff x)))
  (define (fetch-byte)
    (let ([byte (ram-byte-ref (vm-pc vm))])
      (vm-pc-set! vm (+ (vm-pc vm) 1))