NEW
1 BAUD2=96
2 LCDCMD=0
3 LCDCMD=12
4 LCDCMD=1
5 RELAY4=0
6 RELAY1=1
7 PRINT2 "1"
8 GOSUB 25
9 RELAY1=0
10 RELAY2=1
11 PRINT2 "2"
12 GOSUB 25
13 RELAY2=0
14 RELAY3=1
15 PRINT2 "3"
16 GOSUB 25
17 RELAY3=0
18 RELAY4=1
19 PRINT2 "4"
20 GOSUB 25
21 GOTO 5
25 LCDCMD=2
26 READAI1
27 BAVOLTS
28 PRINT A
29 PRINT "."
30 PRINT B
31 PRINT C
32 PRINT D
33 PRINT " "
34 LCDPRN A
35 LCDPRN "."
36 LCDPRN B
37 LCDPRN C
38 LCDPRN D
39 LCDPRN " "
40 READAI2
41 BAVOLTS
42 PRINT A
43 PRINT "."
44 PRINT B
45 PRINT C
46 PRINT D
47 PRINT " "
48 LCDPRN A
49 LCDPRN "."
50 LCDPRN B
51 LCDPRN C
52 LCDPRN D
53 LCDPRN " "
60 IF DI1=0 65
61 PRINT "1"
62 LCDPRN "1"
63 GOTO 67
65 PRINT "0"
66 LCDPRN "0"
67 PRINT " "
68 LCDPRN " "
70 IF DI2=0 75
71 PRINT "1"
72 LCDPRN "1"
73 GOTO 77
75 PRINT "0"
76 LCDPRN "0"
77 PRINT " "
78 LCDPRN " "
80 IF DI3=0 85
81 PRINT "1"
82 LCDPRN "1"
83 GOTO 87
85 PRINT "0"
86 LCDPRN "0"
87 PRINT " "
88 LCDPRN " "
90 IF DI4=0 95
91 PRINT "1"
92 LCDPRN "1"
93 GOTO 97
95 PRINT "0"
96 LCDPRN "0"
97 PRINT " "
98 LCDPRN " "
100 A=INT
101 PRINT A
102 PRINT " "
103 LCDPRN A
104 LCDPRN " "
105 A=KEY
106 IF A=0 110
107 B=27
108 IF A=B 130
110 PRINT A
111 PRINT " "
112 LCDPRN A
113 LCDPRN " "
114 A=KEY2
115 PRINT A
116 LCDPRN A
117 PRINT 13
118 PRINT 10
120 DELAY 5
121 RETURN
130 RELAY1=0
131 RELAY2=0
132 RELAY3=0
133 RELAY4=0
this line and the lines below
are comments and can be
removed with a text editor or
the errors caused by trying to
upload them can be ignored
-------------------------------
tc51io.tmb
test/display all I/O on the
TC51, display format is:
analog in 1, analog in 2,
digital inputs 1-4 status,
interrupt input count, last
key received by serial port 2,
relay being turned on is sent
to serial port 2