; Simple macro example
;
; Peter Christen, 29 March 2004

; define macros

macro Get (x)			; read next char from keyboard into x
	trap	#2		; (read next char from keyboard into AC)
	store	x		; (Memory[x] = AC)
endmacro

macro Set2 (x, e1, op, e2)	; perform x = e1 + e2
	load	e1		; (AC = <value referred by e1>)
	op	e2		; (AC = AC op <value referred by e2>)
	store	x		; (Memory[x] = AC)
endmacro

				; int main() {
ch:	block	1		;   char ch;
n:	block	1		;   int n;
macrotest:			;   scanf("%c", &ch);
	Get(ch) 		;
	Set2(n, ch, sub, #'0')	;   n = ch - '0';       
				;
	trap	#1		;   return 0;
	end	macrotest	; }