Файл 30-2000070.mkp (КС 11250/54)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | ИП 9 | ИП 8 | - | П 6 | ИП 9 | ИП 8 | ИП 7 | × | ИП 9 | - |
10 | ИП 7 | 1 | - | ÷ | - | 8 | 0 | 0 | ÷ | 2 |
20 | F 1/x | П 0 | + | ИП 4 | × | ИП 5 | ↔ | П 5 | - | 1 |
30 | 0 | × | K [x] | ИП 9 | + | П 9 | ИП 1 | F x≠0 | 65 | ИП 9 |
40 | 5 | ÷ | K {x} | F x≠0 | 52 | F Bx | K [x] | 5 | × | 5 |
50 | + | П 9 | ИП 5 | K [x] | П 5 | F Bx | K {x} | ИП 0 | - | F x≥0 |
60 | 65 | ИП 5 | ИП 0 | + | П 5 | ИП 9 | С/П | БП | 00 | 0 |
Файл 30-2000070.mkl
.CHARSET 1251 ; Файл 30-2000070 .ORG 0 A0: ; с адреса 67 RM 9 RM 8 - M 6 RM 9 RM 8 RM 7 * RM 9 - RM 7 1 - / - 800 / 2 F 1/X M 0 + RM 4 * RM 5 <-> M 5 - 10 * K INT RM 9 + M 9 RM 1 F X!=0 A65 RM 9 5 / K FRAC F X!=0 A52 F ANS K INT 5 * 5 + M 9 A52: ; с адреса 43 RM 5 K INT M 5 F ANS K FRAC RM 0 - F X>=0 A65 RM 5 RM 0 + M 5 A65: ; с адреса 37 , 59 RM 9 R/S GOTO A0 0 .END