|
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: 4480 (0x1180)
Types: TextFile
Names: »VERSACON.PAS«
└─⟦ec7c10e12⟧ Bits:30009789/_.ft.Ibm2.50007351.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VERSACON.PAS«
PROGRAM versacon;
(*
Program versacon benyttes til at konvertere et versados-filsystem
til et CP/M-filsystem. Versados-filsystemet forudsættes at foreligge
som en enkelt CP/M-fil, således at hver post i filen svarer til en
sektor i versados-filsystemet, og at disse forekommer i stigende
sektornummerorden.
*)
(******************************************************************************)
(* *)
(*$I a:testopt.pas test tools (standard) *)
(* *)
(*$I a:ioerrnum.pas definitions of turbo pascal i/o error codes *)
(* *)
(*$I MCTYPE.INC definitions of VersaDos symbol names *)
(* *)
(*$I VC-001.INC declarations of *)
(* global types *)
(* global constants *)
(* *)
(*$I TESTHELP.INC test tools (ad hoc) *)
(* *)
(*$I VC-002.INC procedures for file I/O *)
(* position *)
(* get_current_block *)
(* get_block *)
(* open_c_file *)
(* close_erase_c_file *)
(* *)
(*$I VC-003.INC utility procedures *)
(* equal_psn *)
(* inc_psn *)
(* *)
(*$I VC-004.INC procedures for printed reporting *)
(* print_header *)
(* print_dir *)
(* print_pre_file *)
(* print_post_file *)
(* *)
(*$I VC-005.INC ad hoc procedures *)
(* volume *)
(* operator *)
(* secondary *)
(* primary *)
(* isam_dup *)
(* var_segment *)
(* expand *)
(* get_length *)
(* *)
(* *)
(******************************************************************************)
(******************************************************************************)
(* *)
(* MAIN PROGRAM BODY *)
(* *)
(******************************************************************************)
VAR
status: status_type;
BEGIN
test_init(input, output);
volume(status, output, output, input, output);
END.
«eof»