diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/parse.lisp | 4 | ||||
| -rw-r--r-- | src/util.lisp | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/parse.lisp b/src/parse.lisp index e40487f..2b2f356 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 '("SRDL" "LOAD")) - (type-2 '("SRDS" "STORE")) + (type-1 '("LOAD")) + (type-2 '("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 85076d1..25b867b 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -84,11 +84,11 @@ of the elements from both lists. Returns nil if the lists are not equal size." (defvar r-type '("ADD" "SUB" "MUL" "QUOT" "REM" "SFTR" "SFTL" "AND" "OR" - "NOT" "XOR" "ADDV" "SUBV" "MULV" "DIVV" "CMP" "CEV") + "NOT" "XOR" "ADDV" "SUBV" "MULV" "DIVV" "CMP" "CEV" "SRDL" "SRDS") "R-type instructions.") (defvar i-type - '("LOAD" "SRDL" "ADDI" "SUBI" "SFTRI" "SFTLI" "ANDI" "ORI" "XORI" "STORE" "SRDS") + '("LOAD" "ADDI" "SUBI" "SFTRI" "SFTLI" "ANDI" "ORI" "XORI" "STORE") "I-type instructions.") (defvar j-type |