Microcomputer Systems MSI-P602 - Page 16

Page 16 MSI-P602 User Manual
GOSUB setDOutput
GOTO begin
CASE “4” ‘set /OUT1_BUFFERED = 1
z = 1
GOSUB setDOutput
GOTO begin
CASE “5” ‘display digital inputs
GOSUB getDInputs
GOTO begin
CASE “6”
primary = COM1: secondary = COM2
GOSUB init ‘Initialize UARTs for new address.
CLS
PRINT “”: PRINT “Intall jumper JP1-13,14.”
PRINT “Primary = COM1 and Secondary = COM2.”
PRINT “”: PRINT “Strike any key to continue.”
WHILE INKEY$ = “”: WEND
GOTO begin
CASE “7”
primary = COM3: secondary = COM4
GOSUB init ‘Initialize UARTs for new address.
CLS
PRINT “”: PRINT “Remove all jumpers from JP1.”
PRINT “Primary = COM3 and Secondary = COM4.”
PRINT “”: PRINT “Strike any key to continue.”
WHILE INKEY$ = “”: WEND
GOTO begin
CASE “8”
OUT primary + 1, 1
OUT secondary + 1, 1
GOTO begin
CASE “9” ‘Set NMEA RMC Protocol
pchar = &H10: GOSUB sendpchar ‘send <DLE>
pchar = &H7A: GOSUB sendpchar ‘send <id>
pchar = &H0: GOSUB sendpchar ‘send <byte0>
pchar = &H1: GOSUB sendpchar ‘send <byte1>
pchar = &H0: GOSUB sendpchar ‘send <byte2>
pchar = &H0: GOSUB sendpchar ‘send <byte3>
pchar = &H1: GOSUB sendpchar ‘send <byte4, set RMC >
pchar = &H0: GOSUB sendpchar ‘send <byte5, sets factory
‘ default>
pchar = &H10: GOSUB sendpchar ‘send <DLE>
pchar = &H3: GOSUB sendpchar ‘send <ETX>
GOTO begin
CASE “10” ‘Set NMEA Factory Default Protocol
pchar = &H10: GOSUB sendpchar ‘send <DLE>
pchar = &H7A: GOSUB sendpchar ‘send <id>
pchar = &H0: GOSUB sendpchar ‘send <byte0>
pchar = &H1: GOSUB sendpchar ‘send <byte1>
pchar = &H0: GOSUB sendpchar ‘send <byte2>
pchar = &H0: GOSUB sendpchar ‘send <byte3>
pchar = &H0: GOSUB sendpchar ‘send <byte4, set RMC >
pchar = &H5: GOSUB sendpchar ‘send <byte5, sets factory
‘ default>