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

AMIGA-MAUS1.SRC

FILE INFORMATION

FILENAME(S): AMIGA-MAUS1.SRC

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-11-30 16:11:04

APPEARS ON: 2 disk(s)

FILE HASH

b0aed487d9a13502a07fbe34079149c4fe76fbdc7be06f575b5540f52cd4e53c

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 08 91 AMIGA-MAUS1.SRC PRG BrainSkull, Sammlung 9 4 DOWNLOAD FILE
MAGIC DISK 08 91 AMIGA-MAUS1.SRC PRG DuncanTwain 9 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 0A 00 2E 42  41 20 24 39 30 30 30 00  |.......BA $9000.|
00000010: FB 1F 0B 00 2E 45 51 20  53 54 52 4F 55 54 3D 24  |.....EQ STROUT=$|
00000020: 41 42 31 45 00 0C 20 0C  00 2E 45 51 20 4F 4C 44  |AB1E.. ...EQ OLD|
00000030: 48 3D 24 30 32 00 1A 20  0D 00 2E 45 51 20 48 3D  |H=$02.. ...EQ H=|
00000040: 24 30 33 00 29 20 0E 00  2E 45 51 20 48 51 3D 24  |$03.) ...EQ HQ=$|
00000050: 30 34 00 37 20 0F 00 2E  45 51 20 56 3D 24 30 35  |04.7 ...EQ V=$05|
00000060: 00 46 20 10 00 2E 45 51  20 56 51 3D 24 30 36 00  |.F ...EQ VQ=$06.|
00000070: 5A 20 11 00 2E 45 51 20  4C 45 46 54 53 54 4F 50  |Z ...EQ LEFTSTOP|
00000080: 3D 32 34 00 6F 20 12 00  2E 45 51 20 52 49 47 48  |=24.o ...EQ RIGH|
00000090: 54 53 54 4F 50 3D 38 37  00 84 20 13 00 2E 45 51  |TSTOP=87.. ...EQ|
000000A0: 20 4F 4C 44 49 4E 50 55  54 3D 24 30 41 00 95 20  | OLDINPUT=$0A.. |
000000B0: 14 00 2E 45 51 20 48 4D  45 4D 3D 24 46 39 00 A6  |...EQ HMEM=$F9..|
000000C0: 20 15 00 2E 45 51 20 56  4D 45 4D 3D 24 46 41 00  | ...EQ VMEM=$FA.|
000000D0: B7 20 16 00 2E 45 51 20  4F 4C 44 56 3D 24 46 42  |. ...EQ OLDV=$FB|
000000E0: 00 C9 20 17 00 2E 45 51  20 55 50 53 54 4F 50 3D  |.. ...EQ UPSTOP=|
000000F0: 35 30 00 DE 20 18 00 2E  45 51 20 44 4F 57 4E 53  |50.. ...EQ DOWNS|
00000100: 54 4F 50 3D 32 34 39 00  F0 20 1E 00 2E 45 51 20  |TOP=249.. ...EQ |
00000110: 56 49 43 3D 24 44 30 30  30 00 03 21 1F 00 2E 45  |VIC=$D000..!...E|
00000120: 51 20 54 45 58 54 3D 24  30 39 33 46 00 29 21 50  |Q TEXT=$093F.)!P|
00000130: 00 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.;**************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000150: 2A 2A 00 3D 21 64 00 4D  4F 56 45 4C 45 46 54 20  |**.=!d.MOVELEFT |
00000160: 4C 44 41 56 49 43 00 48  21 6E 00 20 42 4E 45 4C  |LDAVIC.H!n. BNEL|
00000170: 33 00 57 21 78 00 20 53  54 41 56 49 43 2B 31 36  |3.W!x. STAVIC+16|
00000180: 00 62 21 82 00 20 42 45  51 4C 34 00 76 21 8C 00  |.b!.. BEQL4.v!..|
00000190: 4C 33 20 43 4D 50 23 4C  45 46 54 53 54 4F 50 00  |L3 CMP#LEFTSTOP.|
000001A0: 81 21 96 00 20 42 4E 45  4C 34 00 90 21 A0 00 20  |.!.. BNEL4..!.. |
000001B0: 4C 44 41 56 49 43 2B 31  36 00 9E 21 AA 00 20 42  |LDAVIC+16..!.. B|
000001C0: 45 51 4C 4F 4F 50 32 00  A4 21 B4 00 3B 00 B2 21  |EQLOOP2..!..;..!|
000001D0: BE 00 4C 34 20 44 45 43  56 49 43 00 C0 21 C8 00  |..L4 DECVIC..!..|
000001E0: 20 4A 4D 50 4C 4F 4F 50  32 00 C9 21 D2 00 3B 2A  | JMPLOOP2..!..;*|
000001F0: 2A 2A 00 DE 21 DC 00 4D  4F 56 45 52 49 47 48 54  |**..!..MOVERIGHT|
00000200: 20 4C 44 41 56 49 43 00  EB 21 E6 00 20 43 4D 50  | LDAVIC..!.. CMP|
00000210: 23 24 46 46 00 F6 21 F0  00 20 42 4E 45 4C 35 00  |#$FF..!.. BNEL5.|
00000220: 05 22 FA 00 20 49 4E 43  56 49 43 2B 31 36 00 16  |.".. INCVIC+16..|
00000230: 22 04 01 20 42 4E 45 4C  36 3B 55 4E 42 45 44 00  |".. BNEL6;UNBED.|
00000240: 2B 22 0E 01 4C 35 20 43  4D 50 23 52 49 47 48 54  |+"..L5 CMP#RIGHT|
00000250: 53 54 4F 50 00 36 22 18  01 20 42 4E 45 4C 36 00  |STOP.6".. BNEL6.|
00000260: 45 22 22 01 20 4C 44 41  56 49 43 2B 31 36 00 53  |E"". LDAVIC+16.S|
00000270: 22 2C 01 20 42 4E 45 4C  4F 4F 50 32 00 59 22 36  |",. BNELOOP2.Y"6|
00000280: 01 3B 00 67 22 40 01 4C  36 20 49 4E 43 56 49 43  |.;.g"@.L6 INCVIC|
00000290: 00 75 22 4A 01 20 4A 4D  50 4C 4F 4F 50 32 00 9B  |.u"J. JMPLOOP2..|
000002A0: 22 54 01 3B 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |"T.;************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002C0: 2A 2A 2A 2A 00 AF 22 5E  01 4D 4F 56 45 55 50 20  |****.."^.MOVEUP |
000002D0: 4C 44 41 56 49 43 2B 31  00 BF 22 68 01 20 43 4D  |LDAVIC+1.."h. CM|
000002E0: 50 23 55 50 53 54 4F 50  00 CD 22 72 01 20 42 45  |P#UPSTOP.."r. BE|
000002F0: 51 4C 4F 4F 50 32 00 DB  22 7C 01 20 44 45 43 56  |QLOOP2.."|. DECV|
00000300: 49 43 2B 31 00 E9 22 86  01 20 4A 4D 50 4C 4F 4F  |IC+1..".. JMPLOO|
00000310: 50 32 00 F2 22 90 01 3B  2A 2A 2A 00 08 23 9A 01  |P2.."..;***..#..|
00000320: 4D 4F 56 45 44 4F 57 4E  20 4C 44 41 56 49 43 2B  |MOVEDOWN LDAVIC+|
00000330: 31 00 1A 23 A4 01 20 43  4D 50 23 44 4F 57 4E 53  |1..#.. CMP#DOWNS|
00000340: 54 4F 50 00 28 23 AE 01  20 42 45 51 4C 4F 4F 50  |TOP.(#.. BEQLOOP|
00000350: 32 00 36 23 B8 01 20 49  4E 43 56 49 43 2B 31 00  |2.6#.. INCVIC+1.|
00000360: 44 23 C2 01 20 4A 4D 50  4C 4F 4F 50 32 00 6A 23  |D#.. JMPLOOP2.j#|
00000370: CC 01 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000390: 2A 2A 2A 00 7B 23 D6 01  53 54 41 52 54 20 4C 44  |***.{#..START LD|
000003A0: 41 23 30 30 00 89 23 E0  01 20 53 54 41 35 33 32  |A#00..#.. STA532|
000003B0: 38 30 00 95 23 EA 01 20  4C 44 41 23 31 31 00 A3  |80..#.. LDA#11..|
000003C0: 23 F4 01 20 53 54 41 35  33 32 38 31 00 B4 23 FE  |#.. STA53281..#.|
000003D0: 01 20 4C 44 41 23 3C 28  54 45 58 54 29 00 C5 23  |. LDA#<(TEXT)..#|
000003E0: 08 02 20 4C 44 59 23 3E  28 54 45 58 54 29 00 D4  |.. LDY#>(TEXT)..|
000003F0: 23 12 02 20 4A 53 52 53  54 52 4F 55 54 00 DA 23  |#.. JSRSTROUT..#|
00000400: 1C 02 3B 00 E6 23 26 02  20 4C 44 41 23 30 31 00  |..;..#&. LDA#01.|
00000410: F5 23 30 02 20 53 54 41  56 49 43 2B 33 39 00 02  |.#0. STAVIC+39..|
00000420: 24 3A 02 20 4C 44 41 23  31 35 30 00 0E 24 44 02  |$:. LDA#150..$D.|
00000430: 20 53 54 41 56 49 43 00  1C 24 4E 02 20 53 54 41  | STAVIC..$N. STA|
00000440: 56 49 43 2B 31 00 28 24  58 02 20 4C 44 41 23 31  |VIC+1.($X. LDA#1|
00000450: 33 00 35 24 62 02 20 53  54 41 32 30 34 30 00 41  |3.5$b. STA2040.A|
00000460: 24 6C 02 20 4C 44 41 23  30 31 00 50 24 76 02 20  |$l. LDA#01.P$v. |
00000470: 53 54 41 56 49 43 2B 32  31 00 76 24 80 02 3B 2A  |STAVIC+21.v$..;*|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
000004A0: 8C 24 8A 02 4C 4F 4F 50  31 20 53 54 41 4F 4C 44  |.$..LOOP1 STAOLD|
000004B0: 49 4E 50 55 54 00 9F 24  94 02 4C 4F 4F 50 32 20  |INPUT..$..LOOP2 |
000004C0: 4C 44 41 24 44 43 30 30  00 AC 24 9E 02 20 45 4F  |LDA$DC00..$.. EO|
000004D0: 52 23 24 46 46 00 B9 24  A8 02 20 41 4E 44 23 24  |R#$FF..$.. AND#$|
000004E0: 31 46 00 CA 24 B2 02 20  43 4D 50 4F 4C 44 49 4E  |1F..$.. CMPOLDIN|
000004F0: 50 55 54 00 D8 24 BC 02  20 42 4E 45 4C 4F 4F 50  |PUT..$.. BNELOOP|
00000500: 31 00 E9 24 C6 02 20 53  54 41 4F 4C 44 49 4E 50  |1..$.. STAOLDINP|
00000510: 55 54 00 EF 24 D0 02 3B  00 FB 24 DA 02 20 43 4D  |UT..$..;..$.. CM|
00000520: 50 23 31 36 00 06 25 E4  02 20 42 43 43 4C 31 00  |P#16..%.. BCCL1.|
00000530: 0F 25 EE 02 20 52 54 53  00 18 25 F8 02 3B 2A 2A  |.%.. RTS..%..;**|
00000540: 2A 00 26 25 02 03 4C 31  20 4C 44 58 23 30 30 00  |*.&%..L1 LDX#00.|
00000550: 30 25 0C 03 20 53 54 58  48 00 3B 25 16 03 20 53  |0%.. STXH.;%.. S|
00000560: 54 58 48 51 00 45 25 20  03 20 53 54 58 56 00 50  |TXHQ.E% . STXV.P|
00000570: 25 2A 03 20 53 54 58 56  51 00 56 25 34 03 3B 00  |%*. STXVQ.V%4.;.|
00000580: 5F 25 3E 03 20 4C 53 52  00 69 25 48 03 20 52 4F  |_%>. LSR.i%H. RO|
00000590: 4C 56 00 72 25 52 03 20  4C 53 52 00 7C 25 5C 03  |LV.r%R. LSR.|%\.|
000005A0: 20 52 4F 4C 48 00 85 25  66 03 20 4C 53 52 00 90  | ROLH..%f. LSR..|
000005B0: 25 70 03 20 52 4F 4C 56  51 00 99 25 7A 03 20 4C  |%p. ROLVQ..%z. L|
000005C0: 53 52 00 A4 25 84 03 20  52 4F 4C 48 51 00 CA 25  |SR..%.. ROLHQ..%|
000005D0: 8E 03 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005F0: 2A 2A 2A 00 DB 25 98 03  48 4F 52 49 5A 4F 4E 20  |***..%..HORIZON |
00000600: 4C 44 41 48 00 E6 25 A2  03 20 45 4F 52 48 51 00  |LDAH..%.. EORHQ.|
00000610: F3 25 AC 03 20 43 4D 50  48 4D 45 4D 00 04 26 B6  |.%.. CMPHMEM..&.|
00000620: 03 20 42 45 51 56 45 52  54 49 43 41 4C 00 11 26  |. BEQVERTICAL..&|
00000630: C0 03 20 53 54 41 48 4D  45 4D 00 1D 26 CA 03 20  |.. STAHMEM..&.. |
00000640: 43 4D 50 23 30 30 00 28  26 D4 03 20 42 4E 45 4C  |CMP#00.(&.. BNEL|
00000650: 32 00 32 26 DE 03 20 4C  44 41 48 00 3F 26 E8 03  |2.2&.. LDAH.?&..|
00000660: 20 53 54 41 4F 4C 44 48  00 50 26 F2 03 20 4A 4D  | STAOLDH.P&.. JM|
00000670: 50 56 45 52 54 49 43 41  4C 00 59 26 FC 03 3B 2A  |PVERTICAL.Y&..;*|
00000680: 2A 2A 00 68 26 06 04 4C  32 20 4C 44 41 4F 4C 44  |**.h&..L2 LDAOLD|
00000690: 48 00 72 26 10 04 20 45  4F 52 48 00 7D 26 1A 04  |H.r&.. EORH.}&..|
000006A0: 20 42 4E 45 4C 37 00 8E  26 24 04 20 4A 4D 50 4D  | BNEL7..&$. JMPM|
000006B0: 4F 56 45 4C 45 46 54 00  A2 26 2E 04 4C 37 20 4A  |OVELEFT..&..L7 J|
000006C0: 4D 50 4D 4F 56 45 52 49  47 48 54 00 C8 26 38 04  |MPMOVERIGHT..&8.|
000006D0: 3B 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |;***************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000006F0: 2A 00 DA 26 42 04 56 45  52 54 49 43 41 4C 20 4C  |*..&B.VERTICAL L|
00000700: 44 41 56 00 E5 26 4C 04  20 45 4F 52 56 51 00 F2  |DAV..&L. EORVQ..|
00000710: 26 56 04 20 43 4D 50 56  4D 45 4D 00 00 27 60 04  |&V. CMPVMEM..'`.|
00000720: 20 42 45 51 4C 4F 4F 50  32 00 0D 27 6A 04 20 53  | BEQLOOP2..'j. S|
00000730: 54 41 56 4D 45 4D 00 19  27 74 04 20 43 4D 50 23  |TAVMEM..'t. CMP#|
00000740: 30 30 00 24 27 7E 04 20  42 4E 45 4C 38 00 2E 27  |00.$'~. BNEL8..'|
00000750: 88 04 20 4C 44 41 56 00  3B 27 92 04 20 53 54 41  |.. LDAV.;'.. STA|
00000760: 4F 4C 44 56 00 49 27 9C  04 20 4A 4D 50 4C 4F 4F  |OLDV.I'.. JMPLOO|
00000770: 50 32 00 52 27 A6 04 3B  2A 2A 2A 00 61 27 B0 04  |P2.R'..;***.a'..|
00000780: 4C 38 20 4C 44 41 4F 4C  44 56 00 6B 27 BA 04 20  |L8 LDAOLDV.k'.. |
00000790: 45 4F 52 56 00 76 27 C4  04 20 42 4E 45 4C 39 00  |EORV.v'.. BNEL9.|
000007A0: 85 27 CE 04 20 4A 4D 50  4D 4F 56 45 55 50 00 98  |.'.. JMPMOVEUP..|
000007B0: 27 D8 04 4C 39 20 4A 4D  50 4D 4F 56 45 44 4F 57  |'..L9 JMPMOVEDOW|
000007C0: 4E 00 BE 27 E2 04 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |N..'..;*********|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 00  00 00                    |*******...      |

X......BA $9000......EQ STROUT=$AB1E.. .
..EQ OLDH=$02.. ...EQ H=$03.) ...EQ HQ=$
04.7 ...EQ V=$05.F ...EQ VQ=$06.Z ...EQ 
LEFTSTOP=24.O ...EQ RIGHTSTOP=87.. ...EQ
 OLDINPUT=$0A.. ...EQ HMEM=$F9.. ...EQ V
MEM=$FA.. ...EQ OLDV=$FB.I ...EQ UPSTOP=
50.. ...EQ DOWNSTOP=249.. ...EQ VIC=$D00
0..!...EQ TEXT=$093F.)!P.;**************
******************.=!D.MOVELEFT LDAVIC.H
!N. BNEL3.W!X. STAVIC+16.B!.. BEQL4.V!..
L3 CMP#LEFTSTOP..!.. BNEL4..! . LDAVIC+1
6..!.. BEQLOOP2..!..;..!..L4 DECVIC..!H.
 JMPLOOP2.I!R.;***..!..MOVERIGHT LDAVIC.
.!.. CMP#$FF..!.. BNEL5..".. INCVIC+16..
".. BNEL6;UNBED.+"..L5 CMP#RIGHTSTOP.6".
. BNEL6.E"". LDAVIC+16.S",. BNELOOP2.Y"6
.;.G"@.L6 INCVIC.U"J. JMPLOOP2.."T.;****
****************************.."^.MOVEUP 
LDAVIC+1.."H. CMP#UPSTOP.M"R. BEQLOOP2..
"|. DECVIC+1..".. JMPLOOP2.."..;***..#..
MOVEDOWN LDAVIC+1..#.. CMP#DOWNSTOP.(#..
 BEQLOOP2.6#.. INCVIC+1.D#B. JMPLOOP2.J#
L.;********************************.{#V.
START LDA#00..#.. STA53280..#.. LDA#11..
#.. STA53281..#.. LDA#<(TEXT).E#.. LDY#>
(TEXT).T#.. JSRSTROUT.Z#..;..#&. LDA#01.
.#0. STAVIC+39..$:. LDA#150..$D. STAVIC.
.$N. STAVIC+1.($X. LDA#13.5$B. STA2040.A
$L. LDA#01.P$V. STAVIC+21.V$..;*********
***********************..$..LOOP1 STAOLD
INPUT..$..LOOP2 LDA$DC00..$.. EOR#$FF..$
.. AND#$1F.J$.. CMPOLDINPUT.X$.. BNELOOP
1..$F. STAOLDINPUT..$P.;..$Z. CMP#16..%.
. BCCL1..%.. RTS..%..;***.&%..L1 LDX#00.
0%.. STXH.;%.. STXHQ.E% . STXV.P%*. STXV
Q.V%4.;._%>. LSR.I%H. ROLV.R%R. LSR.|%\.
 ROLH..%F. LSR..%P. ROLVQ..%Z. LSR..%.. 
ROLHQ.J%..;*****************************
***..%..HORIZON LDAH..%.. EORHQ..%.. CMP
HMEM..&.. BEQVERTICAL..&.. STAHMEM..&J. 
CMP#00.(&T. BNEL2.2&.. LDAH.?&.. STAOLDH
.P&.. JMPVERTICAL.Y&..;***.H&..L2 LDAOLD
H.R&.. EORH.}&.. BNEL7..&$. JMPMOVELEFT.
.&..L7 JMPMOVERIGHT.H&8.;***************
*****************.Z&B.VERTICAL LDAV..&L.
 EORVQ..&V. CMPVMEM..'`. BEQLOOP2..'J. S
TAVMEM..'T. CMP#00.$'~. BNEL8..'.. LDAV.
;'.. STAOLDV.I'.. JMPLOOP2.R'..;***.A'..
L8 LDAOLDV.K'.. EORV.V'D. BNEL9..'N. JMP
MOVEUP..'X.L9 JMPMOVEDOWN..'..;*********
***********************...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL