大型機彙編（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