Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!zaphod.mps.ohio-state.edu!brutus.cs.uiuc.edu!apple!agate!ucbvax!YSUB.BITNET!SR010504
From: SR010504@YSUB.BITNET
Newsgroups: comp.lang.asm370
Subject: VCTCA Communications
Message-ID: <8912150535.AA06740@brazos.rice.edu>
Date: 15 Dec 89 01:11:46 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: 53

Hi,

 I've posted my problem with CTC adapter communications.  Is there anyone that
understands how get I/O started through such a device?  The following code has
been been modified for communications on both ends of the adapter.  I'm hoping
someone will be able to see what I'm doing wrong or even better working sample
source.  I'm currently using REL5.  Many thanks in advance.

CTCIO    CSECT
         REGEQU
CALLENV  EQU       13
         STM       R14,R12,12(CALLENV)
         LR        R12,R15
         USING     CTCIO,R12
         LA        R15,OWNENV
         ST        R15,8(CALLENV)
         ST        R13,OWNENV+4
*
CTCA     EQU       X'333'
*        STH       R4,HWAIT+24         STORE CTCA ADDR IN HNDINT MACRO
*
* WAIT FOR AN INTERRUPT FROM THE CHANNEL ADAPTER
*
*WAIT    HNDINT SET,(CONS,ROUTINE,000,WAIT) RECV INTRPTS FROM CONS
*        WAITD     CONS                     WAIT FOR INTRPT FROM CONS
*        HNDINT    CLR,(CONS)               WHEN IT COMES, CLR INTRPTS
         LA        R4,CPROG
         DMSKEY    NUCLEUS
         USING     NUCON,R0
         ST        R4,CAW
         DMSKEY    RESET
         CLRIO     CTCA
*AIT0    TIO       CTCA                SEE IF CTCA IS READY
*        BNZ       WAIT0               NO, STILL BUSY
         SIO       CTCA                SEND DATA
*AIT1    TIO       CTCA
*        BNZ       WAIT1               IF NOT, WAIT SOME MORE
*        WRTERM    DATA,12
*
         L         R13,OWNENV+4
         LM        R14,R12,12(CALLENV)
         BR        R14
ROUTINE  EQU   *
         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
         NUCON
         END     CTCIO