2.11BSD#431 - /usr/src/new/OLD/lisp11/atdat.m11

   1: ; Copyright (c) 1981 Harvard-Radcliffe Student Timesharing System
   2: ; Science Center, Harvard University
   3: .page
   4: 
   5:         .sbttl  data file for pdp-11 lisp forrest w howard, jr.
   6: 
   7: 
   8: ;this file has the primitive atoms.
   9: 
  10: .if     eq,nilas0
  11:         atom    nil,atmnil
  12:  .iff
  13:   .if   ne,multiseg
  14: 
  15:         ;here we are at case where we gotta put
  16:         ;nil in psect nil onto oblist, in correct place
  17: 
  18:          thash='n
  19:          thash=<<^c thash>& 'i>!<<^c 'i>&thash>
  20:          thash=<<^c thash>& 'l>!<<^c 'l>&thash>
  21:          thash=thash&hashm
  22:          datom=*0
  23:          atom1  \thash
  24:  .iff
  25:         atom    nil,atmnil
  26:   .endc
  27: .endc
  28:         atom    eof,aeof
  29:         atom    t,atrue
  30:         atom    e,atme
  31:         atom    <)>,rpara
  32:         atom    <(>,lpara
  33:         atom    <.>,perda
  34:         atom    <[>,lbkta
  35:         atom    <]>,rbkta
  36:         atom    <'>,asquote
  37:         atom    lambda, alambda
  38:         atom    nlambda,anlambda
  39:         atom    quote,aquote,,,xquote
  40:         atom    lpar,,lpara
  41:         atom    rpar,,rpara
  42:         atom    perd,,perda
  43:         atom    lbkt,,lbkta
  44:         atom    rbkt,,rbkta
  45: 
  46: 
  47: 
  48: 
  49: ;now the string definitions
  50: 
  51:         slp=lpara+6
  52:         srp=rpara+6