大型机汇编（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