*DECK S$TBL1
          IDENT  S$TBL1 
          TITLE  S$TBL1 - TABLE OF BINARY LENGTHS 
          COMMENT  TABLE OF BINARY LENGTHS
          SPACE  4
  
***   S$TBL1 - TABLE OF BINARY LENGTHS
* 
*         HAS NO CALLING SEQUENCE 
* 
*         THIS IS A DATA SEGMENT WHICH CONTAINS THE FOLLOWING 
*         INFORMATION FOR A PROGRAM WHICH IS CONVERTING 
*         DISPLAY DECIMAL NUMBERS TO BINARY NUMBERS AND 
*         VICE VERSA. 
* 
*         THE DECIMAL DISPLAY NUMBERS ARE ASSUMED TO BE UNSIGNED. 
* 
* 
*         GIVEN THE BIT LENGTH OF THE FIELD IN DECIMAL DISPLAY
*         DIGITS, DIVIDE THAT BIT LENGTH BY 6 FOR THE NUMBER OF 
*         BYTES AND USE THE RESULT AS AN INDEX TO THIS TABLE. 
*         AT THAT OFFSET, YOU WILL FIND THE CORRESPONDING 
*         NUMBER OF BITS NEEDED TO CONTAIN THE CONVERTED BINARY 
*         NUMBER. 
          SPACE  4
          ENTRY  S$TBL1 
S$TBL1    DATA   0
          DATA   4           4 BITS FOR 1 BYTE
          DATA   7           7 BITS FOR 2 BYTES 
          DATA   10          10 BITS FOR 3 BYTES
          DATA   14          14 BITS FOR 4 BYTES
          DATA   17          17 BITS FOR 5 BYTES
          DATA   20          20 BITS FOR 6 BYTES
          DATA   24          24 BITS FOR 7 BYTES
          DATA   27          27 BITS FOR 8 BYTES
          DATA   30          30 BITS FOR 9 BYTES
          DATA   34          34 BITS FOR 10 BYTES 
          DATA   37          37 BITS FOR 11 BYTES 
          DATA   40          40 BITS FOR 12 BYTES 
          DATA   44          44 BITS FOR 13 BYTES 
          DATA   47          47 BITS FOR 14 BYTES 
          DATA   50          50 BITS FOR 15 BYTES 
          DATA   54          54 BITS FOR 16 BYTES 
          DATA   57          57 BITS FOR 17 BYTES 
  
          END 
