User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:tmsg

Deck TMSG

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.tmsg    +++|          IDENT  TMSG
00002  M01S00002.tmsg    +++|          ENTRY  TMSG
00003  M01S00003.tmsg    +++|          SYSCOM B1
00004  M01S00001.ns2440  +++|          TITLE  TMSG - TAF MESSAGE TO DAYFILE.
00005  M01S00002.ns2440  +++|*COMMENT  TMSG - TAF MESSAGE TO DAYFILE.
Line S00003 Modification History
M01 (Added by) ns2440
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00003.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1980.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00004.tmsg    +++| TMSG     SPACE  4,10
00009  M01S00005.tmsg    +++|****      TMSG - TAF MESSAGE TO DAYFILE
00010  M01S00006.tmsg    +++|*
00011  M01S00007.tmsg    +++|*         A. E. SCHIPPERS.   80/06/27.
00012  M01S00008.tmsg    +++|*
00013  M01S00009.tmsg    +++|*         TMSG IS AN INTERFACE ROUTINE WHICH WILL ISSUE A
00014  M01S00010.tmsg    +++|*         MESSAGE TO THE *TAF* DAYFILE FROM A SYSTEM TASK.
00015  M01S00011.tmsg    +++|
00016  M01S00012.tmsg    +++|*IF DEF,TRANC5
00017  M01S00013.tmsg    +++|*         NOTE   THIS IS THE COBOL5 VERSION OF TMSG.
00018  M01S00014.tmsg    +++|*ENDIF
00019  M01S00015.tmsg    +++|*IF DEF,TRANF4
00020  M01S00016.tmsg    +++|*         NOTE   THIS IS THE FORTRAN4 VERSION OF TMSG.
00021  M01S00017.tmsg    +++|*ENDIF
00022  M01S00018.tmsg    +++|*IF DEF,TRANF5
00023  M01S00019.tmsg    +++|*         NOTE   THIS IS THE FORTRAN5 VERSION OF TMSG.
00024  M01S00020.tmsg    +++|*ENDIF
00025  M01S00021.tmsg    +++| TMSG     SPACE  4,20
00026  M01S00022.tmsg    +++|***       TMSG - TAF MESSAGE TO DAYFILE.
00027  M01S00023.tmsg    +++|*
00028  M01S00024.tmsg    +++|*         ENTRY  COMPASS - SCALL TMSG,(MESSAGE,LENGTH)
00029  M01S00025.tmsg    +++|*                COBOL - ENTER TMSG USING MESSAGE[, LENGTH].
00030  M01S00026.tmsg    +++|*                FORTRAN - CALL TMSG(MESSAGE,LENGTH)
00031  M01S00027.tmsg    +++|*
00032  M01S00028.tmsg    +++|*         WHERE - MESSAGE    DATA ITEM CONTAINING THE DAYFILE MESSAGE.
00033  M01S00029.tmsg    +++|*                            COBOL - 01 LEVEL ITEM.
00034  M01S00030.tmsg    +++|*                            FORTRAN - HOLLERITH.
00035  M01S00031.tmsg    +++|*
00036  M01S00032.tmsg    +++|*                 LENGTH     LENGTH OF MESSAGE IN CHARACTERS.
00037  M01S00033.tmsg    +++|*                            COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00038  M01S00034.tmsg    +++|*                            NAME.
00039  M01S00035.tmsg    +++|*                            FORTRAN - INTEGER.
00040  M01S00036.tmsg    +++|*
00041  M01S00037.tmsg    +++|*         EXIT   MESSAGE ISSUED TO DAYFILE.
00042  M01S00038.tmsg    +++|*
00043  M01S00039.tmsg    +++|*         USES   A - 1, 2, 6.
00044  M01S00040.tmsg    +++|*                X - 1, 2, 3, 4, 6.
00045  M01S00041.tmsg    +++|*                B - 1, 2, 3.
00046  M01S00042.tmsg    +++|*
00047  M01S00043.tmsg    +++|*         MACROS SYSTEM.
00048  M01S00044.tmsg    +++|*
00049  M01S00045.tmsg    +++|*         NOTE   SYSTEM TASKS ARE THE ONLY TASKS ALLOWED TO ISSUE
00050  M01S00046.tmsg    +++|*                MESSAGES TO THE *TAF* DAYFILE.
00051  M01S00047.tmsg    +++| TMSG     SPACE  4,10
00052  M01S00048.tmsg    +++|*         COMMON DECKS.
00053  M01S00049.tmsg    +++|
00054  M01S00050.tmsg    +++|*CALL     COMKMAC
00055  M01S00051.tmsg    +++| TMSG     SPACE  4,10
00056  M01S00052.tmsg    +++|*         THE FOLOWING CODE IS CONDITIONALLY PUT ON THE
00057  M01S00053.tmsg    +++|*         COMPILE FILE AT MODIFICATION TIME.  THIS CODE
00058  M01S00054.tmsg    +++|*         ALSO SETS VALUES FOR CONDITIONAL ASSEMBLY OF SOME
00059  M01S00055.tmsg    +++|*         CODE LATER IN THIS DECK.
00060  M01S00056.tmsg    +++|
00061  M01S00057.tmsg    +++| .1       SET    0
00062  M01S00058.tmsg    +++|*IF DEF,TRANC5
00063  M01S00059.tmsg    +++| .1       SET    .1+1
00064  M01S00060.tmsg    +++| .2       SET    0           COBOL5 VERSION
00065  M01S00061.tmsg    +++|*ENDIF
00066  M01S00062.tmsg    +++|*IF DEF,TRANF4
00067  M01S00063.tmsg    +++| .1       SET    .1+1
00068  M01S00064.tmsg    +++| .2       SET    1           FORTRAN4 VERSION
00069  M01S00065.tmsg    +++|*ENDIF
00070  M01S00066.tmsg    +++|*IF DEF,TRANF5
00071  M01S00067.tmsg    +++| .1       SET    .1+1
00072  M01S00068.tmsg    +++| .2       SET    2           FORTRAN5 VERSION
00073  M01S00069.tmsg    +++|*ENDIF
00074  M01S00070.tmsg    +++| .A       IFNE   .1,1
00075  M01S00071.tmsg    +++|
00076  M01S00072.tmsg    +++|*         ONE AND ONLY ONE OF THE TLIBXX LIBRARIES MUST BE
00077  M01S00073.tmsg    +++|*         DEFINED AT MODIFICATION TIME.
00078  M01S00074.tmsg    +++|
00079  M01S00075.tmsg    +++|          ERR                MODIFICATION ERRORS
00080  M01S00076.tmsg    +++|
00081  M01S00077.tmsg    +++| .A       ENDIF
00082  M01S00078.tmsg    +++| TMSG     SPACE  4,10
00083  M01S00079.tmsg    +++|          VFD    42/0LTMSG,18/TMSG
00084  M01S00080.tmsg    +++| TMSG     SUBR               ENTRY/EXIT
00085  M01S00081.tmsg    +++|          SB1    1
00086  M01S00082.tmsg    +++|          SA1    A1
00087  M01S00083.tmsg    +++|          BX3    X3-X3
00088  M01S00084.tmsg    +++| .B       IFEQ   .2,0        IF COBOL5 VERSION
00089  M01S00085.tmsg    +++|
00090  M01S00086.tmsg    +++|*         PROCESS PARAMETER LIST FOR COBOL5.
00091  M01S00087.tmsg    +++|
00092  M01S00088.tmsg    +++|          MX3    -18         GET LENGTH OF MESSAGE
00093  M01S00089.tmsg    +++|          BX4    X1
00094  M01S00090.tmsg    +++|          LX4    17-53
00095  M01S00091.tmsg    +++|          BX3    -X3*X4
00096  M01S00092.tmsg    +++| .B       ENDIF
00097  M01S00093.tmsg    +++| .C       IFEQ   .2,1        IF FORTRAN4 VERSION
00098  M01S00094.tmsg    +++|
00099  M01S00095.tmsg    +++|*         PROCESS PARAMETER LIST FOR FORTRAN4.
00100  M01S00096.tmsg    +++|
00101  M01S00097.tmsg    +++|
00102  M01S00098.tmsg    +++|*         NO SPECIAL PROCESSING NEEDED.
00103  M01S00099.tmsg    +++|
00104  M01S00100.tmsg    +++| .C       ENDIF
00105  M01S00101.tmsg    +++| .D       IFEQ   .2,2        IF FORTRAN5 VERSION
00106  M01S00102.tmsg    +++|
00107  M01S00103.tmsg    +++|*         PROCESS PARAMETER LIST FOR FORTRAN5.
00108  M01S00104.tmsg    +++|
00109  M01S00105.tmsg    +++|
00110  M01S00106.tmsg    +++|*         NO SPECIAL PROCESSING NEEDED.
00111  M01S00107.tmsg    +++|
00112  M01S00108.tmsg    +++| .D       ENDIF
00113  M01S00109.tmsg    +++|          SA2    A1+1        GET NEXT PARAMETER
00114  M01S00110.tmsg    +++|          ZR     X2,TMS1     IF LENGTH PARAMETER NOT SPECIFIED
00115  M01S00111.tmsg    +++|          SA2    X2+         FWA OF LENGTH
00116  M01S00112.tmsg    +++|          SX3    X2+         LENGTH
00117  M01S00113.tmsg    +++| TMS1     SX2    10          CHARACTERS PER WORD
00118  M01S00114.tmsg    +++|          IX6    X3/X2       GET NUMBER OF FULL WORDS.
00119  M01S00115.tmsg    +++|          SB2    X6+
00120  M01S00116.tmsg    +++|          SX4    B0+
00121  M01S00117.tmsg    +++|          SX2    10          CHARACTERS PER WORD
00122  M01S00118.tmsg    +++|          UX3    X3,B7
00123  M01S00119.tmsg    +++|          IX2    X6*X2       CHARACTERS IN FULL WORDS
00124  M01S00120.tmsg    +++|          LX3    X3,B7
00125  M01S00121.tmsg    +++|          IX2    X3-X2       NUMBER OF CHARACTERS IN LAST WORD
00126  M01S00122.tmsg    +++|          SX3    6           BITS PER CHARACTER
00127  M01S00123.tmsg    +++|          IX3    X2*X3       MASK FOR CHARACTERS IN LAST WORD
00128  M01S00124.tmsg    +++|          ZR     X2,TMS2     IF LAST WORD FULL
00129  M01S00125.tmsg    +++|          MX4    1
00130  M01S00126.tmsg    +++|          SB3    -1
00131  M01S00127.tmsg    +++|          SB3    X3+B3       SHIFT COUNT
00132  M01S00128.tmsg    +++|          AX4    B3
00133  M01S00129.tmsg    +++| TMS2     SA2    X1+B2       GET LAST WORD OF MESSAGE
00134  M01S00130.tmsg    +++|          SX6    A2          SAVE ADDRESS OF LAST WORD
00135  M01S00131.tmsg    +++|          SA6    TMSA
00136  M01S00132.tmsg    +++|          BX6    X2          SAVE LAST WORD OF MESSAGE
00137  M01S00133.tmsg    +++|          SA3    A2+B1       GET WORD FOLLOWING MESSAGE
00138  M01S00134.tmsg    +++|          SA6    A6+B1
00139  M01S00135.tmsg    +++|          BX6    X3          SAVE WORD FOLLOING MESSAGE
00140  M01S00136.tmsg    +++|          SA6    A6+B1
00141  M01S00137.tmsg    +++|          BX6    X4*X2       ZERO OUT TRAILING BITS
00142  M01S00138.tmsg    +++|          SA6    A2
00143  M01S00139.tmsg    +++|          BX6    X6-X6       ZERO OUT WORD FOLLOWING MESSAGE
00144  M01S00140.tmsg    +++|          SX3    X1
00145  M01S00141.tmsg    +++|          SA6    A6+1
00146  M01S00142.tmsg    +++|          SYSTEM TMS,R,X3,B0 ISSUE *TMS* REQUEST
00147  M01S00143.tmsg    +++|          SA2    TMSA        ADDRESS OF LAST WORD OF MESSAGE
00148  M01S00144.tmsg    +++|          SA3    A2+B1       RESTORE LAST WORD OF MESSAGE
00149  M01S00145.tmsg    +++|          BX6    X3
00150  M01S00146.tmsg    +++|          SA6    X2+
00151  M01S00147.tmsg    +++|          SA3    A3+B1       RESTORE WORD FOLLOWING MESSAGE
00152  M01S00148.tmsg    +++|          BX6    X3
00153  M01S00149.tmsg    +++|          SA6    X2+1
00154  M01S00150.tmsg    +++|          EQ     TMSGX       EXIT.
00155  M01S00151.tmsg    +++|
00156  M01S00152.tmsg    +++|
00157  M01S00153.tmsg    +++|
00158  M01S00154.tmsg    +++|*         STORAGE FOR WORDS DESTROYED BY TMSG REQUEST.
00159  M01S00155.tmsg    +++|
00160  M01S00156.tmsg    +++| TMSA     BSS    3
00161  M01S00157.tmsg    +++|          END
cdc/nos2.source/opl.opl871/deck/tmsg.txt ยท Last modified: by 127.0.0.1