Atari 400 Technical Reference Manual page 366

ERR LINE
ADDR
B1 B2 B3 B4 DISPLAY HANDLER -- 10-30-78
DISPLC PAGE 105
4640
F858 85 7D
STA
INSDAT
4641 F85A
68 PLA
4642 F85B
4C 44 F-8
JMP INSCH4
4643 F85E 20 A8 FC INSCH3: JSR PLACRS
4644 F861 CE BB 02 INSCH6: DEC SCRFLG
4645 F864 30 04 BMI INSCH5
i
IF SCROLL OCCURRED
4646 F866 C6 54 DEC ROWCRS iMOVE CURSOR UP
4647 F868
DO F7 BNE INSCH6
i
(UNCOND) CONTINUE UNTIL SCRFLG IS MINUS
4648
F86A 4C DO FB INSCH5: JMP DOLCOL
iCOLVERT ROW AND COL TO LOGCOL AND RETURN
4649
4650
4651 F86D 20 9D FC DELCHR: JSR PHACRS
4652 F870 20 47 F9 DELCH1 : JSR CONVRT
iGET DATA TO THE RIGHT OF THE CURSOR
4653 F873
A5 64
LDA ADRESS
4654 F875 85 68 STA SAVADR
iSAVE ADRESS TO KNOW WHERE TO PUT DATA
4655 F877 A5 65 LDA
ADRESS+l
4656 F879 85 69 STA SAVADR+l
4657 F87B A5 63 LDA LOGCOL
4658 F87D 48 PHA
4659 F87E 20 D4 F9 JSR INCRSB iPUT CURSOR OVER NEXT CHARACTER
4660
F881
68 PLA
4661 F882
C5 63
CMP LOGCOL iTEST NEW LOGCOL AGAINST OLD LOGCOL
4662 F884
BO 10 BCS
DELCH2
i
IF OLD. GE. NEW THEN QUIT
4663 F886 A5 54 LDA ROWCRS
i
IS ROW OFF SCREEN?
4664 F888 CD BF 02 CMP SOTSCR
4665 F88B BO 09 BCS DELCH2
i
YES, SO GUIT
4666 F88D 20 A2 F5 JSR GETPLT iGET DATA UNDER CURSOR
4667 F890 AO 00 LDY
#0
4668 F892 91 68 STA (SAVADR), Y iPUT IT IN PREVIOUS POSITION
4669 F894 FO DA BEG DELCH1 iAND LOOP (UNCONDITIONAL)
4670 F896 AO 00 DELCH2: LDY #0
4671 F898 98 TYA
4672 F899 91 68 STA (SAVADR)
I
Y iCLEAR THE LAST POSITION
4673 F89B 20 68 FC JSR DELTIA iTRY TO DELETE A LINE
4674 F89E 20 A8 FC JSR PLACRS
4675 F8Al 4C DO FB JMP DOLCOL
i
AND RETURN
4676 F8A4 38 INSLIN: SEC
iNORMAL INSLIN PUTS "1" INTO BIT MAP
4677 F8A5 20 7B FB INSLIA: JSR EXTEND iENTRY POINT FOR C=O
4678 F8A8 A5 52 LDA LMARGN
iDO
CARRIAGE RETURN (NO LF)
4679 F8AA 85 55 STA COLCRS
4680 F8AC 20 47 F9 JSR CONVRT
i
GET ADDRESS
4681 F8AF A5 64 LDA ADRESS iSET UP TO=40+FROM (FROM = CURSOR)
4682 F8Bl 85 68 STA FRMADR
4683
F8B3
18 CLC
4684 F8B4 69 28 ADC #40
4685 F8B6 85 66 STA TOADR
4686 F8B8 A5 65 LDA ADRESS+l
4687 F8BA 85 69 STA FRMADR+l
4688 F8BC 69 00 ADC
#0
4689 F8BE 85 67 STA TOADR+l
4690 F8CO A6 54 LDX ROWCRS iSET UP LOOP COUNTER
4691 F8C2 EO 17 CPX #23
4692 F8C4 FO 08 BEQ INSLI2
4693 F8C6 20 4E FE INSLI 1: JSR MOVLIN