*DECK DB$SFCM 
          IDENT  DB$SFCM
          SST 
*#
* *   DB$SFCM -- ISSUE SFCALL MACRO              PAGE  1
* *   C O GIMBER                                 11/11/75 
* 
* DC  PURPOSE 
* 
*     THIS ROUTINE ISSUES THE SFCALL MACRO. 
*     IT ALSO DEFINES 
*         DB$SFDF--SYMBOLIC VALUE TO SEND MESSAGES TO DAYFILE.
*         DB$SFDR--SYSTEM DROP FLAG VALUE.
*         DB$SFAC--SYSTEM ACCOUNT MESSAGE  DAYFILE BIT
* 
* DC  CALLING ROUTINES
* 
*     DB$SFCL 
* 
* DC  CALLED ROUTINES 
* 
*     SFCALL MACRO
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER = ADDRESS FORMATED SFCALL REQUEST.
* 
* DC  EXTERNAL DEFINITIONS
* 
*     DB$SSC IS DEFINED AS AN ENTRY POINT WITH AN ABSOLUTE ADDRESS. 
*     THE VALUE OF THE ADDRESS IS EQUAL TO RA.SSC.
*     THIS PERMITS SYMPL PROGRAMS TO ACCESS THE WORD RA.SSC BY
*     DECLARING DB$SSC AS AN EXTERNAL ARRAY.
*#
  
          LOC    RA.SSC 
          ENTRY  DB$SSC      USED AS A SYMPL ARRAY TO LOCATE RA.SSC 
DB$SSC    BSS    0
          LOC    *O 
          EJECT 
          ENTRY  DB$SFCM
DB$SFCM   EQ   *+1S17 
          SA1    X1          (X1) = ADDRESS FORMATED SFCALL REQUEST 
          SFCALL  X1
          EQ   DB$SFCM
  
  
          ENTRY  DB$SFDF
DB$SFDF   CON    F.SYCP 
  
  
          ENTRY  DB$SFDR
DB$SFDR   CON    1           THIS NEEDS TO BE UPDATED WHEN AVAILABLE
          ENTRY DB$SFAC 
 DB$SFAC  CON    F.ACFN 
          END 
