MOUSE.SRC HY.ASS

FILE INFORMATION

FILENAME(S): MOUSE.SRC HY.ASS

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 01:12:44

APPEARS ON: 3 disk(s)

FILE HASH

73c9d4d5fa5da03c2cbaedf05e9a6e448a0f2b10c984256c6a973d27f19894f6

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BEST NR 10706 2	MOUSE.SRC HY.ASS	PRG	C64er	6	5	DOWNLOAD FILE
BEST NR 10706 2	MOUSE.SRC HY.ASS	PRG	DuncanTwain	6	5	DOWNLOAD FILE
BEST NR 10706 2	MOUSE.SRC HY.ASS	PRG	DuncanTwain	6	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F EE 1F 0A 00 3B 4D  41 55 53 54 52 45 49 42  |......;MAUSTREIB|
00000010: 45 52 20 31 33 35 31 00  01 20 64 00 20 2E 45 51  |ER 1351.. d. .EQ|
00000020: 49 49 52 51 3D 24 30 33  31 34 00 15 20 78 00 20  |IIRQ=$0314.. x. |
00000030: 2E 45 51 49 49 52 51 32  3D 24 43 30 30 30 00 29  |.EQIIRQ2=$C000.)|
00000040: 20 8C 00 20 2E 45 51 4F  50 4F 54 58 3D 24 43 30  | .. .EQOPOTX=$C0|
00000050: 30 32 00 3D 20 96 00 20  2E 45 51 4F 50 4F 54 59  |02.= .. .EQOPOTY|
00000060: 3D 24 43 30 30 33 00 54  20 A0 00 20 2E 45 51 4E  |=$C003.T .. .EQN|
00000070: 45 57 56 41 4C 55 45 3D  24 43 30 30 34 00 6B 20  |EWVALUE=$C004.k |
00000080: AA 00 20 2E 45 51 4F 4C  44 56 41 4C 55 45 3D 24  |.. .EQOLDVALUE=$|
00000090: 43 30 30 35 00 81 20 B4  00 20 2E 45 51 53 50 52  |C005.. .. .EQSPR|
000000A0: 49 54 45 58 3D 24 44 30  30 30 00 97 20 BE 00 20  |ITEX=$D000.. .. |
000000B0: 2E 45 51 53 50 52 49 54  45 59 3D 24 44 30 30 31  |.EQSPRITEY=$D001|
000000C0: 00 AF 20 C8 00 20 2E 45  51 4D 53 42 53 50 52 49  |.. .. .EQMSBSPRI|
000000D0: 54 45 3D 24 44 30 31 30  00 C2 20 D2 00 20 2E 45  |TE=$D010.. .. .E|
000000E0: 51 50 41 44 58 3D 24 44  34 31 39 00 D5 20 DC 00  |QPADX=$D419.. ..|
000000F0: 20 2E 45 51 50 41 44 59  3D 24 44 34 31 41 00 DB  | .EQPADY=$D41A..|
00000100: 20 E6 00 3B 00 E9 20 F0  00 20 2E 42 41 24 43 31  | ..;.. .. .BA$C1|
00000110: 30 30 00 EF 20 FA 00 3B  00 06 21 04 01 20 4C 44  |00.. ..;..!.. LD|
00000120: 41 49 49 52 51 2B 31 3B  49 4E 53 54 41 4C 4C 00  |AIIRQ+1;INSTALL.|
00000130: 13 21 0E 01 20 43 4D 50  23 24 43 31 00 22 21 18  |.!.. CMP#$C1."!.|
00000140: 01 20 42 45 51 53 50 52  55 4E 47 00 2B 21 22 01  |. BEQSPRUNG.+!".|
00000150: 20 50 48 50 00 34 21 2C  01 20 53 45 49 00 41 21  | PHP.4!,. SEI.A!|
00000160: 36 01 20 4C 44 41 49 49  52 51 00 4F 21 40 01 20  |6. LDAIIRQ.O!@. |
00000170: 53 54 41 49 49 52 51 32  00 5E 21 4A 01 20 4C 44  |STAIIRQ2.^!J. LD|
00000180: 41 49 49 52 51 2B 31 00  6E 21 54 01 20 53 54 41  |AIIRQ+1.n!T. STA|
00000190: 49 49 52 51 32 2B 31 00  7F 21 5E 01 20 4C 44 41  |IIRQ2+1..!^. LDA|
000001A0: 23 3C 28 4D 49 52 51 29  00 8C 21 68 01 20 53 54  |#<(MIRQ)..!h. ST|
000001B0: 41 49 49 52 51 00 9D 21  72 01 20 4C 44 41 23 3E  |AIIRQ..!r. LDA#>|
000001C0: 28 4D 49 52 51 29 00 AC  21 7C 01 20 53 54 41 49  |(MIRQ)..!|. STAI|
000001D0: 49 52 51 2B 31 00 B5 21  86 01 20 50 4C 50 00 C4  |IRQ+1..!.. PLP..|
000001E0: 21 90 01 53 50 52 55 4E  47 20 52 54 53 00 CA 21  |!..SPRUNG RTS..!|
000001F0: 9A 01 3B 00 E7 21 A4 01  4D 49 52 51 20 43 4C 44  |..;..!..MIRQ CLD|
00000200: 3B 4A 55 53 54 20 49 4E  20 43 41 53 45 2E 2E 2E  |;JUST IN CASE...|
00000210: 00 0C 22 AE 01 20 4C 44  41 50 41 44 58 3B 20 47  |..".. LDAPADX; G|
00000220: 45 54 20 44 45 4C 54 41  20 56 41 4C 55 45 53 20  |ET DELTA VALUES |
00000230: 46 4F 52 20 58 00 1A 22  B8 01 20 4C 44 59 4F 50  |FOR X..".. LDYOP|
00000240: 4F 54 58 00 29 22 C2 01  20 4A 53 52 4D 4F 56 43  |OTX.)".. JSRMOVC|
00000250: 48 4B 00 37 22 CC 01 20  53 54 59 4F 50 4F 54 58  |HK.7".. STYOPOTX|
00000260: 00 40 22 D6 01 20 43 4C  43 00 50 22 E0 01 20 41  |.@".. CLC.P".. A|
00000270: 44 43 53 50 52 49 54 45  58 00 60 22 EA 01 20 53  |DCSPRITEX.`".. S|
00000280: 54 41 53 50 52 49 54 45  58 00 69 22 F4 01 20 54  |TASPRITEX.i".. T|
00000290: 58 41 00 76 22 FE 01 20  41 44 43 23 24 30 30 00  |XA.v".. ADC#$00.|
000002A0: 83 22 08 02 20 41 4E 44  23 24 30 31 00 95 22 12  |.".. AND#$01..".|
000002B0: 02 20 45 4F 52 4D 53 42  53 50 52 49 54 45 00 A7  |. EORMSBSPRITE..|
000002C0: 22 1C 02 20 53 54 41 4D  53 42 53 50 52 49 54 45  |".. STAMSBSPRITE|
000002D0: 00 B4 22 26 02 20 4C 44  41 50 41 44 59 00 C2 22  |.."&. LDAPADY.."|
000002E0: 30 02 20 4C 44 59 4F 50  4F 54 59 00 D1 22 3A 02  |0. LDYOPOTY..":.|
000002F0: 20 4A 53 52 4D 4F 56 43  48 4B 00 DF 22 44 02 20  | JSRMOVCHK.."D. |
00000300: 53 54 59 4F 50 4F 54 59  00 15 23 4E 02 20 53 45  |STYOPOTY..#N. SE|
00000310: 43 3B 4D 4F 44 49 46 59  20 59 2D 50 4F 53 49 54  |C;MODIFY Y-POSIT|
00000320: 49 4F 4E 20 28 44 45 43  52 2E 20 59 20 46 4F 52  |ION (DECR. Y FOR|
00000330: 20 49 4E 43 52 2E 5D 49  4E 20 50 4F 54 29 00 22  | INCR.]IN POT)."|
00000340: 23 58 02 20 45 4F 52 23  24 46 46 00 32 23 62 02  |#X. EOR#$FF.2#b.|
00000350: 20 41 44 43 53 50 52 49  54 45 59 00 42 23 6C 02  | ADCSPRITEY.B#l.|
00000360: 20 53 54 41 53 50 52 49  54 45 59 00 6B 23 76 02  | STASPRITEY.k#v.|
00000370: 20 4A 4D 50 28 49 49 52  51 32 29 3B 43 4F 4E 54  | JMP(IIRQ2);CONT|
00000380: 49 4E 55 45 20 57 2F 49  52 51 20 4F 50 45 52 41  |INUE W/IRQ OPERA|
00000390: 54 49 4F 4E 00 71 23 80  02 3B 00 88 23 8A 02 4D  |TION.q#..;..#..M|
000003A0: 4F 56 43 48 4B 20 53 54  59 4F 4C 44 56 41 4C 55  |OVCHK STYOLDVALU|
000003B0: 45 00 99 23 94 02 20 53  54 41 4E 45 57 56 41 4C  |E..#.. STANEWVAL|
000003C0: 55 45 00 B5 23 9E 02 20  4C 44 58 23 24 30 30 3B  |UE..#.. LDX#$00;|
000003D0: 20 50 52 45 4C 4F 41 44  20 58 20 57 2F 4F 00 D3  | PRELOAD X W/O..|
000003E0: 23 A8 02 20 53 45 43 3B  20 41 20 3C 3D 20 4D 4F  |#.. SEC; A <= MO|
000003F0: 44 36 34 28 4E 45 57 20  4F 4C 44 29 00 E4 23 B2  |D64(NEW OLD)..#.|
00000400: 02 20 53 42 43 4F 4C 44  56 41 4C 55 45 00 F1 23  |. SBCOLDVALUE..#|
00000410: BC 02 20 41 4E 44 23 24  37 46 00 04 24 C6 02 20  |.. AND#$7F..$.. |
00000420: 43 4D 50 23 24 34 30 3B  20 49 46 3E 30 00 12 24  |CMP#$40; IF>0..$|
00000430: D0 02 20 42 43 53 4C 43  31 37 31 00 25 24 DA 02  |.. BCSLC171.%$..|
00000440: 20 4C 53 52 3B 41 41 20  3C 3D 20 41 2F 32 00 3B  | LSR;AA <= A/2.;|
00000450: 24 E4 02 20 42 45 51 4C  43 31 37 46 3B 20 49 46  |$.. BEQLC17F; IF|
00000460: 20 3C 3E 30 00 5B 24 EE  02 20 4C 44 59 4E 45 57  | <>0.[$.. LDYNEW|
00000470: 56 41 4C 55 45 3B 20 59  20 3C 3D 20 4E 45 57 56  |VALUE; Y <= NEWV|
00000480: 41 4C 55 45 00 6B 24 F8  02 20 52 54 53 3B 52 45  |ALUE.k$.. RTS;RE|
00000490: 54 55 52 4E 00 71 24 02  03 3B 00 9F 24 0C 03 4C  |TURN.q$..;..$..L|
000004A0: 43 31 37 31 20 4F 52 41  23 24 43 30 3B 20 45 4C  |C171 ORA#$C0; EL|
000004B0: 53 45 20 4F 52 20 49 4E  20 48 49 47 48 20 4F 52  |SE OR IN HIGH OR|
000004C0: 44 45 52 20 42 49 54 53  00 B6 24 16 03 20 43 4D  |DER BITS..$.. CM|
000004D0: 50 23 24 46 46 3B 20 49  46 20 3C 3E 20 2D 31 00  |P#$FF; IF <> -1.|
000004E0: C4 24 20 03 20 42 45 51  4C 43 31 37 46 00 EC 24  |.$ . BEQLC17F..$|
000004F0: 2A 03 20 53 45 43 3B 20  41 20 3C 3D 20 41 2F 32  |*. SEC; A <= A/2|
00000500: 32 30 20 20 2D 20 20 20  20 20 20 20 20 20 20 52  |20  -          R|
00000510: 4F 52 20 3B 41 00 F5 24  34 03 20 52 4F 52 00 0B  |OR ;A..$4. ROR..|
00000520: 25 3E 03 20 4C 44 58 23  24 46 46 3B 20 58 20 3C  |%>. LDX#$FF; X <|
00000530: 3D 20 2D 31 00 2B 25 48  03 20 4C 44 59 4E 45 57  |= -1.+%H. LDYNEW|
00000540: 56 41 4C 55 45 3B 20 59  20 3C 3D 20 4E 45 57 56  |VALUE; Y <= NEWV|
00000550: 41 4C 55 45 00 34 25 52  03 20 52 54 53 00 3A 25  |ALUE.4%R. RTS.:%|
00000560: 5C 03 3B 00 53 25 66 03  4C 43 31 37 46 20 4C 44  |\.;.S%f.LC17F LD|
00000570: 41 23 24 30 30 3B 20 41  20 3C 3D 30 00 5C 25 70  |A#$00; A <=0.\%p|
00000580: 03 20 52 54 53 00 62 25  7A 03 3B 00 6A 25 14 05  |. RTS.b%z.;.j%..|
00000590: 2E 45 4E 00 00 00                                 |.EN...          |

X.....;MAUSTREIBER 1351.. D. .EQIIRQ=$03
14.. X. .EQIIRQ2=$C000.) .. .EQOPOTX=$C0
02.= .. .EQOPOTY=$C003.T  . .EQNEWVALUE=
$C004.K .. .EQOLDVALUE=$C005.. .. .EQSPR
ITEX=$D000.. .. .EQSPRITEY=$D001.. H. .E
QMSBSPRITE=$D010.B R. .EQPADX=$D419.U ..
 .EQPADY=$D41A.. ..;.. .. .BA$C100.. ..;
..!.. LDAIIRQ+1;INSTALL..!.. CMP#$C1."!.
. BEQSPRUNG.+!". PHP.4!,. SEI.A!6. LDAII
RQ.O!@. STAIIRQ2.^!J. LDAIIRQ+1.N!T. STA
IIRQ2+1.!^. LDA#<(MIRQ)..!H. STAIIRQ..!
R. LDA#>(MIRQ)..!|. STAIIRQ+1..!.. PLP.D
!..SPRUNG RTS.J!..;..!..MIRQ CLD;JUST IN
 CASE.....".. LDAPADX; GET DELTA VALUES 
FOR X..".. LDYOPOTX.)"B. JSRMOVCHK.7"L. 
STYOPOTX.@"V. CLC.P".. ADCSPRITEX.`".. S
TASPRITEX.I".. TXA.V".. ADC#$00..".. AND
#$01..".. EORMSBSPRITE..".. STAMSBSPRITE
.."&. LDAPADY.B"0. LDYOPOTY.Q":. JSRMOVC
HK.."D. STYOPOTY..#N. SEC;MODIFY Y-POSIT
ION (DECR. Y FOR INCR.]IN POT)."#X. EOR#
$FF.2#B. ADCSPRITEY.B#L. STASPRITEY.K#V.
 JMP(IIRQ2);CONTINUE W/IRQ OPERATION.Q#.
.;..#..MOVCHK STYOLDVALUE..#.. STANEWVAL
UE..#.. LDX#$00; PRELOAD X W/O.S#.. SEC;
 A <= MOD64(NEW OLD)..#.. SBCOLDVALUE..#
.. AND#$7F..$F. CMP#$40; IF>0..$P. BCSLC
171.%$Z. LSR;AA <= A/2.;$.. BEQLC17F; IF
 <>0.[$.. LDYNEWVALUE; Y <= NEWVALUE.K$.
. RTS;RETURN.Q$..;..$..LC171 ORA#$C0; EL
SE OR IN HIGH ORDER BITS..$.. CMP#$FF; I
F <> -1.D$ . BEQLC17F..$*. SEC; A <= A/2
20  -          ROR ;A..$4. ROR..%>. LDX#
$FF; X <= -1.+%H. LDYNEWVALUE; Y <= NEWV
ALUE.4%R. RTS.:%\.;.S%F.LC17F LDA#$00; A
 <=0.\%P. RTS.B%Z.;.J%...EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL