Файл 01-1000091.mkp (КС 6347/143)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | П C | ИП 9 | 2 | F 10x | - | П B | 5 | × | ИП 6 |
10 | 7 | + | × | П 7 | П 8 | ПП | 39 | ИП 5 | П 4 | ИП 2 |
20 | П 1 | ИП A | П 0 | ИП 8 | ИП B | ВП | 1 | + | П 8 | ПП |
30 | 39 | ИП 7 | ВП | 4 | ИП 8 | + | С/П | БП | 00 | ИП 8 |
40 | 4 | ВП | 3 | - | F x≥0 | 51 | 1 | ВП | 3 | ÷ |
50 | П C | ИП 8 | 1 | 4 | ИП C | - | × | 4 | 0 | 0 |
60 | ÷ | 2 | F 1/x | П D | + | K [x] | П 5 | ИП 8 | 3 | 0 |
70 | ÷ | ИП D | + | K [x] | П 2 | ИП 8 | 5 | 6 | ИП C | + |
80 | × | 3 | 7 | 5 | ÷ | ИП D | + | K [x] | П A | В/О |
90 | 0 |
Файл 01-1000091.mkl
.CHARSET 1251 ; Файл 01-1000091 .ORG 0 A0: ; с адреса 37 CX A1: ; с адреса 45 M C RM 9 2 F 10^X - M B 5 * RM 6 7 + * M 7 M 8 GSB A39 RM 5 M 4 RM 2 M 1 RM A M 0 RM 8 RM B EE1 + M 8 GSB A39 RM 7 EE4 RM 8 + R/S GOTO A0 A39: ; с адреса 15 , 29 RM 8 4EE3 - F X>=0 A51 1EE3 / M C A51: ; с адреса 44 RM 8 14 RM C - * 400 / 2 F 1/X M D + K INT M 5 RM 8 30 / RM D + K INT M 2 RM 8 56 RM C + * 375 / RM D + K INT M A RTN 0 .END