SR010504@YSUB.BITNET (12/15/89)
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
TROTH@RICEVM1.RICE.EDU (Rick Troth) (12/22/89)
What channel commands work with virtual CTCAs? I've tried READ (02) and WRITE (01) with little or no success. Rick Troth <TROTH@RICEVM1.RICE.EDU> ------------- Rice ONCS VM Systems Support
asjoshi@PHOENIX.PRINCETON.EDU ("Amit S. Joshi") (01/02/90)
In article <8912211843.AA15742@brazos.rice.edu> you write: > > What channel commands work with virtual CTCAs? >I've tried READ (02) and WRITE (01) with little or no success. > > Rick Troth <TROTH@RICEVM1.RICE.EDU> ------------- Rice ONCS VM Systems Support ified tape CCWS. VCTCA's only seem to support the following CCWS if you have not programmed the CTCA. NOP, READ and WRITE ( Ithink 03, 02 and 01). Hope that helps. I have asample program that I could send you if you needed it. -- Amit Joshi BITNET | Q3696@PUCC.BITNET USENET | {seismo, rutgers}\!princeton\!phoenix\!asjoshi "There's a pleasure in being mad... which none but madmen know!" - St.Dryden