Comment = Compiled LIB file, no comment included

copyright = MCS Electronics
www       = http://www.mcselec.com
email     = avr@mcselec.com
comment   = LS020 color display driver 256 ColorWideEdition LCD-SIEMENS_S65_LS020_256_W1.LIB
comment   = адаптировал Сергей Черников 2007г.
libversion   = 1.11.8.2
date         = 2006
statement    = No SOURCE code from the library may be distributed in any form
statement    = Of course this does not apply for the COMPILED code when you have a BASCOM-AVR license
history      = No known bugs.
[_GLCD]
$EXTERNAL _MUL8
_Set_Display:
Lcd_init:
*  sbi _glcd_portm,_glcd_RESET
.OBJ E08A
.OBJ 2799
*  Call _Waitms
*  cbi _glcd_portm,_glcd_RESET
*  sbi _glcd_portm,_glcd_CS
*  sbi _glcd_portm,_glcd_scl
*  sbi _glcd_portm,_glcd_sda
*  sbi _glcd_portm,_glcd_RS
.OBJ E081
.OBJ 2799
*  Call _Waitms
*  sbi _glcd_portm,_glcd_RESET
.OBJ E08A
.OBJ 2799
*  Call _Waitms
*  sbi _glcd_portm,_glcd_CS
.OBJ E081
.OBJ 2799
*  Call _Waitms
*  sbi _glcd_portm,_glcd_RS
.OBJ EF8D
 rcall _Gwrite_Cmd
.OBJ EF8D
 rcall _Gwrite_Cmd
.OBJ EF8D
 rcall _Gwrite_Cmd
.OBJ EF8D
 rcall _Gwrite_Cmd
.OBJ E484
.OBJ 2799
*  Call _Waitms
*  ldi r30,low(_lcd_init_data1 * 2)
*  ldi r31,high(_lcd_init_data1 * 2)
.OBJ E114
 call _lcd_init_lp
.OBJ E086
.OBJ 2799
*  Call _Waitms
*  ldi r30,low(_lcd_init_data2 * 2)
*  ldi r31,high(_lcd_init_data2 * 2)
.OBJ E21E
 call _lcd_init_lp
*  cbi _glcd_portm,_glcd_CS
_lcd_init_lp1:
 call _lpmbyte
.OBJ 2D80
 rcall _gwrite_data
.OBJ 951A
 brne _Lcd_init_lp1
.OBJ 9508
_lcd_init_lp:
 call _lpmbyte
.OBJ 2D80
 rcall _gwrite_CMD
.OBJ 951A
 brne _Lcd_init_lp
.OBJ 9508
_lcd_init_data1:
.db &HEF, &H00, &HEE, &H04 , &H1B, &H04, &HFE, &HFE , &HFE, &HFE, &HEF, &H90 , &H4A, &H04 , &H7F, &H1F , &HEE, &H04 , &H43, &H06
_lcd_init_data2:
.DB &HEF, &H90, &H09, &H83, &H08, &H00, &H0B, &HAF, &H0A, &H00, &H05, &H04, &H06, &H00, &H07, &H00, &HEF, &H00, &HEE, &H0C, &HEF, &H90, &H00, &H80, &HEF, &HB0, &H49, &H02, &HEF, &H00, &H7F, &H01, &HE1, &H81, &HE2, &H02, &HE2, &H76, &HE1, &H83, &H80, &H01, &HEF, &H90, &H00, &H00
_lcd_init_data3:
.DB &HEF, &H80, &H18, &H00, &H12, &H83, &H13, &H00, &H15, &Haf, &H16, &H00
_lcd_init_data4:
.DB &HEF, &H80, &H18, &H00, &H12, &H00, &H13, &H83, &H15, &Haf, &H16, &H00
_Gwrite_Data:
* Cbi _glcd_portm, _glcd_cs
* Cbi _glcd_portm, _glcd_rs
_Gwrite_DataMisc:
* Sbi _glcd_portm, _glcd_scl
.OBJ 932F
.OBJ E028
_Gwrite_DataMisc3:
.OBJ 1F88
 brcc  Gwrite_DataMisc1
* Sbi _glcd_portm, _glcd_sda
 Rjmp Gwrite_DataMisc2
Gwrite_DataMisc1:
* Cbi _glcd_portm, _glcd_sda
Gwrite_DataMisc2:
.OBJ 0
.OBJ 0
* Cbi _glcd_portm, _glcd_scl
.OBJ 0
.OBJ 0
* Sbi _glcd_portm, _glcd_scl
.OBJ 0
.OBJ 0
.OBJ 952A
 Brne _Gwrite_DataMisc3
* Sbi _glcd_portm, _glcd_cs
.OBJ 912F
.OBJ 9508
_Gwrite_Cmd:
* Cbi _glcd_portm, _glcd_cs
* Sbi _glcd_portm, _glcd_rs
 Rjmp _Gwrite_DataMisc
_Window:
.OBJ E08A
 rcall _Gwrite_Cmd
.OBJ 9189
 rcall _Gwrite_Cmd
.OBJ E08B
 rcall _Gwrite_Cmd
.OBJ 9189
 rcall _Gwrite_Cmd
.OBJ E088
 rcall _Gwrite_Cmd
.OBJ 9189
 rcall _Gwrite_Cmd
.OBJ E089
 rcall _Gwrite_Cmd
.OBJ 9189
 rjmp _Gwrite_Cmd
[_BOX]
_BOX:
.OBJ 818C
.OBJ 939F
.OBJ E893
.OBJ 1B98
.OBJ 2F89
.OBJ 919F
.OBJ 2F48
.OBJ 938A
.OBJ 818B
.OBJ 939F
.OBJ E893
.OBJ 1B98
.OBJ 2F89
.OBJ 919F
.OBJ 938A
.OBJ 1B48
.OBJ 9543
.OBJ 818B
.OBJ 2F08
.OBJ 938A
.OBJ 818E
.OBJ 938A
.OBJ 1B08
.OBJ 9503
 rcall _window
 call _mul8
_Box_lp:
.OBJ 8188
 rcall _gwrite_data
.OBJ 5041
.OBJ 4050
 brne _box_lp
.OBJ 9625
.OBJ 9508
_Clear_Graph:
_Clear_Text:
.OBJ E080
.OBJ 938A
.OBJ E080
.OBJ 938A
.OBJ E883
.OBJ 938A
.OBJ EA8F
.OBJ 938A
.OBJ E080
.OBJ 938A
 rjmp    _box
 _gwrite_lcdchar:
$EXTERNAL _LPMBYTE, _MUL8
.OBJ 93EF
.OBJ 93FF
* Lds r30 ,{___fonttable}
* Lds r31 ,{___fonttable +1}
*#IF _CHIP=20 or _CHIP=21 OR _CHIP=10 OR _CHIP=41 OR _CHIP=43 OR _CHIP=47 OR _CHIP=48
*  Clr r0
*  lsl R30
*  Rol r31
*  Rol R0
*  Out RAMPZ, R0
*#ENDIF
* Lds r2,{___FGCOLOR}
* Lds r3,{___BGCOLOR}
 call _lpmbyte
.OBJ 2D20
 call _lpmbyte
.OBJ 2D30
 call _lpmbyte
.OBJ 2D00
.OBJ 930A
.OBJ 9631
.OBJ 5280
.OBJ 2F48
 call _mul8
.OBJ FE4
.OBJ 1FF5
.OBJ E008
.OBJ 2F42
 call _mul8
* lds r24,{___lcdrow}
.OBJ 939F
.OBJ E79B
.OBJ 1B98
.OBJ 2F89
.OBJ 919F
.OBJ F48
.OBJ 954A
.OBJ 934A
.OBJ 938A
* lds r24,{___lcdcol}
.OBJ 2F08
.OBJ F03
* sts {___lcdcol},r16
.OBJ F38
.OBJ 953A
.OBJ 933A
.OBJ 938A
 rcall _window
.OBJ 9149
_gwrite_lcdchar1:
 call _lpmbyte
.OBJ E008
kllp:
.OBJ 9406
.OBJ 2D83
 brcc _gwrite_lcdchar2
.OBJ 2D82
_gwrite_lcdchar2:
 rcall _GWrite_data
.OBJ 950A
 brne kllp
.OBJ 954A
 brne _gwrite_lcdchar1
.OBJ 91FF
.OBJ 91EF
.OBJ 9508
[END]
[_GPixel]
$EXTERNAL _DIV8, _MUL8
_Gpixel:
.OBJ 9543
.OBJ 9553
.OBJ 939F
.OBJ 93EF
.OBJ E894
.OBJ 1B94
.OBJ 2FE9
.OBJ 93EA
.OBJ 93EA
.OBJ 91EF
.OBJ 919F
.OBJ 935A
.OBJ 935A
 rcall _window
.OBJ 2F89
 rjmp _gwrite_data
[END]
[_GetByteFromROM_EPROM]
$EXTERNAL _READEEPROM , _LPMBYTE
_GetByteFromROM:
.OBJ 2377
 Breq _GetByteFromROM1
.OBJ 27AA
.OBJ 27BB
 jmp _ReadEEPROM1
_GetByteFromROM1:
 jmp _LpmByte
[END]
[_ShowPicture]
$EXTERNAL _GetByteFromROM_EPROM
_ShowPicture:
.OBJ 2411
.OBJ 2422
.OBJ 2433
.OBJ 9179
.OBJ 9109
.OBJ 9119
 call _GetByteFromROM
.OBJ E00
.OBJ 920A
.OBJ 9503
.OBJ 930A
 call _GetByteFromROM
.OBJ E01
.OBJ 920A
.OBJ 9513
.OBJ 931A
 rcall _window
 call _GetByteFromROM
.OBJ 2D00
 call _GetByteFromROM
.OBJ 2D10
_ShowPicture2:
.OBJ 1413
 brne _ShowPicture8
 call _GetByteFromROM
.OBJ 2C20
.OBJ 2D80
.OBJ 3A8A
 breq _ShowPicture9
 call _GetByteFromROM
.OBJ 2D80
.OBJ 3A8A
 breq _ShowPicture10
.OBJ 9731
* #IF _CHIP = 10  or _CHIP=20 or _CHIP=21  or _CHIP=40
*  brcc _ShowPicture2c
*  In r24, RAMPZ
*  Dec R24
*  Out RAMPZ, R24
_ShowPicture2c:
* #ENDIF
 rjmp _ShowPicture11
_ShowPicture9:
.OBJ 9631
 rjmp _ShowPicture11
_ShowPicture8:
.OBJ 941A
 breq _showpicture2
 rjmp _ShowPicture11
_ShowPicture10:
 call _GetByteFromROM
.OBJ 2D80
.OBJ 2388
 Brne _showpicture15
.OBJ 9732
 Rjmp _showpicture11
_showpicture15:
.OBJ 2C10
_ShowPicture11:
.OBJ 2D82
 rcall _Gwrite_Data
.OBJ 5001
.OBJ 4010
 brne _ShowPicture2
.OBJ 9508
[END]
[_GLINE]
$EXTERNAL _GPIXEL
_gline:
.OBJ 24AA
.OBJ 24BB
.OBJ 24FF
.OBJ 81EC
.OBJ 80EA
.OBJ 1AEE
.OBJ 8FF
.OBJ 81FB
.OBJ 8029
.OBJ 2433
.OBJ 1A2F
.OBJ 833
.OBJ E081
.OBJ 14EA
.OBJ 4FA
 brge _line1
.OBJ EF2F
.OBJ EF3F
.OBJ 94E0
.OBJ 94F0
.OBJ EE8
.OBJ 1CFA
 rjmp _line1a
_line1:
.OBJ E021
.OBJ 2733
_line1a:
.OBJ 142A
.OBJ 43A
 brge _line2
.OBJ EF6F
.OBJ EF7F
.OBJ 9420
.OBJ 9430
.OBJ E28
.OBJ 1C3A
 rjmp _line2a
_line2:
.OBJ E061
.OBJ 2777
_line2a:
 rcall _line10
.OBJ 142E
.OBJ 43F
 brlt _line3
 breq _line3
 rjmp _line4
_line3:
.OBJ 2CCE
.OBJ 2CDF
.OBJ CCC
.OBJ 1CDD
.OBJ 2C02
.OBJ 2C13
.OBJ C00
.OBJ 1C11
_line4a:
.OBJ 819A
.OBJ 17E9
 breq _line4
_line5:
.OBJ FE2
.OBJ CA0
.OBJ 1CB1
.OBJ 14AE
.OBJ 4BF
 brlt _line6
 breq _line6
.OBJ FF6
.OBJ 18AC
.OBJ 8BD
_line6:
 rcall _line10
 rjmp  _line4a
_line4:
.OBJ 2CC2
.OBJ 2CD3
.OBJ CCC
.OBJ 1CDD
.OBJ 2C0E
.OBJ 2C1F
.OBJ C00
.OBJ 1C11
_line9:
.OBJ 8199
.OBJ 17F9
 brne _LINE7
.OBJ 9625
.OBJ 9508
_line7:
.OBJ FF6
.OBJ CA0
.OBJ 1CB1
.OBJ 14A2
.OBJ 4B3
 brlt _line8
 breq _line8
.OBJ FE2
.OBJ 18AC
.OBJ 8BD
_line8:
 rcall _line10
 rjmp _line9
_line10:
.OBJ 2F4E
.OBJ 2F5F
.OBJ 8198
 rjmp _gpixel
.OBJ 9508
[END]
[_BCOS]
$EXTERNAL _LPMBYTE , _MUL8
_bCos:
.OBJ 9541
 breq _bsin9a
_bSin:
.OBJ 2F84
.OBJ 7F80
.OBJ 2F98
.OBJ 9592
*  ldi zl, low(_bsin_table*2)
*  ldi zh, high(_bsin_table*2)
.OBJ FE9
.OBJ 2799
.OBJ 1FF9
 call _LPMByte
.OBJ 2D90
.OBJ 1784
 breq _bsin9
 call _LPMByte
.OBJ 2D00
.OBJ 1B09
.OBJ 1B48
.OBJ 9542
 call _mul8
.OBJ 1F44
.OBJ 1F95
_bsin9:
.OBJ 9508
_bsin9a:
.OBJ EF9F
.OBJ 9508
_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
.OBJ 2722
_circle1:
.OBJ 8138
.OBJ 8149
.OBJ 815A
.OBJ 9533
.OBJ 2EC4
.OBJ 2ED4
.OBJ 2EE5
.OBJ 2EF5
.OBJ 2F42
 rcall _bcos
.OBJ 2F49
.OBJ 2F03
 call _Mul8
.OBJ 1AC5
.OBJ ED5
.OBJ 2F42
 rcall _bsin
.OBJ 2F49
.OBJ 2F03
 call _mul8
.OBJ 1AE5
.OBJ EF5
.OBJ 819B
.OBJ 2D4D
.OBJ 2D5E
 rcall _GPixel
.OBJ 819B
.OBJ 2D4C
.OBJ 2D5E
 rcall _Gpixel
.OBJ 819B
.OBJ 2D4C
.OBJ 2D5F
 rcall _Gpixel
.OBJ 819B
.OBJ 2D5F
.OBJ 2D4D
 rcall _Gpixel
.OBJ 5F2E
.OBJ 3F2E
 brlo _circle1
.OBJ 9624
.OBJ 9508
[END]
