diff options
| -rw-r--r-- | atk16_schasm/lib.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/atk16_schasm/lib.scm b/atk16_schasm/lib.scm index dcad652..b01aef2 100644 --- a/atk16_schasm/lib.scm +++ b/atk16_schasm/lib.scm @@ -81,22 +81,20 @@ (unless (and (< n (expt 2 16)) (>= n 0)) (error "n does not fit in bounds" n)) - (let* ((m (modulo n (expt 2 16)))) - `(imm ,m))) + `(imm ,m)) (define (i8 n) (unless (and (< n (expt 2 7)) (>= n (- (expt 2 7)))) (error "n does not fit in bounds" n)) - (let* ((m (modulo n (expt 2 8)))) + (let* ((m (modulo n (expt 2 16)))) `(imm ,m))) (define (u8 n) (unless (and (< n (expt 2 8)) (>= n 0)) (error "n does not fit in bounds" n)) - (let* ((m (modulo n (expt 2 8)))) - `(imm ,m))) + `(imm ,m)) (define (alu-op n) (unless (and (>= n 0) |