(opctests) Added zero-page wrap test

cli/opctest/opctest.tal

@@ -61,6 +61,14 @@
 	EQU2 ;Dict/opctests test-part
 
 	( Part 7
+		> Stack wrapping )
+	POP #12 #34 ADD #46 EQU STH
+	POP #1234 ADD #46 EQU STH
+	POP2 #1111 #2222 ADD2 #3333 EQU2
+	STHr AND STHr AND
+	;Dict/stack-wrap test-part
+
+	( Part 8
 		> Testing RAM wrapping
 		> Storing 12 in 0xffff, and 34 in 0x0000 )
 
@@ -69,16 +77,20 @@
 	#ffff LDA2 ADD #46 EQU
 	AND ;Dict/ram-wrap test-part
 
-	( Part 8
-		> Stack wrapping )
+	( Part 9
+		> Zero page no-wrapping )
+
+	#1234 #ff STZ2
+	#ff LDZ #0100 LDA ADD #46 EQU
+	;Dict/zp-wrap test-part
 
 	( end )
 	[ LIT &fail 80 ]
 		DUP #80 EQU ;Dict/result test-part
 		#0f DEO
 
-	( #0a18 DEO
-	#010e DEO )
+	#0a18 DEO
+	#010e DEO
 
 BRK
 
@@ -397,8 +409,10 @@ JMP2r
 @Dict [
 	&ok "Ok $1
 	&done "Tests 20 "Complete. 0a $1
-	&opctests "Opcode 20 "tests $1
+	&opctests "Opcodes $1
+	&stack-wrap "Stack-wrap $1
 	&ram-wrap "RAM-wrap $1
+	&zp-wrap "Zeropage-wrap $1
 	&result "Result: $1
 	&passed 20 "passed! 0a $1
 	&missed "Opcode 20 "Failed 20 "-- 20 $1