compatible reproduce
/jan 11, 63 - wfm

b0=(400000
pe=7751
rpa=iot 1
ppa=iot 5

dun,	szf 6
	jmp beg
	move pi,po
	setup .t, 240
	cli stf 6-opr
	dzm .t1
	law . 3
	dap px
	jmp rd1
	count t, rd1
	jmp l2

beg,	lio (-0
	hlt clc stf 7-opr-opr
	move a1, a2
	move pi, po
	rrb
a1,	rpa
	setup t, 100
	cli 7
	ppa
	dzm .t1
	law . 3
	dap px
	jmp rd1
	count t, rd1
c0,	setup t, 7777
	cks
	ril 1s
	spi
	jmp l2
	count t, c0+2
	rpa
	jmp c0

l2,	cks
	swap
	and (220000
	sza i
	jmp l2

l5,	ral 1s
	spa
	jmp red
	lac po
	add b0
	sad (pe
	law pb
	dac po
	lio i po
	sma
	ril 9s
	ppa
	sub pi
	sma
	sub (pe-pb
          
                                                                 
	sad (-2
	jmp dun
	lio a2
	spi i
	sas (-20
	jmp l2
	move a1, a2
	rpa
	jmp l2

red,	rrb
a2,	xx
	jsp pun
	law 1
	add pi
	sub po
	sza
	sub (pe-pb
	lio a3
	sza i
a3,	dio a2
	jmp l2

pun,	dap px
	dio .t1
	lac t1
	szs 30
	jmp rd6
	sza i 10
	jmp rd1
rd6,	sza i
	jmp rd8
	add (rar
	dac rd3
	rar 7s
	spa
	jmp px
	law 525
rd3,	xx
	sma 10
	hlt
	sma i 30
	jmp rd1
	lac t1
rd8,	xor (200
	jmp .+2
rd1,	lac t1
	szs 20
	and (177
	swap
	lac pi
	spa
	jmp pq
pq1,	ril 9s
	dio i pi
	add b0
	sad (pe
	law pb
	dac pi
	lio t1
px,	jmp .

pq,	lac i pi
	rcl 9s
	lac pi
	jmp pq1

pi,	pb
po,	pb

variables
constants
pb,

start beg
          
                                                                                                                                                                                                              qq
o
j