Rename the tape control program to tapectl
This commit is contained in:
parent
6c2f866b01
commit
be38167923
|
@ -96,8 +96,8 @@ and an emulated punched tape reader and punch with the arguments
|
|||
-dprinter and -dtape respectively. The printer is mapped to address FFFE
|
||||
and the tape reader and punch to FFFD. The printer prints into
|
||||
/dev/usb/lp0 and the tape files read from and punched to are (re)set
|
||||
using the program tape. If you wish to use a different setup you have to
|
||||
modify the code yourself.
|
||||
using the program tapectl. If you wish to use a different setup you have
|
||||
to modify the code yourself.
|
||||
|
||||
Initial Program Loader
|
||||
----------------------
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
program Tape;
|
||||
program TapeCtl;
|
||||
|
||||
{$MODE OBJFPC}
|
||||
|
||||
|
@ -6,22 +6,22 @@ uses SysUtils;
|
|||
|
||||
type
|
||||
//Tape file path and reset state
|
||||
TapeState = record
|
||||
Tape = record
|
||||
Path: shortstring;
|
||||
Reset: boolean;
|
||||
Pos: integer;
|
||||
end;
|
||||
|
||||
var
|
||||
Reader, Punch: TapeState; //States of the reader and punch
|
||||
State: file of TapeState; //File storing the states of the reader and punch
|
||||
Reader, Punch: Tape; //States of the reader and punch
|
||||
State: file of Tape; //File storing the states of the reader and punch
|
||||
DoRead, DoPunch: boolean; //Whether to reset the reader or the punch
|
||||
|
||||
begin
|
||||
|
||||
//Check whether to set the reader, the punch, or both
|
||||
if ParamCount <> 1 then begin
|
||||
writeln ('Usage: tape reader/punch/both');
|
||||
writeln ('Usage: tapectl reader/punch/both');
|
||||
halt;
|
||||
end;
|
||||
if ParamStr (1) = 'reader' then begin
|
||||
|
@ -37,7 +37,7 @@ begin
|
|||
DoPunch := true;
|
||||
end
|
||||
else begin
|
||||
writeln ('Usage: tape reader/punch/both');
|
||||
writeln ('Usage: tapectl reader/punch/both');
|
||||
halt;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue