Table of Contents

XRECALL

Table Of Contents

Source Code

XRECALL.txt 
  1. *DECK XRECALL 
  2.           IDENT  XRECALL
  3.           ENTRY  XRECALL
  4.           EXT    XTRACE 
  5.           SST 
  6. *#
  7. *1DC  XRECALL 
  8. * 
  9. *     1. PROC NAME           AUTHOR              DATE 
  10. *        XRECALL             J. J. LYON          75/07/11 
  11. * 
  12. *     2. FUNCTIONAL DESCRIPTION.
  13. *        THIS ROUTINE IS RESPONSIBLE FOR *RECALL*ING NIP. 
  14. * 
  15. *     3. METHOD USED. 
  16. *          RECALL COMPASS MACRO 
  17. * 
  18. *     4. ENTRY PARAMETERS.  NONE
  19. * 
  20. *     5. EXIT  PARAMETERS.  NONE
  21. * 
  22. *     6. COMDECKS CALLED. 
  23. *          INPARU  MACDEF  STATTAB
  24. * 
  25. *     7. ROUTINES CALLED. 
  26. *          RECALL            COMPASS MACRO
  27. *          XTRACE            TRACES CALLS 
  28. * 
  29. *     8. DAYFILE MESSAGES.  NONE
  30. * 
  31. *#
  32. *CALL MACDEF
  33. *CALL INPARU
  34.  
  35.  STAT1    IFEQ   STAT,1 
  36. *CALL STATTAB 
  37.  STAT1    ENDIF 
  38.  
  39.  XRECALL  BSSZ   1           ENTRY/EXIT 
  40.           IFEQ    DEBUG,1,6 
  41.           SX6    A1 
  42.           SA6    TEMP 
  43.           SX1     RECALLX 
  44.           RJ     XTRACE 
  45.           SA1    TEMP 
  46.           SA1    X1 
  47.           SA1    X1 
  48.           ZR     X1,TIMERCL  TIMED RECALL 
  49.           RECALL X1 
  50.           EQ     RCLEXIT
  51.  
  52. TIMERCL   RECALL             ISSUE TIMED RECALL 
  53.  
  54. RCLEXIT   BSS    0
  55.  
  56.  STAT2    IFEQ   STAT,1      STATISTICS ON
  57.           MX6    -1          (X6)=-1
  58.           SA1    ST$RCL 
  59.           IX6    X1-X6       (X6)=(X1)+1
  60.           SA6    ST$RCL 
  61.  STAT2    ENDIF 
  62.  
  63.           JP     XRECALL     EXIT 
  64.  RECALLX  DATA    L*XRECA*
  65.  TEMP     BSS    1
  66.          END