PSWEQU03
R0EQU08
R1EQU09
R2EQU0AH
R3EQU0BH
R4EQU0CH
R5EQU0DH
R6EQU0EH
R7EQU0FH
TEMPEQU13H
CNT1EQU11H
CNTHEQU12H
BUF0EQU17H
BUF1EQU18H
ESUM1EQU13H
ESUM2EQU14H
ESUM3EQU15H
ESUM4EQU16H
DSUM1EQU19H
DSUM2EQU1AH
DSUM3EQU1BH
DSUM4EQU1CH
DSUM5EQU1DH
DSUM6EQU1EH
ORG1FFH
GOTORADM
ORG000
D_ADDMOVFR0,0
ADDWFR6,1
BTFSCPSW,0
INCFR7
MOVFR1,0
ADDWFR7,1
RETLW0
DMU1MOVLW16
MOVWFTEMP
CLRFR7
CLRFR6
DMUL_1RRFR3
RRFR2
BTFSCPSW,0
CALLD_ADD
RRFR7
RRFR6
RRFR5
RRFR4
DECFSZTEMP
GOTODMUL_1
RETLW0
RADMCLRFESUM1
CLRFESUM2
CLRFESUM3
CLRFESUM4
CLRFDSUM1
CLRFDSUM2
CLRFDSUM3
CLRFDSUM4
CLRFDSUM5
CLRFDSUM6
MOVLW20H
MOVWFCNTH
RADM_1MOVLW00
MOVWFCNTL
RADM_2MOVLW64H
MOVWFR3
MOVLW85H
MOVWFR2
MOVFBUF1,0
MOVWFR1
MOVFBUF0,0
MOVWFR0
CALLDMUL
MOVLW19H
ADDWFR4,0
MOVWFR0
MOVWFBUF0
BTFSCPSW,0
INCFR5
MOVLW36H
ADDWFR5,0
MOVWFR1
MOVWFBUF1
MOVFR0,0
ADDWFESUM1,1
BUFSSPSW,0
GOTOEADD_1
INCFESUM2
BTFSSPSW,2
GOTOEADD_1
INCFESUM3
BTFSSPSW,2
GOTOEADD_1
INCFESUM4
EADD_1MOVFR1,0
ADDWFESUM2,1
BTFSSPSW,0
GOTOEADD_2
BTFSSPSW,2
GOTOEADD_2
INCFESUM4
EADD_2BTFSCR1,7
GOTORADM_3
COMFR0,1
COMFR1,1
MOVLW1
ADDWFR0,1
BTFSCPSW,0
INCFR1
RADM_3MOVLW80H
ADDWFR1,1
MOVFR1,0
MOVWFR3
MOVFR0,0
MOVWFR2
CALLDMUL
MOVFR4,0
ADDWFDSUM1,1
BTFSSPSW,0
GOTODADD_1
INCFDSUM2
BTFSSPSW,2
GOTODADD_1
INCFDSUM3
BTFSSPSW,2
GOTODADD_1
INCFDSUM4
BTFSSPSW,2
GOTODADD_1
INCFDSUM6
DADD_1MOVFR5,0
ADDWFDSUM2,1
BTFSSPSW,0
GOTODADD_2
INCFDSUM3
BTFSSPSW,2
GOTODADD_2
INCFDSUM4
BTFSSPSW,2
GOTODADD_2
INCFDSUM5
BTFSSPSW,2
GOTODADD_2
INCFDSSUM6
DADD_2MOVFR6,0
ADDWFDSUM3,1
BTFSSPSW,0
GOTODADD_3
INCFDSUM4
BTFSSPSW,2
GOTODADD_3
INCFDSUM5
BTFSSPSW,2
GOTODADD_3
INCFDSUM6
DADD_3MOVFR7,0
ADDWFDSUM4,1
BTFSSPSW,0
GOTODADD_4
INCFDSUM5
BTFSSPSW,2
GOTODADD_4
INCFDSUM6
DADD_4DECFSZCNTL
GOTORADM_2
DECFSZCNTH
GOTORADM_1
MOVLW5
MOVWFCNTL
RADM_4BCFPSW,0
RRFESUM4
RRFESUM3
RRFESUM2
RRFESUM1
DECFSZCNTL
GOTORADM_4
MOVLW5
MOVWFCNTL
RADM_5BCFPSW,0
RRFDSUM6
RRFDSUM5
RRFDSUM4
RRFDSUM3
RRFDSUM2
RRFDSUM1
DECFSZCNTL
GOTORADM_5
LOOPGOTOLOOP
END