128 lines
2.3 KiB
Ruby
128 lines
2.3 KiB
Ruby
|
|
$bytes = []
|
|
|
|
def zero_fill(pos)
|
|
while ($bytes.length <= pos) do
|
|
$bytes.push(0)
|
|
end
|
|
end
|
|
|
|
def word(i)
|
|
$bytes.push((i & 0x000000ff),
|
|
(i & 0x0000ff00) >> 8,
|
|
(i & 0x00ff0000) >> 16,
|
|
(i & 0xff000000) >> 24)
|
|
end
|
|
|
|
def string(s)
|
|
$bytes.push *s.bytes
|
|
while (($bytes.length % 4) != 0) do
|
|
$bytes.push 0
|
|
end
|
|
end
|
|
|
|
def jmp(addr)
|
|
# TODO: this probs wont show up since we have < 3mb of ram but
|
|
# we can't jump to an address with a different 4 most significant bits
|
|
raise "jmp addr must be 4 byte aligned" if addr % 4 != 0
|
|
op = 0b0000_1000_0000_0000_0000_0000_0000_0000
|
|
op = op | ((addr >> 2) & 0b11_11111111_11111111_11111111)
|
|
word op
|
|
end
|
|
|
|
def jal(addr)
|
|
# TODO: same problem as jmp
|
|
raise "jmp addr must be 4 byte aligned" if addr % 4 != 0
|
|
op = 0b0000_1100_0000_0000_0000_0000_0000_0000
|
|
op = op | ((addr >> 2) & 0b11_11111111_11111111_11111111)
|
|
word op
|
|
end
|
|
|
|
def nop
|
|
word 0x00000000
|
|
end
|
|
|
|
# load upper immediate
|
|
def lui(reg, val)
|
|
# oooooo ----- ttttt iiiiiiiiiiiiiiii
|
|
op = 0b001111_00000_00000_0000000000000000
|
|
op |= (0b11111 & reg) << 16
|
|
op |= 0xffff & val
|
|
word op
|
|
end
|
|
|
|
|
|
# this is a terrible idea and im doing it
|
|
#$labels = {}
|
|
#def method_missing(m, *args)
|
|
# puts m.to_s
|
|
# super
|
|
#end
|
|
|
|
$base_addr = 0x80010000 # 0x10000 # 0x80010000
|
|
|
|
|
|
# # # EXE HEADER # # #
|
|
string "PS-X EXE"
|
|
zero_fill 0x00f
|
|
word $base_addr # initial pc
|
|
word 0x00000000 # initial GP/R28
|
|
word $base_addr # destintation address in RAM
|
|
word 0x800 # file size excluding header (must be N * 0x800)
|
|
word 0x00000000 # Unknown/Unused
|
|
word 0x00000000 # Unknown/Unused
|
|
word 0x00000000 # Memfill start address
|
|
word 0x00000000 # Memfill size in bytes
|
|
word 0x801ffff0 # Initial SP/R29 & FP/R30 Base
|
|
word 0x00000000 # Initial SP/R29 & FP/R30 Offs
|
|
zero_fill 0x4b # Reserved for A(43h) Function
|
|
# Ascii marker would go here
|
|
zero_fill 0x7ff
|
|
$exe_header = $bytes[0..]
|
|
$bytes = []
|
|
|
|
|
|
|
|
|
|
# # # PROGRAM CODE # # #
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
jmp $base_addr
|
|
nop
|
|
|
|
lui 2, 1
|
|
|
|
|
|
# int 0b101011_00010_00001_01111111_11111111
|
|
|
|
string "this is a test lol"
|
|
word 0xFFAAFFAA
|
|
word 0b001001_11101_11101_11111111_11111111
|
|
word 0b001000_11101_11101_11111111_11111111
|
|
|
|
word 0xAAFFAAFF
|
|
word 0b001001_00101_00101_11111111_11111111
|
|
word 0b001000_00101_00101_11111111_11111111
|
|
|
|
|
|
|
|
|
|
|
|
|
|
zero_fill 0xfff
|
|
|
|
f = File.new "LOADTHIS.EXE", "wb"
|
|
f.write $exe_header.pack("C*")
|
|
f.write $bytes.pack("C*")
|
|
f.close
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|