SR010504@YSUB.BITNET (12/08/89)
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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=