' TassyJim
' Serial port monitor
' MMMon.bas
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
OPTION EXPLICIT
DIM blist$(11)= ("150","300","600","1200","2400","4800","9600","19200","38400","57600","115200","230400")
DIM brate=8, current, running, col, k$
DIM crlf$=CHR$(13)+CHR$(10)
DIM maxcol = 80

PRINT "Baudrate: "+blist$(brate)
PRINT "Idle..."
col=1
DO
'
IF running = 1 THEN
IF LOC(#1)>0 THEN fetch1
IF LOC(#2)>0 THEN fetch2
ENDIF
k$=INKEY$
IF k$<>"" THEN setup k$
PAUSE 100
LOOP

SUB setup k$
SELECT CASE k$
CASE "U","u", CHR$(128) ' baud rate up
brate=min(brate+1,11)
PRINT "Baudrate: "+blist$(brate)
col=1
CASE "D","d", CHR$(129) ' baud rate down
brate=max(brate-1,0)
PRINT "Baudrate: "+blist$(brate)
col=1
CASE "S","s" ' start capture
IF running=0 THEN
running =1
OPEN "COM1:"+blist$(brate) AS #1
OPEN "COM2:"+blist$(brate) AS #2
PRINT "Capture started at "+blist$(brate)+" baud"
col=1
ENDIF
CASE "X","x" ' stop capture
IF running = 1 THEN
running = 0
current = 0
CLOSE #1
CLOSE #2
COLOUR RGB(white) ' for LCD
PRINT CHR$(27)+"[0m"; ' for Teraterm
PRINT crlf$+"Capture stopped"
ENDIF
CASE "?" ' help
PRINT crlf$
PRINT "U baud rate up"
PRINT "D baud rate down"
PRINT "S start capture"
PRINT "X stop capture"
col=1
CASE ELSE ' unknown command
PRINT crlf$+"? for help "
col=1
END SELECT
END SUB

SUB fetch1
LOCAL txt$, ch$, n
IF current <> 1 THEN
current = 1
COLOUR RGB(red) ' for LCD
PRINT CHR$(27)+"[31m"; 'for Teraterm
ENDIF
txt$=INPUT$(LOC(#1),#1)
FOR n = 1 TO LEN(txt$)
ch$=MID$(txt$,n,1)
IF ASC(ch$) < 32 THEN ch$="\"+RIGHT$("0"+HEX$(ASC(ch$)),2)
IF ASC(ch$) > 127 THEN ch$="\"+RIGHT$("0"+HEX$(ASC(ch$)),2)
col=col+LEN(ch$)
IF col>maxcol THEN
PRINT ""
col=1
ENDIF
PRINT ch$;
NEXT n
END SUB

SUB fetch2
LOCAL txt$, ch$,n
IF current <> 2 THEN
current = 2
COLOUR RGB(blue) ' for LCD
PRINT CHR$(27)+"[34m"; 'for teraterm
ENDIF
txt$=INPUT$(LOC(#2),#2)
FOR n = 1 TO LEN(txt$)
ch$=MID$(txt$,n,1)
IF ASC(ch$) < 32 THEN ch$="\"+RIGHT$("0"+HEX$(ASC(ch$)),2)
IF ASC(ch$) > 127 THEN ch$="\"+RIGHT$("0"+HEX$(ASC(ch$)),2)
col=col+LEN(ch$)
IF col>maxcol THEN
PRINT ""
col=1
ENDIF
PRINT ch$;
NEXT n
END SUB

FUNCTION max(a,b)
'returns the maximum of the two float values
IF a>b THEN
max=a
ELSE
max=b
END IF
END FUNCTION

FUNCTION min(a,b)
'returns the minimum of the two float values
IF a<b THEN
min=a
ELSE
min=b
END IF
END FUNCTION