Microcomputer Systems MSI-P602 - Page 18

Page 18 MSI-P602 User Manual
getsecondarychar:
IF (INP(secondary + 5) AND 1) = 1 THEN
z = INP(secondary)
IF NMEA = 1 THEN
PRINT CHR$(z);
ELSE
PRINT CHR$(&H30 + z / 16);
PRINT CHR$(&H30 OR (z AND 15));
END IF
END IF
RETURN
setDOutput: ‘set OUT1_BUFFERED (J1) &h55 or &haa
IF z = 1 THEN ‘set OUT1_BUFFERED (J1-1,3) = 0,1
z = INP(primary + 4) ‘get MODEM control register contents
z = z OR 4 ‘set corresponding OUT1 bit in z
z = z AND (NOT 8)
OUT primary + 4, z ‘output to Modem control register
z = INP(secondary + 4) ‘get MODEM control register contents
z = z OR 4 ‘set corresponding OUT1 bit in z
z = z AND (NOT 8)
OUT secondary + 4, z ‘output to Modem control register
ELSEIF z = 0 THEN ‘set OUT1_BUFFERED (J1-1,3) = 1,0
z = INP(primary + 4) ‘get MODEM control register contents
z = z AND NOT 4 ‘reset corresponding OUT1 bit in z
z = z OR 8
OUT primary + 4, z ‘output to Modem control register
z = INP(secondary + 4) ‘get MODEM control register contents
z = z AND NOT 4 ‘reset corresponding OUT1 bit in z
z = z OR 8
OUT secondary + 4, z ‘output to Modem control register
END IF
RETURN
getDInputs: ‘get digital inputs from /CTS & /DSR of UARTS
z = INP(primary + 6) AND &H30 ‘get CTS & DTR of primary UART
z1 = INP(secondary + 6) AND &H30 ‘get CTS & DTR of secondary UART
CLS ‘clear screen
PRINT “”: PRINT “Digital Inputs from J1”: PRINT “”
IF ((z AND &H10) / &H10) > 0 THEN q = 0 ELSE q = 1 ‘invert CTS bit
PRINT “/IN1 (J1-9) = “; q ‘display /IN1
IF ((z AND &H20) / &H20) > 0 THEN q = 0 ELSE q = 1 ‘invert DSR bit
PRINT “/IN2 (J1-11) = “; q ‘display /IN2
IF ((z1 AND &H10) / &H10) > 0 THEN q = 0 ELSE q = 1 ‘invert /CTS bit
PRINT “/IN3 (J1-13) = “; q ‘display /IN3
IF ((z1 AND &H20) / &H20) > 0 THEN q = 0 ELSE q = 1 ‘invert /CTS bit
PRINT “/IN4 (J1-15) = “; q ‘display /IN4
WHILE INKEY$ = “”: WEND ‘delay until keyboard character entry
RETURN