|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »LYDE.PAS«
└─⟦692ac107c⟧ Bits:30005923 PolyPascal-80 V3.10 arbejdsdiskette 1
└─ ⟦this⟧ »LYDE.PAS«
program tone;
const
control =249;
data =250;
var
talfil:text;
a,b,i,d,e,p:INTEGER;
PROCEDURE nulstil;
BEGIN
for p:=0 to 15 do begin
port(.control.):=p;
if p=7 then a:=192 else a:=0;
port(.data.):=a;
END;
end;
PROCEDURE tone;
BEGIN
port(.control.):=6;
port(.data.):=0;
port(.control.):=0;
port(.data.):=b ;
END;
BEGIN (*MAIN-PROGRAM*)
nulstil;
BEGIN
assign(talfil,'b:fff.dat');
reset(talfil);
BEGIN
while not eof(talfil) do
begin
READ(talfil,i);
i:=b;
tone;
end;
close(talfil);
end;
end;
end.