MiniUnix/usr/source/fort/fx/fxx.s

Find at most related files.
including files from this version of Unix. 
/
/

/ fxx -- data segment definition

.data
.globl	holround
holround:	4

.bss

/ pass 1

.globl	dimu
dimu:	.=.+2

/ pass 2

.globl	eqvtab

/ pass 3 stuff

.globl	conu
.globl	dou
.globl	blockp
.globl	dotabp
.globl	dotab
.globl	edotab
.globl	functn
.globl	blocks

conu:	.=.+2
dou:	.=.+2
blockp:	.=.+2
dotabp:	.=.+2
dotab:	.=.+60.
edotab:
functn:	.=.+2

/ pass 4

.globl	negflg
.globl	repfact
.globl	contab
.globl	dattab

negflg:	.=.+2
repfact:.=.+2

/ general buffer

xbufsiz	= 2200.

.globl	xbuf

xbuf:	.=.+xbufsiz

eqvtab	= xbuf+518.	/ for pass 2

blocks	= xbuf		/ for pass 3

dattab	= xbuf+518.	/ for pass 4
contab	= xbuf+xbufsiz

/ for all passes

data:
	ibuf:	.=.+518.
	obuf:	.=.+518.
	tbuf:	.=.+518.
	line:	.=.+linsize
	eline:	.=.+4
	ifno:	.=.+2
	efno:	.=.+2
	errp:	.=.+2	/ init(errb)
	errb:	.=.+12.
	eerrb:		/ size 0 mod 4
	symtab:	.=.+symsize
	esymtab:
	esymp:	.=.+2	/ init(esymtab)
	symtp:	.=.+2
	namebuf:.=.+namsize
	enamebuf:
	namep:	.=.+2	/ init(namebuf)
.=.+40	/fake
	.=.+1		/ make odd
	symbuf:	.=.+smblsize	/ init(<_>)
	esymbuf:
	ch:	.=.+1
	ch1:	.=.+1
	progt:	.=.+2
	holquo:	.=.+2
	nxtaloc:.=.+2
	imptab:	.=.+[26.*2*2]	/ 26 letters, 2 alphabets, 2 bytes
	nerror:	.=.+2
	temp:	.=.+2
	functm:	.=.+2
edata:
dsize	=.-data