9932-b.txt

9932源代码

CALL 2E2H 
BSF 2EH,7 
MOVLW 20H 
MOVWF 54H
MOVLW 10H 
MOVWF 0E3H 
MOVLW 0B8H 
MOVWF 02H 
MOVLW 0B9H 
MOVWF 03H 
MOVFW 0E3H 
CALL 22H
MOVFW 8AH 
MOVWF 00H 
MOVFW 8BH 
MOVWF 01H 
MOVLW 02H 
ADDWF 0E3H,1 
ADDWF 02H,1 
ADDWF 03H,1
MOVFW 0E3H 
XORLW 20H 
BTFSS 04H,0 
GOTO 3F6H 
BTFSS 0FEH,2 
GOTO 40AH 
MOVLW 01H 
BTFSS 20H,2
MOVLW 02H 
MOVWF 80H 
CALL 11FH 
BSF 0EFH,1 
BSF 0EFH,0 
BTFSS 0FCH,5 
GOTO 40DH 
BCF 0FCH,5
CLRF 2FH 
MOVFW 0F8H 
MOVWF 0A3H 
MOVFW 0F9H 
MOVWF 0A4H 
MOVLW 0C4H 
MOVWF 2AH 
MOVLW 02H
MOVWF 2CH 
MOVLW 06H 
MOVWF 2FH 
MOVFW 8FH 
MOVWF 13H 
BSF 13H,3 
BTFSC 0FEH,6 
CALL 22FH
MOVLW 06H 
CALL 22H 
MOVFW 8AH 
MOVWF 96H 
MOVFW 8BH 
MOVWF 97H 
MOVFW 96H 
XORLW 5AH
BTFSC 04H,0 
GOTO 42CH 
CALL 2D6H 
GOTO 670H 
BCF 0EFH,3 
BTFSS 0FCH,6 
BSF 0EFH,3 
MOVLW 0B4H
CALL 22H 
MOVFW 8AH 
MOVWF 0A1H 
MOVFW 8BH 
MOVWF 0A2H 
MOVLW 0A2H 
BTFSS 20H,5 
MOVLW 0AAH
BTFSC 20H,4 
MOVLW 0B2H 
MOVWF 0E3H 
MOVFW 0E3H 
CALL 22H 
MOVFW 8AH 
MOVWF 0EDH 
MOVFW 8BH
MOVWF 0EEH 
BTFSS 20H,4 
GOTO 49CH 
MOVLW 0A8H 
CALL 22H 
MOVFW 8AH 
MOVWF 9AH 
MOVFW 8BH
MOVWF 9BH 
MOVLW 0A0H 
CALL 22H 
MOVFW 8AH 
MOVWF 98H 
MOVFW 8BH 
MOVWF 99H 
CALL 56H
BTFSC 04H,1 
GOTO 49CH 
CALL 0DEH 
MOVFW 98H 
MOVWF 0D5H 
MOVFW 99H 
MOVWF 0D6H 
MOVLW 0AAH
CALL 22H 
MOVFW 8AH 
MOVWF 98H 
MOVFW 8BH 
MOVWF 99H 
MOVLW 0A2H 
CALL 22H 
MOVFW 8AH
MOVWF 9AH 
MOVFW 8BH 
MOVWF 9BH 
CALL 56H 
BCF 0EFH,4 
BTFSS 04H,1 
BSF 0EFH,4 
CALL 0DEH
MOVFW 98H 
MOVWF 9DH 
MOVFW 99H 
MOVWF 9EH 
MOVLW 0B0H 
CALL 22H 
MOVFW 8AH 
MOVWF 9AH
MOVFW 8BH 
MOVWF 9BH 
MOVFW 9BH 
SUBWF 0A4H,0 
MOVWF 9BH 
MOVFW 9AH 
SUBWFC 0A3H,0
MOVWF 9AH
BCF 0EFH,5 
BTFSC 04H,1 
GOTO 482H 
BSF 0EFH,5 
COMF 9BH,1 
MOVLW 01H 
ADDWF 9BH,1 
COMF 9AH,1
MOVLW 00H 
ADDWFC 9AH,1 
CLRF 99H 
CALL 7AH 
CLRF 97H 
CLRF 98H 
CLRF 9CH 
MOVFW 0D5H
MOVWF 9DH 
MOVFW 0D6H 
MOVWF 9EH 
CALL 5BH 
BTFSC 0EFH,4 
GOTO 491H 
BTFSC 0EFH,5 
GOTO 498H
GOTO 493H 
BTFSS 0EFH,5 
GOTO 498H 
MOVFW 9BH 
ADDWF 0EEH,1 
MOVFW 9AH 
ADDWFC 0EDH,1 
GOTO 49CH
MOVFW 9BH 
SUBWF 0EEH,1 
MOVFW 9AH 
SUBWFC 0EDH,1 
CLRF 97H 
MOVFW 0EDH 
MOVWF 98H 
MOVFW 0EEH
MOVWF 99H 
CLRF 9AH 
CLRF 9BH 
CLRF 9CH 
MOVFW 0B8H 
MOVWF 9DH 
MOVFW 0B9H 
MOVWF 9EH
CALL 5BH 
MOVFW 99H 
MOVWF 0A9H 
MOVFW 9AH 
MOVWF 0AAH 
MOVFW 9BH 
MOVWF 0ABH 
MOVFW 0A1H
MOVWF 9FH 
MOVWF 0DCH 
MOVFW 0A2H 
MOVWF 0A0H 
MOVWF 0DDH 
MOVLW 05H 
MOVWF 0CEH 
BSF 0FFH,0
CALL 7B0H 
MOVLW 07H 
MOVWF 0ADH 
CALL 78CH 
CALL 771H 
BTFSS 0EFH,7 
GOTO 4C2H 
CALL 2E6H
CALL 7BBH 
GOTO 670H 
BTFSS 0FEH,2 
GOTO 4D1H 
MOVFW 20H 
ANDLW 04H 
XORWF 0DEH,0 
BTFSC 04H,0
GOTO 4D1H 
MOVLW 01H 
BTFSS 20H,2 
MOVLW 02H 
MOVWF 80H 
MOVFW 20H 
ANDLW 04H 
MOVWF 0DEH
CALL 11FH 
CALL 78CH 
BTFSC 0ACH,0 
GOTO 56BH 
INCF 0E1H,1 
CLRF 0FAH 
BCF 0FFH,6 
BTFSC 0FFH,6
GOTO 566H 
CALL 78CH 
BTFSC 0ACH,0 
GOTO 4D7H 
CLRF 0FAH 
CLRF 0FBH 
BCF 0FFH,7 
INCF 0E1H,1
MOVLW 04H 
SUBWF 0E1H,0 
BTFSS 04H,1 
GOTO 4D7H 
BTFSC 20H,0 
GOTO 566H 
BTFSS 0FFH,7 
GOTO 4E4H
BCF 0FCH,6 
CLRF 0D9H 
CALL 78CH 
BTFSS 0ACH,0 
GOTO 4FAH 
BTFSS 0ACH,3 
GOTO 565H 
BTFSS 0ACH,2
GOTO 565H 
BTFSS 0FCH,5 
GOTO 4EAH 
BCF 0FCH,5 
CALL 6F4H 
MOVFW 0D9H 
XORLW 00H 
BTFSC 04H,0
CALL 755H 
GOTO 4EAH 
CLRF 0E2H 
CLRF 0DFH 
CLRF 0CFH 
BCF 0FDH,7 
MOVFW 0D9H 
XORLW 00H
BTFSS 04H,0 
GOTO 504H 
CALL 2ECH 
GOTO 505H 
CALL 2F0H 
BTFSS 0FCH,5 
GOTO 505H 
BCF 0FCH,5
CALL 6F4H 
BTFSC 0FDH,7 
GOTO 516H 
MOVLW 05H 
SUBWF 0E2H,0 
BTFSS 04H,1 
GOTO 505H 
CALL 2E8H
CLRF 0E2H 
MOVLW 0BH 
SUBWF 0CFH,0 
BTFSS 04H,1 
GOTO 505H 
GOTO 671H 
BTFSC 0D9H,0 
GOTO 527H
MOVFW 0A7H 
MOVWF 0A1H 
MOVFW 0A8H 
MOVWF 0A2H 
INCF 0D9H,5 
MOVFW 0B8H 
MOVWF 0A5H 
MOVFW 0B9H
MOVWF 0A6H 
BCF 0FCH,0 
CALL 13FH 
BSF 0FDH,0 
CALL 0FAH 
BCF 0FDH,0 
GOTO 4EAH 
MOVFW 0A2H
SUBWF 0A8H,0 
MOVWF 99H 
MOVWF 0EEH 
MOVFW 0A1H 
SUBWFC 0A7H,0 
BTFSS 04H,1 
GOTO 563H 
MOVWF 98H
MOVWF 0EDH 
MOVFW 0B8H 
MOVWF 9AH 
MOVFW 0B9H 
MOVWF 09BH 
CALL 56H 
BTFSS 04H,1 
GOTO 563H
BSF 0FCH,6 
BCF 0FDH,3 
CALL 2EEH 
BTFSC 20H,4 
GOTO 54FH 
MOVLW 0A0H 
BTFSS 20H,5 
MOVLW 0A8H
MOVWF 0E3H 
MOVFW 0A3H 
MOVWF 8CH 
MOVFW 0A4H 
MOVWF 8DH 
MOVFW 0E3H 
CALL 11H 
INCF 0E3H,1
INCF 0E3H,1 
MOVFW 0EDH 
MOVWF 8CH 
MOVFW 0EEH 
MOVWF 8DH 
MOVFW 0E3H 
CALL 11H 
MOVFW 0A3H
MOVWF 8CH 
MOVFW 0A4H 
MOVWF 8DH 
MOVLW 0B0H 
CALL 11H 
MOVFW 0EDH 
MOVWF 8CH 
MOVFW 0EEH
MOVWF 8DH 
MOVLW 0B2H 
CALL 11H 
MOVFW 0A1H 
MOVWF 8CH 
MOVFW 0A2H 
MOVWF 8DH 
MOVLW 0B4H
CALL 11H 
CALL 7BBH 
GOTO 565H 
CALL 2F2H 
CALL 7BBH 
GOTO 42CH 
BSF 0ACH,0 
MOVFW 0E1H
XORLW 01H 
BTFSC 04H,0 
BCF 0ACH,0 
CLRF 0E1H 
BTFSC 0FDH,6 
CALL 30BH 
BTFSC 0FCH,7 
GOTO 671H
BTFSC 0FCH,5 
CALL 6F4H 
BTFSS 0EFH,3 
GOTO 5A1H 
BCF 0FCH,5 
MOVFW 0BEH 
ANDLW 0FH 
SUBWF 0E2H,0
BTFSC 04H,1 
GOTO 593H 
BTFSS 0FEH,6 
GOTO 586H 
BTFSC 0FDH,6 
GOTO 586H 
BTFSC 0ACH,0 
GOTO 582H
CALL 341H 
CALL 22FH 
MOVLW 02H 
SUBWF 0E2H,0 
BTFSS 04H,1 
GOTO 4BCH 
BTFSS 0FDH,7 
GOTO 4BCH
BSF 0FDH,6 
CLRF 0E2H 
BSF 0FFH,2 
MOVFW 0C2H 
MOVWF 9EH 
CALL 6C3H 
BCF 0FFH,2 
BTFSS 0FCH,3
GOTO 598H 
CALL 2EAH 
GOTO 4BCH 
BSF 0FDH,6 
CLRF 0E2H 
CLRF 0DFH 
CALL 2E8H 
GOTO 4BCH
BCF 0EFH,3 
MOVFW 0A7H 
MOVWF 9FH 
MOVWF 0DCH 
MOVFW 0A8H 
MOVWF 0A0H 
MOVWF 0DDH 
CALL 7B0H
GOTO 4BCH 
BTFSS 0FDH,3 
GOTO 5ADH 
BTFSS 20H,0 
CLRF 0ECH 
MOVFW 0BEH 
BCF 04,1 
RRF 0BEH,0
SUBWF 0ECH,0 
BTFSS 04H,1 
GOTO 5ADH 
BCF 0FDH,3 
CALL 387H 
BTFSS 0FCH,5 
GOTO 4BCH 
BCF 0FCH,5
MOVFW 0A7H 
MOVWF 98H 
MOVFW 0A8H 
MOVWF 99H 
CALL 69CH 
BCF 0FFH,3 
BTFSC 0FCH,0 
BSF 0FFH,3
CLRF 98H 
MOVLW 03H 
MOVWF 99H 
BCF 686H,3 
CALL 56H 
BTFSC 04H,1 
BSF 686H,3 
MOVFW 0A7H
MOVWF 98H 
MOVFW 0A8H 
MOVWF 99H 
MOVFW 0C9H 
SUBWF 99H,1 
MOVFW 0C8H 
SUBWFC 98H,1 
CALL 69CH
MOVFW 9AH 
MOVWF 0A5H
MOVFW 9BH 
MOVWF 0A6H 
BTFSS 0FFH,0 
GOTO 5E8H 
INCF 0DBH,1 
MOVLW 05H
SUBWF 0DBH,0 
BTFSC 04H,1 
GOTO 5E8H 
CLRF 98H 
MOVLW 0CH 
MOVWF 99H 
MOVFW 0A5H 
MOVWF 9AH
MOVFW 0A6H 
MOVWF 9BH 
CALL 56H 
BTFSS 04H,1 
GOTO 605H 
CLRF 0A5H 
CLRF 0A6H 
MOVFW 0A7H
MOVWF 9FH 
MOVFW 0A8H 
MOVWF 0A0H 
MOVFW 0C9H 
SUBWF 0A0H,1 
MOVFW 0C8H 
SUBWFC 9FH,1 
GOTO 605H
BCF 0FFH,0 
CLRF 98H 
MOVFW 0C4H 
MOVWF 99H 
MOVFW 0A5H 
MOVWF 9AH 
MOVFW 0A6H 
MOVWF 9BH
CALL 56H 
BTFSS 04H,1 
GOTO 604H 
CLRF 0A5H 
CLRF 0A6H 
INCF 0CEH,1 
MOVFW 0CEH 
XORWF 0C5H,0
BTFSS 04H,0 
GOTO 605H 
CLRF 0CEH 
MOVFW 0A7H 
MOVWF 9FH 
MOVFW 0A8H 
MOVWF 0A0H 
MOVFW 0C9H
SUBWF 0A0H,1 
MOVFW 0C8H 
SUBWFC 9FH,1 
GOTO 605H 
CLRF 0CEH 
MOVFW 0CAH 
MOVWF 98H 
MOVFW 0CBH
MOVWF 99H 
CALL 56H 
CALL 0DEH 
CLRF 9AH 
MOVFW 0C0H 
MOVWF 9BH 
CALL 56H 
BTFSC 04H,1
GOTO 616H 
MOVFW 0CAH 
MOVWF 0A5H 
MOVFW 0CBH 
MOVWF 0A6H 
GOTO 61AH 
MOVFW 0A5H 
MOVWF 0CAH
MOVFW 0A6H 
MOVWF 0CBH 
CALL 6B8H 
MOVFW 0A5H 
MOVWF 98H 
MOVFW 0A6H 
MOVWF 99H 
MOVFW 0CCH
MOVWF 9AH 
MOVFW 0CDH 
MOVWF 9BH 
CALL 56H 
CALL 0DEH 
CLRF 9AH 
MOVLW 05H 
MOVWF 9BH
CALL 56H 
BTFSS 04H,1 
GOTO 62FH 
CLRF 0D0H 
CLRF 0CFH 
BSF 2EH,6 
BSF 24H,6 
BTFSC 0FDH,1
GOTO 641H 
MOVFW 0A5H 
XORWF 0CCH,0 
BTFSS 04H,0 
GOTO 63FH 
MOVFW 0A6H 
XORWF 0CDH,0 
BTFSS 04H,0
GOTO 63FH 
INCF 0DAH,1 
MOVLW 03H 
SUBWF 0DAH,0 
BTFSC 04H,0 
BSF 0EFH,6 
GOTO 641H 
BCF 0EFH,6
CLRF 0DAH 
MOVFW 0A5H 
MOVWF 0CCH 
MOVFW 0A6H 
MOVWF 0CDH 
MOVFW 0A7H 
MOVWF 98H 
MOVFW 0A8H
MOVWF 99H 
MOVFW 9FH 
MOVWF 9AH 
MOVFW 0A0H 
MOVWF 9BH 
CALL 56H 
CALL 0DEH 
CLRF 97H
CALL 6AEH 
MOVFW 0BAH 
MOVWF 98H 
MOVFW 0BBH 
MOVWF 99H 
CALL 56H 
BTFSC 04H,1 
GOTO 65BH
BSF 0FDH,4 
CALL 2E4H
GOTO 4BCH 
BCF 0FDH,4 
BTFSC 0FFH,4 
GOTO 660H 
MOVLW 00H 
MOVWF 27H
BTFSS 0FDH,1 
GOTO 66EH 
BTFSC 0EFH,2 
GOTO 66DH 
MOVFW 0C1H 
SUBWF 0D2H,0 
BTFSC 04H,1 
GOTO 66DH
MOVFW 0D3H 
MOVWF 0A5H 
MOVFW 0D4H 
MOVWF 0A6H 
GOTO 66EH 
BCF 0FDH,1 
CALL 13FH 
GOTO 4BCH
CALL 7BBH 
MOVLW 00H 
MOVWF 27H 
CLRF 13H 
CLRF 54H 
CLRF 0DH 
CLRF 29H 
CLRF 2AH
CLRF 2CH 
CLRF 2FH 
CLRF 30H 
BCF 2EH,7 
BCF 2EH,6 
CLRF 32H 
CALL 7C1H 
BCF 2EH,5
CALL 7C1H 
CLRF 2EH 
BTFSS 20H,0 
GOTO 682H 
CALL 7C1H 
MOVLW 81H 
MOVWF 07H 
MOVLW 0FEH
MOVWF 21H 
MOVLW 01H 
MOVWF 20H 
MOVWF 22H 
MOVLW 0FFH 
MOVWF 25H 
MOVLW 00H 
MOVWF 24H
MOVWF 26H 
CLRF 06H 
CLRF 23H 
BSF 22H,0 
SLEEP 
NOP 
NOP 
BCF 06H,0
CLRWDT 
BTFSS 20H,0 
GOTO 3AEH 
GOTO 685H 
BCF 0FCH,0 
MOVFW 9FH 
MOVWF 9AH 
MOVFW 0A0H
MOVWF 9BH 
CALL 56H 
BTFSS 04H,1 
BSF 0FCH,0 
CALL 0DEH 
CLRF 97H 
BCF 04,1 
RLF 99H,1
RLF 98H,1 
RLF 97H,1 
BCF 04,1 
RLF 99H,1 
RLF 98H,1 
RLF 97H,1 
CLRF 9AH 
CLRF 9BH
MOVFW 0A9H 
MOVWF 9CH 
MOVFW 0AAH 
MOVWF 9DH 
MOVFW 0ABH 
MOVWF 9EH 
CALL 5BH 
RETURN
MOVLW 02H 
ADDWF 0A6H,1 
MOVLW 00H 
ADDWFC 0A5H,1 
BCF 04,1 
RRF 0A5H,1 
RRF 0A6H,1 
BCF 04,1
RRF 0A5H,1 
RRF 0A6H,1 
RETURN 
BCF 0FCH,3 
MOVFW 0A1H 
MOVWF 9AH 
MOVFW 0A2H 
MOVWF 9BH
MOVLW 1AH 
BTFSC 0FFH,2 
GOTO 6D0H 
MOVFW 0DCH 
MOVWF 9AH 
MOVFW 0DDH 
MOVWF 9BH 
MOVLW 42H
MOVWF 0E3H 
MOVFW 0E3H 
CALL 22H 
MOVFW 8AH 
MOVWF 0D5H 
MOVFW 8BH 
MOVWF 0D6H 
MOVFW 0A7H
MOVWF 98H 
MOVFW 0A8H 
MOVWF 99H 
CALL 56H 
BTFSS 04H,1 
RETURN 
CLRF 97H 
CLRF 9AH
CLRF 9BH 
MOVFW 0A9H 
MOVWF 9CH 
MOVFW 0AAH 
MOVWF 9DH 
MOVFW 0ABH 
MOVWF 9EH 
CALL 5BH
MOVFW 9AH 
MOVWF 98H 
MOVFW 9BH 
MOVWF 99H 
MOVFW 0D5H 
MOVWF 9AH 
MOVFW 0D6H 
MOVWF 9BH
CALL 56H 
BTFSC 04H,1 
BSF 0FCH,3 
RETURN 
MOVFW 0A7H 
MOVWF 98H 
MOVFW 0A8H 
MOVWF 99H
MOVFW 0EAH 
MOVWF 9AH 
MOVFW 0EBH 
MOVWF 9BH 
CALL 56H 
CALL 0DEH 
CLRF 9AH 
MOVLW 0AH
MOVWF 9BH 
CALL 56H 
BTFSC 04H,1 
GOTO 72EH 
CLRF 9CH 
MOVFW 0E6H 
MOVWF 9DH 
MOVFW 0E7H
MOVWF 9EH 
MOVFW 0E9H 
MOVWF 0E7H 
ADDWF 9EH,1 
MOVFW 0E8H 
MOVWF 0E6H 
ADDWFC 9DH,1 
MOVLW 00H
ADDWFC 9CH,1 
MOVFW 0EBH 
MOVWF 0E9H 
ADDWF 9EH,1 
MOVFW 0EAH
MOVWF 0E8H 
ADDWFC 9DH,1 
MOVLW 00H
ADDWFC 9CH,1 
MOVFW 0F9H 
MOVWF 0EBH 
ADDWF 9EH,1 
MOVFW 0F8H 
MOVWF 0EAH 
ADDWFC 9DH,1 
MOVLW 00H
ADDWFC 9CH,1 
BCF 04,1 
RRF 9CH,1 
RRF 9DH,1 
RRF 9EH,1
BCF 04,1 
RRF 9CH,1 
RRF 9DH,1
RRF 9EH,1 
MOVFW 9DH 
MOVWF 0A7H 
MOVFW 9EH 
MOVWF 0A8H 
GOTO 738H 
MOVFW 0F8H 
MOVWF 0A7H
MOVWF 0E6H 
MOVWF 0E8H 
MOVWF 0EAH 
MOVFW 0F9H 
MOVWF 0A8H 
MOVWF 0E7H 
MOVWF 0E9H 
MOVWF 0EBH
MOVFW 0E4H 
MOVWF 9AH 
MOVFW 0E5H 
MOVWF 9BH 
MOVFW 0A7H 
MOVWF 98H 
MOVWF 0E4H 
MOVFW 0A8H
GOTO 7ADH 
BSF 2EH,6 
BSF 24H,6 
CLRF 0CFH 
CLRF 0D0H 
CLRF 0E2H
CALL 7B7H 
MOVWF 99H 
MOVWF 0E5H 
CALL 56H 
CALL 0DEH 
CLRF 9AH 
MOVFW 0BDH 
MOVWF 9BH 
CALL 56H
BTFSC 04H,1 
GOTO 752H 
INCF 0DFH,1 
MOVFW 0BFH 
SUBWF 0DFH,0 
BTFSS 04H,1 
RETURN 
DECF 0DFH,1
BSF 0FDH,7 
RETURN 
CLRF 0DFH 
BCF 0FDH,7 
RETURN 
BCF 0FCH,0 
MOVFW 0A7H 
MOVWF 98H
MOVFW 0A8H 
MOVWF 99H 
MOVLW 7AH 
MOVWF 9AH 
MOVLW 14H 
MOVWF 9BH 
CALL 56H 
BTFSS 04H,1
BSF 0FCH,0 
CALL 0DEH 
MOVFW 98H 
MOVWF 9DH
GOTO 7ADH 
BSF 2EH,6 
BSF 24H,6 
CLRF 0CFH 
CLRF 0D0H 
CLRF 0E2H
CALL 7B7H  
MOVFW 99H 
MOVWF 9EH 
CALL 0A5H 
CALL 224H
MOVFW 81H 
XORLW 00H 
BTFSS 04H,0 
GOTO 76EH 
MOVLW 10H 
MOVWF 81H 
CLRF 86H 
CALL 0FAH
RETURN 
BCF 0EFH,7 
BCF 32H,4 
BTFSC 0D8H,7 
BSF 32H,4 
MOVLW 0F8H 
ANDWF 32H,5 
MOVFW 0BCH
ANDLW 07H 
IORWF 32H,7 
NOP 
BTFSC 33H,3 
RETURN 
MOVLW 0F8H 
ANDWF 32H,5 
MOVFW 0BCH
MOVWF 88H 
BCF 04,1 
RRF 88H,1 
RRF 88H,1 
RRF 88H,1 
RRF 88H,0 
ANDLW 07H 
IORWF 32H,7
BSF 86H,0 
BTFSS 33H,3
BSF 0EFH,7 
RETURN 
MOVFW 20H 
ANDLW 0FH 
MOVWF 0ACH 
SUBLW 0FH
BTFSC 04H,0 
GOTO 7AAH 
CALL 7C1H 
BTFSC 0FEH,2 
BSF 0ACH,2 
BTFSC 0D8H,7 
BSF 0ACH,1 
MOVFW 0ACH
XORWF 0ADH,0 
BTFSC 04H,0 
GOTO 7ADH 
BSF 2EH,6 
BSF 24H,6 
CLRF 0CFH 
CLRF 0D0H 
CLRF 0E2H
CALL 7B7H 
MOVFW 0ACH 
MOVWF 0ADH 
BCF 0EFH,2 
BTFSS 0FDH,1 
RETURN 
BTFSS 0ACH,2 
RETURN
BSF 0EFH,2 
RETURN 
MOVFW 0ACH 
MOVWF 0ADH 
RETURN 
MOVLW 0FH 
MOVWF 0ACH 
RETURN
CLRF 0FAH 
CLRF 0FBH 
CLRF 0D0H 
CLRF 0CFH 
CLRF 0E2H 
CLRF 0D2H 
RETURN 
BSF 27H,7
BSF 0FFH,4 
CLRF 0B5H 
RETURN 
MOVLW 64H 
MOVWF 0B7H 
GOTO 7C3H 
MOVLW 14H 
MOVWF 0B7H
GOTO 7C3H 
MOVLW 01H 
MOVWF 0B7H 
CLRF 0B4H 
INCFSZ 0B4H,1 
GOTO 7C4H 
DECFSZ 0B7H,1 
GOTO 7C3H
RETURN