*
* The PRINT subroutine calls the print service to
* print MYBLK from the dump.
*
PRINT L     R15,ADPLBUF       Address of output buffer
         MVC   0(15,R15),=C'My Control Block' Fill output buffer
         L     R15,ADPLSERV     Load address of exit services router
         CALL  (15),((ABDPLPTR),CODEPRT) Invoke the print service
         LTR   R15,R15            Was the print service successful?
         BNZ   EXIT               No. End processing
CODEPRT  DC    A(ADPLSPRT)        Print service code
ABDPLPTR EQU   11                 General register 11
*-------------------------------------------------------------------
*        Define the format of the ABDPL addressed by R1 on input
*-------------------------------------------------------------------
         BLSABDPL