home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9311a.d64 / y-scroll.src < prev    next >
Text File  |  1995-03-30  |  2KB  |  46 lines
  1.          *= $1000      ;
  2.  
  3.          SEI           ;IRQ SPERREN
  4.          LDA #<START   ;HIGH UND
  5.          STA $0314     ;LOWBYTE DER NEUEN
  6.          LDA #>START   ;EINSPRUNGSADRESSE
  7.          STA $0315     ;FESTLEGEN
  8.  
  9.          LDA #$00      ;SELBSTMODIFIZIERENDES
  10.          STA SELFMOD+1 ;REGISTER LOESCHEN
  11.  
  12.          LDA $DC0D     ;TIMERWERT
  13.          AND #$7F      ;VERKNUEPFEN
  14.          ORA #$01      ;UND WIEDER
  15.          STA $DC0D     ;SCHREIBEN
  16.          LDA #$2E      ;RASTERZEILE AUF
  17.          STA $D012     ;$2E FESTLEGEN
  18.          LDA $D011     ;YSCROLL-REGISTER
  19.          AND #$7F      ;AUF DEN
  20.          STA $D011     ;STANDARDWERT SETZEN
  21.          LDA #$01      ;NUR RASTERZEILEN-IRQ
  22.          STA $D01A     ;ZULASSEN
  23.          CLI           ;IRQ FREIGEBEN
  24.          JMP *         ;ENDLOSSCHLEIFE
  25.  
  26. START    INC $D019     ;IRR ERHOEHEN
  27.  
  28. SELFMOD  LDX #$00      ;ZAEHLER AUF NULL SETZEN
  29. AGAIN    LDA $D012     ;RASTERZEILE LADEN
  30.          LDY #$02      ;UND KURZ
  31. RZA1     DEY           ;WARTEN
  32.          BNE RZA1      ;
  33. WAIT     CMP $D012     ;WARTEN, BIS DER RASTER-
  34.          BEQ WAIT      ;STRAHL WIEDER AUF DER ALTEN
  35.          AND #$07      ;POSITION STEHT
  36.          ADC #$18      ;WERTE VERKNUEPFEN UND
  37.          STA $D011     ;INS REGISTER $D011 SCHREIBEN
  38.          DEX           ;ZAEHLER VERMINDERN
  39.          BNE AGAIN     ;UNGLEICH NULL, DANN VON VORNE
  40.          LDA SELFMOD+1 ;SELBSTMODIFIKATIONS-REG
  41.          CMP #$01      ;LADEN UND PRUEFEN, OB
  42.          BEQ IRQEND    ;ES BEREITS BEI EINS IST
  43.          DEC SELFMOD+1 ;
  44. IRQEND   JMP $EA31     ;ZUR ALTEN IRQ-ROUTINE
  45.  
  46.