Viviane,

It looks like it is flashing the LEDs. Its just that the off cycles if
VERY, VERY short. Try a simple modification to your code:

: DOFLASH $FF DDRB C!
        BEGIN $00 PORTB C! 1000 MS $FF PORTB C! 1000 MS AGAIN ;

Have fun!

Noel

On Monday 04 August 2003 02:38 pm, you wrote:
> Hi,
>
> I just started with SwiftX and am trying to write a flashing leds demo.
>
> As I understand it, it should be enough easy to do and yet
> the code I wrote does not exactly what I want; the leds go on but
> they don't flash.
>
> Did some of you write such a demo?
> Then maybe you can tell me what's wrong with
> my code?
>
> \ CODE FOR FLASHING LEDS
>
> : DOFLASH $FF DDRB C! \ Set PORTB for output
>
> BEGIN $00 PORTB C! 1000 MS $FF PORTB C! AGAIN ;
>
>
>
> Thanks in advance,
> Viviane Beullens
> ----------------------------------------------------------------------
> swiftx_at_forth.com The SwiftX programming discussion email list
> To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
> For list command help, send subject "help" to swiftx-request_at_forth.com
> Message archives are located at http://www.forth.com/archive/swiftx
> ----------------------------------------------------------------------
> This list is a forum for SwiftX users. For product support and bug
> reports, please send email to support_at_forth.com
> ----------------------------------------------------------------------

----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Mon Aug 04 2003 - 15:01:02 PDT