|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1152 (0x480)
Types: TextFile
Names: »LNKDF3.PAS«
└─⟦3d1e6965e⟧ Bits:30009789/_.ft.Ibm2.50007347.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »LNKDF3.PAS«
└─⟦91467e717⟧ Bits:30009789/_.ft.Ibm2.50007348.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »LNKDF3.PAS«
PROCEDURE TSTnmt(Inx: NameTableIndexType
);
VAR
i : 0..9;
BEGIN (*TSTnmt*)
write(TestOut, 'NMTÆ', inx:1
, ';../', CurrentNameTableIndex:1,'Å=(' );
FOR i := 0 TO 7 DO
TSTasc( NameTable(. Inx+i .) );
write(TestOut, '/');
TSThex( NameTable(. Inx .) );
FOR i := 1 TO 7 DO
BEGIN
write(TestOut, '-');
TSThex( NameTable(. Inx+i .) )
END;
writeln(TestOut, ')' )
END; (*TSTnmt*)
PROCEDURE TSTsbt(Inx: SymbolTableIndexType
);
BEGIN (*TSTsbt*)
WITH SymbolTable(.Inx.) DO
BEGIN
write(TestOut, 'SBTÆ', Inx:1
, '/', LatestInsert:1
, '/', CurrentSymbolCount:1
, '/', CurrentUrsCount:1
, 'Å=(SectionNo=', Section:1, ' '
, 'NameRef=', NameReference:1, ' '
, 'SortLink=', SortLink:1, ')'
);
END
END; (*TSTsbt*)
«eof»