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 
                                                                                                                                                                                                                  