please dont rip this site

Microchip Pfu Pfu

 
; (See http://techref.massmind.org/techref/microchip/pfu/pfu.c
; for the original C source code)

; CC5X Version 3.0E, Copyright (c) B. Knudsen Data
; C compiler for the PICmicro family
; ************  16. Dec 1999  17:42  *************

	processor  16C62A
	radix  DEC

INDF        EQU   0x00
FSR         EQU   0x04
Carry       EQU   0
Zero_       EQU   2
a8          EQU   0x22
a16         EQU   0x23
a24         EQU   0x25
a32         EQU   0x28
b8          EQU   0x2C
b16         EQU   0x2D
b24         EQU   0x2F
b32         EQU   0x32
r8          EQU   0x36
r16         EQU   0x37
r24         EQU   0x39
r32         EQU   0x3C
r40         EQU   0x40
r48         EQU   0x45
r64         EQU   0x4B
Overflow    EQU   0
ZeroDiv     EQU   1
q8          EQU   0x54
ww          EQU   0x7F
ix          EQU   0x7F
ix_2        EQU   0x7F
m           EQU   0x7F
ix_3        EQU   0x7F
ix_4        EQU   0x7F
m_2         EQU   0x7F
ix_5        EQU   0x7F
ix_6        EQU   0x7F
m_3         EQU   0x7F
p           EQU   0x7F
ix_7        EQU   0x7F
ix_8        EQU   0x7F
m_4         EQU   0x7F
p_2         EQU   0x7F
ix_9        EQU   0x7F
ix_10       EQU   0x7F
ix_11       EQU   0x7F
ix_12       EQU   0x7F
ix_13       EQU   0x7F
ix_14       EQU   0x7F
ix_15       EQU   0x7F
ix_16       EQU   0x7F
ix_17       EQU   0x20
oldCy       EQU   0x21

	GOTO main

  ; FILE D:\PFU\PFU.C
			;
			;/*======================================================================*
			; |	Planet Fastest Unsigned PICmicro Math				|
			; |	(c) 1999 Jose Luiz Pinto Souto					|
			; |	    souto@cryogen.com						|
			; |									|
			; |	Loop version, smallest code. All timming includes CALL and 	|
			; |	RETURN instructions.						|
			; |									|
			; |	Compiled with CC5X, see also CC5xfree, a free 1K limited	|
			; |	C compiler from B. Knudsen Data - http://www.bknd.com. 		|
			; |									|
			; |	For algorithm details see Microchip's application note AN617.	|
			; |	PICmicro is registered Trademark of Microchip Technology Inc.	|
			; |      Alpha version - please report any bug to e-mail above.          |
			; |      If any faster algorithm is found, please report.                |
			; *======================================================================*/
			;
			;/* this software has been released to increase critical-mass PIC usage */
			;
			;/*
			;   YOU MAY USE THIS SOFTWARE OR PART OF IT AS LONG AS YOU KEEP THE
			;   COPYRIGHT NOTICE. COMERCIAL PRODUCTS SHOULD HAVE A PUBLIC REFERENCE
			;   TO AUTHOR.
			;
			;   THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
			;   EXPRESSED, IMPLIED OR OTHERWISE, INCLUDING AND WITHOUT LIMITATION, 
			;   ANY WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
			;   IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, INCIDENTAL, 
			;   INDIRECT OR CONSEQUENTIAL DAMAGES WHATSOEVER (INCLUDING, WITHOUT 
			;   LIMITATION, DAMAGES FOR LOSS OF PROFITS, BUSINESS INTERRUPTION, LOSS 
			;   OF INFORMATION, OR ANY OTHER LOSS) , WHETHER OR NOT ADVISED OF THE 
			;   POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF LIABILITY, ARISING OUT OF 
			;   OR IN CONNECTION WITH THE USE OR INABILITY TO USE THIS SOFTWARE. 
			;*/
			;
			;
			;#include <16c62a.h>
			;#pragma update_RP 0   	// OFF
			;
			;#define uns40 unsigned int
			;#define uns48 unsigned int
			;#define uns56 unsigned int
			;#define uns64 unsigned int
			;
			;uns8  a8;		// Load the 1st operand (  8 bits )
			;uns16 a16;		// Load the 1st operand ( 16 bits )
			;uns24 a24;		// Load the 1st operand ( 24 bits )
			;uns32 a32;		// Load the 1st operand ( 32 bits )
			;
			;uns8  b8;		// Load the 2nd operand (  8 bits )
			;uns16 b16;		// Load the 2nd operand ( 16 bits )
			;uns24 b24;		// Load the 2nd operand ( 24 bits )
			;uns32 b32;		// Load the 2nd operand ( 32 bits )
			;
			;uns8  r8;		// The  8 bits result
			;uns16 r16;		// The 16 bits result
			;uns24 r24;		// The 24 bits result
			;uns32 r32;		// The 32 bits result
			;uns40 r40[5];		// The 40 bits result
			;uns48 r48[6];		// The 48 bits result
			;uns64 r64[8];		// The 64 bits result
			;
			;bit   Overflow;		// Division Overflow flag
			;bit   ZeroDiv;		// Division Divisin by Zero flag
			;
			;uns8  q8;		// The  8 bits quotient
			;uns16 q16;		// The 16 bits quotient
			;uns24 q24;		// The 24 bits quotient
			;
			;/*======================================================================*/
			;/*	Prototypes							*/
			;/*======================================================================*/
			;
			;void negate8  (void);
			;void negate16 (void);
			;void negate24 (void);
			;void negate32 (void);
			;
			;void negate8a  (void);
			;void negate16a (void);
			;void negate24a (void);
			;void negate32a (void);
			;
			;void negate8b  (void);
			;void negate16b (void);
			;void negate24b (void);
			;void negate32b (void);
			;
			;/*----------------*/
			;
			;void add8  (void);
			;void add16 (void);
			;void add24 (void);
			;void add32 (void);
			;
			;void add8a  (void);
			;void add16a (void);
			;void add24a (void);
			;void add32a (void);
			;
			;void add8b  (void);
			;void add16b (void);
			;void add24b (void);
			;void add32b (void);
			;
			;/*----------------*/
			;
			;void sub8  (void);
			;void sub16 (void);
			;void sub24 (void);
			;void sub32 (void);
			;
			;void sub8a  (void);
			;void sub16a (void);
			;void sub24a (void);
			;void sub32a (void);
			;
			;/*-------------------*/
			;
			;void mpy8x8 (void);
			;
			;void mpy16x8 (void);
			;void mpy24x8 (void);
			;void mpy32x8 (void);
			;
			;void mpy16x8a (void);
			;void mpy24x8a (void);
			;void mpy32x8a (void);
			;
			;void mpy16x16 (void);
			;void mpy24x16 (void);
			;void mpy32x16 (void);
			;
			;void mpy16x16a (void);
			;void mpy24x16a (void);
			;void mpy32x16a (void);
			;
			;void mpy32x32  (void);
			;void mpy32x32a (void);
			;
			;
			;/*======================================================================*/
			;void negate8 (void)					      // r8 = -b8
			;/*======================================================================*/
			;
			;{
negate8
	COMF  b8,W      ;  r8  = ~b8;
	MOVWF r8
	INCF  r8,1      ;  r8++;
			;
	RETURN          ;} // 4 instructions, 5 cycles
			;
			;/*======================================================================*/
			;void negate8a (void)					      // b8 = -b8
			;/*======================================================================*/
			;
			;{
negate8a
	COMF  b8,1      ;  b8 = ~b8;
	INCF  b8,1      ;  b8++;
			;
	RETURN          ;} // 3 instructions, 4 cycles
			;
			;/*======================================================================*/
			;void negate8b (void)					    // INDF = -b8
			;/*======================================================================*/
			;
			;{
negate8b
	COMF  b8,W      ;  INDF = ~b8;
	MOVWF INDF
	INCF  INDF,1    ;  INDF++;
			;
	RETURN          ;} // 4 instructions, 5 cycles
			;
			;/*======================================================================*/
			;void negate16 (void)					    // r16 = -b16
			;/*======================================================================*/
			;
			;{
negate16
	COMF  b16+1,W   ;  r16.high8 = ~b16.high8;
	MOVWF r16+1
	COMF  b16,W     ;  r16.low8  = ~b16.low8;
	MOVWF r16
	INCFSZ r16,1    ;  r16.low8  = incsz(r16.low8);
	RETURN          ;  return;
	INCF  r16+1,1   ;  r16.high8++;
			;
	RETURN          ;} // 8 instructions, min:7 max:9 cycles
			;
			;/*======================================================================*/
			;void negate16a (void)					    // b16 = -b16
			;/*======================================================================*/
			;
			;{
negate16a
	COMF  b16+1,1   ;  b16.high8 = ~b16.high8;
	COMF  b16,1     ;  b16.low8  = ~b16.low8;
	INCFSZ b16,1    ;  b16.low8  = incsz(b16.low8);
	RETURN          ;  return;
	INCF  b16+1,1   ;  b16.high8++;
			;
	RETURN          ;} // 6 instructions, min:5 max:7 cycles
			;
			;/*======================================================================*/
			;void negate16b (void)					  // INDF = -INDF
			;/*======================================================================*/
			;
			;{
negate16b
	COMF  INDF,1    ;  INDF = ~INDF;
	INCF  FSR,1     ;  FSR++;
	COMF  INDF,1    ;  INDF = ~INDF;
	DECF  FSR,1     ;  FSR--;
	INCFSZ INDF,1   ;  INDF = incsz(INDF);
	RETURN          ;  return;
	INCF  FSR,1     ;  FSR++;
	INCF  INDF,1    ;  INDF++;
			;
	RETURN          ;} // 9 instructions, min:7 max:10 cycles
			;
			;/*======================================================================*/
			;void negate24 (void)					    // r24 = -b24
			;/*======================================================================*/
			;
			;{
negate24
	COMF  b24+2,W   ;  r24.high8 = ~b24.high8;
	MOVWF r24+2
	COMF  b24+1,W   ;  r24.midL8 = ~b24.midL8;
	MOVWF r24+1
	COMF  b24,W     ;  r24.low8  = ~b24.low8;
	MOVWF r24
	INCFSZ r24,1    ;  r24.low8  = incsz(r24.low8);
	RETURN          ;  return;
	INCFSZ r24+1,1  ;  r24.midL8 = incsz(r24.midL8);
	RETURN          ;  return;
	INCF  r24+2,1   ;  r24.high8++;
			;
	RETURN          ;} // 12 instructions, min:12 max:16 cycles
			;
			;/*======================================================================*/
			;void negate24a (void)					    // b24 = -b24
			;/*======================================================================*/
			;
			;{
negate24a
	COMF  b24+2,1   ;  b24.high8 = ~b24.high8;
	COMF  b24+1,1   ;  b24.midL8 = ~b24.midL8;
	COMF  b24,1     ;  b24.low8  = ~b24.low8;
			;
	INCFSZ b24,1    ;  b24.low8 = incsz(b24.low8);
	RETURN          ;  return;
	INCFSZ b24+1,1  ;  b24.midL8 = incsz(b24.midL8);
	RETURN          ;  return;
	INCF  b24+2,1   ;  b24.high8++;
			;
	RETURN          ;} // 9 instructions, min:6 max:10 cycles
			;
			;/*======================================================================*/
			;void negate24b (void)					  // INDF = -INDF
			;/*======================================================================*/
			;
			;{
negate24b
	MOVF  FSR,W     ;  W    = FSR;
	COMF  INDF,1    ;  INDF = ~INDF;
	INCF  FSR,1     ;  FSR++;
	COMF  INDF,1    ;  INDF = ~INDF;
	INCF  FSR,1     ;  FSR++;
	COMF  INDF,1    ;  INDF = ~INDF;
	MOVWF FSR       ;  FSR  = W;
			;
	INCFSZ INDF,1   ;  INDF = incsz(INDF);
	RETURN          ;  return;
	INCF  FSR,1     ;  FSR++;
	INCFSZ INDF,1   ;  INDF = incsz(INDF);
	RETURN          ;  return;
	INCF  FSR,1     ;  FSR++;
	INCF  INDF,1    ;  INDF++;
			;
	RETURN          ;} // 15 instructions, min:10 max:16 cycles
			;
			;/*======================================================================*/
			;void negate32 (void)					    // r32 = -b32
			;/*======================================================================*/
			;
			;{
negate32
	COMF  b32+3,W   ;  r32.high8 = ~b32.high8;
	MOVWF r32+3
	COMF  b32+2,W   ;  r32.midH8 = ~b32.midH8;
	MOVWF r32+2
	COMF  b32+1,W   ;  r32.midL8 = ~b32.midL8;
	MOVWF r32+1
	COMF  b32,W     ;  r32.low8  = ~b32.low8;
	MOVWF r32
			;
	INCFSZ r32,1    ;  r32.low8 = incsz(r32.low8);
	RETURN          ;  return;
	INCFSZ r32+1,1  ;  r32.midL8 = incsz(r32.midL8);
	RETURN          ;  return;
	INCFSZ r32+2,1  ;  r32.midH8 = incsz(r32.midH8);
	RETURN          ;  return;
	INCF  r32+3,1   ;  r32.high8++;
			;
	RETURN          ;} // 16 instructions, min:14 max:20 cycles
			;
			;/*======================================================================*/
			;void negate32a (void)					    // b32 = -b32
			;/*======================================================================*/
			;
			;{
negate32a
	COMF  b32+3,1   ;  b32.high8 = ~b32.high8;
	COMF  b32+2,1   ;  b32.midH8 = ~b32.midH8;
	COMF  b32+1,1   ;  b32.midL8 = ~b32.midL8;
	COMF  b32,1     ;  b32.low8  = ~b32.low8;
			;
	INCFSZ b32,1    ;  b32.low8 = incsz(b32.low8);
	RETURN          ;  return;
	INCFSZ b32+1,1  ;  b32.midL8 = incsz(b32.midL8);
	RETURN          ;  return;
	INCFSZ b32+2,1  ;  b32.midH8 = incsz(b32.midH8);
	RETURN          ;  return;
	INCF  b32+3,1   ;  b32.high8++;
			;
	RETURN          ;} // 12 instructions, min:10 max:16 cycles
			;
			;/*======================================================================*/
			;void negate32b (void)					   // INDF = -b32
			;/*======================================================================*/
			;
			;{
negate32b
			;  uns8 ww;
			;
	MOVF  FSR,W     ;  ww   = FSR;
	MOVWF ww
	COMF  b32,W     ;  INDF = ~b32.low8;
	MOVWF INDF
	INCF  FSR,1     ;  FSR++;
	COMF  b32+1,W   ;  INDF = ~b32.midL8;
	MOVWF INDF
	INCF  FSR,1     ;  FSR++;
	COMF  b32+2,W   ;  INDF = ~b32.midH8;
	MOVWF INDF
	INCF  FSR,1     ;  FSR++;
	COMF  b32+3,W   ;  INDF = ~b32.high8;
	MOVWF INDF
	MOVF  ww,W      ;  FSR  = ww;
	MOVWF FSR
			;
	INCFSZ INDF,1   ;  INDF = incsz(INDF);
	RETURN          ;  return;
	INCF  FSR,1     ;  FSR++;
	INCFSZ INDF,1   ;  INDF = incsz(INDF);
	RETURN          ;  return;
	INCF  FSR,1     ;  FSR++;
	INCFSZ INDF,1   ;  INDF = incsz(INDF);
	RETURN          ;  return;
	INCF  FSR,1     ;  FSR++;
	INCF  INDF,1    ;  INDF++;
			;
	RETURN          ;} // 27 instructions, min:18 max:27 cycles
			;
			;/*======================================================================*/
			;void add8 (void)					  // r8 = a8 + b8
			;/*======================================================================*/
			;
			;{
add8
	MOVF  b8,W      ;  W  = b8;
	ADDWF a8,W      ;  W  = a8 + W;
	MOVWF r8        ;  r8 = W;
			;
	RETURN          ;} // 4 instructions, 5 cycles
			;
			;/*======================================================================*/
			;void add8a (void)					      // a8 += b8
			;/*======================================================================*/
			;
			;{
add8a
	MOVF  b8,W      ;  W   = b8;
	ADDWF a8,1      ;  a8 += W;
			;
	RETURN          ;} // 3 instructions, 4 cycles
			;
			;/*======================================================================*/
			;void add8b (void)					    // INDF += b8
			;/*======================================================================*/
			;
			;{
add8b
	MOVF  b8,W      ;  INDF += b8;
	ADDWF INDF,1
			;
	RETURN          ;} // 3 instructions, 4 cycles
			;
			;/*======================================================================*/
			;void add16 (void)				       // r16 = a16 + b16
			;/*======================================================================*/
			;
			;{
add16
	MOVF  b16,W     ;  r16.low8  = a16.low8 + b16.low8;
	ADDWF a16,W
	MOVWF r16
	MOVF  a16+1,W   ;  r16.high8 = a16.high8;
	MOVWF r16+1
			;
	MOVF  b16+1,W   ;  W = b16.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b16.high8);
	INCFSZ b16+1,W
	ADDWF r16+1,1   ;  r16.high8 += W;
			;
	RETURN          ;} // 10 instructions, 11 cycles
			;
			;/*======================================================================*/
			;void add16a (void)					    // a16 += b16
			;/*======================================================================*/
			;
			;{
add16a
	MOVF  b16,W     ;  a16.low8 += b16.low8;
	ADDWF a16,1
			;
	MOVF  b16+1,W   ;  W = b16.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b16.high8);
	INCFSZ b16+1,W
	ADDWF a16+1,1   ;  a16.high8 += W;
			;
	RETURN          ;} // 7 instructions, 8 cycles
			;
			;/*======================================================================*/
			;void add16b (void)					   // INDF += b16
			;/*======================================================================*/
			;
			;{
add16b
	MOVF  b16,W     ;  INDF += b16.low8;
	ADDWF INDF,1
	INCF  FSR,1     ;  FSR++;
	MOVF  b16+1,W   ;  W = b16.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b16.high8);
	INCFSZ b16+1,W
	ADDWF INDF,1    ;  INDF += W;
			;
	RETURN          ;} // 8 instructions, 9 cycles
			;
			;/*======================================================================*/
			;void add24 (void)				       // r24 = a24 + b24
			;/*======================================================================*/
			;
			;{
add24
	MOVF  b24,W     ;  r24.low8 = a24.low8 + b24.low8;
	ADDWF a24,W
	MOVWF r24
			;
	MOVF  a24+1,W   ;  r24.midL8 = a24.midL8;
	MOVWF r24+1
	MOVF  b24+1,W   ;  W = b24.midL8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b24.midL8);
	INCFSZ b24+1,W
	ADDWF r24+1,1   ;  r24.midL8 += W;
			;
	MOVF  a24+2,W   ;  r24.high8 = a24.high8;
	MOVWF r24+2
	MOVF  b24+2,W   ;  W = b24.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b24.high8);
	INCFSZ b24+2,W
	ADDWF r24+2,1   ;  r24.high8 += W;
			;
	RETURN          ;} // 16 instructions, 17 cycles
			;
			;/*======================================================================*/
			;void add24a (void)					    // a24 += b24
			;/*======================================================================*/
			;
			;{
add24a
	MOVF  b24,W     ;  a24.low8 += b24.low8;
	ADDWF a24,1
			;
	MOVF  b24+1,W   ;  W = b24.midL8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b24.midL8);
	INCFSZ b24+1,W
	ADDWF a16+1,1   ;  a16.midL8 += W;
			;
	MOVF  b24+2,W   ;  W = b24.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b24.high8);
	INCFSZ b24+2,W
	ADDWF a16+1,1   ;  a16.high8 += W;
			;
	RETURN          ;} // 11 instructions, 12 cycles
			;
			;/*======================================================================*/
			;void add24b (void)					   // INDF += b24
			;/*======================================================================*/
			;
			;{
add24b
	MOVF  b24,W     ;  INDF += b24.low8;
	ADDWF INDF,1
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b24+1,W   ;  W = b24.midL8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b24.midL8);
	INCFSZ b24+1,W
	ADDWF INDF,1    ;  INDF += W;
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b24+2,W   ;  W = b24.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b24.high8);
	INCFSZ b24+2,W
	ADDWF INDF,1    ;  INDF += W;
			;
	RETURN          ;} // 13 instructions, 14 cycles
			;
			;/*======================================================================*/
			;void add32 (void)				       // r32 = a32 + b32
			;/*======================================================================*/
			;
			;{
add32
	MOVF  b32,W     ;  r32.low8 = a32.low8 + b32.low8;
	ADDWF a32,W
	MOVWF r32
			;
	MOVF  a32+1,W   ;  r32.midL8 = a32.midL8;
	MOVWF r32+1
	MOVF  b32+1,W   ;  W = b32.midL8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.midL8);
	INCFSZ b32+1,W
	ADDWF r32+1,1   ;  r32.midL8 += W;
			;
	MOVF  a32+2,W   ;  r32.midH8 = a32.midH8;
	MOVWF r32+2
	MOVF  b32+2,W   ;  W = b32.midH8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.midH8);
	INCFSZ b32+2,W
	ADDWF r32+2,1   ;  r32.midH8 += W;
			;
	MOVF  a32+3,W   ;  r32.high8 = a32.high8;
	MOVWF r32+3
	MOVF  b32+3,W   ;  W = b32.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.high8);
	INCFSZ b32+3,W
	ADDWF r32+3,1   ;  r32.high8 += W;
			;
	RETURN          ;} // 22 instructions, 23 cycles
			;
			;/*======================================================================*/
			;void add32a (void)					    // a32 += b32
			;/*======================================================================*/
			;
			;{
add32a
	MOVF  b32,W     ;  a32.low8 += b32.low8;
	ADDWF a32,1
			;
	MOVF  b32+1,W   ;  W = b32.midL8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.midL8);
	INCFSZ b32+1,W
	ADDWF a32+1,1   ;  a32.midL8 += W;
			;
	MOVF  b32+2,W   ;  W = b32.midH8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.midH8);
	INCFSZ b32+2,W
	ADDWF a32+2,1   ;  a32.midH8 += W;
			;
	MOVF  b32+3,W   ;  W = b32.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.high8);
	INCFSZ b32+3,W
	ADDWF a32+3,1   ;  a32.high8 += W;
			;
	RETURN          ;} // 15 instructions, 16 cycles
			;
			;/*======================================================================*/
			;void add32b (void)					   // INDF += b32
			;/*======================================================================*/
			;
			;{
add32b
	MOVF  b32,W     ;  INDF += b32.low8;
	ADDWF INDF,1
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b32+1,W   ;  W = b32.midL8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.midL8);
	INCFSZ b32+1,W
	ADDWF INDF,1    ;  INDF += W;
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b32+2,W   ;  W = b32.midH8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.midH8);
	INCFSZ b32+2,W
	ADDWF INDF,1    ;  INDF += W;
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b32+3,W   ;  W = b32.high8;
	BTFSC 0x03,Carry ; if (Carry) W = incsz(b32.high8);
	INCFSZ b32+3,W
	ADDWF INDF,1    ;  INDF += W;
			;
	RETURN          ;} // 18 instructions, 19 cycles
			;
			;/*======================================================================*/
			;void sub8 (void)					  // r8 = a8 - b8
			;/*======================================================================*/
			;
			;{
sub8
	MOVF  b8,W      ;  r8 = a8 - b8;
	SUBWF a8,W
	MOVWF r8
			;
	RETURN          ;} // 4 instructions, 5 cycles
			;
			;/*======================================================================*/
			;void sub8a (void)					      // a8 -= b8
			;/*======================================================================*/
			;
			;{
sub8a
			;
	MOVF  b8,W      ;  a8 -= b8;
	SUBWF a8,1
			;
	RETURN          ;} // 3 instructions, 4 cycles
			;
			;/*======================================================================*/
			;void sub8b (void)					    // INDF -= b8
			;/*======================================================================*/
			;
			;{
sub8b
			;
	MOVF  b8,W      ;  INDF -= b8;
	SUBWF INDF,1
			;
	RETURN          ;} // 3 instructions, 4 cycles
			;
			;/*======================================================================*/
			;void sub16 (void)				       // r16 = a16 - b16
			;/*======================================================================*/
			;
			;{
sub16
	MOVF  b16,W     ;  r16.low8  = a16.low8 - b16.low8;
	SUBWF a16,W
	MOVWF r16
	MOVF  a16+1,W   ;  r16.high8 = a16.high8;
	MOVWF r16+1
			;
	MOVF  b16+1,W   ;  W = b16.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b16.high8);
	INCFSZ b16+1,W
	SUBWF r16+1,1   ;  r16.high8 -= W;
			;
	RETURN          ;} // 10 instructions, 11 cycles
			;
			;/*======================================================================*/
			;void sub16a (void)					    // a16 -= b16
			;/*======================================================================*/
			;
			;{
sub16a
	MOVF  b16,W     ;  a16.low8 -= b16.low8;
	SUBWF a16,1
			;
	MOVF  b16+1,W   ;  W = b16.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b16.high8);
	INCFSZ b16+1,W
	SUBWF a16+1,1   ;  a16.high8 -= W;
			;
	RETURN          ;} // 7 instructions, 8 cycles
			;
			;/*======================================================================*/
			;void sub16b (void)					   // INDF -= b16
			;/*======================================================================*/
			;
			;{
sub16b
	MOVF  b16,W     ;  INDF -= b16.low8;
	SUBWF INDF,1
	INCF  FSR,1     ;  FSR++;
	MOVF  b16+1,W   ;  W = b16.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b16.high8);
	INCFSZ b16+1,W
	SUBWF INDF,1    ;  INDF -= W;
			;
	RETURN          ;} // 8 instructions, 9 cycles
			;
			;/*======================================================================*/
			;void sub24 (void)				       // r24 = a24 - b24
			;/*======================================================================*/
			;
			;{
sub24
	MOVF  b24,W     ;  r24.low8 = a24.low8 - b24.low8;
	SUBWF a24,W
	MOVWF r24
			;
	MOVF  a24+1,W   ;  r24.midL8 = a24.midL8;
	MOVWF r24+1
	MOVF  b24+1,W   ;  W = b24.midL8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b24.midL8);
	INCFSZ b24+1,W
	SUBWF r24+1,1   ;  r24.midL8 -= W;
			;
	MOVF  a24+2,W   ;  r24.high8 = a24.high8;
	MOVWF r24+2
	MOVF  b24+2,W   ;  W = b24.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b24.high8);
	INCFSZ b24+2,W
	SUBWF r24+2,1   ;  r24.high8 -= W;
			;
	RETURN          ;} // 16 instructions, 17 cycles
			;
			;/*======================================================================*/
			;void sub24a (void)					    // a24 -= b24
			;/*======================================================================*/
			;
			;{
sub24a
	MOVF  b24,W     ;  a24.low8  -= b24.low8;
	SUBWF a24,1
			;
	MOVF  b24+1,W   ;  W = b24.midL8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b24.midL8);
	INCFSZ b24+1,W
	SUBWF a24+1,1   ;  a24.midL8 -= W;
			;
	MOVF  b24+2,W   ;  W = b24.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b24.high8);
	INCFSZ b24+2,W
	SUBWF a24+2,1   ;  a24.high8 -= W;
			;
	RETURN          ;} // 11 instructions, 12 cycles
			;
			;/*======================================================================*/
			;void sub24b (void)					   // INDF -= b24
			;/*======================================================================*/
			;
			;{
sub24b
	MOVF  b24,W     ;  INDF -= b24.low8;
	SUBWF INDF,1
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b24+1,W   ;  W = b24.midL8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b24.midL8);
	INCFSZ b24+1,W
	SUBWF INDF,1    ;  INDF -= W;
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b24+2,W   ;  W = b24.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b24.high8);
	INCFSZ b24+2,W
	SUBWF INDF,1    ;  INDF -= W;
			;
	RETURN          ;} // 13 instructions, 14 cycles
			;
			;/*======================================================================*/
			;void sub32 (void)				       // r32 = a32 - b32
			;/*======================================================================*/
			;
			;{
sub32
	MOVF  b32,W     ;  r32.low8 = a32.low8 - b32.low8;
	SUBWF a32,W
	MOVWF r32
			;
	MOVF  a32+1,W   ;  r32.midL8 = a32.midL8;
	MOVWF r32+1
	MOVF  b32+1,W   ;  W = b32.midL8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.midL8);
	INCFSZ b32+1,W
	SUBWF r32+1,1   ;  r32.midL8 -= W;
			;
	MOVF  a32+2,W   ;  r32.midH8 = a32.midH8;
	MOVWF r32+2
	MOVF  b32+2,W   ;  W = b32.midH8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.midH8);
	INCFSZ b32+2,W
	SUBWF r32+2,1   ;  r32.midH8 -= W;
			;
	MOVF  a32+3,W   ;  r32.high8 = a32.high8;
	MOVWF r32+3
	MOVF  b32+3,W   ;  W = b32.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.high8);
	INCFSZ b32+3,W
	SUBWF r32+3,1   ;  r32.high8 -= W;
			;
	RETURN          ;} // 22 instructions, 23 cycles
			;
			;/*======================================================================*/
			;void sub32a (void)					    // a32 -= b32
			;/*======================================================================*/
			;
			;{
sub32a
	MOVF  b32,W     ;  a32.low8 -= b32.low8;
	SUBWF a32,1
			;
	MOVF  b32+1,W   ;  W = b32.midL8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.midL8);
	INCFSZ b32+1,W
	SUBWF a32+1,1   ;  a32.midL8 -= W;
			;
	MOVF  b32+2,W   ;  W = b32.midH8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.midH8);
	INCFSZ b32+2,W
	SUBWF a32+2,1   ;  a32.midH8 -= W;
			;
	MOVF  b32+3,W   ;  W = b32.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.high8);
	INCFSZ b32+3,W
	SUBWF a32+3,1   ;  a32.high8 -= W;
			;
	RETURN          ;} // 15 instructions, 19 cycles
			;
			;/*======================================================================*/
			;void sub32b (void)					   // INDF -= b32
			;/*======================================================================*/
			;
			;{
sub32b
	MOVF  b32,W     ;  INDF -= b32.low8;
	SUBWF INDF,1
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b32+1,W   ;  W = b32.midL8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.midL8);
	INCFSZ b32+1,W
	SUBWF INDF,1    ;  INDF -= W;
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b32+2,W   ;  W = b32.midH8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.midH8);
	INCFSZ b32+2,W
	SUBWF INDF,1    ;  INDF -= W;
	INCF  FSR,1     ;  FSR++;
			;
	MOVF  b32+3,W   ;  W = b32.high8;
	BTFSS 0x03,Carry ; if (!Carry) W = incsz(b32.high8);
	INCFSZ b32+3,W
	SUBWF INDF,1    ;  INDF -= W;
			;
	RETURN          ;} // 18 instructions, 19 cycles
			;
			;/*======================================================================*/
			;void mpy8x8 (void)					 // r16 = a8 * b8
			;/*======================================================================*/
			;
			;{
mpy8x8
			;  uns8 ix;
			;
	CLRF  r16       ;  r16 = 0;
	CLRF  r16+1
	MOVF  b8,W      ;  W = b8;
	BTFSC 0x03,Zero_ ; if (W)
	GOTO  m002
			;  {
	MOVWF r16       ;    r16.low8 = W;
	MOVLW .8        ;    ix = 8;
	MOVWF ix
	MOVF  a8,W      ;    W = a8;
			;    do
			;    {
m001	BCF   0x03,Carry ;     Carry = 0;
	BTFSC r16,0     ;      if (r16.0) r16.high8 += W;
	ADDWF r16+1,1
	RRF   r16+1,1   ;      r16.high8 = rr (r16.high8);
	RRF   r16,1     ;      r16.low8  = rr (r16.low8);
			;    }
	DECFSZ ix,1     ;    while (--ix);
	GOTO  m001
			;  }
m002	RETURN          ;} // 17 instructions, min:11, max:77 cycles
			;
			;/*======================================================================*/
			;void mpy8x8a (void)					// INDF = a8 * b8
			;/*======================================================================*/
			;
			;{
mpy8x8a
			;  uns8 ix, m;
			;
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;
	CLRF  INDF      ;  INDF = 0;
	MOVF  b8,W      ;  W    = b8;
	BTFSC 0x03,Zero_ ; if (W)
	GOTO  m004
			;  {
	MOVWF m         ;    m  = W;
	MOVLW .8        ;    ix = 8;
	MOVWF ix_2
	MOVF  a8,W      ;    W  = a8;
			;    do
			;    {
m003	BCF   0x03,Carry ;     Carry = 0;
	BTFSC m,0       ;      if (m.0) INDF += W;
	ADDWF INDF,1
	RRF   INDF,1    ;      INDF = rr (INDF);
	DECF  FSR,1     ;      FSR--;
	RRF   INDF,1    ;      INDF = rr (INDF);
	INCF  FSR,1     ;      FSR++;
	RRF   m,1       ;      m = rr (m);
			;    }
	DECFSZ ix_2,1   ;    while (--ix);
	GOTO  m003
			;  }
m004	RETURN          ;} // 21 instructions, min:8, max:?? cycles
			;
			;/*======================================================================*/
			;void mpy16x8 (void)					// r24 = a16 * b8
			;/*======================================================================*/
			;
			;{
mpy16x8
			;  uns8  ix;
			;
	MOVF  b8,W      ;  W = b8;
	BTFSS 0x03,Zero_ ; if (!W)
	GOTO  m005
			;  {
	CLRF  r24+2     ;    r24.high8 = 0;
	CLRF  r24       ;    r24.low16 = 0;
	CLRF  r24+1
			;  }
	GOTO  m008      ;  else
			;  {
m005	XORLW .1        ;    r24.low8 = W ^ 1;
	MOVWF r24
	MOVF  a16,W     ;    r24.high16 = a16;
	MOVWF r24+1
	MOVF  a16+1,W
	MOVWF r24+2
	MOVLW .8        ;    ix = 8;
	MOVWF ix_3
			;    do
			;    {
m006	RRF   r24,W     ;      W = rr(r24.low8);
	BTFSS 0x03,Carry ;     if (Carry)
	GOTO  m007
			;      {
	MOVF  a16,W     ;        r24.midL8 += a16.low8;
	ADDWF r24+1,1
	MOVF  a16+1,W   ;        W = a16.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a16.high8);
	INCFSZ a16+1,W
	ADDWF r24+2,1   ;        r24.high8 += W;
			;      }
m007	RRF   r24+2,1   ;      r24.high8 = rr(r24.high8);
	RRF   r24+1,1   ;      r24.midL8 = rr(r24.midL8);
	RRF   r24,1     ;      r24.low8  = rr(r24.low8);
			;    }
	DECFSZ ix_3,1   ;    while (--ix);
	GOTO  m006
			;  }
m008	RETURN          ;} // 30 instructions, min:10, max:131 cycles
			;
			;/*======================================================================*/
			;void mpy16x8a (void)				       // INDF = a16 * b8
			;/*======================================================================*/
			;
			;{
mpy16x8a
			;  uns8  ix, m;
			;
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 1
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 2
	CLRF  INDF      ;  INDF = 0;
	MOVF  b8,W      ;  W = b8;
	BTFSC 0x03,Zero_ ; if (W)
	GOTO  m011
			;  {
	MOVWF m_2       ;    m  = W;
	DECF  FSR,1     ;    FSR--;		// 1
	MOVLW .8        ;    ix = 8;
	MOVWF ix_4
			;    do
			;    {
m009	BCF   0x03,Carry ;     Carry = 0;
	BTFSS m_2,0     ;      if (m.0)
	GOTO  m010
			;      {
	MOVF  a16,W     ;        INDF += a16.low8;
	ADDWF INDF,1
	INCF  FSR,1     ;        FSR++;		// 2
	MOVF  a16+1,W   ;        W = a16.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a16.high8);
	INCFSZ a16+1,W
	ADDWF INDF,1    ;        INDF += W;
	DECF  FSR,1     ;        FSR--;		// 1
			;      }
m010	INCF  FSR,1     ;      FSR++;		// 2
	RRF   INDF,1    ;      INDF = rr(INDF);
	DECF  FSR,1     ;      FSR--;		// 1
	RRF   INDF,1    ;      INDF = rr(INDF);
	DECF  FSR,1     ;      FSR--;		// 0
	RRF   INDF,1    ;      INDF  = rr(INDF);
	INCF  FSR,1     ;      FSR++;		// 1
	RRF   m_2,1     ;      m = rr(m);
			;    }
	DECFSZ ix_4,1   ;    while (--ix);
	GOTO  m009
			;  }
m011	RETURN          ;} // 34 instructions, min:??, max:??? cycles
			;
			;/*======================================================================*/
			;void mpy24x8 (void)					// r32 = a24 * b8
			;/*======================================================================*/
			;
			;{
mpy24x8
			;  uns8  ix;
			;
	MOVF  b8,W      ;  W = b8;
	BTFSS 0x03,Zero_ ; if (!W)
	GOTO  m012
			;  {
	CLRF  r32+2     ;    r32.high16 = 0;
	CLRF  r32+3
	CLRF  r32       ;    r32.low16 = 0;
	CLRF  r32+1
			;  }
	GOTO  m015      ;  else
			;  {
m012	XORLW .1        ;    r32.low8 = W ^ 1;
	MOVWF r32
	MOVF  a24,W     ;    r32.midL8 = a24.low8;
	MOVWF r32+1
	MOVF  a24+1,W   ;    r32.high16 = a24.high16;
	MOVWF r32+2
	MOVF  a24+2,W
	MOVWF r32+3
	MOVLW .8        ;    ix = 8;
	MOVWF ix_5
			;    do
			;    {
m013	RRF   r32,W     ;      W = rr(r32.low8);
	BTFSS 0x03,Carry ;     if (Carry)
	GOTO  m014
			;      {
	MOVF  a24,W     ;        r32.midL8 += a24.low8;
	ADDWF r32+1,1
	MOVF  a24+1,W   ;        W = a24.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.midL8);
	INCFSZ a24+1,W
	ADDWF r32+2,1   ;        r32.midH8 += W;
	MOVF  a24+2,W   ;        W = a24.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.high8);
	INCFSZ a24+2,W
	ADDWF r32+3,1   ;        r32.high8 += W;
			;      }
m014	RRF   r32+3,1   ;      r32.high8 = rr(r32.high8);
	RRF   r32+2,1   ;      r32.midH8 = rr(r32.midH8);
	RRF   r32+1,1   ;      r32.midL8 = rr(r32.midL8);
	RRF   r32,1     ;      r32.low8  = rr(r32.low8);
			;    }
	DECFSZ ix_5,1   ;    while (--ix);
	GOTO  m013
			;  }
m015	RETURN          ;} // 38 instructions, min:14, max:169 cycles
			;
			;/*======================================================================*/
			;void mpy24x8a (void)				       // INDF = a24 * b8
			;/*======================================================================*/
			;
			;{
mpy24x8a
			;  uns8  ix, m, p;
			;
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 1
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 2
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 3
	CLRF  INDF      ;  INDF = 0;
			;  
	MOVF  b8,W      ;  W = b8;
	BTFSC 0x03,Zero_ ; if (W)
	GOTO  m018
			;  {
	MOVWF m_3       ;    m  = W;
	MOVLW .8        ;    ix = 8;
	MOVWF ix_6
	MOVF  FSR,W     ;    p  = FSR;
	MOVWF p
	DECF  FSR,1     ;    FSR--;		// 2
	DECF  FSR,1     ;    FSR--;		// 1
			;    do
			;    {
m016	RRF   m_3,W     ;      W = rr(m);
	BTFSS 0x03,Carry ;     if (Carry)
	GOTO  m017
			;      {
	MOVF  a24,W     ;        INDF += a24.low8;
	ADDWF INDF,1
	INCF  FSR,1     ;        FSR++;		// 2
	MOVF  a24+1,W   ;        W = a24.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.midL8);
	INCFSZ a24+1,W
	ADDWF INDF,1    ;        INDF += W;
	INCF  FSR,1     ;        FSR++;		// 3
	MOVF  a24+2,W   ;        W = a24.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.high8);
	INCFSZ a24+2,W
	ADDWF INDF,1    ;        INDF += W;
			;      }			// else !Carry
m017	MOVF  p,W       ;      FSR = p;
	MOVWF FSR
	RRF   INDF,1    ;      INDF = rr(INDF);
	DECF  FSR,1     ;      FSR--;		// 2
	RRF   INDF,1    ;      INDF = rr(INDF);
	DECF  FSR,1     ;      FSR--;		// 1
	RRF   INDF,1    ;      INDF = rr(INDF);
	DECF  FSR,1     ;      FSR--;		// 0
	RRF   INDF,1    ;      INDF = rr(INDF);
	INCF  FSR,1     ;      FSR++;		// 1
	RRF   m_3,1     ;      m = rr(m);
			;    }
	DECFSZ ix_6,1   ;    while (--ix);
	GOTO  m016
			;  }
m018	RETURN          ;} // 46 instructions, min:13, max:??? cycles
			;
			;/*======================================================================*/
			;void mpy32x8 (void)					// r40 = a32 * b8
			;/*======================================================================*/
			;
			;{
mpy32x8
			;  uns8  ix;
			;
	MOVF  b8,W      ;  W = b8;
	BTFSS 0x03,Zero_ ; if (!W)
	GOTO  m019
			;  {
	CLRF  r40+4     ;    r40[4] = 0;
	CLRF  r40+3     ;    r40[3] = 0;
	CLRF  r40+2     ;    r40[2] = 0;
	CLRF  r40+1     ;    r40[1] = 0;
	CLRF  r40       ;    r40[0] = 0;
			;  }
	GOTO  m022      ;  else
			;  {
m019	MOVF  a32+3,W   ;    r40[0] = a32.high8;
	MOVWF r40
	MOVF  a32+2,W   ;    r40[1] = a32.midH8;
	MOVWF r40+1
	MOVF  a32+1,W   ;    r40[2] = a32.midL8;
	MOVWF r40+2
	MOVF  a32,W     ;    r40[3] = a32.low8;
	MOVWF r40+3
	MOVLW .1        ;    r40[4] = b8 ^ 1;
	XORWF b8,W
	MOVWF r40+4
	MOVLW .8        ;    ix = 8;
	MOVWF ix_7
			;    do
			;    {

m020	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r40+4,0   ;      if (r40[4].0)
	GOTO  m021
			;      {
	MOVF  a32,W     ;        r40[3] += a32.low8;
	ADDWF r40+3,1
			;
	MOVF  a32+1,W   ;        W = a32.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midL8);
	INCFSZ a32+1,W
	ADDWF r40+2,1   ;        r40[2] += W;
			;
	MOVF  a32+2,W   ;        W = a32.midH8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midH8);
	INCFSZ a32+2,W
	ADDWF r40+1,1   ;        r40[1] += W;
			;
	MOVF  a32+3,W   ;        W = a32.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.high8);
	INCFSZ a32+3,W
	ADDWF r40,1     ;        r40[0] += W;
			;      }
			;      }
			;#asm
m021	RRF   r40,1     ;	rrf	r40+0,F		;     r40[0] = rr(r40[0]);
	RRF   r40+1,1   ;	rrf	r40+1,F		;     r40[1] = rr(r40[1]);
	RRF   r40+2,1   ;	rrf	r40+2,F		;     r40[2] = rr(r40[2]);
	RRF   r40+3,1   ;	rrf	r40+3,F		;     r40[3] = rr(r40[3]);
	RRF   r40+4,1   ;	rrf	r40+4,F		;     r40[4] = rr(r40[4]);
			;#endasm
			;    }
	DECFSZ ix_7,1   ;    while (--ix);
	GOTO  m020
			;  }
m022	RETURN          ;} // 47 instructions, min:15, max:208 cycles
			;
			;/*======================================================================*/
			;void mpy32x8a (void)				       // INDF = a32 * b8
			;/*======================================================================*/
			;
			;{
mpy32x8a
			;  uns8  ix, m, p;
			;
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 1
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 2
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 3
	CLRF  INDF      ;  INDF = 0;
	INCF  FSR,1     ;  FSR++;		// 4
	CLRF  INDF      ;  INDF = 0;
			;
	MOVF  b8,W      ;  W = b8;
	BTFSC 0x03,Zero_ ; if (W)
	GOTO  m025
			;  {
	MOVWF m_4       ;    m  = W;
	MOVLW .8        ;    ix = 8;
	MOVWF ix_8
	MOVF  FSR,W     ;    p  = FSR;
	MOVWF p_2
	DECF  FSR,1     ;    FSR--;		// 3
	DECF  FSR,1     ;    FSR--;		// 2
	DECF  FSR,1     ;    FSR--;		// 1
			;    do
			;    {
m023	RRF   m_4,W     ;      W = rr(m);
			;      {
	BTFSS 0x03,Carry ;     if (Carry)
	GOTO  m024
			;      {
	MOVF  a32,W     ;        INDF += a32.low8;
	ADDWF INDF,1
	INCF  FSR,1     ;        FSR++;		// 2
	MOVF  a32+1,W   ;        W = a32.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midL8);
	INCFSZ a32+1,W
	ADDWF INDF,1    ;        INDF += W;
	INCF  FSR,1     ;        FSR++;		// 3
	MOVF  a32+2,W   ;        W = a32.midH8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midH8);
	INCFSZ a32+2,W
	ADDWF INDF,1    ;        INDF += W;
	INCF  FSR,1     ;        FSR++;		// 4
	MOVF  a32+3,W   ;        W = a32.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.high8);
	INCFSZ a32+3,W
	ADDWF INDF,1    ;        INDF += W;
			;      }
			;      }			// else !Carry
m024	MOVF  p_2,W     ;        FSR = p;	// 4
	MOVWF FSR
			;#asm
	RRF   INDF,1    ;	rrf	INDF,F
	DECF  FSR,1     ;        decf    FSR,f		; 3
	RRF   INDF,1    ;	rrf	INDF,F
	DECF  FSR,1     ;        decf    FSR,f		; 2
	RRF   INDF,1    ;	rrf	INDF,F
	DECF  FSR,1     ;        decf    FSR,f		; 1
	RRF   INDF,1    ;	rrf	INDF,F
	DECF  FSR,1     ;        decf    FSR,f		; 0
	RRF   INDF,1    ;	rrf	INDF,F
	INCF  FSR,1     ;        incf    FSR,f		; 1
			;#endasm
			;    }
	DECFSZ ix_8,1   ;    while (--ix);
	GOTO  m023
			;  }
m025	RETURN          ;} // 55 instructions, min:15, max:??? cycles
			;
			;/*======================================================================*/
			;void mpy16x16 (void)				       // r32 = a16 * b16
			;/*======================================================================*/
			;
			;{
mpy16x16
			;  uns8  ix;				// temporary
			;
	MOVF  b16,W     ;  if (!b16)
	IORWF b16+1,W
	BTFSS 0x03,Zero_
	GOTO  m026
			;  {
	CLRF  r32+2     ;    r32.high16 = 0;
	CLRF  r32+3
	CLRF  r32       ;    r32.low16 = 0;
	CLRF  r32+1
			;  }
	GOTO  m029      ;  else
			;  {
m026	MOVF  a16,W     ;    r32.high16 = a16;
	MOVWF r32+2
	MOVF  a16+1,W
	MOVWF r32+3
	MOVF  b16+1,W   ;    r32.midL8 = b16.high8;
	MOVWF r32+1
	MOVLW .1        ;    r32.low8 = b16.low8 ^ 1;
	XORWF b16,W
	MOVWF r32
	MOVLW .16       ;    ix = 16;
	MOVWF ix_9
			;    do
			;    {
m027	BCF   0x03,Carry ;     Carry = 0;
	BTFSS r32,0     ;      if (r32.0)
	GOTO  m028
			;      {
	MOVF  a16,W     ;        r32.midH8 += a16.low8;
	ADDWF r32+2,1
	MOVF  b16+1,W   ;        W = b16.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a16.high8);
	INCFSZ a16+1,W
	ADDWF r32+3,1   ;        r32.high8 += W;
			;      }
m028	RRF   r32+3,1   ;      r32.high8 = rr(r32.high8);
	RRF   r32+2,1   ;      r32.midH8 = rr(r32.midH8);
	RRF   r32+1,1   ;      r32.midL8 = rr(r32.midL8);
	RRF   r32,1     ;      r32.low8  = rr(r32.low8);
			;    }
	DECFSZ ix_9,1   ;    while (--ix);
	GOTO  m027
			;  }
m029	RETURN          ;} // 36 instructions, min:15, max:271 cycles
			;
			;/*======================================================================*/
			;void mpy16x16a (void)				       // r32 = a16 * b16
			;/*======================================================================*/
			;
			;{
mpy16x16a
			;  uns8  ix;				// temporary
			;
	CLRF  r32+2     ;  r32.high16 = 0;
	CLRF  r32+3
	CLRF  r32       ;  r32.low16 = 0;
	CLRF  r32+1
	MOVF  b16,W     ;  if (b16)
	IORWF b16+1,W
	BTFSC 0x03,Zero_
	GOTO  m032
			;  {
	MOVF  b16,W     ;    r32.low16 = b16;
	MOVWF r32
	MOVF  b16+1,W
	MOVWF r32+1
	MOVLW .16       ;    ix = 16;
	MOVWF ix_10
			;    do
			;    {
m030	RRF   r32,W     ;      W = rr(r32.low8);
	BTFSS 0x03,Carry ;     if (Carry)
	GOTO  m031
			;      {
	MOVF  a16,W     ;        r32.midH8 += a16.low8;
	ADDWF r32+2,1
	MOVF  b16+1,W   ;        W = b16.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a16.high8);
	INCFSZ a16+1,W
	ADDWF r32+3,1   ;        r32.high8 += W;
			;      }
m031	RRF   r32+3,1   ;      r32.high8 = rr(r32.high8);
	RRF   r32+2,1   ;      r32.midH8 = rr(r32.midH8);
	RRF   r32+1,1   ;      r32.midL8 = rr(r32.midL8);
	RRF   r32,1     ;      r32.low8  = rr(r32.low8);
			;    }
	DECFSZ ix_10,1  ;    while (--ix);
	GOTO  m030
			;  }
m032	RETURN          ;} // 30 instructions, min:14, max:274 cycles
			;
			;/*======================================================================*/
			;void mpy24x16 (void)				       // r40 = a24 * b16
			;/*======================================================================*/
			;
			;{
mpy24x16
			;  uns8  ix;				// temporary
			;
	MOVF  b16,W     ;  if (!b16)
	IORWF b16+1,W
	BTFSS 0x03,Zero_
	GOTO  m033
			;  {
	CLRF  r40+4     ;    r40[4] = 0;
	CLRF  r40+3     ;    r40[3] = 0;
	CLRF  r40+2     ;    r40[2] = 0;
	CLRF  r40+1     ;    r40[1] = 0;
	CLRF  r40       ;    r40[0] = 0;
			;  }
	GOTO  m036      ;  else
			;  {
m033	MOVF  a24+2,W   ;    r40[0] = a24.high8;
	MOVWF r40
	MOVF  a24+1,W   ;    r40[1] = a24.midL8;
	MOVWF r40+1
	MOVF  a24,W     ;    r40[2] = a24.low8;
	MOVWF r40+2
	MOVF  b16+1,W   ;    r40[3] = b16.high8;
	MOVWF r40+3
	MOVLW .1        ;    r40[4] = b16.low8 ^ 1;
	XORWF b16,W
	MOVWF r40+4
	MOVLW .16       ;    ix = 16;
	MOVWF ix_11
			;    do
			;    {
m034	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r40+4,0   ;      if (r40[4].0)
	GOTO  m035
			;      {
	MOVF  a24,W     ;        r40[2] += a24.low8;
	ADDWF r40+2,1
			;
	MOVF  a24+1,W   ;        W = a24.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.midL8);
	INCFSZ a24+1,W
	ADDWF r40+1,1   ;        r40[1] += W;
			;
	MOVF  a24+2,W   ;        W = a24.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.high8);
	INCFSZ a24+2,W
	ADDWF r40,1     ;        r40[0] += W;
			;      }
			;      }
			;#asm
m035	RRF   r40,1     ;	rrf	r40+0,F		;     r40[0] = rr(r40[0]);
	RRF   r40+1,1   ;	rrf	r40+1,F		;     r40[1] = rr(r40[1]);
	RRF   r40+2,1   ;	rrf	r40+2,F		;     r40[2] = rr(r40[2]);
	RRF   r40+3,1   ;	rrf	r40+3,F		;     r40[3] = rr(r40[3]);
	RRF   r40+4,1   ;	rrf	r40+4,F		;     r40[4] = rr(r40[4]);
			;#endasm
			;    }
	DECFSZ ix_11,1  ;    while (--ix);
	GOTO  m034
			;  }
m036	RETURN          ;} // 44 instructions, min:16, max:349 cycles
			;
			;/*======================================================================*/
			;void mpy24x16a (void)				       // r40 = a24 * b16
			;/*======================================================================*/
			;
			;{
mpy24x16a
			;  uns8  ix;				// temporary
			;
	CLRF  r40+4     ;  r40[4] = 0;
	CLRF  r40+3     ;  r40[3] = 0;
	CLRF  r40+2     ;  r40[2] = 0;
	CLRF  r40+1     ;  r40[1] = 0;
	CLRF  r40       ;  r40[0] = 0;
	MOVF  b16,W     ;  if (b16)
	IORWF b16+1,W
	BTFSC 0x03,Zero_
	GOTO  m039
			;  {
	MOVF  b16+1,W   ;    r40[3] = b16.high8;
	MOVWF r40+3
	MOVLW .1        ;    r40[4] = b16.low8 ^ 1;
	XORWF b16,W
	MOVWF r40+4
	MOVLW .16       ;    ix = 16;
	MOVWF ix_12
			;    do
			;    {
m037	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r40+4,0   ;      if (r40[4].0)
	GOTO  m038
			;      {
	MOVF  a24,W     ;        r40[2] += a24.low8;
	ADDWF r40+2,1
			;
	MOVF  a24+1,W   ;        W = a24.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.midL8);
	INCFSZ a24+1,W
	ADDWF r40+1,1   ;        r40[1] += W;
			;
	MOVF  a24+2,W   ;        W = a24.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a24.high8);
	INCFSZ a24+2,W
	ADDWF r40,1     ;        r40[0] += W;
			;      }
			;      }
			;#asm
m038	RRF   r40,1     ;	rrf	r40+0,F		;     r40[0] = rr(r40[0]);
	RRF   r40+1,1   ;	rrf	r40+1,F		;     r40[1] = rr(r40[1]);
	RRF   r40+2,1   ;	rrf	r40+2,F		;     r40[2] = rr(r40[2]);
	RRF   r40+3,1   ;	rrf	r40+3,F		;     r40[3] = rr(r40[3]);
	RRF   r40+4,1   ;	rrf	r40+4,F		;     r40[4] = rr(r40[4]);
			;#endasm
			;    }
	DECFSZ ix_12,1  ;    while (--ix);
	GOTO  m037
			;  }
m039	RETURN          ;} // ?? instructions, min:15, max:347 cycles
			;
			;/*======================================================================*/
			;void mpy32x16 (void)				       // r48 = a32 * b16
			;/*======================================================================*/
			;
			;{
mpy32x16
			;  uns8  ix;
			;
	MOVF  b16,W     ;  if (!b16)
	IORWF b16+1,W
	BTFSS 0x03,Zero_
	GOTO  m040
			;  {
	CLRF  r48       ;    r48[0] = 0;
	CLRF  r48+1     ;    r48[1] = 0;
	CLRF  r48+2     ;    r48[2] = 0;
	CLRF  r48+3     ;    r48[3] = 0;
	CLRF  r48+4     ;    r48[4] = 0;
	CLRF  r48+5     ;    r48[5] = 0;
			;  }
	GOTO  m043      ;  else
			;  {
m040	MOVF  a32+3,W   ;    r48[0] = a32.high8;
	MOVWF r48
	MOVF  a32+2,W   ;    r48[1] = a32.midH8;
	MOVWF r48+1
	MOVF  a32+1,W   ;    r48[2] = a32.midL8;
	MOVWF r48+2
	MOVF  a32,W     ;    r48[3] = a32.low8;
	MOVWF r48+3
	MOVF  b16+1,W   ;    r48[4] = b16.high8;
	MOVWF r48+4
	MOVLW .1        ;    r48[5] = b16.low8 ^ 1;
	XORWF b16,W
	MOVWF r48+5
	MOVLW .16       ;    ix = 16;
	MOVWF ix_13
			;    do
			;    {
m041	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r48+5,0   ;      if (r48[5].0)
	GOTO  m042
			;      {
	MOVF  a32,W     ;        r48[3] += a32.low8;
	ADDWF r48+3,1
			;
	MOVF  a32+1,W   ;        W = a32.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midL8);
	INCFSZ a32+1,W
	ADDWF r48+2,1   ;        r48[2] += W;
			;
	MOVF  a32+2,W   ;        W = a32.midH8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midH8);
	INCFSZ a32+2,W
	ADDWF r48+1,1   ;        r48[1] += W;
			;
	MOVF  a32+3,W   ;        W = a32.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.high8);
	INCFSZ a32+3,W
	ADDWF r48,1     ;        r48[0] += W;
			;      }
			;      }
			;#asm
m042	RRF   r48,1     ;	rrf	r48+0,F		;     r48[0] = rr(r48[0]);
	RRF   r48+1,1   ;	rrf	r48+1,F		;     r48[1] = rr(r48[1]);
	RRF   r48+2,1   ;	rrf	r48+2,F		;     r48[2] = rr(r48[2]);
	RRF   r48+3,1   ;	rrf	r48+3,F		;     r48[3] = rr(r48[3]);
	RRF   r48+4,1   ;	rrf	r48+4,F		;     r48[4] = rr(r48[4]);
	RRF   r48+5,1   ;	rrf	r48+5,F		;     r48[5] = rr(r48[5]);
			;#endasm
			;    }
	DECFSZ ix_13,1  ;    while (--ix);
	GOTO  m041
			;  }
m043	RETURN          ;} // 52 instructions, min:17, max:427 cycles
			;
			;/*======================================================================*/
			;void mpy32x16a (void)				       // r48 = a32 * b16
			;/*======================================================================*/
			;
			;{
mpy32x16a
			;
			;  uns8  ix;
			;
	CLRF  r48       ;  r48[0] = 0;
	CLRF  r48+1     ;  r48[1] = 0;
	CLRF  r48+2     ;  r48[2] = 0;
	CLRF  r48+3     ;  r48[3] = 0;
	CLRF  r48+4     ;  r48[4] = 0;
	CLRF  r48+5     ;  r48[5] = 0;
	MOVF  b16,W     ;  if (b16)
	IORWF b16+1,W
	BTFSC 0x03,Zero_
	GOTO  m046
			;  {
	MOVF  b16+1,W   ;    r48[4] = b16.high8;
	MOVWF r48+4
	MOVF  b16,W     ;    r48[5] = b16.low8;
	MOVWF r48+5
	MOVLW .16       ;    ix = 16;
	MOVWF ix_14
			;    do
			;    {
m044	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r48+5,0   ;      if (r48[5].0)
	GOTO  m045
			;      {
	MOVF  a32,W     ;        r48[3] += a32.low8;
	ADDWF r48+3,1
			;
	MOVF  a32+1,W   ;        W = a32.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midL8);
	INCFSZ a32+1,W
	ADDWF r48+2,1   ;        r48[2] += W;
			;
	MOVF  a32+2,W   ;        W = a32.midH8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midH8);
	INCFSZ a32+2,W
	ADDWF r48+1,1   ;        r48[1] += W;
			;
	MOVF  a32+3,W   ;        W = a32.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.high8);
	INCFSZ a32+3,W
	ADDWF r48,1     ;        r48[0] += W;
			;      }
			;      }
			;#asm
m045	RRF   r48,1     ;	rrf	r48+0,F		;     r48[0] = rr(r48[0]);
	RRF   r48+1,1   ;	rrf	r48+1,F		;     r48[1] = rr(r48[1]);
	RRF   r48+2,1   ;	rrf	r48+2,F		;     r48[2] = rr(r48[2]);
	RRF   r48+3,1   ;	rrf	r48+3,F		;     r48[3] = rr(r48[3]);
	RRF   r48+4,1   ;	rrf	r48+4,F		;     r48[4] = rr(r48[4]);
	RRF   r48+5,1   ;	rrf	r48+5,F		;     r48[5] = rr(r48[5]);
			;#endasm
			;    }
	DECFSZ ix_14,1  ;    while (--ix);
	GOTO  m044
			;  }
			;
m046	RETURN          ;} // 42 instructions, min:16, max:436 cycles
			;
			;/*======================================================================*/
			;void mpy32x32 (void)				       // r64 = a32 * b32
			;/*======================================================================*/
			;
			;{
mpy32x32
			;
			;  uns8  ix;
			;
	MOVF  b32+2,W   ;  W = b32.high8 | b32.midH8;
	IORWF b32+3,W
	IORWF b32+1,W   ;  W = b32.midL8 | W;
	IORWF b32,W     ;  W = b32.low8  | W;
	BTFSS 0x03,Zero_ ; if (Zero_)
	GOTO  m047
			;  {
	CLRF  r64       ;    r64[0] = 0;
	CLRF  r64+1     ;    r64[1] = 0;
	CLRF  r64+2     ;    r64[2] = 0;
	CLRF  r64+3     ;    r64[3] = 0;
	CLRF  r64+4     ;    r64[4] = 0;
	CLRF  r64+5     ;    r64[5] = 0;
	CLRF  r64+6     ;    r64[6] = 0;
	CLRF  r64+7     ;    r64[7] = 0;
			;  }
	GOTO  m050      ;  else
			;  {
m047	MOVF  a32+3,W   ;    r64[0] = a32.high8;
	MOVWF r64
	MOVF  a32+2,W   ;    r64[1] = a32.midH8;
	MOVWF r64+1
	MOVF  a32+1,W   ;    r64[2] = a32.midL8;
	MOVWF r64+2
	MOVF  a32,W     ;    r64[3] = a32.low8;
	MOVWF r64+3
	MOVF  b32+3,W   ;    r64[4] = b32.high8;
	MOVWF r64+4
	MOVF  b32+2,W   ;    r64[5] = b32.midH8;
	MOVWF r64+5
	MOVF  b32+1,W   ;    r64[6] = b32.midL8;
	MOVWF r64+6
	MOVLW .1        ;    r64[7] = b32.low8 ^ 1;
	XORWF b32,W
	MOVWF r64+7
	MOVLW .32       ;    ix = 32;
	MOVWF ix_15
			;    do
			;    {
m048	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r64+7,0   ;      if (r64[7].0)
	GOTO  m049
			;      {
	MOVF  a32,W     ;        r64[3] += a32.low8;
	ADDWF r64+3,1
			;
	MOVF  a32+1,W   ;        W = a32.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midL8);
	INCFSZ a32+1,W
	ADDWF r64+2,1   ;        r64[2] += W;
			;
	MOVF  a32+2,W   ;        W = a32.midH8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midH8);
	INCFSZ a32+2,W
	ADDWF r64+1,1   ;        r64[1] += W;
			;
	MOVF  a32+3,W   ;        W = a32.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.high8);
	INCFSZ a32+3,W
	ADDWF r64,1     ;        r64[0] += W;
			;      }
			;      }
			;#asm
m049	RRF   r64,1     ;	rrf	r64+0,F		//    r64[0] = rr(r64[0]);
	RRF   r64+1,1   ;	rrf	r64+1,F		//    r64[1] = rr(r64[1]);
	RRF   r64+2,1   ;	rrf	r64+2,F		//    r64[2] = rr(r64[2]);
	RRF   r64+3,1   ;	rrf	r64+3,F		//    r64[3] = rr(r64[3]);
	RRF   r64+4,1   ;	rrf	r64+4,F		//    r64[4] = rr(r64[4]);
	RRF   r64+5,1   ;	rrf	r64+5,F		//    r64[5] = rr(r64[5]);
	RRF   r64+6,1   ;	rrf	r64+6,F		//    r64[6] = rr(r64[6]);
	RRF   r64+7,1   ;	rrf	r64+7,F		//    r64[7] = rr(r64[7]);
			;#endasm
			;    }
	DECFSZ ix_15,1  ;    while (--ix);
	GOTO  m048
			;  }
			;
m050	RETURN          ;} // 62 instructions, min:21, max:913 cycles
			;
			;/*======================================================================*/
			;void mpy32x32a (void)				       // r64 = a32 * b32
			;/*======================================================================*/
			;
			;{
mpy32x32a
			;
			;  uns8  ix;
			;
	CLRF  r64       ;  r64[0] = 0;
	CLRF  r64+1     ;  r64[1] = 0;
	CLRF  r64+2     ;  r64[2] = 0;
	CLRF  r64+3     ;  r64[3] = 0;
	CLRF  r64+4     ;  r64[4] = 0;
	CLRF  r64+5     ;  r64[5] = 0;
	CLRF  r64+6     ;  r64[6] = 0;
	CLRF  r64+7     ;  r64[7] = 0;
			;
	MOVF  b32+2,W   ;  W = b32.high8 | b32.midH8;
	IORWF b32+3,W
	IORWF b32+1,W   ;  W = b32.midL8 | W;
	IORWF b32,W     ;  W = b32.low8  | W;
	BTFSC 0x03,Zero_ ; if (!Zero_)
	GOTO  m053
			;  {
	MOVF  b32+3,W   ;    r64[4] = b32.high8;
	MOVWF r64+4
	MOVF  b32+2,W   ;    r64[5] = b32.midH8;
	MOVWF r64+5
	MOVF  b32+1,W   ;    r64[6] = b32.midL8;
	MOVWF r64+6
	MOVF  b32,W     ;    r64[7] = b32.low8;
	MOVWF r64+7
	MOVLW .32       ;    ix = 32;
	MOVWF ix_16
			;    do
			;    {
m051	BCF   0x03,Carry ;     Carry = 0;
			;      {
	BTFSS r64+7,0   ;      if (r64[7].0)
	GOTO  m052
			;      {
	MOVF  a32,W     ;        r64[3] += a32.low8;
	ADDWF r64+3,1
			;
	MOVF  a32+1,W   ;        W = a32.midL8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midL8);
	INCFSZ a32+1,W
	ADDWF r64+2,1   ;        r64[2] += W;
			;
	MOVF  a32+2,W   ;        W = a32.midH8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.midH8);
	INCFSZ a32+2,W
	ADDWF r64+1,1   ;        r64[1] += W;
			;
	MOVF  a32+3,W   ;        W = a32.high8;
	BTFSC 0x03,Carry ;       if (Carry) W = incsz(a32.high8);
	INCFSZ a32+3,W
	ADDWF r64,1     ;        r64[0] += W;
			;      }
			;      }
			;#asm
m052	RRF   r64,1     ;	rrf	r64+0,F		//    r64[0] = rr(r64[0]);
	RRF   r64+1,1   ;	rrf	r64+1,F		//    r64[1] = rr(r64[1]);
	RRF   r64+2,1   ;	rrf	r64+2,F		//    r64[2] = rr(r64[2]);
	RRF   r64+3,1   ;	rrf	r64+3,F		//    r64[3] = rr(r64[3]);
	RRF   r64+4,1   ;	rrf	r64+4,F		//    r64[4] = rr(r64[4]);
	RRF   r64+5,1   ;	rrf	r64+5,F		//    r64[5] = rr(r64[5]);
	RRF   r64+6,1   ;	rrf	r64+6,F		//    r64[6] = rr(r64[6]);
	RRF   r64+7,1   ;	rrf	r64+7,F		//    r64[7] = rr(r64[7]);
			;#endasm
			;    }
	DECFSZ ix_16,1  ;    while (--ix);
	GOTO  m051
			;  }
			;
m053	RETURN          ;} // 52 instructions, min:20, max:924 cycles
			;
			;/*======================================================================*/
			;void div16x8 (void)				     // q8,r8 =  a16 / b8
			;/*======================================================================*/
			;
			;{
div16x8
			;  char ix, oldCy;
			;
	BSF   0x53,ZeroDiv ;ZeroDiv = 1;
	MOVF  b8,W      ;  W = b8;
	BTFSC 0x03,Zero_ ; if (!Zero_)
	GOTO  m058
			;  {
	BSF   0x53,Overflow ;Overflow = 1;				// assume error
	SUBWF a16+1,W   ;    if (a16.high8<b8)
	BTFSC 0x03,Carry
	GOTO  m058
			;    {
	BCF   0x53,Overflow ;  Overflow = 0;			// no error
	MOVF  a16+1,W   ;      r8 = a16.high8;
	MOVWF r8
	MOVF  a16,W     ;      q8 = a16.low8;
	MOVWF q8
			;
	MOVLW .8        ;      ix = 8;				// 8 bits divisor
	MOVWF ix_17
	MOVF  b8,W      ;      W = b8;				// pre-fetch : BK
			;      do
			;      {
m054	BCF   0x03,Carry ;       q8 *= 2;			// shift dividend
	RLF   q8,1
	RLF   r8,1      ;        r8 = rl(r8);
	RLF   oldCy,1   ;        oldCy = rl(oldCy);		// save carry over
	SUBWF r8,1      ;        r8 -= W;			// fits ?
	BTFSC oldCy,0   ;        if (oldCy.0 || Carry)
	GOTO  m055
	BTFSS 0x03,Carry
	GOTO  m056
m055	BSF   q8,0      ;          q8.0 = 1;			// yes
	GOTO  m057      ;        else
m056	ADDWF r8,1      ;          r8 += W;			// restore dividend
			;      }
m057	DECFSZ ix_17,1  ;      while ( --ix);
	GOTO  m054
			;    }
			;  }
m058	RETURN          ;}// 31 words
			;
			;/*======================================================================*/
			;void div24x8 (void)				    // q16,r8 =  a24 / b8
			;/*======================================================================*/
			;
			;{
div24x8
			;/*
			;  char ix, oldCy;
			;
			;  ZeroDiv = 1;
			;  W = b8;
			;  if (!Zero_)
			;  {
			;    Overflow = 1;			// assume error
			;    if (a24.high8<b8)
			;    {
			;      Overflow = 0;			// no error
			;      r8 = a24.high8;
			;      q16 = a24.low16;
			;
			;      ix = 16;				// 8 bits divisor
			;      W = b8;				// pre-fetch : BK
			;      do
			;      {
			;        q16 *= 2;			// shift dividend
			;        r8 = rl(r8);
			;        oldCy = rl(oldCy);		// save carry over
			;        r8 -= W;			// fits ?
			;        if (oldCy.0 || Carry)
			;          q16.0 = 1;			// yes
			;        else
			;          r8 += W;			// restore dividend
			;      }
			;      while ( --ix);
			;    }
			;  }
			;*/
	RETURN          ;}// 34 words
			;
			;/*======================================================================*/
			;void div32x8 (void)				    // q24,r8 =  a32 / b8
			;/*======================================================================*/
			;
			;{
div32x8
			;/*
			;  char ix, oldCy;
			;
			;  ZeroDiv = 1;
			;  W = b8;
			;  if (!Zero_)
			;  {
			;    Overflow = 1;
			;    if (a32.high8<b8)
			;    {
			;      Overflow = 0;
			;      r8 = a32.high8;
			;      q24.high8 = a32.midH8;
			;      q24.low16 = a32.low16;
			;
			;      ix = 24;
			;      W = b8;
			;      do
			;      {
			;        q24.low16 *= 2;
			;        q24.high8 = rl(q24.high8);
			;        r8 = rl(r8);
			;        oldCy = rl(oldCy);
			;        r8 -= W;
			;        if (oldCy.0 || Carry)
			;          q24.0 = 1;
			;        else
			;          r8 += W;
			;      }
			;      while ( --ix);
			;    }
			;  }
			;*/
	RETURN          ;}// ?? words
			;
			;/*======================================================================*/
			;void div24x16 (void)				    // q8,r8 =  a24 / b16
			;/*======================================================================*/
			;
			;{
div24x16
			;/*
			;  char ix, oldCy;
			;
			;  ZeroDiv = 1;
			;  if (b16)
			;  {
			;    Overflow = 1;
			;    if (a24.high16<b16)
			;    {
			;      Overflow = 0;
			;      r16 = a24.high16;
			;      q8 = a24.low8;
			;
			;      ix = 24;
			;      do
			;      {
			;        q8 *= 2;
			;        r16.low8 = rl(r16.low8);
			;        r16.high8 = rl(r16.high8);
			;        oldCy = rl(oldCy);
			;        r16.low8 -= b16.low8;
			;        W = b16.high8;
			;        if (!Carry) W = incsz(b16.high8);
			;        r16.high8 -= W;
			;        if (oldCy.0 || Carry)
			;          q8.0 = 1;
			;        else
			;        {
			;          r16.low8 += b16.low8;
			;          W = b16.high8;
			;          if (Carry) W = incsz(b16.high8);
			;          r16.high8 += W;
			;        }
			;      }
			;      while ( --ix);
			;    }
			;  }
			;*/
	RETURN          ;}// ?? words
			;
			;/*======================================================================*/
			;void Load0 (void)
			;/*======================================================================*/
			;
			;{
Load0
			;/*
			;  a8	     = 0;
			;  b8         = 0;
			;  a16	     = 0;
			;  b16        = 0;
			;  a24.high8  = 0;
			;  a24.low16  = 0;
			;  b24.high8  = 0;
			;  b24.low16  = 0;
			;  a32.high16 = 0;
			;  a32.low16  = 0;
			;  b32.high16 = 0;
			;  b32.low16  = 0;
			;*/
	RETURN          ;}
			;
			;/*======================================================================*/
			;void Load1 (void)
			;/*======================================================================*/
			;
			;{
Load1
			;/*
			;  a8	     = 0xFF;
			;  b8         = 0xFF;
			;  a16	     = 0xFFFF;
			;  b16        = 0xFFFF;
			;  a24.high8  = 0xFF;
			;  a24.low16  = 0xFFFF;
			;  b24.high8  = 0xFF;
			;  b24.low16  = 0xFFFF;
			;  a32.high16 = 0xFFFF;
			;  a32.low16  = 0xFFFF;
			;  b32.high16 = 0xFFFF;
			;  b32.low16  = 0xFFFF;
			;*/
	RETURN          ;}
			;
			;/*======================================================================*/
			;void Load2 (void)
			;/*======================================================================*/
			;
			;{
Load2
	MOVLW .255      ;  a8	     = 0xFF;
	MOVWF a8
	MOVWF a16       ;  a16	     = 0xFFFF;
	MOVWF a16+1
	MOVLW .254      ;  a24.high8  = 0xFE;
	MOVWF a24+2
	MOVLW .255      ;  a24.low16  = 0xFFFF;
	MOVWF a24
	MOVWF a24+1
	MOVWF a32+2     ;  a32.high16 = 0xFFFF;
	MOVWF a32+3
	MOVWF a32       ;  a32.low16  = 0xFFFF;
	MOVWF a32+1
			;
	MOVLW .31       ;  b8         = 0x1F;
	MOVWF b8
	MOVLW .255      ;  b16        = 0xFFFF;
	MOVWF b16
	MOVWF b16+1
	MOVLW .31       ;  b24.high8  = 0x1F;
	MOVWF b24+2
	MOVLW .255      ;  b24.low16  = 0xFFFF;
	MOVWF b24
	MOVWF b24+1
	MOVWF b32+2     ;  b32.high16 = 0x1FFF;
	MOVLW .31
	MOVWF b32+3
	MOVLW .255      ;  b32.low16  = 0xFFFF;
	MOVWF b32
	MOVWF b32+1
	MOVWF a32+2     ;  a32.high16 = 0xFEFF;
	MOVLW .254
	MOVWF a32+3
	MOVLW .15       ;  a32.low16  = 0xFF0F;
	MOVWF a32
	MOVLW .255
	MOVWF a32+1
			;
	RETURN          ;}
			;
			;/*======================================================================*/
			;void main (void)
			;/*======================================================================*/
			;
			;{
main
			;
	MOVLW .210      ;  b8         = 0xD2;
	MOVWF b8
	MOVLW .184      ;  a16	     = 0x56B8;
	MOVWF a16
	MOVLW .86
	MOVWF a16+1
	CALL  div16x8   ;  div16x8 ();				     // q8,r8 =  a16 / b8
			;
			;
	CALL  Load2     ;  Load2();
	CALL  div24x16  ;  div24x16();
			;
	BTFSC 0x53,Overflow ;if(Overflow || ZeroDiv) /*do something*/;
	GOTO  m059
	BTFSS 0x53,ZeroDiv
	GOTO  m059
			;
m059	CALL  Load1     ;  Load1();
	CALL  div24x16  ;  div24x16();
	BTFSC 0x53,Overflow ;if(Overflow || ZeroDiv) /*do something*/;
	GOTO  m060
	BTFSS 0x53,ZeroDiv
	GOTO  m060
			;
m060	CALL  Load0     ;  Load0();
	CALL  div24x16  ;  div24x16();
	BTFSC 0x53,Overflow ;if(Overflow || ZeroDiv) /*do something*/;
	GOTO  m061
	BTFSS 0x53,ZeroDiv
	GOTO  m061
			;
m061	SLEEP           ;}
	GOTO main

	END



file: /Techref/microchip/pfu/PFU.ASM, 63KB, , updated: 2005/8/12 19:42, local time: 2017/10/23 07:59,
TOP NEW HELP FIND: 
54.166.203.76:LOG IN

 ©2017 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE! / 

<A HREF="http://www.piclist.com/techref/microchip/pfu/PFU.ASM"> microchip pfu PFU</A>

Did you find what you needed?

  PICList 2017 contributors:
o List host: MIT, Site host massmind.org, Top posters @20171023 RussellMc, Van Horn, David, James Cameron, Sean Breheny, IVP, alan.b.pearce, Neil, David C Brown, Bob Blick, Denny Esterline,
* Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
 

Welcome to www.piclist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .