0	MOV	#63,36
1	MOV	#0,37
2	CALL	11
3	BIT	#128,41
4	JEQ	2
5	CALL	13
6	CALL	40
7	WAIT	5000
8	BIT	#128,41
9	JNE	8
10	JMP	1
11	ADD	#1,R1
12	RET	
13	SUB	#6,R1
14	JNC	13
15	ADD	#6,R1
16	RET	
40	MOV	#1,37
41	ADD	#255,R1
42	JNC	45
43	ROL	37
44	JMP	41
45	RET