ASMB HED RMCLN SUBROUTINE FOR RECOV NAM RMCLN,7 91750-1X189 REV.2013 791029 * * ******************************************************************* * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED. * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR * TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR WRITTEN * CONSENT OF HEWLETT-PACKARD COMPANY. ******************************************************************* * * * SOURCE: 91750-18189 * RELOC: 91750-1X189 * * * ******************************************************************* * * * * DS/1000 AND RDBA STANDARD EQUATES FOR REQUEST BUFFER. * * ****************************************************************** * * * #STR EQU 0 STREAM WORD. #SEQ EQU #STR+1 SEQUENCE NUMBER. #SRC EQU #SEQ+1 SOURCE NODE #. #DST EQU #SRC+1 DEST. NODE #. #EC1 EQU #DST+1 REPLY ECOD1. #EC2 EQU #EC1+1 REPLY ECOD2. #ENO EQU #EC2+1 NUMBER OF NODE REPORTING ERROR. * #ECQ EQU #ENO+1 ERROR CODE QUALIFIER (BITS 4 TO 7) #LVL EQU #ECQ MESSAGE FORMAT LEVEL (BITS 0 TO 3) #MAS EQU #LVL+1 MA "SEND" SEQ. # #MAR EQU #MAS+1 MA "RECV" SEQ. # #MAC EQU #MAR+1 MA "CANCEL" FLAGS #HCT EQU #MAC+1 HOP COUNT #SID EQU #HCT+1 SESSION ID WORD * #EHD EQU #SID LAST ITEM OF HEADER #MHD EQU #EHD+1 MINIMUM HEADER SIZE #REQ EQU #MHD START OF REQUEST SPECIFIC AREA #REP EQU #MHD START OF REPLY SPECIFIC AREA * #MXR EQU #MHD+24 <<< MAXIMUM DS REQ/REPLY BUFFER SIZE >>> #LSZ EQU 2 <<< SIZE OF LOCAL APPENDAGE AREA >>> * ****************************************************************** * * RBIDX EQU #REQ RDBA INDEX RBMOD DEF RBIDX+1+#RQB RDBA MODE RBNOD EQU RBIDX+4 RDBA NODE NUMBER FOR CLEAN UP * * * RQLEN DEF 23 REQUEST LENGTH BUFFER SIZE * * *** * A EQU 0 B EQU 1 * ENT RMCLN EXT #NODE,.ENTR,.MVW,#MAST,#RQB * PNAME NOP PNODE NOP ERROR NOP * RMCLN NOP JSB .ENTR DEF PNAME * LDA D10 SET UP REQUEST BUFFER: STA #RQB+#STR STREAM = 10 LDA #NODE STA #RQB+#DST DESTINATION NODE = LOCAL NODE * CCA STA #RQB+RBIDX RDBA INDEX = -1 LDB RBMOD MODE AND INFO WORDS = THE NAME LDA PNAME OF THE MASTER PROGRAM TO JSB .MVW CLEAN-UP AFTER AND ITS NODE DEF D3 NUMBER DEC 0 LDA PNODE,I STA #RQB+RBNOD * JSB #MAST ASK #MAST TO ROUTE THE REQUEST DEF *+8 TO RDBAM FOR US. DEF CONWD DEF RQLEN DEF D0 THERE IS NO DATA WITH EITHER DEF D0 THE REQUEST OR REPLY. DEF D0 DEF RQLEN DEF D0 * CCA,RSS ERROR RETURN LDA #RQB+#EC2 NORMAL RETURN STA ERROR,I JMP RMCLN,I * D0 DEC 0 D3 DEC 3 D10 DEC 10 * CONWD OCT 140000 * END