|
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: 5888 (0x1700)
Types: TextFile
Names: »VERSACON.BAK«
└─⟦398ae89d3⟧ Bits:30009789/_.ft.Ibm2.50007353.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VERSACON.BAK«
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 utility procedures *)
(* equal_16 *)
(* equal_psn *)
(* inc_psn *)
(* s_i_16 *)
(* s_i_32 *)
(* s_32_i *)
(* *)
(*$I VC-003.INC procedures for file I/O *)
(* position *)
(* get_current_block *)
(* get_block *)
(* open_c_file *)
(* *)
(*$I VC-004.INC procedures for printed reporting *)
(* print_header *)
(* print_dir *)
(* print_pre_file *)
(* print_post_file *)
(* print_footer *)
(* *)
(* procedures for operator dialogue *)
(* operator *)
(* *)
(* procedures for various file formats *)
(* *)
(* VC-005-0.INC contigouos NOT IMPLEMENTED *)
(* VC-005-1.INC sequential NOT IMPLEMENTED *)
(* VC-005-2.INC keyed isam - no duplicate keys NOT IMPLEMENTED *)
(* *)
(*$I VC-005-3.INC keyed isam - null keys - duplicate keys allowed *)
(* fsd_3 *)
(* fab_3 *)
(* *)
(* *** *)
(* *)
(*$I VC-006.INC procedures for reading directories *)
(* primary_entry (pde) *)
(* primary (pdb) *)
(* secondary_entry(sde) *)
(* secondary (sdb) *)
(* volume (vid) *)
(* *)
(* *)
(* *)
(******************************************************************************)
(******************************************************************************)
(* *)
(* MAIN PROGRAM BODY *)
(* *)
(******************************************************************************)
VAR
status: status_type;
BEGIN
test_init(input, output);
volume(status, lst, lst, input, output);
END.
«eof»