|
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: 1792 (0x700)
Types: TextFile
Names: »TESTHELP.BAK«
└─⟦ec7c10e12⟧ Bits:30009789/_.ft.Ibm2.50007351.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »TESTHELP.BAK«
(******************************************************************************)
(* *)
(* Formating procedures for test output *)
(* *)
(******************************************************************************)
FUNCTION hex_2(i: byte
): string_2;
CONST
hex_symbol: ARRAY(.0..15.) OF char = '0123456789ABCDEF';
BEGIN (* hex_2 *)
hex_2 := hex_symbol(.i div 16.) + hex_symbol(.i mod 16.)
END; (* hex_2 *)
PROCEDURE write_status(VAR test_out: text
; status: status_type
);
CONST
status_symbol: ARRAY(.status_type.) OF string(.8.) =
('succes '
,'failure '
,'empty '
,'exit '
,'fatal '
,'nomore '
,'eof '
);
BEGIN (* write_status *)
write(test_out, 'STAT: ',status_symbol(.status.))
END; (* write_status *)
PROCEDURE write_psn(VAR test_out: text
; psn: psn_type
);
(* psn printed as: "(xx-xx-xx-xx)" *)
BEGIN (* write_psn *)
write(test_out, '(', hex_2( psn(.rx3.) ):2 );
FOR i := rx2 DOWNTO rx0 DO
BEGIN
write(test_out, '-');
write(test_out, hex_2( psn(.i.) ):2 );
END;
write(test_out, ')' )
END; (* write_psn *)
«eof»