Atari 400 Basic Reference Manual page 111

KEYBOARD
CONTROLLER
H-14
Appendix
This program alters registers on a chip called a PIA. To set these back to the
default values in order to do further I/0, hit
'"iiil@i;iiJMI
or POKE P ACTL,60. If
this program is to be loaded from disk, use LOAD, not RUN and wait for the
busy light on the disk drive to go out. Do not execute the program before this
light goes out, otherwise the disk will continue to spin.
1 GRAPH!C3 0
5
PRIHT :p~~IHT
II
KE''t''BOAF.:D CONTPOLLE~:
DEt10 11
10 Dit1 F.:OL·K 3 ) . .
!$(
13 ) . . 5'UTTOt-i$( 1)
30 GOSUE: 6(1(10
40 FOR Ct-H=1 TO 4
60 POSIT I Of·i 2, Ct-H:~Q+5 : pp I t·H
II
COt-H~:OLLEP
#
II
j
CNT
j
II : II
j
70
t-~E:~T
orr
80 FOR Ct-H
=
1 TO 4 : GOSUB 7(100 : PO::; IT I Of·i 19
I
CNT +CNT +5 :
P~:
HH
BUTTOf·i$
j :
t·E·::T Ct-l T
120 GOTO :30
6000 REt1 :~~t ::;ET UP FOP COt·H~:OLLER::; :=ti::
6010
PORTA=54~316
: F'OF.:TE:=54017 : PACTL =54(11 :::
: PBCTL=54t119
6020 POKE
PACTL.48=POKE
PORTA,255:FOKE F
ACTL
52:
POKE POIHA . .
221
6025 PD~<E PBC:TL
I
48 : POt<E POF.~TB
J
255 : FIOKE p
OCTL
52:
POKE
PORTS, 221
6030 ROt·J( 0 )=23:3 :
F.~O~J(
1 )=221
=
F.fil,j( 2
)=
1 :::7 :
~~0
W<3 )=119
6040 I$=
II
1234567:39:i;/.)#
II
6050 RETUF.:H
7000 REl1 :$::* F.:ETURri BUTTOt·~$ mTH CHAPACTE
R FOR
BUTTOI-~
L·JHICH HA:3 BEEt·i PRE::SED Ot·i C
ONTF.:OLLER l]iT ( 1-4 ) . :f.t
7001 REr-1 ::;q: t·iOTE : A 1 ~H LL BE PETUF:t-~EO I
F ~~0 COt-H~~OLLER E COl·~HECTED. ::;:::~
7002
~:El1 :*:~~
A SPAC:E
~,~ILL
BE
F~ETfJ~~f·~E[;
IF
THE
COHT~:CILLH~
IS
COf·ii·~ECTED
BUT
~·~0
t=Tr' H
AS
E:EEt·~ PRE~3~:;ED
.
:~;:~:
7003 PORT=POF.:TA: IF Ct·iT>2 THEN F!O~~T=POF.~TE~
7005 P=1
700:3 PAD=O~T +ClH -2
7010 FO~~ ._1=€1 TO 3
70"20 POKE POfH . . Rm·K
J)
703~3 FOR I= 1 TO 10 : t·E:<T I
7050 IF PADDLE::: PAD+1 >>1[1 THEri P=.J+._i+.J+2:
GOTO 7090
7060 IF PADDLE:::
PAD
>
>
10
THEf~
P=.J+ ._i+ ._l+ 3 : GO
TO 709e
7070 IF STRIG( CfH -1 )=0
THEf.~
P=.J+.J+._i+4: GO
TO 7€190
7080 NE::-=:T J
7090 BUTTOH!=
I$(
P . . P)
7095
RETURr·~