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

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

0971                                                              12          STAX                D     сохранение данных из А по адресу в D,E

0972                                                              13          INX                   D     увеличение на 1 адреса в D,E

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

0974                                                              3E99      MVI                   A,99H          

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

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

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

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

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

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

097C     12                                                    STAX    D                        сохранение данных из А по адресу в D,E

0987                                                              04          INR                    B

097D     1A                                                   LDAX   D                        записать в А данные по адресу в D,E

097E      BE                                                   CMP      M

097F      CA8909                                         JZ           0989                        

0982                                                              DA9709                          JC   0997

0985                                                              1B          DCX                  D     уменьшение на 1 адреса в D,E

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

0988                                                              C36909 JMP                   0969

0989                                                              1B          DCX                  D     уменьшение на 1 адреса в D,E

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

098B     1A                                                   LDAX   D                        записать в А данные по адресу в D,E

098C     BE                                                   CMP      M                      

098D     CA6909                                         JZ           0969

0991                                                              DA9709                          JC   0997

0994                                                              C36909 JMP                   0969                                           

0997                                                              C1          POP                   B

0998                                                              CDA009                          CALL            OUT

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

OUT:

09A0     3A000B                                          LDA      0B00                

09A3     32F50B                                          STA       0BF5

09A6     3A010B                                          LDA      0B01

09A9     32F40B                                          STA       0BF4

09AC     CDE901                                         CALL    DCD

09AF     CDC801                                         CALL    SDS

09B2     C3AF09                                          JMP       09AF