AbleOS/lasp
2
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

minor changes

Browse source
This commit is contained in:
able 2024-05-03 13:48:10 -05:00
parent 3a37525c65
commit 30bdd44ba5
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lasp.S
View file

@ -5,7 +5,7 @@ li64 r13, 0
;; r253 will be the offset from the stack pointer specified by the spec to be r254 ;; r253 will be the offset from the stack pointer specified by the spec to be r254
li64 r253, 0 li64 r253, 0
; Load first char
ldr r12, r13, lisp, 1 ldr r12, r13, lisp, 1
loop: loop:
@ -27,6 +27,7 @@ loop:
; push the char onto the stack ; push the char onto the stack
jmp push_u64_stack jmp push_u64_stack
; loop :skull:
jmp loop jmp loop
tx tx
@ -63,10 +64,6 @@ closed_paren:
jmp log_lisp_error jmp log_lisp_error
eval_stack: eval_stack:
jmp pop_u64_stack
jmp panic
panic:
jmp log_lisp_error jmp log_lisp_error
lisp: lisp: