create8bit := proc(B)

A[1] := ["0000","0000","0001","0001","0011","0011","0111","0111","1111","1111","1110","1110","1100","1100","1000","1000"]: 
A[2] := ["1010","1010","1011","1011","1001","1001","1101","1101","0101","0101","0100","0100","0110","0110","0010","0010"]: 

read(mergeshift);

mergeshift(1,1,1,2,B,1,1,A,16):
mergeshift(1,15,1,4,B,1+16*1,1,A,16):
mergeshift(1,13,1,6,B,1+16*2,1,A,16):
mergeshift(1,11,1,8,B,1+16*3,1,A,16):
mergeshift(1,9,2,10,B,1+16*4,1,A,16):
mergeshift(1,7,2,12,B,1+16*5,1,A,16):
mergeshift(1,5,2,14,B,1+16*6,1,A,16):
mergeshift(1,3,2,16,B,1+16*7,1,A,16):
mergeshift(2,15,2,16,B,1+16*8,1,A,16):
mergeshift(2,13,2,2,B,1+16*9,1,A,16):
mergeshift(2,11,2,4,B,1+16*10,1,A,16):
mergeshift(2,9,2,6,B,1+16*11,1,A,16):
mergeshift(2,7,1,16,B,1+16*12,1,A,16):
mergeshift(2,5,1,2,B,1+16*13,1,A,16):
mergeshift(2,1,1,2,B,1+16*14,1,A,16):
mergeshift(2,13,1,2,B,1+16*15,1,A,16): 

end;