Файл 48-2289898.mkp (КС 5121/101)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | П 4 | 1 | 0 | П 7 | 1 | 5 | ПП | 78 | П 9 |
10 | 2 | F 10x | ПП | 78 | П 8 | 5 | F 10x | × | ИП 9 | + |
20 | С/П | П 5 | ИП 7 | 1 | - | П 7 | F x≠0 | 91 | ИП 9 | 7 |
30 | 5 | ÷ | ИП 5 | F sin | ÷ | ИП 8 | F tg | F 1/x | + | F 1/x |
40 | F arctg | K [x] | F x<0 | 48 | 1 | 8 | 0 | + | П 8 | 6 |
50 | 0 | - | F x≥0 | 74 | ИП 8 | ИП 5 | - | K |x| | 2 | - |
60 | F x≥0 | 65 | ИП 8 | БП | 20 | K ИП 4 | 5 | 0 | B↑ | 9 |
70 | ÷ | С/П | БП | 05 | 1 | 0 | БП | 68 | ИП 0 | F π |
80 | + | F x2 | F x2 | K {x} | П 0 | 2 | 0 | × | K [x] | + |
90 | В/О | ИП 4 | С/П | БП | 00 | 0 | 0 | 0 |
Файл 48-2289898.mkl
.CHARSET 1251 ; Файл 48-2289898 .ORG 0 A0: ; с адреса 93 CX M 4 10 M 7 A5: ; с адреса 72 15 GSB A78 M 9 2 F 10^X GSB A78 M 8 5 F 10^X * RM 9 + A20: ; с адреса 63 R/S M 5 RM 7 1 - M 7 F X!=0 A91 RM 9 75 / RM 5 F SIN / RM 8 F TG F 1/X + F 1/X F ARCTG K INT F X<0 A48 180 + A48: ; с адреса 42 M 8 60 - F X>=0 A74 RM 8 RM 5 - K ABS 2 - F X>=0 A65 RM 8 GOTO A20 A65: ; с адреса 60 K RM 4 50 A68: ; с адреса 76 ENT 9 / R/S GOTO A5 A74: ; с адреса 52 10 GOTO A68 A78: ; с адреса 7 , 12 RM 0 F PI + F X^2 F X^2 K FRAC M 0 20 * K INT + RTN A91: ; с адреса 26 RM 4 R/S GOTO A0 000 .END