out8.txt

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

input file name(PL/0 program file)?   test8.pl0
list object code  ?y
   0 const a=10;
   1 var  b,c;
   1 procedure  p;
   1  var  d;
   2  procedure  q;
   2    const e=5;
   3    var  f;
   3    procedure  r;
   3      var  g;
   4      begin  
   5        g:=a+e;  f:=g;   write(g)  
  13      end;
   4  int    0    4
   5  lit    0   10
   6  lit    0    5
   7  opr    0    2
   8  sto    0    3
   9  lod    0    3
  10  sto    1    3
  11  lod    0    3
  12  opr    0   14
  13  opr    0   15
  14  opr    0    0
  15   begin  call r;
  17     write(f); f:=a+e*f;write(f,d)
  30   end;
  15  int    0    4
  16  cal    0    4
  17  lod    0    3
  18  opr    0   14
  19  opr    0   15
  20  lit    0   10
  21  lit    0    5
  22  lod    0    3
  23  opr    0    4
  24  opr    0    2
  25  sto    0    3
  26  lod    0    3
  27  opr    0   14
  28  lod    1    3
  29  opr    0   14
  30  opr    0   15
  31  opr    0    0
  32  begin  
  33   d:=a+b;  write(d);  call  q
  41  end;
  32  int    0    4
  33  lit    0   10
  34  lod    1    3
  35  opr    0    2
  36  sto    0    3
  37  lod    0    3
  38  opr    0   14
  39  opr    0   15
  40  cal    0   15
  41  opr    0    0
  42 procedure s;
  42   begin call p; b:=-10; write(b) end;
  43  int    0    3
  44  cal    1   32
  45  lit    0   10
  46  opr    0    1
  47  sto    1    3
  48  lod    1    3
  49  opr    0   14
  50  opr    0   15
  51  opr    0    0
  52 begin
  53   b:=8; read(c); 
  57   while c>0 do 
  61    begin write(b); call s; b:=b+c; write(b); read(c) end;
  75   call p
  76 end.
  52  int    0    5
  53  lit    0    8
  54  sto    0    3
  55  opr    0   16
  56  sto    0    4
  57  lod    0    4
  58  lit    0    0
  59  opr    0   12
  60  jpc    0   75
  61  lod    0    3
  62  opr    0   14
  63  opr    0   15
  64  cal    0   43
  65  lod    0    3
  66  lod    0    4
  67  opr    0    2
  68  sto    0    3
  69  lod    0    3
  70  opr    0   14
  71  opr    0   15
  72  opr    0   16
  73  sto    0    4
  74  jmp    0   57
  75  cal    0   32
  76  opr    0    0
start pl0
?2
       8

      18

      15

      15

      85
      18

     -10

      -8

?5
      -8

       2

      15

      15

      85
       2

     -10

      -5

?0
       5

      15

      15

      85
       5