UNIX 6th Ed. - /usr/source/tmg/tmgc.s

   1: / tmg tables and global definitions
   2: 
   3: / in addition to these definitions each routine
   4: / follows the convention
   5: / f = stack frame pointer during parse and translation
   6: / g = stack frame end during parse
   7: / i = interprested instruction counter during parse and translation
   8: 
   9: .globl tables
  10: .globl x,si,j,k,n,g1,env
  11: .globl ek,ek.fs,ep,ep.fs,fs
  12: .globl lptr,sptr,rptr
  13: .globl outb,outt,outw
  14: .globl stkt,stkb,stke
  15: .globl ktat,ktab
  16: .globl input,cfile,lfile,dfile,ofile
  17: 
  18: / parse stack frame layout
  19: / 0 is previous frame pointer
  20: / return address in (sp)
  21: x = 2.  /exit bit, nonzero at end of rule
  22: si = 4. / save location for instruction counter
  23: j = 6.  / input cursor counts characters
  24: k = 8.  / ktable water mark, last use location relative to base
  25: n = 10. /address of ignored character class
  26: env = 12.       / frame pointer for static environment
  27: g1 = 14.        / frame length during parse
  28: 
  29: /symbol table entry layout
  30: /word 0 is for customer
  31: lptr=2. /index of next entry on tree to left
  32: rptr=4. /index of next entry to right
  33: sptr=6. /first character of string in this entry
  34:                 /next char is in 7, etc
  35: 
  36: / translation frame layout
  37: / used as ek(f), ep(f), etc
  38: / x and si have same meaning as in parse stack frame
  39: / return address in (sp)
  40: ek = 0  / k environment, frame where bunlde address is in si
  41: ep = 6  / p environment, frame where si points to parameter list
  42: fs = 10 / frame size
  43: ek.fs = ek+fs   / k environment in next frame
  44: ep.fs = ep+fs   / p env in next frame
  45: 
  46: .data
  47: 
  48: tables = .      /marks break between routines and tables
  49: 
  50: outt = 64.      / output buffer top
  51: stkt = 800.     /stack top for (f), not for (sp)
  52: ktat = 1200.    / k table top
  53: 
  54: 
  55: input: -1       / stream number of input
  56: cfile: 1        / stream number of current output
  57: lfile: 1        / last current output
  58: dfile: 2        / diagnostic file
  59: ofile: 1        /output file
  60: 
  61: 
  62: outw: 0 / output write pointer, number of chars in buffer
  63: .bss
  64: outb: .=.+outt  /output buffer
  65: 
  66: 
  67: 
  68: ktab: . = .+ktat        / contains translation rules that have been bundled
  69: 
  70: stkb: . = .+stkt        / stack, (f) ponts into this
  71: stke = .        /stack end

Defined functions

Defined variables