Table of Contents

IRECVR

Table Of Contents

Source Code

IRECVR.txt 
  1. *DECK IRECVR
  2.           IDENT  IRECVR 
  3.  OPL      XTEXT  COMCCMD
  4.           ENTRY  IRECVR 
  5.           ENTRY  RPVPBLK
  6.           EXT    OVLCALL
  7.           EXT    XDUMP
  8.           EXT    SYS=                                                    NAMA668
  9.           EXT    RCL= 
  10.           EXT    XTRACE 
  11.           SST 
  12. *#
  13. *1DC  IRECVR
  14. * 
  15. *     1. PROC NAME           AUTHOR              DATE 
  16. *        IRECVR              J. J. LYON          75/10/02 
  17. * 
  18. *     2. FUNCTIONAL DESCRIPTION.
  19. *        THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING NIP-S RECOVERY
  20. *        PROCEDURES.
  21. * 
  22. *     3. METHOD USED. 
  23. *          CALL RPV                                                      NAMA668
  24. * 
  25. *     4. ENTRY PARAMETERS.  NONE
  26. * 
  27. *     5. EXIT  PARAMETERS.  NONE
  28. * 
  29. *     6. COMDECKS CALLED. 
  30. *          INPARU  MACDEF 
  31. * 
  32. *     7. ROUTINES CALLED. 
  33. *          RECOVR            COMPASS - RECOVERY- MACRO
  34. *          SYS=              ISSUE RA+1 CALL                             NAMA668
  35. *          XTRACE            TRACES CALLS 
  36. * 
  37. *     8. DAYFILE MESSAGES.  NONE
  38. * 
  39. *#
  40. *CALL MACDEF
  41. *CALL INPARU
  42. *CALL OVLNAME 
  43. *CALL OVERLAY 
  44.  FLAGS    EQU    77B         TRAP ALL BUT NORMAL TERMINATION
  45.  IRECVR   BSSZ   1           ENTRY/EXIT 
  46.  
  47.           IFEQ   DEBUG,1,6
  48.           SX6    A1 
  49.           SA6    TEMP 
  50.           SX1    IRECN
  51.           RJ     XTRACE 
  52.           SA1    TEMP 
  53.           SA1    X1 
  54. *                CALL REPRIEVE PROCESS
  55.           REPRIEVE RPVPBLK,SET,FLAGS
  56.           EQ     IRECVR 
  57.  IRECN    DATA   L*IRECV* 
  58.  TEMP     BSS    1
  59.           USE    /RECOVER/
  60.  SYSADR   BSSZ   1           ADDRESS OF CALLER FOR LAST SYS= CALL 
  61.  RCLADR   BSSZ   1           ADDRESS OF CALLER FOR LAST RCL=  CALL
  62. * 
  63. *                REPRIEVE PARAMETERS BLOCK
  64. * 
  65.  RPVPBLK  VFD    36/0,12/25,12/C
  66.           VFD    30/0,30/RPVADDR
  67.           BSSZ   23 
  68.           USE    *
  69.  RPVADDR  BSS    0
  70.           SX6    B0 
  71.           SA6    OVLFLAG
  72.           SA1    SYS=        X1 = RETURN JUMP TO SYS= CALLER
  73.           SA2    RCL=        X1 = RETURN JUMP TO RCL= CALLER
  74.           BX6    X1 
  75.           SA6    SYSADR      SAVE ADDRESS OF CALLER OF LAST SYS= CALL 
  76.           BX7    X2 
  77.           SA7    RCLADR      SAVE ADDRESS OF CALLER OF LAST RCL= CALL 
  78.  
  79.           RJ     XDUMP
  80.           SX6    XENDRPVP 
  81.           SA6    OVLNAME
  82.           RJ     OVLCALL
  83.  
  84.          END