Запустил LS020 привожу свой топорный код инициализация + заполнение экрана
Код:
$regfile = "m8def.dat" $crystal = 8000000 Dim A As Byte Dim R As Byte , G As Byte , I As Byte Config Portd.4 = Output , Portd.5 = Output Config Spi = Soft , Din = Pind.0 , Dout = Portd.1 , Ss = Portd.2 , Clock = Portd.3 Spiinit Portd.5 = 0 Waitms 200 Portd.5 = 1 Portd.4 = 1 Restore Init Read A For I = 1 To 4 Spiout A , 1 Next I For I = 1 To 78 Read A Waitus 700 Spiout A , 1 Next I R = &HFF 'переход в режим передачи данных Portd.4 = 0 'заполнение экрана пикселями после шума For I = 1 To 176 For G = 1 To 132 'задержка для более видимого заполнения экрана Waitms 1 Spiout R , 1 Next G Next I End Init: Data &HFD , &HEF , &H00 , &HEE , &H04 , &H1B , &H04 , &HFE , &HFE , &HFE , &HFE Data &HEF , &H90 , &H4A , &H04 , &H7F , &H3F , &HEE , &H04 , &H43 , &H06 , &HEF Data &H90 , &H09 , &H83 , &H08 , &H00 , &H0B , &HAF , &H0A , &H00 , &H05 , &H00 Data &H06 , &H00 , &H07 , &H00 , &HEF , &H00 , &HEE , &H0C , &HEF , &H90 , &H00 Data &H80 , &HEF , &HB0 , &H49 , &H02 , &HEF , &H00 , &H7F , &H01 , &HE1 , &H81 Data &HE2 , &H02 , &HE2 , &H76 , &HE1 , &H83 , &H80 , &H01 , &HEF , &H90 , &H00 Data &H00 , &HE8 , &H00 , &H05 , &H04 , &H0A , &H00 , &H0B , &HAF , &H08 , &H00 Data &H09 , &H83
Отредактировано thorus (2013-01-16 01:52:39)
Прежде чем писать, следовало бы проверить.
см. пост 139
