Файл 01-1000091.mkp (КС 6347/143)

  0 1 2 3 4 5 6 7 8 9
00 Cx П C ИП 9 2 F 10x - П B 5 × ИП 6
10 7 + × П 7 П 8 ПП 39 ИП 5 П 4 ИП 2
20 П 1 ИП A П 0 ИП 8 ИП B ВП 1 + П 8 ПП
30 39 ИП 7 ВП 4 ИП 8 + С/П БП 00 ИП 8
40 4 ВП 3 - F x≥0 51 1 ВП 3 ÷
50 П C ИП 8 1 4 ИП C - × 4 0 0
60 ÷ 2 F 1/x П D + K [x] П 5 ИП 8 3 0
70 ÷ ИП D + K [x] П 2 ИП 8 5 6 ИП C +
80 × 3 7 5 ÷ ИП D + K [x] П A В/О
90 0                  

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

Файл 01-1000091.mkl

.CHARSET 1251
; Файл 01-1000091 
.ORG 0 

A0:	 ; с адреса 37 
	CX

A1:	 ; с адреса 45 
	M C
	RM 9
	2
	F 10^X
	-
	M B
	5
	*
	RM 6
	7
	+
	*
	M 7
	M 8
	GSB A39
	RM 5
	M 4
	RM 2
	M 1
	RM A
	M 0
	RM 8
	RM B
	EE1
	+
	M 8
	GSB A39
	RM 7
	EE4
	RM 8
	+
	R/S
	GOTO A0

A39:	 ; с адреса 15 , 29 
	RM 8
	4EE3
	-
	F X>=0 A51
	1EE3
	/
	M C

A51:	 ; с адреса 44 
	RM 8
	14
	RM C
	-
	*
	400
	/
	2
	F 1/X
	M D
	+
	K INT
	M 5
	RM 8
	30
	/
	RM D
	+
	K INT
	M 2
	RM 8
	56
	RM C
	+
	*
	375
	/
	RM D
	+
	K INT
	M A
	RTN
	0
.END