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