Trailing-Edge
-
PDP-10 Archives
-
tops10and20_integ_tools_v9_3-aug-86
-
tools/crc/browse/brzblk.for
There are no other files named brzblk.for in the archive.
c this file is the include file 'brzblk.for' for browse.for
implicit integer (a-z)
c
c define the offsets in list from count
c
parameter (mapslf=1,name=2,filnam=3,numdad=4,numson=5)
c
c define the sizes of arrays etc.
c
c 11O85 parameter (lstsiz=5000,mapsiz=700,txtsiz=15000,maxrel=40)
parameter (lstsiz=7500,mapsiz=1000,txtsiz=21000,maxrel=40)
c
c define the alphabet
c
parameter (a=65,b=66,c=67,d=68,e=69,f=70,g=71,h=72,i=73)
parameter (j=74,k=75,l=76,m=77,n=78,o=79,p=80,q=81,r=82)
parameter (s=83,t=84,u=85,v=86,w=87,x=88,y=89,z=90)
parameter (query=63,escape=27,opsqbr=91,space=32,cntle=5)
parameter (uparow=-1,dwnarw=-2,ritarw=-3,lftarw=-4)
parameter (tty=5,vt100=-1,vt52=1)
c
c common blocks, dump is for writting out the data file, x used in GC
c
character text*(txtsiz),xtext*(txtsiz),wanted*80
dimension dump(lstsiz+mapsiz+5)
common /link/list(lstsiz),map(mapsiz),start,ffslot,empty,
+ txtspa,fftext
common /words/text,wanted
common /xlink/xlist(lstsiz)
common /xwords/xtext
logical edting,wizard
common /flags/place,input,edting,wizard,luklen,lukher
common /displa/screen(maxrel*4),scrlev(maxrel*4),stalev(4),
+ endlev(4),curlev,pointa,pageno,depth,scrloc,genmax
equivalence (dump(1),list(1))
c
c map(place) place +
c list v count
c -------------------------------------------------------------------------
c |count|map |name|file|number |number |f 1|f 2|s 1|s 2|next | empty=
c | |self| |name|of dads|of sons| | | | |count| total
c -------------------------------------------------------------------------
c ^ v v v v ^
c map ^ v v v v<<<<< .>>>...^ ^
c ----------------------------------------------- ^
c |location| v v |loc | . ffslot-first free slot
c | | v v | | .
c -----------------------------------------------
c v<<<<<<<<<<<<</ v v ^
c text v v >>>>>...^
c ------------------------------------------------------------
c |node |0| |file |0| txtspa= total empty
c |name | | |name | |
c ------------------------------------------------------------
c ^
c fftext
c