00000000: 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 32 |.. *= $2|
00000010: 30 30 30 0D 0D 0D 46 49 4C 50 41 52 20 20 20 3D |000...FILPAR =|
00000020: 20 24 46 46 42 41 0D 46 49 4C 4E 41 4D 20 20 20 | $FFBA.FILNAM |
00000030: 3D 20 24 46 46 42 44 0D 4C 4F 41 44 20 20 20 20 |= $FFBD.LOAD |
00000040: 20 3D 20 24 46 46 44 35 0D 53 41 56 45 20 20 20 | = $FFD5.SAVE |
00000050: 20 20 3D 20 24 46 46 44 38 0D 56 20 20 20 20 20 | = $FFD8.V |
00000060: 20 20 20 3D 20 24 44 30 30 30 0D 0D 0D 20 20 20 | = $D000... |
00000070: 20 20 20 20 20 20 4A 53 52 20 24 45 35 34 34 0D | JSR $E544.|
00000080: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 34 | LDX #$4|
00000090: 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |0. LDA #|
000000A0: 24 46 46 0D 4C 4F 4F 50 20 20 20 20 20 53 54 41 |$FF.LOOP STA|
000000B0: 20 24 32 46 46 46 2C 58 0D 20 20 20 20 20 20 20 | $2FFF,X. |
000000C0: 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 | DEX. B|
000000D0: 4E 45 20 4C 4F 4F 50 0D 3B 2D 2D 2D 2D 2D 2D 2D |NE LOOP.;-------|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000100: 0D 53 50 49 4E 49 54 20 20 20 4C 44 41 20 23 24 |.SPINIT LDA #$|
00000110: 36 34 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |64. STA |
00000120: 56 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 56 |V. STA V|
00000130: 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |+1. STA |
00000140: 56 2B 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |V+2. LDA|
00000150: 20 23 24 39 36 0D 20 20 20 20 20 20 20 20 20 53 | #$96. S|
00000160: 54 41 20 56 2B 33 0D 20 20 20 20 20 20 20 20 20 |TA V+3. |
00000170: 4C 44 41 20 23 24 30 33 0D 20 20 20 20 20 20 20 |LDA #$03. |
00000180: 20 20 53 54 41 20 56 2B 32 31 0D 20 20 20 20 20 | STA V+21. |
00000190: 20 20 20 20 4C 44 41 20 23 24 43 30 0D 20 20 20 | LDA #$C0. |
000001A0: 20 20 20 20 20 20 53 54 41 20 32 30 34 30 0D 20 | STA 2040. |
000001B0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 43 31 | LDA #$C1|
000001C0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 32 30 |. STA 20|
000001D0: 34 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |41. JSR |
000001E0: 4B 45 59 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |KEY.;-----------|
000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 41 56 |------------.SAV|
00000210: 49 4E 47 20 20 20 4C 44 58 20 23 24 30 38 0D 20 |ING LDX #$08. |
00000220: 20 20 20 20 20 20 20 20 4A 53 52 20 46 49 4C 50 | JSR FILP|
00000230: 41 52 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |AR. LDX |
00000240: 23 3C 28 4E 41 4D 45 29 0D 20 20 20 20 20 20 20 |#<(NAME). |
00000250: 20 20 4C 44 59 20 23 3E 28 4E 41 4D 45 29 0D 20 | LDY #>(NAME). |
00000260: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 36 | LDA #$06|
00000270: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 49 |. JSR FI|
00000280: 4C 4E 41 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 |LNAM. LD|
00000290: 58 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |X #$00. |
000002A0: 4C 44 59 20 23 24 33 30 0D 20 20 20 20 20 20 20 |LDY #$30. |
000002B0: 20 20 53 54 58 20 24 46 42 0D 20 20 20 20 20 20 | STX $FB. |
000002C0: 20 20 20 53 54 59 20 24 46 43 0D 20 20 20 20 20 | STY $FC. |
000002D0: 20 20 20 20 4C 44 41 20 23 24 46 42 0D 20 20 20 | LDA #$FB. |
000002E0: 20 20 20 20 20 20 4C 44 58 20 23 24 34 31 0D 20 | LDX #$41. |
000002F0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 33 30 | LDY #$30|
00000300: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 41 |. JSR SA|
00000310: 56 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |VE. JSR |
00000320: 4B 45 59 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |KEY.;-----------|
00000330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4C 4F 41 |------------.LOA|
00000350: 44 49 4E 47 20 20 4C 44 58 20 23 24 30 38 0D 20 |DING LDX #$08. |
00000360: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 | LDY #$00|
00000370: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 49 |. JSR FI|
00000380: 4C 50 41 52 0D 20 20 20 20 20 20 20 20 20 4C 44 |LPAR. LD|
00000390: 58 20 23 3C 28 4E 41 4D 45 29 0D 20 20 20 20 20 |X #<(NAME). |
000003A0: 20 20 20 20 4C 44 59 20 23 3E 28 4E 41 4D 45 29 | LDY #>(NAME)|
000003B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$|
000003C0: 30 36 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |06. JSR |
000003D0: 46 49 4C 4E 41 4D 0D 20 20 20 20 20 20 20 20 20 |FILNAM. |
000003E0: 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDA #$00. |
000003F0: 20 20 4C 44 58 20 23 24 34 30 0D 20 20 20 20 20 | LDX #$40. |
00000400: 20 20 20 20 4C 44 59 20 23 24 33 30 0D 20 20 20 | LDY #$30. |
00000410: 20 20 20 20 20 20 4A 53 52 20 4C 4F 41 44 0D 20 | JSR LOAD. |
00000420: 20 20 20 20 20 20 20 20 52 54 53 0D 3B 2D 2D 2D | RTS.;---|
00000430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000450: 2D 2D 2D 2D 0D 4B 45 59 20 20 20 20 20 20 4A 53 |----.KEY JS|
00000460: 52 20 24 46 46 45 34 0D 20 20 20 20 20 20 20 20 |R $FFE4. |
00000470: 20 42 45 51 20 4B 45 59 0D 20 20 20 20 20 20 20 | BEQ KEY. |
00000480: 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D | RTS.;---------|
00000490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4E |--------------.N|
000004B0: 41 4D 45 20 20 20 20 20 2E 54 45 58 54 20 22 53 |AME .TEXT "S|
000004C0: 50 52 49 54 45 22 0D 0D |PRITE".. |
.. *= $2000...FILPAR = $FFBA.F
ILNAM = $FFBD.LOAD = $FFD5.SAVE
= $FFD8.V = $D000... JS
R $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 FILP
AR. LDX #<(NAME). LDY #>
(NAME). LDA #$06. JSR FI
LNAM. 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 #<(NAM
E). LDY #>(NAME). LDA #$
06. JSR FILNAM. LDA #$00
. LDX #$40. LDY #$30.
JSR LOAD. RTS.;-----------
----------------------------.KEY JS
R $FFE4. BEQ KEY. RTS.;-
--------------------------------------.N
AME .TEXT "SPRITE"..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL