Retro1.org codex

          IDENT  OFFTASK 
          LCC    OVERLAY(OFFTASK,0,0)
          ENTRY  OFT
          TITLE  OFFTASK - SEND MESSAGE IF INACTIVE TASK REQUESTED.
  COMMENT 72/09/24. 72/09/24. OFFTASK TASK.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
OFT       SPACE  4,10
***       OFFTASK.
*         K. R. COMBS  72/02/21  CSDD
          SPACE  4
***       OFFTASK.
*         THIS SYSTEM TASK IS SCHEDULED BY THE TRANSACTION FACILITY
*         WHEN A REQUEST IS MADE FOR AN INACTIVE TASK, FOR EXAMPLE,
*         ONE WHICH IS IN THE TASK LIBRARY BUT HAS BEEN TURNED OFF
*         EITHER BY A *LIBTASK* DIRECTIVE OR AN OPERATOR COMMAND.
*         *OFFTASK* SIMPLY SENDS A MESSAGE TO THE ORIGINATING TERMINAL
*         INFORMING IT THAT AN INACTIVE TASK WAS REQUESTED.
 COMB     TITLE  COMMUNICATION BLOCK DEFINITION
*CALL     COMCMAC
*CALL     COMKMAC
*CALL     COMSPRD
 
          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS
          SPACE  4,10
***       COMMUNICATION BLOCK HEADER WORDS.
*
*T  SEQC  12/     DB,24/      UA,24/      SEQ
*T, TERC  42/     TN,18/
*
*         DB     DATA BASE FOR TERMINAL.
*         UA     USER ARGUMENT FIELD FOR TERMINAL.
*         SEQ    TRANSACTION SEQUENCE NUMBER.
*         TN     TERMINAL NAME.
 
 
          BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK
 OFT      TITLE  SEND MESSAGE
**        OFT    SEND A MESSAGE TO THE ORIGINATING TERMINAL.
*
*         ENTRY  COMMUNICATION BLOCK LOADED.
*
*         EXIT   MESSAGE SENT TO TERMINAL, IF NO ERROR.
*                ABNORMAL CEASE.
*
*         USES   B - NONE.
*                A - 1, 6.
*                X - 0, 1.
*
*         CALLS  CBT.
*
*         MACROS CEASE, FMSG, SEND.
 
 
 OFT      SA1    TERC        CHECK FOR NON TERMINAL ASSOCIATED TASK
          MX0    42
          BX0    X0*X1
          ZR     X0,OFT1     IF NO TERMINAL - DO NOT SEND MESSAGE
          SEND   OFTA        SEND THE MESSAGE
          SA1    SEQC        USER AREA BITS
          RJ     CBT         CHECK BINARY SELECT
          ZR     X6,OFT1     IF NOT BINARY
          SA6    OFTC        SET BINARY REQUEST
          SEND   OFTB        SEND BINARY INPUT REQUEST
 OFT1     CEASE  1           ABNORMAL CEASE
 
 OFTA     FMSG   (INACTIVE TASK REQUESTED.)
 OFTB     VFD    12/0,18/OFTC,12/0,18/1  SEND CONTROL WORD
 OFTC     CON    0           BINARY REQUEST WORD
 
 
*         COMMON DECK.
 
 
*CALL     COMKCBT
 
 
          END    OFT