<x-html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4134.100" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2><FONT face="Courier New" size=2>
<P><FONT face=Arial>The following is a script I wrote to read PIA ports,
specifically port A of IC5 on a Turkey Shoot board.</FONT></P>
<P><FONT face=Arial>Interestingly enough this script worked, until I fixed the
board. Now that the board is fixed the script doesn't work.</FONT></P>
<P><FONT face=Arial></FONT> </P>
<P><FONT face=Arial>My Chip Selects are correct, and the R/W works. The
game works in test mode too. What did I miss?</FONT></P>
<P><FONT face=Arial></FONT> </P>
<P><FONT face=Arial>Thanks,</FONT></P>
<P><FONT face=Arial>Kev</FONT></P>
<P> </P>
<P><FONT face=Arial></FONT> </P>
<P>!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</P>
<P>! I/O TEST</P>
<P>!</P>
<P>! PIA Test Port A IC5</P>
<P>!</P>
<P>! Reg1 = Temporary offset from main</P>
<P>! Reg2 = Base address of PIA</P>
<P>!</P>
<P>! This routine sets Port A as Inputs which are routed to the Data Bus.</P>
<P>! The Intterupts are not turned on & thus don't require servicing for our
</P>
<P>! test.</P>
<P>!</P>
<P>!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
</P>
<P>PROGRAM IOTST</P>
<P>REG2 = C980</P>
<P>SETPORT:</P>
<P>DPY-SETUP IC5 PORT A</P>
<P>EXECUTE DELAY ! Call delay for display</P>
<P></P>
<P>WRITE @ REG2 = 0 ! Write 0's to Data Direction Reg A</P>
<P>REG1 = REGF </P>
<P>INC REG1</P>
<P>INC REG1 ! Set REG1 to base address + 2</P>
<P>WRITE @ REG1 = 0 ! Write 0's to DDRB</P>
<P>DEC REG1 ! Set Reg1 to base +1</P>
<P>WRITE @ REG1 = 4 ! Write 4 to Port A CRA</P>
<P>INC REG1 </P>
<P>INC REG1 ! Set Reg1 to base +3</P>
<P>WRITE @ REG1 = 4 ! Write 4 to Port B CRA</P>
<P>DPLOOP:</P>
<P>DPY- TEST COIN DOOR BUTTONS </P>
<P>READ @ REG2</P>
<P>IF REGE AND 40 = 40 GOTO SLAMIN</P>
<P>IF REGE AND 20 = 20 GOTO RIGHTC</P>
<P>IF REGE AND 10 = 10 GOTO RIGHTC</P>
<P>IF REGE AND 8 = 8 GOTO LEFTC</P>
<P>IF REGE AND 4 = 4 GOTO HSRESET</P>
<P>IF REGE AND 2 = 2 GOTO ADVANCE</P>
<P>IF REGE AND 1 = 1 GOTO AUTOM</P>
<P>GOTO DPLOOP</P>
<P>SLAMIN:</P>
<P>DPY-SLAM TILT #</P>
<P>EXECUTE DELAY</P>
<P>GOTO DPLOOP</P>
<P>RIGHTC:</P>
<P>DPY-RIGHT COIN #</P>
<P>EXECUTE DELAY</P>
<P>GOTO DPLOOP</P>
<P>LEFTC:</P>
<P>DPY-LEFT COIN #</P>
<P>EXECUTE DELAY</P>
<P>GOTO DPLOOP</P>
<P>HSRESET:</P>
<P>DPY-HIGH SCORE RESET#</P>
<P>EXECUTE DELAY</P>
<P>GOTO DPLOOP</P>
<P>ADVANCE:</P>
<P>DPY-ADVANCE PUSHED#</P>
<P>EXECUTE DELAY</P>
<P>GOTO DPLOOP</P>
<P>AUTOM:</P>
<P>DPY-AUTO IS MANUAL PRESSED #</P>
<P>EXECUTE DELAY</P>
<P>GOTO DPLOOP</P></FONT></FONT></DIV>
<BLOCKQUOTE dir=ltr
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jrr@flippers.com href="mailto:jrr@flippers.com">John Robertson</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=techToolsList@flippers.com
href="mailto:techToolsList@flippers.com">techToolsList@flippers.com</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Saturday, March 09, 2002 2:40
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: 9010A tricks</DIV>
<DIV><BR></DIV>I thought I had too, or perhaps it was in email, still it is up
on the site now... look for ID-A-DAT.s and .H for the two files (.H is
compiled)<BR><BR>John :-#)#<BR><BR><BR>At 12:53 PM 09/03/2002 -0500, Kev
wrote:<BR>
<BLOCKQUOTE class=cite cite type="cite"><FONT size=2>Forgive me, I thought
John posted about a program that would let the 9010A ID Data/Address lines
with the probe. Can anyone point me to that
again?</FONT><BR> <BR><FONT size=2>As an extension of that thought is
there a function that would allow me to probe a point and generate a "memory
Map" to tell me what address that point is active?</FONT><BR> <BR><FONT
size=2>Thanks,</FONT><BR><FONT
size=2>Kev</FONT><BR> </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
</x-html>
Received on Mon Mar 11 05:57:20 2002
This archive was generated by hypermail 2.1.8 : Tue Dec 02 2003 - 18:40:41 EST