Файл 52-2018298.mkp (КС 5975/91)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | 5 | F √ | П 5 | 1 | + | 2 | ÷ | П 6 | 1 |
10 | - | П 3 | ИП 7 | 3 | 0 | - | F x<0 | 53 | ИП 7 | ИП 6 |
20 | F xy | П 8 | ИП 7 | ИП 3 | F xy | П 9 | ИП 7 | 2 | ÷ | K {x} |
30 | F x=0 | 37 | ИП 8 | ИП 9 | - | БП | 40 | ИП 8 | ИП 9 | + |
40 | ИП 5 | ÷ | K [x] | 1 | + | П 4 | С/П | ИП 7 | 1 | + |
50 | П 7 | БП | 12 | ИП 7 | 2 | ÷ | K [x] | П 1 | 1 | - |
60 | ПП | 89 | П 9 | ИП 7 | ИП 1 | - | П 2 | ПП | 89 | ИП 9 |
70 | × | П 9 | ИП 1 | ПП | 89 | П 8 | ИП 2 | 1 | + | ПП |
80 | 89 | ИП 8 | × | ИП 9 | + | 5 | ÷ | БП | 45 | ИП 6 |
90 | F xy | K [x] | 1 | + | В/О | 0 | 0 | 0 |
Файл 52-2018298.mkl
.CHARSET 1251 ; Файл 52-2018298 .ORG 0 CX 5 F SQRT M 5 1 + 2 / M 6 1 - M 3 A12: ; с адреса 51 RM 7 30 - F X<0 A53 RM 7 RM 6 F X^Y M 8 RM 7 RM 3 F X^Y M 9 RM 7 2 / K FRAC F X=0 A37 RM 8 RM 9 - GOTO A40 A37: ; с адреса 30 RM 8 RM 9 + A40: ; с адреса 35 RM 5 / K INT 1 + A45: ; с адреса 87 M 4 R/S RM 7 1 + M 7 GOTO A12 A53: ; с адреса 16 RM 7 2 / K INT M 1 1 - GSB A89 M 9 RM 7 RM 1 - M 2 A67: ; с адреса 17 GSB A89 RM 9 * M 9 RM 1 GSB A89 M 8 RM 2 1 + GSB A89 RM 8 * RM 9 + 5 / GOTO A45 A89: ; с адреса 60 , 67 , 73 , 79 RM 6 F X^Y K INT 1 + RTN 000 .END