Файл 19-1257677.mkp (КС 9739/241)

  0 1 2 3 4 5 6 7 8 9
00 ПП 58 ИП 9 F cos × П 5 ИП 9 F sin ИП 6 ×
10 П 6 С/П ПП 58 ИП 9 F sin × ИП 6 ИП 9 F cos
20 × П 5 П 6 С/П 1 П 7 ИП 8 2 ×
30 П 8 ИП 9 2 × П 9 ПП 58 ИП 9 F cos ИП 7
40 × ИП 6 + ÷ П 5 F Bx ИП 9 F sin ИП 7 ×
50 ÷ П 6 С/П 1 /-/ БП 26 ИП 8 F ex
60 B↑ F 1/x + 2 ÷ П 6 ИП 8 F ex B↑ F 1/x
70 - 2 ÷ В/О 0 0 0      

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

Файл 19-1257677.mkl

.CHARSET 1251
; Файл 19-1257677 
.ORG 0 
	GSB A58
	RM 9
	F COS
	*
	M 5
	RM 9
	F SIN
	RM 6
	*
	M 6
	R/S
	GSB A58
	RM 9
	F SIN
	*
	RM 6
	RM 9
	F COS
	*
	M 5
	<->
	M 6
	R/S
	1

A26:	 ; с адреса 56 
	M 7
	RM 8
	2
	*
	M 8
	RM 9
	2
	*
	M 9
	GSB A58
	RM 9
	F COS
	RM 7
	*
	RM 6
	+
	/
	M 5
	F ANS
	RM 9
	F SIN
	RM 7
	*
	<->
	/
	M 6
	R/S
	1+/-
	GOTO A26

A58:	 ; с адреса 0 , 12 , 35 
	RM 8
	F EXP
	ENT
	F 1/X
	+
	2
	/
	M 6
	RM 8
	F EXP
	ENT

A69:	 ; с адреса 1 , 13 , 36 
	F 1/X
	-
	2
	/
	RTN
	000
.END