;--------------------------Подпрограмма для работы с TOUCH SCREEN--------------------------------------
               

               clr p2.0          ;CLK
               clr p2.2          ;DIN
               setb p2.3
               clr p2.1          ;включение AD7843
               mov a,#D8h        ;команда для сканирования X-оси
               mov r1,#08h       ;кол-во тактов для передачи команды
sendcmd:       rlc a
               mov p2.2,c        ;передача байта
               nop
               setb p2.0
               nop               ;строб импульс
               clr p2.0          
               djnz r1,sendcmd
              
               nop
               nop
               nop
               
               setb p2.3  
                              
               mov a,#00h
               mov r1,#08h       ;кол-во тактов для приёма данных
rcvbyte:       setb p2.0
               nop
               clr p2.0
               mov c,p2.3
               rlc a
               djnz r1,rcvbyte
               mov 40h,a         ;запись координаты Х в ОЗУ
           

               
;-----------------------------------------------------------------------------------------------------------------------

               ;clr p2.1          ;включение AD7843

               mov a,#98h        ;команда для сканирования Y-оси
               mov r1,#08h       ;кол-во тактов для передачи команды
sendcmdy:      rlc a
               mov p2.2,c         ;передача байта
               nop
               setb p2.0
               nop               ;строб импульс
               clr p2.0
               djnz r1,sendcmdy

               nop
               nop
               nop

               mov a,#00h
               mov r1,#08h       ;кол-во тактов для приёма данных
rcvbytey:      setb p2.0
               nop
               clr p2.0
               mov c,p2.3
               rlc a
               djnz r1,rcvbytey
               mov 42h,a         ;запись координаты Y в ОЗУ



               setb p2.1         ;выключение AD7843