NEW
------------------------------
SERIAL LCD/MINI TERMINAL
FOR TINY MACHINE BASIC.
THIS PROGRAM WILL NOT WORK IN
ENHANCED TINY MACHINE BASIC!
------------------------------
LCD INITIALIZE
1 GOSUB 200
LCD DISPLAY ON, CURSOR OFF
2 GOSUB 224
READ SWITCHES AND SEND CHARS
10 A=P1
11 BIT 2
12 IF A<>0 20
13 A=P1
14 BIT 2
15 IF A=0 13
16 PRINT "1"
20 A=P1
21 BIT 1
22 IF A<>0 30
23 A=P1
24 BIT 1
25 IF A=0 23
26 PRINT "2"
30 A=P1
31 BIT 0
32 IF A<>0 50
33 A=P1
34 BIT 0
35 IF A=0 33
36 PRINT "3"
CHECK FOR CHARS AT SERIAL PORT
50 A=KEY
51 IF A=0 10
LCD MODE CHANGE SEQUENCES
52 A=A-27
53 IF A<>0 120
ESCAPE RECEIVED, WAIT FOR CHAR
60 A=KEY
61 IF A=0 60
62 A=A-"1"
63 IF A<>0 70
64 GOSUB 220
65 GOTO 10
70 OLDA
71 A=A-"2"
72 IF A<>0 80
73 GOSUB 222
74 GOTO 10
80 OLDA
81 A=A-"3"
82 IF A<>0 90
83 GOSUB 224
84 GOTO 10
90 OLDA
91 A=A-"4"
92 IF A<>0 100
93 GOSUB 226
94 GOTO 10
100 OLDA
101 A=A-"5"
102 IF A<>0 10
103 GOSUB 228
104 GOTO 10
REGULAR CHARACTERS
120 OLDA
121 P1=A
122 P1.3=1
123 P1.2=1
124 P1.1=1
125 P1.0=1
126 P3.7=1
127 P3.7=0
131 BIT 3
132 IF A<>0 135
133 P1.7=0
134 GOTO 140
135 P1.7=1
140 OLDA
141 BIT 2
142 IF A<>0 145
143 P1.6=0
144 GOTO 150
145 P1.6=1
150 OLDA
151 BIT 1
152 IF A<>0 155
153 P1.5=0
154 GOTO 160
155 P1.5=1
160 OLDA
161 BIT 0
162 IF A<>0 165
163 P1.4=0
164 GOTO 170
165 P1.4=1
170 P3.7=1
171 P3.7=0
180 GOTO 10
INITIALIZE PORTS
200 P1=07H
201 P3.7=0
202 DELAY 1
LCD FUNCTION SET, 8 BIT TO 4
203 P1=27H
204 P3.7=1
205 P3.7=0
206 RETURN
LCD CLEAR DISPLAY
220 A=17H
221 GOTO 240
LCD HOME CURSOR
222 A=27H
223 GOTO 240
LCD DISPLAY ON, CURSOR OFF
224 A=C7H
225 GOTO 240
LCD DISP ON, CURS ON, NO BLINK
226 A=E7H
227 GOTO 240
LCD DISP ON, CURS ON, BLINK
228 A=F7H
229 GOTO 240
LCD COMMON DISPLAY AND CURSOR
ENTER WITH CODE IN "A"
240 P1=07H
241 P3.7=1
242 P3.7=0
243 P1=A
244 P3.7=1
245 P3.7=0
246 RETURN
------------------------------
SERIAL LCD/MINI TERMINAL
LCD SIGNAL         T51 SIGNAL
DB7                P1.7
DB6                P1.6
DB5                P1.5
DB4                P1.4
REGISTER SELECT    P1.3
SWITCH 1           P1.2
SWITCH 2           P1.1
SWITCH 3           P1.0
CHIP SELECT        P3.7
------------------------------
THIS PROGRAM WILL NOT WORK IN
ENHANCED TINY MACHINE BASIC!