_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

MOUSE.SRC

FILE INFORMATION

FILENAME(S): MOUSE.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-02 16:39:21

APPEARS ON: 3 disk(s)

FILE HASH

91fab94f9eda0b86db5bb7674d5da90c743b3351e2ddb63a6ca7cde280706e5d

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 ER SONDERH 50 MOUSE.SRC PRG Treasure Chest - Plattfuss 19 3 DOWNLOAD FILE
64 ER SONDERH 50 MOUSE.SRC PRG C64er 19 3 DOWNLOAD FILE
GRAFIK SH 38 MOUSE.SRC PRG C64er 11 19 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F3 1F 64 00 20 2E  4F 42 22 40 30 3A 4D 4F  |....d. .OB"@0:MO|
00000010: 55 53 45 2E 45 58 54 2C  50 2C 57 22 00 09 20 6E  |USE.EXT,P,W".. n|
00000020: 00 3B 4D 41 55 53 54 52  45 49 42 45 52 20 31 33  |.;MAUSTREIBER 13|
00000030: 35 31 00 1C 20 78 00 20  2E 45 51 49 49 52 51 3D  |51.. x. .EQIIRQ=|
00000040: 24 30 33 31 34 00 30 20  82 00 20 2E 45 51 4F 50  |$0314.0 .. .EQOP|
00000050: 4F 54 58 3D 24 30 33 33  43 00 44 20 8C 00 20 2E  |OTX=$033C.D .. .|
00000060: 45 51 4F 50 4F 54 59 3D  24 30 33 33 44 00 5B 20  |EQOPOTY=$033D.[ |
00000070: 96 00 20 2E 45 51 4E 45  57 56 41 4C 55 45 3D 24  |.. .EQNEWVALUE=$|
00000080: 30 33 33 45 00 72 20 A0  00 20 2E 45 51 4F 4C 44  |033E.r .. .EQOLD|
00000090: 56 41 4C 55 45 3D 24 30  33 33 46 00 86 20 AA 00  |VALUE=$033F.. ..|
000000A0: 20 2E 45 51 53 50 52 49  54 45 58 3D 24 32 38 00  | .EQSPRITEX=$28.|
000000B0: 9A 20 B4 00 20 2E 45 51  53 50 52 49 54 45 59 3D  |. .. .EQSPRITEY=|
000000C0: 24 32 39 00 BC 20 BE 00  3B 20 20 20 20 20 20 20  |$29.. ..;       |
000000D0: 20 20 2E 45 51 20 4D 53  42 53 50 52 49 54 45 3D  |  .EQ MSBSPRITE=|
000000E0: 24 44 30 31 30 00 CF 20  C8 00 20 2E 45 51 50 41  |$D010.. .. .EQPA|
000000F0: 44 58 3D 24 44 34 31 39  00 E2 20 D2 00 20 2E 45  |DX=$D419.. .. .E|
00000100: 51 50 41 44 59 3D 24 44  34 31 41 00 E8 20 DC 00  |QPADY=$D41A.. ..|
00000110: 3B 00 F6 20 E6 00 20 2E  42 41 24 30 33 34 30 00  |;.. .. .BA$0340.|
00000120: FC 20 F0 00 3B 00 19 21  FA 00 4D 49 52 51 20 43  |. ..;..!..MIRQ C|
00000130: 4C 44 3B 4A 55 53 54 20  49 4E 20 43 41 53 45 2E  |LD;JUST IN CASE.|
00000140: 2E 2E 00 3E 21 04 01 20  4C 44 41 50 41 44 58 3B  |...>!.. LDAPADX;|
00000150: 20 47 45 54 20 44 45 4C  54 41 20 56 41 4C 55 45  | GET DELTA VALUE|
00000160: 53 20 46 4F 52 20 58 00  4C 21 0E 01 20 4C 44 59  |S FOR X.L!.. LDY|
00000170: 4F 50 4F 54 58 00 5B 21  18 01 20 4A 53 52 4D 4F  |OPOTX.[!.. JSRMO|
00000180: 56 43 48 4B 00 69 21 22  01 20 53 54 59 4F 50 4F  |VCHK.i!". STYOPO|
00000190: 54 58 00 75 21 2C 01 20  4F 52 41 23 24 30 00 81  |TX.u!,. ORA#$0..|
000001A0: 21 36 01 20 42 45 51 4E  4F 58 00 91 21 40 01 20  |!6. BEQNOX..!@. |
000001B0: 42 50 4C 50 4F 53 49 54  49 56 00 9A 21 4A 01 20  |BPLPOSITIV..!J. |
000001C0: 43 4C 43 00 AA 21 54 01  20 41 44 43 53 50 52 49  |CLC..!T. ADCSPRI|
000001D0: 54 45 58 00 B6 21 5E 01  20 42 43 43 4E 4F 58 00  |TEX..!^. BCCNOX.|
000001E0: C6 21 68 01 20 53 54 41  53 50 52 49 54 45 58 00  |.!h. STASPRITEX.|
000001F0: D2 21 72 01 20 4A 4D 50  4E 4F 58 00 E2 21 7C 01  |.!r. JMPNOX..!|.|
00000200: 50 4F 53 49 54 49 56 20  43 4C 43 00 F2 21 86 01  |POSITIV CLC..!..|
00000210: 20 41 44 43 53 50 52 49  54 45 58 00 FF 21 90 01  | ADCSPRITEX..!..|
00000220: 20 43 4D 50 23 24 41 30  00 0B 22 9A 01 20 42 43  | CMP#$A0..".. BC|
00000230: 53 4E 4F 58 00 1B 22 A4  01 20 53 54 41 53 50 52  |SNOX..".. STASPR|
00000240: 49 54 45 58 00 2B 22 AE  01 4E 4F 58 20 4C 44 41  |ITEX.+"..NOX LDA|
00000250: 50 41 44 59 00 39 22 B8  01 20 4C 44 59 4F 50 4F  |PADY.9".. LDYOPO|
00000260: 54 59 00 48 22 C2 01 20  4A 53 52 4D 4F 56 43 48  |TY.H".. JSRMOVCH|
00000270: 4B 00 56 22 CC 01 20 53  54 59 4F 50 4F 54 59 00  |K.V".. STYOPOTY.|
00000280: 62 22 D6 01 20 4F 52 41  23 24 30 00 6E 22 E0 01  |b".. ORA#$0.n"..|
00000290: 20 42 45 51 4E 4F 59 00  7F 22 EA 01 20 42 4D 49  | BEQNOY..".. BMI|
000002A0: 50 4F 53 49 54 49 56 32  00 88 22 F4 01 20 53 45  |POSITIV2..".. SE|
000002B0: 43 00 95 22 FE 01 20 45  4F 52 23 24 46 46 00 A5  |C..".. EOR#$FF..|
000002C0: 22 08 02 20 41 44 43 53  50 52 49 54 45 59 00 B1  |".. ADCSPRITEY..|
000002D0: 22 12 02 20 42 43 43 4E  4F 59 00 C1 22 1C 02 20  |".. BCCNOY..".. |
000002E0: 53 54 41 53 50 52 49 54  45 59 00 CD 22 26 02 20  |STASPRITEY.."&. |
000002F0: 4A 4D 50 4E 4F 59 00 DE  22 30 02 50 4F 53 49 54  |JMPNOY.."0.POSIT|
00000300: 49 56 32 20 53 45 43 00  EB 22 3A 02 20 45 4F 52  |IV2 SEC..":. EOR|
00000310: 23 24 46 46 00 FB 22 44  02 20 41 44 43 53 50 52  |#$FF.."D. ADCSPR|
00000320: 49 54 45 59 00 08 23 4E  02 20 43 4D 50 23 24 43  |ITEY..#N. CMP#$C|
00000330: 38 00 14 23 58 02 20 42  43 53 4E 4F 59 00 24 23  |8..#X. BCSNOY.$#|
00000340: 62 02 20 53 54 41 53 50  52 49 54 45 59 00 35 23  |b. STASPRITEY.5#|
00000350: 6C 02 4E 4F 59 20 4A 4D  50 24 45 41 33 31 00 3B  |l.NOY JMP$EA31.;|
00000360: 23 76 02 3B 00 52 23 80  02 4D 4F 56 43 48 4B 20  |#v.;.R#..MOVCHK |
00000370: 53 54 59 4F 4C 44 56 41  4C 55 45 00 63 23 8A 02  |STYOLDVALUE.c#..|
00000380: 20 53 54 41 4E 45 57 56  41 4C 55 45 00 81 23 94  | STANEWVALUE..#.|
00000390: 02 20 53 45 43 3B 20 41  20 3C 3D 20 4D 4F 44 36  |. SEC; A <= MOD6|
000003A0: 34 28 4E 45 57 20 4F 4C  44 29 00 92 23 9E 02 20  |4(NEW OLD)..#.. |
000003B0: 53 42 43 4F 4C 44 56 41  4C 55 45 00 9F 23 A8 02  |SBCOLDVALUE..#..|
000003C0: 20 41 4E 44 23 24 37 46  00 B2 23 B2 02 20 43 4D  | AND#$7F..#.. CM|
000003D0: 50 23 24 34 30 3B 20 49  46 3E 30 00 C0 23 BC 02  |P#$40; IF>0..#..|
000003E0: 20 42 43 53 4C 43 31 37  31 00 D3 23 C6 02 20 4C  | BCSLC171..#.. L|
000003F0: 53 52 3B 41 41 20 3C 3D  20 41 2F 32 00 E9 23 D0  |SR;AA <= A/2..#.|
00000400: 02 20 42 45 51 4C 43 31  37 46 3B 20 49 46 20 3C  |. BEQLC17F; IF <|
00000410: 3E 30 00 09 24 DA 02 20  4C 44 59 4E 45 57 56 41  |>0..$.. LDYNEWVA|
00000420: 4C 55 45 3B 20 59 20 3C  3D 20 4E 45 57 56 41 4C  |LUE; Y <= NEWVAL|
00000430: 55 45 00 19 24 E4 02 20  52 54 53 3B 52 45 54 55  |UE..$.. RTS;RETU|
00000440: 52 4E 00 1F 24 EE 02 3B  00 4D 24 F8 02 4C 43 31  |RN..$..;.M$..LC1|
00000450: 37 31 20 4F 52 41 23 24  43 30 3B 20 45 4C 53 45  |71 ORA#$C0; ELSE|
00000460: 20 4F 52 20 49 4E 20 48  49 47 48 20 4F 52 44 45  | OR IN HIGH ORDE|
00000470: 52 20 42 49 54 53 00 64  24 02 03 20 43 4D 50 23  |R BITS.d$.. CMP#|
00000480: 24 46 46 3B 20 49 46 20  3C 3E 20 2D 31 00 72 24  |$FF; IF <> -1.r$|
00000490: 0C 03 20 42 45 51 4C 43  31 37 46 00 9A 24 16 03  |.. BEQLC17F..$..|
000004A0: 20 53 45 43 3B 20 41 20  3C 3D 20 41 2F 32 32 30  | SEC; A <= A/220|
000004B0: 20 20 2D 20 20 20 20 20  20 20 20 20 20 52 4F 52  |  -          ROR|
000004C0: 20 3B 41 00 A3 24 20 03  20 52 4F 52 00 C3 24 2A  | ;A..$ . ROR..$*|
000004D0: 03 20 4C 44 59 4E 45 57  56 41 4C 55 45 3B 20 59  |. LDYNEWVALUE; Y|
000004E0: 20 3C 3D 20 4E 45 57 56  41 4C 55 45 00 CC 24 34  | <= NEWVALUE..$4|
000004F0: 03 20 52 54 53 00 D2 24  3E 03 3B 00 EB 24 48 03  |. RTS..$>.;..$H.|
00000500: 4C 43 31 37 46 20 4C 44  41 23 24 30 30 3B 20 41  |LC17F LDA#$00; A|
00000510: 20 3C 3D 30 00 F4 24 52  03 20 52 54 53 00 FA 24  | <=0..$R. RTS..$|
00000520: 5C 03 3B 00 0C 25 66 03  46 49 52 45 20 4C 44 41  |\.;..%f.FIRE LDA|
00000530: 24 44 43 30 30 00 1A 25  70 03 20 41 4E 44 24 44  |$DC00..%p. AND$D|
00000540: 43 30 31 00 23 25 7A 03  20 52 54 53 00 2B 25 84  |C01.#%z. RTS.+%.|
00000550: 03 2E 45 4E 00 00 00                              |..EN...         |

X...D. .OB"@0:MOUSE.EXT,P,W".. N.;MAUSTR
EIBER 1351.. X. .EQIIRQ=$0314.0 .. .EQOP
OTX=$033C.D .. .EQOPOTY=$033D.[ .. .EQNE
WVALUE=$033E.R  . .EQOLDVALUE=$033F.. ..
 .EQSPRITEX=$28.. .. .EQSPRITEY=$29.. ..
;         .EQ MSBSPRITE=$D010.O H. .EQPA
DX=$D419.. R. .EQPADY=$D41A.. ..;.. .. .
BA$0340.. ..;..!..MIRQ CLD;JUST IN CASE.
...>!.. LDAPADX; GET DELTA VALUES FOR X.
L!.. LDYOPOTX.[!.. JSRMOVCHK.I!". STYOPO
TX.U!,. ORA#$0..!6. BEQNOX..!@. BPLPOSIT
IV..!J. CLC..!T. ADCSPRITEX..!^. BCCNOX.
F!H. STASPRITEX.R!R. JMPNOX..!|.POSITIV 
CLC..!.. ADCSPRITEX..!.. CMP#$A0..".. BC
SNOX..".. STASPRITEX.+"..NOX LDAPADY.9".
. LDYOPOTY.H"B. JSRMOVCHK.V"L. STYOPOTY.
B"V. ORA#$0.N".. BEQNOY.".. BMIPOSITIV2
..".. SEC..".. EOR#$FF..".. ADCSPRITEY..
".. BCCNOY.A".. STASPRITEY.M"&. JMPNOY..
"0.POSITIV2 SEC..":. EOR#$FF.."D. ADCSPR
ITEY..#N. CMP#$C8..#X. BCSNOY.$#B. STASP
RITEY.5#L.NOY JMP$EA31.;#V.;.R#..MOVCHK 
STYOLDVALUE.C#.. STANEWVALUE..#.. SEC; A
 <= MOD64(NEW OLD)..#.. SBCOLDVALUE..#..
 AND#$7F..#.. CMP#$40; IF>0..#.. BCSLC17
1.S#F. LSR;AA <= A/2..#P. BEQLC17F; IF <
>0..$Z. LDYNEWVALUE; Y <= NEWVALUE..$.. 
RTS;RETURN..$..;.M$..LC171 ORA#$C0; ELSE
 OR IN HIGH ORDER BITS.D$.. CMP#$FF; IF 
<> -1.R$.. BEQLC17F..$.. SEC; A <= A/220
  -          ROR ;A..$ . ROR.C$*. LDYNEW
VALUE; Y <= NEWVALUE.L$4. RTS.R$>.;..$H.
LC17F LDA#$00; A <=0..$R. RTS..$\.;..%F.
FIRE LDA$DC00..%P. AND$DC01.#%Z. RTS.+%.
..EN...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL