From a769f65a13db5546e427989d85f9646303f4fa32 Mon Sep 17 00:00:00 2001
From: mrb0nk500 <b0nk@b0nk.xyz>
Date: Tue, 8 Dec 2020 10:42:10 -0500
Subject: - Implemented support for the Orthogonal extension into   both the
 assembler, and the emulator.

  I finally figured out how I could get support for the
  Ortho extension implemented into the old assembler.

  The only reason for doing this, is to buy me some
  while I start work on the new assembler, and to help
  me get an idea for how to do the same in the new
  assembler.
---
 test/ortho.s  | 35 +++++++++++++++++++++++++++++++++++
 test/struct.s |  7 +++++++
 2 files changed, 42 insertions(+)
 create mode 100644 test/ortho.s

(limited to 'test')

diff --git a/test/ortho.s b/test/ortho.s
new file mode 100644
index 0000000..bc70d3d
--- /dev/null
+++ b/test/ortho.s
@@ -0,0 +1,35 @@
+.org 0
+count:
+	.res 8
+.org $40000
+mem:
+	.res 256
+
+.org $8000
+reset:
+	cps
+	lds.d #$3FFFF
+	and #0
+	tay
+	xor b, b
+	xor.q count, count
+;	cmp.q (count), y
+	cmp.qo (count), y
+	lea.o (count), y
+	lea mem
+loop:
+	inc b
+	inc.q count
+;	mov.q e, count
+	mov (b+e), b
+	mov a, (b+e)
+	bra loop
+
+.org $FFC0
+.qword reset
+
+a
+;.org reset
+;v
+;q
+d
diff --git a/test/struct.s b/test/struct.s
index 33de1f1..f8dd71c 100644
--- a/test/struct.s
+++ b/test/struct.s
@@ -57,6 +57,12 @@
 	ass	.word
 .endstruct
 
+.struct token
+	next .byte
+	val .byte
+	id .byte
+
+.endstruct
 
 .org 0
 
@@ -68,6 +74,7 @@ lda #lol.oof
 ldb #lol.asd.aa.lol
 ldx #lol.asd.aa.why
 ldy #lol.why
+
 a
 ;l a
 ;v
-- 
cgit v1.2.3-13-gbd6f