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 >
Wrap
Text File
|
2022-10-26
|
1KB
|
69 lines
*= $2000
filpar = $ffba
filnam = $ffbd
load = $ffd5
save = $ffd8
v = $d000
jsr $e544
ldx #$40
lda #$ff
loop sta $2fff,x
dex
bne loop
;---------------------------------------
spinit lda #$64
sta v
sta v+1
sta v+2
lda #$96
sta v+3
lda #$03
sta v+21
lda #$c0
sta 2040
lda #$c1
sta 2041
jsr key
;---------------------------------------
saving ldx #$08
jsr filpar
ldx #<(name)
ldy #>(name)
lda #$06
jsr filnam
ldx #$00
ldy #$30
stx $fb
sty $fc
lda #$fb
ldx #$41
ldy #$30
jsr save
jsr key
;---------------------------------------
loading ldx #$08
ldy #$00
jsr filpar
ldx #<(name)
ldy #>(name)
lda #$06
jsr filnam
lda #$00
ldx #$40
ldy #$30
jsr load
rts
;---------------------------------------
key jsr $ffe4
beq key
rts
;---------------------------------------
name .text "sprite"