From: python1
Subject: Lisp Machine Emulator
Date: 
Message-ID: <1188275222.989377.281600@x40g2000prg.googlegroups.com>
There's a MIT-CADR emulator available for download:

http://www.unlambda.com/cadr/index.html

I haven't read anything about the project here. Have any from this
group helped with this? Have any here used one of these Lisp machines?
If so, maybe you could help the project.

Though many of the CL functions aren't present, there's something
comforting about the functions that are ---(format t "Hello,
World!")--- despite the machine being from 1981...

From: Rainer Joswig
Subject: Re: Lisp Machine Emulator
Date: 
Message-ID: <joswig-BDD594.12213528082007@news-europe.giganews.com>
In article <························@x40g2000prg.googlegroups.com>,
 python1 <················@frontiernet.net> wrote:

> There's a MIT-CADR emulator available for download:
> 
> http://www.unlambda.com/cadr/index.html

Use this page:
http://www.unlambda.com/lisp/cadr.page

Then the link to the CADR source is correct.

> 
> I haven't read anything about the project here. Have any from this
> group helped with this? Have any here used one of these Lisp machines?
> If so, maybe you could help the project.
> 
> Though many of the CL functions aren't present, there's something
> comforting about the functions that are ---(format t "Hello,
> World!")--- despite the machine being from 1981...

-- 
http://lispm.dyndns.org
From: ········@gmail.com
Subject: Re: Lisp Machine Emulator
Date: 
Message-ID: <1188927553.231680.251900@r29g2000hsg.googlegroups.com>
I've been trying to get the emulator to build on my MacBook Pro, and I
am having little luck trying to get it to compile. I wrote the author,
and he does not have access to a Mac that is Intel powered. Has anyone
out there produced an executable for Mactel systems? I would very much
appreciate it if you could point me to its whereabouts, if so.
From: anon
Subject: Re: Lisp Machine Emulator
Date: 
Message-ID: <1zrDi.68504$ax1.53925@bgtnsc05-news.ops.worldnet.att.net>
In <························@r29g2000hsg.googlegroups.com>,  ········@gmail.com writes:
>I've been trying to get the emulator to build on my MacBook Pro, and I
>am having little luck trying to get it to compile. I wrote the author,
>and he does not have access to a Mac that is Intel powered. Has anyone
>out there produced an executable for Mactel systems? I would very much
>appreciate it if you could point me to its whereabouts, if so.
>

Well, First you do not need the chaosnet package. Use the following 
code below to replace chaos.c. There are other links in other files  
that verifies that chaos is working, these must be altered or removed 
as well.  You could just set or reset some of the c conditional (#define, 
#if) constants. to remove the chaosnet services. Actually, in the LINUX 
version the connection to the chaosnet server is faked, it only checks if 
the server is running.

Afterwards make sure you have the MAC version of SDL compiler and 
binaries libraries loaded and accessable. Or if you have the X-Windows 
compiler package you can build the X-Windows version instead.

Now, In my version I rewrote the terminal I/O interface to use ethernet 
Telnet program. Which the Lisp Machine prefers to use VT-100 instead of 
the emulation package that interfaces to the SDL libraries. The SDL in 
the Lisp Machine decrease it performance, X-windows is faster, Telnet 
is the best.

/* chaos.c -- Modified to remove chaosnet adapter emulation */
/*
 * chaosnet adapter emulation
 * $Id: chaos.c 83 2006-08-07 16:08:20Z brad $
 */

/* TODO:
   - desynchronize network process from CPU
 */

#include "usim.h"
#include "ucode.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>


int chaos_init ( void )
  {
    return 0 ;
  }

void chaos_xmit_pkt ( void )
  {
  }
 
int chaos_get_bit_count ( void )
  {
    return 0 ;
  }
 
int chaos_get_rcv_buffer ( void )
  {
    return 0 ;
  }
 
int chaos_get_csr ( void )
  {
    return 0 ;
  }
 
int chaos_put_xmit_buffer ( int v )
  {
    return 0 ;
  }
 
int chaos_get_addr ( void )
  {
    return 0 ;
  }

int chaos_set_csr ( int v )
  {
    return 0 ;
  }

void chaos_poll ( ) 
  {
  }