Файл 02-1007084.mkp (КС 8721/33)

  0 1 2 3 4 5 6 7 8 9
00 ИП 7 F x2 F √ ИП 8 F x2 F √ + ИП 9 F x2 F √
10 + 1 + П 1 /-/ П 0 ИП 0 ИП 1 + 2
20 ÷ П 2 ИП 7 + ИП 2 × ИП 8 + ИП 2 ×
30 ИП 9 + F x<0 38 ИП 2 П 0 БП 40 ИП 2 П 1
40 ИП 1 ИП 0 - ИП 6 - F x<0 16 ИП 1 ИП 7 +
50 П 4 ИП 1 × ИП 8 + П 5 ИП 4 2 ÷ /-/
60 П 2 F x2 ИП 5 - F x<0 71 /-/ F √ П 3 1
70 С/П F √ П A ИП 2 + П 3 ИП 2 ИП A - П 2
80 0 С/П 0 0            

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

Файл 02-1007084.mkl

.CHARSET 1251
; Файл 02-1007084 
.ORG 0 
	RM 7
	F X^2
	F SQRT
	RM 8
	F X^2
	F SQRT
	+
	RM 9
	F X^2
	F SQRT
	+
	1
	+
	M 1
	+/-
	M 0

A16:	 ; с адреса 45 
	RM 0
	RM 1
	+
	2
	/
	M 2
	RM 7
	+
	RM 2
	*
	RM 8
	+
	RM 2
	*
	RM 9
	+
	F X<0 A38
	RM 2
	M 0
	GOTO A40

A38:	 ; с адреса 32 
	RM 2
	M 1

A40:	 ; с адреса 36 
	RM 1
	RM 0
	-
	RM 6
	-
	F X<0 A16
	RM 1
	RM 7
	+
	M 4
	RM 1
	*
	RM 8
	+
	M 5
	RM 4
	2
	/
	+/-
	M 2
	F X^2
	RM 5
	-
	F X<0 A71
	+/-
	F SQRT
	M 3
	1
	R/S

A71:	 ; с адреса 64 
	F SQRT
	M A
	RM 2
	+
	M 3
	RM 2
	RM A
	-
	M 2
	0
	R/S
	00
.END