cdc:nos2.source:opl.opl871:deck:xtask
Deck XTASK
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.xtask +++| IDENT XTASK 00002 M00S00002.xtask +++| ENTRY XTASK 00003 M00S00003.xtask +++| LCC OVERLAY(XTASK,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.xtask +++| SYSCOM B1 00007 M00S00006.xtask +++|*COMMENT EXECUTE NAMED TASK.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00008.xtask +++| XTASK TITLE EXECUTE NAMED TASK. 00011 M00S00009.xtask +++| 00012 M00S00010.xtask +++| XTASK SPACE 4,10 00013 M00S00011.xtask +++|*** XTASK - EXECUTE NAMED TASK. 00014 M00S00012.xtask +++|* E. D. REDIG. 79/10/03. 00015 M00S00013.xtask +++| XTASK SPACE 4,25 00016 M00S00014.xtask +++|*** XTASK IS A SPECIAL TASK SCHEDULER USED TO EXECUTE 00017 M00S00015.xtask +++|* ALMOST ANY NAMED TASK. IT WILL NOT EXECUTE TASKS 00018 M00S00016.xtask +++|* BY THE NAMES - *BTASK*, *CTASK*, *ITASK*, *KDIS*, 00019 M00S00017.xtask +++|* *MSABT*, *OFFTASK*, *RCTASK*, *RTASK*, *SYSMSG*, AND 00020 M00S00018.xtask +++|* *XTASK*. THESE ARE THE NAMES OF SYSTEM TASKS. *XTASK* 00021 M00S00019.xtask +++|* MAY BE USED TO SCHEDULE *LOGT* AS A MEANS OF LOGGING. 00022 M00S00020.xtask +++|* A TERMINAL OUT OF TRANSACTION MODE. *XTASK* CAN BE 00023 M00S00021.xtask +++|* CALLED VIA *ITASK* BY THE FOLLOWING INPUT. 00024 M00S00022.xtask +++|* 00025 M00S00023.xtask +++|* EX.TASK 00026 M00S00024.xtask +++|* 00027 M00S00025.xtask +++|* WHERE: 00028 M00S00026.xtask +++|* 00029 M00S00027.xtask +++|* EX. SPECIAL THREE-CHARACTER CODE WHICH 00030 M00S00028.xtask +++|* CAUSES *ITASK* TO SCHEDULE *XTASK*. 00031 M00S00029.xtask +++|* 00032 M00S00030.xtask +++|* TASK ONE- TO SEVEN-CHARACTER ALPHANUMERIC 00033 M00S00031.xtask +++|* TASK NAME, LEFT-JUSTIFIED WITH A 00034 M00S00032.xtask +++|* NON-ALPHANUMERIC CHARACTER TERMINATOR. 00035 M00S00033.xtask +++|* 00036 M00S00034.xtask +++|* NOTE: SEE *ITASK* FOR CAUTION ON USE OF *XTASK*. 00037 M00S00035.xtask +++| 00038 M00S00036.xtask +++| 00039 M00S00037.xtask +++|* COMMON DECKS. 00040 M00S00038.xtask +++| 00041 M00S00039.xtask +++| 00042 M00S00040.xtask +++|*CALL COMKTAF 00043 M00S00041.xtask +++|*CALL COMKFLD 00044 M00S00042.xtask +++|*CALL COMKIPR 00045 M00S00043.xtask +++| BEGN BSS 0 SAVE ORIGIN COUNTER 00046 M00S00044.xtask +++|*CALL COMKCBD 00047 M00S00045.xtask +++| ORG BEGN RESTORE ORIGIN COUNTER 00048 M00S00046.xtask +++|*CALL COMKMAC 00049 M00S00047.xtask +++|*CALL COMSPRD 00050 M00S00048.xtask +++| XTASK SPACE 4,15 00051 M00S00049.xtask +++|*** COMMUNICATION BLOCK HEADER WORDS AND MESSAGE. 00052 M00S00050.xtask +++|* 00053 M00S00051.xtask +++|*T TRSQ 12/ DB,24/ UA,24/ SEQ
Figure TRSQ
00054 M00S00052.xtask +++|*T, TNAM 42/ TN,18/
Figure TNAM
00055 M00S00053.xtask +++|*T, TMSW 18/ EX,42/ TASK
Figure TMSW
00056 M00S00054.xtask +++|* 00057 M00S00055.xtask +++|* DB DATA BASE FOR TERMINAL. 00058 M00S00056.xtask +++|* UA USER ARGUMENT FIELD FOR TERMINAL. 00059 M00S00057.xtask +++|* SEQ TRANSACTION SEQUENCE NUMBER. 00060 M00S00058.xtask +++|* TN TERMINAL NAME. 00061 M00S00059.xtask +++|* EX EXECUTE CHARACTER CODE *EX.*. 00062 M00S00060.xtask +++|* TASK DESIRED TASK TO BE SCHEDULED. 00063 M00S00061.xtask +++| 00064 M00S00062.xtask +++| 00065 M00S00063.xtask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK 00066 M00S00064.xtask +++| XTASK SPACE 4,15 00067 M00S00065.xtask +++|** XTASK - EXECUTE NAMED TASK. 00068 M00S00066.xtask +++|* 00069 M00S00067.xtask +++|* ENTRY COMMUNICATION BLOCK LOADED. 00070 M00S00068.xtask +++|* 00071 M00S00069.xtask +++|* EXIT DESIRED TASK SCHEDULED. 00072 M00S00070.xtask +++|* 00073 M00S00071.xtask +++|* USES A - 1, 4, 6. 00074 M00S00072.xtask +++|* B - 1, 2, 3. 00075 M00S00073.xtask +++|* X - 1, 2, 3, 4, 5, 6. 00076 M00S00074.xtask +++|* 00077 M00S00075.xtask +++|* CALLS CBT. 00078 M00S00076.xtask +++|* 00079 M00S00077.xtask +++|* MACROS CALLTSK, CEASE, FMSG, SEND. 00080 M00S00078.xtask +++| 00081 M00S00079.xtask +++| 00082 M00S00080.xtask +++| XTASK SB1 1 00083 M00S00081.xtask +++| SA1 TMSW READ TERMINAL INPUT 00084 M00S00082.xtask +++| SA4 A1+B1 GET 8TH CHARACTER 00085 M00S00083.xtask +++| MX2 -42 00086 M00S00084.xtask +++| SX5 1R+ 00087 M00S00085.xtask +++| LX4 5-59 SHIFT 8TH CHARACTER FOR MASK 00088 M00S00086.xtask +++| MX3 -6 ONE CHARACTER MASK 00089 M00S00087.xtask +++| BX1 -X2*X1 MASK OFF TRANSACTION CODE 00090 M00S00088.xtask +++| BX4 -X3*X4 MASK OFF 8TH CHARACTER 00091 M00S00089.xtask +++| LX1 5-41 SHIFT MESSAGE INTO POSITION 00092 M00S00090.xtask +++| SB2 6 00093 M00S00091.xtask +++| LX4 23-59-5+59 SHIFT 8TH CHARACTER INTO POSITION 00094 M00S00092.xtask +++| BX6 X6-X6 00095 M00S00093.xtask +++| SB3 60 00096 M00S00094.xtask +++| BX1 X1+X4 ADD 8TH CHARACTER INTO MESSAGE 00097 M00S00095.xtask +++| XTA1 BX4 -X3*X1 GET A CHARACTER 00098 M00S00096.xtask +++| ZR X4,XTA2 IF END OF TASK NAME 00099 M00S00097.xtask +++| IX2 X4-X5 00100 M00S00098.xtask +++| PL X2,XTA3 IF NOT ALPHANUMERIC 00101 M00S00099.xtask +++| LX6 6 00102 M00S00100.xtask +++| BX6 X6+X4 TRANSFER A CHARACTER 00103 M00S00101.xtask +++| LX1 6 00104 M00S00102.xtask +++| SB3 B3-B2 00105 M00S00103.xtask +++| EQ XTA1 LOOP FOR NEXT CHARACTER 00106 M00S00104.xtask +++| 00107 M00S00105.xtask +++| XTA2 SB2 12 00108 M00S00106.xtask +++| EQ B2,B3,XTA5 IF TOO MANY CHARACTERS IN TASK NAME 00109 M00S00107.xtask +++| XTA3 ZR X6,XTA5 IF ZERO LENGTH TASK NAME 00110 M00S00108.xtask +++| SB2 XTAE START OF SYSTEM TASK TABLE 00111 M00S00109.xtask +++| LX6 X6,B3 LEFT JUSTIFY MESSAGE 00112 M00S00110.xtask +++| SB3 XTAE+XTAF END OF SYSTEM TASK TABLE 00113 M00S00111.xtask +++| XTA4 SA1 B2+ GET NEXT TABLE ELEMENT 00114 M00S00112.xtask +++| BX2 X1-X6 00115 M00S00113.xtask +++| SB2 B2+B1 INCREMENT TABLE INDEX 00116 M00S00114.xtask +++| ZR X2,XTA5 IF SYSTEM TASK 00117 M00S00115.xtask +++| LT B2,B3,XTA4 IF NOT END OF TABLE 00118 M00S00116.xtask +++| SA6 XTAD TASK NAME 00119 M00S00117.xtask +++| CALLTSK XTAD,C EXECUTE TASK WITH CEASE 00120 M00S00118.xtask +++| 00121 M00S00119.xtask +++| XTA5 SEND XTAA SEND ERROR MESSAGE 00122 M00S00120.xtask +++| SA1 TRSQ FIRST WORD OF COMMUNICATIONS BLOCK 00123 M00S00121.xtask +++| RJ CBT CHECK FOR BINARY TERMINAL 00124 M00S00122.xtask +++| ZR X6,XTA6 IF NOT BINARY 00125 M00S00123.xtask +++| SA6 XTAC SET BINARY REQUEST 00126 M00S00124.xtask +++| SEND XTAB SEND BINARY INPUT REQUEST 00127 M00S00125.xtask +++| XTA6 CEASE EXIT TASK WITH CEASE 00128 M00S00126.xtask +++|
| Line S00127 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00129 M01S00127.v23l617 ---| XTAA FMSG (INVALID TASK NAME.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00001.v23l617 +++| XTAA FMSG (INCORRECT TASK NAME.) 00131 M00S00128.xtask +++| XTAB VFD 12/0,18/XTAC,12/0,18/1 SEND CONTROL WORD 00132 M00S00129.xtask +++| XTAC CON 0 BINARY REQUEST WORD 00133 M00S00130.xtask +++| XTAD BSSZ 2 TASK LIST FOR *CALLTSK* 00134 M00S00131.xtask +++| XTAE BSS 0 SYSTEM TASK TABLE 00135 M00S00132.xtask +++| VFD 42/0LBTASK,18/0 00136 M00S00133.xtask +++| VFD 42/0LCTASK,18/0 00137 M00S00134.xtask +++| VFD 42/0LITASK,18/0 00138 M00S00135.xtask +++| VFD 42/0LKDIS,18/0 00139 M00S00136.xtask +++| VFD 42/0LMSABT,18/0 00140 M00S00137.xtask +++| VFD 42/0LOFFTASK,18/0 00141 M00S00138.xtask +++| VFD 42/0LRCTASK,18/0 00142 M00S00139.xtask +++| VFD 42/0LRTASK,18/0 00143 M00S00140.xtask +++| VFD 42/0LSYSMSG,18/0 00144 M00S00141.xtask +++| VFD 42/0LXTASK,18/0 00145 M00S00142.xtask +++| XTAF EQU *-XTAE LENGTH OF SYSTEM TASK TABLE 00146 M00S00143.xtask +++| 00147 M00S00144.xtask +++| 00148 M00S00145.xtask +++|* COMMON DECK. 00149 M00S00146.xtask +++| 00150 M00S00147.xtask +++| 00151 M00S00148.xtask +++|*CALL COMKCBT 00152 M00S00149.xtask +++| 00153 M00S00150.xtask +++| 00154 M00S00151.xtask +++| END XTASK
cdc/nos2.source/opl.opl871/deck/xtask.txt · Last modified: (external edit)