Atari 400 Technical Reference Manual page 372

ERR LINE ADDR 81 82 B3 B4
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
FA88
FA8B
FA8D
FA8F
FA91
FA93
FA96
FA98
FA9A
FA9C
FA9E
FAAO
FAA3
FAA5
FAA7
FAA9
FAAB
FAAD
FAAF
FAB1
FAB3
FAB5
FAB7
FAB9
FABB
FABE
FACO
FAC2
FAC4
FAC6
FAC8
FACA
FACC
FACE
FA DO
FAD1
FAD4
FAD6
FAD8
FAD9
FADA
FADC
FADE
FAE1
AD BF 02
C9 04
FO 07
A5 57
FO 03
20 FC F3
A9 27
C5 53
BO 02
85 53
A6 57
BD 99 FE
'C5 54
90 2A
.FO 28
EO 08
DO OA
A5 56
FO 13
C9 01
DO lC
FO 04
A5 56
DO 16
BD 80 FE
C5 55
90 OF
FO 00
A9 01
85 4C
A9 80
A6 11
85 11
FO 06
60
20 06 F7
A9 80
85 4C
68
68
A5 7B
10 03
20 B9 FC
4C 34 F6
DISPLAY HANDLER -- 10-30-78 -- DISPLC
PAGE 111
RANGE: DO CURSOR RANGE TEST. IF ERROR, POP STACK TWICE AND JMP RETURN
(ERANGE IS EDITOR ENTRY POINT AND TEST IF EDITOR IS OPEN.
IF IT ISNT IT OPENS THE EDITOR AND CONTINUES)
ERANGE: LDA
CMP
BEG
LOA
BEG
JSR
RANGE: LOA
CMP
BCS
STA
RANGE3: LDX
LDA
CMP
BCC
BEG
CPX
BNE
LDA
BEG
CMP
BNE
BEG
RANGEl: LDA
BNE
RANGE2: LDA
CMP
BCC
BEG
RNGOK: LDA
STA
LDA
LDX
STA
BEG
RTS
RNGERR: JSR
LDA
RNGER2: STA
RNGER1: PLA
PLA
LDA
BPL
JSR
RETUR3: JMP
BOTSCR
#4
RANGE
DINDEX
RANGE
EOPEN
#39
RMARGN
RANGE3
RMARGN
DINDEX
NOROWS,X
ROWCRS
RNGERR
RNGERR
#8
RANGEl
COLCRS+1
RNGOK
#1
RNGERR
RANGE2
COLCRS+1
RNGERR
COLUMN, X
COLCRS
RNGERR
RNGERR
#SUCCES
DSTAT
#BRKABT
BRKKEY
BRKKEY
RNGER2
HOME
#CRSROR
DSTAT
SWPFLG
RETUR3
SWAPA
RETUR1
i
IF BOTSCR=4
iTHEN IT IS IN MIXED MODE AND OK
i
IF MODE
=
0
iTHEN IT IS IN EDITOR MODE AND OK
i
IF NOT, OPEN EDITOR
i*****
RANGE CHECK RMARGN
*****
SET UP AC
i*****
RANGE CHECK RMARGN
*****
COMPARE
i*****
RANGE CHECK RMARGN
*****
BRANCH GE
i*****
RANGE CHECK RMARGN
*****
BAD SO STORE
iCHECK ROWS
i (ERROR IF TABLE.GE.ROWCRS)
iCHECK FOR 320X1
i
SPECIAL CASE IT
i
IF HIGH BYTE IS 0, COL IS OK
i
IF
)1,
BAD
i IF 1, GO CHECK LOW BYTE
iFOR OTHERS, NON-ZERO HIGH BYTE IS BAD
iCHECK LOW BYTE
i
SET STATUS OK
iPREPARE BREAK ABORT STATUS
iCHECK BREAK KEY FLAG
i
'CLEAR' BREAK
i
IF BREAK, QUIT IMMEDIATELY AND RETURN TO CI
iON
RANGE ERROR, BRING CURSOR BACK
iSHOW CURSOR OVER RANGE ERROR
iRESTORE STACK (THIS ROUTINE IS ALWAYS 1 LEV
iAWAY FROM RETURN TO CIO)
i
IF SWAPPED, SWAP BACK
iAND
DONT DO RETURl
i RETURN TO C 10
OFFCRS: RESTORE OLD DATA UNDER CURSOR SO IT CAN BE MOVED