
Page 13 MSI-P604 User Manual
INPUT “Enter command (between $PMKT and * characters) =
“, gpsmsg$
gpsmsg$ = “$PMTK” + gpsmsg$
GOSUB sendmsg
GOTO begin
CASE “9”
OFFSET = 1
PRIMARY = PRIMARY + &H8000
CLS : PRINT “”
PRINT “UART (U5) Address = “; RIGHT$(HEX$(PRIMARY AND
&HFFFF), 4)
PRINT “”: PRINT “Install jumper JP2: A15 and strike any key to
continue!”
WHILE INKEY$ = “”: WEND
GOSUB init
GOTO begin
CASE “10”
GOSUB displayaddr
GOTO begin
CASE “11”
END
CASE ELSE
GOTO begin
END SELECT
start:
CLS
repeat:
C$ = INKEY$
IF C$ <> “” THEN GOTO begin ‘goto begin on keyboard entry
GOSUB getchar
GOTO repeat
init: ‘init MSI-P604 port of U5
cr$ = CHR$(13)
OUT PRIMARY + 3, &H80
OUT PRIMARY, BAUD
OUT PRIMARY + 1, 0
OUT PRIMARY + 3, 3
x = INP(PRIMARY) ‘dummy read
x = INP(PRIMARY) ‘dummy read
IF PRIMARY = &H3F8 THEN x$ = “COM1”
IF PRIMARY = &H2F8 THEN x$ = “COM2”
IF PRIMARY = &H3E8 THEN x$ = “COM3”
IF PRIMARY = &H2E8 THEN x$ = “COM4”
GOSUB displayaddr
RETURN
Komentarze do niniejszej Instrukcji