RS232 serial commands

[mister_e]

Another Variant...

        DEFINE OSC 40      
        DEFINE HSER_RCSTA 90h 
        DEFINE HSER_TXSTA 20h 
        DEFINE HSER_BAUD 9600
        DEFINE HSER_SPBRG 64

        WaitFor     var byte [6]
        CounterA    VAR BYTE
        clear
        PORTD = 0
        TRISD = 0
        Hserout ["Varidrive V2011.00 has started",13,10] 
 
main:   
        GOSUB ClearArray     
        HSEROUT ["Main loop",13,10]   
        HSERIN   1000,Test_bloff,[str waitFor\6]
        
Test_bloff:
        ARRAYREAD  WaitFor,6, Test_blon,[WAIT ("bloff",0)]
        LOW PORTD.4
        HSEROUT ["OFF",13,10]
        goto main
        
Test_blon:
        ARRAYREAD  WaitFor,6, FAIL,[WAIT ("blon",0)]
        HIGH PORTD.4
        HSEROUT ["ON",13,10]
        goto main
        
FAIL:
        HSEROUT ["FAIL!",13,10]
        GOTO main
        
ClearArray:
        FOR CounterA = 0 TO 5
                WaitFor[CounterA]=0
                next
        RETURN

now tell me it's not hard

[Charles Linquis]

Wow! Next time I need some code written, I'll just state what I want to do, and let you guys write it.

[mister_e]

good karma... that is

[pxidr84]

Another Variant...

        DEFINE OSC 40      
        DEFINE HSER_RCSTA 90h 
        DEFINE HSER_TXSTA 20h 
        DEFINE HSER_BAUD 9600
        DEFINE HSER_SPBRG 64

        WaitFor     var byte [6]
        CounterA    VAR BYTE
        clear
        PORTD = 0
        TRISD = 0
        Hserout ["Varidrive V2011.00 has started",13,10] 
 
main:   
        GOSUB ClearArray     
        HSEROUT ["Main loop",13,10]   
        HSERIN   1000,Test_bloff,[str waitFor\6]
        
Test_bloff:
        ARRAYREAD  WaitFor,6, Test_blon,[WAIT ("bloff",0)]
        LOW PORTD.4
        HSEROUT ["OFF",13,10]
        goto main
        
Test_blon:
        ARRAYREAD  WaitFor,6, FAIL,[WAIT ("blon",0)]
        HIGH PORTD.4
        HSEROUT ["ON",13,10]
        goto main
        
FAIL:
        HSEROUT ["FAIL!",13,10]
        GOTO main
        
ClearArray:
        FOR CounterA = 0 TO 5
                WaitFor[CounterA]=0
                next
        RETURN

now tell me it's not hard

Thanks a lot, your code is perfectly understandable.

[mister_e]

... And have a deliberate small mistake in before receiving the bomb-proof approval... but this... i'll let you the pleasure find it

Enjoy!

[Charles Linquis]

Steve.... I put lots of "deliberate" mistakes in my code as well.

[mister_e]

Good grief, nice to know some of them are in Orbit

[Charles Linquis]

Or at least they are supposed to be....