pro print_sst_rmap,rmap,file=file
if keyword_set(file) then openw,fp,file+'.scp',/get_lun else fp=-1

loc = 0
nbins = n_elements(rmap)
for i=0,nbins-1 do begin
  if loc ne rmap[i].start then message,'Bad Map'
  delta = rmap[i].delta
  bin = rmap[i].bin
  if delta ge 512 then message,'Delta too large; fix the code'
  printf,fp,delta,bin,format='("/isstmemfilldat ",z03," ",z02)'
  loc = loc+delta
endfor

if loc ne 4096 then message,'Map is wrong size'
;printf,fp,delta,bin,format='("REM  map size: ",z03," ",z02)'


if fp ne -1 then free_lun,fp

end