EM3270 Manual

Color-Mapping and Function-Key Mapping
Tandem EM3270 Manual—110332 E-5
PCT Color Mapping
Figure E-3. Extended Color-Support Mapping Procedure
INT PROC user^ext^color^mapping (hilite^color, video^attr,
data^attr );
INT hilite^color, ! Contains the IBM highlight and color
! attribute bytes.
video^attr; ! Contains the 6530 video attribute.
data^attr; ! Contains the 6530 data attribute.
! The result of the PROC is an
! updated video attribute.
BEGIN
INT hilite := hilite^color.< 0: 7>
INT color := hilite^color.< 8:15>;
LITERAL dim = %b00001 ,
link = %b00010 ,
reverse = %b00100 ,
blank = %b01000 ,
underline = %b10000 ,
INT video[0:6] = 'p' := [
underline, ! F1 - Blue
reverse, ! F2 - Red
reverse + underline, ! F3 - Pink
blink, ! F4 - Green
blink + underline, ! F5 - Turquoise
blink + reverse, ! F6 - Yellow
blink + reverse + underline]; ! F7 - While
INT index;
! Do nothing if default code %H00
! or if this is a nondisplay field
IF color <> 0 AND
NOT video^attr.<12> THEN
BEGIN
index := color.<13:15> - 1;
video^attr.<11:15> := video[index].<11:15>;
END;
RETURN video^attr;
END;