From 6ef3fdd93bcc67f94c78b90f5c18c912a79c97d7 Mon Sep 17 00:00:00 2001
From: brad <brad@52cf671a-1126-0410-802d-a71460acc760>
Date: Sat, 5 Jun 2010 17:09:48 +0000
Subject: [PATCH]

---
 tests/basic/Makefile | 17 ++++++++++++++++-
 tests/basic/uart.pal | 35 +++++++++++++++++++++++++++++++++++
 tests/basic/user.pal | 32 ++++++++++++++++++++++++++++++++
 3 files changed, 83 insertions(+), 1 deletion(-)
 create mode 100644 tests/basic/uart.pal
 create mode 100644 tests/basic/user.pal

diff --git a/tests/basic/Makefile b/tests/basic/Makefile
index ed536d1..2c6d7ef 100644
--- a/tests/basic/Makefile
+++ b/tests/basic/Makefile
@@ -1,3 +1,18 @@
 #
 
-all:
+PALD = ../../utils/macro/macro8x
+SHOWBIN = ../../utils/showbin/showbin
+
+all: user.bin uart.bin
+
+user.bin: user.pal
+	$(PALD) $<
+	$(SHOWBIN) $@ >$(basename $<).mem
+
+uart.bin: uart.pal
+	$(PALD) $<
+	$(SHOWBIN) $@ >$(basename $<).mem
+
+clean:
+	rm -f *.mem *.bin *.lst *~
+
diff --git a/tests/basic/uart.pal b/tests/basic/uart.pal
new file mode 100644
index 0000000..bab5316
--- /dev/null
+++ b/tests/basic/uart.pal
@@ -0,0 +1,35 @@
+/
+/ simple uart output test
+/
+
+*400
+	/ test uart
+START,
+	CLA CMA
+
+	TAD KMSG
+	DCA 10
+
+	TAD KLEN
+	DCA 7
+
+LOOP,
+	CLA
+	TAD I 10
+	TLS
+	TSF
+	JMP .-1
+
+	ISZ 7
+	JMP LOOP
+
+DONE,
+	JMP START
+
+
+KMSG,	MSG
+KLEN,	-10
+  
+MSG,	"H;"E;"L;"L;"O;"!;215;212
+
+
diff --git a/tests/basic/user.pal b/tests/basic/user.pal
new file mode 100644
index 0000000..cddf335
--- /dev/null
+++ b/tests/basic/user.pal
@@ -0,0 +1,32 @@
+/
+/ test basic user mode in/out
+/
+
+	CINT=6204		/CLEAR USER IOT
+	SINT=6254		/SKIP ON USER IOT
+	CUF=6264		/USER FLAG OFF
+	SUF=6274		/USER FLAG ON
+
+	*1
+	JMP I	.+1
+	200
+
+	*200
+INT,
+	SINT			/USER IOT?
+	JMP	INT0
+	RMF                     /RESTORE IF, DF, & MODE
+	ION
+	JMP I   0
+INT0,	JMP INT0
+
+	*400
+CODE,
+	CLA
+	ION
+	SUF
+	JMP LOOP
+LOOP,
+	CLA
+	6040
+	JMP	LOOP