/extend midas macros

opsyn extend,null

define enter
	lring
	eem
termin

/expurgate clears symbol table

define expurgate /a
	lac (st
	dac sp1
a,	cla
	extend
	dac i sp1
	idx sp1
	sas (low
	jmp a
termin

define error s,rtn,c
	law rtn
	jda s
	c
termin

define erroru c
	jda sov
	c
termin

/setups are a home for any special initialization required

define setup1	termin
define setup2	termin

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

define zero
	0	0
termin
          
                                                                 
define sqeze a,b,c
	zzz=a	zzz1=b
	1600.xzzz+40.xzzz1+c
termin

define sqoze a,b,c
	sqeze a,b,c+200000
termin

define sym3 a,b,c,d,e,f,v
	sqeze a,b,c+200000
	sqeze d,e,f+400000
	v
termin

define sym6 a,b,c,d,e,f,v
	sqeze a,b,c+200000
	sqeze d,e,f+400000
	v
termin

define disp lc,uc
	zzz=uc
	1000xzzz+lc
termin

define illegal a
	disp a+200, a+200
termin

define letter a
	disp a, a
termin

define number a,b
	disp a, b+100-adt
termin

define oper a,b
	disp a+100-adt, b+100-adt
termin

opsyn char, charac
opsyn flex, flexo
          
                                                                 
opsyn ondrum,null

define endrum a
termin

opsyn drumld,null

define putdrum
fr1/
	enter
	jmp 7751
	word jmp fr1
termin

opsyn endputdrum,null

define setup3
	92d=obl
termin

define	rdrchn
	jmp 93d
	termin

define	pchchn
	jmp 93d
	termin

define	typchn
	jmp 93d
	termin

start