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 CTCIOTROTH@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