Файл 32-2023842.mkp (КС 16621/65)

  0 1 2 3 4 5 6 7 8 9
00 F x≠0 36 ИП 4 - F x≥0 36 ИП 7 F Bx -
10 П 7 С/П ИП 7 1 - B↑ ИП 4 1 + ÷
20 F Bx K [x] × - F x=0 28 1 ИП 7
30 - П 7 /-/ С/П БП 00 Cx F 1/x K НОП БП
40 00 0                

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

Файл 32-2023842.mkl

.CHARSET 1251
; Файл 32-2023842 
.ORG 0 

A0:	 ; с адреса 34 , 39 
	F X!=0 A36
	RM 4
	<->
	-
	F X>=0 A36
	RM 7
	F ANS
	-
	M 7
	R/S
	RM 7
	1
	-
	ENT
	RM 4
	1
	+
	/
	F ANS
	<->
	K INT
	*
	-
	F X=0 A28
	1

A28:	 ; с адреса 25 
	RM 7
	<->
	-
	M 7
	+/-
	R/S
	GOTO A0

A36:	 ; с адреса 0 , 5 
	CX
	F 1/X
	K NOP
	GOTO A0
	0
.END