Deck STASK

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.stask   +++|          IDENT  STASK
00002  M00S00002.stask   +++|          ENTRY  STASK
00003  M00S00003.stask   +++|          LCC    OVERLAY(STASK,0,0)

Line S00004 Modification History
`M01` (Removed by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.253l688 ---|          SST    BEGN

Line S00001 Modification History
`M01` (Added by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.253l688 +++|          SST    BEGN,CMBL
00006  M00S00005.stask   +++|          SYSCOM B1
00007  M00S00006.stask   +++|          TITLE  STASK - SEND MESSAGE THEN CEASE.
00008  M00S00007.stask   +++|*COMMENT  STASK - SEND MESSAGE THEN CEASE.

Line S00008 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1984.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00009.stask   +++|          SPACE  4,10
00012  M00S00010.stask   +++|***       STASK - SEND MESSAGE THEN CEASE.
00013  M00S00011.stask   +++|*
00014  M00S00012.stask   +++|*         M. S. PESCHMAN.    84/07/25.
00015  M00S00013.stask   +++| STASK    SPACE  4,10
00016  M00S00014.stask   +++|***       STASK SENDS A MESSAGE TO THE TERMINAL AND THEN USING THE
00017  M00S00015.stask   +++|*         *CEASE* MACRO CEASES.  STASK WILL ONLY BE CALLED FROM
00018  M00S00016.stask   +++|*         *ITASK* WHEN *ITASK* WOULD SEND A MESSAGE TO THE TERMINAL
00019  M00S00017.stask   +++|*         AND CEASE.  THIS WILL PREVENT *ITASK* FROM HANGING DUE TO
00020  M00S00018.stask   +++|*         LACK OF OPERATOR RESPONSE.
00021  M00S00019.stask   +++|
00022  M00S00020.stask   +++|*         COMMON DECKS.
00023  M00S00021.stask   +++|
00024  M00S00022.stask   +++|
00025  M00S00023.stask   +++|*CALL     COMKFLD
00026  M00S00024.stask   +++|*CALL     COMKIPR
00027  M00S00025.stask   +++| BEGN     BSS    0           SAVE ORIGIN COUNTER
00028  M00S00026.stask   +++|*CALL     COMKCBD
00029  M00S00027.stask   +++|          ORG    BEGN        RESTORE ORIGIN COUNTER
00030  M00S00028.stask   +++|*CALL     COMKMAC
00031  M00S00029.stask   +++|          SPACE  4,15
00032  M00S00030.stask   +++|
00033  M00S00031.stask   +++|***       COMMUNICATION BLOCK DATA ITEM.
00034  M00S00032.stask   +++|*
00035  M00S00033.stask   +++|*T, TMSW  54/ 0, 6/ MN

Figure TMSW

00036  M00S00034.stask   +++|*
00037  M00S00035.stask   +++|*         DB  =  DATA BASE FOR TERMINAL.
00038  M00S00036.stask   +++|*         UA  =  USER ARGUMENT FIELD FOR TERMINAL.
00039  M00S00037.stask   +++|*         SEQ =  TRANSACTION SEQUENCE NUMBER.
00040  M00S00038.stask   +++|*         TN  =  TERMINAL NAME.
00041  M00S00039.stask   +++|*         MN  =  MESSAGE NUMBER.
00042  M00S00040.stask   +++|
00043  M00S00041.stask   +++|
00044  M00S00042.stask   +++|          BSS    CMBL        RESERVE SPACE FOR COMMUNICATION BLOCK
00045  M00S00043.stask   +++| STASK    SPACE  4,15
00046  M00S00044.stask   +++|**        STASK - SEND A MESSAGE TO A TERMINAL THEN CEASE.
00047  M00S00045.stask   +++|*
00048  M00S00046.stask   +++|*         ENTRY  (TMSW) = MESSAGE NUMBER.
00049  M00S00047.stask   +++|*                       0 = *INPUT TOO LARGE*.
00050  M00S00048.stask   +++|*                       1 = *BREAK RECIEVED*.
00051  M00S00049.stask   +++|*                       2 = *UNKNOWN NAMED TRANSACTION*.
00052  M00S00050.stask   +++|*
00053  M00S00051.stask   +++|*         EXIT   MESSAGE SENT TO TERMINAL.
00054  M00S00052.stask   +++|*
00055  M00S00053.stask   +++|*         USES   X - 1, 7.
00056  M00S00054.stask   +++|*                A - 1.
00057  M00S00055.stask   +++|*                B - 1.
00058  M00S00056.stask   +++|*
00059  M00S00057.stask   +++|*         MACROS CEASE, SEND.
00060  M00S00058.stask   +++|
00061  M00S00059.stask   +++|
00062  M00S00060.stask   +++| STASK    SB1    1           ENTRY
00063  M00S00061.stask   +++|          SA1    TMSW        MESSAGE NUMBER
00064  M00S00062.stask   +++|          SX1    X1-1
00065  M00S00063.stask   +++|          ZR     X1,STA1     IF *BREAK RECIEVED* MESSAGE
00066  M00S00064.stask   +++|          NG     X1,STA2     IF *INPUT TOO LARGE*
00067  M00S00065.stask   +++|          SX7    STAC        UNKNOWN NAMED TRANSACTION
00068  M00S00066.stask   +++|          EQ     STA3        SEND MESSAGE
00069  M00S00067.stask   +++|
00070  M00S00068.stask   +++| STA1     SX7    STAA        *BREAK RECIEVED.* MESSAGE
00071  M00S00069.stask   +++|          EQ     STA3        SEND MESSAGE
00072  M00S00070.stask   +++|
00073  M00S00071.stask   +++| STA2     SX7    STAB        *INPUT TOO LARGE.* MESSAGE
00074  M00S00072.stask   +++| STA3     SEND   X7          SEND MESSAGE
00075  M00S00073.stask   +++|          CEASE              EXIT WITHOUT SCHEDULING TRANSACTION UNIT
00076  M00S00074.stask   +++|
00077  M00S00075.stask   +++|
00078  M00S00076.stask   +++| STAA     FMSG   (BREAK RECEIVED.)
00079  M00S00077.stask   +++| STAB     FMSG   (INPUT TOO LARGE.)
00080  M00S00078.stask   +++| STAC     FMSG   (UNKNOWN NAMED TRANSACTION REQUESTED FOR SCHEDULING.)
00081  M00S00079.stask   +++|
00082  M00S00080.stask   +++|
00083  M00S00081.stask   +++|          END    STASK