Deck STASK

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.stask   +++|          IDENT  STASK
00002  M01S00002.stask   +++|          ENTRY  STASK
00003  M01S00003.stask   +++|          LCC    OVERLAY(STASK,0,0)

Line S00004 Modification History
`M01` (Added by)	`stask`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.253l688 ---|          SST    BEGN
00005  M01S00001.253l688 +++|          SST    BEGN,CMBL
00006  M01S00005.stask   +++|          SYSCOM B1
00007  M01S00006.stask   +++|          TITLE  STASK - SEND MESSAGE THEN CEASE.
00008  M01S00007.stask   +++|*COMMENT  STASK - SEND MESSAGE THEN CEASE.

Line S00008 Modification History
`M01` (Added by)	`stask`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1984.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00009.stask   +++|          SPACE  4,10
00012  M01S00010.stask   +++|***       STASK - SEND MESSAGE THEN CEASE.
00013  M01S00011.stask   +++|*
00014  M01S00012.stask   +++|*         M. S. PESCHMAN.    84/07/25.
00015  M01S00013.stask   +++| STASK    SPACE  4,10
00016  M01S00014.stask   +++|***       STASK SENDS A MESSAGE TO THE TERMINAL AND THEN USING THE
00017  M01S00015.stask   +++|*         *CEASE* MACRO CEASES.  STASK WILL ONLY BE CALLED FROM
00018  M01S00016.stask   +++|*         *ITASK* WHEN *ITASK* WOULD SEND A MESSAGE TO THE TERMINAL
00019  M01S00017.stask   +++|*         AND CEASE.  THIS WILL PREVENT *ITASK* FROM HANGING DUE TO
00020  M01S00018.stask   +++|*         LACK OF OPERATOR RESPONSE.
00021  M01S00019.stask   +++|
00022  M01S00020.stask   +++|*         COMMON DECKS.
00023  M01S00021.stask   +++|
00024  M01S00022.stask   +++|
00025  M01S00023.stask   +++|*CALL     COMKFLD
00026  M01S00024.stask   +++|*CALL     COMKIPR
00027  M01S00025.stask   +++| BEGN     BSS    0           SAVE ORIGIN COUNTER
00028  M01S00026.stask   +++|*CALL     COMKCBD
00029  M01S00027.stask   +++|          ORG    BEGN        RESTORE ORIGIN COUNTER
00030  M01S00028.stask   +++|*CALL     COMKMAC
00031  M01S00029.stask   +++|          SPACE  4,15
00032  M01S00030.stask   +++|
00033  M01S00031.stask   +++|***       COMMUNICATION BLOCK DATA ITEM.
00034  M01S00032.stask   +++|*
00035  M01S00033.stask   +++|*T, TMSW  54/ 0, 6/ MN

Figure TMSW

00036  M01S00034.stask   +++|*
00037  M01S00035.stask   +++|*         DB  =  DATA BASE FOR TERMINAL.
00038  M01S00036.stask   +++|*         UA  =  USER ARGUMENT FIELD FOR TERMINAL.
00039  M01S00037.stask   +++|*         SEQ =  TRANSACTION SEQUENCE NUMBER.
00040  M01S00038.stask   +++|*         TN  =  TERMINAL NAME.
00041  M01S00039.stask   +++|*         MN  =  MESSAGE NUMBER.
00042  M01S00040.stask   +++|
00043  M01S00041.stask   +++|
00044  M01S00042.stask   +++|          BSS    CMBL        RESERVE SPACE FOR COMMUNICATION BLOCK
00045  M01S00043.stask   +++| STASK    SPACE  4,15
00046  M01S00044.stask   +++|**        STASK - SEND A MESSAGE TO A TERMINAL THEN CEASE.
00047  M01S00045.stask   +++|*
00048  M01S00046.stask   +++|*         ENTRY  (TMSW) = MESSAGE NUMBER.
00049  M01S00047.stask   +++|*                       0 = *INPUT TOO LARGE*.
00050  M01S00048.stask   +++|*                       1 = *BREAK RECIEVED*.
00051  M01S00049.stask   +++|*                       2 = *UNKNOWN NAMED TRANSACTION*.
00052  M01S00050.stask   +++|*
00053  M01S00051.stask   +++|*         EXIT   MESSAGE SENT TO TERMINAL.
00054  M01S00052.stask   +++|*
00055  M01S00053.stask   +++|*         USES   X - 1, 7.
00056  M01S00054.stask   +++|*                A - 1.
00057  M01S00055.stask   +++|*                B - 1.
00058  M01S00056.stask   +++|*
00059  M01S00057.stask   +++|*         MACROS CEASE, SEND.
00060  M01S00058.stask   +++|
00061  M01S00059.stask   +++|
00062  M01S00060.stask   +++| STASK    SB1    1           ENTRY
00063  M01S00061.stask   +++|          SA1    TMSW        MESSAGE NUMBER
00064  M01S00062.stask   +++|          SX1    X1-1
00065  M01S00063.stask   +++|          ZR     X1,STA1     IF *BREAK RECIEVED* MESSAGE
00066  M01S00064.stask   +++|          NG     X1,STA2     IF *INPUT TOO LARGE*
00067  M01S00065.stask   +++|          SX7    STAC        UNKNOWN NAMED TRANSACTION
00068  M01S00066.stask   +++|          EQ     STA3        SEND MESSAGE
00069  M01S00067.stask   +++|
00070  M01S00068.stask   +++| STA1     SX7    STAA        *BREAK RECIEVED.* MESSAGE
00071  M01S00069.stask   +++|          EQ     STA3        SEND MESSAGE
00072  M01S00070.stask   +++|
00073  M01S00071.stask   +++| STA2     SX7    STAB        *INPUT TOO LARGE.* MESSAGE
00074  M01S00072.stask   +++| STA3     SEND   X7          SEND MESSAGE
00075  M01S00073.stask   +++|          CEASE              EXIT WITHOUT SCHEDULING TRANSACTION UNIT
00076  M01S00074.stask   +++|
00077  M01S00075.stask   +++|
00078  M01S00076.stask   +++| STAA     FMSG   (BREAK RECEIVED.)
00079  M01S00077.stask   +++| STAB     FMSG   (INPUT TOO LARGE.)
00080  M01S00078.stask   +++| STAC     FMSG   (UNKNOWN NAMED TRANSACTION REQUESTED FOR SCHEDULING.)
00081  M01S00079.stask   +++|
00082  M01S00080.stask   +++|
00083  M01S00081.stask   +++|          END    STASK