Файл 19-1187698.mkp (КС 5556/200)

  0 1 2 3 4 5 6 7 8 9
00 Cx 2 П 2 F 1/x П B ИП 4 × П A B↑ K {x}
10 + П 0 F Bx F x≠0 18 F π БП 31 2 БП
20 31 ИП A ИП 0 - × ИП A ИП B + ИП 0 -
30 ÷ F L0 21 П C ИП 4 B↑ ИП 5 F x2 + ÷
40 П 6 ИП B - F x≥0 55 1 П 2 ИП 6 - П 6
50 ИП A ИП B П A П B K [x] 9 + П 0 ИП A
60 ИП 6 F xy 0 ИП A ИП 0 + F 1/x - ИП 6 ×
70 ИП 0 ÷ ИП 0 ИП B - × F L0 63 ИП A F 1/x
80 - × ИП C ÷ 2 + F L2 91 3 -
90 /-/ 2 ÷ С/П 0 0 0 0    

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

Файл 19-1187698.mkl

.CHARSET 1251
; Файл 19-1187698 
.ORG 0 
	CX
	2
	M 2
	F 1/X
	M B
	RM 4
	*
	M A
	ENT
	K FRAC
	+
	M 0
	F ANS
	F X!=0 A18
	F PI
	GOTO A31

A18:	 ; с адреса 13 
	2
	GOTO A31

A21:	 ; с адреса 31 
	RM A
	RM 0
	-
	*
	RM A
	RM B
	+
	RM 0
	-
	/

A31:	 ; с адреса 16 , 19 
	F L0 A21
	M C
	RM 4
	ENT
	RM 5
	F X^2
	+
	/
	M 6
	RM B
	-
	F X>=0 A55
	1
	M 2
	RM 6
	-
	M 6
	RM A
	RM B
	M A
	<->
	M B

A55:	 ; с адреса 43 
	K INT
	9
	+
	M 0
	RM A
	RM 6
	F X^Y
	0

A63:	 ; с адреса 76 
	RM A
	RM 0
	+
	F 1/X
	-
	RM 6
	*
	RM 0
	/
	RM 0
	RM B
	-
	*
	F L0 A63
	RM A
	F 1/X
	-
	*
	RM C
	/
	2
	+
	F L2 A91
	3
	-
	+/-
A91:	 ; с адреса 86 
2
	/
	R/S
	0000
.END