#!/usr/bin/perl # # mkboot - generate a bitstream (in .bit format) that boots an M1 # with the "regular" bitstream, using UrJTAG # # Hacked 2001 by Werner Almesberger # # magic, copied from xilinx_bitstream.c:xlx_bitstream_load_bit print pack("C*", 0x00, 0x09, 0x0f, 0xf0, 0x0f, 0xf0, 0x0f, 0xf0, 0x0f, 0xf0, 0x00, 0x00, 0x01); @seq = ( # 0xffff, # DUMMY 0xaa99, # Sync(1) 0x5566, # Sync(2) 0x3261, # write GENERAL1 0x0000, # start address 15:0 0x3281, # write GENERAL2 0x0037, # start address 23:16 0x30a1, # write CMD 0x000e); # IPROG # 0x2000); # NOP print pack("aN", "e", 2*@seq); print pack("n*", @seq);