	
	movb #233,r0
	emt 16
	
L0:	mov #16.,-(sp)
	mov #12.,r5
	mov (sp),r1

	mov r1,r2
0:	mov #dxy,r3

1:	mov (sp),r4
	com #0		
	beq 5	
	mov r5,r4

5:	movb (r3),r0
	add  r0,r1
	movb 1(r3),r0
	add r0,r2
	emt 24
	mov #"*",r0
	emt	16
	sob r4,5
	tst (r3)+
	tst (r3)
	bne 1
	
	cmpb -(r1), -(r2)
	tst -(r5)
	sub #2,(sp)
	
	
	dec #5
	bne  0
	halt

dxy:	.byte -1, -1, 	; 1  
			   0,  1, 	; 2
			   1, -1, 	; 3
			  -1,  0, 	; 4
			   1,  1, 	; 5
			   0, -1,	; 6
			  -1,  1, 	; 7
			   1,  0,	; 8
			   0, 0
			  
			      

make_bin

