[net.lang] Merry Christmas from Macro-10

gs@mit-eddie.UUCP (Gordon Strong) (11/21/83)

Here's my submission: Merry Christmas from macro, a PDP-10 
assembler available under Tops-20.

	title MC

	search monsym		;get symbols

	a=1			;accumulator definitions
	t=5			;temporary register

start:	RESET%			;initialize the world
	setz t,			;zero out our counter
loop:	cain t,^d15		;have we printed 15 yet?
	 jrst done		;yes, we're done
	hrroi a,[asciz "Merry Christmas
"]				;pointer to text string
	PSOUT%			;print on primary output
	aoja t,loop		;increment counter and do it again
done:	HALTF%			;stop the program
	jrst .-1		;no need to continue

	end start

Happy holidays...

-- 
Gordon Strong
decvax!genrad!mit-eddie!gs
GS@MIT-XX