*DECK     PUTMSG
          IDENT  PUTMSG 
          COMMENT   "COMRTN"
          COMMENT   PUT MESSAGES IN DAYFILE 
  
 PUTMSG   SPACE  4
**        PUTMSG - PUT MESSAGES IN DAYFILE
* 
*                PUTMSG - PUTS MSG IN ALL DAYFILES. 
*                PUTUMSG - PUTS MSG IN USER DAYFILE ONLY. 
*                PUTDMSG - PUTS MSG ON B DISPLAY ONLY.
* 
*                ALSO CONTAINS ABTME - ABORT TO EXIT(S) WITH NO DUMP
* 
*         MESSAGES MUST BE IN PROPER FORMAT (WITH ZERO BYTE TERMINATOR) 
* 
          ENTRY  PUTMSG 
* X1 CONTAINS THE ADDRESS OF A MESSAGE.  PUT IT IN ALL DAYFILES.
 PUTMSG   BSS    1
          MESSAGE X1,,R 
          EQ     PUTMSG 
 PUTUMSG  SPACE  4
*         PUTUMSG - PUT USER DFLE MSG 
* 
          ENTRY  PUTUMSG
 PUTUMSG  DATA   0
          SX5    X1+0        USE X5, SINCE MACRO USES X1
          MESSAGE   X5,LOCAL,R
          EQ     PUTUMSG
  
 PUTDMSG  SPACE  4
*         PUTDMSG - DISPLAY ONLY MSG
* 
          ENTRY  PUTDMSG
 PUTDMSG  DATA   0
          SX5    X1+0 
          MESSAGE   X5,DISP,R 
          EQ     PUTDMSG
  
 ABTME    SPACE  4
*         ABTME - ABORT TO EXIT(S) W/ NO DUMP 
* 
          ENTRY  ABTME
 ABTME    DATA   0
          ABORT  ,NODUMP
          SPACE  4,11 
**        GETPAGE - GET PAGE SIZE PARAMETERS. 
* 
*         ENTRY  (X1) - FWA OF RECIVING BLOCK.
* 
*         EXIT   JOB PAGE PARAMETERS STORED IN (X1).
* 
*         CALLS  CPM= 
* THE FOLLOWING ARE FOR USE BY GETPAGE ON NOS/BE. 
          SST 
 IP.PD    EQU    OP.PD
 IP.PS    EQU    OP.PS
* 
          ENTRY  GETPAGE
GETPAGE   PS
  
          SB1    1
          GETPAGE X1
          EQ     GETPAGE
  
  
          END 
