Программа-калькулятор (0802 CD9702 CALL BLNK очистка экрана, 0834 C20A08 JNZ 080A переход если в С не 0), страница 4

0931                                                              01A00B                           LXI B,0B00

0934                                                              AF          XRA                  A     поразрядное исключающее или над А и А (CY=0)

0935                                                              0A          LDAX               B     записать в А данные по адресу в B,C

0936                                                              8E          ADC                  M    сложение с учетом переноса

0937                                                              27          DAA                         двоично-десятичная коррекция

0938                                                              02          STAX                B     сохранение данных из А по адресу в В,С

0939                                                              03          INX                   B     увеличение на 1 адреса в В,С

093A     23                                                    INX        H                        увеличение на 1 адреса в H,L

093B     0A                                                   LDAX   B                        записать в А данные по адресу в B,C

093C     8E                                                   ADC      M                       сложение с учетом переноса

093D     27                                                    DAA                                двоично-десятичная коррекция

093E      02                                                    STAX    B                        сохранение данных из А по адресу в В,С

093F      0B                                                   DCX      B                        уменьшение на 1 адреса в В,С

0940                                                              2B          DCX                  H     уменьшение на 1 адреса в H,L

0941                                                              1B          DCX                  D     уменьшение на 1 данных в D,E                                                                         

0942                                                              C23509 JNZ                   0935              если не 0 то переход

0945                                                              CDA009                          CALL            OUT                    

******************************************************************************************************

DIV:

095B     21000B                                          LXI        H,0B00

095E      01A00B                                         LXI        B,0BA0

0961                                                              C5          PUSH                B     сохранение адреса разности

0962                                                              50          MOV                 D,B

0963                                                              0600      MVI                   B,0  В-счетчик байт

0965                                                              59          MOV                 E,C  (D,E)-адрес уменьшаемого

0966                                                              0E00      MVI                   C,0  С-псевдослагаемое

0968                                                              37          STC                           установка в еденицу признака переноса(СY=1)

0969                                                              3E99      MVI                   A,99H          

096B     89                                                    ADC      C                        сложение с учетом переноса

096C     96                                                    SUB       M                       дополнение вычитаемого

096D     EB                                                   XCHG                              обмен между H- и D-парами регистров(H«D; L«E)

096E      86                                                    ADD      M                       сложение с уменьшаемым

096F      EB                                                   XCHG                              обмен между H- и D-парами регистров(H«D; L«E)