Table of Contents

OMSG

Table Of Contents

Source Code

OMSG.txt 
  1. *DECK OMSG
  2.           IDENT  OMSG 
  3.           ENTRY  OMSG 
  4.           EXT    XTRACE 
  5.           SST 
  6.           IPARAMS 
  7. *#
  8. *1DC  OMSG
  9. * 
  10. *     1. PROC NAME           AUTHOR              DATE 
  11. *        OMSG                J. J. LYON          75/06/02 
  12. * 
  13. *     2. FUNCTIONAL DESCRIPTION.
  14. *        THIS ROUTINE IS RESPONSIBLE FOR PUTTING OUT A MESSAGE TO NIP-S 
  15. *        DAYFILE. 
  16. * 
  17. *     3. METHOD USED. 
  18. *          SET UP X6 AND X1 REGISTERS FOR MSG= ROUTINE                   NAMA527
  19. * 
  20. *     4. ENTRY PARAMETERS.
  21. *          A1 = ADDR OF FWA OF MESSAGE
  22. *          DAYFILE MESSAGE MUST END WITH 12 BITS OF ZERO IN BYTE 4       NAMA527
  23. * 
  24. *     5. EXIT PARAMETERS.  NONE 
  25. * 
  26. *     6. COMDECKS CALLED. 
  27. *          INPARU  MACDEF 
  28. * 
  29. *     7. ROUTINES CALLED. 
  30. *          MSG=              CALL PP ROUTINE MSG                         NAMA527
  31. *          XTRACE            TRACES CALLS 
  32. * 
  33. *     8. DAYFILE MESSAGES.  NONE
  34. * 
  35. *#
  36. *CALL MACDEF
  37. *CALL INPARU
  38. BLANK     VFD    12/2H  ,48/0 
  39. MSGADDR   BSSZ   1           STORAGE WORD FOR MESSAGE ADDRESS            NAMA527
  40. MSGFUNC   BSSZ   1
  41.  
  42.  OMSG     SUBR   =           ENTRY/EXIT 
  43.           SA1    A1          GET ADDRESS OF MESSAGE                      NAMA527
  44.           SA2    X1          FIRST WORD OF MESSAGE
  45.           SA4    A1+1 
  46.           SA4    X4          GET OPERATION MODE 
  47.           BX6    X4 
  48.           SA6    MSGFUNC
  49.           MX0    12 
  50.           BX3    X0*X2       UPPER 12 BITS OF MESSAGE-S FIRST WORD
  51.           NZ     X3,OMSG1    IF IT IS NOT ZERO
  52.           ZR     X2,OMSG1    IF IT IS ZERO
  53.           BX3   -X0*X2       MASK OFF LOWER 48 BITS OF FIRST WORD 
  54.           SA2    BLANK
  55.           BX6    X2+X3
  56.           SA6    X1          BLANK-FILLED FIRST 2 CHARACTERS OF MSG 
  57. OMSG1     BSS    0
  58.           IFEQ   DEBUG,1,9
  59.           BX6    X1                                                      NAMA527
  60.           SA6    MSGADDR     SAVE MESSAGE ADDRESS                        NAMA527
  61.           SX6    A1 
  62.           SA6    TEMP 
  63.           SX1    XOMSG
  64.           RJ     XTRACE 
  65.           SA1    TEMP 
  66.           SA1    X1 
  67.           SA1    MSGADDR                                                 NAMA527
  68.           SA4     MSGFUNC 
  69.           MESSAGE X1,X4,R   ISSUE MACRO CALL WITH PROPER TYPE 
  70.           EQ      OMSGX      RETURN 
  71.  XOMSG    DATA   L* OMSG* 
  72.  TEMP     BSS    1
  73.           END