6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-24 20:31:12 +00:00
Code Issues Projects Releases Wiki Activity

Add PROG example

Browse Source
This commit is contained in:
David Schmenk 2024-07-12 12:02:08 -07:00
parent 0ddec876ac
commit 439216d437
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/lisp/prog.lisp Normal file
View File

@ -0,0 +1,11 @@
(label length (lambda (l)
(prog (u v)
(setq v 0)
(setq u l)
a (cond ((null u),(return v)))
(setq u (cdr u))
(setq v (+ 1 v))
(go a)
)
)
)