chen¢00530 STA POINTER¢00540 LDA 561¢00550 STA POINTER+1¢00560 LDY #0¢00570 .1¢00580 LDA (POINTER),Y¢00590 CMP #$41¢00600 BEQ .2¢00610 AND #$40 neue Adressen beruecksichtigen¢00620 BEQ .3¢00630 INY¢00640 INY¢00650 .3¢00660 INY¢00670 JMP .1¢00680 .2¢00690 INY Ruecksprungadresse uebernehemen¢00700 LDA (POINTER),Y¢00710 STA DLPTR¢00720 INY¢00730 LDA (POINTER),Y¢00740 STA DLPTR+1¢00750 DEY¢00760 DEY¢00770 JSR VSYNC sicherheitshalber warten¢00780 LDA #1 "Sprung ohne Warten" eintragen¢00790 STA (POINTER),Y¢00800 INY¢00810 LDA #DLIST unsere DL-Erweiterung einhaengen¢00820 STA (POINTER),Y¢00830 INY¢00840 LDA /DLIST¢00850 STA (POINTER),Y¢00860 RTS¢00870 ------------------------------¢00880 START¢00890 JSR INIT DL vorbereiten¢00900 .1¢00910 JSR SHIFTBUFFER Buffer nach links schieben¢00920 CLC aktuelle Position im Text berechnen¢00930 LDA #TEXT¢00940 ADC POSITION¢00950 STA POINTER¢00960 LDA /TEXT¢00970 ADC POSITION+1¢00980 STA POINTER+1¢00990 LDY #0¢01000 LDA (POINTER),Y neuen Buchstaben holen¢01010 STA BUFFER+43 und am Ende vom Buffer eintragen¢01020 JSR SOFTSCROLL und saaaanft scrollen¢01030 INC POSITION Position im Text erhoehen¢01040 BNE .2¢01050 INC POSITION+1¢01060 .2¢01070 LDA POSITION+1¢01080 CMP /TEXTLENGTH sind wir schon am Ende?¢01090 BCC .1¢01100 LDA POSITION¢01110 CMP #TEXTLENGTH¢01120 BCC .1¢01130 LDA #0 dann alles von vorne¢01140 STA POSITION¢01150 STA POSITION+1¢01160 JMP .1¢01170 ------------------------------¢01180 ; .OR $2E0¢01190 ; .DA START¢01200 ------------------------------¢
