MACRO                                                          00010000
         AIDEQU ,                                                       00020000
*                                                                       00030000
* 3270 AID BYTES                                                        00040000
*                                                                       00050000
         SPACE ,                                                        00060000
NOAID    EQU   X'60'                                                    00070000
NOAIDPRT EQU   X'E8'                                                    00080000
ENTER    EQU   X'7D'                                                    00090000
PF1      EQU   X'F1'                                                    00100000
PF2      EQU   X'F2'                                                    00110000
PF3      EQU   X'F3'                                                    00120000
PF4      EQU   X'F4'                                                    00130000
PF5      EQU   X'F5'                                                    00140000
PF6      EQU   X'F6'                                                    00150000
PF7      EQU   X'F7'                                                    00160000
PF8      EQU   X'F8'                                                    00170000
PF9      EQU   X'F9'                                                    00180000
PF10     EQU   X'7A'                                                    00190000
PF11     EQU   X'7B'                                                    00200000
PF12     EQU   X'7C'                                                    00210000
PF13     EQU   X'C1'                                                    00220000
PF14     EQU   X'C2'                                                    00230000
PF15     EQU   X'C3'                                                    00240000
PF16     EQU   X'C4'                                                    00250000
PF17     EQU   X'C5'                                                    00260000
PF18     EQU   X'C6'                                                    00270000
PF19     EQU   X'C7'                                                    00280000
PF20     EQU   X'C8'                                                    00290000
PF21     EQU   X'C9'                                                    00300000
PF22     EQU   X'4A'                                                    00310000
PF23     EQU   X'4B'                                                    00320000
PF24     EQU   X'4C'                                                    00330000
PA1      EQU   X'6C'                                                    00340000
PA2      EQU   X'6E'                                                    00350000
PA3      EQU   X'6B'                                                    00360000
CLEAR    EQU   X'6D'                                                    00370000
TESTREQ  EQU   X'F0'                                                    00380000
         MEND                                                           00390000