From eaef51d61b74990270b0828dc65f5e8653825454 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Fri, 1 Dec 2017 18:59:11 -0800 Subject: [PATCH] More tests looking for that last bug --- src/samplesrc/test.pla | 14 ++++++++++++-- src/vmsrc/plvm802.s | 2 +- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/src/samplesrc/test.pla b/src/samplesrc/test.pla index 26a63fd..ae16008 100755 --- a/src/samplesrc/test.pla +++ b/src/samplesrc/test.pla @@ -165,7 +165,17 @@ putln puts(@constr); puti(constval); putln puts("Signed byte constant:"); puti(-3); putln puts("Hello from in-line string!\$7F\n") -puts(1 ?? "This is TRUE\n" :: "This is FALSE\n") -puts(0 ?? "This is TRUE\n" :: "This is FALSE\n") +puti(array:0); puts(" == "); puti(array:1); puts (" is "); puts(array:0 == array:1 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" <> "); puti(array:1); puts (" is "); puts(array:0 <> array:1 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" >= "); puti(array:1); puts (" is "); puts(array:0 >= array:1 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" <= "); puti(array:1); puts (" is "); puts(array:0 <= array:1 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" > "); puti(array:1); puts (" is "); puts(array:0 > array:1 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" < "); puti(array:1); puts (" is "); puts(array:0 < array:1 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" == "); puti(array:0); puts (" is "); puts(array:0 == array:0 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" <> "); puti(array:0); puts (" is "); puts(array:0 <> array:0 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" >= "); puti(array:0); puts (" is "); puts(array:0 >= array:0 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" <= "); puti(array:0); puts (" is "); puts(array:0 <= array:0 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" > "); puti(array:0); puts (" is "); puts(array:0 > array:0 ?? "TRUE\n" :: "FALSE\n") +puti(array:0); puts(" < "); puti(array:0); puts (" is "); puts(array:0 < array:0 ?? "TRUE\n" :: "FALSE\n") ptr = 0 done diff --git a/src/vmsrc/plvm802.s b/src/vmsrc/plvm802.s index f33aab8..082e4be 100755 --- a/src/vmsrc/plvm802.s +++ b/src/vmsrc/plvm802.s @@ -6,7 +6,7 @@ ;* ;********************************************************** !CPU 65816 -DEBUG = 1 +DEBUG = 0 ;* ;* THE DEFAULT CPU MODE FOR EXECUTING OPCODES IS: ;* 16 BIT A/M