*DECK S$STORE 
          IDENT  S$STORE
          TITLE  S$STORE -  STORE VALUE INTO FIT FIELD
          COMMENT  STORE VALUE INTO FIT FIELD 
          SPACE  4
**        S$STORE -  STORE VALUE INTO FIT FIELD 
* 
*     CALLING SEQUENCE: 
*         S$STORE(ADDR, "CF", <VALUE>); 
* 
*     GIVEN:  
*         ADDR = VARIABLE CONTAINING ADDRESS OF FIT.
*         "CF" = CHARACTER LITERAL. 
*         <VALUE> = VALUE FOR "CF" FIELD. 
* 
*     DOES: 
*         STORES THE <VALUE> IN THE "CF" FIELD OF THE 
*         FIT SPECIFIED BY *ADDR*.
  
  
          ENTRY  S$STORE
 S$STORE  SUBR
          SA2    X1          X2 = ADDRESS OF FIT
          SA3    A1+2        X3 = ADDRESS OF <VALUE>
          SA3    X3          X3 = <VALUE> 
          STORE  X2,CF=X3 
          EXIT
  
  
          END 
