crazyettin
/
Thingamajig
1
0
Fork 0
Code Issues Pull Requests Projects Releases 2 Wiki Activity

Correct some terminology

This commit is contained in:
CrazyEttin 2022-08-15 12:16:42 +03:00
parent 268bfcb843
commit cbea508d91
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
emulator.pas
View File

@ -14,7 +14,7 @@ var
Addr, IP, RP: word; //Address argument and instruction and return pointers Addr, IP, RP: word; //Address argument and instruction and return pointers
R: array [0 .. 3] of byte; //General-purpose registers R: array [0 .. 3] of byte; //General-purpose registers
Mem: array [0 .. $ffef] of byte; //Memory Mem: array [0 .. $ffef] of byte; //Memory
Prog{$ifdef printer}, Prn{$endif}{$ifdef tape}, TapeIn, TapeOut{$endif}: file of byte; //Program file, line printer, and punched tape reader and keypunch Prog{$ifdef printer}, Prn{$endif}{$ifdef tape}, TapeIn, TapeOut{$endif}: file of byte; //Program file, line printer, and punched tape reader and punch
{$ifdef tape} {$ifdef tape}
TapePos: integer; //Punched tape reader position pointer TapePos: integer; //Punched tape reader position pointer
{$endif} {$endif}
@ -127,13 +127,13 @@ begin
else if Op = 9 then R [X] := R [X] xor R [Y] else if Op = 9 then R [X] := R [X] xor R [Y]
//Load //Load
else if Op = $a then begin else if Op = $a then begin
//Dumb terminal input //Terminal input
if Addr = IO then begin if Addr = IO then begin
Ch := ReadKey; Ch := ReadKey;
write (Ch); //Local echo write (Ch); //Local echo
R [X] := byte (Ch); R [X] := byte (Ch);
end end
//Punched tape reader //Tape reader
{$ifdef tape} {$ifdef tape}
else if Addr = $fffd then begin else if Addr = $fffd then begin
assign (TapeIn, 'tapein'); assign (TapeIn, 'tapein');
@ -157,12 +157,12 @@ begin
end end
//Store //Store
else if Op = $b then begin else if Op = $b then begin
//Dumb terminal output //Terminal output
if Addr = IO then begin if Addr = IO then begin
Ch := ansichar (R [X]); Ch := ansichar (R [X]);
write (Ch); write (Ch);
end end
//Line printer //Printer
{$ifdef printer} {$ifdef printer}
else if Addr = $fffe then begin else if Addr = $fffe then begin
assign (Prn, '/dev/usb/lp0'); assign (Prn, '/dev/usb/lp0');
@ -174,7 +174,7 @@ begin
end; end;
end end
{$endif} {$endif}
//Punched tape keypunch //Tape punch
{$ifdef tape} {$ifdef tape}
else if Addr = $fffd then begin else if Addr = $fffd then begin
assign (TapeOut, 'tapeout'); assign (TapeOut, 'tapeout');

8
readme.md
View File

@ -93,11 +93,11 @@ Arbitrary devices can be mapped to the other reserved addresses.
The emulator can be compiled with support for a line printer at The emulator can be compiled with support for a line printer at
/dev/usb/lp0 with the argument -dprinter, and for an emulated punched /dev/usb/lp0 with the argument -dprinter, and for an emulated punched
tape reader and keypunch at tapein and tapeout respectively with -dtape. tape reader and punch at tapein and tapeout respectively with -dtape.
The printer is mapped to address FFFE in the emulator and the tape The printer is mapped to address FFFE in the emulator and the tape
reader and keypunch to FFFD. To reset the tape reader to the beginning reader and punch to FFFD. To reset the tape reader to the beginning of a
of a tape, for example to change the tape, read once with no file at tape, for example to change the tape, read once with no file at tapein.
tapein. If you wish to use a different setup you have to modify the code If you wish to use a different setup you have to modify the code
yourself. yourself.
Initial Program Loader Initial Program Loader