cdc:nos2.source:opl.opl871:deck:xtask
Deck XTASK
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.xtask +++| IDENT XTASK 00002 M01S00002.xtask +++| ENTRY XTASK 00003 M01S00003.xtask +++| LCC OVERLAY(XTASK,0,0)
Line S00004 Modification History | |
---|---|
M01 (Added by) | xtask |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.253l688 ---| SST BEGN 00005 M01S00001.253l688 +++| SST BEGN,CMBL 00006 M01S00005.xtask +++| SYSCOM B1 00007 M01S00006.xtask +++|*COMMENT EXECUTE NAMED TASK.
Line S00007 Modification History | |
---|---|
M01 (Added by) | xtask |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00008.xtask +++| XTASK TITLE EXECUTE NAMED TASK. 00011 M01S00009.xtask +++| 00012 M01S00010.xtask +++| XTASK SPACE 4,10 00013 M01S00011.xtask +++|*** XTASK - EXECUTE NAMED TASK. 00014 M01S00012.xtask +++|* E. D. REDIG. 79/10/03. 00015 M01S00013.xtask +++| XTASK SPACE 4,25 00016 M01S00014.xtask +++|*** XTASK IS A SPECIAL TASK SCHEDULER USED TO EXECUTE 00017 M01S00015.xtask +++|* ALMOST ANY NAMED TASK. IT WILL NOT EXECUTE TASKS 00018 M01S00016.xtask +++|* BY THE NAMES - *BTASK*, *CTASK*, *ITASK*, *KDIS*, 00019 M01S00017.xtask +++|* *MSABT*, *OFFTASK*, *RCTASK*, *RTASK*, *SYSMSG*, AND 00020 M01S00018.xtask +++|* *XTASK*. THESE ARE THE NAMES OF SYSTEM TASKS. *XTASK* 00021 M01S00019.xtask +++|* MAY BE USED TO SCHEDULE *LOGT* AS A MEANS OF LOGGING. 00022 M01S00020.xtask +++|* A TERMINAL OUT OF TRANSACTION MODE. *XTASK* CAN BE 00023 M01S00021.xtask +++|* CALLED VIA *ITASK* BY THE FOLLOWING INPUT. 00024 M01S00022.xtask +++|* 00025 M01S00023.xtask +++|* EX.TASK 00026 M01S00024.xtask +++|* 00027 M01S00025.xtask +++|* WHERE: 00028 M01S00026.xtask +++|* 00029 M01S00027.xtask +++|* EX. SPECIAL THREE-CHARACTER CODE WHICH 00030 M01S00028.xtask +++|* CAUSES *ITASK* TO SCHEDULE *XTASK*. 00031 M01S00029.xtask +++|* 00032 M01S00030.xtask +++|* TASK ONE- TO SEVEN-CHARACTER ALPHANUMERIC 00033 M01S00031.xtask +++|* TASK NAME, LEFT-JUSTIFIED WITH A 00034 M01S00032.xtask +++|* NON-ALPHANUMERIC CHARACTER TERMINATOR. 00035 M01S00033.xtask +++|* 00036 M01S00034.xtask +++|* NOTE: SEE *ITASK* FOR CAUTION ON USE OF *XTASK*. 00037 M01S00035.xtask +++| 00038 M01S00036.xtask +++| 00039 M01S00037.xtask +++|* COMMON DECKS. 00040 M01S00038.xtask +++| 00041 M01S00039.xtask +++| 00042 M01S00040.xtask +++|*CALL COMKTAF 00043 M01S00041.xtask +++|*CALL COMKFLD 00044 M01S00042.xtask +++|*CALL COMKIPR 00045 M01S00043.xtask +++| BEGN BSS 0 SAVE ORIGIN COUNTER 00046 M01S00044.xtask +++|*CALL COMKCBD 00047 M01S00045.xtask +++| ORG BEGN RESTORE ORIGIN COUNTER 00048 M01S00046.xtask +++|*CALL COMKMAC 00049 M01S00047.xtask +++|*CALL COMSPRD 00050 M01S00048.xtask +++| XTASK SPACE 4,15 00051 M01S00049.xtask +++|*** COMMUNICATION BLOCK HEADER WORDS AND MESSAGE. 00052 M01S00050.xtask +++|* 00053 M01S00051.xtask +++|*T TRSQ 12/ DB,24/ UA,24/ SEQ
Figure TRSQ
00054 M01S00052.xtask +++|*T, TNAM 42/ TN,18/
Figure TNAM
00055 M01S00053.xtask +++|*T, TMSW 18/ EX,42/ TASK
Figure TMSW
00056 M01S00054.xtask +++|* 00057 M01S00055.xtask +++|* DB DATA BASE FOR TERMINAL. 00058 M01S00056.xtask +++|* UA USER ARGUMENT FIELD FOR TERMINAL. 00059 M01S00057.xtask +++|* SEQ TRANSACTION SEQUENCE NUMBER. 00060 M01S00058.xtask +++|* TN TERMINAL NAME. 00061 M01S00059.xtask +++|* EX EXECUTE CHARACTER CODE *EX.*. 00062 M01S00060.xtask +++|* TASK DESIRED TASK TO BE SCHEDULED. 00063 M01S00061.xtask +++| 00064 M01S00062.xtask +++| 00065 M01S00063.xtask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK 00066 M01S00064.xtask +++| XTASK SPACE 4,15 00067 M01S00065.xtask +++|** XTASK - EXECUTE NAMED TASK. 00068 M01S00066.xtask +++|* 00069 M01S00067.xtask +++|* ENTRY COMMUNICATION BLOCK LOADED. 00070 M01S00068.xtask +++|* 00071 M01S00069.xtask +++|* EXIT DESIRED TASK SCHEDULED. 00072 M01S00070.xtask +++|* 00073 M01S00071.xtask +++|* USES A - 1, 4, 6. 00074 M01S00072.xtask +++|* B - 1, 2, 3. 00075 M01S00073.xtask +++|* X - 1, 2, 3, 4, 5, 6. 00076 M01S00074.xtask +++|* 00077 M01S00075.xtask +++|* CALLS CBT. 00078 M01S00076.xtask +++|* 00079 M01S00077.xtask +++|* MACROS CALLTSK, CEASE, FMSG, SEND. 00080 M01S00078.xtask +++| 00081 M01S00079.xtask +++| 00082 M01S00080.xtask +++| XTASK SB1 1 00083 M01S00081.xtask +++| SA1 TMSW READ TERMINAL INPUT 00084 M01S00082.xtask +++| SA4 A1+B1 GET 8TH CHARACTER 00085 M01S00083.xtask +++| MX2 -42 00086 M01S00084.xtask +++| SX5 1R+ 00087 M01S00085.xtask +++| LX4 5-59 SHIFT 8TH CHARACTER FOR MASK 00088 M01S00086.xtask +++| MX3 -6 ONE CHARACTER MASK 00089 M01S00087.xtask +++| BX1 -X2*X1 MASK OFF TRANSACTION CODE 00090 M01S00088.xtask +++| BX4 -X3*X4 MASK OFF 8TH CHARACTER 00091 M01S00089.xtask +++| LX1 5-41 SHIFT MESSAGE INTO POSITION 00092 M01S00090.xtask +++| SB2 6 00093 M01S00091.xtask +++| LX4 23-59-5+59 SHIFT 8TH CHARACTER INTO POSITION 00094 M01S00092.xtask +++| BX6 X6-X6 00095 M01S00093.xtask +++| SB3 60 00096 M01S00094.xtask +++| BX1 X1+X4 ADD 8TH CHARACTER INTO MESSAGE 00097 M01S00095.xtask +++| XTA1 BX4 -X3*X1 GET A CHARACTER 00098 M01S00096.xtask +++| ZR X4,XTA2 IF END OF TASK NAME 00099 M01S00097.xtask +++| IX2 X4-X5 00100 M01S00098.xtask +++| PL X2,XTA3 IF NOT ALPHANUMERIC 00101 M01S00099.xtask +++| LX6 6 00102 M01S00100.xtask +++| BX6 X6+X4 TRANSFER A CHARACTER 00103 M01S00101.xtask +++| LX1 6 00104 M01S00102.xtask +++| SB3 B3-B2 00105 M01S00103.xtask +++| EQ XTA1 LOOP FOR NEXT CHARACTER 00106 M01S00104.xtask +++| 00107 M01S00105.xtask +++| XTA2 SB2 12 00108 M01S00106.xtask +++| EQ B2,B3,XTA5 IF TOO MANY CHARACTERS IN TASK NAME 00109 M01S00107.xtask +++| XTA3 ZR X6,XTA5 IF ZERO LENGTH TASK NAME 00110 M01S00108.xtask +++| SB2 XTAE START OF SYSTEM TASK TABLE 00111 M01S00109.xtask +++| LX6 X6,B3 LEFT JUSTIFY MESSAGE 00112 M01S00110.xtask +++| SB3 XTAE+XTAF END OF SYSTEM TASK TABLE 00113 M01S00111.xtask +++| XTA4 SA1 B2+ GET NEXT TABLE ELEMENT 00114 M01S00112.xtask +++| BX2 X1-X6 00115 M01S00113.xtask +++| SB2 B2+B1 INCREMENT TABLE INDEX 00116 M01S00114.xtask +++| ZR X2,XTA5 IF SYSTEM TASK 00117 M01S00115.xtask +++| LT B2,B3,XTA4 IF NOT END OF TABLE 00118 M01S00116.xtask +++| SA6 XTAD TASK NAME 00119 M01S00117.xtask +++| CALLTSK XTAD,C EXECUTE TASK WITH CEASE 00120 M01S00118.xtask +++| 00121 M01S00119.xtask +++| XTA5 SEND XTAA SEND ERROR MESSAGE 00122 M01S00120.xtask +++| SA1 TRSQ FIRST WORD OF COMMUNICATIONS BLOCK 00123 M01S00121.xtask +++| RJ CBT CHECK FOR BINARY TERMINAL 00124 M01S00122.xtask +++| ZR X6,XTA6 IF NOT BINARY 00125 M01S00123.xtask +++| SA6 XTAC SET BINARY REQUEST 00126 M01S00124.xtask +++| SEND XTAB SEND BINARY INPUT REQUEST 00127 M01S00125.xtask +++| XTA6 CEASE EXIT TASK WITH CEASE 00128 M01S00126.xtask +++|
Line S00127 Modification History | |
---|---|
M01 (Added by) | xtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00129 M02S00127.v23l617 ---| XTAA FMSG (INVALID TASK NAME.) 00130 M01S00001.v23l617 +++| XTAA FMSG (INCORRECT TASK NAME.) 00131 M01S00128.xtask +++| XTAB VFD 12/0,18/XTAC,12/0,18/1 SEND CONTROL WORD 00132 M01S00129.xtask +++| XTAC CON 0 BINARY REQUEST WORD 00133 M01S00130.xtask +++| XTAD BSSZ 2 TASK LIST FOR *CALLTSK* 00134 M01S00131.xtask +++| XTAE BSS 0 SYSTEM TASK TABLE 00135 M01S00132.xtask +++| VFD 42/0LBTASK,18/0 00136 M01S00133.xtask +++| VFD 42/0LCTASK,18/0 00137 M01S00134.xtask +++| VFD 42/0LITASK,18/0 00138 M01S00135.xtask +++| VFD 42/0LKDIS,18/0 00139 M01S00136.xtask +++| VFD 42/0LMSABT,18/0 00140 M01S00137.xtask +++| VFD 42/0LOFFTASK,18/0 00141 M01S00138.xtask +++| VFD 42/0LRCTASK,18/0 00142 M01S00139.xtask +++| VFD 42/0LRTASK,18/0 00143 M01S00140.xtask +++| VFD 42/0LSYSMSG,18/0 00144 M01S00141.xtask +++| VFD 42/0LXTASK,18/0 00145 M01S00142.xtask +++| XTAF EQU *-XTAE LENGTH OF SYSTEM TASK TABLE 00146 M01S00143.xtask +++| 00147 M01S00144.xtask +++| 00148 M01S00145.xtask +++|* COMMON DECK. 00149 M01S00146.xtask +++| 00150 M01S00147.xtask +++| 00151 M01S00148.xtask +++|*CALL COMKCBT 00152 M01S00149.xtask +++| 00153 M01S00150.xtask +++| 00154 M01S00151.xtask +++| END XTASK
cdc/nos2.source/opl.opl871/deck/xtask.txt · Last modified: by 127.0.0.1