home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 October / 64er_Magazin_92-10_1992_Markt__Technik_de_Side_A.d64 / scroller.seq < prev    next >
Encoding:
Text File  |  1992-01-01  |  1.2 KB  |  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.