MOV A, R4

ADD A, #8

MOV R4, A

MOV A, R6

AJMP label3 ;берем другое СПС

label4:

CLR C ; очищаем флаг

MOV B, R4

MOV R0, #30h

label:

INC B; следующее В

RLC A ; Циклический сдвиг влево

JNC label2 ; Если во флаге переноса 0, то переходим по метке label2

MOV @R0, B ; Пересылка порядкового номера бита, в котором содержится единичка в Data Space

INC R5 ; Счетчик номеров абонентов

INC R0

label2:

DJNZ R7, label ; Если R7 не равен 0, то переход по метке и уменьшаем R7 на 1

MOV R4, A ; результат

MOV 38h, R5

END

Результат выполнения программы: