home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 November / 64er_Magazin_93-11_1993_Markt__Technik_de_Side_A.d64 / y-scroll.seq < prev    next >
Text File  |  2022-10-26  |  722b  |  46 lines
  1.          *= $1000
  2.  
  3.          sei
  4.          lda #<start
  5.          sta $0314
  6.          lda #>start
  7.          sta $0315
  8.  
  9.          lda #$00
  10.          sta selfmod+1
  11.  
  12.          lda $dc0d
  13.          and #$7f
  14.          ora #$01
  15.          sta $dc0d
  16.          lda #$2e
  17.          sta $d012
  18.          lda $d011
  19.          and #$7f
  20.          sta $d011
  21.          lda #$01
  22.          sta $d01a
  23.          cli
  24.          jmp *
  25.  
  26. start    inc $d019
  27.  
  28. selfmod  ldx #$00
  29. again    lda $d012
  30.          ldy #$02
  31. rza1     dey
  32.          bne rza1
  33. wait     cmp $d012
  34.          beq wait
  35.          and #$07
  36.          adc #$18
  37.          sta $d011
  38.          dex
  39.          bne again
  40.          lda selfmod+1
  41.          cmp #$01
  42.          beq irqend
  43.          dec selfmod+1
  44. irqend   jmp $ea31
  45.  
  46.