.ref-Research-V6/usr/source/fort/fx/fxx.s

/
/

/ 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