home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / block-poke .src < prev    next >
Encoding:
Text File  |  1988-01-01  |  482 b   |  33 lines
  1.  
  2. ;verschieberoutine fuer den speicher
  3. ;                 (w) by mws
  4.  
  5. aa       = 2
  6. aah      = 3
  7. bb       = 4
  8. bbh      = 5
  9.  
  10.          sei
  11.          ldy #$00
  12.          sty $01
  13.          lda #$18
  14.          sta aah
  15.          lda #$08
  16.          sta bbh
  17.          sty aa
  18.          sty bb
  19.          ldx #$10
  20. loop     lda (aa),y
  21.          sta (bb),y
  22.          iny
  23.          bne loop
  24.          inc aah
  25.          inc bbh
  26.          dex
  27.          bne loop
  28.          dey
  29.          sty $01
  30.          cli
  31.          rts
  32.  
  33.