diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-10-06 12:15:47 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-10-06 12:15:47 -0500 |
| commit | be7220c6fee27ae42061fdcc9aa6a2a5d0126359 (patch) | |
| tree | abeca8c2a93b71bff6f8e340cadc335159aab965 /eval.s | |
| parent | ebefe245bd632fc5cf2bbfb602543ffb86225693 (diff) | |
Fix read bugs
Diffstat (limited to 'eval.s')
| -rw-r--r-- | eval.s | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |