A = 0
8122
RAR
C = 0
Занулення прапора перенесення
8125
MOV A, H
H Гћ A
Занесення старшого біта DY в А
8126
SUB 6A8A
A = A - (Loc. (8A6A))
Порівняння зі старшим бітом d
8129
JZ 3281
Якщо Z = 1 то (8132h)
Якщо рівні, то порівняння молодших
812C
CNC 3E81
Якщо C = 0 то (813Eh)
Якщо DY> d, то перехід по прапору переносу
812F
JMP 6A80
Goto 806Ah
Запуск спочатку програми
8132
MOV A, L
L Гћ A
Занесення молодшого біта DY в А
8133
SUB 6B8A
A = A - (Loc. (8A6B))
Порівняння з молодшим бітом d
8136
JZ 3B81
Якщо Z = 1 то (812Fh)
Якщо рівні, то запуск спочатку
8138
CNC 3E81
Якщо C = 0 то (813Eh)
Якщо DY> d, то перехід по прапору переносу
813B
MOV A, B
B Гћ A
Знаковий біт DY
813C
RAR
; C Гћ A 7 ; A 0 Гћ C
C - прапор переносу; зрушення вправо
813F
JNC 4981
Якщо C = 0 то (8149h)
Умовний перехід по прапору переносу; якщо знак +
8143
MOV A, L
H Гћ A
За...
