Файл 50-2000042.mkp (КС 17419/141)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | П 4 | ИП 7 | F √ | П 2 | 1 | П 3 | ИП 2 | ИП 3 | 2 |
10 | + | П 3 | - | F x≥0 | 23 | ИП 7 | ИП 3 | ÷ | K {x} | F x=0 |
20 | 07 | БП | 29 | K ИП 4 | ИП 9 | F x=0 | 29 | ИП 7 | С/П | ИП 8 |
30 | ИП 7 | 2 | + | П 7 | - | F x<0 | 02 | ИП 4 | С/П | БП |
40 | 37 | 0 |
Файл 50-2000042.mkl
.CHARSET 1251 ; Файл 50-2000042 .ORG 0 CX M 4 A2: ; с адреса 35 RM 7 F SQRT M 2 1 M 3 A7: ; с адреса 19 RM 2 RM 3 2 + M 3 - F X>=0 A23 RM 7 RM 3 / K FRAC F X=0 A7 GOTO A29 A23: ; с адреса 13 K RM 4 RM 9 F X=0 A29 RM 7 R/S A29: ; с адреса 21 , 25 RM 8 RM 7 2 + M 7 - F X<0 A2 A37: ; с адреса 39 RM 4 R/S GOTO A37 0 .END