' ****************************************************************
' *                    PIC18F4520 / 20MHz                        *
' *                                                              *
' *  LCD: LM320192                                               *
' *  LCD bekötése: disp_on: portD.0   data0: portD.4             *
' *                      S: portD.1   data0: portD.5             *
' *                    CP1: portD.2   data0: portD.6             *
' *                    CP2: portD.3   data0: portD.7             *
' ****************************************************************


program TLCD
    dim i, j as byte
    dim ki as byte

main:
     ADCON1 = 0x0F         ' set AN pins to Digital I/O
     TRISD = 0             ' D port kimenet
     portd =0              ' D port nullázás
     ki=0x50               ' kiirandó adat
     
     while TRUE
           i=1
           j=1
           portd=1         ' disp_on
           
           for i=1 to 240           ' sorok végigfutása
           
                  for j=1 to 80     ' oszlopok végigfutása 4esével
                      portd=9          ' 0000 1001 vagyis disp_on, CP2_on
                      portd= ki + 1    ' 1000 0001 vagyis disp_on, data_on

                      if (i=1) and (j=80) then portd = 3    ' S_on minden sor végén + disp_on
                      end if
                  next j

                 if ((i=1) and (j=80)) then
                                      portd = 7     ' első sor végén disp_on, S_on, CP1_on
                                      j=0           ' oszlopfutás nullázása
                                 else
                                      portd=  5     ' ha nem az első sor akkor disp_on, CP1_on
                 end if
          next i
     wend
end.