TITLE DTSCOM - Common Routines for DTS and DTR SUBTTL W. Nichols May, 1981 SEARCH JOBDAT,UUOSYM,SWIL,DTSPRM,MACTEN FTEXTRA==0 IFN FTEXTRA,SEARCH SCPAR EXTERNAL .ISCAN,.TYOCH ;ASSURE THAT SCAN COMES IN FOR LITTLES .REQUEST REL:SWIL EXTERNAL .LKWLD ;ASSURE THAT WILD COMES IN FOR E.LKEN .REQUEST REL:WILD .REQUEST REL:HELPER SALL .DIRECTIVE FLBLST ;DON'T GIVE ME CODE FOR ASCIZ ; This program conforms to the DTS specification version 1.1 ; published on 22 April 1981. ;Expand the INTERN/EXTERN macro from DTSPRM GLOBAL INTERNAL,EXTERNAL $RELOC $HIGH SUBTTL General Impure Storage $HIGH ;SHOULD ALREADY BE IN HISEG, BUT... PDLIOW::IOWD LN$PDL,DTSPDL ;IOWD TO LOAD INTO P UPON STARTUP $LOW DTSPDL::BLOCK LN$PDL+1 ;THE STACK CCLF1:: BLOCK 1 ;THE CCL ENTRY FLAG FOR .ISCAN TYPBOL::BLOCK 1 ;TYPOUT AT BEG OF LINE IF NON-ZERO TYPRCS::BLOCK 1 ;TYPOUT IS RECURSING IF NON-ZERO INIFF:: BLOCK 1 ;INITIAL VALUE OF .JBFF INICOR::BLOCK 1 ;INITIAL VALUE OF .JBREL CURCMD::BLOCK 1 ;CURRENT COMMAND NAME, FOR UNKCMD CHANEL::EXP -1 ;THE NSP. CHANNEL NUMBER ASSIGNED LOGSPC::BLOCK .FXLEN+1 ;SCAN BLOCK FOR LOG SPECIFICATION LOGFOP::BLOCK FOPLEN ;FILOP. BLOCK FOR LOG FILE LOGBRH::BLOCK 3 ;LOG FILE'S BUFFER RING HEADER LOGENT::BLOCK LN$ENT ;ENTER BLOCK FOR LOG SPEC LOGPTH::BLOCK .PTMAX ;PATH FOR .STOPB TO SET UP ERRPRI: BLOCK 1 ;NON-ZERO IF WE'RE PRINTING AN ERROR ALWPRI::BLOCK 1 ;NON-ZERO IF WE'RE PRINTING STATS LASTIM: BLOCK 1 ;USED BY GETTIM ;The User Data Block USRLEN==1+</4> ;STRING POINTER, COUNT+USER DATA(8-BIT) IFL USRLEN-STRLNW,USRLEN==STRLNW USERDA: STRBLK USRLEN ;A FREE STRING BLOCK FOR USER DATA CNTUSR: STRBLK USRLEN ;READ THE CONNECT/DISCONNECT DATA HERE RCVMSG: STRBLK MAXMGW ;THE DATA TEST'S RECEIVED MESSAGE PRCVMSG:POINT 8,RCVMSG+1 ;BYTE POINTER TO DATA TEST'S MESSAGE $HIGH CPRGID: EXP PRGID ;MACRO CAN'T STAND THIS IN A LITERAL ;Call: CHANEL/ The NSP. channel number ; CALL NSPREL ; Normal Return ; ;Uses T1,T2,T3,T4 NSPREL::SETO T1, ;MAKE A -1 TO COMPARE WITH CAMN T1,CHANEL ;IS IT OPEN? RET ;NO, DON'T NEED TO RELEASE IT. TRACE ,CRLF LDB T1,[POINTR(NSACH,NS.STA)] CAIE T1,.NSSRN ;IN RUN STATE? JRST NSPR.1 ;NO, HAVE TO RELEASE ;YES, WE SHOULD BE ABLE TO ABORT CALNSP .NSFAB,,NS.WAI ;FIRST, TRY ABORT TRNA ;FAILED, TRY RELEASE JRST NSPR.X ;SUCCESS RETURN CALL NSPERR ;FAILED, TELL USER WHY NSPR.1: CALNSP .NSFRL ;RELEASE (CLOSE) FUNCTION CALL NSPERR NSPR.X: SETOB NSACH,CHANEL ;THE CHANNEL IS NOW CLOSED CPOPJ: RET SUBTTL .STATUS - Read the Status of the Link ;.STATUS is called by the STATUS command ;TYPSTA is called by error handlers ;that have found strange states in NSP. returns. ; ;Call: CALL .STATUS ; Normal Return, message has been typed ; ;Uses T1,T2,T3,T4 DEFINE TYPSTB(bitname),< MOVEI T1,[ASCIZ ", bitname: "] CALLSCAN .TSTRG## LDB T1,[POINTR(NSACH,NS.'bitname)] CALLSCAN .TOCTW## > .STATUS:: SKIPGE CHANEL ;IS THE CHANNEL OPEN? JRST NOSTAT ;NO, TELL THEM NOTHING DOING TYPSTA::SAVEAC SKIPL CHANEL ;IS THE CHANNEL OPEN? CALL NSPSTS ;YES, GET STATUS INTO NSAA1 RET ;PROPOGATE ERROR RETURN LDB T1,[POINTR(NSACH,NS.STA)] CAILE T1,MAXSTA ;LEGAL STATE? MOVX T1,-1 ;NO, GET ERROR MESSAGE MOVE T1,STATAB(T1) CALL INFMSG ;OUTPUT AN INFO MESSAGE HEADER MOVEI T1,[ASCIZ / state/] CALLSCAN .TSTRG## TYPSTB NDA ;NORMAL DATA AVAIL TYPSTB NDR ;NORMAL DATA REQUESTS AVAIL TYPSTB IDA ;INTERRUPT DATA AVAIL TYPSTB IDR ;INTERRUPT DATA REQUESTS AVAIL CALLSCAN .TRBRK## ;A RIGHT SQUARE BRACKET FOR INFO CALLSCAN .TCRLF## RET ;"REPARSE" RETURN NOSTAT: ERROR ,CRLF RET ;Type out Flow Control value from T1 TYPFLO::CAIL T1,0 CAILE T1,3 MOVEI T1,4 ;UNKNOWN FLOW CONTROL TYPE MOVE T1,FLOTYP(T1) CALLSCAN .TSTRG## RET FLOTYP: [ASCIZ /Unknown/] [ASCIZ /None/] [ASCIZ /Segment/] [ASCIZ /Message/] [ASCIZ /Erroneous/] DEFINE STATE(code),< IFN .NSS'code-<.-STATAB>,PRINTX ?STATAB table wrong for code [ASCIZ /code/] > [ASCIZ /Too Big (illegal)/] ;-1 value used when state too big STATAB: [ASCIZ /Zero (illegal)/] STATE CW ;CONNECT WAIT STATE CR ;CONNECT RECEIVED STATE CS ;CONNECT SENT STATE RJ ;LINK WAS REJECTED STATE RN ;LINK IS UP AND RUNNING STATE DR ;DISCONNECT RECEIVED STATE DS ;DISCONNECT SENT STATE DC ;DISCONNECT CONFIRMED STATE CF ;NO CONFIDENCE STATE LK ;NO LINK STATE CM ;NO COMMUNICATION STATE NR ;NO RESOURCES MAXSTA==.-STATAB-1 ;NSPSTS - Get status of NSP channel into NSACH ; ;Call: CALL NSPSTS ; Error Return if NSP. UUO failed, message already output ; Normal Return with status in register NSACH ;This routine is expected to get the status and the other things ;that a read status function returns: seg size and flow control types. NSPSTS::CALNSP .NSFRS,NSAA2 ;READ STATUS FUNCTION CODE RET ;ERROR RETURN, LET USER ; ANNOUNCE IT IF S/HE WANTS RETSKP ;SUCCESS RETURN ;RDCNDT - Read Connect User Data ; ;Call: CALL RDCNDT ; Error Return, message already put out ; Normal Return, NSAxx and CNTUSR filled in, ; and NSAA1 holds pointer to CNTUSR ; NSAA2 holds Segment Size ; NSAA3 holds transmit flow control mode RDCNDT:: MOVEI NSAA1,CNTUSR ;PTR TO DIS/CONNECT USER DATA CALNSP .NSFRC,NSAA3 ;READ CONNECT DATA (NO WAIT) PJRST NSPERR RETSKP ;RDDSDT - Read Disconnect User Data ; ;Call: CALL RDDSDT ; Error Return, message already put out ; Normal Return, NSAxx and CNTUSR filled in, ; and NSAA1 holds pointer to CNTUSR ; NSAA2 holds Segment Size ; NSAA3 holds transmit flow control mode RDDSDT:: MOVEI NSAA1,CNTUSR ;PTR TO DIS/CONNECT USER DATA CALNSP .NSFRD,NSAA2 ;READ DISCONNECT DATA (NO WAIT) PJRST NSPERR RETSKP SUBTTL Error Routines ;NSPERR - Call this to interpret the error code from the NSP. UUO ;NSPERL - Same, but release the channel after printing the message ; ;Call: T1/ returned from NSP. ; CALL NSPERR/NSPERL ; Normal Return NSPERL::CALL NSPERR ;PRINT OUT THE ERROR PJRST NSPREL ;THEN RELEASE THE CHANNEL NSPERR::PUSH P,T1 ;SAVE ERROR FROM NSP. UUO WARN POP P,T1 ;GET NSP. ERROR MSG BACK CAIG T1,MAXERR ;DO WE KNOW THIS ERROR CODE? JRST [MOVEI T2,.TSTRG## MOVE T1,NSPERC(T1) JRST NSPER1] MOVEI T2,.TOCTW## ;NO, PRINT AS A OCTAL ERROR CODE NSPER1: CALL (T2) ;PRINT STRING OR NUMBER MOVEI T1,[ASCIZ /, function /] CALLSCAN .TSTRG## LDB T1,[POINTR(NSAFN,NS.AFN)] ;GET FUNCTION CODE FROM ARGS CAILE T1,FCNTBL ;OFFSET OK? MOVEI T1,0 ;NO, CALL IT ILLEGAL MOVE T1,FCNTAB(T1) ;GET PTR TO ASCIZ STRING CALLSCAN .TSTRG## ;TELL USER ABOUT FUNCTION CODE CALLSCAN .TCRLF## RET DEFINE ERRMAC(code,text),< IF1,,< PRINTX ?NSP. error code out of order in NSPERC table>> ERRMC1(\code,text) > DEFINE ERRMC1(code,text),<[ASCIZ |(code) text|]> NSPERC: ERRMAC 0, ERRMAC NSABE%, ERRMAC NSALF%, ERRMAC NSBCN%, ERRMAC NSBFT%, ERRMAC NSCFE%, ERRMAC NSIDL%, ERRMAC NSIFM%, ERRMAC NSILF%, ERRMAC NSJQX%, ERRMAC NSLQX%, ERRMAC NSNCD%, ERRMAC NSPIO%, ERRMAC NSPRV%, ERRMAC NSSTB%, ERRMAC NSUKN%, ERRMAC NSUXS%, ERRMAC NSWNA%, ERRMAC NSWRS%, ;New error codes (to be re-ordered): ERRMAC NSCBL%, ERRMAC NSPBL%, ERRMAC NSSBL%, ERRMAC NSUDS%, ERRMAC NSUDC%, ERRMAC NSUCF%, ERRMAC NSULK%, ERRMAC NSUCM%, ERRMAC NSUNR%, ;Error codes which correspond to DECnet disconnect codes. ERRMAC NSRBO%, ERRMAC NSDBO%, ERRMAC NSRES%, ERRMAC NSUNN%, ERRMAC NSRNS%, ERRMAC NSURO%, ERRMAC NSIOF%, ERRMAC NSOTB%,