begin 
include  "INC:UTIL.IMP"
constinteger  ramstart=16_1000, ramlim=16_4000,
              memstart1=16_800000, memlim2=16_900000
owninteger  count1=0, count2=0, count3=0, best=0, this=0
integer  i,memlim1,memstart2,thisstart,beststart
  *move d6,memlim1;  *move sp,memstart2
  memlim1 = memlim1-256
  for  i = ramstart,4,ramlim-4 cycle 
    count1 = count1+4 if  integer(i) = 16_AAAAAAAA
  repeat 
  for  i = memstart1,4,memlim1-4 cycle 
    if  integer(i) = 16_AAAAAAAA start 
      thisstart = i if  this = 0
      this = this+4;  count2 = count2+4
    else 
      if  this > best start 
        beststart = thisstart;  best = this
      finish 
      this = 0
    finish 
  repeat 
  for  i = memstart2,4,memlim2-4 cycle 
    count3 = count3+4 if  integer(i) = 16_AAAAAAAA
  repeat 
  write(count1,1);  write(count2,1)
  write(count3,1);  newline
  phex(beststart);  write(best,1);  newline
endofprogram