This is a multi-part message in MIME format.

------=_NextPart_000_0009_01C3E459.D0175C40
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

Ken
I have included both asm files that i was working with here.
The c54 was a suggestion from tony nixon. I dont think I did any thing to
the include file to get this to work. I thought since this is working it
should'nt take much to port to a c55. Well thats when i got this error list
that is way to long to print
thanks
Michael Johnston
----- Original Message -----
From: "Ken Pergola" <no_spam@LOCALNET.COM>
To: <PICLIST@MITVMA.MIT.EDU>
Sent: Sunday, January 25, 2004 10:07 PM
Subject: Re: [PIC]: Trouble assembling code for 16F84A


> Michael Johnston wrote:
>
> > code the assembler told me that it had found a new label, so
>
> Hi Michael,
>
> If you can answer a few questions we will probably be able to help you in
a
> jiffy:
>
> What specific label did MPASM choke on? Can you post the error here?
> What version of MPLAB are you using?
>
> Modifying the standard include file might come back to bite you in the
> future...
>
>
> Best regards,
>
> Ken Pergola
>
> --
> http://www.piclist.com#nomail Going offline? Don't AutoReply us!
> email listserv@mitvma.mit.edu with SET PICList DIGEST in the body

--
http://www.piclist.com hint: To leave the PICList
mailto:piclist-unsubscribe-request@mitvma.mit.edu



------=_NextPart_000_0009_01C3E459.D0175C40
Content-Type: application/octet-stream;
        name="c54.asm"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
        filename="c54.asm"

;*****************************c54flasher MWJ 11-09-03 =
*****************************
        list    p=3D16f84a=09
        include "p16f84a.inc"
        radix   hex
;************************************************************************=
**********
        cblock  0x0a
        D1
        D2
        endc
;
same    equ     0x01
;************************************************************************=
**********
        org     0x000
;************************************************************************=
***********
start
        bsf     STATUS,RP0      ;switch to bank 1
        movlw   b'00000000'     ;outputs
        movwf   TRISA
        movlw   b'00000000'     ;outputs
        movwf   TRISB=09
        bcf     STATUS,RP0      ;switch back to bank0
        movlw   0x00
        movwf   PORTA
        movlw   0x00
        movwf   PORTB
;************************************************************************=
**********
pointa
        clrf    PORTB
        bsf     PORTA,0
        call    delay
        bcf     STATUS,C
        rlf     PORTA,same
        btfss   PORTA,3
        goto    pointa
pointb=09
        clrf    PORTA
        bsf     PORTB,0
        call    delay
        rlf     PORTB,same
        btfss   PORTB,7
        goto    pointb
        goto    pointa
;************************************************************************=
******************
delay
        movlw   0xff
        movwf   D1
        movlw   0xff
        movwf   D2
delay1=09
        decfsz  D2
        goto    delay1
        decfsz  D1
        goto    delay
        retlw   0x00
;************************************************************************=
***********
        end


=09
=09

------=_NextPart_000_0009_01C3E459.D0175C40
Content-Type: application/octet-stream;
        name="c55.asm"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
        filename="c55.asm"

;**********************flahser =
derivete***********************************
        list    p=3D16c55
        include "p16c5x.inc"
        radix   hex
;***********************************************************************
        cblock  0x08
        D1
        D2
        C1
        PB_A
        PB_B
        PB_C
;
same    equ     0x01
;************************************************************************=

        org     0x000
;************************************************************************=

start
        movlw   0x00
        movwf   PORTA   ;porta all bits low
        tris    PORTA   ;porta all pins out put
        movlw   0x00
        movwf   PORTB
        tris    PORTB
        movlw   0x00=09
        movwf   PORTC
        tris    PORTC
;
        movlw   b'00000001'
        movwf   PB_A
        clrf    PB_B
        clrf    PB_C
;************************************************************************=
***
; Porta,b forward
;************************************************************************=
***
aleft
        call    delay    ;write to port and delay to see it
        bcf     STATUS,C         ;shift led bit left once
        rlf     PB_A,same
        btfss   PB_A,4   ; if bit 4=3D 1 then scan moves into PB_B
        goto    aleft    ;not 1
;
        clrf    PB_A     ;clear all bits PB_A
        movlw   b'00000001'
        movwf   PB_B
bleft
        call    delay    ;write to porb and dealy to see it
        bcf     STATUS,C ;shift led bit right once
        rlf     PB_B,same
        btfss   STATUS,C ;PB_B =3D0 and Carry =3D1 if done      =09
        goto    bleft
;
        movlw   b'00000001'
        movwf   PB_C
cleft
        call    delay
        bcf     STATUS,C
        rlf     PB_C,Same
        btfss   STATUS,C
        goto    cleft
;
        movlw   b'10000000'
        movwf   PB_C
cright
        call    delay
        bcf     STATUS,C
        rrf     PB_C
        btfss   STATUS,C
        goto    cright
;
        movlw   b'10000000'
        movwf   PB_B
bright
        Call    delay    ;write to prot and delay to see it
        bcf     STATUS,C ; shift led bit right once
        rrf     PB_B,same
        btfss   STATUS,C ;pb_b =3D 0 and carry =3D 1 if all done
        goto    bright
;
        movlw   b'00001000'=20
        movwf   PB_A
aright
        call    delay   ;write to prota and delay to see
        bcf     STATUS,C ;shift led bit right once
        rrf     PB_A,same=20
        btfss   STATUS,C ;pb_a=3D0 and carry 1 is all done
        goto    aright
;
        movlw   b'00000001'
        movwf   PB_A
        goto    aleft=09
;************************************************************************=
***
delay=09
        movf    PB_A,W  ;set porta and b Led
        movwf   PORTA
        Movf    PB_B,W
        movwf   PORTB
        movf    PB_C,W
        movlw   0x07
        Movwf   D1
        clrf    D2
delay_0
        decfsz  D1,F
        goto    $-1
        decfsz  D2,F
        goto    delay_0
        retlw   0x00
;************************************************************************=
*****
        end
=09
        =20



------=_NextPart_000_0009_01C3E459.D0175C40--