clr p2.0                  ;CS
            clr p2.1                  ;SK CLOCK
            clr p2.2                  ;DI
            clr p2.3                  ;DO 
            
            mov r1,#10011000b         ;код операции EWEN
            setb p2.0
            mov r3,#08h
            mov a,r1 
            

lp1:		rlc	a		        ;сдвигаем аккум в лево через флаг переноса
		mov	p2.2, c		  ;выводим данные в порт 
		setb p2.1                 ;делаем такт  
            nop
            nop 
            clr p2.1		
		nop
            nop
            djnz	r3,lp1	        ;проверяем счётчик тактов если не 0 то возврат на lp1
            clr p2.0
            nop
            nop
            setb p2.0
          
            
            mov r1,#10010000b         ;код операции ERAL
            mov r3,#08h
            mov a,r1 
         

lp2:		rlc	a		
		mov	p2.2, c		
		setb p2.1
            nop
            nop 
            clr p2.1		
		nop
            nop
            djnz	r3,lp2		
            clr p2.0
            nop
            nop
            setb p2.0
          
            nop
            nop
            nop            
            clr p2.0 
            

st1:        ajmp st1