/*****************************************************************************
*           Change Log
*  Date     | Change
*-----------+-----------------------------------------------------------------
*  3-Dec-91 | [1.220] <jmn> Created
*  3-Dec-91 | [1.220] <jmn> Added C_bits
*****************************************************************************/
/*
   7  6  5  4  3  2  1  0	<- bit position
   C  WM B  A  8  4  2  1	<- 1401 interpretation
*/
#define word_mark (unsigned char) 0100
#define BA8421(ch) (unsigned char)( (ch) & 077)
#define BA8421M(ch) (unsigned char) ( (ch) & 0177)
#define WM(ch) (unsigned char)((ch) & word_mark)
#define ZONEBITS(ch) (unsigned char)((ch) & 060)
#define NUMBITS(ch)  (unsigned char)((ch) & 0xF)
#define ZONEBITS_DOWN(ch) (ZONEBITS(ch) >> 4)
#define B_bits  040
#define A_bits  020
#define BA_bits 060
#define C_bits  0200

#define BCD_TM	017		/* Tape Mark */
#define BCD_WS	035		/* Word Separator */
#define BCD_GM	077		/* Group Mark */
#define BCD_AS	020		/* Alternate Space (on tape, for instance) */
#define BCD_SP	000		/* Real space in core */
#define BCD_U	024		/* BCD character U */
#define BCD_B	062		/* BCD character B */
#define BCD_PER	034		/* BCD Percent (%) */
#define BCD_R	051		/* BCD character R */
#define BCD_W	026		/* BCD character W */