Midas system macros

define	load a, b
	llr (b
	slr a
	termin

define	move a, b
	llr a
	slr b
	termin

define	init a, b
	ldx (b
	sxa a
	termin

define	feed n
	ldx (-n+1
	p6s+lro-opr
	tix .-1
	termin

define	clear a, b
	ldx (b-a
	stx a
	tix .-1
	termin

define	write a| b
	tsx wr
	b-.-2
	text |a|
b,	termin

opsyn flex, flexo
opsyn char, character
opsyn term, terminate
opsyn const, constants
opsyn vari, variables

anp:anl 20
anc:ana 40
orc:ora 40
anz:ana 50
ill:ial-10
pnl:prt+cyl-opr
xx:hlt

define	move2 a, b
	move a, b
	move a+1, b+1
	term

define	zero
	0
	0
	term

define	tplr a
	lcc
	trn a
	term

define	error rou, ret, nam
	tsx rou
	tra ret
	nam
	term

define	punch
	tsx p3c
	term

define	slr2 a
	slr a
	slr a+1
	term

define	type
	tsx pp3
	term

define	sqeze a, b, c
	zz=50Xa+b
	50Xzz+c
	term

define	symbol a, b, c, d, e, f
	sqeze a, b, c+add
	sqeze d, e, f
	term

define	sqoze a, b, c
	sqeze a, b, c+add
	term

l=0	r=1

start
t