EM3270 Manual

PCT Color Mapping
E-4 110332—Tandem EM3270 Manual
Color-Mapping and Function-Key Mapping
Extended Color-Support Mapping
In the case of SFE or MF, the EM3270 emulator passes extended highlighting, extended
color, and field attribute information to the user^extended^color^mapping procedure.
This procedure passes back to the EM3270 emulator the video attribute byte to be sent
to PCT for each field. Figure E-3 illustrates the extended color-support mapping
procedure.
Figure E-2. Base Color-Support Mapping Procedure
INT PROC user^base^color^mapping (attribute, video^attr);
INTattribute, ! Contains the IBM attribute byte.
video^attr; ! Contains the 6530 video attribute.
! The result of the PROC is an
! updated video attribute.
BEGIN
LITERAL dim = %b00001 ,
blink = %b00010 ,
reverse = %b00100 ,
blank = %b01000 ,
underline = %b10000 ,
normal = %b00000 ,
INT video[0:4] = 'p' := [
dim, ! Unprotected Dim
reverse, ! Unprotected Bright
underline + dim, ! Protected Dim
underline + reverse, ! Protected Bright
blank]; ! Nondisplay
INT index;
IF attribute.<12:13> = 3 THEN ! Handle nondisplay fields
index := 4
ELSE
index := attribute.<10> '<<' 1 + attribute.<12>;
video^attr.<11:15> := video[index].<11:15>;
RETURN video^attr;
END;