Файл 46-2250698.mkp (КС 6437/253)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | ИП A | ПП | 73 | ИП B | ПП | 73 | 2 | F 10x | ÷ | + |
10 | П D | ПП | 81 | 6 | F 10x | ÷ | ИП D | + | С/П | B↑ |
20 | 9 | 0 | ↔ | - | F sin | F Bx | F cos | ИП 1 | × | ИП A |
30 | + | П A | F x2 | ↔ | ИП 1 | × | ИП B | + | П B | F x2 |
40 | + | 9 | П 2 | - | F x≥0 | 71 | 3 | П 0 | ИП A | K ИП 2 |
50 | - | F x2 | ИП B | K ИП 2 | - | F x2 | + | F √ | П D | 9 |
60 | - | F x<0 | 68 | F L1 | 66 | K М→Г | ИП D | С/П | F L0 | 48 |
70 | K БП 0 | F π | С/П | F x2 | F √ | 7 | F 10x | + | F Bx | - |
80 | В/О | ИП A | F x<0 | 91 | ИП B | F x<0 | 89 | 3 | В/О | 4 |
90 | В/О | ИП B | F x<0 | 96 | 2 | В/О | 1 | В/О |
Файл 46-2250698.mkl
.CHARSET 1251 ; Файл 46-2250698 .ORG 0 RM A GSB A73 RM B GSB A73 2 F 10^X / + M D GSB A81 6 F 10^X / RM D + R/S ENT 90 <-> - F SIN F ANS F COS RM 1 * RM A + M A F X^2 <-> RM 1 * RM B + M B F X^2 + 9 M 2 - F X>=0 A71 3 M 0 A48: ; с адреса 68 RM A K RM 2 - F X^2 RM B K RM 2 - F X^2 + F SQRT M D 9 - F X<0 A68 F L1 A66 K M->D A66: ; с адреса 63 RM D R/S A68: ; с адреса 61 F L0 A48 K GOTO 0 A71: ; с адреса 44 F PI R/S A73: ; с адреса 1 , 4 F X^2 F SQRT 7 F 10^X + F ANS - RTN A81: ; с адреса 11 RM A F X<0 A91 RM B F X<0 A89 3 RTN A89: ; с адреса 85 4 RTN A91: ; с адреса 82 RM B F X<0 A96 2 RTN A96: ; с адреса 92 1 RTN .END