Ôàéë 47-2270298.mkp (ÊÑ 6277/137)

  0 1 2 3 4 5 6 7 8 9
00 K ÁÏ A Ñ/Ï Ï 0 Ï 1 ÈÏ 3 - Ï 3 3 F 10x
10 - ÈÏ 2 × ÈÏ 9 + F x<0 18 Cx Ï 9 ÈÏ A
20 - F x<0 85 ÈÏ 9 ÈÏ B - F x<0 85 ÈÏ 0 F √
30 3 3 × Ï 0 ÈÏ 2 × ÈÏ 1 F cos × ÈÏ 4
40 - Ï 4 ÈÏ 6 F Bx - Ï 6 ÈÏ 5 ÈÏ 0 ÈÏ 2
50 × ÈÏ 1 F sin × - Ï 5 ÈÏ 7 F Bx - Ï 7
60 ÈÏ 8 ÈÏ 2 - Ï 8 F x≥0 85 ÈÏ 6 F x2 ÈÏ 7 F x2
70 + F √ 5 0 0 - F x<0 82 ÈÏ 7 ÈÏ 6
80 ÈÏ D K ÁÏ A ÈÏ 5 ÈÏ 4 K ÁÏ A 8 8 Ï A ÈÏ C Ñ/Ï
90 0 Ï 0 ÁÏ 08 0 0 0 0    

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

Ôàéë 47-2270298.mkl

.CHARSET 1251
; Ôàéë 47-2270298 
.ORG 0 
	K GOTO A
	R/S
	M 0
	M 1
	RM 3
	<->
	-
	M 3

A8:	 ; ñ àäðåñà 92 
	3
	F 10^X
	-
	RM 2
	*
	RM 9
	+
	F X<0 A18
	CX

A18:	 ; ñ àäðåñà 15 
	M 9
	RM A
	-
	F X<0 A85
	RM 9
	RM B
	-
	F X<0 A85
	RM 0
	F SQRT
	33
	*
	M 0
	RM 2
	*
	RM 1
	F COS
	*
	RM 4
	<->
	-
	M 4
	RM 6
	F ANS
	-
	M 6
	RM 5
	RM 0
	RM 2
	*
	RM 1
	F SIN
	*
	-
	M 5
	RM 7
	F ANS
	-
	M 7
	RM 8
	RM 2
	-
	M 8
	F X>=0 A85
	RM 6
	F X^2
	RM 7
	F X^2
	+
	F SQRT
	500
	-
	F X<0 A82
	RM 7
	RM 6
	RM D
	K GOTO A

A82:	 ; ñ àäðåñà 76 
	RM 5
	RM 4
	K GOTO A

A85:	 ; ñ àäðåñà 21 , 26 , 64 
	88
	M A
	RM C
	R/S
	0
	M 0
	GOTO A8
	0000
.END