The uppercase character translation table (TTUPP in the example shown in Table 1) translates screen input data as follows:

• Lowercase alphabetic characters translate to uppercase.
• X'08', X'1C', X'1D', and X'1E' translate to blank (X'40').
• All other hexadecimal values translate to themselves.

DC X'0001020304050607'
DC X'40090A0B0C0D0E0F'
DC X'1011121314151617'
        . . .
DC X'78797A7B7C7D7E7F'
DC X'80C1C2C3C4C5C6C7'
        . . .
DC X'E8E9EAEBECEDEEEF'
DC X'F0F1F2F3F4F5F6F7'
DC X'F8F9FAFBFCFDFEFF'

(X'00' to X'07')
(X'08' to X'0F')
(X'10' to X'17')

(X'78' to X'7F')
(X'80' to X'87')

(X'E8' to X'EF')
(X'F0' to X'F7')
(X'F8' to X'FF')

Table 1 shows how the uppercase character translation table might be represented in the assembler module. For example, this is true for Table 1:

• The hexadecimal position for a lowercase ‘a’ (X'81'), contains the hexadecimal value for an uppercase ‘A’ (X'C1').
• The hexadecimal position for an uppercase ‘A’ (X'C1') contains the hexadecimal value for an uppercase ‘A’ (X'C1').

Enter the values you want in the 256 hexadecimal positions of the uppercase translation table. When you finish with the table, you are ready to move on to the second translation table.