Return to prime.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Power 6/32 Unix version 1.21

	common ifld(400),ipc,ipb,ipa,inextb
	common ifr,inextc,iresta,irestb,iquot,iaccb
	common iacca,ipb2,ipa2,ilp2,ibufa,ibufb
	read (5,1,end=2) ifld
	write(6,1)ifld
1	format(i10)
2	ipa=8
	ipb=1
	ipc=14
	inextb=8
	ifr=0
	call ovlay
	write(6,131)
131	format('back')
	if (ifr) 21,21,31
21	write(6,3)ifld
3	format(i10)
	go to 4
31	write(6,32)
32	format('illegal overlay')
4	end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.