ASMB,R,L,C
      HED DWRIT 91700-16122 REV A 751222 * (C) HEWLETT PACKARD CO. 1976 
      NAM DWRIT,7 91700-16122 REV A 751222
      SPC 1 
******************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
******************************************************************
      SPC 2 
      ENT DWRIT 
      EXT WRITF 
      EXT .ENTR 
      SPC 5 
* 
* DWRIT 
* SOURCE:91700-18122
* BINARY:91700-16122
* SHANE DICKEY
* JULY 31,1974
* 
PRAMS REP 5 
      NOP 
DWRIT NOP 
      JSB .ENTR 
      DEF PRAMS 
* 
* 
      DLD PRAMS     MOVE DEFS FOR 1ST TWO 
      DST PRAM1 
* 
      DLD PRAMS+2   MOVE 2ND TWO
      DST PRAM1+2 
* 
      LDA PRAMS+4   MOVE 4TH & POSSIBLE 5TH 
      STA PRAM1+4 
* 
      LDA D5        CALCULATE RETURN
      ADA ADDS
      STA DRTN      & PUT IN CONSTRUCTED CALL 
* 
      JSB RFASR 
      CLB 
      STB PRAMS+4 
      STB PRAM1+4 
      JMP DWRIT,I   FINISHED RETURN TO USER 
      SPC 5 
RFASR NOP 
      JSB WRITF 
DRTN  NOP 
PRAM1 REP 5 
      NOP 
      JMP RFASR,I 
      SPC 5 
* CONSTANTS 
D5    DEC 5 
ADDS  DEF DRTN+1
      END 
                                                                                                                                        