Файл 32-2023842.mkp (КС 16621/65)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | F x≠0 | 36 | ИП 4 | ↔ | - | F x≥0 | 36 | ИП 7 | F Bx | - |
10 | П 7 | С/П | ИП 7 | 1 | - | B↑ | ИП 4 | 1 | + | ÷ |
20 | F Bx | ↔ | K [x] | × | - | F x=0 | 28 | 1 | ИП 7 | ↔ |
30 | - | П 7 | /-/ | С/П | БП | 00 | Cx | F 1/x | K НОП | БП |
40 | 00 | 0 |
Файл 32-2023842.mkl
.CHARSET 1251 ; Файл 32-2023842 .ORG 0 A0: ; с адреса 34 , 39 F X!=0 A36 RM 4 <-> - F X>=0 A36 RM 7 F ANS - M 7 R/S RM 7 1 - ENT RM 4 1 + / F ANS <-> K INT * - F X=0 A28 1 A28: ; с адреса 25 RM 7 <-> - M 7 +/- R/S GOTO A0 A36: ; с адреса 0 , 5 CX F 1/X K NOP GOTO A0 0 .END