|
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: 2688 (0xa80)
Types: TextFile
Names: »LNKDF3.BAK«
└─⟦2079929d2⟧ Bits:30009789/_.ft.Ibm2.50006583.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »LNKDF3.BAK«
└─⟦243948191⟧ Bits:30009789/_.ft.Ibm2.50007349.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »LNKDF3.BAK«
(******************************************************************************)
(* *)
(* Copyright (1985) by Metanic Aps., Denmark *)
(* *)
(* Author: Lars Gregers Jakobsen. *)
(* *)
(******************************************************************************)
PROCEDURE TSTnmt(Inx: NameTableIndexType
);
VAR
i : 0..9;
BEGIN (*TSTnmt*)
write(TestOut, 'NMTÆ', inx:1
, ';../', CurrentNameTableIndex:1,'Å=(' );
FOR i := 0 TO 7 DO
IF (Inx + i) IN (.1..CurrentNameTableIndex.) THEN
TSTasc( NameTable(. Inx+i .) )
ELSE
write(TestOut, '-');
write(TestOut, '/');
IF Inx IN (.1..CurrentNameTableIndex.) THEN
TSThex( NameTable(. Inx .) )
ELSE
write(TestOut, '--');
FOR i := 1 TO 7 DO
BEGIN
write(TestOut, '-');
IF (Inx + i) IN (.1..CurrentNameTableIndex.) THEN
TSThex( NameTable(. Inx+i .) )
ELSE
write(TestOut, '--');
END;
writeln(TestOut, ')' )
END; (*TSTnmt*)
PROCEDURE TSTsbt(Inx: SymbolTableIndexType
);
BEGIN (*TSTsbt*)
WITH SymbolTable(.Inx.) DO
BEGIN
IF NameRef <> 0 THEN
write(TestOut, 'SBTÆ', Inx:1
, '/', LatestInsert:1
, '/', CurrentSymbolCount:1
, 'Å=(Module#=', ModuleNo:1, ' '
, 'NameRef=', NameReference:1, ' '
, 'SortLink=', SortLink:1, ')'
)
ELSE
write(TestOut, 'SBTÆ', Inx:1
, '/', LatestInsert:1
, '/', CurrentSymbolCount:1
, 'Å=(Module#=--', ' '
, 'NameRef=', NameReference:1, ' '
, 'SortLink=--', ')'
)
END
END; (*TSTsbt*)
(* *)
(* *)
(******************************************************************************)
«eof»