	.LIMIT
	.TITLE	UU
	.ENABL	GBL
	.ASECT 		

	TKS=177560
	TKB=177562
	TTS=177564
	TTB=177566
	KRA=160000
	KRD=160002
	KRS=167770
	RI0=167772
	RI1=167773
	KRP=167774
	TRU=176640
	TRD=176642
	TRA=176644
	ESC=033
	IRQ=200			;-1
	USERPC=40
	JSW=44
	USEPTO=50
	ERRBYT=52
	SYSPTR=54
	EM=100000
	EM1=360
	EM2=362
	EM3=364
	EM4=364
	EM5=60
	EM6=62
	EM7=64
	EM8=66
	TEM1=100
	TEM2=102
	
S::	;MOV	#177777,	EM1
	;MOV	#IRQ,	EM2
	.=1000
	MOV	@#USEPTO,	R3
	SUB	#G,	R3
	MOV	R3,	DL
	MOV	#7,	R1
	MOV	#DANN,	R2
1$:	TSTB	@#TTS
	BPL	1$
	MOVB	(R2)+,	@#TTB
	SOB	R1,	1$
	MOV	#G,	R2
2$:	TSTB	@#TTS
	BPL	2$
	MOVB	(R2)+,	@#TTB
	SOB	R3,	2$
	;CLR	R0	$$$$$$$$$$$$$$$$$$!!!!
	EMT	350
	

	.BYTE	0
DANN:	.BYTE	ESC,'X,0
DL:	.BYTE	1,0
	.BYTE	0,'@
	.EVEN
SPM:	.WORD	0
	.	=.+4332
;G::	;JMP	GRS
;	;.	=.+13322
;VSTAK:	.WORD	0
;	;.	=.+776
G::				
GRS:	RESET
	MTPS	#IRQ
	MOV	#<GRS-2>,	SP
	CALL	W1
	CALL	W2
	CALL	W3
	CALL	W4

	CALL	W6
	CALL	W7
	CALL	W8
	CALL	W9
EXIT:	MOV	@#EM,	R1
	JMP	(R1)
	HALT

W1:	CLR	R0
	MOV	#^D16,	R1
1$:	MOVB	R0,	@#RI0
	MOVB	#0,	@#RI1
	ADD	#4,	R0
	SOB	R1,	1$
	RETURN
W2:	MOV	#13474,	R1
	MOV	#^D530,	R0
	CLR	R3
2$:	MOV	R3,	-(R1)
	ADD	#2400,	R3
	SOB	R0,	2$
	RETURN
W3:	MOV	#3474,	R1
	MOV	#^D530,	R0
	CLR	R3
3$:	MOV	R3,	-(R1)
	ADD	#2400,	R3
	SOB	R0,	3$
	RETURN
W4:	MOV	#17474,	R1
	MOV	#^D480,	R0
	MOV	#40000,	R3
4$:	MOV	R3,	-(R1)
	ADD	#^D100,	R3
	SOB	R0,	4$
	RETURN
W6:	MOV	#7474,	R1
	MOV	#^D480,	R0
	MOV	#40000,	R3
5$:	MOV	R3,	-(R1)
	ADD	#^D100,	R3
	SOB	R0,	5$
	RETURN
W7:	MOV	#^B10,	@#KRS
;	MOV	#40000,	@#KRA
;	MOV	#137777,	R0
;6$:	MOV	#0,	@#KRD
;	INC	@#KRA
;	SOB	R0,	6$
;	MOV	#40000,	@#KRA
;7$:	INC	@#KRA
;	MOV	#0,	@#KRD
;	CMP	#177777,	@#KRA
;	BNE	7$
	
	MOV	#40000,	@#KRA
14$:	CLR	@#KRD
	INC	@#KRA
	BNE	14$
	MOV	#TR100,	@#TEM1
	MOV	#IRQ,	@#TEM2
	BISB	#100,	@#TKS
	BICB	#100,	@#TTS
	MOV	#T,	@#EM1
	MOV	#IRQ,	@#EM2
	MOV	#K,	@#EM3
	MOV	#IRQ,	@#EM4
	MOV	#T,	@#EM5
	MOV	#IRQ,	@#EM6
	MOV	#K,	@#EM7
	MOV	#IRQ,	@#EM8
	RETURN
W8:	CLR	R3
	MOV	#20,	R1
	MOV	#DAN1,	R2
10$:	MOVB	R3,	@#RI0
	MOVB	(R2)+,	@#RI1
	ADD	#4,	R3
	SOB	R1,	10$
	MOVB	#0200,	@#RI0
	RETURN

	MOV	#0,	@#KRS
	MOVB	#200,	@#RI0
				
;PROGRAMA
W9:	MOV	#46001,	@#KRA
	MOV	#DAN2,	R3
	MOV	#4,	R0
4$:	MOV	#156,	R1
5$:	MOV	#67,	R2
2$:	CLR	@#KRD
	INC	@#KRA
	SOB	R2,	2$
3$:	MOV	#3,	R4
6$:	MOV	#17,	R2
1$:	MOV	(R3),	@#KRD
	INC	@#KRA
	SOB	R2,	1$
	TST	(R3)+
	SOB	R4,	6$
	SUB	#6,	R3
	SOB	R1,	5$
	ADD	#6,	R3
	SOB	R0,	4$
	CALL	TIME4
KN:	MOV	#DAN2,	R3
	MOV	#4,	R0
5$:	MOV	#170,	R1
4$:	MOV	#67,	R2
1$:	CLR	@#KRD
	INC	@#KRA
	SOB	R2,	1$
	MOV	#3,	R4
3$:	MOV	#17,	R2
2$:	MOV	(R3),	@#KRD
	INC	@#KRA
	SOB	R2,	2$
	TST	(R3)+
	SOB	R4,	3$
	SUB	#6,	R3
	SOB	R1,	4$
	ADD	#6,	R3
	SOB	R0,	5$
	CALL	TIME4
	RETURN

TIME4:	MOV	#300,	R2
2$:	MOV	#30000,	R1
1$:	SOB	R1,	1$
	SOB	R2,	2$
	RETURN
TR100:	RTI
K:	MOVB	@#TKB,	R0
	CMPB	#3,	R0
	BEQ	EX
	RTI
EX:	JMP	EXIT
T:	RTI
DAN1::	.BYTE	0,1,2,3,4,10,14,20,40,60,25,52,77,17,74,77
	.EVEN
DAN2::	.BYTE	021,021,042,042,063,063,104,104
	.BYTE	125,125,146,146,167,167,210,210
	.BYTE	231,231,252,252,273,273,314,314
	.BYTE	335,335,356,356,377,377
	.EVEN
DAN3::	.BYTE	0,320,0,15,320,0,15,0
	.EVEN
	.WORD	144,144,144,144,144,144,144,144,144,144,144
FYW:	.WORD	144
	.END	S





ER1:	MOV	#^D100,	R0
2$:	MOV	#DAN2,	R1
	MOV	#4,	R2
1$:	BIS	(R1),	KRD
	ADD	#144,	KRA
	SOB	R2,	1$
	SOB	R0,	2$

ER2:	MOV	#^D100,	R0
2$:	MOV	#DAN2,	R1
	MOV	#4,	R2
1$:	BIS	(R1)+,	KRD
	SOB	R2,	1$
	ADD	#1,	KRA
	SOB	R0,	2$
;TIME::
CCC:	MOV	#300,	R2
2$:	MOV	#30000,	R1
1$:	SOB	R1,	1$
	SOB	R2,	2$
;	RTS	PC

TIM1:	MOV	#300,	R2
2$:	MOV	#30000,	R1
1$:	SOB	R1,	1$
	SOB	R2,	2$

TIM1:	MOV	#300,	R2
2$:	MOV	#30000,	R1
1$:	SOB	R1,	1$
	SOB	R2,	2$


                                                                                                                                                                                                                                                                                                  