Ok, I now have it as:

;now add new sample
     movfw       R1L              ;
     addwf       AD2L,F          ;LS byte

     movfw       R1M             ;middle byte
     skpnc
       incfsz    R1M,W
         addwf   AD2M,F          ;

     movfw       R1H             ;MS byte
     skpnc
       incfsz    R1H,W
         addwf   AD2H,F          ;

Please let me know if there are any other routines that need correction.

---
James Newton (PICList Admin #3)
mailto:jamesnewton@piclist.com 1-619-652-0593
PIC/PICList FAQ: http://www.piclist.com or .org

-----Original Message-----
From: Lorick [mailto:lorick at air.on.ca]
Sent: Thursday, March 23, 2000 11:08
To: jamesnewton@piclist.com
Subject: Corrected 24 Bit Add


> Re: 24bit add
> I've updated the page as I understand you indicated. Is this now correct:

It was partially fixed, but there are two parts in that middle byte section
that require editing, there is still another R1L that must be changed to
RLM.  This is the working version as far as I can tell:

      movfw       R1L
      addwf       AD2L,F         ;LS byte

      movfw       R1M            ;Middle byte
      skpnc
      incfsz         R1M,W
      addwf       AD2M,F

      movfw       R1H             ;MS byte
      skpnc
      incfsz         R1H,W
      addwf       AD2H,F

-----Original Message-----
From: Dwayne Reid [mailto:dwayner@planet.eon.net]
Sent: Thursday, March 23, 2000 10:49
To: jamesnewton@piclist.com
Subject: Re: [PICLIST] Math Troubles continued
Importance: Low
<SNIP>
This looks like one of my snippets - did I goof it up somehow?  If so, my
apologies!  following copy has been corrected.


>     movfw       R1L              ;
>      addwf       AD2L,F          ;LS byte
>
>      movfw       R1M             ;middle byte
>      skpnc
>        incfsz    R1M,W
>          addwf   AD2M,F          ;
>
>      movfw       R1H             ;MS byte
>      skpnc
>        incfsz    R1H,W
>          addwf   AD2H,F          ;

dwayne



Dwayne Reid   <dwayner@planet.eon.net>
Trinity Electronics Systems Ltd    Edmonton, AB, CANADA
(780) 489-3199 voice          (780) 487-6397 fax

Celebrating 16 years of Engineering Innovation (1984 - 2000)

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Do NOT send unsolicited commercial email to this email address.
This message neither grants consent to receive unsolicited
commercial email nor is intended to solicit commercial email.