f_listout.txt

本Delphi项目文件为本人在一个Pascal-s（子集）源代码基础上完成的。本人增加了类进行封装

    0  {$+}
    0  program test(input,output);
    0  var
    0  	a: boolean;
    0  begin     
    0  	  a:= true;
    3     	  write('(1)a=');
    5     	  write(a);
    7     	  
    7     	  a:=false;
   10     	  write('(2)a=');
   12     	  write(a);
   14     			  
   14  	  a:= true;
   17     	  write('(3)a=');
   19     	  write(a);
   21     	     	  
   21  
   21     
   21  end.



    identifiers  link   obj typ   ref nrm lev adr

28              27    3    0    2    1    0    0
29 a             0    1    3    0    1    1    5



blocks  last  lpar  psze  vsze 

   1       28    1    0    0
   2       29   28    5    6



arrays xtyp etyp eref low high elsz size




 code:

    0    LDA     0    1    5,
    1    LDC    24         1,
    2    STO    38           ,
    3    LDC    24         5,
    4    WRS    28         0,
    5    LOD     1    1    5,
    6    WRW    29         3,
    7    LDA     0    1    5,
    8    LDC    24         0,
    9    STO    38           ,
   10    LDC    24         5,
   11    WRS    28         5,
   12    LOD     1    1    5,
   13    WRW    29         3,
   14    LDA     0    1    5,
   15    LDC    24         1,
   16    STO    38           ,
   17    LDC    24         5,
   18    WRS    28        10,
   19    LOD     1    1    5,
   20    WRW    29         3,
   21    HLT    31           ,

Starting address is     0