StBit EQU 00h
Pi     EQU 002Ah
Ch    EQU 005Ch
ORG  00H
mov R2, #StBit
mov R0, #число, с которым сравниваем
Далее не anl PSW а mov PSW, #11100111b
mov A,R0
mov R2,A
mov R0,#5Ch
mov R1,#2Ah
mov R3,0
mov R4,#50
Новая строка mov R7, #8 - счётчик циклов
Start:
Не mov а movx A, @R0
Затем геморройная вставка ввиду того что делать сравнение приходится побитово сложением по модулю два, ибо функция anl не давала нужный результат, так как при сравнении двух нулевых чисел она считает их разными так как 0+0=0 и 0+1=0 и 1+0=0 и только 1+1=1:
mov R6, A
mov A, R2
Cpl A
mov R2, A
mov A, R6
anl A, R2
mov R5, A
mov A, R2
Cpl A
mov R2, A
mov A, R6
Cpl A
anl A, R2
orl A, R5
Cpl A
Cycle:
RRC A
dec R7
jb R7, dal
jb 0D7h, Cycle
Dal:
jz No_save
mov A,@R0
mov @R1,A
inc R1
inc R3
No_save:
inc R0
djnz R4, Start
mov A,R3
End

jmp start
text db 'abcdefgijk'
.....