Файл 52-2354277.mkp (КС 9909/139)

  0 1 2 3 4 5 6 7 8 9
00 F π ИП 7 ÷ F sin ИП 8 × 2 × П 9 1
10 П 3 ИП 7 2 ÷ П 4 K {x} F x=0 33 F Bx П 7
20 2 ÷ K {x} F x≠0 18 1 B↑ 2 F 1/x -
30 ИП 4 × П 4 ИП 7 F √ П 6 ИП 6 ИП 3 2 +
40 П 3 - F x≥0 61 ИП 7 ИП 3 ÷ K {x} F x=0 36
50 F Bx П 7 ИП 3 ÷ K {x} F x≠0 50 1 ИП 3 БП
60 28 1 ИП 7 F 1/x - F x≠0 70 ИП 4 × П 4
70 ИП 4 9 F 1/x + K [x] П 4 С/П      

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

Файл 52-2354277.mkl

.CHARSET 1251
; Файл 52-2354277 
.ORG 0 
	F PI
	RM 7
	/
	F SIN
	RM 8
	*
	2
	*
	M 9
	1
	M 3
	RM 7
	2
	/
	M 4
	K FRAC
	F X=0 A33

A18:	 ; с адреса 23 
	F ANS
	M 7
	2
	/
	K FRAC
	F X!=0 A18
	1
	ENT
	2

A28:	 ; с адреса 59 
	F 1/X
	-
	RM 4
	*
	M 4

A33:	 ; с адреса 16 
	RM 7
	F SQRT
	M 6

A36:	 ; с адреса 48 
	RM 6
	RM 3
	2
	+
	M 3
	-
	F X>=0 A61
	RM 7
	RM 3
	/
	K FRAC
	F X=0 A36

A50:	 ; с адреса 55 
	F ANS
	M 7
	RM 3
	/
	K FRAC
	F X!=0 A50
	1
	RM 3
	GOTO A28

A61:	 ; с адреса 42 
	1
	RM 7
	F 1/X
	-
	F X!=0 A70
	RM 4
	*
	M 4

A70:	 ; с адреса 65 
	RM 4
	9
	F 1/X
	+
	K INT
	M 4
	R/S

.END