%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