Google
 

Trailing-Edge - PDP-10 Archives - bb-m403a-bk - to11q.ddt
There are 2 other files named to11q.ddt in the archive. Click here to see a list.
""COMMAND FILE TO DUMP THE TO11Q"
""DAN DEUFEL"

0<ZZ:
C

""TO11Q::"TO11Q/Q<AA:
%IF EQ AA %EMPTY
%LOOP:


""ADDRESS OF CURRENT NODE::"CAA=""NUMBER OF BYTES IN NODE::"AA+2/Q<EE:
""POINTER TO NEXT NODE::"AA/Q<BB:""FUNCTION::"1BAA+4/Q<CC:
""BLOCK SIZE::"1BAA+5/""DEVICE TYPE::"CAA+6/""DEVICE NUMBER::"1BAA+10/
CC&377<CC:CC-4<DD:
%IF NE DD %NCHK1

""LINE/CHARACTER DATA::"1TAA+12/

%GOTO %NEXT1
%NCHK1:
CC-3<DD:
%IF NE DD %NEXT1
EE-12<WW:

""STRING DATA::"WWTAA+12/

%NEXT1:
BB<AA:
ZZ+1<ZZ:
%IF NE AA %LOOP


""TOTAL NUMBER OF NODES IN THE TO11Q::"C12RZZ=


%GOTO %END


%EMPTY:


""THE TO11Q IS EMPTY"


%END: