'------------------------------------------------------------------------------- 'NHD-12232KZ '122x32 Graphic LCD ' '------------------------------------------------------------------------------- Declare Sub Wleft Declare Sub Wright Dim A As Byte Dim Count As Byte Dim Spin As Byte $large Sub Wleft P1 = A Reset P3.2 'CS2=active Reset P3.3 '/WR = Start write Set P3.5 'E Strobe Waitms 1 Reset P3.5 'E Strobe Set P3.3 '/WR = End write Set P3.2 'CS2=inactive End Sub Sub Wright P1 = A Reset P3.6 'CS1=active Reset P3.3 '/WR = Start write Set P3.5 'E Strobe Waitms 1 Set P3.5 'E Strobe Set P3.3 '/WR = End write Set P3.6 'CS1=inactive End Sub Do Reset P1 Reset P3 Waitms 100 Reset P3.1 'A0 = 0 = Command Register Set P3.3 Set P3.2 Set P3.6 A = &HE2 'reset Call Wleft Call Wright Waitms 100 A = &HC0 Call Wleft Call Wright A = &HAF 'display on Call Wleft Call Wright '-------------------logo-------------------------------------------------------- A = &HB8 'page 0 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 'A0 = 1 = Start Data Restore Dta0 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 'A0 = 0 = End Data A = &HB9 'page 1 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta1 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HBA 'page 2 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta2 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HBB 'page 3 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta3 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Wait 2 '-----------------------demo---------------------------------------------------- For Spin = 1 To 100 Reset P3.1 A = &HB8 'page 0 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta4 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HB9 'page 1 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta5 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HBA 'page 2 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta6 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HBB 'page 3 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta7 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Waitms 150 Reset P3.1 A = &HB8 'page 0 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta8 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HB9 'page 1 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta9 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HBA 'page 2 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta10 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Reset P3.1 A = &HBB 'page 3 Call Wleft Call Wright A = &H00 Call Wleft Call Wright Set P3.1 Restore Dta11 For Count = 1 To 61 Read A Call Wleft Next Count For Count = 1 To 61 Read A Call Wright Next Count Waitms 150 Next Spin Loop End Dta0: Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H20 , &H10 , &HF8 , &H00 , &H00 , &H10 , &H08, Data &H88 , &H70 , &H00 , &H10 , &H08 , &H88 , &H70 , &H00 , &H00 , &H00 , &H00 , &H20 , &H40 , &H80 , &H40 , &H20 , &H00 , &H00 , &H00 , &H00, Data &H10 , &H48 , &H48 , &HB0 , &H00 , &H10 , &H08 , &H88 , &H70 , &H00 , &H00 , &H00 , &H00 , &HE0 , &H10 , &H08 , &H88 , &H88 , &HB0 , &H00, Data &HE0, Data &H40 , &H20 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &HF8 , &H40 , &H20 , &HC0 , &H00 , &HE8 , &H00 , &HC0, Data &H20 , &H20 , &H40 , &H00 , &H00 , &H00 , &H00 , &HF8 , &H00 , &H00 , &H00 , &H00 , &HE0 , &H10 , &H08 , &H08 , &H08 , &H30 , &H00 , &HF8, Data &H08 , &H08 , &H10 , &HE0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Dta1: Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H07 , &H00 , &H00 , &H06 , &H05, Data &H04 , &H04 , &H00 , &H06 , &H05 , &H04 , &H04 , &H00 , &H00 , &H00 , &H00 , &H04 , &H02 , &H01 , &H02 , &H04 , &H00 , &H00 , &H00 , &H00, Data &H02 , &H04 , &H04 , &H03 , &H00 , &H06 , &H05 , &H04 , &H04 , &H00 , &H00 , &H00 , &H00 , &H01 , &H02 , &H04 , &H04 , &H04 , &H03 , &H00, Data &H07, Data &H00 , &H00 , &H03 , &H04 , &H04 , &H07 , &H00 , &H1F , &H02 , &H04 , &H03 , &H00 , &H07 , &H00 , &H00 , &H07 , &H00 , &H07 , &H00 , &H03, Data &H04 , &H04 , &H02 , &H00 , &H00 , &H00 , &H00 , &H07 , &H04 , &H04 , &H04 , &H00 , &H01 , &H02 , &H04 , &H04 , &H04 , &H03 , &H00 , &H07, Data &H04 , &H04 , &H02 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Dta2: Data &H00 , &H00 , &H00 , &H00 , &H00 , &HF0 , &HF0 , &HE0 , &H80 , &H00 , &HF0 , &HF0 , &H00 , &H00 , &H80 , &HC0 , &H40 , &HC0 , &H80 , &H00, Data &HC0 , &HC0 , &H00 , &HC0 , &HC0 , &HC0 , &H00 , &HC0 , &HC0 , &H00 , &H00 , &HF0 , &HF0 , &H80 , &HC0 , &H80 , &H00 , &H00 , &H80 , &HC0, Data &H40 , &HC0 , &H80 , &H00 , &H40 , &HC0 , &H80 , &H00 , &H80 , &HC0 , &H40 , &H00 , &H80 , &HC0 , &H40 , &HC0 , &H80 , &H00 , &H00 , &HC0, Data &HC0, Data &H80 , &HC0 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HF0 , &HF0 , &H30 , &H30 , &H30 , &HE0 , &HC0 , &H00 , &H00 , &HD0 , &HD0, Data &H00 , &H00 , &H80 , &HC0 , &H40 , &H40 , &H80 , &H00 , &H00 , &HC0 , &HC0 , &HC0 , &HC0 , &H80 , &H00 , &H00 , &HF0 , &HF0 , &H00 , &H00, Data &H80 , &HC0 , &H40 , &HC0 , &H80 , &H00 , &H40 , &HC0 , &H80 , &H00 , &H80 , &HC0 , &H40 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Dta3: Data &H00 , &H00 , &H00 , &H00 , &H00 , &H0F , &H0F , &H00 , &H01 , &H07 , &H0F , &H0F , &H00 , &H00 , &H07 , &H0F , &H0D , &H0D , &H05 , &H00, Data &H00 , &H07 , &H0F , &H07 , &H00 , &H07 , &H0F , &H07 , &H00 , &H00 , &H00 , &H0F , &H0F , &H00 , &H0F , &H0F , &H00 , &H00 , &H0E , &H0E, Data &H09 , &H0F , &H0F , &H00 , &H00 , &H03 , &H0F , &H0C , &H0F , &H03 , &H00 , &H00 , &H07 , &H0F , &H0D , &H0D , &H05 , &H00 , &H00 , &H0F, Data &H0F, Data &H00 , &H0F , &H0F , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H0F , &H0F , &H0C , &H0C , &H0C , &H07 , &H03 , &H00 , &H00 , &H0F , &H0F, Data &H00 , &H00 , &H05 , &H09 , &H0B , &H0F , &H06 , &H00 , &H00 , &H3F , &H3F , &H0C , &H0F , &H07 , &H00 , &H00 , &H0F , &H0F , &H00 , &H00, Data &H0E , &H0E , &H09 , &H0F , &H0F , &H00 , &H20 , &H23 , &H3F , &H1C , &H0F , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Dta4: Data &H00 , &H30 , &H48 , &H48 , &H48 , &H90 , &H20 , &HF8 , &H20 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &HE8 , &H00 , &HE0 , &H40 , &H20 , &HE0, Data &H00 , &HC0 , &H20 , &HC0 , &H00 , &HE0 , &H00 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &H20 , &HC0 , &H00 , &HC0 , &H20 , &H00 , &H00 , &H00, Data &H00 , &H08 , &H08 , &HF8 , &H08 , &H08 , &H00 , &HC0 , &H20 , &H20 , &HC0 , &H00 , &H00 , &H00 , &H00 , &HF8 , &H40 , &H40 , &H40 , &HF8, Data &H00, Data &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &H60 , &H80 , &H00 , &H80 , &H60 , &H00 , &HC0 , &HA0 , &HA0 , &HC0, Data &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &H00 , &H00 , &H0F , &H7F , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF, Data &HFF , &HFC , &HF8 , &HF8 , &HF8 , &HE8 , &H04 , &H03 , &H00 , &H01 , &H01 , &H01 , &H03 , &H03 , &H03 , &H03 , &H03 , &H83 , &H73 , &H0F, Data &H00, Dta5: Data &H00 , &H03 , &H04 , &H04 , &H04 , &H03 , &H00 , &H07 , &H04 , &H03 , &H04 , &H04 , &H07 , &H00 , &H07 , &H00 , &H07 , &H00 , &H00 , &H03, Data &H04 , &H03 , &H00 , &H03 , &H04 , &H03 , &H00 , &H03 , &H04 , &H04 , &H07 , &H00 , &H00 , &H11 , &H0E , &H01 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H03 , &H04 , &H04 , &H03 , &H00 , &H00 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H07, Data &H00, Data &H03 , &H04 , &H04 , &H02 , &H00 , &H03 , &H04 , &H04 , &H07 , &H00 , &H00 , &H03 , &H04 , &H03 , &H00 , &H00 , &H03 , &H04 , &H04 , &H02, Data &H00 , &H07 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H03 , &H07 , &H0F , &H1F , &H3F , &H3F , &H7F , &H7F , &H7F, Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H80 , &H40 , &H40 , &H40 , &H20 , &H20 , &H10 , &H08 , &H04 , &H02 , &H01 , &H00 , &H00, Data &H00, Dta6: Data &H00 , &HF8 , &H00 , &H00 , &H00 , &H00 , &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &HC0 , &H20 , &H40 , &HF8 , &H00 , &H00 , &H00 , &H00 , &H08, Data &H08 , &HC8 , &H28 , &H18 , &H00 , &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00, Data &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &HF8 , &H00 , &HE8 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H40 , &H20 , &H10 , &H08 , &H04 , &H04 , &H02 , &H02 , &H02, Data &H01 , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFE , &HFE , &HFE , &HFC , &HFC , &HF8 , &HF0 , &HE0 , &HC0 , &H80 , &H00 , &H00, Data &H00, Dta7: Data &H00 , &H07 , &H04 , &H04 , &H04 , &H00 , &H03 , &H04 , &H04 , &H02 , &H00 , &H03 , &H04 , &H02 , &H07 , &H00 , &H00 , &H00 , &H00 , &H06, Data &H05 , &H04 , &H04 , &H04 , &H00 , &H03 , &H04 , &H04 , &H02 , &H00 , &H1F , &H02 , &H04 , &H03 , &H00 , &H1F , &H02 , &H04 , &H03 , &H00, Data &H03 , &H04 , &H04 , &H02 , &H00 , &H07 , &H00 , &H07 , &H00 , &H07 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HF0 , &HCE , &HC1 , &HC0 , &HC0 , &HC0 , &HC0 , &HC0 , &H80 , &H80 , &H80 , &H00, Data &HC0 , &H20 , &H17 , &H1F , &H1F , &H1F , &H3F , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFE , &HF0, Data &H00, Dta8: Data &H00 , &H30 , &H48 , &H48 , &H48 , &H90 , &H20 , &HF8 , &H20 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &HE8 , &H00 , &HE0 , &H40 , &H20 , &HE0, Data &H00 , &HC0 , &H20 , &HC0 , &H00 , &HE0 , &H00 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &H20 , &HC0 , &H00 , &HC0 , &H20 , &H00 , &H00 , &H00, Data &H00 , &H08 , &H08 , &HF8 , &H08 , &H08 , &H00 , &HC0 , &H20 , &H20 , &HC0 , &H00 , &H00 , &H00 , &H00 , &HF8 , &H40 , &H40 , &H40 , &HF8, Data &H00, Data &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &H20 , &HA0 , &HA0 , &HC0 , &H00 , &H60 , &H80 , &H00 , &H80 , &H60 , &H00 , &HC0 , &HA0 , &HA0 , &HC0, Data &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &H00 , &H00 , &H0F , &H77 , &H87 , &H07 , &H07 , &H07 , &H07 , &H07 , &H03 , &H03 , &H03 , &H01, Data &H03 , &H04 , &H08 , &HE8 , &HF8 , &HF8 , &HFC , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H7F , &H0F, Data &H00, Dta9: Data &H00 , &H03 , &H04 , &H04 , &H04 , &H03 , &H00 , &H07 , &H04 , &H03 , &H04 , &H04 , &H07 , &H00 , &H07 , &H00 , &H07 , &H00 , &H00 , &H03, Data &H04 , &H03 , &H00 , &H03 , &H04 , &H03 , &H00 , &H03 , &H04 , &H04 , &H07 , &H00 , &H00 , &H11 , &H0E , &H01 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H03 , &H04 , &H04 , &H03 , &H00 , &H00 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H07, Data &H00, Data &H03 , &H04 , &H04 , &H02 , &H00 , &H03 , &H04 , &H04 , &H07 , &H00 , &H00 , &H03 , &H04 , &H03 , &H00 , &H00 , &H03 , &H04 , &H04 , &H02, Data &H00 , &H07 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H02 , &H04 , &H08 , &H10 , &H20 , &H20 , &H40 , &H40 , &H40, Data &H80 , &H80 , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H7F , &H7F , &H7F , &H3F , &H3F , &H1F , &H0F , &H07 , &H03 , &H01 , &H00 , &H00, Data &H00, Dta10: Data &H00 , &HF8 , &H00 , &H00 , &H00 , &H00 , &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &HC0 , &H20 , &H40 , &HF8 , &H00 , &H00 , &H00 , &H00 , &H08, Data &H08 , &HC8 , &H28 , &H18 , &H00 , &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00, Data &HC0 , &HA0 , &HA0 , &HC0 , &H00 , &HF8 , &H00 , &HE8 , &H00 , &HE0 , &H40 , &H20 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &HC0 , &HE0 , &HF0 , &HF8 , &HFC , &HFC , &HFE , &HFE , &HFE, Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H01 , &H01 , &H02 , &H02 , &H02 , &H04 , &H04 , &H08 , &H10 , &H20 , &H40 , &H80 , &H00 , &H00, Data &H00, Dta11: Data &H00 , &H07 , &H04 , &H04 , &H04 , &H00 , &H03 , &H04 , &H04 , &H02 , &H00 , &H03 , &H04 , &H02 , &H07 , &H00 , &H00 , &H00 , &H00 , &H06, Data &H05 , &H04 , &H04 , &H04 , &H00 , &H03 , &H04 , &H04 , &H02 , &H00 , &H1F , &H02 , &H04 , &H03 , &H00 , &H1F , &H02 , &H04 , &H03 , &H00, Data &H03 , &H04 , &H04 , &H02 , &H00 , &H07 , &H00 , &H07 , &H00 , &H07 , &H00 , &H00 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HF0 , &HFE , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF, Data &HFF , &H3F , &H1F , &H1F , &H17 , &H10 , &H20 , &HC0 , &H80 , &HC0 , &HC0 , &HC0 , &HE0 , &HE0 , &HE0 , &HE0 , &HE0 , &HE1 , &HEE , &HF0, Data &H00,