' Xicor X2212 programmer tester, VO1CPU
' Shows "Error!" if something's not working. Use this program to see if
' your programmer's wired right and to experiment with the delay setting.
' Don't put a chip in your programmer for this test.

LPT = &H378
DELAY = 9

OUT LPT + 2, 4
FOR D = 1 TO DELAY: NEXT D
FOR I = 0 TO 15
	OUT LPT, I
	FOR D = 1 TO DELAY: NEXT D
	OUT LPT+2, 5
	FOR D = 1 TO DELAY: NEXT D
	OUT LPT+2, 4	' for 374
	FOR D = 1 TO DELAY: NEXT D
	OUT LPT+2, 5	' for 374
	FOR D = 1 TO DELAY: NEXT D
	IF I <> ((INP(LPT + 1) \ 8) AND 15) THEN PRINT "Error!"
	FOR D = 1 TO DELAY: NEXT D
	OUT LPT + 2, 4
	FOR D = 1 TO DELAY: NEXT D
NEXT I