9zip.ru Инструкции Подключение дисплея от Siemens A65 в Bascom

В телефонах Siemens моделей A65, A75, M55, S55, A60, C60, MC60 (наверное, и в некоторых других) имеются хорошие цветные дисплеи с разрешением 101*80 пикселей. Их можно подключить к микроконтроллеру по одностороннему SPI.

Дисплеи имеют три разовидности, с разными контроллерами.

• дисплей LPH8731 с контроллером S1D15G14, имеет смещение на 1 пиксель по вертикали
• дисплей WD-X1008J на неизвестном контроллере, но командно совместимом с S1D15G14
• дисплей LM15SGFNZ07 на контроллере HM17CM4101, совместимом с HM17CM4096

Для дисплеев LPH8731 и WD-X1008J написана библиотека glcd-siemens-a65.lib для Bascom.
Для LM15SGFNZ07 - библиотека glcd-siemens-m55.lib для Bascom.

Существует также модель протеуса для LPH8731 и WD-X1008J, в которой не поддерживаются изменение контрастности и 12-битный цвет.

glcd-siemens-a65.lib
Comment = copyright = Mrshilov www = email = comment = Siemens-A65 (S1D15G14) display driver libversion = date = February 2014 statement = statement = history = [_GLCD] $EXTERNAL _MUL8 ,_BOX,_BOXFILL _Set_Display: _Lcd_init: _Init_lcd: *BASIC: Dim _contrast_temp As Byte *#IF varexist("_GLCD_PORT_RST") * cbi _GLCD_PORT_RST,_glcd_rst ldi r24,$32 clr r25 ; wait 50ms * Call _Waitms * sbi _GLCD_PORT_RST,_glcd_rst #endif ldi r24,$01 ; Soft reset rcall _Gwrite_Cmd ldi r24,$28 clr r25 ; wait 40ms * Call _Waitms ldi r24,$C6 ; Initial Escape rcall _Gwrite_Cmd ldi r24,$28 clr r25 ; wait 40ms * Call _Waitms ldi r24,$B9 ; Refresh set rcall _Gwrite_Cmd ldi r24,0 rcall _gwrite_data ldi r24,$B6 ; Display control rcall _gwrite_cmd ldi r24,$80 rcall _gwrite_data ldi r24,$04 rcall _gwrite_data ldi r24,$0A rcall _gwrite_data ldi r24,$54 rcall _gwrite_data ldi r24,$45 rcall _gwrite_data ldi r24,$52 rcall _gwrite_data ldi r24,$43 rcall _gwrite_data ldi r24,$B3 ; Gray scale rcall _gwrite_cmd * ldi r30,low(_lcd_gray_data * 2) * ldi r31,high(_lcd_gray_data * 2) *#IF _ROMSIZE>65536 *call _SET_RAMPZ *#ENDIF ldi r17,16 ; 16 bytes to write _lcd_init_lp0: call _lpmbyte mov r24,r0 rcall _gwrite_data dec r17 brne _lcd_init_lp0 ldi r24,$B5 ; Gamma curve rcall _gwrite_cmd ldi r24,$01 rcall _gwrite_data ldi r24,$BD ; Common driver output select rcall _gwrite_cmd ldi r24,$00 rcall _gwrite_data ldi r24,$BE ; Power control rcall _gwrite_cmd ldi r24,$54 rcall _gwrite_data ldi r24,$BA ; Voltage control rcall _gwrite_cmd ldi r24,$2F rcall _gwrite_data ldi r24,$03 ; Common driver output select rcall _gwrite_data ldi r24,$25 ; Contrast rcall _gwrite_cmd ldi r24,$60 rcall _gwrite_data ldi r24,$B7 ; Temperature gradient rcall _gwrite_cmd clr r24 ldi r17,14 ; 14 bytes to write _Lcd_temp_lp: rcall _gwrite_data dec r17 brne _Lcd_temp_lp ldi r24,$03 ; Booster voltage ON rcall _gwrite_cmd ldi r24,$28 clr r25 ; wait 40ms * Call _Waitms ldi r24,$36 ; RAM access direction command rcall _gwrite_cmd ldi r24,&H48 rcall _gwrite_data ldi r24,$2D ; Color set command rcall _gwrite_cmd * ldi r30,low(_lcd_init_data * 2) * ldi r31,high(_lcd_init_data * 2) *#IF _ROMSIZE>65536 *call _SET_RAMPZ *#ENDIF ldi r17,$14 ; 20 bytes to write _lcd_init_lp: call _lpmbyte mov r24,r0 rcall _gwrite_data dec r17 brne _Lcd_init_lp ldi r24,$3A ; Color depth rcall _gwrite_cmd ldi r24,$02 rcall _gwrite_data ;ldi r24,$21 ; Inversion ; rcall _gwrite_cmd ldi r24,100 clr r25 ; wait 40ms * Call _Waitms ldi r24,$11 ; Sleep mode Out rcall _gwrite_cmd ldi r24,$78 clr r25 ; wait 120ms * Call _Waitms ldi r24,$29 ; Display ON rcall _gwrite_cmd ret _lcd_gray_data: .db &H02, &H0A, &H15, &H1F, &H28, &H30, &H37, &H3F, &H47, &H4C, &H54, &H5C, &H65, &H75, &H80, &H85 _lcd_init_data: .db &H00 , &H03 , &H05 , &H07 , &H09 , &H0B , &H0D , &H0F , &H00 , &H03 , &H05 , &H07 , &H09 , &H0B , &H0D , &H0F , &H00 , &H05 , &H0B , &H0F ;================================== _Gwrite_Data: *#IF varexist("_GLCD_PORT_CS1") * Cbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=0 #endif * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 * Sbi _glcd_port_a0,_GLCD_a0 ; RS = 1 _Gwrite_DataMisc: push r18 ldi r18,$08 _Gwrite_DataMisc3: rol r24 brcc Gwrite_DataMisc1 * Sbi _glcd_port_si,_GLCD_si ; bit = 1 Rjmp Gwrite_DataMisc2 Gwrite_DataMisc1: * Cbi _glcd_port_si,_GLCD_si ; bit = 0 Gwrite_DataMisc2: @genus(1) * Sbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=1 @genus(1) * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 dec r18 Brne _Gwrite_DataMisc3 *#IF varexist("_GLCD_PORT_CS1") * Sbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=1 #endif pop r18 ret ;================================== _Gwrite_Cmd: _LCD_CONTROL: cpi r24,$26 brne _no_contrast *BASIC: _contrast_temp = 1 ret _no_contrast: *#IF varexist("_GLCD_PORT_CS1") * Cbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=0 #endif * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 * cbi _glcd_port_a0,_GLCD_a0 ; RS = 0 Rjmp _Gwrite_DataMisc ;================================== _Window: ldi r24,$2A rcall _gwrite_cmd ld r24,y+ ;X start rcall _gwrite_data ld r24,y+ ;X end rcall _gwrite_data ldi r24,$2B rcall _gwrite_cmd ld r24,y+ ;Y start rcall _gwrite_data ld r24,y+ ;Y end rcall _gwrite_data ldi r24,$2C rjmp _gwrite_cmd ;================================== _Clear_Graph: _Clear_Text: clr r24 st -y,r24 st -y,r24 ldi r24,101 ; X? st -y,r24 ldi r24,80 ; Y? st -y,r24 ser r24 st -y,r24 Rjmp _BOXFILL ;================================== _gwrite_lcdchar: $EXTERNAL _LPMBYTE, _MUL8 lds r18,{_contrast_temp} cpi r18,1 brne _end_contrast push r24 ldi r24,$25 ; Contrast rcall _gwrite_cmd pop r24 rcall _gwrite_data *BASIC: _contrast_temp = 0 ret _end_contrast: push r30 push r31 *#IF _ROMSIZE>65536 * In R1, RAMPZ push r1 *#ENDIF * Lds r30 ,{___fonttable} * Lds r31 ,{___fonttable +1} *#IF _ROMSIZE>65536 * Lds r0,{___fonttable +2} ; load page number for the used font * Out RAMPZ, R0 *#ENDIF * Lds r2,{___FGCOLOR} * Lds r3,{___BGCOLOR} call _lpmbyte mov r18,r0 call _lpmbyte mov r19,r0 call _lpmbyte mov r16,r0 st -y,r16 adiw r30,$01 subi r24,$20 mov r20,r24 call _mul8 add r30,r20 adc r31,r21 *#IF _ROMSIZE>65536 rcall _glcd_rampcheck_inc *#ENDIF ldi r16,$08 mov r20,r18 call _mul8 * lds r24,{___lcdrow} #if lcd_type=0 inc r24 ;!!!!!!!!!!!!!!!!!!! #endif add r20,r24 dec r20 st -y,r20 st -y,r24 * lds r24,{___lcdcol} mov r16,r24 add r16,r19 * sts {___lcdcol},r16 add r19,r24 dec r19; !!!!!!!!!!!!!!!!! st -y,r19 st -y,r24 rcall _window ; Position SEND ld r20,y+ _gwrite_lcdchar1: call _lpmbyte ldi r16,$08 kllp: lsr r0 mov r24,r3 brcc _gwrite_lcdchar2 mov r24,r2 _gwrite_lcdchar2: rcall _GWrite_data ; Data SEND dec r16 brne kllp dec r20 brne _gwrite_lcdchar1 *#IF _ROMSIZE>65536 pop r1 * Out RAMPZ,R1 *#ENDIF pop r31 pop r30 ret #IF _ROMSIZE>65536 _glcd_rampcheck_inc: Brcc _glcd_rampcheck_inc1 In R2,RAMPZ inc r2 Out RAMPZ,R2 _glcd_rampcheck_inc1: ret _glcd_rampcheck_dec: Brcc _glcd_rampcheck_dec1 In R2,RAMPZ dec r2 Out RAMPZ,R2 _glcd_rampcheck_dec1: ret #ENDIF [END] ;============================================= [_GPixel] $EXTERNAL _DIV8, _MUL8 _Gpixel: #if lcd_type=0 inc r21 ;!!!!!!!!!!!!!!!!!! #endif st -y,r21 st -y,r21 st -y,r20 st -y,r20 rcall _window mov r24,r25 rjmp _gwrite_data [END] ;============================================== [_GetByteFromROM_EPROM] $EXTERNAL _READEEPROM , _LPMBYTE _GetByteFromROM: tst r23 Breq _GetByteFromROM1 clr r26 clr r27 jmp _ReadEEPROM1 _GetByteFromROM1: jmp _LpmByte [END] ;============================================== [_ShowPicture] $EXTERNAL _GetByteFromROM_EPROM _ShowPicture: clr r1 clr r2 clr r3 ld r23,y+ ; ROM=0 EEPROM=1 ld r16,y+ ; Y shift ld r17,y+ ; X shift call _GetByteFromROM ; Height of picture add r0,r16 ; Y end *** st -y,r0 #if lcd_type=0 inc r16 ; !!!!!!!!!!!!!!!!!!!!!! #endif st -y,r16 ; Y start *** call _GetByteFromROM ; Width of picture add r0,r17 ; X end *** dec r0 st -y,r0 st -y,r17 ; X start *** rcall _window ; Set window call _GetByteFromROM mov r16,r0 call _GetByteFromROM mov r17,r0 _ShowPicture2: cp r1,r3 brne _ShowPicture8 call _GetByteFromROM mov r2,r0 mov r24,r0 cpi r24,$AA breq _ShowPicture9 call _GetByteFromROM mov r24,r0 cpi r24,$AA breq _ShowPicture10 sbiw r30,$01 *#IF _ROMSIZE>65536 * brcc _ShowPicture2c * In r24, RAMPZ * Dec R24 * Out RAMPZ, R24 _ShowPicture2c: *#ENDIF rjmp _ShowPicture11 _ShowPicture9: adiw r30,$01 rjmp _ShowPicture11 _ShowPicture8: dec r1 breq _showpicture2 rjmp _ShowPicture11 _ShowPicture10: call _GetByteFromROM mov r24,r0 tst r24 Brne _showpicture15 sbiw r30,$02 #IF _ROMSIZE>65536 brcc _ShowPicture10c * In r24, RAMPZ dec r24 * Out RAMPZ, R24 _ShowPicture10c: #ENDIF Rjmp _showpicture11 _showpicture15: mov r1,r0 _ShowPicture11: mov r24,r2 rcall _Gwrite_Data ; Data Send subi r16,$01 sbci r17,$00 brne _ShowPicture2 ret [END] ;========================================= [_GLINE] $EXTERNAL _GPIXEL _gline: clr r10 clr r11 clr r15 ld r30,y+4 ld r14,y+2 sub r14,r30 sbc r15,r15 ld r31,y+3 ld r2,y+1 clr r3 sub r2,r31 sbc r3,r3 ldi r24,$01 cp r14,r10 cpc r15,r10 brge _line1 ser r18 ser r19 com r14 com r15 add r14,r24 adc r15,r10 rjmp _line1a _line1: ldi r18,$01 clr r19 _line1a: cp r2,r10 cpc r3,r10 brge _line2 ser r22 ser r23 com r2 com r3 add r2,r24 adc r3,r10 rjmp _line2a _line2: ldi r22,$01 clr r23 _line2a: rcall _line10 cp r2,r14 cpc r3,r15 brlt _line3 breq _line3 rjmp _line4 _line3: mov r12,r14 mov r13,r15 lsl r12 rol r13 mov r0,r2 mov r1,r3 lsl r0 rol r1 _line4a: ld r25,y+2 cp r30,r25 breq _line4 _line5: add r30,r18 add r10,r0 adc r11,r1 cp r10,r14 cpc r11,r15 brlt _line6 breq _line6 add r31,r22 sub r10,r12 sbc r11,r13 _line6: rcall _line10 rjmp _line4a _line4: mov r12,r2 mov r13,r3 lsl r12 rol r13 mov r0,r14 mov r1,r15 lsl r0 rol r1 _line9: ld r25,y+1 cp r31,r25 brne _LINE7 adiw r28,$05 ret _line7: add r31,r22 add r10,r0 adc r11,r1 cp r10,r2 cpc r11,r3 brlt _line8 breq _line8 add r30,r18 sub r10,r12 sbc r11,r13 _line8: rcall _line10 rjmp _line9 _line10: mov r20,r30 mov r21,r31 ld r25,y rjmp _gpixel ; Send [END] ;========================================= [_BCOS] $EXTERNAL _LPMBYTE , _MUL8 _bCos: neg r20 breq _bsin9a _bSin: mov r24,r20 andi r24,$F0 mov r25,r24 swap r25 * ldi zl, low(_bsin_table*2) * ldi zh, high(_bsin_table*2) add r30,r25 clr r25 adc r31,r25 call _LPMByte mov r25,r0 cp r24,r20 breq _bsin9 call _LPMByte mov r16,r0 sub r16,r25 sub r20,r24 swap r20 call _mul8 rol r20 adc r25,r21 _bsin9: ret _bsin9a: ser r25 ret _bsin_table: .db 0 , 25 , 50 , 74 , 98 , 120 , 142 , 162 , 180 , 197 , 212 , 225 , 236 , 244 , 250 , 254 , 255 [END] ;===================================================== [_Circle] _Circle: $EXTERNAL _BCOS , _MUL8 ,_GPIXEL clr r18 _circle1: ld r19,y ld r20,y+1 ld r21,y+2 inc r19 mov r12,r20 mov r13,r20 mov r14,r21 mov r15,r21 mov r20,r18 rcall _bcos mov r20,r25 mov r16,r19 call _Mul8 sub r12,r21 add r13,r21 mov r20,r18 rcall _bsin mov r20,r25 mov r16,r19 call _mul8 sub r14,r21 add r15,r21 ld r25,y+3 mov r20,r13 mov r21,r14 rcall _GPixel ; SEND ld r25,y+3 mov r20,r12 mov r21,r14 rcall _Gpixel ; SEND ld r25,y+3 mov r20,r12 mov r21,r15 rcall _Gpixel ; SEND ld r25,y+3 mov r21,r15 mov r20,r13 rcall _Gpixel ; SEND subi r18,$FE cpi r18,$FE brlo _circle1 adiw r28,$04 ret [END] ;============================================ [_BOXFILL] ;will make a box and fill the content ; color y+0 ; y2 y+1 ; x2 y+2 ; y1 y+3 ; x1 y+4 _BOXFILL: clr r23 ld r25,y+0 ; load color ld r20,y+1 ; R20=y2 #if lcd_type=0 inc r20 ;!!!!!!!!!!!!!!!!!!! #endif ld r19,y+2 ; R19=x2 ld r18,y+3 ; R18=y1 #if lcd_type=0 inc r18 ;!!!!!!!!!!!!!!!!!!! #endif ld r21,y+4 ; R21=x1 st -y,r20 ;Y2 st -y,r18 ;Y1 st -y,r19 ;X2 st -y,r21 ;X1 rcall _window inc r19 inc r20 _vertical_loop: mov r22,r21 _line_loop: mov r24,r25 rcall _GWrite_data ; Show MSB pixel inc r22 cp r22,r19 brne _line_loop inc r18 cp r18,r20 brne _vertical_loop adiw r28,5 ;correct Z-pointer ret [END] ;================================================== [_BOX] ; color y+0 ; y2 y+1 ; x2 y+2 ; y1 y+3 ; x1 y+4 $EXTERNAL _GLINE _BOX: ld r17,y+0 ;color box ld r19,y+2 ;x2 box ld r20,y+3 ;y1 box ld r21,y+4 ;x1 box st -y,r21 ;save x0 line st -y,r20 ;save y0 line st -y,r19 ;save x1 line st -y,r20 ;save y st -y,r17 ;save color call _GLine ld r17,y+0 ; color box ld r18,y+1 ; y2 box ld r19,y+2 ; x2 box ld r21,y+4 ; x1 box st -y,r21 ;save x0 line st -y,r18 ; save Y0 line st -y,r19 ; save x1 st -y,r18 ; save y st -y,r17 ; save color call _GLine ld r17,y+0 ;color box ld r18,y+1 ;y2 box ld r20,y+3 ;y1 box ld r21,y+4 ;x1 box st -y,r21 ;save x0 line st -y,r20 ;save y0 line st -y,r21 ;save x1 line st -y,r18 ;save y st -y,r17 ;save color call _GLine ld r17,y+ ;color ld r18,y+ ;y2 ld r19,y+ ;x2 ld r20,y+ ;y1 ld r22,y+ ; to restore Y stack st -y,r19 ;x0 st -y,r20 ;y0 st -y,r19 ;x1 st -y,r18 ;y st -y,r17 ;color jmp _Gline ; adiw r28,$05 ret [END]

glcd-siemens-m55.lib
Comment = copyright = Mrshilov www = email = comment = Siemens-M55 - LM15SGFNZ07 display driver libversion = date = April 2014 statement = statement = history = [_GLCD] $EXTERNAL _MUL8 ,_BOX,_BOXFILL _Set_Display: _Lcd_init: _Init_lcd: *BASIC: Dim _contrast_temp As Byte * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 *#IF varexist("_GLCD_PORT_RST") * cbi _GLCD_PORT_RST,_glcd_rst ldi r24,$0A clr r25 ; wait 10ms * Call _Waitms * sbi _GLCD_PORT_RST,_glcd_rst ldi r24,$0A clr r25 ; wait 10ms * Call _Waitms #endif * Sbi _glcd_port_a0,_GLCD_a0 ; RS = 1 *#IF varexist("_GLCD_PORT_CS1") * Cbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=0 #endif * ldi r30,low(_lcd_init1 * 2) * ldi r31,high(_lcd_init1 * 2) *#IF _ROMSIZE>65536 *call _SET_RAMPZ *#ENDIF ldi r17,139 ; 139 bytes to write _lcd_init_lp1: call _lpmbyte mov r24,r0 rcall _gwrite_cmd dec r17 brne _lcd_init_lp1 ldi r24,$01 clr r25 ; wait 1ms * Call _Waitms *#IF varexist("_GLCD_PORT_CS1") * Sbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=1 ldi r24,$01 clr r25 ; wait 1ms * Call _Waitms * Cbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=0 #endif * ldi r30,low(_lcd_init2 * 2) * ldi r31,high(_lcd_init2 * 2) *#IF _ROMSIZE>65536 *call _SET_RAMPZ *#ENDIF ldi r17,15 ; 15 bytes to write _lcd_init_lp2: call _lpmbyte mov r24,r0 rcall _gwrite_cmd dec r17 brne _lcd_init_lp2 *#IF varexist("_GLCD_PORT_CS1") * Sbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=1 #endif * Cbi _glcd_port_a0,_GLCD_a0 ; RS = 0 ret _lcd_init1: .db &HF4,&H90, &HB3, &HA0, &HD0, &HF0, &HE2, &HD4, &H70, &H66, &HB2, &HBA, &HA1, &HA3, &HAB, &H94, &H95, &H95, &H95, &HF5, &H90, &HF1, &H00, &H10, &H22, &H30, &H45, &H50, &H68, &H70, &H8A, &H90, &HAC, &HB0, &HCE, &HD0, &HF2, &H0F, &H10, &H20, &H30, &H43, &H50, &H66, &H70, &H89, &H90, &HAB, &HB0, &HCD, &HD0, &HF3, &H0E, &H10, &H2F, &H30, &H40, &H50, &H64, &H70, &H87, &H90, &HAA, &HB0, &HCB, &HD0, &HF4, &H0D, &H10, &H2E, &H30, &H4F, &H50, &HF5, &H91, &HF1, &H01, &H11, &H22, &H31, &H43, &H51, &H64, &H71, &H86, &H91, &HA8, &HB1, &HCB, &HD1, &HF2, &H0F, &H11, &H21, &H31, &H42, &H51, &H63, &H71, &H85, &H91, &HA6, &HB1, &HC8, &HD1, &HF3, &H0B, &H11, &H2F, &H31, &H41, &H51, &H62, &H71, &H83, &H91, &HA4, &HB1, &HC6, &HD1, &HF4, &H08, &H11, &H2B, &H31, &H4F, &H51, &H8C, &H94, &HF5, &HA2, &HF4, &H60, &HF0, &H40, &H50, &HC0, &HF4, &H70 _lcd_init2: .db &HF0, &H81, &HF4, &HB1, &HA8, &HF0, &H06, &H10, &H20, &H30, &HF5, &H0F, &H1C, &H2F, &H34 ;================================== _Gwrite_Data: *#IF varexist("_GLCD_PORT_CS1") * Cbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=0 #endif * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 * Cbi _glcd_port_a0,_GLCD_a0 ; RS = 0 *** Data _Gwrite_DataMisc: push r18 ldi r18,$08 _Gwrite_DataMisc3: rol r24 brcc Gwrite_DataMisc1 * Sbi _glcd_port_si,_GLCD_si ; bit = 1 Rjmp Gwrite_DataMisc2 Gwrite_DataMisc1: * Cbi _glcd_port_si,_GLCD_si ; bit = 0 Gwrite_DataMisc2: @genus(1) * Sbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=1 @genus(1) * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 dec r18 Brne _Gwrite_DataMisc3 *#IF varexist("_GLCD_PORT_CS1") * Sbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=1 #endif pop r18 ret ;================================== _LCD_CONTROL: cpi r24,$26 brne _Gwrite_Cmd ;_no_contrast *BASIC: _contrast_temp = 1 ret ;_no_contrast: _Gwrite_Cmd: *#IF varexist("_GLCD_PORT_CS1") * Cbi _GLCD_PORT_CS1,_glcd_cs1 ; CS=0 #endif * Cbi _GLCD_PORT_SCL,_glcd_scl ; SCLK=0 * Sbi _glcd_port_a0,_GLCD_a0 ; RS = 1 *** Command Rjmp _Gwrite_DataMisc ;================================== _Window: push r25 ldi r24,$F0 rcall _gwrite_cmd ld r24,y+ ;X-start ldi r25,3 add r24,r25 ;X+3 push r24 andi r24,$0F ;lower nibble X-start rcall _gwrite_cmd pop r24 swap r24 andi r24,$0F ;upper nibble X-start sbr r24,$10 rcall _gwrite_cmd ld r24,y+ ;Y-start push r24 andi r24,$0F ;lower nibble Y-start sbr r24,$20 rcall _gwrite_cmd pop r24 swap r24 andi r24,$0F ;upper nibble Y-start sbr r24,$30 rcall _gwrite_cmd ldi r24,$F5 rcall _gwrite_cmd ld r24,y+ ;X-end ldi r25,3 add r24,r25 ;X+4 push r24 andi r24,$0F ;lower nibble X-end rcall _gwrite_cmd pop r24 swap r24 andi r24,$0F ;upper nibble X-end sbr r24,$10 rcall _gwrite_cmd ld r24,y+ ;Y-end push r24 andi r24,$0F ;lower nibble Y-end sbr r24,$20 rcall _gwrite_cmd pop r24 swap r24 andi r24,$0F ;upper nibble Y-end sbr r24,$30 rcall _gwrite_cmd pop r25 ret ;================================== _Clear_Graph: _Clear_Text: clr r24 st -y,r24 st -y,r24 ldi r24,102 ; X st -y,r24 ldi r24,80 ; Y st -y,r24 ser r24 st -y,r24 Rjmp _BOXFILL ;================================== _gwrite_lcdchar: $EXTERNAL _LPMBYTE, _MUL8 lds r18,{_contrast_temp} cpi r18,1 brne _end_contrast push r24 ldi r24,$F4 ; Contrast rcall _gwrite_cmd pop r24 push r24 swap r24 andi r24,$0F ;lower nibble Contrast sbr r24,$B0 rcall _gwrite_cmd pop r24 andi r24,$0F ;upper nibble Contrast sbr r24,$A0 rcall _gwrite_cmd *BASIC: _contrast_temp = 0 ret _end_contrast: push r30 push r31 *#IF _ROMSIZE>65536 * In R1, RAMPZ push r1 *#ENDIF * Lds r30 ,{___fonttable} * Lds r31 ,{___fonttable +1} *#IF _ROMSIZE>65536 * Lds r0,{___fonttable +2} ; load page number for the used font * Out RAMPZ, R0 *#ENDIF * Lds r2,{___FGCOLOR} * Lds r3,{___BGCOLOR} call _lpmbyte mov r18,r0 call _lpmbyte mov r19,r0 call _lpmbyte mov r16,r0 st -y,r16 adiw r30,$01 subi r24,$20 mov r20,r24 call _mul8 add r30,r20 adc r31,r21 *#IF _ROMSIZE>65536 rcall _glcd_rampcheck_inc *#ENDIF ldi r16,$08 mov r20,r18 call _mul8 * lds r24,{___lcdrow} mov r25,r24 ;#if lcd_type=0 ; inc r24 ;!!!!!!!!!!!!!!!!!!! ;#endif add r20,r24 dec r20 st -y,r20 * lds r24,{___lcdcol} mov r16,r24 add r16,r19 * sts {___lcdcol},r16 add r19,r24 dec r19; !!!!!!!!!!!!!!!!! st -y,r19 st -y,r25 st -y,r24 rcall _window ; Position SEND ld r20,y+ _gwrite_lcdchar1: call _lpmbyte ldi r16,$08 kllp: lsr r0 mov r24,r3 brcc _gwrite_lcdchar2 mov r24,r2 _gwrite_lcdchar2: rcall _GWrite_data ; Data SEND dec r16 brne kllp dec r20 brne _gwrite_lcdchar1 *#IF _ROMSIZE>65536 pop r1 * Out RAMPZ,R1 *#ENDIF pop r31 pop r30 ret #IF _ROMSIZE>65536 _glcd_rampcheck_inc: Brcc _glcd_rampcheck_inc1 In R2,RAMPZ inc r2 Out RAMPZ,R2 _glcd_rampcheck_inc1: ret _glcd_rampcheck_dec: Brcc _glcd_rampcheck_dec1 In R2,RAMPZ dec r2 Out RAMPZ,R2 _glcd_rampcheck_dec1: ret #ENDIF [END] ;============================================= [_GPixel] $EXTERNAL _DIV8, _MUL8 _Gpixel: ;#if lcd_type=0 ; inc r21 ;!!!!!!!!!!!!!!!!!! ;#endif st -y,r20 st -y,r21 st -y,r21 st -y,r20 rcall _window mov r24,r25 rjmp _gwrite_data [END] ;============================================== [_GetByteFromROM_EPROM] $EXTERNAL _READEEPROM , _LPMBYTE _GetByteFromROM: tst r23 Breq _GetByteFromROM1 clr r26 clr r27 jmp _ReadEEPROM1 _GetByteFromROM1: jmp _LpmByte [END] ;============================================== [_ShowPicture] $EXTERNAL _GetByteFromROM_EPROM _ShowPicture: clr r1 clr r2 clr r3 ld r23,y+ ; ROM=0 EEPROM=1 ld r16,y+ ; Y shift ld r17,y+ ; X shift call _GetByteFromROM ; Height of picture add r0,r16 ; Y end *** st -y,r0 ;#if lcd_type=0 ; inc r16 ; !!!!!!!!!!!!!!!!!!!!!! ;#endif call _GetByteFromROM ; Width of picture add r0,r17 ; X end *** dec r0 st -y,r0 st -y,r16 ; Y start *** st -y,r17 ; X start *** rcall _window ; Set window call _GetByteFromROM mov r16,r0 call _GetByteFromROM mov r17,r0 _ShowPicture2: cp r1,r3 brne _ShowPicture8 call _GetByteFromROM mov r2,r0 mov r24,r0 cpi r24,$AA breq _ShowPicture9 call _GetByteFromROM mov r24,r0 cpi r24,$AA breq _ShowPicture10 sbiw r30,$01 *#IF _ROMSIZE>65536 * brcc _ShowPicture2c * In r24, RAMPZ * Dec R24 * Out RAMPZ, R24 _ShowPicture2c: *#ENDIF rjmp _ShowPicture11 _ShowPicture9: adiw r30,$01 rjmp _ShowPicture11 _ShowPicture8: dec r1 breq _showpicture2 rjmp _ShowPicture11 _ShowPicture10: call _GetByteFromROM mov r24,r0 tst r24 Brne _showpicture15 sbiw r30,$02 #IF _ROMSIZE>65536 brcc _ShowPicture10c * In r24, RAMPZ dec r24 * Out RAMPZ, R24 _ShowPicture10c: #ENDIF Rjmp _showpicture11 _showpicture15: mov r1,r0 _ShowPicture11: mov r24,r2 rcall _Gwrite_Data ; Data Send subi r16,$01 sbci r17,$00 brne _ShowPicture2 ret [END] ;========================================= [_GLINE] $EXTERNAL _GPIXEL _gline: clr r10 clr r11 clr r15 ld r30,y+4 ld r14,y+2 sub r14,r30 sbc r15,r15 ld r31,y+3 ld r2,y+1 clr r3 sub r2,r31 sbc r3,r3 ldi r24,$01 cp r14,r10 cpc r15,r10 brge _line1 ser r18 ser r19 com r14 com r15 add r14,r24 adc r15,r10 rjmp _line1a _line1: ldi r18,$01 clr r19 _line1a: cp r2,r10 cpc r3,r10 brge _line2 ser r22 ser r23 com r2 com r3 add r2,r24 adc r3,r10 rjmp _line2a _line2: ldi r22,$01 clr r23 _line2a: rcall _line10 cp r2,r14 cpc r3,r15 brlt _line3 breq _line3 rjmp _line4 _line3: mov r12,r14 mov r13,r15 lsl r12 rol r13 mov r0,r2 mov r1,r3 lsl r0 rol r1 _line4a: ld r25,y+2 cp r30,r25 breq _line4 _line5: add r30,r18 add r10,r0 adc r11,r1 cp r10,r14 cpc r11,r15 brlt _line6 breq _line6 add r31,r22 sub r10,r12 sbc r11,r13 _line6: rcall _line10 rjmp _line4a _line4: mov r12,r2 mov r13,r3 lsl r12 rol r13 mov r0,r14 mov r1,r15 lsl r0 rol r1 _line9: ld r25,y+1 cp r31,r25 brne _LINE7 adiw r28,$05 ret _line7: add r31,r22 add r10,r0 adc r11,r1 cp r10,r2 cpc r11,r3 brlt _line8 breq _line8 add r30,r18 sub r10,r12 sbc r11,r13 _line8: rcall _line10 rjmp _line9 _line10: mov r20,r30 mov r21,r31 ld r25,y rjmp _gpixel ; Send [END] ;========================================= [_BCOS] $EXTERNAL _LPMBYTE , _MUL8 _bCos: neg r20 breq _bsin9a _bSin: mov r24,r20 andi r24,$F0 mov r25,r24 swap r25 * ldi zl, low(_bsin_table*2) * ldi zh, high(_bsin_table*2) add r30,r25 clr r25 adc r31,r25 call _LPMByte mov r25,r0 cp r24,r20 breq _bsin9 call _LPMByte mov r16,r0 sub r16,r25 sub r20,r24 swap r20 call _mul8 rol r20 adc r25,r21 _bsin9: ret _bsin9a: ser r25 ret _bsin_table: .db 0 , 25 , 50 , 74 , 98 , 120 , 142 , 162 , 180 , 197 , 212 , 225 , 236 , 244 , 250 , 254 , 255 [END] ;===================================================== [_Circle] _Circle: $EXTERNAL _BCOS , _MUL8 ,_GPIXEL clr r18 _circle1: ld r19,y ld r20,y+1 ld r21,y+2 inc r19 mov r12,r20 mov r13,r20 mov r14,r21 mov r15,r21 mov r20,r18 rcall _bcos mov r20,r25 mov r16,r19 call _Mul8 sub r12,r21 add r13,r21 mov r20,r18 rcall _bsin mov r20,r25 mov r16,r19 call _mul8 sub r14,r21 add r15,r21 ld r25,y+3 mov r20,r13 mov r21,r14 rcall _GPixel ; SEND ld r25,y+3 mov r20,r12 mov r21,r14 rcall _Gpixel ; SEND ld r25,y+3 mov r20,r12 mov r21,r15 rcall _Gpixel ; SEND ld r25,y+3 mov r21,r15 mov r20,r13 rcall _Gpixel ; SEND subi r18,$FE cpi r18,$FE brlo _circle1 adiw r28,$04 ret [END] ;============================================ [_BOXFILL] ;will make a box and fill the content ; color y+0 ; y2 y+1 ; x2 y+2 ; y1 y+3 ; x1 y+4 _BOXFILL: clr r23 ld r25,y+0 ; load color ld r20,y+1 ; R20=y2 ;#if lcd_type=0 ; inc r20 ;!!!!!!!!!!!!!!!!!!! ;#endif ld r19,y+2 ; R19=x2 ld r18,y+3 ; R18=y1 ;#if lcd_type=0 ; inc r18 ;!!!!!!!!!!!!!!!!!!! ;#endif ld r21,y+4 ; R21=x1 ; st -y,r20 ;Y2 ; st -y,r18 ;Y1 ; st -y,r19 ;X2 ; st -y,r21 ;X1 st -y,r20 ;Y2 st -y,r19 ;X2 st -y,r18 ;Y1 st -y,r21 ;X1 rcall _window inc r19 inc r20 _vertical_loop: mov r22,r21 _line_loop: mov r24,r25 rcall _GWrite_data ; Show MSB pixel inc r22 cp r22,r19 brne _line_loop inc r18 cp r18,r20 brne _vertical_loop adiw r28,5 ;correct Z-pointer ret [END] ;================================================== [_BOX] ; color y+0 ; y2 y+1 ; x2 y+2 ; y1 y+3 ; x1 y+4 $EXTERNAL _GLINE _BOX: ld r17,y+0 ;color box ld r19,y+2 ;x2 box ld r20,y+3 ;y1 box ld r21,y+4 ;x1 box st -y,r21 ;save x0 line st -y,r20 ;save y0 line st -y,r19 ;save x1 line st -y,r20 ;save y st -y,r17 ;save color call _GLine ld r17,y+0 ; color box ld r18,y+1 ; y2 box ld r19,y+2 ; x2 box ld r21,y+4 ; x1 box st -y,r21 ;save x0 line st -y,r18 ; save Y0 line st -y,r19 ; save x1 st -y,r18 ; save y st -y,r17 ; save color call _GLine ld r17,y+0 ;color box ld r18,y+1 ;y2 box ld r20,y+3 ;y1 box ld r21,y+4 ;x1 box st -y,r21 ;save x0 line st -y,r20 ;save y0 line st -y,r21 ;save x1 line st -y,r18 ;save y st -y,r17 ;save color call _GLine ld r17,y+ ;color ld r18,y+ ;y2 ld r19,y+ ;x2 ld r20,y+ ;y1 ld r22,y+ ; to restore Y stack st -y,r19 ;x0 st -y,r20 ;y0 st -y,r19 ;x1 st -y,r18 ;y st -y,r17 ;color jmp _Gline ; adiw r28,$05 ret [END]

Скачать библиотеки:

glcd-siemens-a65.lib
glcd-siemens-m55.lib

---

Коротко об аппаратной части. Сам дисплей требует питания 3,3 вольта и соответствующих уровней. Подсветка питается отдельно.

В подобных случаях можно применить преобразователь уровней с Aliexpress, но питание 3,3 вольта всё равно придётся как-то сформировать. В этом плане оказалось проще применить простейший резистивный делитель и стабилизатор на резисторе и стабилитроне мощностью 0,5 Вт, а подсветку запитать от 5 вольт через резисторы.

Понравилась статья? Мойдодыр говорит: поделись с друзьями!