org 50h
main:
  mov R5, #0FEh
  mov A, R5
  orl A, #1; Установка нулевого бита => A = FFh
  anl A, #0EFh; Сброс четвёртого бита => A = EFh
  xrl A, #40h; Инвертирование шестого бита => A = AFh
  mov R5, A
end

Bit0 EQU (1 << 0)
Bit4 EQU (1 << 4)
Bit6 EQU (1 << 6)
; *******************************************************
; * bitbang
; * установить нулевой разряд числа в регистре R5 в 1,
; * сбросить четвёртый разряд в 0 и
; * инвертировать шестой разряд
; *******************************************************
bitbang xch A,R5
orl A, Bit0
anl A,~Bit4
xrl A, Bit6
xch A,R5
ret

; эту процедуру можно вызвать примерно так:
mov R5, #0FEh
call bitbang

;indpos–номер включенного катода
;Таблица знакогенератора(без децимальных точек)
digit: db C0h, F9h, A4h, B0h, 99h, 92h, 82h, F8h, 80h, 90h
; Таблица кодов для включения одного из четырех катодов
ipos : db 01h, 02h, 04h, 08h
; Инициализация параллельного интерфейса

display:

mov A, 0FFh
mov P0, A
mov A, @R1
add A, digit
mov A, @A
mov P1, A
mov A, R2
mov P0, A
rl, A
mov R2, A
inc R1

repeat:

mov A, indpos
mov R1, number
add A, R1
mov R1, digit
add R1
mov A, R1
mov R1, ipos
add R1
mov A, 01h
dec D
mov A, D
jnz repeat
mov D, 7
jmp repeat