Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

comment

DMPMAP.SAI is a debugging tool of D2D.
It reads MAP.FIL which is dumped by D2D and writes an ASCII 
version of the map in MAP.LST.

;
begin "dmpmap"
define crlf_"('15 & '12)";
define tab_"('11)";
integer tmp,entries,entries2,mapeof,name,ext,oldcfp,newcfp,supufdcfp,nxtnod,blkuse,i;

open(1,"dsk",'10,5,0,0,0,mapeof);
lookup(1,"map.fil",0);
open(2,"dsk",0,0,5,0,0,0);
enter(2,"map.lst",0);
setformat(10,0);

	out(2,"1)file name 2)file extension 3)files in directory (where applicable) 4)block address on original pack 5)block address on target pack 6)blocks in file 7)block address on target pack of superior UFD 8)if a UFD, points to first file entry in map");
do	begin
	name_wordin(1);
	tmp_wordin(1);
	ext_ldb(point(18,tmp,17));
	ext_ext lsh 18;
	entries_ldb(point(18,tmp,35));
	oldcfp_wordin(1);
	newcfp_wordin(1);
	supufdcfp_wordin(1);
	nxtnod_wordin(1);
	blkuse_wordin(1);
	out(2,crlf);
	if equ(cv6str(ext),"UFD") then
	out(2,cvos(name) & cv6str(ext) & cvos(entries))
	else out(2,cvxstr(name) & " " & cvxstr(ext) & cvos(entries));
	out(2,cvos(oldcfp) & cvos(newcfp) & cvos(blkuse));
	out(2,cvos(supufdcfp) & cvos(nxtnod) & crlf);
	for i_1 step 1 until entries do
		begin
		name_wordin(1);
		tmp_wordin(1);
		ext_ldb(point(18,tmp,17));
		ext_ext lsh 18;
		entries2_ldb(point(18,tmp,35));
		oldcfp_wordin(1);
		newcfp_wordin(1);
		supufdcfp_wordin(1);
		nxtnod_wordin(1);
		blkuse_wordin(1);
		if equ(cv6str(ext),"UFD") then
		out(2,tab & cvos(name) & cv6str(ext) & cvos(entries2))
		else out(2,tab & cvxstr(name) & " " & cvxstr(ext) & cvos(entries2));
		out(2,cvos(oldcfp) & cvos(newcfp) & cvos(blkuse));
		out(2,cvos(supufdcfp) & cvos(nxtnod) & crlf);
		end;
	end
until	mapeof;
close(1); close(2);
end   "dmpmap";