*DECK C$FILL0 
          IDENT  C$FILL0
          TITLE  CBFILL0 - FILL TABLE FOR NUMERIC MOVES 
          MACHINE   ANY,I 
          COMMENT   FILL TABLE FOR NUMERIC MOVES
          ENTRY  C.FILL0
 C.FILL0  BSS    0           FILL TABLE FOR CERTAIN NUMERIC MOVES 
          DATA   10H0000000000
          DATA   33333333333333333300B
          DATA   33333333333333330000B
          DATA   33333333333333000000B
          DATA   33333333333300000000B
          DATA   33333333330000000000B
          DATA   33333333000000000000B
          DATA   33333300000000000000B
          DATA   00333333333333333333B
          DATA   00333333333333333300B
          DATA   00333333333333330000B
          DATA   00333333333333000000B
          DATA   00333333333300000000B
          DATA   00333333330000000000B
          DATA   00333333000000000000B
          DATA   00003333333333333333B
          DATA   00003333333333333300B
          DATA   00003333333333330000B
          DATA   00003333333333000000B
          DATA   00003333333300000000B
          DATA   00003333330000000000B
          DATA   00000033333333333333B
          DATA   00000033333333333300B
          DATA   00000033333333330000B
          DATA   00000033333333000000B
          DATA   00000033333300000000B
          DATA   00000000333333333333B
          DATA   00000000333333333300B
          DATA   00000000333333330000B
          DATA   00000000333333000000B
          DATA   00000000003333333333B
          DATA   00000000003333333300B
          DATA   00000000003333330000B
          DATA   00000000000033333333B
          DATA   00000000000033333300B
          DATA   00000000000000333333B
          END 
