                     lisp 8-9-64 for mac

define	laa a
	lac i a
	termin

define	loa a
	lio i a
	termin

define	lad a
	idx a
	laa a
	termin

define	ldad a
	lad a
	dac a
	termin

define	lod a
	idx a
	loa a
	termin
          
                                                                 
define	ldaa a
	laa a
	dac a
	termin

define	dlaa
	dac 100
	laa 100
	termin

define	dlad
	dac 100
	lad 100
	termin

define	daa a
	dac i a
	termin

define	doa a
	dio i a
	termin

define	dod a
	idx a
	doa a
	termin
          
                                                                 
define	exit
	jmp .
	termin

define	undex a
	law i 1
	add a
	dac a
	termin

define	swap
	rcl 9s
	rcl 9s
	termin

define	setup a,b
	law i b
	dac a
	termin

define	init a,b
	law b
	dap a
	termin

define	cksb n
	cks
	ril n's
	spi i
	jmp .-3
	termin
          
                                                                 
define	getmem
	eem
	termin

define	csys
	tyi
	rrb
	eem
	termin

define	strdr
	rpa-i
	termin

define	prbrk
	rrb
	termin

define	chkb n
	cks
	ril n's
	termin

	lbuf=50
	ms=37776
	cs=7777
	nhb=20
	gap=0


start
          
                                                                                                             
