/simple midas system

define
	init a,b
	law b
	dap a
	termin

define
	index a,b,c
	idx a
	sas b
	jmp c
	termin

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

define
	load a,b
	lio (b
	dio a
	termin

define
	setup a,b
	law i b
	dac a
	termin

define
	count a,b
	isp a
	jmp b
	termin

define
	move a,b
	lio a
	dio b
	termin

define
	clear a,b/c
	init c, a
c,	dzm
	index c, (dzm b-1, c
	termin

start
          
                                                                                                                                                 3