MOV	#4,0
	MOV	#18,1
	MOV	#21,2
	MOV	#27,3
	MOV	#55,4
	MOV	#63,5
	MOV	#1,240
	MOV	#2,241
	MOV	#3,242
	MOV	#4,243
	MOV	#5,244
	MOV	#0,245
0	MOV	#63,36
1	MOV	#0,37
2	CALL	11
3	BIT	#128,41
4	JEQ	2
5	CALL	14
6	CALL	15
7	WAIT	5000
8	BIT	#128,41
9	JNE	8
10	JMP	1
11	ADD	#240,R1
12	MOV	@R1,R1
13	RET	
14	RET	
15	MOV	@R1,37
16	RET