Load address: 4001 1 rem @miragefreq 2 rem a simple program that gets the sample rate parameter 3 rem from an ensoniq mirage, and produces a tone that 4 rem that matches it. 6 rem written august 13-15 1991 - modified 28 aug 91 to produce tones via midi 7 rem copyright johnny klonaris 1991 8 rem for more info run program moreinfo 9 rem permission granted for distribution if all pieces included 10 gosub 100 :rem init 20 sys sy:ss=peek(s) :rem call the ml routine, retrieve status 25 if ss=1then print"[HOME][C/DN][C/DN][C/DN][C/DN][C/DN][C/DN][C/DN][C/DN]Bad or missing MIDI interface.":print"Switch off computer and install i/f.":end 30 if ss=2thenprint"[HOME][C/DN][C/DN][C/DN][C/DN][C/DN][C/DN][C/DN][C/DN]Timeout: recheck connections and reboot MASOS if necessary...":fori=1to1000:next:goto20:rem keep trying till it works 35 ad=56841-peek(it)*8:rem ad=acia transmit data register 40 gosub 400 50 goto200:rem handle the rest of it elsewhere 100 cp=64:ifpeek(122)=peek(122)thencp=128:bank15:rem determine computer type 101 co=40:if cp=128theni=rgr(0):graphic1:ifi>4theni=5:co=80:fast:rem get # of cols 103 if cp=128then:graphic i 105 poke 53280,12:poke 53281,11 109 print"loading machine language code..." 110 if cp=128then bload"getrate.o":goto120:rem c-128 ml load 115 ifa=0thena=1:load"getrate64.o",8,1 :rem c-64 ml load 120 if cp=128thensy=4864 :rem c-128 sys address 125 if cp=64thensy=49152 :rem c-64 sys address 130 sr=sy+3:in=sr+1:ex=in+1:it=ex+1:s=it+1:rem peek addresses 140 printchr$(14);chr$(8):gosub 400 145 print"[C/DN][GREEN]Requires MASOS 2.0 installed and an SCI or Passport MIDI interface." 150 dim ed(25):rem arrays of data for filter frequencies 155 fori=0to25:read ed(i):next 164 data 0,3.37,3.47,3.57,3.68,3.79,3.91,4.03,4.17,4.31,4.46,4.63,4.81,5.00 165 data 5.21,5.43,5.68,6.25,6.94,7.81,8.33,8.93,10.4,12.5,13.9,20.8 170 sd=54272:fori=0to28:pokesd+i,0:next:pokesd+24,15:pokesd+5,88:pokesd+6,202:pokesd+3,7 171 wv=32 :rem 16=triangle, 32=sawtooth, 64=square 172 poke sd+4,wv+1 :rem turn it on.... 175 x=1:t=1::rem waves per page, tone on/off 180 dim nt$(12):fori=0to12:read nt$(i):next:rem note names 181 data "C","C#","D","Eb","E","F","F#","G","Ab","A","Bb","B","C" 182 tr=2^(1/12):lt=log(tr):cl=440*(tr^3)/8:rem "frequency of C (MIDI note 36)" 185 m=.0577622654:b=5.68684221:rem parms for filter freq calculation 187 br=1:ch=1:rem bend range in semi-tones and channel (0-15) 190 return 200 rem this section handles the bulk of the fun stuff... 205 gosub500:ifss=2then220 : rem keep updating it all 210 sv=peek(sr): sf=1000000/sv : fr = sf/256*x :rem calculate values 215 fs = int(fr / .0609594585 +.5) :rem "SID value for NTSC (.058735384 for PAL)" 220 print"[HOME][C/DN][C/DN][C/DN][C/DN] Sample Rate [73]:"sv"[C/LF] " 222 print" Sampling frequency:"int(sf*100+.5)/100"[C/LF] Hz " 223 print" Nyquist rate:"int(sf*50+.5)/100"[C/LF] Hz " 224 ev=peek(ex):iv=peek(in)/2 :rem look up the ext/int filter values 225 gosub700:hz$="[C/LF] Hz":fl$=" (Int [74]) ":rem internal filter values 226 ifev<>0thenff=ed(ev):hz$="[C/LF] kHz":fl$=" (Ext [93]) ":rem external filter values 230 print" Filter freq:"ff;hz$;fl$ 232 print" Note freq:"int(fr*100+.5)/100"[C/LF] Hz ";:gosub750 235 hi=int(fs/256):poke sd,fs-hi*256:pokesd+1,hi 240 gosub 800 250 print"[C/DN] Commands:" 251 print"[C/DN] T - Tone O";:ift=0thenprint"n ";:goto253 252 print "ff "; 253 print" space - ";:ifoo=0thenprint"Note On ":goto256 254 print "Note Off" 256 print " B - Bend Range: "mid$(str$(br)+" ",2,2)" "; 257 print " C - Channel:"ch+1"[C/LF] " 258 print " ? - Help E - End +/- Adjust [73]" 260 print"[C/DN] Waves per page: "x"[C/LF] " 262 print " 4 - Four waves per page" 264 print " 2 - Two waves per page" 266 print " 1 - One wave per page" 268 print " H - Half wave per page" 270 print " Q - Quarter wave per page" 275 print"[C/DN] Enter command: [C/LF][C/LF][C/LF]"; 280 gosub 300 :rem get input 290 goto 200 300 geta$:ifa$=""thenreturn 305 ifa$="t"thent=1-t:goto390 310 ifa$="e"thengoto 900 315 ifa$="4"thenx=4:goto390 320 ifa$="2"thenx=2:goto390 325 ifa$="1"thenx=1:goto390 330 ifa$="h"thenx=.5:goto390 335 ifa$="q"thenx=.25:goto390 340 ifa$="?"thengoto600:rem get help 345 ifa$=" "thenoo=64-oo:pokead,144+ch:pokead,mn:pokead,oo:goto390 350 ifa$="c"thenpokead,144+ch:pokead,mn:pokead,0:gosub450:pokead,144+ch:pokead,mn:pokead,oo:return 355 ifa$="+"ora$="-"thengosub860:goto390 360 ifa$="b"thengoto410 385 print"f";:fori=1to100:next:print"[C/LF][C/LF] [C/LF][C/LF]";:goto300 390 printa$; 395 pokesd+4,wv+t:return 400 print"[CYAN][CLR][C/DN][C/DN] Mirage Freq 2.1 Sample Tone Generator":return 405 print"[CYAN][HOME][C/DN][C/DN] Mirage Freq 2.1 Sample Tone Generator":return 410 print"[CLR][C/DN][C/DN] Current pitch bend range:"br 415 print"[C/DN] Enter pitch bend range(1-12): "; 420 input br:ifbr>=1andbr<=12then 400 425 printbr"- out of range..."goto410 450 print"[CLR][C/DN][C/DN] Current MIDI channel:"ch+1 455 print"[C/DN] Enter MIDI channel(1-16): "; 460 input ch:ch=ch-1:ifch>=0andch<=15then 400 465 printch"- out of range..."goto450 500 rem keep calling the ml routine.... 505 print"[RVON] [RVOF][C/LF]"; 510 sys sy:ss=peek(s) 520 if ss=1thenprint" [CLR][C/DN][RED]Bad or missing interface.":print"Turn computer off, install interface and try again.":stop 522 if ss=2thenprint" [HOME][C/DN][ORANGE]Timeout...check connections.":goto510 524 if ss=3thenprint" [HOME][C/DN][YELLOW]Data error. Retrying... ":goto540 530 print" [HOME][C/DN] ":goto405 540 for i=1to700:next :rem wait a while 545 for i=1to300:next :rem wait a little less 550 goto510 :rem try again... 600 print"[CLR] Mirage Freq - Help....[C/DN]" 602 if co=80then650:rem handle differently for 80 column mode 603 print"This program, when connected to an" 604 print"Ensoniq Mirage running MASOS 2.0 via" 605 print"either a Passport or SCI style MIDI i/f" 606 print"will produce a tone on the SID chip" 607 print"that can be used as a pitch reference" 608 print"for sampling. This allows you to make" 609 print"samples whose short loop pitch is very" 610 print"close to the pitch of the rest of the" 611 print"sample - generally pretty tough to do." 612 print"This program is designed to be pretty" 613 print"much self-explanatory, but there are" 614 print"things that will help you when using" 615 print"it. First, be patient - it's in BASIC" 616 print"because of the large amount of floating" 617 print"point calculations needed - this means" 618 print"that it's a bit slow in responding to" 619 print"commands - sometimes it takes up to a" 620 print"second or so for the program to" 621 print"recognize a command - once you get used" 622 print"it shouldn't be a problem." 623 print"[C/DN][C/DN] [RVON] -- Any key to continue -- [RVOF]"; 625 geta$:ifa$=""then625 627 print"[CLR] Mirage Freq - Help....[C/DN]" 628 print"The program continuously requests" 629 print"data from the Mirage and updates the" 630 print"screen in a loop. As MIDI bytes are" 631 print"read, small ticks are displayed in" 632 print"border - I've tried to keep this as" 633 print"innocuous as possible. If you don't" 634 print"like it - tough!" 635 print 636 print"You can set the frequency of the" 637 print"pitch to coorespond to from a quarter" 638 print"to four waves per page (256 samples)." 639 print"This should be enough of a range for" 640 print"most sampling needs." 641 print 642 print"Users in the U.K. or others that have" 643 print"PAL rather than NTSC machines need to" 644 print"change line 215 as per the comments." 645 print"Also, I don't have an Input Sampling" 646 print"Filter so I can't test this. For more" 647 print"information, run the MOREINFO program." 648 print"[C/DN][C/DN] [RVON] -- Any key to resume -- [RVOF]"; 649 goto695 650 print"[CLR] Mirage Freq - Help....[C/DN]" 652 print"This program, when connected to an Ensoniq Mirage running MASOS 2.0 via either" 654 print"a Passport or SCI style MIDI i/f will produce a tone on the SID chip that can" 656 print"be used as a pitch reference for sampling. This allows you to make samples" 658 print"whose short loop pitch is very close to the pitch of the rest of the sample -" 660 print"generally pretty tough to do. This program is designed to be pretty much self-" 662 print"explanatory, but there are things that will help you when using it. First, be" 664 print"patient - it's in BASIC because of the large amount of floating point" 666 print"calculations needed - this means that it's a bit slow in responding to commands" 668 print"- sometimes it takes up to a second or so for the program to recognize a" 670 print"command - once you get used it shouldn't be a problem." 672 print 674 print"The program continuously requests data from the Mirage and updates the screen" 676 print"in a loop. As MIDI bytes are read, small ticks are displayed in border - I've" 678 print"tried to keep this as innocuous as possible. If you don't like it - tough!" 680 print"[C/DN]You can set the frequency of the pitch to coorespond to from a quarter to four" 682 print"waves per page (256 samples). This should be enough of a range for most":print"sampling needs." 684 print"[C/DN]Users in the U.K. or others that have PAL rather than NTSC machines need to" 686 print"change line 215 as per the comments. Also, I don't have an Input Sampling" 688 print"Filter so I can't test that. For more information, run the MOREINFO program." 690 print" [RVON] -- Any key to resume -- [RVOF]"; 695 geta$:ifa$=""then695 699 goto400 700 rem calculate the internal filter frequency 701 rem i think this is pretty close 710 ff = int(exp((iv-25)*m+b)+.5):return 750 rem calculate the note name and print it and the cooresponding error 755 if fr<=0 or cl<=0 or lt<=0 then return 759 rem you're gonna love this next one.... 760 nn = log(fr/cl)/lt:rem nn is the note number based on c=0 765 nv=nn-(int(nn/12)*12):rem normalize to one octave 770 print "("nt$(nv+.5);:rem print the note name 775 ne$ = str$(int((nv-int(nv+.5))*1000)/10):rem the error as a string 780 if mid$(ne$,1,1)=" "thenne$="+"+mid$(ne$,2):rem put a plus sign if needed 785 print " "ne$"%) " 790 return 800 mt = nn + 36: rem convert to a midi note number (see line 760) 810 mn = int(mt+.5):rem nearest number 820 ne = (mt-mn):rem the 'error' 825 nb = ne/br*8192+8192:rem calculate the 14 bit pitch bend (br=bend range) 830 nh = int(nb/128) : nl = int((nb - nh*128) + .5) 835 poke ad,224+ch:poke ad,nl:pokead,nh 840 if ln<>mnandoo<>0thenpokead,144+ch:pokead,ln:pokead,0:pokead,mn:pokead,oo 845 ln=mn:remember the last note 850 return 860 rem send command to press up/down button 865 bt=15:ifa$="+"thenbt=14 870 pokead,240:pokead,15:pokead,1:pokead,1:pokead,7:pokead,3:pokead,13:pokead,bt:pokead,127:return 900 rem get out of here.... 910 poke sd+4,wv:rem turn the sid chip off 920 poke ad,128+ch:pokead,mn:pokead,64:rem last note off 930 fori=0to15:pokead,224+i:pokead,128:pokead,0:next :rem reset pitch bend 990 print"Done.":end