User Tools

Site Tools


cdc:nos2.source:opl871:tmsg

Table of Contents

TMSG

Table Of Contents

  • [00004] TMSG - TAF MESSAGE TO DAYFILE.
  • [00025] TAF MESSAGE TO DAYFILE.

Source Code

TMSG.txt
  1. IDENT TMSG
  2. ENTRY TMSG
  3. SYSCOM B1
  4. TITLE TMSG - TAF MESSAGE TO DAYFILE.
  5. *COMMENT TMSG - TAF MESSAGE TO DAYFILE.
  6. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  7. TMSG SPACE 4,10
  8. **** TMSG - TAF MESSAGE TO DAYFILE
  9. *
  10. * A. E. SCHIPPERS. 80/06/27.
  11. *
  12. * TMSG IS AN INTERFACE ROUTINE WHICH WILL ISSUE A
  13. * MESSAGE TO THE *TAF* DAYFILE FROM A SYSTEM TASK.
  14.  
  15. *IF DEF,TRANC5
  16. * NOTE THIS IS THE COBOL5 VERSION OF TMSG.
  17. *ENDIF
  18. *IF DEF,TRANF4
  19. * NOTE THIS IS THE FORTRAN4 VERSION OF TMSG.
  20. *ENDIF
  21. *IF DEF,TRANF5
  22. * NOTE THIS IS THE FORTRAN5 VERSION OF TMSG.
  23. *ENDIF
  24. TMSG SPACE 4,20
  25. *** TMSG - TAF MESSAGE TO DAYFILE.
  26. *
  27. * ENTRY COMPASS - SCALL TMSG,(MESSAGE,LENGTH)
  28. * COBOL - ENTER TMSG USING MESSAGE[, LENGTH].
  29. * FORTRAN - CALL TMSG(MESSAGE,LENGTH)
  30. *
  31. * WHERE - MESSAGE DATA ITEM CONTAINING THE DAYFILE MESSAGE.
  32. * COBOL - 01 LEVEL ITEM.
  33. * FORTRAN - HOLLERITH.
  34. *
  35. * LENGTH LENGTH OF MESSAGE IN CHARACTERS.
  36. * COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
  37. * NAME.
  38. * FORTRAN - INTEGER.
  39. *
  40. * EXIT MESSAGE ISSUED TO DAYFILE.
  41. *
  42. * USES A - 1, 2, 6.
  43. * X - 1, 2, 3, 4, 6.
  44. * B - 1, 2, 3.
  45. *
  46. * MACROS SYSTEM.
  47. *
  48. * NOTE SYSTEM TASKS ARE THE ONLY TASKS ALLOWED TO ISSUE
  49. * MESSAGES TO THE *TAF* DAYFILE.
  50. TMSG SPACE 4,10
  51. * COMMON DECKS.
  52.  
  53. *CALL COMKMAC
  54. TMSG SPACE 4,10
  55. * THE FOLOWING CODE IS CONDITIONALLY PUT ON THE
  56. * COMPILE FILE AT MODIFICATION TIME. THIS CODE
  57. * ALSO SETS VALUES FOR CONDITIONAL ASSEMBLY OF SOME
  58. * CODE LATER IN THIS DECK.
  59.  
  60. .1 SET 0
  61. *IF DEF,TRANC5
  62. .1 SET .1+1
  63. .2 SET 0 COBOL5 VERSION
  64. *ENDIF
  65. *IF DEF,TRANF4
  66. .1 SET .1+1
  67. .2 SET 1 FORTRAN4 VERSION
  68. *ENDIF
  69. *IF DEF,TRANF5
  70. .1 SET .1+1
  71. .2 SET 2 FORTRAN5 VERSION
  72. *ENDIF
  73. .A IFNE .1,1
  74.  
  75. * ONE AND ONLY ONE OF THE TLIBXX LIBRARIES MUST BE
  76. * DEFINED AT MODIFICATION TIME.
  77.  
  78. ERR MODIFICATION ERRORS
  79.  
  80. .A ENDIF
  81. TMSG SPACE 4,10
  82. VFD 42/0LTMSG,18/TMSG
  83. TMSG SUBR ENTRY/EXIT
  84. SB1 1
  85. SA1 A1
  86. BX3 X3-X3
  87. .B IFEQ .2,0 IF COBOL5 VERSION
  88.  
  89. * PROCESS PARAMETER LIST FOR COBOL5.
  90.  
  91. MX3 -18 GET LENGTH OF MESSAGE
  92. BX4 X1
  93. LX4 17-53
  94. BX3 -X3*X4
  95. .B ENDIF
  96. .C IFEQ .2,1 IF FORTRAN4 VERSION
  97.  
  98. * PROCESS PARAMETER LIST FOR FORTRAN4.
  99.  
  100.  
  101. * NO SPECIAL PROCESSING NEEDED.
  102.  
  103. .C ENDIF
  104. .D IFEQ .2,2 IF FORTRAN5 VERSION
  105.  
  106. * PROCESS PARAMETER LIST FOR FORTRAN5.
  107.  
  108.  
  109. * NO SPECIAL PROCESSING NEEDED.
  110.  
  111. .D ENDIF
  112. SA2 A1+1 GET NEXT PARAMETER
  113. ZR X2,TMS1 IF LENGTH PARAMETER NOT SPECIFIED
  114. SA2 X2+ FWA OF LENGTH
  115. SX3 X2+ LENGTH
  116. TMS1 SX2 10 CHARACTERS PER WORD
  117. IX6 X3/X2 GET NUMBER OF FULL WORDS.
  118. SB2 X6+
  119. SX4 B0+
  120. SX2 10 CHARACTERS PER WORD
  121. UX3 X3,B7
  122. IX2 X6*X2 CHARACTERS IN FULL WORDS
  123. LX3 X3,B7
  124. IX2 X3-X2 NUMBER OF CHARACTERS IN LAST WORD
  125. SX3 6 BITS PER CHARACTER
  126. IX3 X2*X3 MASK FOR CHARACTERS IN LAST WORD
  127. ZR X2,TMS2 IF LAST WORD FULL
  128. MX4 1
  129. SB3 -1
  130. SB3 X3+B3 SHIFT COUNT
  131. AX4 B3
  132. TMS2 SA2 X1+B2 GET LAST WORD OF MESSAGE
  133. SX6 A2 SAVE ADDRESS OF LAST WORD
  134. SA6 TMSA
  135. BX6 X2 SAVE LAST WORD OF MESSAGE
  136. SA3 A2+B1 GET WORD FOLLOWING MESSAGE
  137. SA6 A6+B1
  138. BX6 X3 SAVE WORD FOLLOING MESSAGE
  139. SA6 A6+B1
  140. BX6 X4*X2 ZERO OUT TRAILING BITS
  141. SA6 A2
  142. BX6 X6-X6 ZERO OUT WORD FOLLOWING MESSAGE
  143. SX3 X1
  144. SA6 A6+1
  145. SYSTEM TMS,R,X3,B0 ISSUE *TMS* REQUEST
  146. SA2 TMSA ADDRESS OF LAST WORD OF MESSAGE
  147. SA3 A2+B1 RESTORE LAST WORD OF MESSAGE
  148. BX6 X3
  149. SA6 X2+
  150. SA3 A3+B1 RESTORE WORD FOLLOWING MESSAGE
  151. BX6 X3
  152. SA6 X2+1
  153. EQ TMSGX EXIT.
  154.  
  155.  
  156.  
  157. * STORAGE FOR WORDS DESTROYED BY TMSG REQUEST.
  158.  
  159. TMSA BSS 3
  160. END
cdc/nos2.source/opl871/tmsg.txt ยท Last modified: 2023/08/05 17:24 by Site Administrator