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 *~
+

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
+
+

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