diff options
Diffstat (limited to 'tclasm.tcl')
| -rwxr-xr-x[-rw-r--r--] | tclasm.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tclasm.tcl b/tclasm.tcl index cafe99f..5af74c4 100644..100755 --- a/tclasm.tcl +++ b/tclasm.tcl @@ -1,5 +1,4 @@ -#!/bin/grep this[ ]script -# this script is to be sourced, not executed by itself +#!/usr/bin/tclsh # procedures starting with "__" are internal and not to be used in asm code; # procedures starting with "_" are low-level procedures, that are not meant @@ -204,3 +203,7 @@ proc _cond_jump {address_part} { proc cond_jump {address} { _with_im _cond_jump $address } + + +# translate instructions in the file given as command line argument +source [lindex $argv 0] |