Файл 02-1007084.mkp (КС 8721/33)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | ИП 7 | F x2 | F √ | ИП 8 | F x2 | F √ | + | ИП 9 | F x2 | F √ |
10 | + | 1 | + | П 1 | /-/ | П 0 | ИП 0 | ИП 1 | + | 2 |
20 | ÷ | П 2 | ИП 7 | + | ИП 2 | × | ИП 8 | + | ИП 2 | × |
30 | ИП 9 | + | F x<0 | 38 | ИП 2 | П 0 | БП | 40 | ИП 2 | П 1 |
40 | ИП 1 | ИП 0 | - | ИП 6 | - | F x<0 | 16 | ИП 1 | ИП 7 | + |
50 | П 4 | ИП 1 | × | ИП 8 | + | П 5 | ИП 4 | 2 | ÷ | /-/ |
60 | П 2 | F x2 | ИП 5 | - | F x<0 | 71 | /-/ | F √ | П 3 | 1 |
70 | С/П | F √ | П A | ИП 2 | + | П 3 | ИП 2 | ИП A | - | П 2 |
80 | 0 | С/П | 0 | 0 |
Файл 02-1007084.mkl
.CHARSET 1251 ; Файл 02-1007084 .ORG 0 RM 7 F X^2 F SQRT RM 8 F X^2 F SQRT + RM 9 F X^2 F SQRT + 1 + M 1 +/- M 0 A16: ; с адреса 45 RM 0 RM 1 + 2 / M 2 RM 7 + RM 2 * RM 8 + RM 2 * RM 9 + F X<0 A38 RM 2 M 0 GOTO A40 A38: ; с адреса 32 RM 2 M 1 A40: ; с адреса 36 RM 1 RM 0 - RM 6 - F X<0 A16 RM 1 RM 7 + M 4 RM 1 * RM 8 + M 5 RM 4 2 / +/- M 2 F X^2 RM 5 - F X<0 A71 +/- F SQRT M 3 1 R/S A71: ; с адреса 64 F SQRT M A RM 2 + M 3 RM 2 RM A - M 2 0 R/S 00 .END