; Simple macro example
; example developed by Peter Strazdins, 1992-8
; Peter Christen, 29 March 2004

; define macros

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

macro Set2 (x, e1, op, e2)	; perform x = e1 + e2
	load	e1		; (AC = <value of e1>)
	op	e2		; (AC = AC op <value of 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	; }