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