Retro1.org codex

          IDENT  LOGT
          ENTRY  LOGT
          LCC    OVERLAY(LOGT,0,0)
*COMMENT  LOGT - LOGOUT TRANSACTION TERMINAL.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 LOGT     TITLE  LOGT - LOGOUT TRANSACTION TERMINAL.
          SPACE  4
***       LOGOUT TRANSACTION TERMINAL.
*         W.E. MARTIN.       04/15/77.
          SPACE  4
***       LOGT LOGS A TERMINAL OUT OF TRANSACTION MODE BY
*         SENDING A MESSAGE TO THE TERMINAL TELLING THE USER THAT
*         THE SESSION IS ENDED, AND THEN USING THE *LOGT* MACRO,
*         REQUESTS THE TRANSACTION EXECUTIVE TO INFORM THE
*         TELE-PROCESSING EXECUTIVE TO RETURN THAT TERMINAL TO THE
*         APPROPRIATE SUBSYSTEM.  NOTE - THIS ROUTINE WILL NOT ACTUALLY
*         LOG A TERMINAL OUT OF THE COMPUTER SYSTEM, BUT LOGICALLY
*         OUT OF THE TRANSACTION SUBSYSTEM.
 
 
*         COMMON TEXT DEFINITION.
 
 
*CALL     COMKMAC
*CALL     COMSPRD
 
 
*         PROGRAM EQUATES AND SYMBOLS.
 
 
          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS.
 
***       COMMUNICATION BLOCK HEADER WORDS.
*
*T  SEQC  12/     DB,24/      UA,24/      SEQ
*T, TERC  42/     TN,18/0
*
*         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
 
 
 LOGT     SA1    TERC        CHECK FOR NON-TERMINAL ASSOCIATED TASK
          MX0    42
          BX0    X0*X1
          ZR     X0,LOG1     IF NOT TERMINAL ORIGINATED
          SEND   LOGA        SEND MESSAGE
 LOG1     LOGT               LOG OUT OF TRANSACTION MODE
          CEASE  0
 
 LOGA     FMSG   (END TRANSACTION SESSION.),,O
          END    LOGT