[ 53280,0:53281,0:646,(162):"":" USE LYNX TO DISSOLVE THIS FILE":10 2 *LYNX XVII WILL CORLEY 6 BOOT 1 P 65 PLAYER 11 P 230 EDITOR 83 P 84 MOZART570.TUNE 33 P 25 MOZART570.MACS 20 P 248 QUICKREF.PETSCII 31 P 144 0&EDEDIT.U.S>)INTERRUPT.K.S)OPERATORS.C.S!*PLAYER.O +BOOT+PLAYER PLAYEREDITOR Ơ ̠ L|PULSE1SIMSAWPULTRITRISAWSIMTRYSAWPULPLUSE2ULSE3TPUL2 TRIPL2 w           R-------HIJKL#N##Q##TUVWE.~L:LLLL7LLLLLLLL(hPhh`LITE V1.0 SLJ ->Qf{8Z}#S0pGG wah0N`1>k<9cK E}ys|~. !#%'*,/258;?CGKOTY^djpw~&1@  ~ 0m .P ' cHH$ .Afc!c)Qsc1mc!Aca cAc)Asc.Q c.Q c N~B 0H @ @ @x hܭX` :L12k7EW#v'j )m,`)0`ɏ noLhhʎ%ԍ ԍԍ      (LlX)X XX` `L4 P`I49`4m`4mI9``D D`D)D`HhLiHH hhL8L $-6?HQZclu)qBԽrCԽsDԽtEԽuFԬy5X)yXԭW)xWԽwVԽvUԬ`I-WWԬ`m`zmy`9m8`H&h`hyz}~`h89<=`J J %J /-J J '&J L*ȹȌ L*LY@@ԽAԮJ J '&J 9-/J 7 J ?'J LȹȌz~ LLHY@GԽHԮ/J 7 J ?'J C+GJ O!J W(J `ȹȌ9= `L Y@NԽOԮGJ O!J W(J `H8L lHHPH`se^'57]rOkʪ)J|L|)  wL|xHܩܩܭghX@ |) !Щ ** wHAT THE HECK DID YOU JUST DO? ** sOMETHING DRASTIC HAS OCCURED. >~) |*|ԩ | ȃLŅx|ƍܩBܩX`#  ϭ hhh@L1}}}}} L - lOAD FILE S - sAVE FILE D - dIRECTORY @ - sEND DISK COMMAND C - cHANGE DRIVE NO. X - eXIT cURRENT DRIVE = 1 8 0  LSD@"C*X` L>~ ~L>~ t~ >~L"}  >~L"} # )~L"}   i` pRESS A KEY TO CONTINUE... ̩ L ̠~  4  Ђ  L$}EC  >  }i}j}}i $ `q b O 8` SAVE FILE: *** SAVE ERROR *** SAVE ABORTED OLD VERSIONS ARE LOAD ONLY s  _  }% P }U }M  }}  } `L 9 8` \ *** LOAD ERROR *** LOAD ABORTED. INCORRECT FILE TYPE. LOAD FILE: > ' %    L     LH  hi0OPEN ERROR # L ͤɠɀ ( Ԭ̙  `%(!H m***ih` iԅ8ԅ`Ii i@I `큽 `hhi HH` ԁ`&'hhi HH'&`nFnjfjfi ekHlennhm`ni&j*&nHknlnhkHihm`>klij+I0 IpikH Dhmeiijij8`ijkl dmHijh 0:i `ijkl dmHijh 0:i ԁ`HJJJJ )h) 0:iLԁ68475Dk4885944y5z8|9}kz}k`m8km967kαδk`ΆM됍 pL  Щ!Щ@&   ] '   p n' } m q   k s' r ] q (bLAHTUNE V.a slj 5/97 (mACROS: (fIELD1: (fIELD2: (fIELD3: (eND:  (frebot: (fretop: (cLIP:  (aUDIBLE  (tRANSPOSE  (NOTE:  (DUR:`0H`x p H m М ιh m#   #  #       M ԁ  ԁ#   ȱ = φL셬 8e I` }   PL;LLLΆ AY`Ά .` A,B-Lͧǥ̶ҲϹ־ʵ6Qڇ")0dugh = hgL`ө˩éлгЫ 08I0 Џ i `L 0: AGI0 LiLLLL   ` ` i L i LL   ͦ: AG0ϝ 莎 < }hhL PХhhL;ʎ L i` P {N|OLΆ `` .<>@+-޻%*=؋6N5CEc h뉻݉I`Nnܭܭܩ`.LƉ 8DID``κ`)Lߊ 88(Lߊ) 88Lߊ / 8 8i(Lߊ (gO TO LINE # & ` iji&jji8ʅij iykylk8lA됥kl / ]Fjfi i ji芬` ] (gO TO MARKER # & `  i 8юNLߊ /됍 L͝ 8`됮 ]Lm` ǟ" ͝ / U޶`됮 ]ιLm`)됭 Hh ߊLH  (cLEAR ALL DATA? Y/N & YXii E ȃ?쐍됙hhLŅ` 8` ] kmlm LmXʥk l  i8iȱii k l'   i8iȱiiШ45k8l967 :8 88L̍ m>%L N 8 `LM>8mLmMܮFʽ  imLiȱimMi  imLiȱimMiк4mL85mM967 : mLmMmLmMmLmML Lii`8έͪ8퐭` /`Iii` ii LМ /`Iii`i6i7458889L:9iLiM X456789L:`  (cLEAR sid REGISTERS? Y/N & Y @` /`Iii`ij퐑ii   & fOLD NAME:eiij  ͦ &̑i ä𿩝 i  i 8HhLߊ i jiͤjTi ȱi ȱi ȱi ȱi    J ii ijР` /`I i i8HȱihLߊiji&jeij &j &je ije j` /`  (dISSOLVE THIS FOLD? (Y/N) & Y / i8i 4j9i567 :8 ΥL ʭ ` ` ` `Ά 0ݨ`ɆɇɈɌ`  ߓݓޓ ] E !Ѝ ЩLENa(.7\ cURRENT INTERRUPT COUNT=$ Ђ $   ijhhL˅MIM LH = (sINGLE STEP, SKIP=^ `) ڕL   dS]Cr Ά`H 8ʎ 8ʎ  8ʎ LH^_` ` _L ^La) ILH  ((d)UR TRANSPOSE=   ((n)OTE TRANSPOSE=  E DN LH 𕍶А І0mm`   !`D)DԭK)K ԭR)R` C  ԁ ԁ e  ԁ e ԁq CCи >~LHDC  i0:i ԁ ԁ ԁY  ԁ( ԁY ) ԁ ԁ ԁC 6 ɑ (E LHC 6CɭC 6C CY ؘLCD iA ԁ ԁh  ԁ ԁ ԁ ԁ  ԁ  ԁ ԁ( ԁ ) ԁКCD 6 Hɝ3ɑ" ME DLHC 6CнC 6C 6DD 6D iD ؘ D ;Ti nOTE TEXT:  C  ؘLO fREQ HI: C ؘLO fREQ LO: C pOSITION (0-23): ĮCh ` $- i` i` iIi`D =ȱI`*jfhPӢJXj@` }}}}}} } } }} ȃLH lOAD/SAVE MUSIC }} } }} }}F}LH lOAD OLD VERSION MUSIC uNKNOWN DATA FORMAT >~Lmnmψmо Pߙ }i4}i58ߙij4ei65ej7ߙ89 :6i@47i54i65i7@89 :8mn8ߙiim }4m}56789 :68467576m87m9 em en>emenem ien jiͤj"iemiȱieniii ij E ȃ}LHI/) ڕL ܭܭܩLHܩƍܩBܩ LH   `   `Hh`M$Ȍ  ` 8HhLߊ hy =LX =L`Y@ 朩 # i  PR }P_H08) 朩 _ ( P$ }"0: OA80 L5`L;L /  i`!8 / `HH ͝ ǟ޶hhޢ 8e bhh`@ ԁ i ԁ 8 LO /% ڟ+ͪͬ>퐥% ԁȱ0IH (HLDLٽP ԁ ԁ 0 ԁ ԁ ԁ ԁhi0:i@  ԁ x ԁy ԁz ԁ{ ԁl ԁo ԁgl ԁ  Lb ( --- ---LR` sev agl dgl alo dlo lin rep ren sto gon gof res jmp jsr rts 8` 8` @`J`H ? ԁh & ԁ' ԁ( ԁ)Lԁ nOTEoCT dUR vAR#:;< ڟH( ԁm ԁh ) ԁ<;:0^HHٽP  ԁ  ԁ- ԁ 0 ԁ ( DUR hY L& (hOLD NOTE,L/ LDVˡ6Ohv$IHg ԁh 1 ԁ8 0 ԁ= ԁL)Hl ԁh (sET VOLUME=L (aCTIVATE GLOBAL z ԁ'L&{ ԁ'L& (dEACTIVATE GLOBAL Lj (aCTIVATE LOCAL Lj (dEACTIVATE LOCAL Lj (lOAD INSTRUMENT e  ԁL& (pLAY NEXT SECT ( TIMESL& (eND REPEAT SECTIONL& (sTOP CURRENT VOICEL& (gATE ONL& (gATE OFFL& (rESTART SONG!L& (jUMP TO mHHJ  / ( @i ԁ hhL& (jUMP TO SUBR AT mL (rETURN FROM SUBROUTINEL& ' ԁ`X X@ Щ!Щ LATTACK :00 WAVEFORM: DECAY :00 TRI SAW PUL NOI SUSTAIN:00 PULSE WIDTH: 0 RELEASE:00 FREQ: 0  GATE RING SYNC TEST FILTER: V1 V2 V3 LOW PASS BAND PASS HIGH PASS RESONANCE:00 CUTOFF:0000 V1 V2 V3 HI bccccccccSIDcccccccckbbbbbbbb] (ؙPؙxؙؙؙؙوi( Ƚ@ Ȋi ȽG Ȋi ȽN i ȽU  ȭ  ȭ І6  ͬ8 ڬ6&; ڬ6 ڬ61XIX6EJJJJ @ i 6E)EE) A i6E)EFJJJJ B i 6F)FF) C i6F)Fą6i=@1i D ȅ6 =@1i E ̅@=@1i F 6i Ѕ=@1i G 6BC)C .Ha ͬ 6<B>C>^C~B+B9C-BCBLCC ɑ ڬ  ڬ6@A Ia ͬ 6+@MA-@A@LAA<@>A>^A~@ɑ ڬ  ڬXm6=@1i J m6=@1i K ]m6=@1i L m6=@1i M ׅ-W1i N څ-W1i O ݅-W1i P -X1i Q  -X1i R H@-X1i S  WJJJJ T i W)WV & & & U .U% ͬ 6<VU U)UVL>NV**** UJU+Ui)U?VL-UVʎULVV ɑ ڬ  ڬLŅL\ ̪L V@@ULƤ  0 6 hhLPLOAD INST? (0-D)  0X e 6BqCrD sEtFuVwUv-W W)xX)y hhLPSAVE INST? (0-D) 80 )`    e  `NAME? 68 i` HK ̬ ڬRY0a6]DDԮh`AF@IQGYRETSPN @ ͬ "+-ɑ ڬ  ڬ)` ͬH h @E@`ɑ ڬ ڬ`̬ `)`HJJJJ h) 0:9`H 0ijh i0`08H'h튑Ȣ08Hh튑Ȣ/8dȢ/8 ȥi0`z~ |fz{~[z8[ I[`[ I`   0$ ԁ   ԁ ԁ` i~iz`~z8z` Щ! ܭ I ȭ Ʌ8Ɇ76Nɑ= LEHɓɈbCBDD ~L\ HL\LŅL7 ȭ[[Ч ȭ[[ L\ .L\ jL\I L\ L\ }}~z8}z} }ȍ }|}} }}L\457676684,75-8,8{-9 :{cȱdz~8c8,d-dc8,-L\lOAD/sAVE MACRO BUNDLE [ 0 ԁ     ` (cLEAR ALL MACROS? (Y/N) Y`Lw  (dELETE MACRO? (Y/N) Y`[ 0 ~z4z586ȱ7|}|m~z8}mz9[|qȭ}q8L:[ 0*ȱ+ ~z48,z5-+7*67689[ 08,ȱ-[ 0 :*8,+- *8훴,+휴-4m,85m-9867 :[ 0m,ȱm-` cOMPILING MACRO i Ђ L $h``8 c dcͤd"c8cȱccci cdҭ~z8,z--4m,85m-967 :,y-y魤m,m-cxɥdyɠcecid iiiY :i 0 ɠaȱb } }LUi xɝyɝН48c,5d-67c8d9 :8,-魤8,-ee c dcͤd"cecȱcecci cdҠ    ȃ (RETURN) L! MN 0L䴩 %H8 2h$ 'Ii I@I LJ LJɔ& ȑ LJ  LJɝ  2 LJ ' 2 LJɑ6MN 2 ˸ ݸM ZN LJ9N 2  ݸLܵ  ZN LJ  ù  LJɬ'  LJɈw C 2MN } } }}}}}} }}  0LJLOAD/SAVE TEXT FILE ɓLMN Ķ %YLִ 0LJ CLEAR ALL TEXT: ARE YOU SURE? (Y/N)ɼE C 2MN U abcd C t 0LJɽ  `LSTOPQR`STOPQR`ii`' Ȅ 8H=ei8尅居泠ƲƳ0EIi8泤ƲƳ0 ƱƵ 0)`i? @i  @h08`I8ei`  8ei i(i`8흴ʸힴ ʸ` ˸*   ˸  8(``HHHHHH  Z ( hhhhhh `H )@`i?(h`3'8(' `ȑ ƴŴƵ `+` C UM ݸ  tMNL H H H  h h hi0L&*洈` %[  TƵL C ƴL  ` м `  L%PRESS A KEY TO CONTINUE... `H̅ͅϱ)h`H̥ͩh`COMPILING... | ~ zɠ}  }$eaabLIR `ee a * a ȱa ( ̅e ̅fe ( LCOMPILATION SUCCESSFUL! Ȍ8}`͌}`Ȍ8}`Ȍ8}`eccde`zʅefa{ʐ e}`f{ʍ{ʍ ͽ lH˅efa ߽&IːHIiefhe}`fӽI`a ,_ $eaab; ȱa ~`a  ` ,<> ; &-+`a#/H Hwhh} Ӿa,}`LǾHa$ H}hhLǾ H}0hh Ӿa,A  L hhɩɭ Ӿa,}`a+T Ha#}` Hhmmɩ$}`hmm$}`}`- a#}` 8턼턼LӾ8턼턼LӾ&}`ef a$%e&fe&fe&fe&fB fHee&fe&feeeheff%a80 ͏eeefȱa ߽Ъef` }`aGWLgML S}WIˍI.@ɮA`yJˍKˍ`JHK˪h` RNi0` >:/i,`   i`}`}``` ü``` ༰`;&       `L;&     )    L}`) ` } sa& da#ީ}`>-" F }C a& L}`<}`  } a&L}` ­} ,)  L` ­}0 ,) 8   L­ɩ L ɥ  ,)   L` ­}B   ) >Í?  ,)  Lm` ­}C   hĭ&8  / * ) Lé?í) L`   ] X ) ) hĭ' " )  L;`) >Í?  ,) ``>é?L@é`>é?Lé>é8?L@é>é8?Lé >é?L@é >é?Lé>Í?L@é>Í?Lé@>é?L@é@>é?L }  L,}` ũ ))  L, })  L,}` }N , 4) )   ,L}`>é? ­} ·) >Í?  ,}`}`}`>é8? ũ    Lf) ɩ L)  · ,   ` a  `  } LƩ}`d c L` TaPȱaOMȱaSF ͽ`NȱaE5ȱaG ͽ`Q$ ͽ`EȱaQȱaU ͽ`}`}` ƍ [Q Q Ic8edeIʭI L  L  L}`}` L    L}`}` I d c   `  L d c   ` e f;Ƞceȥde;` e fce;ȥdf;ɀ ;Ƞe;`"}` }`L dc   7 ʎ?ʩ > ?L ɩL@ ɩL@ ɩ!L@)BADBANBDEaBEOBIN BMOBORBSUBTECOMDATBDELDONaELSEMBENTzFORGET ILOLOOLWHSETUNTZV1G V2G*V3G4V1S\V2SfV3SpWADWAIMWANWDEWENWEOWHEWIN,WMOWORWSUWTE$ATDKECOFFSETCREGDCURFIELDCURVOICEDATA@DURFHITABFLOTAB@FREQ@INSTNOTEPWIDTHBSHADOW@SIDSURELFV1STOPV2STOPV3STOP4R_x̭̄̑'8S`~͕WHAT THE HECK IS THAT?! ERRORBAD ARGUMENTINDEXED MODE NOT ALLOWEDWACKY INDEXFUNKY NUMBERI AM TOTALLY CONFUSED ERRORWHERE'S THE REST OF THE LINE?ILLEGAL DESTQUEUE HOSEDSTACK BLOWNBAD SOURCEI TOLD YOU TO USE *BYTES*!LOOP/WHEN TANGLENOWHERE TO LOOP!UNCLOSED LOOP OR WHEN/ELSEMISSING WHENBRANCH TOO LARGE -- USE LWHENTHINE ARG FLOWETH OVERTHINE ARG FLOWETH UNDERJr's)JR|5J'Yr}u^)JR%7z)JT7s|UR)N\ԥ*nk_&kn.kr]k[k|涪kkvoevio_6oo/o_w%{s%tݹ)|䧹rKu_%)r)|ws)JPULSE1SIMSAWPULTRITRISAWSIMTRYSAWPULPLUSE2ULSE3TPUL2 TRIPL2 w          ???????????R------- B BB #B E.~h-.L:LLLL7LLLLLLLL(hPhh`LITE V1.0 SLJ ->Qf{8Z}#S0pGG wah0N`1>k<9cK E}ys|~. !#%'*,/258;?CGKOTY^djpw~"&,b"j&+&1@  ~ 0m.P ' cHH$ .Afc!c)Qsc1mc!Aca cAc)Asc.Q c.Q c V6~9p#f'0Hƴj %* @ @ @x hܭX` :L12k7EW!%* )m,`)0`ɏ noLhhʎ%ԍ ԍԍ      (LlX)X XX` `L4 P`I49`4m`4mI9``D D`D)D`HhLiHH hhL8L $-6?HQZclu)qBԽrCԽsDԽtEԽuFԬy5X)yXԭW)xWԽwVԽvUԬ`I-WWԬ`m`zmy`9m8`H&h`hyz}~`h89<=`J J %J /-J J '&J L*!ȹ!Ȍ L*LY@@ԽAԮJ J '&J 9-/J 7 J ?'J L%ȹ%Ȍz~ LLHY@GԽHԮ/J 7 J ?'J C+GJ O!J W(J `*ȹ*Ȍ9= `L Y@NԽOԮGJ O!J W(J `H8L lHHPH` $h`VIB1-@i@ԽAiA $- $@8@ԽAAԮ--L $@i@ԽAiA $@8|@ԽAA $@8|@ԽAA $@i@ԽAiAL&D DԮ $D)D $h`Bi(BԽCiC $L#-., $@}-@ԽA}.AԮ,, $@8-@ԽA.Aԩ,-i(-.i.,вL ?>?@Ԯ?Ԯ3= $=?>}?>>пL@0.A/1.}../}//2 $2 $@i@ԽAiAԽ@8.A/ Ž.Ԯ/ԩ2 $20ԝ@1AL|.--}- $-@Ԯ $@ԮL0 $LDRUM100}0ԝEԝFԝD0@Ԯ0 $ԝD@ԽA $ $ $ԝD0@Ԯ0 $h`,($ ԝDԝEԝF $ԝD@Ԯ $ $ $ $лԝD $h`*ADAGIO FROM SONATA FOR*VIOLIN AND PIANO, KV570 W.A.MOZART*SLJ 5/97*~|~xtr^~~~|  ~|x~|x|~~||xxv ~xpnl~|z| nrl nrv rvx| x|v vxvx vx|  x|v vxvxlnlnzxzxnpnpvljljrtrtnpnpz|~ hjn pnpr x~ztnptxtz~zxtxzx|~x~~|~|~~|ztrrpnljnptpn~|xt~pzntptvxnxzxpxxjtvtnttfrtr~rrttrrttrrtt|~~ | x|~~~|xtx|~~~~~~|~xtt|~xvx~|~~|xtr~|~njxtfpdfj|j|~p jd XVnf\V\fdfptxfjnpr~|~~|~|~~ ~zxzxv | ~  ~|x~|x|~~||xxv ~v|x d\f\jfffff~~~d`Xpnj0HHHHHHH.FFFFFFFH@<>&>>>:640`f`\hnhdf`dVvpjn`vpjn`fhfhhjhjfdfdhjhjtXf`f\fbf`fXfVfNfVf\fXf`fVfNfXf`f\nhnXj`jXjdjVf\fXj`j\n\pVflflfjfjdjdjbfbf`f`fb\fdfdf\VNR`X`Xj\jVf\fbtft`b`\b`hjdf``\djlf\djlf\djp\\\N`X`N`X`N\V\N\V\N`X`N`X`N\V\N\V\Hdtdfntnp\^`R`Z`N`R`L\R\Xj\jVXDDNV\\\fnttt6>DDD,6NDNDNH>@Dnf\V\f`VX\Dpn`ntn`jpj`hnh`j^p\jpj\fnf\djd\fnfZ^n^`X`XRfhjln0HHHHHHH.FFFFFFFH@<>&>>>:640hnhjrxr pnd~~~px~xplt~tljr~rj^dpd^`fn`fnX`j`jp\fntnf\djt `fnx~~xnfdjpv||vpjfnx~n~n~pnjfd`fnx~flrx\dnt|hntzdrft`rdrVv||vnpnjfdn|p~j|Vjv`fnx~pnjhdn|p~j|Vjvx```````````^^^^^^\\\\\\\ `fXfVf\fXf`f\fVf\fVf`fXfVfbf`fXfnxhxjxpxjtptntft`jXjVfXdfdfjnpnptxzxpjzpntptvx|~ `dfffd`\`dfffffnjfdjf`\x|~vx~||~`frx~dt~x~|~tnf\~tnf\fnt~|||~~t~tnjfjnptvxpjfnjhjjf`hnx`jpxhntxpnj\djt|\fnt~|tpjfnt~Z`flrx^djpv|`hnx`flx~jpzzjpzjpzV`fnx~|pnjfd`fnx~~xnfdjpv||vpjfnx~n~n~pnjfd`fnx~`hntjpxlrx ((ECTN 3,c-ECT 4R((1ST END}SECTN 3"k#EC4R-1#$EC3-2 &a'EC4R-21ST END$/$1ST ENDE 2ND END2$$2ND END)o)2ND ENDb""HEME-1j&&HEME-2+,HEME-3ECTN 2x##ECTN 2l'(ECTN 2x)a*ECTN 5N ECTN 5$$ECTN 5 %!ECTN 6%o%ECTN 6j**ECTN 6**ECTN 7r%%ECTN 7(!!ECTN 7!]"NDSEC %e&NDSEC *+NDSEC UZUY6UY6UeY6U%[.U%ZU[*UZUY>UZUZUZUeZUZUeZUZUY*UeZUZU%Y)UZU%ZUY:UYJOM[%KMwnm9uKM˪kY%K7Js:_K|MwjMKNn|ٯiy9KNsg)+r]KNn|)J1hCOMMENT VIB1 ENTRY BMOVE #3 > L1 LOOP LOOP WADD #6> FREQ & SID,COFFSET WAIT BDEC L1 UNTIL EQUAL LOOP WAIT WSUB #6> FREQ & SID,COFFSET BINC L1 BTES L1<#6 UNTIL EQUAL FOREVER; BUZZ SLJ ENTRY LOOP WAIT WADD #400 > FREQ & SID,COFFSET WAIT WSUB #380 > FREQ&SID,COFFSET WAIT WSUB #380 > FREQ&SID,COFFSET WAIT WADD #400 > FREQ& SID,COFFSET FOREVER; GATE TOGGLE ; THE IDEA IS TO START THE DECAY ; CYCLE ON THE LAST BEAT, E.G. TO ; ALLOW SEQUENTIAL NOTES OF THE ; SAME FREQUENCY BOR #1 > CREG&SID+#4,COFFSET ;SET GATE BTEST #1>DUR WHEN NEQUAL LOOP WAIT BTEST #1>DUR UNTIL EQUAL WEND BAND #$FE > CREG&SID+#4,COFFSET;CLR GATE DONE; SWEEP THE PULSE LOOP WADD #40 > PWIDTH&SID+#2,COFFSET WAIT FOREVER; ; VIBRATO 2 ; ;LIKE NORMAL VIBRATO, BUT FREQUENCY ;WIDTH INCREASES IN TIME ; ;USES VARIABLES L1, L2, AND L0 ; ENTRY WMOVE #35 > L1 ;INIT SWEEP SIZE BMOVE #3 > L0 LOOP LOOP WAIT WADD L1 > FREQ & SID,COFFSET BINC L0 BTEST L0 > #6 UNTIL EQUAL LOOP WAIT WSUB L1 > FREQ & SID,COFFSET BTEST L0 > #4 WHEN EQU WADD #40 > L1 WEND BDEC L0 UNTIL EQUAL FOREVER;ARPEGGIO 1 ;STRATEGY: NOTE TABLE IS SUCH THAT ; HALF STEPS LIE IN EVEN SLOTS IN ; NOTE TABLE. THUS TO DO A MAJOR ; ARPEGGIO TAKE THE CURRENT NOTE ; AND ADD THE APPROPRIATE INTERVAL ; ;TO USE: LOAD L7 WITH THE DESIRED ; SPEED. ; ;USES VARIABLES G13,G14,G15 AND L7 ;SO ONLY ONE ARPEGGIO AT A TIME! ; DATA EMBED 2 ;NUMBER OF STEPS EMBED 8 6 10;STEP DIFFERENTIALS ENTRY LOOP BMOVE NOTE > G15 ;STARTING NOTE BMOVE #0 > G14 ;DATA INDEX LOOP ;NEW FREQUENCY DATA INTO SID BMOVE FLOTAB,G15 > SID,COFFSET BMOVE FHITAB,G15 > SID+#1,COFFSET BMOVE L7 > G13 LOOP ;DELAY SPEED WAIT BDEC G13 UNTIL EQUAL ;ADD OFFSET BADD DATA+#1,G14 > G15 BINC G14 BTEST G14 > DATA ;NUMBER OF STEPS UNTIL EQUAL FOREVER ; ; WOBBLE ; ; THIS MACRO WOBBLES BETWEEN A NOTE ; AND THE NEXT OCTAVE UP. ; ; USES: L2 L3 L4 L5 L6 ; WMOVE FREQ > L2 & L4 WADD L2 > L2 ;NEXT OCTAVE LOOP BMOVE #7 > L6 LOOP WAIT BDEC L6 UNTIL EQUAL LOOP WAIT WADD #144 > FREQ & SID,COFFSET WTEST FREQ < L2 UNTIL POS WMOVE L2 > SID,COFFSET BMOVE #21 > L6 LOOOP WAIT BDEC L6 UNTIL EQU ;RESTORE OLD VALUE WMOVE L4 > FREQ&SID,COFFSET FOREVE; ; 2-CHORD ; THE IDEA IS TO SIMULATE A CHORD ; BY SWITCHING BETWEEN TWO NOTES, ; MUCH LIKE THE ARPEGGIO MACRO BUT ; AT HIGH SPEED. ; ; (rEALLY JUST A HIGH SPEED TRILL. ; oNLY WORKS WELL FOR HIGH NOTES, ; LOWER NOTES NEED EXTRA WAITS) ; ; THE INTERVAL, I.E. THE VALUE TO ; ADD TO THE CURRENT NOTE, MUST ; BE PASSED IN VIA L2. ; DATA EMBED 00 ENTRY BMOVE L2 > L1 BADD NOTE > L1 LOOP WAIT BMOVE L1 > DATA BMOVE FLOTAB,DATA > SID,COFFSET BMOVE FHITAB,DATA > SID+#1,COFFSET WAIT BMOVE NOTE > DATA BMOVE FLOTAB,DATA > SID,COFFSET BMOVE FHITAB,DATA > SID+#1,COFFSET FOREVER ; ; rITARD ; ; tHE IDEA OF THIS MACRO IS TO SLOW ; DOWN THE MUSIC AT A UNIFORM RATE ; AS SPECIFIED IN g0. tHE SMALLER ; THE NUMBER, THE GREATER THE DELAY! ; ; tHIS MACRO MAKES A GOOD GLOBAL MACRO ; ; SLJ DATA EMBED 0 ENTRY LOOP BMOVE G0 > DATA LOOP WAIT BDEC DATA ;COUNT DOWN TO ZERO UNTIL EQUAL BINC $12FA ;iNCREMENT DURATIONS BINC $12FB BINC $12FC FOREVER EQU; ; A SIMPLE DRUM ; ; STARTING FROM THE CURRENT NOTE, ; IT PLAYS A SHORT SEQUENCE OF NOTES ; ; USES JUST ONE INTERNAL VARIABLE ; AND ONLY AT THE BEGINNING; ; COMMENT DRUM1 DATA EMBED $00 ;TEMPORARY VARIABLE! ENTRY BMOVE #168 > DATA ;24*7=HIGH OFFSET BADD NOTE > DATA BMOVE #00 > ATDK & SID+#5,COFFSET BMOVE #$F7 > SUREL & SID+#6,COFFSET BMOVE #$81 > CREG & SID+#4,COFFSET BMO FLOTAB,DATA > SID,COFFSET BMO FHITAB,DATA > SID+#1,COFFSET WAIT BMOVE #$11 > CREG & SID+#4,COFFSET WMOVE FREQ > SID,COFFSET ;OLD FREQ WAIT WAIT WAIT BMOVE #$80 > CREG & SID+#4,COFFSET BMO FLOTAB,DATA > SID,COFFSET BMO FHITAB,DATA > SID+#1,COFFSET DONE; ; BASS DRUM ; DATA EMBED 00 ;INDEX VARIABLE EMBED 00 ;SPARE VARIABLE EMBED 44 40 36 32 26 20 14 8 ENTRY BMOVE #00 > DATA BMOVE #$81 > CREG& SID+#4,COFFSET BMOVE #00 > ATDK & SID+#5,COFFSET BMOVE #$F7 > SUREL & SID+#6,COFFSET LOOP WAIT BMOVE #$11 > CREG&SID+#4,COFFSET BMOVE DATA+#2,DATA > DATA+#1 BMOVE FLOTAB,DATA+#1 > SID,COFFSET BMOVE FHITAB,DATA+#1 > SID+#1,COFFSET WAIT WAIT WAIT WAIT BINC DATA BTEST DATA > #8 UNTIL EQUAL BMOVE #$10 > CREG&SID+#4,COFFSET DONE; ; kEEP IN MIND THAT LEADING SPACES ; ARE IGNORED IN COMMENTS, AS WELL ; AS _ COMMENT *ADAGIO FROM SONATA FOR* COM VIOLIN AND PIANO, KV570 W.A.MOZART COM *SLJ 5/97*3hIBRATO 1 hUZZ iATE DECAY jULSE SWEEP $kIBRATO 2 lRPEGGIO 1 o o oOBBLE qq2-CHORD sITARD ?u @u Au Bu Cu DuIMPLE RUM wASS DRUM y y y y y yUTHOR ~z:JvW)JLAHTUNE -------- UICK EFERENCE, LAST REVISED 6/4/97 ERSION ATEST BINARIES AND DOCUMENTATION AT HTTP://STRATUS.ESAM.NWU.EDU/JUDD/FRIDGE/ MAIL SJUDD@NWU.EDU ----- LAY SAVED TUNE FROM : 4102 ARM RESTART: $700 ( 31744) - ON'T FORGET TO SET DEVICE # ON A REBOOT! OLD RESTART: $703 ERNAL ------ $1000 - HE MAIN PLAYER ROUTINE $1003 - NITIALIZE THE PLAYER $1006 - EDGE PLAYER INTO CURRENT ROUTINE $1009 - OAD INSTRUMENT (INST # IN .) $100 - ET FIELD POINTER FOR CURRENT VOICE (.,. = LO,HI) $100 - ET FIELD POINTER FOR CURRENT VOICE $1012 1 - ET FIELD POINTER FOR VOICE 1 (.,.) $1015 2 $1018 3 $101 1 - ET FIELD POINTER FOR VOICE 1 (.,.) $101 2 $1021 3 $1024 - ACRO EXIT EYWORDS -------- ; OMMENT <- (ACKARROW) ONTINUE ON NEXT LINE / / / / / / / / / 1 2 3 1 2 3 / LAGS RGUMENTS: --------- # #$ #% - MMEDIATE $ - DDRESS , - NDEXED MODE + - - FFSETS (#IMMEDIATE VALUES ONLY!) & - DDITIONALS ARIABLES: 1 2 3 0, 1, ... 15 LOBAL VARIABLES. 0, 1, ..., 7 OCAL VARIABLES. 0, 1, ..., 31 ARKERS. ---- ETURN NSERT LINE =-D ELETE LINE H-CLR LEAR ALL TEXT / XIT / ABORT COMMAND =-X XIT 7 ISK MENU =-C OMPILE MACRO (TO TEMPORARY BUFFER AT $000) NSTRUMENT DITOR ----------------- 1,2,3 ELECT VOICE 1 2 OR 3 A OVE TO TTACK F OVE TO REQUENCY SHIFT-F OVE TO FILTER TOGGLES TSPN OGGLE TRIANGLE/SAWTOOTH/PULSE/NOISE BITS GYRE OGGLE GATE/SYNC/RING/TEST BITS / UITE OBVIOUS THINK PACE OGGLE +/- NC/EC VALUE HIFT +/- NC/EC VALUE BY LARGE AMOUNT < > ULT/IV VALUE BY 2 (PULSE WIDTH, FREQUENCY, AND CUTOFF) SHIFT-L OAD INSTRUMENT (FROM INSTRUMENT TABLE) SHIFT-S AVE INSTRUMENT (TO INST TABLE) 1 USIC EDITOR 5 ACRO MANAGER (NE KEY, * OR IRA OR SOME SUCH, TOGGLES THE DISABLE VOICE 3 OUTPUT BIT) ACRO ANAGER ------------- / ELETE ALL FILES ON CURRENT DRIVE AND RESET COMPUTER DIT MACRO NAME E OR ETURN DIT MACRO C OMPILE ALL MACROS D ELETE MACRO HIFT- ESET (DELETE) ALL MACROS -P LAY SONG FROM BEGINNING/TOP PLAYING SONG 1 USIC EDITOR 3 NSTRUMENT EDITOR 7 ISK MENU USIC DITOR ------------ /,/ AVIGATE ETURN NSERT LINE AND MOVE CURSOR FORWARD PACE CCEPT CURRENT VALUE NSERT ELETE =-X ET BLOCK/CUT TO CLIPBOARD =-C ET BLOCK/COPY TO CLIPBOARD =-P ASTE FROM CLIPBOARD =-F ET FOLD BLOCK/END FOLD BLOCK % PEN/CLOSE FOLD TOGGLE =-5 (=-%) ISSOLVE FOLD @ OTO LINE HIFT-@ OTO MARKER ET HOME (BOOKMARK) =- O HOME < AGE UP > AGE DOWN =-< O TO BEGINNING OF FIELD =-> O TO END OF FIELD . (LAY NOTE UNDER CURSOR/RANSPOSE NOTE UNDER CURSOR AND) ADVANCE CURSOR HIFT- LEAR ALL DATA SHIFT-^ (PI) LEAR * OGGLE GATE BIT FOR CURRENT VOICE A-W,Y OTES 0-24 A-L,A#-L# OTES 0-24, ALTERNATE FORM X OLD NOTE 0-7 CTAVE 0-9,- URATION +/- NCREMENT/DECREMENT DEFAULT OCTAVE <- (BACKARROW) ACK UP ONE LEVEL IN NOTE-OCTAVE-DUR SEQUENCE THER: - I ET INTERRUPT - D DIT DURATION TABLE (UN/TOP OR 'E' TO EXIT) - N DIT NOTE TABLE (UN/TOP OR 'E' TO EXIT) - Z ISPLAY INSTRUMENT TABLE - P LAY SONG --P LAY SONG FROM CURRENT LOCATION =+, =- OUBLE/HALVE CURRENT PLAY SPEED (TEMPORARY, PLAYBACK ONLY) = OGGLE BORDER RASTER - A UDIBLE (PLAY NOTES AS THEY ARE ENTERED) - T NABLE TRANSPOSE SHIFT--T ET TRANSPOSE VALUES (NEGATIVE VALUES ALLOWED) . LAY NOTE UNDER CURSOR (IF AUDIBLE), TRANSPOSE UNDER CURSOR (IF TRANSPOSE ACTIVE), AND ADVANCE CURSOR - S INGLE STEP - SPACE, (S)KIP, (C)HANGE SKIP VALUE, RETURN=EXIT --S INGLE STEP FROM CURRENT LOCATION 3 NSTRUMENT EDITOR 5 ACRO MANAGER 7 ISK MENU 8 OAD OLD VERSION DATA DISK MENU -- ' FORGET TO RECOMPILE! :) LAYER DIRECTIVES: HIFT-W ET VOLUME (HE NUCLEAR WESSEL DISPLACES A LARGE WOLUME) HIFT-L CTIVATE LOCAL MACRO (0-23) =- L EACTIVATE LOCAL (0-23) HIFT-G CTIVATE GLOBAL MACRO (0-23) =- G EACTIVATE GLOBAL (0-23) HIFT-V OAD LOCAL VARIABLE WITH VALUE (0-7, 0-255) =- V OAD GLOBAL VARIABLE (0-15, 0-255) HIFT-M ET MARKER (0-31) =- M LEAR MARKER (0-31) HIFT-I OAD INSTRUMENT (0-13) HIFT-J UMP TO MARKER =-J UMP TO SUBROUTINE AT MARKER =-S ETURN FROM UBROUTINE HIFT-R EPEAT BEGIN (0-255 REPETITIONS) =- R ND REPEAT HIFT-O ATE ON =- O ATE OFF HIFT-S TOP VOICE HIFT-Z ESTART PLAYER RESSING UN/TOP- RESETS UNESMITH. /- WILL GET YOU OUT OF A JAM IN MOST CASES. VERYTHING -- MUSIC, INSTRUMENTS, TABLES, MACROS, ETC. -- IS PRESERVED AS BEST AS CAN BE. HINGS THAT BITE: - HEN A SONG IS PLAYING THE CURSOR WILL NOT FLASH AND UN/TOP IS NOT SCANNED. - ALLING UNCOMPILED MACROS CAN LEAD TO DISASTER. HE ACRO POINTER IN THE STATUS BOX IS HIGHLIGHTED WHEN MACROS HAVE NOT BEEN COMPILED. - ISSING MACRO POINTS CAN LEAD TO DISASTER. - AVING MUSIC DOES NOT SAVE MACRO TEXT, AND VICE VERSA. - NSTRUMENTS SHOULD BE SAVED BEFORE BEING USED. - F NO VOLUME IS SET THEN NO VOLUME WILL BE HEARD. - IS READ ONLY, SO USE THE HADOW FOR MODIFICATIONS - E SURE TO WRITE VALUES TO BOTH THE HADOW AND REAL IF YOU WANT TO SEE AND HEAR THEM! - ACROS _ALWAYS_ PRESERVE . -- IF THEY JUMP TO AN OUTSIDE PROGRAM, MAKE SURE IT PRESERVES . AS WELL! - HERE AT LEAST EIGHT DIFFERENT VERSIONS OF , NOT TO MENTION DIFFERENT FILTER CAPACITORS; SOME INSTRUMENT SETTINGS (COMBINATIONS OF WAVEFORMS, CERTAIN FILTER SETTINGS, ETC.) MAY NOT WORK AT ALL ON SOME S! EMORY LAYOUT: $0800 DITOR STUFF $1000-$19XX OR SO LAYER $19XX OMPILED MACROS IELD 1 DATA IELD 2 DATA IELD 3 DATA OLD STUFF REE MEMORY ... LIPBOARD ND OF FREE MEMORY ACRO TEXT $77 ACRO NAMES AND ADDRESSES (HOT DATE TONIGHT!) $700 EGINNING OF MAIN PROGRAM $ ND OF MAIN PROGRAM $00-$ SED BY COMPILER $000 REE MEM, SPARE COMPILE BUFFER ACRO TEXT BUILDS DOWNWARDS FROM THE TOP OF MEMORY; FOLDS, FIELDS AND COMPILED MACROS BUILD UPWARDS. HE CLIPBOARD IS STORED IN THE TOP OF FREE MEMORY. HERE IS TYPICALLY AROUND 22K OF FREE MEMORY (WHICH IS QUITE A LOT OF ROOM). ONVERTING BETWEEN AND ------------------------------- HE EDITOR USES A DEFAULT TIMER SETTING OF $426, WHICH SYNCHRONIZES THE PLAYER WITH AN SCREEN. USERS (AND SOME USERS) WILL NEED TO SET A DIFFERENT VALUE USING -I. HE VALUES ARE: 100% SCREEN SYNC: 656756: 64*262-1 $417 (RARE) 65678+: 65*263-1 $426 (DEFAULT) 6569: 63*312-1 $47 HE PLAYER IS SYNCHRONIZED WITH THE SCREEN WHEN THE BORDER RASTER DOES NOT MOVE. AND MACHINES RUN AT SLIGHTLY DIFFERENT FREQUENCIES. HEREFORE TO HEAR TUNES AT SPEEDS ON AN MACHINE THE TIMER VALUE SHOULD BE MULTIPLIED BY APPROXIMATELY 0.963353. IMILARLY, USERS SHOULD MULTIPLY BY 1.03804 TO HEAR TUNES AT SPEEDS. T'S NOT OF A DIFFERENCE, BUT IT'S A DIFFERENCE :). INALLY, THE NOTE VALUES ARE DIFFERENT THAN THE (DEFAULT) VALUES -- THAT IS, IDENTICAL PITCHES (TO THE EAR) REQUIRE DIFFERENT FREQUENCY SETTINGS USING -N ON / MACHINES. (T'S NOT *NECESSARY* TO CHANGE THEM, BUT IT'S WORTH BEING AWARE OF :).