100 '*** 綱取物語・液晶パネルテストプログラム ***
110 DEFINT A-Z
120 D0=&HB0:GOSUB 500
130 BEEP:A$=INPUT$(1)
140 FOR D0=&H150 TO &H1FFF STEP &H3B
150 GOSUB 500
160 A$=INPUT$(1)
170 NEXT
180 STOP
500 '*** データ書き込みルーチン(全キャラクタ) ***
510 FOR I=0 TO 5
520 GOSUB 1000
530 NEXT
540 OUT &H40,0 'Inactive
550 OUT &H46,&HE
560 OUT &H46,&HF
570 RETURN
1000 '*** データ書き込みルーチン(1キャラクタ) ***
1010 DL=D0 MOD 256: DH=D0 \ 256
1020 OUT &H40,DL 'LSB Data Set
1030 OUT &H46,&HE
1040 OUT &H40,DH 'MSB Data Set
1050 OUT &H46,&HF
1060 OUT &H40,DL 'LSB Data Set(Dummy)
1070 OUT &H46,&HE
1080 OUT &H40,DH OR &H40 'MSB Data Set and Write
1090 OUT &H46,&HF
1100 RETURN
|