/* Test program that proves failure of z80 op codes on the c128 */
/* 28 April 2005, Andrew J. Kroll http://dr.ea.ms/ */

#include <stdio.h>

int main()
{
	printf("Testing OUTI, watch for any changes to the 40 column color\n");

#asm
	jp	testing
testdata:
	defb	0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
testing:
	ld	bc,0d020h	; border
	ld	hl,testdata	; index of the test data
	xor	a		; zero the counter
tlp:
	outi			; send test data
	inc	b		; reset the b register back to 0xb0
	inc	a		; increment counter
	cp	16		; 16 bytes yet?
	jp	nz,tlp		; no, do more
#endasm  
	printf("Test complete. If the screen border did not change color\n");
	printf("Then the bug exists on your C128\n");
}