diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/parse.lisp | 4 | ||||
| -rw-r--r-- | src/util.lisp | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/parse.lisp b/src/parse.lisp index 56c23f4..e40487f 100644 --- a/src/parse.lisp +++ b/src/parse.lisp @@ -106,8 +106,8 @@ (generate-mnemonic 'r-type-3-m type-3)) (let* ((lst (reverse util:i-type)) - (type-1 '("LOADV" "LOAD")) - (type-2 '("STOREV" "STORE")) + (type-1 '("SRDL" "LOAD")) + (type-2 '("SRDS" "STORE")) (type-3 (remove-if (lambda (x) (member x (append type-1 type-2))) lst))) (generate-mnemonic 'i-type-1-m type-1) (generate-mnemonic 'i-type-2-m type-2) diff --git a/src/util.lisp b/src/util.lisp index 4af50e0..85076d1 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -88,7 +88,7 @@ of the elements from both lists. Returns nil if the lists are not equal size." "R-type instructions.") (defvar i-type - '("LOAD" "LOADV" "ADDI" "SUBI" "SFTRI" "SFTLI" "ANDI" "ORI" "XORI" "STORE" "STOREV") + '("LOAD" "SRDL" "ADDI" "SUBI" "SFTRI" "SFTLI" "ANDI" "ORI" "XORI" "STORE" "SRDS") "I-type instructions.") (defvar j-type |