Hi all, I have a problem with this program, it doesnt work:

PRUEB    CSECT
         STM   14,12,12(13)
         USING *,11
         BALR  11,15
         LA    4,PUTCCW
         LA    5,X'009'
         LA    2,GETCCW
         LA    3,X'009'
         HNDINT SET,(CON1,EXIT,009,WAIT)
WRT      EQU   *
         DIAG  4,5,X'0058'
WAIT1    TIO   9
         BC    2,WAIT1
         WAITD CON1
RD       EQU   *
         LA    6,BUFFER
         LA    7,2047
LOOP     MVI   0(6),X'00'
         LA    6,1(6)
         BCT   7,LOOP
         DIAG  2,3,X'0058'
WAIT2    TIO   9
         BC    2,WAIT2
         WAITD CON1
         CLI   BUFFER,PF12
         BE    EXIT
         CLI   BUFFER,PF24
         BE    EXIT
         B     WRT
EXIT     LM    14,12,12(13)
         LA    15,0
         HNDINT CLR,(CON1)
         BR    14
PANEL    DC    X'C2'
         DC    X'11D1601D60'
         DC    C'HELLO, WORLD'
LPANEL   EQU   *-PANEL
PUTCCW   DC    X'29',AL3(PANEL),X'20',X'C0',AL2(LPANEL)
GETCCW   DC    X'2A',AL3(BUFFER),X'20',X'80',AL2(2048)
BUFFER   DS    CL2048
PF12     EQU   X'7C'
PF24     EQU   X'4C'
         END

 I hope someone can help me. Thanks in advance.

Roberto.