Файл 45-2232491.mkp (КС 8062/188)

  0 1 2 3 4 5 6 7 8 9
00 П 1 3 П 8 Cx П 2 П 5 П 6 П 7 П 9 K ИП 6
10 ИП 9 ИП 8 С/П П 3 П 4 F π П D 1 ИП 4
20 F x2 - F x≥0 81 ИП 4 ИП 9 + П D F x≠0 81
30 П 9 П 0 ИП 1 ИП 2 ИП 3 F cos + П 2 - F x≥0
40 84 ИП 3 F sin ИП 8 + ИП 9 9 ÷ - ИП 7
50 1 1 × F π + П 7 K ИП 7 F O ИП 7 -
60 П 7 2 ÷ - П 8 П D F x≥0 77 6 ИП 8
70 - F x≥0 77 F L0 32 БП 09 Cx П 9 3
80 П 8 K ИП 5 ИП D K - ИП 1 С/П БП 09 0 0
90 0                  

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

Файл 45-2232491.mkl

.CHARSET 1251
; Файл 45-2232491 
.ORG 0 
	M 1
	3
	M 8
	CX
	M 2
	M 5
	M 6
	M 7
	M 9

A9:	 ; с адреса 75 , 86 
	K RM 6
	RM 9
	RM 8
	R/S
	M 3
	<->
	M 4
	F PI
	M D
	1
	RM 4
	F X^2
	-
	F X>=0 A81
	RM 4
	RM 9
	+
	M D
	F X!=0 A81
	M 9
	M 0

A32:	 ; с адреса 73 
	RM 1
	RM 2
	RM 3
	F COS
	+
	M 2
	-
	F X>=0 A84
	RM 3
	F SIN
	RM 8
	+
	RM 9
	9
	/
	-
	RM 7
	11
	*
	F PI
	+
	M 7
	K RM 7
	F R
	RM 7
	-
	M 7
	2
	/
	-
	M 8
	M D
	F X>=0 A77
	6
	RM 8
	-
	F X>=0 A77
	F L0 A32
	GOTO A9

A77:	 ; с адреса 66 , 71 
	CX
	M 9
	3
	M 8

A81:	 ; с адреса 22 , 28 
	K RM 5
	RM D
	K -

A84:	 ; с адреса 39 
	RM 1
	R/S
	GOTO A9
	000
.END