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

   1: ; Copyright (c) 1981 Harvard-Radcliffe Student Timesharing System
   2: ; Science Center, Harvard University
   3: 
   4:         .page
   5:         .list   bin,bex,com,md,mc,me,cnd
   6:         .title  header
   7:         .psect  errorm con
   8:         .globl  headr
   9: headr:
  10: 
  11: .macro  makdate date
  12:         x =* -1
  13:         .irp    c,<date>
  14:                 x =* x+1
  15:                 .if     eq,x-1
  16:                         .if     eq,xfer
  17:                                 .ascii /AM110 Lisp /
  18:                          .iff
  19:                                 .ascii /Environment Transfer Lisp /
  20:                         .endc
  21:                         .byte c'&0377
  22:                         .if     ne,<c'/400>&377
  23:                                 .byte <c'/400>&377
  24:                         .endc
  25:                 .endc
  26:                 .if     eq,x-2
  27:                         .ascii  ?/'c'/?
  28:                 .endc
  29: 
  30:                 .if     eq,x-5
  31:                         ii=* -1
  32:                         .irpc   cc,<'c'>
  33:                                 ii =* ii + 1
  34:                                 .if     ge,ii-2
  35:                                          .ascii /'cc'/
  36:                                 .endc
  37:                         .endr
  38:                 .endc
  39: 
  40:         .endr
  41: 
  42:         .byte   0
  43:         .even
  44:         .end
  45: .endm
  46: 
  47: 
  48:         jan =* '1
  49:         feb =* '2
  50:         mar =* '3
  51:         apr =* '4
  52:         may =* '5
  53:         jun =* '6
  54:         jul =* '7
  55:         aug =* '8
  56:         sep =* '9
  57:         oct =* <'0 * 400> + '1
  58:         nov =* <'1 * 400> + '1
  59:         dec =* <'1 * 400> + '2