home *** CD-ROM | disk | FTP | other *** search
/ Digital News 3 / Digital_News_3_1988_-_de_Side_A.d64 / irq kurs v3 .src < prev    next >
Encoding:
Text File  |  1988-01-01  |  1.5 KB  |  81 lines
  1.          *= $1000
  2.  
  3.  
  4.          sei
  5.          lda #<irq
  6.          ldx #>irq
  7.          ldy #$81
  8.          sta $0314
  9.          stx $0315
  10.          sty $d01a
  11.          lda #0
  12.          ldx #$1b
  13.          ldy #$2d
  14.          sta $dc0e
  15.          stx $d011
  16.          sty $d012
  17.          cli
  18.          rts
  19.  
  20. irq      inc $d019
  21.          ldx #0
  22. wait     ldy tabelle,x
  23. loop     dey
  24.          bne loop
  25.          lda farbe,x
  26.          sta $d020
  27.          sta $d021
  28.          inx
  29.          cpx #laenge
  30.          bne wait
  31.          jsr mov
  32.          lda #50
  33.          sta $d012
  34.          jmp $ea31
  35.  
  36. farben   .byte 0,11,12,15,1,15,12,11,0,0
  37.          .byte 0,6,14,3,1,3,14,6,0,0,0
  38.          .byte 0,1,2,3,4,5,6,7,8,9,10,11
  39.          .byte 10,9,8,7,6,5,0
  40.  
  41. laenge   = 40
  42. tabelle  .byte 6,8,8,8,8,8,8,8,1,9
  43.          .byte 8,8,8,8,8,8,1,8
  44.          .byte 8,8,8,8,8,8,1,8
  45.          .byte 8,8,8,8,8,8,1,8
  46.          .byte 8,8,8,8,8,8,1,8
  47.          .byte 8,8,8,8,8,8,1,8
  48.  
  49.  
  50. mov      ldx #0
  51. lll      lda farben,x
  52.          sta farbe,x
  53.          inx
  54.          cpx #laenge
  55.          bne lll
  56. move     lda $7000
  57.          cmp #$ff
  58.          bne mv2
  59.          lda #0
  60.          sta move+1
  61.          jmp move
  62. mv2      ldy #0
  63.          tax
  64. mv3      lda colnew,y
  65.          sta farbe,x
  66.          inx
  67.          iny
  68.          cpy #8
  69.          bne mv3
  70.          inc move+1
  71.          rts
  72.  
  73. colnew   .byte 0,11,12,15,1,15,12,11,0
  74.  
  75. farbe    .byte 0,0,0,0,0,0,0,0,0,0
  76.          .byte 0,0,0,0,0,0,0,0,0,0
  77.          .byte 0,0,0,0,0,0,0,0,0,0
  78.          .byte 0,0,0,0,0,0,0,0,0,0
  79.          .byte 0,0,0,0,0,0,0,0,0,0
  80.  
  81.