annotate lisp/progmodes/mixal-mode.el @ 61448:7d5a5b63ec13

(define-abbrevs): Read system abbrevs properly.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 Apr 2005 23:25:56 +0000
parents d162faeebae4
children 18a818a2ee7c 95879cc1ed20
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
51592
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1 ;;; mixal-mode.el --- Major mode for the mix asm language.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
3 ;; Copyright (C) 2003 Free Software Foundation
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
5 ;; This program is free software; you can redistribute it and/or
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
6 ;; modify it under the terms of the GNU General Public License as
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
7 ;; published by the Free Software Foundation; either version 2 of
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
8 ;; the License, or (at your option) any later version.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
9
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
10 ;; This program is distributed in the hope that it will be
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
11 ;; useful, but WITHOUT ANY WARRANTY; without even the implied
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
12 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
13 ;; PURPOSE. See the GNU General Public License for more details.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
14
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
15 ;; You should have received a copy of the GNU General Public
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
16 ;; License along with this program; if not, write to the Free
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
17 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
18 ;; MA 02111-1307 USA
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
19
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
20 ;; Author: Pieter E.J. Pareit <pieter.pareit@skynet.be>
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
21 ;; Maintainer: Pieter E.J. Pareit <pieter.pareit@skynet.be>
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
22 ;; Created: 09 Nov 2002
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
23 ;; Version: 0.1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
24 ;; Keywords: Knuth mix mixal asm mixvm "The Art Of Computer Programming"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
25
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
26 ;;; Commentary:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
27 ;; Major mode for the mix asm language.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
28 ;; The mix asm language is described in "The Art Of Computer Programming".
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
29 ;;
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
30 ;; For optimal use, also use GNU MDK. Compiling needs mixasm, running
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
31 ;; and debugging needs mixvm and mixvm.el from GNU MDK. You can get
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
32 ;; GNU MDK from `https://savannah.gnu.org/projects/mdk/' and
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
33 ;; `ftp://ftp.gnu.org/pub/gnu/mdk'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
34 ;;
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
35 ;; To use this mode, place the following in your .emacs file:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
36 ;; `(load-file "/PATH-TO-FILE/mixal-mode.el")'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
37 ;; When you load a file with the extension .mixal the mode will be started
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
38 ;; automatic. If you want to start the mode manual, use `M-x mixal-mode'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
39 ;; Font locking will work, the behavior of tabs is the same as emacs
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
40 ;; default behavior. You can compile a source file with `C-c c' you can
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
41 ;; run a compiled file with `C-c r' or run it in debug mode with `C-c d'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
42 ;; You can get more information about a particular operation code by using
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
43 ;; mixal-describe-operation-code or `C-h o'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
44 ;;
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
45 ;; Have fun.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
46
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
47 ;;; History:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
48 ;; Version 0.1:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
49 ;; Version 0.1.1:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
50 ;; 22/11/02: bugfix in fontlocking, needed to add a '-' to the regex.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
51 ;; 19/11/02: completed implementing mixal-describe-operation-code.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
52 ;; 13/11/02: implemented compile, mixal-run and mixal-debug.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
53 ;; 10/11/02: implemented font-locking and syntax table.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
54 ;; 09/11/02: started mixal-mode.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
55
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
56 ;;; Code:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
57
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
58 ;;; Key map
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
59 (defvar mixal-mode-map
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
60 (let ((map (make-sparse-keymap)))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
61 (define-key map "\C-cc" 'compile)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
62 (define-key map "\C-cr" 'mixal-run)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
63 (define-key map "\C-cd" 'mixal-debug)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
64 (define-key map "\C-ho" 'mixal-describe-operation-code)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
65 map)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
66 "Keymap for `mixal-mode'.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
67 ; (makunbound 'mixal-mode-map)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
68
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
69 ;;; Syntax table
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
70 (defvar mixal-mode-syntax-table
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
71 (let ((st (make-syntax-table)))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
72 (modify-syntax-entry ?* "<" st)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
73 (modify-syntax-entry ?\n ">" st)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
74 st)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
75 "Syntax table for `dot-mode'.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
76
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
77 (defvar mixal-font-lock-label-face 'font-lock-variable-name-face
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
78 "Face name to use for label names.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
79 Default value is that of `font-lock-variable-name-face', but you can modify
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
80 its value.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
81
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
82 (defvar mixal-font-lock-operation-code-face 'font-lock-keyword-face
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
83 "Face name to use for operation code names.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
84 Default value is that of `font-lock-keyword-face', but you can modify its
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
85 value.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
86
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
87 (defvar mixal-font-lock-assembly-pseudoinstruction-face 'font-lock-builtin-face
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
88 "Face name to use for assembly pseudoinstruction names.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
89 Default value is that of `font-lock-builtin-face', but you can modify its
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
90 value.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
91
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
92 (defvar mixal-operation-codes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
93 '("NOP" "ADD" "FADD" "SUB" "FSUB" "MUL" "FMUL" "DIV" "FDIV" "NUM" "CHAR"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
94 "HLT" "SLA" "SRA" "SLAX" "SRAX" "SLC" "SRC" "MOVE" "LDA" "LD1" "LD2" "LD3"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
95 "LD4" "LD5" "LD6" "LDX" "LDAN" "LD1N" "LD2N" "LD3N" "LD4N" "LD5N" "LD6N"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
96 "LDXN" "STA" "ST1" "ST2" "ST3" "ST4" "ST5" "ST6" "STX" "STJ" "STZ" "JBUS"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
97 "IOC" "IN" "OUT" "JRAD" "JMP" "JSJ" "JOV" "JNOV"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
98 "JAN" "J1N" "J2N" "J3N" "J4N" "J5N" "J6N" "JXN"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
99 "JAZ" "J1Z" "J2Z" "J3Z" "J4Z" "J5Z" "J6Z" "JXZ"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
100 "JAP" "J1P" "J2P" "J3P" "J4P" "J5P" "J6P" "JXP"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
101 "JANN" "J1NN" "J2NN" "J3NN" "J4NN" "J5NN" "J6NN" "JXNN"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
102 "JANZ" "J1NZ" "J2NZ" "J3NZ" "J4NZ" "J5NZ" "J6NZ" "JXNZ"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
103 "JANP" "J1NP" "J2NP" "J3NP" "J4NP" "J5NP" "J6NP" "JXNP"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
104 "INCA" "DECA" "ENTA" "ENNA" "INC1" "DEC1" "ENT1" "ENN1"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
105 "INC2" "DEC2" "ENT2" "ENN2" "INC3" "DEC3" "ENT3" "ENN3" "INC4" "DEC4"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
106 "ENT4" "ENN4" "INC5" "DEC5" "ENT5" "ENN5" "INC6" "DEC6" "ENT6" "ENN6"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
107 "INCX" "DECX" "ENTX" "ENNX" "CMPA" "FCMP" "CMP1" "CMP2" "CMP3" "CMP4"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
108 "CMP5" "CMP6" "CMPX")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
109 "List of possible operation codes as strings.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
110 ; (makunbound 'mixal-operation-codes)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
111
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
112 (defvar mixal-assembly-pseudoinstructions
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
113 '("ORIG" "EQU" "CON" "ALF" "END")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
114 "List of possible assembly pseudoinstructions")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
115
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
116 ;;; Font-locking:
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
117 (defvar mixal-font-lock-keywords
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
118 `(("^\\([A-Z0-9a-z]+\\).*$"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
119 (1 mixal-font-lock-label-face))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
120 (,(regexp-opt mixal-operation-codes 'words)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
121 . mixal-font-lock-operation-code-face)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
122 (,(regexp-opt
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
123 mixal-assembly-pseudoinstructions 'words)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
124 . mixal-font-lock-assembly-pseudoinstruction-face)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
125 ("^[A-Z0-9a-z]*[ \t]+[A-Z0-9a-z]+[ \t]+[\\-A-Z0-9a-z,():]*[\t]+\\(.*\\)$"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
126 (1 font-lock-comment-face)))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
127 "Keyword highlighting specification for `mixal-mode'.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
128 ; (makunbound 'mixal-font-lock-keywords)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
129
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
130 ;;;; Compilation
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
131 ;; Output from mixasm is compatible with default behavior of emacs,
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
132 ;; I just added a key (C-cc) and modified the make-command.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
133
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
134 ;;;; Indentation
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
135 ;; Tabs works well by default.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
136
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
137 ;;;; Describe
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
138 (defvar mixal-operation-codes-alist '()
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
139 "Alist that contains all the possible operation codes for mix.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
140 Each elt has the form (OP-CODE GROUP FULL-NAME C-BYTE F-BYTE DESCRIPTION EXECUTION-TIME)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
141 Where OP-CODE is the text of the opcode as an symbol, FULL-NAME is the human readable name
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
142 as a string, C-BYTE is the operation code telling what operation is to be performed, F-BYTE holds
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
143 an modification of the operation code which can be a symbol or a number, DESCRIPTION contains
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
144 an string with a description about the operation code and EXECUTION-TIME holds info
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
145 about the time it takes, number or string.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
146 ; (makunbound 'mixal-operation-codes-alist)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
147
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
148 (defun mixal-add-operation-code (op-code group full-name C-byte F-byte description execution-time)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
149 "Add an operation code to the list that contains information about possible op code's."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
150 (setq mixal-operation-codes-alist (cons (list op-code group full-name C-byte F-byte
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
151 description execution-time)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
152 mixal-operation-codes-alist )))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
153
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
154 ;; now add each operation code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
155
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
156 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
157 'LDA 'loading "load A" 8 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
158 "Put in rA the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
159 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
160 zeros to make a word."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
161 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
162
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
163 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
164 'LDX 'loading "load X" 15 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
165 "Put in rX the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
166 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
167 zeros to make a word."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
168 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
169
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
170 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
171 'LD1 'loading "load I1" (+ 8 1) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
172 "Put in rI1 the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
173 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
174 zeros to make a word. Index registers only have 2 bytes and a sign, Trying
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
175 to set anything more that that will result in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
176 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
177
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
178 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
179 'LD2 'loading "load I2" (+ 8 2) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
180 "Put in rI2 the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
181 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
182 zeros to make a word. Index registers only have 2 bytes and a sign, Trying
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
183 to set anything more that that will result in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
184 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
185
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
186 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
187 'LD3 'loading "load I3" (+ 8 3) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
188 "Put in rI3 the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
189 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
190 zeros to make a word. Index registers only have 2 bytes and a sign, Trying
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
191 to set anything more that that will result in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
192 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
193
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
194 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
195 'LD4 'loading "load I4" (+ 8 4) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
196 "Put in rI4 the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
197 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
198 zeros to make a word. Index registers only have 2 bytes and a sign, Trying
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
199 to set anything more that that will result in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
200 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
201
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
202 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
203 'LD5 'loading "load I5" (+ 8 5) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
204 "Put in rI5 the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
205 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
206 zeros to make a word. Index registers only have 2 bytes and a sign, Trying
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
207 to set anything more that that will result in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
208 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
209
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
210 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
211 'LD6 'loading "load I6" (+ 8 6) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
212 "Put in rI6 the contents of cell no. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
213 Uses a + when there is no sign in subfield. Subfield is left padded with
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
214 zeros to make a word. Index registers only have 2 bytes and a sign, Trying
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
215 to set anything more that that will result in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
216 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
217
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
218 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
219 'LDAN 'loading "load A negative" 16 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
220 "Put in rA the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
221 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
222 Subfield is left padded with zeros to make a word."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
223 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
224
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
225 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
226 'LDXN 'loading "load X negative" 23 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
227 "Put in rX the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
228 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
229 Subfield is left padded with zeros to make a word."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
230 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
231
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
232 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
233 'LD1N 'loading "load I1 negative" (+ 16 1) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
234 "Put in rI1 the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
235 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
236 Subfield is left padded with zeros to make a word. Index registers only
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
237 have 2 bytes and a sign, Trying to set anything more that that will result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
238 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
239 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
240
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
241 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
242 'LD2N 'loading "load I2 negative" (+ 16 2) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
243 "Put in rI2 the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
244 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
245 Subfield is left padded with zeros to make a word. Index registers only
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
246 have 2 bytes and a sign, Trying to set anything more that that will result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
247 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
248 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
249
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
250 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
251 'LD3N 'loading "load I3 negative" (+ 16 3) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
252 "Put in rI3 the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
253 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
254 Subfield is left padded with zeros to make a word. Index registers only
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
255 have 2 bytes and a sign, Trying to set anything more that that will result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
256 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
257 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
258
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
259 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
260 'LD4N 'loading "load I4 negative" (+ 16 4) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
261 "Put in rI4 the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
262 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
263 Subfield is left padded with zeros to make a word. Index registers only
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
264 have 2 bytes and a sign, Trying to set anything more that that will result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
265 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
266 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
267
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
268 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
269 'LD5N 'loading "load I5 negative" (+ 16 5) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
270 "Put in rI5 the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
271 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
272 Subfield is left padded with zeros to make a word. Index registers only
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
273 have 2 bytes and a sign, Trying to set anything more that that will result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
274 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
275 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
276
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
277 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
278 'LD6N 'loading "load I6 negative" (+ 16 6) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
279 "Put in rI6 the contents of cell no. M, with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
280 Uses a + when there is no sign in subfield, otherwise use the opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
281 Subfield is left padded with zeros to make a word. Index registers only
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
282 have 2 bytes and a sign, Trying to set anything more that that will result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
283 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
284 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
285
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
286 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
287 'STA 'storing "store A" 24 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
288 "Store in cell Nr. M the contents of rA.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
289 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
290 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
291 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
292 sign of the memory cell is not changed, unless it is part of the subfield."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
293 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
294
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
295 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
296 'STX 'storing "store X" 31 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
297 "Store in cell Nr. M the contents of rX.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
298 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
299 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
300 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
301 sign of the memory cell is not changed, unless it is part of the subfield."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
302 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
303
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
304 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
305 'ST1 'storing "store I1" (+ 24 1) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
306 "Store in cell Nr. M the contents of rI1.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
307 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
308 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
309 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
310 sign of the memory cell is not changed, unless it is part of the subfield.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
311 Because index registers only have 2 bytes and a sign, the rest of the bytes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
312 are assumed to be 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
313 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
314
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
315 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
316 'ST2 'storing "store I2" (+ 24 2) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
317 "Store in cell Nr. M the contents of rI2.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
318 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
319 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
320 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
321 sign of the memory cell is not changed, unless it is part of the subfield.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
322 Because index registers only have 2 bytes and a sign, the rest of the bytes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
323 are assumed to be 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
324 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
325
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
326 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
327 'ST3 'storing "store I3" (+ 24 3) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
328 "Store in cell Nr. M the contents of rI3.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
329 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
330 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
331 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
332 sign of the memory cell is not changed, unless it is part of the subfield.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
333 Because index registers only have 2 bytes and a sign, the rest of the bytes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
334 are assumed to be 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
335 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
336
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
337 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
338 'ST4 'storing "store I4" (+ 24 4) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
339 "Store in cell Nr. M the contents of rI4.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
340 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
341 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
342 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
343 sign of the memory cell is not changed, unless it is part of the subfield.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
344 Because index registers only have 2 bytes and a sign, the rest of the bytes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
345 are assumed to be 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
346 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
347
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
348 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
349 'ST5 'storing "store I5" (+ 24 5) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
350 "Store in cell Nr. M the contents of rI5.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
351 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
352 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
353 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
354 sign of the memory cell is not changed, unless it is part of the subfield.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
355 Because index registers only have 2 bytes and a sign, the rest of the bytes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
356 are assumed to be 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
357 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
358
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
359 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
360 'ST6 'storing "store I6" (+ 24 6) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
361 "Store in cell Nr. M the contents of rI6.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
362 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
363 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
364 bytes are taken beginning by the rightmost side of the register. The
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
365 sign of the memory cell is not changed, unless it is part of the subfield.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
366 Because index registers only have 2 bytes and a sign, the rest of the bytes
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
367 are assumed to be 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
368 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
369
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
370 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
371 'STJ 'storing "store J" 32 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
372 "Store in cell Nr. M the contents of rJ.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
373 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
374 memory cell that is to be overwritten with bytes from a register. These
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
375 bytes are taken beginning by the rightmost side of the register. The sign
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
376 of rJ is always +, sign of the memory cell is not changed, unless it is
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
377 part of the subfield. The default field for STJ is (0:2)."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
378 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
379
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
380 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
381 'STZ 'storing "store zero" 33 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
382 "Store in cell Nr. M '+ 0'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
383 The modification of the operation code represents the subfield of the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
384 memory cell that is to be overwritten with zeros."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
385 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
386
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
387 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
388 'ADD 'arithmetic "add" 1 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
389 "Add to A the contents of cell Nr. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
390 Subfield is padded with zero to make a word.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
391 If the result is to large, the operation result modulo 1,073,741,823 (the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
392 maximum value storable in a MIX word) is stored in `rA', and the overflow
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
393 toggle is set to TRUE."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
394 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
395
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
396 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
397 'SUB 'arithmetic "subtract" 2 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
398 "Subtract to A the contents of cell Nr. M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
399 Subfield is padded with zero to make a word.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
400 If the result is to large, the operation result modulo 1,073,741,823 (the
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
401 maximum value storable in a MIX word) is stored in `rA', and the overflow
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
402 toggle is set to TRUE."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
403 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
404
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
405 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
406 'MUL 'arithmetic "multiply" 3 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
407 "Multiplies the contents of cell Nr. M with A, result is 10 bytes and stored in rA and rX.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
408 The sign is + if the sign of rA and cell M where the same, otherwise, it is -"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
409 10)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
410
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
411 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
412 'DIV 'arithmetic "divide" 4 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
413 "Both rA and rX are taken together and divided by cell Nr. M, quotient is placed in rA, remainder in rX.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
414 The sign is taken from rA, and after the divide the sign of rA is set to + when
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
415 both the sign of rA and M where the same. Divide by zero and overflow of rA result
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
416 in undefined behavior."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
417 12)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
418
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
419 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
420 'ENTA 'address-transfer "enter A" 48 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
421 "Literal value is stored in rA.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
422 Indexed, stores value of index in rA."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
423 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
424
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
425 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
426 'ENTX 'address-transfer "enter X" 55 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
427 "Literal value is stored in rX.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
428 Indexed, stores value of index in rX."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
429 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
430
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
431 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
432 'ENT1 'address-transfer "Enter rI1" (+ 48 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
433 "Literal value is stored in rI1.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
434 Indexed, stores value of index in rI1."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
435 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
436
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
437 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
438 'ENT2 'address-transfer "Enter rI2" (+ 48 2) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
439 "Literal value is stored in rI2.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
440 Indexed, stores value of index in rI2."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
441 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
442
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
443 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
444 'ENT3 'address-transfer "Enter rI3" (+ 48 3) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
445 "Literal value is stored in rI3.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
446 Indexed, stores value of index in rI3."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
447 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
448
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
449 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
450 'ENT4 'address-transfer "Enter rI4" (+ 48 4) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
451 "Literal value is stored in rI4.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
452 Indexed, stores value of index in rI4."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
453 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
454
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
455 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
456 'ENT5 'address-transfer "Enter rI5" (+ 48 5) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
457 "Literal value is stored in rI5.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
458 Indexed, stores value of index in rI5."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
459 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
460
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
461 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
462 'ENT6 'address-transfer "Enter rI6" (+ 48 6) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
463 "Literal value is stored in rI6.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
464 Indexed, stores value of index in rI6."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
465 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
466
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
467 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
468 'ENNA 'address-transfer "enter negative A" 48 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
469 "Literal value is stored in rA with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
470 Indexed, stores value of index in rA with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
471 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
472
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
473 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
474 'ENNX 'address-transfer "enter negative X" 55 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
475 "Literal value is stored in rX with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
476 Indexed, stores value of index in rX with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
477 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
478
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
479 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
480 'ENN1 'address-transfer "Enter negative rI1" (+ 48 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
481 "Literal value is stored in rI1 with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
482 Indexed, stores value of index in rI1 with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
483 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
484
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
485 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
486 'ENN2 'address-transfer "Enter negative rI2" (+ 48 2) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
487 "Literal value is stored in rI2 with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
488 Indexed, stores value of index in rI2 with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
489 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
490
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
491 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
492 'ENN3 'address-transfer "Enter negative rI3" (+ 48 3) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
493 "Literal value is stored in rI3 with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
494 Indexed, stores value of index in rI3 with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
495 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
496
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
497 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
498 'ENN4 'address-transfer "Enter negative rI4" (+ 48 4) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
499 "Literal value is stored in rI4 with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
500 Indexed, stores value of index in rI4 with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
501 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
502
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
503 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
504 'ENN5 'address-transfer "Enter negative rI5" (+ 48 5) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
505 "Literal value is stored in rI5 with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
506 Indexed, stores value of index in rI5 with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
507 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
508
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
509 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
510 'ENN6 'address-transfer "Enter negative rI6" (+ 48 6) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
511 "Literal value is stored in rI6 with opposite sign.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
512 Indexed, stores value of index in rI6 with opposite sign."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
513 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
514
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
515 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
516 'INCA 'address-transfer "increase A" 48 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
517 "Increase register A with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
518 On overflow the overflow toggle is set."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
519 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
520
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
521 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
522 'INCX 'address-transfer "increase X" 55 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
523 "Increase register X with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
524 On overflow the overflow toggle is set."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
525 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
526
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
527 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
528 'INC1 'address-transfer "increase I1" (+ 48 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
529 "Increase register I1 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
530 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
531 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
532 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
533
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
534 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
535 'INC2 'address-transfer "increase I2" (+ 48 2) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
536 "Increase register I2 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
537 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
538 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
539 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
540
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
541 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
542 'INC3 'address-transfer "increase I3" (+ 48 3) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
543 "Increase register I3 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
544 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
545 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
546 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
547
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
548 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
549 'INC4 'address-transfer "increase I4" (+ 48 4) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
550 "Increase register I4 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
551 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
552 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
553 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
554
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
555 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
556 'INC5 'address-transfer "increase I5" (+ 48 5) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
557 "Increase register I5 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
558 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
559 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
560 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
561
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
562 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
563 'INC6 'address-transfer "increase I6" (+ 48 6) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
564 "Increase register I6 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
565 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
566 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
567 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
568
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
569 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
570 'DECA 'address-transfer "decrease A" 48 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
571 "Decrease register A with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
572 On overflow the overflow toggle is set."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
573 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
574
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
575 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
576 'DECX 'address-transfer "decrease X" 55 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
577 "Decrease register X with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
578 On overflow the overflow toggle is set."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
579 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
580
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
581 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
582 'DEC1 'address-transfer "decrease I1" (+ 48 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
583 "Decrease register I1 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
584 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
585 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
586 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
587
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
588 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
589 'DEC2 'address-transfer "decrease I2" (+ 48 2) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
590 "Decrease register I2 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
591 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
592 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
593 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
594
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
595 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
596 'DEC3 'address-transfer "decrease I3" (+ 48 3) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
597 "Decrease register I3 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
598 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
599 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
600 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
601
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
602 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
603 'DEC4 'address-transfer "decrease I4" (+ 48 4) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
604 "Decrease register I4 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
605 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
606 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
607 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
608
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
609 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
610 'DEC5 'address-transfer "decrease I5" (+ 48 5) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
611 "Decrease register I5 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
612 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
613 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
614 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
615
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
616 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
617 'DEC6 'address-transfer "decrease I6" (+ 48 6) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
618 "Decrease register I6 with the literal value of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
619 The result is undefined when the result does not fit in
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
620 2 bytes."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
621 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
622
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
623 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
624 'CMPA 'comparison "compare A" 56 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
625 "Compare contents of A with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
626 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
627 is set to LESS, EQUAL or GREATER depending on the outcome."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
628 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
629
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
630
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
631 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
632 'CMPX 'comparison "compare X" 63 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
633 "Compare contents of rX with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
634 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
635 is set to LESS, EQUAL or GREATER depending on the outcome."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
636 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
637
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
638
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
639 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
640 'CMP1 'comparison "compare I1" (+ 56 1) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
641 "Compare contents of rI1 with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
642 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
643 is set to LESS, EQUAL or GREATER depending on the outcome. Bit 1,2 and 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
644 have a value of 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
645 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
646
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
647
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
648 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
649 'CMP2 'comparison "compare I2" (+ 56 2) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
650 "Compare contents of rI2 with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
651 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
652 is set to LESS, EQUAL or GREATER depending on the outcome. Bit 1,2 and 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
653 have a value of 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
654 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
655
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
656
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
657 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
658 'CMP3 'comparison "compare I3" (+ 56 3) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
659 "Compare contents of rI3 with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
660 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
661 is set to LESS, EQUAL or GREATER depending on the outcome. Bit 1,2 and 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
662 have a value of 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
663 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
664
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
665
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
666 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
667 'CMP4 'comparison "compare I4" (+ 56 4) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
668 "Compare contents of rI4 with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
669 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
670 is set to LESS, EQUAL or GREATER depending on the outcome. Bit 1,2 and 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
671 have a value of 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
672 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
673
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
674
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
675 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
676 'CMP5 'comparison "compare I5" (+ 56 5) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
677 "Compare contents of rI5 with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
678 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
679 is set to LESS, EQUAL or GREATER depending on the outcome. Bit 1,2 and 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
680 have a value of 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
681 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
682
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
683
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
684 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
685 'CMP6 'comparison "compare I6" (+ 56 6) 'field
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
686 "Compare contents of rI6 with contents of M.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
687 The field specifier works on both fields. The comparison indicator
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
688 is set to LESS, EQUAL or GREATER depending on the outcome. Bit 1,2 and 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
689 have a value of 0."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
690 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
691
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
692 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
693 'JMP 'jump "jump" 39 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
694 "Unconditional jump.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
695 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
696 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
697 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
698
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
699 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
700 'JSJ 'jump "jump, save J" 39 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
701 "Unconditional jump, but rJ is not modified."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
702 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
703
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
704 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
705 'JOV 'jump "jump on overflow" 39 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
706 "Jump if OV is set (and turn it off).
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
707 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
708 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
709 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
710
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
711 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
712 'JNOV 'jump "Jump on no overflow" 39 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
713 "Jump if OV is not set (and turn it off).
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
714 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
715 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
716 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
717
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
718 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
719 'JL 'jump "Jump on less" 39 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
720 "Jump if '[CM] = L'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
721 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
722 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
723 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
724
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
725
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
726 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
727 'JE 'jump "Jump on equal" 39 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
728 "Jump if '[CM] = E'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
729 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
730 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
731 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
732
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
733
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
734 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
735 'JG 'jump "Jump on greater" 39 6
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
736 "Jump if '[CM] = G'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
737 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
738 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
739 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
740
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
741
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
742 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
743 'JGE 'jump "Jump on not less" 39 7
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
744 "Jump if '[CM]' does not equal 'L'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
745 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
746 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
747 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
748
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
749
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
750 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
751 'JNE 'jump "Jump on not equal" 39 8
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
752 "Jump if '[CM]' does not equal 'E'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
753 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
754 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
755 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
756
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
757
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
758 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
759 'JLE 'jump "Jump on not greater" 39 9
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
760 "Jump if '[CM]' does not equal 'G'.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
761 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
762 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
763 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
764
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
765 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
766 'JAN 'jump "jump A negative" 40 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
767 "Jump if the content of rA is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
768 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
769 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
770 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
771
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
772
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
773 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
774 'JAZ 'jump "jump A zero" 40 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
775 "Jump if the content of rA is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
776 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
777 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
778 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
779
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
780
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
781 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
782 'JAP 'jump "jump A positive" 40 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
783 "Jump if the content of rA is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
784 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
785 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
786 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
787
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
788
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
789 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
790 'JANN 'jump "jump A non-negative" 40 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
791 "Jump if the content of rA is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
792 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
793 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
794 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
795
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
796
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
797 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
798 'JANZ 'jump "jump A non-zero" 40 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
799 "Jump if the content of rA is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
800 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
801 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
802 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
803
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
804
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
805 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
806 'JANP 'jump "jump A non-positive" 40 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
807 "Jump if the content of rA is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
808 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
809 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
810 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
811
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
812 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
813 'JXN 'jump "jump X negative" 47 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
814 "Jump if the content of rX is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
815 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
816 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
817 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
818
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
819
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
820 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
821 'JXZ 'jump "jump X zero" 47 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
822 "Jump if the content of rX is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
823 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
824 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
825 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
826
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
827
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
828 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
829 'JXP 'jump "jump X positive" 47 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
830 "Jump if the content of rX is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
831 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
832 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
833 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
834
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
835
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
836 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
837 'JXNN 'jump "jump X non-negative" 47 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
838 "Jump if the content of rX is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
839 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
840 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
841 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
842
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
843
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
844 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
845 'JXNZ 'jump "jump X non-zero" 47 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
846 "Jump if the content of rX is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
847 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
848 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
849 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
850
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
851
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
852 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
853 'JXNP 'jump "jump X non-positive" 47 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
854 "Jump if the content of rX is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
855 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
856 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
857 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
858
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
859 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
860 'J1N 'jump "jump I1 negative" (+ 40 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
861 "Jump if the content of rI1 is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
862 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
863 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
864 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
865
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
866
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
867 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
868 'J1Z 'jump "jump I1 zero" (+ 40 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
869 "Jump if the content of rI1 is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
870 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
871 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
872 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
873
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
874
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
875 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
876 'J1P 'jump "jump I1 positive" (+ 40 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
877 "Jump if the content of rI1 is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
878 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
879 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
880 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
881
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
882
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
883 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
884 'J1NN 'jump "jump I1 non-negative" (+ 40 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
885 "Jump if the content of rI1 is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
886 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
887 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
888 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
889
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
890
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
891 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
892 'J1NZ 'jump "jump I1 non-zero" (+ 40 1) 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
893 "Jump if the content of rI1 is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
894 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
895 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
896 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
897
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
898
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
899 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
900 'J1NP 'jump "jump I1 non-positive" (+ 40 1) 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
901 "Jump if the content of rI1 is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
902 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
903 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
904 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
905
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
906 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
907 'J2N 'jump "jump I2 negative" (+ 40 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
908 "Jump if the content of rI2 is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
909 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
910 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
911 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
912
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
913
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
914 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
915 'J2Z 'jump "jump I2 zero" (+ 40 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
916 "Jump if the content of rI2 is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
917 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
918 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
919 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
920
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
921
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
922 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
923 'J2P 'jump "jump I2 positive" (+ 40 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
924 "Jump if the content of rI2 is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
925 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
926 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
927 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
928
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
929
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
930 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
931 'J2NN 'jump "jump I2 non-negative" (+ 40 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
932 "Jump if the content of rI2 is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
933 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
934 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
935 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
936
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
937
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
938 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
939 'J2NZ 'jump "jump I2 non-zero" (+ 40 1) 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
940 "Jump if the content of rI2 is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
941 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
942 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
943 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
944
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
945
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
946 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
947 'J2NP 'jump "jump I2 non-positive" (+ 40 1) 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
948 "Jump if the content of rI2 is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
949 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
950 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
951 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
952
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
953
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
954 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
955 'J3N 'jump "jump I3 negative" (+ 40 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
956 "Jump if the content of rI3 is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
957 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
958 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
959 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
960
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
961
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
962 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
963 'J3Z 'jump "jump I3 zero" (+ 40 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
964 "Jump if the content of rI3 is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
965 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
966 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
967 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
968
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
969
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
970 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
971 'J3P 'jump "jump I3 positive" (+ 40 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
972 "Jump if the content of rI3 is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
973 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
974 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
975 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
976
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
977
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
978 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
979 'J3NN 'jump "jump I3 non-negative" (+ 40 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
980 "Jump if the content of rI3 is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
981 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
982 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
983 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
984
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
985
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
986 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
987 'J3NZ 'jump "jump I3 non-zero" (+ 40 1) 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
988 "Jump if the content of rI3 is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
989 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
990 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
991 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
992
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
993
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
994 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
995 'J3NP 'jump "jump I3 non-positive" (+ 40 1) 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
996 "Jump if the content of rI3 is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
997 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
998 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
999 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1000
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1001
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1002 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1003 'J4N 'jump "jump I4 negative" (+ 40 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1004 "Jump if the content of rI4 is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1005 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1006 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1007 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1008
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1009
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1010 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1011 'J4Z 'jump "jump I4 zero" (+ 40 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1012 "Jump if the content of rI4 is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1013 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1014 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1015 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1016
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1017
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1018 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1019 'J4P 'jump "jump I4 positive" (+ 40 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1020 "Jump if the content of rI4 is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1021 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1022 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1023 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1024
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1025
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1026 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1027 'J4NN 'jump "jump I4 non-negative" (+ 40 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1028 "Jump if the content of rI4 is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1029 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1030 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1031 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1032
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1033
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1034 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1035 'J4NZ 'jump "jump I4 non-zero" (+ 40 1) 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1036 "Jump if the content of rI4 is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1037 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1038 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1039 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1040
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1041
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1042 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1043 'J4NP 'jump "jump I4 non-positive" (+ 40 1) 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1044 "Jump if the content of rI4 is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1045 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1046 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1047 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1048
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1049
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1050 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1051 'J5N 'jump "jump I5 negative" (+ 40 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1052 "Jump if the content of rI5 is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1053 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1054 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1055 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1056
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1057
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1058 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1059 'J5Z 'jump "jump I5 zero" (+ 40 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1060 "Jump if the content of rI5 is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1061 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1062 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1063 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1064
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1065
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1066 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1067 'J5P 'jump "jump I5 positive" (+ 40 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1068 "Jump if the content of rI5 is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1069 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1070 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1071 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1072
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1073
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1074 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1075 'J5NN 'jump "jump I5 non-negative" (+ 40 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1076 "Jump if the content of rI5 is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1077 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1078 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1079 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1080
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1081
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1082 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1083 'J5NZ 'jump "jump I5 non-zero" (+ 40 1) 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1084 "Jump if the content of rI5 is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1085 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1086 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1087 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1088
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1089
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1090 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1091 'J5NP 'jump "jump I5 non-positive" (+ 40 1) 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1092 "Jump if the content of rI5 is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1093 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1094 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1095 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1096
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1097
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1098 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1099 'J6N 'jump "jump I6 negative" (+ 40 1) 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1100 "Jump if the content of rI6 is negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1101 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1102 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1103 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1104
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1105
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1106 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1107 'J6Z 'jump "jump I6 zero" (+ 40 1) 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1108 "Jump if the content of rI6 is zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1109 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1110 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1111 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1112
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1113
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1114 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1115 'J6P 'jump "jump I6 positive" (+ 40 1) 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1116 "Jump if the content of rI6 is positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1117 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1118 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1119 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1120
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1121
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1122 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1123 'J6NN 'jump "jump I6 non-negative" (+ 40 1) 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1124 "Jump if the content of rI6 is non-negative.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1125 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1126 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1127 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1128
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1129
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1130 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1131 'J6NZ 'jump "jump I6 non-zero" (+ 40 1) 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1132 "Jump if the content of rI6 is non-zero.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1133 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1134 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1135 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1136
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1137
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1138 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1139 'J6NP 'jump "jump I6 non-positive" (+ 40 1) 5
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1140 "Jump if the content of rI6 is non-positive.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1141 Register J is set to the value of the next instruction that would have
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1142 been executed when there was no jump."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1143 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1144
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1145 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1146 'SLA 'miscellaneous "shift left A" 6 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1147 "Shift to A, M bytes left.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1148 Hero's will be added to the right."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1149 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1150
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1151
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1152 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1153 'SRA 'miscellaneous "shift right A" 6 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1154 "Shift to A, M bytes right.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1155 Zeros will be added to the left."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1156 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1157
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1158
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1159 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1160 'SLAX 'miscellaneous "shift left AX" 6 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1161 "Shift AX, M bytes left.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1162 Zeros will be added to the right."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1163 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1164
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1165
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1166
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1167 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1168 'SRAX 'miscellaneous "shift right AX" 6 3
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1169 "Shift AX, M bytes right.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1170 Zeros will be added to the left."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1171 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1172
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1173
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1174 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1175 'SLC 'miscellaneous "shift left AX circularly" 6 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1176 "Shift AX, M bytes left circularly.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1177 The bytes that fall off to the left will be added to the right."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1178 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1179
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1180
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1181 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1182 'SRC 'miscellaneous "shift right AX circularly" 6 4
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1183 "Shift AX, M bytes right circularly.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1184 The bytes that fall off to the right will be added to the left."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1185 2)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1186
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1187 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1188 'MOVE 'miscellaneous "move" 7 'number
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1189 "Move MOD words from M to the location stored in rI1."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1190 '(+ 1 (* 2 number)))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1191
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1192 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1193 'NOP 'miscellaneous "no operation" 0 'ignored
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1194 "No operation, M and F are not used by the machine."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1195 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1196
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1197 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1198 'HLT 'miscellaneous "halt" 5 2
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1199 "Halt.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1200 Stop instruction fetching."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1201 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1202
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1203 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1204 'IN 'input-output "input" 36 'unit
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1205 "Transfer a block of words from the specified unit to memory.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1206 The transfer starts at address M."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1207 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1208
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1209 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1210 'OUT 'input-output "output" 37 'unit
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1211 "Transfer a block of words from memory.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1212 The transfer starts at address M to the specified unit."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1213 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1214
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1215 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1216 'IOC 'input-output "input-output control" 35 'unit
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1217 "Perform a control operation.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1218 The control operation is given by M on the specified unit."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1219 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1220
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1221 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1222 'JRED 'input-output "jump ready" 38 'unit
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1223 "Jump to M if the specified unit is ready."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1224 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1225
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1226
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1227 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1228 'JBUS 'input-output "jump busy" 34 'unit
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1229 "Jump to M if the specified unit is busy."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1230 1)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1231
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1232 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1233 'NUM 'conversion "convert to numeric" 5 0
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1234 "Convert rAX to its numerical value and store it in rA.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1235 the register rAX is assumed to contain a character representation of
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1236 a number."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1237 10)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1238
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1239 (mixal-add-operation-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1240 'CHAR 'conversion "convert to characters" 5 1
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1241 "Convert the number stored in rA to a character representation.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1242 The converted character representation is stored in rAX."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1243 10)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1244
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1245 (defvar mixal-describe-operation-code-history nil
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1246 "History list for describe operation code.")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1247
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1248 (defun mixal-describe-operation-code (&optional op-code)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1249 "Display the full documentation of OP-CODE."
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1250 (interactive)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1251 ;; we like to provide completition and history, so do it ourself (interactive "?bla")?
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1252 (unless op-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1253 (let* ((completion-ignore-case t)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1254 ;; we already have a list, but it is not in the right format
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1255 ;; transform it to a valid table so completition can use it
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1256 (table (mapcar '(lambda (elm)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1257 (cons (symbol-name (car elm)) nil))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1258 mixal-operation-codes-alist))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1259 ;; prompt is different depending on we are close to a valid op-code
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1260 (have-default (member (current-word) mixal-operation-codes))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1261 (prompt (concat "Describe operation code "
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1262 (if have-default
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1263 (concat "(default " (current-word) "): ")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1264 ": "))))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1265 ;; as the operation code to the user
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1266 (setq op-code (completing-read prompt table nil t nil
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1267 'mixal-describe-operation-code-history
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1268 (current-word)))))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1269 ;; get the info on the op-code and output it to the help buffer
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1270 (let ((op-code-help (assq (intern-soft op-code) mixal-operation-codes-alist)))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1271 (when op-code-help
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1272 (with-output-to-temp-buffer (buffer-name (get-buffer-create "*Help*"))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1273 (princ op-code) (princ " is an mix operation code\n\n")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1274 (princ (nth 5 op-code-help)) (terpri) (terpri)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1275 (princ " group: ") (princ (nth 1 op-code-help)) (terpri)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1276 (princ " nice name: ") (princ (nth 2 op-code-help)) (terpri)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1277 (princ " OPCODE / C: ") (princ (nth 3 op-code-help)) (terpri)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1278 (princ " MOD / F: ") (princ (nth 4 op-code-help)) (terpri)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1279 (princ " time: ") (princ (nth 6 op-code-help)) (terpri)))))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1280
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1281 ;;;; Running
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1282 (defun mixal-run ()
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1283 "Run's mixal file in current buffer, assumes that file has been compiled"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1284 (interactive)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1285 (mixvm (concat "mixvm -r -t -d "
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1286 (file-name-sans-extension (buffer-file-name)))))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1287
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1288 (defun mixal-debug ()
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1289 "Starts mixvm for debugging, assumes that file has been compiled with debugging support"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1290 (interactive)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1291 (mixvm (concat "mixvm "
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1292 (file-name-sans-extension (buffer-file-name)))))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1293
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1294 ;;;###autoload
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1295 (define-derived-mode mixal-mode fundamental-mode "mixal"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1296 "Major mode for the mixal asm language.
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1297 \\{mixal-mode-map}"
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1298 (set (make-local-variable 'comment-start) "*")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1299 (set (make-local-variable 'comment-start-skip) "*")
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1300 (set (make-local-variable 'font-lock-defaults) '(mixal-font-lock-keywords))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1301 ; might add an indent function in the future
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1302 ; (set (make-local-variable 'indent-line-function) 'mixal-indent-line)
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1303 (set (make-local-variable 'compile-command) (concat "mixasm -g "
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1304 buffer-file-name))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1305 ;; mixasm will do strange when there is no final newline,
59247
d162faeebae4 (mixal-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
1306 ;; so let Emacs ensure that it is always there
d162faeebae4 (mixal-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
1307 (set (make-local-variable 'require-final-newline)
d162faeebae4 (mixal-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
1308 mode-require-final-newline))
51592
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1309
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1310 ;;;###autoload
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1311 (add-to-list 'auto-mode-alist '("\\.mixal\\'" . mixal-mode))
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1312
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1313 (provide 'mixal-mode)
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51592
diff changeset
1314
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51592
diff changeset
1315 ;;; arch-tag: be7c128a-bf61-4951-a90e-9398267ce3f3
51592
658ac87cca4e New file.
Juanma Barranquero <lekktu@gmail.com>
parents:
diff changeset
1316 ;;; mixal-mode.el ends here