Added Motorola 68k assembly lexer (Devpac syntax)

lib/rouge/demos/m68k

@@ -0,0 +1,16 @@
+initialize:                     ; go into super user mode
+   clr.l -(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   move.l d0,oldstack
+   rts
+
+restore:                        ; go back into user mode
+   move.l oldstack,-(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   rts
+
+oldstack dc.l 0

lib/rouge/lexers/m68k.rb

@@ -0,0 +1,143 @@
+# -*- coding: utf-8 -*- #
+
+module Rouge
+  module Lexers
+    class M68k < RegexLexer
+      tag 'm68k'
+
+      title "M68k"
+      desc "Motorola 68k Assembler"
+
+      ws = %r((?:\s|;.*?\n/)+)
+      id = /[a-zA-Z_][a-zA-Z0-9_]*/
+
+      def self.keywords
+        @keywords ||= Set.new %w(
+          abcd add adda addi addq addx and andi asl asr
+
+          bcc bcs beq bge bgt bhi ble bls blt bmi bne bpl bvc bvs bhs blo
+          bchg bclr bfchg bfclr bfests bfextu bfffo bfins bfset bftst bkpt bra bse bsr btst
+
+          callm cas cas2 chk chk2 clr cmp cmpa cmpi cmpm cmp2
+
+          dbcc dbcs dbeq dbge dbgt dbhi dble dbls dblt dbmi dbne dbpl dbvc dbvs dbhs dblo
+          dbra dbf dbt divs divsl divu divul
+
+          eor eori exg ext extb
+
+          illegal jmp jsr lea link lsl lsr
+
+          move movea move16 movem movep moveq muls mulu
+
+          nbcd neg negx nop not or ori
+
+          pack pea rol ror roxl roxr rtd rtm rtr rts
+
+          sbcd
+
+          seq sne spl smi svc svs st sf sge sgt sle slt scc shi sls scs shs slo
+          sub suba subi subq subx swap
+
+          tas trap trapcc TODO trapv tst
+
+          unlk unpk eori
+        )
+      end
+
+      def self.keywords_type
+        @keywords_type ||= Set.new %w(
+          dc ds dcb
+        )
+      end
+
+      def self.reserved
+        @reserved ||= Set.new %w(
+          include incdir incbin end endf endfunc endmain endproc fpu func machine main mmu opword proc set opt section
+          rept endr
+          ifeq ifne ifgt ifge iflt ifle iif ifd ifnd ifc ifnc elseif else endc
+          even cnop fail machine
+          output radix __G2 __LK
+          list nolist plen llen ttl subttl spc page listchar format
+          equ equenv equr set reg
+          rsreset rsset offset
+          cargs
+          fequ.s fequ.d fequ.x fequ.p fequ.w fequ.l fopt
+          macro endm mexit narg
+        )
+      end
+
+      def self.builtins
+        @builtins ||=Set.new %w(
+          d0 d1 d2 d3 d4 d5 d6 d7
+          a0 a1 a2 a3 a4 a5 a6 a7 a7'
+          pc usp ssp ccr
+        )
+      end
+
+      start { push :expr_bol }
+
+      state :expr_bol do
+        mixin :inline_whitespace
+        rule(//) { pop! }
+      end
+
+      state :inline_whitespace do
+        rule /[\s\t\r]+/, Text
+      end
+
+      state :whitespace do
+        rule /\n+/m, Text, :expr_bol
+        rule %r(^\*(\\.|.)*?\n), Comment::Single, :expr_bol
+        rule %r(;(\\.|.)*?\n), Comment::Single, :expr_bol
+        mixin :inline_whitespace
+      end
+
+      state :root do
+        rule(//) { push :statements }
+      end
+
+      state :statements do
+        mixin :whitespace
+        rule /"/, Str, :string
+        rule /#/, Name::Decorator
+        rule /^\.?[a-zA-Z0-9_]+:?/, Name::Label
+        rule /\.[bswl]\s/i, Name::Decorator
+        rule %r('(\\.|\\[0-7]{1,3}|\\x[a-f0-9]{1,2}|[^\\'\n])')i, Str::Char
+        rule /\$[0-9a-f]+/i, Num::Hex
+        rule /@[0-8]+/i, Num::Oct
+        rule /%[01]+/i, Num::Bin
+        rule /\d+/i, Num::Integer
+        rule %r([*~&+=\|?:<>/-]), Operator
+        rule /\\./, Comment::Preproc
+        rule /[(),.]/, Punctuation
+        rule /\[[a-zA-Z0-9]*\]/, Punctuation
+
+        rule id do |m|
+          name = m[0]
+
+          if self.class.keywords.include? name.downcase
+            token Keyword
+          elsif self.class.keywords_type.include? name.downcase
+            token Keyword::Type
+          elsif self.class.reserved.include? name.downcase
+            token Keyword::Reserved
+          elsif self.class.builtins.include? name.downcase
+            token Name::Builtin
+          elsif name =~ /[a-zA-Z0-9]+/
+            token Name::Variable
+          else
+            token Name
+          end
+        end
+      end
+
+      state :string do
+        rule /"/, Str, :pop!
+        rule /\\([\\abfnrtv"']|x[a-fA-F0-9]{2,4}|[0-7]{1,3})/, Str::Escape
+        rule /[^\\"\n]+/, Str
+        rule /\\\n/, Str
+        rule /\\/, Str # stray backslash
+      end
+    end
+  end
+end

spec/visual/samples/m68k

@@ -0,0 +1,59 @@
+intin equ   8                   ; setup some constants
+ptsin equ   12
+colbit0  equ   24
+colbit1  equ   26
+colbit2  equ   28
+colbit3  equ   30
+lstlin   equ   32
+lnmask   equ   34
+wmode equ   36
+x1 equ   38
+y1 equ   40
+x2 equ   42
+y2 equ   44
+init  equ   $a000
+setpix   equ   $a001
+getpix   equ   $a002
+drwlin   equ   $a003
+
+start:
+   jsr   initialize
+
+   dc.w  init                   ; call line a init
+
+   move.w   #1,colbit0(a0)      ; setup arguments to draw line
+   move.w   #1,colbit1(a0)
+   move.w   #1,colbit2(a0)
+   move.w   #1,colbit3(a0)
+   move.w   #0,lstlin(a0)
+   move.w   #$ffff,lnmask(a0)
+   move.w   #0,wmode(a0)
+   move.w   #0,x1(a0)
+   move.w   #0,y1(a0)
+   move.w   #100,x2(a0)
+   move.w   #100,y2(a0)
+   dc.w  drwlin                 ;call line a draw line
+
+   move.w   #7,-(a7)
+   trap  #1                     ;wait keypress
+   addq.l   #2,a7
+   jsr   restore
+   clr.l    -(a7)               ;call gemdos
+   trap  #1
+
+initialize:                     ; go into super user mode
+   clr.l -(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   move.l d0,oldstack
+   rts
+
+restore:                        ; go back into user mode
+   move.l oldstack,-(a7)
+   move.w #32,-(a7)
+   trap #1
+   addq.l #6,a7
+   rts
+
+oldstack dc.l 0