大型机汇编（HLASM）之随时显示所有寄存器里的数值

         L    R6,4(R13)                        
         LA   R6,16(R6)                        
         LA   R7,12                           
LOOP     LA   R6,4(R6)                         
         MVC  FWORD,0(R6)                      
         UNPK DSPLY(9),FWORD(5)                 
         MVZ  DSPLY(8),=XL8'00'                
         TR   DSPLY(8),=CL16'0123456789ABCDEF' 
         OI   REGNUM 1,X'F0'                   
         WTO  MF=(E,WTOBUFF)                    
         PACK REGNUMP,REGNUM                 
         AP   REGNUMP,=P'1'                    
         UNPK REGNUM,REGNUMP                  
         OI   REGNUM 1,X'F0'                   
         BCT  R7,LOOP                        

FWORD    DS F 
         DS CL1
WTOBUFF  DC Y(16,0)
         DC C'R'
REGNUM   DC ZL2'0' 
         DC C':'
DSPLY    DS CL8 
         DS CL1
REGNUMP  DS PL2
SAVEAREA DS 18F

 

 

显示/打印结果如下:
R01:2F324A50
...
...
R12:12345678

 

Notes:
GPR  : general purpose register
HLASM: mainframe assembler

这里只是打印了R1--R12，如果想把剩下的也打印出来，读者可以拷过去稍做调整

有疑问请联系QQ349106216