Файл 39-1350035.mkp (КС 18036/208)

  0 1 2 3 4 5 6 7 8 9
00 Cx 2 ИП 8 ÷ П 5 2 ИП 9 ÷ П 6 1
10 B↑ K СЧ F ln ИП 5 × F ex B↑ П 7 K СЧ F ln
20 ИП 6 × F ex + - F x≥0 09 ИП 7 F Bx ÷
30 П 7 С/П БП 09 0          

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

Файл 39-1350035.mkl

.CHARSET 1251
; Файл 39-1350035 
.ORG 0 
	CX
	2
	RM 8
	/
	M 5
	2
	RM 9
	/
	M 6

A9:	 ; с адреса 25 , 32 
	1
	ENT
	K RAN
	F LN
	RM 5
	*
	F EXP
	ENT
	M 7
	K RAN
	F LN
	RM 6
	*
	F EXP
	+
	-
	F X>=0 A9
	RM 7
	F ANS
	/
	M 7
	R/S
	GOTO A9
	0
.END