plm_a00.plm

在伟福环境下实现PLM51调用ASM51范例

PLM_A00: do;

$include(PLM_A00.DCL)

declare P1 byte at (90h) register;
declare Ptr1 word;

Writeln: procedure(Ptr) public;
  declare Ptr word;
  declare B based Ptr byte auxiliary;
  declare I byte;

  do while (B <> 0);
    if B = 0ah then do;
      call GotoXY(1, low(GetXY)+1);
    end; else call WriteChar(B);
    Ptr = Ptr+1;
  end;
end Writeln;

Readln: procedure(Ptr) public;
  declare Ptr word;
  declare B based Ptr byte auxiliary;
  declare Enter bit;
  declare I word;

  Enter = 0;
  I = 0;

  do while not Enter;
    P1 = P1 + 1;
    I = I+1;
    B = ReadKey;
    if B = 0dh then do;
      B = 0;
      Enter = 1;
    end;
    if B = 0 then do;
      call GotoXY(1, low(GetXY)+1);
    end; else call WriteChar(B);
    if I < 20 then Ptr = Ptr+1;
  end;
end Readln;

Start:
  Ptr1 = 0;
  call Refresh;
  call SetColor(15);
  call Readln(Ptr1);
  call Writeln(Ptr1);

  goto Start;


end PLM_A00;