Файл 34-2050498.mkp (КС 6468/30)

  0 1 2 3 4 5 6 7 8 9
00 Cx 1 ПП 78 ИП 7 П 4 ИП 8 П 5 ИП 9 П 6
10 6 4 П B 0 П A 7 П 0 3 П 1 0
20 П E ИП B /-/ П C 7 П 2 ИП 2 П 3 K ИП 2 ИП B
30 - F x≥0 50 K П 3 1 ИП E - П E ИП A F x=0
40 43 ИП 1 П D ИП 1 ИП D - F x=0 50 ИП B П C
50 F L1 26 ИП A ИП C ИП E × - П A ИП B 2
60 ÷ П B F L0 17 ИП D 6 + П D ИП A F x=0
70 73 1 /-/ K ИП D + K П D 1 /-/ ИП 7 4
80 F 10x × ИП 8 2 F 10x × + ИП 9 + 6
90 F 10x + × С/П В/О 0 0 0    

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

Файл 34-2050498.mkl

.CHARSET 1251
; Файл 34-2050498 
.ORG 0 
	CX
	1
	GSB A78
	RM 7
	M 4
	RM 8
	M 5
	RM 9
	M 6
	64
	M B
	0
	M A
	7
	M 0

A17:	 ; с адреса 62 
	3
	M 1
	0
	M E
	RM B
	+/-
	M C
	7
	M 2

A26:	 ; с адреса 50 
	RM 2
	M 3
	K RM 2
	RM B
	-
	F X>=0 A50
	K M 3
	1
	RM E
	-
	M E
	RM A
	F X=0 A43
	RM 1
	M D

A43:	 ; с адреса 39 
	RM 1
	RM D
	-
	F X=0 A50
	RM B
	M C

A50:	 ; с адреса 31 , 46 
	F L1 A26
	RM A
	RM C
	RM E
	*
	-
	M A
	RM B
	2
	/
	M B
	F L0 A17
	RM D
	6
	+
	M D
	RM A
	F X=0 A73
	1+/-

A73:	 ; с адреса 69 
	K RM D
	+
	K M D
	1+/-

A78:	 ; с адреса 2 
	RM 7
	4
	F 10^X
	*
	RM 8
	2
	F 10^X
	*
	+
	RM 9
	+
	6
	F 10^X
	+
	*
	R/S
	RTN
	000
.END