Файл 20-1207291.mkp (КС 8003/67)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | ИП A | ИП B | П C | + | П E | П 0 | ИП B | K {x} | П 2 | F x≠0 |
10 | 31 | ИП A | K {x} | F x≠0 | 29 | ИП 5 | - | F x<0 | 21 | ПП |
20 | 43 | ИП E | 7 | + | П 3 | F π | F 1/x | БП | 35 | ПП |
30 | 43 | ИП C | П 0 | П 3 | ИП A | ИП A | ИП 5 | F ln | × | F ex |
40 | × | БП | 61 | ИП A | П C | ИП B | П A | 1 | П 2 | ИП 5 |
50 | - | П 5 | В/О | ИП C | ИП 0 | - | ÷ | ИП E | ИП 0 | - |
60 | × | F L0 | 53 | K |x| | 0 | ИП A | ИП 3 | + | F 1/x | + |
70 | ИП 5 | × | ИП 3 | ÷ | ИП 3 | ИП C | - | × | F L3 | 65 |
80 | ИП A | F 1/x | + | × | F L2 | 89 | 1 | - | /-/ | С/П |
90 | 0 |
Файл 20-1207291.mkl
.CHARSET 1251 ; Файл 20-1207291 .ORG 0 RM A RM B M C + M E M 0 RM B K FRAC M 2 F X!=0 A31 RM A K FRAC F X!=0 A29 RM 5 - F X<0 A21 GSB A43 A21: ; с адреса 17 RM E 7 + M 3 F PI F 1/X GOTO A35 A29: ; с адреса 13 GSB A43 A31: ; с адреса 9 , 62 RM C M 0 M 3 RM A A35: ; с адреса 27 RM A RM 5 F LN * F EXP * GOTO A61 A43: ; с адреса 19 , 29 RM A M C RM B M A 1 M 2 RM 5 - M 5 RTN A53: ; с адреса 61 RM C RM 0 - / RM E RM 0 - * A61: ; с адреса 41 F L0 A53 K ABS 0 A65: ; с адреса 78 RM A RM 3 + F 1/X + RM 5 * RM 3 / RM 3 RM C - * F L3 A65 RM A F 1/X + * F L2 A89 1 - +/- A89: ; с адреса 84 R/S 0 .END