Файл 40-2145670.mkp (КС 12600/178)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | П A | 4 | 5 | П B | 5 | П 0 | 1 | П 1 | 9 | П 2 |
10 | + | П 3 | П E | ПП | 55 | П 9 | ПП | 55 | ИП C | K ИП 3 |
20 | - | F x≠0 | 49 | F L1 | 18 | ИП C | K П 2 | ИП E | П 3 | ИП 2 |
30 | - | П 1 | П D | F L0 | 16 | С/П | ИП 9 | С/П | ИП 8 | С/П |
40 | ИП 7 | С/П | ИП 6 | С/П | ИП 5 | С/П | ИП 4 | С/П | K БП 0 | ИП E |
50 | П 3 | ИП D | П 1 | БП | 16 | ИП A | F π | + | F x2 | F x2 |
60 | K {x} | П A | ИП B | × | 1 | + | K [x] | П C | ИП C | В/О |
Файл 40-2145670.mkl
.CHARSET 1251 ; Файл 40-2145670 .ORG 0 M A 45 M B 5 M 0 1 M 1 9 M 2 + M 3 M E GSB A55 M 9 A16: ; с адреса 33 , 53 GSB A55 A18: ; с адреса 23 RM C K RM 3 - F X!=0 A49 F L1 A18 RM C K M 2 RM E M 3 RM 2 - M 1 M D F L0 A16 R/S RM 9 R/S RM 8 R/S RM 7 R/S RM 6 R/S RM 5 R/S RM 4 R/S K GOTO 0 A49: ; с адреса 21 RM E M 3 RM D M 1 GOTO A16 A55: ; с адреса 13 , 16 RM A F PI + F X^2 F X^2 K FRAC M A RM B * 1 + K INT M C RM C RTN .END