BACH HAPPY.S
FILE INFORMATION
FILENAME(S): BACH HAPPY.S
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-10-19 22:49:38
APPEARS ON: 1 disk(s)
FILE HASH
77d2036659d63a4b7da6be15ba95d8c66ad363584f0e59e199b6840fdfc1ce09
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MICRO MANIAC | BACH HAPPY.S | PRG | Radd Maxx | 9 | 0 | 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 48 41 50 50 59 20 53 4F 55 4E 44 49 | . HAPPY SOUNDI|
00000090: 4E 47 20 42 41 43 48 20 20 AC 00 B9 08 7D 00 3B |NG 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 BF 0E C7 01 43 50 59 20 23 24 34 42 20 20 |Y.....CPY #$4B |
000006B0: 20 20 3B 22 44 4F 45 53 20 2E 59 3D 37 35 3F 00 | ;"DOES .Y=75?.|
000006C0: DF 0E CC 01 42 4E 45 20 53 45 54 20 20 20 20 20 |....BNE SET |
000006D0: 3B 4E 4F 2C 20 A7 20 CB 20 A4 20 53 45 54 2E 00 |;NO, . . . SET..|
000006E0: E5 0E D1 01 3B 00 09 0F D6 01 44 45 43 20 41 94 |....;.....DEC A.|
000006F0: 20 20 20 3B 59 45 53 2C 44 45 43 52 45 41 53 45 | ;YES,DECREASE|
00000700: 20 44 55 52 41 54 49 91 2E 00 26 0F DB 01 4C 44 | DURATI...&...LD|
00000710: 41 20 41 94 20 20 20 3B A1 20 44 55 52 41 54 49 |A A. ;. DURATI|
00000720: 91 20 C5 55 45 2E 00 46 0F E0 01 42 4E 45 20 44 |. .UE..F...BNE D|
00000730: 45 4C 41 59 20 20 20 3B 8B 20 B3 B1 30 20 A7 20 |ELAY ;. ..0 . |
00000740: 44 45 4C 41 59 2E 00 4C 0F E5 01 3B 00 71 0F EA |DELAY..L...;.q..|
00000750: 01 4C 44 41 20 23 24 31 30 20 20 20 20 3B 53 49 |.LDA #$10 ;SI|
00000760: C3 43 45 20 53 4F 55 4E 44 20 42 59 20 53 45 54 |.CE SOUND BY SET|
00000770: AB 00 92 0F EF 01 53 54 41 20 56 43 52 45 47 31 |......STA VCREG1|
00000780: 20 20 3B 54 49 4E 47 20 42 49 54 20 30 20 4F 46 | ;TING BIT 0 OF|
00000790: 46 2E 00 AF 0F F4 01 52 54 53 20 20 20 20 20 20 |F......RTS |
000007A0: 20 20 20 3B 8E 20 A4 20 43 41 4C 4C 45 52 2E 00 | ;. . CALLER..|
000007B0: B5 0F F9 01 3B 00 D8 0F FE 01 80 20 4C 44 41 20 |....;...... LDA |
000007C0: 23 24 30 30 3B 5A 45 52 4F 20 41 4C 4C 20 52 45 |#$00;ZERO ALL RE|
000007D0: 47 49 53 54 45 52 53 2E 00 F3 0F 03 02 53 54 41 |GISTERS......STA|
000007E0: 20 56 43 52 45 47 31 20 20 3B 97 20 35 34 32 37 | VCREG1 ;. 5427|
000007F0: 36 2C 30 00 0E 10 08 02 53 54 41 20 41 54 44 43 |6,0.....STA ATDC|
00000800: 59 31 20 20 3B 97 20 35 34 32 37 37 2C 30 00 29 |Y1 ;. 54277,0.)|
00000810: 10 0D 02 53 54 41 20 53 55 52 45 4C 31 20 20 3B |...STA SUREL1 ;|
00000820: 97 20 35 34 32 37 38 2C 30 00 42 10 12 02 53 54 |. 54278,0.B...ST|
00000830: 41 20 B8 4C 4F 31 20 20 3B 97 20 35 34 32 37 32 |A .LO1 ;. 54272|
00000840: 2C 30 00 5B 10 17 02 53 54 41 20 B8 48 49 31 20 |,0.[...STA .HI1 |
00000850: 20 3B 97 20 35 34 32 37 33 2C 30 00 76 10 1C 02 | ;. 54273,0.v...|
00000860: 53 54 41 20 53 49 47 56 4F 4C 20 20 3B 97 20 35 |STA SIGVOL ;. 5|
00000870: 34 32 39 36 2C 30 00 93 10 21 02 52 54 53 20 20 |4296,0...!.RTS |
00000880: 20 20 20 20 20 20 20 3B 8E 20 A4 20 43 41 4C 4C | ;. . CALL|
00000890: 45 52 2E 00 99 10 26 02 3B 00 AF 10 2B 02 3B 20 |ER....&.;...+.; |
000008A0: 54 45 4D 50 B0 41 52 59 20 53 A4 52 41 47 45 00 |TEMP.ARY S.RAGE.|
000008B0: B5 10 30 02 3B 00 C6 10 35 02 58 94 20 2E 42 59 |..0.;...5.X. .BY|
000008C0: 54 45 20 24 30 30 00 D7 10 3A 02 41 94 20 2E 42 |TE $00...:.A. .B|
000008D0: 59 54 45 20 24 30 30 00 DD 10 3F 02 3B 00 FD 10 |YTE $00...?.;...|
000008E0: 44 02 3B 20 48 49 2C 20 4C 4F 20 AF 20 52 45 4C |D.; HI, LO . REL|
000008F0: 41 54 49 56 45 20 44 55 52 41 54 49 91 00 03 11 |ATIVE DURATI....|
00000900: 49 02 3B 00 0F 11 4E 02 A8 45 53 20 B2 20 AC 00 |I.;...N..ES . ..|
00000910: 25 11 53 02 2E 42 59 54 45 20 24 33 33 2C 24 36 |%.S..BYTE $33,$6|
00000920: 31 2C 24 30 32 00 3B 11 58 02 2E 42 59 54 45 20 |1,$02.;.X..BYTE |
00000930: 24 32 32 2C 24 34 42 2C 24 30 31 00 51 11 5D 02 |$22,$4B,$01.Q.].|
00000940: 2E 42 59 54 45 20 24 32 36 2C 24 37 45 2C 24 30 |.BYTE $26,$7E,$0|
00000950: 31 00 67 11 62 02 2E 42 59 54 45 20 24 32 42 2C |1.g.b..BYTE $2B,|
00000960: 24 33 34 2C 24 30 31 00 7D 11 67 02 2E 42 59 54 |$34,$01.}.g..BYT|
00000970: 45 20 24 32 44 2C 24 43 36 2C 24 30 31 00 93 11 |E $2D,$C6,$01...|
00000980: 6C 02 2E 42 59 54 45 20 24 33 33 2C 24 36 31 2C |l..BYTE $33,$61,|
00000990: 24 30 32 00 A9 11 71 02 2E 42 59 54 45 20 24 32 |$02...q..BYTE $2|
000009A0: 32 2C 24 34 42 2C 24 30 32 00 BF 11 76 02 2E 42 |2,$4B,$02...v..B|
000009B0: 59 54 45 20 24 32 32 2C 24 34 42 2C 24 30 32 00 |YTE $22,$4B,$02.|
000009C0: D5 11 7B 02 2E 42 59 54 45 20 24 33 39 2C 24 41 |..{..BYTE $39,$A|
000009D0: 43 2C 24 30 32 00 EB 11 80 02 2E 42 59 54 45 20 |C,$02......BYTE |
000009E0: 24 32 44 2C 24 43 36 2C 24 30 31 00 01 12 85 02 |$2D,$C6,$01.....|
000009F0: 2E 42 59 54 45 20 24 33 33 2C 24 36 31 2C 24 30 |.BYTE $33,$61,$0|
00000A00: 31 00 17 12 8A 02 2E 42 59 54 45 20 24 33 39 2C |1......BYTE $39,|
00000A10: 24 41 43 2C 24 30 31 00 2D 12 8F 02 2E 42 59 54 |$AC,$01.-....BYT|
00000A20: 45 20 24 34 30 2C 24 42 43 2C 24 30 31 00 43 12 |E $40,$BC,$01.C.|
00000A30: 94 02 2E 42 59 54 45 20 24 34 34 2C 24 39 35 2C |...BYTE $44,$95,|
00000A40: 24 30 32 00 59 12 99 02 2E 42 59 54 45 20 24 32 |$02.Y....BYTE $2|
00000A50: 32 2C 24 34 42 2C 24 30 32 00 6F 12 9E 02 2E 42 |2,$4B,$02.o....B|
00000A60: 59 54 45 20 24 32 32 2C 24 34 42 2C 24 30 32 00 |YTE $22,$4B,$02.|
00000A70: 85 12 A3 02 2E 42 59 54 45 20 24 32 44 2C 24 43 |.....BYTE $2D,$C|
00000A80: 36 2C 24 30 32 00 9B 12 A8 02 2E 42 59 54 45 20 |6,$02......BYTE |
00000A90: 24 33 33 2C 24 36 31 2C 24 30 31 00 B1 12 AD 02 |$33,$61,$01.....|
00000AA0: 2E 42 59 54 45 20 24 32 44 2C 24 43 36 2C 24 30 |.BYTE $2D,$C6,$0|
00000AB0: 31 00 C7 12 B2 02 2E 42 59 54 45 20 24 32 42 2C |1......BYTE $2B,|
00000AC0: 24 33 34 2C 24 30 31 00 DD 12 B7 02 2E 42 59 54 |$34,$01......BYT|
00000AD0: 45 20 24 32 36 2C 24 37 45 2C 24 30 31 00 F3 12 |E $26,$7E,$01...|
00000AE0: BC 02 2E 42 59 54 45 20 24 32 42 2C 24 33 34 2C |...BYTE $2B,$34,|
00000AF0: 24 30 32 00 09 13 C1 02 2E 42 59 54 45 20 24 32 |$02......BYTE $2|
00000B00: 44 2C 24 43 36 2C 24 30 31 00 1F 13 C6 02 2E 42 |D,$C6,$01......B|
00000B10: 59 54 45 20 24 32 42 2C 24 33 34 2C 24 30 31 00 |YTE $2B,$34,$01.|
00000B20: 35 13 CB 02 2E 42 59 54 45 20 24 32 36 2C 24 37 |5....BYTE $26,$7|
00000B30: 45 2C 24 30 31 00 4B 13 D0 02 2E 42 59 54 45 20 |E,$01.K....BYTE |
00000B40: 24 32 32 2C 24 34 42 2C 24 30 31 00 61 13 D5 02 |$22,$4B,$01.a...|
00000B50: 2E 42 59 54 45 20 24 32 36 2C 24 37 45 2C 24 30 |.BYTE $26,$7E,$0|
00000B60: 32 00 77 13 DA 02 2E 42 59 54 45 20 24 32 42 2C |2.w....BYTE $2B,|
00000B70: 24 33 34 2C 24 30 31 00 8D 13 DF 02 2E 42 59 54 |$34,$01......BYT|
00000B80: 45 20 24 32 36 2C 24 37 45 2C 24 30 31 00 A3 13 |E $26,$7E,$01...|
00000B90: E4 02 2E 42 59 54 45 20 24 32 32 2C 24 34 42 2C |...BYTE $22,$4B,|
00000BA0: 24 30 31 00 B9 13 E9 02 2E 42 59 54 45 20 24 31 |$01......BYTE $1|
00000BB0: 46 2C 24 46 46 2C 24 30 31 00 CF 13 EE 02 2E 42 |F,$FF,$01......B|
00000BC0: 59 54 45 20 24 32 32 2C 24 34 42 2C 24 30 34 00 |YTE $22,$4B,$04.|
00000BD0: 00 00 |.. |
....D.. 700:.OPT OO:..$C000.;.I.; ......
....................[.N.; .
..Z.S.; . ML SOUND GENERA.R
....X.; . HAPPY 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 #$4B ;"DOES
.Y=75?...L.BNE SET ;NO, . K . SET..
..Q.;...V.DEC A. ;YES,DECREASE DURATI.
..&...LDA A. ;. DURATI. EUE..F...BNE D
ELAY ;. ..0 . DELAY..L...;.Q...LDA #$1
0 ;SICCE SOUND BY SET......STA VCREG1
;TING BIT 0 OFF......RTS ;. .
CALLER......;.X.... LDA #$00;ZERO ALL RE
GISTERS......STA VCREG1 ;. 54276,0.....
STA ATDCY1 ;. 54277,0.)...STA SUREL1 ;
. 54278,0.B...STA .LO1 ;. 54272,0.[...S
TA .HI1 ;. 54273,0.V...STA SIGVOL ;. 5
4296,0...!.RTS ;. . CALLER....&.
;...+.; TEMP.ARY S.RAGE...0.;.F.5.X. .BY
TE $00.W.:.A. .BYTE $00...?.;...D.; HI,
LO . RELATIVE DURATI....I.;...N..ES . ..
%.S..BYTE $33,$61,$02.;.X..BYTE $22,$4B,
$01.Q.]..BYTE $26,$7E,$01.G.B..BYTE $2B,
$34,$01.}.G..BYTE $2D,$C6,$01...L..BYTE
$33,$61,$02...Q..BYTE $22,$4B,$02...V..B
YTE $22,$4B,$02.U.{..BYTE $39,$AC,$02...
...BYTE $2D,$C6,$01......BYTE $33,$61,$0
1......BYTE $39,$AC,$01.-....BYTE $40,$B
C,$01.C....BYTE $44,$95,$02.Y....BYTE $2
2,$4B,$02.O....BYTE $22,$4B,$02......BYT
E $2D,$C6,$02......BYTE $33,$61,$01.....
.BYTE $2D,$C6,$01.G....BYTE $2B,$34,$01.
.....BYTE $26,$7E,$01......BYTE $2B,$34,
$02...A..BYTE $2D,$C6,$01...F..BYTE $2B,
$34,$01.5.K..BYTE $26,$7E,$01.K.P..BYTE
$22,$4B,$01.A.U..BYTE $26,$7E,$02.W.Z..B
YTE $2B,$34,$01......BYTE $26,$7E,$01...
...BYTE $22,$4B,$01......BYTE $1F,$FF,$0
1.O....BYTE $22,$4B,$04...
> CLICK IMAGE PREVIEW FOR FULL MODAL