diff options
| -rw-r--r-- | bytepusher.scm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/bytepusher.scm b/bytepusher.scm index 1be1365..1182f48 100644 --- a/bytepusher.scm +++ b/bytepusher.scm @@ -168,20 +168,11 @@ (bytevector-copy! program 0 memory 0 (bytevector-length program)))))) (define (execute! instruction-addr) - (call-with-values - (lambda () (load-instruction instruction-addr)) - (lambda (a b c) - (set-byte! b (get-byte a)) - c))) - -(define (load-instruction instruction-addr) (let ((a (get-addr (+ 0 instruction-addr))) (b (get-addr (+ 3 instruction-addr))) (c (get-addr (+ 6 instruction-addr)))) - #;(display (string-append "a: " (number->string a 16) " ")) - #;(display (string-append "b: " (number->string b 16) " ")) - #;(display (string-append "c: " (number->string c 16) "\n")) - (values a b c))) + (set-byte! b (get-byte a)) + c)) (define (loop-frame!) (let loop ((count 65536) |