COMSTCM 
COMMON
          CTEXT  COMSTCM - TELEX COMMUNICATIONS MICROS. 
          SPACE  4,10 
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TCM      SPACE  4
***       COMSTCM - TELEX COMMUNICATIONS MICROS.
*         P. D. FARRELL.     75/12/19.
*         L. G. ALEXANDER.   76/07/20.
 TCM      SPACE  4
***              THE FOLLOWING MICRO DEFINITIONS, WITH THE EXCEP- 
*         TION OF THE INTERNAL END OF BLOCK BYTE, MAY BE USED BY
*         ANY CP OR PP PROGRAM FOR *TELEX* COMMUNICATIONS CONTROL.
*         IT SHOULD BE NOTED THAT THE *CODE O* AND *CHAR 70B,0* 
*         COMPASS PSEUDO OPERATIONS ARE DEFINED BY THIS COMMON
*         DECK.  ALTERATION OF EITHER OF THESE PSEUDO OPERATIONS
*         WILL CORRESPONDINGLY EFFECT MICRO SUSTITUTION.
          SPACE  4,10 
***       COMUNICATIONS CONTROL MICROS. 
* 
*                EL     END OF LINE.
*                EB     END OF BLOCK. 
*                CB     CORRESPONDENCE TERMINAL END OF BLOCK. 
*                AT     BEGIN AUTO MODE INPUT.
*                LO     LOG OFF USER. 
*                TP     SET TRANSPARENT MODE. 
*                BI     SET BINARY INPUT. 
*                BO     BEGIN BINARY OUTPUT.
*                EM     BEGIN EXTENDED MODE OUTPUT. 
*                ES     END OF STRING.
*                IB     INTERNAL END OF BLOCK.
*                EA     BEGIN EXECUTIVE AUTO MODE INPUT.
          SPACE  4,10 
***       TERMINAL CARRIAGE CONTROL MICROS. 
* 
*                LF     LINE FEED.
*                CR     CARRIAGE RETURN.
*                NL     NEW LINE (CR/LF). 
          SPACE  4,4
****
  
          CHAR   70B,0
          CODE   O
 TCM      SPACE  4,10 
***       CONTROL BYTE MICROS.
* 
* 
*         THE FOLLOWING MICROS MAY BE USED TO EFFECT CONTROL
*         OF THE TERMINAL AND OUTPUT STREAM.  THE CONTROL 
*         MICROS MUST BE POSITIONED UPON A 12 BIT BYTE
*         BOUNDARY AND INDIVIDUALLY MAY HAVE ADDITIONAL 
*         USAGE AND POSITION RESTRICTIONS.
 EL       SPACE  4,10 
***       EL - END OF LINE. 
* 
*         THIS BYTE TERMINATES A LINE OF OUTPUT AND CAUSES THE
*         TERMINAL TO BE POSITIONED TO THE NEXT LINE. 
*         IT MUST APPEAR IN THE LAST BYTE(S) OF A LINE. 
*         TELEX OBSERVES THE STANDARD CONVENTION THAT 
*         AN END OF LINE IS DENOTED BY 12 TO 66 BITS
*         OF TRAILING ZEROES. 
  
  
 EL       MICRO  1,, '' 
 EB       SPACE  4,10 
***       EB - END OF BLOCK.
* 
*         THIS BYTE TERMINATES A LINE OF OUTPUT WITHOUT 
*         POSITIONING THE TERMINAL TO THE NEXT LINE.
*         THIS BYTE MUST BE FOLLOWED BY AN END OF LINE. 
*         THE REMAINING OUTPUT DATA IN POTS FOLLOWING 
*         THIS BYTE WILL BE DROPPED.
  
  
 EB       MICRO  1,, 'A 
 CB       SPACE  4,10 
***       CB - CORRESPONDENCE TERMINAL END OF BLOCK.
* 
*         THIS BYTE IS IDENTICAL TO THE *EB* (END OF BLOCK) 
*         BYTE, EXCEPT THAT IT CAUSES THE KEYBOARD TO BE
*         UNLOCKED FOR OPERATOR INPUT.
  
  
 CB       MICRO  1,, 'B 
 AT       SPACE  4,10 
***       AT - BEGIN AUTO MODE INPUT. 
* 
*         THIS BYTE MUST BE FOLLOWED BY AN END OF LINE
*         AND TERMINATES OUTPUT.
*         THE WORD CONTAINING THE AUTO INPUT CONTROL
*         BYTE IS MOVED TO THE FIRST WORD OF THE POT
*         FOR SUBSEQUENT INPUT WHICH MUST FOLLOW
*         IMMEDIATELY.
  
  
 AT       MICRO  1,, 'C 
 LO       SPACE  4,10 
***       LO - LOG OFF USER.
* 
*         THIS BYTE WILL CAUSE THE TERMINAL TO BE LOGGED
*         OFF BY *TELEX*.  IT MUST APPEAR AS THE FIRST
*         BYTE OF AN OUTPUT LINE AND BE FOLLOWED BY 
*         AN END OF LINE. 
  
  
 LO       MICRO  1,, 'D 
 TP       SPACE  4,10 
***       TP - SET TRANSPARENT MODE.
* 
*         ALL UPPER CASE, LOWER CASE, AND SPECIAL CHARACTERS
*         ENTERED BY THE TERMINAL OPERATOR IN RESPONSE
*         TO THE SUBSEQUENT INPUT REQUEST WILL BE RETURNED
*         TO THE CALLING PROGRAM.  REFER TO THE TIME
*         SHARING USERS REFERENCE MANUAL FOR THE INTERNAL 
*         REPRESENTATION OF THESE CHARACTERS. 
*         THIS BYTE WILL TERMINATE OUTPUT.  IT MUST APPEAR
*         AS THE FIRST BYTE OF AN OUTPUT WORD AND BE
*         FOLLOWED BY AN END OF LINE. 
  
  
 TP       MICRO  1,, 'E 
 BI       SPACE  4,25 
***       BI - SET BINARY INPUT.
* 
*         THIS BYTE SETS BINARY INPUT FOR THE NEXT INPUT
*         REQUEST.  IT MUST APPEAR AS THE FIRST BYTE OF AN
*         OUTPUT REQUEST.  THE NEXT TWO BYTES DEFINE THE
*         TERMINATION CONDITIONS FOR THE NEXT INPUT 
*         REQUEST AND MUST BE FOLLOWED BY AN END OF LINE. 
*         THE SECOND BYTE OF THE WORD CONTAINS THE MAXIMUM
*         NUMBER OF CHARACTERS TO BE INPUT BEFORE THE INPUT 
*         OPERATION IS TERMINATED.  IF THE VALUE IS ZERO, 
*         THE VALUE ONE IS ASSUMED. 
*         THE THIRD BYTE OF THE WORD CONTAINS A TERMINATION 
*         CHARACTER.  WHEN A CHARACTER IS RECEIVED FROM THE 
*         TERMINAL WHICH MATCHES THE LOWER 7 BITS OF THIS 
*         WORD, INPUT IS TERMINATED.  A *0007*
*         (INITIATE BINARY OUTPUT, Q.V.) IS INSERTED BY 
*         TELEX AS THE FIRST BYTE OF THE NEXT INPUT REQUEST.
*         BINARY DATA IS TRANMITTED ONE CHARACTER PER 12
*         BIT BYTE.  THE LOWER SEVEN BITS REPRESENT THE 
*         COMMUNICATIONS INPUT BIT STREAM AS RECEIVED 
*         FROM THE MODEM.  THE PARITY BIT IS SHIFTED TO 
*         BIT POSITION 7, COUNTING THE LOWEST ORDER BIT 
*         AS BIT 0, AND BIT 11 IS ALWAYS SET TO 1.
*         REFER TO THE TIME SHARING USERS REFERENCE MANUAL
*         FOR THE BINARY REPRESENTATION OF THE VARIOUS
*         TERMINAL DATA TYPES.
  
  
 BI       MICRO  1,, 'F 
 BO       SPACE  4,10 
***       BO - BEGIN BINARY OUTPUT. 
* 
*         THIS BYTE MUST APPEAR AS THE FIRST BYTE OF THE OUTPUT 
*         LINE AND INDICATES THAT THE REMAINDER OF THE OUTPUT 
*         LINE WILL BE TRANSMITTED IN BINARY MODE.  BINARY
*         OUTPUT IS TERMINATED BY AN END-OF-LINE BYTE OR BY 
*         DATA WHICH IS NOT IN BINARY FORMAT.  AN END-OF-LINE 
*         BYTE WILL NOT CAUSE THE TERMINAL TO BE REPOSITIONED 
*         TO THE NEXT LINE.  NON BINARY DATA WILL MERELY CAUSE
*         THAT CHARACTER AND ALL SUBSEQUENT CHARACTERS TO BE
*         TRANSMITTED AS NON-BINARY.
  
  
 BO       MICRO  1,, 'G 
 EM       SPACE  4,10 
***       EM - BEGIN EXTENDED MODE OUTPUT.
* 
*         THIS BYTE MUST APPEAR AS THE FIRST BYTE OF
*         AN OUTPUT MESSAGE.  IT ENABLES RECOGNITION
*         OF ESCAPE CODES IN THE MESSAGE.  REFER TO THE 
*         TIME SHARING USERS REFERENCE MANUAL FOR THE 
*         REPRESENTATION OF ESCAPE CODE DATA. 
  
  
 EM       MICRO  1,, 'I 
 ES       SPACE  4,10 
***       ES - END OF STRING. 
* 
*         THIS BYTE ACTS AS A LOGICAL LINE TERMINATOR WHEN
*         FOLLOWED BY AN END OF LINE.  THE TERMINAL CARRIAGE
*         WILL NOT BE REPOSITIONED AND OUTPUT WILL CONTINUE 
*         WITH THE NEXT LINE OF DATA. 
  
  
 ES       MICRO  1,, 'K 
 IB       SPACE  4,10 
**        IB - INTERNAL END OF BLOCK. 
* 
*         THIS BYTE IS USED INTERNALLY BY *1TO* ONLY TO TERMINATE 
*         OUTPUT BEFORE THE END OF POT IS REACHED.  THE REMAINDER 
*         OF THE POT IS DISCARDED, THE TERMINAL IS NOT REPOSITIONED 
*         TO THE BEGINNING OF THE NEXT LINE, AND ANY SPECIAL MODES
*         (E.G., EXTENDED OR BINARY TRANSMISSION) WILL REMAIN SET.
*         THIS BYTE MUST BE THE FIRST BYTE OF A WORD, AND IT MUST 
*         BE FOLLOWED BY AN END OF LINE.  THIS BYTE IS FOR STRICTLY 
*         INTERNAL USE ONLY.
  
  
 IB       MICRO  1,, 'L 
 EA       SPACE  4,10 
***       EA - BEGIN EXECUTIVE AUTO MODE INPUT. 
* 
*         THIS BYTE MUST BE FOLLOWED BY AN END OF LINE
*         AND TERMINATES OUTPUT.
*         THE CHARACTERS PRECEDING THIS BYTE IN THE WORD
*         WHICH IT TERMINATES ARE RETAINED AND ARE
*         RETURNED AS THE FIRST CHARACTERS OF THE NEXT
*         INPUT REQUEST WHICH MUST FOLLOW IMMEDIATELY.
  
  
 EA       MICRO  1,, 'M 
 TCM      SPACE  4,10 
***       TERMINAL CARRIAGE CONTROL MICROS. 
* 
* 
*         THE FOLLOWING MICROS MAY BE USED FOR TERMINAL 
*         CONTROL WHEN THE TERMINAL ADDRESSED IS IN EXTENDED
*         OUTPUT MODE. THEY ARE NOT CONSTRAINED TO 12 BIT 
*         BYTE BOUNDARIES.
  
  
 LF       MICRO  1,, @I      LINE FEED
 CR       MICRO  1,, @H      CARRIAGE RETURN
 NL       MICRO  1,, @J      NEW LINE (CR, LF)
  
****
          SPACE  4
          ENDX
