cdc:nos2.source:opl.opl871:deck:stask
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
cdc/nos2.source/opl.opl871/deck/stask.txt · Last modified: by 127.0.0.1