000000	main:
	mov	$11000,sp	012706
				011000
	jmp	loop		000137
				000200	000006

000100	putchar:
	mov	2(sp),r0	016600
				000002
1:	bit	177564,$200	033727
				177564
				000200
	beq	1b		001774
	tst	r0		005700
	beq	ret		001406
	mov	r0,177566	010037
				177566
1:	bit	177564,$200	033727
				177564
				000200
	beq	1b		001774
ret:	rts	pc		000207	000134

000200	loop:
	clr	r2		005002
	mov	$TOP,r3		012703
				002000
yloop:	cmp	r2,$HEIGHT	020227
				000040
	bge	yend		002052
	clr	r0		005000
	mov	$LEFT,r1	012701
				174000
xloop:	cmp	r0,$WIDTH	020027
				000120
	bge	xend		002027
	mov	r2,-(sp)	010246
	mov	r0,-(sp)	010046
	mov	r3,-(sp)	010346
	mov	r1,-(sp)	010146
	jsr	pc,isbound	004737
				000400
	mov	$40,-(sp)	012746
				000040
	tst	r0		005700
	beq	1f		001402
	mov	$52,(sp)	012716
				000052
1:	jsr	pc,putchar	004737
				000100
	tst	(sp)+		005726
	mov	(sp)+,r1	012601
	mov	(sp)+,r3	012603
	mov	(sp)+,r0	012600
	mov	(sp)+,r2	012602
	add	$DX,r1		062701
				000046
	inc	r0		005200
	br	xloop		000746
xend:	mov	$12,-(sp)	012746
				000012
	jsr	pc,putchar	004737
				000100
	mov	$15,(sp)	012716
				000015
	jsr	pc,putchar	004737
				000100
	tst	(sp)+		005726
	add	$DY,r3		062703
				177700
	inc	r2		005202
	br	yloop		000723
yend:	halt			000000	000340

000400	isbound_mandel:
	mov	2(sp),r0	016600
				000002
	mov	4(sp),r1	016601
				000004
	mov	$40,-2(sp)	012766
				000040
				177776
loop:	mov	r0,r2		010002
	mov	r1,r4		010104
	mul	r2,r2		070202
	mul	r4,r4		070404
	sub	r5,r3		160503
	sbc	r2		005602
	sub	r4,r2		160402
	ash	r2,$6		072227
				000006
	ash	r3,$-12		072327
				177766
	bic	$177700,r3	042703
				177700
	bis	r3,r2		050302
	add	2(sp),r2	066602
				000002
	mul	r0,r1		070001
	ash	r0,$7		072027
				000007
	ash	r1,$-11		072127
				177767
	bic	$177600,r1	042701
				177600
	bis	r0,r1		050001
	add	4(sp),r1	066601
				000004
	mov	r2,r0		010200
	mov	r1,r4		010104
	mul	r2,r2		070202
	mul	r4,r4		070404
	add	r5,r3		060503
	adc	r2		005502
	add	r4,r2		060402
	cmp	r2,$100		020227
				000100
	bgt	1f		003010
	dec	-2(sp)		005366
				177776
	tst	-2(sp)		005766
				177776
	bne	loop		001327
	mov	$1,r0		012700
				000001
	rts	pc		000207
1:	clr	r0		005000
	rts	pc		000207	000550