Atari 400 Technical Reference Manual page 362

ERR LINE AD DR B1 B2 B3 B4
DISPLAY HANDLER
-- 10-30-78
DISPLC PAGE 101
4433 F6B3
FO 09 BEG
EOUTC5
4434 F6B5
OE A2 02
EOUTC6: ASL ESCFLG iESCFLG ONLY WORKS ONCE
4435 F6B8 20 CA F5 JSR OUTCHE
4436 F6BB 4C B3 FC ERETN: JMP SWAP iAND
RETURN THROUGH RETURl
4437 F6BE AD FE 02 EOUTC5: LDA DSPFLG
iDO
DSPFLG AND ESCFLG
4438 F6Cl 00 A2 02 ORA ESCFLG
4439 F6C4 DO EF BNE EOUTC6
i
IF NON-O DISPLAY RATHER THAN EXECUTE IT
4440 F6C6 OE A2 02 ASL ESCFLG
4441
F6C9 E8 INX
iPROCESS CONTROL CHARACTERS
4442 F6CA BD C6 FE
LDA
CNTRLS, X iGET DISPLACEMENT INTO ROUTINE
4443 F6CD 85 64 STA ADRESS
4444 F6CF BD C7 FE LDA
CNTRLS+l,X iGET HIGH BYTE
4445 F6D2 85 65 STA
ADRESS+l
4446 F6D4 20 A1 F6 JSR JSRIND
i
DO COMPUTED JSR
4447 F6D7 20 21 F6 JSR RETUR2
i
DO CURSOR
4448 F6DA 4C B3 FC JMP SWAP
iALL DONE SO RETURN THROUGH RETURl
4449
4450
4451
4452
4453 END SCREEN EDITOR.
4454
4455
4456 BEGIN KEYBOARD HANDLER
4457
4458
4459
4460
4461 F6DD A9 FF KGETC2: LDA
#$FF
4462 F6DF 80 FC 02 STA CH
4463 F6E2 A5 2A KGETCH: LOA ICAX1Z
iTEST LSB OF AUX1 FOR SPECIAL EDITOR READ MO
4464 F6E4 4A LSR A
4465 F6E5 BO 62
Bes
GETOUT
4466 F6E7 A9 80 LDA
#BRKABT
4467 F6E9 A6 11 LOX BRKKEY
i
TEST BREAK
4468 F6EB FO 58 BEG K7
i
IF BREAK, PUT BRKABT IN DSTAT AND CR IN ATA
4469 F6ED AD FC 02 LOA CH
4470 F6FO C9 FF CMP
#$FF
4471 F6F2 FO EE BEG KGETCH
4472 F6F4 85 7C STA HOLDCH
iSAVE CH FOR SHIFT LOCK PROC
4473 F6F6 A2 FF LOX #$FF
iICLEAR" CH
4474
F6F8 8E FC 02 STX
CH
4475 F6FB
20 D8 FC JSR
CLICK
iDO
KEYBOARD AUDIO FEEDBACK (A IS OK)
4476 F6FE AA
KGETC3: TAX
i
DO ASCCON
4477 F6FF EO CO CPX
#$CO iTEST FOR CTL
&
SHIFT TOGETHER
4478 F701 90 02 BCC ASCC01
4479 F703 A2 03 LOX #3 iBAD CODE
4480 F705 BD FE FE ASCC01 : LOA ATASCI, X
4481 F708 80 FB 02 STA ATACHR
i
DONE
4482 F70B C9 80 CMP #$80
i
DO NULLS
4483 F70D
FO CE
BEG KGETC2
4484 F70F
C9 81
CMP #$81 iCHECK ATARI KEY
4485 F711
DO OB BNE
KGETC1
4486 F713 AD B6 02 LOA
I NVFLG