> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 28 43 29 20 31 39 38 35 |....... (C) 1985|
00000010: 20 47 4F 4C 44 20 44 49 53 4B 20 49 4E 43 00 24 | GOLD DISK INC.$|
00000020: 08 14 00 8F 00 39 08 1E 00 8F 20 53 4F 55 4E 44 |.....9.... SOUND|
00000030: 20 2D 20 48 41 4D 4D 45 52 00 3F 08 28 00 8F 00 | - HAMMER.?.(...|
00000040: 4F 08 32 00 99 C7 28 31 34 29 3B C7 28 38 29 00 |O.2...(14);.(8).|
00000050: 66 08 3C 00 97 20 35 33 32 38 31 2C 30 3A 97 35 |f.<.. 53281,0:.5|
00000060: 33 32 38 30 2C 30 00 7E 08 46 00 99 22 93 11 05 |3280,0.~.F.."...|
00000070: C8 41 4D 4D 45 52 20 D3 4F 55 4E 44 53 22 00 94 |.AMMER .OUNDS"..|
00000080: 08 50 00 99 22 9C B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |.P.."...........|
00000090: B7 B7 B7 22 00 C0 08 5A 00 99 22 20 20 20 20 20 |..."...Z.." |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 9F 3C C6 31 3E | .<.1>|
000000B0: 20 54 4F 20 53 54 41 52 54 20 53 4F 55 4E 44 22 | TO START SOUND"|
000000C0: 00 EA 08 64 00 99 22 20 20 20 20 20 20 20 20 20 |...d.." |
000000D0: 20 20 20 20 20 20 20 3C C6 33 3E 20 54 4F 20 53 | <.3> TO S|
000000E0: 54 4F 50 20 53 4F 55 4E 44 22 00 17 09 6E 00 99 |TOP SOUND"...n..|
000000F0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000100: 20 3C 5F 3E 20 20 81 C7 CF CC C4 20 C4 C9 D3 CB | <_> ..... ....|
00000110: A0 9F 4D 45 4E 55 22 00 29 09 78 00 99 22 05 11 |..MENU".).x.."..|
00000120: CC 49 53 54 49 4E 47 3A 22 00 3B 09 82 00 99 22 |.ISTING:".;...."|
00000130: 9C B7 B7 B7 B7 B7 B7 B7 B7 05 22 00 68 09 8C 00 |..........".h...|
00000140: 99 22 31 30 30 20 53 53 3D 35 34 32 37 32 20 20 |."100 SS=54272 |
00000150: 20 20 20 20 20 3A 52 45 4D 20 53 49 44 20 43 48 | :REM SID CH|
00000160: 49 50 20 53 54 41 52 54 00 8E 09 96 00 99 22 31 |IP START......"1|
00000170: 31 30 20 46 4F 52 49 3D 53 53 54 4F 53 53 2B 32 |10 FORI=SSTOSS+2|
00000180: 34 3A 50 4F 4B 45 49 2C 30 3A 4E 45 58 54 00 AA |4:POKEI,0:NEXT..|
00000190: 09 A0 00 99 22 31 39 30 20 49 46 20 54 49 3C 32 |...."190 IF TI<2|
000001A0: 30 20 54 48 45 4E 20 31 39 30 00 D8 09 AA 00 99 |0 THEN 190......|
000001B0: 22 31 33 30 20 50 4F 4B 45 20 53 53 2B 36 2C 34 |"130 POKE SS+6,4|
000001C0: 20 20 20 20 3A 52 45 4D 20 53 55 53 54 41 49 4E | :REM SUSTAIN|
000001D0: 2F 52 45 4C 45 41 53 45 00 03 0A B4 00 99 22 31 |/RELEASE......"1|
000001E0: 34 30 20 50 4F 4B 45 20 53 53 2B 35 2C 39 20 20 |40 POKE SS+5,9 |
000001F0: 20 20 3A 52 45 4D 20 41 54 54 41 43 4B 2F 44 45 | :REM ATTACK/DE|
00000200: 43 41 59 00 2A 0A BE 00 99 22 31 35 30 20 50 4F |CAY.*...."150 PO|
00000210: 4B 45 20 53 53 2B 34 2C 30 20 20 20 20 3A 52 45 |KE SS+4,0 :RE|
00000220: 4D 20 47 41 54 45 20 4F 46 46 00 50 0A C8 00 99 |M GATE OFF.P....|
00000230: 22 31 36 30 20 50 4F 4B 45 20 53 53 2B 30 2C 30 |"160 POKE SS+0,0|
00000240: 20 20 20 20 3A 52 45 4D 20 4C 4F 20 46 52 45 51 | :REM LO FREQ|
00000250: 00 77 0A D2 00 99 22 31 37 30 20 50 4F 4B 45 20 |.w...."170 POKE |
00000260: 53 53 2B 34 2C 31 32 39 20 20 3A 52 45 4D 20 47 |SS+4,129 :REM G|
00000270: 41 54 45 20 4F 46 46 00 A6 0A DC 00 99 22 31 38 |ATE OFF......"18|
00000280: 30 20 50 4F 4B 45 20 53 53 2B 31 2C 31 36 3A 54 |0 POKE SS+1,16:T|
00000290: 49 24 3D 22 C7 28 33 34 29 22 30 30 30 30 30 30 |I$=".(34)"000000|
000002A0: 22 C7 28 33 34 29 00 B8 0A E6 00 8B 20 54 49 B3 |".(34)...... TI.|
000002B0: 32 30 20 A7 20 32 33 30 00 DC 0A F0 00 99 22 32 |20 . 230......"2|
000002C0: 30 30 20 50 4F 4B 45 20 53 53 2B 34 2C 30 3A 50 |00 POKE SS+4,0:P|
000002D0: 4F 4B 45 20 53 53 2B 34 2C 31 32 39 00 FE 0A FA |OKE SS+4,129....|
000002E0: 00 99 22 32 31 30 20 50 4F 4B 45 20 53 53 2B 31 |.."210 POKE SS+1|
000002F0: 2C 30 3A 50 4F 4B 45 20 53 53 2B 38 2C 30 00 20 |,0:POKE SS+8,0. |
00000300: 0B 04 01 99 22 32 32 30 20 50 4F 4B 45 20 53 53 |...."220 POKE SS|
00000310: 2B 34 2C 30 3A 50 4F 4B 45 53 53 2B 31 31 2C 30 |+4,0:POKESS+11,0|
00000320: 00 33 0B 0E 01 99 22 32 33 30 20 47 4F 54 4F 20 |.3...."230 GOTO |
00000330: 31 37 30 00 61 0B 18 01 99 20 22 11 9F D3 4F 55 |170.a.... "...OU|
00000340: 52 43 45 20 43 4F 44 45 20 46 4F 55 4E 44 20 49 |RCE CODE FOUND I|
00000350: 4E 20 46 49 4C 45 3A 20 05 C8 C1 CD CD C5 D2 22 |N FILE: ......."|
00000360: 3B 00 86 0B 22 01 53 53 B2 35 34 32 37 32 20 20 |;...".SS.54272 |
00000370: 20 20 20 20 20 3A 8F 20 53 49 44 20 43 48 49 50 | :. SID CHIP|
00000380: 20 53 54 41 52 54 00 9D 0B 2C 01 81 49 B2 53 53 | START...,..I.SS|
00000390: A4 53 53 AA 32 34 3A 97 49 2C 30 3A 82 00 BF 0B |.SS.24:.I,0:....|
000003A0: 36 01 97 20 53 53 AA 32 34 2C 31 35 20 20 3A 8F |6.. SS.24,15 :.|
000003B0: 20 56 4F 4C 55 4D 45 20 43 4F 4E 54 52 4F 4C 00 | VOLUME CONTROL.|
000003C0: E2 0B 40 01 97 20 53 53 AA 36 2C 34 20 20 20 20 |..@.. SS.6,4 |
000003D0: 3A 8F 20 53 55 53 54 41 49 4E 2F 52 45 4C 45 41 |:. SUSTAIN/RELEA|
000003E0: 53 45 00 02 0C 4A 01 97 20 53 53 AA 35 2C 39 20 |SE...J.. SS.5,9 |
000003F0: 20 20 20 3A 8F 20 41 54 54 41 43 4B 2F 44 45 43 | :. ATTACK/DEC|
00000400: 41 59 00 1E 0C 54 01 97 20 53 53 AA 34 2C 30 20 |AY...T.. SS.4,0 |
00000410: 20 20 20 3A 8F 20 47 41 54 45 20 4F 46 46 00 39 | :. GATE OFF.9|
00000420: 0C 5E 01 97 20 53 53 AA 30 2C 30 20 20 20 20 3A |.^.. SS.0,0 :|
00000430: 8F 20 4C 4F 20 46 52 45 51 00 55 0C 68 01 97 20 |. LO FREQ.U.h.. |
00000440: 53 53 AA 34 2C 31 32 39 20 20 3A 8F 20 47 41 54 |SS.4,129 :. GAT|
00000450: 45 20 4F 46 46 00 70 0C 72 01 97 20 53 53 AA 31 |E OFF.p.r.. SS.1|
00000460: 2C 31 36 3A 54 49 24 B2 22 30 30 30 30 30 30 22 |,16:TI$."000000"|
00000470: 00 82 0C 7C 01 8B 20 54 49 B3 32 30 20 A7 20 33 |...|.. TI.20 . 3|
00000480: 38 30 00 9A 0C 86 01 97 20 53 53 AA 34 2C 30 3A |80...... SS.4,0:|
00000490: 97 20 53 53 AA 34 2C 31 32 39 00 B0 0C 90 01 97 |. SS.4,129......|
000004A0: 20 53 53 AA 31 2C 30 3A 97 20 53 53 AA 38 2C 30 | SS.1,0:. SS.8,0|
000004B0: 00 C6 0C 9A 01 97 20 53 53 AA 34 2C 30 3A 97 53 |...... SS.4,0:.S|
000004C0: 53 AA 31 31 2C 30 00 DE 0C A4 01 A1 20 41 24 3A |S.11,0...... A$:|
000004D0: 20 8B 20 41 24 B2 22 22 20 A7 20 33 36 30 00 F1 | . A$."" . 360..|
000004E0: 0C AE 01 8B 20 41 24 B2 22 5F 22 20 A7 20 34 39 |.... A$."_" . 49|
000004F0: 30 00 05 0D B8 01 8B 20 41 24 B3 B1 22 86 22 20 |0...... A$.."." |
00000500: A7 20 33 36 30 00 13 0D C2 01 97 20 53 53 AA 32 |. 360...... SS.2|
00000510: 34 2C 30 00 2C 0D CC 01 A1 20 41 24 3A 20 8B 20 |4,0.,.... A$: . |
00000520: 41 24 B2 22 5F 22 20 A7 20 34 39 30 00 40 0D D6 |A$."_" . 490.@..|
00000530: 01 8B 20 41 24 B3 B1 22 85 22 20 A7 20 34 36 30 |.. A$.."." . 460|
00000540: 00 56 0D E0 01 97 20 53 53 AA 32 34 2C 31 35 3A |.V.... SS.24,15:|
00000550: 20 89 20 33 37 30 00 70 0D EA 01 97 53 53 AA 32 | . 370.p....SS.2|
00000560: 34 2C 30 3A 99 22 93 22 3A 9E 20 34 39 31 35 32 |4,0:.".":. 49152|
00000570: 00 00 00 |... |
....... (C) 1985 GOLD DISK INC.$.....9..
.. SOUND - HAMMER.?.(...O.2..G(14);G(8).
F.<.. 53281,0:.53280,0.~.F.."...HAMMER S
OUNDS"...P..".............."...Z.."
.<F1> TO START SOUND"...D.."
<F3> TO STOP SOUND"...N..
" <_> .GOLD DISK .MENU".
).X.."..LISTING:".;...."..........".H...
."100 SS=54272 :REM SID CHIP START
......"110 FORI=SSTOSS+24:POKEI,0:NEXT..
. .."190 IF TI<20 THEN 190.X...."130 POK
E SS+6,4 :REM SUSTAIN/RELEASE......"1
40 POKE SS+5,9 :REM ATTACK/DECAY.*...
."150 POKE SS+4,0 :REM GATE OFF.P.H..
"160 POKE SS+0,0 :REM LO FREQ.W.R.."1
70 POKE SS+4,129 :REM GATE OFF......"18
0 POKE SS+1,16:TI$="G(34)"000000"G(34)..
.... TI.20 . 230......"200 POKE SS+4,0:P
OKE SS+4,129......"210 POKE SS+1,0:POKE
SS+8,0. ...."220 POKE SS+4,0:POKESS+11,0
.3...."230 GOTO 170.A.... "..SOURCE CODE
FOUND IN FILE: .HAMMER";...".SS.54272
:. SID CHIP START...,..I.SS.SS.24:.
I,0:....6.. SS.24,15 :. VOLUME CONTROL.
..@.. SS.6,4 :. SUSTAIN/RELEASE...J..
SS.5,9 :. ATTACK/DECAY...T.. SS.4,0
:. GATE OFF.9.^.. SS.0,0 :. LO FRE
Q.U.H.. SS.4,129 :. GATE OFF.P.R.. SS.1
,16:TI$."000000"...|.. TI.20 . 380......
SS.4,0:. SS.4,129...... SS.1,0:. SS.8,0
.F.... SS.4,0:.SS.11,0...... A$: . A$.""
. 360...... A$."_" . 490...... A$.."."
. 360...B.. SS.24,0.,.L.. A$: . A$."_" .
490.@.V.. A$.."." . 460.V.... SS.24,15:
. 370.P....SS.24,0:.".":. 49152...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL