Файл 74-2288428.mkp (КС 19392/122)

  0 1 2 3 4 5 6 7 8 9
00 П 1 B↑ K {x} + П 0 F Bx F x≠0 12 F π F √
10 БП 19 1 БП 19 ИП 1 ИП 0 - × F L0
20 15 С/П 0 0 0 0 0 0    

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

Файл 74-2288428.mkl

.CHARSET 1251
; Файл 74-2288428 
.ORG 0 
	M 1
	ENT
	K FRAC
	+
	M 0
	F ANS
	F X!=0 A12
	F PI
	F SQRT
	GOTO A19

A12:	 ; с адреса 6 
	1
	GOTO A19

A15:	 ; с адреса 19 
	RM 1
	RM 0
	-
	*

A19:	 ; с адреса 10 , 13 
	F L0 A15
	R/S
	000000
.END