home *** CD-ROM | disk | FTP | other *** search
/ ftp.robelle3000.ai 2014 / 2014.06.ftp.robelle3000.ai.tar / ftp.robelle3000.ai / papers / nmdebug.macros next >
Text File  |  1995-08-10  |  11KB  |  138 lines
  1. wl "Robelle macros, version 07 Jun91"                                           
  2.                                                                                 
  3. /*  Macro:  Vfilepages                                                          
  4. /*                                                                              
  5. /*  Purpose:  Display the number of pages (and corresponding                    
  6. /*            sectors) of a file that are actually in memory.                   
  7. /*                                                                              
  8. /*  Warning:  Never use this macro on catalog.pub.sys.                          
  9. /*                                                                              
  10.                                                                                 
  11. mac vfilepages (filename:str) {                                                 
  12.    map !filename;                                                               
  13.    w !filename " contains "                                ;                    
  14.    w vainfo(mapva(!filename),"pages_in_mem"):"D"           ;                    
  15.    w " pages in memory = "                                 ;                    
  16.    w vainfo(mapva(!filename),"pages_in_mem")*#16:"D"       ;                    
  17.    w " sectors"                                            ;                    
  18.    wl                                                      ;                    
  19.    unmap(mapindex(!filename));                                                  
  20.    }                                                                            
  21.                                                                                 
  22. /*  Macro:  show_hpfopen                                                        
  23. /*                                                                              
  24. /*  Purpose:  Display the parameters to HPFopen.  Only valid at                 
  25. /*            entry into HPFopen.  Written by Stan Sieler.                      
  26.                                                                                 
  27. macro show_hpfopen {                                                            
  28.    loc args r26;                                                                
  29.    wl "# Parameters = ", r26:"#";                                               
  30.    wl "File#   @ ", r25;                                                        
  31.    wl "Status  @ ", r24;                                                        
  32.                                                                                 
  33.    loc itemnum r23;                                                             
  34.    loc args args - 2;                                                           
  35.    loc nth 0;                                                                   
  36.    loc spminus sp-#56+8;                                                        
  37.                                                                                 
  38.    while args >= 0 do                                                           
  39.    {                                                                            
  40.       loc nth nth + 1;                                                          
  41.       if nth > 1 then                                                           
  42.          loc itemnum [spminus];                                                 
  43.       w "Item #     ", nth:"DW2", " = ", itemnum:"#W2", ' ';                    
  44.       if itemnum = 0 then                                                       
  45.          wl                                                                     
  46.       else                                                                      
  47.       {                                                                         
  48.          loc itemval [spminus - 4];                                             
  49.          w ": ", itemval;                                                       
  50.          if (itemval >= $40000000) and (itemval <= $4f000000) then              
  51.             {                                                                   
  52.                loc parmval [itemval];                                           
  53.                w ' --> ', parmval;                                              
  54.                if itemnum = #51 then                                            
  55.                   w ' = ',parmval:"A", [itemval + 4]:"A"                        
  56.                else                                                             
  57.                if (parmval > 9) or (parmval < -9) then                          
  58.                   w ' (', parmval:'#', ')';                                     
  59.             }                                                                   
  60.          else                                                                   
  61.             w ' (', itemval:'#', ')';                                           
  62.          wl;                                                                    
  63.       };                                                                        
  64.       loc args args - 2;                                                        
  65.       loc spminus spminus - 8;                                                  
  66.    }                                                                            
  67. }                                                                               
  68.                                                                                 
  69. /*  Macro:  show_fopen                                                          
  70. /*                                                                              
  71. /*  Purpose:  Display the parameters to Fopen.  Only valid at                   
  72. /*            entry into Fopen.  Patterned after Stan's                         
  73. /*            show_hpfopen.  Written by David Greer.                            
  74.                                                                                 
  75. mac show_fopen {                                                                
  76.    w "Filename:   ";                                                            
  77.    dv r26,9,s;                                                                  
  78.    wl "Foptions:   ", r25:"#";                                                  
  79.    wl "Aoptions:   ", r24:"#";                                                  
  80.    wl "Recsize:    ", r23:"#";                                                  
  81.    wl "Userlabels: ", [sp-3a]:"#";                                              
  82.    wl "Blk factor: ", [sp-3e]:"#";                                              
  83.    wl "Numbuffers: ", [sp-42]:"#";                                              
  84.    wl "Filesize:   ", [sp-48]:"#";                                              
  85.    wl "Numextents: ", [sp-4a]:"#";                                              
  86.    wl "Initalloc:  ", [sp-4e]:"#";                                              
  87.    wl "Filecode:   ", [sp-52]:"#";                                              
  88. }                                                                               
  89.                                                                                 
  90. /*  Macro:  show_ffileinfo                                                      
  91. /*                                                                              
  92. /*  Purpose:  Display the parameters to ffileinfo. Only valid at                
  93. /*            entry into Ffileinfo.  Patterned after Stan's                     
  94. /*            show_hpfopen.  Written by Neil Armstrong.                         
  95.                                                                                 
  96. mac show_ffileinfo {                                                            
  97.    wl "Filenum   : ", r26:"#";                                                  
  98.    wl "itemnum1  : ", r25:"#";                                                  
  99.    wl "itemvalue1: ", r24:"#";                                                  
  100.    wl "itemnum2  : ", r23:"#";                                                  
  101.    wl "itemvalue2: ", [sp-34]:"#";                                              
  102.    wl "itemnum3  : ", [sp-36]:"#";                                              
  103.    wl "itemvalue3: ", [sp-3c]:"#";                                              
  104.    wl "itemnum4  : ", [sp-3e]:"#";                                              
  105.    wl "itemvalue4: ", [sp-44]:"#";                                              
  106.    wl "itemnum5  : ", [sp-46]:"#";                                              
  107.    wl "itemvalue5: ", [sp-4c]:"#";                                              
  108. }                                                                               
  109. /*  Macro:  show_dbinfo                                                         
  110. /*                                                                              
  111. /*  Purpose:  Display the parameters to DBINFO.  Only valid at                  
  112. /*            entry into DBINFO.  Patterned after Stan's                        
  113. /*            show_hpfopen.  Written by David Greer.                            
  114.                                                                                 
  115. mac show_dbinfo {                                                               
  116.    w  "Base:      ";   dv r26,7,s;                                              
  117.    w  "Qualifier: "; dv r25,4,s;                                                
  118.    w  "Mode:      "; dv r24,1,#,,2;                                             
  119.    wl "@Status:   ", r23:"$";                                                   
  120.    wl "@Buffer:   ", [sp-34]:"$";                                               
  121.    }                                                                            
  122.                                                                                 
  123. /*  Macro:  show_ffileinfo                                                      
  124. /*                                                                              
  125. /*  Purpose:  Display the parameters to ffileinfo. Only valid at                
  126. /*            entry into Ffileinfo.  Patterned after Stan's                     
  127. /*            show_hpfopen.  Written by Neil Armstrong.                         
  128.                                                                                 
  129. mac show_flabelinfo {                                                           
  130.    w  "Filename  : ";                                                           
  131.    dv r26,9,s;                                                                  
  132.    wl "Mode      : ", r25:"#";                                                  
  133.    wl "error     : ", r24:"#";                                                  
  134.    wl "itemnums  : ", r23:"#";                                                  
  135.    wl "itemvalues: ", [sp-34]:"#";                                              
  136.    wl "itemerrs  : ", [sp-38]:"#";                                              
  137. }                                                                               
  138.