       
ma   
ecro fio-dec system, june 1963


define	senseswitch A
	repeat 3, A=A+A
	szs A
	term

define	initialize A,B
	law B
	dap A
	term

define	index A,B,C
	idx A
	sas B
	jmp C
	term

define	listen
	cla+cli+clf 1-opr-opr
	szf i 1
	jmp .-1
	tyi
	term

define	swap
	rcl 9s
	rcl 9s
	term

define	load A,B
	lio (B
	dio A
	term

define	setup A,B
	law i B
	dac A
	term

define	count A,B
	isp A
	jmp B
	term

define	move A,B
	lio A
	dio B
	term

define	clear A,B
	init .+2, A
	dzm
	index .-1, (dzm B+1, .-1
	term

start
          
                                                                                               j

