out9.txt

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

input file name(PL/0 program file)?   test9.pl0
list object code  ?y
   0 const m=8;
   1 var a;
   1 procedure p;
   1 var a,m;
   2 begin
   3  a:=5;
   5  m:=2;
   7  write(a*m)
  11 end;
   2  int    0    5
   3  lit    0    5
   4  sto    0    3
   5  lit    0    2
   6  sto    0    4
   7  lod    0    3
   8  lod    0    4
   9  opr    0    4
  10  opr    0   14
  11  opr    0   15
  12  opr    0    0
  13 begin
  14 write(m);
  17 a:=1;
  19 call p;
  20 write(a)
  22 end.
  13  int    0    4
  14  lit    0    8
  15  opr    0   14
  16  opr    0   15
  17  lit    0    1
  18  sto    0    3
  19  cal    0    2
  20  lod    0    3
  21  opr    0   14
  22  opr    0   15
  23  opr    0    0
start pl0
       8

      10

       1