home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 January / 64er_Magazin_92-01_1992_Markt__Technik_de_Side_A.d64 / l_s-demo.s < prev    next >
Encoding:
Text File  |  1992-01-01  |  1.2 KB  |  69 lines
  1.  
  2.  
  3.          *= $2000
  4.  
  5.  
  6. filpar   = $ffba
  7. filnam   = $ffbd
  8. load     = $ffd5
  9. save     = $ffd8
  10. v        = $d000
  11.  
  12.  
  13.          jsr $e544
  14.          ldx #$40
  15.          lda #$ff
  16. loop     sta $2fff,x
  17.          dex
  18.          bne loop
  19. ;---------------------------------------
  20. spinit   lda #$64
  21.          sta v
  22.          sta v+1
  23.          sta v+2
  24.          lda #$96
  25.          sta v+3
  26.          lda #$03
  27.          sta v+21
  28.          lda #$c0
  29.          sta 2040
  30.          lda #$c1
  31.          sta 2041
  32.          jsr key
  33. ;---------------------------------------
  34. saving   ldx #$08
  35.          jsr filpar
  36.          ldx #<(name)
  37.          ldy #>(name)
  38.          lda #$06
  39.          jsr filnam
  40.          ldx #$00
  41.          ldy #$30
  42.          stx $fb
  43.          sty $fc
  44.          lda #$fb
  45.          ldx #$41
  46.          ldy #$30
  47.          jsr save
  48.          jsr key
  49. ;---------------------------------------
  50. loading  ldx #$08
  51.          ldy #$00
  52.          jsr filpar
  53.          ldx #<(name)
  54.          ldy #>(name)
  55.          lda #$06
  56.          jsr filnam
  57.          lda #$00
  58.          ldx #$40
  59.          ldy #$30
  60.          jsr load
  61.          rts
  62. ;---------------------------------------
  63. key      jsr $ffe4
  64.          beq key
  65.          rts
  66. ;---------------------------------------
  67. name     .text "sprite"
  68.  
  69.