Atari 400 Technical Reference Manual page 361

ERR LINE AD DR B1 B2 B3 B4
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
4411
4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
4429
4430
4431
4432
F63E
F641
F644
F646
F648
F64A
F64C
F64E
F650
F653
F655
F658
F65A
F65C
F65F
F662
F664
F666
F668
F66B
F66E
F671
F674
F676
F678
F67A
F67C
F67E
F680
F682
F684
F686
F688
F68B
F68E
F691
F694
F696
F699
F69C
F69E
F6A1
F6A4
F6A7
F6AA
F6AD
FbBO
20 B3 FC
20 88 FA
A5 6B
DO 34
A5 54
85 bC
A5 55
85 60
20 E2 F6
84 4C
AD FB 02
C9 9B
FO 12
20 AD F6
20 B3 FC
A5 63
C9 71
DO 03
20 OA F9
4C 50 F6
20 E4 FA
20 00 FC
A5 6C
85 54
A5 6D
85 55
A5 6B
FO 11
C6 6B
FO OD
A5 4C
30 F8
20 93 F5
80 FB 02
4C B3 FC
20 30 FA
A9 9B
80 FB 02
20 21 F6
84 4C
4C B3 FC
6C 64 00
8D FB 02
20 B3 FC
20 88 FA
20 E4 FA
20 8D FC
DISPLAY HANDLER -- 10-30-78 -- OISPLC
PAGE 100
PAGE
EGETCH: JSR
JSR
LOA
BNE
LDA
STA
LDA
STA
EGETC1: JSR
STY
LDA
CMP
BEG
JSR
JSR
LDA
CMP
BNE
JSR
EGETC6: JMP
EGETC2: JSR
JSR
LOA
STA
LDA
STA
EGETC3: LOA
BEG
EGETC7: DEC
BEG
LDA
BMI
JSR
STA
JMP
EGETC5: JSR
LDA
STA
JSR
STY
JMP
JSRIND: JMP
EOUTCH: STA
JSR
JSR
DOSS: JSR
JSR
SWAP
ERANGE
BtJFCNT
EGETC3
ROWCRS
BUFSTR
COLCRS
BUFSTR+l
iANYTHING IN THE BUFFER?
iYES
iNO, SO SAVE BUFFER START ADDRESS
KGETCH iLET/S FILL OUR BUFFER
DSTAT SAVE KEYBOARD STATUS
ATACHR iTEST FOR CR
#CR
EGETC2
DOSS
SWAP
LOGCOL
#113
EGETC6
BELL
EGETC1
OFFCRS
DOBUFC
BUFSTR
ROWCRS
BUFSTR+1
COLCRS
BUFCNT
EGETC5
BUFCNT
EGETC5
DSTAT
EGETC7
GETCH
ATACHR
SWAP
DOCRWS
#CR
ATACHR
RETUR2
DSTAT
SWAP
(ADRESS)
ATACHR·
SWAP
ERANGE
OFFCRS
TSTCTL
iNa, SO PRINT IT
iJSR DOSS DID SWAP SO SWAP BACK
iBEEP IF NEARING LOGICAL COL 120
iGET BUFFER COUNT
iRETURN A CHARACTER
iAND RETURN TILL BUFCNT=O
i
IF ERR, LOOP ON EGETC7 UNTIL BUFR IS EMPTIE
iAND RETURN WITHOUT TURNING CURSOR BACK ON
iDa REAL CARRIAGE RETURN
iAND
RETURN EOL
iTURN ON CURSOR THEN SWAP
iSAVE KEYBOARD STATUS
iAND RETURN THROUGH RETUR1
iJSR TO THIS CAUSES JSR INDIRECT
iSAVE ATASCII VALUE
i
TURN OFF CURSOR
iTEST FOR CONTROL CHARACTERS {Z=l IF CTL>