Hserin / out Woes..

[Tabsoft]

Here is another approach that allows you to wait for all of the characters to be entered before testing the password.
It also makes use of arraywrite to enter the Master Password.

 DEFINE OSC 4	'Set oscillator in MHz
    'OSCCON = $60     '4 Megs
    
    DEFINE HSER_RCSTA 90H   'Set receive status and control
    DEFINE HSER_TXSTA 24H   'Set transmit status and control
    DEFINE HSER_BAUD 9615   'Baud Rate

MasterPass var byte[9]
pass var byte[9]
PassTest var bit
    
i var byte
    
'    ADCON1 = 7 ' Turns Analogs off
'    CMCON0 = 7 'Disable both comparators
'    ANSEL = 0  ' Set all analog pins to digital
    
    arraywrite MasterPass,["299792458"]

main:    
    'Test for 299792458
    PassTest = 1
    for i = 0 to 8
        pass[i] = 0
    next i
    
    hserout [":- "] 
    for i = 0 to 8
        hserin 65535, bed, [pass(i)]
        hserout [pass(i)]
    next i
    
    'Check Password with Master
    for i = 0 to 8
        if pass(i) <> MasterPass(i) then PassTest = 0 
    next i

    if PassTest = 1 then correct
    
    hserout [13,10,"NO WAY!!",13,10]
    
    
    goto main


 
correct:

    hserout [13,10,"Correct!",13,10]
    
    goto main

            
bed:
    hserout ["Timeout",13,10]
    
            
 bye:
        goto main

[andybarrett1]

Thanks for the replies.....

Will try then out later.... have been working away!

BR
Andy

[andybarrett1]

hi All...

Have played with my code a little more....

Have come to conclusion that the serial port is seeing 0xFf before I type any password... I found by putting a 232 sniffer on the ports !!!


Ie the password is 9 chars but the first on occasionally is 0xFF ????

any Ideas ? anyone ?

Tomorrow O will go back to Serin / Serout see how that gets on !

Thank you for help !

[Dave]

For reliable communications, I always clear the receive buffer before transmitting a request to any perif. That way if you have some noise on the comm lines, it won't be interpreted as bad data.

[andybarrett1]

For reliable communications, I always clear the receive buffer before transmitting a request to any perif. That way if you have some noise on the comm lines, it won't be interpreted as bad data.

Hi Dave

Sounds good.... But how do I do that ?

I see no pointers in the manual V2.60

THank you for help

[andybarrett1]

MY Defines are now :-

DEFINE HSER_RCSTA 90H 'Set receive status and control
DEFINE HSER_TXSTA 24H 'Set transmit status and control
DEFINE HSER_BAUD 9615 'Baud Rate
DEFINE HSER_CLROERR 1 ' Clear Buffer

[Tabsoft]

Andy,

You can always just use a "HSERIN" bogus statement to throw away anything in the buffer before you execute your regular "HSERIN" statements.
Since the EUSART has a 2 byte buffer you may need to do two of the bogus "HSERIN" statements with timeouts just to make sure you don't get stuck waiting.