Файл 37-2095277.mkp (КС 10438/60)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | П 9 | ИП A | - | F x=0 | 06 | K ИП 4 | ИП 9 | 2 | × | 1 |
10 | - | П D | ИП 3 | × | П C | K ИП 5 | ИП D | ИП 2 | П 3 | × |
20 | ИП D | ИП 1 | П 2 | × | ИП 6 | + | П 6 | ИП D | П 1 | × |
30 | ↔ | ИП 7 | + | П 7 | ИП 2 | × | ИП C | ИП 8 | + | П 8 |
40 | ИП 3 | × | + | + | F x≥0 | 49 | 1 | БП | 50 | Cx |
50 | П A | С/П | БП | 00 | П 9 | 9 | П 0 | Cx | K П 0 | ИП 0 |
60 | 1 | - | F x=0 | 57 | ИП 9 | F sin | F x≥0 | 69 | Cx | П 9 |
70 | БП | 06 | 0 | 0 | 0 | 0 | 0 |
Файл 37-2095277.mkl
.CHARSET 1251 ; Файл 37-2095277 .ORG 0 A0: ; с адреса 52 M 9 RM A - F X=0 A6 K RM 4 A6: ; с адреса 3 , 70 RM 9 2 * 1 - M D RM 3 * M C K RM 5 RM D RM 2 M 3 * RM D RM 1 M 2 * RM 6 + M 6 RM D M 1 * <-> RM 7 + M 7 RM 2 * RM C RM 8 + M 8 RM 3 * + + F X>=0 A49 1 GOTO A50 A49: ; с адреса 44 CX A50: ; с адреса 47 M A R/S GOTO A0 M 9 9 M 0 A57: ; с адреса 62 CX K M 0 RM 0 1 - F X=0 A57 RM 9 F SIN F X>=0 A69 CX A69: ; с адреса 63 , 66 M 9 GOTO A6 00000 .END