Файл 51-2008449.mkp (КС 15680/76)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | П 4 | 1 | П 9 | 2 | П 8 | K ИП 4 | ИП 8 | ИП 9 | + |
10 | П 9 | F √ | П 6 | 1 | П 1 | ИП 6 | ИП 1 | 2 | + | П 1 |
20 | - | F x≥0 | 31 | ИП 9 | ИП 1 | ÷ | K {x} | F x=0 | 15 | БП |
30 | 42 | ИП 4 | 2 | × | 1 | + | П 5 | ИП 8 | ИП 9 | × |
40 | П 7 | С/П | ИП 8 | 2 | × | БП | 05 | 0 | 0 |
Файл 51-2008449.mkl
.CHARSET 1251 ; Файл 51-2008449 .ORG 0 CX M 4 1 M 9 2 A5: ; с адреса 45 M 8 K RM 4 RM 8 RM 9 + M 9 F SQRT M 6 1 M 1 A15: ; с адреса 27 RM 6 RM 1 2 + M 1 - F X>=0 A31 RM 9 RM 1 / K FRAC F X=0 A15 GOTO A42 A31: ; с адреса 21 RM 4 2 * 1 + M 5 RM 8 RM 9 * M 7 R/S A42: ; с адреса 29 RM 8 2 * GOTO A5 00 .END