Файл 20-1207291.mkp (КС 8003/67)

  0 1 2 3 4 5 6 7 8 9
00 ИП A ИП B П C + П E П 0 ИП B K {x} П 2 F x≠0
10 31 ИП A K {x} F x≠0 29 ИП 5 - F x<0 21 ПП
20 43 ИП E 7 + П 3 F π F 1/x БП 35 ПП
30 43 ИП C П 0 П 3 ИП A ИП A ИП 5 F ln × F ex
40 × БП 61 ИП A П C ИП B П A 1 П 2 ИП 5
50 - П 5 В/О ИП C ИП 0 - ÷ ИП E ИП 0 -
60 × F L0 53 K |x| 0 ИП A ИП 3 + F 1/x +
70 ИП 5 × ИП 3 ÷ ИП 3 ИП C - × F L3 65
80 ИП A F 1/x + × F L2 89 1 - /-/ С/П
90 0                  

Исходный текст для кросс-компилятора

Файл 20-1207291.mkl

.CHARSET 1251
; Файл 20-1207291 
.ORG 0 
	RM A
	RM B
	M C
	+
	M E
	M 0
	RM B
	K FRAC
	M 2
	F X!=0 A31
	RM A
	K FRAC
	F X!=0 A29
	RM 5
	-
	F X<0 A21
	GSB A43

A21:	 ; с адреса 17 
	RM E
	7
	+
	M 3
	F PI
	F 1/X
	GOTO A35

A29:	 ; с адреса 13 
	GSB A43

A31:	 ; с адреса 9 , 62 
	RM C
	M 0
	M 3
	RM A

A35:	 ; с адреса 27 
	RM A
	RM 5
	F LN
	*
	F EXP
	*
	GOTO A61

A43:	 ; с адреса 19 , 29 
	RM A
	M C
	RM B
	M A
	1
	M 2
	RM 5
	-
	M 5
	RTN

A53:	 ; с адреса 61 
	RM C
	RM 0
	-
	/
	RM E
	RM 0
	-
	*

A61:	 ; с адреса 41 
	F L0 A53
	K ABS
	0

A65:	 ; с адреса 78 
	RM A
	RM 3
	+
	F 1/X
	+
	RM 5
	*
	RM 3
	/
	RM 3
	RM C
	-
	*
	F L3 A65
	RM A
	F 1/X
	+
	*
	F L2 A89
	1
	-
	+/-

A89:	 ; с адреса 84 
	R/S
	0
.END