Ôàéë 57-2308063.mkp (ÊÑ 13232/166)

  0 1 2 3 4 5 6 7 8 9
00 1 Ï 4 Ï 3 Ï 2 Ï 1 Ï 0 Ï A 0 Ï B ÈÏ 7
10 ÈÏ B + ÈÏ 2 × Ï 2 ÈÏ 8 ÈÏ B + ÈÏ 1 ×
20 Ï 1 × ÈÏ 9 ÈÏ B + ÈÏ 0 × Ï 0 ÷ Ï C
30 ÈÏ B 1 + Ï B ÈÏ A × Ï A ÈÏ 4 ÈÏ 6 ÈÏ 3
40 × Ï 3 ÈÏ A ÷ ÈÏ C × Ï C + Ï 4 F x≠0
50 09 ÈÏ C ÈÏ 4 ÷ F x2 F √ ÈÏ 5 - F x<0 09
60 ÈÏ 4 Ñ/Ï 0              

Èñõîäíûé òåêñò äëÿ êðîññ-êîìïèëÿòîðà

Ôàéë 57-2308063.mkl

.CHARSET 1251
; Ôàéë 57-2308063 
.ORG 0 
	1
	M 4
	M 3
	M 2
	M 1
	M 0
	M A
	0
	M B

A9:	 ; ñ àäðåñà 49 , 58 
	RM 7
	RM B
	+
	RM 2
	*
	M 2
	RM 8
	RM B
	+
	RM 1
	*
	M 1
	*
	RM 9
	RM B
	+
	RM 0
	*
	M 0
	/
	M C
	RM B
	1
	+
	M B
	RM A
	*
	M A
	RM 4
	RM 6
	RM 3
	*
	M 3
	RM A
	/
	RM C
	*
	M C
	+
	M 4
	F X!=0 A9
	RM C
	RM 4
	/
	F X^2
	F SQRT
	RM 5
	-
	F X<0 A9
	RM 4
	R/S
	0
.END