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: