Файл 33-2032291.mkp (КС 7136/98)

  0 1 2 3 4 5 6 7 8 9
00 Cx 5 F √ 1 + 2 ÷ П 9 1 П 6
10 ИП 8 2 F 10x ÷ ИП 7 + × С/П ИП 6 F x≥0
20 08 ИП 7 ИП 8 - F x≠0 17 ИП 8 ИП 7 ИП 9 ×
30 - F x<0 47 ИП 8 ИП 7 - B↑ ИП 9 × K [x]
40 П 7 + П 8 1 /-/ БП 09 ИП 7 1 +
50 ИП 9 F x2 ÷ K [x] П 5 F Bx ИП 9 × K [x] П 4
60 ИП 9 × K [x] ИП 7 - F x=0 80 ИП 8 ИП 7 ИП 4
70 + П 8 - F x=0 43 ИП 8 1 - БП 42
80 ИП 7 П 8 ИП 5 - П 7 БП 43 0 0 0
90 0                  

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

Файл 33-2032291.mkl

.CHARSET 1251
; Файл 33-2032291 
.ORG 0 
	CX
	5
	F SQRT
	1
	+
	2
	/
	M 9

A8:	 ; с адреса 19 
	1

A9:	 ; с адреса 45 
	M 6
	RM 8
	2
	F 10^X
	/
	RM 7
	+
	*

A17:	 ; с адреса 24 
	R/S
	RM 6
	F X>=0 A8
	RM 7
	RM 8
	-
	F X!=0 A17
	RM 8
	RM 7
	RM 9
	*
	-
	F X<0 A47
	RM 8
	RM 7
	-
	ENT
	RM 9
	*
	K INT
	M 7
	+

A42:	 ; с адреса 78 
	M 8

A43:	 ; с адреса 73 , 85 
	1+/-
	GOTO A9

A47:	 ; с адреса 31 
	RM 7
	1
	+
	RM 9
	F X^2
	/
	K INT
	M 5
	F ANS
	RM 9
	*
	K INT
	M 4
	RM 9
	*
	K INT
	RM 7
	-
	F X=0 A80
	RM 8
	RM 7
	RM 4
	+
	M 8
	-
	F X=0 A43
	RM 8
	1
	-
	GOTO A42

A80:	 ; с адреса 65 
	RM 7
	M 8
	RM 5
	-
	M 7
	GOTO A43
	0000
.END