Atari 400 Technical Reference Manual page 389

ERR LINE ADDR Bl B2 B3 B4 DISPLAY HANDLER -- 10-30-78 -- DISPLC PAGE 128
5770
5771
5772
5773
5774
5775 FFBE AD 09 02 PIRG5: LOA KBCOOE
5776 FFCl CO F2 02 CMP CHI iTEST AGAINST LAST KEY PRESSED
5777
FFC4
DO 05
BNE PIRG3
i
IF NOT, GO PROCESS KEY
5778 FFC6 AD F1 02 LOA
V,EYDEL ; IF KEY DELAY BYTE
>
0
5779 FFC9 DO 20 BNE
PIRG4 ; IGNORE KEY AS BOUNCE
5780 FFCB AD 09 02 PIRG3: LOA KBCODE ; RESTORE AC
5781
FFCE
C9 9F
CMP #CNTLl
i
TEST CONTROL 1 (SSFLAG)
5782
FFDO
DO OA
BNE PIRGI
5783 FFD2 AD FF 02 LOA SSFLAG
5784 FFD5 49 FF
EOR #$FF
5785 FF07 80 FF 02 STA SSFLAG
5786 FFDA BO OF BCS
PIRG4
i
(UNCONDITIONAL) MAKE Al INVISIBLE
5787 FFDC 80 FC 02 PIRG1: STA CH
5788 FFDF 80 F2 02 STA CHl
5789 FFE2 A9 03 LDA #3
5790
FFE4
80 F1 02
STA KEYDEL
i
INITIALIZE KEY DELAY FOR DEBOUNCE
5791
FFE7
A9 00
LOA #0 ; CLEAR COLOR SHIFT BYTE
5792 FFE9 85 40 STA
ATRACT
5793 FFEB A9 30 PIRG4: LDA
#$30
5794 FFED 80 28 02 STA SRTIMR
5795 FFFO 68 . PIRG2: PLA
5796 FFFl 40 RTI
5797
5798
5799 FFF2 FF FF FF FF · BYTE
$FF,$FF,$FF,$FF,$FF,$FF
5800
FFF6
FF FF
5801
5802 FFF8 CRNTPC
=*
5803 *=$14
5804
0014
00
KBDSPR: · BYTE $FFF8-CRNTPC iAGDISPLC IS TOO LONG
5805 0015
· END
ASSEMBLY ERRORS
=
0