*DECK DB$RDM
          IDENT  DB$RDM 
          TITLE              I-O MACRO INTERFACES 
DB$RDM    TITLE  -- DB$RDM --  READ MACRO 
          COMMENT  I-O MACRO INTERFACES 
          DATA   10L  DB$RDM
*#
* *   DB$RDM -- READ MACRO                       PAGE  1
* *   BOB MCALLESTER                             DATE  02/02/81 
* 
* DC  PURPOSE 
* 
*     ISSUE A READ FUNCTION WITHOUT RECALL. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER 
* 
*     -FET-                  LOCATION OF THE FET
*#
          ENTRY  DB$RDM 
DB$RDM    EQ   *+1S17 
          SA2    X1          (X2) = FET ADDRESS 
          READ   X2 
          EQ   DB$RDM 
DB$RWND   TITLE  -- DB$RWND --  REWIND MACRO
*#
* *   DB$RDM                                     PAGE  1
* *   DB$RWND  - REWIND MACRO 
* *   BOB MCALLESTER                             DATE  08/30/82 
* 
* DC  PURPOSE 
* 
*     ISSUE A REWIND FUNCTION WITHOUT RECALL. 
* 
* DC  ENTRY CONDITIONS
* 
*     -FET-                  LOCATION OF THE FET
* 
* DC  EXIT CONDITIONS 
* 
*     THE FILE HAS BEEN REWOUND.
*     THE FIRST AND LIMIT POINTERS HAVE NOT BEEN MODIFIED.
*#
          ENTRY  DB$RWND
DB$RWND   EQ   *+1S17 
          SA2    X1 
          REWIND X2 
          EQ   DB$RWND
DB$RWRT   TITLE  -- DB$RWRT --  REWRITE MACRO 
*#
* *   DB$RDM                                     PAGE  1
* *   DB$RWRT -- REWRITE MACRO
* *   E. P. JOHNSON                              DATE  07/17/81 
* 
* DC  PURPOSE 
* 
*     TO ISSUE A REWRITE FUNCTION WITHOUT RECALL
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     THE LOCATION OF THE FET IS IN (X1)
* 
*     ASSUMPTIONS 
* 
*     THE FET IS PROPERLY FORMATTED 
* 
* DC  EXIT CONDITIONS 
* 
*     AN ATTEMPT HAS BEEN MADE TO REWRITE THE FILE
* 
* DC  CALLING ROUTINES
* 
*     DB$PRST                WRITE PRESET 
* 
* DC  CALLED ROUTINES 
* 
*     REWRITE MACRO 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     - GET THE LOCATION OF THE FET.
* 
*     - ISSUE THE REWRITE MACRO.
*#
          ENTRY  DB$RWRT
DB$RWRT   EQ   *+1S17 
          SA2    X1          (X2) = FET ADDRESS 
          REWRITE X2
          EQ   DB$RWRT
DB$RWTM   TITLE  -- DB$RWTM --  REWRITER MACRO
*#
* *   DB$RDM                                     PAGE  1
* *   DB$RWTM -- REWRITER MACRO 
* *   BOB MCALLESTER                             DATE  02/02/81 
* 
* DC  PURPOSE 
* 
*     ISSUE A REWRITER FUNCTION WITHOUT RECALL. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER 
* 
*     -FET-                  LOCATION OF THE FET
*#
          ENTRY  DB$RWTM
DB$RWTM   EQ   *+1S17 
          SA2    X1          (X2) = FET ADDRESS 
          REWRITER  X2
          EQ   DB$RWTM
  
          SPACE  3,42 
*CALL IOLIST
          END 
