🚀 go-pugleaf

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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=