alarsyo/spot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
spot/iface/nips/nips_vm/nips_asm_instr.pl
Guillaume Sadegh bc5f13bb4e NIPS VM added to the SPOT distribution. 
2008-05-29  Guillaume SADEGH  <sadegh@lrde.epita.fr>

	* iface/nips/nips.cc, iface/nips/nips.hh, iface/nips/common.cc,
	iface/nips/common.hh, iface/nips/Makefile.am: TGBA implementation
	with the NIPS library.
	* iface/nips/emptiness_check.cc: Emptiness check on a Promela
	interface.
	* iface/nips/dottynips.cc: Dot printer on the NIPS interface.
	* iface/nips/compile.sh: Add. Wrapper around nips compiler to
	compile Promela to NIPS bytecode.
	* iface/nips/nips_vm,iface/nips/nips_vm/bytecode.h,
	iface/nips/nips_vm/ChangeLog, iface/nips/nips_vm/COPYING,
	iface/nips/nips_vm/hashtab.c, iface/nips/nips_vm/hashtab.h,
	iface/nips/nips_vm/INSTALL, iface/nips/nips_vm/instr.c,
	iface/nips/nips_vm/instr.h, iface/nips/nips_vm/instr_step.c,
	iface/nips/nips_vm/instr_step.h,
	iface/nips/nips_vm/instr_tools.c,
	iface/nips/nips_vm/instr_tools.h,
	iface/nips/nips_vm/instr_wrap.c,
	iface/nips/nips_vm/instr_wrap.h,
	iface/nips/nips_vm/interactive.c,
	iface/nips/nips_vm/interactive.h, iface/nips/nips_vm/main.c,
	iface/nips/nips_vm/Makefile, iface/nips/nips_vm/Makefile.am,
	iface/nips/nips_vm/nips_asm_help.pl,
	iface/nips/nips_vm/nips_asm_instr.pl,
	iface/nips/nips_vm/nips_asm.pl,
	iface/nips/nips_vm/nips_disasm.pl, iface/nips/nips_vm/nipsvm.c,
	iface/nips/nips_vm/nipsvm.h, iface/nips/nips_vm/README,
	iface/nips/nips_vm/rt_err.c, iface/nips/nips_vm/rt_err.h,
	iface/nips/nips_vm/search.c, iface/nips/nips_vm/search.h,
	iface/nips/nips_vm/split.c, iface/nips/nips_vm/split.h,
	iface/nips/nips_vm/state.c, iface/nips/nips_vm/state.h,
	iface/nips/nips_vm/state_inline.h,
	iface/nips/nips_vm/state_parts.c,
	iface/nips/nips_vm/state_parts.h, iface/nips/nips_vm/timeval.h,
	iface/nips/nips_vm/tools.h: NIPS VM added to the SPOT
	distribution.
	* configure.ac, iface/Makefile.am: Build system updated for the
	NIPS front-end.
2008-05-30 13:22:00 +02:00

187 lines
6.2 KiB
Perl
Executable file
Raw Blame History

# NIPS (Dis)Asm - New Implementation of Promela Semantics (Dis-)Assembler
# Copyright (C) 2005: Stefan Schuermans <stefan@schuermans.info>
# Michael Weber <michaelw@i2.informatik.rwth-aachen.de>
# Lehrstuhl fuer Informatik II, RWTH Aachen
# Copyleft: GNU public license - http://www.gnu.org/copyleft/gpl.html
use strict;
# instructions
# - array with fixed words (variable number of strings)
# - e.g. instruction name
# - e.g. instruction variant
# - opcode
# - array with parameters
# - const1, const2, const4: constants with 1, 2, 4 bytes
# - addr: relative address expressed by a label
# - address: absolute address
# - reg: a register r0 .. r7
sub get_instructions
{
my ($cflow, $error) = (1, 1);
my @instructions = (
[ 0x00, [ "NOP" ] ],
[ 0x01, [ "LDC", "!const4" ] ],
[ 0x02, [ "LDV", "L", "1u" ] ],
[ 0x03, [ "LDV", "L", "1s" ] ],
[ 0x04, [ "LDV", "L", "2u" ] ],
[ 0x05, [ "LDV", "L", "2s" ] ],
[ 0x06, [ "LDV", "L", "4" ] ],
[ 0x07, [ "LDV", "G", "1u" ] ],
[ 0x08, [ "LDV", "G", "1s" ] ],
[ 0x09, [ "LDV", "G", "2u" ] ],
[ 0x0A, [ "LDV", "G", "2s" ] ],
[ 0x0B, [ "LDV", "G", "4" ] ],
[ 0x0C, [ "STV", "L", "1u" ] ],
[ 0x0D, [ "STV", "L", "1s" ] ],
[ 0x0E, [ "STV", "L", "2u" ] ],
[ 0x0F, [ "STV", "L", "2s" ] ],
[ 0x10, [ "STV", "L", "4" ] ],
[ 0x11, [ "STV", "G", "1u" ] ],
[ 0x12, [ "STV", "G", "1s" ] ],
[ 0x13, [ "STV", "G", "2u" ] ],
[ 0x14, [ "STV", "G", "2s" ] ],
[ 0x15, [ "STV", "G", "4" ] ],
[ 0x16, [ "TRUNC", "!const1" ] ],
[ 0x18, [ "LDS", "timeout" ] ],
[ 0x19, [ "LDS", "pid" ] ],
[ 0x1A, [ "LDS", "nrpr" ] ],
[ 0x1B, [ "LDS", "last" ] ],
[ 0x1C, [ "LDS", "np" ] ],
[ 0x20, [ "ADD" ] ],
[ 0x21, [ "SUB" ] ],
[ 0x22, [ "MUL" ] ],
[ 0x23, [ "DIV" ] ],
[ 0x24, [ "MOD" ] ],
[ 0x25, [ "NEG" ] ],
[ 0x26, [ "NOT" ] ],
[ 0x27, [ "AND" ] ],
[ 0x28, [ "OR" ] ],
[ 0x29, [ "XOR" ] ],
[ 0x2A, [ "SHL" ] ],
[ 0x2B, [ "SHR" ] ],
[ 0x2C, [ "EQ" ] ],
[ 0x2D, [ "NEQ" ] ],
[ 0x2E, [ "LT" ] ],
[ 0x2F, [ "LTE" ] ],
[ 0x30, [ "GT" ] ],
[ 0x31, [ "GTE" ] ],
[ 0x32, [ "BNOT" ] ],
[ 0x33, [ "BAND" ] ],
[ 0x34, [ "BOR" ] ],
[ 0x40, [ "ICHK", "!const1" ], $error ],
[ 0x41, [ "BCHK" ], $error ],
[ 0x48, [ "JMP", "!addr" ], $cflow ],
[ 0x49, [ "JMPZ", "!addr" ], $cflow ],
[ 0x4A, [ "JMPNZ", "!addr" ], $cflow ],
[ 0x4B, [ "LJMP", "!address" ], $cflow ],
[ 0x50, [ "TOP", "!reg" ] ],
[ 0x51, [ "POP", "!reg" ] ],
[ 0x52, [ "PUSH", "!reg" ] ],
[ 0x53, [ "POPX" ] ],
[ 0x54, [ "INC", "!reg" ] ],
[ 0x55, [ "DEC", "!reg" ] ],
[ 0x56, [ "LOOP", "!reg", "!addr" ], $cflow ],
[ 0x58, [ "CALL", "!addr" ], $cflow ],
[ 0x59, [ "RET" ], $cflow ],
[ 0x5A, [ "LCALL", "!address" ], $cflow ],
[ 0x60, [ "CHNEW", "!const1", "!const1" ] ],
[ 0x61, [ "CHMAX" ] ],
[ 0x62, [ "CHLEN" ] ],
[ 0x63, [ "CHFREE" ] ],
[ 0x64, [ "CHADD" ] ],
[ 0x65, [ "CHSET" ] ],
[ 0x66, [ "CHGET" ] ],
[ 0x67, [ "CHDEL" ] ],
[ 0x68, [ "CHSORT" ] ],
[ 0x6B, [ "CHROT" ] ],
[ 0x6C, [ "CHSETO", "!const1" ] ],
[ 0x6D, [ "CHGETO", "!const1" ] ],
[ 0x70, [ "NDET", "!addr" ] ],
[ 0x72, [ "ELSE", "!addr" ] ],
[ 0x73, [ "UNLESS", "!addr" ] ],
[ 0x74, [ "NEX" ], $cflow ],
[ 0x75, [ "NEXZ" ], $cflow ],
[ 0x76, [ "NEXNZ" ], $cflow ],
[ 0x78, [ "STEP", "N", "!const1" ], $cflow ],
[ 0x79, [ "STEP", "A", "!const1" ], $cflow ],
[ 0x7A, [ "STEP", "I", "!const1" ], $cflow ],
[ 0x7B, [ "STEP", "T", "!const1" ], $cflow ],
[ 0x80, [ "RUN", "!const1", "!const1", "!addr" ] ],
[ 0x81, [ "LRUN", "!const1", "!const1", "!address" ] ],
[ 0x84, [ "GLOBSZ", "!const1" ] ],
[ 0x85, [ "LOCSZ", "!const1" ] ],
[ 0x86, [ "GLOBSZX", "!const2" ] ],
[ 0x88, [ "FCLR" ] ],
[ 0x89, [ "FGET", "!const1" ] ],
[ 0x8A, [ "FSET", "!const1" ] ],
[ 0x8C, [ "BGET", "!reg", "!const1" ] ],
[ 0x8D, [ "BSET", "!reg", "!const1" ] ],
[ 0x90, [ "PRINTS", "!const2" ] ],
[ 0x91, [ "PRINTV", "!const1" ] ],
[ 0x92, [ "LDVA", "L", "1u", "!const1" ] ],
[ 0x93, [ "LDVA", "L", "1s", "!const1" ] ],
[ 0x94, [ "LDVA", "L", "2u", "!const1" ] ],
[ 0x95, [ "LDVA", "L", "2s", "!const1" ] ],
[ 0x96, [ "LDVA", "L", "4", "!const1" ] ],
[ 0x97, [ "LDVA", "G", "1u", "!const1" ] ],
[ 0x98, [ "LDVA", "G", "1s", "!const1" ] ],
[ 0x99, [ "LDVA", "G", "2u", "!const1" ] ],
[ 0x9A, [ "LDVA", "G", "2s", "!const1" ] ],
[ 0x9B, [ "LDVA", "G", "4", "!const1" ] ],
[ 0x9C, [ "STVA", "L", "1u", "!const1" ] ],
[ 0x9D, [ "STVA", "L", "1s", "!const1" ] ],
[ 0x9E, [ "STVA", "L", "2u", "!const1" ] ],
[ 0x9F, [ "STVA", "L", "2s", "!const1" ] ],
[ 0xA0, [ "STVA", "L", "4", "!const1" ] ],
[ 0xA1, [ "STVA", "G", "1u", "!const1" ] ],
[ 0xA2, [ "STVA", "G", "1s", "!const1" ] ],
[ 0xA3, [ "STVA", "G", "2u", "!const1" ] ],
[ 0xA4, [ "STVA", "G", "2s", "!const1" ] ],
[ 0xA5, [ "STVA", "G", "4", "!const1" ] ],
[ 0xB0, [ "LDA", "!address" ] ],
[ 0xB4, [ "PCVAL" ] ],
[ 0xB8, [ "LVAR", "1u" ] ],
[ 0xB9, [ "LVAR", "1s" ] ],
[ 0xBA, [ "LVAR", "2u" ] ],
[ 0xBB, [ "LVAR", "2s" ] ],
[ 0xBC, [ "LVAR", "4" ] ],
[ 0xBE, [ "ENAB" ] ],
[ 0xC0, [ "MONITOR" ] ],
[ 0xC4, [ "KILL" ] ],
[ 0xD0, [ "LDB", "L" ] ],
[ 0xD1, [ "LDB", "G" ] ],
[ 0xD2, [ "STB", "L" ] ],
[ 0xD3, [ "STB", "G" ] ],
[ 0xD4, [ "LDV", "L", "2u", "LE" ] ],
[ 0xD5, [ "LDV", "L", "2s", "LE" ] ],
[ 0xD6, [ "LDV", "L", "4", "LE" ] ],
[ 0xD7, [ "LDV", "G", "2u", "LE" ] ],
[ 0xD8, [ "LDV", "G", "2s", "LE" ] ],
[ 0xD9, [ "LDV", "G", "4", "LE" ] ],
[ 0xDA, [ "STV", "L", "2u", "LE" ] ],
[ 0xDB, [ "STV", "L", "2s", "LE" ] ],
[ 0xDC, [ "STV", "L", "4", "LE" ] ],
[ 0xDD, [ "STV", "G", "2u", "LE" ] ],
[ 0xDE, [ "STV", "G", "2s", "LE" ] ],
[ 0xDF, [ "STV", "G", "4", "LE" ] ],
);
return @instructions;
}
sub instruction_cfun {
my ($op, $params) = @_;
my $name = "instr";
for (@{$params}) {
next if /^!/;
if (/^[0-9]/) {
$name .= lc($_);
next;
}
$name .= "_".lc($_);
}
return $name;
}
1;
Reference in a new issue View git blame Copy permalink