<mdl.int>/bufmod.mid.4

   1 TITLE BUFMOD BUFFER MODULE
   2
   3 RELOCA
   4
   5 ; HERE TO DEFINE MUDDLES BUFFER SPACE
   6
   7 .GLOBAL STRBUF,STRPAG
   8
   9 HERE==$.+1777
  10
  11 .LOP ANDCM HERE 1777
  12
  13 STRBUF==.LVAL1
  14 .LOP <ASH @> STRBUF <,-10.>
  15 STRPAG==.LVAL1
  16
  17 END
  18 \f\ 3\ 3\ 3\ 3