130024Sminshall /* 230024Sminshall * @(#)screen.h 3.1 10/29/86 330024Sminshall */ 430024Sminshall 530024Sminshall #define INCLUDED_SCREEN 630024Sminshall 730024Sminshall /* defines and defines to describe how to deal with the screen */ 830024Sminshall 9*31134Sminshall #if !defined(MSDOS) 1030024Sminshall #define MAXNUMBERLINES 43 /* 3278-4 */ 1130024Sminshall #define MAXNUMBERCOLUMNS 132 /* 3278-5 */ 1230024Sminshall #define MAXSCREENSIZE 3564 /* (27*132) 3278-5 */ 13*31134Sminshall #else /* !defined(MSDOS) */ /* MSDOS has memory constraints */ 14*31134Sminshall #define MAXNUMBERLINES 25 /* XXX */ 15*31134Sminshall #define MAXNUMBERCOLUMNS 80 16*31134Sminshall #define MAXSCREENSIZE (MAXNUMBERLINES*MAXNUMBERCOLUMNS) 17*31134Sminshall #endif /* !defined(MSDOS) */ /* MSDOS has memory constraints */ 1830024Sminshall #define LowestScreen() 0 1930024Sminshall #define HighestScreen() (ScreenSize-1) 2030024Sminshall 2130024Sminshall #define ScreenLineOffset(x) ((x)%NumberColumns) 2230024Sminshall #define ScreenLine(x) ((int)((x)/NumberColumns)) 2330024Sminshall #define ScreenInc(x) (((x)==HighestScreen())? LowestScreen():x+1) 2430024Sminshall #define ScreenDec(x) (((x)==LowestScreen())? HighestScreen():x-1) 2530024Sminshall #define ScreenUp(x) (((x)+(ScreenSize-NumberColumns))%ScreenSize) 2630024Sminshall #define ScreenDown(x) (((x)+NumberColumns)%ScreenSize) 2730024Sminshall #define IsOrder(x) (Orders[x]) 2830024Sminshall #define BAIC(x) ((x)&0x3f) 2930024Sminshall #define CIAB(x) (CIABuffer[(x)&0x3f]) 3030024Sminshall #define BufferTo3270_0(x) (CIABuffer[(int)((x)/0x40)]) 3130024Sminshall #define BufferTo3270_1(x) (CIABuffer[(x)&0x3f]) 3230024Sminshall #define Addr3270(x,y) (BAIC(x)*64+BAIC(y)) 3330024Sminshall #define SetBufferAddress(x,y) ((x)*NumberColumns+(y)) 3430024Sminshall 3530024Sminshall /* These know how fields are implemented... */ 3630024Sminshall 3730024Sminshall #define WhereAttrByte(p) (IsStartField(p)? p: FieldDec(p)) 3830024Sminshall #define WhereHighByte(p) ScreenDec(FieldInc(p)) 3930024Sminshall #define WhereLowByte(p) ScreenInc(WhereAttrByte(p)) 4030053Sminshall #define FieldAttributes(x) (IsStartField(x)? Host[x].data : \ 4130053Sminshall Host[WhereAttrByte(x)].data) 4230053Sminshall #define FieldAttributesPointer(p) (IsStartFieldPointer(p)? (p)->data : \ 4330053Sminshall Host[WhereAttrByte((p)-&Host[0])].data) 4430053Sminshall #define TurnOffMdt(x) (Host[WhereAttrByte(x)].data &= ~ATTR_MDT) 4530053Sminshall #define TurnOnMdt(x) (Host[WhereAttrByte(x)].data |= ATTR_MDT) 4630053Sminshall #define HasMdt(x) (Host[x].data&ATTR_MDT) /* modified tag */ 4730024Sminshall 4830024Sminshall /* 4930024Sminshall * Is the screen formatted? Some algorithms change depending 5030024Sminshall * on whether there are any attribute bytes lying around. 5130024Sminshall */ 5230024Sminshall #define FormattedScreen() \ 5330053Sminshall ((WhereAttrByte(0) != 0) || ((Host[0].data&ATTR_MASK) == ATTR_MASK)) 5430024Sminshall 5530053Sminshall /* field starts here */ 5630053Sminshall #define IsStartField(x) ((Host[x].data&ATTR_MASK) == ATTR_MASK) 5730053Sminshall #define IsStartFieldPointer(p) (((p)->data&ATTR_MASK) == ATTR_MASK) 5830053Sminshall 5931066Sminshall #define NewField(p,a) (Host[p].data = (a)|ATTR_MASK) 6031066Sminshall #define DeleteField(p) (Host[p].data = 0) 6131066Sminshall #define DeleteAllFields() 6230024Sminshall 6330024Sminshall /* The following are independent of the implementation of fields */ 6430024Sminshall #define IsProtectedAttr(p,a) (IsStartField(p) || ((a)&ATTR_PROT)) 6530024Sminshall #define IsProtected(p) IsProtectedAttr(p,FieldAttributes(p)) 6630024Sminshall 6730024Sminshall #define IsUnProtected(x) (!IsProtected(x)) 6830024Sminshall 6930024Sminshall #define IsAutoSkip(x) (FieldAttributes(x)&ATTR_AUTO_SKIP) 7030024Sminshall 7130024Sminshall #define IsNonDisplayAttr(c) (((c)&ATTR_DSPD_MASK) == ATTR_DSPD_NONDISPLAY) 7230024Sminshall #define IsNonDisplay(p) IsNonDisplayAttr(FieldAttributes(p)) 7330024Sminshall 7430024Sminshall #define IsHighlightedAttr(c) \ 7530024Sminshall (((c)&ATTR_DSPD_MASK) == ATTR_DSPD_HIGH) 7630024Sminshall #define IsHighlighted(p) \ 7730024Sminshall (IsHighlightedAttr(FieldAttributes(p)) && !IsStartField(p)) 7830024Sminshall 7930024Sminshall 8030024Sminshall #define MAX(x,y) ((x)<(y)? (y):(x)) 8130024Sminshall #define MIN(x,y) ((x)<(y)? x:(y)) 8230024Sminshall 8330024Sminshall typedef struct { 8430053Sminshall unsigned char data; /* data at this position */ 8530024Sminshall } ScreenImage; 8630024Sminshall 8730024Sminshall extern int 8830024Sminshall FieldFind(); 8930024Sminshall 9030024Sminshall extern char 9130024Sminshall CIABuffer[]; 9230024Sminshall 9330024Sminshall #define GetHost(i) Host[i].data 9430024Sminshall #define SetHost(p,c) (Host[p].data = c) 95