13-4

FILE INFORMATION

FILENAME(S): 13-4

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 21:12:26

APPEARS ON: 2 disk(s)

FILE HASH

30a262ebed6d480b7ac1a2f00ba03d52b710d3bce8b5188f15d0a815f21e5e43

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOTUS SOFT	13-4	PRG	DuncanTwain	9	3	DOWNLOAD FILE
PROG 64 WEST	13-4	PRG	DuncanTwain	9	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 26 08 00 00 8F 20  2A 20 53 48 4F 52 54 45  |..&.... * SHORTE|
00000010: 4E 45 44 20 56 45 52 53  49 4F 4E 20 4F 46 20 31  |NED VERSION OF 1|
00000020: 33 2D 34 20 20 2A 00 2C  08 01 00 3A 00 51 08 02  |3-4  *.,...:.Q..|
00000030: 00 8F 20 2A 20 20 4C 49  4E 45 53 20 39 30 2C 20  |.. *  LINES 90, |
00000040: 31 31 30 20 43 4F 4E 54  52 4F 4C 20 54 49 4D 45  |110 CONTROL TIME|
00000050: 2A 00 76 08 03 00 8F 20  2A 20 20 4F 46 20 41 54  |*.v.... *  OF AT|
00000060: 54 41 43 4B 2F 44 45 43  41 59 2F 53 55 53 54 41  |TACK/DECAY/SUSTA|
00000070: 49 4E 2C 20 20 2A 00 9B  08 04 00 8F 20 2A 20 20  |IN,  *...... *  |
00000080: 41 4E 44 20 52 45 4C 45  41 53 45 2E 20 20 20 20  |AND RELEASE.    |
00000090: 20 20 20 20 20 20 20 20  20 20 2A 00 C0 08 05 00  |          *.....|
000000A0: 8F 20 2A 20 54 52 59 20  50 4F 4B 45 20 53 2B 34  |. * TRY POKE S+4|
000000B0: 2C 33 33 20 41 4E 44 20  2C 33 32 20 46 4F 52 2A  |,33 AND ,32 FOR*|
000000C0: 00 E5 08 06 00 8F 20 2A  20 53 41 57 54 4F 4F 54  |...... * SAWTOOT|
000000D0: 48 3B 20 4F 52 20 4D 49  58 20 57 41 56 45 46 4F  |H; OR MIX WAVEFO|
000000E0: 52 4D 53 20 2A 00 0A 09  07 00 8F 20 2A 20 46 4F  |RMS *...... * FO|
000000F0: 52 20 4F 54 48 45 52 20  45 46 46 45 43 54 53 2E  |R OTHER EFFECTS.|
00000100: 20 20 20 20 20 20 20 20  20 2A 00 10 09 08 00 3A  |         *.....:|
00000110: 00 34 09 09 00 8F 20 2D  2D 2D 2D 2D 20 49 4E 49  |.4.... ----- INI|
00000120: 54 49 41 4C 49 53 45 20  53 49 44 3A 20 2D 2D 2D  |TIALISE SID: ---|
00000130: 2D 2D 2D 2D 00 5F 09 0A  00 53 B2 35 34 32 37 32  |----._...S.54272|
00000140: 3A 20 20 20 20 20 20 20  20 20 20 20 8F 20 53 49  |:           . SI|
00000150: 44 20 53 54 41 52 54 20  41 44 44 52 45 53 53 00  |D START ADDRESS.|
00000160: A5 09 14 00 81 20 4A B2  30 20 A4 20 32 34 3A 20  |..... J.0 . 24: |
00000170: 97 20 53 AA 4A 2C 30 3A  20 82 3A 20 8F 20 53 54  |. S.J,0: .: . ST|
00000180: 41 52 54 20 42 59 20 53  45 54 54 49 4E 47 20 41  |ART BY SETTING A|
00000190: 4C 4C 20 53 49 44 20 52  45 47 49 53 54 45 52 53  |LL SID REGISTERS|
000001A0: 20 5A 45 52 4F 00 D9 09  1E 00 97 20 53 AA 35 2C  | ZERO...... S.5,|
000001B0: 31 36 AC 31 AA 35 3A 20  20 20 8F 20 53 45 54 20  |16.1.5:   . SET |
000001C0: 41 54 54 41 43 4B 2C 20  44 45 43 41 59 20 46 4F  |ATTACK, DECAY FO|
000001D0: 52 20 56 4F 49 43 45 20  31 00 04 0A 28 00 97 20  |R VOICE 1...(.. |
000001E0: 53 AA 36 2C 31 36 AC 31  32 AA 31 30 3A 20 8F 20  |S.6,16.12.10: . |
000001F0: 53 45 54 20 53 55 53 54  41 49 4E 2C 20 52 45 4C  |SET SUSTAIN, REL|
00000200: 45 41 53 45 00 25 0A 32  00 97 20 53 AA 32 34 2C  |EASE.%.2.. S.24,|
00000210: 38 3A 20 20 20 20 20 20  20 8F 20 53 45 54 20 56  |8:       . SET V|
00000220: 4F 4C 55 4D 45 00 2B 0A  3A 00 3A 00 4F 0A 3B 00  |OLUME.+.:.:.O.;.|
00000230: 8F 20 2D 2D 2D 2D 2D 20  4C 4F 4F 50 20 50 4C 41  |. ----- LOOP PLA|
00000240: 59 53 20 54 55 4E 45 3A  2D 2D 2D 2D 2D 2D 2D 00  |YS TUNE:-------.|
00000250: 8C 0A 3C 00 87 20 48 56  2C 4C 56 2C 44 55 3A 20  |..<.. HV,LV,DU: |
00000260: 20 20 20 20 8F 20 52 45  41 44 20 48 49 47 48 2C  |    . READ HIGH,|
00000270: 20 4C 4F 57 20 46 52 45  51 20 42 59 54 45 53 20  | LOW FREQ BYTES |
00000280: 41 4E 44 20 44 55 52 41  54 49 4F 4E 00 B8 0A 46  |AND DURATION...F|
00000290: 00 8B 20 48 56 B3 30 20  A7 20 80 3A 20 20 8F 20  |.. HV.0 . .:  . |
000002A0: 4E 45 47 41 54 49 56 45  20 56 41 4C 55 45 20 4D  |NEGATIVE VALUE M|
000002B0: 41 52 4B 53 20 45 4E 44  00 FB 0A 50 00 97 20 53  |ARKS END...P.. S|
000002C0: 2C 4C 56 3A 20 97 20 53  AA 31 2C 48 56 3A 20 8F  |,LV: . S.1,HV: .|
000002D0: 20 53 45 54 20 50 49 54  43 48 20 4F 46 20 4E 4F  | SET PITCH OF NO|
000002E0: 54 45 20 28 42 4F 54 48  20 42 59 54 45 53 20 4D  |TE (BOTH BYTES M|
000002F0: 55 53 54 20 42 45 20 53  45 54 29 00 1E 0B 5A 00  |UST BE SET)...Z.|
00000300: 97 20 53 AA 34 2C 31 37  3A 20 8F 20 47 41 54 45  |. S.4,17: . GATE|
00000310: 20 54 52 49 41 4E 47 4C  45 20 4E 4F 54 45 00 3F  | TRIANGLE NOTE.?|
00000320: 0B 64 00 81 20 44 B2 31  20 A4 20 33 AC 44 55 3A  |.d.. D.1 . 3.DU:|
00000330: 20 82 3A 8F 20 44 45 4C  41 59 20 4C 4F 4F 50 00  | .:. DELAY LOOP.|
00000340: 7D 0B 6E 00 97 20 53 AA  34 2C 31 36 3A 20 20 20  |}.n.. S.4,16:   |
00000350: 20 20 20 8F 20 47 41 54  45 20 4F 46 46 3B 20 53  |   . GATE OFF; S|
00000360: 54 41 52 54 20 52 45 4C  45 41 53 45 20 4F 46 20  |TART RELEASE OF |
00000370: 54 52 49 41 4E 47 4C 45  20 4E 4F 54 45 00 97 0B  |TRIANGLE NOTE...|
00000380: 78 00 81 20 44 B2 31 20  A4 20 33 AC 44 55 3A 20  |x.. D.1 . 3.DU: |
00000390: 82 3A 20 89 20 36 30 00  B2 0B C8 00 83 20 31 36  |.: . 60...... 16|
000003A0: 2C 31 39 35 2C 33 32 2C  20 31 38 2C 32 30 39 2C  |,195,32, 18,209,|
000003B0: 33 32 00 F3 0B D2 00 83  20 32 31 2C 33 31 2C 33  |32...... 21,31,3|
000003C0: 32 2C 20 32 35 2C 33 30  2C 33 32 2C 20 32 32 2C  |2, 25,30,32, 22,|
000003D0: 39 36 2C 33 32 2C 20 32  32 2C 39 36 2C 33 32 2C  |96,32, 22,96,32,|
000003E0: 20 32 38 2C 34 39 2C 33  32 2C 20 32 35 2C 33 30  | 28,49,32, 25,30|
000003F0: 2C 33 32 00 37 0C DC 00  83 20 32 35 2C 33 30 2C  |,32.7.... 25,30,|
00000400: 33 32 2C 20 33 33 2C 31  33 35 2C 33 32 2C 20 33  |32, 33,135,32, 3|
00000410: 31 2C 31 36 35 2C 33 32  2C 20 33 33 2C 31 33 35  |1,165,32, 33,135|
00000420: 2C 33 32 2C 20 32 35 2C  33 30 2C 33 32 2C 20 32  |,32, 25,30,32, 2|
00000430: 31 2C 33 31 2C 33 32 00  7A 0C E6 00 83 20 31 36  |1,31,32.z.... 16|
00000440: 2C 31 39 35 2C 33 32 2C  20 31 38 2C 32 30 39 2C  |,195,32, 18,209,|
00000450: 33 32 2C 20 32 31 2C 33  31 2C 33 32 2C 20 32 32  |32, 21,31,32, 22|
00000460: 2C 39 36 2C 33 32 2C 20  32 35 2C 33 30 2C 33 32  |,96,32, 25,30,32|
00000470: 2C 20 32 38 2C 34 39 2C  33 32 00 BD 0C F0 00 83  |, 28,49,32......|
00000480: 20 32 35 2C 33 30 2C 33  32 2C 20 32 32 2C 39 36  | 25,30,32, 22,96|
00000490: 2C 33 32 2C 20 32 31 2C  33 31 2C 33 32 2C 20 31  |,32, 21,31,32, 1|
000004A0: 38 2C 32 30 39 2C 33 32  2C 20 32 31 2C 33 31 2C  |8,209,32, 21,31,|
000004B0: 33 32 2C 20 31 36 2C 31  39 35 2C 33 32 00 04 0D  |32, 16,195,32...|
000004C0: FA 00 83 20 31 35 2C 32  31 30 2C 33 32 2C 20 31  |... 15,210,32, 1|
000004D0: 36 2C 31 39 35 2C 33 32  2C 20 31 38 2C 32 30 39  |6,195,32, 18,209|
000004E0: 2C 33 32 2C 20 31 32 2C  31 34 33 2C 33 32 2C 20  |,32, 12,143,32, |
000004F0: 31 35 2C 32 31 30 2C 33  32 2C 20 31 38 2C 32 30  |15,210,32, 18,20|
00000500: 39 2C 33 32 00 3C 0D 04  01 83 20 32 32 2C 39 36  |9,32.<.... 22,96|
00000510: 2C 33 32 2C 20 32 31 2C  33 31 2C 33 32 2C 20 31  |,32, 21,31,32, 1|
00000520: 38 2C 32 30 39 2C 33 32  2C 20 32 31 2C 33 31 2C  |8,209,32, 21,31,|
00000530: 39 36 2C 20 2D 31 2C 2D  31 2C 2D 31 00 00 00     |96, -1,-1,-1... |

..&.... * SHORTENED VERSION OF 13-4  *.,
...:.Q.... *  LINES 90, 110 CONTROL TIME
*.V.... *  OF ATTACK/DECAY/SUSTAIN,  *..
.... *  AND RELEASE.              *.....
. * TRY POKE S+4,33 AND ,32 FOR*...... *
 SAWTOOTH; OR MIX WAVEFORMS *...... * FO
R OTHER EFFECTS.         *.....:.4.... -
---- INITIALISE SID: -------._...S.54272
:           . SID START ADDRESS...... J.
0 . 24: . S.J,0: .: . START BY SETTING A
LL SID REGISTERS ZERO.Y.... S.5,16.1.5: 
  . SET ATTACK, DECAY FOR VOICE 1...(.. 
S.6,16.12.10: . SET SUSTAIN, RELEASE.%.2
.. S.24,8:       . SET VOLUME.+.:.:.O.;.
. ----- LOOP PLAYS TUNE:-------...<.. HV
,LV,DU:     . READ HIGH, LOW FREQ BYTES 
AND DURATION...F.. HV.0 . .:  . NEGATIVE
 VALUE MARKS END...P.. S,LV: . S.1,HV: .
 SET PITCH OF NOTE (BOTH BYTES MUST BE S
ET)...Z.. S.4,17: . GATE TRIANGLE NOTE.?
.D.. D.1 . 3.DU: .:. DELAY LOOP.}.N.. S.
4,16:      . GATE OFF; START RELEASE OF 
TRIANGLE NOTE...X.. D.1 . 3.DU: .: . 60.
..H.. 16,195,32, 18,209,32...R.. 21,31,3
2, 25,30,32, 22,96,32, 22,96,32, 28,49,3
2, 25,30,32.7.... 25,30,32, 33,135,32, 3
1,165,32, 33,135,32, 25,30,32, 21,31,32.
Z.... 16,195,32, 18,209,32, 21,31,32, 22
,96,32, 25,30,32, 28,49,32...... 25,30,3
2, 22,96,32, 21,31,32, 18,209,32, 21,31,
32, 16,195,32...... 15,210,32, 16,195,32
, 18,209,32, 12,143,32, 15,210,32, 18,20
9,32.<.... 22,96,32, 21,31,32, 18,209,32
, 21,31,96, -1,-1,-1...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL