Файл 73-2270291.mkp (КС 7440/132)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | П 5 | 6 | 0 | П A | ИП 6 | П 3 | ИП 7 | П 4 | ПП |
10 | 76 | П B | 6 | П 0 | Cx | П 1 | ПП | 45 | ПП | 76 |
20 | ИП B | ↔ | - | F x<0 | 29 | F Bx | П B | ИП 0 | П 1 | F L0 |
30 | 16 | ИП 1 | F x≠0 | 67 | П 0 | ПП | 45 | П 7 | ИП 3 | П 6 |
40 | ИП 2 | П 5 | 3 | БП | 13 | ИП 0 | 2 | - | ИП A | × |
50 | ИП 5 | + | П 2 | F cos | ИП 8 | × | ИП 6 | + | П 3 | ИП 2 |
60 | F sin | ИП 8 | × | ИП 7 | + | П 4 | В/О | ИП 8 | 4 | ÷ |
70 | П 8 | ИП 9 | - | F x<0 | 12 | С/П | ИП 3 | 5 | - | F x2 |
80 | ИП 4 | 9 | - | F x2 | + | /-/ | В/О | 0 | 0 | 0 |
90 | 0 |
Файл 73-2270291.mkl
.CHARSET 1251 ; Файл 73-2270291 .ORG 0 CX M 5 60 M A RM 6 M 3 RM 7 M 4 GSB A76 M B A12: ; с адреса 73 6 A13: ; с адреса 43 M 0 CX M 1 A16: ; с адреса 29 GSB A45 GSB A76 RM B <-> - F X<0 A29 F ANS M B RM 0 M 1 A29: ; с адреса 23 F L0 A16 RM 1 F X!=0 A67 M 0 GSB A45 M 7 RM 3 M 6 RM 2 M 5 3 GOTO A13 A45: ; с адреса 16 , 35 RM 0 2 - RM A * RM 5 + M 2 F COS RM 8 * RM 6 + M 3 RM 2 F SIN RM 8 * RM 7 + M 4 RTN A67: ; с адреса 32 RM 8 4 / M 8 RM 9 - F X<0 A12 R/S A76: ; с адреса 9 , 18 RM 3 5 - F X^2 RM 4 9 - F X^2 + +/- RTN 0000 .END