From be7220c6fee27ae42061fdcc9aa6a2a5d0126359 Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Thu, 6 Oct 2022 12:15:47 -0500 Subject: Fix read bugs --- eval.s | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'eval.s') diff --git a/eval.s b/eval.s index 0a819fd..9f786ca 100644 --- a/eval.s +++ b/eval.s @@ -321,7 +321,7 @@ cons: ; heap at 10000 ; no garbage collection ; pretend heap is infinite -004400 013702 MOV @#010000, R2 ; get free pointer +004400 013702 MOV @#10000, R2 ; get free pointer 004402 010000 004404 010012 MOV R0, @R2 ; move arg1 to car of new cons cell 004406 010162 MOV R1, 2(R2) ; move arg2 to cdr of new cons cell @@ -329,7 +329,7 @@ cons: 004412 010200 MOV R2, R0 ; result <- new cons cell 004414 062702 ADD 4, R2 ; advance free pointer 004416 000004 -004420 010237 MOV R2, @#010000 ; store new free pointer +004420 010237 MOV R2, @#10000 ; store new free pointer 004422 010000 004424 000207 RTS PC -- cgit v1.2.3