rc5120io.tmb
Test/display all I/O on the
RC5120 while cycling relays
and flashing programmable LED.
Stop if Escape received.
Display format is:
SW1 status,
interrupt input status,
interrupt input count.
-------------------------------
NEW
10 RELAY1=1
11 GOSUB 100
12 RELAY1=0
13 DELAY 1
14 RELAY2=1
15 GOSUB 100
16 RELAY2=0
17 DELAY 1
18 RELAY3=1
19 GOSUB 100
20 RELAY3=0
21 DELAY 1
22 RELAY4=1
23 GOSUB 100
24 RELAY4=0
25 DELAY 1
26 RELAY5=1
27 GOSUB 100
28 RELAY5=0
29 DELAY 1
30 RELAY6=1
31 GOSUB 100
32 RELAY6=0
33 DELAY 1
34 RELAY7=1
35 GOSUB 100
36 RELAY7=0
37 DELAY 1
38 RELAY8=1
39 GOSUB 100
40 RELAY8=0
41 DELAY 1
42 RELAY9=1
43 GOSUB 100
44 RELAY9=0
45 DELAY 1
46 RELAY10=1
47 GOSUB 100
48 RELAY10=0
49 DELAY 1
50 RELAY11=1
51 GOSUB 100
52 RELAY11=0
53 DELAY 1
54 RELAY12=1
55 GOSUB 100
56 RELAY12=0
57 DELAY 1
58 RELAY13=1
59 GOSUB 100
60 RELAY13=0
61 DELAY 1
62 RELAY14=1
63 GOSUB 100
64 RELAY14=0
65 DELAY 1
66 RELAY15=1
67 GOSUB 100
68 RELAY15=0
69 DELAY 1
70 RELAY16=1
71 GOSUB 100
72 RELAY16=0
73 DELAY 1
74 RELAY17=1
75 GOSUB 100
76 RELAY17=0
77 DELAY 1
78 RELAY18=1
79 GOSUB 100
80 RELAY18=0
81 DELAY 1
82 RELAY19=1
83 GOSUB 100
84 RELAY19=0
85 DELAY 1
86 RELAY20=1
87 GOSUB 100
88 RELAY20=0
89 DELAY 1
90 GOTO 10
---
100 LED=1
101 IF SW1=0 104
102 PRINT "1"
103 GOTO 105
104 PRINT "0"
105 PRINT " "
106 IF INT=0 109
107 PRINT "1"
108 GOTO 110
109 PRINT "0"
110 PRINT " "
111 LED=0
112 A=INT
113 PRINT A
114 PRINT 13
115 PRINT 10
116 A=KEY
117 IF A=0 120
118 B=27
119 IF A=B 122
120 DELAY 3
121 RETURN
122 RELAYS1=0
123 RELAYS2=0
124 RELAYS3=0