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