Retro1.org codex

*DECK XRECALL 
          IDENT  XRECALL
          ENTRY  XRECALL
          EXT    XTRACE 
          SST 
*#
*1DC  XRECALL 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        XRECALL             J. J. LYON          75/07/11 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        THIS ROUTINE IS RESPONSIBLE FOR *RECALL*ING NIP. 
* 
*     3. METHOD USED. 
*          RECALL COMPASS MACRO 
* 
*     4. ENTRY PARAMETERS.  NONE
* 
*     5. EXIT  PARAMETERS.  NONE
* 
*     6. COMDECKS CALLED. 
*          INPARU  MACDEF  STATTAB
* 
*     7. ROUTINES CALLED. 
*          RECALL            COMPASS MACRO
*          XTRACE            TRACES CALLS 
* 
*     8. DAYFILE MESSAGES.  NONE
* 
*#
*CALL MACDEF
*CALL INPARU
 
 STAT1    IFEQ   STAT,1 
*CALL STATTAB 
 STAT1    ENDIF 
 
 XRECALL  BSSZ   1           ENTRY/EXIT 
          IFEQ    DEBUG,1,6 
          SX6    A1 
          SA6    TEMP 
          SX1     RECALLX 
          RJ     XTRACE 
          SA1    TEMP 
          SA1    X1 
          SA1    X1 
          ZR     X1,TIMERCL  TIMED RECALL 
          RECALL X1 
          EQ     RCLEXIT
 
TIMERCL   RECALL             ISSUE TIMED RECALL 
 
RCLEXIT   BSS    0
 
 STAT2    IFEQ   STAT,1      STATISTICS ON
          MX6    -1          (X6)=-1
          SA1    ST$RCL 
          IX6    X1-X6       (X6)=(X1)+1
          SA6    ST$RCL 
 STAT2    ENDIF 
 
          JP     XRECALL     EXIT 
 RECALLX  DATA    L*XRECA*
 TEMP     BSS    1
         END