executive routine 10 july 1966 psf=iot 0077 bef=iot 0177 bff=iot 0277 rpf=iot 0377 rpn=iot 0477 rcn=iot 0577 lar=iot 0677 psn=iot 1077 ben=iot 1177 bfn=iot 1277 lpf=iot 1377 spn=iot 1477 scn=iot 1577 ad1=iot 1677 rsb=iot 2077 sbr=iot 2577 srw=iot 2677 sei=iot 2777 sps=iot 3077 sbe=iot 3177 sbf=iot 3277 sti=iot 3377 sdl=iot 3477 siw=iot 3577 sxw=iot 3677 rbe=iot 3777 rsn=iot 4077 rsf=iot 4177 srs=iot 4277 lqn=iot 4377 soq=iot 4477 la2=iot 5077 tsn=iot 5177 tsf=iot 5277 lbe=iot 5577 usn=iot 5677 usf=iot 5777 ldc=iot 6077 tln=iot 6177 tlf=iot 6277 ncb=12 /size of typewriter buffer ewv=5 /restart level npb=140 /punch buffer size pwm=30 /restart level rwm=40 /reader restart level nuf=20 /number of user fields 3/ add . dap . 1 jmp . /buffers b, tsn /initial entry tlf lem law 5000 sut, lia lar scn ben bff psf spn ben bff add (xct sas (5001 jmp sut rsf usf cli lqn lbe lpf jmp par constants b 2 4xncb 1 npb/ erb, /service io srv, dap sr1 srw srr, skp /skp i if reader running jmp sr0 rrb rip, lac . ral 8s rcr 8s dac i rip rpa-i idx rip sad (lac erb lac (lac b dac rip lio c1 dio rrs /buffer not empty sub rop sza i dio srr /full, shut off reader sma sub (erb-b sad (-rwm rsn /nearly full, restart user srw xct srr jmp sr4 jmp srr 2 sr0, rpn sni i jmp sr5 rcn sni sr1, jmp . jsp sat sps jmp sr2 sti jmp sr3 jsp if0+1 psf sr2, tyi jsp itf jmp sr4 sr3, jsp ite tyo jmp sr4 sr5, jsp sat jsp ite ppa sr4, idx sr1 jmp sr1 /set up console or punch buffer index sat, dap sa1 cla rcl 4s add (bop-1 dap ie1 add (bip-bop dap if1 add (bew-bip dap ie2 add (bor-bew dap it1 dap it2 idx it2 sa1, jmp . /index and test if buffer empty ite, dap ie7 lac i ie1 dap .+2 law 377 and . lia ie1, idx bop it2, sad bor+1 it1, lac bor dac i ie1 ie2, sad bew bff sad i if1 ben ie7, jmp . /index and test if buffer full itf, dap if7 lac i if1 dap . 1 lac . rcr 8s ral 8s dac i .-3 bef if1, idx bip sad i it2 lac i it1 dac i if1 sad i ie1 bfn idx i ie2 sad i it2 lac i it1 dac i ie2 if7, jmp . /clear typewriter buffer if0, psn dap if3 bff lac i if1 dac i ie1 if3, jmp . /buffer pointer table bop, z=0 b+z z=z+1 /1 b+z z=z+ncb /2 b+z z=z+1 /3 b+z z=z+ncb /4 b+z z=z+ncb /5 b+z z=z+ncb /6 b+z z=z+1 /7 b+z z=z+npb /10 (punch) bip, z=0 b+z z=z+1 /1 b+z z=z+ncb /2 b+z z=z+1 /3 b+z z=z+ncb /4 b+z z=z+ncb /5 b+z z=z+ncb /6 b+z z=z+1 /7 b+z z=z+npb /10 (punch) bew, z=0 b+z z=z+1 /1 b+z+ncb-ewv+1 z=z+ncb /2 b+z z=z+1 /3 b+z+ncb-ewv+1 z=z+ncb /4 b+z+ncb-ewv+1 z=z+ncb /5 b+z+ncb-ewv+1 z=z+ncb /6 b+z z=z+1 /7 b+z+npb-pwm+1 z=z+npb /10 (punch) bor, z=0 b+z z=z+1 /1 b+z z=z+ncb /2 b+z z=z+1 /3 b+z z=z+ncb /4 b+z z=z+ncb /5 b+z z=z+ncb /6 b+z z=z+1 /7 b+z z=z+npb /10 (punch) b+z rb, law rb1 /rpb jmp . 2 ra, law ra1 /rpa xct i rr0 nop dap rab rsf rr0, xct . jmp rr8-1 rpa-i /set up law i 3 dac r00 lac c1 dac i rr0 lac c2 dac rrs /buffer empty dac srr /reader running law b dap rip dap rop lio c2 rr8, dio res jsp srv nop lio c1 dio rs1 /clear rs1 switch rrs, skp i /skp i if buffer empty jmp rop xct res /empty jmp rs2 /rs1 entry law 20 /normal entry siw i jmp dms lio (jmp rr9 dio rs1 jmp dmr rop, lac . dac t lio c2 idx rop sad (lac erb lac (lac b dac rop sub rip sza i dio rrs /buffer empty sma sub (erb-b sad (-rwm dio srr /buffer nearly empty lio t rab, jmp . /rpa-rpb switch ra1, cla>>05<>05<>05<