*DECK DB$WRRM 
          IDENT  DB$WRRM
          TITLE  I-O MACRO INTERFACES 
          COMMENT  I-O MACRO INTERFACES 
          DATA   10L  DB$WRRM 
          TITLE  -- DB$WRRM -- WRITE RECORD MACRO 
*#
* *   DB$WRRM -- WRITE RECORD MACRO              PAGE  1
* *   BOB MCALLESTER                             DATE  02/16/81 
* 
* DC  PURPOSE 
* 
*     ISSUE A WRITER MACRO WITHOUT RECALL 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER 
* 
*     -FET-                  LOCATION OF THE FET
*#
          ENTRY  DB$WRRM
DB$WRRM   EQ   *+1S17 
          SA2    X1          (X2) = FET ADDRESS 
          WRITER X2 
          EQ   DB$WRRM
          TITLE  -- DB$WRTM -- WRITE MACRO
*#
* *   DB$WRRM                                    PAGE  1
* *   DB$WRTM -- WRITE MACRO
* *   BOB MCALLESTER                             DATE  02/16/81 
* 
* DC  PURPOSE 
* 
*     ISSUE A WRITE MACRO WITHOUT RECALL
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER 
* 
*     -FET-                  LOCATION OF THE FET
*#
  
          ENTRY  DB$WRTM
DB$WRTM   EQ   *+1S17 
          SA2    X1          (X2) = FET ADDRESS 
          WRITE  X2 
          EQ   DB$WRTM
          TITLE  -- DB$WRTR -- WRITER MACRO 
*#
* *   DB$WRRM                                    PAGE  1
* *   DB$WRTR -- WRITER MACRO 
* *   BOB MCALLESTER                             DATE  08/20/82 
* 
* DC  PURPOSE 
* 
*     WAIT UNTIL THE FET IS IDLE. 
*     ISSUE A WRITER FUNCTION WITHOUT RECALL. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER 
* 
*     -FET-                  I-O FET TO BE USED, NOT LOC(FET) OR P<FET> 
*#
          ENTRY  DB$WRTR
DB$WRTR   EQ   *+1S17 
          SA2    A1          (X2) = FET ADDRESS 
          SA1    X1          (X1) = FET STATUS WORD 
          LX1    59 
          MI   X1,WRTR1 
          RECALL X2          WAIT IF BUSY 
  
WRTR1     WRITER X2 
          EQ   DB$WRTR
          SPACE  3,10 
*CALL IOLIST
  
          END 
