.macro dolog,msg,args
	.if b msg
	.error ; must supply message number
	.mexit
	.endc
	jsr	r5, log
	$c = 1
	.irp	$t,<args>
	$c=$c+1
	.endm
	.word	$c		; num arg
	.word	msg		; message number
	.irp	$t,<args>	
	.word	$t
	.endm
	.endm	; dolog


	.enable lc
	.list me
	dolog 1,<foo,bar,blech,3>
	dolog 33.
	dolog
	dolog 14,<1,3>
	.end