76 lines
1.4 KiB
Ruby
76 lines
1.4 KiB
Ruby
|
require_relative "parser.rb"
|
||
|
|
require_relative "lexer.rb"
|
||
|
|
|
||
|
|
if ARGV.length > 0
|
||
|
|
name = ARGV[0]
|
||
|
|
else
|
||
|
|
print "Enter .t64 file name:"
|
||
|
|
name=gets.chomp!
|
||
|
|
name+=".t64" unless name.include? ".t64"
|
||
|
|
end
|
||
|
|
$infile=File.read(name)
|
||
|
|
|
||
|
|
parser=T64.new()
|
||
|
|
code,labels,linestarts,lineends=parser.parse($infile)
|
||
|
|
|
||
|
|
$outfile=File.open(name.gsub(".t64",".hex"),"w")
|
||
|
|
# $outfile.puts "v2.0 raw"
|
||
|
|
i=0
|
||
|
|
outbytes=[]
|
||
|
|
code.each do |line|
|
||
|
|
for byte in line
|
||
|
|
outbytes.push byte
|
||
|
|
end
|
||
|
|
len=lineends[i]-linestarts[i]
|
||
|
|
padding=len-line.length
|
||
|
|
padding.times do
|
||
|
|
outbytes.push 0
|
||
|
|
end
|
||
|
|
i+=1
|
||
|
|
end
|
||
|
|
groups=[]
|
||
|
|
group=[]
|
||
|
|
for byte in outbytes
|
||
|
|
if group.length==8
|
||
|
|
groups.push group.reverse
|
||
|
|
group=[]
|
||
|
|
end
|
||
|
|
group.push byte
|
||
|
|
end
|
||
|
|
groups.push group if group.length>0
|
||
|
|
|
||
|
|
p groups
|
||
|
|
for group in groups
|
||
|
|
for byte in group
|
||
|
|
$outfile.print byte.to_s(16).rjust(2,"0")
|
||
|
|
end
|
||
|
|
$outfile.puts
|
||
|
|
end
|
||
|
|
$outfile.close
|
||
|
|
|
||
|
|
|
||
|
|
$listfile=File.open(name.gsub(".t64",".lst"),"w")
|
||
|
|
lines=$infile.split("\n")
|
||
|
|
linestarts.length.times do |i|
|
||
|
|
start=linestarts[i]
|
||
|
|
len=lineends[i]-start
|
||
|
|
linebytes=code[i]
|
||
|
|
line=lines[i]
|
||
|
|
$listfile.print (start.to_s(16).rjust(4, "0") + ": ")
|
||
|
|
if linebytes
|
||
|
|
linebytes.each do |byte|
|
||
|
|
$listfile.print (byte.to_s(16).rjust(2, "0") + " ")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
$listfile.print line + "\n"
|
||
|
|
end
|
||
|
|
|
||
|
|
$listfile.puts
|
||
|
|
$listfile.puts "Symbol table:"
|
||
|
|
|
||
|
|
for label,loc in labels
|
||
|
|
$listfile.puts "#{label}: #{loc.to_s(16).rjust(8,"0")}"
|
||
|
|
end
|
||
|
|
|
||
|
|
$listfile.close
|