*DECK     RSNAP - REAR END TEST MODE SNAP PACKAGE.
**IF DEF,TEST 
*IF DEF,TEST
          IDENT  RSNAP
 RSNAP    SECT   (REAR-END TEST MODE SNAP PACKAGE.) 
 RSNAP    SPACE  4
***              RSNAP PROVIDES SNAPSHOT AND DEBUGGING ROUTINES SPECIFIC
*         TO PASS THREE.
  
  
 #SNAP    IFEQ   TEST,ON
  
  
*         IN IDP
          EXT    DCM=,FW=IDPL,IDPFLG,IDP=COD,IDP=FRK,IDP=HDR,IDP=MN 
          EXT    IDP=PAS,IDP=SFN,IDP=SKT,IDP=SOB,IDP=WOD,IDP=ZTB,ROL= 
          EXT    RSR=,SNAPLNE,SVR=
  
*         IN PUC
          EXT    NAMES,N.TABLE,ORIGINS,T=SYM,T.SYM
 IDP      SPACE  4,10 
***       DEFINE IDP INTERFACE EXTERNAL SYMBOLS.
* 
* 
  
  
 CAD      EQUEXT IDP=CAD
 CHK      EQUEXT IDP=CHK
 FLL      EQUEXT IDP=FLL
 FRK      EQUEXT IDP=FRK
 HDR      EQUEXT IDP=HDR
 PAS      EQUEXT IDP=PAS
 PAT      EQUEXT IDP=PAT
 SKT      EQUEXT IDP=SKT
 SOB      EQUEXT IDP=SOB
  
  
 CDD      EQUEXT IDP=CDD
 COD      EQUEXT IDP=COD
 DXB      EQUEXT IDP=DXB
 MCS      EQUEXT IDP=MCS
 SFN      EQUEXT IDP=SFN
 SYS=     EQUEXT IDP=SYS
 WOD      EQUEXT IDP=WOD
 ZTB      EQUEXT IDP=ZTB
 MISC     SPACE  4,10 
**        MISCELLANEOUS SYMBOL DEFINITIONS. 
* 
* 
  
  
 SN=DMT   =      5           ORDINAL OF 1ST WORD OF *DUMPT* PARAMETER 
  
  
 IDPSA5   BSSZ   1           SAVE CELL FOR (A5) 
 PRBDO    SPACE  4,10 
**        DEFINE BATCH DEBUG OUTPUT MACRO -- *PRBDO*. 
  
          PURGMAC PRBDO 
  
 PRBDO    OPSYN  PLINE
 TEXTS    SPACE  4,10 
***       TEXTS - INTERFACE TEXTS.
* 
  
  
          QUAL   IDP
 QUAL$    =      1           DESELECT QUALS IN /IDP/
          LIST   -L          *COMSIDP* IS LISTED IN DECK *IDP*
*CALL     COMSIDP - COMCIDP INTERFACE TEXT
          LIST   *
          QUAL   *
 DATA     SPACE  4,10 
***       DATA STRUCTURES.
* 
* 
*         THE FOLLOWING SECTION CONTAINS DATA STRUCTURES THAT ARE 
*         TEST MODE ONLY AND THAT RELATE DIRECTLY TO TEST MODE
*         ROUTINES IN *RSNAP*.
 FI=      SPACE  4,10 
**        FI= - FTN/IDP CELLS.
* 
*         SYMBOLS OF THE FORM *FI=XXX* ARE CELLS THAT ARE USED
*         FOR FTN/IDP COMMUNICATION.
 FI=BRLI  SPACE  4,10 
**        FI=BRLI - *BRLINE NR* CELL. 
* 
*         *FI=BRLI* CONTAINS THE LINE NR THAT THE FTNER SELECTED
*         VIA THE *BRLINE* IDP COMMAND.  WHEN THE COMPILER REACHS 
*         A LINE WITHIN A PGM UNIT THAT HAS THE SAME LINE NR AS 
*         (FI=BRLI), THEN AN AUTOMAGIC BREAKPOINT IS INVOKED IN 
*         THE DECK *FEC*.  SEE DECK *FEC* AT HEAD OF FRONT-END
*         MASTER LOOP.
  
  
 FI=BRLI  CONENT -1 
          TITLE  FTN5 SNAPPING ROUTINES.
 ST=      SPACE  4,10 
***       ST= - STATEMENT PROCESSORS FOR FRONT-END *IDP* COMMANDS.
* 
* 
*         THE FOLLOWING SECTION CONTAINS ALL THE FRONT-END SPECIFIC 
*         STMT PROCESSORS FOR IDP COMMANDS. 
 UKT=RE   SPACE  4,10 
**        UKT=RE - USER IDP KEYWORD TABLE FOR *REAR-END*. 
  
  
 UKT=RE   BSSENT 0           ** FWA OF KEYWORD TABLE ** 
          QUAL   IDP
 BRL      KEYW   (BRLINE NR)
 DMT      KEYW   (DUMPT FWA,LWA,LEN)
          QUAL   *
          DATA   0           ** END OF TABLE MARK **
 UKT=LNK  DATA   0           ** LINK WORD **
 ST=BRL   SPACE  4,10 
**        ST=BRL - HERE TO PROCESS *BRLINE NR*. 
  
  
 ST=BRL   BSS    0           ** ENTRY **
          RJ     PAS         PARSE SUBEXPRESSION
          SA6    FI=BRLI     SAVE (X6) = FTN LINE NR TO BREAK AT
          EQ     IDP=MN 
 CTEXT    SPACE  4,10 
*         COMMON DECKS. 
  
  
*CALL     COMDDMT            DEBUG UTILITY TO DUMP TABLES 
  
 RSNAP    SPACE  4,10 
          LIST   D
 ENDSNAP  END                MARK END OF SNAP DECK
**ENDIF TEST
*ENDIF TEST 
