TITLE 'IEDIAU - SPECIAL CHARACTERS TABLE FOR VTAM TERMINALS   *00001000
                        '                                               00002000
IEDIAU   CSECT ,                                                   0001 00003000
@PROLOG  DS    0H                                                  0002 00004000
*        END   IEDIAU;                                             0003 00005000
@DATA    DS    0H                                                       00006000
         DS    0F                                                       00007000
         DS    0F                                                       00008000
         DS    0D                                                       00009000
SCT      DC    28XL1'00'                                                00010000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00011000
@01      EQU   01                                                       00012000
@02      EQU   02                                                       00013000
@03      EQU   03                                                       00014000
@04      EQU   04                                                       00015000
@05      EQU   05                                                       00016000
@06      EQU   06                                                       00017000
@07      EQU   07                                                       00018000
@08      EQU   08                                                       00019000
@09      EQU   09                                                       00020000
@10      EQU   10                                                       00021000
@11      EQU   11                                                       00022000
@12      EQU   12                                                       00023000
@13      EQU   13                                                       00024000
@14      EQU   14                                                       00025000
@15      EQU   15                                                       00026000
@ENDDATA EQU   *                                                        00027000
         END   IEDIAU,(C'PLS1455',0701,77353)                           00028000