;************************
;* Disasm (c) Bzrd 2002 *
;************************


    	org     

    	movwf OSCCAL                                   ;0025
    	goto 28                                        ;0A1C

; Sous-routine

    	org     

    	movf TMR0,W                                    ;0201
    	subwf 15,W                                     ;008F
    	btfss STATUS,Z            ;B'00000010'         ;0743
    	retlw 0                   ;B'00000000'         ;0800
    
    	bcf GPIO,GP0              ;B'00000000'         ;0406
    	movlw 18                  ;B'00010010'         ;0C12
    	movwf 14                                       ;002E
0011	decfsz 14,F                                    ;02EE
    	goto 11                                        ;0A0B
    	bsf GPIO,GP0              ;B'00000000'         ;0506
    	retlw 0                   ;B'00000000'         ;0800
    

; Sous-routine

    	org     

    	movf TMR0,W                                    ;0201
    	subwf 20,W                                     ;0094
    	btfss STATUS,Z            ;B'00000010'         ;0743
    	retlw 0                   ;B'00000000'         ;0800
    
    	bcf GPIO,GP0              ;B'00000000'         ;0406
   	movlw 18                  ;B'00010010'         ;0C12
   	movwf 14                                       ;002E
0024	decfsz 14,F                                    ;02EE
    	goto 24                                        ;0A18
    	bsf GPIO,GP0              ;B'00000000'         ;0506
    	retlw 0                   ;B'00000000'         ;0800
    
0028	movlw 7                   ;B'00000111'         ;0C07
    	movwf GPIO                                     ;0026
    	movlw 56                  ;B'00111000'         ;0C38
    	tris GPIO  ; in : 543, out : 210               ;0006
    	movlw 7                   ;B'00000111'         ;0C07
    	movwf GPIO                                     ;0026
    	movlw 197                 ;B'11000101'         ;0CC5
    	option  ;  GPWU GPPU /TOCS /TOSE Timer0 ]¡     ;0002
    	clrf TMR0                                      ;0061
    	movlw 120                 ;B'01111000'         ;0C78
    	movwf 15                                       ;002F
    	bcf 8,2                   ;B'00000010'         ;0448
    	movlw 64                  ;B'01000000'         ;0C40
    	movwf 18                                       ;0032
0042	clrwdt                                         ;0004
    	movlw 255                 ;B'11111111'         ;0CFF
    	movwf 17                                       ;0031
0045	decfsz 17,F                                    ;02F1
    	goto 45                                        ;0A2D
    	decfsz 18,F                                    ;02F2
    	goto 42                                        ;0A2A
0049	btfsc GPIO,GP5            ;B'00000101'         ;06A6
    	goto 56                                        ;0A38
0051	btfsc GPIO,GP5            ;B'00000101'         ;06A6
    	goto 61                                        ;0A3D
    	btfsc 8,2                 ;B'00000010'         ;0648
    	call 2                                         ;0902
    	goto 51                                        ;0A33
0056	btfss GPIO,GP5            ;B'00000101'         ;07A6
    	goto 61                                        ;0A3D
    	btfsc 8,2                 ;B'00000010'         ;0648
    	call 2                                         ;0902
    	goto 56                                        ;0A38
0061	clrwdt                                         ;0004
    	movlw 140                 ;B'10001100'         ;0C8C
    	subwf TMR0,W                                   ;0081
    	btfss STATUS,C            ;B'00000000'         ;0703
    	goto 49                                        ;0A31
    	clrf TMR0                                      ;0061
    	bsf 8,2                   ;B'00000010'         ;0548
    	incf 13,F                                      ;02AD
    	btfsc 13,0                ;B'00000000'         ;060D
    	decf 15,F                                      ;00EF
    	movlw 78                  ;B'01001110'         ;0C4E
    	nop                                            ;0000
    	nop                                            ;0000
    	subwf 15,W                                     ;008F
    	btfss STATUS,Z            ;B'00000010'         ;0743
    	goto 49                                        ;0A31
    	clrf 10                                        ;006A
    	clrf 11                                        ;006B
    	clrf TMR0                                      ;0061
    	clrf 8                                         ;0068
    	movlw 78                  ;B'01001110'         ;0C4E
    	movwf 15                                       ;002F
    	movlw 78                  ;B'01001110'         ;0C4E
    	movwf 20                                       ;0034
    	movlw 12                  ;B'00001100'         ;0C0C
    	movwf 16                                       ;0030
0087	btfsc GPIO,GP5            ;B'00000101'         ;06A6
    	goto 107                                       ;0A6B

    	org     

    	btfsc GPIO,GP5            ;B'00000101'         ;06A6
    	goto 115                                       ;0A73
    	btfsc 13,1                ;B'00000001'         ;062D
    	goto 97                                        ;0A61
    	bsf GPIO,GP2              ;B'00000010'         ;0546
    	goto 103                                       ;0A67
0097	bcf GPIO,GP2              ;B'00000010'         ;0446
    	btfss GPIO,GP3            ;B'00000011'         ;0766
    	goto 103                                       ;0A67
    	incf 10,F                                      ;02AA
    	btfsc STATUS,Z            ;B'00000010'         ;0643
    	incf 11,F                                      ;02AB
0103	btfsc 13,1                ;B'00000001'         ;062D
    	call 15                                        ;090F
    	call 2                                         ;0902
    	goto 89                                        ;0A59

    	org     

    	bsf GPIO,GP2              ;B'00000010'         ;0546
    	btfss GPIO,GP5            ;B'00000101'         ;07A6
    	goto 115                                       ;0A73
    	btfsc 13,1                ;B'00000001'         ;062D
    	call 15                                        ;090F
    	call 2                                         ;0902
    	goto 107                                       ;0A6B
0115	clrwdt                                         ;0004

    	org     

    	movlw 140                 ;B'10001100'         ;0C8C
    	subwf TMR0,W                                   ;0081
    	btfss STATUS,C            ;B'00000000'         ;0703
    	goto 87                                        ;0A57
    	clrf TMR0                                      ;0061
    	incf 13,F                                      ;02AD
    	btfss 13,1                ;B'00000001'         ;072D
    	goto 87                                        ;0A57
    	decf 16,F                                      ;00F0
    	btfss STATUS,Z            ;B'00000010'         ;0743
    	goto 87                                        ;0A57
    	rlf 10,F                                       ;036A
    	rlf 11,F                                       ;036B
    	rlf 10,F                                       ;036A
    	rlf 11,F                                       ;036B
    	rlf 10,F                                       ;036A
    	rlf 11,F                                       ;036B
    	rlf 10,F                                       ;036A
    	rlf 11,F                                       ;036B
    	movf 11,W                                      ;020B
    	movwf 20                                       ;0034
    	movwf 15                                       ;002F
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 40                  ;B'00101000'         ;0C28
    	addwf 15,F                                     ;01EF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 68                  ;B'01000100'         ;0C44
    	subwf 20,W                                     ;0094
    	btfss STATUS,C            ;B'00000000'         ;0703
    	goto 170                                       ;0AAA
    	movf 20,W                                      ;0214
    	movwf 21                                       ;0035
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 68                  ;B'01000100'         ;0C44
    	subwf 21,F                                     ;00B5
    	bcf STATUS,C              ;B'00000000'         ;0403
    	rrf 21,W                                       ;0315
    	subwf 15,F                                     ;00AF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 106                 ;B'01101010'         ;0C6A
    	subwf 20,W                                     ;0094
    	btfss STATUS,C            ;B'00000000'         ;0703
    	goto 177                                       ;0AB1
    	movf 20,W                                      ;0214
    	movwf 15                                       ;002F
    	goto 177                                       ;0AB1
0170	movlw 26                  ;B'00011010'         ;0C1A
    	subwf 20,W                                     ;0094
    	btfsc STATUS,C            ;B'00000000'         ;0603
    	goto 177                                       ;0AB1
    	movlw 22                  ;B'00010110'         ;0C16
    	movwf 20                                       ;0034
    	movwf 15                                       ;002F
0177	clrf 10                                        ;006A
    	clrf 11                                        ;006B
    	movlw 255                 ;B'11111111'         ;0CFF
    	movlw 12                  ;B'00001100'         ;0C0C
    	movwf 16                                       ;0030
    	goto 87                                        ;0A57

    	org     

    	movlw 148                 ;B'10010100'         ;0C94
