Файл 37-2095277.mkp (КС 10438/60)

  0 1 2 3 4 5 6 7 8 9
00 П 9 ИП A - F x=0 06 K ИП 4 ИП 9 2 × 1
10 - П D ИП 3 × П C K ИП 5 ИП D ИП 2 П 3 ×
20 ИП D ИП 1 П 2 × ИП 6 + П 6 ИП D П 1 ×
30 ИП 7 + П 7 ИП 2 × ИП C ИП 8 + П 8
40 ИП 3 × + + F x≥0 49 1 БП 50 Cx
50 П A С/П БП 00 П 9 9 П 0 Cx K П 0 ИП 0
60 1 - F x=0 57 ИП 9 F sin F x≥0 69 Cx П 9
70 БП 06 0 0 0 0 0      

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

Файл 37-2095277.mkl

.CHARSET 1251
; Файл 37-2095277 
.ORG 0 

A0:	 ; с адреса 52 
	M 9
	RM A
	-
	F X=0 A6
	K RM 4

A6:	 ; с адреса 3 , 70 
	RM 9
	2
	*
	1
	-
	M D
	RM 3
	*
	M C
	K RM 5
	RM D
	RM 2
	M 3
	*
	RM D
	RM 1
	M 2
	*
	RM 6
	+
	M 6
	RM D
	M 1
	*
	<->
	RM 7
	+
	M 7
	RM 2
	*
	RM C
	RM 8
	+
	M 8
	RM 3
	*
	+
	+
	F X>=0 A49
	1
	GOTO A50

A49:	 ; с адреса 44 
	CX

A50:	 ; с адреса 47 
	M A
	R/S
	GOTO A0
	M 9
	9
	M 0

A57:	 ; с адреса 62 
	CX
	K M 0
	RM 0
	1
	-
	F X=0 A57
	RM 9
	F SIN
	F X>=0 A69
	CX

A69:	 ; с адреса 63 , 66 
	M 9
	GOTO A6
	00000
.END