Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!spool.mu.edu!sdd.hp.com!elroy.jpl.nasa.gov!decwrl!ucbvax!UCHDCI01.BITNET!SOADTMJA
From: SOADTMJA@UCHDCI01.BITNET
Newsgroups: comp.lang.asm370
Subject: help...
Message-ID: <9102261611.AA23018@ucbvax.Berkeley.EDU>
Date: 26 Feb 91 15:07:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List
              <ASM370@OHSTVMA.BITNET>
Distribution: inet
Organization: The Internet
Lines: 54


   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.
soadtmja@uchdci01.bitnet