*DECK DICODAA 
          IDENT     DICO$AA   DEFINE DISPLAY-TO-COLLATE CONVERT TABLE 
*#
* *   DICO$AA - DEFINE DISPLAY-TO-COLLATE TABLE  PAGE  1
* *   VB GODDARD                                 DATE  76/08/17 
* DC  NAME
* C   DICO$AA 
* DC  FUNCTION
*     RETURNS ADDRESS OF DEFAULT DISPLAY TO COLLATE CONVERSION TABLE. 
* DC  ENTRY CONDITIONS
*     SYMPL FUNCTION WITH NO PARAMETERS.
*          EX:  
*              P<TABLE>=DICO$AA;
* DC  EXIT CONDITIONS 
*     RETURNS ADDRESS OF TABLE IN X6. 
* DC  ERROR CONDITIONS
*     NONE. 
* DC  DESCRIPTION 
*     THE DECK CONTAINS 4 DIFFERENT TABLES CONTROLLED BY CONDITIONAL
*     ASSEMBLY PSUEDO-OPS. WHEN ASSEMBLED, 1 OF THE 4 TABLES IS 
*     ASSEMBLED ACCORDING TO INSTALLATION PARAMETERS IN IPARAMS.
*     DICO$AA IS CODED IN COMPASS BECAUSE IPARAMS OPTIONS WERE NOT
*     AVAILABLE TO SYMPL COMPILATIONS AT THE TIME OF IMPLEMENTATION.
*     THERE ARE NO PERMANENT COMPANION COLLATE TO DISPLAY CONVERSION
*     TABLES BECAUSE THEY CAN BE GENERATED FROM THE DISPLAY TO COLLATE
*     TABLES, WHICH IS DONE AT FILE OPEN TIME.
*     THE 4 TABLES ARE LISTED BELOW.
*#
          ENTRY     DICO$AA 
 DICO$AA  BSSZ      1         WORKS LIKE A SYMPL FUNCTION 
          SX6       TABLE     RETURN THE ADDRESS OF THE TABLE 
          EQ        DICO$AA 
          IPARAMS 
 IP.C63   IFEQ      IP.CSET,IP.C63
 IP63/64  IFEQ      IP.CSET,IP.C64.2
 TABLE    BSS       0         63 CHARACTER ASCII SET
*#
  
* DC  63 CHARACTER ASCII SET
  
          DATA      B77404142434445460000        0
          DATA      B47505152535455560000        1
          DATA      B57606162636465660000        2
          DATA      B67707117202122230000        3
          DATA      B24252627301214110000        4
          DATA      B16071004340013150000        5
          DATA      B03727431027601050000        6
          DATA      B06363335377375320000        7
*#
 IP63/64  ELSE
 TABLE    BSS       0         63 CHARACTER STANDARD SET 
*#
  
* DC  63 CHARACTER STANDARD SET 
  
          DATA      B77303132333435360000        0
          DATA      B37404243444546470000        1
          DATA      B50515254555657600000        2
          DATA      B61626365666770710000        3
          DATA      B72737475761621200000        4
          DATA      B22241417250023130000        5
          DATA      B04025364260341050000        6
          DATA      B06072710011112150000        7
*#
 IP63/64  ENDIF 
 IP.C63   ENDIF 
 IP.C64.1 IFEQ      IP.CSET,IP.C64.1
 IP.C64.1 IFNE      IP.CSET,IP.C63
 TABLE    BSS       0        CDC 64 CHARACTER TABLE 
*#
  
* DC  CDC 64 CHARACTER TABLE
  
          DATA      B65313233343536370000        0
          DATA      B40414344454647500000        1
          DATA      B51525355565760610000        2
          DATA      B62636466677071720000        3
          DATA      B73747576771722210000        4
          DATA      B23251520260024140000        5
          DATA      B05035402270442060000        6
          DATA      B07103011011213160000        7
*#
 IP.C64.1 ENDIF 
 IP.C64.2 IFEQ      IP.CSET,IP.C64.2
 IP.C64.2 IFNE      IP.CSET,IP.C63
 TABLE    BSS       0         64 CHARACTER PRINT-2 SET
*#
  
* DC  64 CHARACTER PRINT-2 SET
  
          DATA      B32414243444546470000        0
          DATA      B50515253545556570000        1
          DATA      B60616263646566670000        2
          DATA      B70717220212223240000        3
          DATA      B25262730311315120000        4
          DATA      B17101104350014160000        5
          DATA      B03737505027701060000        6
          DATA      B07373436407476330000        7
*#
 IP.C64.2 ENDIF 
          END 
