Файл 18-1173670.mkp (КС 11024/2)

  0 1 2 3 4 5 6 7 8 9
00 ИП 3 2 ÷ П 5 2 F 1/x + K [x] П 1 ИП 2
10 K [x] 3 + П 0 ИП 5 + 1 + П 6 ИП 2
20 2 ÷ П 4 1 ПП 57 1 + F L0 24
30 ИП 1 П 0 ПП 57 F L0 33 ИП 4 F ex ÷
40 П 6 ИП 1 ИП 5 - F x≠0 53 ИП 6 F π ИП 4 ×
50 F √ ÷ П 6 1 ИП 6 - С/П ИП 4 × ИП 6
60 1 - П 6 ÷ В/О 0 0 0 0 0

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

Файл 18-1173670.mkl

.CHARSET 1251
; Файл 18-1173670 
.ORG 0 
	RM 3

A1:	 ; с адреса 25 
	2
	/
	M 5
	2
	F 1/X
	+
	K INT
	M 1
	RM 2
	K INT
	3
	+
	M 0
	RM 5
	+
	1
	+
	M 6
	RM 2
	2
	/
	M 4
	1

A24:	 ; с адреса 28 
	GSB A57
	1
	+
	F L0 A24
	RM 1
	M 0
	<->

A33:	 ; с адреса 35 
	GSB A57
	F L0 A33
	RM 4
	F EXP
	/
	M 6
	RM 1
	RM 5
	-
	F X!=0 A53
	RM 6
	F PI
	RM 4
	*
	F SQRT
	/
	M 6

A53:	 ; с адреса 44 
	1
	RM 6
	-
	R/S

A57:	 ; с адреса 24 , 33 
	RM 4
	*
	RM 6
	1
	-
	M 6

A63:	 ; с адреса 34 
	/
	RTN
	0
A66:	 ; с адреса 45 
0000
.END