                /midas system july 20, 1965

lai=opr 40
lia=opr 20
swp=opr 60
dia=iot 60
dba=iot 61
dcc=iot 62
dra=iot 63
sni=skp 4000

define	sense swch
	szs swchx10
	terminate

define	init with,what
	law what
	dap with
	terminate

define	index idxx,sass,jmpp
	idx idxx
	sas sass
	jmp jmpp

	terminate

define	listen
	cla>>05<<cli 1
	szf i 1
	jmp .-1
	tyi
	terminate

swap=swp

define	load with,what
	lio (what
	dio with
	terminate

define	move from,where
	lio from
	dio where
	terminate

define	setup where,what
	law i what
	dac where
	terminate

define	count ispp,jmpp
	isp ispp
	jmp jmpp
	terminate
start

             
                                                                           w
