pro mkirbin

row_len = 512
st_list_ptr = 16 + 5 * 64
addr_list_ptr = st_list_ptr + 16

; make irregular bin list
for i = 0, 63 do begin
    p = i * 5
    irbin(p) = addr_list_ptr and 'ffff'x
    irbin(p+1) = ishft (addr_list_ptr, -16)
    irbin(p+2) = 64
    irbin(p+3) = 8
    irbin(p+4) = 8
    addr_list_ptr = addr_list_ptr + 64
endfor


; Make Address List
adr_list = intarr(6 * 64)
for i = 0, 63 do begin
    for j = 0, 63 do begin
        p = j * 6
        address = ((i*8l) * row_len)+ (j*8l)
        adr_list(p) = address and 'ffff'x
        adr_list(p+1) = ishft (address, -16)
        adr_list(p+2) = st_list_ptr_lo
        adr_list(p+3) = st_list_ptr_hi
        adr_list(p+4) = shift_code
        adr_list(p+5) = scale_f
    endfor
endfor

return
end