Code Operated Matrix Switch
16
The tests are performed at 9600 bps, no parity, and
1 stop bit. The serial-port test will return a “*” for
every section that passes the test, and a “FAILED”
message otherwise. To perform a proper serial-port
test, you must tie together Pins 2 and 3 for the data
portion, Pins 20, 5, and 22 for the DTR/CTS/RI
portion, and Pins 4 and 8 for the RTS/DCD portion
for each port you wish to test.
DIP SWITCH TEST (MAIN BOARD) HIT ANY KEY TO GO
TO NEXT TEST
SWITCHES ARE DISPLAYED IN BINARY (0 = OFF, 1 =
ON)
SWG
SWF
SWE
SWD
SWC
SWB
SWA
00000010
00100000
1000010110000101
10000101 10000100 10000100
EXPANSION BOARD IS INSTALLED
DIP SWITCH TEST (EXPANSION BOARD) HIT ANY KEY
TO
GO TO NEXT TEST
SWITCHES ARE DISPLAYED IN BINARY (0 = OFF, 1 =
ON)
SWK
SWJ
SWI
SWH
11111101 11101101
11110101
11100101
SERIAL PORT TEST (EXPANSION BOARD IS
INSTALLED)
PORT#
DATA
DTR/CTS/RI
RTS/DCD
PORT 0
*
FAILED
FAILED
PORT 1
FAILED
FAILED
FAILED
PORT 2
FAILED
FAILED
FAILED
PORT 3
FAILED
FAILED
FAILED
PORT 4
FAILED
FAILED
FAILED
PORT 5
FAILED
FAILED
FAILED
PORT 6
FAILED
FAILED
FAILED
PORT 7
FAILED
FAILED
FAILED
PORT 8
FAILED
FAILED
FAILED
SERIAL PORT TEST FAILED
INTERRUPT TEST IN PROGRESS
A
INTERRUPT TEST PASSED
RAM TEST 64K RAM IS GOOD
LED TEST IN PROGRESS, ALL LEDS SHOULD TURN ON
AND OFF. PRESS ANY KEY TO EXIT
5.2 Sample Test Program
Here is a sample test program written in BASIC for the Code Operated Matrix Switch. When run, this
program will output a test message on each port. To run this program, connect the PC to Port 0. REM
statements (“Remarks”) are optional, and the attention character is the default
@
.
100REM**CODE OPERATED MATRIX SWITCH TEST**
110OPEN "COM1:9600,N,8,1,CS,DS"AS1
:REM** SET UP COM 1 PC PORT**
120P=49
:REM** SET PORT # TO 1 (DECIMAL 49)**
130PRINT #1,CHR$(64);
:REM** SEND ATTENTION CHAR (@) **
140PRINT #1,"L0";
:REM** SEND LINK COMMAND**
150PRINT #1,CHR$(P)
:REM** SEND PORT # OUT COM 1**
160T=P-48
:REM** CONVERT DEC. TO ACTUAL PORT #**
170PRINT #1,"THIS IS A TEST OF PORT #"T
:REM** SENDS MESSAGE OUT COM 1**
180FOR I=1 TO 250
:REM** DELAY**
190NEXT I
:REM** LOOP**
200PRINT #1,CHR$(64);
:REM** SEND ATTENTION CHAR (@)**
210PRINT #1,"U0";
:REM** SEND UNLINK COMMAND**
220PRINT #1,CHR$(P)
:REM** SEND PORT # OUT COM 1**
230P=P+1
:REM** INCREMENT PORT #**
240FOR I=1 TO 250
:REM** DELAY**
250NEXT I
:REM** LOOP**
260IF P=57 THEN GOTO 120 ELSE GOTO 130
:REM** LOOPBACK FOR NEXT PORT**
