Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!YSUB.BITNET!SR010504
From: SR010504@YSUB.BITNET
Newsgroups: comp.lang.asm370
Subject: Communications using virtual CTCA
Message-ID: <8912090212.AA05327@brazos.rice.edu>
Date: 7 Dec 89 18:38:59 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List <ASM370%UCF1VM.BITNET@ricevm1.rice.edu>
Distribution: inet
Organization: The Internet
Lines: 49

Hello,

 I'm having trouble using CTC I/O.  The program below is modified to work
at both ends of the adapter (SEND/REC), but I'm not able to receive any
data at all.  What am I doing wrong?.  Again, many thanks to Joe Morris
for his help on CTC I/O.


Many thanks in advance .....Kev
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
X        CSECT
         REGEQU
CALLENV  EQU       13
CTCA     EQU       X'444'
         STM       R14,R12,12(CALLENV)
         LR        R12,R15
         USING     X,R12
         LA        R15,OWNENV
         ST        R15,8(CALLENV)
         ST        R13,OWNENV+4
*
         LA        R4,CPROG
         DMSKEY    NUCLEUS
         USING     NUCON,R0
         ST        R4,CAW
         DMSKEY    RESET
*
         CLRIO     CTCA
WAIT0    TIO       CTCA           SEE IF CTCA IS READY
         BNZ       WAIT0          NO, STILL BUSY
         SIO       CTCA           SEND DATA
WAIT1    TIO       CTCA
         BNZ       WAIT1          IF NOT, WAIT SOME MORE
*
*        WRTERM    DATA,12
         L         R13,OWNENV+4
         LM        R14,R12,12(CALLENV)
         XR        R15,R15
         BR        R14
*
OWNENV   DS        18F
*PROG    DC        X'05',AL3(0),X'60',X'FF',H'1'           CLEAR CH
CPROG    DC        X'01',AL3(DATA),X'20',X'80',AL2(12)     AND THEN
DATA     DC        C'ABCDEFGHIJKL'                         REC/SEND
*                                                          DATA
         LTORG
         NUCON
         END     X
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=