;***********************************
;     HellFire
;	24.11.2018 ( 21:59 )
;***********************************
;***********************************
	include	"p16f628a.inc"

	__config 0x3D18	

	org	0x2000
;	db	00,0x53,00,0x4e,00,0x30,00,0x31
;***********************************
;	Eeprom memory dump
	org	0x2100
	de	0x01,0x47,0x61,0x04,0x05,0x03,00,00
	de	00,00,0x01,0x21,0x31,0x04,0x06,0x03
	de	00,00,00,00,00,00,00,00
	de	00,00,00,00,00,00,00,00
	de	00,00,00,00,00,00,00,00
	de	00,00,00,00,00,00,00,00
	de	00,00,00,00,00,00,00,00
	de	00,00,00,00,00,00,00,00
;***********************************
	org	0x0000
    movlw	0x07
    movwf	CMCON
	movlw	0x17
	tris	0x05			
	movlw	00
	tris	0x06	
	movlw	00
	movwf	PORTB
	movlw	00
	movwf	0x21
	movlw	00
	movwf	0x22
	movlw	0x14
	movwf	0x1f
	call	L_0248
	call	L_0076
L_000e	btfss	PORTA,2
	goto	L_0011
	goto	L_000e
L_0011	movlw	00
	movwf	0x27
	movlw	0x10
	movwf	0x28
	call	L_03ee
	call	L_03ee
L_0017	movlw	00
	movwf	0x1f
	call	L_033c
	bsf	PORTB,3
	movlw	00
	movwf	0x2d
	call	L_037a
	call	L_03a5
	call	L_03f7
	movlw	0x52
	movwf	0x10
	movlw	0x52
	movwf	0x1e
	call	L_02c9
	call	L_0076
L_0026	btfss	PORTA,4
	goto	L_003c
	btfss	PORTA,0
	goto	L_0056
	btfss	PORTA,1
	goto	L_004e
	btfss	PORTA,2
	goto	L_002f
	goto	L_0026
L_002f	movlw	0x0a
	movwf	0x1f
	call	L_033c
	movlw	0x54
	movwf	0x1e
	call	L_02c9
	btfss	PORTA,0
	goto	L_006c
	btfss	PORTA,1
	goto	L_0064
	btfss	PORTA,2
	goto	L_002f
	call	L_0017
L_003c	movlw	0x54
	movwf	0x1e
	movlw	0x53
	movwf	0x10
	movlw	0x0a
	movwf	0x1f
	call	L_033c
	movlw	0x01
	movwf	0x2d
	call	L_037a
	call	L_03a5
	call	L_0248
	call	L_02c9
	call	L_0076
	call	L_004b
L_004b	btfss	PORTA,2
	goto	L_0017
	goto	L_004b
L_004e	call	L_0106
	movlw	00
	movwf	0x2d
	call	L_01d0
	call	L_02c9
	btfss	PORTA,1
	goto	L_004e
	goto	L_005d
L_0056	call	L_00ac
	movlw	00
	movwf	0x2d
	call	L_015c
	call	L_02c9
	btfss	PORTA,0
	goto	L_0056
L_005d	movlw	00
	movwf	0x2c
	goto	L_0060
L_0060	call	L_0306
	goto	L_0017
L_0062	call	L_0306
	goto	L_002f
L_0064	call	L_0138
	movfw	0x0f
	movwf	0x0d
	call	L_01d0
	call	L_02c9
	btfss	PORTA,1
	goto	L_0064
	goto	L_0073
L_006c	call	L_00df
	movfw	0x0e
	movwf	0x0c
	call	L_015c
	call	L_02c9
	btfss	PORTA,0
	goto	L_006c
L_0073	movlw	00
	movwf	0x2c
	goto	L_0062
L_0076	bcf	PORTB,2
	movlw	0xc0
	movwf	0x25
	call	L_0285
	bsf	PORTB,2
	movlw	0x3c
	movwf	0x25
	call	L_0285
	movlw	0x52
	movwf	0x25
	call	L_0285
	movlw	0x54
	movwf	0x25
	call	L_0285
	movlw	0x43
	movwf	0x25
	call	L_0285
	movlw	0x20
	movwf	0x25
	call	L_0285
	movlw	0x4e
	movwf	0x25
	call	L_0285
	movlw	0x4d
	movwf	0x25
	call	L_0285
	movlw	0x54
	movwf	0x25
	call	L_0285
	movlw	0x2d
	movwf	0x25
	call	L_0285
	movlw	0x34
	movwf	0x25
	call	L_0285
	movlw	0x35
	movwf	0x25
	call	L_0285
	movlw	0x30
	movwf	0x25
	call	L_0285
	movlw	0x20
	movwf	0x25
	call	L_0285
	movlw	0x42
	movwf	0x25
	call	L_0285
	movlw	0x47
	movwf	0x25
	call	L_0285
	movlw	0x3e
	movwf	0x25
	call	L_0285
	return		
L_00ac	movlw	00
	movwf	0x0d
	movlw	0x04
	subwf	0x2c,W
	btfsc	STATUS,Z
	goto	L_00b4
	incf	0x2c,F
	call	L_03ee
L_00b4	call	L_03f7
	movlw	0x01
	subwf	0x2b,W
	btfsc	STATUS,Z
	goto	L_00ba
	goto	L_00cd
L_00ba	movlw	0x51
	subwf	0x2a,W
	btfsc	STATUS,Z
	goto	L_00bf
	goto	L_00cd
L_00bf	movlw	0x31
	subwf	0x29,W
	btfsc	STATUS,Z
	goto	L_00c4
	goto	L_00cd
L_00c4	movlw	0x31
	movwf	0x29
	movlw	0x51
	movwf	0x2a
	movlw	0x01
	movwf	0x2b
	movlw	0x01
	movwf	0x0c
	goto	L_00de
L_00cd	incf	0x29,F
	movlw	0x80
	subwf	0x29,W
	btfsc	STATUS,Z
	goto	L_00d3
	goto	L_00de
L_00d3	movlw	00
	movwf	0x29
	movlw	0xff
	subwf	0x2a,W
	btfsc	STATUS,Z
	goto	L_00db
	incf	0x2a,F
	goto	L_00de
L_00db	incf	0x2b,F
	movlw	00
	movwf	0x2a
L_00de	return		
L_00df	movlw	00
	movwf	0x0f
	movlw	0x04
	subwf	0x2c,W
	btfsc	STATUS,Z
	goto	L_00e8
	incf	0x2c,F
	call	L_03ee
	goto	L_00e9
L_00e8	call	L_03f7
L_00e9	movlw	0x25
	subwf	0x2a,W
	btfsc	STATUS,Z
	goto	L_00ee
	goto	L_00fc
L_00ee	movlw	0x61
	subwf	0x29,W
	btfsc	STATUS,Z
	goto	L_00f3
	goto	L_00fc
L_00f3	movlw	0x61
	movwf	0x29
	movlw	0x25
	movwf	0x2a
	movlw	0x01
	movwf	0x2b
	movlw	0x01
	movwf	0x0e
	goto	L_0105
L_00fc	incf	0x29,F
	movlw	0x80
	subwf	0x29,W
	btfsc	STATUS,Z
	goto	L_0102
	goto	L_0105
L_0102	movlw	00
	movwf	0x29
	incf	0x2a,F
L_0105	return		
L_0106	movlw	00
	movwf	0x0c
	movlw	0x04
	subwf	0x2c,W
	btfsc	STATUS,Z
	goto	L_010f
	incf	0x2c,F
	call	L_03ee
	goto	L_0110
L_010f	call	L_03f7
L_0110	movlw	0x01
	subwf	0x2b,W
	btfsc	STATUS,Z
	goto	L_0115
	goto	L_0128
L_0115	movlw	0x45
	subwf	0x2a,W
	btfsc	STATUS,Z
	goto	L_011a
	goto	L_0128
L_011a	movlw	0x71
	subwf	0x29,W
	btfsc	STATUS,Z
	goto	L_011f
	goto	L_0128
L_011f	movlw	0x71
	movwf	0x29
	movlw	0x45
	movwf	0x2a
	movlw	0x01
	movwf	0x2b
	movlw	0x01
	movwf	0x0d
	goto	L_0137
L_0128	decf	0x29,F
	btfsc	0x29,7
	goto	L_012c
	goto	L_0137
L_012c	movlw	0x7f
	movwf	0x29
	decf	0x2a,F
	movlw	00
	subwf	0x2a,W
	btfsc	STATUS,Z
	goto	L_0134
	goto	L_0137
L_0134	decf	0x2b,F
	movfw	0x7f
	movwf	0x2a
L_0137	return		
L_0138	movlw	00
	movwf	0x0e
	movlw	0x04
	subwf	0x2c,W
	btfsc	STATUS,Z
	goto	L_0140
	incf	0x2c,F
	call	L_03ee
L_0140	call	L_03f7
	movlw	0x19
	subwf	0x2a,W
	btfsc	STATUS,Z
	goto	L_0146
	goto	L_0154
L_0146	movlw	0x21
	subwf	0x29,W
	btfsc	STATUS,Z
	goto	L_014b
	goto	L_0154
L_014b	movlw	0x21
	movwf	0x29
	movlw	0x19
	movwf	0x2a
	movlw	0x01
	movwf	0x2b
	movlw	0x01
	movwf	0x0f
	goto	L_015b
L_0154	decf	0x29,F
	btfsc	0x29,7
	goto	L_0158
	goto	L_015b
L_0158	movlw	0x7f
	movwf	0x29
	decf	0x2a,F
L_015b	return		
L_015c	movlw	0x01
	subwf	0x0c,W
	btfss	STATUS,Z
	goto	L_016f
	movlw	0x04
	movwf	0x12
	movlw	0x07
	movwf	0x13
	movlw	00
	movwf	0x14
	movlw	00
	movwf	0x16
	movlw	00
	movwf	0x17
	movlw	00
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_016f	movlw	00
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_0176
	movlw	0x01
	movwf	0x17
	goto	L_0195
L_0176	movlw	0x01
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_017d
	movlw	0x02
	movwf	0x17
	goto	L_01a0
L_017d	movlw	0x02
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_0184
	movlw	0x03
	movwf	0x17
	goto	L_01ab
L_0184	movlw	0x03
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_018f
	movlw	0x05
	movwf	0x17
	movlw	00
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_018f	movlw	0x05
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_019a
	movlw	0x06
	movwf	0x17
L_0195	movlw	0x02
	movwf	0x18
	movlw	0x05
	movwf	0x19
	return		
L_019a	movlw	0x06
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_01a5
	movlw	0x07
	movwf	0x17
L_01a0	movlw	0x05
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_01a5	movlw	0x07
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_01b0
	movlw	0x08
	movwf	0x17
L_01ab	movlw	0x07
	movwf	0x18
	movlw	0x05
	movwf	0x19
	return		
L_01b0	movlw	0x08
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_01cf
	movlw	00
	movwf	0x17
	movlw	00
	movwf	0x18
	movlw	00
	movwf	0x19
	incf	0x16,F
	movlw	0x0a
	subwf	0x16,W
	btfss	STATUS,Z
	goto	L_01cf
	movlw	00
	movwf	0x16
	incf	0x14,F
	movlw	0x0a
	subwf	0x14,W
	btfss	STATUS,Z
	goto	L_01cf
	movlw	00
	movwf	0x14
	incf	0x13,F
	movlw	0x07
	subwf	0x13,W
	btfss	STATUS,Z
	goto	L_01cf
	movlw	0x06
	movwf	0x13
L_01cf	return		
L_01d0	movlw	0x01
	subwf	0x0d,W
	btfss	STATUS,Z
	goto	L_01e3
	movlw	0x04
	movwf	0x12
	movlw	0x05
	movwf	0x13
	movlw	00
	movwf	0x14
	movlw	00
	movwf	0x16
	movlw	00
	movwf	0x17
	movlw	00
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_01e3	movlw	0x08
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_01ea
	movlw	0x07
	movwf	0x17
	goto	L_020d
L_01ea	movlw	0x07
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_01f1
	movlw	0x06
	movwf	0x17
	goto	L_0218
L_01f1	movlw	0x06
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_01fc
	movlw	0x05
	movwf	0x17
	movlw	00
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_01fc	movlw	0x05
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_0207
	movlw	0x03
	movwf	0x17
	movlw	0x07
	movwf	0x18
	movlw	0x05
	movwf	0x19
	return		
L_0207	movlw	0x03
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_0212
	movlw	0x02
	movwf	0x17
L_020d	movlw	0x05
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_0212	movlw	0x02
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_021d
	movlw	0x01
	movwf	0x17
L_0218	movlw	0x02
	movwf	0x18
	movlw	0x05
	movwf	0x19
	return		
L_021d	movlw	0x01
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_0228
	movlw	00
	movwf	0x17
	movlw	00
	movwf	0x18
	movlw	00
	movwf	0x19
	return		
L_0228	movlw	00
	subwf	0x17,W
	btfss	STATUS,Z
	goto	L_0247
	movlw	0x08
	movwf	0x17
	movlw	0x07
	movwf	0x18
	movlw	0x05
	movwf	0x19
	decf	0x16,F
	movlw	0xff
	subwf	0x16,W
	btfss	STATUS,Z
	goto	L_0247
	movlw	0x09
	movwf	0x16
	decf	0x14,F
	movlw	0xff
	subwf	0x14,W
	btfss	STATUS,Z
	goto	L_0247
	movlw	0x09
	movwf	0x14
	decf	0x13,F
	movlw	0xff
	subwf	0x13,W
	btfss	STATUS,Z
	goto	L_0247
	movlw	0x05
	movwf	0x13
L_0247	return		
L_0248	movlw	00
	movwf	PORTB
	movlw	00
	tris	0x06			
	call	L_03f7
	bcf	PORTB,2
	call	L_03f7
	movlw	0x30
	movwf	PORTB
	nop		
	bsf	PORTA,3
	call	L_03f7
	call	L_03f7
	bcf	PORTA,3
	bcf	PORTB,2
	nop		
	movlw	0x20
	movwf	PORTB
	nop		
	bsf	PORTA,3
	call	L_03f7
	bcf	PORTA,3
	nop		
	bcf	PORTB,2
	nop		
	movlw	0x28
	movwf	0x25
	call	L_0285
	nop		
	bcf	PORTB,2
	nop		
	movlw	0x08
	movwf	0x25
	call	L_0285
	nop		
	bcf	PORTB,2
	nop		
	movlw	0x06
	movwf	0x25
	nop		
	call	L_0285
	nop		
	bcf	PORTB,2
	nop		
	movlw	0x0c
	movwf	0x25
	nop		
	call	L_0285
	nop		
	bcf	PORTB,1
	nop		
	bcf	PORTB,2
	nop		
	movlw	0x82
	movwf	0x25
	nop		
	call	L_0285
	nop		
	bsf	PORTB,2
	nop		
	return		
L_0285	btfss	PORTB,2
	bcf	0x26,0
	btfsc	PORTB,2
	bsf	0x26,0
	bcf	PORTB,2
	nop		
	bsf	PORTB,1
	nop		
	movlw	0xf0
	tris	0x06			
	nop		
L_0290	bsf	PORTA,3
	nop		
	movfw	PORTB
	movwf	0x23
	nop		
	bcf	PORTA,3
	nop		
	nop		
	bsf	PORTA,3
	nop		
	nop		
	bcf	PORTA,3
	btfsc	0x23,7
	goto	L_0290
	nop		
	btfss	0x26,0
	bcf	PORTB,2
	btfsc	0x26,0
	bsf	PORTB,2
	nop		
	bcf	PORTB,1
	nop		
	movlw	00
	tris	0x06			
	nop		
	movfw	0x25
	movwf	0x24
	nop		
	movlw	0x0f
	andwf	PORTB,F
	nop		
	movlw	0xf0
	andwf	0x25,F
	nop		
	movfw	0x25
	iorwf	PORTB,F
	nop		
	bsf	PORTA,3
	nop		
	bcf	PORTA,3
	nop		
	swapf	0x24,F
	nop		
	movlw	0x0f
	andwf	PORTB,F
	nop		
	movlw	0xf0
	andwf	0x24,F
	nop		
	movfw	0x24
	iorwf	PORTB,F
	nop		
	bsf	PORTA,3
	nop		
	bcf	PORTA,3
	nop		
	return		
L_02c9	bcf	PORTB,2
	movlw	0x80
	movwf	0x25
	call	L_0285
	bsf	PORTB,2
	movfw	0x10
	movwf	0x25
	call	L_0285
	movlw	0x20
	movwf	0x25
	call	L_0285
	movfw	0x12
	addlw	0x30
	movwf	0x25
	call	L_0285
	movfw	0x13
	addlw	0x30
	movwf	0x25
	call	L_0285
	movfw	0x14
	addlw	0x30
	movwf	0x25
	call	L_0285
	movlw	0x2e
	movwf	0x25
	call	L_0285
	movfw	0x16
	addlw	0x30
	movwf	0x25
	call	L_0285
	movfw	0x17
	addlw	0x30
	movwf	0x25
	call	L_0285
	movfw	0x18
	addlw	0x30
	movwf	0x25
	call	L_0285
	movfw	0x19
	addlw	0x30
	movwf	0x25
	call	L_0285
	movlw	0x4d
	movwf	0x25
	call	L_0285
	movlw	0x68
	movwf	0x25
	call	L_0285
	movlw	0x7a
	movwf	0x25
	call	L_0285
	movlw	0x20
	movwf	0x25
	call	L_0285
	movfw	0x1e
	movwf	0x25
	call	L_0285
	movlw	0x78
	movwf	0x25
	call	L_0285
	return		
L_0306	movfw	0x1f
	movwf	0x09
	movfw	0x2b
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x2a
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x29
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x12
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x13
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x14
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x16
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x17
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x18
	movwf	0x08
	call	L_0330
	incf	0x09,F
	movfw	0x19
	movwf	0x08
	call	L_0330
	return		
L_0330	bsf	STATUS,RP0
	bsf	0x08,2
	movlw	0x55
	movwf	0x09
	movlw	0xaa
	movwf	0x09
	bsf	0x08,1
L_0337	btfss	0x08,4
	goto	L_0337
	bcf	0x08,4
	bcf	STATUS,RP0
	return		
L_033c	movfw	0x1f
	movwf	0x09
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x2b
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x2a
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x29
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x12
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x13
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x14
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x16
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x17
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x18
	incf	0x09,F
	bsf	STATUS,RP0
	bsf	0x08,0
	bcf	STATUS,RP0
	movfw	0x08
	movwf	0x19
	return		
L_037a	bcf	PORTB,2
	nop		
	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	nop		
	movlw	0x06
	movwf	0x20
	movfw	0x28
	movwf	0x23
L_0384	btfss	0x23,7
	bcf	PORTB,2
	btfsc	0x23,7
	bsf	PORTB,2
	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	nop		
	rlf	0x23,F
	decfsz	0x20,F
	goto	L_0384
	movlw	0x08
	movwf	0x20
	movfw	0x27
	movwf	0x23
L_0393	btfss	0x23,7
	bcf	PORTB,2
	btfsc	0x23,7
	bsf	PORTB,2
	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	nop		
	rlf	0x23,F
	decfsz	0x20,F
	goto	L_0393
	nop		
	nop		
	bsf	PORTB,2
	nop		
	call	L_03d7
	call	L_03de
	return		
L_03a5	movlw	0x03
	movwf	0x20
	movfw	0x2b
	movwf	0x23
L_03a9	btfss	0x23,2
	bcf	PORTB,2
	btfsc	0x23,2
	bsf	PORTB,2
	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	nop		
	rlf	0x23,F
	decfsz	0x20,F
	goto	L_03a9
	movlw	0x08
	movwf	0x20
	movfw	0x2a
	movwf	0x23
L_03b8	btfss	0x23,7
	bcf	PORTB,2
	btfsc	0x23,7
	bsf	PORTB,2
	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	nop		
	rlf	0x23,F
	decfsz	0x20,F
	goto	L_03b8
	movlw	0x07
	movwf	0x20
	movfw	0x29
	movwf	0x23
L_03c7	btfss	0x23,6
	bcf	PORTB,2
	btfsc	0x23,6
	bsf	PORTB,2
	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	nop		
	rlf	0x23,F
	decfsz	0x20,F
	goto	L_03c7
	bcf	PORTB,2
	call	L_03d7
	call	L_03db
	call	L_03de
	return		
L_03d7	bsf	PORTB,1
	nop		
	bcf	PORTB,1
	return		
L_03db	nop		
	bcf	PORTB,2
	return		
L_03de	nop		
	movlw	0x01
	subwf	0x2d,W
	btfsc	STATUS,Z
	goto	L_03e7
	bsf	PORTB,0
	nop		
	bcf	PORTB,0
	goto	L_03ea
L_03e7	bsf	PORTB,3
	nop		
	bcf	PORTB,3
L_03ea	nop		
	bcf	PORTB,2
	nop		
	return		
L_03ee	movlw	0xff
	movwf	0x22
L_03f0	movlw	0xff
	movwf	0x21
L_03f2	decfsz	0x21,F
	goto	L_03f2
	decfsz	0x22,F
	goto	L_03f0
	return		
L_03f7	movlw	0x14
	movwf	0x22
L_03f9	movlw	0x3c
	movwf	0x21
L_03fb	decfsz	0x21,F
	goto	L_03fb
	decfsz	0x22,F
	goto	L_03f9
	return		

	END