home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9210a.d64 / scroller.seq < prev    next >
Text File  |  1995-03-30  |  1KB  |  45 lines
  1.          *= $1000
  2.  
  3. ENDE     = $02
  4. START    = $03
  5.  
  6.          LDA #$08   ;VORBEREITUNG
  7.          STA START  ;AB LINE $8 SCROLLEN
  8.          LDA #$10   ;BEI LINIE
  9.          STA ENDE   ;$10 AUFHOEREN
  10.          JSR SCROLL ;UND SCROLLEN
  11.          RTS        ;BEENDEN
  12.  
  13. SCROLL   LDY #$00   ;ZAEHLER AUF 0
  14.          LDX START  ;STARTLINIE
  15.          JSR $E9F0  ;IN $D1/$D2 ABLEGEN
  16.          LDX $D1    ;POSITION LOWBYTE
  17.          INX        ;PLUS 1 IN $FB
  18.          STX $FB    ;ABLEGEN
  19.          LDX $D2    ;HIGHBYTE IN $FC
  20.          STX $FC    ;ABLEGEN
  21. SCR3     LDA ($FB),Y;LADEN
  22.          STA ($D1),Y;UND + 1 SPEICHERN
  23.          INY        ;ZAEHLER +1
  24.          CPY #$27   ;SCHON $27 CHARS?
  25.          BNE SCR3   ;NEIN DANN SCR3
  26.  
  27. LAB1     LDA $A000  ;NEUE BYTES HOLEN
  28.          STA ($D1),Y;UND SETZEN
  29.  
  30.          INC LAB1+1 ;DIREKT ERHOEHEN
  31.          LDA LAB1+1 ;UND UEBERPRUEFEN
  32.          CMP #$00   ;OB BEREITS >$00
  33.          BNE SCRCON0;
  34.          INC LAB1+2 ;JA, DANN HIBYTE+1
  35.          RTS        ;
  36.  
  37. SCRCON0  INC START  ;VERGLEICHEN
  38.          LDA START  ;OB BEREITS ALLE
  39.          CMP ENDE   ;LINIEN
  40.          BEQ SCREND ;GESCROLLED WURDEN
  41.          INC $D1    ;WENN NEIN DANN
  42.          BNE SCROLL ;NAECHSTE LINIE
  43. SCREND   RTS        ;ZURUECK
  44.  
  45.