;**************************************************
;**** 	бшвхякъелше оепеундш дкъ ондопнцпюлл  *****
;**************************************************
	ORG 100

;*******************************
REGIM_PRM
	MOVLW	01
	MOVWF	PCLATH,A
	BCF	STATUS,C,A
	RLNCF	REG_PRM,F,A
	RLNCF	REG_PRM,W,A

	ANDLW	1FH
	ADDWF	PCL,F,A
	GOTO	REGIM0
	GOTO	REGIM1
	GOTO	REGIM2
	GOTO	REGIM3
	GOTO	REGIM4
	GOTO	REGIM5
	GOTO	REGIM6
	GOTO	REGIM7
;*******************************
; ондопнцпюллю онксвемхъ йндю яхлбнкю
; опенапюгнбюмхе б йнд яелхяецлемрмнцн хмдхйюрнпю
KOD_S
	MOVWF	TEMP_FORW,A

	MOVLW	01
	MOVWF	PCLATH,A

	BCF	STATUS,C,A
	RLNCF	TEMP_FORW,W,A

	ANDLW	1F
	ADDWF	PCL,F,A
	RETLW	03F	; 0
	RETLW	006	; 1  
	RETLW	05B	; 2 
	RETLW	04F	; 3 
	RETLW	066	; 4  
	RETLW	06D	; 5 
	RETLW	07D	; 6 
	RETLW	007	; 7
	RETLW	07F	; 8
	RETLW	06F	; 9  
	RETLW	077	; 10 A
	RETLW	07C	; 11 B
	RETLW	039	; 12 C
	RETLW	05E	; 13 D
	RETLW	079	; 14 E
	RETLW	071	; 15 F

;********************************************************************
	ORG 200


;********************************************************************
DECODIR
	MOVLW	02
	MOVWF	PCLATH,A
	BCF	STATUS,C,A

	RLNCF	KOMAND,F,A
	RLNCF	KOMAND,W,A
	ANDLW	7FH
	ADDWF	PCL,F,A
	RETURN			; бшунд еякх щрн йнд бнгбпюрю
	RETURN
	GOTO	KOMN1		; анкэье
	GOTO	KOMN2		; лемэье
	GOTO	KOMN3		; пюбмн
	GOTO	KOMN4		; ме пюбмн
	GOTO	KOMN5		; сярюмнбхрэ ахр
	GOTO	KOMN6		; яапняхрэ ахр
	GOTO	KOMN7		; оепедювю
	GOTO	KOMN8		; гюохяюрэ аюир он юдпеяс
	GOTO	KOMN9		; гюохяэ аюирю б EEPROM
	GOTO	KOMN10		; гюохяэ оюпюлерпнб
	GOTO	KOMN11		; 
	GOTO	KOMN12		; гюопня н дюммшу
	GOTO	KOMN13		; нрбер мю гюопня йнлюмдю ме хяонкмъеряъ
	GOTO	KOMN14		; оепеякюрэ  N дюммшX мювхмюъ я сйюгюммнцн юдпеяю б нгс
	GOTO	KOMN15		; яапня (хмхжхюкхгюжхъ) яхярелш
	GOTO	KOMN16		;
	GOTO	KOMN17		;
	GOTO	KOMN18		;
	GOTO	KOMN19		;
	GOTO	KOMN20		;
	GOTO	KOMN21		;
	GOTO	KOMN22		;
	GOTO	KOMN23		;
	GOTO	KOMN24		; 
	GOTO	KOMN25		;
	GOTO	KOMN26		;
	GOTO	KOMN27		;
	GOTO	KOMN28		;
	GOTO	KOMN29		;
	GOTO	KOMN30		;
	GOTO	KOMN31		; яапня (хмхжхюкхгюжхъ) яхярелш
;******************************************
	ORG	300

;*******************************
; ондопнцпюллю онксвемхъ ASCII йндю

KOD_ASCII
	MOVWF	TEMP_FORW,A

	MOVLW	03
	MOVWF	PCLATH,A

	BCF	STATUS,C,A
	RLNCF	TEMP_FORW,W,A

	ANDLW	1F
	ADDWF	PCL,F,A
	RETLW	030	; 0
	RETLW	031	; 1  
	RETLW	032	; 2 
	RETLW	033	; 3 
	RETLW	034	; 4  
	RETLW	035	; 5 
	RETLW	036	; 6 
	RETLW	037	; 7
	RETLW	038	; 8
	RETLW	039	; 9  
	RETLW	041	; 10 A
	RETLW	042	; 11 B
	RETLW	043	; 12 C
	RETLW	044	; 13 D
	RETLW	045	; 14 E
	RETLW	046	; 15 F
	ORG 400
	NOP
;*******************************
	ORG 500
	NOP
;*******************************
	ORG 600
	NOP
;*******************************
	ORG 700
;*******************************