	;link 2000	
	movb #233,r0
	emt 16
	
L0:	mov #12.*400+16.,r5		; 12.*256.+16.=6020    16.*256.+12.=10014
	movb r5,r1
	mov r1,r2
	
0:	mov #xy,r3

1:	swab r5
	movb r5,r4

6:	asl (r3),r0
	sxt r0
	asl 1(r3),r0
	add  r0,r1
	asl (r3),r0
	sxt r0
	asl 1(r3),r0
	add  r0,r2
	emt 24
	mov #"*",r0		;xxx052
	emt	16
	sob r4,6
	bne  0

	halt
			     1 2 3 4 5 6 7 8
znak: 	.byte 0b1100011000011000	;1 -,  0 +

			     1 2 3 4 5 6 7 8      
xy:		.byte 0b1101111011011110
				
make_bin

