; Microchip Pic Disassembler Ver 1.0 (C)AZMaster
; http:\\azmaster.narod.ru    azmaster@mail.ru

; current - 4 dis...  14.03.2014

	TITLE	"RD_032_dis.asm"
	LIST	P=12F629
	RADIX	DEC
	include	<p12f629.inc>
	errorlevel -302

#define	fosc	.4000000

  __CONFIG  0x3FCC

	  ORG	0x0000

Start:
		 GOTO	M004F
M0001:
		CLRF	INDF
		INCF	FSR,F
		ADDLW	0xFF		; .255	' '	b'11111111'
M0004:				; Interrupt
		BTFSS	STATUS,Z
		 GOTO	M0001
		 GOTO	M004A
M0007:
		BSF	STATUS,RP0	; bank 1,k0
		BSF	EECON1,0
		MOVF	EEDATA,W
		BSF	STATUS,RP0	; bank 1,k0
		INCF	EEADR,F
		 GOTO	M004A
M000D:
		CLRF	0x23
M000E:
		MOVWF	0x22
M000F:
		MOVLW	0xFF		; .255	' '	b'11111111'
		ADDWF	0x22,F
		BTFSS	STATUS,C
		ADDWF	0x23,F
		BTFSS	STATUS,C
		 GOTO	M004A
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x21
		MOVLW	0xDF		; .223	' '	b'11011111'
		CALL	M001B
		 GOTO	M000F
		CLRF	0x21
M001B:
		ADDLW	0xE8		; .232	'~'	b'11101000'
		MOVWF	0x20
		COMF	0x21,F
		MOVLW	0xFC		; .252	' '	b'11111100'
		BTFSS	STATUS,C
		 GOTO	M0024
M0021:
		ADDWF	0x20,F
		BTFSC	STATUS,C
		 GOTO	M0021
M0024:
		ADDWF	0x20,F
			
		INCFSZ	0x21,F
		 GOTO	M0021
		BTFSC	0x20,0
		 GOTO	M002A
M002A:
		BTFSS	0x20,1
		 GOTO	M002E
		NOP	
		 GOTO	M002E
M002E:
		 RETURN	
M002F:
		MOVWF	0x22
		MOVLW	0x02		; .2	' '	b'00000010'
		 GOTO	M003A
M0032:
		MOVWF	0x22
		MOVLW	0x01		; .1	' '	b'00000001'
		 GOTO	M003A
M0035:
		MOVWF	0x22
		MOVLW	0x06		; .6	' '	b'00000110'
		 GOTO	M003A
M0038:
		MOVWF	0x22
		MOVLW	0x05		; .5	' '	b'00000101'
M003A:
		MOVWF	0x28
		MOVF	0x23,W
		SUBWF	0x21,W
		BTFSS	STATUS,Z
		 GOTO	M0041
		MOVF	0x22,W
		SUBWF	0x20,W
M0041:
		MOVLW	0x04		; .4	' '	b'00000100'
		BTFSC	STATUS,C
		MOVLW	0x01		; .1	' '	b'00000001'
		BTFSC	STATUS,Z
		MOVLW	0x02		; .2	' '	b'00000010'
		ANDWF	0x28,W
		BTFSS	STATUS,Z
		MOVLW	0xFF		; .255	' '	b'11111111'
		 GOTO	M004A
M004A:
		BCF	STATUS,IRP	; bank 1,k0
		BCF	STATUS,RP1	; bank 1,k0
		BCF	STATUS,RP0	; bank 0,k0
			
		 RETURN	
M004F:
		CLRF	GPIO
		BSF	STATUS,RP0	; bank 1,k0
		MOVLW	0x0F		; .15	' '	b'00001111'
		MOVWF	TRISIO
		BCF	STATUS,RP0	; bank 0,k0
		MOVLW	0x07		; .7	' '	b'00000111'
		MOVWF	CMCON
		BSF	STATUS,RP0	; bank 1,k0
		CLRF	WPU
		MOVLW	0x8F		; .143	'Ï'	b'10001111'
		MOVWF	OPTION_REG
		BCF	STATUS,RP0	; bank 0,k0
		MOVLW	0xC8		; .200	' '	b'11001000'
		CALL	M000D
		MOVLW	0x20		; .32	' '	b'00100000'
		MOVWF	FSR
		MOVLW	0x40		; .64	'@'	b'01000000'
		CALL	M0001
		MOVLW	0xE8		; .232	'~'	b'11101000'
		MOVWF	0x3C
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x3D
		MOVLW	0xE8		; .232	'~'	b'11101000'
		MOVWF	0x3E
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x3F
		CLRF	0x46
		CLRF	0x47
		MOVLW	0xFA		; .250	' '	b'11111010'
		MOVWF	0x40
		CLRF	0x41
		BSF	STATUS,RP0	; bank 1,k0
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	EEADR
		BCF	STATUS,RP0	; bank 0,k0
		CALL	M0007
		MOVWF	0x42
		BSF	STATUS,RP0	; bank 1,k0
		MOVLW	0x02		; .2	' '	b'00000010'
		MOVWF	EEADR
		BCF	STATUS,RP0	; bank 0,k0
		CALL	M0007
		MOVWF	0x44
M007A:
			
		MOVF	0x42,W
		SUBLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,Z
		 GOTO	M0080
		 GOTO	M0089
M0080:
			
		BTFSS	GPIO,2
		 GOTO	M0089
		MOVLW	0x32		; .50	'2'	b'00110010'
		CALL	M000D
			
		BTFSS	GPIO,2
		 GOTO	M0089
		 GOTO	M007A
M0089:
			
		BTFSS	GPIO,1
		 GOTO	M0092
		MOVLW	0x28		; .40	'('	b'00101000'
		CALL	M000D
			
		BTFSS	GPIO,1
		 GOTO	M0092
		 GOTO	M0158
M0092:
			
		BTFSS	GPIO,2
		 GOTO	M00A1
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x45
		CLRF	0x3A
		CLRF	0x3B
			
		MOVF	0x47,W
		SUBLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,Z
		 GOTO	M00A0
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x47
M00A0:
		 GOTO	M00A2
M00A1:
		CLRF	0x45
M00A2:
			
		MOVF	0x46,W
		SUBLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,Z
		 GOTO	M00AE
			
		MOVF	0x45,W
		SUBLW	0x01		; .1	' '	b'00000001'
		BTFSS	STATUS,Z
		 GOTO	M00AE
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x46
M00AE:
			
		MOVF	0x46,W
		SUBLW	0x01		; .1	' '	b'00000001'
		BTFSS	STATUS,Z
		 GOTO	M00B9
		MOVLW	0x96		; .150	'Ö'	b'10010110'
		MOVWF	0x3E
		CLRF	0x3F
		MOVLW	0x02		; .2	' '	b'00000010'
		MOVWF	0x46
		BSF	GPIO,4
M00B9:
			
		MOVF	0x46,W
		SUBLW	0x02		; .2	' '	b'00000010'
		BTFSS	STATUS,Z
		 GOTO	M00D7
		MOVLW	0x01		; .1	' '	b'00000001'
		SUBWF	0x3E,F
		MOVLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,C
		ADDLW	0x01		; .1	' '	b'00000001'
		SUBWF	0x3F,F
		CLRF	0x20
		CLRF	0x21
		MOVF	0x3F,W
		MOVWF	0x23
		MOVF	0x3E,W
		CALL	M0038
		BTFSS	STATUS,Z
		 GOTO	M00D7
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x46
		BCF	GPIO,4
		MOVF	0x3C,W
		MOVWF	0x3E
		MOVF	0x3D,W
		MOVWF	0x3F
			
		BTFSC	GPIO,2
		 GOTO	M00D7
		CLRF	0x46
M00D7:
			
		MOVF	0x46,W
		SUBLW	0x03		; .3	' '	b'00000011'
		BTFSS	STATUS,Z
		 GOTO	M00F0
			
		BTFSC	GPIO,2
		 GOTO	M00E0
		CLRF	0x46
M00E0:
		MOVLW	0x01		; .1	' '	b'00000001'
		SUBWF	0x3E,F
		MOVLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,C
		ADDLW	0x01		; .1	' '	b'00000001'
		SUBWF	0x3F,F
		CLRF	0x20
		CLRF	0x21
		MOVF	0x3F,W
		MOVWF	0x23
		MOVF	0x3E,W
		CALL	M0038
		BTFSS	STATUS,Z
		 GOTO	M00F0
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x46
M00F0:
			
		MOVF	0x47,W
		SUBLW	0x01		; .1	' '	b'00000001'
		BTFSS	STATUS,Z
		 GOTO	M0104
			
		BTFSC	GPIO,2
		 GOTO	M0104
			
		BTFSC	GPIO,0
		 GOTO	M0104
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x23
		MOVLW	0xF4		; .244	' '	b'11110100'
		CALL	M000E
			
		BTFSC	GPIO,0
		 GOTO	M0104
		MOVLW	0x02		; .2	' '	b'00000010'
		MOVWF	0x47
M0104:
			
		MOVF	0x47,W
		SUBLW	0x02		; .2	' '	b'00000010'
		BTFSS	STATUS,Z
		 GOTO	M010C
		INCF	0x40,F
		BTFSC	STATUS,Z
		INCF	0x41,F
M010C:
			
		MOVF	0x47,W
		SUBLW	0x02		; .2	' '	b'00000010'
		BTFSS	STATUS,Z
		 GOTO	M011E
			
		BTFSS	GPIO,2
		 GOTO	M011E
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x47
		MOVF	0x40,W
		MOVWF	0x3C
		MOVF	0x41,W
		MOVWF	0x3D
		MOVLW	0x5E		; .94	'^'	b'01011110'
		MOVWF	0x40
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x41
M011E:
		MOVF	0x40,W
		MOVWF	0x20
		MOVF	0x41,W
		MOVWF	0x21
		MOVLW	0x1B		; .27	' '	b'00011011'
		MOVWF	0x23
		MOVLW	0x58		; .88	'X'	b'01011000'
		CALL	M0035
		BTFSS	STATUS,Z
		 GOTO	M0135
		CLRF	0x47
		MOVLW	0xE8		; .232	'~'	b'11101000'
		MOVWF	0x3C
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x3D
		MOVLW	0xE8		; .232	'~'	b'11101000'
		MOVWF	0x3E
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x3F
		MOVLW	0x5E		; .94	'^'	b'01011110'
		MOVWF	0x40
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x41
M0135:
		MOVF	0x3A,W
		MOVWF	0x20
		MOVF	0x3B,W
		MOVWF	0x21
		CLRF	0x23
		MOVLW	0x00		; .0	' '	b'00000000'
		CALL	M002F
		BTFSS	STATUS,Z
		 GOTO	M0144
		MOVLW	0x01		; .1	' '	b'00000001'
		SUBWF	0x3A,F
		MOVLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,C
		ADDLW	0x01		; .1	' '	b'00000001'
		SUBWF	0x3B,F
M0144:
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x20
		CLRF	0x21
		MOVF	0x3B,W
		MOVWF	0x23
		MOVF	0x3A,W
		CALL	M0038
		BTFSS	STATUS,Z
		 GOTO	M0155
		CLRF	0x3A
		CLRF	0x3B
		BSF	GPIO,4
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x23
		MOVLW	0xE8		; .232	'~'	b'11101000'
		CALL	M000E
		BCF	GPIO,4
M0155:
		MOVLW	0x05		; .5	' '	b'00000101'
		CALL	M000D
		 GOTO	M0089
M0158:
		MOVLW	0x02		; .2	' '	b'00000010'
		MOVWF	0x23
		MOVLW	0x58		; .88	'X'	b'01011000'
		CALL	M000E
			
		MOVF	0x44,W
		SUBLW	0x00		; .0	' '	b'00000000'
		BTFSS	STATUS,Z
		 GOTO	M0162
		 GOTO	M016B
M0162:
			
		BTFSS	GPIO,1
		 GOTO	M016B
		MOVLW	0x64		; .100	'd'	b'01100100'
		CALL	M000D
			
		BTFSS	GPIO,1
		 GOTO	M016B
		 GOTO	M0162
M016B:
		BSF	GPIO,4
		CLRF	0x38
		CLRF	0x39
M016E:
		MOVF	0x38,W
		MOVWF	0x20
		MOVF	0x39,W
		MOVWF	0x21
		MOVLW	0x01		; .1	' '	b'00000001'
		MOVWF	0x23
		MOVLW	0x18		; .24	' '	b'00011000'
		CALL	M0032
		BTFSS	STATUS,Z
		 GOTO	M0183
			
		BTFSS	GPIO,1
		 GOTO	M017D
		CLRF	0x38
		CLRF	0x39
M017D:
		MOVLW	0x0A		; .10	' '	b'00001010'
		CALL	M000D
		INCF	0x38,F
		BTFSC	STATUS,Z
		INCFSZ	0x39,F
		 GOTO	M016E
M0183:
		BCF	GPIO,4
			
		MOVF	0x47,W
		SUBLW	0x02		; .2	' '	b'00000010'
		BTFSS	STATUS,Z
		 GOTO	M018F
		MOVLW	0xB2		; .178	'á'	b'10110010'
		ADDWF	0x40,F
		MOVLW	0x02		; .2	' '	b'00000010'
		BTFSC	STATUS,C
		ADDLW	0x01		; .1	' '	b'00000001'
		ADDWF	0x41,F
M018F:
			
		MOVF	0x46,W
		SUBLW	0x00		; .0	' '	b'00000000'
		BTFSC	STATUS,Z
		 GOTO	M0196
		MOVLW	0x03		; .3	' '	b'00000011'
		MOVWF	0x46
M0196:
			
		BTFSS	GPIO,2
		 GOTO	M019A
		 GOTO	M0089
M019A:
		MOVLW	0x60		; .96	'`'	b'01100000'
		MOVWF	0x3A
		MOVLW	0x09		; .9	' '	b'00001001'
		MOVWF	0x3B
		 GOTO	M0089
M019F:
		SLEEP	
		 GOTO	M019F

	  ORG	0x2100

	DE	0x00, 0xFF, 0xFF, 0x00

		END