Файл 53-2250663.mkp (КС 13232/210)

  0 1 2 3 4 5 6 7 8 9
00 9 П 0 ПП 14 ИП 9 ÷ П A ПП 14 ИП 9
10 F x2 ÷ П B С/П ИП 9 F x2 П C K ИП 0 ×
20 F Bx F x2 П D + K ИП 0 + ИП C K ИП 0 × ИП D
30 + K ИП 0 + ÷ В/О F π 2 ÷ ИП A ИП 9
40 F cos × - ИП B ИП 9 F sin × - П 0 С/П
50 ИП A ИП 9 F sin × ИП B ИП 9 F cos БП 46 0
60 0 0 0              

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

Файл 53-2250663.mkl

.CHARSET 1251
; Файл 53-2250663 
.ORG 0 
	9
	M 0
	GSB A14
	RM 9
	/
	M A
	GSB A14
	RM 9
	F X^2
	/
	M B
	R/S

A14:	 ; с адреса 2 , 7 
	RM 9
	F X^2
	M C
	K RM 0
	<->
	*
	F ANS
	F X^2
	M D
	+
	K RM 0
	+
	RM C
	K RM 0
	*
	RM D
	+
	K RM 0
	+
	/
	RTN
	F PI
	2
	/
	RM A
	RM 9
	F COS
	*
	-
	RM B
	RM 9
	F SIN

A46:	 ; с адреса 57 
	*
	-
	M 0
	R/S
	RM A
	RM 9
	F SIN
	*
	RM B
	RM 9
	F COS
	GOTO A46
	0000
.END