arasm 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: b17106382b375fa9e517b975c6c6b4f6a33185e6
+  data.tar.gz: bd55cacceab89c1fc0384e79e42e6bf645416e53
+SHA512:
+  metadata.gz: 42b64aada2bc744dcba5323c916a29040cddba40a3247422a2de06772c95f3811e7a976a565a180352cc90a0bedaefa99684af3ba7e4188b09cc9251c2cf3916
+  data.tar.gz: 402113251c61e5cdadc5693b6b553382b60f7e9d0a4a0b1565d30dde2aced1ed0c8c986eb6e84a7ca7bcfd76890bbe9dbf07ebaac559c969b2f227a11c2243c7

data/bin/arasm

@@ -0,0 +1,196 @@
+#!/usr/bin/env ruby
+
+$cmdlist	= []
+$blocks 	= {}
+$out			= ""
+$help			= "USAGE: arasm <-f file> [ -o outfile ]"
+$options 	= {}
+
+ARGV.each_with_index do |i,ind|
+	case i
+	when "-f"
+		$options["file"] = ARGV[ind+1]
+	when "-o"
+		$options["outfile"] = ARGV[ind+1]
+	end
+end
+
+unless $options["file"]
+	abort $help
+end
+
+content = File.read($options["file"]).split("\n") rescue abort($help)
+content.map!{|i|i.match(/;/) ? i.strip.split(";")[0].strip : i}
+#content.select!{|i|!i.empty?}
+
+def abort_with_style(l,i,e)
+	i.to_s.match(/^[0-9]+$/)&&i+=1
+	abort("[#{i}]FATAL @ `#{l}`: #{e}")
+end
+
+valid_commands = %w( mv[dwb] [dw]lt [dw]gt [dw]eq [dw]ne [lsa]of rop [as]st si[dwb] ls[dwb] fmv fcp ).map{|i|eval("/^"+i+"/i")}
+
+def assert_args(com,ln,*types)
+	com.is_a?(Array)||com=com.split
+	com.length-1==types.length||abort_with_style(com.join(" "),ln,"WRONG NUMBER OF ARGUMENTS, EXPECTED #{types.length}, GOT #{com.length-1}.")
+	type_rxps = {
+		/\.[^\s;]+/ 		=> :block,
+		/\$[A-Z0-9]+/i 	=> :num,
+		/[0-9]+/i 			=> :num,
+		/.*/						=> :some_weird_alphanumeric_foo
+	}
+	types.each{|i|type_rxps.values.include?(i)||raise("Unknown literal type #{i.inspect}")}
+	com[1..-1].each_with_index do |i,ind|
+		identifier = type_rxps[type_rxps.keys.select{|k|i.match(k)}[0]]
+		identifier==types[ind]||abort_with_style(com.join(" "),ln,"ARGUMENT #{ind+1} HAS WRONG TYPE, EXPECTED #{types[ind]}, GOT #{identifier} INSTEAD.")
+	end
+end
+
+def parse_command(c,ln)
+	barr_t = ""
+	command = c.split
+
+	case command[0]
+
+	when /^mv[dwb]$/
+		assert_args(c,ln,:num,:num)
+		barr_t << %w(d w b).index(command[0][2]).to_s
+		addr = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		val= (command[2][0]==?$ ? sprintf("%08x",command[2][1..-1].to_i(16)) : sprintf("%08x",command[2].to_i))
+		#puts "MV with addr=#{addr.inspect} val=#{val.inspect}"
+		barr_t << addr << val
+
+	when /^[dw]lt$/
+		assert_args(c,ln,:num,:num,:block)
+		barr_t << ( 3 + 4*%w(d w).index(command[0][0]) ).to_s(16)
+		addr   = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		val    = (command[2][0]==?$ ? sprintf("%08x",command[2][1..-1].to_i(16)) : sprintf("%08x",command[2].to_i))
+		block  = command[3][1..-1]
+		$blocks[block] = "if"
+		barr_t << addr << val
+
+	when /^[dw]gt$/
+		assert_args(c,ln,:num,:num,:block)
+		barr_t << ( 4 + 4*%w(d w).index(command[0][0]) ).to_s(16)
+		addr   = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		val    = (command[2][0]==?$ ? sprintf("%08x",command[2][1..-1].to_i(16)) : sprintf("%08x",command[2].to_i))
+		block  = command[3][1..-1]
+		$blocks[block] = "if"
+		barr_t << addr << val
+
+	when /^[dw]eq$/
+		assert_args(c,ln,:num,:num,:block)
+		barr_t << ( 5 + 4*%w(d w).index(command[0][0]) ).to_s(16)
+		addr   = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		val    = (command[2][0]==?$ ? sprintf("%08x",command[2][1..-1].to_i(16)) : sprintf("%08x",command[2].to_i))
+		block  = command[3][1..-1]
+		$blocks[block] = "if"
+		barr_t << addr << val
+
+	when /^[dw]ne$/
+		assert_args(c,ln,:num,:num,:block)
+		barr_t << ( 6 + 4*%w(d w).index(command[0][0]) ).to_s(16)
+		x_addr = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		val    = (command[2][0]==?$ ? sprintf("%08x",command[2][1..-1].to_i(16)) : sprintf("%08x",command[2].to_i))
+		block  = command[3][1..-1]
+		$blocks[block] = "if"
+		#p {x_addr: x, val: val,}
+		barr_t << addr << val
+
+	when "lof"
+		assert_args(c,ln,:num)
+		addr = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		barr_t << "b" << addr << "00000000"
+
+	when "rop"
+		assert_args(c,ln,:num,:block)
+		$rop&&abort_with_style(c,ln,"NESTING ROP BLOCKS IS PROHIBITED.")
+		$rop  = ln
+		t     = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		block = command[2][1..-1]
+		$blocks[block] = "rop"
+		barr_t << "c0000000" << t
+
+	when /^~/
+		bname = command[0][1..-1]
+		bname==?#||$blocks[bname]||abort_with_style(c,ln,"TRYING TO CLOSE BLOCK `#{bname}` WHICH WASN'T OPENED BEFORE.")
+		if bname == ?#
+			barr_t << "d2" << ("0"*14)
+		elsif $blocks[bname] == "if"
+			barr_t << "d0" << ("0"*14)
+		else
+			barr_t << "d1" << ("0"*14)
+			$rop = nil
+		end
+		$blocks.delete(bname)
+
+	when "sof"
+		assert_args(c,ln,:num)
+		val = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << "d3000000" << val
+
+	when "ast"
+		assert_args(c,ln,:num)
+		val = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << "d4000000" << val
+
+	when "sst"
+		assert_args(c,ln,:num)
+		val = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << "d5000000" << val
+
+	when /si[dwb]/
+		assert_args(c,ln,:num)
+		barr_t << "d" << (6+%w(d w b).index).to_s(16) << ("0"*6)
+		addr = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << val
+
+	when /ls[dwb]/
+		assert_args(c,ln,:num)
+		barr_t << "d" << (9+%w(d w b).index).to_s(16) << ("0"*6)
+		addr = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << val
+
+	when "aof"
+		assert_args(c,ln,:num)
+		barr_t << "dc" << ("0"*6)
+		val = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << val
+
+	when "fmv"
+		abort_with_style(c,ln,"FMV IS NOT IMPLEMENTED YET.")
+		assert_args(c,ln,:num,:num,:num)
+		barr_t << "e"
+		addr_s    = (command[1][0]==?$ ?  sprintf("%07x",command[1][1..-1].to_i(16)) :  sprintf("%07x",command[1].to_i))
+		vals      = (command[2][0]==?$ ? sprintf("%016x",command[2][1..-1].to_i(16)) : sprintf("%016x",command[2].to_i))
+		num_b     = (command[3][0]==?$ ?  sprintf("%08x",command[1][1..-1].to_i(16)) :  sprintf("%08x",command[1].to_i))
+		barr_t << addr_s << num_b << vals
+
+	when "fcp"
+		assert_args(c,ln,:num,:num)
+		addr_s = (command[1][0]==?$ ? sprintf("%07x",command[1][1..-1].to_i(16)) : sprintf("%07x",command[1].to_i))
+		length = (command[1][0]==?$ ? sprintf("%08x",command[1][1..-1].to_i(16)) : sprintf("%08x",command[1].to_i))
+		barr_t << addr_s << length
+
+	end
+
+	return barr_t
+
+end
+
+content.each_with_index do |i,ind|
+	$out << parse_command(i,ind)
+end
+
+unless $blocks.empty?
+	abort("FATAL @ EOF: THE FOLLOWING BLOCKS WEREN'T CLOSED. #{$blocks.keys.join(" ")}")
+end
+
+$out = $out.split("")
+($out.length/2).times do
+	$out << $out.shift(2).join.to_i(16).chr
+end
+
+$options["outfile"] ||= $options["file"].split(?.)[0..-2].join(?.)+".cht"
+
+File.write($options["outfile"],$out.join)

data/bin/darasm

@@ -0,0 +1,138 @@
+#!/usr/bin/env ruby
+
+require "digest"
+
+$cmdlist		= []
+$blocks 		= []
+$out				= []
+$help				= "USAGE: darasm <-f file> [ -o outfile ]"
+$options 		= {}
+$loopcount 	= 0
+
+ARGV.each_with_index do |i,ind|
+	case i
+	when "-f"
+		$options["file"] = ARGV[ind+1]
+	when "-o"
+		$options["outfile"] = ARGV[ind+1]
+	end
+end
+
+unless $options["file"]
+	abort $help
+end
+
+$options["outfile"] ||= $options["file"].split(?.)[0..-2].join(?.)+".arasm"
+
+content = File.read($options["file"]) rescue abort($help)
+content.inspect.match(/\\x[A-F0-9]{2}/)&&content = content.bytes.map{|i|sprintf("%02x",i)}.join
+content.gsub!(/[^0-9A-F]/i,"")
+content = content.downcase
+
+content.length%16==0 || abort("FATAL: INSTRUCTION LENGTH DOES NOT SEEM TO BE 16.")
+
+(content.length/16).times{|i|$cmdlist<<content[i*16,16]} # divide it into proper instructions
+
+lptr = 0
+
+while lptr < cmdlist.length
+	com = $cmdlist[lptr]
+	case com
+	when /^0/
+		$out << "mvd $#{com[1,7]} $#{com[8,8]}"
+	when /^1/
+		$out << "mvw $#{com[1,7]} $#{com[8,8]}"
+	when /^2/
+		$out << "mvb $#{com[1,7]} #{com[8,8].to_i(16)}"
+	when /^3/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "dlt $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^4/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "dgt $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^5/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "deq $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^6/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "dne $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^7/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "wlt $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^8/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "wgt $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^9/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "weq $#{com[1,7]} $#{com[8,8]} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^a/
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$out << "wne $#{com[1,7]} #{com[8,8].to_i(16)} .#{bname}"
+		$blocks << bname
+		$loopcount += 1
+	when /^b/
+		$out << "lof $#{com[1,7]}"
+	when /^c/
+		$rop && abort("FATAL: TRYING TO PLACE A ROP BLOCK ON LINE #{i+1} INTO ROP ON LINE #{$rop[0]+1}, WTF.")
+		bname = Digest::MD5.hexdigest($loopcount.to_s)[10,8]
+		$rop = [i,bname]
+		$out << "rop #{com[8,8]} .#{bname}"
+		$loopcount += 1
+	when /^d0/
+		$out << "~#{$blocks.pop}"
+	when /^d1/
+		$out << "~#{$rop[1]}"
+		$rop = nil
+	when /^d2/
+		$out << "~#"
+		$rop = nil
+		$blocks = []
+	when /^d3/
+		$out << "sof $#{com[8,8]}"
+	when /^d4/
+		$out << "ast $#{com[8,8]}"
+	when /^d5/
+		$out << "sst $#{com[8,8]}"
+	when /^d6/
+		$out << "sid $#{com[8,8]}"
+	when /^d7/
+		$out << "siw $#{com[8,8]}"
+	when /^d8/
+		$out << "sib #{com[8,8].to_i(16)}"
+	when /^d9/
+		$out << "lsd $#{com[8,8]}"
+	when /^da/
+		$out << "lsw $#{com[8,8]}"
+	when /^db/
+		$out << "lsb $#{com[8,8].to_i(16)}"
+	when /^dc/
+		$out << "aof $#{com[8,8]}"
+	when /^e/
+		abort "FATAL: INSTRUCTION 'E' IS NOT IMPLEMENTED YET"
+		$out << "fmv $#{com[1,7]} $#{com[8,8]}"
+	when /^f/
+		$out << "fcp $#{com[1,7]} $#{com[8,8]}"
+	else
+		abort("FATAL: UNKNOWN INSTRUCTION #{com[0,2].upcase} ON LINE #{lptr+1}.")
+	end
+
+	lptr+=1
+end
+
+$out = $out.join("\n")
+#puts $out
+File.write($options["outfile"],$out)

metadata

@@ -0,0 +1,47 @@
+--- !ruby/object:Gem::Specification
+name: arasm
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- sesshomariu
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2017-07-27 00:00:00.000000000 Z
+dependencies: []
+description: Action Replay Assembly Language
+email: ''
+executables:
+- arasm
+- darasm
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/arasm
+- bin/darasm
+homepage: ''
+licenses:
+- MS-PL
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.6.11
+signing_key: 
+specification_version: 4
+summary: Action Replay Assembly Language
+test_files: []