Retro1.org codex

User Tools

Site Tools

Trace: • OPRETN
cdc:nos2.source:nam5871:opretn

Table of Contents

OPRETN

Table Of Contents

Source Code

OPRETN.txt 
  1. *DECK OPRETN
  2.           IDENT  OPRETN 
  3.           ENTRY  OPRETN 
  4.           EXT    XTRACE 
  5.           COMMENT   RETURN FILE TO SYSTEM 
  6. *#
  7. *1DC OPRETN 
  8. * 
  9. *         1. SUBROUTINE      AUTHOR              DATE 
  10. *            OPRETN          E. GEE              86/02/04 
  11. * 
  12. *         2. FUNCTIONAL DESCRIPTION.
  13. *            RETURN FILE TO SYSTEM. 
  14. * 
  15. *            SYMPL CALL:  OPRETN(FILE); 
  16. * 
  17. *                         WHERE FILE = FIRST WORD ADDRESS OF THE FET
  18. * 
  19. *         3. METHOD USED. 
  20. *            EXECUTE RETURN NOS MACRO WITH RECALL.
  21. * 
  22. *         4. ENTRY PARAMETERS.
  23. *            A1              ADDRESS OF PARAMETER LIST CONTAINING 
  24. *                            ADDRESS OF FET 
  25. * 
  26. *         5. EXIT PARAMETERS. 
  27. *            NONE.
  28. * 
  29. *         6. COMMON DECKS CALLED. 
  30. *            INPARU          INSTALLATION OPTIONS 
  31. *            MACDEF          SYMPL DATA STRUCTURE MACROS
  32. * 
  33. *         7. SUBROUTINES AND MACROS CALLED. 
  34. *            RETURN          RETURN FILE TO SYSTEM
  35. *            XTRACE          RECORD PROCEDURE CALL
  36. * 
  37. *         8. DAYFILE MESSAGES.
  38. *            NONE.
  39. * 
  40. *#
  41.  
  42. *CALL MACDEF
  43. *CALL INPARU
  44.  
  45. ************************************************************************
  46.  
  47.  OPRETN   SUBR   =           ENTRY/EXIT 
  48.  
  49.  ZZDN1    IFEQ   ZZDN,1 
  50.  
  51.  DEBUG1   IFEQ   DEBUG,1
  52.           SX6    A1          A1 = ADDRESS OF PARAMETER BLOCK
  53.           SA6    ADRPAR      SAVE ADDRESS OF PARAMETER BLOCK
  54.           SX1    XOPRETN     ABBREV OF PROC FOR XTRACE CALL 
  55.           RJ     XTRACE      TRACE PROCEDURE CALL 
  56.           SA1    ADRPAR      X1 = ADDRESS OF PARAMETER BLOCK
  57.           SA1    X1          X1 = ADDRESS OF FET
  58.  DEBUG1   ENDIF 
  59.  
  60.           RETURN X1,R        RETURN FILE WITH RECALL
  61.           EQ     OPRETNX     RETURN 
  62.  
  63.  DEBUG2   IFEQ   DEBUG,1
  64.  ADRPAR   BSSZ   1           ADDRESS OF FET 
  65.  XOPRETN  DATA   L*OPRTN* 
  66.  DEBUG2   ENDIF 
  67.  
  68.  ZZDN1    ENDIF 
  69.  
  70.           END
cdc/nos2.source/nam5871/opretn.txt · Last modified: 2023/08/05 17:23 by Site Administrator