EM3270 Manual

PCT Color Mapping
E-6 110332—Tandem EM3270 Manual
Color-Mapping and Function-Key Mapping
User Decode Color-Support Mapping
The support of the MF also requires that all of the information used to initially perform
color mapping for a field be available to be updated by the MF subfields and then be
color mapped by the user^ext^color^mapping procedure. The EM3270 emulator only
stores the result of the color-mapping process (for example, the data and video
attributes). In order to work backward to the original field specification the
user^decode^hilite^color user procedure is used. This procedure is the inverse of the
user^ext^color^mapping and returns only the extended highlighting and the extended
color information. Figure E-4 illustrates the user decode color-support mapping
procedure.
Figure E-4. User Decode Color-Support Mapping Procedure
INT PROC user^decode^hilite^color ( video^attr );
INT video^attr; ! Contains the 6530 video attribute.
! The result of the PROC is highlight
! and color bytes.
BEGIN
INT hilite^color
,index
,hilite^color^table [ 0:7 ] = 'p' := [
%h0000--! 0 = default
,%h0031-- underline ! F1 = Blue
,%h0032-- reverse ! F2 = Red
,%h0033-- reverse underline ! F3 = Pink
,%h0034--blink ! F4 = Green
,%h0035--blink underline ! F5 = Turquoise
,%h0036--blink reverse ! F6 = Yellow
,%h0037--blink reverse underline ! F7 = White
];
INT video^attr.<12> THEN! Blank special case
hilite^color := 0
ELSE
BEGIN
index := ( video^attr.<14> '<<' 2 ) + -- blink
( video^attr.<13> '<<' 1 ) + -- reverse
video^attr.<11> ; -- underline
hilite^color := hilite^color^table [ index ] ;
END;
RETURN hilite^color ;
END ;