13-2

FILE INFORMATION

FILENAME(S): 13-2

FILE TYPE(S): PRG

FILE SIZE: 1.5K

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

APPEARS ON: 2 disk(s)

FILE HASH

88b7655becf3e20b30678323aeb4ccb91fc481346b9b05ae2703bc20a54a3a41

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOTUS SOFT	13-2	PRG	DuncanTwain	26	16	DOWNLOAD FILE
PROG 64 WEST	13-2	PRG	DuncanTwain	26	16	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 26 08 00 00 8F 20  2A 20 50 52 4F 47 52 41  |..&.... * PROGRA|
00000010: 4D 20 31 33 2D 32 3A 2D  20 4D 41 4E 49 50 55 4C  |M 13-2:- MANIPUL|
00000020: 41 54 45 53 20 2A 00 4B  08 01 00 8F 20 2A 20 53  |ATES *.K.... * S|
00000030: 49 44 27 53 20 57 52 49  54 45 2D 4F 4E 4C 59 20  |ID'S WRITE-ONLY |
00000040: 52 45 47 49 53 54 45 52  53 20 2A 00 7D 08 02 00  |REGISTERS *.}...|
00000050: 83 20 22 46 52 45 51 20  43 4F 4E 54 52 4F 4C 20  |. "FREQ CONTROL |
00000060: 4C 4F 20 20 12 56 4F 49  43 45 20 31 22 2C 46 52  |LO  .VOICE 1",FR|
00000070: 45 51 20 43 4F 4E 54 52  4F 4C 20 48 49 00 AE 08  |EQ CONTROL HI...|
00000080: 03 00 83 20 50 55 4C 53  45 20 57 49 44 54 48 20  |... PULSE WIDTH |
00000090: 42 49 54 53 20 37 2D 30  2C 50 55 4C 53 45 20 57  |BITS 7-0,PULSE W|
000000A0: 49 44 54 48 20 58 58 58  58 20 31 31 2D 38 00 D2  |IDTH XXXX 11-8..|
000000B0: 08 04 00 83 20 22 4E 20  CF CC A5 CE A5 CE CD 20  |.... "N ....... |
000000C0: 54 53 54 20 52 49 4E 47  20 53 59 4E 20 47 41 54  |TST RING SYN GAT|
000000D0: 45 22 00 F7 08 05 00 83  20 41 54 54 41 43 4B 20  |E"...... ATTACK |
000000E0: 20 44 45 43 41 59 2C 20  53 55 53 54 41 49 4E 20  | DECAY, SUSTAIN |
000000F0: 52 45 4C 45 41 53 45 00  29 09 06 00 83 20 22 46  |RELEASE.).... "F|
00000100: 52 45 51 20 43 4F 4E 54  52 4F 4C 20 4C 4F 20 20  |REQ CONTROL LO  |
00000110: 12 56 4F 49 43 45 20 32  22 2C 46 52 45 51 20 43  |.VOICE 2",FREQ C|
00000120: 4F 4E 54 52 4F 4C 20 48  49 00 5A 09 07 00 83 20  |ONTROL HI.Z.... |
00000130: 50 55 4C 53 45 20 57 49  44 54 48 20 42 49 54 53  |PULSE WIDTH BITS|
00000140: 20 37 2D 30 2C 50 55 4C  53 45 20 57 49 44 54 48  | 7-0,PULSE WIDTH|
00000150: 20 58 58 58 58 20 31 31  2D 38 00 7E 09 08 00 83  | XXXX 11-8.~....|
00000160: 20 22 4E 20 CF CC A5 CE  A5 CE CD 20 54 53 54 20  | "N ....... TST |
00000170: 52 49 4E 47 20 53 59 4E  20 47 41 54 45 22 00 A3  |RING SYN GATE"..|
00000180: 09 09 00 83 20 41 54 54  41 43 4B 20 20 44 45 43  |.... ATTACK  DEC|
00000190: 41 59 2C 20 53 55 53 54  41 49 4E 20 52 45 4C 45  |AY, SUSTAIN RELE|
000001A0: 41 53 45 00 D5 09 0A 00  83 20 22 46 52 45 51 20  |ASE...... "FREQ |
000001B0: 43 4F 4E 54 52 4F 4C 20  4C 4F 20 20 12 56 4F 49  |CONTROL LO  .VOI|
000001C0: 43 45 20 33 22 2C 46 52  45 51 20 43 4F 4E 54 52  |CE 3",FREQ CONTR|
000001D0: 4F 4C 20 48 49 00 06 0A  0B 00 83 20 50 55 4C 53  |OL HI...... PULS|
000001E0: 45 20 57 49 44 54 48 20  42 49 54 53 20 37 2D 30  |E WIDTH BITS 7-0|
000001F0: 2C 50 55 4C 53 45 20 57  49 44 54 48 20 58 58 58  |,PULSE WIDTH XXX|
00000200: 58 20 31 31 2D 38 00 2A  0A 0C 00 83 20 22 4E 20  |X 11-8.*.... "N |
00000210: CF CC A5 CE A5 CE CD 20  54 53 54 20 52 49 4E 47  |....... TST RING|
00000220: 20 53 59 4E 20 47 41 54  45 22 00 4F 0A 0D 00 83  | SYN GATE".O....|
00000230: 20 41 54 54 41 43 4B 20  20 44 45 43 41 59 2C 20  | ATTACK  DECAY, |
00000240: 53 55 53 54 41 49 4E 20  52 45 4C 45 41 53 45 00  |SUSTAIN RELEASE.|
00000250: 83 0A 10 00 83 20 22 58  58 58 58 58 20 46 43 32  |..... "XXXXX FC2|
00000260: 2D 46 43 30 20 20 12 46  49 4C 54 45 52 22 2C 46  |-FC0  .FILTER",F|
00000270: 49 4C 54 45 52 20 42 49  54 53 20 46 43 31 30 2D  |ILTER BITS FC10-|
00000280: 46 43 33 00 B9 0A 12 00  83 20 52 45 53 4F 4E 41  |FC3...... RESONA|
00000290: 4E 43 45 20 46 58 20 46  33 20 46 32 20 46 31 2C  |NCE FX F3 F2 F1,|
000002A0: 20 56 33 4F 46 46 20 48  50 20 42 50 20 4C 50 20  | V3OFF HP BP LP |
000002B0: 56 4F 4C 33 2D 56 4F 4C  30 00 F2 0A 14 00 86 20  |VOL3-VOL0...... |
000002C0: 52 56 28 32 34 29 3A 20  8F 20 4D 55 53 54 20 53  |RV(24): . MUST S|
000002D0: 54 4F 52 45 20 57 52 49  54 45 2D 4F 4E 4C 59 20  |TORE WRITE-ONLY |
000002E0: 52 45 47 49 53 54 45 52  53 20 43 4F 4E 54 45 4E  |REGISTERS CONTEN|
000002F0: 54 53 00 2A 0B 1E 00 52  56 28 31 29 B2 33 32 3A  |TS.*...RV(1).32:|
00000300: 20 52 56 28 34 29 B2 33  33 3A 20 52 56 28 36 29  | RV(4).33: RV(6)|
00000310: B2 31 33 36 3A 20 52 56  28 32 34 29 B2 38 3A 20  |.136: RV(24).8: |
00000320: 8F 20 53 45 54 20 52 45  47 53 00 4D 0B 28 00 99  |. SET REGS.M.(..|
00000330: 20 22 93 05 22 3B 3A 20  81 20 59 B2 30 20 A4 20  | "..";: . Y.0 . |
00000340: 32 34 3A 20 81 20 58 B2  30 20 A4 20 37 00 74 0B  |24: . X.0 . 7.t.|
00000350: 32 00 99 20 C7 28 34 39  20 AA 20 28 28 52 56 28  |2.. .(49 . ((RV(|
00000360: 59 29 20 AF 20 28 32 AE  28 37 AB 58 29 29 29 B2  |Y) . (2.(7.X))).|
00000370: 30 29 29 3B 00 8B 0B 3C  00 82 3A 20 97 20 35 34  |0));...<..: . 54|
00000380: 32 37 32 AA 59 2C 52 56  28 59 29 00 AA 0B 46 00  |272.Y,RV(Y)...F.|
00000390: 87 20 4D 24 3A 20 99 20  59 3B 20 4D 24 3B 3A 20  |. M$: . Y; M$;: |
000003A0: 8B 20 59 B3 32 34 20 A7  20 99 00 B2 0B 50 00 82  |. Y.24 . ....P..|
000003B0: 20 59 00 DE 0B 64 00 58  B2 30 3A 20 59 B2 30 3A  | Y...d.X.0: Y.0:|
000003C0: 20 4F 4C B2 35 35 32 39  36 3A 20 89 20 31 31 30  | OL.55296: . 110|
000003D0: 30 3A 20 8F 20 43 4F 4C  4F 52 20 52 41 4D 00 04  |0: . COLOR RAM..|
000003E0: 0C E7 03 8F 2D 2D 2D 2D  2D 43 55 52 53 4F 52 20  |....-----CURSOR |
000003F0: 4B 45 59 20 4F 52 20 53  50 41 43 45 42 41 52 3A  |KEY OR SPACEBAR:|
00000400: 2D 2D 2D 2D 00 1D 0C E8  03 A1 20 58 24 3A 20 8B  |----...... X$: .|
00000410: 20 58 24 B2 22 22 20 A7  20 31 30 30 30 00 3B 0C  | X$."" . 1000.;.|
00000420: F2 03 8B 20 58 24 B2 22  20 22 20 A7 20 8D 20 32  |... X$." " . . 2|
00000430: 30 30 30 3A 20 89 20 31  30 30 30 00 5E 0C FC 03  |000: . 1000.^...|
00000440: 8B 20 58 24 B2 22 1D 22  20 A7 20 58 B2 58 AA 31  |. X$."." . X.X.1|
00000450: 3A 20 8B 20 58 B2 20 38  20 A7 20 58 B2 30 00 81  |: . X. 8 . X.0..|
00000460: 0C 06 04 8B 20 58 24 B2  22 9D 22 20 A7 20 58 B2  |.... X$."." . X.|
00000470: 58 AB 31 3A 20 8B 20 58  B2 AB 31 20 A7 20 58 B2  |X.1: . X..1 . X.|
00000480: 37 00 A4 0C 10 04 8B 20  58 24 B2 22 11 22 20 A7  |7...... X$."." .|
00000490: 20 59 B2 59 AA 31 3A 20  8B 20 59 B2 32 35 20 A7  | Y.Y.1: . Y.25 .|
000004A0: 20 59 B2 30 00 C8 0C 1A  04 8B 20 58 24 B2 22 91  | Y.0...... X$.".|
000004B0: 22 20 A7 20 59 B2 59 AB  31 3A 20 8B 20 59 B2 AB  |" . Y.Y.1: . Y..|
000004C0: 31 20 A7 20 59 B2 32 34  00 FB 0C 4C 04 4E 57 B2  |1 . Y.24...L.NW.|
000004D0: 35 35 32 39 36 AA 58 AA  59 AC 34 30 3A 20 97 20  |55296.X.Y.40: . |
000004E0: 4F 4C 2C 31 3A 20 97 20  4E 57 2C 34 3A 20 4F 4C  |OL,1: . NW,4: OL|
000004F0: B2 4E 57 3A 20 89 20 31  30 30 30 00 33 0D CF 07  |.NW: . 1000.3...|
00000500: 8F 2D 2D 2D 2D 2D 41 4C  54 45 52 20 30 20 4F 52  |.-----ALTER 0 OR|
00000510: 20 31 2C 20 52 45 53 45  54 20 52 56 28 29 2C 20  | 1, RESET RV(), |
00000520: 26 20 53 45 54 20 53 49  44 20 52 45 47 3A 2D 2D  |& SET SID REG:--|
00000530: 2D 2D 2D 00 59 0D D0 07  53 50 B2 31 30 32 34 AA  |---.Y...SP.1024.|
00000540: 58 AA 59 AC 34 30 3A 20  8B 20 C2 28 53 50 29 B2  |X.Y.40: . .(SP).|
00000550: 34 38 20 89 20 32 30 32  30 00 8C 0D DA 07 97 20  |48 . 2020...... |
00000560: 53 50 2C C6 28 22 30 22  29 3A 20 52 56 28 59 29  |SP,.("0"): RV(Y)|
00000570: B2 52 56 28 59 29 20 AF  20 28 A8 20 32 AE 28 37  |.RV(Y) . (. 2.(7|
00000580: AB 58 29 29 3A 20 89 20  32 30 33 30 00 B4 0D E4  |.X)): . 2030....|
00000590: 07 97 20 53 50 2C C6 28  22 31 22 29 3A 20 52 56  |.. SP,.("1"): RV|
000005A0: 28 59 29 B2 52 56 28 59  29 20 B0 20 20 32 AE 28  |(Y).RV(Y) .  2.(|
000005B0: 37 AB 58 29 00 CB 0D EE  07 97 20 35 34 32 37 32  |7.X)...... 54272|
000005C0: AA 59 2C 52 56 28 59 29  3A 20 8E 00 00 00        |.Y,RV(Y): ....  |

..&.... * PROGRAM 13-2:- MANIPULATES *.K
.... * SID'S WRITE-ONLY REGISTERS *.}...
. "FREQ CONTROL LO  .VOICE 1",FREQ CONTR
OL HI...... PULSE WIDTH BITS 7-0,PULSE W
IDTH XXXX 11-8.R.... "N OL.N.NM TST RING
 SYN GATE"...... ATTACK  DECAY, SUSTAIN 
RELEASE.).... "FREQ CONTROL LO  .VOICE 2
",FREQ CONTROL HI.Z.... PULSE WIDTH BITS
 7-0,PULSE WIDTH XXXX 11-8.~.... "N OL.N
.NM TST RING SYN GATE"...... ATTACK  DEC
AY, SUSTAIN RELEASE.U.... "FREQ CONTROL 
LO  .VOICE 3",FREQ CONTROL HI...... PULS
E WIDTH BITS 7-0,PULSE WIDTH XXXX 11-8.*
.... "N OL.N.NM TST RING SYN GATE".O....
 ATTACK  DECAY, SUSTAIN RELEASE...... "X
XXXX FC2-FC0  .FILTER",FILTER BITS FC10-
FC3...... RESONANCE FX F3 F2 F1, V3OFF H
P BP LP VOL3-VOL0...... RV(24): . MUST S
TORE WRITE-ONLY REGISTERS CONTENTS.*...R
V(1).32: RV(4).33: RV(6).136: RV(24).8: 
. SET REGS.M.(.. "..";: . Y.0 . 24: . X.
0 . 7.T.2.. G(49 . ((RV(Y) . (2.(7.X))).
0));...<..: . 54272.Y,RV(Y)...F.. M$: . 
Y; M$;: . Y.24 . ....P.. Y...D.X.0: Y.0:
 OL.55296: . 1100: . COLOR RAM......----
-CURSOR KEY OR SPACEBAR:----...... X$: .
 X$."" . 1000.;.... X$." " . . 2000: . 1
000.^.... X$."." . X.X.1: . X. 8 . X.0..
.... X$."." . X.X.1: . X..1 . X.7...... 
X$."." . Y.Y.1: . Y.25 . Y.0.H.... X$.".
" . Y.Y.1: . Y..1 . Y.24...L.NW.55296.X.
Y.40: . OL,1: . NW,4: OL.NW: . 1000.3.O.
.-----ALTER 0 OR 1, RESET RV(), & SET SI
D REG:-----.Y.P.SP.1024.X.Y.40: . B(SP).
48 . 2020...Z.. SP,F("0"): RV(Y).RV(Y) .
 (. 2.(7.X)): . 2030...... SP,F("1"): RV
(Y).RV(Y) .  2.(7.X).K.... 54272.Y,RV(Y)
: ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL