DataMuseum.dk

top - metrics - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »JEKK.PAS«

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

TextFile

program test;

var
  i, q, valg    : integer;
  c		: char;
  res           : 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);
igen:
   for i := 1 to 500 do 
   begin
     if rdrstatus then 
      begin
         writeln('signal modtaget på porten !!! <--');
         read(aux,c);
      end else
      begin
         write('.');
      end;
   end;
   writeln;
   if keypress then
   begin
      writeln;
      writeln('programmes stoppes ...');
      goto ud;
   end;
   goto igen;
ud:
END.
«eof»