NEW
10 RELAY8=0
11 RELAY1=1
12 GOSUB 40
13 RELAY1=0
14 RELAY2=1
15 GOSUB 40
16 RELAY2=0
17 RELAY3=1
18 GOSUB 40
19 RELAY3=0
20 RELAY4=1
21 GOSUB 40
22 RELAY4=0
23 RELAY5=1
24 GOSUB 40
25 RELAY5=0
26 RELAY6=1
27 GOSUB 40
28 RELAY6=0
29 RELAY7=1
30 GOSUB 40
31 RELAY7=0
32 RELAY8=1
33 GOSUB 40
34 GOTO 10
40 LED=1
41 IF DI1=0 45
42 PRINT "1"
43 GOTO 47
45 PRINT "0"
47 PRINT " "
50 IF DI2=0 55
51 PRINT "1"
53 GOTO 57
55 PRINT "0"
57 PRINT " "
60 IF DI3=0 65
61 PRINT "1"
63 GOTO 67
65 PRINT "0"
67 PRINT " "
70 IF INT=0 75
71 PRINT "1"
73 GOTO 77
75 PRINT "0"
77 PRINT " "
80 IF SW1=0 85
81 PRINT "1"
83 GOTO 87
85 PRINT "0"
87 PRINT " "
90 LED=0
100 A=INT
101 PRINT A
102 PRINT 13
103 PRINT 10
105 A=KEY
106 IF A=0 109
107 B=27
108 IF A=B 130
109 DELAY 5
110 RETURN
130 RELAYS=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
-------------------------------
rc51io.tmb
Test/display all I/O on the
RC51. Display format is:
Digital inputs 1-3 status,
interrupt input status,
interrupt input count.
Relays are cycled