Файл 21-1225498.mkp (КС 6788/216)

  0 1 2 3 4 5 6 7 8 9
00 ИП 4 ИП A × B↑ ИП B + ÷ П 5 ИП A ИП B
10 П C + П E П 0 ИП B K {x} П 2 F x≠0 39 ИП A
20 K {x} F x≠0 37 ИП 5 - F x<0 28 ПП 51 ИП E
30 7 + П 3 F π F 1/x БП 43 ПП 51 ИП C
40 П 0 П 3 ИП A ИП A ИП 5 F ln × F ex × БП
50 69 ИП A П C ИП B П A 1 П 2 ИП 5 - П 5
60 В/О ИП C ИП 0 - ÷ ИП E ИП 0 - × F L0
70 61 K |x| 0 ИП A ИП 3 + F 1/x + ИП 5 ×
80 ИП 3 ÷ ИП 3 ИП C - × F L3 73 ИП A F 1/x
90 + × F L2 97 1 - /-/ С/П    

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

Файл 21-1225498.mkl

.CHARSET 1251
; Файл 21-1225498 
.ORG 0 
	RM 4
	RM A
	*
	ENT
	RM B
	+
	/
	M 5
	RM A
	RM B
	M C
	+
	M E
	M 0
	RM B
	K FRAC
	M 2
	F X!=0 A39
	RM A
	K FRAC
	F X!=0 A37
	RM 5
	-
	F X<0 A28
	.DB 53h	; Код команды GSB A51

A28:	 ; с адреса 25 
	GOTO A74
	7
	+
	M 3
	F PI
	F 1/X
	GOTO A43

A37:	 ; с адреса 21 
	GSB A51

A39:	 ; с адреса 17 
	RM C
	M 0
	M 3
	RM A

A43:	 ; с адреса 35 
	RM A
	RM 5
	F LN
	*
	F EXP
	*
	GOTO A69

A51:	 ; с адреса 27 , 37 
	RM A
	M C
	RM B
	M A
	1
	M 2
	RM 5
	-
	M 5
	RTN

A61:	 ; с адреса 69 
	RM C
	RM 0
	-
	/
	RM E
	RM 0
	-
	*

A69:	 ; с адреса 49 
	F L0 A61
	K ABS

A72:	 ; с адреса 38 
	0

A73:	 ; с адреса 86 
	RM A

A74:	 ; с адреса 28 
	RM 3
	+
	F 1/X
	+
	RM 5
	*
	RM 3
	/
	RM 3
	RM C
	-
	*
	F L3 A73
	RM A
	F 1/X
	+
	*
	F L2 A97
	1
	-
	+/-

A97:	 ; с адреса 92 
	R/S

.END