Re: [CAD_CAM_EDM_DRO] Re: PICs as replacements for L297s

Thanks, Kerry,

Now I have to figure out what it means. I did machine language coding in
the 1960's and assembler in the 1970's but that was a long time ago. I have
written linear and circular interpolation (with chords) in basic, so I hope
I can bridge to this stuff again.

Thank you again

Tom E.

----- Original Message -----
From: Kerry <kez@...>
To: <CAD_CAM_EDM_DRO@yahoogroups.com>
Sent: Sunday, April 22, 2001 11:29 AM
Subject: [CAD_CAM_EDM_DRO] Re: PICs as replacements for L297s


> --- In CAD_CAM_EDM_DRO@e..., "Tom Eldredge" <harmonyt@r...> wrote:
> > Kerry,
> >
> > Where and how can we get your code?
> >
> > Tom Eldredge
> > ----- Original Message -----
> > From: Kerry <kez@w...>
> > To: <CAD_CAM_EDM_DRO@y...>
> > Sent: Saturday, April 21, 2001 7:07 PM
> > Subject: [CAD_CAM_EDM_DRO] Re: PICs as replacements for L297s
> >
>
> this is the code for the pic16f84 full/half step controler
> I use the tasm compiler and the send program to program the chips. if
> you whant them let me know.
>
>
> #DEFINE PAGE0 bcf STATUS,5
> #DEFINE PAGE1 bsf STATUS,5
>
> STATUS: .EQU $03
> TRISB: .EQU $06
> PORTB: .EQU $06
>
> PORTA: .EQU $05
> COUNT: .EQU $0C
> COUNTH: .EQU $0D
> COUNTA: .EQU $0E
> SWITCH: .EQU $0F
> .ORG 4
> .ORG 5
> clrf PORTB
> PAGE1
> clrf TRISB
> PAGE0
>
> BEGIN: clrf COUNT
> clrf COUNTH
> clrf COUNTA
> clrf SWITCH
> bsf COUNT, 1
> bsf COUNTH, 0
> bsf COUNTA, 0
>
> TESTIT: btfsc PORTA, 4
> GOTO TSTPRV
> bcf SWITCH, 0
> GOTO TESTIT
>
> TSTPRV: btfsc SWITCH, 0
> GOTO TESTIT
>
> btfss PORTA, 3
> GOTO HALFST
>
> btfsc PORTA, 2
> GOTO ANTI
>
> btfsc COUNT, 1
> GOTO P2
> btfsc COUNT, 2
> GOTO P3
> btfsc COUNT, 3
> GOTO P4
> btfsc COUNT, 4
> GOTO P1
>
> ANTI: btfsc COUNT, 1
> GOTO P4
> btfsc COUNT, 2
> GOTO P1
> btfsc COUNT, 3
> GOTO P2
> btfsc COUNT, 4
> GOTO P3
> GOTO TESTIT
>
> P1: MOVLW %11111010
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNT, 1
> bcf COUNT, 2
> GOTO TESTIT
>
> P2: MOVLW %11110110
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNT, 2
> bcf COUNT, 1
> bcf COUNT, 3
> GOTO TESTIT
>
> P3: MOVLW %11110101
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNT, 3
> bcf COUNT, 2
> bcf COUNT, 4
> GOTO TESTIT
>
> P4: MOVLW %11111001
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNT, 4
> bcf COUNT, 3
> bcf COUNT, 1
> GOTO TESTIT
>
>
>
> HALFST btfsc PORTA,2
> GOTO ANTIH
>
> btfsc COUNTH, 0
> GOTO PH2
> btfsc COUNTH, 1
> GOTO PH3
> btfsc COUNTH, 2
> GOTO PH4
> btfsc COUNTH, 3
> GOTO PH5
> btfsc COUNTH, 4
> GOTO PH6
> btfsc COUNTH, 5
> GOTO PH7
> btfsc COUNTH, 6
> GOTO PH8
> btfsc COUNTH, 7
> GOTO PH1
>
>
>
> ANTIH btfsc COUNTH, 0
> GOTO PH8
> btfsc COUNTH, 1
> GOTO PH1
> btfsc COUNTH, 2
> GOTO PH2
> btfsc COUNTH, 3
> GOTO PH3
> btfsc COUNTH, 4
> GOTO PH4
> btfsc COUNTH, 5
> GOTO PH5
> btfsc COUNTH, 6
> GOTO PH6
> btfsc COUNTH, 7
> GOTO PH7
>
>
> PH1 MOVLW %00001010
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 0
> bcf COUNTH, 7
> bcf COUNTH, 1
> GOTO TESTIT
>
> PH2 MOVLW %00000010
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 1
> bcf COUNTH, 0
> bcf COUNTH, 2
> GOTO TESTIT
>
> PH3 MOVLW %00000110
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 2
> bcf COUNTH, 1
> bcf COUNTH, 3
> GOTO TESTIT
>
> PH4 MOVLW %00000100
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 3
> bcf COUNTH, 2
> bcf COUNTH, 4
> GOTO TESTIT
>
> PH5 MOVLW %00000101
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 4
> bcf COUNTH, 3
> bcf COUNTH, 5
> GOTO TESTIT
>
> PH6 MOVLW %00000001
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 5
> bcf COUNTH, 4
> bcf COUNTH, 6
> GOTO TESTIT
>
> PH7 MOVLW %00001001
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 6
> bcf COUNTH, 5
> bcf COUNTH, 7
> GOTO TESTIT
>
> PH8 MOVLW %00001000
> MOVWF PORTB
> bsf SWITCH, 0
> bsf COUNTH, 7
> bcf COUNTH, 6
> bcf COUNTH, 0
> GOTO TESTIT
>
> .END ;final statement
>
>
>
> Welcome to CAD_CAM_EDM_DRO@...,an unmoderated list for the
discussion of shop built systems, for CAD, CAM, EDM, and DRO.
>
> Addresses:
> Post message: CAD_CAM_EDM_DRO@yahoogroups.com
> Subscribe: CAD_CAM_EDM_DRO-subscribe@yahoogroups.com
> Unsubscribe: CAD_CAM_EDM_DRO-unsubscribe@yahoogroups.com
> List owner: CAD_CAM_EDM_DRO-owner@yahoogroups.com, wanliker@...
> Moderator: jmelson@... timg@... [Moderator]
> URL to this page: http://groups.yahoo.com/group/CAD_CAM_EDM_DRO
> bill,
> List Manager
>
> FAQ: http://www.ktmarketing.com/faq.html
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>