00000000: 00 42 00 01 BB 10 01 3B 2A 2A 2A 2A 2A 2A 2A 2A |.B.....;********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A AA 20 01 3B 2A 20 20 20 20 |*******. .;* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 AA 30 01 3B 2A 20 | .0.;* |
00000050: 20 20 22 42 4C 45 45 50 22 20 55 49 54 20 45 45 | "BLEEP" UIT EE|
00000060: 4E 20 54 4F 4F 4C 4B 49 54 20 20 20 20 AA 40 01 |N TOOLKIT .@.|
00000070: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: AA 50 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.P.;************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A AA 60 01 BB 70 01 20 2E 4C D3 80 01 20 |***.`..p. .L... |
000000C0: 2E 42 41 20 24 31 30 30 B0 90 01 20 2E 4F D3 00 |.BA $100... .O..|
000000D0: 02 BB 10 02 3B 20 20 20 20 20 20 4C 41 42 45 4C |....; LABEL|
000000E0: 20 49 4E 54 49 D4 20 02 3B 20 20 20 20 20 20 2D | INTI. .; -|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D AD 30 02 BB 40 02 56 |---------.0..@.V|
00000100: 45 43 54 4C 4F 57 20 20 20 20 2E 44 45 20 24 30 |ECTLOW .DE $0|
00000110: 32 38 46 20 3B 56 45 43 54 4F 52 20 4C 4F 57 20 |28F ;VECTOR LOW |
00000120: 20 42 59 54 C5 50 02 56 45 43 54 48 49 47 48 20 | BYT.P.VECTHIGH |
00000130: 20 20 2E 44 45 20 24 30 32 39 30 20 3B 56 45 43 | .DE $0290 ;VEC|
00000140: 54 4F 52 20 48 49 47 48 20 42 59 54 C5 60 02 41 |TOR HIGH BYT.`.A|
00000150: 54 54 41 43 4B 20 20 20 20 20 2E 44 45 20 24 44 |TTACK .DE $D|
00000160: 34 30 35 20 3B 53 4F 55 4E 44 20 53 45 54 20 55 |405 ;SOUND SET U|
00000170: D0 70 02 53 55 53 54 41 49 4E 20 20 20 20 2E 44 |.p.SUSTAIN .D|
00000180: 45 20 24 44 34 30 36 20 BB 80 02 46 52 45 51 48 |E $D406 ...FREQH|
00000190: 49 47 48 20 20 20 2E 44 45 20 24 44 34 30 31 20 |IGH .DE $D401 |
000001A0: BB 90 02 46 52 45 51 4C 4F 57 20 20 20 20 2E 44 |...FREQLOW .D|
000001B0: 45 20 24 44 34 30 30 20 BB 00 03 43 4F 4E 54 52 |E $D400 ...CONTR|
000001C0: 4F 4C 20 20 20 20 2E 44 45 20 24 44 34 30 34 20 |OL .DE $D404 |
000001D0: BB 10 03 56 4F 4C 55 4D 45 20 20 20 20 20 2E 44 |...VOLUME .D|
000001E0: 45 20 24 44 34 31 38 20 BB 20 03 42 41 53 49 43 |E $D418 . .BASIC|
000001F0: 20 20 20 20 20 20 2E 44 45 20 24 45 42 34 38 20 | .DE $EB48 |
00000200: 3B 42 41 43 4B 20 54 4F 20 42 41 53 49 C3 30 03 |;BACK TO BASI.0.|
00000210: BB 40 03 3B 20 53 54 41 52 54 20 53 45 54 54 49 |.@.; START SETTI|
00000220: 4E 47 20 56 45 43 54 4F 52 45 CE 50 03 3B 20 2D |NG VECTORE.P.; -|
00000230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000240: 2D 2D 2D 2D AD 60 03 BB 70 03 20 53 45 C9 80 03 |----.`..p. SE...|
00000250: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 | LDA #|
00000260: 24 30 44 20 20 20 20 20 3B 4C 4F 57 20 42 59 54 |$0D ;LOW BYT|
00000270: C5 90 03 20 53 54 41 20 56 45 43 54 4C 4F D7 00 |... STA VECTLO..|
00000280: 04 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |. LDA |
00000290: 23 24 31 B0 10 04 20 53 54 41 20 56 45 43 54 48 |#$1... STA VECTH|
000002A0: 49 47 C8 20 04 20 43 4C C9 30 04 20 20 20 20 20 |IG. . CL.0. |
000002B0: 20 20 20 20 20 20 52 54 53 20 3B 52 45 54 55 52 | RTS ;RETUR|
000002C0: 4E 20 54 4F 20 42 41 53 49 C3 40 04 3B 20 20 20 |N TO BASI.@.; |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D | ---|
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D AD 50 04 BB 60 |-----------.P..`|
000002F0: 04 BB 70 04 53 54 41 52 54 20 20 20 20 20 20 50 |..p.START P|
00000300: 48 D0 80 04 20 50 48 C1 90 04 20 54 58 C1 00 05 |H... PH... TX...|
00000310: 20 50 48 C1 10 05 20 54 59 C1 20 05 20 20 20 20 | PH... TY. . |
00000320: 20 20 20 20 20 20 20 50 48 C1 30 05 20 20 20 20 | PH.0. |
00000330: 20 20 20 20 20 20 20 4C 44 41 20 2A 24 43 B5 40 | LDA *$C.@|
00000340: 05 20 43 4D 50 20 45 4E C4 50 05 20 20 20 20 20 |. CMP EN.P. |
00000350: 20 20 20 20 20 20 42 45 51 20 53 4E 44 4F 46 C6 | BEQ SNDOF.|
00000360: 60 05 20 53 54 41 20 45 4E C4 70 05 20 4C 44 41 |`. STA EN.p. LDA|
00000370: 20 23 24 30 C6 80 05 20 53 54 41 20 56 4F 4C 55 | #$0... STA VOLU|
00000380: 4D C5 90 05 20 4C 44 41 20 23 24 30 B0 00 06 20 |M... LDA #$0... |
00000390: 53 54 41 20 41 54 54 41 43 CB 10 06 20 4C 44 41 |STA ATTAC... LDA|
000003A0: 20 23 24 30 B5 20 06 20 53 54 41 20 53 55 53 54 | #$0. . STA SUST|
000003B0: 41 49 CE 30 06 20 20 20 20 20 20 20 20 20 20 20 |AI.0. |
000003C0: 4C 44 41 20 23 24 32 B2 40 06 20 20 20 20 20 20 |LDA #$2.@. |
000003D0: 20 20 20 20 20 53 54 41 20 46 52 45 51 48 49 47 | STA FREQHIG|
000003E0: C8 50 06 20 20 20 20 20 20 20 20 20 20 20 4C 44 |.P. LD|
000003F0: 41 20 23 24 34 C2 60 06 20 20 20 20 20 20 20 20 |A #$4.`. |
00000400: 20 20 20 53 54 41 20 46 52 45 51 4C 4F D7 70 06 | STA FREQLO.p.|
00000410: 20 4C 44 41 20 23 24 32 B0 80 06 20 53 54 41 20 | LDA #$2... STA |
00000420: 43 4F 4E 54 52 4F CC 90 06 20 4C 44 41 20 23 24 |CONTRO... LDA #$|
00000430: 32 B1 00 07 20 53 54 41 20 43 4F 4E 54 52 4F CC |2... STA CONTRO.|
00000440: 10 07 20 4C 44 41 20 23 24 32 B0 20 07 20 53 54 |.. LDA #$2. . ST|
00000450: 41 20 43 4F 4E 54 52 4F CC 30 07 53 4E 44 4F 46 |A CONTRO.0.SNDOF|
00000460: 46 20 50 4C C1 40 07 20 54 41 D9 50 07 20 50 4C |F PL.@. TA.P. PL|
00000470: C1 60 07 20 54 41 D8 70 07 20 50 4C C1 80 07 20 |.`. TA.p. PL... |
00000480: 50 4C D0 90 07 20 4A 4D 50 20 42 41 53 49 C3 00 |PL... JMP BASI..|
00000490: 08 45 4E 44 20 20 20 20 20 20 20 20 52 54 C9 10 |.END RT..|
000004A0: 08 20 42 52 CB 20 08 20 20 20 20 20 20 20 20 20 |. BR. . |
000004B0: 20 20 2E 45 CE | .E. |
.B.....;*******************************.
.;* .0.;*
"BLEEP" UIT EEN TOOLKIT .@.;*
.P.;************
*******************.`..P. .LS.. .BA $100
... .OS.....; LABEL INTIT .; -
---------.0..@.VECTLOW .DE $028F ;VEC
TOR LOW BYTEP.VECTHIGH .DE $0290 ;VEC
TOR HIGH BYTE`.ATTACK .DE $D405 ;SOU
ND SET UPP.SUSTAIN .DE $D406 ...FREQH
IGH .DE $D401 ...FREQLOW .DE $D400
...CONTROL .DE $D404 ...VOLUME .D
E $D418 . .BASIC .DE $EB48 ;BACK TO
BASIC0..@.; START SETTING VECTORENP.; -
--------------------.`..P. SEI..
LDA #$0D ;LOW BYTE.. STA VECTLOW.
. LDA #$1... STA VECTHIGH . CL
I0. RTS ;RETURN TO BASIC@.;
--------------.P..`..P.STAR
T PHP.. PHA.. TXA.. PHA.. TYA .
PHA0. LDA *$C.@. CMP EN
DP. BEQ SNDOFF`. STA ENDP. LDA
#$0F.. STA VOLUME.. LDA #$0... STA ATTA
CK.. LDA #$0. . STA SUSTAIN0.
LDA #$2.@. STA FREQHIGHP.
LDA #$4B`. STA FREQLOWP.
LDA #$2... STA CONTROL.. LDA #$2... STA
CONTROL.. LDA #$2. . STA CONTROL0.SNDOF
F PLA@. TAYP. PLA`. TAXP. PLA.. PLP.. JM
P BASIC..END RTI.. BRK .
.EN
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL