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