3000
FILE INFORMATION
FILENAME(S): 3000
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-01 02:25:25
APPEARS ON: 1 disk(s)
FILE HASH
813a1203366ac8ff1c522427a3c92467e8d6d6b6808ae4bda08c86ce42f6ca75
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GURU SOUND 2000 | 3000 | PRG | hedning, shine | 1 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 0A 00 9E 20 24 39 30 30 30 00 1B 08 |....... $9000...|
00000010: 14 00 2E 4F 50 54 20 4F 4F 2C 50 00 27 08 15 00 |...OPT OO,P.'...|
00000020: AC B2 24 43 30 30 30 00 34 08 16 00 4C 44 59 20 |..$C000.4...LDY |
00000030: 23 24 30 30 00 42 08 17 00 53 54 59 20 24 32 35 |#$00.B...STY $25|
00000040: 30 32 00 4F 08 18 00 4C 44 41 20 23 24 30 38 00 |02.O...LDA #$08.|
00000050: 5B 08 19 00 53 54 41 20 24 46 42 00 68 08 1A 00 |[...STA $FB.h...|
00000060: 4C 44 41 20 23 24 33 30 00 74 08 1B 00 53 54 41 |LDA #$30.t...STA|
00000070: 20 24 46 43 00 81 08 20 00 4A 4D 50 20 4C 30 39 | $FC... .JMP L09|
00000080: 39 00 93 08 23 00 4C 30 30 33 20 4A 53 52 20 4C |9...#.L003 JSR L|
00000090: 30 32 35 00 A0 08 28 00 4C 44 58 20 23 24 30 30 |025...(.LDX #$00|
000000A0: 00 B8 08 3C 00 4C 30 30 31 20 20 20 20 4C 44 41 |...<.L001 LDA|
000000B0: 20 24 30 34 30 31 2C 58 00 C8 08 46 00 53 54 41 | $0401,X...F.STA|
000000C0: 20 24 30 34 30 30 2C 58 00 D8 08 50 00 4C 44 41 | $0400,X...P.LDA|
000000D0: 20 24 30 34 32 39 2C 58 00 E8 08 5A 00 53 54 41 | $0429,X...Z.STA|
000000E0: 20 24 30 34 32 38 2C 58 00 F8 08 64 00 4C 44 41 | $0428,X...d.LDA|
000000F0: 20 24 30 34 35 31 2C 58 00 08 09 6E 00 53 54 41 | $0451,X...n.STA|
00000100: 20 24 30 34 35 30 2C 58 00 18 09 78 00 4C 44 41 | $0450,X...x.LDA|
00000110: 20 24 30 34 37 39 2C 58 00 28 09 82 00 53 54 41 | $0479,X.(...STA|
00000120: 20 24 30 34 37 38 2C 58 00 38 09 8C 00 4C 44 41 | $0478,X.8...LDA|
00000130: 20 24 30 34 41 31 2C 58 00 48 09 96 00 53 54 41 | $04A1,X.H...STA|
00000140: 20 24 30 34 41 30 2C 58 00 58 09 A0 00 4C 44 41 | $04A0,X.X...LDA|
00000150: 20 24 30 34 43 39 2C 58 00 68 09 AA 00 53 54 41 | $04C9,X.h...STA|
00000160: 20 24 30 34 43 38 2C 58 00 78 09 B4 00 4C 44 41 | $04C8,X.x...LDA|
00000170: 20 24 30 34 46 31 2C 58 00 88 09 BE 00 53 54 41 | $04F1,X.....STA|
00000180: 20 24 30 34 46 30 2C 58 00 98 09 C8 00 4C 44 41 | $04F0,X.....LDA|
00000190: 20 24 30 35 31 39 2C 58 00 A8 09 D2 00 53 54 41 | $0519,X.....STA|
000001A0: 20 24 30 35 31 38 2C 58 00 B0 09 DC 00 49 4E 58 | $0518,X.....INX|
000001B0: 00 BD 09 E6 00 43 50 58 20 23 24 32 37 00 CA 09 |.....CPX #$27...|
000001C0: 2C 01 42 4E 45 20 4C 30 30 31 00 D7 09 36 01 4A |,.BNE L001...6.J|
000001D0: 53 52 20 4C 30 30 38 00 DF 09 40 01 52 54 53 00 |SR L008...@.RTS.|
000001E0: FA 09 8F 01 3B AB AB AB AB AB AB AB AB AB AB AB |....;...........|
000001F0: AB AB AB AB AB AB AB AB AB AB 00 0C 0A 90 01 4C |...............L|
00000200: 30 30 38 20 4C 44 58 20 23 24 30 37 00 19 0A 91 |008 LDX #$07....|
00000210: 01 4C 44 58 20 23 24 30 37 00 25 0A 9A 01 53 54 |.LDX #$07.%...ST|
00000220: 58 20 24 46 44 00 38 0A A4 01 4C 30 31 30 20 4C |X $FD.8...L010 L|
00000230: 44 41 20 24 44 30 31 36 00 4A 0A AE 01 3A 20 20 |DA $D016.J...: |
00000240: 20 20 4C 44 58 20 23 24 46 46 00 59 0A B8 01 3A | LDX #$FF.Y...:|
00000250: 20 20 20 20 AF 20 24 46 45 00 69 0A C2 01 3A 20 | . $FE.i...: |
00000260: 20 20 20 B0 41 20 24 46 44 00 7C 0A CC 01 3A 20 | .A $FD.|...: |
00000270: 20 20 20 53 54 41 20 24 44 30 31 36 00 8E 0A D6 | STA $D016....|
00000280: 01 3A 20 20 20 20 4C 44 58 20 23 24 32 30 00 A1 |.: LDX #$20..|
00000290: 0A E0 01 4C 30 32 30 20 4A 53 52 20 24 45 45 42 |...L020 JSR $EEB|
000002A0: 33 00 AE 0A EA 01 3A 20 20 20 20 44 45 58 00 C0 |3.....: DEX..|
000002B0: 0A F4 01 3A 20 20 20 20 42 4E 45 20 4C 30 32 30 |...: BNE L020|
000002C0: 00 D1 0A FE 01 3A 20 20 20 20 44 45 43 20 24 46 |.....: DEC $F|
000002D0: 44 00 E3 0A 08 02 3A 20 20 20 20 42 4E 45 20 4C |D.....: BNE L|
000002E0: 30 31 30 00 EB 0A 12 02 52 54 53 00 06 0B 1C 02 |010.....RTS.....|
000002F0: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000300: AB AB AB AB AB AB 00 13 0B 26 02 4C 30 32 35 20 |.........&.L025 |
00000310: 43 4C 43 00 21 0B 30 02 41 53 4C 20 24 33 30 30 |CLC.!.0.ASL $300|
00000320: 31 00 3F 0B 3A 02 4A 53 52 20 4C 30 38 30 20 20 |1.?.:.JSR L080 |
00000330: 20 20 3B 50 52 55 45 46 45 20 43 41 52 52 59 00 | ;PRUEFE CARRY.|
00000340: 4D 0B 44 02 53 54 58 20 24 30 34 32 37 00 55 0B |M.D.STX $0427.U.|
00000350: 4E 02 43 4C 43 00 63 0B 58 02 41 53 4C 20 24 33 |N.CLC.c.X.ASL $3|
00000360: 30 30 32 00 70 0B 62 02 4A 53 52 20 4C 30 38 30 |002.p.b.JSR L080|
00000370: 00 7E 0B 6C 02 53 54 58 20 24 30 34 34 46 00 86 |.~.l.STX $044F..|
00000380: 0B 76 02 43 4C 43 00 94 0B 80 02 41 53 4C 20 24 |.v.CLC.....ASL $|
00000390: 33 30 30 33 00 A1 0B 8A 02 4A 53 52 20 4C 30 38 |3003.....JSR L08|
000003A0: 30 00 AF 0B 94 02 53 54 58 20 24 30 34 37 37 00 |0.....STX $0477.|
000003B0: B7 0B 9E 02 43 4C 43 00 C5 0B A8 02 41 53 4C 20 |....CLC.....ASL |
000003C0: 24 33 30 30 34 00 D2 0B B2 02 4A 53 52 20 4C 30 |$3004.....JSR L0|
000003D0: 38 30 00 E0 0B BC 02 53 54 58 20 24 30 34 39 46 |80.....STX $049F|
000003E0: 00 E8 0B C6 02 43 4C 43 00 F6 0B D0 02 41 53 4C |.....CLC.....ASL|
000003F0: 20 24 33 30 30 35 00 03 0C D5 02 4A 53 52 20 4C | $3005.....JSR L|
00000400: 30 38 30 00 11 0C DA 02 53 54 58 20 24 30 34 43 |080.....STX $04C|
00000410: 37 00 19 0C E4 02 43 4C 43 00 27 0C EE 02 41 53 |7.....CLC.'...AS|
00000420: 4C 20 24 33 30 30 36 00 34 0C F8 02 4A 53 52 20 |L $3006.4...JSR |
00000430: 4C 30 38 30 00 42 0C 02 03 53 54 58 20 24 30 34 |L080.B...STX $04|
00000440: 45 46 00 4A 0C 0C 03 43 4C 43 00 58 0C 16 03 41 |EF.J...CLC.X...A|
00000450: 53 4C 20 24 33 30 30 37 00 65 0C 20 03 4A 53 52 |SL $3007.e. .JSR|
00000460: 20 4C 30 38 30 00 73 0C 2A 03 53 54 58 20 24 30 | L080.s.*.STX $0|
00000470: 35 31 37 00 7B 0C 34 03 52 54 53 00 A1 0C E7 03 |517.{.4.RTS.....|
00000480: 3B AB AB AB AB AB AB AB 20 42 52 41 4E 43 48 20 |;....... BRANCH |
00000490: 43 41 52 52 59 AD 58 20 52 45 47 20 AB AB AB AB |CARRY.X REG ....|
000004A0: AB 00 B3 0C E8 03 4C 30 38 30 20 42 43 53 20 4C |......L080 BCS L|
000004B0: 30 38 31 00 C0 0C F2 03 4C 44 58 20 23 24 32 30 |081.....LDX #$20|
000004C0: 00 C8 0C FC 03 52 54 53 00 DA 0C 06 04 4C 30 38 |.....RTS.....L08|
000004D0: 31 20 4C 44 58 20 23 24 32 41 00 E2 0C 10 04 52 |1 LDX #$2A.....R|
000004E0: 54 53 00 06 0D DC 05 3B 4C 30 39 39 AB AB AB AB |TS.....;L099....|
000004F0: AB 4F 56 45 52 41 4C 4C 20 50 52 4F 47 52 41 4D |.OVERALL PROGRAM|
00000500: 4D AB AB AB AB AB 00 18 0D E6 05 4C 30 39 39 20 |M..........L099 |
00000510: 4A 53 52 20 4C 30 30 33 00 25 0D F0 05 4A 53 52 |JSR L003.%...JSR|
00000520: 20 4C 30 30 33 00 32 0D FA 05 4A 53 52 20 4C 30 | L003.2...JSR L0|
00000530: 30 33 00 3F 0D 04 06 4A 53 52 20 4C 30 30 33 00 |03.?...JSR L003.|
00000540: 4C 0D 0E 06 4A 53 52 20 4C 30 30 33 00 59 0D 18 |L...JSR L003.Y..|
00000550: 06 4A 53 52 20 4C 30 30 33 00 66 0D 22 06 4A 53 |.JSR L003.f.".JS|
00000560: 52 20 4C 30 30 33 00 73 0D 2C 06 4A 53 52 20 4C |R L003.s.,.JSR L|
00000570: 30 30 33 00 81 0D 36 06 4C 44 59 20 24 32 35 30 |003...6.LDY $250|
00000580: 32 00 8E 0D 4A 06 4C 44 58 20 23 24 30 30 00 9B |2...J.LDX #$00..|
00000590: 0D 4B 06 4C 30 31 39 20 49 4E 59 00 A8 0D 4C 06 |.K.L019 INY...L.|
000005A0: 43 50 59 20 23 24 30 30 00 B5 0D 4D 06 42 4E 45 |CPY #$00...M.BNE|
000005B0: 20 4C 30 37 34 00 C2 0D 4E 06 4A 53 52 20 4C 30 | L074...N.JSR L0|
000005C0: 37 32 00 D7 0D 54 06 4C 30 37 34 20 4C 44 41 20 |72...T.L074 LDA |
000005D0: 28 24 46 42 29 2C 59 00 E7 0D 5E 06 53 54 41 20 |($FB),Y...^.STA |
000005E0: 24 32 30 30 31 2C 58 00 EF 0D 63 06 49 4E 58 00 |$2001,X...c.INX.|
000005F0: FC 0D 68 06 43 50 58 20 23 24 30 38 00 09 0E 72 |..h.CPX #$08...r|
00000600: 06 42 4E 45 20 4C 30 31 39 00 17 0E 7C 06 53 54 |.BNE L019...|.ST|
00000610: 59 20 24 32 35 30 32 00 24 0E 90 06 4A 4D 50 20 |Y $2502.$...JMP |
00000620: 4C 30 39 39 00 35 0E A4 06 4C 30 37 32 20 49 4E |L099.5...L072 IN|
00000630: 43 20 24 46 43 00 3D 0E AE 06 52 54 53 00 00 00 |C $FC.=...RTS...|
....... $9000......OPT OO,P.'.....$C000.
4...LDY #$00.B...STY $2502.O...LDA #$08.
[...STA $FB.H...LDA #$30.T...STA $FC...
.JMP L099...#.L003 JSR L025. .(.LDX #$00
...<.L001 LDA $0401,X.H.F.STA $0400,X
.X.P.LDA $0429,X...Z.STA $0428,X...D.LDA
$0451,X...N.STA $0450,X...X.LDA $0479,X
.(...STA $0478,X.8...LDA $04A1,X.H...STA
$04A0,X.X. .LDA $04C9,X.H...STA $04C8,X
.X...LDA $04F1,X.....STA $04F0,X...H.LDA
$0519,X...R.STA $0518,X.....INX.....CPX
#$27.J.,.BNE L001.W.6.JSR L008...@.RTS.
....;..........................L008 LDX
#$07.....LDX #$07.%...STX $FD.8...L010 L
DA $D016.J...: LDX #$FF.Y...: . $F
E.I.B.: .A $FD.|.L.: STA $D016...V
.: LDX #$20.....L020 JSR $EEB3.....:
DEX.....: BNE L020.Q...: DEC $F
D.....: BNE L010.....RTS.....;.......
.................&.L025 CLC.!.0.ASL $300
1.?.:.JSR L080 ;PRUEFE CARRY.M.D.STX
$0427.U.N.CLC.C.X.ASL $3002.P.B.JSR L080
.~.L.STX $044F...V.CLC.....ASL $3003....
.JSR L080.....STX $0477.....CLC.E...ASL
$3004.R...JSR L080.....STX $049F...F.CLC
...P.ASL $3005...U.JSR L080...Z.STX $04C
7.....CLC.'...ASL $3006.4...JSR L080.B..
.STX $04EF.J...CLC.X...ASL $3007.E. .JSR
L080.S.*.STX $0517.{.4.RTS.....;.......
BRANCH CARRY.X REG ..........L080 BCS L
081.....LDX #$20.H...RTS.Z...L081 LDX #$
2A.....RTS.....;L099.....OVERALL PROGRAM
M..........L099 JSR L003.%...JSR L003.2.
..JSR L003.?...JSR L003.L...JSR L003.Y..
.JSR L003.F.".JSR L003.S.,.JSR L003...6.
LDY $2502...J.LDX #$00...K.L019 INY...L.
CPY #$00...M.BNE L074.B.N.JSR L072.W.T.L
074 LDA ($FB),Y...^.STA $2001,X...C.INX.
..H.CPX #$08...R.BNE L019...|.STY $2502.
$...JMP L099.5...L072 INC $FC.=...RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL