Файл 46-2250698.mkp (КС 6437/253)

  0 1 2 3 4 5 6 7 8 9
00 ИП A ПП 73 ИП B ПП 73 2 F 10x ÷ +
10 П D ПП 81 6 F 10x ÷ ИП D + С/П B↑
20 9 0 - F sin F Bx F cos ИП 1 × ИП A
30 + П A F x2 ИП 1 × ИП B + П B F x2
40 + 9 П 2 - F x≥0 71 3 П 0 ИП A K ИП 2
50 - F x2 ИП B K ИП 2 - F x2 + F √ П D 9
60 - F x<0 68 F L1 66 K М→Г ИП D С/П F L0 48
70 K БП 0 F π С/П F x2 F √ 7 F 10x + F Bx -
80 В/О ИП A F x<0 91 ИП B F x<0 89 3 В/О 4
90 В/О ИП B F x<0 96 2 В/О 1 В/О    

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

Файл 46-2250698.mkl

.CHARSET 1251
; Файл 46-2250698 
.ORG 0 
	RM A
	GSB A73
	RM B
	GSB A73
	2
	F 10^X
	/
	+
	M D
	GSB A81
	6
	F 10^X
	/
	RM D
	+
	R/S
	ENT
	90
	<->
	-
	F SIN
	F ANS
	F COS
	RM 1
	*
	RM A
	+
	M A
	F X^2
	<->
	RM 1
	*
	RM B
	+
	M B
	F X^2
	+
	9
	M 2
	-
	F X>=0 A71
	3
	M 0

A48:	 ; с адреса 68 
	RM A
	K RM 2
	-
	F X^2
	RM B
	K RM 2
	-
	F X^2
	+
	F SQRT
	M D
	9
	-
	F X<0 A68
	F L1 A66
	K M->D

A66:	 ; с адреса 63 
	RM D
	R/S

A68:	 ; с адреса 61 
	F L0 A48
	K GOTO 0

A71:	 ; с адреса 44 
	F PI
	R/S

A73:	 ; с адреса 1 , 4 
	F X^2
	F SQRT
	7
	F 10^X
	+
	F ANS
	-
	RTN

A81:	 ; с адреса 11 
	RM A
	F X<0 A91
	RM B
	F X<0 A89
	3
	RTN

A89:	 ; с адреса 85 
	4
	RTN

A91:	 ; с адреса 82 
	RM B
	F X<0 A96
	2
	RTN

A96:	 ; с адреса 92 
	1
	RTN

.END