help... 
Author Message
 help...

   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.



Sat, 14 Aug 1993 23:07:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. help! f90.help help help help

2. ***HELP***HELP***NEED INFORMATION***HELP***HELP

3. HELP HELP HELP HELP

4. HELP HELP HELP HELP

5. Ord Function HELP Please HELP HELP HELP

6. help help help help!!!!!!!!!!!

7. (HELP (HELP (HELP (HELP))))

8. HELP: HELP: HELP: HELP: Online-manual on Expect

9. Help Help Help

10. TopSpeed - ODBC 3.1???? HELP HELP HELP

11. HELP - HELP - HELP

12. HELP HELP HELP - round function error

 

 
Powered by phpBB® Forum Software