diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-01-08 18:10:01 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-01-08 18:10:01 +0100 |
| commit | b2c5356b3f6d2e0a836a19b4cae1791d350785d3 (patch) | |
| tree | c84011df6867b5fa9e4c211f300dbc0421683f93 /asm/assembler.ml | |
| parent | fb4a33dfbbfd3d85e3ecee65bdee36b12c4f9937 (diff) | |
| download | SystDigit-Projet-b2c5356b3f6d2e0a836a19b4cae1791d350785d3.tar.gz SystDigit-Projet-b2c5356b3f6d2e0a836a19b4cae1791d350785d3.zip | |
Assembler kind of works ; created simple assembly program that prints Tick! every second.
Diffstat (limited to 'asm/assembler.ml')
| -rw-r--r-- | asm/assembler.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asm/assembler.ml b/asm/assembler.ml index 2c91366..1158181 100644 --- a/asm/assembler.ml +++ b/asm/assembler.ml @@ -108,7 +108,7 @@ let print_program p = sprintf "liu %s %s" (rts r) (its i) | Liuz (r,i) -> (0b11011 lsl 11) lxor (r lsl 8) lxor (value i land 0xFF), sprintf "liuz %s %s" (rts r) (its i) - | TwoRawBytes(a, b) -> (a lsl 8) lxor b, sprintf "bytes %d %d" a b + | TwoRawBytes(a, b) -> (a) lxor (b lsl 8), sprintf "bytes %d %d" a b in let n = List.length p.text in let rev_lbls = Array.make n "" in |