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

comment

DMPSAT.SAI is a debugging tool for D2D.
Reads SAT.FIL which is dumped by D2D and writes SAT.LST
which is like the RIPOFF /PS switch output.

;

begin "dmpsat"
define crlf_"('15 & '12)";
define tab_"('11)";
boolean entererror,lookerror;
integer i,j,k,sateof,evenrows,nsatw,wordsleft;

open(1,"dsk",'10,5,0,0,0,sateof); comment Dode I/O;
lookup(1,"sat.fil",lookerror);
if lookerror then usererr(0,0,"? lookup failure.");
open(2,"dsk",0,0,5,0,0,0); comment For writing SAT.FIL contents in ASCII;
enter(2,"sat.lst",entererror);
if entererror then usererr(0,0,"? enter failure.");

setformat(-12,0);
outstr("Enter the number of words per SAT block (decimal).
N.SATW in D2D has this value; use DDT to obtain it.
*");
NSATW_cvd(inchwl);

evenrows_nsatw DIV 8; comment 8 words per row, just like ripoff's /PS;
wordsleft_nsatw - (evenrows*8);
do	begin "read one sat block"
	if not sateof then for i_1 step 1 until evenrows do
		begin
		for j_1 step 1 until 8 do out(2,cvos(wordin(1)) & " ");
		out(2,crlf);
		end;
	if not sateof then for i_1 step 1 until wordsleft do
		out(2,cvos(wordin(1)) & " ");
	out(2,crlf & crlf);
	end   "read one sat block"
until sateof;
close(1); close(2);
end   "dmpsat";