*DECK BDPTAB
          IDENT  BDPTAB 
 BDPTAB8  TITLE  BDPTAB--BDP COLLATING TABLES 
          ENTRY  D.BDP       COLLATING TABLES FOR +DP INSTRUCTIONS
**     BDPTAB CONTAINS THE COLLATING TABLES TO BE USED BY THE 
*      CMU COMPARE INSTRUCTIONS (PROVIDING CMU HARDWARD EXISTS).
          LIST    F,G 
          IPARAMS 
 D.BDP    BSS    0
 Q4       IFNE   IP.CSET,IP.C64.2           CDC COLLATING 
          IFEQ   IP.CSET,IP.C63,1 
          DATA   02313233343536370000B
          IFNE   IP.CSET,IP.C63,1 
          DATA   65313233343536370000B
          DATA   40414344454647500000B
          DATA   51525355565760610000B
          DATA   62636466677071720000B
          DATA   73747576771722210000B
          DATA   23251520260024140000B
          IFEQ   IP.CSET,IP.C63,1 
          DATA   05035465270442060000B
          IFNE   IP.CSET,IP.C63,1 
          DATA   05035402270442060000B
          DATA   07103011011213160000B
 Q4       ENDIF 
 Q5       IFEQ   IP.CSET,IP.C64.2         ASCII COLLATING 
          IFEQ   IP.CSET,IP.C63,1 
          DATA   05414243444546470000B
          IFNE   IP.CSET,IP.C63,1 
          DATA   32414243444546470000B
          DATA   50515253545556570000B
          DATA   60616263646566670000B
          DATA  70717220212223240000B 
          DATA   25262730311315120000B
          DATA   17101104350014160000B
          IFEQ   IP.CSET,IP.C63,1 
          DATA   03737532027701060000B
          IFNE   IP.CSET,IP.C63,1 
          DATA   03737505027701060000B                                  TB8   79
          DATA   07373436407476230000B                                  TB8   80
 Q5       ENDIF 
          END 
