home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxx.s < prev   
Encoding:
Text File  |  1975-07-17  |  1.2 KB  |  101 lines
  1. /
  2. /
  3.  
  4. / fxx -- data segment definition
  5.  
  6. .data
  7. .globl    holround
  8. holround:    4
  9.  
  10. .bss
  11.  
  12. / pass 1
  13.  
  14. .globl    dimu
  15. dimu:    .=.+2
  16.  
  17. / pass 2
  18.  
  19. .globl    eqvtab
  20.  
  21. / pass 3 stuff
  22.  
  23. .globl    conu
  24. .globl    dou
  25. .globl    blockp
  26. .globl    dotabp
  27. .globl    dotab
  28. .globl    edotab
  29. .globl    functn
  30. .globl    blocks
  31.  
  32. conu:    .=.+2
  33. dou:    .=.+2
  34. blockp:    .=.+2
  35. dotabp:    .=.+2
  36. dotab:    .=.+60.
  37. edotab:
  38. functn:    .=.+2
  39.  
  40. / pass 4
  41.  
  42. .globl    negflg
  43. .globl    repfact
  44. .globl    contab
  45. .globl    dattab
  46.  
  47. negflg:    .=.+2
  48. repfact:.=.+2
  49.  
  50. / general buffer
  51.  
  52. xbufsiz    = 2200.
  53.  
  54. .globl    xbuf
  55.  
  56. xbuf:    .=.+xbufsiz
  57.  
  58. eqvtab    = xbuf+518.    / for pass 2
  59.  
  60. blocks    = xbuf        / for pass 3
  61.  
  62. dattab    = xbuf+518.    / for pass 4
  63. contab    = xbuf+xbufsiz
  64.  
  65. / for all passes
  66.  
  67. data:
  68.     ibuf:    .=.+518.
  69.     obuf:    .=.+518.
  70.     tbuf:    .=.+518.
  71.     line:    .=.+linsize
  72.     eline:    .=.+4
  73.     ifno:    .=.+2
  74.     efno:    .=.+2
  75.     errp:    .=.+2    / init(errb)
  76.     errb:    .=.+12.
  77.     eerrb:        / size 0 mod 4
  78.     symtab:    .=.+symsize
  79.     esymtab:
  80.     esymp:    .=.+2    / init(esymtab)
  81.     symtp:    .=.+2
  82.     namebuf:.=.+namsize
  83.     enamebuf:
  84.     namep:    .=.+2    / init(namebuf)
  85. .=.+40    /fake
  86.     .=.+1        / make odd
  87.     symbuf:    .=.+smblsize    / init(<_>)
  88.     esymbuf:
  89.     ch:    .=.+1
  90.     ch1:    .=.+1
  91.     progt:    .=.+2
  92.     holquo:    .=.+2
  93.     nxtaloc:.=.+2
  94.     imptab:    .=.+[26.*2*2]    / 26 letters, 2 alphabets, 2 bytes
  95.     nerror:    .=.+2
  96.     temp:    .=.+2
  97.     functm:    .=.+2
  98. edata:
  99. dsize    =.-data
  100.  
  101.