Discussion
Loading...

#Tag

Log in
  • About
  • Code of conduct
  • Privacy
  • Users
  • Instances
  • About Bonfire
Paolo Amoroso
Paolo Amoroso boosted
Paul Houle
@UP8@mastodon.social  路  activity timestamp 3 days ago

Cidco MailStation as a Z80 Development Platform

https://jcs.org/2019/05/03/mailstation

#computers #retrocomputing #z80 #hacking #makers #technology

  • Copy link
  • Flag this post
  • Block
Christine Lemmer-Webber 馃寑
Christine Lemmer-Webber 馃寑 boosted
Nils M Holm
@AverageDog@mastodon.social  路  activity timestamp 3 weeks ago

The Mini #CommonLISP I have been working on now runs on CP/M with 2416 free cons cells. Enough to load Ken Kahn's tiny PROLOG and run a few simple queries.
The #AgonLight (18MHz eZ80) loads the LISP part of the code (236 lines) in 11 seconds. Simple programs run at acceptable speed, but slightly more complex PROLOG queries take minutes. 馃槉
#LISP#CPM#PROLOG#Z80

MICRO COMMON LISP 01
2416 NODES

* (maplist #'reverse '(1 2 3 4 5))
((5 4321) (5432) (543) (54) (5))

* (do ((a '(hello beautiful lisp world) (cdr a)))
    ((null a) (terpri))
    (prin (car a)))

HELLO BEAUTIFUL LISP WORLD
T

* (defmacro kwote (x) *',x)
KWOTE

* (kwote (foo bar))
(FOO BAR)

* (load 'prolog)
T

* (defparameter *db*
    '(((man socrates))
     ((mortal (\\ x)) (man (\\ x)))))

* (prolog *db* '(mortal (\\ who)))

WHO = SOCRATES
NIL
MICRO COMMON LISP 01 2416 NODES * (maplist #'reverse '(1 2 3 4 5)) ((5 4321) (5432) (543) (54) (5)) * (do ((a '(hello beautiful lisp world) (cdr a))) ((null a) (terpri)) (prin (car a))) HELLO BEAUTIFUL LISP WORLD T * (defmacro kwote (x) *',x) KWOTE * (kwote (foo bar)) (FOO BAR) * (load 'prolog) T * (defparameter *db* '(((man socrates)) ((mortal (\\ x)) (man (\\ x))))) * (prolog *db* '(mortal (\\ who))) WHO = SOCRATES NIL
MICRO COMMON LISP 01 2416 NODES * (maplist #'reverse '(1 2 3 4 5)) ((5 4321) (5432) (543) (54) (5)) * (do ((a '(hello beautiful lisp world) (cdr a))) ((null a) (terpri)) (prin (car a))) HELLO BEAUTIFUL LISP WORLD T * (defmacro kwote (x) *',x) KWOTE * (kwote (foo bar)) (FOO BAR) * (load 'prolog) T * (defparameter *db* '(((man socrates)) ((mortal (\\ x)) (man (\\ x))))) * (prolog *db* '(mortal (\\ who))) WHO = SOCRATES NIL
  • Copy link
  • Flag this post
  • Block
碌P
@stefanhoeltgen@mastodon.social  路  activity timestamp 4 months ago
#Z80 computer:

https://z80kits.com/shop/rc2014-mini-ii-picasso/

#RetroComputing

Sorry, no caption provided by author
Sorry, no caption provided by author
Sorry, no caption provided by author
  • Copy link
  • Flag this post
  • Block
Log in

bonfire.cafe

A space for Bonfire maintainers and contributors to communicate

bonfire.cafe: About 路 Code of conduct 路 Privacy 路 Users 路 Instances
Bonfire social 路 1.0.0-rc.2.1 no JS en
Automatic federation enabled
  • Explore
  • About
  • Members
  • Code of Conduct