Кодовый замок (помощь)

$NOMOD51
$INCLUDE(REG52.INC)
 
ORG 0
;
LJMP START
;
ORG 100H
;
START:
MOV     P0,#11111111B
MOV     P1,#11111111B
MOV     P2,#11111111B
 
;
ACP:
mov      a,#11111111B
clr      p1.0
mov      c, p1.1
mov      acc.0,c
LJMP    N3
 
;
 
N3:
CJNE    A,#11111110B, END1
mov      r2,#8
;
 
NM10:
CLR      P0.1
lcall   s4it
LCALL   ZAD5
SITB   P0.1
LCALL   ZOD2
DJNZ   R2, nm10
LJMP   nm9
 
END1:
 
LJMP   ACP
 
s4it:
mov      C,   p1.1
rlc      a
ret
nm9:
CJNE   A,#10000000B,   k35
CLR      p0.1
ljmp   nm9
 
k35:
clr      p0.2
ljmp   k35
 
ZAD5:
MOV    TH0, #00010011b ;
MOV    TL0, #10001000b;
MOV    TMOD, #1h ;
MOV    R0, #10
SITB    TCON.4 ;
lcall   again
ret
 
again:
JNB TCON.5, $ ;
CLR TCON.5
DJNZ R0, again
ret
ZOD2:
MOV    TH0, #00010011b ;
MOV    TL0, #10001000b;
MOV    TMOD, #1h ;
mov      R1,   #4
SITB    TCON.4 ;
lcall   again1
ret
again1:
JNB TCON.5, $ ;
CLR TCON.5
DJNZ R1, again1
ret
 
END

.MACRO pihaem0
lsl bufer_knopki1    ;пихаем в С левый бит 1 байта буфера
rol bufer_knopki0   ;пихаем С в правый бит 0 байта буфера
lsr bufer_knopki1   ;сдвигаем 1 байт обратно
 
lsl bufer_knopki2    ;пихаем в С левый бит 2 байта буфера
rol bufer_knopki1    ;пихаем С в правый бит 1 байта буфера
lsr bufer_knopki2    ;сдвигаем 2 байт обратно
 
lsl bufer_knopki3     ;пихаем в С левый бит 3 байта буфера (справа задвинется 0, как мы хотели)
rol bufer_knopki2     ;пихаем С в правый бит 2 байта буфера
.ENDMACRO

lsl bufer_knopki1      ;пихаем в С левый бит 1 байта буфера
;(справа задвинется так нужный нам ноль)
rol bufer_knopki0     ;пихаем С в правый бит 0 байта буфера

ldi r16,1                  ;заносим в регистр r16 единицу
or bufer_knopki1,r16  ;т.к. единица это 00000001, то командой or ставим последний бит
;в единицу, а остальные биты значения не поменяют

ldi r16,10 ;запихиваем в r16(или любой свободный регистр) количество проходов цикла
clr r17 ;обнуляем r17(или любой свободный регистр)
metka:
yms r17 ;увеличиваем счётчик на 1
;...
;делаем что нам надо сделать
;...
cpse r16,r17 ;СРАВНИВАЕТ РЕГИСТРЫ И ЕСЛИ ОНИ РАВНЫ, ПРОПУСКАЕТ СЛЕД. КОМАНДУ
jmp metka    ;иначе переходим на начало цикла
;Т.Е. ПЕРЕХОДИТ СЮДА, ВЫЙДЯ ТАКИМ ОБРАЗОМ ИЗ ЦИКЛА