out10.txt

pl0的几个小程序 老师给的 很简单 共享下

input file name(PL/0 program file)?   test10.pl0
list object code  ?y
   0 var a,b,c;
   1 begin
   2  read(a,b,c);
   8  while a#0 do
  12   begin
  12   if b#0 then write(a,b,c);
  23   read(a,b,c)
  29   end
  29 end.
   1  int    0    6
   2  opr    0   16
   3  sto    0    3
   4  opr    0   16
   5  sto    0    4
   6  opr    0   16
   7  sto    0    5
   8  lod    0    3
   9  lit    0    0
  10  opr    0    9
  11  jpc    0   30
  12  lod    0    4
  13  lit    0    0
  14  opr    0    9
  15  jpc    0   23
  16  lod    0    3
  17  opr    0   14
  18  lod    0    4
  19  opr    0   14
  20  lod    0    5
  21  opr    0   14
  22  opr    0   15
  23  opr    0   16
  24  sto    0    3
  25  opr    0   16
  26  sto    0    4
  27  opr    0   16
  28  sto    0    5
  29  jmp    0    8
  30  opr    0    0
start pl0
?2
?3
?4
       2
       3
       4

?0
?1
?2