unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* Synchronising mixal-mode with GNU MDK's latest release
@ 2020-10-16 18:13 jao
  2020-10-17  0:38 ` bug#44037: " Stefan Kangas
       [not found] ` <wjloifi5OyhNLL_R2tCbE8ohnW64G0cZ8HTy4ND0daNNZ3YWeHBXN8eeNMkWKZGfgcDx-yXQP37U0yqw5FBjIg==@protonmail.internalid>
  0 siblings, 2 replies; 13+ messages in thread
From: jao @ 2020-10-16 18:13 UTC (permalink / raw)
  To: bug-gnu-emacs; +Cc: bug-mdk, Stefan Kangas

[-- Attachment #1: Type: text/plain, Size: 725 bytes --]

Tags: patch
thanks


Please find attached a patch that updates mixal-mode.el with latest
changes in GNU MDK.  I should have papers in place for emacs.

Do you think it'd be better if i just dropped that file from MDK's
tarball and maintain it by submitting patches here instead?

Thanks a lot!
jao


In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, cairo version 1.16.0)
 of 2020-10-16 built on osgiliath
Repository revision: 6a2f56db4e602372e33f35326a73cffa03586479
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12009000
System Description: Debian GNU/Linux bullseye/sid

Configured using:
 'configure --prefix=/usr/local/stow/emacs --with-x-toolkit=no
 --with-imagemagick'


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-mixal-mode-add-missed-instructions.patch --]
[-- Type: text/patch, Size: 3623 bytes --]

From 5bc3fbf661b895e665f7a07eb5b43d25bad83ad1 Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Fri, 16 Oct 2020 18:56:46 +0100
Subject: [PATCH] mixal-mode: add missed instructions

Synchronises with latest released GNU MDK 1.2.11

* mixal-mode.el (mixal-operation-codes-alist):
  Add missed instructions: SLB,SRB,JAE,JAO,JXE,JXO
---
 lisp/progmodes/mixal-mode.el | 42 ++++++++++++++++++++++++++++++++----
 1 file changed, 38 insertions(+), 4 deletions(-)

diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el
index 468c116b67..9354af2085 100644
--- a/lisp/progmodes/mixal-mode.el
+++ b/lisp/progmodes/mixal-mode.el
@@ -5,7 +5,7 @@
 ;; Author: Pieter E.J. Pareit <pieter.pareit@gmail.com>
 ;; Maintainer: emacs-devel@gnu.org
 ;; Created: 09 Nov 2002
-;; Version: 0.1
+;; Version: 0.4
 ;; Keywords: languages, Knuth, mix, mixal, asm, mixvm, The Art Of Computer Programming
 
 ;; This file is part of GNU Emacs.
@@ -45,6 +45,9 @@
 ;; Have fun.
 
 ;;; History:
+;; Version 0.4:
+;; 16/10/20: Jose A Ortega Ruiz <jao@gnu.org>
+;;           Add missed instructions: SLB,SRB,JAE,JAO,JXE,JXO
 ;; Version 0.3:
 ;; 12/10/05: Stefan Monnier <monnier@iro.umontreal.ca>
 ;;           Use font-lock-syntactic-keywords to detect/mark comments.
@@ -683,6 +686,18 @@ mixal-operation-codes-alist
 been executed when there was no jump."
           1)
 
+    (JAE jump "jump A even" 40
+          "Jump if the content of rA is even.
+Register J is set to the value of the next instruction that would have
+been executed when there was no jump."
+          1)
+
+    (JAO jump "jump A odd" 40
+         "Jump if the content of rA is odd.
+Register J is set to the value of the next instruction that would have
+been executed when there was no jump."
+         1)
+
     (JXN jump "jump X negative" 47
          "Jump if the content of rX is negative.
 Register J is set to the value of the next instruction that would have
@@ -719,12 +734,24 @@ mixal-operation-codes-alist
 been executed when there was no jump."
           1)
 
-    (J1N jump "jump I1 negative" 41
-         "Jump if the content of rI1 is negative.
+    (JXE jump "jump X even" 47
+         "Jump if the content of rX is even.
+Register J is set to the value of the next instruction that would have
+been executed when there was no jump."
+         1)
+
+    (JXO jump "jump X odd" 47
+         "Jump if the content of rX is odd.
 Register J is set to the value of the next instruction that would have
 been executed when there was no jump."
          1)
 
+    (J1N jump "jump I1 negative" 41
+     "Jump if the content of rI1 is negative.
+Register J is set to the value of the next instruction that would have
+been executed when there was no jump."
+     1)
+
     (J1Z jump "jump I1 zero" 41
          "Jump if the content of rI1 is zero.
 Register J is set to the value of the next instruction that would have
@@ -950,7 +977,6 @@ mixal-operation-codes-alist
 Zeros will be added to the right."
           2)
 
-
     (SRAX miscellaneous "shift right AX" 6
           "Shift AX, M bytes right.
 Zeros will be added to the left."
@@ -966,6 +992,14 @@ mixal-operation-codes-alist
 The bytes that fall off to the right will be added to the left."
          2)
 
+    (SLB miscellaneous "shift left AX binary" 6
+         "Shift AX, M binary places left."
+         2)
+
+    (SRB miscellaneous "shift right AX binary" 6
+         "Shift AX, M binary places right."
+         2)
+
     (MOVE miscellaneous "move" 7 number
           "Move MOD words from M to the location stored in rI1."
           (+ 1 (* 2 number)))
-- 
2.28.0


[-- Attachment #3: Type: text/plain, Size: 134 bytes --]


-- 
They are ill discoverers that think there is no land, when they can
see nothing but sea. -Francis Bacon, philosopher (1561-1626)

^ permalink raw reply related	[flat|nested] 13+ messages in thread
end of thread, other threads:[~2020-10-17 22:54 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-10-16 18:13 Synchronising mixal-mode with GNU MDK's latest release jao
2020-10-17  0:38 ` bug#44037: " Stefan Kangas
2020-10-17  6:17   ` Lars Ingebrigtsen
2020-10-17  8:02     ` Eli Zaretskii
2020-10-17  8:07       ` Lars Ingebrigtsen
2020-10-17  9:25         ` Eli Zaretskii
2020-10-17 15:21           ` jao
     [not found]           ` <87tuusho8f.fsf@gnus.jao.io>
2020-10-17 15:29             ` Eli Zaretskii
     [not found]             ` <831rhwuayx.fsf@gnu.org>
2020-10-17 16:12               ` Stefan Kangas
     [not found] ` <wjloifi5OyhNLL_R2tCbE8ohnW64G0cZ8HTy4ND0daNNZ3YWeHBXN8eeNMkWKZGfgcDx-yXQP37U0yqw5FBjIg==@protonmail.internalid>
     [not found]   ` <a3KmxrklZKnf84FXmk1wEdzB8XYy0-wBrucT3ffoJhUkWWyz4nJJHEDd3MG3v7P0fPC59FMwGWE4J-JSZDrQKg==@protonmail.conversationid>
     [not found]     ` <CADwFkmk=DNFW8uOtF8YqmHWY7Q6-XUpVOVXm+h2dnGLs7NNQjg@mail.gmail.com>
2020-10-17  2:29       ` jao
2020-10-17 13:56         ` Stefan Kangas
     [not found]         ` <wlvbxV-4DmAznMNiFW0JC04m41gs9PrC2F2pUAJx4V7iZp7ATpC8eLkOEkGwnEIGBfb23rJbMOEZkQfqwLa9bQ==@protonmail.internalid>
     [not found]           ` <CADwFkmmCm8M=LAVnrzi_R88UZbi4yzvXCPmQCYfc17a2pDZgDw@mail.gmail.com>
2020-10-17 22:21             ` jao
     [not found]             ` <87k0voh4t4.fsf@gnus.jao.io>
2020-10-17 22:54               ` Stefan Kangas

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).