home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9201a.d64 / l_s-demo.s < prev    next >
Text File  |  1995-03-30  |  1KB  |  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.