MACRO                                                          00001000
&LBL     DIAG  &R1,&R2,&CODE                                            00002000
&LBL     DC    0H'0',X'83',AL.4(&R1,&R2),Y(&CODE)                       00003000
         MEND                                                           00004000