BACH SAD.S

FILE INFORMATION

FILENAME(S): BACH SAD.S

FILE TYPE(S): PRG

FILE SIZE: 3K

FIRST SEEN: 2025-10-19 22:49:38

APPEARS ON: 1 disk(s)

FILE HASH

589a94cbc8d4297b0548e1e780f92ee1a0dbcea074ea7d1cc8dac2ed5039caf9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MICRO MANIAC	BACH SAD.S	PRG	Radd Maxx	27	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1B 08 64 00 9E 20  37 30 30 3A 2E 4F 50 54  |....d.. 700:.OPT|
00000010: 20 4F 4F 3A AC B2 24 43  30 30 30 00 3B 08 69 00  | OO:..$C000.;.i.|
00000020: 3B 20 AC AC AC AC AC AC  AC AC AC AC AC AC AC AC  |; ..............|
00000030: AC AC AC AC AC AC AC AC  AC AC AC 00 5B 08 6E 00  |............[.n.|
00000040: 3B 20 AC 20 20 20 20 20  20 20 20 20 20 20 20 20  |; .             |
00000050: 20 20 20 20 20 20 20 20  20 20 AC 00 7A 08 73 00  |          ..z.s.|
00000060: 3B 20 AC 20 20 4D 4C 20  53 4F 55 4E 44 20 20 47  |; .  ML SOUND  G|
00000070: 45 4E 45 52 41 A4 52 20  20 AC 00 9A 08 78 00 3B  |ENERA.R  ....x.;|
00000080: 20 AC 20 20 20 53 41 44  20 53 4F 55 4E 44 49 4E  | .   SAD SOUNDIN|
00000090: 47 20 42 41 43 48 20 20  20 AC 00 B9 08 7D 00 3B  |G BACH   ....}.;|
000000A0: 20 AC 20 20 20 20 20 52  4F 42 45 52 54 20 41 4C  | .     ROBERT AL|
000000B0: 91 53 4F 20 20 20 20 20  AC 00 D9 08 82 00 3B 20  |.SO     ......; |
000000C0: AC 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000000D0: 20 20 20 20 20 20 20 20  AC 00 F9 08 87 00 3B 20  |        ......; |
000000E0: AC AC AC AC AC AC AC AC  AC AC AC AC AC AC AC AC  |................|
000000F0: AC AC AC AC AC AC AC AC  AC 00 FF 08 8C 00 3B 00  |..............;.|
00000100: 0D 09 91 00 3B 20 45 51  55 41 54 45 53 00 13 09  |....; EQUATES...|
00000110: 96 00 3B 00 26 09 9B 00  53 49 47 56 4F 4C 20 B2  |..;.&...SIGVOL .|
00000120: 20 24 44 34 31 38 00 39  09 A0 00 41 54 44 43 59  | $D418.9...ATDCY|
00000130: 31 20 B2 20 24 44 34 30  35 00 4C 09 A5 00 53 55  |1 . $D405.L...SU|
00000140: 52 45 4C 31 20 B2 20 24  44 34 30 36 00 5F 09 AA  |REL1 . $D406._..|
00000150: 00 56 43 52 45 47 31 20  B2 20 24 44 34 30 34 00  |.VCREG1 . $D404.|
00000160: 70 09 AF 00 B8 4C 4F 31  20 B2 20 24 44 34 30 30  |p....LO1 . $D400|
00000170: 00 81 09 B4 00 B8 48 49  31 20 B2 20 24 44 34 30  |......HI1 . $D40|
00000180: 31 00 87 09 B9 00 3B 00  9B 09 BE 00 3B 20 49 4E  |1.....;.....; IN|
00000190: 49 54 49 41 4C 49 5A 41  54 49 91 00 A1 09 C3 00  |ITIALIZATI......|
000001A0: 3B 00 C7 09 C8 00 4C 44  41 20 23 24 30 46 20 20  |;.....LDA #$0F  |
000001B0: 20 20 3B 53 45 54 20 54  48 45 20 56 4F 4C 55 4D  |  ;SET THE VOLUM|
000001C0: 45 20 A4 20 31 35 2E 00  E9 09 CD 00 53 54 41 20  |E . 15......STA |
000001D0: 53 49 47 56 4F 4C 20 20  3B 4C 49 4B 45 20 97 20  |SIGVOL  ;LIKE . |
000001E0: 35 34 32 39 36 2C 31 35  2E 00 EF 09 D2 00 3B 00  |54296,15......;.|
000001F0: 16 0A D7 00 4C 44 41 20  23 24 30 39 20 20 20 20  |....LDA #$09    |
00000200: 3B 53 45 54 20 41 54 54  41 43 4B AD 44 45 43 41  |;SET ATTACK.DECA|
00000210: 59 20 A4 20 39 2E 00 37  0A DC 00 53 54 41 20 41  |Y . 9..7...STA A|
00000220: 54 44 43 59 31 20 20 3B  4C 49 4B 45 20 97 20 35  |TDCY1  ;LIKE . 5|
00000230: 34 32 37 37 2C 39 2E 00  3D 0A E1 00 3B 00 64 0A  |4277,9..=...;.d.|
00000240: E6 00 4C 44 41 20 23 24  31 31 20 20 20 20 3B 53  |..LDA #$11    ;S|
00000250: 55 53 54 41 49 4E AD 52  45 4C 45 41 53 45 20 A4  |USTAIN.RELEASE .|
00000260: 20 31 37 2E 00 86 0A EB  00 53 54 41 20 53 55 52  | 17......STA SUR|
00000270: 45 4C 31 20 20 3B 4C 49  4B 45 20 97 20 35 34 32  |EL1  ;LIKE . 542|
00000280: 37 38 2C 31 37 2E 00 8C  0A F0 00 3B 00 B3 0A F5  |78,17......;....|
00000290: 00 4C 44 41 20 23 24 31  31 20 20 20 20 3B 53 45  |.LDA #$11    ;SE|
000002A0: 4C 45 43 54 20 54 52 49  41 4E 47 4C 45 20 57 41  |LECT TRIANGLE WA|
000002B0: 56 45 2E 00 D5 0A FA 00  53 54 41 20 56 43 52 45  |VE......STA VCRE|
000002C0: 47 31 20 20 3B 4C 49 4B  45 20 97 20 35 34 32 37  |G1  ;LIKE . 5427|
000002D0: 36 2C 31 37 2E 00 DB 0A  FF 00 3B 00 01 0B 04 01  |6,17......;.....|
000002E0: 4C 44 58 20 23 24 30 30  20 20 20 20 3B 5A 45 52  |LDX #$00    ;ZER|
000002F0: 4F 20 4F 55 54 20 54 48  45 20 4F 46 46 53 45 54  |O OUT THE OFFSET|
00000300: 2E 00 07 0B 09 01 3B 00  28 0B 0E 01 3B 20 4D 41  |......;.(...; MA|
00000310: 49 4E 20 4C 4F 4F 50 2C  20 A1 53 20 AF 20 50 4C  |IN LOOP, .S . PL|
00000320: 41 59 53 20 A8 45 53 2E  00 2E 0B 13 01 3B 00 3B  |AYS .ES......;.;|
00000330: 0B 18 01 4C 4F 4F 50 20  B2 20 AC 00 59 0B 1D 01  |...LOOP . ..Y...|
00000340: 4C 44 41 20 A8 45 53 2C  58 20 3B A1 20 54 48 45  |LDA .ES,X ;. THE|
00000350: 20 48 49 20 C5 55 45 20  AF 00 7D 0B 22 01 53 54  | HI .UE ..}.".ST|
00000360: 41 20 B8 48 49 31 20 20  3B 53 A4 52 45 20 49 54  |A .HI1  ;S.RE IT|
00000370: 20 49 4E 20 52 45 47 49  53 54 45 52 2E 00 9F 0B  | IN REGISTER....|
00000380: 27 01 49 4E 58 20 20 20  20 20 20 20 20 20 3B 49  |'.INX         ;I|
00000390: 4E 43 52 45 41 53 45 20  4F 46 46 53 45 54 2E 00  |NCREASE OFFSET..|
000003A0: A5 0B 2C 01 3B 00 C4 0B  31 01 4C 44 41 20 A8 45  |..,.;...1.LDA .E|
000003B0: 53 2C 58 20 3B A1 20 4C  4F 20 C5 55 45 20 AF 20  |S,X ;. LO .UE . |
000003C0: 53 A4 52 45 00 E3 0B 36  01 53 54 41 20 B8 4C 4F  |S.RE...6.STA .LO|
000003D0: 31 20 20 3B 49 54 20 49  4E 20 52 45 47 49 53 54  |1  ;IT IN REGIST|
000003E0: 45 52 2E 00 0B 0C 3B 01  49 4E 58 20 20 20 20 20  |ER....;.INX     |
000003F0: 20 20 20 20 3B 49 4E 43  52 45 41 53 45 20 4F 46  |    ;INCREASE OF|
00000400: 46 53 45 54 20 41 47 41  49 4E 2E 00 11 0C 40 01  |FSET AGAIN....@.|
00000410: 3B 00 32 0C 45 01 4C 44  41 20 A8 45 53 2C 58 20  |;.2.E.LDA .ES,X |
00000420: 3B A1 20 54 48 45 20 44  55 52 41 54 49 91 20 C5  |;. THE DURATI. .|
00000430: 55 45 00 51 0C 4A 01 53  54 41 20 41 94 20 20 20  |UE.Q.J.STA A.   |
00000440: 3B AF 20 53 A4 52 45 20  49 54 20 49 4E 20 41 94  |;. S.RE IT IN A.|
00000450: 2E 00 77 0C 4F 01 49 4E  58 20 20 20 20 20 20 20  |..w.O.INX       |
00000460: 20 20 3B 49 4E 43 52 45  41 53 45 20 54 48 45 20  |  ;INCREASE THE |
00000470: 4F 46 46 53 45 54 2E 00  7D 0C 54 01 3B 00 9C 0C  |OFFSET..}.T.;...|
00000480: 59 01 53 54 58 20 58 94  20 20 20 3B 94 20 54 48  |Y.STX X.   ;. TH|
00000490: 45 20 4F 46 46 53 45 54  20 C5 55 45 00 BE 0C 5E  |E OFFSET .UE...^|
000004A0: 01 4A 53 52 20 44 45 4C  41 59 20 20 20 3B AF 20  |.JSR DELAY   ;. |
000004B0: CB 20 A4 20 54 48 45 20  44 45 4C 41 59 2E 00 C4  |. . THE DELAY...|
000004C0: 0C 63 01 3B 00 EA 0C 68  01 4C 44 41 20 23 24 31  |.c.;...h.LDA #$1|
000004D0: 31 20 20 20 20 3B 52 45  53 45 54 20 54 52 49 41  |1    ;RESET TRIA|
000004E0: 4E 47 4C 45 20 57 41 56  45 2E 00 0F 0D 6D 01 53  |NGLE WAVE....m.S|
000004F0: 54 41 20 56 43 52 45 47  31 20 20 3B 44 45 4C 41  |TA VCREG1  ;DELA|
00000500: 59 20 54 55 52 4E 53 20  49 54 20 4F 46 46 2E 00  |Y TURNS IT OFF..|
00000510: 15 0D 72 01 3B 00 35 0D  77 01 4C 44 58 20 58 94  |..r.;.5.w.LDX X.|
00000520: 20 20 20 3B A1 20 54 48  45 20 4F 46 46 53 45 54  |   ;. THE OFFSET|
00000530: 20 C5 55 45 2E 00 51 0D  7C 01 43 50 58 20 23 24  | .UE..Q.|.CPX #$|
00000540: 36 30 20 20 20 20 3B 22  49 53 20 49 54 20 39 36  |60    ;"IS IT 96|
00000550: 3F 00 74 0D 81 01 42 4E  45 20 4C 4F 4F 50 20 20  |?.t...BNE LOOP  |
00000560: 20 20 3B 4E 4F 2C 20 A7  20 4C 4F 4F 50 20 41 47  |  ;NO, . LOOP AG|
00000570: 41 49 4E 2E 00 91 0D 86  01 4A 4D 50 20 80 20 20  |AIN......JMP .  |
00000580: 20 20 20 3B 59 45 53 2C  20 A7 20 CB 20 A4 20 80  |   ;YES, . . . .|
00000590: 2E 00 97 0D 8B 01 3B 00  B8 0D 90 01 3B 20 44 45  |......;.....; DE|
000005A0: 4C 41 59 20 4C 4F 4F 50  20 55 53 45 44 20 81 20  |LAY LOOP USED . |
000005B0: 44 55 52 41 54 49 91 2E  00 BE 0D 95 01 3B 00 CC  |DURATI.......;..|
000005C0: 0D 9A 01 44 45 4C 41 59  20 B2 20 AC 00 F0 0D 9F  |...DELAY . .....|
000005D0: 01 4C 44 59 20 23 24 30  30 20 20 20 20 3B 5A 45  |.LDY #$00    ;ZE|
000005E0: 52 4F 20 54 48 45 20 2E  59 20 4F 46 46 53 45 54  |RO THE .Y OFFSET|
000005F0: 00 F6 0D A4 01 3B 00 18  0E A9 01 53 45 54 20 4C  |.....;.....SET L|
00000600: 44 58 20 23 24 30 30 3B  AF 20 54 48 45 20 2E 58  |DX #$00;. THE .X|
00000610: 20 4F 46 46 53 45 54 2E  00 39 0E AE 01 50 4C 41  | OFFSET..9...PLA|
00000620: 59 20 49 4E 58 20 20 20  20 3B 49 4E 43 52 45 41  |Y INX    ;INCREA|
00000630: 53 45 20 54 48 45 20 2E  58 00 58 0E B3 01 43 50  |SE THE .X.X...CP|
00000640: 58 20 23 24 46 46 20 20  20 20 3B 22 44 4F 45 53  |X #$FF    ;"DOES|
00000650: 20 2E 58 3D 32 35 35 3F  00 79 0E B8 01 42 4E 45  | .X=255?.y...BNE|
00000660: 20 50 4C 41 59 20 20 20  20 3B 4E 4F 2C 20 A7 20  | PLAY    ;NO, . |
00000670: CB 20 A4 20 50 4C 41 59  2E 00 7F 0E BD 01 3B 00  |. . PLAY......;.|
00000680: A1 0E C2 01 49 4E 59 20  20 20 20 20 20 20 20 20  |....INY         |
00000690: 3B 59 45 53 2C 20 49 4E  43 52 45 41 53 45 20 2E  |;YES, INCREASE .|
000006A0: 59 00 C0 0E C7 01 43 50  59 20 23 24 37 38 20 20  |Y.....CPY #$78  |
000006B0: 20 20 3B 22 44 4F 45 53  20 2E 59 3D 31 32 30 3F  |  ;"DOES .Y=120?|
000006C0: 00 E0 0E CC 01 42 4E 45  20 53 45 54 20 20 20 20  |.....BNE SET    |
000006D0: 20 3B 4E 4F 2C 20 A7 20  CB 20 A4 20 53 45 54 2E  | ;NO, . . . SET.|
000006E0: 00 E6 0E D1 01 3B 00 0A  0F D6 01 44 45 43 20 41  |.....;.....DEC A|
000006F0: 94 20 20 20 3B 59 45 53  2C 44 45 43 52 45 41 53  |.   ;YES,DECREAS|
00000700: 45 20 44 55 52 41 54 49  91 2E 00 27 0F DB 01 4C  |E DURATI...'...L|
00000710: 44 41 20 41 94 20 20 20  3B A1 20 44 55 52 41 54  |DA A.   ;. DURAT|
00000720: 49 91 20 C5 55 45 2E 00  47 0F E0 01 42 4E 45 20  |I. .UE..G...BNE |
00000730: 44 45 4C 41 59 20 20 20  3B 8B 20 B3 B1 30 20 A7  |DELAY   ;. ..0 .|
00000740: 20 44 45 4C 41 59 2E 00  4D 0F E5 01 3B 00 72 0F  | DELAY..M...;.r.|
00000750: EA 01 4C 44 41 20 23 24  31 30 20 20 20 20 3B 53  |..LDA #$10    ;S|
00000760: 49 C3 43 45 20 53 4F 55  4E 44 20 42 59 20 53 45  |I.CE SOUND BY SE|
00000770: 54 AB 00 93 0F EF 01 53  54 41 20 56 43 52 45 47  |T......STA VCREG|
00000780: 31 20 20 3B 54 49 4E 47  20 42 49 54 20 30 20 4F  |1  ;TING BIT 0 O|
00000790: 46 46 2E 00 B0 0F F4 01  52 54 53 20 20 20 20 20  |FF......RTS     |
000007A0: 20 20 20 20 3B 8E 20 A4  20 43 41 4C 4C 45 52 2E  |    ;. . CALLER.|
000007B0: 00 B6 0F F9 01 3B 00 D9  0F FE 01 80 20 4C 44 41  |.....;...... LDA|
000007C0: 20 23 24 30 30 3B 5A 45  52 4F 20 41 4C 4C 20 52  | #$00;ZERO ALL R|
000007D0: 45 47 49 53 54 45 52 53  2E 00 F4 0F 03 02 53 54  |EGISTERS......ST|
000007E0: 41 20 56 43 52 45 47 31  20 20 3B 97 20 35 34 32  |A VCREG1  ;. 542|
000007F0: 37 36 2C 30 00 0F 10 08  02 53 54 41 20 41 54 44  |76,0.....STA ATD|
00000800: 43 59 31 20 20 3B 97 20  35 34 32 37 37 2C 30 00  |CY1  ;. 54277,0.|
00000810: 2A 10 0D 02 53 54 41 20  53 55 52 45 4C 31 20 20  |*...STA SUREL1  |
00000820: 3B 97 20 35 34 32 37 38  2C 30 00 43 10 12 02 53  |;. 54278,0.C...S|
00000830: 54 41 20 B8 4C 4F 31 20  20 3B 97 20 35 34 32 37  |TA .LO1  ;. 5427|
00000840: 32 2C 30 00 5C 10 17 02  53 54 41 20 B8 48 49 31  |2,0.\...STA .HI1|
00000850: 20 20 3B 97 20 35 34 32  37 33 2C 30 00 77 10 1C  |  ;. 54273,0.w..|
00000860: 02 53 54 41 20 53 49 47  56 4F 4C 20 20 3B 97 20  |.STA SIGVOL  ;. |
00000870: 35 34 32 39 36 2C 30 00  94 10 21 02 52 54 53 20  |54296,0...!.RTS |
00000880: 20 20 20 20 20 20 20 20  3B 8E 20 A4 20 43 41 4C  |        ;. . CAL|
00000890: 4C 45 52 2E 00 9A 10 26  02 3B 00 B0 10 2B 02 3B  |LER....&.;...+.;|
000008A0: 20 54 45 4D 50 B0 41 52  59 20 53 A4 52 41 47 45  | TEMP.ARY S.RAGE|
000008B0: 00 B6 10 30 02 3B 00 C7  10 35 02 58 94 20 2E 42  |...0.;...5.X. .B|
000008C0: 59 54 45 20 24 30 30 00  D8 10 3A 02 41 94 20 2E  |YTE $00...:.A. .|
000008D0: 42 59 54 45 20 24 30 30  00 DE 10 3F 02 3B 00 FE  |BYTE $00...?.;..|
000008E0: 10 44 02 3B 20 48 49 2C  20 4C 4F 20 AF 20 52 45  |.D.; HI, LO . RE|
000008F0: 4C 41 54 49 56 45 20 44  55 52 41 54 49 91 00 04  |LATIVE DURATI...|
00000900: 11 49 02 3B 00 10 11 4E  02 A8 45 53 20 B2 20 AC  |.I.;...N..ES . .|
00000910: 00 26 11 53 02 2E 42 59  54 45 20 24 33 33 2C 24  |.&.S..BYTE $33,$|
00000920: 36 31 2C 24 30 32 00 3C  11 58 02 2E 42 59 54 45  |61,$02.<.X..BYTE|
00000930: 20 24 32 32 2C 24 34 42  2C 24 30 31 00 52 11 5D  | $22,$4B,$01.R.]|
00000940: 02 2E 42 59 54 45 20 24  32 36 2C 24 37 45 2C 24  |..BYTE $26,$7E,$|
00000950: 30 31 00 68 11 62 02 2E  42 59 54 45 20 24 32 37  |01.h.b..BYTE $27|
00000960: 2C 24 44 46 2C 24 30 31  00 7E 11 67 02 2E 42 59  |,$DF,$01.~.g..BY|
00000970: 54 45 20 24 32 44 2C 24  43 36 2C 24 30 31 00 94  |TE $2D,$C6,$01..|
00000980: 11 6C 02 2E 42 59 54 45  20 24 33 33 2C 24 36 31  |.l..BYTE $33,$61|
00000990: 2C 24 30 32 00 AA 11 71  02 2E 42 59 54 45 20 24  |,$02...q..BYTE $|
000009A0: 32 32 2C 24 34 42 2C 24  30 32 00 C0 11 76 02 2E  |22,$4B,$02...v..|
000009B0: 42 59 54 45 20 24 32 32  2C 24 34 42 2C 24 30 32  |BYTE $22,$4B,$02|
000009C0: 00 D6 11 7B 02 2E 42 59  54 45 20 24 33 35 2C 24  |...{..BYTE $35,$|
000009D0: 33 39 2C 24 30 32 00 EC  11 80 02 2E 42 59 54 45  |39,$02......BYTE|
000009E0: 20 24 32 44 2C 24 43 36  2C 24 30 31 00 02 12 85  | $2D,$C6,$01....|
000009F0: 02 2E 42 59 54 45 20 24  33 33 2C 24 36 31 2C 24  |..BYTE $33,$61,$|
00000A00: 30 31 00 18 12 8A 02 2E  42 59 54 45 20 24 33 35  |01......BYTE $35|
00000A10: 2C 24 33 39 2C 24 30 31  00 2E 12 8F 02 2E 42 59  |,$39,$01......BY|
00000A20: 54 45 20 24 33 42 2C 24  42 45 2C 24 30 31 00 44  |TE $3B,$BE,$01.D|
00000A30: 12 94 02 2E 42 59 54 45  20 24 34 34 2C 24 39 35  |....BYTE $44,$95|
00000A40: 2C 24 30 32 00 5A 12 99  02 2E 42 59 54 45 20 24  |,$02.Z....BYTE $|
00000A50: 32 32 2C 24 34 42 2C 24  30 32 00 70 12 9E 02 2E  |22,$4B,$02.p....|
00000A60: 42 59 54 45 20 24 32 32  2C 24 34 42 2C 24 30 32  |BYTE $22,$4B,$02|
00000A70: 00 86 12 A3 02 2E 42 59  54 45 20 24 32 44 2C 24  |......BYTE $2D,$|
00000A80: 43 36 2C 24 30 32 00 9C  12 A8 02 2E 42 59 54 45  |C6,$02......BYTE|
00000A90: 20 24 33 33 2C 24 36 31  2C 24 30 31 00 B2 12 AD  | $33,$61,$01....|
00000AA0: 02 2E 42 59 54 45 20 24  32 44 2C 24 43 36 2C 24  |..BYTE $2D,$C6,$|
00000AB0: 30 31 00 C8 12 B2 02 2E  42 59 54 45 20 24 32 37  |01......BYTE $27|
00000AC0: 2C 24 44 46 2C 24 30 31  00 DE 12 B7 02 2E 42 59  |,$DF,$01......BY|
00000AD0: 54 45 20 24 32 36 2C 24  37 45 2C 24 30 31 00 F4  |TE $26,$7E,$01..|
00000AE0: 12 BC 02 2E 42 59 54 45  20 24 32 37 2C 24 44 46  |....BYTE $27,$DF|
00000AF0: 2C 24 30 32 00 0A 13 C1  02 2E 42 59 54 45 20 24  |,$02......BYTE $|
00000B00: 32 44 2C 24 43 36 2C 24  30 31 00 20 13 C6 02 2E  |2D,$C6,$01. ....|
00000B10: 42 59 54 45 20 24 32 37  2C 24 44 46 2C 24 30 31  |BYTE $27,$DF,$01|
00000B20: 00 36 13 CB 02 2E 42 59  54 45 20 24 32 36 2C 24  |.6....BYTE $26,$|
00000B30: 37 45 2C 24 30 31 00 4C  13 D0 02 2E 42 59 54 45  |7E,$01.L....BYTE|
00000B40: 20 24 32 32 2C 24 34 42  2C 24 30 31 00 62 13 D5  | $22,$4B,$01.b..|
00000B50: 02 2E 42 59 54 45 20 24  32 36 2C 24 37 45 2C 24  |..BYTE $26,$7E,$|
00000B60: 30 32 00 78 13 DA 02 2E  42 59 54 45 20 24 32 37  |02.x....BYTE $27|
00000B70: 2C 24 44 46 2C 24 30 31  00 8E 13 DF 02 2E 42 59  |,$DF,$01......BY|
00000B80: 54 45 20 24 32 36 2C 24  37 45 2C 24 30 31 00 A4  |TE $26,$7E,$01..|
00000B90: 13 E4 02 2E 42 59 54 45  20 24 32 32 2C 24 34 42  |....BYTE $22,$4B|
00000BA0: 2C 24 30 31 00 BA 13 E9  02 2E 42 59 54 45 20 24  |,$01......BYTE $|
00000BB0: 31 46 2C 24 46 46 2C 24  30 31 00 D0 13 EE 02 2E  |1F,$FF,$01......|
00000BC0: 42 59 54 45 20 24 32 32  2C 24 34 42 2C 24 30 34  |BYTE $22,$4B,$04|
00000BD0: 00 00 00                                          |...             |

....D.. 700:.OPT OO:..$C000.;.I.; ......
....................[.N.; .             
          ..Z.S.; .  ML SOUND  GENERA.R 
 ....X.; .   SAD SOUNDING BACH   ....}.;
 .     ROBERT AL.SO     ..Y...; .       
                ......; ................
..............;.....; EQUATES.....;.&...
SIGVOL . $D418.9. .ATDCY1 . $D405.L...SU
REL1 . $D406._...VCREG1 . $D404.P....LO1
 . $D400......HI1 . $D401.....;.....; IN
ITIALIZATI....C.;.G.H.LDA #$0F    ;SET T
HE VOLUME . 15....M.STA SIGVOL  ;LIKE . 
54296,15....R.;...W.LDA #$09    ;SET ATT
ACK.DECAY . 9..7...STA ATDCY1  ;LIKE . 5
4277,9..=...;.D...LDA #$11    ;SUSTAIN.R
ELEASE . 17......STA SUREL1  ;LIKE . 542
78,17......;.....LDA #$11    ;SELECT TRI
ANGLE WAVE..U...STA VCREG1  ;LIKE . 5427
6,17......;.....LDX #$00    ;ZERO OUT TH
E OFFSET......;.(...; MAIN LOOP, .S . PL
AYS .ES......;.;...LOOP . ..Y...LDA .ES,
X ;. THE HI EUE ..}.".STA .HI1  ;S.RE IT
 IN REGISTER....'.INX         ;INCREASE 
OFFSET....,.;.D.1.LDA .ES,X ;. LO EUE . 
S.RE...6.STA .LO1  ;IT IN REGISTER....;.
INX         ;INCREASE OFFSET AGAIN....@.
;.2.E.LDA .ES,X ;. THE DURATI. EUE.Q.J.S
TA A.   ;. S.RE IT IN A...W.O.INX       
  ;INCREASE THE OFFSET..}.T.;...Y.STX X.
   ;. THE OFFSET EUE...^.JSR DELAY   ;. 
K . THE DELAY..D.C.;...H.LDA #$11    ;RE
SET TRIANGLE WAVE....M.STA VCREG1  ;DELA
Y TURNS IT OFF....R.;.5.W.LDX X.   ;. TH
E OFFSET EUE..Q.|.CPX #$60    ;"IS IT 96
?.T...BNE LOOP    ;NO, . LOOP AGAIN.....
.JMP .     ;YES, . K . .......;.....; DE
LAY LOOP USED . DURATI.......;.L...DELAY
 . ......LDY #$00    ;ZERO THE .Y OFFSET
.....;.....SET LDX #$00;. THE .X OFFSET.
.9...PLAY INX    ;INCREASE THE .X.X...CP
X #$FF    ;"DOES .X=255?.Y...BNE PLAY   
 ;NO, . K . PLAY.....;...B.INY         
;YES, INCREASE .Y...G.CPY #$78    ;"DOES
 .Y=120?...L.BNE SET     ;NO, . K . SET.
...Q.;...V.DEC A.   ;YES,DECREASE DURATI
...'...LDA A.   ;. DURATI. EUE..G...BNE 
DELAY   ;. ..0 . DELAY..M...;.R...LDA #$
10    ;SICCE SOUND BY SET......STA VCREG
1  ;TING BIT 0 OFF......RTS         ;. .
 CALLER......;.Y.... LDA #$00;ZERO ALL R
EGISTERS......STA VCREG1  ;. 54276,0....
.STA ATDCY1  ;. 54277,0.*...STA SUREL1  
;. 54278,0.C...STA .LO1  ;. 54272,0.\...
STA .HI1  ;. 54273,0.W...STA SIGVOL  ;. 
54296,0...!.RTS         ;. . CALLER....&
.;...+.; TEMP.ARY S.RAGE...0.;.G.5.X. .B
YTE $00.X.:.A. .BYTE $00...?.;...D.; HI,
 LO . RELATIVE DURATI....I.;...N..ES . .
.&.S..BYTE $33,$61,$02.<.X..BYTE $22,$4B
,$01.R.]..BYTE $26,$7E,$01.H.B..BYTE $27
,$DF,$01.~.G..BYTE $2D,$C6,$01...L..BYTE
 $33,$61,$02...Q..BYTE $22,$4B,$02...V..
BYTE $22,$4B,$02.V.{..BYTE $35,$39,$02..
....BYTE $2D,$C6,$01......BYTE $33,$61,$
01......BYTE $35,$39,$01......BYTE $3B,$
BE,$01.D....BYTE $44,$95,$02.Z....BYTE $
22,$4B,$02.P....BYTE $22,$4B,$02......BY
TE $2D,$C6,$02......BYTE $33,$61,$01....
..BYTE $2D,$C6,$01.H....BYTE $27,$DF,$01
......BYTE $26,$7E,$01......BYTE $27,$DF
,$02...A..BYTE $2D,$C6,$01. .F..BYTE $27
,$DF,$01.6.K..BYTE $26,$7E,$01.L.P..BYTE
 $22,$4B,$01.B.U..BYTE $26,$7E,$02.X.Z..
BYTE $27,$DF,$01......BYTE $26,$7E,$01..
....BYTE $22,$4B,$01......BYTE $1F,$FF,$
01.P....BYTE $22,$4B,$04...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL