• ichigojam

バンク0

10 'AQM0802A LCD DRIVE CAA45040
20 '0X00,0X38 FUNCTION SET
30 '0X00,0X39 FUNCTION SET
40 '0X00,0X04 ENTRY MODE SET
50 '0X00,0X14 INTERNAL OSC FRE
60 '0X00,0X73 CONTRAST SET
70 '0X00,0X5E POW/ICON/CONTRAST
80 '0X00,0X6C FOLLOWER CONTROL
100 '0X00,0X38 FUNCTION SET
110 '0X00,0X0C DISPLAY ON/OFF
120 '0X00,0X01 CLEAR DISPLAY
130 '0X80,0X00 SET CURSOR 0,0
140 '0X40,'O','N' "ON"
150 '0X80,0X40 SET CURSOR 0,1
160 '0X40,'L','C','D' "LCD"
200 'ON LCD
210 POKE #700,#0,#38,#0,#39,#0,#04,#0,#14,#0,#70,#0,#56,#0,#6C,#0,#38,#0,#C,#0,#1
220 FOR I = 0 TO 9
230 ?"#700+";:?I*2;:?".";:?HEX$(PEEK(#700+I*2));:?".";:?HEX$(PEEK(#701+I*2))
240 R=I2CW(#3E,#700+I*2,2)
250 NEXT
260 ?"INT":WAIT 120:?"ON LCD"
270 R=I2CW(#3E,"@ON LCD",7)
280 ?"LRUN 1":WAIT 120
290 LRUN 1

save 0

バンク1

10 'AQM0802A STTS751 ONDO
20 'READ TMP
30 POKE #700,0
40 R=I2CR(#39,#700,1,#701,1)
50 T=PEEK(#701):?T
60 'WRITE TMP
70 POKE #700,0,1
80 R=I2CW(#3E,#700,2)
90 POKE #700,ASC("@"),48+T/10,48+T%10
100 R=I2CW(#3E,#700,3)
110 WAIT 30
120 GOTO 30

save 1

Pagetop