Файл 17-1218498.mkp (КС 6268/238)

  0 1 2 3 4 5 6 7 8 9
00 ПП 57 С/П ПП 65 С/П ИП 9 2 × П 9
10 ПП 40 ИП 8 2 × F sin ИП 5 F Bx F cos ИП 7
20 × + ÷ П 5 ИП 6 F Bx ИП 7 × ÷ П 6
30 С/П ПП 65 ПП 83 С/П ПП 57 БП 33
40 ИП 9 F ex B↑ F 1/x + 2 ÷ П 5 ИП 9 F ex
50 B↑ F 1/x - 2 ÷ П 6 В/О ИП 8 F sin П A
60 ИП 8 F cos П B БП 72 ИП 8 F cos П A ИП 8 F sin
70 /-/ П B ПП 40 ИП 5 ИП A × П 5 ИП 6 ИП B
80 × П 6 В/О ИП 5 B↑ F x2 ИП 6 F x2 + ÷
90 П 5 ИП 6 F Bx ÷ /-/ П 6 В/О 0    

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

Файл 17-1218498.mkl

.CHARSET 1251
; Файл 17-1218498 
.ORG 0 
	GSB A57
	R/S
	GSB A65
	R/S
	RM 9
	2
	*
	M 9
	GSB A40
	RM 8
	2
	*
	F SIN
	RM 5
	F ANS
	F COS
	RM 7
	*
	+
	/
	M 5
	RM 6
	F ANS
	RM 7
	*
	/
	M 6
	R/S
	GSB A65

A33:	 ; с адреса 38 
	GSB A83
	R/S
	GSB A57
	GOTO A33

A40:	 ; с адреса 10 , 72 
	RM 9
	F EXP
	ENT
	F 1/X
	+
	2
	/
	M 5
	RM 9
	F EXP

A50:	 ; с адреса 1 
	ENT

A51:	 ; с адреса 37 
	F 1/X
	-
	2
	/
	M 6
	RTN

A57:	 ; с адреса 0 , 36 
	RM 8
	F SIN
	M A
	RM 8
	F COS
	M B
	GOTO A72

A65:	 ; с адреса 3 , 31 
	RM 8
	F COS
	M A
	RM 8
	F SIN
	+/-
	M B

A72:	 ; с адреса 63 
	GSB A40
	RM 5
	RM A
	*
	M 5
	RM 6
	RM B
	*
	M 6
	RTN

A83:	 ; с адреса 33 
	RM 5
	ENT
	F X^2
	RM 6
	F X^2
	+
	/
	M 5
	RM 6
	F ANS
	/
	+/-
	M 6
	RTN
	0
.END