DataMuseum.dk

top - metrics - download

    Length: 1792 (0x700)
    Types: TextFile
    Names: »JK.PAS«, »JKBOX.PAS«

└─⟦d814f614c⟧ Bits:30008872 EDB Trænings- og Erhvervs Center / Almen Nyttig Data Service
    └─⟦this⟧ »JK.PAS« 
    └─⟦this⟧ »JKBOX.PAS« 

TextFile

program jk;

(* program .....: jk.pas
   udarbejdet af: john e.k. knudsen
   den .........: oktober 1988
*)

(* bemærk at CONFI skal være defineret for LINE med følgende værdier
   hastighed 1200 baud
   databit      7
   paritet   lige
*)

var
  i, q, valg    : integer;
  c		: char;
  res           : integer;
  teller        : integer;
  tegn          : integer;

label
  igen,
  ud;
  

function rdrstatus : boolean;
var res : byte;
begin
 code
  $2A,$01,$00,                 (*       LD   HL,(1)  *)
  $01,$4A,$00,                 (*       LD   BC,04AH *)
  $09,                         (*       ADD  HL,BC   *)
  $CD,*+7,                     (*       CALL L1      *)
  $32,RES,                     (*       LD   (RES),A *)
  $18,1,                       (*       JR   L2      *)
  $E9;                         (*  L1:  JP   (HL)    *)
                               (*  L2:               *)
  rdrstatus := (res > 0);
end;


BEGIN
(*
   read(aux,c);
*)
   writeln; writeln;
   writeln('--> programstart <--');
   writeln('tast return');
   read(valg);
   writeln('ok - så starter vi ...');
   teller := 0;
igen:
   for i := 1 to 500 do 
   begin
      if rdrstatus then 
      begin
         teller := teller + 1;
         write('signal modtaget på porten !!! --> ',teller);
         read(aux,c);
         tegn := ord(c);
         if tegn = 0   then writeln('blå  tast');
         if tegn = 192 then writeln('grøn tast');
         if tegn = 240 then writeln('gul  tast');
         if tegn = 252 then writeln('rød  tast');
      end;
   end;

   if keypress then
   begin
      writeln;
      writeln('programmes stoppes ...');
      goto ud;
   end;
   goto igen;
ud:
END.
«eof»