                                                                           utility system 15 july 66
/put on field 25 with id
define	fetch fd,da,wc,ca,ent
	dac ent-2
	dzm ent-1
	lio (da
	dia
	lio (fdx10000+wc
	law ca
	jmp ent-2
	termin

7600/

u,	iot 5277	/tsf
	lem
	lat
	and (7
	add (t
	dap .+2
	lac (dcc
	jmp i .

t,	pos
	ddt
	no
	no
	no
	et
	ree
	ts

no,	hlt clc cli 7-opr-opr
	jmp u

pos,	fetch 22,0,0,0,4	/entry at 4
ddt,	fetch 21,0,0,0,3524	/entry in
et,	fetch 21,0,3100,0,4	/entry at 4
ree,	fetch 21,0,3100,0,5	/entry at 5

ts,	cli
	dia
	lio (240000
	lac (70000
	dcc
	jmp ts
	eem
	jmp i (70006

constants
start no
                
                                                                                                                            
