*DECK DB$RNRW 
          IDENT  DB$RNRW                                                000001
          TITLE  DB$RNRW  -  RANDOM REWRITE RECORD
          COMMENT  RANDOM REWRITE RECORD
          DATA   10L  DB$RNRW 
*#                                                                      000100
* *   DB$RNRW - RANDOM REWRITE A RECORD          PAGE  1                000110
* *   J E ESLER                                  12/20/76               000120
*                                                                       000130
* DC  PURPOSE                                                           000140
*                                                                       000150
*     REWRITE A CRM BLOCK WITH RECALL                                   000160
*                                                                       000180
* DC  ENTRY CONDITIONS                                                  000190
*                                                                       000200
*     PARAMETERS                                                        000210
*                                                                       000220
*     LOC(FET)                                                          000230
*     LOC(WSA)                                                          000240
*     NUMBER WORDS TO WRITE                                             000250
*     PRU NUMBER FOR START OF WRITE                                     000255
*                                                                       000260
* DC  DESCRIPTION                                                       000270
*                                                                       000280
*     SET FIRST, IN, OUT, LIMIT FIELDS IN FET.                          000290
*     SET PRU ADDRESS FIELD IN FET.                                     000295
*     ISSUE CIO REWRITER MACRO WITH RECALL.                             000300
*     RETURN.                                                           000310
*#                                                                      000320
          ENTRY  DB$RNRW                                                000330
DB$RNRW   EQ   *+1S17                                                   000340
          SB1    1                                                      000350
          SA2    A1+B1                                                  000360
          SA3    A2+B1                                                  000370
          SA5    A3+B1                                                  000375
          MX0    42          (X0) = MASK                                000380
          SA1    X1          (X1) = ADDRESS FET                         000390
          SA2    X2          (X2) = ADDRESS WSA                         000400
          SA3    X3          (X3) = NUMBER WORDS                        000410
                             FIRST = WSA                                000420
          SA5    X5          (X5) = PRU NUMBER OF BLOCK                 000422
          BX6    X5                                                     000424
          SA6    X1+6        PRU NUMBER FOR REWRITE IN FET AT LFN+6     000426
          SA4    X1+B1       (X4) = FIRST WORD FROM FET                 000430
          BX4    X0*X4                                                  000440
          IX6    X2+X4       ADD FIRST TO FIRST WORD                    000450
          SA6    A4          STORE FIRST WORD                           000460
          IX7    X2+X3                                                  000470
          SA7    A6+B1       SET IN TO WSA+WORDS                        000480
          SX6    X2                                                     000490
          SA6    A7+B1       SET OUT TO WSA                             000500
          SX7    X7+B1       LIMIT = WSA+WORDS+1                        000510
          SA5    A6+B1       (X5) = LIMIT WORD FROM FET                 000520
          BX5    X0*X5                                                  000530
          IX7    X7+X5       ADD LIMIT TO LIMIT WORD                    000540
          SA7    A5          STORE LIMIT WORD                           000550
          REWRITER X1,R                                                 000570
          EQ   DB$RNRW                                                  000600
*#                                                                      000630
* *   DB$RNFT - MODEL FET FOR RANDOM REWRITES    PAGE  1                000640
* *   J E ESLER                                  12/20/76               000650
*                                                                       000660
* DC  PURPOSE                                                           000670
*                                                                       000680
*     DEFINE MODEL FET FOR DOING RANDOM REWRITES TO                     000690
*     DATABASE AREAS.                                                   000695
*#                                                                      000700
          ENTRY  DB$RNFT                                                000710
DB$RNFT   RFILEB ,,EPR
          SPACE  3,10 
*CALL IOLIST
          END                                                           000725
