Sharp X68000 Disassemblies
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

opmdrv3.s 238KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246102471024810249102501025110252102531025410255102561025710258102591026010261102621026310264102651026610267102681026910270102711027210273102741027510276102771027810279102801028110282102831028410285102861028710288102891029010291102921029310294102951029610297102981029910300103011030210303103041030510306103071030810309103101031110312103131031410315103161031710318103191032010321103221032310324103251032610327103281032910330103311033210333103341033510336103371033810339103401034110342103431034410345103461034710348103491035010351103521035310354103551035610357103581035910360103611036210363103641036510366103671036810369103701037110372103731037410375103761037710378103791038010381103821038310384103851038610387103881038910390103911039210393103941039510396103971039810399104001040110402104031040410405104061040710408104091041010411104121041310414104151041610417104181041910420104211042210423104241042510426104271042810429104301043110432104331043410435104361043710438104391044010441104421044310444104451044610447104481044910450104511045210453104541045510456104571045810459104601046110462104631046410465104661046710468104691047010471104721047310474104751047610477104781047910480104811048210483104841048510486104871048810489104901049110492104931049410495104961049710498104991050010501105021050310504105051050610507105081050910510105111051210513105141051510516105171051810519105201052110522105231052410525105261052710528105291053010531105321053310534105351053610537105381053910540105411054210543105441054510546105471054810549105501055110552105531055410555105561055710558105591056010561105621056310564105651056610567105681056910570105711057210573105741057510576105771057810579105801058110582105831058410585105861058710588105891059010591105921059310594105951059610597105981059910600106011060210603106041060510606106071060810609106101061110612106131061410615106161061710618106191062010621106221062310624106251062610627106281062910630106311063210633106341063510636106371063810639106401064110642106431064410645106461064710648106491065010651106521065310654106551065610657106581065910660106611066210663106641066510666106671066810669106701067110672106731067410675106761067710678106791068010681106821068310684106851068610687106881068910690106911069210693106941069510696106971069810699107001070110702107031070410705107061070710708107091071010711107121071310714107151071610717107181071910720107211072210723107241072510726107271072810729107301073110732107331073410735107361073710738107391074010741107421074310744107451074610747107481074910750107511075210753107541075510756107571075810759107601076110762107631076410765107661076710768107691077010771107721077310774107751077610777107781077910780107811078210783107841078510786107871078810789107901079110792107931079410795107961079710798107991080010801108021080310804108051080610807108081080910810108111081210813108141081510816108171081810819108201082110822108231082410825108261082710828108291083010831108321083310834108351083610837108381083910840108411084210843108441084510846108471084810849108501085110852108531085410855108561085710858108591086010861108621086310864108651086610867108681086910870108711087210873108741087510876108771087810879108801088110882108831088410885108861088710888108891089010891108921089310894108951089610897108981089910900109011090210903109041090510906109071090810909109101091110912109131091410915109161091710918109191092010921109221092310924109251092610927109281092910930109311093210933109341093510936109371093810939109401094110942109431094410945109461094710948109491095010951109521095310954109551095610957109581095910960109611096210963109641096510966109671096810969109701097110972109731097410975109761097710978109791098010981109821098310984109851098610987109881098910990109911099210993109941099510996109971099810999110001100111002110031100411005110061100711008110091101011011110121101311014110151101611017110181101911020110211102211023110241102511026110271102811029110301103111032110331103411035110361103711038110391104011041110421104311044110451104611047110481104911050110511105211053110541105511056110571105811059110601106111062110631106411065110661106711068110691107011071110721107311074110751107611077110781107911080110811108211083110841108511086110871108811089110901109111092110931109411095110961109711098110991110011101111021110311104111051110611107111081110911110111111111211113111141111511116111171111811119111201112111122111231112411125111261112711128111291113011131111321113311134111351113611137111381113911140111411114211143111441114511146111471114811149111501115111152111531115411155111561115711158111591116011161111621116311164111651116611167111681116911170111711117211173111741117511176111771117811179111801118111182111831118411185111861118711188111891119011191111921119311194111951119611197111981119911200112011120211203112041120511206112071120811209112101121111212112131121411215112161121711218112191122011221112221122311224112251122611227112281122911230112311123211233112341123511236112371123811239112401124111242112431124411245112461124711248112491125011251112521125311254112551125611257112581125911260112611126211263112641126511266112671126811269112701127111272112731127411275112761127711278112791128011281112821128311284112851128611287112881128911290112911129211293112941129511296112971129811299113001130111302113031130411305113061130711308113091131011311113121131311314113151131611317113181131911320113211132211323113241132511326113271132811329113301133111332113331133411335113361133711338113391134011341113421134311344113451134611347113481134911350113511135211353113541135511356113571135811359113601136111362113631136411365113661136711368113691137011371113721137311374113751137611377113781137911380113811138211383113841138511386113871138811389113901139111392113931139411395113961139711398113991140011401114021140311404114051140611407114081140911410114111141211413114141141511416114171141811419114201142111422114231142411425114261142711428114291143011431114321143311434114351143611437114381143911440114411144211443114441144511446114471144811449114501145111452114531145411455114561145711458114591146011461114621146311464114651146611467114681146911470114711147211473114741147511476114771147811479114801148111482114831148411485114861148711488114891149011491114921149311494114951149611497114981149911500115011150211503115041150511506115071150811509115101151111512115131151411515115161151711518115191152011521115221152311524115251152611527115281152911530115311153211533115341153511536115371153811539115401154111542115431154411545115461154711548115491155011551115521155311554115551155611557115581155911560115611156211563115641156511566115671156811569115701157111572115731157411575115761157711578115791158011581115821158311584115851158611587115881158911590115911159211593115941159511596115971159811599116001160111602116031160411605116061160711608116091161011611116121161311614116151161611617116181161911620116211162211623116241162511626116271162811629116301163111632116331163411635116361163711638116391164011641116421164311644116451164611647116481164911650116511165211653116541165511656116571165811659116601166111662116631166411665116661166711668116691167011671116721167311674116751167611677116781167911680116811168211683116841168511686116871168811689116901169111692116931169411695116961169711698116991170011701117021170311704117051170611707117081170911710117111171211713117141171511716117171171811719117201172111722117231172411725117261172711728117291173011731117321173311734117351173611737117381173911740117411174211743117441174511746117471174811749117501175111752117531175411755117561175711758117591176011761117621176311764117651176611767117681176911770117711177211773117741177511776117771177811779117801178111782117831178411785117861178711788117891179011791117921179311794117951179611797117981179911800118011180211803118041180511806118071180811809118101181111812118131181411815118161181711818118191182011821118221182311824118251182611827118281182911830118311183211833118341183511836118371183811839118401184111842118431184411845118461184711848118491185011851118521185311854118551185611857118581185911860118611186211863118641186511866118671186811869118701187111872118731187411875118761187711878118791188011881118821188311884118851188611887118881188911890118911189211893118941189511896118971189811899119001190111902119031190411905119061190711908119091191011911119121191311914119151191611917119181191911920119211192211923119241192511926119271192811929119301193111932119331193411935119361193711938119391194011941119421194311944119451194611947119481194911950119511195211953119541195511956119571195811959119601196111962119631196411965119661196711968119691197011971119721197311974119751197611977119781197911980119811198211983119841198511986119871198811989119901199111992119931199411995119961199711998119991200012001120021200312004120051200612007120081200912010120111201212013120141201512016120171201812019120201202112022120231202412025120261202712028120291203012031120321203312034120351203612037120381203912040120411204212043120441204512046120471204812049120501205112052120531205412055120561205712058120591206012061120621206312064120651206612067120681206912070120711207212073120741207512076120771207812079120801208112082120831208412085120861208712088120891209012091120921209312094120951209612097120981209912100121011210212103121041210512106121071210812109121101211112112121131211412115121161211712118121191212012121121221212312124121251212612127121281212912130121311213212133121341213512136121371213812139121401214112142121431214412145121461214712148121491215012151121521215312154121551215612157121581215912160121611216212163121641216512166121671216812169121701217112172121731217412175121761217712178121791218012181121821218312184121851218612187121881218912190121911219212193121941219512196121971219812199122001220112202122031220412205122061220712208122091221012211122121221312214122151221612217122181221912220122211222212223122241222512226122271222812229122301223112232122331223412235122361223712238122391224012241122421224312244122451224612247122481224912250122511225212253122541225512256122571225812259122601226112262122631226412265122661226712268122691227012271122721227312274122751227612277122781227912280122811228212283122841228512286122871228812289122901229112292122931229412295122961229712298122991230012301123021230312304123051230612307123081230912310123111231212313123141231512316123171231812319123201232112322123231232412325123261232712328123291233012331123321233312334123351233612337123381233912340123411234212343123441234512346123471234812349123501235112352123531235412355123561235712358123591236012361123621236312364123651236612367123681236912370123711237212373123741237512376123771237812379123801238112382123831238412385123861238712388123891239012391123921239312394123951239612397123981239912400124011240212403124041240512406124071240812409124101241112412124131241412415124161241712418124191242012421124221242312424124251242612427124281242912430124311243212433124341243512436124371243812439124401244112442124431244412445124461244712448124491245012451124521245312454124551245612457124581245912460124611246212463124641246512466124671246812469124701247112472124731247412475124761247712478124791248012481124821248312484124851248612487124881248912490124911249212493124941249512496124971249812499125001250112502125031250412505125061250712508125091251012511125121251312514125151251612517125181251912520125211252212523125241252512526125271252812529125301253112532125331253412535125361253712538125391254012541125421254312544125451254612547125481254912550125511255212553125541255512556125571255812559125601256112562125631256412565125661256712568125691257012571125721257312574125751257612577125781257912580125811258212583125841258512586125871258812589125901259112592125931259412595125961259712598125991260012601126021260312604126051260612607126081260912610126111261212613126141261512616126171261812619126201262112622126231262412625126261262712628126291263012631126321263312634126351263612637126381263912640126411264212643126441264512646126471264812649126501265112652126531265412655126561265712658126591266012661126621266312664126651266612667126681266912670126711267212673126741267512676126771267812679126801268112682126831268412685126861268712688126891269012691126921269312694126951269612697126981269912700127011270212703127041270512706127071270812709127101271112712127131271412715127161271712718127191272012721127221272312724127251272612727127281272912730127311273212733127341273512736127371273812739127401274112742127431274412745127461274712748127491275012751127521275312754127551275612757127581275912760127611276212763127641276512766127671276812769127701277112772127731277412775127761277712778127791278012781127821278312784127851278612787127881278912790127911279212793127941279512796127971279812799128001280112802128031280412805128061280712808128091281012811128121281312814128151281612817128181281912820128211282212823128241282512826128271282812829128301283112832128331283412835128361283712838128391284012841128421284312844128451284612847128481284912850128511285212853128541285512856128571285812859128601286112862128631286412865128661286712868128691287012871128721287312874128751287612877128781287912880128811288212883128841288512886128871288812889128901289112892128931289412895128961289712898128991290012901129021290312904129051290612907129081290912910129111291212913129141291512916129171291812919129201292112922129231292412925129261292712928129291293012931129321293312934129351293612937129381293912940129411294212943129441294512946129471294812949129501295112952129531295412955129561295712958129591296012961129621296312964129651296612967129681296912970129711297212973129741297512976129771297812979129801298112982129831298412985129861298712988
  1. ;=============================================
  2. ; Filename opmdrv3.x
  3. ; Time Stamp Tue Mar 3 00:00:00 1992
  4. ;
  5. ; Base address 000000
  6. ; Exec address 006bde
  7. ; Text size 0074b4 byte(s)
  8. ; Data size 0049e2 byte(s)
  9. ; Bss size 00302e byte(s)
  10. ; 1910 Labels
  11. ;
  12. ; Commandline dis -b2 -h -m68000 --sp -q1 -B -M -o120 -w16 -gopmdrv3.lab -Topmdrv3.tab --overwrite opmdrv3.x opmdrv3.s
  13. ; DIS version 3.16
  14. ;=============================================
  15. .include inc/doscall.mac
  16. .include inc/iocscall.mac
  17. .include inc/fefunc.mac
  18. .cpu 68000
  19. .text
  20. OPMStruct:
  21. .dc.l MIDIStruct
  22. OPMMode:
  23. .dc.w $8020
  24. OPMRoutine1:
  25. .dc.l L0001ea
  26. OPMRoutine2:
  27. .dc.l L000228
  28. OPMStr:
  29. .dc.b 'OPM '
  30. MIDIStruct:
  31. .dc.l MIDIAStruct
  32. MIDIMode:
  33. .dc.w $8020
  34. MIDIRoutine1:
  35. .dc.l L0001ea
  36. MIDIRoutine2:
  37. .dc.l L000228
  38. MIDIStr:
  39. .dc.b 'MIDI '
  40. MIDITable:
  41. .dc.l $00000000
  42. .dc.l L006f64
  43. .dc.l L00021a
  44. .dc.l L00021a
  45. .dc.l L00021a
  46. .dc.l L00021a
  47. .dc.l L00021a
  48. .dc.l L00021a
  49. .dc.l L00021a
  50. .dc.l L0005fa
  51. .dc.l L0005fa
  52. .dc.l L000220
  53. .dc.l L000220
  54. .dc.l L00021a
  55. MIDIAStruct:
  56. .dc.l MIDIBStruct
  57. MIDIAMode:
  58. .dc.w $8000
  59. MIDIARoutine1:
  60. .dc.l L0001f2
  61. MIDIARoutine2:
  62. .dc.l L00023a
  63. MIDIAStr:
  64. .dc.b 'MIDIA '
  65. MIDIATable:
  66. .dc.l $00000000
  67. .dc.l L006f64
  68. .dc.l L00021a
  69. .dc.l L00021a
  70. .dc.l L00021a
  71. .dc.l L000354
  72. .dc.l L00039c
  73. .dc.l L000416
  74. .dc.l L000442
  75. .dc.l L0004b8
  76. .dc.l L0004b8
  77. .dc.l L00046e
  78. .dc.l L000220
  79. .dc.l L00021a
  80. MIDIBStruct:
  81. .dc.l MIDIAEStruct
  82. MIDIBMode:
  83. .dc.w $8000
  84. MIDIBRoutine1:
  85. .dc.l L0001fa
  86. MIDIBRoutine2:
  87. .dc.l L000254
  88. MIDIBStr:
  89. .dc.b 'MIDIB '
  90. MIDIBTable:
  91. .dc.l $00000000
  92. .dc.l L006f64
  93. .dc.l L00021a
  94. .dc.l L00021a
  95. .dc.l L00021a
  96. .dc.l L0003ca
  97. .dc.l L0003ca
  98. .dc.l L000220
  99. .dc.l L000442
  100. .dc.l L000584
  101. .dc.l L000584
  102. .dc.l L00046e
  103. .dc.l L000220
  104. .dc.l L00021a
  105. MIDIAEStruct:
  106. .dc.l MIDIBEStruct
  107. MIDIAEMode:
  108. .dc.w $8020
  109. MIDIAERoutine1:
  110. .dc.l L000202
  111. MIDIAERoutine2:
  112. .dc.l L00026e
  113. MIDIAEStr:
  114. .dc.b 'MIDIAE '
  115. MIDIAETable:
  116. .dc.l $00000000
  117. .dc.l L006f64
  118. .dc.l L00021a
  119. .dc.l L00021a
  120. .dc.l L00021a
  121. .dc.l L00021a
  122. .dc.l L00021a
  123. .dc.l L00021a
  124. .dc.l L000442
  125. .dc.l L0004d2
  126. .dc.l L0004d2
  127. .dc.l L00046e
  128. .dc.l L000220
  129. .dc.l L00021a
  130. MIDIBEStruct:
  131. .dc.l PCMStruct
  132. MIDIBEMode:
  133. .dc.w $8020
  134. MIDIBERoutine1:
  135. .dc.l L00020a
  136. MIDIBERoutine2:
  137. .dc.l L000288
  138. MIDIBEStr:
  139. .dc.b 'MIDIBE '
  140. MIDIBETable:
  141. .dc.l $00000000
  142. .dc.l L006f64
  143. .dc.l L00021a
  144. .dc.l L00021a
  145. .dc.l L00021a
  146. .dc.l L00021a
  147. .dc.l L00021a
  148. .dc.l L00021a
  149. .dc.l L000442
  150. .dc.l L0005a4
  151. .dc.l L0005a4
  152. .dc.l L00046e
  153. .dc.l L000220
  154. .dc.l L00021a
  155. PCMStruct:
  156. .dc.l $ffffffff
  157. PCMMode:
  158. .dc.w $c020
  159. PCMRoutine1:
  160. .dc.l L000212
  161. PCMRoutine2:
  162. .dc.l L0002a2
  163. PCMString:
  164. .dc.b 'PCM '
  165. PCMTable:
  166. .dc.l $00000000
  167. .dc.l L006f64
  168. .dc.l L00021a
  169. .dc.l L00021a
  170. .dc.l L00032e
  171. .dc.l L0002d2
  172. .dc.l L000220
  173. .dc.l L000220
  174. .dc.l L000220
  175. .dc.l L0002de
  176. .dc.l L0002de
  177. .dc.l L000220
  178. .dc.l L000220
  179. .dc.l L00033e
  180. L0001ea:
  181. move.l a5,(MIDITable)
  182. rts
  183. L0001f2:
  184. move.l a5,(MIDIATable)
  185. rts
  186. L0001fa:
  187. move.l a5,(MIDIBTable)
  188. rts
  189. L000202:
  190. move.l a5,(MIDIAETable)
  191. rts
  192. L00020a:
  193. move.l a5,(MIDIBETable)
  194. rts
  195. L000212:
  196. move.l a5,(PCMTable)
  197. rts
  198. L00021a:
  199. move.w #$5003,d0
  200. rts
  201. L000220:
  202. clr.w d0
  203. rts
  204. L000224:
  205. moveq.l #$01,d0
  206. rts
  207. L000228:
  208. movem.l d0/a4-a5,-(sp)
  209. movea.l (MIDITable),a5
  210. lea.l ($00000030).l,a4
  211. bra.s L0002b2
  212. L00023a:
  213. tst.b (L0074c8)
  214. bne.s L00021a
  215. movem.l d0/a4-a5,-(sp)
  216. movea.l (MIDIATable),a5
  217. lea.l ($0000007e).l,a4
  218. bra.s L0002b2
  219. L000254:
  220. tst.b (L0074c8)
  221. bne.s L00021a
  222. movem.l d0/a4-a5,-(sp)
  223. movea.l (MIDIBTable),a5
  224. lea.l ($000000cc).l,a4
  225. bra.s L0002b2
  226. L00026e:
  227. tst.b (L0074c8)
  228. bne.s L00021a
  229. movem.l d0/a4-a5,-(sp)
  230. movea.l (MIDIAETable),a5
  231. lea.l ($0000011a).l,a4
  232. bra.s L0002b2
  233. L000288:
  234. tst.b (L0074c8)
  235. bne.s L00021a
  236. movem.l d0/a4-a5,-(sp)
  237. movea.l (MIDIBETable),a5
  238. lea.l ($00000168).l,a4
  239. bra.s L0002b2
  240. L0002a2:
  241. movem.l d0/a4-a5,-(sp)
  242. movea.l (PCMTable),a5
  243. lea.l ($000001b6).l,a4
  244. L0002b2:
  245. moveq.l #$00,d0
  246. move.b ($0002,a5),d0
  247. add.w d0,d0
  248. add.w d0,d0
  249. adda.l d0,a4
  250. movea.l (a4),a4
  251. jsr (a4)
  252. move.b d0,($0003,a5)
  253. lsr.w #8,d0
  254. move.b d0,($0004,a5)
  255. movem.l (sp)+,d0/a4-a5
  256. rts
  257. L0002d2:
  258. movem.l d1-d2/a1-a2,-(sp)
  259. lea.l (L006a44),a2
  260. bra.s L0002e8
  261. L0002de:
  262. movem.l d1-d2/a1-a2,-(sp)
  263. lea.l (L00694c),a2
  264. L0002e8:
  265. jsr (L006900)
  266. tst.l d0
  267. beq.s L0002fa
  268. bsr.w L000490
  269. beq.s L0002e8
  270. bra.s L000326
  271. L0002fa:
  272. move.b #$01,(L006bc3)
  273. move.b #$01,(L006bc7)
  274. move.l ($0012,a5),d2
  275. movea.l ($000e,a5),a1
  276. move.w (L000352),d1
  277. jsr (a2)
  278. bsr.w L000490
  279. beq.s L000326
  280. move.b #$1a,(-$01,a1,d2.w)
  281. L000326:
  282. movem.l (sp)+,d1-d2/a1-a2
  283. clr.w d0
  284. rts
  285. L00032e:
  286. jsr (L006900)
  287. movea.l ($000e,a5),a4
  288. move.b d0,(a4)
  289. bra.w L000220
  290. L00033e:
  291. movea.l ($000e,a5),a4
  292. move.b (a4)+,d0
  293. asl.w #8,d0
  294. move.b (a4)+,d0
  295. move.w d0,(L000352)
  296. bra.w L000220
  297. L000352:
  298. .dc.w $0403
  299. L000354:
  300. movem.l d0/a0-a2,-(sp)
  301. movea.l ($000e,a5),a0
  302. move.l ($0012,a5),d0
  303. beq.s L000384
  304. movea.l (L00784c),a1
  305. movea.l (L007848),a2
  306. L00036e:
  307. bsr.w L000490
  308. bne.s L00038c
  309. cmpa.l a1,a2
  310. beq.s L00038c
  311. move.b (a1)+,(a0)+
  312. subq.l #1,d0
  313. bne.s L00036e
  314. move.l a1,(L00784c)
  315. L000384:
  316. movem.l (sp)+,d0/a0-a2
  317. bra.w L000220
  318. L00038c:
  319. move.l (L00783c),(L00784c)
  320. move.b #$1a,(a0)
  321. bra.s L000384
  322. L00039c:
  323. movem.l a0-a1,-(sp)
  324. tst.l (L007844)
  325. beq.s L0003be
  326. movea.l (L007848),a0
  327. movea.l (L00784c),a1
  328. cmpa.l a0,a1
  329. beq.s L0003be
  330. move.b (a1),($000d,a5)
  331. bra.s L0003c2
  332. L0003be:
  333. clr.b ($000d,a5)
  334. L0003c2:
  335. movem.l (sp)+,a0-a1
  336. bra.w L000220
  337. L0003ca:
  338. movem.l d0-d1/a0-a2,-(sp)
  339. movea.l ($000e,a5),a0
  340. move.l ($0012,a5),d0
  341. beq.s L000400
  342. lea.l (L00d9f0),a1
  343. lea.l ($0004,a1),a2
  344. move.w (L000414),d1
  345. L0003e8:
  346. cmp.w (a1),d1
  347. beq.s L000408
  348. move.b (a2,d1.w),(a0)+
  349. addq.w #1,d1
  350. andi.w #$03ff,d1
  351. subq.l #1,d0
  352. bne.s L0003e8
  353. move.w d1,(L000414)
  354. L000400:
  355. movem.l (sp)+,d0-d1/a0-a2
  356. bra.w L000220
  357. L000408:
  358. bsr.w L000490
  359. beq.s L0003e8
  360. move.b #$1a,(a0)
  361. bra.s L000400
  362. L000414:
  363. .dc.w $0000
  364. L000416:
  365. movem.l d1-d2,-(sp)
  366. tst.l (L007844)
  367. beq.s L00043a
  368. move.l (L007848),d1
  369. move.l (L00784c),d2
  370. cmp.l d1,d2
  371. beq.s L00043a
  372. movem.l (sp)+,d1-d2
  373. bra.w L000220
  374. L00043a:
  375. movem.l (sp)+,d1-d2
  376. bra.w L000224
  377. L000442:
  378. tst.w (L007a30)
  379. bne.w L000224
  380. move.l (L007a20),d0
  381. move.l d0,(L007840)
  382. move.l (L007a1c),d0
  383. move.l d0,(L00783c)
  384. move.l d0,(L00784c)
  385. bra.w L000220
  386. L00046e:
  387. tst.b (L0074c8)
  388. bne.w L000220
  389. move.b #$05,($00eafa03)
  390. btst.b #$06,($00eafa09)
  391. bne.w L000220
  392. moveq.l #$01,d0
  393. rts
  394. L000490:
  395. movem.l d0-d1,-(sp)
  396. moveq.l #$0c,d1
  397. IOCS _BITSNS
  398. andi.b #$02,d0
  399. movem.l (sp)+,d0-d1
  400. rts
  401. L0004a4:
  402. movem.l d0-d1,-(sp)
  403. moveq.l #$00,d1
  404. IOCS _BITSNS
  405. andi.b #$02,d0
  406. movem.l (sp)+,d0-d1
  407. rts
  408. L0004b8:
  409. movem.l d0-d3/a0-a1,-(sp)
  410. movea.l ($000e,a5),a0
  411. move.l ($0012,a5),d2
  412. beq.w L00056c
  413. lea.l (L000570),a1
  414. moveq.l #$00,d3
  415. bra.s L000500
  416. L0004d2:
  417. movem.l d0-d3/a0-a1,-(sp)
  418. movea.l ($000e,a5),a0
  419. move.l ($0012,a5),d2
  420. beq.w L00056c
  421. lea.l (L000570),a1
  422. moveq.l #$01,d3
  423. L0004ea:
  424. cmpi.b #$46,(a0) ;'F'
  425. bne.s L0004f8
  426. cmpi.b #$30,($0001,a0) ;'0'
  427. beq.s L000500
  428. L0004f8:
  429. addq.l #1,a0
  430. subq.l #1,d2
  431. bne.s L0004ea
  432. bra.s L00056c
  433. L000500:
  434. move.b (a0)+,d0
  435. cmpi.b #$2a,d0 ;'*'
  436. beq.s L00055a
  437. cmpi.b #$2f,d0 ;'/'
  438. beq.s L00055a
  439. cmpi.b #$0d,d0
  440. beq.s L000556
  441. cmpi.b #$20,d0 ;' '
  442. beq.s L000560
  443. bcs.s L000556
  444. tst.b ($0001,a1)
  445. bne.s L000560
  446. bsr.w L0005de
  447. tst.w d0
  448. bmi.s L000560
  449. addq.b #1,(a1)
  450. btst.b #$00,(a1)
  451. beq.s L000538
  452. move.b d0,($0002,a1)
  453. bra.s L000560
  454. L000538:
  455. move.b ($0002,a1),d1
  456. lsl.b #4,d1
  457. add.b d1,d0
  458. bsr.w L0052f0
  459. tst.b d3
  460. beq.s L000560
  461. cmpi.b #$f7,d0
  462. bne.s L000560
  463. jsr (L0049ce)
  464. bra.s L000560
  465. L000556:
  466. clr.w (a1)
  467. bra.s L000560
  468. L00055a:
  469. move.b #$01,($0001,a1)
  470. L000560:
  471. subq.l #1,d2
  472. bne.s L000500
  473. L000564:
  474. movem.l (sp)+,d0-d3/a0-a1
  475. bra.w L000220
  476. L00056c:
  477. clr.l (a1)
  478. bra.s L000564
  479. L000570:
  480. .dc.b $00,$00,$00,$00
  481. .dc.b '0123456789ABCDEF'
  482. L000584:
  483. movem.l d0-d1/a0,-(sp)
  484. movea.l ($000e,a5),a0
  485. move.l ($0012,a5),d1
  486. beq.s L00059c
  487. L000592:
  488. move.b (a0)+,d0
  489. bsr.w L0052f0
  490. subq.l #1,d1
  491. bne.s L000592
  492. L00059c:
  493. movem.l (sp)+,d0-d1/a0
  494. bra.w L000220
  495. L0005a4:
  496. movem.l d0-d1/a0,-(sp)
  497. movea.l ($000e,a5),a0
  498. move.l ($0012,a5),d1
  499. beq.s L0005d6
  500. L0005b2:
  501. cmpi.b #$f0,(a0)
  502. beq.s L0005c0
  503. addq.l #1,a0
  504. subq.l #1,d1
  505. bne.s L0005b2
  506. bra.s L0005d6
  507. L0005c0:
  508. move.b (a0)+,d0
  509. bsr.w L0052f0
  510. cmpi.b #$f7,d0
  511. bne.s L0005d2
  512. jsr (L0049ce)
  513. L0005d2:
  514. subq.l #1,d1
  515. bne.s L0005c0
  516. L0005d6:
  517. movem.l (sp)+,d0-d1/a0
  518. bra.w L000220
  519. L0005de:
  520. move.w #$000f,d1
  521. cmpi.b #$3a,d0 ;':'
  522. bcs.s L0005ec
  523. andi.b #$df,d0
  524. L0005ec:
  525. cmp.b ($04,a1,d1.w),d0
  526. beq.s L0005f6
  527. dbra.w d1,L0005ec
  528. L0005f6:
  529. move.w d1,d0
  530. rts
  531. L0005fa:
  532. movem.l d1-d7/a0-a6,-(sp)
  533. lea.l (-$0200,sp),sp
  534. movea.l ($000e,a5),a4
  535. move.l ($0012,a5),d4
  536. beq.w L0006aa
  537. L00060e:
  538. subq.l #1,d4
  539. bmi.w L0006aa
  540. move.b (a4)+,d0
  541. bmi.s L00062a
  542. cmp.b #$21,d0 ;'!'
  543. bcs.s L00060e
  544. cmp.b #$29,d0 ;')'
  545. beq.s L00060e
  546. cmp.b #$2f,d0 ;'/'
  547. bne.s L000646
  548. L00062a:
  549. subq.l #1,d4
  550. bmi.w L0006aa
  551. move.b (a4)+,d0
  552. cmp.b #$09,d0
  553. beq.s L00062a
  554. cmp.b #$0e,d0
  555. bcc.s L00062a
  556. clr.w (L00073c)
  557. bra.s L00060e
  558. L000646:
  559. cmpi.b #$30,d0 ;'0'
  560. bcs.s L00065c
  561. cmpi.b #$3a,d0 ;':'
  562. bcc.s L00065c
  563. clr.w (L00073c)
  564. bra.w L000768
  565. L00065c:
  566. cmp.b #$28,d0 ;'('
  567. beq.s L00066e
  568. tst.w (L00073c)
  569. beq.s L00062a
  570. bra.w L00129c
  571. L00066e:
  572. subq.l #1,d4
  573. bmi.w L0006aa
  574. moveq.l #$00,d0
  575. move.b (a4)+,d0
  576. cmp.b #$20,d0 ;' '
  577. bcs.s L00060e
  578. beq.s L00066e
  579. cmp.b #$23,d0 ;'#'
  580. beq.w L000e04
  581. cmp.b #$2f,d0 ;'/'
  582. beq.w L000e04
  583. or.b #$20,d0
  584. subi.b #$61,d0 ;'a'
  585. bmi.s L00066e
  586. cmpi.b #$1a,d0
  587. bcc.s L00066e
  588. add.w d0,d0
  589. add.w d0,d0
  590. movea.l (Table1,pc,d0.w),a0
  591. jmp (a0)
  592. L0006aa:
  593. clr.w d0
  594. lea.l ($0200,sp),sp
  595. movem.l (sp)+,d1-d7/a0-a6
  596. rts
  597. Table1:
  598. .dc.l L000ad2
  599. .dc.l L000bce
  600. .dc.l L0008e4
  601. .dc.l L0009ae
  602. .dc.l L00091a
  603. .dc.l L000c16
  604. .dc.l L000b86
  605. .dc.l L000c82
  606. .dc.l L000dee
  607. .dc.l L000c98
  608. .dc.l L000d10
  609. .dc.l L000baa
  610. .dc.l L000af6
  611. .dc.l L000b62
  612. .dc.l L000abc
  613. .dc.l L000972
  614. .dc.l L000cec
  615. .dc.l L000d3c
  616. .dc.l L000936
  617. .dc.l L000a86
  618. .dc.l L000bf2
  619. .dc.l L0009e6
  620. .dc.l L000a46
  621. .dc.l L000cae
  622. .dc.l L000c3a
  623. .dc.l L000cd6
  624. L00071e:
  625. subq.l #1,a4
  626. addq.l #1,d4
  627. L000722:
  628. subq.l #1,d4
  629. bmi.w L0006aa
  630. move.b (a4)+,d0
  631. cmp.b #$29,d0 ;')'
  632. beq.w L00060e
  633. cmp.b #$20,d0 ;' '
  634. bcs.w L00060e
  635. bra.s L000722
  636. L00073c:
  637. .dc.w $0000
  638. L00073e:
  639. movem.l d0/a2,-(sp)
  640. lea.l (a1),a2
  641. L000744:
  642. move.b (a2)+,d0
  643. beq.s L000762
  644. cmp.b #$2e,d0 ;'.'
  645. beq.s L00075e
  646. cmp.b #$3a,d0 ;':'
  647. beq.s L00075a
  648. cmp.b #$5c,d0 ;'\'
  649. bne.s L000744
  650. L00075a:
  651. movea.l a2,a1
  652. bra.s L000744
  653. L00075e:
  654. clr.b (-$0001,a2)
  655. L000762:
  656. movem.l (sp)+,d0/a2
  657. rts
  658. L000768:
  659. movem.l d1-d3/d5/a0-a2,-(sp)
  660. subq.l #1,a4
  661. addq.l #1,d4
  662. L000770:
  663. bsr.w L001344
  664. andi.l #$0000007f,d1
  665. cmpi.b #$3d,d0 ;'='
  666. beq.s L000794
  667. subq.l #1,a4
  668. addq.l #1,d4
  669. bsr.w L0012fa
  670. addq.l #1,a4
  671. subq.l #1,d4
  672. cmpi.b #$3d,d0 ;'='
  673. bne.w L0008d0
  674. L000794:
  675. bsr.w L0012fa
  676. bcc.s L0007a2
  677. cmpi.b #$29,d0 ;')'
  678. bne.w L0008d0
  679. L0007a2:
  680. lea.l (L00e5f4),a1
  681. moveq.l #$00,d2
  682. L0007aa:
  683. move.b (a4)+,d0
  684. subq.l #1,d4
  685. bmi.s L0007d6
  686. cmp.b #$0d,d0
  687. beq.s L0007d2
  688. cmp.b #$1a,d0
  689. beq.s L0007d6
  690. cmp.b #$28,d0 ;'('
  691. beq.w L0008be
  692. move.b d0,(a1)+
  693. addq.w #1,d2
  694. cmpi.w #$0074,d2 ;'t'
  695. bcc.w L0008d0
  696. bra.s L0007aa
  697. L0007d2:
  698. addq.l #1,a4
  699. subq.l #1,d4
  700. L0007d6:
  701. clr.b (a1)
  702. tst.w d2
  703. beq.w L0008d0
  704. bsr.w L0004a4
  705. bne.w L0008d0
  706. clr.w -(sp)
  707. pea.l (L00e5f4)
  708. DOS _OPEN
  709. lea.l ($0006,sp),sp
  710. move.l d0,d5
  711. bmi.s L000876
  712. move.b #$01,(L006bc6)
  713. move.w d1,d3
  714. swap.w d3
  715. move.w #$0004,d3
  716. moveq.l #$00,d2
  717. jsr (L00675a)
  718. lea.l (L007716),a1
  719. move.l ($000c,a1),d2
  720. cmpi.l #$00000200,d2
  721. ble.w L0008c4
  722. lea.l (L00d5e0),a2
  723. lsl.w #3,d1
  724. adda.w d1,a2
  725. move.l d2,-(sp)
  726. move.l ($0004,a1),-(sp)
  727. move.w d5,-(sp)
  728. DOS _READ
  729. lea.l ($000a,sp),sp
  730. move.l d0,d2
  731. bmi.s L00085e
  732. cmpi.l #$00007fff,d2
  733. ble.s L00084e
  734. move.l #$00007fff,d2
  735. L00084e:
  736. move.w d2,(a2)
  737. move.l ($0004,a1),($0004,a2)
  738. add.l d2,($0004,a1)
  739. sub.l d2,($000c,a1)
  740. L00085e:
  741. move.w d5,-(sp)
  742. DOS _CLOSE
  743. addq.l #2,sp
  744. lea.l (L00e5f4),a1
  745. bsr.w L00073e
  746. swap.w d3
  747. move.w d3,d2
  748. bsr.w L002e0c
  749. L000876:
  750. clr.b (L006bc6)
  751. move.b (a4)+,d0
  752. subq.l #1,d4
  753. beq.s L0008d0
  754. bmi.s L0008d0
  755. cmpi.b #$2f,d0 ;'/'
  756. beq.s L0008a4
  757. cmpi.b #$28,d0 ;'('
  758. beq.s L0008be
  759. cmpi.b #$30,d0 ;'0'
  760. bcs.s L000876
  761. cmpi.b #$3a,(a4) ;':'
  762. bcc.s L000876
  763. subq.l #1,a4
  764. addq.l #1,d4
  765. bra.w L000770
  766. L0008a4:
  767. subq.l #1,d4
  768. beq.s L0008d0
  769. bmi.s L0008d0
  770. cmpi.b #$0d,(a4)+
  771. bne.s L0008a4
  772. addq.l #1,a4
  773. subq.l #1,d4
  774. cmpi.l #$00000001,d4
  775. bge.w L000770
  776. L0008be:
  777. subq.l #1,a4
  778. addq.l #1,d4
  779. bra.s L0008d0
  780. L0008c4:
  781. clr.b (L006bc6)
  782. move.w d5,-(sp)
  783. DOS _CLOSE
  784. addq.l #2,sp
  785. L0008d0:
  786. moveq.l #$00,d0
  787. movem.l (sp)+,d1-d3/d5/a0-a2
  788. cmpi.l #$00000003,d4
  789. bgt.w L00060e
  790. bra.w L0006aa
  791. L0008e4:
  792. cmpi.b #$6d,(a4) ;'m'
  793. beq.s L00090c
  794. cmpi.b #$4d,(a4) ;'M'
  795. beq.s L00090c
  796. bsr.w L001326
  797. bmi.w L0006aa
  798. tst.l d2
  799. bne.s L000902
  800. move.l #$01ffffff,d2
  801. L000902:
  802. moveq.l #$0b,d1
  803. bsr.w L0013ac
  804. bra.w L00060e
  805. L00090c:
  806. addq.l #1,a4
  807. subq.l #1,d4
  808. moveq.l #$36,d1 ;'6'
  809. bsr.w L0013ac
  810. bra.w L00060e
  811. L00091a:
  812. bsr.w L001326
  813. bmi.w L0006aa
  814. tst.l d2
  815. bne.s L00092c
  816. move.l #$01ffffff,d2
  817. L00092c:
  818. moveq.l #$1a,d1
  819. bsr.w L0013ac
  820. bra.w L00060e
  821. L000936:
  822. cmpi.b #$6d,(a4) ;'m'
  823. beq.s L00095e
  824. cmpi.b #$4d,(a4) ;'M'
  825. beq.s L00095e
  826. bsr.w L001326
  827. bmi.w L0006aa
  828. tst.l d2
  829. bne.s L000954
  830. move.l #$01ffffff,d2
  831. L000954:
  832. moveq.l #$0a,d1
  833. bsr.w L0013ac
  834. bra.w L00060e
  835. L00095e:
  836. addq.l #1,a4
  837. subq.l #1,d4
  838. bsr.w L001344
  839. move.l d1,d2
  840. moveq.l #$35,d1 ;'5'
  841. bsr.w L0013ac
  842. bra.w L00060e
  843. L000972:
  844. cmpi.b #$6d,(a4) ;'m'
  845. beq.s L00099a
  846. cmpi.b #$4d,(a4) ;'M'
  847. beq.s L00099a
  848. bsr.w L001326
  849. bmi.w L0006aa
  850. tst.l d2
  851. bne.s L000990
  852. move.l #$01ffffff,d2
  853. L000990:
  854. moveq.l #$08,d1
  855. bsr.w L0013ac
  856. bra.w L00060e
  857. L00099a:
  858. addq.l #1,a4
  859. subq.l #1,d4
  860. bsr.w L001344
  861. move.l d1,d2
  862. moveq.l #$34,d1 ;'4'
  863. bsr.w L0013ac
  864. bra.w L00060e
  865. L0009ae:
  866. bsr.w L001344
  867. tst.l d4
  868. beq.w L0006aa
  869. move.l d1,d2
  870. beq.w L000a9e
  871. cmp.l #$000000c9,d1
  872. bcc.w L000a9e
  873. movea.l sp,a1
  874. moveq.l #$03,d1
  875. bsr.w L0013ac
  876. bsr.w L001344
  877. move.l d1,d2
  878. beq.w L0006aa
  879. cmp.l #$000000c9,d2
  880. bcc.w L000a9e
  881. bra.s L000a3a
  882. L0009e6:
  883. bsr.w L001344
  884. tst.l d4
  885. beq.w L0006aa
  886. move.l d1,d2
  887. cmp.l #$000000c9,d1
  888. bcc.w L000a9e
  889. movea.l sp,a1
  890. moveq.l #$03,d1
  891. bsr.w L0013ac
  892. bsr.w L001344
  893. cmp.l #$00000037,d1
  894. bcc.w L000a9e
  895. movea.l sp,a1
  896. adda.l d1,a1
  897. move.l d1,d3
  898. L000a18:
  899. tst.l d4
  900. bmi.s L000a3a
  901. bsr.w L001344
  902. move.b d1,(a1)+
  903. cmp.b #$29,d0 ;')'
  904. beq.s L000a3a
  905. cmp.b #$0d,d0
  906. bne.s L000a32
  907. addq.l #1,a4
  908. subq.l #1,d4
  909. L000a32:
  910. addq.l #1,d3
  911. cmpi.b #$37,d3 ;'7'
  912. bcs.s L000a18
  913. L000a3a:
  914. movea.l sp,a1
  915. moveq.l #$04,d1
  916. bsr.w L0013ac
  917. bra.w L00060e
  918. L000a46:
  919. bsr.w L001344
  920. move.l d1,d2
  921. bne.s L000a64
  922. L000a4e:
  923. bsr.s L000a78
  924. tst.l d0
  925. beq.s L000a70
  926. bsr.w L0004a4
  927. beq.s L000a4e
  928. bra.s L000a70
  929. L000a5c:
  930. bsr.w L001344
  931. move.l d1,d2
  932. beq.s L000a70
  933. L000a64:
  934. bsr.s L000a78
  935. tst.l d0
  936. beq.s L000a5c
  937. bsr.w L0004a4
  938. beq.s L000a64
  939. L000a70:
  940. subq.l #1,a4
  941. addq.l #1,d4
  942. bra.w L00071e
  943. L000a78:
  944. movem.l d1-d2/a5,-(sp)
  945. bsr.w L001c5e
  946. movem.l (sp)+,d1-d2/a5
  947. rts
  948. L000a86:
  949. move.w #$0001,(L00073c)
  950. bsr.w L001344
  951. tst.l d4
  952. beq.w L0006aa
  953. move.l d1,(L000ab8)
  954. L000a9e:
  955. cmp.b #$29,d0 ;')'
  956. beq.w L00060e
  957. subq.l #1,d4
  958. bmi.w L0006aa
  959. move.b (a4)+,d0
  960. cmp.b #$20,d0 ;' '
  961. bcs.w L00060e
  962. bra.s L000a9e
  963. L000ab8:
  964. .dc.l $00000001
  965. L000abc:
  966. bsr.w L001344
  967. tst.l d4
  968. beq.w L0006aa
  969. move.l d1,d2
  970. moveq.l #$05,d1
  971. bsr.w L0013ac
  972. bra.w L00071e
  973. L000ad2:
  974. bsr.w L001344
  975. tst.l d4
  976. beq.w L0006aa
  977. move.l d1,d2
  978. bsr.w L001344
  979. tst.l d4
  980. beq.w L0006aa
  981. swap.w d2
  982. move.w d1,d2
  983. moveq.l #$02,d1
  984. bsr.w L0013ac
  985. bra.w L00071e
  986. L000af6:
  987. bsr.w L001344
  988. tst.l d4
  989. beq.w L0006aa
  990. move.l d1,(L000b5e)
  991. move.l d1,d2
  992. bsr.w L001344
  993. tst.l d4
  994. beq.w L0006aa
  995. subq.l #1,d1
  996. cmpi.l #$00000003,d1
  997. bge.s L000b1e
  998. moveq.l #$03,d1
  999. L000b1e:
  1000. cmp.l #$0000ffff,d1
  1001. ble.s L000b2c
  1002. move.l #$0000ffff,d1
  1003. L000b2c:
  1004. cmpi.w #$0001,d2
  1005. blt.s L000b40
  1006. swap.w d2
  1007. move.w d1,d2
  1008. moveq.l #$01,d1
  1009. bsr.w L0013ac
  1010. bra.w L00071e
  1011. L000b40:
  1012. move.l d1,d2
  1013. swap.w d2
  1014. move.w #$0001,d2
  1015. moveq.l #$01,d1
  1016. L000b4a:
  1017. swap.w d2
  1018. bsr.w L0013ac
  1019. swap.w d2
  1020. addq.w #1,d2
  1021. cmpi.w #$0050,d2 ;'P'
  1022. ble.s L000b4a
  1023. bra.w L00071e
  1024. L000b5e:
  1025. .dc.b $00,$00,$00,$00
  1026. L000b62:
  1027. bsr.w L001344
  1028. tst.l d4
  1029. beq.w L0006aa
  1030. move.l d1,d2
  1031. bsr.w L001344
  1032. tst.l d4
  1033. beq.w L0006aa
  1034. swap.w d2
  1035. move.w d1,d2
  1036. moveq.l #$10,d1
  1037. bsr.w L0013ac
  1038. bra.w L00071e
  1039. L000b86:
  1040. bsr.w L001344
  1041. tst.l d4
  1042. beq.w L0006aa
  1043. move.l d1,d2
  1044. bsr.w L001344
  1045. tst.l d4
  1046. beq.w L0006aa
  1047. swap.w d2
  1048. move.w d1,d2
  1049. moveq.l #$11,d1
  1050. bsr.w L0013ac
  1051. bra.w L00071e
  1052. L000baa:
  1053. bsr.w L001344
  1054. tst.l d4
  1055. beq.w L0006aa
  1056. move.l d1,d2
  1057. bsr.w L001344
  1058. tst.l d4
  1059. beq.w L0006aa
  1060. swap.w d2
  1061. move.w d1,d2
  1062. moveq.l #$12,d1
  1063. bsr.w L0013ac
  1064. bra.w L00071e
  1065. L000bce:
  1066. bsr.w L001344
  1067. tst.l d4
  1068. beq.w L0006aa
  1069. move.l d1,d2
  1070. bsr.w L001344
  1071. tst.l d4
  1072. beq.w L0006aa
  1073. swap.w d2
  1074. move.w d1,d2
  1075. moveq.l #$13,d1
  1076. bsr.w L0013ac
  1077. bra.w L00071e
  1078. L000bf2:
  1079. bsr.w L001344
  1080. tst.l d4
  1081. beq.w L0006aa
  1082. move.l d1,d2
  1083. bsr.w L001344
  1084. tst.l d4
  1085. beq.w L0006aa
  1086. swap.w d2
  1087. move.w d1,d2
  1088. moveq.l #$14,d1
  1089. bsr.w L0013ac
  1090. bra.w L00071e
  1091. L000c16:
  1092. bsr.w L001344
  1093. tst.l d4
  1094. beq.w L0006aa
  1095. move.l d1,d2
  1096. bsr.w L001344
  1097. tst.l d4
  1098. beq.w L0006aa
  1099. swap.w d2
  1100. move.w d1,d2
  1101. moveq.l #$15,d1
  1102. bsr.w L0013ac
  1103. bra.w L00071e
  1104. L000c3a:
  1105. bsr.w L001344
  1106. tst.l d4
  1107. beq.w L0006aa
  1108. move.l d1,d2
  1109. bsr.w L001344
  1110. tst.l d4
  1111. beq.w L0006aa
  1112. swap.w d2
  1113. move.w d1,d2
  1114. lsl.w #8,d2
  1115. bsr.w L001344
  1116. tst.l d4
  1117. beq.w L0006aa
  1118. move.b d1,d2
  1119. moveq.l #$16,d1
  1120. bsr.w L0013ac
  1121. bra.w L00071e
  1122. L000c6c:
  1123. bsr.w L001344
  1124. tst.l d4
  1125. beq.w L0006aa
  1126. move.l d1,d2
  1127. moveq.l #$17,d1
  1128. bsr.w L0013ac
  1129. bra.w L00071e
  1130. L000c82:
  1131. bsr.w L001344
  1132. tst.l d4
  1133. beq.w L0006aa
  1134. move.l d1,d2
  1135. moveq.l #$28,d1 ;'('
  1136. bsr.w L0013ac
  1137. bra.w L00071e
  1138. L000c98:
  1139. bsr.w L001344
  1140. tst.l d4
  1141. beq.w L0006aa
  1142. move.l d1,d2
  1143. moveq.l #$18,d1
  1144. bsr.w L0013ac
  1145. bra.w L00071e
  1146. L000cae:
  1147. movea.l sp,a1
  1148. moveq.l #$00,d2
  1149. L000cb2:
  1150. bsr.w L001344
  1151. tst.l d4
  1152. beq.s L000cc6
  1153. cmp.b #$29,d0 ;')'
  1154. beq.s L000cc6
  1155. move.b d1,(a1)+
  1156. addq.l #1,d2
  1157. bra.s L000cb2
  1158. L000cc6:
  1159. move.b d1,(a1)+
  1160. addq.l #1,d2
  1161. movea.l sp,a1
  1162. moveq.l #$19,d1
  1163. bsr.w L0013ac
  1164. bra.w L00071e
  1165. L000cd6:
  1166. bsr.w L001344
  1167. tst.l d4
  1168. beq.w L0006aa
  1169. move.l d1,d2
  1170. moveq.l #$20,d1 ;' '
  1171. bsr.w L0013ac
  1172. bra.w L00071e
  1173. L000cec:
  1174. bsr.w L001344
  1175. tst.l d4
  1176. beq.w L0006aa
  1177. move.l d1,d2
  1178. bsr.w L001344
  1179. tst.l d4
  1180. beq.w L0006aa
  1181. swap.w d2
  1182. move.w d1,d2
  1183. moveq.l #$21,d1 ;'!'
  1184. bsr.w L0013ac
  1185. bra.w L00071e
  1186. L000d10:
  1187. bsr.w L001344
  1188. tst.l d4
  1189. beq.w L0006aa
  1190. move.l d1,d2
  1191. cmpi.b #$2c,(-$0001,a4) ;','
  1192. bne.s L000d32
  1193. bsr.w L001344
  1194. tst.l d4
  1195. beq.w L0006aa
  1196. swap.w d2
  1197. move.w d1,d2
  1198. L000d32:
  1199. moveq.l #$22,d1 ;'"'
  1200. bsr.w L0013ac
  1201. bra.w L00071e
  1202. L000d3c:
  1203. move.b (a4),d0
  1204. cmp.b #$29,d0 ;')'
  1205. beq.s L000daa
  1206. ori.b #$20,d0
  1207. cmp.b #$65,d0 ;'e'
  1208. beq.s L000dc6
  1209. cmp.b #$64,d0 ;'d'
  1210. beq.w L000de2
  1211. moveq.l #$00,d3
  1212. cmp.b #$61,d0 ;'a'
  1213. beq.s L000d78
  1214. addq.w #1,d3
  1215. cmp.b #$62,d0 ;'b'
  1216. beq.s L000d78
  1217. addq.w #1,d3
  1218. cmp.b #$63,d0 ;'c'
  1219. bne.w L0006aa
  1220. moveq.l #$01,d2
  1221. moveq.l #$22,d1 ;'"'
  1222. bsr.w L0013ac
  1223. L000d78:
  1224. tst.w (L007a30)
  1225. beq.s L000d84
  1226. bsr.w L001cb6
  1227. L000d84:
  1228. moveq.l #$01,d2
  1229. moveq.l #$23,d1 ;'#'
  1230. bsr.w L0013ac
  1231. movea.l (L007a1c),a1
  1232. move.l (L007a20),d2
  1233. moveq.l #$24,d1 ;'$'
  1234. bsr.w L0013ac
  1235. moveq.l #$00,d2
  1236. moveq.l #$25,d1 ;'%'
  1237. bsr.w L0013ac
  1238. bra.w L00071e
  1239. L000daa:
  1240. moveq.l #$00,d2
  1241. moveq.l #$22,d1 ;'"'
  1242. bsr.w L0013ac
  1243. moveq.l #$00,d2
  1244. moveq.l #$26,d1 ;'&'
  1245. bsr.w L0013ac
  1246. moveq.l #$00,d2
  1247. moveq.l #$23,d1 ;'#'
  1248. bsr.w L0013ac
  1249. bra.w L00071e
  1250. L000dc6:
  1251. move.b ($0001,a4),d0
  1252. ori.b #$20,d0
  1253. cmpi.b #$6d,d0 ;'m'
  1254. beq.w L00062a
  1255. moveq.l #$01,d2
  1256. moveq.l #$23,d1 ;'#'
  1257. bsr.w L0013ac
  1258. bra.w L00071e
  1259. L000de2:
  1260. moveq.l #$00,d2
  1261. moveq.l #$23,d1 ;'#'
  1262. bsr.w L0013ac
  1263. bra.w L00071e
  1264. L000dee:
  1265. bsr.w L001344
  1266. tst.l d4
  1267. beq.w L0006aa
  1268. move.l d1,d2
  1269. moveq.l #$00,d1
  1270. bsr.w L0013ac
  1271. bra.w L00071e
  1272. L000e04:
  1273. bsr.w L0012fa
  1274. bcs.w L000ebe
  1275. move.b (a4)+,d1
  1276. subq.l #1,d4
  1277. or.b #$20,d1
  1278. cmp.b #$63,d1 ;'c'
  1279. beq.w L000f7a
  1280. cmp.b #$73,d1 ;'s'
  1281. beq.w L000f98
  1282. cmp.b #$79,d1 ;'y'
  1283. beq.w L000ed0
  1284. cmp.b #$76,d1 ;'v'
  1285. beq.w L000f0c
  1286. cmp.b #$61,d1 ;'a'
  1287. beq.w L000f28
  1288. cmp.b #$65,d1 ;'e'
  1289. beq.w L000eee
  1290. cmp.b #$30,d1 ;'0'
  1291. blt.s L000e56
  1292. cmp.b #$39,d1 ;'9'
  1293. bgt.s L000e56
  1294. addq.l #1,d4
  1295. subq.l #1,a4
  1296. bra.s L000ec2
  1297. L000e56:
  1298. cmp.b #$70,d1 ;'p'
  1299. bne.s L000e7a
  1300. bsr.w L0012fa
  1301. bcs.s L000ebe
  1302. cmpi.b #$69,(a4) ;'i'
  1303. beq.w L00119c
  1304. cmpi.b #$49,(a4) ;'I'
  1305. beq.w L00119c
  1306. cmpi.b #$39,(a4) ;'9'
  1307. ble.w L0011a6
  1308. L000e7a:
  1309. lsl.l #8,d1
  1310. bcs.s L000ebe
  1311. move.b (a4)+,d1
  1312. subq.l #1,d4
  1313. or.b #$20,d1
  1314. lsl.l #8,d1
  1315. bsr.w L0012fa
  1316. bcs.s L000ebe
  1317. move.b (a4)+,d1
  1318. subq.l #1,d4
  1319. or.b #$20,d1
  1320. lsl.l #8,d1
  1321. clr.b d1
  1322. lea.l (L007a3e),a3
  1323. moveq.l #$05,d0
  1324. L000ea2:
  1325. cmp.l (a3)+,d1
  1326. beq.s L000eac
  1327. dbra.w d0,L000ea2
  1328. bra.s L000ebe
  1329. L000eac:
  1330. moveq.l #$05,d1
  1331. sub.w d0,d1
  1332. move.w d1,(L007a3c)
  1333. move.w d1,d2
  1334. moveq.l #$2b,d1 ;'+'
  1335. bsr.w L0013ac
  1336. L000ebe:
  1337. bra.w L00071e
  1338. L000ec2:
  1339. bsr.w L001344
  1340. move.l d1,d2
  1341. bsr.w L002eb6
  1342. bra.w L00071e
  1343. L000ed0:
  1344. bsr.w L001344
  1345. tst.l d1
  1346. beq.s L000ee4
  1347. move.w #$0001,(L007a10)
  1348. bra.w L00071e
  1349. L000ee4:
  1350. clr.w (L007a10)
  1351. bra.w L00071e
  1352. L000eee:
  1353. bsr.w L001344
  1354. tst.l d1
  1355. beq.s L000f02
  1356. move.w #$0001,(L007a34)
  1357. bra.w L00071e
  1358. L000f02:
  1359. clr.w (L007a34)
  1360. bra.w L00071e
  1361. L000f0c:
  1362. movem.l d0-d1/a0,-(sp)
  1363. bsr.w L001344
  1364. cmpi.l #$000000c8,d1
  1365. bgt.s L000f72
  1366. subq.l #1,d1
  1367. bmi.s L000f72
  1368. lea.l (APianoStr2),a0
  1369. bra.s L000f3e
  1370. L000f28:
  1371. movem.l d0-d1/a0,-(sp)
  1372. bsr.w L001344
  1373. cmpi.l #$0000007f,d1
  1374. bgt.s L000f72
  1375. lea.l (L00d0e0),a0
  1376. L000f3e:
  1377. mulu.w #$000a,d1
  1378. adda.l d1,a0
  1379. move.l #$20202020,(a0) ;' '
  1380. move.l #$20202020,($0004,a0) ;' '
  1381. move.w #$2020,($0008,a0) ;' '
  1382. moveq.l #$09,d1
  1383. L000f5a:
  1384. move.b (a4)+,d0
  1385. subq.l #1,d4
  1386. bmi.s L000f72
  1387. cmpi.b #$20,d0 ;' '
  1388. bcs.s L000f72
  1389. cmpi.b #$29,d0 ;')'
  1390. beq.s L000f72
  1391. move.b d0,(a0)+
  1392. dbra.w d1,L000f5a
  1393. L000f72:
  1394. movem.l (sp)+,d0-d1/a0
  1395. bra.w L00071e
  1396. L000f7a:
  1397. bsr.w L001344
  1398. tst.l d1
  1399. bne.s L000f8e
  1400. move.w #$0001,(L007a0e)
  1401. bra.w L00071e
  1402. L000f8e:
  1403. clr.w (L007a0e)
  1404. bra.w L00071e
  1405. L000f98:
  1406. cmpi.b #$50,(a4) ;'P'
  1407. beq.s L000fb4
  1408. cmpi.b #$76,(a4) ;'v'
  1409. beq.w L00108e
  1410. cmpi.b #$56,(a4) ;'V'
  1411. beq.w L00108e
  1412. cmpi.b #$70,(a4) ;'p'
  1413. bne.s L000fd2
  1414. L000fb4:
  1415. addq.l #1,a4
  1416. subq.l #1,d4
  1417. bsr.w L001344
  1418. cmpi.l #$000000ff,d1
  1419. ble.s L000fc8
  1420. move.b #$ff,d1
  1421. L000fc8:
  1422. move.b d1,(L007a36)
  1423. bra.w L00071e
  1424. L000fd2:
  1425. cmpi.b #$2c,(a4) ;','
  1426. beq.s L000fe2
  1427. cmpi.b #$20,(a4) ;' '
  1428. beq.s L000fe2
  1429. bra.w L00071e
  1430. L000fe2:
  1431. addq.l #1,a4
  1432. subq.l #1,d4
  1433. movem.l d0-d3/a1-a2,-(sp)
  1434. lea.l (L00e5f4),a2
  1435. movea.l a2,a1
  1436. moveq.l #$00,d2
  1437. L000ff4:
  1438. move.b (a4)+,d0
  1439. subq.l #1,d4
  1440. bmi.s L00101e
  1441. cmp.b #$20,d0 ;' '
  1442. ble.s L00101e
  1443. cmp.b #$2e,d0 ;'.'
  1444. beq.s L00101e
  1445. cmp.b #$29,d0 ;')'
  1446. beq.s L00101e
  1447. cmp.b #$28,d0 ;'('
  1448. beq.s L00101e
  1449. move.b d0,(a1)+
  1450. addq.w #1,d2
  1451. cmpi.w #$003b,d2 ;';'
  1452. bge.s L00101e
  1453. bra.s L000ff4
  1454. L00101e:
  1455. move.b #$2e,(a1)+ ;'.'
  1456. move.b #$53,(a1)+ ;'S'
  1457. move.b #$4e,(a1)+ ;'N'
  1458. move.b #$44,(a1)+ ;'D'
  1459. clr.b (a1)+
  1460. tst.w d2
  1461. beq.s L001086
  1462. clr.w -(sp)
  1463. pea.l (a2)
  1464. DOS _OPEN
  1465. lea.l ($0006,sp),sp
  1466. move.l d0,d3
  1467. bmi.s L001086
  1468. moveq.l #$c7,d1
  1469. moveq.l #$00,d2
  1470. L001046:
  1471. move.l #$00000050,-(sp)
  1472. pea.l (a1)
  1473. move.w d3,-(sp)
  1474. DOS _READ
  1475. lea.l ($000a,sp),sp
  1476. tst.l d0
  1477. beq.s L00106a
  1478. bmi.s L00106a
  1479. move.w d2,d0
  1480. jsr (L006538)
  1481. addq.w #1,d2
  1482. dbra.w d1,L001046
  1483. L00106a:
  1484. move.w d3,-(sp)
  1485. DOS _CLOSE
  1486. addq.l #2,sp
  1487. moveq.l #$07,d1
  1488. L001072:
  1489. jsr (L006688)
  1490. move.b ($0013,a1),d0
  1491. jsr (L0061b4)
  1492. dbra.w d1,L001072
  1493. L001086:
  1494. movem.l (sp)+,d0-d3/a1-a2
  1495. bra.w L00071e
  1496. L00108e:
  1497. addq.l #1,a4
  1498. subq.l #1,d4
  1499. cmpi.b #$2c,(a4) ;','
  1500. beq.s L0010a0
  1501. cmpi.b #$20,(a4) ;' '
  1502. bne.w L00071e
  1503. L0010a0:
  1504. addq.l #1,a4
  1505. subq.l #1,d4
  1506. movem.l d0-d3/d5/a0-a2,-(sp)
  1507. lea.l (L00e5f4),a1
  1508. movea.l a1,a2
  1509. moveq.l #$00,d2
  1510. L0010b2:
  1511. move.b (a4)+,d0
  1512. subq.l #1,d4
  1513. bmi.s L0010e4
  1514. cmp.b #$20,d0 ;' '
  1515. ble.s L0010e4
  1516. cmp.b #$2e,d0 ;'.'
  1517. beq.s L0010e4
  1518. cmp.b #$2c,d0 ;','
  1519. beq.s L0010e4
  1520. cmp.b #$29,d0 ;')'
  1521. beq.s L0010e4
  1522. cmp.b #$28,d0 ;'('
  1523. ble.w L00116c
  1524. move.b d0,(a2)+
  1525. addq.w #1,d2
  1526. cmpi.w #$003b,d2 ;';'
  1527. bge.s L0010e4
  1528. bra.s L0010b2
  1529. L0010e4:
  1530. move.b #$2e,(a2)+ ;'.'
  1531. move.b #$53,(a2)+ ;'S'
  1532. move.b #$4e,(a2)+ ;'N'
  1533. move.b #$44,(a2)+ ;'D'
  1534. clr.b (a2)
  1535. lea.l ($0001,a2),a0
  1536. tst.w d2
  1537. beq.s L00116c
  1538. cmpi.b #$29,d0 ;')'
  1539. bne.s L001120
  1540. move.w #$0020,-(sp) ;' '
  1541. pea.l (a1)
  1542. DOS _CREATE
  1543. lea.l ($0006,sp),sp
  1544. move.l d0,d5
  1545. bmi.s L00116c
  1546. move.w #$0001,d2
  1547. move.w #$00c8,d3
  1548. bsr.s L001174
  1549. bra.s L001166
  1550. L001120:
  1551. bsr.w L001344
  1552. move.w d1,d2
  1553. beq.s L00116c
  1554. move.w d0,-(sp)
  1555. move.w #$0020,-(sp) ;' '
  1556. pea.l (a1)
  1557. DOS _CREATE
  1558. lea.l ($0006,sp),sp
  1559. move.l d0,d5
  1560. move.w (sp)+,d0
  1561. tst.l d5
  1562. bmi.s L00116c
  1563. L00113e:
  1564. move.w d2,d3
  1565. cmpi.b #$2d,d0 ;'-'
  1566. bne.s L001156
  1567. bsr.w L001344
  1568. move.w d1,d3
  1569. bne.s L001156
  1570. move.w #$00c8,d3
  1571. bsr.s L001174
  1572. bra.s L001166
  1573. L001156:
  1574. bsr.s L001174
  1575. tst.w d0
  1576. bmi.s L001166
  1577. bsr.w L001344
  1578. move.w d1,d2
  1579. beq.s L001166
  1580. bra.s L00113e
  1581. L001166:
  1582. move.w d5,-(sp)
  1583. DOS _CLOSE
  1584. addq.l #2,sp
  1585. L00116c:
  1586. movem.l (sp)+,d0-d3/d5/a0-a2
  1587. bra.w L00071e
  1588. L001174:
  1589. move.w d2,d0
  1590. subq.w #1,d0
  1591. bmi.s L00119a
  1592. jsr (L0065dc)
  1593. move.l #$00000050,-(sp)
  1594. move.l a0,-(sp)
  1595. move.w d5,-(sp)
  1596. DOS _WRITE
  1597. lea.l ($000a,sp),sp
  1598. tst.l d0
  1599. bmi.s L00119a
  1600. addq.w #1,d2
  1601. cmp.w d3,d2
  1602. ble.s L001174
  1603. L00119a:
  1604. rts
  1605. L00119c:
  1606. jsr (L0068ac)
  1607. bra.w L00071e
  1608. L0011a6:
  1609. cmpi.b #$30,(a4) ;'0'
  1610. blt.w L00071e
  1611. movem.l d0-d3/d5/a1-a2,-(sp)
  1612. bsr.w L001344
  1613. cmpi.l #$0000007f,d1
  1614. bgt.w L001294
  1615. cmp.b #$2c,d0 ;','
  1616. beq.s L0011dc
  1617. cmp.b #$3d,d0 ;'='
  1618. beq.s L0011dc
  1619. cmp.b #$20,d0 ;' '
  1620. bne.w L001294
  1621. addq.l #1,a4
  1622. subq.l #1,d4
  1623. beq.w L001294
  1624. L0011dc:
  1625. bsr.w L0012fa
  1626. bcs.w L001294
  1627. lea.l (L00e5f4),a1
  1628. moveq.l #$00,d2
  1629. L0011ec:
  1630. move.b (a4)+,d0
  1631. subq.l #1,d4
  1632. bmi.s L00120a
  1633. cmp.b #$20,d0 ;' '
  1634. ble.s L00120a
  1635. cmp.b #$29,d0 ;')'
  1636. beq.s L00120a
  1637. cmp.b #$28,d0 ;'('
  1638. beq.s L00120a
  1639. move.b d0,(a1)+
  1640. addq.w #1,d2
  1641. bra.s L0011ec
  1642. L00120a:
  1643. clr.b (a1)
  1644. tst.w d2
  1645. beq.w L001294
  1646. clr.w -(sp)
  1647. pea.l (L00e5f4)
  1648. DOS _OPEN
  1649. lea.l ($0006,sp),sp
  1650. move.l d0,d5
  1651. bmi.s L001294
  1652. move.w d1,d3
  1653. swap.w d3
  1654. move.w #$0004,d3
  1655. moveq.l #$00,d2
  1656. jsr (L00675a)
  1657. lea.l (L007716),a1
  1658. lea.l (L00d5e0),a2
  1659. lsl.w #3,d1
  1660. adda.w d1,a2
  1661. move.l ($000c,a1),d2
  1662. beq.s L00128e
  1663. move.l d2,-(sp)
  1664. move.l ($0004,a1),-(sp)
  1665. move.w d5,-(sp)
  1666. DOS _READ
  1667. lea.l ($000a,sp),sp
  1668. move.l d0,d2
  1669. bmi.s L00128e
  1670. cmpi.l #$00007fff,d2
  1671. ble.s L00126a
  1672. move.l #$00007fff,d2
  1673. L00126a:
  1674. move.w d2,(a2)
  1675. move.l ($0004,a1),($0004,a2)
  1676. add.l d2,($0004,a1)
  1677. sub.l d2,($000c,a1)
  1678. lea.l (L00e5f4),a1
  1679. bsr.w L00073e
  1680. swap.w d3
  1681. move.w d3,d2
  1682. jsr (L002e0c)
  1683. L00128e:
  1684. move.w d5,-(sp)
  1685. DOS _CLOSE
  1686. addq.l #2,sp
  1687. L001294:
  1688. movem.l (sp)+,d0-d3/d5/a1-a2
  1689. bra.w L00071e
  1690. L00129c:
  1691. movea.l sp,a1
  1692. movea.l a1,a3
  1693. adda.l #$000001ff,a3
  1694. L0012a6:
  1695. move.b d0,(a1)+
  1696. subq.l #1,d4
  1697. bmi.s L0012e6
  1698. cmpa.l a3,a1
  1699. beq.s L0012d2
  1700. move.b (a4)+,d0
  1701. cmpi.b #$20,d0 ;' '
  1702. bcs.s L0012d2
  1703. cmpi.b #$28,d0 ;'('
  1704. bne.s L0012a6
  1705. clr.b (a1)
  1706. movea.l sp,a1
  1707. move.l (L000ab8),d2
  1708. moveq.l #$06,d1
  1709. bsr.w L0013ac
  1710. bra.w L00066e
  1711. L0012d2:
  1712. clr.b (a1)
  1713. movea.l sp,a1
  1714. move.l (L000ab8),d2
  1715. moveq.l #$06,d1
  1716. bsr.w L0013ac
  1717. bra.w L00060e
  1718. L0012e6:
  1719. clr.b (a1)
  1720. movea.l sp,a1
  1721. move.l (L000ab8),d2
  1722. moveq.l #$06,d1
  1723. bsr.w L0013ac
  1724. bra.w L0006aa
  1725. L0012fa:
  1726. move.b (a4),d0
  1727. beq.s L001320
  1728. cmpi.b #$20,d0 ;' '
  1729. beq.s L00130a
  1730. cmpi.b #$09,d0
  1731. bne.s L001314
  1732. L00130a:
  1733. addq.l #1,a4
  1734. subq.l #1,d4
  1735. beq.s L001320
  1736. bmi.s L001320
  1737. bra.s L0012fa
  1738. L001314:
  1739. cmp.b #$29,d0 ;')'
  1740. beq.s L001320
  1741. andi.b #$fe,ccr
  1742. rts
  1743. L001320:
  1744. ori.b #$01,ccr
  1745. rts
  1746. L001326:
  1747. moveq.l #$00,d2
  1748. L001328:
  1749. bsr.s L001344
  1750. cmp.b #$29,d0 ;')'
  1751. beq.s L001338
  1752. subq.l #1,d1
  1753. bmi.s L001340
  1754. bset.l d1,d2
  1755. bra.s L001328
  1756. L001338:
  1757. tst.l d1
  1758. beq.s L001340
  1759. subq.l #1,d1
  1760. bset.l d1,d2
  1761. L001340:
  1762. tst.l d4
  1763. rts
  1764. L001344:
  1765. movem.l d2,-(sp)
  1766. moveq.l #$00,d1
  1767. L00134a:
  1768. move.b (a4)+,d0
  1769. subq.l #1,d4
  1770. bmi.s L00137a
  1771. cmp.b #$21,d0 ;'!'
  1772. bcs.s L00134a
  1773. L001356:
  1774. cmp.b #$30,d0 ;'0'
  1775. bcs.s L001378
  1776. cmp.b #$3a,d0 ;':'
  1777. bcc.s L001378
  1778. and.l #$0000000f,d0
  1779. add.l d1,d1
  1780. move.l d1,d2
  1781. asl.l #2,d1
  1782. add.l d2,d1
  1783. add.l d0,d1
  1784. move.b (a4)+,d0
  1785. subq.l #1,d4
  1786. bpl.s L001356
  1787. L001378:
  1788. moveq.l #$00,d2
  1789. L00137a:
  1790. movem.l (sp)+,d2
  1791. rts
  1792. L001380:
  1793. cmpi.w #$0002,d1
  1794. bne.s L00138a
  1795. moveq.l #$00,d0
  1796. rts
  1797. L00138a:
  1798. cmpi.w #$005c,d1 ;'\'
  1799. beq.s L00139e
  1800. cmpi.w #$005d,d1 ;']'
  1801. bne.s L0013ac
  1802. move.l (L0013a8),d0
  1803. rts
  1804. L00139e:
  1805. move.l d2,(L0013a8)
  1806. moveq.l #$00,d0
  1807. rts
  1808. L0013a8:
  1809. .dc.l $00000000
  1810. L0013ac:
  1811. cmp.w #$0068,d1 ;'h'
  1812. bcc.s L001404
  1813. clr.l (L0013a8)
  1814. movem.l d1-d7/a0-a6,-(sp)
  1815. lea.l (Table2),a0
  1816. add.w d1,d1
  1817. add.w d1,d1
  1818. movea.l (a0,d1.w),a0
  1819. cmpi.w #$0180,d1
  1820. bcs.s L0013fc
  1821. cmpi.w #$0198,d1
  1822. bcc.s L0013f8
  1823. jsr (L006900)
  1824. tst.l d0
  1825. beq.s L0013e8
  1826. moveq.l #$00,d1
  1827. jsr (L00690a)
  1828. L0013e8:
  1829. move.b #$01,(L006bc3)
  1830. move.b #$01,(L006bc7)
  1831. L0013f8:
  1832. move.l d2,d1
  1833. move.l d3,d2
  1834. L0013fc:
  1835. jsr (a0)
  1836. movem.l (sp)+,d1-d7/a0-a6
  1837. rts
  1838. L001404:
  1839. moveq.l #$ff,d0
  1840. L001406:
  1841. rts
  1842. Table2:
  1843. .dc.l L00170e
  1844. .dc.l L001878
  1845. .dc.l L001916
  1846. .dc.l L001a30
  1847. .dc.l L001a60
  1848. .dc.l L001a90
  1849. .dc.l L001ac6
  1850. .dc.l L001aea
  1851. .dc.l L001b22
  1852. .dc.l L001c4e
  1853. .dc.l L001ca2
  1854. .dc.l L001d3a
  1855. .dc.l L0020da
  1856. .dc.l L0020fc
  1857. .dc.l L00214c
  1858. .dc.l L00215e
  1859. .dc.l L002190
  1860. .dc.l L00223c
  1861. .dc.l L0022b4
  1862. .dc.l L002326
  1863. .dc.l L002430
  1864. .dc.l L002486
  1865. .dc.l L002516
  1866. .dc.l L0025cc
  1867. .dc.l L002600
  1868. .dc.l L002634
  1869. .dc.l L00265c
  1870. .dc.l L0026d8
  1871. .dc.l L002710
  1872. .dc.l L002748
  1873. .dc.l L0027a0
  1874. .dc.l L0027e4
  1875. .dc.l L00286c
  1876. .dc.l L0028a8
  1877. .dc.l L0028ee
  1878. .dc.l L002932
  1879. .dc.l L00295e
  1880. .dc.l L0029d4
  1881. .dc.l L002a4c
  1882. .dc.l L002a74
  1883. .dc.l L002a80
  1884. .dc.l L002a98
  1885. .dc.l L002aa0
  1886. .dc.l L002b9e
  1887. .dc.l L002c24
  1888. .dc.l L002c32
  1889. .dc.l L002c3e
  1890. .dc.l L002c60
  1891. .dc.l L002c68
  1892. .dc.l L002c72
  1893. .dc.l L002c9e
  1894. .dc.l L002ca8
  1895. .dc.l L001d8c
  1896. .dc.l L001e94
  1897. .dc.l L002094
  1898. .dc.l L0020b0
  1899. .dc.l L002b1e
  1900. .dc.l L002b44
  1901. .dc.l L002b74
  1902. .dc.l L002b96
  1903. .dc.l L002ab2
  1904. .dc.l L00258c
  1905. .dc.l L002d62
  1906. .dc.l L002dac
  1907. .dc.l L002df6
  1908. .dc.l L002e56
  1909. .dc.l L002e0c
  1910. .dc.l L002e6c
  1911. .dc.l L002eb6
  1912. .dc.l L00239e
  1913. .dc.l L0023f8
  1914. .dc.l L002cca
  1915. .dc.l L002cec
  1916. .dc.l L002d0a
  1917. .dc.l L002d0e
  1918. .dc.l L002d12
  1919. .dc.l L001406
  1920. .dc.l L001406
  1921. .dc.l L001406
  1922. .dc.l L001406
  1923. .dc.l L001406
  1924. .dc.l L001406
  1925. .dc.l L001406
  1926. .dc.l L001406
  1927. .dc.l L001406
  1928. .dc.l L001406
  1929. .dc.l L001406
  1930. .dc.l L001406
  1931. .dc.l L001406
  1932. .dc.l L001406
  1933. .dc.l L001406
  1934. .dc.l L001406
  1935. .dc.l L001406
  1936. .dc.l L001406
  1937. .dc.l L0016ea
  1938. .dc.l L0016f2
  1939. .dc.l L00694c
  1940. .dc.l L006a44
  1941. .dc.l L001406
  1942. .dc.l L001406
  1943. .dc.l L001406
  1944. .dc.l L001406
  1945. .dc.l L006900
  1946. .dc.l L00690a
  1947. L0015a8:
  1948. andi.w #$007f,d0
  1949. cmpi.w #$0051,d0 ;'Q'
  1950. blt.s L0015b6
  1951. move.w #$0050,d0 ;'P'
  1952. L0015b6:
  1953. rts
  1954. L0015b8:
  1955. andi.w #$001f,d0
  1956. cmpi.w #$001a,d0
  1957. blt.s L0015c6
  1958. move.w #$0019,d0
  1959. L0015c6:
  1960. rts
  1961. L0015c8:
  1962. move.l a0,-(sp)
  1963. lea.l (L00ce63),a0
  1964. move.b (a0,d0.w),d0
  1965. movea.l (sp)+,a0
  1966. rts
  1967. L0015d8:
  1968. movem.l d1/a0,-(sp)
  1969. lea.l (L00ce63),a0
  1970. move.w #$0018,d1
  1971. L0015e6:
  1972. cmp.b (a0,d1.w),d0
  1973. beq.s L0015f0
  1974. dbra.w d1,L0015e6
  1975. L0015f0:
  1976. move.w d1,d0
  1977. movem.l (sp)+,d1/a0
  1978. rts
  1979. L0015f8:
  1980. move.l a5,-(sp)
  1981. lea.l (L00c616),a5
  1982. andi.l #$0000001f,d0
  1983. subq.w #1,d0
  1984. mulu.w #$0054,d0
  1985. adda.w d0,a5
  1986. moveq.l #$00,d0
  1987. move.b ($0028,a5),d0
  1988. addq.b #1,d0
  1989. movea.l (sp)+,a5
  1990. rts
  1991. L00161a:
  1992. movem.l d0-d1/a0/a5,-(sp)
  1993. lea.l (L00ce63),a0
  1994. lea.l (L00c616),a5
  1995. moveq.l #$18,d1
  1996. L00162c:
  1997. move.b (a0),($0028,a5)
  1998. move.b (a0),($0027,a5)
  1999. move.b (a0)+,($0009,a5)
  2000. adda.l #$00000054,a5
  2001. dbra.w d1,L00162c
  2002. movem.l (sp)+,d0-d1/a0/a5
  2003. rts
  2004. L001648:
  2005. movem.l d0-d2/a0,-(sp)
  2006. move.l #$001f0001,d2
  2007. L001652:
  2008. swap.w d2
  2009. bsr.w L001878
  2010. swap.w d2
  2011. addq.w #1,d2
  2012. cmp.w #$0011,d2
  2013. bne.s L001652
  2014. movem.l (sp)+,d0-d2/a0
  2015. rts
  2016. L001668:
  2017. movem.l d0-d2/a0-a1,-(sp)
  2018. lea.l (L00c4d6),a1
  2019. moveq.l #$4f,d0 ;'O'
  2020. L001674:
  2021. clr.l (a1)+
  2022. dbra.w d0,L001674
  2023. move.l #$00030001,d2
  2024. L001680:
  2025. swap.w d2
  2026. bsr.w L001878
  2027. swap.w d2
  2028. addq.w #1,d2
  2029. cmp.w #$0051,d2 ;'Q'
  2030. bne.s L001680
  2031. tst.b (L007a12)
  2032. beq.s L00169a
  2033. bsr.s L001648
  2034. L00169a:
  2035. movem.l (sp)+,d0-d2/a0-a1
  2036. rts
  2037. L0016a0:
  2038. clr.b (a5)
  2039. clr.b ($0001,a5)
  2040. move.l ($0050,a5),($0002,a5)
  2041. clr.w ($0006,a5)
  2042. clr.b ($0014,a5)
  2043. clr.b ($0016,a5)
  2044. clr.b ($0018,a5)
  2045. clr.b ($001e,a5)
  2046. clr.b ($0020,a5)
  2047. clr.b ($0026,a5)
  2048. clr.w ($002e,a5)
  2049. clr.l ($0032,a5)
  2050. clr.l ($0036,a5)
  2051. clr.b ($003c,a5)
  2052. clr.b ($003e,a5)
  2053. clr.b ($0040,a5)
  2054. clr.b ($0042,a5)
  2055. clr.b ($0044,a5)
  2056. rts
  2057. L0016ea:
  2058. move.l (L0074c0),d0
  2059. rts
  2060. L0016f2:
  2061. tst.l (L0074b8)
  2062. bne.s L0016fe
  2063. moveq.l #$ff,d0
  2064. rts
  2065. L0016fe:
  2066. bsr.w L001cb6
  2067. bsr.w L0027a0
  2068. move.l #L0074b8,d0
  2069. rts
  2070. L00170e:
  2071. bsr.w L002f6a
  2072. clr.b (L002863)
  2073. bsr.w L001cb6
  2074. tst.w (L007572)
  2075. beq.s L001728
  2076. bsr.w L004d0a
  2077. L001728:
  2078. cmpi.w #$0001,d2
  2079. bne.s L001732
  2080. bsr.w L005daa
  2081. L001732:
  2082. bsr.w L005d52
  2083. clr.w -(sp)
  2084. jsr (L004f1e)
  2085. jsr (L004f7a)
  2086. jsr (L004efa)
  2087. addq.l #2,sp
  2088. clr.w (L007850)
  2089. clr.b (L001e92)
  2090. clr.w (L007a30)
  2091. clr.w (L007a0c)
  2092. move.l #$00040004,d0
  2093. move.l d0,(L0028ea)
  2094. clr.w (L0028e8)
  2095. jsr (L004a4e)
  2096. move.w #$0078,d0 ;'x'
  2097. move.w d0,(L007550)
  2098. bsr.w L004d84
  2099. bsr.w L001668
  2100. bsr.w L00161a
  2101. moveq.l #$ff,d2
  2102. bsr.w L001916
  2103. bsr.w L004002
  2104. bsr.w L003fe4
  2105. lea.l (L00c396),a3
  2106. lea.l (L0078c6),a4
  2107. clr.w d0
  2108. L0017ae:
  2109. clr.l (a4)+
  2110. bsr.w L003f8c
  2111. move.l (a3),(a1)
  2112. move.b #$04,($0004,a1)
  2113. clr.b ($0005,a1)
  2114. move.b #$30,($0006,a1) ;'0'
  2115. move.b #$08,($0007,a1)
  2116. clr.b ($0008,a1)
  2117. clr.b ($0009,a1)
  2118. clr.l ($000a,a1)
  2119. clr.w ($000e,a1)
  2120. cmpi.w #$0018,d0
  2121. bgt.s L001826
  2122. bsr.w L003fcc
  2123. move.l (a3),($0002,a5)
  2124. move.l (a3)+,($0050,a5)
  2125. move.b #$7f,($0029,a5)
  2126. move.b #$40,($002a,a5) ;'@'
  2127. move.b #$40,($002b,a5) ;'@'
  2128. clr.w ($002c,a5)
  2129. clr.w ($002e,a5)
  2130. clr.l ($0030,a5)
  2131. clr.l ($0034,a5)
  2132. clr.l ($0038,a5)
  2133. clr.l ($003c,a5)
  2134. clr.l ($004c,a5)
  2135. clr.b ($0014,a5)
  2136. move.b #$01,($003f,a5)
  2137. L001826:
  2138. addq.w #1,d0
  2139. cmp.w #$0050,d0 ;'P'
  2140. bne.s L0017ae
  2141. clr.b (L007a3a)
  2142. clr.w (L007852)
  2143. clr.w (L00783a)
  2144. clr.l (L007844)
  2145. clr.b (L007a14)
  2146. move.l (L007a1c),(L00783c)
  2147. move.l (L007a1c),(L007848)
  2148. move.l (L007a1c),(L00784c)
  2149. move.l (L007a20),(L007840)
  2150. bra.w L002f9c
  2151. L001878:
  2152. bsr.w L002f6a
  2153. move.l d2,-(sp)
  2154. tst.w (L007a30)
  2155. beq.s L00188a
  2156. bsr.w L001cb6
  2157. L00188a:
  2158. move.l (sp)+,d2
  2159. move.l d2,d0
  2160. clr.w d0
  2161. swap.w d0
  2162. subq.w #1,d0
  2163. cmp.w #$0050,d0 ;'P'
  2164. bcc.w L002f98
  2165. move.l d3,-(sp)
  2166. moveq.l #$00,d1
  2167. move.w d2,d1
  2168. addq.l #1,d1
  2169. move.w d0,d3
  2170. lea.l (L00c4d6),a0
  2171. lsl.w #2,d0
  2172. move.l d1,(a0,d0.w)
  2173. bsr.w L003ec0
  2174. tst.l d0
  2175. bmi.s L0018d0
  2176. bsr.w L003f10
  2177. bsr.w L003f4a
  2178. bsr.w L003f6e
  2179. bsr.w L0019e8
  2180. move.l (sp)+,d3
  2181. bra.w L002f9c
  2182. L0018d0:
  2183. lea.l (L00c4d6),a0
  2184. move.l (L007a20),d1
  2185. moveq.l #$00,d0
  2186. L0018de:
  2187. cmp.w d0,d3
  2188. beq.s L0018e4
  2189. sub.l (a0),d1
  2190. L0018e4:
  2191. addq.l #4,a0
  2192. addq.w #1,d0
  2193. cmpi.w #$0050,d0 ;'P'
  2194. bne.s L0018de
  2195. lsl.w #2,d3
  2196. lea.l (L00c4d6),a0
  2197. subq.l #1,d1
  2198. move.l d1,(a0,d3.w)
  2199. bsr.w L003ec0
  2200. bsr.w L003f10
  2201. bsr.w L003f4a
  2202. bsr.w L003f6e
  2203. bsr.w L0019e8
  2204. move.l (sp)+,d3
  2205. bra.w L002f94
  2206. L001916:
  2207. bsr.w L002f6a
  2208. cmpi.l #$ffffffff,d2
  2209. beq.s L001984
  2210. move.w d2,d0
  2211. bmi.w L0019c8
  2212. bsr.w L0015a8
  2213. subq.w #1,d0
  2214. bmi.w L002f98
  2215. swap.w d2
  2216. subq.w #1,d2
  2217. bmi.w L002f90
  2218. cmp.w #$0019,d2
  2219. bcc.w L002f90
  2220. movem.l a3-a5,-(sp)
  2221. lea.l (L00ce4a),a4
  2222. move.b d0,(a4,d2.w)
  2223. lea.l (L00c616),a5
  2224. lea.l (L00c396),a4
  2225. lsl.w #2,d0
  2226. mulu.w #$0054,d2
  2227. adda.w d2,a5
  2228. movea.l (a4,d0.w),a3
  2229. move.l a3,($0050,a5)
  2230. bsr.w L0016a0
  2231. cmpi.b #$ff,(a3)
  2232. beq.s L00197c
  2233. move.b #$01,($0014,a5)
  2234. L00197c:
  2235. movem.l (sp)+,a3-a5
  2236. bra.w L002f9c
  2237. L001984:
  2238. movem.l a2-a5,-(sp)
  2239. lea.l (L00ce4a),a3
  2240. lea.l (L00c396),a4
  2241. lea.l (L00c616),a5
  2242. moveq.l #$00,d0
  2243. L00199c:
  2244. move.b d0,(a3)+
  2245. movea.l (a4)+,a2
  2246. move.l a2,($0050,a5)
  2247. bsr.w L0016a0
  2248. cmpi.b #$ff,(a2)
  2249. beq.s L0019b4
  2250. move.b #$01,($0014,a5)
  2251. L0019b4:
  2252. lea.l ($0054,a5),a5
  2253. addq.w #1,d0
  2254. cmpi.w #$0019,d0
  2255. bne.s L00199c
  2256. movem.l (sp)+,a2-a5
  2257. bra.w L002f9c
  2258. L0019c8:
  2259. swap.w d2
  2260. subq.w #1,d2
  2261. bmi.w L002f90
  2262. cmp.w #$0019,d2
  2263. bcc.w L002f90
  2264. lea.l (L00ce4a),a0
  2265. moveq.l #$00,d0
  2266. move.b (a0,d2.w),d0
  2267. addq.w #1,d0
  2268. rts
  2269. L0019e8:
  2270. movem.l d0-d1/a0-a3,-(sp)
  2271. lea.l (L00ce4a),a0
  2272. lea.l (L00c396),a1
  2273. lea.l (L00c616),a2
  2274. lea.l (L00ce63),a3
  2275. moveq.l #$18,d1
  2276. L001a06:
  2277. moveq.l #$00,d0
  2278. move.b (a0)+,d0
  2279. lsl.w #2,d0
  2280. move.l (a1,d0.w),($0002,a2)
  2281. move.l (a1,d0.w),($0050,a2)
  2282. move.b (a3),($0028,a2)
  2283. move.b (a3)+,($0009,a2)
  2284. adda.l #$00000054,a2
  2285. dbra.w d1,L001a06
  2286. movem.l (sp)+,d0-d1/a0-a3
  2287. rts
  2288. L001a30:
  2289. bsr.w L002f6a
  2290. move.l d2,d0
  2291. subq.l #1,d0
  2292. bmi.w L002f78
  2293. cmp.l #$000000c8,d0
  2294. bcc.w L002f78
  2295. lea.l (APianoData2),a0
  2296. mulu.w #$0037,d0
  2297. adda.l d0,a0
  2298. move.w #$0036,d0 ;'6'
  2299. L001a56:
  2300. move.b (a0)+,(a1)+
  2301. dbra.w d0,L001a56
  2302. bra.w L002f9c
  2303. L001a60:
  2304. bsr.w L002f6a
  2305. move.l d2,d0
  2306. subq.l #1,d0
  2307. bmi.w L002f78
  2308. cmp.l #$000000c8,d0
  2309. bcc.w L002f78
  2310. lea.l (APianoData2),a0
  2311. mulu.w #$0037,d0
  2312. adda.l d0,a0
  2313. move.w #$0036,d0 ;'6'
  2314. L001a86:
  2315. move.b (a1)+,(a0)+
  2316. dbra.w d0,L001a86
  2317. bra.w L002f9c
  2318. L001a90:
  2319. bsr.w L002f6a
  2320. move.w d2,d0
  2321. bmi.s L001abc
  2322. cmp.w #$0014,d0
  2323. bcc.s L001aa4
  2324. move.w #$0014,d0
  2325. bra.s L001aae
  2326. L001aa4:
  2327. cmp.w #$012c,d0
  2328. ble.s L001aae
  2329. move.w #$012c,d0
  2330. L001aae:
  2331. move.w d0,(L007550)
  2332. bsr.w L004d84
  2333. bra.w L002f9c
  2334. L001abc:
  2335. moveq.l #$00,d0
  2336. move.w (L007550),d0
  2337. rts
  2338. L001ac6:
  2339. bsr.w L002f6a
  2340. movea.l a1,a0
  2341. move.l d2,d0
  2342. subq.l #1,d0
  2343. bmi.w L002f98
  2344. cmp.l #$00000050,d0
  2345. bcc.w L002f98
  2346. bsr.w L0031e8
  2347. move.l (L007a24),d0
  2348. rts
  2349. L001aea:
  2350. bsr.w L002f6a
  2351. move.w d2,d0
  2352. subq.w #1,d0
  2353. cmp.w #$0050,d0 ;'P'
  2354. bcc.w L002f98
  2355. bsr.w L003f8c
  2356. lsl.w #2,d0
  2357. move.w d0,d2
  2358. lea.l (L00c396),a0
  2359. move.l (a0,d2.w),d1
  2360. move.l (a1),d0
  2361. sub.l d1,d0
  2362. lea.l (L00c4d6),a0
  2363. move.l (a0,d2.w),d1
  2364. sub.l d0,d1
  2365. subq.l #1,d1
  2366. move.l d1,d0
  2367. rts
  2368. L001b22:
  2369. bsr.w L002f6a
  2370. tst.l d2
  2371. ble.s L001b30
  2372. bsr.s L001b36
  2373. bra.w L002f9c
  2374. L001b30:
  2375. bsr.s L001b60
  2376. bra.w L002f9c
  2377. L001b36:
  2378. bsr.s L001bae
  2379. tst.w (L007a30)
  2380. bne.s L001b5e
  2381. tst.w (L007572)
  2382. bne.s L001b5e
  2383. jsr (L004b22)
  2384. move.b #$01,(L002863)
  2385. move.w #$0001,(L007a30)
  2386. L001b5e:
  2387. rts
  2388. L001b60:
  2389. move.l d2,-(sp)
  2390. moveq.l #$ff,d2
  2391. tst.w (L007a30)
  2392. beq.s L001b70
  2393. bsr.w L001cb6
  2394. L001b70:
  2395. bsr.s L001bae
  2396. tst.w (L007572)
  2397. bne.s L001b80
  2398. jsr (L004b22)
  2399. L001b80:
  2400. tst.w (L001e92)
  2401. bne.s L001b8e
  2402. clr.w (L007a06)
  2403. L001b8e:
  2404. move.b #$01,(L002863)
  2405. clr.b (L007a14)
  2406. clr.b (L001e92)
  2407. move.w #$0001,(L007a30)
  2408. move.l (sp)+,d2
  2409. rts
  2410. L001bae:
  2411. movem.l d1-d2/a3-a5,-(sp)
  2412. lea.l (L007828),a3
  2413. move.w ($0002,a3),(a3)
  2414. move.w ($0006,a3),($0004,a3)
  2415. clr.w (L007a0c)
  2416. tst.w (L001e92)
  2417. bne.s L001bea
  2418. clr.b (L007a1a)
  2419. clr.b (L006bc3)
  2420. clr.w (L002864)
  2421. move.b #-$01,(L006bc2)
  2422. L001bea:
  2423. clr.w d0
  2424. lea.l (L00ce7c),a3
  2425. lea.l (L00c616),a5
  2426. L001bf8:
  2427. lsr.l #1,d2
  2428. bcc.s L001c38
  2429. tst.w (L001e92)
  2430. bne.s L001c0e
  2431. bsr.w L0016a0
  2432. move.l #$ffffffff,(a3)
  2433. L001c0e:
  2434. move.b #$01,($004c,a5)
  2435. movea.l ($0002,a5),a4
  2436. clr.b ($0014,a5)
  2437. cmpi.b #$ff,(a4)
  2438. beq.s L001c28
  2439. move.b #$01,($0014,a5)
  2440. L001c28:
  2441. moveq.l #$00,d1
  2442. move.b ($0028,a5),d1
  2443. addq.b #1,d1
  2444. move.w d1,-(sp)
  2445. bsr.w L004efa
  2446. addq.l #2,sp
  2447. L001c38:
  2448. lea.l ($0004,a3),a3
  2449. lea.l ($0054,a5),a5
  2450. addq.w #1,d0
  2451. cmpi.w #$0019,d0
  2452. bne.s L001bf8
  2453. movem.l (sp)+,d1-d2/a3-a5
  2454. rts
  2455. L001c4e:
  2456. bsr.w L002f6a
  2457. tst.w (L007a30)
  2458. bne.s L001c5e
  2459. moveq.l #$00,d0
  2460. rts
  2461. L001c5e:
  2462. tst.l d2
  2463. ble.s L001c82
  2464. subq.l #1,d2
  2465. cmpi.w #$0018,d2
  2466. ble.s L001c6e
  2467. move.w #$0018,d2
  2468. L001c6e:
  2469. lea.l (L00c616),a5
  2470. mulu.w #$0054,d2
  2471. adda.w d2,a5
  2472. moveq.l #$00,d0
  2473. move.b ($0014,a5),d0
  2474. rts
  2475. L001c82:
  2476. lea.l (L00c616),a5
  2477. moveq.l #$00,d0
  2478. moveq.l #$00,d1
  2479. L001c8c:
  2480. tst.b ($0014,a5)
  2481. beq.s L001c94
  2482. bset.l d1,d0
  2483. L001c94:
  2484. adda.w #$0054,a5
  2485. addq.w #1,d1
  2486. cmp.w #$0019,d1
  2487. bne.s L001c8c
  2488. rts
  2489. L001ca2:
  2490. bsr.w L002f6a
  2491. tst.l d2
  2492. ble.s L001cb0
  2493. bsr.s L001cea
  2494. bra.w L002f9c
  2495. L001cb0:
  2496. bsr.s L001cb6
  2497. bra.w L002f9c
  2498. L001cb6:
  2499. move.l d2,-(sp)
  2500. jsr (L004b8c)
  2501. clr.w (L007a30)
  2502. clr.b (L001e92)
  2503. clr.b (L002863)
  2504. clr.w (L002864)
  2505. moveq.l #$ff,d2
  2506. bsr.s L001cea
  2507. clr.w -(sp)
  2508. jsr (L004efa)
  2509. lea.l ($0002,sp),sp
  2510. move.l (sp)+,d2
  2511. rts
  2512. L001cea:
  2513. movem.l d0-d1/a5,-(sp)
  2514. moveq.l #$18,d1
  2515. lea.l (L00c616),a5
  2516. L001cf6:
  2517. lsr.l #1,d2
  2518. bcc.s L001d2a
  2519. clr.b ($004c,a5)
  2520. tst.w (L007a30)
  2521. beq.s L001d12
  2522. move.b #-$01,(L007a14)
  2523. bsr.w L003eb6
  2524. L001d12:
  2525. bsr.w L00406a
  2526. bsr.w L00431a
  2527. clr.w ($0006,a5)
  2528. clr.w ($002e,a5)
  2529. clr.l ($0032,a5)
  2530. clr.l ($0036,a5)
  2531. L001d2a:
  2532. adda.l #$00000054,a5
  2533. dbra.w d1,L001cf6
  2534. movem.l (sp)+,d0-d1/a5
  2535. rts
  2536. L001d3a:
  2537. bsr.w L002f6a
  2538. tst.l d2
  2539. ble.s L001d44
  2540. bra.s L001d46
  2541. L001d44:
  2542. moveq.l #$ff,d2
  2543. L001d46:
  2544. movem.l d1/a5,-(sp)
  2545. lea.l (L00c616),a5
  2546. moveq.l #$18,d1
  2547. L001d52:
  2548. lsr.l #1,d2
  2549. bcc.s L001d5c
  2550. move.b #$01,($004c,a5)
  2551. L001d5c:
  2552. adda.l #$00000054,a5
  2553. dbra.w d1,L001d52
  2554. tst.w (L007a30)
  2555. bne.s L001d84
  2556. jsr (L004bca)
  2557. move.w #$0001,(L007a30)
  2558. move.b #$01,(L002863)
  2559. L001d84:
  2560. movem.l (sp)+,d1/a5
  2561. bra.w L002f9c
  2562. L001d8c:
  2563. bsr.w L002f6a
  2564. tst.w (L007a30)
  2565. beq.s L001d9c
  2566. bsr.w L001cb6
  2567. L001d9c:
  2568. clr.w (L007a0c)
  2569. bsr.w L004002
  2570. bsr.w L003fe4
  2571. bsr.s L001db0
  2572. bra.w L002f9c
  2573. L001db0:
  2574. movem.l d1-d2/a0-a6,-(sp)
  2575. subq.w #1,d2
  2576. bpl.s L001dba
  2577. moveq.l #$00,d2
  2578. L001dba:
  2579. andi.w #$7fff,d2
  2580. move.w d2,(L007a06)
  2581. clr.b (L007a1a)
  2582. lea.l (L00e5f4),a3
  2583. moveq.l #$18,d0
  2584. L001dd2:
  2585. move.l #$ffffffff,(a3)+
  2586. move.l #$ffffffff,(a3)+
  2587. move.l #$ffffffff,(a3)+
  2588. move.l #$ffffffff,(a3)+
  2589. dbra.w d0,L001dd2
  2590. clr.w d0
  2591. lea.l (L00e5f4),a3
  2592. lea.l (L00c616),a5
  2593. L001dfc:
  2594. movea.l ($0050,a5),a4
  2595. move.l a4,($0002,a5)
  2596. clr.b ($003e,a5)
  2597. clr.b (a5)
  2598. clr.w ($0006,a5)
  2599. clr.w ($002e,a5)
  2600. clr.l ($0030,a5)
  2601. clr.l ($0034,a5)
  2602. clr.l ($0038,a5)
  2603. move.b #$01,($004c,a5)
  2604. clr.b ($0014,a5)
  2605. cmpi.b #$ff,(a4)
  2606. beq.s L001e60
  2607. move.b #$01,($0014,a5)
  2608. tst.w d2
  2609. beq.s L001e60
  2610. move.w d2,d1
  2611. movea.l a4,a1
  2612. bsr.w L001ec4
  2613. move.l a1,($0002,a5)
  2614. cmpi.b #$f0,(a1)
  2615. beq.s L001e56
  2616. cmpi.b #$ff,(a1)
  2617. bne.s L001e60
  2618. clr.b ($0014,a5)
  2619. bra.s L001e60
  2620. L001e56:
  2621. move.b ($0001,a1),($003e,a5)
  2622. move.b ($0002,a1),(a5)
  2623. L001e60:
  2624. lea.l ($0054,a5),a5
  2625. lea.l ($0010,a3),a3
  2626. addq.w #1,d0
  2627. cmp.w #$0019,d0
  2628. bne.s L001dfc
  2629. bsr.w L001ffc
  2630. lea.l (L007828),a1
  2631. move.w ($0002,a1),(a1)
  2632. move.w ($0006,a1),($0004,a1)
  2633. move.b #$01,(L001e92)
  2634. movem.l (sp)+,d1-d2/a0-a6
  2635. rts
  2636. L001e92:
  2637. .dc.b $00,$00
  2638. L001e94:
  2639. tst.w d2
  2640. ble.s L001eae
  2641. addq.w #1,d2
  2642. andi.w #$7fff,d2
  2643. move.w d2,(L007a0a)
  2644. cmp.w (L007a06),d2
  2645. ble.s L001eae
  2646. rts
  2647. L001eae:
  2648. clr.w (L007a0c)
  2649. move.w #$7fff,(L007a0a)
  2650. bsr.w L001cb6
  2651. bra.w L002f9c
  2652. L001ec4:
  2653. movem.l d0-d3,-(sp)
  2654. moveq.l #$00,d3
  2655. move.b #$7f,($0029,a5)
  2656. move.b #$40,($002a,a5) ;'@'
  2657. move.b #$40,($002b,a5) ;'@'
  2658. L001edc:
  2659. moveq.l #$00,d0
  2660. move.b (a1)+,d0
  2661. bmi.s L001eee
  2662. move.b (a1)+,d0
  2663. add.l d0,d3
  2664. addq.l #1,a1
  2665. bra.s L001edc
  2666. L001eea:
  2667. addq.l #2,a1
  2668. bra.s L001edc
  2669. L001eee:
  2670. cmp.b #$81,d0
  2671. beq.s L001f5c
  2672. cmp.b #$82,d0
  2673. beq.s L001f42
  2674. cmp.b #$a0,d0
  2675. beq.s L001f66
  2676. cmp.b #$b0,d0
  2677. beq.s L001f78
  2678. cmp.b #$c0,d0
  2679. beq.w L001fa2
  2680. cmp.b #$f0,d0
  2681. beq.w L001fda
  2682. cmp.b #$f1,d0
  2683. beq.w L001fe2
  2684. cmp.b #$ff,d0
  2685. beq.w L001ff4
  2686. cmp.b #$90,d0
  2687. bne.s L001eea
  2688. move.b (a1)+,d0
  2689. lsl.w #8,d0
  2690. move.b (a1)+,d0
  2691. move.w d0,(L007550)
  2692. move.b #$01,(L007a1a)
  2693. bra.s L001edc
  2694. L001f42:
  2695. move.b (a1),d0
  2696. subq.b #1,d0
  2697. bmi.s L001eea
  2698. move.b d0,($0028,a5)
  2699. move.l d3,(a3)
  2700. bra.s L001eea
  2701. L001f50:
  2702. move.l d3,($0008,a3)
  2703. move.b (a1)+,($002a,a5)
  2704. addq.l #1,a1
  2705. bra.s L001edc
  2706. L001f5c:
  2707. move.b (a1)+,($0029,a5)
  2708. addq.l #1,a1
  2709. bra.w L001edc
  2710. L001f66:
  2711. move.l d3,($0004,a3)
  2712. move.b (a1)+,($002c,a5)
  2713. subq.b #1,($002c,a5)
  2714. addq.l #1,a1
  2715. bra.w L001edc
  2716. L001f78:
  2717. move.b (a1)+,d0
  2718. move.b (a1)+,d2
  2719. cmpi.b #$07,d0
  2720. bne.s L001f8e
  2721. move.l d3,($0008,a3)
  2722. move.b d2,($002a,a5)
  2723. bra.w L001edc
  2724. L001f8e:
  2725. cmpi.b #$0a,d0
  2726. bne.w L001edc
  2727. move.l d3,($000c,a3)
  2728. move.b d2,($002b,a5)
  2729. bra.w L001edc
  2730. L001fa2:
  2731. move.b (a1)+,d0
  2732. move.b (a1)+,d2
  2733. tst.b d0
  2734. bne.s L001fc4
  2735. move.b d2,($0012,a5)
  2736. move.l a1,($000a,a5)
  2737. clr.b ($0040,a5)
  2738. clr.b ($0042,a5)
  2739. move.b #$01,($0044,a5)
  2740. bra.w L001edc
  2741. L001fc4:
  2742. cmpi.b #$04,d0
  2743. bne.w L001edc
  2744. move.b #$01,($0020,a5)
  2745. move.l a1,($0022,a5)
  2746. bra.w L001edc
  2747. L001fda:
  2748. subq.w #1,d1
  2749. beq.s L001ff4
  2750. bra.w L001eea
  2751. L001fe2:
  2752. moveq.l #$00,d0
  2753. move.b (a1)+,d0
  2754. swap.w d0
  2755. move.b (a1)+,d0
  2756. jsr (L004a4e)
  2757. bra.w L001edc
  2758. L001ff4:
  2759. subq.l #1,a1
  2760. movem.l (sp)+,d0-d3
  2761. rts
  2762. L001ffc:
  2763. movem.l d0-d5/a3/a5,-(sp)
  2764. moveq.l #$00,d0
  2765. L002002:
  2766. lea.l (L00e5f4),a3
  2767. lea.l (L00c616),a5
  2768. moveq.l #$18,d1
  2769. moveq.l #$ff,d2
  2770. moveq.l #$ff,d3
  2771. moveq.l #$ff,d4
  2772. moveq.l #$ff,d5
  2773. L002018:
  2774. cmp.b ($0028,a5),d0
  2775. bne.s L002078
  2776. cmp.l (a3),d5
  2777. bgt.s L002024
  2778. move.l (a3),d5
  2779. L002024:
  2780. cmp.l ($0004,a3),d2
  2781. bgt.s L002040
  2782. move.l ($0004,a3),d2
  2783. cmp.l d2,d5
  2784. bgt.s L002040
  2785. move.b d0,-(sp)
  2786. move.b ($002c,a5),-(sp)
  2787. jsr (L00509e)
  2788. addq.l #4,sp
  2789. L002040:
  2790. cmp.l ($0008,a3),d3
  2791. bgt.s L00205c
  2792. move.l ($0008,a3),d3
  2793. cmp.l d3,d5
  2794. bgt.s L00205c
  2795. move.b d0,-(sp)
  2796. move.b ($002a,a5),-(sp)
  2797. jsr (L004fd8)
  2798. addq.l #4,sp
  2799. L00205c:
  2800. cmp.l ($000c,a3),d4
  2801. bgt.s L002078
  2802. move.l ($000c,a3),d4
  2803. cmp.l d4,d5
  2804. bgt.s L002078
  2805. move.b d0,-(sp)
  2806. move.b ($002b,a5),-(sp)
  2807. jsr (L005022)
  2808. addq.l #4,sp
  2809. L002078:
  2810. lea.l ($0054,a5),a5
  2811. lea.l ($0010,a3),a3
  2812. dbra.w d1,L002018
  2813. addq.w #1,d0
  2814. cmpi.w #$0018,d0
  2815. bne.w L002002
  2816. movem.l (sp)+,d0-d5/a3/a5
  2817. rts
  2818. L002094:
  2819. tst.w d2
  2820. bpl.s L0020a2
  2821. moveq.l #$00,d0
  2822. move.b (L007a37),d0
  2823. rts
  2824. L0020a2:
  2825. andi.b #$7f,d2
  2826. move.b d2,(L007a37)
  2827. bra.w L002f9c
  2828. L0020b0:
  2829. nop
  2830. nop
  2831. nop
  2832. nop
  2833. nop
  2834. nop
  2835. nop
  2836. nop
  2837. nop
  2838. nop
  2839. nop
  2840. nop
  2841. nop
  2842. nop
  2843. nop
  2844. nop
  2845. nop
  2846. nop
  2847. nop
  2848. nop
  2849. rts
  2850. L0020da:
  2851. bsr.w L002f6a
  2852. subq.w #1,d2
  2853. bmi.w L002f98
  2854. cmp.l #$00000050,d2
  2855. bcc.w L002f98
  2856. lea.l (L00c396),a0
  2857. lsl.l #2,d2
  2858. move.l (a0,d2.w),d0
  2859. rts
  2860. L0020fc:
  2861. bsr.w L002f6a
  2862. movem.l d0-d2/a0-a5,-(sp)
  2863. tst.w (L007a30)
  2864. beq.s L002110
  2865. bsr.w L001cb6
  2866. L002110:
  2867. lea.l (L00c4d6),a0
  2868. moveq.l #$4f,d0 ;'O'
  2869. L002118:
  2870. move.l #$00000004,(a0)+
  2871. dbra.w d0,L002118
  2872. bsr.w L003ec0
  2873. tst.l d0
  2874. bmi.s L002144
  2875. bsr.w L003f10
  2876. bsr.w L00161a
  2877. moveq.l #$ff,d2
  2878. bsr.w L001916
  2879. bsr.w L003f4a
  2880. bsr.w L003f6e
  2881. bsr.w L003ed6
  2882. L002144:
  2883. movem.l (sp)+,d0-d2/a0-a5
  2884. bra.w L002f9c
  2885. L00214c:
  2886. tst.l (L007a28)
  2887. bmi.s L00215c
  2888. bsr.w L001cb6
  2889. bsr.w L0027a0
  2890. L00215c:
  2891. rts
  2892. L00215e:
  2893. tst.w d2
  2894. beq.w L002f9c
  2895. bmi.s L00217c
  2896. subq.w #1,d2
  2897. cmpi.w #$0050,d2 ;'P'
  2898. bcc.w L002f98
  2899. move.w d2,d0
  2900. bsr.w L003f8c
  2901. move.l ($000a,a1),d0
  2902. rts
  2903. L00217c:
  2904. moveq.l #$4f,d0 ;'O'
  2905. moveq.l #$00,d1
  2906. L002180:
  2907. bsr.w L003f8c
  2908. add.l ($000a,a1),d1
  2909. dbra.w d0,L002180
  2910. move.l d1,d0
  2911. rts
  2912. L002190:
  2913. move.l d2,d0
  2914. bmi.s L0021c6
  2915. swap.w d0
  2916. subq.w #1,d0
  2917. bmi.s L0021c6
  2918. cmpi.w #$0018,d0
  2919. bgt.w L002f90
  2920. subq.w #1,d2
  2921. bmi.s L0021b4
  2922. cmpi.w #$0018,d2
  2923. bgt.w L002f90
  2924. bsr.s L0021da
  2925. bra.w L002f9c
  2926. L0021b4:
  2927. bsr.w L003fcc
  2928. moveq.l #$00,d0
  2929. move.b ($0028,a5),d0
  2930. bsr.w L0015d8
  2931. addq.w #1,d0
  2932. rts
  2933. L0021c6:
  2934. tst.w (L007a30)
  2935. beq.s L0021d2
  2936. bsr.w L001cb6
  2937. L0021d2:
  2938. bsr.w L00161a
  2939. bra.w L002f9c
  2940. L0021da:
  2941. movem.l d0-d1/a5,-(sp)
  2942. lea.l (L00c616),a5
  2943. mulu.w #$0054,d0
  2944. adda.w d0,a5
  2945. move.w d2,d0
  2946. bsr.w L0015c8
  2947. cmp.b ($0028,a5),d0
  2948. beq.s L002236
  2949. tst.w (L007a30)
  2950. beq.s L00220a
  2951. move.b #-$01,(L007a14)
  2952. bsr.w L003eb6
  2953. L00220a:
  2954. bsr.w L00431a
  2955. bsr.w L00406a
  2956. move.b d0,($0028,a5)
  2957. move.b d0,-(sp)
  2958. move.b ($002c,a5),-(sp)
  2959. bsr.w L00509e
  2960. addq.l #2,sp
  2961. move.b ($002a,a5),-(sp)
  2962. bsr.w L004fd8
  2963. addq.l #2,sp
  2964. move.b ($002b,a5),-(sp)
  2965. bsr.w L005022
  2966. addq.l #4,sp
  2967. L002236:
  2968. movem.l (sp)+,d0-d1/a5
  2969. rts
  2970. L00223c:
  2971. move.l d2,d0
  2972. lea.l (L00ce7c),a1
  2973. adda.l #$00000032,a1
  2974. swap.w d0
  2975. subq.w #1,d0
  2976. bmi.s L00227c
  2977. cmpi.w #$0018,d0
  2978. bgt.w L002f90
  2979. subq.w #1,d2
  2980. bmi.s L00226e
  2981. cmpi.w #$00c7,d2
  2982. bgt.w L002f7c
  2983. bsr.w L003fcc
  2984. bsr.s L00229a
  2985. bra.w L002f9c
  2986. L00226e:
  2987. bsr.w L003fcc
  2988. moveq.l #$00,d0
  2989. move.b ($002c,a5),d0
  2990. addq.w #1,d0
  2991. rts
  2992. L00227c:
  2993. subq.w #1,d2
  2994. bmi.w L002f7c
  2995. cmpi.w #$00c7,d2
  2996. bgt.w L002f7c
  2997. moveq.l #$17,d0
  2998. L00228c:
  2999. bsr.w L003fcc
  3000. bsr.s L00229a
  3001. dbra.w d0,L00228c
  3002. bra.w L002f9c
  3003. L00229a:
  3004. moveq.l #$00,d1
  3005. move.b ($0028,a5),d1
  3006. move.b d2,($002c,a5)
  3007. move.b d2,(a1,d1.w)
  3008. move.b d1,-(sp)
  3009. move.b d2,-(sp)
  3010. bsr.w L00509e
  3011. addq.l #4,sp
  3012. rts
  3013. L0022b4:
  3014. move.l d2,d0
  3015. lea.l (L00ce7c),a1
  3016. swap.w d0
  3017. subq.w #1,d0
  3018. bmi.s L0022ee
  3019. cmpi.w #$0018,d0
  3020. bgt.w L002f90
  3021. cmpi.w #$0000,d2
  3022. blt.s L0022e2
  3023. cmpi.w #$007f,d2
  3024. bgt.w L002f7c
  3025. bsr.w L003fcc
  3026. bsr.s L00230c
  3027. bra.w L002f9c
  3028. L0022e2:
  3029. bsr.w L003fcc
  3030. moveq.l #$00,d0
  3031. move.b ($002a,a5),d0
  3032. rts
  3033. L0022ee:
  3034. tst.w d2
  3035. bmi.w L002f7c
  3036. cmpi.w #$007f,d2
  3037. bgt.w L002f7c
  3038. moveq.l #$17,d0
  3039. L0022fe:
  3040. bsr.w L003fcc
  3041. bsr.s L00230c
  3042. dbra.w d0,L0022fe
  3043. bra.w L002f9c
  3044. L00230c:
  3045. moveq.l #$00,d1
  3046. move.b ($0028,a5),d1
  3047. move.b d2,($002a,a5)
  3048. move.b d2,(a1,d1.w)
  3049. move.b d1,-(sp)
  3050. move.b d2,-(sp)
  3051. bsr.w L004fd8
  3052. addq.l #4,sp
  3053. rts
  3054. L002326:
  3055. move.l d2,d0
  3056. lea.l (L00ce7c),a1
  3057. adda.l #$00000019,a1
  3058. swap.w d0
  3059. subq.w #1,d0
  3060. bmi.s L002366
  3061. cmpi.w #$0018,d0
  3062. bgt.w L002f90
  3063. cmpi.w #$0000,d2
  3064. blt.s L00235a
  3065. cmpi.w #$007f,d2
  3066. bgt.w L002f7c
  3067. bsr.w L003fcc
  3068. bsr.s L002384
  3069. bra.w L002f9c
  3070. L00235a:
  3071. bsr.w L003fcc
  3072. moveq.l #$00,d0
  3073. move.b ($002b,a5),d0
  3074. rts
  3075. L002366:
  3076. tst.w d2
  3077. bmi.w L002f7c
  3078. cmpi.w #$007f,d2
  3079. bgt.w L002f7c
  3080. moveq.l #$17,d0
  3081. L002376:
  3082. bsr.w L003fcc
  3083. bsr.s L002384
  3084. dbra.w d0,L002376
  3085. bra.w L002f9c
  3086. L002384:
  3087. moveq.l #$00,d1
  3088. move.b ($0028,a5),d1
  3089. move.b d2,($002b,a5)
  3090. move.b d2,(a1,d1.w)
  3091. move.b d1,-(sp)
  3092. move.b d2,-(sp)
  3093. bsr.w L005022
  3094. addq.l #4,sp
  3095. rts
  3096. L00239e:
  3097. move.l d2,d0
  3098. cmpi.w #$007f,d2
  3099. blt.s L0023ac
  3100. move.w #$7f7f,d2
  3101. bra.s L0023be
  3102. L0023ac:
  3103. lsl.w #7,d2
  3104. ror.w #7,d2
  3105. move.w d2,d1
  3106. ror.w #1,d1
  3107. andi.w #$7f00,d1
  3108. andi.w #$007f,d2
  3109. or.w d1,d2
  3110. L0023be:
  3111. swap.w d0
  3112. subq.w #1,d0
  3113. bmi.s L0023d6
  3114. cmpi.w #$0018,d0
  3115. bgt.w L002f90
  3116. bsr.w L003fcc
  3117. bsr.s L0023e6
  3118. bra.w L002f9c
  3119. L0023d6:
  3120. moveq.l #$18,d0
  3121. L0023d8:
  3122. bsr.w L003fcc
  3123. bsr.s L0023e6
  3124. dbra.w d0,L0023d8
  3125. bra.w L002f9c
  3126. L0023e6:
  3127. move.b ($0028,a5),-(sp)
  3128. move.w d2,-(sp)
  3129. bsr.w L005116
  3130. move.w d2,($0030,a5)
  3131. addq.l #4,sp
  3132. rts
  3133. L0023f8:
  3134. move.l d2,d0
  3135. swap.w d0
  3136. subq.w #1,d0
  3137. bmi.s L002412
  3138. cmpi.w #$0018,d0
  3139. bgt.w L002f90
  3140. bsr.w L003fcc
  3141. bsr.s L002422
  3142. bra.w L002f9c
  3143. L002412:
  3144. moveq.l #$18,d0
  3145. L002414:
  3146. bsr.w L003fcc
  3147. bsr.s L002422
  3148. dbra.w d0,L002414
  3149. bra.w L002f9c
  3150. L002422:
  3151. move.b ($0028,a5),-(sp)
  3152. move.b d2,-(sp)
  3153. bsr.w L00515a
  3154. addq.l #4,sp
  3155. rts
  3156. L002430:
  3157. move.l d2,d0
  3158. swap.w d0
  3159. subq.w #1,d0
  3160. bmi.s L002466
  3161. cmpi.w #$0018,d0
  3162. bgt.w L002f90
  3163. cmpi.w #$0000,d2
  3164. blt.s L00245a
  3165. cmpi.w #$007f,d2
  3166. bgt.w L002f7c
  3167. bsr.w L003fcc
  3168. move.b d2,($0029,a5)
  3169. bra.w L002f9c
  3170. L00245a:
  3171. bsr.w L003fcc
  3172. moveq.l #$00,d0
  3173. move.b ($0029,a5),d0
  3174. rts
  3175. L002466:
  3176. tst.w d2
  3177. bmi.w L002f7c
  3178. cmpi.w #$007f,d2
  3179. bgt.w L002f7c
  3180. moveq.l #$17,d0
  3181. L002476:
  3182. bsr.w L003fcc
  3183. move.b d2,($0029,a5)
  3184. dbra.w d0,L002476
  3185. bra.w L002f9c
  3186. L002486:
  3187. move.l d2,d0
  3188. swap.w d0
  3189. subq.w #1,d0
  3190. bmi.s L0024c2
  3191. cmpi.w #$0018,d0
  3192. bgt.w L002f90
  3193. cmpi.w #$0000,d2
  3194. blt.s L0024b2
  3195. cmpi.w #$0030,d2 ;'0'
  3196. bgt.w L002f7c
  3197. subi.b #$18,d2
  3198. bsr.w L003fcc
  3199. bsr.s L0024e4
  3200. bra.w L002f9c
  3201. L0024b2:
  3202. bsr.w L003fcc
  3203. moveq.l #$00,d0
  3204. move.b ($002d,a5),d0
  3205. addi.b #$18,d0
  3206. rts
  3207. L0024c2:
  3208. tst.w d2
  3209. bmi.w L002f7c
  3210. cmpi.w #$0030,d2 ;'0'
  3211. bgt.w L002f7c
  3212. subi.b #$18,d2
  3213. moveq.l #$17,d0
  3214. L0024d6:
  3215. bsr.w L003fcc
  3216. bsr.s L0024e4
  3217. dbra.w d0,L0024d6
  3218. bra.w L002f9c
  3219. L0024e4:
  3220. cmp.b ($002d,a5),d2
  3221. beq.s L002514
  3222. move.b d2,d1
  3223. sub.b ($002d,a5),d1
  3224. tst.w (L007a30)
  3225. beq.s L002504
  3226. move.b #-$01,(L007a14)
  3227. bsr.w L003eb6
  3228. L002504:
  3229. bsr.w L00431a
  3230. move.b d2,($002d,a5)
  3231. add.b d1,($003b,a5)
  3232. add.b d1,($003d,a5)
  3233. L002514:
  3234. rts
  3235. L002516:
  3236. move.l d2,d0
  3237. swap.w d0
  3238. bsr.w L0015b8
  3239. tst.w d2
  3240. bmi.s L00253c
  3241. move.w d2,d1
  3242. lsr.w #8,d1
  3243. subq.w #1,d0
  3244. bmi.s L002540
  3245. cmpi.w #$0018,d0
  3246. bgt.w L002f90
  3247. bsr.w L003fcc
  3248. move.b ($0028,a5),d0
  3249. bsr.s L00254c
  3250. L00253c:
  3251. bra.w L002f9c
  3252. L002540:
  3253. moveq.l #$17,d0
  3254. L002542:
  3255. bsr.s L00254c
  3256. dbra.w d0,L002542
  3257. bra.w L002f9c
  3258. L00254c:
  3259. move.l d0,-(sp)
  3260. tst.w (L007a30)
  3261. beq.s L002562
  3262. move.b #-$01,(L007a14)
  3263. bsr.w L003eb6
  3264. L002562:
  3265. cmpi.b #$10,d0
  3266. bcs.s L002574
  3267. subi.b #$10,d0
  3268. bsr.w L005f36
  3269. move.b d2,d0
  3270. bra.s L002588
  3271. L002574:
  3272. add.b #$b0,d0
  3273. bsr.w L00519e
  3274. move.b d1,d0
  3275. bsr.w L00519e
  3276. move.b d2,d0
  3277. bsr.w L00519e
  3278. L002588:
  3279. move.l (sp)+,d0
  3280. rts
  3281. L00258c:
  3282. tst.w (L007a30)
  3283. beq.s L0025a0
  3284. move.b #-$01,(L007a14)
  3285. bsr.w L003eb6
  3286. L0025a0:
  3287. move.w d2,d0
  3288. beq.w L002f9c
  3289. bmi.s L0025b4
  3290. cmpi.w #$001a,d2
  3291. bcc.w L002f90
  3292. bsr.w L0015f8
  3293. L0025b4:
  3294. move.w d0,-(sp)
  3295. bsr.w L004efa
  3296. bsr.w L004f7a
  3297. bsr.w L004f0c
  3298. bsr.w L004f1e
  3299. addq.l #2,sp
  3300. bra.w L002f9c
  3301. L0025cc:
  3302. tst.w (L007a30)
  3303. beq.s L0025e0
  3304. move.b #-$01,(L007a14)
  3305. bsr.w L003eb6
  3306. L0025e0:
  3307. move.w d2,d0
  3308. beq.w L002f9c
  3309. bmi.s L0025f4
  3310. cmpi.w #$001a,d2
  3311. bcc.w L002f90
  3312. bsr.w L0015f8
  3313. L0025f4:
  3314. move.w d0,-(sp)
  3315. bsr.w L004f1e
  3316. addq.l #2,sp
  3317. bra.w L002f9c
  3318. L002600:
  3319. tst.w (L007a30)
  3320. beq.s L002614
  3321. move.b #-$01,(L007a14)
  3322. bsr.w L003eb6
  3323. L002614:
  3324. move.w d2,d0
  3325. beq.w L002f9c
  3326. bmi.s L002628
  3327. cmpi.w #$001a,d2
  3328. bcc.w L002f90
  3329. bsr.w L0015f8
  3330. L002628:
  3331. move.w d0,-(sp)
  3332. bsr.w L004efa
  3333. addq.l #2,sp
  3334. bra.w L002f9c
  3335. L002634:
  3336. tst.l d2
  3337. beq.s L002658
  3338. clr.w d0
  3339. tst.w (L007a30)
  3340. beq.s L00264e
  3341. move.b #-$01,(L007a14)
  3342. bsr.w L003eb6
  3343. L00264e:
  3344. move.b (a1)+,d0
  3345. bsr.w L00519e
  3346. subq.l #1,d2
  3347. bne.s L00264e
  3348. L002658:
  3349. bra.w L002f9c
  3350. L00265c:
  3351. moveq.l #$00,d0
  3352. tst.l d2
  3353. bmi.s L0026bc
  3354. bne.s L002666
  3355. moveq.l #$ff,d2
  3356. L002666:
  3357. bsr.w L003fac
  3358. bsr.w L003fcc
  3359. btst.l d0,d2
  3360. beq.s L00268a
  3361. tst.b ($003f,a5)
  3362. bne.s L0026b0
  3363. cmpi.l #$00000004,($000a,a1)
  3364. ble.s L0026b0
  3365. move.b #$01,($003f,a5)
  3366. bra.s L0026b0
  3367. L00268a:
  3368. tst.b ($003f,a5)
  3369. beq.s L0026b0
  3370. bsr.w L00406a
  3371. tst.w (L007a30)
  3372. beq.s L0026a8
  3373. move.b #-$01,(L007a14)
  3374. bsr.w L003eb6
  3375. L0026a8:
  3376. bsr.w L00431a
  3377. clr.b ($003f,a5)
  3378. L0026b0:
  3379. addq.l #1,d0
  3380. cmpi.w #$0019,d0
  3381. bne.s L002666
  3382. bra.w L002f9c
  3383. L0026bc:
  3384. moveq.l #$00,d0
  3385. moveq.l #$00,d2
  3386. L0026c0:
  3387. bsr.w L003fcc
  3388. tst.b ($003f,a5)
  3389. beq.s L0026cc
  3390. bset.l d0,d2
  3391. L0026cc:
  3392. addq.w #1,d0
  3393. cmpi.w #$0019,d0
  3394. bne.s L0026c0
  3395. move.l d2,d0
  3396. rts
  3397. L0026d8:
  3398. swap.w d2
  3399. move.w d2,d0
  3400. beq.w L002f90
  3401. cmpi.w #$001a,d0
  3402. bcc.w L002f90
  3403. swap.w d2
  3404. move.b d2,d1
  3405. ror.w #8,d2
  3406. tst.b d1
  3407. bmi.w L002f88
  3408. tst.b d2
  3409. bmi.w L002f7c
  3410. bsr.w L0015f8
  3411. subq.w #1,d0
  3412. move.b d0,-(sp)
  3413. move.b d2,-(sp)
  3414. move.b d1,-(sp)
  3415. bsr.w L004e0c
  3416. addq.l #6,sp
  3417. bra.w L002f9c
  3418. L002710:
  3419. swap.w d2
  3420. move.w d2,d0
  3421. beq.w L002f90
  3422. cmpi.w #$001a,d0
  3423. bcc.w L002f90
  3424. swap.w d2
  3425. move.b d2,d1
  3426. ror.w #8,d2
  3427. tst.b d1
  3428. bmi.w L002f88
  3429. tst.b d2
  3430. bmi.w L002f7c
  3431. bsr.w L0015f8
  3432. subq.w #1,d0
  3433. move.b d0,-(sp)
  3434. move.b d2,-(sp)
  3435. move.b d1,-(sp)
  3436. bsr.w L004e88
  3437. addq.l #6,sp
  3438. bra.w L002f9c
  3439. L002748:
  3440. movem.l d0/a1,-(sp)
  3441. bsr.w L004002
  3442. move.w #$0078,d0 ;'x'
  3443. move.w d0,(L007550)
  3444. bsr.w L004d84
  3445. tst.b (L0074c8)
  3446. bne.s L00278a
  3447. move.w (L007566),d0
  3448. bsr.w L005248
  3449. move.b #$00,($00eafa03)
  3450. move.b #$86,($00eafa0d)
  3451. move.b #$b0,(L007555)
  3452. bra.s L002794
  3453. L00278a:
  3454. moveq.l #$6a,d0 ;'j'
  3455. lea.l (L00576c),a1
  3456. trap #15
  3457. L002794:
  3458. clr.l (L007a28)
  3459. movem.l (sp)+,d0/a1
  3460. rts
  3461. L0027a0:
  3462. movem.l d0/a1,-(sp)
  3463. move.b #$b0,(L007555)
  3464. bsr.w L004b8c
  3465. tst.b (L0074c8)
  3466. bne.s L0027ca
  3467. move.b #$00,($00eafa03)
  3468. move.b #$00,($00eafa0d)
  3469. bra.s L0027d4
  3470. L0027ca:
  3471. moveq.l #$6a,d0 ;'j'
  3472. movea.l #$00000000,a1
  3473. trap #15
  3474. L0027d4:
  3475. move.l #$ffffffff,(L007a28)
  3476. movem.l (sp)+,d0/a1
  3477. rts
  3478. L0027e4:
  3479. movem.l d1/a0-a1,-(sp)
  3480. tst.w d2
  3481. beq.s L00281c
  3482. bmi.s L002824
  3483. lea.l (L002862),a0
  3484. move.l a1,d1
  3485. ble.s L00281a
  3486. tst.w (L007a30)
  3487. beq.s L002804
  3488. bsr.w L001cb6
  3489. L002804:
  3490. move.l a1,($0006,a0)
  3491. move.w d2,($0004,a0)
  3492. clr.w ($0002,a0)
  3493. move.b #$01,(a0)
  3494. clr.b ($0001,a0)
  3495. bra.s L00281c
  3496. L00281a:
  3497. clr.l (a0)
  3498. L00281c:
  3499. movem.l (sp)+,d1/a0-a1
  3500. bra.w L002f9c
  3501. L002824:
  3502. move.l #L002864,d0
  3503. addq.l #2,d0
  3504. movem.l (sp)+,d1/a0-a1
  3505. rts
  3506. L002832:
  3507. movem.l d0/a0,-(sp)
  3508. lea.l (L002862),a0
  3509. tst.b ($0001,a0)
  3510. beq.s L00285c
  3511. move.w ($0002,a0),d0
  3512. subq.w #1,d0
  3513. ble.s L002850
  3514. move.w d0,($0002,a0)
  3515. bra.s L00285c
  3516. L002850:
  3517. move.w ($0004,a0),($0002,a0)
  3518. movea.l ($0006,a0),a0
  3519. jsr (a0)
  3520. L00285c:
  3521. movem.l (sp)+,d0/a0
  3522. rts
  3523. L002862:
  3524. .dc.b $00
  3525. L002863:
  3526. .dc.b $00
  3527. L002864:
  3528. .dc.w $0000,$0000,$0000,$0000
  3529. L00286c:
  3530. tst.w d2
  3531. bne.s L00287c
  3532. bsr.s L002898
  3533. jsr (L004d0a)
  3534. bra.w L002f9c
  3535. L00287c:
  3536. subq.w #1,d2
  3537. bne.s L00288c
  3538. bsr.s L002898
  3539. jsr (L004d32)
  3540. bra.w L002f9c
  3541. L00288c:
  3542. bsr.s L002898
  3543. jsr (L004d72)
  3544. bra.w L002f9c
  3545. L002898:
  3546. tst.w (L007a30)
  3547. beq.s L0028a4
  3548. bsr.w L001cb6
  3549. L0028a4:
  3550. bra.w L002f9c
  3551. L0028a8:
  3552. move.l d2,d0
  3553. cmp.w #$0010,d2
  3554. bgt.s L0028da
  3555. cmp.w #$0001,d2
  3556. blt.s L0028da
  3557. swap.w d2
  3558. cmp.w #$0010,d2
  3559. bgt.s L0028da
  3560. cmp.w #$0001,d2
  3561. blt.s L0028da
  3562. tst.w (L007a30)
  3563. beq.s L0028de
  3564. move.l d0,(L0028ea)
  3565. move.w #$0001,(L0028e8)
  3566. L0028da:
  3567. bra.w L002f9c
  3568. L0028de:
  3569. jsr (L004a4e)
  3570. bra.w L002f9c
  3571. L0028e8:
  3572. .dc.w $0000
  3573. L0028ea:
  3574. .dc.b $00
  3575. L0028eb:
  3576. .dc.b $04,$00
  3577. L0028ed:
  3578. .dc.b $04
  3579. L0028ee:
  3580. tst.l d2
  3581. beq.s L00291e
  3582. cmpi.l #$ffffffff,d2
  3583. beq.s L00291e
  3584. cmpi.l #$00000001,d2
  3585. beq.s L002928
  3586. move.l d2,d0
  3587. swap.w d0
  3588. tst.w d0
  3589. bmi.s L002910
  3590. move.w d0,(L0049ca)
  3591. L002910:
  3592. tst.w d2
  3593. bmi.s L00291a
  3594. move.w d2,(L0049cc)
  3595. L00291a:
  3596. bra.w L002f9c
  3597. L00291e:
  3598. jsr (L004ac0)
  3599. bra.w L002f9c
  3600. L002928:
  3601. jsr (L004aae)
  3602. bra.w L002f9c
  3603. L002932:
  3604. bsr.w L002f6a
  3605. clr.w (L007850)
  3606. tst.w d2
  3607. bne.s L00294e
  3608. bsr.w L004c66
  3609. clr.w (L007852)
  3610. bra.w L002f9c
  3611. L00294e:
  3612. bsr.w L004c08
  3613. move.b #$01,(L007852)
  3614. bra.w L002f9c
  3615. L00295e:
  3616. bsr.w L002f6a
  3617. move.l a1,d0
  3618. bmi.w L002f8c
  3619. tst.l d2
  3620. bmi.w L002f8c
  3621. clr.w (L007850)
  3622. clr.w (L007854)
  3623. clr.b (L007853)
  3624. clr.w (L00783a)
  3625. clr.w (L005ad4)
  3626. clr.l (L007844)
  3627. move.w (L00d9f0),(L00d9f2)
  3628. move.w (L00d9f0),(L000414)
  3629. move.l a1,(L00783c)
  3630. move.l a1,(L007848)
  3631. move.l a1,(L00784c)
  3632. move.l d2,(L007840)
  3633. tst.w d3
  3634. ble.s L0029c8
  3635. move.w d3,(L00783a)
  3636. L0029c8:
  3637. move.b #$01,(L007853)
  3638. bra.w L002f9c
  3639. L0029d4:
  3640. bsr.w L002f6a
  3641. cmpi.w #$0101,(L007852)
  3642. bne.w L002f80
  3643. clr.w (L007850)
  3644. clr.w (L005ad4)
  3645. clr.l (L007844)
  3646. move.w (L00d9f0),(L00d9f2)
  3647. move.w (L00d9f0),(L000414)
  3648. move.l (L00783c),d0
  3649. move.l d0,(L007848)
  3650. move.l d0,(L00784c)
  3651. subq.w #1,d2
  3652. bmi.s L002a2a
  3653. move.w d2,(L007854)
  3654. bra.w L002f9c
  3655. L002a2a:
  3656. clr.w (L007854)
  3657. move.w #$0001,(L007850)
  3658. cmpi.w #$0002,(L00783a)
  3659. bne.w L002f9c
  3660. bsr.w L001b60
  3661. bra.w L002f9c
  3662. L002a4c:
  3663. bsr.w L002f6a
  3664. clr.w (L007850)
  3665. bsr.w L0059de
  3666. move.l (L007844),d0
  3667. cmpi.w #$0002,(L00783a)
  3668. bne.s L002a72
  3669. move.l d0,-(sp)
  3670. bsr.w L001cb6
  3671. move.l (sp)+,d0
  3672. L002a72:
  3673. rts
  3674. L002a74:
  3675. bsr.w L002f6a
  3676. move.l (L007844),d0
  3677. rts
  3678. L002a80:
  3679. bsr.w L002f6a
  3680. tst.b d2
  3681. bne.s L002a90
  3682. bsr.w L005560
  3683. bra.w L002f9c
  3684. L002a90:
  3685. bsr.w L005548
  3686. bra.w L002f9c
  3687. L002a98:
  3688. bsr.w L0064f8
  3689. bra.w L002f9c
  3690. L002aa0:
  3691. tst.l d2
  3692. bpl.s L002aac
  3693. bsr.w L0068ac
  3694. bra.w L002f9c
  3695. L002aac:
  3696. bsr.w L00675a
  3697. rts
  3698. L002ab2:
  3699. movem.l d1-d3/a0-a1,-(sp)
  3700. lea.l (L00d5e0),a0
  3701. move.l d2,d3
  3702. swap.w d2
  3703. tst.w d2
  3704. bpl.s L002aca
  3705. move.w #$0000,d2
  3706. bra.s L002ad4
  3707. L002aca:
  3708. cmpi.w #$0081,d2
  3709. ble.s L002ad4
  3710. move.w #$0081,d2
  3711. L002ad4:
  3712. lsl.w #3,d2
  3713. adda.w d2,a0
  3714. tst.w d3
  3715. bpl.s L002ae0
  3716. move.w #$0403,d3
  3717. L002ae0:
  3718. moveq.l #$ff,d0
  3719. moveq.l #$00,d2
  3720. move.w (a0)+,d2
  3721. beq.s L002b18
  3722. addq.l #2,a0
  3723. movea.l (a0)+,a1
  3724. jsr (L006900)
  3725. tst.l d0
  3726. beq.s L002afe
  3727. moveq.l #$00,d1
  3728. jsr (L00690a)
  3729. L002afe:
  3730. move.b #$01,(L006bc3)
  3731. move.b #$01,(L006bc7)
  3732. move.w d3,d1
  3733. jsr (L00694c)
  3734. moveq.l #$00,d0
  3735. L002b18:
  3736. movem.l (sp)+,d1-d3/a0-a1
  3737. rts
  3738. L002b1e:
  3739. move.b #$01,(L006bc3)
  3740. move.b #$01,(L006bc7)
  3741. jsr (L00684a)
  3742. beq.s L002b42
  3743. clr.b (L006bc3)
  3744. clr.b (L006bc7)
  3745. L002b42:
  3746. rts
  3747. L002b44:
  3748. moveq.l #$00,d0
  3749. lea.l (L00d5e0),a2
  3750. andi.l #$000000ff,d2
  3751. lsl.l #3,d2
  3752. adda.l d2,a2
  3753. move.w (a2),d0
  3754. beq.s L002b72
  3755. move.l a1,d2
  3756. bmi.s L002b72
  3757. tst.l d3
  3758. beq.s L002b72
  3759. movea.l ($0004,a2),a2
  3760. move.l d0,d2
  3761. L002b68:
  3762. move.b (a2)+,(a1)+
  3763. subq.l #1,d2
  3764. beq.s L002b72
  3765. subq.l #1,d3
  3766. bne.s L002b68
  3767. L002b72:
  3768. rts
  3769. L002b74:
  3770. tst.w d2
  3771. bmi.s L002b8e
  3772. moveq.l #$00,d0
  3773. lea.l (L00d5e0),a2
  3774. andi.l #$0000007f,d2
  3775. lsl.l #3,d2
  3776. adda.l d2,a2
  3777. move.w (a2),d0
  3778. rts
  3779. L002b8e:
  3780. move.l (L007722),d0
  3781. rts
  3782. L002b96:
  3783. jsr (L006900)
  3784. rts
  3785. L002b9e:
  3786. tst.w d2
  3787. bpl.s L002bac
  3788. moveq.l #$00,d0
  3789. move.w (L007a3c),d0
  3790. rts
  3791. L002bac:
  3792. cmpi.w #$0006,d2
  3793. bcc.s L002c08
  3794. move.w d2,(L007a3c)
  3795. lea.l (L002c0c),a0
  3796. lsl.w #2,d2
  3797. adda.w d2,a0
  3798. moveq.l #$00,d2
  3799. moveq.l #$00,d3
  3800. moveq.l #$00,d4
  3801. move.b (a0)+,d2
  3802. move.b (a0)+,d3
  3803. move.b (a0)+,d4
  3804. lea.l (L00ce63),a0
  3805. moveq.l #$00,d0
  3806. L002bd6:
  3807. move.b d0,(a0,d2.w)
  3808. addq.w #1,d2
  3809. addq.w #1,d0
  3810. cmpi.w #$0010,d0
  3811. bne.s L002bd6
  3812. L002be4:
  3813. move.b d0,(a0,d3.w)
  3814. addq.w #1,d3
  3815. addq.w #1,d0
  3816. cmpi.w #$0018,d0
  3817. bne.s L002be4
  3818. move.b d0,(a0,d4.w)
  3819. bsr.w L00161a
  3820. clr.w -(sp)
  3821. jsr (L004efa)
  3822. addq.l #2,sp
  3823. bra.w L002f9c
  3824. L002c08:
  3825. moveq.l #$06,d0
  3826. rts
  3827. L002c0c:
  3828. .dc.w $0900,$0800,$0800,$1800,$0010,$1800,$0011,$1000
  3829. .dc.w $0901,$0000,$0111,$0000
  3830. L002c24:
  3831. moveq.l #$00,d0
  3832. tst.b (L0074c8)
  3833. beq.s L002c30
  3834. moveq.l #$ff,d0
  3835. L002c30:
  3836. rts
  3837. L002c32:
  3838. move.l #L00be96,d0
  3839. lsl.l #4,d2
  3840. add.l d2,d0
  3841. rts
  3842. L002c3e:
  3843. tst.w d2
  3844. bmi.s L002c56
  3845. subq.w #1,d2
  3846. bmi.s L002c56
  3847. lea.l (L00c616),a0
  3848. move.l a0,d0
  3849. mulu.w #$0054,d2
  3850. add.l d2,d0
  3851. rts
  3852. L002c56:
  3853. lea.l (Table2),a0
  3854. move.l a0,d0
  3855. rts
  3856. L002c60:
  3857. move.l (L007a20),d0
  3858. rts
  3859. L002c68:
  3860. move.b d2,d0
  3861. bsr.w L00519e
  3862. bra.w L002f9c
  3863. L002c72:
  3864. tst.b (L0074c8)
  3865. bne.s L002c9a
  3866. lea.l (L00d9f0),a0
  3867. move.w (a0)+,d2
  3868. move.w (a0)+,d1
  3869. cmp.w d1,d2
  3870. beq.s L002c9a
  3871. moveq.l #$00,d0
  3872. move.b (a0,d1.w),d0
  3873. addq.w #1,d1
  3874. andi.w #$03ff,d1
  3875. move.w d1,(-$0002,a0)
  3876. rts
  3877. L002c9a:
  3878. moveq.l #$ff,d0
  3879. rts
  3880. L002c9e:
  3881. moveq.l #$00,d0
  3882. move.w (L007a06),d0
  3883. rts
  3884. L002ca8:
  3885. moveq.l #$00,d0
  3886. tst.w d2
  3887. bmi.s L002cc2
  3888. bne.s L002cb8
  3889. clr.w (L007a10)
  3890. rts
  3891. L002cb8:
  3892. move.w #$0001,(L007a10)
  3893. rts
  3894. L002cc2:
  3895. move.w (L007a10),d0
  3896. rts
  3897. L002cca:
  3898. moveq.l #$00,d0
  3899. tst.w d2
  3900. bmi.s L002ce4
  3901. bne.s L002cda
  3902. clr.w (L007a34)
  3903. rts
  3904. L002cda:
  3905. move.w #$0001,(L007a34)
  3906. rts
  3907. L002ce4:
  3908. move.w (L007a34),d0
  3909. rts
  3910. L002cec:
  3911. moveq.l #$00,d0
  3912. tst.w d2
  3913. bmi.s L002d02
  3914. move.b d2,(L007a36)
  3915. moveq.l #$18,d1
  3916. jsr (L0064ae)
  3917. rts
  3918. L002d02:
  3919. move.b (L007a36),d0
  3920. rts
  3921. L002d0a:
  3922. moveq.l #$4d,d3 ;'M'
  3923. bra.s L002d14
  3924. L002d0e:
  3925. moveq.l #$4e,d3 ;'N'
  3926. bra.s L002d14
  3927. L002d12:
  3928. moveq.l #$4f,d3 ;'O'
  3929. L002d14:
  3930. move.l d2,d0
  3931. swap.w d0
  3932. subq.w #1,d0
  3933. bmi.s L002d40
  3934. tst.w d2
  3935. bmi.s L002d34
  3936. cmpi.w #$0001,d2
  3937. ble.s L002d28
  3938. moveq.l #$01,d2
  3939. L002d28:
  3940. bsr.w L003fcc
  3941. move.b d2,(a5,d3.w)
  3942. bra.w L002f9c
  3943. L002d34:
  3944. bsr.w L003fcc
  3945. moveq.l #$00,d0
  3946. move.b (a5,d3.w),d0
  3947. rts
  3948. L002d40:
  3949. tst.w d2
  3950. bmi.s L002d5e
  3951. cmpi.w #$0001,d2
  3952. ble.s L002d4c
  3953. moveq.l #$01,d2
  3954. L002d4c:
  3955. moveq.l #$18,d0
  3956. L002d4e:
  3957. bsr.w L003fcc
  3958. move.b d2,(a5,d3.w)
  3959. dbra.w d0,L002d4e
  3960. bra.w L002f9c
  3961. L002d5e:
  3962. moveq.l #$ff,d0
  3963. rts
  3964. L002d62:
  3965. move.w d2,d1
  3966. bmi.s L002da4
  3967. move.w d3,d2
  3968. bmi.s L002d88
  3969. tst.w (L007a30)
  3970. beq.s L002d7e
  3971. move.b #-$01,(L007a14)
  3972. bsr.w L003eb6
  3973. L002d7e:
  3974. jsr (L0064ae)
  3975. moveq.l #$00,d0
  3976. rts
  3977. L002d88:
  3978. movem.l a0,-(sp)
  3979. andi.w #$00ff,d1
  3980. lea.l (L00cee0),a0
  3981. add.w d1,d1
  3982. move.w (a0,d1.w),d0
  3983. ext.l d0
  3984. movem.l (sp)+,a0
  3985. rts
  3986. L002da4:
  3987. move.l #L00cee0,d0
  3988. rts
  3989. L002dac:
  3990. movem.l d1-d3/a0,-(sp)
  3991. tst.b (L0074c8)
  3992. bne.s L002dee
  3993. move.l d2,d1
  3994. swap.w d1
  3995. cmpi.w #$0009,d1
  3996. bgt.s L002dee
  3997. cmpi.w #$0007,d2
  3998. bgt.s L002dee
  3999. lea.l ($00eafa01),a0
  4000. tst.w d1
  4001. bne.s L002dde
  4002. cmpi.w #$0003,d2
  4003. bgt.s L002dee
  4004. move.b d3,(a0,d2.w)
  4005. bra.s L002de6
  4006. L002dde:
  4007. move.b d1,($0001,a0)
  4008. move.b d3,(a0,d2.w)
  4009. L002de6:
  4010. moveq.l #$00,d0
  4011. movem.l (sp)+,d1-d3/a0
  4012. rts
  4013. L002dee:
  4014. moveq.l #$ff,d0
  4015. movem.l (sp)+,d1-d3/a0
  4016. rts
  4017. L002df6:
  4018. movem.l d1-d2/a0-a1,-(sp)
  4019. lea.l (APianoStr2),a0
  4020. subq.w #1,d2
  4021. bmi.s L002e52
  4022. cmpi.w #$00c7,d2
  4023. bgt.s L002e52
  4024. bra.s L002e20
  4025. L002e0c:
  4026. movem.l d1-d2/a0-a1,-(sp)
  4027. lea.l (L00d0e0),a0
  4028. tst.w d2
  4029. bmi.s L002e52
  4030. cmpi.w #$007f,d2
  4031. bgt.s L002e52
  4032. L002e20:
  4033. mulu.w #$000a,d2
  4034. adda.l d2,a0
  4035. move.l #$20202020,(a0) ;' '
  4036. move.l #$20202020,($0004,a0) ;' '
  4037. move.w #$2020,($0008,a0) ;' '
  4038. moveq.l #$09,d1
  4039. L002e3c:
  4040. move.b (a1)+,d0
  4041. cmpi.b #$20,d0 ;' '
  4042. bcs.s L002e4a
  4043. move.b d0,(a0)+
  4044. dbra.w d1,L002e3c
  4045. L002e4a:
  4046. moveq.l #$00,d0
  4047. L002e4c:
  4048. movem.l (sp)+,d1-d2/a0-a1
  4049. rts
  4050. L002e52:
  4051. moveq.l #$12,d0
  4052. bra.s L002e4c
  4053. L002e56:
  4054. movem.l d1-d2/a0-a1,-(sp)
  4055. lea.l (APianoStr2),a0
  4056. subq.w #1,d2
  4057. bmi.s L002eb2
  4058. cmpi.w #$00c7,d2
  4059. bgt.s L002eb2
  4060. bra.s L002e80
  4061. L002e6c:
  4062. movem.l d1-d2/a0-a1,-(sp)
  4063. lea.l (L00d0e0),a0
  4064. tst.w d2
  4065. bmi.s L002eb2
  4066. cmpi.w #$007f,d2
  4067. bgt.s L002eb2
  4068. L002e80:
  4069. mulu.w #$000a,d2
  4070. adda.l d2,a0
  4071. move.l #$20202020,(a1) ;' '
  4072. move.l #$20202020,($0004,a1) ;' '
  4073. move.w #$2020,($0008,a1) ;' '
  4074. moveq.l #$09,d1
  4075. L002e9c:
  4076. move.b (a0)+,d0
  4077. cmpi.b #$20,d0 ;' '
  4078. bcs.s L002eaa
  4079. move.b d0,(a1)+
  4080. dbra.w d1,L002e9c
  4081. L002eaa:
  4082. moveq.l #$00,d0
  4083. L002eac:
  4084. movem.l (sp)+,d1-d2/a0-a1
  4085. rts
  4086. L002eb2:
  4087. moveq.l #$12,d0
  4088. bra.s L002eac
  4089. L002eb6:
  4090. movem.l d1-d4/a0-a1/a5,-(sp)
  4091. tst.w d2
  4092. bpl.s L002ece
  4093. moveq.l #$00,d0
  4094. moveq.l #$7f,d1
  4095. sub.b (L007a3a),d1
  4096. move.b d1,d0
  4097. bra.w L002f64
  4098. L002ece:
  4099. andi.b #$7f,d2
  4100. moveq.l #$7f,d1
  4101. sub.b d2,d1
  4102. move.b d1,(L007a3a)
  4103. lea.l (L00c616),a5
  4104. moveq.l #$00,d0
  4105. moveq.l #$00,d1
  4106. moveq.l #$00,d2
  4107. moveq.l #$00,d3
  4108. moveq.l #$18,d4
  4109. L002eec:
  4110. move.b ($0028,a5),d0
  4111. move.b ($002a,a5),d1
  4112. tst.b ($0014,a5)
  4113. beq.s L002f5a
  4114. btst.l d0,d3
  4115. bne.s L002f5a
  4116. bset.l d0,d3
  4117. sub.b (L007a3a),d1
  4118. bpl.s L002f0a
  4119. clr.b d1
  4120. L002f0a:
  4121. cmpi.b #$0f,d0
  4122. bgt.s L002f3c
  4123. tst.w (L007a30)
  4124. beq.s L002f24
  4125. move.b #-$01,(L007a14)
  4126. bsr.w L003eb6
  4127. L002f24:
  4128. addi.b #$b0,d0
  4129. bsr.w L00519e
  4130. move.b #$07,d0
  4131. bsr.w L00519e
  4132. move.b d1,d0
  4133. bsr.w L00519e
  4134. bra.s L002f5a
  4135. L002f3c:
  4136. subi.b #$10,d0
  4137. exg.l d0,d1
  4138. tst.w (L007a30)
  4139. beq.s L002f56
  4140. move.b #-$01,(L007a14)
  4141. bsr.w L003eb6
  4142. L002f56:
  4143. bsr.w L005f76
  4144. L002f5a:
  4145. lea.l ($0054,a5),a5
  4146. dbra.w d4,L002eec
  4147. moveq.l #$00,d0
  4148. L002f64:
  4149. movem.l (sp)+,d1-d4/a0-a1/a5
  4150. rts
  4151. L002f6a:
  4152. tst.l (L007a28)
  4153. bpl.s L002f76
  4154. moveq.l #$08,d0
  4155. addq.l #4,sp
  4156. L002f76:
  4157. rts
  4158. L002f78:
  4159. moveq.l #$27,d0 ;'''
  4160. rts
  4161. L002f7c:
  4162. moveq.l #$12,d0
  4163. rts
  4164. L002f80:
  4165. moveq.l #$0c,d0
  4166. rts
  4167. L002f84:
  4168. moveq.l #$0b,d0
  4169. rts
  4170. L002f88:
  4171. moveq.l #$0a,d0
  4172. rts
  4173. L002f8c:
  4174. moveq.l #$07,d0
  4175. rts
  4176. L002f90:
  4177. moveq.l #$06,d0
  4178. rts
  4179. L002f94:
  4180. moveq.l #$05,d0
  4181. rts
  4182. L002f98:
  4183. moveq.l #$02,d0
  4184. rts
  4185. L002f9c:
  4186. moveq.l #$00,d0
  4187. rts
  4188. L002fa0:
  4189. move.l #$00000013,(L007a24)
  4190. bra.w L0031ca
  4191. L002fae:
  4192. move.l #$00000014,(L007a24)
  4193. bra.w L0031ca
  4194. L002fbc:
  4195. move.l #$00000015,(L007a24)
  4196. bra.w L0031ca
  4197. L002fca:
  4198. move.l #$00000016,(L007a24)
  4199. bra.w L0031ca
  4200. L002fd8:
  4201. move.l #$00000017,(L007a24)
  4202. bra.w L0031ca
  4203. L002fe6:
  4204. move.l #$00000018,(L007a24)
  4205. bra.w L0031ca
  4206. L002ff4:
  4207. move.l #$00000019,(L007a24)
  4208. bra.w L0031ca
  4209. L003002:
  4210. move.l #$0000001a,(L007a24)
  4211. bra.w L0031ca
  4212. L003010:
  4213. move.l #$0000001b,(L007a24)
  4214. bra.w L0031ca
  4215. L00301e:
  4216. move.l #$0000001c,(L007a24)
  4217. bra.w L0031ca
  4218. L00302c:
  4219. move.l #$0000001d,(L007a24)
  4220. bra.w L0031ca
  4221. L00303a:
  4222. move.l #$0000001e,(L007a24)
  4223. bra.w L0031ca
  4224. L003048:
  4225. move.l #$0000001f,(L007a24)
  4226. bra.w L0031ca
  4227. L003056:
  4228. move.l #$00000020,(L007a24)
  4229. bra.w L0031ca
  4230. L003064:
  4231. move.l #$00000021,(L007a24)
  4232. bra.w L0031ca
  4233. L003072:
  4234. move.l #$00000022,(L007a24)
  4235. bra.w L0031ca
  4236. L003080:
  4237. move.l #$00000023,(L007a24)
  4238. bra.w L0031ca
  4239. L00308e:
  4240. move.l #$00000024,(L007a24)
  4241. bra.w L0031ca
  4242. L00309c:
  4243. move.l #$00000025,(L007a24)
  4244. bra.w L0031ca
  4245. L0030aa:
  4246. move.l #$00000026,(L007a24)
  4247. bra.w L0031ca
  4248. L0030b8:
  4249. move.l #$00000027,(L007a24)
  4250. bra.w L0031ca
  4251. L0030c6:
  4252. move.l #$00000029,(L007a24)
  4253. bra.w L0031ca
  4254. L0030d4:
  4255. move.l #$0000002a,(L007a24)
  4256. bra.w L0031ca
  4257. L0030e2:
  4258. move.l #$0000002b,(L007a24)
  4259. bra.w L0031ca
  4260. L0030f0:
  4261. move.l #$0000002c,(L007a24)
  4262. bra.w L0031ca
  4263. L0030fe:
  4264. move.l #$0000002d,(L007a24)
  4265. bra.w L0031ca
  4266. L00310c:
  4267. move.l #$0000002e,(L007a24)
  4268. bra.w L0031ca
  4269. L00311a:
  4270. move.l #$0000002f,(L007a24)
  4271. bra.w L0031ca
  4272. L003128:
  4273. move.l #$00000030,(L007a24)
  4274. bra.w L0031ca
  4275. L003136:
  4276. move.l #$00000031,(L007a24)
  4277. bra.w L0031ca
  4278. L003144:
  4279. move.l #$00000032,(L007a24)
  4280. bra.s L0031ca
  4281. L003150:
  4282. move.l #$00000033,(L007a24)
  4283. bra.s L0031ca
  4284. L00315c:
  4285. move.l #$00000034,(L007a24)
  4286. bra.s L0031ca
  4287. L003168:
  4288. move.l #$00000035,(L007a24)
  4289. bra.s L0031ca
  4290. L003174:
  4291. move.l #$00000036,(L007a24)
  4292. bra.s L0031ca
  4293. L003180:
  4294. move.l #$00000037,(L007a24)
  4295. bra.s L0031ca
  4296. L00318c:
  4297. move.l #$00000038,(L007a24)
  4298. bra.s L0031ca
  4299. L003198:
  4300. move.l #$00000039,(L007a24)
  4301. bra.s L0031ca
  4302. L0031a4:
  4303. move.l #$0000003a,(L007a24)
  4304. bra.s L0031ca
  4305. L0031b0:
  4306. move.l #$0000003b,(L007a24)
  4307. bra.s L0031ca
  4308. L0031bc:
  4309. move.l #$0000003c,(L007a24)
  4310. bra.w L0031ca
  4311. L0031ca:
  4312. movea.l (L0078be),sp
  4313. L0031d0:
  4314. unlk a6
  4315. rtr
  4316. L0031d4:
  4317. tst.l (L0078b6)
  4318. beq.s L0031d0
  4319. move.l #$00000028,(L007a24)
  4320. bra.s L0031ca
  4321. L0031e8:
  4322. move.w sr,-(sp)
  4323. link.w a6,#-$0014
  4324. move.l sp,(L0078be)
  4325. andi.l #$0000007f,d0
  4326. move.l d0,(L0078c2)
  4327. clr.l (L007a24)
  4328. clr.l (L0078b6)
  4329. clr.l (L0078ba)
  4330. bsr.w L003f8c
  4331. L003216:
  4332. bsr.w L0032e8
  4333. move.b (a0)+,d0
  4334. bmi.s L003226
  4335. beq.s L0031d4
  4336. cmpi.b #$2f,d0 ;'/'
  4337. bne.s L00322e
  4338. L003226:
  4339. bsr.w L0032fe
  4340. bcs.s L0031d4
  4341. bra.s L003216
  4342. L00322e:
  4343. bsr.w L003ea4
  4344. cmpi.b #$41,d0 ;'A'
  4345. bcs.s L003254
  4346. cmpi.b #$48,d0 ;'H'
  4347. bcc.s L003254
  4348. andi.w #$0007,d0
  4349. subq.w #1,d0
  4350. lea.l (L003cdc),a2
  4351. move.b (a2,d0.w),d0
  4352. bsr.w L003b42
  4353. bra.s L003216
  4354. L003254:
  4355. cmpi.b #$52,d0 ;'R'
  4356. beq.w L0036b2
  4357. cmpi.b #$59,d0 ;'Y'
  4358. beq.w L0033aa
  4359. cmpi.b #$26,d0 ;'&'
  4360. beq.w L00367a
  4361. cmpi.b #$50,d0 ;'P'
  4362. beq.w L003372
  4363. cmpi.b #$4f,d0 ;'O'
  4364. beq.w L0036e4
  4365. cmpi.b #$4c,d0 ;'L'
  4366. beq.w L003722
  4367. cmpi.b #$56,d0 ;'V'
  4368. beq.w L003950
  4369. cmpi.b #$3c,d0 ;'<'
  4370. beq.w L003700
  4371. cmpi.b #$3e,d0 ;'>'
  4372. beq.w L003712
  4373. cmpi.b #$54,d0 ;'T'
  4374. beq.w L003848
  4375. cmpi.b #$40,d0 ;'@'
  4376. beq.w L003752
  4377. cmpi.b #$51,d0 ;'Q'
  4378. beq.w L0036be
  4379. cmpi.b #$7c,d0 ;'|'
  4380. beq.w L0035e2
  4381. cmpi.b #$3a,d0 ;':'
  4382. beq.w L003658
  4383. cmpi.b #$5b,d0 ;'['
  4384. beq.w L0034e2
  4385. cmpi.b #$7b,d0 ;'{'
  4386. beq.w L003408
  4387. cmpi.b #$7d,d0 ;'}'
  4388. beq.w L00341e
  4389. cmpi.b #$27,d0 ;'''
  4390. beq.w L003ce4
  4391. bra.w L002fa0
  4392. L0032e8:
  4393. tst.b (a0)
  4394. beq.s L0032fc
  4395. cmpi.b #$20,(a0) ;' '
  4396. beq.s L0032f8
  4397. cmpi.b #$09,(a0)
  4398. bne.s L0032fc
  4399. L0032f8:
  4400. addq.l #1,a0
  4401. bra.s L0032e8
  4402. L0032fc:
  4403. rts
  4404. L0032fe:
  4405. move.b (a0)+,d0
  4406. beq.s L00330a
  4407. cmpi.b #$0a,d0
  4408. bne.s L0032fe
  4409. rts
  4410. L00330a:
  4411. ori.b #$01,ccr
  4412. rts
  4413. L003310:
  4414. move.l d0,-(sp)
  4415. move.b #$00,d0
  4416. bsr.s L00331c
  4417. move.l (sp)+,d0
  4418. rts
  4419. L00331c:
  4420. movem.l d1-d2/a0-a2,-(sp)
  4421. move.l (L0078c2),d1
  4422. lea.l (L00c4d6),a0
  4423. lea.l (L00be96),a1
  4424. asl.l #2,d1
  4425. move.l (a0,d1.w),d2
  4426. asl.l #2,d1
  4427. adda.l d1,a1
  4428. subq.l #4,d2
  4429. cmp.l ($000a,a1),d2
  4430. blt.s L003358
  4431. addq.l #1,($000a,a1)
  4432. movea.l (a1),a2
  4433. move.b d0,(a2)+
  4434. move.b #$ff,(a2)
  4435. move.l a2,(a1)
  4436. movem.l (sp)+,d1-d2/a0-a2
  4437. rts
  4438. L003358:
  4439. movea.l (a1),a2
  4440. move.b #$ff,(a2)
  4441. move.b #$ff,($0001,a2)
  4442. move.b #$ff,($0002,a2)
  4443. movem.l (sp)+,d1-d2/a0-a2
  4444. bra.w L00301e
  4445. L003372:
  4446. bsr.w L003c8a
  4447. bmi.w L00311a
  4448. bsr.w L003e66
  4449. move.l d0,d1
  4450. subq.b #1,d1
  4451. ble.s L00338e
  4452. subq.b #1,d1
  4453. beq.s L003392
  4454. move.b #$40,d1 ;'@'
  4455. bra.s L003392
  4456. L00338e:
  4457. move.b #$7f,d1
  4458. L003392:
  4459. move.b #$b0,d0
  4460. bsr.s L00331c
  4461. move.b #$0a,d0
  4462. bsr.w L00331c
  4463. move.b d1,d0
  4464. bsr.w L00331c
  4465. bra.w L003216
  4466. L0033aa:
  4467. bsr.w L003c8a
  4468. bmi.w L0030fe
  4469. bsr.w L003e66
  4470. move.w d0,d1
  4471. bsr.w L0032e8
  4472. cmpi.b #$2c,(a0) ;','
  4473. beq.s L0033cc
  4474. cmpi.b #$20,(a0) ;' '
  4475. beq.s L0033cc
  4476. bra.w L0030fe
  4477. L0033cc:
  4478. addq.l #1,a0
  4479. bsr.w L003c8a
  4480. bmi.w L0030fe
  4481. bsr.w L003e66
  4482. cmp.l #$000000ff,d0
  4483. bhi.w L0030fe
  4484. move.w d0,d2
  4485. move.b #$b0,d0
  4486. tst.w (L007a10)
  4487. beq.s L0033f4
  4488. addq.b #1,d0
  4489. L0033f4:
  4490. bsr.w L00331c
  4491. move.b d1,d0
  4492. bsr.w L00331c
  4493. move.b d2,d0
  4494. bsr.w L00331c
  4495. bra.w L003216
  4496. L003408:
  4497. move.l (a1),d0
  4498. move.l d0,(L0078b2)
  4499. move.l #$00000001,(L0078b6)
  4500. bra.w L003216
  4501. L00341e:
  4502. moveq.l #$00,d3
  4503. clr.l (L0078b6)
  4504. bsr.w L003c8a
  4505. bmi.s L003452
  4506. bsr.w L003e66
  4507. tst.l d0
  4508. beq.w L003010
  4509. cmp.l #$00000060,d0
  4510. bhi.w L003010
  4511. move.l #$000000c0,d1
  4512. divu.w d0,d1
  4513. and.l #$000000ff,d1
  4514. move.l d1,d0
  4515. bra.s L003456
  4516. L003452:
  4517. move.b ($0006,a1),d0
  4518. L003456:
  4519. tst.l (L0078ba)
  4520. beq.w L0030d4
  4521. cmp.l (L0078ba),d0
  4522. bcs.w L0030c6
  4523. move.l (L0078ba),d1
  4524. divu.w d1,d0
  4525. move.l d0,d2
  4526. swap.w d2
  4527. and.l #$000000ff,d2
  4528. move.l d0,d1
  4529. and.l #$000000ff,d1
  4530. move.l d0,-(sp)
  4531. movea.l (L0078b2),a2
  4532. L00348c:
  4533. tst.b (a2)
  4534. bmi.s L0034c0
  4535. move.b ($0001,a2),d0
  4536. cmp.b ($0002,a2),d0
  4537. bne.s L0034a8
  4538. bsr.s L0034d6
  4539. move.b d0,($0001,a2)
  4540. add.w d0,d3
  4541. move.b d0,($0002,a2)
  4542. bra.s L0034ba
  4543. L0034a8:
  4544. bsr.s L0034d6
  4545. move.b d0,($0001,a2)
  4546. add.w d0,d3
  4547. move.b d1,d0
  4548. bsr.w L003c3c
  4549. move.b d0,($0002,a2)
  4550. L0034ba:
  4551. subq.l #1,(L0078ba)
  4552. L0034c0:
  4553. addq.l #3,a2
  4554. ext.w d0
  4555. tst.l (L0078ba)
  4556. bne.s L00348c
  4557. move.w d3,d0
  4558. bsr.w L003bda
  4559. bra.w L003216
  4560. L0034d6:
  4561. move.l d1,d0
  4562. tst.l d2
  4563. beq.s L0034e0
  4564. addq.l #1,d0
  4565. subq.l #1,d2
  4566. L0034e0:
  4567. rts
  4568. L0034e2:
  4569. bsr.w L0032e8
  4570. bsr.w L003586
  4571. tst.l d0
  4572. bmi.w L002fae
  4573. bsr.w L0032e8
  4574. cmpi.b #$5d,(a0)+ ;']'
  4575. bne.w L002fbc
  4576. tst.b d0
  4577. beq.s L00352e
  4578. cmp.b #$01,d0
  4579. beq.s L00353a
  4580. cmp.b #$03,d0
  4581. bls.s L003534
  4582. cmp.b #$05,d0
  4583. bls.s L00354c
  4584. cmp.b #$07,d0
  4585. bls.s L00355e
  4586. cmp.b #$08,d0
  4587. beq.s L003540
  4588. cmp.b #$09,d0
  4589. bls.s L003564
  4590. cmp.b #$0a,d0
  4591. beq.s L00356a
  4592. bra.w L002fa0
  4593. L00352e:
  4594. move.b #$03,d0
  4595. bra.s L00356e
  4596. L003534:
  4597. move.b #$04,d0
  4598. bra.s L00356e
  4599. L00353a:
  4600. move.b #$05,d0
  4601. bra.s L00356e
  4602. L003540:
  4603. move.b #$06,d0
  4604. move.b #$01,($0008,a1)
  4605. bra.s L00356e
  4606. L00354c:
  4607. move.b #$07,d0
  4608. move.b ($000e,a1),($0009,a1)
  4609. move.b ($000f,a1),($0005,a1)
  4610. bra.s L00356e
  4611. L00355e:
  4612. move.b #$08,d0
  4613. bra.s L00356e
  4614. L003564:
  4615. move.b #$09,d0
  4616. bra.s L00356e
  4617. L00356a:
  4618. move.b #$0a,d0
  4619. L00356e:
  4620. move.l d0,-(sp)
  4621. move.b #$c0,d0
  4622. bsr.w L00331c
  4623. move.l (sp)+,d0
  4624. bsr.w L00331c
  4625. bsr.w L003310
  4626. bra.w L003216
  4627. L003586:
  4628. movem.l d1-d2/a1-a3,-(sp)
  4629. moveq.l #$00,d2
  4630. moveq.l #$00,d1
  4631. lea.l (L007856),a3
  4632. L003594:
  4633. movea.l (a3,d1.l),a1
  4634. bsr.s L0035bc
  4635. tst.l d0
  4636. bpl.s L0035b2
  4637. addq.l #4,d1
  4638. addq.l #1,d2
  4639. cmp.l #$0000000b,d2
  4640. bne.s L003594
  4641. moveq.l #$ff,d0
  4642. movem.l (sp)+,d1-d2/a1-a3
  4643. rts
  4644. L0035b2:
  4645. move.l d2,d0
  4646. movea.l a2,a0
  4647. movem.l (sp)+,d1-d2/a1-a3
  4648. rts
  4649. L0035bc:
  4650. movem.l a0-a1,-(sp)
  4651. L0035c0:
  4652. tst.b (a1)
  4653. beq.s L0035d0
  4654. move.b (a0)+,d0
  4655. bsr.w L003ea4
  4656. cmp.b (a1)+,d0
  4657. bne.s L0035da
  4658. bra.s L0035c0
  4659. L0035d0:
  4660. moveq.l #$01,d0
  4661. movea.l a0,a2
  4662. movem.l (sp)+,a0-a1
  4663. rts
  4664. L0035da:
  4665. moveq.l #$ff,d0
  4666. movem.l (sp)+,a0-a1
  4667. rts
  4668. L0035e2:
  4669. cmpi.b #$3a,(a0) ;':'
  4670. bne.s L003624
  4671. addq.l #1,a0
  4672. bsr.w L003c8a
  4673. bmi.s L0035f6
  4674. bsr.w L003e66
  4675. bra.s L0035f8
  4676. L0035f6:
  4677. moveq.l #$02,d0
  4678. L0035f8:
  4679. tst.l d0
  4680. beq.w L002fca
  4681. cmp.l #$00000100,d0
  4682. bhi.w L002fca
  4683. move.b d0,d1
  4684. move.b #$c0,d0
  4685. bsr.w L00331c
  4686. move.b #$00,d0
  4687. bsr.w L00331c
  4688. move.b d1,d0
  4689. bsr.w L00331c
  4690. bra.w L003216
  4691. L003624:
  4692. bsr.w L003c8a
  4693. bmi.w L002fd8
  4694. bsr.w L003e66
  4695. subq.l #1,d0
  4696. cmp.l #$000000ff,d0
  4697. bhi.w L002fe6
  4698. move.b d0,d1
  4699. move.b #$c0,d0
  4700. bsr.w L00331c
  4701. move.b #$02,d0
  4702. bsr.w L00331c
  4703. move.b d1,d0
  4704. bsr.w L00331c
  4705. bra.w L003216
  4706. L003658:
  4707. cmpi.b #$7c,(a0) ;'|'
  4708. bne.w L003216
  4709. addq.l #1,a0
  4710. move.b #$c0,d0
  4711. bsr.w L00331c
  4712. move.b #$01,d0
  4713. bsr.w L00331c
  4714. bsr.w L003310
  4715. bra.w L003216
  4716. L00367a:
  4717. move.l a0,-(sp)
  4718. movea.l (a1),a0
  4719. L00367e:
  4720. subq.l #3,a0
  4721. move.b (a0),d0
  4722. bpl.s L003694
  4723. cmpi.b #$f0,d0
  4724. beq.s L00367e
  4725. cmpi.b #$f1,d0
  4726. beq.s L00367e
  4727. bra.w L003128
  4728. L003694:
  4729. tst.b ($000e,a1)
  4730. bne.s L00369e
  4731. move.b d0,($000f,a1)
  4732. L00369e:
  4733. move.b #$01,($000e,a1)
  4734. move.b ($0001,a0),d0
  4735. move.b d0,($0002,a0)
  4736. movea.l (sp)+,a0
  4737. bra.w L003216
  4738. L0036b2:
  4739. move.b #$7f,d0
  4740. bsr.w L003b60
  4741. bra.w L003216
  4742. L0036be:
  4743. bsr.w L003e5a
  4744. bsr.w L003c8a
  4745. bmi.w L0030e2
  4746. bsr.w L003e66
  4747. tst.b d0
  4748. beq.w L0030e2
  4749. cmp.b #$08,d0
  4750. bhi.w L0030e2
  4751. move.b d0,($0007,a1)
  4752. bra.w L003216
  4753. L0036e4:
  4754. bsr.w L003c8a
  4755. bmi.w L002ff4
  4756. bsr.w L003e66
  4757. cmp.b #$08,d0
  4758. bhi.w L003002
  4759. move.b d0,($0004,a1)
  4760. bra.w L003216
  4761. L003700:
  4762. cmpi.b #$08,($0004,a1)
  4763. bge.w L003216
  4764. addq.b #1,($0004,a1)
  4765. bra.w L003216
  4766. L003712:
  4767. tst.b ($0004,a1)
  4768. beq.w L003216
  4769. subq.b #1,($0004,a1)
  4770. bra.w L003216
  4771. L003722:
  4772. bsr.w L003e5a
  4773. bsr.w L003c8a
  4774. bmi.w L003072
  4775. bsr.w L003e66
  4776. tst.l d0
  4777. beq.w L003010
  4778. cmp.l #$00000060,d0
  4779. bhi.w L003010
  4780. move.l #$000000c0,d1
  4781. divu.w d0,d1
  4782. move.b d1,($0006,a1)
  4783. bra.w L003216
  4784. L003752:
  4785. bsr.w L003c8a
  4786. bpl.w L00381e
  4787. move.b (a0)+,d0
  4788. andi.b #$df,d0
  4789. cmp.b #$56,d0 ;'V'
  4790. beq.w L00391e
  4791. cmp.b #$50,d0 ;'P'
  4792. beq.w L0038ec
  4793. cmp.b #$55,d0 ;'U'
  4794. beq.w L003988
  4795. cmp.b #$4e,d0 ;'N'
  4796. beq.w L0039b2
  4797. cmp.b #$4d,d0 ;'M'
  4798. beq.w L0039e8
  4799. cmp.b #$44,d0 ;'D'
  4800. beq.w L003a5e
  4801. cmp.b #$42,d0 ;'B'
  4802. beq.w L003a8c
  4803. cmp.b #$54,d0 ;'T'
  4804. beq.w L003880
  4805. cmp.b #$59,d0 ;'Y'
  4806. beq.w L003b04
  4807. cmp.b #$4c,d0 ;'L'
  4808. beq.s L0037b8
  4809. cmp.b #$57,d0 ;'W'
  4810. beq.s L0037e0
  4811. bra.w L002fa0
  4812. L0037b8:
  4813. bsr.w L003e5a
  4814. bsr.w L003c8a
  4815. bmi.w L00310c
  4816. bsr.w L003e66
  4817. tst.l d0
  4818. beq.w L00310c
  4819. cmp.l #$000000c0,d0
  4820. bhi.w L00310c
  4821. move.b d0,($0006,a1)
  4822. bra.w L003216
  4823. L0037e0:
  4824. move.b #$d0,d0
  4825. bsr.w L00331c
  4826. bsr.w L003c8a
  4827. bpl.s L0037f4
  4828. move.b ($0006,a1),d0
  4829. bra.s L003812
  4830. L0037f4:
  4831. bsr.w L003e66
  4832. tst.l d0
  4833. beq.w L00303a
  4834. cmp.l #$00000060,d0
  4835. bhi.w L003048
  4836. move.l #$000000c0,d1
  4837. divu.w d0,d1
  4838. move.b d1,d0
  4839. L003812:
  4840. bsr.w L00331c
  4841. bsr.w L00331c
  4842. bra.w L003216
  4843. L00381e:
  4844. bsr.w L003e66
  4845. move.w d0,d1
  4846. move.b #$a0,d0
  4847. cmpi.w #$0081,d1
  4848. bcs.s L003836
  4849. move.b #$a1,d0
  4850. subi.w #$0080,d1
  4851. L003836:
  4852. bsr.w L00331c
  4853. move.b d1,d0
  4854. bsr.w L00331c
  4855. bsr.w L003310
  4856. bra.w L003216
  4857. L003848:
  4858. move.b #$90,d0
  4859. bsr.w L00331c
  4860. bsr.w L003c8a
  4861. bmi.w L003056
  4862. bsr.w L003e66
  4863. cmp.l #$00000014,d0
  4864. bcs.w L003064
  4865. cmp.l #$0000012c,d0
  4866. bhi.w L003064
  4867. ror.w #8,d0
  4868. bsr.w L00331c
  4869. rol.w #8,d0
  4870. bsr.w L00331c
  4871. bra.w L003216
  4872. L003880:
  4873. bsr.w L003c8a
  4874. bmi.w L0031a4
  4875. bsr.w L003e66
  4876. cmp.l #$0000000c,d0
  4877. bgt.w L0031a4
  4878. cmp.l #$00000001,d0
  4879. blt.w L0031a4
  4880. move.b d0,d1
  4881. bsr.w L0032e8
  4882. cmpi.b #$2c,(a0) ;','
  4883. bne.w L0031a4
  4884. addq.l #1,a0
  4885. bsr.w L003c8a
  4886. bmi.w L0031a4
  4887. bsr.w L003e66
  4888. cmp.l #$00000002,d0
  4889. blt.w L0031a4
  4890. cmp.l #$00000010,d0
  4891. bgt.w L0031a4
  4892. swap.w d0
  4893. move.b #$f1,d0
  4894. bsr.w L00331c
  4895. swap.w d0
  4896. exg.l d0,d1
  4897. bsr.w L00331c
  4898. exg.l d0,d1
  4899. bsr.w L00331c
  4900. bra.w L003216
  4901. L0038ec:
  4902. move.b #$b0,d0
  4903. bsr.w L00331c
  4904. bsr.w L003c8a
  4905. bmi.w L00315c
  4906. bsr.w L003e66
  4907. cmp.l #$0000007f,d0
  4908. bhi.w L00315c
  4909. move.b d0,d1
  4910. move.b #$0a,d0
  4911. bsr.w L00331c
  4912. move.b d1,d0
  4913. bsr.w L00331c
  4914. bra.w L003216
  4915. L00391e:
  4916. bsr.w L003c8a
  4917. bmi.w L003150
  4918. bsr.w L003e66
  4919. cmp.l #$0000007f,d0
  4920. bhi.w L003150
  4921. move.b d0,d1
  4922. move.b #$b0,d0
  4923. bsr.w L00331c
  4924. move.b #$07,d0
  4925. bsr.w L00331c
  4926. move.b d1,d0
  4927. bsr.w L00331c
  4928. bra.w L003216
  4929. L003950:
  4930. bsr.w L003c8a
  4931. bmi.w L003080
  4932. bsr.w L003e66
  4933. cmp.l #$0000000f,d0
  4934. bhi.w L00308e
  4935. addq.w #1,d0
  4936. lsl.w #3,d0
  4937. subq.w #1,d0
  4938. move.w d0,d1
  4939. move.b #$b0,d0
  4940. bsr.w L00331c
  4941. move.b #$07,d0
  4942. bsr.w L00331c
  4943. move.b d1,d0
  4944. bsr.w L00331c
  4945. bra.w L003216
  4946. L003988:
  4947. move.b #$81,d0
  4948. bsr.w L00331c
  4949. bsr.w L003c8a
  4950. bmi.w L003168
  4951. bsr.w L003e66
  4952. cmp.l #$0000007f,d0
  4953. bhi.w L003168
  4954. bsr.w L00331c
  4955. bsr.w L003310
  4956. bra.w L003216
  4957. L0039b2:
  4958. bsr.w L003c8a
  4959. bmi.w L003174
  4960. bsr.w L003e66
  4961. cmp.l #$00000019,d0
  4962. bhi.w L003174
  4963. subq.w #1,d0
  4964. bsr.w L0015c8
  4965. addq.w #1,d0
  4966. move.w d0,d1
  4967. move.b #$82,d0
  4968. bsr.w L00331c
  4969. move.b d1,d0
  4970. bsr.w L00331c
  4971. bsr.w L003310
  4972. bra.w L003216
  4973. L0039e8:
  4974. moveq.l #$32,d1 ;'2'
  4975. bsr.w L003c8a
  4976. bmi.s L0039fe
  4977. bsr.w L003e66
  4978. cmp.l #$0000007f,d0
  4979. bhi.s L0039fe
  4980. move.b d0,d1
  4981. L0039fe:
  4982. move.b #$b0,d0
  4983. bsr.w L00331c
  4984. move.b #$01,d0
  4985. bsr.w L00331c
  4986. move.b d1,d0
  4987. bsr.w L00331c
  4988. tst.b d1
  4989. bne.s L003a1c
  4990. bra.w L003216
  4991. L003a1c:
  4992. bsr.w L0032e8
  4993. cmpi.b #$2c,(a0) ;','
  4994. bne.w L003216
  4995. move.b (L007a36),d1
  4996. addq.l #1,a0
  4997. bsr.w L003c8a
  4998. bmi.s L003a44
  4999. bsr.w L003e66
  5000. cmp.l #$000000ff,d0
  5001. bgt.s L003a44
  5002. move.b d0,d1
  5003. L003a44:
  5004. move.b #$b1,d0
  5005. bsr.w L00331c
  5006. move.b #$18,d0
  5007. bsr.w L00331c
  5008. move.b d1,d0
  5009. bsr.w L00331c
  5010. bra.w L003216
  5011. L003a5e:
  5012. bsr.w L003c8a
  5013. bmi.w L00318c
  5014. moveq.l #$7f,d1
  5015. bsr.w L003e66
  5016. tst.l d0
  5017. bne.s L003a72
  5018. moveq.l #$00,d1
  5019. L003a72:
  5020. move.b #$b0,d0
  5021. bsr.w L00331c
  5022. move.b #$40,d0 ;'@'
  5023. bsr.w L00331c
  5024. move.b d1,d0
  5025. bsr.w L00331c
  5026. bra.w L003216
  5027. L003a8c:
  5028. move.b #$e0,d0
  5029. bsr.w L00331c
  5030. bsr.w L003c8a
  5031. bmi.w L003198
  5032. bsr.w L003e66
  5033. cmp.l #$0000007f,d0
  5034. bhi.w L003ad8
  5035. bsr.w L0032e8
  5036. cmpi.b #$2c,(a0) ;','
  5037. bne.s L003ae4
  5038. bsr.w L00331c
  5039. addq.l #1,a0
  5040. bsr.w L003c8a
  5041. bmi.w L003198
  5042. bsr.w L003e66
  5043. cmp.l #$0000007f,d0
  5044. bhi.w L003198
  5045. bsr.w L00331c
  5046. bra.w L003216
  5047. L003ad8:
  5048. bsr.w L0032e8
  5049. cmpi.b #$2c,(a0) ;','
  5050. beq.w L003198
  5051. L003ae4:
  5052. andi.l #$00003fff,d0
  5053. move.w d0,d1
  5054. andi.w #$007f,d0
  5055. lsr.w #7,d1
  5056. andi.w #$007f,d1
  5057. bsr.w L00331c
  5058. move.w d1,d0
  5059. bsr.w L00331c
  5060. bra.w L003216
  5061. L003b04:
  5062. bsr.w L003c8a
  5063. bmi.w L0031b0
  5064. bsr.w L003e66
  5065. move.l d0,d1
  5066. bsr.w L0032e8
  5067. cmpi.b #$2c,(a0) ;','
  5068. bne.w L0031b0
  5069. addq.l #1,a0
  5070. bsr.w L0032e8
  5071. bsr.w L003e66
  5072. move.l d0,d2
  5073. move.b #$b1,d0
  5074. bsr.w L00331c
  5075. move.b d1,d0
  5076. bsr.w L00331c
  5077. move.b d2,d0
  5078. bsr.w L00331c
  5079. bra.w L003216
  5080. L003b42:
  5081. bsr.w L003c62
  5082. add.b d1,d0
  5083. move.b ($0004,a1),d1
  5084. and.l #$000000ff,d1
  5085. mulu.w #$000c,d1
  5086. add.b d1,d0
  5087. cmp.b #$7e,d0 ;'~'
  5088. bcc.w L0030aa
  5089. L003b60:
  5090. bsr.w L00331c
  5091. bsr.w L003c8a
  5092. bmi.s L003b98
  5093. bsr.w L003e5a
  5094. bsr.w L003e66
  5095. tst.l d0
  5096. beq.w L003010
  5097. cmp.l #$00000060,d0
  5098. bhi.w L003010
  5099. and.l #$000000ff,d0
  5100. move.l #$000000c0,d1
  5101. divu.w d0,d1
  5102. and.l #$000000ff,d1
  5103. bra.s L003b9c
  5104. L003b98:
  5105. move.b ($0006,a1),d1
  5106. L003b9c:
  5107. tst.l (L0078b6)
  5108. beq.s L003baa
  5109. addq.l #1,(L0078ba)
  5110. L003baa:
  5111. move.b d1,d0
  5112. move.b #$03,d2
  5113. L003bb0:
  5114. bsr.w L0032e8
  5115. cmpi.b #$2e,(a0) ;'.'
  5116. bne.s L003bc8
  5117. bsr.w L003e5a
  5118. lsr.b #1,d1
  5119. add.b d1,d0
  5120. addq.l #1,a0
  5121. subq.b #1,d2
  5122. bne.s L003bb0
  5123. L003bc8:
  5124. move.b d0,d1
  5125. bsr.w L00331c
  5126. bsr.s L003c3c
  5127. bsr.w L00331c
  5128. move.b d1,d0
  5129. bsr.s L003bda
  5130. rts
  5131. L003bda:
  5132. tst.l (L0078b6)
  5133. beq.s L003be4
  5134. rts
  5135. L003be4:
  5136. movem.l d0-d2/a2,-(sp)
  5137. lea.l (L0078c6),a2
  5138. move.l (L0078c2),d1
  5139. lsl.l #2,d1
  5140. adda.l d1,a2
  5141. andi.w #$00ff,d0
  5142. move.w (L007838),d1
  5143. move.w ($0002,a2),d2
  5144. add.w d0,d2
  5145. move.w d2,d0
  5146. sub.w d1,d2
  5147. bmi.s L003c32
  5148. move.w d2,($0002,a2)
  5149. addq.w #1,(a2)
  5150. move.b #$f0,d0
  5151. bsr.w L00331c
  5152. move.b ($0002,a2),d0
  5153. bsr.w L00331c
  5154. move.b ($0003,a2),d0
  5155. bsr.w L00331c
  5156. movem.l (sp)+,d0-d2/a2
  5157. rts
  5158. L003c32:
  5159. move.w d0,($0002,a2)
  5160. movem.l (sp)+,d0-d2/a2
  5161. rts
  5162. L003c3c:
  5163. move.l d1,-(sp)
  5164. and.l #$000000ff,d0
  5165. move.b ($0007,a1),d1
  5166. and.l #$000000ff,d1
  5167. mulu.w d1,d0
  5168. lsr.w #3,d0
  5169. cmpi.b #$01,d0
  5170. beq.s L003c5e
  5171. subq.b #1,d0
  5172. bcc.s L003c5e
  5173. moveq.l #$00,d0
  5174. L003c5e:
  5175. move.l (sp)+,d1
  5176. rts
  5177. L003c62:
  5178. bsr.w L0032e8
  5179. cmpi.b #$23,(a0) ;'#'
  5180. beq.s L003c7c
  5181. cmpi.b #$2b,(a0) ;'+'
  5182. beq.s L003c7c
  5183. cmpi.b #$2d,(a0) ;'-'
  5184. beq.s L003c82
  5185. clr.b d1
  5186. rts
  5187. L003c7c:
  5188. move.b #$01,d1
  5189. bra.s L003c86
  5190. L003c82:
  5191. move.b #$ff,d1
  5192. L003c86:
  5193. addq.l #1,a0
  5194. rts
  5195. L003c8a:
  5196. bsr.w L0032e8
  5197. move.b (a0),d0
  5198. cmpi.b #$30,d0 ;'0'
  5199. bcs.s L003ca0
  5200. cmpi.b #$39,d0 ;'9'
  5201. bhi.s L003ca0
  5202. clr.b d0
  5203. rts
  5204. L003ca0:
  5205. move.b #-$01,d0
  5206. rts
  5207. L003ca6:
  5208. movem.l d1/a0,-(sp)
  5209. bsr.s L003cb2
  5210. movem.l (sp)+,d1/a0
  5211. rts
  5212. L003cb2:
  5213. cmpi.b #$41,d0 ;'A'
  5214. bcs.s L003cd6
  5215. cmpi.b #$47,d0 ;'G'
  5216. bhi.s L003cd6
  5217. subi.b #$41,d0 ;'A'
  5218. andi.w #$00ff,d0
  5219. lea.l (L003cdc),a0
  5220. move.b (a0,d0.w),d1
  5221. clr.w d0
  5222. move.b d1,d0
  5223. rts
  5224. L003cd6:
  5225. move.w #$ffff,d0
  5226. rts
  5227. L003cdc:
  5228. .dc.b $15,$17,$0c,$0e,$10,$11,$13,$00
  5229. L003ce4:
  5230. bsr.w L0032e8
  5231. move.b (a0)+,d0
  5232. bsr.w L003ea4
  5233. bsr.w L003e30
  5234. tst.w d0
  5235. beq.s L003ce4
  5236. bsr.s L003ca6
  5237. tst.w d0
  5238. bmi.w L003136
  5239. bsr.w L003c62
  5240. add.b d1,d0
  5241. move.b ($0004,a1),d1
  5242. and.l #$000000ff,d1
  5243. mulu.w #$000c,d1
  5244. add.b d1,d0
  5245. cmp.b #$7e,d0 ;'~'
  5246. bcc.w L003136
  5247. clr.b ($000e,a1)
  5248. clr.b ($000f,a1)
  5249. bsr.w L00331c
  5250. move.b #$00,d0
  5251. bsr.w L00331c
  5252. bsr.w L003c8a
  5253. bmi.s L003d64
  5254. bsr.w L003e5a
  5255. bsr.w L003e66
  5256. tst.l d0
  5257. beq.w L003010
  5258. cmp.l #$00000060,d0
  5259. bhi.w L003010
  5260. and.l #$000000ff,d0
  5261. move.l #$000000c0,d1
  5262. divu.w d0,d1
  5263. and.l #$000000ff,d1
  5264. bra.s L003d68
  5265. L003d64:
  5266. move.b ($0006,a1),d1
  5267. L003d68:
  5268. move.b d1,d0
  5269. move.b #$03,d2
  5270. L003d6e:
  5271. bsr.w L0032e8
  5272. cmpi.b #$2e,(a0) ;'.'
  5273. bne.s L003d86
  5274. bsr.w L003e5a
  5275. lsr.b #1,d1
  5276. add.b d1,d0
  5277. addq.l #1,a0
  5278. subq.b #1,d2
  5279. bne.s L003d6e
  5280. L003d86:
  5281. move.w d0,d3
  5282. swap.w d3
  5283. bsr.w L003c3c
  5284. move.w d0,d3
  5285. swap.w d3
  5286. movea.l (a1),a2
  5287. clr.w d0
  5288. bsr.w L00331c
  5289. moveq.l #$01,d2
  5290. L003d9c:
  5291. bsr.w L0032e8
  5292. move.b (a0)+,d0
  5293. cmp.b #$27,d0 ;'''
  5294. beq.s L003dea
  5295. bsr.w L003ea4
  5296. bsr.w L003e30
  5297. tst.w d0
  5298. beq.s L003d9c
  5299. bsr.w L003ca6
  5300. tst.w d0
  5301. bmi.w L003136
  5302. bsr.w L003c62
  5303. add.b d1,d0
  5304. move.b ($0004,a1),d1
  5305. and.l #$000000ff,d1
  5306. mulu.w #$000c,d1
  5307. add.b d1,d0
  5308. cmp.b #$7e,d0 ;'~'
  5309. bcc.w L003136
  5310. bsr.w L00331c
  5311. addq.w #1,d2
  5312. cmp.w #$0008,d2
  5313. bhi.s L003e1e
  5314. bra.s L003d9c
  5315. L003dea:
  5316. cmp.w #$0002,d2
  5317. bcs.s L003e0c
  5318. move.b d2,(a2)
  5319. move.w d3,d0
  5320. bsr.w L00331c
  5321. swap.w d3
  5322. move.w d3,d0
  5323. bsr.w L00331c
  5324. swap.w d3
  5325. move.b d3,d0
  5326. bsr.w L003bda
  5327. bra.w L003216
  5328. L003e0c:
  5329. addq.l #2,d2
  5330. sub.l d2,($000a,a1)
  5331. subq.l #2,a2
  5332. move.l a2,(a1)
  5333. move.b #$ff,(a2)
  5334. bra.w L003136
  5335. L003e1e:
  5336. addq.l #2,d2
  5337. sub.l d2,($000a,a1)
  5338. subq.l #2,a2
  5339. move.l a2,(a1)
  5340. move.b #$ff,(a2)
  5341. bra.w L003144
  5342. L003e30:
  5343. cmp.b #$3c,d0 ;'<'
  5344. bne.s L003e46
  5345. cmpi.b #$08,($0004,a1)
  5346. bcc.w L003e56
  5347. addq.b #1,($0004,a1)
  5348. bra.s L003e56
  5349. L003e46:
  5350. cmp.b #$3e,d0 ;'>'
  5351. bne.s L003e58
  5352. tst.b ($0004,a1)
  5353. beq.s L003e56
  5354. subq.b #1,($0004,a1)
  5355. L003e56:
  5356. clr.w d0
  5357. L003e58:
  5358. rts
  5359. L003e5a:
  5360. tst.l (L0078b6)
  5361. bne.w L0030f0
  5362. rts
  5363. L003e66:
  5364. movem.l d1,-(sp)
  5365. moveq.l #$00,d0
  5366. moveq.l #$00,d1
  5367. L003e6e:
  5368. bsr.w L0032e8
  5369. cmpi.b #$30,(a0)+ ;'0'
  5370. beq.s L003e6e
  5371. subq.l #1,a0
  5372. L003e7a:
  5373. bsr.w L0032e8
  5374. move.b (a0),d1
  5375. cmp.b #$30,d1 ;'0'
  5376. bcs.s L003e9e
  5377. cmp.b #$39,d1 ;'9'
  5378. bhi.s L003e9e
  5379. sub.b #$30,d1 ;'0'
  5380. mulu.w #$000a,d0
  5381. and.b #$0f,d1
  5382. add.l d1,d0
  5383. addq.l #1,a0
  5384. bra.s L003e7a
  5385. L003e9e:
  5386. movem.l (sp)+,d1
  5387. rts
  5388. L003ea4:
  5389. cmpi.b #$61,d0 ;'a'
  5390. bcs.s L003eb4
  5391. cmpi.b #$7a,d0 ;'z'
  5392. bhi.s L003eb4
  5393. sub.b #$20,d0 ;' '
  5394. L003eb4:
  5395. rts
  5396. L003eb6:
  5397. tst.b (L007a14)
  5398. bne.s L003eb6
  5399. rts
  5400. L003ec0:
  5401. bsr.s L003f30
  5402. cmp.l (L007a20),d0
  5403. bcc.s L003ed2
  5404. move.l (L007a1c),d0
  5405. rts
  5406. L003ed2:
  5407. moveq.l #$ff,d0
  5408. rts
  5409. L003ed6:
  5410. movem.l d0-d1/a3-a5,-(sp)
  5411. lea.l (L00ce4a),a3
  5412. lea.l (L00c396),a4
  5413. lea.l (L00c616),a5
  5414. moveq.l #$00,d0
  5415. moveq.l #$18,d1
  5416. L003ef0:
  5417. move.b (a3)+,d0
  5418. lsl.w #2,d0
  5419. move.l (a4,d0.w),($0002,a5)
  5420. move.l (a4,d0.w),($0050,a5)
  5421. adda.l #$00000054,a5
  5422. dbra.w d1,L003ef0
  5423. movem.l (sp)+,d0-d1/a3-a5
  5424. rts
  5425. L003f10:
  5426. movem.l d1/a0-a1,-(sp)
  5427. lea.l (L00c396),a0
  5428. lea.l (L00c4d6),a1
  5429. moveq.l #$4f,d1 ;'O'
  5430. L003f22:
  5431. move.l d0,(a0)+
  5432. add.l (a1)+,d0
  5433. dbra.w d1,L003f22
  5434. movem.l (sp)+,d1/a0-a1
  5435. rts
  5436. L003f30:
  5437. movem.l d1/a0,-(sp)
  5438. lea.l (L00c4d6),a0
  5439. moveq.l #$00,d0
  5440. moveq.l #$4f,d1 ;'O'
  5441. L003f3e:
  5442. add.l (a0)+,d0
  5443. dbra.w d1,L003f3e
  5444. movem.l (sp)+,d1/a0
  5445. rts
  5446. L003f4a:
  5447. movem.l d0/a0-a1,-(sp)
  5448. moveq.l #$00,d0
  5449. lea.l (L00c396),a0
  5450. L003f56:
  5451. bsr.s L003f8c
  5452. move.l (a0)+,(a1)
  5453. clr.l ($000a,a1)
  5454. addq.l #1,d0
  5455. cmp.l #$00000050,d0
  5456. bne.s L003f56
  5457. movem.l (sp)+,d0/a0-a1
  5458. rts
  5459. L003f6e:
  5460. movem.l d0/a0-a1,-(sp)
  5461. lea.l (L00c396),a0
  5462. move.w #$004f,d0 ;'O'
  5463. L003f7c:
  5464. movea.l (a0)+,a1
  5465. move.b #$ff,(a1)
  5466. dbra.w d0,L003f7c
  5467. movem.l (sp)+,d0/a0-a1
  5468. rts
  5469. L003f8c:
  5470. movem.l d0,-(sp)
  5471. lea.l (L00be96),a1
  5472. cmpi.w #$0050,d0 ;'P'
  5473. bcc.s L003fa6
  5474. and.l #$000000ff,d0
  5475. lsl.w #4,d0
  5476. adda.w d0,a1
  5477. L003fa6:
  5478. movem.l (sp)+,d0
  5479. rts
  5480. L003fac:
  5481. move.l d0,-(sp)
  5482. lea.l (L00ce4a),a1
  5483. andi.l #$000000ff,d0
  5484. move.b (a1,d0.w),d0
  5485. lsl.w #4,d0
  5486. lea.l (L00be96),a1
  5487. adda.l d0,a1
  5488. move.l (sp)+,d0
  5489. rts
  5490. L003fcc:
  5491. move.l d0,-(sp)
  5492. lea.l (L00c616),a5
  5493. andi.l #$000000ff,d0
  5494. mulu.w #$0054,d0
  5495. adda.l d0,a5
  5496. move.l (sp)+,d0
  5497. rts
  5498. L003fe4:
  5499. movem.l d1/a1,-(sp)
  5500. lea.l (L00ce7c),a1
  5501. move.w #$0018,d1
  5502. L003ff2:
  5503. move.l #$ffffffff,(a1)+
  5504. dbra.w d1,L003ff2
  5505. movem.l (sp)+,d1/a1
  5506. rts
  5507. L004002:
  5508. movem.l d1/a5,-(sp)
  5509. lea.l (L00c616),a5
  5510. moveq.l #$18,d1
  5511. L00400e:
  5512. clr.b ($0014,a5)
  5513. clr.b ($0000.w,a5)
  5514. clr.b ($0001,a5)
  5515. clr.w ($0006,a5)
  5516. clr.b ($0016,a5)
  5517. clr.b ($0020,a5)
  5518. clr.b ($0026,a5)
  5519. clr.b ($001e,a5)
  5520. clr.b ($0018,a5)
  5521. clr.w ($002e,a5)
  5522. clr.l ($0032,a5)
  5523. clr.l ($0036,a5)
  5524. clr.b ($003c,a5)
  5525. clr.b ($0040,a5)
  5526. clr.b ($0042,a5)
  5527. clr.b ($0044,a5)
  5528. lea.l ($0054,a5),a5
  5529. dbra.w d1,L00400e
  5530. move.b #-$01,(L006bc2)
  5531. clr.b (L006bc3)
  5532. movem.l (sp)+,d1/a5
  5533. rts
  5534. L00406a:
  5535. movem.l d0/a4,-(sp)
  5536. lea.l (L00ce7c),a4
  5537. moveq.l #$00,d0
  5538. move.b ($0028,a5),d0
  5539. adda.l d0,a4
  5540. addq.b #1,d0
  5541. move.w d0,-(sp)
  5542. tst.b ($004b,a4)
  5543. ble.s L00408e
  5544. bsr.w L004f1e
  5545. clr.b ($004b,a4)
  5546. L00408e:
  5547. addq.l #2,sp
  5548. movem.l (sp)+,d0/a4
  5549. rts
  5550. L004096:
  5551. .dc.b '<< play int >>'
  5552. L0040a4:
  5553. movem.l d0-d5/d7/a0-a5,-(sp)
  5554. tst.b (L002862)
  5555. beq.s L0040b4
  5556. bsr.w L002832
  5557. L0040b4:
  5558. tst.b (L007a14)
  5559. ble.s L0040cc
  5560. cmpi.b #$01,(L007a14)
  5561. beq.s L004124
  5562. bsr.w L004002
  5563. bra.s L00411e
  5564. L0040cc:
  5565. moveq.l #$00,d7
  5566. moveq.l #$00,d5
  5567. lea.l (L00c616),a5
  5568. L0040d6:
  5569. tst.b ($004c,a5)
  5570. beq.s L0040e6
  5571. tst.b ($0014,a5)
  5572. beq.s L0040e6
  5573. addq.b #1,d7
  5574. bsr.s L00412a
  5575. L0040e6:
  5576. lea.l ($0054,a5),a5
  5577. addq.w #1,d5
  5578. cmpi.w #$0019,d5
  5579. bne.s L0040d6
  5580. tst.b (L007a1a)
  5581. beq.s L00410a
  5582. move.w (L007550),d0
  5583. bsr.w L004d84
  5584. clr.b (L007a1a)
  5585. L00410a:
  5586. tst.b d7
  5587. bne.s L00411e
  5588. tst.w (L007850)
  5589. bne.s L00411e
  5590. move.w #$0001,(L007a0c)
  5591. L00411e:
  5592. clr.b (L007a14)
  5593. L004124:
  5594. movem.l (sp)+,d0-d5/d7/a0-a5
  5595. rts
  5596. L00412a:
  5597. tst.b ($0001,a5)
  5598. beq.s L004136
  5599. subq.b #1,($0001,a5)
  5600. bne.s L004144
  5601. L004136:
  5602. tst.b ($0006,a5)
  5603. bne.s L004144
  5604. clr.b ($0007,a5)
  5605. bsr.w L00431a
  5606. L004144:
  5607. tst.b (a5)
  5608. beq.s L00414e
  5609. subq.b #1,(a5)
  5610. beq.s L00414e
  5611. rts
  5612. L00414e:
  5613. tst.b ($003e,a5)
  5614. beq.s L00415e
  5615. move.b #$ff,(a5)
  5616. clr.b ($003e,a5)
  5617. rts
  5618. L00415e:
  5619. lea.l (L00ce7c),a4
  5620. moveq.l #$00,d0
  5621. move.b ($0028,a5),d0
  5622. adda.l d0,a4
  5623. L00416c:
  5624. movea.l ($0002,a5),a0
  5625. move.b (a0),d0
  5626. bpl.w L0041e8
  5627. andi.b #$f0,d0
  5628. cmp.b #$b0,d0
  5629. beq.w L004452
  5630. cmp.b #$a0,d0
  5631. beq.w L0043ca
  5632. cmp.b #$80,d0
  5633. beq.w L00436e
  5634. cmp.b #$90,d0
  5635. beq.w L0046f6
  5636. cmp.b #$c0,d0
  5637. beq.w L004718
  5638. cmp.b #$d0,d0
  5639. beq.w L0046a4
  5640. cmp.b #$e0,d0
  5641. beq.w L0046b6
  5642. cmpi.b #$ff,(a0)
  5643. beq.s L0041c6
  5644. cmpi.b #$f1,(a0)
  5645. beq.w L004930
  5646. L0041c0:
  5647. addq.l #3,($0002,a5)
  5648. bra.s L00416c
  5649. L0041c6:
  5650. clr.b ($0014,a5)
  5651. moveq.l #$00,d0
  5652. move.b ($0028,a5),d0
  5653. addq.b #1,d0
  5654. move.w d0,-(sp)
  5655. jsr (L004efa)
  5656. lea.l ($0002,sp),sp
  5657. clr.b ($0032,a5)
  5658. bsr.w L00406a
  5659. rts
  5660. L0041e8:
  5661. moveq.l #$00,d3
  5662. move.b ($0001,a0),d3
  5663. bne.w L00428e
  5664. addq.l #2,a0
  5665. move.b (a0)+,d3
  5666. move.b d3,($0032,a5)
  5667. add.l d3,($0002,a5)
  5668. addq.l #4,($0002,a5)
  5669. tst.b ($003f,a5)
  5670. bne.s L004212
  5671. subq.l #1,d3
  5672. adda.l d3,a0
  5673. clr.b ($0032,a5)
  5674. bra.s L004286
  5675. L004212:
  5676. lea.l ($0033,a5),a2
  5677. move.b d0,d2
  5678. moveq.l #$00,d0
  5679. move.b ($0028,a5),d0
  5680. cmpi.b #$10,d0
  5681. bcc.s L00425c
  5682. add.b #$90,d0
  5683. bsr.w L00519e
  5684. move.b d2,d0
  5685. add.b ($002d,a5),d0
  5686. move.b d0,(a2)+
  5687. bsr.w L00519e
  5688. move.b ($0029,a5),d0
  5689. bsr.w L00519e
  5690. subq.b #1,d3
  5691. L004242:
  5692. move.b (a0)+,d0
  5693. add.b ($002d,a5),d0
  5694. move.b d0,(a2)+
  5695. bsr.w L00519e
  5696. move.b ($0029,a5),d0
  5697. bsr.w L00519e
  5698. subq.b #1,d3
  5699. bne.s L004242
  5700. bra.s L004286
  5701. L00425c:
  5702. subi.b #$10,d0
  5703. move.b d0,d1
  5704. move.b ($0029,a5),d0
  5705. swap.w d0
  5706. move.b d2,d0
  5707. add.b ($002d,a5),d0
  5708. move.b d0,(a2)+
  5709. bsr.w L005e04
  5710. subq.b #1,d3
  5711. L004276:
  5712. move.b (a0)+,d0
  5713. add.b ($002d,a5),d0
  5714. move.b d0,(a2)+
  5715. bsr.w L005e04
  5716. subq.b #1,d3
  5717. bne.s L004276
  5718. L004286:
  5719. move.b (a0)+,(a5)
  5720. move.b (a0)+,($0001,a5)
  5721. rts
  5722. L00428e:
  5723. move.b ($0006,a5),d4
  5724. clr.w ($0006,a5)
  5725. move.b d3,(a5)
  5726. move.b ($0002,a0),($0001,a5)
  5727. cmp.b ($0002,a0),d3
  5728. bne.s L0042aa
  5729. move.b #$01,($0006,a5)
  5730. L0042aa:
  5731. move.b d0,d1
  5732. cmp.b #$7f,d1
  5733. beq.s L004314
  5734. add.b ($002d,a5),d1
  5735. tst.b d4
  5736. beq.s L0042d0
  5737. cmp.b ($0033,a5),d1
  5738. beq.s L004314
  5739. cmpi.b #$10,($0028,a5)
  5740. bcs.s L0042ce
  5741. move.b #$01,($0007,a5)
  5742. L0042ce:
  5743. bsr.s L00431a
  5744. L0042d0:
  5745. move.b d1,($0033,a5)
  5746. tst.b ($003f,a5)
  5747. beq.s L004314
  5748. move.b ($0028,a5),d0
  5749. cmpi.b #$10,d0
  5750. bcs.s L0042f8
  5751. subi.b #$10,d0
  5752. exg.l d0,d1
  5753. swap.w d0
  5754. move.b ($0029,a5),d0
  5755. swap.w d0
  5756. bsr.w L005e04
  5757. bra.s L00430e
  5758. L0042f8:
  5759. add.b #$90,d0
  5760. bsr.w L00519e
  5761. move.b d1,d0
  5762. bsr.w L00519e
  5763. move.b ($0029,a5),d0
  5764. bsr.w L00519e
  5765. L00430e:
  5766. move.b #$01,($0032,a5)
  5767. L004314:
  5768. addq.l #3,($0002,a5)
  5769. rts
  5770. L00431a:
  5771. movem.l d0-d2,-(sp)
  5772. tst.b ($003f,a5)
  5773. beq.s L004368
  5774. clr.w d2
  5775. move.b ($0032,a5),d2
  5776. beq.s L004368
  5777. move.b ($0028,a5),d0
  5778. cmpi.b #$10,d0
  5779. bcs.s L004342
  5780. subi.b #$10,d0
  5781. move.b d0,d1
  5782. bsr.w L005eb2
  5783. bra.s L004364
  5784. L004342:
  5785. and.b #$0f,d0
  5786. add.b #$80,d0
  5787. bsr.w L00519e
  5788. L00434e:
  5789. subq.b #1,d2
  5790. bmi.s L004364
  5791. move.b ($33,a5,d2.w),d0
  5792. bsr.w L00519e
  5793. move.b #$40,d0 ;'@'
  5794. bsr.w L00519e
  5795. bra.s L00434e
  5796. L004364:
  5797. clr.b ($0032,a5)
  5798. L004368:
  5799. movem.l (sp)+,d0-d2
  5800. rts
  5801. L00436e:
  5802. clr.w d1
  5803. move.b ($0001,a0),d1
  5804. cmpi.b #$82,(a0)
  5805. beq.s L00438a
  5806. cmpi.b #$81,(a0)
  5807. bne.w L0041c0
  5808. move.b d1,($0029,a5)
  5809. bra.w L0041c0
  5810. L00438a:
  5811. subq.b #1,d1
  5812. bmi.w L0041c0
  5813. andi.b #$1f,d1
  5814. cmp.b ($0028,a5),d1
  5815. beq.w L0041c0
  5816. tst.b ($0032,a5)
  5817. beq.s L0043a6
  5818. bsr.w L00431a
  5819. L0043a6:
  5820. move.b d1,($0028,a5)
  5821. lea.l (L00ce7c),a4
  5822. andi.w #$001f,d1
  5823. adda.w d1,a4
  5824. cmpi.w #$0001,(L007a06)
  5825. bgt.w L0041c0
  5826. move.b d1,($0009,a5)
  5827. bra.w L0041c0
  5828. L0043ca:
  5829. move.b ($0001,a0),d1
  5830. subq.b #1,d1
  5831. bmi.w L0041c0
  5832. tst.b ($004d,a5)
  5833. bne.w L0041c0
  5834. cmpi.b #$a1,(a0)
  5835. bne.s L0043e6
  5836. add.b #$80,d1
  5837. L0043e6:
  5838. move.b d1,($002c,a5)
  5839. cmp.b ($0032,a4),d1
  5840. beq.w L0041c0
  5841. move.b d1,($0032,a4)
  5842. move.b ($0028,a5),d0
  5843. cmpi.b #$10,d0
  5844. bcs.s L00440e
  5845. subi.b #$10,d0
  5846. exg.l d0,d1
  5847. bsr.w L0061b4
  5848. bra.w L0041c0
  5849. L00440e:
  5850. tst.b d1
  5851. bmi.s L004424
  5852. addi.b #$c0,d0
  5853. bsr.w L00519e
  5854. move.b d1,d0
  5855. bsr.w L00519e
  5856. bra.w L0041c0
  5857. L004424:
  5858. addi.b #$b0,d0
  5859. bsr.w L00519e
  5860. clr.b d0
  5861. bsr.w L00519e
  5862. moveq.l #$01,d0
  5863. bsr.w L00519e
  5864. move.b ($0028,a5),d0
  5865. andi.b #$7f,d1
  5866. addi.b #$c0,d0
  5867. bsr.w L00519e
  5868. move.b d1,d0
  5869. bsr.w L00519e
  5870. bra.w L0041c0
  5871. L004452:
  5872. move.b ($0001,a0),d1
  5873. move.b ($0002,a0),d2
  5874. cmpi.b #$b1,(a0)
  5875. beq.w L0044ec
  5876. L004462:
  5877. cmp.b #$07,d1
  5878. bne.s L004488
  5879. tst.b ($004e,a5)
  5880. bne.w L0041c0
  5881. move.b d2,($002a,a5)
  5882. cmp.b (a4),d2
  5883. beq.w L0041c0
  5884. move.b d2,(a4)
  5885. sub.b (L007a3a),d2
  5886. bpl.s L0044be
  5887. clr.b d2
  5888. bra.s L0044be
  5889. L004488:
  5890. cmp.b #$0a,d1
  5891. bne.s L0044a8
  5892. tst.b ($004f,a5)
  5893. bne.w L0041c0
  5894. move.b d2,($002b,a5)
  5895. cmp.b ($0019,a4),d2
  5896. beq.w L0041c0
  5897. move.b d2,($0019,a4)
  5898. bra.s L0044be
  5899. L0044a8:
  5900. cmp.b #$40,d1 ;'@'
  5901. bne.s L0044be
  5902. move.b d2,($002e,a5)
  5903. cmp.b ($004b,a4),d2
  5904. beq.w L0041c0
  5905. move.b d2,($004b,a4)
  5906. L0044be:
  5907. move.b ($0028,a5),d0
  5908. cmpi.b #$10,d0
  5909. bcs.s L0044d4
  5910. subi.b #$10,d0
  5911. bsr.w L005f36
  5912. bra.w L0041c0
  5913. L0044d4:
  5914. addi.b #$b0,d0
  5915. bsr.w L00519e
  5916. move.b d1,d0
  5917. bsr.w L00519e
  5918. move.b d2,d0
  5919. bsr.w L00519e
  5920. bra.w L0041c0
  5921. L0044ec:
  5922. cmpi.b #$0f,d1
  5923. bcc.s L004544
  5924. move.b d1,d0
  5925. andi.l #$0000000f,d0
  5926. add.w d0,d0
  5927. add.w d0,d0
  5928. movea.l (Table3,pc,d0.w),a1
  5929. jmp (a1)
  5930. Table3:
  5931. .dc.l L00459c
  5932. .dc.l L004544
  5933. .dc.l L0045a6
  5934. .dc.l L0045c0
  5935. .dc.l L0045e0
  5936. .dc.l L0041c0
  5937. .dc.l L0045f2
  5938. .dc.l L0041c0
  5939. .dc.l L004544
  5940. .dc.l L00460a
  5941. .dc.l L004656
  5942. .dc.l L004544
  5943. .dc.l L004544
  5944. .dc.l L004688
  5945. .dc.l L00469a
  5946. .dc.l L004544
  5947. L004544:
  5948. move.b ($0028,a5),d0
  5949. subi.b #$10,d0
  5950. bmi.w L0041c0
  5951. cmpi.b #$08,d0
  5952. bcc.w L0041c0
  5953. cmpi.b #$20,d1 ;' '
  5954. blt.s L00456a
  5955. cmpi.b #$40,d1 ;'@'
  5956. bcc.s L00456a
  5957. andi.b #$f8,d1
  5958. or.b d0,d1
  5959. L00456a:
  5960. bsr.w L0064ae
  5961. cmpi.b #$30,d1 ;'0'
  5962. bcs.w L0041c0
  5963. cmpi.b #$38,d1 ;'8'
  5964. bcc.w L0041c0
  5965. lea.l (L0075b6),a1
  5966. and.w #$00ff,d0
  5967. lsl.w #3,d0
  5968. move.w d0,d3
  5969. add.w d0,d0
  5970. add.w d3,d0
  5971. adda.w d0,a1
  5972. lsr.b #2,d2
  5973. move.b d2,($0011,a1)
  5974. bra.w L0041c0
  5975. L00459c:
  5976. move.b d2,d0
  5977. bsr.w L00519e
  5978. bra.w L0041c0
  5979. L0045a6:
  5980. tst.b ($003f,a5)
  5981. beq.w L0041c0
  5982. tst.b d2
  5983. bmi.w L0041c0
  5984. move.b d2,d0
  5985. jsr (L0066e8)
  5986. bra.w L0041c0
  5987. L0045c0:
  5988. move.b d2,d0
  5989. subq.b #1,d0
  5990. bmi.s L0045d6
  5991. beq.s L0045d2
  5992. subq.b #1,d0
  5993. beq.s L0045d6
  5994. move.b #$40,d0 ;'@'
  5995. bra.s L0045d6
  5996. L0045d2:
  5997. move.b #$7f,d0
  5998. L0045d6:
  5999. jsr (L0066c4)
  6000. bra.w L0041c0
  6001. L0045e0:
  6002. cmpi.b #$05,($0004,a0)
  6003. bne.w L0041c0
  6004. addq.l #3,($0002,a5)
  6005. bra.w L0041c0
  6006. L0045f2:
  6007. cmpi.b #$07,($0004,a0)
  6008. bne.w L0041c0
  6009. move.b d2,d1
  6010. move.b ($0005,a0),d2
  6011. addq.l #3,($0002,a5)
  6012. bra.w L004462
  6013. L00460a:
  6014. andi.w #$00ff,d2
  6015. addq.w #1,d2
  6016. lsl.w #6,d2
  6017. subq.w #1,d2
  6018. move.w d2,d1
  6019. andi.w #$007f,d1
  6020. lsl.w #8,d1
  6021. lsr.w #7,d2
  6022. andi.w #$007f,d2
  6023. add.w d2,d1
  6024. move.b ($0028,a5),d0
  6025. cmpi.b #$10,d0
  6026. bcs.s L00463c
  6027. subi.b #$10,d0
  6028. exg.l d0,d1
  6029. bsr.w L006032
  6030. bra.w L0041c0
  6031. L00463c:
  6032. addi.b #$e0,d0
  6033. bsr.w L00519e
  6034. move.w d1,d0
  6035. lsr.w #8,d0
  6036. bsr.w L00519e
  6037. move.b d1,d0
  6038. bsr.w L00519e
  6039. bra.w L0041c0
  6040. L004656:
  6041. move.b d2,d1
  6042. move.b ($0028,a5),d0
  6043. cmpi.b #$10,d0
  6044. bcs.s L004670
  6045. subi.b #$10,d0
  6046. exg.l d0,d1
  6047. bsr.w L0060ca
  6048. bra.w L0041c0
  6049. L004670:
  6050. addi.b #$b0,d0
  6051. bsr.w L00519e
  6052. moveq.l #$01,d0
  6053. bsr.w L00519e
  6054. move.b d1,d0
  6055. bsr.w L00519e
  6056. bra.w L0041c0
  6057. L004688:
  6058. cmpi.b #$05,d2
  6059. bcc.w L0041c0
  6060. move.b d2,(L006bc2)
  6061. bra.w L0041c0
  6062. L00469a:
  6063. move.b d2,(L006bc3)
  6064. bra.w L0041c0
  6065. L0046a4:
  6066. move.b ($0001,a0),d1
  6067. move.b d1,($0000.w,a5)
  6068. move.b d1,($0001,a5)
  6069. addq.l #3,($0002,a5)
  6070. rts
  6071. L0046b6:
  6072. move.b ($0001,a0),d1
  6073. bmi.w L0041c6
  6074. lsl.w #8,d1
  6075. move.b ($0002,a0),d1
  6076. move.b ($0028,a5),d0
  6077. cmpi.b #$10,d0
  6078. bcs.s L0046dc
  6079. subi.b #$10,d0
  6080. exg.l d0,d1
  6081. bsr.w L006032
  6082. bra.w L0041c0
  6083. L0046dc:
  6084. addi.b #$e0,d0
  6085. bsr.w L00519e
  6086. move.b ($0001,a0),d0
  6087. bsr.w L00519e
  6088. move.b d1,d0
  6089. bsr.w L00519e
  6090. bra.w L0041c0
  6091. L0046f6:
  6092. clr.w d0
  6093. move.b ($0001,a0),d0
  6094. bmi.w L0041c6
  6095. lsl.w #8,d0
  6096. move.b ($0002,a0),d0
  6097. move.w d0,(L007550)
  6098. move.b #$01,(L007a1a)
  6099. bra.w L0041c0
  6100. L004718:
  6101. move.b ($0001,a0),d0
  6102. bmi.w L0041c6
  6103. beq.w L00486c
  6104. cmp.b #$01,d0
  6105. beq.w L0048bc
  6106. cmp.b #$02,d0
  6107. beq.w L0048f4
  6108. cmp.b #$03,d0
  6109. beq.s L004772
  6110. cmp.b #$04,d0
  6111. beq.s L0047a8
  6112. cmp.b #$05,d0
  6113. beq.s L0047c2
  6114. cmp.b #$06,d0
  6115. beq.w L0047fa
  6116. cmp.b #$07,d0
  6117. beq.w L0047fe
  6118. cmp.b #$08,d0
  6119. beq.w L00482e
  6120. cmp.b #$09,d0
  6121. beq.w L00483a
  6122. cmp.b #$0a,d0
  6123. beq.w L00484e
  6124. bra.w L0041c0
  6125. L004772:
  6126. tst.b ($0016,a5)
  6127. beq.s L00477c
  6128. bra.w L0041c0
  6129. L00477c:
  6130. movea.l ($0002,a5),a0
  6131. addq.l #3,a0
  6132. move.l a0,($001a,a5)
  6133. move.b d5,d0
  6134. move.l ($0050,a5),($0002,a5)
  6135. move.b #$01,($0016,a5)
  6136. move.b #$01,($0018,a5)
  6137. move.b #$01,($001e,a5)
  6138. clr.w ($0006,a5)
  6139. bra.w L00414e
  6140. L0047a8:
  6141. move.b #$01,($0020,a5)
  6142. movea.l ($0002,a5),a0
  6143. addq.l #3,a0
  6144. move.l a0,($0022,a5)
  6145. move.b ($0033,a5),($003b,a5)
  6146. bra.w L0041c0
  6147. L0047c2:
  6148. tst.b ($0020,a5)
  6149. beq.w L0041c0
  6150. tst.b ($0026,a5)
  6151. bne.w L0041c0
  6152. move.b #$01,($0026,a5)
  6153. move.b #$01,($0018,a5)
  6154. move.b #$01,($001e,a5)
  6155. movea.l ($0002,a5),a0
  6156. addq.l #3,a0
  6157. move.l a0,($001a,a5)
  6158. movea.l ($0022,a5),a0
  6159. move.l a0,($0002,a5)
  6160. bra.w L00414e
  6161. L0047fa:
  6162. bra.w L0041c0
  6163. L0047fe:
  6164. tst.b ($001e,a5)
  6165. beq.w L0041c0
  6166. movea.l ($001a,a5),a0
  6167. L00480a:
  6168. cmpi.b #$c0,(a0)
  6169. bne.s L004818
  6170. cmpi.b #$06,($0001,a0)
  6171. beq.s L004824
  6172. L004818:
  6173. cmpi.b #$ff,(a0)
  6174. beq.w L0041c6
  6175. addq.l #3,a0
  6176. bra.s L00480a
  6177. L004824:
  6178. addq.l #3,a0
  6179. move.l a0,($0002,a5)
  6180. bra.w L00414e
  6181. L00482e:
  6182. tst.b ($0018,a5)
  6183. beq.w L0041c0
  6184. bra.w L0041c6
  6185. L00483a:
  6186. move.b #$01,($0046,a5)
  6187. movea.l ($0002,a5),a0
  6188. addq.l #3,a0
  6189. move.l a0,($0048,a5)
  6190. bra.w L0041c0
  6191. L00484e:
  6192. tst.b ($0046,a5)
  6193. beq.s L004860
  6194. movea.l ($0048,a5),a0
  6195. move.l a0,($0002,a5)
  6196. bra.w L00414e
  6197. L004860:
  6198. move.b d5,d0
  6199. move.l ($0050,a5),($0002,a5)
  6200. bra.w L00414e
  6201. L00486c:
  6202. move.b ($0002,a0),d0
  6203. bmi.w L0041c6
  6204. move.l a0,($000a,a5)
  6205. addq.l #3,($000a,a5)
  6206. move.b d0,($0012,a5)
  6207. clr.b ($0042,a5)
  6208. clr.b ($0040,a5)
  6209. move.b #$01,($0044,a5)
  6210. move.b ($0033,a5),($003b,a5)
  6211. L004894:
  6212. move.b (a0),d0
  6213. beq.s L0048a6
  6214. bpl.s L0048b0
  6215. cmpi.b #$ff,d0
  6216. beq.w L0041c6
  6217. addq.l #3,a0
  6218. bra.s L004894
  6219. L0048a6:
  6220. move.b ($0033,a5),($003d,a5)
  6221. bra.w L0041c0
  6222. L0048b0:
  6223. add.b ($002d,a5),d0
  6224. move.b d0,($003d,a5)
  6225. bra.w L0041c0
  6226. L0048bc:
  6227. tst.b ($0044,a5)
  6228. beq.w L0041c0
  6229. tst.b ($0040,a5)
  6230. beq.s L0048da
  6231. move.b #$01,($0042,a5)
  6232. move.l a0,($000e,a5)
  6233. addq.l #3,($000e,a5)
  6234. bra.s L0048e0
  6235. L0048da:
  6236. subq.b #1,($0012,a5)
  6237. beq.s L0048ec
  6238. L0048e0:
  6239. movea.l ($000a,a5),a0
  6240. move.l a0,($0002,a5)
  6241. bra.w L00414e
  6242. L0048ec:
  6243. clr.b ($0044,a5)
  6244. bra.w L0041c0
  6245. L0048f4:
  6246. tst.b ($0040,a5)
  6247. beq.s L00491e
  6248. tst.b ($0042,a5)
  6249. beq.s L004914
  6250. clr.b ($0040,a5)
  6251. clr.b ($0042,a5)
  6252. movea.l ($000e,a5),a0
  6253. move.l a0,($0002,a5)
  6254. bra.w L00414e
  6255. L004914:
  6256. move.b #$ff,($0003,a0)
  6257. bra.w L0041c0
  6258. L00491e:
  6259. move.b #$01,($0040,a5)
  6260. bra.w L0041c0
  6261. L004928:
  6262. cmpi.b #$f1,(a0)
  6263. bne.w L0041c0
  6264. L004930:
  6265. move.w #$0001,(L0028e8)
  6266. move.b ($0001,a0),(L0028eb)
  6267. move.b ($0002,a0),(L0028ed)
  6268. bra.w L0041c0
  6269. L00494c:
  6270. movem.l d0-d2/a0-a1,-(sp)
  6271. lea.l (L007828),a0
  6272. lea.l (L007728),a1
  6273. move.w (a0),d1
  6274. cmp.w ($0002,a0),d1
  6275. bne.s L0049ac
  6276. tst.w ($0004,a0)
  6277. beq.s L004974
  6278. move.w (L0049ca),d0
  6279. bsr.w L0066e8
  6280. L004974:
  6281. addq.w #1,(L007a06)
  6282. move.w (L007a06),d0
  6283. cmp.w (L007a0a),d0
  6284. bne.s L004990
  6285. move.w #$0001,(L007a0c)
  6286. L004990:
  6287. tst.w (L0028e8)
  6288. beq.s L0049bc
  6289. move.l (L0028ea),d0
  6290. jsr (L004a4e)
  6291. clr.w (L0028e8)
  6292. bra.s L0049bc
  6293. L0049ac:
  6294. tst.w ($0004,a0)
  6295. beq.s L0049bc
  6296. move.w (L0049cc),d0
  6297. bsr.w L0066e8
  6298. L0049bc:
  6299. subq.w #1,(a0)
  6300. bne.s L0049c4
  6301. move.w ($0002,a0),(a0)
  6302. L0049c4:
  6303. movem.l (sp)+,d0-d2/a0-a1
  6304. rts
  6305. L0049ca:
  6306. .dc.w $0080
  6307. L0049cc:
  6308. .dc.w $0081
  6309. L0049ce:
  6310. move.w #$0014,-(sp)
  6311. bsr.s L0049da
  6312. lea.l ($0002,sp),sp
  6313. rts
  6314. L0049da:
  6315. move.l d0,-(sp)
  6316. move.w ($0008,sp),d0
  6317. mulu.w #$01ed,d0
  6318. L0049e4:
  6319. nop
  6320. subq.l #1,d0
  6321. bne.s L0049e4
  6322. move.l (sp)+,d0
  6323. rts
  6324. L0049ee:
  6325. .dc.l $00eafa00
  6326. L0049f2:
  6327. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  6328. L004a02:
  6329. movem.l d0/a0,-(sp)
  6330. andi.l #$000000ff,d0
  6331. cmpi.b #$30,d0 ;'0'
  6332. bcc.s L004a18
  6333. move.b #$30,d0 ;'0'
  6334. bra.s L004a22
  6335. L004a18:
  6336. cmpi.b #$f1,d0
  6337. bcs.s L004a22
  6338. move.b #$f0,d0
  6339. L004a22:
  6340. move.w d0,(L007834)
  6341. move.b d0,(L007563)
  6342. divu.w #$0018,d0
  6343. move.b d0,(L00755d)
  6344. movea.l (L0049ee),a0
  6345. move.b #$07,($0003,a0)
  6346. move.b d0,($000b,a0)
  6347. movem.l (sp)+,d0/a0
  6348. rts
  6349. L004a4e:
  6350. movem.l d0-d1/a0,-(sp)
  6351. lea.l (L007828),a0
  6352. move.l d0,(L007830)
  6353. move.l d0,d1
  6354. move.w (L007834),d0
  6355. ext.l d0
  6356. andi.w #$001f,d1
  6357. divu.w d1,d0
  6358. move.w d0,(L007836)
  6359. swap.w d1
  6360. mulu.w d1,d0
  6361. move.w d0,(L007838)
  6362. move.w d1,(a0)
  6363. move.w d1,($0002,a0)
  6364. swap.w d1
  6365. moveq.l #$60,d0 ;'`'
  6366. divu.w d1,d0
  6367. move.b d0,(L00755c)
  6368. ori.b #$80,d0
  6369. movea.l (L0049ee),a0
  6370. move.b #$06,($0003,a0)
  6371. move.b d0,($000f,a0)
  6372. bsr.w L005ae8
  6373. movem.l (sp)+,d0-d1/a0
  6374. rts
  6375. L004aae:
  6376. move.w #$0001,(L00782c)
  6377. move.w #$0001,(L00782e)
  6378. rts
  6379. L004ac0:
  6380. clr.w (L00782c)
  6381. clr.w (L00782e)
  6382. rts
  6383. L004ace:
  6384. movem.l d0/a0,-(sp)
  6385. move.b (L007554),d0
  6386. bclr.l #$02,d0
  6387. movea.l (L0049ee),a0
  6388. move.b #$01,($0003,a0)
  6389. move.b d0,($0009,a0)
  6390. move.b d0,(L007554)
  6391. movem.l (sp)+,d0/a0
  6392. rts
  6393. L004af8:
  6394. movem.l d0/a0,-(sp)
  6395. move.b (L007554),d0
  6396. bset.l #$02,d0
  6397. movea.l (L0049ee),a0
  6398. move.b #$01,($0003,a0)
  6399. move.b d0,($0009,a0)
  6400. move.b d0,(L007554)
  6401. movem.l (sp)+,d0/a0
  6402. rts
  6403. L004b22:
  6404. movem.l d0-d2/a0,-(sp)
  6405. tst.b (L0074c8)
  6406. bne.s L004b74
  6407. clr.l (L007578)
  6408. clr.b (L00757c)
  6409. move.b #$02,(L007564)
  6410. move.b (L00755c),d0
  6411. addq.b #1,d0
  6412. movea.l (L0049ee),a0
  6413. move.b #$06,($0003,a0)
  6414. move.b d0,($000f,a0)
  6415. move.b (L007555),d0
  6416. andi.b #$f8,d0
  6417. ori.b #$02,d0
  6418. move.b #$01,($0003,a0)
  6419. move.b d0,($000b,a0)
  6420. bra.s L004b86
  6421. L004b74:
  6422. clr.l (L00580c)
  6423. move.b #$14,d1
  6424. move.b #$15,d2
  6425. bsr.w L0064ae
  6426. L004b86:
  6427. movem.l (sp)+,d0-d2/a0
  6428. rts
  6429. L004b8c:
  6430. movem.l d0-d2/a0,-(sp)
  6431. tst.b (L0074c8)
  6432. bne.s L004bb8
  6433. move.b (L007555),d0
  6434. andi.b #$f8,d0
  6435. ori.b #$04,d0
  6436. movea.l (L0049ee),a0
  6437. move.b #$01,($0003,a0)
  6438. move.b d0,($000b,a0)
  6439. bra.s L004bc4
  6440. L004bb8:
  6441. move.b #$14,d1
  6442. move.b #$04,d2
  6443. bsr.w L0064ae
  6444. L004bc4:
  6445. movem.l (sp)+,d0-d2/a0
  6446. rts
  6447. L004bca:
  6448. movem.l d0-d2/a0,-(sp)
  6449. tst.b (L0074c8)
  6450. bne.s L004bf6
  6451. move.b (L007555),d0
  6452. andi.b #$f8,d0
  6453. ori.b #$03,d0
  6454. movea.l (L0049ee),a0
  6455. move.b #$01,($0003,a0)
  6456. move.b d0,($000b,a0)
  6457. bra.s L004c02
  6458. L004bf6:
  6459. move.b #$14,d1
  6460. move.b #$15,d2
  6461. bsr.w L0064ae
  6462. L004c02:
  6463. movem.l (sp)+,d0-d2/a0
  6464. rts
  6465. L004c08:
  6466. movem.l d0/a0,-(sp)
  6467. clr.l (L00d9f0)
  6468. movea.l (L0049ee),a0
  6469. move.b (L007553),d0
  6470. ori.b #$28,d0
  6471. move.b d0,(L007553)
  6472. move.b #$00,($0003,a0)
  6473. move.b d0,($000d,a0)
  6474. move.b (L007557),d0
  6475. ori.b #$81,d0
  6476. move.b #$03,($0003,a0)
  6477. move.b d0,($000b,a0)
  6478. and.b #$7f,d0
  6479. move.b d0,(L007557)
  6480. move.b (L007555),d0
  6481. ori.b #$08,d0
  6482. move.b d0,(L007555)
  6483. movem.l (sp)+,d0/a0
  6484. rts
  6485. L004c66:
  6486. movem.l d0/a0,-(sp)
  6487. movea.l (L0049ee),a0
  6488. move.b (L007553),d0
  6489. andi.b #$d7,d0
  6490. move.b d0,(L007553)
  6491. move.b #$00,($0003,a0)
  6492. move.b d0,($000d,a0)
  6493. move.b (L007557),d0
  6494. and.b #$7e,d0
  6495. move.b #$03,($0003,a0)
  6496. move.b d0,($000b,a0)
  6497. move.b d0,(L007557)
  6498. move.b (L007555),d0
  6499. andi.b #$f7,d0
  6500. move.b d0,(L007555)
  6501. movem.l (sp)+,d0/a0
  6502. rts
  6503. L004cba:
  6504. movem.l d0-d1/a0,-(sp)
  6505. move.b (L007554),d1
  6506. ext.w d0
  6507. move.w d0,(L007572)
  6508. bne.s L004cd8
  6509. andi.b #$f4,d1
  6510. ori.b #$03,d1
  6511. bra.s L004cee
  6512. L004cd8:
  6513. subq.w #1,d0
  6514. bne.s L004ce6
  6515. andi.b #$f4,d1
  6516. ori.b #$09,d1
  6517. bra.s L004cee
  6518. L004ce6:
  6519. andi.b #$f4,d1
  6520. ori.b #$02,d1
  6521. L004cee:
  6522. movea.l (L0049ee),a0
  6523. move.b #$01,($0003,a0)
  6524. move.b d1,($0009,a0)
  6525. move.b d1,(L007554)
  6526. movem.l (sp)+,d0-d1/a0
  6527. rts
  6528. L004d0a:
  6529. movem.l d0/a0,-(sp)
  6530. clr.w d0
  6531. bsr.s L004cba
  6532. move.b (L007553),d0
  6533. andi.b #$fe,d0
  6534. movea.l (L0049ee),a0
  6535. move.b #$00,($0003,a0)
  6536. move.b d0,($000d,a0)
  6537. movem.l (sp)+,d0/a0
  6538. rts
  6539. L004d32:
  6540. movem.l d0/a0,-(sp)
  6541. movea.l (L0049ee),a0
  6542. move.w #$0001,d0
  6543. bsr.w L004cba
  6544. move.b (L007557),d0
  6545. ori.b #$01,d0
  6546. move.b #$03,($0003,a0)
  6547. move.b d0,($000b,a0)
  6548. move.b (L007553),d0
  6549. ori.b #$01,d0
  6550. move.b #$00,($0003,a0)
  6551. move.b d0,($000d,a0)
  6552. movem.l (sp)+,d0/a0
  6553. rts
  6554. L004d72:
  6555. movem.l d0,-(sp)
  6556. move.w #$0002,d0
  6557. bsr.w L004cba
  6558. movem.l (sp)+,d0
  6559. rts
  6560. L004d84:
  6561. movem.l d0-d1/a0,-(sp)
  6562. andi.l #$000001ff,d0
  6563. cmpi.w #$0014,d0
  6564. bcc.s L004d98
  6565. move.w #$0014,d0
  6566. L004d98:
  6567. cmpi.w #$012d,d0
  6568. bcs.s L004da2
  6569. move.w #$012c,d0
  6570. L004da2:
  6571. move.w d0,(L007550)
  6572. tst.b (L0074c8)
  6573. bne.s L004dde
  6574. move.l #$03938700,d1
  6575. mulu.w #$0018,d0
  6576. lsl.l #3,d0
  6577. divu.w d0,d1
  6578. andi.l #$00003fff,d1
  6579. movea.l (L0049ee),a0
  6580. move.w d1,d0
  6581. move.b #$08,($0003,a0)
  6582. move.b d0,($000d,a0)
  6583. lsr.w #8,d0
  6584. move.b d0,($000f,a0)
  6585. bra.s L004e04
  6586. L004dde:
  6587. move.l #$00004c4b,d1
  6588. divu.w d0,d1
  6589. and.w #$03ff,d1
  6590. move.w #$0400,d0
  6591. sub.w d1,d0
  6592. move.w d0,d1
  6593. lsr.w #2,d1
  6594. and.w #$0003,d0
  6595. move.b d1,(L004e0a)
  6596. move.b d0,(L004e0b)
  6597. L004e04:
  6598. movem.l (sp)+,d0-d1/a0
  6599. rts
  6600. L004e0a:
  6601. .dc.b $00
  6602. L004e0b:
  6603. .dc.b $00
  6604. L004e0c:
  6605. link.w a6,#$0000
  6606. movem.l d0-d1/a0,-(sp)
  6607. movea.l (L0049ee),a0
  6608. move.b ($000c,a6),d0
  6609. cmpi.b #$10,d0
  6610. bcs.s L004e42
  6611. subi.b #$10,d0
  6612. move.b d0,d1
  6613. move.b ($0008,a6),d0
  6614. swap.w d0
  6615. move.b ($000a,a6),d0
  6616. jsr (L005e04)
  6617. movem.l (sp)+,d0-d1/a0
  6618. unlk a6
  6619. rts
  6620. L004e42:
  6621. addi.b #$90,d0
  6622. L004e46:
  6623. move.b #$05,($0003,a0)
  6624. btst.b #$06,($0009,a0)
  6625. beq.s L004e46
  6626. move.b d0,($000d,a0)
  6627. L004e58:
  6628. move.b #$05,($0003,a0)
  6629. btst.b #$06,($0009,a0)
  6630. beq.s L004e58
  6631. move.b ($000a,a6),($000d,a0)
  6632. L004e6c:
  6633. move.b #$05,($0003,a0)
  6634. btst.b #$06,($0009,a0)
  6635. beq.s L004e6c
  6636. move.b ($0008,a6),($000d,a0)
  6637. movem.l (sp)+,d0-d1/a0
  6638. unlk a6
  6639. rts
  6640. L004e88:
  6641. link.w a6,#$0000
  6642. movem.l d0-d1/a0,-(sp)
  6643. movea.l (L0049ee),a0
  6644. move.b ($000c,a6),d0
  6645. cmpi.b #$10,d0
  6646. bcs.s L004eb4
  6647. subi.b #$10,d0
  6648. move.b d0,d1
  6649. jsr (L005de0)
  6650. movem.l (sp)+,d0-d1/a0
  6651. unlk a6
  6652. rts
  6653. L004eb4:
  6654. addi.b #$80,d0
  6655. L004eb8:
  6656. move.b #$05,($0003,a0)
  6657. btst.b #$06,($0009,a0)
  6658. beq.s L004eb8
  6659. move.b d0,($000d,a0)
  6660. L004eca:
  6661. move.b #$05,($0003,a0)
  6662. btst.b #$06,($0009,a0)
  6663. beq.s L004eca
  6664. move.b ($000a,a6),($000d,a0)
  6665. L004ede:
  6666. move.b #$05,($0003,a0)
  6667. btst.b #$06,($0009,a0)
  6668. beq.s L004ede
  6669. move.b ($0008,a6),($000d,a0)
  6670. movem.l (sp)+,d0-d1/a0
  6671. unlk a6
  6672. rts
  6673. L004efa:
  6674. link.w a6,#$0000
  6675. movem.l d0-d2/a0,-(sp)
  6676. moveq.l #$7b,d2 ;'{'
  6677. lea.l (L005de0),a0
  6678. bra.s L004f2e
  6679. L004f0c:
  6680. link.w a6,#$0000
  6681. movem.l d0-d2/a0,-(sp)
  6682. moveq.l #$01,d2
  6683. lea.l (L0060ca),a0
  6684. bra.s L004f2e
  6685. L004f1e:
  6686. link.w a6,#$0000
  6687. movem.l d0-d2/a0,-(sp)
  6688. moveq.l #$40,d2 ;'@'
  6689. lea.l (L006002),a0
  6690. L004f2e:
  6691. moveq.l #$17,d1
  6692. move.w ($0008,a6),d0
  6693. beq.s L004f3e
  6694. bmi.s L004f3e
  6695. subq.w #1,d0
  6696. bsr.s L004f4e
  6697. bra.s L004f46
  6698. L004f3e:
  6699. move.w d1,d0
  6700. bsr.s L004f4e
  6701. dbra.w d1,L004f3e
  6702. L004f46:
  6703. movem.l (sp)+,d0-d2/a0
  6704. unlk a6
  6705. rts
  6706. L004f4e:
  6707. cmpi.b #$10,d0
  6708. bcs.s L004f64
  6709. subi.b #$10,d0
  6710. move.w d1,-(sp)
  6711. move.w d0,d1
  6712. clr.w d0
  6713. jsr (a0)
  6714. move.w (sp)+,d1
  6715. rts
  6716. L004f64:
  6717. add.b #$b0,d0
  6718. bsr.w L00519e
  6719. move.b d2,d0
  6720. bsr.w L00519e
  6721. clr.b d0
  6722. bsr.w L00519e
  6723. rts
  6724. L004f7a:
  6725. link.w a6,#$0000
  6726. movem.l d0-d1,-(sp)
  6727. move.w #$0017,d1
  6728. move.w ($0008,a6),d0
  6729. beq.s L004f94
  6730. bmi.s L004f94
  6731. subq.w #1,d0
  6732. bsr.s L004fa4
  6733. bra.s L004f9c
  6734. L004f94:
  6735. move.w d1,d0
  6736. bsr.s L004fa4
  6737. dbra.w d1,L004f94
  6738. L004f9c:
  6739. movem.l (sp)+,d0-d1
  6740. unlk a6
  6741. rts
  6742. L004fa4:
  6743. cmpi.b #$10,d0
  6744. bcs.s L004fc0
  6745. subi.b #$10,d0
  6746. move.w d1,-(sp)
  6747. exg.l d0,d1
  6748. move.w #$0040,d0 ;'@'
  6749. jsr (L006032)
  6750. move.w (sp)+,d1
  6751. rts
  6752. L004fc0:
  6753. add.b #$e0,d0
  6754. bsr.w L00519e
  6755. clr.b d0
  6756. bsr.w L00519e
  6757. move.b #$40,d0 ;'@'
  6758. bsr.w L00519e
  6759. rts
  6760. L004fd8:
  6761. link.w a6,#$0000
  6762. movem.l d0-d1,-(sp)
  6763. move.b ($000a,a6),d0
  6764. cmpi.b #$10,d0
  6765. bcs.s L005002
  6766. subi.b #$10,d0
  6767. move.b d0,d1
  6768. move.b ($0008,a6),d0
  6769. jsr (L005f76)
  6770. movem.l (sp)+,d0-d1
  6771. unlk a6
  6772. rts
  6773. L005002:
  6774. addi.b #$b0,d0
  6775. bsr.w L00519e
  6776. move.b #$07,d0
  6777. bsr.w L00519e
  6778. move.b ($0008,a6),d0
  6779. bsr.w L00519e
  6780. movem.l (sp)+,d0-d1
  6781. unlk a6
  6782. rts
  6783. L005022:
  6784. link.w a6,#$0000
  6785. movem.l d0-d1,-(sp)
  6786. move.b ($000a,a6),d0
  6787. cmpi.b #$10,d0
  6788. bcs.s L00504c
  6789. subi.b #$10,d0
  6790. move.b d0,d1
  6791. move.b ($0008,a6),d0
  6792. jsr (L005fb0)
  6793. movem.l (sp)+,d0-d1
  6794. unlk a6
  6795. rts
  6796. L00504c:
  6797. addi.b #$b0,d0
  6798. bsr.w L00519e
  6799. move.b #$0a,d0
  6800. bsr.w L00519e
  6801. move.b ($0008,a6),d0
  6802. bsr.w L00519e
  6803. movem.l (sp)+,d0-d1
  6804. unlk a6
  6805. rts
  6806. L00506c:
  6807. link.w a6,#$0000
  6808. movem.l d0-d1,-(sp)
  6809. move.b ($000a,a6),d0
  6810. cmpi.b #$10,d0
  6811. bcs.s L005086
  6812. movem.l (sp)+,d0-d1
  6813. unlk a6
  6814. rts
  6815. L005086:
  6816. addi.b #$d0,d0
  6817. bsr.w L00519e
  6818. move.b ($0008,a6),d0
  6819. bsr.w L00519e
  6820. movem.l (sp)+,d0-d1
  6821. unlk a6
  6822. rts
  6823. L00509e:
  6824. link.w a6,#$0000
  6825. movem.l d0-d1,-(sp)
  6826. move.b ($000a,a6),d0
  6827. cmpi.b #$10,d0
  6828. bcs.s L0050c8
  6829. subi.b #$10,d0
  6830. move.b d0,d1
  6831. move.b ($0008,a6),d0
  6832. jsr (L0061b4)
  6833. movem.l (sp)+,d0-d1
  6834. unlk a6
  6835. rts
  6836. L0050c8:
  6837. move.b ($0008,a6),d1
  6838. bmi.s L0050e4
  6839. addi.b #$c0,d0
  6840. bsr.w L00519e
  6841. move.b d1,d0
  6842. bsr.w L00519e
  6843. movem.l (sp)+,d0-d1
  6844. unlk a6
  6845. rts
  6846. L0050e4:
  6847. addi.b #$b0,d0
  6848. bsr.w L00519e
  6849. clr.b d0
  6850. bsr.w L00519e
  6851. moveq.l #$01,d0
  6852. bsr.w L00519e
  6853. move.b ($000a,a6),d0
  6854. addi.b #$c0,d0
  6855. bsr.w L00519e
  6856. move.b d1,d0
  6857. andi.b #$7f,d0
  6858. bsr.w L00519e
  6859. movem.l (sp)+,d0-d1
  6860. unlk a6
  6861. rts
  6862. L005116:
  6863. link.w a6,#$0000
  6864. movem.l d0-d1,-(sp)
  6865. move.b ($000a,a6),d0
  6866. cmpi.b #$10,d0
  6867. bcs.s L005140
  6868. subi.b #$10,d0
  6869. move.b d0,d1
  6870. move.w ($0008,a6),d0
  6871. jsr (L006032)
  6872. movem.l (sp)+,d0-d1
  6873. unlk a6
  6874. rts
  6875. L005140:
  6876. addi.b #$e0,d0
  6877. bsr.s L00519e
  6878. move.b ($0008,a6),d0
  6879. bsr.s L00519e
  6880. move.b ($0009,a6),d0
  6881. bsr.s L00519e
  6882. movem.l (sp)+,d0-d1
  6883. unlk a6
  6884. rts
  6885. L00515a:
  6886. link.w a6,#$0000
  6887. movem.l d0-d1,-(sp)
  6888. move.b ($000a,a6),d0
  6889. cmpi.b #$10,d0
  6890. bcs.s L005184
  6891. subi.b #$10,d0
  6892. move.b d0,d1
  6893. move.b ($0008,a6),d0
  6894. jsr (L0060ca)
  6895. movem.l (sp)+,d0-d1
  6896. unlk a6
  6897. rts
  6898. L005184:
  6899. move.b ($0008,a6),d1
  6900. addi.b #$b0,d0
  6901. bsr.s L00519e
  6902. moveq.l #$01,d0
  6903. bsr.s L00519e
  6904. move.b d1,d0
  6905. bsr.s L00519e
  6906. movem.l (sp)+,d0-d1
  6907. unlk a6
  6908. rts
  6909. L00519e:
  6910. tst.b (L0074c8)
  6911. bne.s L0051d8
  6912. tst.b d0
  6913. bpl.s L0051b8
  6914. cmp.b (L0051da),d0
  6915. beq.s L0051d8
  6916. move.b d0,(L0051da)
  6917. L0051b8:
  6918. move.b #$05,($00eafa03)
  6919. btst.b #$06,($00eafa09)
  6920. beq.s L0051b8
  6921. move.b #$05,($00eafa03)
  6922. move.b d0,($00eafa0d)
  6923. L0051d8:
  6924. rts
  6925. L0051da:
  6926. .dc.w $0000
  6927. L0051dc:
  6928. movem.l d0/a0,-(sp)
  6929. movea.l (L0049ee),a0
  6930. move.b (L00755c),d0
  6931. ori.b #$80,d0
  6932. move.b #$06,($0003,a0)
  6933. move.b d0,($000f,a0)
  6934. movem.l (sp)+,d0/a0
  6935. rts
  6936. L005200:
  6937. movem.l d0/a0,-(sp)
  6938. movea.l (L0049ee),a0
  6939. move.b (L00755b),d0
  6940. ori.b #$01,d0
  6941. move.b #$06,($0003,a0)
  6942. move.b d0,($000d,a0)
  6943. movem.l (sp)+,d0/a0
  6944. rts
  6945. L005224:
  6946. movem.l d0/a0,-(sp)
  6947. movea.l (L0049ee),a0
  6948. move.b (L00755b),d0
  6949. andi.b #$fe,d0
  6950. move.b #$06,($0003,a0)
  6951. move.b d0,($000d,a0)
  6952. movem.l (sp)+,d0/a0
  6953. rts
  6954. L005248:
  6955. movem.l d0/a0,-(sp)
  6956. movea.l (L0049ee),a0
  6957. bsr.w L005afa
  6958. andi.w #$7fff,d0
  6959. move.b #$07,($0003,a0)
  6960. move.b d0,($000d,a0)
  6961. bsr.w L005afa
  6962. lsr.w #8,d0
  6963. move.b d0,($000f,a0)
  6964. bsr.w L005ae8
  6965. move.b (L00755d),d0
  6966. ori.b #$30,d0
  6967. move.b d0,($000b,a0)
  6968. bsr.w L005afa
  6969. movem.l (sp)+,d0/a0
  6970. rts
  6971. L00528a:
  6972. movem.l d0/a0,-(sp)
  6973. movea.l (L0049ee),a0
  6974. andi.w #$7fff,d0
  6975. move.b #$07,($0003,a0)
  6976. move.b d0,($000d,a0)
  6977. bsr.w L005afa
  6978. lsr.w #8,d0
  6979. move.b d0,($000f,a0)
  6980. bsr.w L005ae8
  6981. move.b (L00755d),d0
  6982. ori.b #$20,d0
  6983. move.b d0,($000b,a0)
  6984. movem.l (sp)+,d0/a0
  6985. rts
  6986. L0052c4:
  6987. movem.l d0/a0,-(sp)
  6988. bsr.w L005afa
  6989. move.b (L00755d),d0
  6990. ori.b #$10,d0
  6991. movea.l (L0049ee),a0
  6992. move.b #$07,($0003,a0)
  6993. move.b d0,($000b,a0)
  6994. bsr.w L005afa
  6995. movem.l (sp)+,d0/a0
  6996. rts
  6997. L0052f0:
  6998. movem.l d1/a0,-(sp)
  6999. movea.l (L0049ee),a0
  7000. clr.w d1
  7001. swap.w d0
  7002. move.b #$05,($0003,a0)
  7003. L005304:
  7004. move.b ($0009,a0),d0
  7005. btst.l #$06,d0
  7006. bne.s L005322
  7007. addq.w #1,d1
  7008. cmpi.w #$03e8,d1
  7009. bcs.s L005304
  7010. move.b #$05,($0003,a0)
  7011. move.b #$81,($000b,a0)
  7012. L005322:
  7013. swap.w d0
  7014. move.b #$05,($0003,a0)
  7015. move.b d0,($000d,a0)
  7016. movem.l (sp)+,d1/a0
  7017. rts
  7018. L005334:
  7019. move.b (L007552),d0
  7020. andi.b #$f7,d0
  7021. bra.s L005362
  7022. L005340:
  7023. move.b (L007552),d0
  7024. ori.b #$08,d0
  7025. bra.s L005362
  7026. L00534c:
  7027. move.b (L007552),d0
  7028. andi.b #$fb,d0
  7029. bra.s L005362
  7030. L005358:
  7031. move.b (L007552),d0
  7032. ori.b #$04,d0
  7033. L005362:
  7034. move.l a0,-(sp)
  7035. movea.l (L0049ee),a0
  7036. move.b #$00,($0003,a0)
  7037. move.b d0,($000b,a0)
  7038. move.b d0,(L007552)
  7039. move.b #$12,($0007,a0)
  7040. movea.l (sp)+,a0
  7041. rts
  7042. L005384:
  7043. movem.l d0/a0,-(sp)
  7044. move.b (L007554),d0
  7045. ori.b #$10,d0
  7046. bra.s L0053e2
  7047. L005394:
  7048. movem.l d0/a0,-(sp)
  7049. move.b (L007554),d0
  7050. andi.b #$ef,d0
  7051. bra.s L0053e2
  7052. L0053a4:
  7053. movem.l d0/a0,-(sp)
  7054. move.b (L007554),d0
  7055. ori.b #$08,d0
  7056. bra.s L0053e2
  7057. L0053b4:
  7058. movem.l d0/a0,-(sp)
  7059. move.b (L007554),d0
  7060. andi.b #$f7,d0
  7061. bra.s L0053e2
  7062. L0053c4:
  7063. movem.l d0/a0,-(sp)
  7064. move.b (L007554),d0
  7065. ori.b #$20,d0
  7066. bra.s L0053e2
  7067. L0053d4:
  7068. movem.l d0/a0,-(sp)
  7069. move.b (L007554),d0
  7070. andi.b #$df,d0
  7071. L0053e2:
  7072. movea.l (L0049ee),a0
  7073. move.b #$01,($0003,a0)
  7074. move.b d0,($0009,a0)
  7075. move.b d0,(L007554)
  7076. movem.l (sp)+,d0/a0
  7077. rts
  7078. L0053fe:
  7079. movem.l d0-d1/a0,-(sp)
  7080. movea.l (L0049ee),a0
  7081. move.b #$05,($0003,a0)
  7082. L00540e:
  7083. move.b ($0009,a0),d1
  7084. btst.l #$00,d1
  7085. bne.s L00540e
  7086. move.b #$04,($0003,a0)
  7087. move.b d0,($0009,a0)
  7088. move.b d0,(L007558)
  7089. lsr.w #8,d0
  7090. move.b d0,($000b,a0)
  7091. movem.l (sp)+,d0-d1/a0
  7092. rts
  7093. L005434:
  7094. movem.l d0-d1/a0,-(sp)
  7095. movea.l (L0049ee),a0
  7096. move.b #$03,($0003,a0)
  7097. L005444:
  7098. move.b ($0009,a0),d1
  7099. btst.l #$00,d1
  7100. bne.s L005444
  7101. move.b #$02,($0003,a0)
  7102. move.b d0,($0009,a0)
  7103. move.b d0,(L007556)
  7104. lsr.w #8,d0
  7105. move.b d0,($000b,a0)
  7106. movem.l (sp)+,d0-d1/a0
  7107. rts
  7108. L00546a:
  7109. move.l d0,-(sp)
  7110. move.b (L007557),d0
  7111. ori.b #$80,d0
  7112. bra.s L0054d8
  7113. L005478:
  7114. move.l d0,-(sp)
  7115. move.b (L007557),d0
  7116. ori.b #$40,d0
  7117. bra.s L0054d8
  7118. L005486:
  7119. move.l d0,-(sp)
  7120. move.b (L007557),d0
  7121. ori.b #$10,d0
  7122. bra.s L0054d8
  7123. L005494:
  7124. move.l d0,-(sp)
  7125. move.b (L007557),d0
  7126. andi.b #$ef,d0
  7127. bra.s L0054d8
  7128. L0054a2:
  7129. move.l d0,-(sp)
  7130. move.b (L007557),d0
  7131. ori.b #$02,d0
  7132. bra.s L0054d8
  7133. L0054b0:
  7134. move.l d0,-(sp)
  7135. move.b (L007557),d0
  7136. andi.b #$fd,d0
  7137. bra.s L0054d8
  7138. L0054be:
  7139. move.l d0,-(sp)
  7140. move.b (L007557),d0
  7141. ori.b #$01,d0
  7142. bra.s L0054d8
  7143. L0054cc:
  7144. move.l d0,-(sp)
  7145. move.b (L007557),d0
  7146. andi.b #$fe,d0
  7147. L0054d8:
  7148. move.l a0,-(sp)
  7149. movea.l (L0049ee),a0
  7150. move.b #$03,($0003,a0)
  7151. move.b d0,($000b,a0)
  7152. movea.l (sp)+,a0
  7153. move.l (sp)+,d0
  7154. rts
  7155. L0054f0:
  7156. movem.l d0/a0,-(sp)
  7157. move.b (L007559),d0
  7158. ori.b #$80,d0
  7159. bra.s L005532
  7160. L005500:
  7161. movem.l d0/a0,-(sp)
  7162. move.b (L007559),d0
  7163. ori.b #$01,d0
  7164. bra.s L005532
  7165. L005510:
  7166. movem.l d0/a0,-(sp)
  7167. move.b (L007559),d0
  7168. andi.b #$fe,d0
  7169. bra.s L005532
  7170. L005520:
  7171. movem.l d0/a0,-(sp)
  7172. move.b (L007559),d0
  7173. ori.b #$08,d0
  7174. bra.w L005532
  7175. L005532:
  7176. movea.l (L0049ee),a0
  7177. move.b #$05,($0003,a0)
  7178. move.b d0,($000b,a0)
  7179. movem.l (sp)+,d0/a0
  7180. rts
  7181. L005548:
  7182. movem.l d0/a0,-(sp)
  7183. move.w #$0001,(L00756c)
  7184. move.b (L007558),d0
  7185. bset.l #$06,d0
  7186. bra.s L005574
  7187. L005560:
  7188. movem.l d0/a0,-(sp)
  7189. clr.w (L00756c)
  7190. move.b (L007558),d0
  7191. bclr.l #$06,d0
  7192. L005574:
  7193. movea.l (L0049ee),a0
  7194. move.b #$04,($0003,a0)
  7195. move.b d0,($0009,a0)
  7196. move.b d0,(L007558)
  7197. movem.l (sp)+,d0/a0
  7198. rts
  7199. L005590:
  7200. movem.l d0/a0,-(sp)
  7201. move.b (L00755a),d0
  7202. bset.l #$07,d0
  7203. bra.s L0055ae
  7204. L0055a0:
  7205. movem.l d0/a0,-(sp)
  7206. move.b (L00755a),d0
  7207. bclr.l #$07,d0
  7208. L0055ae:
  7209. movea.l (L0049ee),a0
  7210. move.b #$06,($0003,a0)
  7211. move.b d0,($000b,a0)
  7212. move.b d0,(L00755a)
  7213. movem.l (sp)+,d0/a0
  7214. rts
  7215. L0055ca:
  7216. movem.l d0/a0,-(sp)
  7217. movea.l (L0049ee),a0
  7218. move.b #$01,($0003,a0)
  7219. move.b d0,($000b,a0)
  7220. andi.b #$0f,d0
  7221. cmpi.b #$0a,d0
  7222. bne.s L0055ee
  7223. clr.l (L007578)
  7224. L0055ee:
  7225. movem.l (sp)+,d0/a0
  7226. rts
  7227. L0055f4:
  7228. movem.l d0/a0,-(sp)
  7229. movea.l (L0049ee),a0
  7230. move.b #$02,($0003,a0)
  7231. move.b d0,($000d,a0)
  7232. lsr.w #8,d0
  7233. move.b d0,($000f,a0)
  7234. movem.l (sp)+,d0/a0
  7235. rts
  7236. L005614:
  7237. movem.l d0/a0,-(sp)
  7238. movea.l (L0049ee),a0
  7239. move.b (L00755c),d0
  7240. move.b #$06,($0003,a0)
  7241. move.b d0,($000f,a0)
  7242. movem.l (sp)+,d0/a0
  7243. rts
  7244. L005634:
  7245. movem.l d0/a0,-(sp)
  7246. movea.l (L0049ee),a0
  7247. andi.w #$3fff,d0
  7248. ori.w #$8000,d0
  7249. move.b #$08,($0003,a0)
  7250. move.b d0,($0009,a0)
  7251. lsr.w #8,d0
  7252. move.b d0,($000b,a0)
  7253. movem.l (sp)+,d0/a0
  7254. rts
  7255. L00565c:
  7256. movem.l d0-d1/a0,-(sp)
  7257. movea.l (L0049ee),a0
  7258. clr.l d1
  7259. move.b d0,d1
  7260. move.b (L007553),d0
  7261. bset.l d1,d0
  7262. bsr.s L0056a8
  7263. clr.w d0
  7264. bset.l d1,d0
  7265. move.b d0,($0007,a0)
  7266. movem.l (sp)+,d0-d1/a0
  7267. rts
  7268. L005682:
  7269. movem.l d0-d1/a0,-(sp)
  7270. movea.l (L0049ee),a0
  7271. clr.l d1
  7272. move.b d0,d1
  7273. move.b (L007553),d0
  7274. bclr.l d1,d0
  7275. bsr.s L0056a8
  7276. clr.w d0
  7277. bset.l d1,d0
  7278. move.b d0,($0007,a0)
  7279. movem.l (sp)+,d0-d1/a0
  7280. rts
  7281. L0056a8:
  7282. move.l a0,-(sp)
  7283. movea.l (L0049ee),a0
  7284. move.b #$00,($0003,a0)
  7285. move.b d0,($000d,a0)
  7286. move.b d0,(L007553)
  7287. movea.l (sp)+,a0
  7288. rts
  7289. L0056c4:
  7290. movem.l d0/a0,-(sp)
  7291. movea.l (L0049ee),a0
  7292. move.b #$ff,d0
  7293. move.b d0,($0007,a0)
  7294. movem.l (sp)+,d0/a0
  7295. rts
  7296. L0056dc:
  7297. move.b #$01,($00eafa07)
  7298. move.l d1,-(sp)
  7299. move.b #$01,($00eafa03)
  7300. move.b ($00eafa0d),d1
  7301. move.b #$01,($00eafa0f)
  7302. cmpi.b #$fa,d1
  7303. bne.s L005710
  7304. bsr.w L004b22
  7305. move.w #$0001,(L007a30)
  7306. bra.s L005726
  7307. L005710:
  7308. cmpi.b #$fc,d1
  7309. bne.s L00571c
  7310. bsr.w L001cb6
  7311. bra.s L005726
  7312. L00571c:
  7313. cmpi.b #$fb,d1
  7314. bne.s L005726
  7315. bsr.w L004bca
  7316. L005726:
  7317. move.l (sp)+,d1
  7318. rte
  7319. L00572a:
  7320. movem.l d0-d1,-(sp)
  7321. move.b (L007564),d1
  7322. beq.s L005758
  7323. subq.b #1,d1
  7324. bne.s L005752
  7325. move.b (L00755c),d0
  7326. ori.b #$80,d0
  7327. move.b #$06,($00eafa03)
  7328. move.b d0,($00eafa0f)
  7329. L005752:
  7330. move.b d1,(L007564)
  7331. L005758:
  7332. jsr (L00494c)
  7333. move.b #$02,($00eafa07)
  7334. movem.l (sp)+,d0-d1
  7335. rte
  7336. L00576c:
  7337. movem.l d1-d2,-(sp)
  7338. move.b #$14,d1
  7339. move.b #$15,d2
  7340. bsr.w L0064ae
  7341. move.b #$10,d1
  7342. move.b (L004e0a),d2
  7343. bsr.w L0064ae
  7344. move.b #$11,d1
  7345. move.b (L004e0b),d2
  7346. bsr.w L0064ae
  7347. subq.b #1,(L00580c)
  7348. bpl.s L005806
  7349. move.b #$03,(L00580c)
  7350. subq.b #1,(L00580e)
  7351. bpl.s L0057bc
  7352. move.b #$2f,(L00580e) ;'/'
  7353. bsr.w L00494c
  7354. L0057bc:
  7355. bsr.w L0040a4
  7356. tst.w (L007a0c)
  7357. beq.s L005806
  7358. jsr (L004b8c)
  7359. clr.w (L007a30)
  7360. clr.w (L007a0c)
  7361. move.w #$7fff,(L007a0a)
  7362. movem.l d1/a5,-(sp)
  7363. lea.l (L00c616),a5
  7364. move.b #$18,d1
  7365. L0057f0:
  7366. bsr.w L00431a
  7367. bsr.w L00406a
  7368. adda.l #$00000054,a5
  7369. subq.b #1,d1
  7370. bne.s L0057f0
  7371. movem.l (sp)+,d1/a5
  7372. L005806:
  7373. movem.l (sp)+,d1-d2
  7374. rte
  7375. L00580c:
  7376. .dc.w $0000
  7377. L00580e:
  7378. ori.w #$0500,sr
  7379. movem.l d0,-(sp)
  7380. bsr.w L0040a4
  7381. move.w (L007566),d0
  7382. move.b #$07,($00eafa03)
  7383. move.b d0,($00eafa0d)
  7384. bsr.w L005afa
  7385. lsr.w #8,d0
  7386. move.b #$07,($00eafa03)
  7387. move.b d0,($00eafa0f)
  7388. bsr.w L005afa
  7389. move.b (L00755d),d0
  7390. ori.b #$20,d0
  7391. move.b #$07,($00eafa03)
  7392. move.b d0,($00eafa0b)
  7393. bsr.w $00005af2
  7394. move.b #$04,($00eafa07)
  7395. tst.w (L007a0c)
  7396. beq.s $000058b0
  7397. jsr (L004b8c)
  7398. clr.w (L007a30)
  7399. clr.w (L007a0c)
  7400. move.w #$7fff,(L007a0a)
  7401. movem.l d1/a5,-(sp)
  7402. lea.l (L00c616),a5
  7403. move.w #$0018,d1
  7404. bsr.w L00431a
  7405. bsr.w L00406a
  7406. adda.l #$00000054,a5
  7407. dbra.w d1,$0000589a
  7408. movem.l (sp)+,d1/a5
  7409. movem.l (sp)+,d0
  7410. rte
  7411. L0058b6:
  7412. move.b #$08,($00eafa07)
  7413. addq.l #1,(L007578)
  7414. rte
  7415. L0058c6:
  7416. move.b #$10,($00eafa07)
  7417. rte
  7418. L0058d0:
  7419. ori.w #$0700,sr
  7420. move.b #$20,($00eafa07) ;' '
  7421. tst.b (L007852)
  7422. beq.s L0058e8
  7423. bsr.s L00590a
  7424. rte
  7425. L0058e8:
  7426. bsr.s L0058ec
  7427. rte
  7428. L0058ec:
  7429. move.l d0,-(sp)
  7430. move.b (L007557),d0
  7431. ori.b #$80,d0
  7432. move.b #$03,($00eafa03)
  7433. move.b d0,($00eafa0b)
  7434. move.l (sp)+,d0
  7435. rts
  7436. L00590a:
  7437. movem.l d0-d2/a0-a2,-(sp)
  7438. lea.l (L00d9f0),a0
  7439. lea.l ($0004,a0),a1
  7440. lea.l ($0400,a1),a2
  7441. moveq.l #$00,d2
  7442. cmpi.w #$0002,(L00783a)
  7443. bne.s L00595c
  7444. moveq.l #$00,d0
  7445. moveq.l #$00,d1
  7446. move.l (L007578),d2
  7447. move.b (L00757c),d1
  7448. move.b #$07,($00eafa03)
  7449. move.b ($00eafa09),d0
  7450. bne.s L005954
  7451. btst.b #$03,($00eafa05)
  7452. beq.s L005954
  7453. addq.l #1,d2
  7454. L005954:
  7455. lsl.l #8,d2
  7456. add.l d0,d2
  7457. add.l d1,d2
  7458. lsr.l #2,d2
  7459. L00595c:
  7460. moveq.l #$00,d1
  7461. move.w (a0),d1
  7462. L005960:
  7463. move.b #$03,($00eafa03)
  7464. move.b ($00eafa09),d0
  7465. bpl.s L00599a
  7466. move.b #$03,($00eafa03)
  7467. move.b ($00eafa0d),d0
  7468. bpl.s L005986
  7469. cmpi.b #$fe,d0
  7470. beq.s L005960
  7471. L005986:
  7472. move.b d0,(a1,d1.w)
  7473. lsl.w #1,d1
  7474. move.w d2,(a2,d1.w)
  7475. lsr.w #1,d1
  7476. addq.w #1,d1
  7477. andi.w #$03ff,d1
  7478. bra.s L005960
  7479. L00599a:
  7480. move.w d1,(a0)
  7481. movem.l (sp)+,d0-d2/a0-a2
  7482. rts
  7483. L0059a2:
  7484. move.b #$40,($00eafa07) ;'@'
  7485. rte
  7486. L0059ac:
  7487. move.b #$80,($00eafa07)
  7488. movem.l a0,-(sp)
  7489. tst.w (L007850)
  7490. beq.s L0059c2
  7491. bsr.s L0059de
  7492. L0059c2:
  7493. lea.l (L0059dc),a0
  7494. subq.b #1,(a0)
  7495. bpl.s L0059d6
  7496. move.b ($0001,a0),(a0)
  7497. clr.w (L0051da)
  7498. L0059d6:
  7499. movem.l (sp)+,a0
  7500. rte
  7501. L0059dc:
  7502. .dc.b $0f,$0f
  7503. L0059de:
  7504. movem.l d0-d5/a0-a4,-(sp)
  7505. lea.l (L00d9f0),a0
  7506. lea.l ($0004,a0),a1
  7507. movea.l (L007848),a2
  7508. movea.l (L00783c),a4
  7509. adda.l (L007840),a4
  7510. subq.l #4,a4
  7511. cmpa.l a4,a2
  7512. bcc.w L005ace
  7513. moveq.l #$00,d2
  7514. move.w ($0002,a0),d2
  7515. cmp.w (a0),d2
  7516. beq.w L005ace
  7517. move.l (L007844),d5
  7518. move.w (L00783a),d4
  7519. subq.w #1,d4
  7520. bmi.s L005a62
  7521. lea.l ($0400,a1),a3
  7522. L005a26:
  7523. move.b (a1,d2.w),d0
  7524. move.b d0,(a2)+
  7525. bpl.s L005a40
  7526. tst.w d4
  7527. beq.s L005a40
  7528. lsl.w #1,d2
  7529. move.b (a3,d2.w),(a2)+
  7530. move.b ($01,a3,d2.w),(a2)+
  7531. lsr.w #1,d2
  7532. addq.l #2,d5
  7533. L005a40:
  7534. addq.l #1,d5
  7535. addq.w #1,d2
  7536. andi.w #$03ff,d2
  7537. cmp.w (a0),d2
  7538. beq.s L005a50
  7539. cmpa.l a4,a2
  7540. bcs.s L005a26
  7541. L005a50:
  7542. move.w d2,($0002,a0)
  7543. move.l a2,(L007848)
  7544. move.l d5,(L007844)
  7545. bra.s L005ace
  7546. L005a62:
  7547. lea.l (L005ad6),a3
  7548. move.w (L005ad4),d3
  7549. L005a6e:
  7550. move.b (a1,d2.w),d0
  7551. move.b d0,d1
  7552. andi.w #$000f,d1
  7553. lsr.b #4,d0
  7554. andi.w #$000f,d0
  7555. move.b (a3,d0.w),d0
  7556. move.b (a3,d1.w),d1
  7557. cmpi.w #$004e,d3 ;'N'
  7558. bge.s L005a92
  7559. cmpi.b #$38,d0 ;'8'
  7560. blt.s L005a9e
  7561. L005a92:
  7562. move.b #$0d,(a2)+
  7563. move.b #$0a,(a2)+
  7564. clr.w d3
  7565. addq.l #2,d5
  7566. L005a9e:
  7567. move.b d0,(a2)+
  7568. move.b d1,(a2)+
  7569. move.b #$20,(a2)+ ;' '
  7570. addq.l #3,d5
  7571. addq.w #3,d3
  7572. addq.w #1,d2
  7573. andi.w #$03ff,d2
  7574. cmp.w (a0),d2
  7575. beq.s L005ab8
  7576. cmpa.l a4,a2
  7577. bcs.s L005a6e
  7578. L005ab8:
  7579. move.w d3,(L005ad4)
  7580. move.w d2,($0002,a0)
  7581. move.l a2,(L007848)
  7582. move.l d5,(L007844)
  7583. L005ace:
  7584. movem.l (sp)+,d0-d5/a0-a4
  7585. rts
  7586. L005ad4:
  7587. .dc.w $0000
  7588. L005ad6:
  7589. .dc.b '0123456789ABCDEF'
  7590. L005ae6:
  7591. rte
  7592. L005ae8:
  7593. nop
  7594. nop
  7595. nop
  7596. nop
  7597. nop
  7598. nop
  7599. nop
  7600. nop
  7601. nop
  7602. L005afa:
  7603. nop
  7604. rts
  7605. L005afe:
  7606. rts
  7607. L005b00:
  7608. bsr.w L005d30
  7609. bsr.w L005cf4
  7610. rts
  7611. L005b0a:
  7612. movem.l d0-d7/a0-a6,-(sp)
  7613. move.l sp,(L005c72)
  7614. move.w sr,(L005c76)
  7615. ori.w #$0700,sr
  7616. move.l ($00000008).l,d1
  7617. move.l d1,(L005c78)
  7618. move.l #L005c7c,($00000008).l
  7619. tst.b ($00eafa01)
  7620. L005b3a:
  7621. move.l (L005c78),d1
  7622. move.l d1,($00000008).l
  7623. move.w (L005c76),sr
  7624. movea.l (L005c72),sp
  7625. movea.l (L0049ee),a0
  7626. bsr.w L005d30
  7627. move.b #$00,($0003,a0)
  7628. move.b #$00,($000d,a0)
  7629. move.b #$00,($0003,a0)
  7630. move.b #$80,($0009,a0)
  7631. bsr.w L005c98
  7632. tst.b (L0074c8)
  7633. bne.w L005c60
  7634. move.b #$08,d0
  7635. move.b d0,(L00755a)
  7636. move.b #$06,($00eafa03)
  7637. move.b d0,($00eafa0b)
  7638. move.b #$02,d0
  7639. move.b d0,(L00755b)
  7640. bsr.w L005224
  7641. move.w #$00c0,d0
  7642. bsr.w L004a02
  7643. move.b #$18,d0
  7644. move.b d0,(L00755c)
  7645. move.b #$06,($00eafa03)
  7646. move.b d0,($00eafa0f)
  7647. move.w #$09c4,d0
  7648. move.b #$08,($00eafa03)
  7649. move.b d0,($00eafa09)
  7650. nop
  7651. nop
  7652. nop
  7653. nop
  7654. lsr.w #8,d0
  7655. ori.b #$80,d0
  7656. move.b d0,($00eafa0b)
  7657. move.b #$7f,(L007555)
  7658. move.b #$10,(L007557)
  7659. move.b #$dc,d0
  7660. move.b #$03,($00eafa03)
  7661. move.b d0,($00eafa0b)
  7662. move.b #$30,d0 ;'0'
  7663. move.b d0,(L007554)
  7664. move.w #$0000,d0
  7665. bsr.w L004cba
  7666. move.w #$0008,d0
  7667. bsr.w L0053fe
  7668. move.b #$05,($00eafa03)
  7669. move.b #$85,($00eafa0b)
  7670. move.w #$0008,d0
  7671. bsr.w L005434
  7672. move.b #$03,(L007552)
  7673. move.b #$86,(L007553)
  7674. bsr.w L00534c
  7675. bsr.w L005334
  7676. bsr.w L0056c4
  7677. bra.s L005c6c
  7678. L005c60:
  7679. move.b #$14,d1
  7680. move.b #$00,d2
  7681. bsr.w L0064ae
  7682. L005c6c:
  7683. movem.l (sp)+,d0-d7/a0-a6
  7684. rts
  7685. L005c72:
  7686. .dc.l $00000000
  7687. L005c76:
  7688. .dc.w $0000
  7689. L005c78:
  7690. .dc.l $00000000
  7691. L005c7c:
  7692. move.l a0,-(sp)
  7693. move.b #$01,(L0074c8)
  7694. lea.l (L0049f2),a0
  7695. move.l a0,(L0049ee)
  7696. movea.l (sp)+,a0
  7697. bra.w L005b3a
  7698. L005c98:
  7699. movem.l d0-d1/a0-a3,-(sp)
  7700. tst.b (L0074c8)
  7701. bne.s L005cd6
  7702. lea.l (L0074ca),a1
  7703. lea.l (L0074ee),a2
  7704. lea.l (L007500),a3
  7705. moveq.l #$07,d1
  7706. L005cb8:
  7707. movea.l (a1)+,a0
  7708. move.w (a2)+,d0
  7709. move.l a0,-(sp)
  7710. move.w d0,-(sp)
  7711. DOS _INTVCS
  7712. addq.l #6,sp
  7713. move.l d0,(a3)+
  7714. dbra.w d1,L005cb8
  7715. move.l #$00000000,(L007a28)
  7716. bra.s L005cee
  7717. L005cd6:
  7718. moveq.l #$6a,d0 ;'j'
  7719. lea.l (L00576c),a1
  7720. trap #15
  7721. tst.l d0
  7722. beq.s L005cee
  7723. move.l #$ffffffff,(L007a28)
  7724. L005cee:
  7725. movem.l (sp)+,d0-d1/a0-a3
  7726. rts
  7727. L005cf4:
  7728. movem.l d0-d1/a0-a2,-(sp)
  7729. tst.b (L0074c8)
  7730. bne.s L005d20
  7731. lea.l (L007500),a0
  7732. lea.l (L0074ee),a1
  7733. moveq.l #$07,d1
  7734. L005d0e:
  7735. movea.l (a0)+,a2
  7736. move.w (a1)+,d0
  7737. move.l a2,-(sp)
  7738. move.w d0,-(sp)
  7739. DOS _INTVCS
  7740. addq.l #6,sp
  7741. dbra.w d1,L005d0e
  7742. bra.s L005d2a
  7743. L005d20:
  7744. moveq.l #$6a,d0 ;'j'
  7745. movea.l #$00000000,a1
  7746. trap #15
  7747. L005d2a:
  7748. movem.l (sp)+,d0-d1/a0-a2
  7749. rts
  7750. L005d30:
  7751. movem.l d0/a0,-(sp)
  7752. movea.l (L0049ee),a0
  7753. move.b #$80,($0003,a0)
  7754. move.w #$000f,d0
  7755. L005d44:
  7756. dbra.w d0,L005d44
  7757. clr.b ($0003,a0)
  7758. movem.l (sp)+,d0/a0
  7759. rts
  7760. L005d52:
  7761. movem.l d0-d1/a0-a1,-(sp)
  7762. move.b #$c6,(L007a36)
  7763. lea.l (L00cee0),a0
  7764. moveq.l #$7f,d1
  7765. L005d66:
  7766. move.l #$ffffffff,(a0)+
  7767. dbra.w d1,L005d66
  7768. moveq.l #$07,d1
  7769. L005d72:
  7770. moveq.l #$00,d0
  7771. bsr.w L0061b4
  7772. moveq.l #$40,d0 ;'@'
  7773. bsr.w L005f76
  7774. moveq.l #$40,d0 ;'@'
  7775. bsr.w L005fb0
  7776. moveq.l #$00,d0
  7777. move.b (L006bc4),d0
  7778. bsr.w L006184
  7779. moveq.l #$40,d0 ;'@'
  7780. bsr.w L006032
  7781. bsr.s L005de0
  7782. dbra.w d1,L005d72
  7783. moveq.l #$00,d0
  7784. moveq.l #$00,d1
  7785. bsr.w L0060ca
  7786. movem.l (sp)+,d0-d1/a0-a1
  7787. rts
  7788. L005daa:
  7789. movem.l d0/a0-a1,-(sp)
  7790. lea.l (APianoStr1),a0
  7791. lea.l (APianoStr2),a1
  7792. move.w #$00a9,d0
  7793. L005dbe:
  7794. move.l (a0)+,(a1)+
  7795. dbra.w d0,L005dbe
  7796. lea.l (APianoData1),a0
  7797. lea.l (APianoData2),a1
  7798. move.w #$03a6,d0
  7799. L005dd4:
  7800. move.l (a0)+,(a1)+
  7801. dbra.w d0,L005dd4
  7802. movem.l (sp)+,d0/a0-a1
  7803. rts
  7804. L005de0:
  7805. cmpi.b #$08,d1
  7806. bcs.s L005de8
  7807. rts
  7808. L005de8:
  7809. movem.l d0-d2/a1,-(sp)
  7810. bsr.w L006688
  7811. move.w d1,d2
  7812. move.b #$08,d1
  7813. bsr.w L0064ae
  7814. clr.w ($0006,a1)
  7815. movem.l (sp)+,d0-d2/a1
  7816. rts
  7817. L005e04:
  7818. cmpi.b #$08,d1
  7819. bcc.w L0066e8
  7820. movem.l d0-d4/a0-a1,-(sp)
  7821. bsr.w L006688
  7822. lea.l (L007696),a0
  7823. andi.l #$007f007f,d0
  7824. move.w d1,d2
  7825. move.l d0,d3
  7826. swap.w d3
  7827. move.w d0,d4
  7828. tst.b ($0006,a1)
  7829. beq.s L005e36
  7830. moveq.l #$08,d1
  7831. jsr (L0064ae)
  7832. L005e36:
  7833. move.b #$01,($0006,a1)
  7834. move.b d0,($0007,a1)
  7835. move.w d3,d0
  7836. bsr.s L005e8c
  7837. move.b ($0010,a1),d3
  7838. add.b ($0011,a1),d3
  7839. cmpi.b #$40,d3 ;'@'
  7840. blt.s L005e58
  7841. subi.b #$40,d3 ;'@'
  7842. addq.w #1,d4
  7843. L005e58:
  7844. add.b ($000f,a1),d4
  7845. move.b (a0,d4.w),d1
  7846. move.w d2,d0
  7847. move.w d1,d2
  7848. moveq.l #$28,d1 ;'('
  7849. or.b d0,d1
  7850. bsr.w L0064ae
  7851. lsl.w #2,d3
  7852. move.b d3,d2
  7853. moveq.l #$30,d1 ;'0'
  7854. or.b d0,d1
  7855. bsr.w L0064ae
  7856. move.b ($0004,a1),d2
  7857. or.b d0,d2
  7858. move.b #$08,d1
  7859. bsr.w L0064ae
  7860. movem.l (sp)+,d0-d4/a0-a1
  7861. rts
  7862. L005e8c:
  7863. movem.l d0-d1/a0,-(sp)
  7864. andi.w #$007f,d0
  7865. lsr.b #3,d0
  7866. lea.l (L007586),a0
  7867. move.b (a0,d0.w),d1
  7868. move.b d1,($000c,a1)
  7869. add.b ($000b,a1),d1
  7870. move.b d1,d0
  7871. bsr.s L005ee6
  7872. movem.l (sp)+,d0-d1/a0
  7873. rts
  7874. L005eb2:
  7875. cmpi.b #$08,d1
  7876. bcs.s L005eba
  7877. rts
  7878. L005eba:
  7879. movem.l d0-d2/a1,-(sp)
  7880. bsr.w L006688
  7881. move.w d1,d2
  7882. clr.b ($0006,a1)
  7883. tst.b ($0008,a1)
  7884. bne.s L005ee0
  7885. tst.b ($0007,a5)
  7886. bne.s L005ee0
  7887. clr.b ($0007,a1)
  7888. move.b #$08,d1
  7889. bsr.w L0064ae
  7890. L005ee0:
  7891. movem.l (sp)+,d0-d2/a1
  7892. rts
  7893. L005ee6:
  7894. movem.l d0-d4/a2,-(sp)
  7895. move.w d2,d3
  7896. movea.l ($0014,a1),a2
  7897. tst.b (a1)
  7898. beq.s L005efa
  7899. moveq.l #$60,d1 ;'`'
  7900. moveq.l #$10,d4
  7901. bsr.s L005f24
  7902. L005efa:
  7903. tst.b ($0001,a1)
  7904. beq.s L005f06
  7905. moveq.l #$70,d1 ;'p'
  7906. moveq.l #$1b,d4
  7907. bsr.s L005f24
  7908. L005f06:
  7909. tst.b ($0002,a1)
  7910. beq.s L005f12
  7911. moveq.l #$68,d1 ;'h'
  7912. moveq.l #$26,d4 ;'&'
  7913. bsr.s L005f24
  7914. L005f12:
  7915. tst.b ($0003,a1)
  7916. beq.s L005f1e
  7917. moveq.l #$78,d1 ;'x'
  7918. moveq.l #$31,d4 ;'1'
  7919. bsr.s L005f24
  7920. L005f1e:
  7921. movem.l (sp)+,d0-d4/a2
  7922. rts
  7923. L005f24:
  7924. or.b d3,d1
  7925. move.b d0,d2
  7926. add.b (a2,d4.w),d2
  7927. bpl.s L005f30
  7928. moveq.l #$7f,d2
  7929. L005f30:
  7930. bsr.w L0064ae
  7931. rts
  7932. L005f36:
  7933. cmpi.b #$08,d0
  7934. bcs.s L005f3e
  7935. rts
  7936. L005f3e:
  7937. movem.l d0-d2,-(sp)
  7938. exg.l d2,d0
  7939. exg.l d1,d2
  7940. cmpi.b #$01,d2
  7941. bne.s L005f52
  7942. bsr.w L0060d2
  7943. bra.s L005f70
  7944. L005f52:
  7945. cmpi.b #$07,d2
  7946. bne.s L005f5c
  7947. bsr.s L005f7e
  7948. bra.s L005f70
  7949. L005f5c:
  7950. cmpi.b #$0a,d2
  7951. bne.s L005f66
  7952. bsr.s L005fb8
  7953. bra.s L005f70
  7954. L005f66:
  7955. cmpi.b #$40,d2 ;'@'
  7956. bne.s L005f70
  7957. bsr.w L00600a
  7958. L005f70:
  7959. movem.l (sp)+,d0-d2
  7960. rts
  7961. L005f76:
  7962. cmpi.b #$08,d1
  7963. bcs.s L005f7e
  7964. rts
  7965. L005f7e:
  7966. movem.l d0-d2/a1-a2,-(sp)
  7967. bsr.w L006688
  7968. move.w d1,d2
  7969. move.b d0,($000d,a1)
  7970. andi.w #$007f,d0
  7971. lsr.b #2,d0
  7972. lea.l (L007596),a2
  7973. move.b (a2,d0.w),d1
  7974. move.b d1,($000b,a1)
  7975. move.b ($000c,a1),d0
  7976. add.b d1,d0
  7977. bsr.w L005ee6
  7978. movem.l (sp)+,d0-d2/a1-a2
  7979. rts
  7980. L005fb0:
  7981. cmpi.b #$08,d1
  7982. bcc.w L0066c4
  7983. L005fb8:
  7984. movem.l d0-d3/a1-a2,-(sp)
  7985. move.b d1,d2
  7986. bsr.w L0066a6
  7987. move.b d0,($000e,a2)
  7988. move.w d2,d3
  7989. movea.l ($0014,a2),a1
  7990. cmpi.b #$60,d0 ;'`'
  7991. bgt.s L005fde
  7992. cmpi.b #$20,d0 ;' '
  7993. blt.s L005fe4
  7994. move.b #$c0,d2
  7995. bra.s L005fe8
  7996. L005fde:
  7997. move.b #$40,d2 ;'@'
  7998. bra.s L005fe8
  7999. L005fe4:
  8000. move.b #$80,d2
  8001. L005fe8:
  8002. or.b (a1),d2
  8003. move.b #$20,d1 ;' '
  8004. add.b d3,d1
  8005. bsr.w L0064ae
  8006. andi.b #$c0,d2
  8007. move.b d2,($000a,a2)
  8008. movem.l (sp)+,d0-d3/a1-a2
  8009. rts
  8010. L006002:
  8011. cmpi.b #$08,d1
  8012. bcs.s L00600a
  8013. rts
  8014. L00600a:
  8015. movem.l d0-d2/a1,-(sp)
  8016. bsr.w L006688
  8017. move.w d1,d2
  8018. move.b d0,($0008,a1)
  8019. bne.s L00602c
  8020. tst.b ($0007,a1)
  8021. beq.s L00602c
  8022. move.b #$08,d1
  8023. bsr.w L0064ae
  8024. clr.b ($0007,a1)
  8025. L00602c:
  8026. movem.l (sp)+,d0-d2/a1
  8027. rts
  8028. L006032:
  8029. cmpi.b #$08,d1
  8030. bcs.s L00603a
  8031. rts
  8032. L00603a:
  8033. movem.l d0-d5/a0-a2,-(sp)
  8034. bsr.w L006688
  8035. move.w d1,d3
  8036. lea.l (L007696),a2
  8037. moveq.l #$00,d1
  8038. moveq.l #$00,d4
  8039. moveq.l #$00,d5
  8040. ror.w #8,d0
  8041. move.b d0,d1
  8042. lsr.w #1,d0
  8043. andi.w #$3f80,d0
  8044. add.w d1,d0
  8045. lsr.w #5,d0
  8046. move.w d0,d1
  8047. add.w d0,d0
  8048. add.w d1,d0
  8049. subi.w #$0300,d0
  8050. beq.s L006096
  8051. bmi.s L006078
  8052. move.w d0,d4
  8053. move.w d0,d5
  8054. lsr.w #6,d4
  8055. andi.w #$003f,d5
  8056. bra.s L00608c
  8057. L006078:
  8058. neg.w d0
  8059. move.w d0,d4
  8060. lsr.w #6,d4
  8061. neg.w d4
  8062. subq.w #1,d4
  8063. move.w #$003f,d5 ;'?'
  8064. andi.w #$003f,d0
  8065. sub.w d0,d5
  8066. L00608c:
  8067. move.b d4,($000f,a1)
  8068. move.b d5,($0010,a1)
  8069. bra.s L0060a2
  8070. L006096:
  8071. clr.b ($000f,a1)
  8072. clr.b ($0010,a1)
  8073. move.b ($0011,a1),d5
  8074. L0060a2:
  8075. moveq.l #$00,d2
  8076. move.b ($0007,a1),d2
  8077. beq.s L0060b8
  8078. add.b d4,d2
  8079. move.b (a2,d2.w),d2
  8080. moveq.l #$28,d1 ;'('
  8081. or.b d3,d1
  8082. bsr.w L0064ae
  8083. L0060b8:
  8084. moveq.l #$30,d1 ;'0'
  8085. or.b d3,d1
  8086. lsl.w #2,d5
  8087. move.b d5,d2
  8088. bsr.w L0064ae
  8089. movem.l (sp)+,d0-d5/a0-a2
  8090. rts
  8091. L0060ca:
  8092. cmpi.b #$08,d1
  8093. bcs.s L0060d2
  8094. rts
  8095. L0060d2:
  8096. movem.l d0-d3/a1-a2,-(sp)
  8097. move.w d1,d2
  8098. bsr.w L0066a6
  8099. move.w d2,d3
  8100. movea.l ($0014,a2),a1
  8101. move.b d0,($0012,a2)
  8102. beq.s L006124
  8103. moveq.l #$1b,d1
  8104. move.b #$02,d2
  8105. bsr.w L0064ae
  8106. moveq.l #$18,d1
  8107. move.b (L007a36),d2
  8108. bsr.w L0064ae
  8109. moveq.l #$19,d1
  8110. move.b (L007a37),d2
  8111. move.b d2,(L007a38)
  8112. or.b #$80,d2
  8113. bsr.w L0064ae
  8114. moveq.l #$38,d1 ;'8'
  8115. add.b d3,d1
  8116. move.b d0,d2
  8117. and.b #$70,d2
  8118. bsr.w L0064ae
  8119. bra.s L00617e
  8120. L006124:
  8121. moveq.l #$38,d1 ;'8'
  8122. add.b d3,d1
  8123. moveq.l #$00,d2
  8124. bsr.w L0064ae
  8125. moveq.l #$19,d1
  8126. moveq.l #$80,d2
  8127. clr.b (L007a38)
  8128. jsr (L0064ae)
  8129. tst.w (L007a34)
  8130. beq.s L00617e
  8131. moveq.l #$18,d1
  8132. move.b ($0004,a1),d2
  8133. jsr (L0064ae)
  8134. moveq.l #$1b,d1
  8135. move.b ($0002,a1),d2
  8136. jsr (L0064ae)
  8137. moveq.l #$19,d1
  8138. move.b ($0005,a1),d2
  8139. or.b #$80,d2
  8140. jsr (L0064ae)
  8141. moveq.l #$19,d1
  8142. move.b ($0006,a1),d2
  8143. and.b #$7f,d2
  8144. jsr (L0064ae)
  8145. L00617e:
  8146. movem.l (sp)+,d0-d3/a1-a2
  8147. rts
  8148. L006184:
  8149. cmpi.b #$08,d1
  8150. bcs.s L00618c
  8151. rts
  8152. L00618c:
  8153. movem.l d0-d2/a1,-(sp)
  8154. bsr.w L006688
  8155. move.b d0,d2
  8156. cmpi.b #$3f,d2 ;'?'
  8157. ble.s L0061a0
  8158. move.b #$3f,d2 ;'?'
  8159. L0061a0:
  8160. move.b d2,($0011,a1)
  8161. lsl.b #2,d2
  8162. addi.b #$30,d1 ;'0'
  8163. bsr.w L0064ae
  8164. movem.l (sp)+,d0-d2/a1
  8165. rts
  8166. L0061b4:
  8167. cmpi.b #$08,d1
  8168. bcs.s L0061bc
  8169. rts
  8170. L0061bc:
  8171. movem.l d0-d3/a0-a2,-(sp)
  8172. move.b d1,d2
  8173. bsr.w L0066a6
  8174. move.w d2,d3
  8175. move.b #$08,d1
  8176. bsr.w L0064ae
  8177. clr.w ($0006,a2)
  8178. move.b d0,($0013,a2)
  8179. lea.l (APianoData2),a1
  8180. and.l #$000000ff,d0
  8181. mulu.w #$0037,d0
  8182. adda.l d0,a1
  8183. move.l a1,($0014,a2)
  8184. move.b ($0003,a1),($0005,a2)
  8185. move.b ($0001,a1),d0
  8186. asl.b #3,d0
  8187. move.b d0,($0004,a2)
  8188. move.b (a1),d0
  8189. and.l #$00000007,d0
  8190. lsl.l #2,d0
  8191. lea.l (L007676),a0
  8192. move.l (a0,d0.w),(a2)
  8193. tst.w (L007a34)
  8194. beq.s L006268
  8195. moveq.l #$1b,d1
  8196. move.b ($0002,a1),d2
  8197. and.b #$03,d2
  8198. bsr.w L0064ae
  8199. moveq.l #$18,d1
  8200. move.b ($0004,a1),d2
  8201. jsr (L0064ae)
  8202. moveq.l #$19,d1
  8203. move.b ($0005,a1),d2
  8204. or.b #$80,d2
  8205. jsr (L0064ae)
  8206. moveq.l #$19,d1
  8207. move.b ($0006,a1),d2
  8208. and.b #$7f,d2
  8209. jsr (L0064ae)
  8210. moveq.l #$38,d1 ;'8'
  8211. move.b ($0007,a1),d2
  8212. asl.b #4,d2
  8213. or.b ($0008,a1),d2
  8214. or.b d3,d1
  8215. bsr.w L0064ae
  8216. bra.s L0062b0
  8217. L006268:
  8218. moveq.l #$1b,d1
  8219. move.b #$02,d2
  8220. bsr.w L0064ae
  8221. moveq.l #$18,d1
  8222. move.b (L007a36),d2
  8223. jsr (L0064ae)
  8224. moveq.l #$19,d1
  8225. move.b (L007a38),d2
  8226. ori.b #$80,d2
  8227. jsr (L0064ae)
  8228. moveq.l #$19,d1
  8229. move.b (L007a39),d2
  8230. jsr (L0064ae)
  8231. moveq.l #$38,d1 ;'8'
  8232. add.b d3,d1
  8233. move.b ($0012,a2),d2
  8234. and.b #$70,d2
  8235. bsr.w L0064ae
  8236. L0062b0:
  8237. bsr.s L0062c2
  8238. move.b ($0012,a2),d0
  8239. beq.s L0062bc
  8240. bsr.w L0060ca
  8241. L0062bc:
  8242. movem.l (sp)+,d0-d3/a0-a2
  8243. rts
  8244. L0062c2:
  8245. movem.l d0-d4,-(sp)
  8246. move.b ($000b,a2),d4
  8247. moveq.l #$0f,d1
  8248. move.b ($000a,a1),d2
  8249. jsr (L0064ae)
  8250. move.b #$20,d1 ;' '
  8251. move.b ($000a,a2),d2
  8252. or.b (a1),d2
  8253. or.b d3,d1
  8254. bsr.w L0064ae
  8255. moveq.l #$40,d1 ;'@'
  8256. move.b ($0013,a1),d2
  8257. asl.b #4,d2
  8258. or.b ($0012,a1),d2
  8259. or.b d3,d1
  8260. bsr.w L0064ae
  8261. moveq.l #$50,d1 ;'P'
  8262. move.b ($001e,a1),d2
  8263. asl.b #4,d2
  8264. or.b ($001d,a1),d2
  8265. or.b d3,d1
  8266. bsr.w L0064ae
  8267. moveq.l #$48,d1 ;'H'
  8268. move.b ($0029,a1),d2
  8269. asl.b #4,d2
  8270. or.b ($0028,a1),d2
  8271. or.b d3,d1
  8272. bsr.w L0064ae
  8273. moveq.l #$58,d1 ;'X'
  8274. move.b ($0034,a1),d2
  8275. asl.b #4,d2
  8276. or.b ($0033,a1),d2
  8277. or.b d3,d1
  8278. bsr.w L0064ae
  8279. moveq.l #$60,d1 ;'`'
  8280. move.b ($0010,a1),d2
  8281. tst.b (a2)
  8282. beq.s L00633e
  8283. add.b d4,d2
  8284. bsr.w L0064a4
  8285. L00633e:
  8286. or.b d3,d1
  8287. bsr.w L0064ae
  8288. moveq.l #$70,d1 ;'p'
  8289. move.b ($001b,a1),d2
  8290. tst.b ($0001,a2)
  8291. beq.s L006356
  8292. add.b d4,d2
  8293. bsr.w L0064a4
  8294. L006356:
  8295. or.b d3,d1
  8296. bsr.w L0064ae
  8297. moveq.l #$68,d1 ;'h'
  8298. move.b ($0026,a1),d2
  8299. tst.b ($0002,a2)
  8300. beq.s L00636e
  8301. add.b d4,d2
  8302. bsr.w L0064a4
  8303. L00636e:
  8304. or.b d3,d1
  8305. bsr.w L0064ae
  8306. moveq.l #$78,d1 ;'x'
  8307. move.b ($0031,a1),d2
  8308. tst.b ($0003,a2)
  8309. beq.s L006386
  8310. add.b d4,d2
  8311. bsr.w L0064a4
  8312. L006386:
  8313. or.b d3,d1
  8314. bsr.w L0064ae
  8315. moveq.l #$80,d1
  8316. move.b ($0011,a1),d2
  8317. asl.b #6,d2
  8318. or.b ($000b,a1),d2
  8319. or.b d3,d1
  8320. bsr.w L0064ae
  8321. moveq.l #$90,d1
  8322. move.b ($001c,a1),d2
  8323. asl.b #6,d2
  8324. or.b ($0016,a1),d2
  8325. or.b d3,d1
  8326. bsr.w L0064ae
  8327. moveq.l #$88,d1
  8328. move.b ($0027,a1),d2
  8329. asl.b #6,d2
  8330. or.b ($0021,a1),d2
  8331. or.b d3,d1
  8332. bsr.w L0064ae
  8333. moveq.l #$98,d1
  8334. move.b ($0032,a1),d2
  8335. asl.b #6,d2
  8336. or.b ($002c,a1),d2
  8337. or.b d3,d1
  8338. bsr.w L0064ae
  8339. moveq.l #$a0,d1
  8340. move.b ($0015,a1),d2
  8341. asl.b #7,d2
  8342. or.b ($000c,a1),d2
  8343. or.b d3,d1
  8344. bsr.w L0064ae
  8345. moveq.l #$b0,d1
  8346. move.b ($0020,a1),d2
  8347. asl.b #7,d2
  8348. or.b ($0017,a1),d2
  8349. or.b d3,d1
  8350. bsr.w L0064ae
  8351. moveq.l #$a8,d1
  8352. move.b ($002b,a1),d2
  8353. asl.b #7,d2
  8354. or.b ($0022,a1),d2
  8355. or.b d3,d1
  8356. bsr.w L0064ae
  8357. moveq.l #$b8,d1
  8358. move.b ($0036,a1),d2
  8359. asl.b #7,d2
  8360. or.b ($002d,a1),d2
  8361. or.b d3,d1
  8362. bsr.w L0064ae
  8363. moveq.l #$c0,d1
  8364. move.b ($0014,a1),d2
  8365. asl.b #6,d2
  8366. or.b ($000d,a1),d2
  8367. or.b d3,d1
  8368. bsr.w L0064ae
  8369. moveq.l #$d0,d1
  8370. move.b ($001f,a1),d2
  8371. asl.b #6,d2
  8372. or.b ($0018,a1),d2
  8373. or.b d3,d1
  8374. bsr.s L0064ae
  8375. moveq.l #$c8,d1
  8376. move.b ($002a,a1),d2
  8377. asl.b #6,d2
  8378. or.b ($0023,a1),d2
  8379. or.b d3,d1
  8380. bsr.s L0064ae
  8381. moveq.l #$d8,d1
  8382. move.b ($0035,a1),d2
  8383. asl.b #6,d2
  8384. or.b ($002e,a1),d2
  8385. or.b d3,d1
  8386. bsr.s L0064ae
  8387. moveq.l #$e0,d1
  8388. move.b ($000f,a1),d2
  8389. asl.b #4,d2
  8390. or.b ($000e,a1),d2
  8391. or.b d3,d1
  8392. bsr.s L0064ae
  8393. moveq.l #$f0,d1
  8394. move.b ($001a,a1),d2
  8395. asl.b #4,d2
  8396. or.b ($0019,a1),d2
  8397. or.b d3,d1
  8398. bsr.s L0064ae
  8399. moveq.l #$e8,d1
  8400. move.b ($0025,a1),d2
  8401. asl.b #4,d2
  8402. or.b ($0024,a1),d2
  8403. or.b d3,d1
  8404. bsr.s L0064ae
  8405. moveq.l #$f8,d1
  8406. move.b ($0030,a1),d2
  8407. asl.b #4,d2
  8408. or.b ($002f,a1),d2
  8409. or.b d3,d1
  8410. bsr.s L0064ae
  8411. movem.l (sp)+,d0-d4
  8412. rts
  8413. L0064a4:
  8414. tst.b d2
  8415. bpl.s L0064ac
  8416. move.b #$7f,d2
  8417. L0064ac:
  8418. rts
  8419. L0064ae:
  8420. movem.l d1-d2/a0,-(sp)
  8421. andi.w #$00ff,d1
  8422. andi.w #$00ff,d2
  8423. lea.l (L00cee0),a0
  8424. L0064c0:
  8425. tst.b ($00e90003)
  8426. bmi.s L0064c0
  8427. move.b d1,($00e90001)
  8428. L0064ce:
  8429. tst.b ($00e90003)
  8430. bmi.s L0064ce
  8431. move.b d2,($00e90003)
  8432. cmpi.b #$19,d1
  8433. bne.s L0064ec
  8434. tst.b d2
  8435. bpl.s L0064ec
  8436. addq.l #2,a0
  8437. andi.w #$007f,d2
  8438. L0064ec:
  8439. add.w d1,d1
  8440. move.w d2,(a0,d1.w)
  8441. movem.l (sp)+,d1-d2/a0
  8442. rts
  8443. L0064f8:
  8444. movem.l d0-d2/a1,-(sp)
  8445. tst.l d2
  8446. beq.s L006532
  8447. bmi.s L006532
  8448. divu.w #$0050,d2
  8449. subq.w #1,d2
  8450. bmi.s L006532
  8451. moveq.l #$00,d0
  8452. L00650c:
  8453. bsr.s L006538
  8454. lea.l ($0050,a1),a1
  8455. addq.w #1,d0
  8456. cmpi.w #$00c8,d0
  8457. beq.s L00651e
  8458. dbra.w d2,L00650c
  8459. L00651e:
  8460. move.w #$0007,d1
  8461. L006522:
  8462. bsr.w L006688
  8463. move.b ($0013,a1),d0
  8464. bsr.w L0061b4
  8465. dbra.w d1,L006522
  8466. L006532:
  8467. movem.l (sp)+,d0-d2/a1
  8468. rts
  8469. L006538:
  8470. movem.l d0-d2/a0-a2,-(sp)
  8471. movea.l a1,a0
  8472. lea.l (APianoData2),a1
  8473. lea.l (APianoStr2),a2
  8474. tst.b ($004f,a0)
  8475. beq.s L006556
  8476. moveq.l #$00,d0
  8477. move.b ($004f,a0),d0
  8478. L006556:
  8479. cmpi.w #$00c8,d0
  8480. bcc.s L0065d6
  8481. move.w d0,d1
  8482. mulu.w #$0037,d0
  8483. mulu.w #$000a,d1
  8484. adda.l d0,a1
  8485. adda.l d1,a2
  8486. moveq.l #$09,d1
  8487. L00656c:
  8488. move.b (a0)+,d0
  8489. cmpi.b #$20,d0 ;' '
  8490. bcc.s L006578
  8491. move.b #$20,d0 ;' '
  8492. L006578:
  8493. move.b d0,(a2)+
  8494. dbra.w d1,L00656c
  8495. moveq.l #$00,d1
  8496. moveq.l #$0a,d2
  8497. L006582:
  8498. move.b (a0)+,($0b,a1,d1.w)
  8499. move.b (a0)+,($16,a1,d1.w)
  8500. move.b (a0)+,($21,a1,d1.w)
  8501. move.b (a0)+,($2c,a1,d1.w)
  8502. addq.w #1,d1
  8503. dbra.w d2,L006582
  8504. move.b (a0)+,d0
  8505. move.b (a0)+,d1
  8506. lsl.b #3,d0
  8507. add.b d1,d0
  8508. move.b d0,(a1)
  8509. move.b (a0)+,($0002,a1)
  8510. move.b (a0)+,($0004,a1)
  8511. move.b (a0)+,($0007,a1)
  8512. move.b (a0)+,($0008,a1)
  8513. move.b (a0)+,($0005,a1)
  8514. move.b (a0)+,($0006,a1)
  8515. move.b (a0)+,d0
  8516. andi.b #$01,d0
  8517. ror.b #1,d0
  8518. add.b (a0)+,d0
  8519. move.b d0,($000a,a1)
  8520. move.b #$03,($0009,a1)
  8521. move.b (a0)+,($0003,a1)
  8522. move.b (a0)+,($0001,a1)
  8523. L0065d6:
  8524. movem.l (sp)+,d0-d2/a0-a2
  8525. rts
  8526. L0065dc:
  8527. movem.l d0-d2/a0-a2,-(sp)
  8528. cmpi.w #$00c8,d0
  8529. bcc.w L006682
  8530. lea.l (APianoData2),a1
  8531. lea.l (APianoStr2),a2
  8532. move.b d0,($004f,a0)
  8533. move.w d0,d1
  8534. mulu.w #$0037,d0
  8535. mulu.w #$000a,d1
  8536. adda.l d0,a1
  8537. adda.l d1,a2
  8538. moveq.l #$09,d1
  8539. L006608:
  8540. move.b (a2)+,d0
  8541. cmpi.b #$20,d0 ;' '
  8542. bcc.s L006614
  8543. move.b #$20,d0 ;' '
  8544. L006614:
  8545. move.b d0,(a0)+
  8546. dbra.w d1,L006608
  8547. moveq.l #$00,d1
  8548. moveq.l #$0a,d2
  8549. L00661e:
  8550. move.b ($0b,a1,d1.w),(a0)+
  8551. move.b ($16,a1,d1.w),(a0)+
  8552. move.b ($21,a1,d1.w),(a0)+
  8553. move.b ($2c,a1,d1.w),(a0)+
  8554. addq.w #1,d1
  8555. dbra.w d2,L00661e
  8556. move.b (a1),d0
  8557. move.b d0,d1
  8558. lsr.b #3,d0
  8559. andi.b #$07,d1
  8560. move.b d0,(a0)+
  8561. move.b d1,(a0)+
  8562. move.b ($0002,a1),(a0)+
  8563. move.b ($0004,a1),(a0)+
  8564. move.b ($0007,a1),(a0)+
  8565. move.b ($0008,a1),(a0)+
  8566. move.b ($0005,a1),(a0)+
  8567. move.b ($0006,a1),(a0)+
  8568. move.b ($000a,a1),d0
  8569. move.b d0,d1
  8570. rol.b #1,d0
  8571. andi.b #$01,d0
  8572. andi.b #$7f,d1
  8573. move.b d0,(a0)+
  8574. move.b d1,(a0)+
  8575. move.b ($0003,a1),(a0)+
  8576. move.b ($0001,a1),(a0)+
  8577. clr.b (a0)+
  8578. clr.b (a0)+
  8579. moveq.l #$0a,d0
  8580. L00667c:
  8581. clr.b (a0)+
  8582. dbra.w d0,L00667c
  8583. L006682:
  8584. movem.l (sp)+,d0-d2/a0-a2
  8585. rts
  8586. L006688:
  8587. andi.w #$0007,d1
  8588. movem.l d1-d2,-(sp)
  8589. lea.l (L0075b6),a1
  8590. lsl.w #3,d1
  8591. move.w d1,d2
  8592. lsl.w #1,d1
  8593. add.w d2,d1
  8594. adda.w d1,a1
  8595. movem.l (sp)+,d1-d2
  8596. rts
  8597. L0066a6:
  8598. andi.w #$0007,d2
  8599. movem.l d1-d2,-(sp)
  8600. lea.l (L0075b6),a2
  8601. lsl.w #3,d2
  8602. move.w d2,d1
  8603. lsl.w #1,d2
  8604. add.w d1,d2
  8605. adda.w d2,a2
  8606. movem.l (sp)+,d1-d2
  8607. rts
  8608. L0066c4:
  8609. move.l d1,-(sp)
  8610. moveq.l #$00,d1
  8611. tst.b d0
  8612. bmi.s L0066de
  8613. moveq.l #$01,d1
  8614. cmpi.b #$57,d0 ;'W'
  8615. bge.s L0066de
  8616. addq.b #1,d1
  8617. cmpi.b #$29,d0 ;')'
  8618. ble.s L0066de
  8619. addq.b #1,d1
  8620. L0066de:
  8621. move.b d1,(L007726)
  8622. move.l (sp)+,d1
  8623. rts
  8624. L0066e8:
  8625. movem.l d0-d2/a0-a1,-(sp)
  8626. tst.w (L006bc6)
  8627. bne.s L006728
  8628. lea.l (L00d5e0),a0
  8629. andi.l #$000000ff,d0
  8630. lsl.w #3,d0
  8631. adda.w d0,a0
  8632. moveq.l #$00,d0
  8633. moveq.l #$00,d1
  8634. move.w (a0)+,d1
  8635. beq.s L006728
  8636. move.w (a0)+,d0
  8637. tst.b (L006bc2)
  8638. bmi.s L00671c
  8639. move.b (L006bc2),d0
  8640. L00671c:
  8641. lsl.w #8,d0
  8642. move.b (L007726),d0
  8643. movea.l (a0)+,a1
  8644. bsr.s L00672e
  8645. L006728:
  8646. movem.l (sp)+,d0-d2/a0-a1
  8647. rts
  8648. L00672e:
  8649. movem.l d0-d3,-(sp)
  8650. move.w d0,d2
  8651. move.l d1,d3
  8652. bsr.w L006900
  8653. tst.l d0
  8654. beq.s L00674c
  8655. tst.b (L006bc3)
  8656. bne.s L006754
  8657. moveq.l #$00,d1
  8658. bsr.w L00690a
  8659. L00674c:
  8660. move.w d2,d1
  8661. move.l d3,d2
  8662. bsr.w L00694c
  8663. L006754:
  8664. movem.l (sp)+,d0-d3
  8665. rts
  8666. L00675a:
  8667. movem.l d1-d5/a1-a6,-(sp)
  8668. lea.l (L007716),a2
  8669. lea.l (L00d5e0),a3
  8670. cmpi.l #$00007fff,d2
  8671. bgt.w L006822
  8672. tst.l ($0008,a2)
  8673. beq.w L00682a
  8674. cmp.l ($0008,a2),d2
  8675. bgt.w L006822
  8676. move.l d3,d0
  8677. swap.w d0
  8678. tst.w d0
  8679. bmi.w L006822
  8680. cmpi.w #$007f,d0
  8681. bgt.w L006822
  8682. move.w d0,d5
  8683. lsl.w #3,d0
  8684. adda.w d0,a3
  8685. bsr.w L0068f6
  8686. move.w (a3),d0
  8687. beq.s L0067ee
  8688. andi.l #$00007fff,d0
  8689. movea.l ($0004,a3),a4
  8690. movea.l a4,a5
  8691. adda.w d0,a5
  8692. movea.l (a2),a6
  8693. adda.l ($0008,a2),a6
  8694. L0067b8:
  8695. move.b (a5)+,(a4)+
  8696. cmpa.l a6,a5
  8697. blt.s L0067b8
  8698. move.l ($0004,a3),d1
  8699. lea.l (L00d5e0),a4
  8700. moveq.l #$00,d4
  8701. L0067ca:
  8702. tst.w (a4)
  8703. beq.s L0067dc
  8704. cmp.w d5,d4
  8705. beq.s L0067dc
  8706. cmp.l ($0004,a4),d1
  8707. bge.s L0067dc
  8708. sub.l d0,($0004,a4)
  8709. L0067dc:
  8710. addq.l #8,a4
  8711. addq.w #1,d4
  8712. cmpi.w #$0080,d4
  8713. blt.s L0067ca
  8714. add.l d0,($000c,a2)
  8715. sub.l d0,($0004,a2)
  8716. L0067ee:
  8717. move.l ($000c,a2),d0
  8718. cmp.l d0,d2
  8719. ble.s L0067fe
  8720. lsr.l #1,d2
  8721. cmp.l d0,d2
  8722. bgt.s L006826
  8723. move.l d0,d2
  8724. L0067fe:
  8725. sub.l d2,($000c,a2)
  8726. movea.l ($0004,a2),a4
  8727. move.w d2,(a3)
  8728. move.w d3,($0002,a3)
  8729. move.l a4,($0004,a3)
  8730. subq.w #1,d2
  8731. bmi.s L00681a
  8732. L006814:
  8733. move.b (a1)+,(a4)+
  8734. dbra.w d2,L006814
  8735. L00681a:
  8736. move.l a4,($0004,a2)
  8737. clr.l d0
  8738. bra.s L00682c
  8739. L006822:
  8740. moveq.l #$12,d0
  8741. bra.s L00682c
  8742. L006826:
  8743. moveq.l #$3c,d0 ;'<'
  8744. bra.s L00682c
  8745. L00682a:
  8746. moveq.l #$3d,d0 ;'='
  8747. L00682c:
  8748. movem.l (sp)+,d1-d5/a1-a6
  8749. rts
  8750. L006832:
  8751. lea.l (L007728),a2
  8752. move.w #$00ff,d0
  8753. L00683c:
  8754. move.b (a1)+,(a2)+
  8755. dbra.w d0,L00683c
  8756. clr.l d0
  8757. movem.l (sp)+,d1-d5/a1-a6
  8758. rts
  8759. L00684a:
  8760. movem.l d1-d4/a1,-(sp)
  8761. andi.l #$00000007,d3
  8762. lsl.w #8,d3
  8763. move.b #$03,d3
  8764. move.l #$00050000,d4
  8765. moveq.l #$00,d1
  8766. bsr.w L00690a
  8767. move.b #$04,($00e92001)
  8768. L00686e:
  8769. subi.l #$00000001,d4
  8770. bmi.s L00689c
  8771. move.b ($00e92003),d0
  8772. cmpi.b #$f0,d0
  8773. bcs.s L00686e
  8774. move.b #$01,($00e92001)
  8775. move.w d3,d1
  8776. bsr.w L006a44
  8777. L006890:
  8778. bsr.s L006900
  8779. bne.s L006890
  8780. moveq.l #$00,d0
  8781. movem.l (sp)+,d1-d4/a1
  8782. rts
  8783. L00689c:
  8784. move.b #$01,($00e92001)
  8785. moveq.l #$ff,d0
  8786. movem.l (sp)+,d1-d4/a1
  8787. rts
  8788. L0068ac:
  8789. movem.l d0-d1/a0,-(sp)
  8790. move.w #$013f,d0
  8791. move.l #$20202020,d1 ;' '
  8792. lea.l (L00d0e0),a0
  8793. L0068c0:
  8794. move.l d1,(a0)+
  8795. dbra.w d0,L0068c0
  8796. lea.l (L00d5e0),a0
  8797. move.l (L007716),d0
  8798. moveq.l #$7f,d1
  8799. L0068d4:
  8800. clr.w (a0)+
  8801. move.w #$0004,(a0)+
  8802. move.l d0,(a0)+
  8803. dbra.w d1,L0068d4
  8804. move.l d0,(L00771a)
  8805. move.l (L00771e),(L007722)
  8806. movem.l (sp)+,d0-d1/a0
  8807. rts
  8808. L0068f6:
  8809. tst.b ($00000c32).l
  8810. bne.s L0068f6
  8811. rts
  8812. L006900:
  8813. moveq.l #$00,d0
  8814. move.b ($00000c32).l,d0
  8815. rts
  8816. L00690a:
  8817. tst.b d1
  8818. beq.s L00691a
  8819. subq.b #1,d1
  8820. beq.s L006934
  8821. subq.b #1,d1
  8822. beq.s L006940
  8823. moveq.l #$ff,d0
  8824. rts
  8825. L00691a:
  8826. clr.b ($00000c32).l
  8827. move.b #$01,($00e92001)
  8828. move.b #$10,($00e840c7)
  8829. moveq.l #$00,d0
  8830. rts
  8831. L006934:
  8832. move.b #$20,($00e840c7) ;' '
  8833. moveq.l #$00,d0
  8834. rts
  8835. L006940:
  8836. move.b #$08,($00e840c7)
  8837. moveq.l #$00,d0
  8838. rts
  8839. L00694c:
  8840. tst.b ($00000c32).l
  8841. bne.s L00694c
  8842. bsr.w L006b52
  8843. move.l ($000001a8).l,d0
  8844. cmp.l #L006b78,d0
  8845. beq.s L006976
  8846. move.l d0,(L006bc8)
  8847. move.l #L006b78,($000001a8).l
  8848. L006976:
  8849. cmpi.l #$0000ff00,d2
  8850. bls.s L006996
  8851. move.l d2,-(sp)
  8852. move.l #$0000ff00,d2
  8853. move.b #$80,d0
  8854. bsr.s L0069a0
  8855. adda.l d2,a1
  8856. move.l d2,d0
  8857. move.l (sp)+,d2
  8858. sub.l d0,d2
  8859. bra.s L006976
  8860. L006996:
  8861. move.b #$00,d0
  8862. bsr.s L0069a0
  8863. moveq.l #$00,d0
  8864. rts
  8865. L0069a0:
  8866. movem.l d1,-(sp)
  8867. L0069a4:
  8868. tst.b ($00000c32).l
  8869. bne.s L0069a4
  8870. addq.b #2,d0
  8871. move.b d0,($00000c32).l
  8872. move.b #$32,($00e840c5) ;'2'
  8873. move.b #$ff,($00e840c0)
  8874. move.l a1,($00e840cc)
  8875. move.w d2,($00e840ca)
  8876. move.b (L006bcc),d0
  8877. ori.b #$80,d0
  8878. cmpi.w #$0200,d1
  8879. bcs.s L0069e8
  8880. subi.w #$0200,d1
  8881. andi.b #$7f,d0
  8882. L0069e8:
  8883. move.b d0,(L006bcc)
  8884. bsr.w L006b48
  8885. move.b #$1b,($00e90001)
  8886. bsr.w L006b48
  8887. move.b d0,($00e90003)
  8888. move.w d1,d0
  8889. andi.b #$03,d0
  8890. beq.s L006a12
  8891. cmpi.b #$03,d0
  8892. bne.s L006a16
  8893. L006a12:
  8894. eori.b #$03,d0
  8895. L006a16:
  8896. lsr.w #8,d1
  8897. asl.w #2,d1
  8898. or.b d0,d1
  8899. move.b ($00e9a005),d0
  8900. andi.b #$f0,d0
  8901. or.b d1,d0
  8902. move.b #$88,($00e840c7)
  8903. move.b d0,($00e9a005)
  8904. move.b #$02,($00e92001)
  8905. movem.l (sp)+,d1
  8906. rts
  8907. L006a44:
  8908. tst.b ($00000c32).l
  8909. bne.s L006a44
  8910. bsr.w L006b52
  8911. move.l ($000001a8).l,d0
  8912. cmp.l #L006b78,d0
  8913. beq.s L006a6e
  8914. move.l d0,(L006bc8)
  8915. move.l #L006b78,($000001a8).l
  8916. L006a6e:
  8917. movem.l d1-d2/a1,-(sp)
  8918. L006a72:
  8919. cmp.l #$0000ff00,d2
  8920. bcs.s L006a98
  8921. move.l d2,-(sp)
  8922. move.l #$0000ff00,d2
  8923. moveq.l #$80,d0
  8924. bsr.s L006aa4
  8925. adda.l d2,a1
  8926. move.l d2,d0
  8927. move.l (sp)+,d2
  8928. sub.l d0,d2
  8929. bne.s L006a72
  8930. movem.l (sp)+,d1-d2/a1
  8931. moveq.l #$00,d0
  8932. rts
  8933. L006a98:
  8934. moveq.l #$00,d0
  8935. bsr.s L006aa4
  8936. movem.l (sp)+,d1-d2/a1
  8937. moveq.l #$00,d0
  8938. rts
  8939. L006aa4:
  8940. tst.b ($00000c32).l
  8941. bne.s L006aa4
  8942. addq.b #4,d0
  8943. move.b d0,($00000c32).l
  8944. move.b #$b2,($00e840c5)
  8945. bsr.s L006ac8
  8946. move.b #$04,($00e92001)
  8947. rts
  8948. L006ac8:
  8949. move.b #$ff,($00e840c0)
  8950. move.l a1,($00e840cc)
  8951. move.w d2,($00e840ca)
  8952. move.w d1,-(sp)
  8953. move.b (L006bcc),d0
  8954. or.b #$80,d0
  8955. cmp.w #$0200,d1
  8956. bcs.s L006af6
  8957. sub.w #$0200,d1
  8958. and.b #$7f,d0
  8959. L006af6:
  8960. move.b d0,(L006bcc)
  8961. bsr.w L006b48
  8962. move.b #$1b,($00e90001)
  8963. bsr.w L006b48
  8964. move.b d0,($00e90003)
  8965. move.w d1,d0
  8966. and.b #$03,d0
  8967. beq.s L006b20
  8968. cmp.b #$03,d0
  8969. bne.s L006b24
  8970. L006b20:
  8971. eori.b #$03,d0
  8972. L006b24:
  8973. lsr.w #8,d1
  8974. asl.w #2,d1
  8975. or.b d0,d1
  8976. move.b ($00e9a005),d0
  8977. and.b #$f0,d0
  8978. or.b d1,d0
  8979. move.w (sp)+,d1
  8980. move.b #$88,($00e840c7)
  8981. move.b d0,($00e9a005)
  8982. rts
  8983. L006b48:
  8984. tst.b ($00e90003)
  8985. bmi.s L006b48
  8986. rts
  8987. L006b52:
  8988. tst.l d1
  8989. bmi.s L006b70
  8990. move.l d1,-(sp)
  8991. lsr.w #7,d1
  8992. andi.l #$0000000e,d1
  8993. move.l (L006bce,pc,d1.w),d1
  8994. L006b64:
  8995. moveq.l #$34,d0 ;'4'
  8996. L006b66:
  8997. dbra.w d0,L006b66
  8998. dbra.w d1,L006b64
  8999. move.l (sp)+,d1
  9000. L006b70:
  9001. andi.l #$00007fff,d1
  9002. rts
  9003. L006b78:
  9004. movem.l d0-d1/a1,-(sp)
  9005. move.b ($00000c32).l,d0
  9006. clr.b ($00000c32).l
  9007. btst.l #$07,d0
  9008. bne.s L006bae
  9009. move.b #$01,($00e92001)
  9010. clr.b (L006bc3)
  9011. clr.b (L006bc7)
  9012. move.l (L006bc8),d0
  9013. move.l d0,($000001a8).l
  9014. L006bae:
  9015. move.b ($00e840c0),d0
  9016. move.b #$ff,($00e840c0)
  9017. movem.l (sp)+,d0-d1/a1
  9018. rte
  9019. L006bc2:
  9020. .dc.b $ff
  9021. L006bc3:
  9022. .dc.b $00
  9023. L006bc4:
  9024. .dc.b $00,$00
  9025. L006bc6:
  9026. .dc.b $00
  9027. L006bc7:
  9028. .dc.b $00
  9029. L006bc8:
  9030. .dc.l $00000000
  9031. L006bcc:
  9032. .dc.b $00,$00
  9033. L006bce:
  9034. .dc.w $0006,$0004,$0002,$0001,$0000,$0000,$0000,$0000
  9035. Start:
  9036. lea.l (StackTop),sp
  9037. clr.l -(sp)
  9038. DOS _SUPER
  9039. addq.l #4,sp
  9040. addq.l #1,a2
  9041. movea.l a2,a4
  9042. bsr.w L006da8
  9043. bcs.w L006cce
  9044. bsr.w L007236
  9045. tst.b (L00a82e)
  9046. bne.w L006d06
  9047. tst.b (L00a82d)
  9048. bne.w L006d72
  9049. tst.b (L00a82c)
  9050. bne.w L006ce6
  9051. tst.l d1
  9052. bmi.w L006cda
  9053. bsr.w L00715c
  9054. tst.l d1
  9055. bmi.w L006cda
  9056. jsr (L005b0a)
  9057. movem.l d1-d2,-(sp)
  9058. bsr.w L00729e
  9059. moveq.l #$0d,d1
  9060. IOCS _OPMDRV
  9061. jsr (L002748)
  9062. move.w (L007a3c),d2
  9063. moveq.l #$2b,d1 ;'+'
  9064. IOCS _OPMDRV
  9065. moveq.l #$00,d1
  9066. IOCS _OPMDRV
  9067. tst.w (L007a0e)
  9068. bne.s L006cb6
  9069. pea.l (L00a251)
  9070. DOS _PRINT
  9071. addq.l #4,sp
  9072. tst.b (L0074c8)
  9073. bne.s L006c84
  9074. pea.l (L00a2a4)
  9075. DOS _PRINT
  9076. addq.l #4,sp
  9077. pea.l (L00a378)
  9078. DOS _PRINT
  9079. addq.l #4,sp
  9080. bra.s L006c98
  9081. L006c84:
  9082. pea.l (L00a314)
  9083. DOS _PRINT
  9084. addq.l #4,sp
  9085. pea.l (L00a378)
  9086. DOS _PRINT
  9087. addq.l #4,sp
  9088. L006c98:
  9089. tst.l (L00771e)
  9090. beq.s L006cac
  9091. pea.l (L00a3a8)
  9092. DOS _PRINT
  9093. addq.l #4,sp
  9094. bra.s L006cb6
  9095. L006cac:
  9096. pea.l (L00a3d8)
  9097. DOS _PRINT
  9098. addq.l #4,sp
  9099. L006cb6:
  9100. bsr.w L0073ec
  9101. bsr.w L00742a
  9102. movem.l (sp)+,d1-d2
  9103. sub.l #OPMStruct,d1
  9104. clr.w -(sp)
  9105. move.l d1,-(sp)
  9106. DOS _KEEPPR
  9107. L006cce:
  9108. pea.l (L00a3f3)
  9109. DOS _PRINT
  9110. addq.l #4,sp
  9111. DOS _EXIT
  9112. L006cda:
  9113. pea.l (L00a60f)
  9114. DOS _PRINT
  9115. addq.l #4,sp
  9116. DOS _EXIT
  9117. L006ce6:
  9118. cmpi.b #$01,(L00a82c)
  9119. beq.s L006d5a
  9120. cmpi.b #$02,(L00a82c)
  9121. beq.s L006d4e
  9122. pea.l (L00a634)
  9123. DOS _PRINT
  9124. addq.l #4,sp
  9125. DOS _EXIT
  9126. L006d06:
  9127. cmpi.b #$03,(L00a82c)
  9128. bne.s L006d66
  9129. cmpi.b #$01,(L00a82e)
  9130. bne.s L006d34
  9131. moveq.l #$1d,d1
  9132. IOCS _OPMDRV
  9133. moveq.l #$00,d2
  9134. moveq.l #$0b,d1
  9135. IOCS _OPMDRV
  9136. pea.l (L00a6a1)
  9137. DOS _PRINT
  9138. addq.l #4,sp
  9139. DOS _EXIT
  9140. L006d34:
  9141. moveq.l #$00,d2
  9142. moveq.l #$0a,d1
  9143. IOCS _OPMDRV
  9144. moveq.l #$1e,d1
  9145. IOCS _OPMDRV
  9146. pea.l (L00a6ce)
  9147. DOS _PRINT
  9148. addq.l #4,sp
  9149. DOS _EXIT
  9150. L006d4e:
  9151. pea.l (L00a6fb)
  9152. DOS _PRINT
  9153. addq.l #4,sp
  9154. DOS _EXIT
  9155. L006d5a:
  9156. pea.l (L00a73c)
  9157. DOS _PRINT
  9158. addq.l #4,sp
  9159. DOS _EXIT
  9160. L006d66:
  9161. pea.l (L00a77d)
  9162. DOS _PRINT
  9163. addq.l #4,sp
  9164. DOS _EXIT
  9165. L006d72:
  9166. cmpi.b #$03,(L00a82c)
  9167. bne.s L006d66
  9168. bsr.w L007308
  9169. bmi.s L006d90
  9170. bne.s L006d9c
  9171. pea.l (L00a79e)
  9172. DOS _PRINT
  9173. addq.l #4,sp
  9174. DOS _EXIT
  9175. L006d90:
  9176. pea.l (L00a7b9)
  9177. DOS _PRINT
  9178. addq.l #4,sp
  9179. DOS _EXIT
  9180. L006d9c:
  9181. pea.l (L00a7e5)
  9182. DOS _PRINT
  9183. addq.l #4,sp
  9184. DOS _EXIT
  9185. L006da8:
  9186. moveq.l #$00,d1
  9187. moveq.l #$ff,d4
  9188. L006dac:
  9189. move.b (a4)+,d0
  9190. beq.w L006f58
  9191. cmp.b #$20,d0 ;' '
  9192. beq.s L006dac
  9193. cmp.b #$2d,d0 ;'-'
  9194. beq.s L006e2e
  9195. cmp.b #$2f,d0 ;'/'
  9196. beq.s L006e2e
  9197. cmp.b #$23,d0 ;'#'
  9198. beq.s L006e02
  9199. ori.b #$20,d0
  9200. cmp.b #$6f,d0 ;'o'
  9201. bne.s L006dac
  9202. move.b (a4)+,d0
  9203. beq.w L006f58
  9204. ori.b #$20,d0
  9205. cmpi.b #$6e,d0 ;'n'
  9206. beq.s L006df6
  9207. cmpi.b #$66,d0 ;'f'
  9208. bne.s L006dac
  9209. move.b #$02,(L00a82e)
  9210. bra.w L006f58
  9211. L006df6:
  9212. move.b #$01,(L00a82e)
  9213. bra.w L006f58
  9214. L006e02:
  9215. moveq.l #$00,d1
  9216. L006e04:
  9217. move.b (a4)+,d0
  9218. beq.w L006f58
  9219. cmp.b #$20,d0 ;' '
  9220. beq.s L006dac
  9221. cmp.b #$30,d0 ;'0'
  9222. bcs.s L006dac
  9223. cmp.b #$3a,d0 ;':'
  9224. bcc.s L006dac
  9225. and.l #$0000000f,d0
  9226. add.l d1,d1
  9227. move.l d1,d3
  9228. asl.l #2,d1
  9229. add.l d3,d1
  9230. add.l d0,d1
  9231. bra.s L006e04
  9232. L006e2e:
  9233. move.b (a4)+,d0
  9234. beq.w L006f58
  9235. cmp.b #$20,d0 ;' '
  9236. beq.w L006dac
  9237. ori.b #$20,d0
  9238. cmp.b #$72,d0 ;'r'
  9239. beq.w L006f50
  9240. cmp.b #$61,d0 ;'a'
  9241. beq.w L006f44
  9242. cmp.b #$66,d0 ;'f'
  9243. beq.w L006f04
  9244. cmp.b #$63,d0 ;'c'
  9245. bne.s L006e6a
  9246. move.w #$0001,(L007a0e)
  9247. bra.w L006dac
  9248. L006e6a:
  9249. cmp.b #$79,d0 ;'y'
  9250. bne.s L006e82
  9251. cmpi.b #$30,(a4) ;'0'
  9252. bne.w L006dac
  9253. clr.w (L007a10)
  9254. bra.w L006dac
  9255. L006e82:
  9256. cmp.b #$3f,d0 ;'?'
  9257. beq.w L006f5e
  9258. cmp.b #$70,d0 ;'p'
  9259. bne.s L006ec8
  9260. cmpi.b #$4d,(a4) ;'M'
  9261. bgt.s L006ec8
  9262. moveq.l #$00,d4
  9263. L006e98:
  9264. move.b (a4)+,d0
  9265. beq.w L006f58
  9266. cmp.b #$20,d0 ;' '
  9267. beq.w L006dac
  9268. cmp.b #$30,d0 ;'0'
  9269. bcs.w L006dac
  9270. cmp.b #$3a,d0 ;':'
  9271. bcc.w L006dac
  9272. and.l #$0000000f,d0
  9273. add.l d4,d4
  9274. move.l d4,d3
  9275. asl.l #2,d4
  9276. add.l d3,d4
  9277. add.l d0,d4
  9278. bra.s L006e98
  9279. L006ec8:
  9280. lsl.l #8,d0
  9281. move.b (a4)+,d0
  9282. beq.w L006f58
  9283. lsl.l #8,d0
  9284. move.b (a4)+,d0
  9285. beq.w L006f58
  9286. lsl.l #8,d0
  9287. ori.l #$20202000,d0
  9288. clr.b d0
  9289. lea.l (L007a3e),a0
  9290. moveq.l #$00,d2
  9291. moveq.l #$05,d3
  9292. L006eec:
  9293. cmp.l (a0)+,d0
  9294. beq.s L006efa
  9295. addq.l #1,d2
  9296. dbra.w d3,L006eec
  9297. bra.w L006dac
  9298. L006efa:
  9299. move.w d2,(L007a3c)
  9300. bra.w L006dac
  9301. L006f04:
  9302. moveq.l #$00,d2
  9303. L006f06:
  9304. move.b (a4)+,d0
  9305. beq.s L006f2e
  9306. cmp.b #$20,d0 ;' '
  9307. beq.s L006f2e
  9308. cmp.b #$30,d0 ;'0'
  9309. bcs.s L006f2e
  9310. cmp.b #$3a,d0 ;':'
  9311. bcc.s L006f2e
  9312. and.l #$0000000f,d0
  9313. add.l d2,d2
  9314. move.l d2,d3
  9315. asl.l #2,d2
  9316. add.l d3,d2
  9317. add.l d0,d2
  9318. bra.s L006f06
  9319. L006f2e:
  9320. cmp.l #$00000040,d2
  9321. bge.s L006f3c
  9322. move.b d2,(L006bc4)
  9323. L006f3c:
  9324. tst.b d0
  9325. bne.w L006dac
  9326. bra.s L006f58
  9327. L006f44:
  9328. move.b #$01,(L007a12)
  9329. bra.w L006dac
  9330. L006f50:
  9331. move.b #$01,(L00a82d)
  9332. L006f58:
  9333. andi.b #$fe,ccr
  9334. rts
  9335. L006f5e:
  9336. ori.b #$01,ccr
  9337. rts
  9338. L006f64:
  9339. movem.l d1-d7/a0-a6,-(sp)
  9340. jsr (L005b0a)
  9341. movea.l ($0012,a5),a4
  9342. bsr.w L007020
  9343. bsr.w L00715c
  9344. bcs.w L007016
  9345. move.l d1,($000e,a5)
  9346. moveq.l #$0d,d1
  9347. IOCS _OPMDRV
  9348. jsr (L002748)
  9349. move.w (L007a3c),d2
  9350. moveq.l #$2b,d1 ;'+'
  9351. IOCS _OPMDRV
  9352. moveq.l #$00,d2
  9353. moveq.l #$00,d1
  9354. IOCS _OPMDRV
  9355. tst.w (L007a0e)
  9356. bne.s L007004
  9357. pea.l (L00a251)
  9358. DOS _PRINT
  9359. addq.l #4,sp
  9360. tst.b (L0074c8)
  9361. bne.s L006fd2
  9362. pea.l (L00a2a4)
  9363. DOS _PRINT
  9364. addq.l #4,sp
  9365. pea.l (L00a378)
  9366. DOS _PRINT
  9367. addq.l #4,sp
  9368. bra.s L006fe6
  9369. L006fd2:
  9370. pea.l (L00a314)
  9371. DOS _PRINT
  9372. addq.l #4,sp
  9373. pea.l (L00a378)
  9374. DOS _PRINT
  9375. addq.l #4,sp
  9376. L006fe6:
  9377. tst.l (L00771e)
  9378. beq.s L006ffa
  9379. pea.l (L00a3a8)
  9380. DOS _PRINT
  9381. addq.l #4,sp
  9382. bra.s L007004
  9383. L006ffa:
  9384. pea.l (L00a3d8)
  9385. DOS _PRINT
  9386. addq.l #4,sp
  9387. L007004:
  9388. bsr.w L0073ec
  9389. bsr.w L00742a
  9390. movem.l (sp)+,d1-d7/a0-a6
  9391. jmp (L000220)
  9392. L007016:
  9393. movem.l (sp)+,d1-d7/a0-a6
  9394. jmp (L00021a)
  9395. L007020:
  9396. moveq.l #$00,d1
  9397. moveq.l #$ff,d4
  9398. L007024:
  9399. move.b (a4)+,d0
  9400. bne.s L007024
  9401. bra.s L00702e
  9402. L00702a:
  9403. move.b (a4)+,d0
  9404. bne.s L007034
  9405. L00702e:
  9406. move.b (a4)+,d0
  9407. beq.w L00715a
  9408. L007034:
  9409. cmp.b #$2f,d0 ;'/'
  9410. beq.s L00706a
  9411. cmp.b #$2d,d0 ;'-'
  9412. beq.s L00706a
  9413. cmp.b #$23,d0 ;'#'
  9414. bne.s L00702a
  9415. moveq.l #$00,d1
  9416. L007048:
  9417. move.b (a4)+,d0
  9418. beq.s L00702e
  9419. cmp.b #$30,d0 ;'0'
  9420. bcs.s L007024
  9421. cmp.b #$3a,d0 ;':'
  9422. bcc.s L007024
  9423. and.l #$0000000f,d0
  9424. add.l d1,d1
  9425. move.l d1,d3
  9426. asl.l #2,d1
  9427. add.l d3,d1
  9428. add.l d0,d1
  9429. bra.s L007048
  9430. L00706a:
  9431. move.b (a4)+,d0
  9432. beq.s L00702e
  9433. ori.b #$20,d0
  9434. cmp.b #$63,d0 ;'c'
  9435. bne.s L007082
  9436. move.w #$0001,(L007a0e)
  9437. bra.s L007024
  9438. L007082:
  9439. cmp.b #$61,d0 ;'a'
  9440. beq.w L00714e
  9441. cmp.b #$66,d0 ;'f'
  9442. beq.w L007112
  9443. cmp.b #$79,d0 ;'y'
  9444. bne.s L0070ac
  9445. move.b (a4)+,d0
  9446. beq.s L00702e
  9447. cmp.b #$30,d0 ;'0'
  9448. bne.s L007024
  9449. clr.w (L007a10)
  9450. bra.w L007024
  9451. L0070ac:
  9452. cmp.b #$70,d0 ;'p'
  9453. bne.s L0070e2
  9454. cmpi.b #$4d,(a4) ;'M'
  9455. bgt.s L0070e2
  9456. moveq.l #$00,d4
  9457. L0070ba:
  9458. move.b (a4)+,d0
  9459. beq.w L00702e
  9460. cmp.b #$30,d0 ;'0'
  9461. bcs.w L007024
  9462. cmp.b #$3a,d0 ;':'
  9463. bcc.w L007024
  9464. and.l #$0000000f,d0
  9465. add.l d4,d4
  9466. move.l d4,d3
  9467. asl.l #2,d4
  9468. add.l d3,d4
  9469. add.l d0,d4
  9470. bra.s L0070ba
  9471. L0070e2:
  9472. lsl.l #8,d0
  9473. move.b (a4)+,d0
  9474. beq.w L00702e
  9475. ori.w #$2020,d0
  9476. lea.l (L007a3e),a0
  9477. moveq.l #$00,d2
  9478. moveq.l #$05,d3
  9479. L0070f8:
  9480. cmp.w (a0)+,d0
  9481. beq.s L007108
  9482. addq.l #1,d2
  9483. addq.l #2,a0
  9484. dbra.w d3,L0070f8
  9485. bra.w L007024
  9486. L007108:
  9487. move.w d2,(L007a3c)
  9488. bra.w L007024
  9489. L007112:
  9490. moveq.l #$00,d2
  9491. L007114:
  9492. move.b (a4)+,d0
  9493. beq.s L00713a
  9494. cmp.b #$30,d0 ;'0'
  9495. bcs.w L007024
  9496. cmp.b #$3a,d0 ;':'
  9497. bcc.w L007024
  9498. and.l #$0000000f,d0
  9499. add.l d2,d2
  9500. move.l d2,d3
  9501. asl.l #2,d2
  9502. add.l d3,d2
  9503. add.l d0,d2
  9504. bra.s L007114
  9505. L00713a:
  9506. cmp.l #$00000040,d2
  9507. bge.w L00702e
  9508. move.b d2,(L006bc4)
  9509. bra.w L00702e
  9510. L00714e:
  9511. move.b #$01,(L007a12)
  9512. bra.w L007024
  9513. L00715a:
  9514. rts
  9515. L00715c:
  9516. movem.l d0-d4/a1,-(sp)
  9517. move.l #$000001f0,d1
  9518. lea.l (L0013ac),a1
  9519. IOCS _B_INTVCS
  9520. move.l d0,(L0074bc)
  9521. move.l #$000001f3,d1
  9522. lea.l (L001380),a1
  9523. IOCS _B_INTVCS
  9524. move.l d0,(L0074b4)
  9525. movem.l (sp)+,d0-d4/a1
  9526. move.l ($00001c00).l,d0
  9527. sub.l #L00e784,d0
  9528. sub.l #$00020000,d0
  9529. bpl.s L0071ac
  9530. moveq.l #$ff,d1
  9531. ori.b #$01,ccr
  9532. rts
  9533. L0071ac:
  9534. lsr.l #8,d0
  9535. lsr.l #2,d0
  9536. bsr.w L00739a
  9537. pea.l (L00a38a)
  9538. move.l d1,-(sp)
  9539. move.w #$0004,-(sp)
  9540. bsr.w L007450
  9541. lea.l ($000a,sp),sp
  9542. pea.l (L00a3ba)
  9543. move.l d4,-(sp)
  9544. move.w #$0004,-(sp)
  9545. bsr.w L007450
  9546. lea.l ($000a,sp),sp
  9547. asl.l #8,d4
  9548. asl.l #2,d4
  9549. asl.l #8,d1
  9550. asl.l #2,d1
  9551. move.l #L00e784,d0
  9552. move.l d1,(L007a20)
  9553. move.l d0,(L007a1c)
  9554. move.l d0,(L007848)
  9555. move.l d0,(L00784c)
  9556. move.l d0,(L00783c)
  9557. add.l d0,d1
  9558. addi.l #$00000018,d1
  9559. move.l d1,(L007716)
  9560. move.l d1,(L00771a)
  9561. move.l d4,(L00771e)
  9562. move.l d4,(L007722)
  9563. add.l d4,d1
  9564. jsr (L0068ac)
  9565. andi.b #$01,ccr
  9566. rts
  9567. L007236:
  9568. movem.l d0-d1,-(sp)
  9569. clr.w -(sp)
  9570. pea.l (L00a840)
  9571. DOS _OPEN
  9572. addq.l #6,sp
  9573. move.l d0,d1
  9574. bmi.s L00725a
  9575. move.w d1,-(sp)
  9576. DOS _CLOSE
  9577. addq.l #2,sp
  9578. move.b #$03,(L00a82c)
  9579. bra.s L007298
  9580. L00725a:
  9581. clr.w -(sp)
  9582. pea.l (L00a846)
  9583. DOS _OPEN
  9584. addq.l #6,sp
  9585. move.l d0,d1
  9586. bmi.s L00727a
  9587. move.w d1,-(sp)
  9588. DOS _CLOSE
  9589. addq.l #2,sp
  9590. move.b #$02,(L00a82c)
  9591. bra.s L007298
  9592. L00727a:
  9593. clr.w -(sp)
  9594. pea.l (L00a84a)
  9595. DOS _OPEN
  9596. addq.l #6,sp
  9597. move.l d0,d1
  9598. bmi.s L007298
  9599. move.w d1,-(sp)
  9600. DOS _CLOSE
  9601. addq.l #2,sp
  9602. move.b #$01,(L00a82c)
  9603. L007298:
  9604. movem.l (sp)+,d0-d1
  9605. rts
  9606. L00729e:
  9607. movem.l d0-d1/a0-a1,-(sp)
  9608. lea.l ($00006800).l,a0
  9609. L0072a8:
  9610. lea.l (L00a838),a1
  9611. moveq.l #$06,d1
  9612. bsr.s L0072e4
  9613. cmpa.l #L00a838,a0
  9614. beq.s L0072de
  9615. cmpi.w #$8024,(-$0012,a0)
  9616. bne.s L0072a8
  9617. lea.l (-$0016,a0),a0
  9618. L0072c6:
  9619. movea.l a0,a1
  9620. movea.l (a1),a0
  9621. cmpa.l #$ffffffff,a0
  9622. bne.s L0072c6
  9623. move.l #OPMStruct,(a1)
  9624. move.l a1,(L0074b8)
  9625. L0072de:
  9626. movem.l (sp)+,d0-d1/a0-a1
  9627. rts
  9628. L0072e4:
  9629. move.b (a1)+,d0
  9630. L0072e6:
  9631. cmp.b (a0)+,d0
  9632. bne.s L0072e6
  9633. movem.l d1/a0-a1,-(sp)
  9634. L0072ee:
  9635. move.b (a1)+,d0
  9636. cmp.b (a0)+,d0
  9637. bne.s L0072fe
  9638. dbra.w d1,L0072ee
  9639. lea.l ($000c,sp),sp
  9640. rts
  9641. L0072fe:
  9642. movem.l (sp)+,d1/a0-a1
  9643. move.b (-$0001,a1),d0
  9644. bra.s L0072e6
  9645. L007308:
  9646. movem.l d1-d2/a0-a2,-(sp)
  9647. moveq.l #$5f,d1 ;'_'
  9648. IOCS _OPMDRV
  9649. tst.l d0
  9650. bmi.s L007394
  9651. movea.l d0,a2
  9652. movea.l (a2),a1
  9653. move.l (a1),d0
  9654. movea.l d0,a0
  9655. add.l #$00000500,d0
  9656. L007324:
  9657. cmpi.l #$50434d20,(a0) ;'PCM '
  9658. beq.s L007332
  9659. addq.l #2,a0
  9660. cmp.l a0,d0
  9661. bcc.s L007324
  9662. L007332:
  9663. cmpi.l #$ffffffff,(-$000e,a0)
  9664. bne.s L007392
  9665. move.l (a1),d1
  9666. move.l d1,d2
  9667. move.l #$ffffffff,(a1)
  9668. sub.l #$000000f0,d1
  9669. move.l d1,-(sp)
  9670. DOS _MFREE
  9671. lea.l ($0004,sp),sp
  9672. movea.l d2,a1
  9673. add.l #$00000100,d2
  9674. L00735c:
  9675. cmpi.l #$4f504d20,(a1) ;'OPM '
  9676. beq.s L00736c
  9677. addq.l #2,a1
  9678. cmp.l a1,d2
  9679. bcc.s L00735c
  9680. bra.s L007372
  9681. L00736c:
  9682. move.l #$4e554c20,(a1) ;'NUL '
  9683. L007372:
  9684. move.l #$000001f0,d1
  9685. movea.l ($0004,a2),a1
  9686. IOCS _B_INTVCS
  9687. move.l #$000001f3,d1
  9688. movea.l (-$0004,a2),a1
  9689. IOCS _B_INTVCS
  9690. moveq.l #$00,d0
  9691. bra.s L007394
  9692. L007392:
  9693. moveq.l #$01,d0
  9694. L007394:
  9695. movem.l (sp)+,d1-d2/a0-a2
  9696. rts
  9697. L00739a:
  9698. movem.l d0/d2,-(sp)
  9699. cmpi.l #$00000018,d1
  9700. bge.s L0073aa
  9701. moveq.l #$40,d1 ;'@'
  9702. bra.s L0073be
  9703. L0073aa:
  9704. cmp.l d0,d1
  9705. blt.s L0073b0
  9706. move.l d0,d1
  9707. L0073b0:
  9708. cmpi.l #$00001000,d1
  9709. ble.s L0073be
  9710. move.l #$00001000,d1
  9711. L0073be:
  9712. tst.l d4
  9713. bpl.s L0073c4
  9714. moveq.l #$18,d4
  9715. L0073c4:
  9716. cmpi.l #$00001000,d4
  9717. blt.s L0073d2
  9718. move.l #$00001000,d4
  9719. L0073d2:
  9720. move.l d0,d2
  9721. sub.l d1,d2
  9722. bpl.s L0073de
  9723. clr.l d4
  9724. move.l d0,d1
  9725. bra.s L0073e6
  9726. L0073de:
  9727. move.l d2,d0
  9728. sub.l d4,d2
  9729. bpl.s L0073e6
  9730. move.l d0,d4
  9731. L0073e6:
  9732. movem.l (sp)+,d0/d2
  9733. rts
  9734. L0073ec:
  9735. movem.l d0-d1/a0,-(sp)
  9736. lea.l (L00d0e0),a0
  9737. move.l #$20202020,d0 ;' '
  9738. move.w #$013f,d1
  9739. L007400:
  9740. move.l d0,(a0)+
  9741. dbra.w d1,L007400
  9742. lea.l (L00d9e0),a0
  9743. move.l #$01000004,(a0)+
  9744. move.l #L007728,(a0)+
  9745. move.l #$01000003,(a0)+
  9746. move.l #L007728,(a0)+
  9747. movem.l (sp)+,d0-d1/a0
  9748. rts
  9749. L00742a:
  9750. movem.l d0-d1/a0-a2,-(sp)
  9751. lea.l (EmptyVoice),a0
  9752. lea.l ($0037,a0),a1
  9753. move.w #$0082,d0
  9754. L00743c:
  9755. moveq.l #$36,d1 ;'6'
  9756. movea.l a0,a2
  9757. L007440:
  9758. move.b (a2)+,(a1)+
  9759. dbra.w d1,L007440
  9760. dbra.w d0,L00743c
  9761. movem.l (sp)+,d0-d1/a0-a2
  9762. rts
  9763. L007450:
  9764. link.w a6,#$0000
  9765. movem.l d1-d6/a0-a1,-(sp)
  9766. movea.l ($000e,a6),a0
  9767. move.w ($0008,a6),d3
  9768. move.l ($000a,a6),d4
  9769. lea.l (L00a84e),a1
  9770. moveq.l #$0a,d2
  9771. sub.w d3,d2
  9772. bpl.s L007474
  9773. clr.w d2
  9774. moveq.l #$0a,d3
  9775. L007474:
  9776. lsl.w #2,d2
  9777. adda.l d2,a1
  9778. subq.w #1,d3
  9779. clr.w d5
  9780. L00747c:
  9781. moveq.l #$00,d2
  9782. move.l (a1)+,d1
  9783. L007480:
  9784. or.l d1,d1
  9785. sub.l d1,d4
  9786. bcs.s L00748a
  9787. addq.b #1,d2
  9788. bra.s L007480
  9789. L00748a:
  9790. tst.b d2
  9791. beq.s L007494
  9792. move.w #$0001,d5
  9793. bra.s L0074a0
  9794. L007494:
  9795. tst.w d3
  9796. beq.s L0074a0
  9797. tst.w d5
  9798. bne.s L0074a0
  9799. move.b #-$10,d2
  9800. L0074a0:
  9801. add.l d1,d4
  9802. addi.b #$30,d2 ;'0'
  9803. move.b d2,(a0)+
  9804. dbra.w d3,L00747c
  9805. movem.l (sp)+,d1-d6/a0-a1
  9806. unlk a6
  9807. rts
  9808. .data
  9809. L0074b4:
  9810. .dc.l $00000000
  9811. L0074b8:
  9812. .dc.l $00000000
  9813. L0074bc:
  9814. .dc.l $00000000
  9815. L0074c0:
  9816. .dc.l $10920303,$00000000
  9817. L0074c8:
  9818. .dc.b $00,$00
  9819. L0074ca:
  9820. .dc.l L0056dc
  9821. .dc.l L00572a
  9822. .dc.l L00580e
  9823. .dc.l L0058b6
  9824. .dc.l L0058c6
  9825. .dc.l L0058d0
  9826. .dc.l L0059a2
  9827. .dc.l L0059ac
  9828. .dc.l L005ae6
  9829. L0074ee:
  9830. .dc.w $0080,$0082,$0084,$0086,$0088,$008a,$008c,$008e
  9831. .dc.w $0090
  9832. L007500:
  9833. .dc.l $00000000,$00000000,$00000000,$00000000
  9834. .dc.l $00000000,$00000000,$00000000,$00000000
  9835. .dc.l $00000000
  9836. .dc.l L005afe
  9837. .dc.l L005afe
  9838. .dc.l L005afe
  9839. .dc.l L005afe
  9840. .dc.l L005afe
  9841. .dc.l L005afe
  9842. .dc.l L005afe
  9843. .dc.l $00000000,$00000000,$00000000,$00000000
  9844. L007550:
  9845. .dc.w $0078
  9846. L007552:
  9847. .dc.b $03
  9848. L007553:
  9849. .dc.b $00
  9850. L007554:
  9851. .dc.b $00
  9852. L007555:
  9853. .dc.b $7f
  9854. L007556:
  9855. .dc.b $00
  9856. L007557:
  9857. .dc.b $01
  9858. L007558:
  9859. .dc.b $00
  9860. L007559:
  9861. .dc.b $01
  9862. L00755a:
  9863. .dc.b $00
  9864. L00755b:
  9865. .dc.b $00
  9866. L00755c:
  9867. .dc.b $00
  9868. L00755d:
  9869. .dc.b $0a,$00,$00,$00,$00,$00
  9870. L007563:
  9871. .dc.b $00
  9872. L007564:
  9873. .dc.b $00,$00
  9874. L007566:
  9875. .dc.w $0004,$0000,$0000
  9876. L00756c:
  9877. .dc.w $0000,$0001,$0000
  9878. L007572:
  9879. .dc.w $0000,$0000,$03e8
  9880. L007578:
  9881. .dc.l $00000000
  9882. L00757c:
  9883. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  9884. L007586:
  9885. .dc.b $3f,$33,$29,$21,$1b,$16,$12,$0f,$0c,$09,$07,$05,$03,$02,$01,$00
  9886. L007596:
  9887. .dc.b $3f,$39,$35,$31,$2e,$2b,$28,$25,$22,$1f,$1c,$1a,$18,$16,$14,$12
  9888. .dc.b $10,$0e,$0d,$0c,$0b,$0a,$09,$08,$07,$06,$05,$04,$03,$02,$01,$00
  9889. L0075b6:
  9890. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9891. .dc.b $00,$00,$00,$00
  9892. .dc.l APianoData2
  9893. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9894. .dc.b $00,$00,$00,$00
  9895. .dc.l APianoData2
  9896. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9897. .dc.b $00,$00,$00,$00
  9898. .dc.l APianoData2
  9899. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9900. .dc.b $00,$00,$00,$00
  9901. .dc.l APianoData2
  9902. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9903. .dc.b $00,$00,$00,$00
  9904. .dc.l APianoData2
  9905. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9906. .dc.b $00,$00,$00,$00
  9907. .dc.l APianoData2
  9908. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9909. .dc.b $00,$00,$00,$00
  9910. .dc.l APianoData2
  9911. .dc.b $01,$01,$01,$01,$78,$00,$00,$00,$00,$00,$c0,$00,$00,$00,$00,$00
  9912. .dc.b $00,$00,$00,$00
  9913. .dc.l APianoData2
  9914. L007676:
  9915. .dc.b $00,$00,$00,$01,$00,$00,$00,$01,$00,$00,$00,$01,$00,$00,$00,$01
  9916. .dc.b $00,$01,$00,$01,$00,$01,$01,$01,$00,$01,$01,$01,$01,$01,$01,$01
  9917. L007696:
  9918. .dc.b $0c,$0d,$0e,$00,$01,$02,$04,$05,$06,$08,$09,$0a,$0c,$0d,$0e,$00
  9919. .dc.b $01,$02,$04,$05,$06,$08,$09,$0a,$0c,$0d,$0e,$10,$11,$12,$14,$15
  9920. .dc.b $16,$18,$19,$1a,$1c,$1d,$1e,$20,$21,$22,$24,$25,$26,$28,$29,$2a
  9921. .dc.b $2c,$2d,$2e,$30,$31,$32,$34,$35,$36,$38,$39,$3a,$3c,$3d,$3e,$40
  9922. .dc.b $41,$42,$44,$45,$46,$48,$49,$4a,$4c,$4d,$4e,$50,$51,$52,$54,$55
  9923. .dc.b $56,$58,$59,$5a,$5c,$5d,$5e,$60,$61,$62,$64,$65,$66,$68,$69,$6a
  9924. .dc.b $6c,$6d,$6e,$70,$71,$72,$74,$75,$76,$78,$79,$7a,$7c,$7d,$7e,$70
  9925. .dc.b $71,$72,$74,$75,$76,$78,$79,$7a,$7c,$7d,$7e,$70,$71,$72,$74,$75
  9926. L007716:
  9927. .dc.l $00000000
  9928. L00771a:
  9929. .dc.l $00000000
  9930. L00771e:
  9931. .dc.l $00000000
  9932. L007722:
  9933. .dc.l $00000000
  9934. L007726:
  9935. .dc.b $03,$00
  9936. L007728:
  9937. .dc.b $80,$f4,$80,$91,$a4,$bd,$17,$c0,$30,$19,$ba,$4a,$22,$f8,$a4,$82
  9938. .dc.b $1f,$80,$00,$01,$2f,$35,$af,$41,$a8,$b8,$71,$d0,$30,$a9,$50,$0b
  9939. .dc.b $99,$0d,$f4,$2a,$30,$00,$98,$05,$0e,$11,$aa,$11,$0a,$42,$ca,$00
  9940. .dc.b $24,$cb,$38,$01,$e1,$08,$99,$33,$a0,$40,$0b,$85,$9e,$85,$8b,$88
  9941. .dc.b $43,$ca,$32,$8a,$03,$1e,$a3,$8c,$83,$8b,$06,$89,$91,$38,$9a,$41
  9942. .dc.b $aa,$88,$21,$80,$b4,$b8,$0e,$7a,$91,$9b,$72,$c2,$29,$a8,$19,$01
  9943. .dc.b $00,$23,$ad,$13,$bb,$08,$93,$1e,$24,$8b,$04,$bb,$03,$91,$9f,$03
  9944. .dc.b $90,$29,$01,$a1,$71,$0a,$a9,$3c,$94,$99,$17,$8c,$82,$aa,$1c,$14
  9945. .dc.b $09,$18,$11,$a0,$4a,$b1,$90,$6a,$d8,$89,$33,$e9,$01,$2b,$35,$ac
  9946. .dc.b $00,$92,$10,$88,$b3,$a0,$58,$d9,$1d,$02,$10,$90,$25,$8e,$92,$99
  9947. .dc.b $08,$18,$48,$81,$0f,$80,$11,$01,$8a,$62,$a9,$0c,$08,$31,$80,$d0
  9948. .dc.b $1a,$b4,$0c,$00,$17,$3b,$a3,$8a,$d0,$38,$81,$cb,$48,$03,$ac,$08
  9949. .dc.b $78,$89,$19,$89,$33,$b2,$91,$18,$20,$ed,$2b,$5b,$93,$38,$c9,$29
  9950. .dc.b $c3,$18,$aa,$43,$80,$42,$a0,$ae,$68,$a8,$5b,$a2,$92,$a0,$b1,$1b
  9951. .dc.b $b4,$7a,$89,$23,$9d,$83,$1b,$a4,$31,$d8,$11,$db,$24,$99,$01,$28
  9952. .dc.b $98,$cf,$90,$30,$86,$29,$91,$80,$e8,$82,$9b,$05,$3b,$a1,$10,$21
  9953. L007828:
  9954. .dc.b $00,$04,$00,$04
  9955. L00782c:
  9956. .dc.w $0000
  9957. L00782e:
  9958. .dc.w $0000
  9959. L007830:
  9960. .dc.l $00040004
  9961. L007834:
  9962. .dc.w $00c0
  9963. L007836:
  9964. .dc.w $0030
  9965. L007838:
  9966. .dc.w $00c0
  9967. L00783a:
  9968. .dc.w $0000
  9969. L00783c:
  9970. .dc.l $00000000
  9971. L007840:
  9972. .dc.l $00000000
  9973. L007844:
  9974. .dc.l $00000000
  9975. L007848:
  9976. .dc.l $00000000
  9977. L00784c:
  9978. .dc.l $00000000
  9979. L007850:
  9980. .dc.w $0000
  9981. L007852:
  9982. .dc.b $00
  9983. L007853:
  9984. .dc.b $00
  9985. L007854:
  9986. .dc.w $0000
  9987. L007856:
  9988. .dc.l L007882
  9989. .dc.l L007887
  9990. .dc.l L00788c
  9991. .dc.l L007892
  9992. .dc.l L007894
  9993. .dc.l L00789b
  9994. .dc.l L00789d
  9995. .dc.l L0078a2
  9996. .dc.l L0078a4
  9997. .dc.l L0078a9
  9998. .dc.l L0078ac
  9999. L007882:
  10000. .dc.b 'D.C.',$00
  10001. L007887:
  10002. .dc.b 'D.S.',$00
  10003. L00788c:
  10004. .dc.b 'SEGNO',$00
  10005. L007892:
  10006. .dc.b '$',$00
  10007. L007894:
  10008. .dc.b 'TOCODA',$00
  10009. L00789b:
  10010. .dc.b '*',$00
  10011. L00789d:
  10012. .dc.b 'FINE',$00
  10013. L0078a2:
  10014. .dc.b '^',$00
  10015. L0078a4:
  10016. .dc.b 'CODA',$00
  10017. L0078a9:
  10018. .dc.b 'DO',$00
  10019. L0078ac:
  10020. .dc.b 'LOOP',$00,$00
  10021. L0078b2:
  10022. .dc.l $00000000
  10023. L0078b6:
  10024. .dc.l $00000000
  10025. L0078ba:
  10026. .dc.l $00000000
  10027. L0078be:
  10028. .dc.l $00000000
  10029. L0078c2:
  10030. .dc.l $00000000
  10031. L0078c6:
  10032. .ds.b 320
  10033. L007a06:
  10034. .dc.w $0000,$0000
  10035. L007a0a:
  10036. .dc.w $7fff
  10037. L007a0c:
  10038. .dc.w $0000
  10039. L007a0e:
  10040. .dc.w $0000
  10041. L007a10:
  10042. .dc.w $0001
  10043. L007a12:
  10044. .dc.b $00,$00
  10045. L007a14:
  10046. .dc.b $00,$00,$00,$00,$00,$00
  10047. L007a1a:
  10048. .dc.b $00,$00
  10049. L007a1c:
  10050. .dc.l $00000000
  10051. L007a20:
  10052. .dc.l $00010000
  10053. L007a24:
  10054. .dc.l $00000000
  10055. L007a28:
  10056. .dc.l $00000000,$00000000
  10057. L007a30:
  10058. .dc.w $0000,$0000
  10059. L007a34:
  10060. .dc.w $0001
  10061. L007a36:
  10062. .dc.b $c6
  10063. L007a37:
  10064. .dc.b $40
  10065. L007a38:
  10066. .dc.b $00
  10067. L007a39:
  10068. .dc.b $00
  10069. L007a3a:
  10070. .dc.b $00,$00
  10071. L007a3c:
  10072. .dc.w $0000
  10073. L007a3e:
  10074. .dc.b 'opm',$00
  10075. L007a42:
  10076. .dc.b 'omp',$00
  10077. L007a46:
  10078. .dc.b 'mop',$00
  10079. L007a4a:
  10080. .dc.b 'mpo',$00
  10081. L007a4e:
  10082. .dc.b 'pom',$00
  10083. L007a52:
  10084. .dc.b 'pmo',$00
  10085. APianoStr1:
  10086. .dc.b '*A.ピアノ '
  10087. HPianoStr1:
  10088. .dc.b '*H.ピアノ '
  10089. EPianoStr1:
  10090. .dc.b '*E.ピアノ '
  10091. ClavinetStr1:
  10092. .dc.b '*クラビネット '
  10093. CelestaStr1:
  10094. .dc.b '*セレスタ '
  10095. HarpsichordStr1:
  10096. .dc.b '*チェンバロ '
  10097. AGuitarStr1:
  10098. .dc.b '*A.ギター '
  10099. EGuitarStr1:
  10100. .dc.b '*E.ギター '
  10101. WoodbassStr1:
  10102. .dc.b '*ウッドベース '
  10103. EBassStr1:
  10104. .dc.b '*E.ベース '
  10105. BanjoStr1:
  10106. .dc.b '*バンジョー '
  10107. SitarStr1:
  10108. .dc.b '*シタール '
  10109. HarpStr1:
  10110. .dc.b '*ハープ '
  10111. KotoStr1:
  10112. .dc.b '*コト '
  10113. POrgan1Str1:
  10114. .dc.b '*P.オルガン1 '
  10115. POrgan2Str1:
  10116. .dc.b '*P.オルガン2 '
  10117. EOrganStr1:
  10118. .dc.b '*E.オルガン '
  10119. AccordionStr1:
  10120. .dc.b '*アコーディオン '
  10121. ViolinStr1:
  10122. .dc.b '*バイオリン '
  10123. CelloStr1:
  10124. .dc.b '*チェロ '
  10125. Strings1Str1:
  10126. .dc.b '*ストリングス1 '
  10127. Strings2Str1:
  10128. .dc.b '*ストリングス2 '
  10129. PizzicatoStr1:
  10130. .dc.b '*ピチカート '
  10131. VoiceStr1:
  10132. .dc.b '*ボイス '
  10133. ChorusStr1:
  10134. .dc.b '*コーラス '
  10135. GrassharpStr1:
  10136. .dc.b '*グラスハープ '
  10137. WhistleStr1:
  10138. .dc.b '*ホイッスル '
  10139. PiccoloStr1:
  10140. .dc.b '*ピッコロ '
  10141. FluteStr1:
  10142. .dc.b '*フルート '
  10143. OboeStr1:
  10144. .dc.b '*オーボエ '
  10145. ClarinetStr1:
  10146. .dc.b '*クラリネット '
  10147. BassoonStr1:
  10148. .dc.b '*バスーン '
  10149. SaxophoneStr1:
  10150. .dc.b '*サックス '
  10151. TrumpetStr1:
  10152. .dc.b '*トランペット '
  10153. HornStr1:
  10154. .dc.b '*ホルン '
  10155. TromboneStr1:
  10156. .dc.b '*トロンボーン '
  10157. TubaStr1:
  10158. .dc.b '*チューバ '
  10159. Brass1Str1:
  10160. .dc.b '*ブラス1 '
  10161. Brass2Str1:
  10162. .dc.b '*ブラス2 '
  10163. HarmonicaStr1:
  10164. .dc.b '*ハーモニカ '
  10165. OcarinaStr1:
  10166. .dc.b '*オカリナ '
  10167. RecorderStr1:
  10168. .dc.b '*リコーダー '
  10169. SambaWhistleStr1:
  10170. .dc.b '*サンバホイッスル'
  10171. PanfluteStr1:
  10172. .dc.b '*パンフルート '
  10173. SnaredrumStr1:
  10174. .dc.b '*スネアドラム '
  10175. RimshotStr1:
  10176. .dc.b '*リムショット '
  10177. BassdrumStr1:
  10178. .dc.b '*バスドラム '
  10179. TomtomStr1:
  10180. .dc.b '*タムタム '
  10181. TimpaniStr1:
  10182. .dc.b '*ティンパニ '
  10183. BongoStr1:
  10184. .dc.b '*ボンゴ '
  10185. TingPalaceStr1:
  10186. .dc.b '*ティンパレス '
  10187. TriangleStr1:
  10188. .dc.b '*トライアングル '
  10189. CowbellStr1:
  10190. .dc.b '*カウベル '
  10191. TubelabelStr1:
  10192. .dc.b '*チューブラベル'
  10193. SteeldrumStr1:
  10194. .dc.b '*スチールドラム '
  10195. GlockenStr1:
  10196. .dc.b '*グロッケン '
  10197. VibraphoneStr1:
  10198. .dc.b '*ビブラフォン '
  10199. MarimbaStr1:
  10200. .dc.b '*マリンバ '
  10201. ClosedHHStr1:
  10202. .dc.b '*クローズH.H.'
  10203. OpenHHStr1:
  10204. .dc.b '*オープンH.H.'
  10205. CymbalStr1:
  10206. .dc.b '*シンバル '
  10207. Synthesizer1Str1:
  10208. .dc.b '*シンセサイザ1 '
  10209. Synthesizer2Str1:
  10210. .dc.b '*シンセサイザ2 '
  10211. SE1Str1:
  10212. .dc.b '*SE1 '
  10213. SE2Str1:
  10214. .dc.b '*SE2 '
  10215. SE3Str1:
  10216. .dc.b '*SE3 '
  10217. SE4Str1:
  10218. .dc.b '*SE4 '
  10219. SE5Str1:
  10220. .dc.b '*SE5 '
  10221. L007cfe:
  10222. .dc.b ' '
  10223. L007d08:
  10224. .dc.b ' '
  10225. APianoData1:
  10226. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10227. .dc.b $0f ; Slot Mask
  10228. .dc.b $02,$00,$dc,$00,$00,$00,$00,$03,$00
  10229. .dc.b $1c,$04,$00,$05,$01,$25,$02,$01,$07,$00,$00
  10230. .dc.b $16,$09,$01,$02,$01,$2f,$02,$0c,$00,$00,$00
  10231. .dc.b $1d,$04,$03,$06,$01,$25,$01,$03,$03,$00,$00
  10232. .dc.b $0f,$07,$00,$05,$0a,$00,$02,$01,$00,$00,$01
  10233. HPianoData1:
  10234. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  10235. .dc.b $0f ; Slot Mask
  10236. .dc.b $02,$00,$dc,$00,$0a,$00,$00,$03,$00
  10237. .dc.b $1f,$0a,$01,$03,$0f,$18,$02,$07,$03,$01,$00
  10238. .dc.b $1d,$0c,$09,$07,$0a,$00,$00,$07,$04,$00,$01
  10239. .dc.b $1f,$05,$01,$03,$0f,$23,$02,$05,$04,$00,$00
  10240. .dc.b $1c,$0c,$09,$07,$0a,$00,$00,$01,$03,$00,$01
  10241. EPianoData1:
  10242. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  10243. .dc.b $0f ; Slot Mask
  10244. .dc.b $02,$00,$b4,$00,$00,$00,$00,$03,$00
  10245. .dc.b $1f,$0f,$00,$06,$07,$35,$02,$0f,$05,$01,$00
  10246. .dc.b $1f,$07,$05,$08,$02,$0d,$03,$01,$00,$00,$01
  10247. .dc.b $1f,$06,$00,$06,$04,$25,$02,$01,$02,$00,$00
  10248. .dc.b $1f,$07,$00,$07,$00,$00,$01,$01,$07,$00,$01
  10249. ClavinetData1:
  10250. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10251. .dc.b $0f ; Slot Mask
  10252. .dc.b $02,$00,$82,$00,$00,$00,$00,$03,$00
  10253. .dc.b $1c,$04,$03,$07,$01,$23,$02,$01,$03,$00,$00
  10254. .dc.b $1b,$08,$01,$02,$00,$25,$03,$0f,$07,$00,$00
  10255. .dc.b $1c,$03,$00,$00,$0f,$1b,$02,$01,$06,$00,$00
  10256. .dc.b $1a,$09,$00,$0a,$0f,$00,$02,$0a,$00,$00,$01
  10257. CelestaData1:
  10258. .dc.b $01 << 3 | $05 ; Feedback << 3 | Connection
  10259. .dc.b $0f ; Slot Mask
  10260. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10261. .dc.b $1f,$0a,$0c,$05,$0f,$48,$01,$0e,$02,$00,$01
  10262. .dc.b $1f,$0a,$0c,$05,$0f,$07,$01,$04,$07,$00,$01
  10263. .dc.b $1f,$0a,$0c,$07,$0f,$07,$01,$0c,$07,$00,$01
  10264. .dc.b $1f,$0a,$0c,$06,$0f,$07,$01,$09,$03,$00,$01
  10265. HarpsichordData1:
  10266. .dc.b $06 << 3 | $02 ; Feedback << 3 | Connection
  10267. .dc.b $0f ; Slot Mask
  10268. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10269. .dc.b $1f,$00,$00,$0f,$00,$19,$01,$03,$00,$00,$00
  10270. .dc.b $1f,$00,$00,$0f,$00,$23,$03,$0c,$04,$00,$01
  10271. .dc.b $1f,$00,$00,$02,$00,$24,$01,$01,$00,$00,$00
  10272. .dc.b $1f,$06,$04,$05,$0f,$00,$02,$01,$04,$00,$01
  10273. AGuitarData1:
  10274. .dc.b $04 << 3 | $01 ; Feedback << 3 | Connection
  10275. .dc.b $0f ; Slot Mask
  10276. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10277. .dc.b $1c,$05,$04,$03,$0f,$2a,$03,$02,$01,$00,$00
  10278. .dc.b $1f,$07,$04,$01,$02,$25,$01,$03,$07,$00,$00
  10279. .dc.b $1f,$03,$04,$01,$02,$23,$03,$03,$04,$00,$00
  10280. .dc.b $1f,$02,$01,$04,$01,$00,$02,$01,$02,$00,$00
  10281. EGuitarData1:
  10282. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10283. .dc.b $0f ; Slot Mask
  10284. .dc.b $02,$00,$d2,$00,$00,$00,$00,$03,$00
  10285. .dc.b $1f,$0d,$01,$04,$0f,$29,$02,$0f,$03,$00,$00
  10286. .dc.b $1f,$14,$05,$0f,$0e,$39,$01,$0d,$07,$02,$00
  10287. .dc.b $14,$0a,$01,$07,$08,$23,$01,$03,$07,$00,$00
  10288. .dc.b $17,$05,$01,$07,$0f,$00,$00,$01,$03,$00,$01
  10289. WoodbassData1:
  10290. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10291. .dc.b $0f ; Slot Mask
  10292. .dc.b $02,$00,$96,$00,$00,$00,$00,$03,$00
  10293. .dc.b $1f,$0d,$01,$04,$0f,$20,$01,$00,$07,$00,$00
  10294. .dc.b $1f,$0b,$01,$0a,$0f,$37,$01,$04,$05,$00,$00
  10295. .dc.b $1f,$0b,$01,$0a,$0f,$1d,$00,$00,$02,$00,$00
  10296. .dc.b $1f,$0b,$01,$08,$0f,$00,$01,$00,$03,$00,$01
  10297. EBassData1:
  10298. .dc.b $00 << 3 | $03 ; Feedback << 3 | Connection
  10299. .dc.b $0f ; Slot Mask
  10300. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10301. .dc.b $1f,$0e,$01,$0a,$0a,$2a,$00,$06,$06,$00,$00
  10302. .dc.b $1f,$05,$00,$0a,$06,$1a,$00,$00,$04,$00,$00
  10303. .dc.b $1f,$02,$04,$06,$01,$20,$00,$00,$04,$00,$00
  10304. .dc.b $1c,$01,$06,$08,$01,$00,$00,$01,$03,$00,$01
  10305. BanjoData1:
  10306. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10307. .dc.b $0f ; Slot Mask
  10308. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10309. .dc.b $18,$0a,$00,$02,$05,$1b,$01,$05,$07,$00,$00
  10310. .dc.b $1a,$10,$00,$08,$0b,$1e,$00,$0f,$00,$00,$00
  10311. .dc.b $1c,$10,$00,$04,$03,$20,$00,$01,$06,$00,$00
  10312. .dc.b $18,$0b,$00,$06,$0f,$00,$02,$01,$03,$00,$00
  10313. SitarData1:
  10314. .dc.b $00 << 3 | $01 ; Feedback << 3 | Connection
  10315. .dc.b $0f ; Slot Mask
  10316. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  10317. .dc.b $1f,$1f,$08,$02,$0c,$34,$00,$03,$07,$00,$00
  10318. .dc.b $1f,$0b,$01,$03,$01,$23,$01,$09,$03,$00,$00
  10319. .dc.b $1c,$07,$09,$04,$0f,$11,$00,$01,$01,$00,$00
  10320. .dc.b $12,$01,$01,$04,$0f,$00,$01,$01,$00,$00,$01
  10321. HarpData1:
  10322. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10323. .dc.b $0f ; Slot Mask
  10324. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10325. .dc.b $1f,$19,$01,$02,$02,$4c,$00,$06,$00,$00,$00
  10326. .dc.b $1f,$10,$01,$02,$0d,$1a,$01,$03,$07,$00,$00
  10327. .dc.b $1f,$04,$02,$02,$0c,$25,$01,$01,$00,$00,$00
  10328. .dc.b $1f,$0a,$00,$03,$0f,$00,$01,$01,$00,$00,$01
  10329. KotoData1:
  10330. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  10331. .dc.b $0f ; Slot Mask
  10332. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  10333. .dc.b $1a,$08,$05,$07,$02,$1c,$03,$03,$07,$00,$00
  10334. .dc.b $1d,$04,$05,$05,$01,$1f,$03,$04,$01,$00,$00
  10335. .dc.b $1c,$04,$02,$06,$02,$20,$03,$01,$07,$00,$00
  10336. .dc.b $1d,$09,$03,$03,$01,$00,$03,$01,$03,$00,$01
  10337. POrgan1Data1:
  10338. .dc.b $07 << 3 | $06 ; Feedback << 3 | Connection
  10339. .dc.b $0f ; Slot Mask
  10340. .dc.b $02,$00,$02,$08,$01,$03,$02,$03,$00
  10341. .dc.b $1f,$14,$00,$0a,$00,$24,$00,$08,$03,$00,$00
  10342. .dc.b $14,$02,$01,$0a,$03,$00,$00,$02,$07,$00,$01
  10343. .dc.b $14,$02,$01,$0a,$03,$00,$00,$01,$01,$00,$01
  10344. .dc.b $14,$02,$01,$0a,$03,$00,$00,$06,$02,$00,$01
  10345. POrgan2Data1:
  10346. .dc.b $07 << 3 | $07 ; Feedback << 3 | Connection
  10347. .dc.b $0f ; Slot Mask
  10348. .dc.b $02,$00,$be,$00,$00,$00,$00,$03,$00
  10349. .dc.b $1f,$01,$01,$0a,$00,$1d,$00,$08,$03,$00,$01
  10350. .dc.b $13,$02,$01,$0a,$01,$02,$00,$03,$07,$00,$01
  10351. .dc.b $13,$02,$01,$0a,$01,$02,$00,$01,$00,$00,$01
  10352. .dc.b $13,$02,$01,$0a,$01,$02,$00,$02,$06,$00,$01
  10353. EOrganData1:
  10354. .dc.b $03 << 3 | $07 ; Feedback << 3 | Connection
  10355. .dc.b $0f ; Slot Mask
  10356. .dc.b $02,$00,$c8,$03,$02,$02,$01,$03,$00
  10357. .dc.b $1f,$14,$00,$0f,$0f,$0c,$00,$07,$00,$00,$01
  10358. .dc.b $1f,$02,$01,$0f,$00,$05,$00,$03,$02,$00,$01
  10359. .dc.b $1f,$02,$01,$0f,$00,$07,$00,$03,$00,$00,$01
  10360. .dc.b $1f,$02,$01,$0f,$00,$05,$00,$02,$06,$00,$01
  10361. AccordionData1:
  10362. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  10363. .dc.b $0f ; Slot Mask
  10364. .dc.b $02,$00,$b4,$1e,$00,$02,$00,$03,$00
  10365. .dc.b $1f,$00,$00,$00,$00,$27,$01,$06,$03,$00,$00
  10366. .dc.b $1f,$03,$01,$01,$01,$26,$01,$07,$03,$00,$01
  10367. .dc.b $13,$02,$01,$06,$01,$26,$01,$01,$07,$00,$00
  10368. .dc.b $10,$00,$00,$09,$00,$00,$01,$02,$07,$00,$01
  10369. ViolinData1:
  10370. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10371. .dc.b $0f ; Slot Mask
  10372. .dc.b $02,$00,$ca,$38,$03,$03,$00,$03,$00
  10373. .dc.b $14,$02,$00,$05,$01,$21,$01,$01,$00,$00,$00
  10374. .dc.b $19,$06,$00,$08,$03,$1e,$01,$05,$07,$00,$00
  10375. .dc.b $1c,$03,$00,$06,$01,$30,$01,$01,$00,$00,$00
  10376. .dc.b $0c,$04,$00,$06,$00,$00,$01,$01,$04,$00,$01
  10377. CelloData1:
  10378. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  10379. .dc.b $0f ; Slot Mask
  10380. .dc.b $02,$00,$c8,$50,$00,$02,$00,$03,$00
  10381. .dc.b $12,$1f,$14,$0a,$00,$0a,$01,$0f,$07,$03,$00
  10382. .dc.b $1f,$11,$0c,$0a,$00,$23,$01,$06,$07,$00,$00
  10383. .dc.b $0d,$12,$01,$03,$00,$1b,$02,$01,$07,$00,$00
  10384. .dc.b $0c,$02,$01,$0a,$01,$00,$01,$01,$03,$00,$01
  10385. Strings1Data1:
  10386. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10387. .dc.b $0f ; Slot Mask
  10388. .dc.b $02,$00,$cd,$50,$00,$02,$00,$03,$00
  10389. .dc.b $1e,$01,$00,$01,$01,$1e,$03,$00,$02,$00,$00
  10390. .dc.b $1f,$01,$00,$02,$01,$26,$03,$02,$03,$00,$00
  10391. .dc.b $1e,$01,$00,$01,$01,$30,$01,$01,$03,$00,$00
  10392. .dc.b $08,$02,$00,$06,$00,$00,$00,$01,$04,$00,$01
  10393. Strings2Data1:
  10394. .dc.b $07 << 3 | $05 ; Feedback << 3 | Connection
  10395. .dc.b $0f ; Slot Mask
  10396. .dc.b $02,$00,$c8,$5a,$00,$02,$00,$03,$00
  10397. .dc.b $1f,$01,$01,$02,$00,$1f,$03,$00,$00,$00,$00
  10398. .dc.b $09,$01,$00,$06,$00,$00,$00,$01,$01,$00,$00
  10399. .dc.b $0a,$01,$00,$07,$00,$00,$00,$01,$01,$00,$00
  10400. .dc.b $09,$02,$00,$07,$00,$00,$00,$01,$01,$00,$01
  10401. PizzicatoData1:
  10402. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  10403. .dc.b $0f ; Slot Mask
  10404. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10405. .dc.b $1f,$16,$01,$03,$0f,$18,$00,$01,$03,$00,$00
  10406. .dc.b $12,$0f,$01,$05,$0e,$00,$01,$01,$07,$00,$01
  10407. .dc.b $1f,$0f,$00,$03,$0f,$20,$01,$01,$03,$00,$00
  10408. .dc.b $1f,$0f,$01,$05,$0e,$00,$01,$01,$03,$00,$01
  10409. VoiceData1:
  10410. .dc.b $00 << 3 | $06 ; Feedback << 3 | Connection
  10411. .dc.b $0f ; Slot Mask
  10412. .dc.b $02,$00,$c8,$5a,$00,$04,$00,$03,$00
  10413. .dc.b $0a,$00,$01,$03,$00,$4d,$00,$01,$00,$00,$00
  10414. .dc.b $0c,$00,$00,$05,$00,$07,$02,$03,$03,$00,$01
  10415. .dc.b $0c,$00,$01,$06,$02,$00,$01,$02,$07,$00,$01
  10416. .dc.b $12,$00,$00,$06,$00,$11,$01,$01,$03,$00,$01
  10417. ChorusData1:
  10418. .dc.b $05 << 3 | $01 ; Feedback << 3 | Connection
  10419. .dc.b $0f ; Slot Mask
  10420. .dc.b $02,$00,$ce,$28,$00,$04,$00,$03,$00
  10421. .dc.b $13,$12,$04,$04,$05,$42,$00,$06,$03,$03,$00
  10422. .dc.b $15,$0e,$06,$0a,$06,$34,$00,$04,$07,$03,$00
  10423. .dc.b $0b,$1f,$03,$0a,$00,$2d,$00,$01,$07,$00,$00
  10424. .dc.b $0e,$1f,$01,$08,$00,$00,$00,$01,$03,$00,$01
  10425. GrassharpData1:
  10426. .dc.b $04 << 3 | $04 ; Feedback << 3 | Connection
  10427. .dc.b $0f ; Slot Mask
  10428. .dc.b $00,$00,$50,$01,$02,$01,$01,$03,$00
  10429. .dc.b $14,$02,$01,$05,$03,$24,$01,$04,$00,$00,$01
  10430. .dc.b $06,$07,$07,$06,$00,$00,$00,$00,$00,$01,$01
  10431. .dc.b $14,$02,$01,$05,$03,$25,$03,$04,$06,$00,$00
  10432. .dc.b $07,$07,$07,$07,$00,$00,$00,$00,$02,$01,$01
  10433. WhistleData1:
  10434. .dc.b $00 << 3 | $07 ; Feedback << 3 | Connection
  10435. .dc.b $0f ; Slot Mask
  10436. .dc.b $02,$00,$c8,$46,$00,$04,$00,$03,$00
  10437. .dc.b $00,$00,$00,$00,$00,$7f,$00,$00,$04,$00,$00
  10438. .dc.b $00,$00,$00,$00,$00,$7f,$00,$00,$04,$00,$00
  10439. .dc.b $0f,$0c,$00,$09,$00,$00,$00,$05,$07,$02,$00
  10440. .dc.b $0d,$0c,$00,$09,$00,$00,$00,$08,$07,$00,$01
  10441. PiccoloData1:
  10442. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  10443. .dc.b $0f ; Slot Mask
  10444. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  10445. .dc.b $12,$0a,$01,$0a,$03,$2f,$01,$02,$04,$00,$00
  10446. .dc.b $13,$0b,$03,$09,$02,$00,$00,$02,$04,$00,$00
  10447. .dc.b $12,$0a,$01,$0a,$05,$4d,$01,$06,$04,$03,$00
  10448. .dc.b $13,$0b,$03,$09,$02,$00,$00,$02,$04,$00,$00
  10449. FluteData1:
  10450. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10451. .dc.b $0f ; Slot Mask
  10452. .dc.b $02,$00,$c4,$10,$00,$05,$00,$03,$00
  10453. .dc.b $1c,$05,$03,$05,$0e,$2a,$03,$02,$07,$01,$00
  10454. .dc.b $0b,$07,$00,$05,$0f,$33,$01,$02,$00,$00,$00
  10455. .dc.b $0e,$02,$00,$04,$02,$30,$03,$01,$03,$00,$00
  10456. .dc.b $0c,$10,$00,$06,$01,$00,$02,$01,$00,$00,$01
  10457. OboeData1:
  10458. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10459. .dc.b $0f ; Slot Mask
  10460. .dc.b $02,$00,$c6,$1e,$08,$04,$01,$03,$00
  10461. .dc.b $19,$0b,$00,$03,$01,$25,$03,$01,$03,$00,$00
  10462. .dc.b $1c,$0c,$0c,$0b,$05,$25,$03,$09,$03,$00,$00
  10463. .dc.b $19,$10,$00,$0b,$01,$2f,$01,$02,$03,$00,$00
  10464. .dc.b $11,$0a,$00,$0b,$01,$00,$01,$04,$03,$00,$01
  10465. ClarinetData1:
  10466. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10467. .dc.b $0f ; Slot Mask
  10468. .dc.b $02,$00,$c6,$0b,$00,$04,$00,$03,$00
  10469. .dc.b $13,$02,$02,$00,$01,$24,$01,$02,$00,$00,$00
  10470. .dc.b $1c,$12,$03,$0b,$04,$20,$00,$09,$00,$00,$00
  10471. .dc.b $1d,$14,$01,$09,$01,$37,$01,$01,$00,$00,$00
  10472. .dc.b $11,$0f,$00,$09,$00,$00,$00,$01,$00,$00,$01
  10473. BassoonData1:
  10474. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  10475. .dc.b $0f ; Slot Mask
  10476. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10477. .dc.b $12,$00,$00,$0a,$00,$2f,$00,$01,$04,$00,$00
  10478. .dc.b $14,$00,$00,$0a,$00,$00,$01,$02,$04,$00,$00
  10479. .dc.b $13,$0e,$00,$0a,$01,$27,$00,$01,$04,$00,$00
  10480. .dc.b $14,$00,$00,$0a,$00,$00,$00,$05,$04,$00,$00
  10481. SaxophoneData1:
  10482. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10483. .dc.b $0f ; Slot Mask
  10484. .dc.b $02,$00,$c8,$28,$00,$03,$00,$03,$00
  10485. .dc.b $12,$00,$00,$06,$00,$24,$00,$00,$00,$00,$00
  10486. .dc.b $12,$00,$00,$06,$03,$2f,$00,$04,$00,$01,$00
  10487. .dc.b $12,$00,$00,$06,$00,$2a,$00,$00,$00,$00,$00
  10488. .dc.b $0e,$08,$00,$08,$01,$00,$00,$01,$07,$00,$01
  10489. TrumpetData1:
  10490. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10491. .dc.b $0f ; Slot Mask
  10492. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10493. .dc.b $0e,$0e,$00,$03,$01,$1b,$02,$01,$03,$00,$00
  10494. .dc.b $0e,$0e,$00,$03,$0f,$25,$02,$07,$02,$00,$00
  10495. .dc.b $0d,$0e,$00,$03,$01,$25,$02,$01,$04,$00,$00
  10496. .dc.b $13,$03,$00,$0a,$00,$00,$01,$01,$06,$00,$01
  10497. HornData1:
  10498. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10499. .dc.b $0f ; Slot Mask
  10500. .dc.b $02,$00,$cd,$00,$00,$00,$00,$03,$00
  10501. .dc.b $0d,$09,$00,$09,$03,$22,$00,$01,$04,$00,$00
  10502. .dc.b $1f,$11,$00,$0f,$0c,$2d,$01,$05,$04,$02,$00
  10503. .dc.b $0c,$0b,$00,$08,$01,$32,$00,$01,$04,$00,$00
  10504. .dc.b $0e,$1f,$00,$0a,$00,$01,$00,$01,$04,$00,$01
  10505. TromboneData1:
  10506. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10507. .dc.b $0f ; Slot Mask
  10508. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10509. .dc.b $10,$0c,$00,$08,$00,$1c,$00,$01,$00,$00,$00
  10510. .dc.b $0e,$0e,$00,$0a,$0f,$28,$00,$02,$00,$02,$00
  10511. .dc.b $14,$0e,$00,$0a,$07,$31,$00,$01,$00,$00,$00
  10512. .dc.b $10,$0e,$00,$08,$01,$00,$00,$01,$00,$00,$01
  10513. TubaData1:
  10514. .dc.b $06 << 3 | $06 ; Feedback << 3 | Connection
  10515. .dc.b $0f ; Slot Mask
  10516. .dc.b $02,$00,$cb,$02,$02,$01,$01,$03,$00
  10517. .dc.b $0f,$0a,$01,$05,$06,$15,$01,$00,$01,$00,$00
  10518. .dc.b $11,$02,$01,$08,$03,$00,$00,$01,$03,$00,$01
  10519. .dc.b $1e,$02,$12,$0a,$05,$00,$02,$01,$07,$00,$01
  10520. .dc.b $0f,$02,$01,$0a,$05,$00,$02,$00,$03,$00,$01
  10521. Brass1Data1:
  10522. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  10523. .dc.b $0f ; Slot Mask
  10524. .dc.b $00,$00,$c8,$00,$00,$00,$00,$03,$00
  10525. .dc.b $12,$0c,$01,$0a,$02,$20,$01,$01,$00,$00,$00
  10526. .dc.b $12,$0a,$01,$0a,$03,$00,$00,$01,$01,$00,$01
  10527. .dc.b $0f,$0a,$01,$0a,$05,$13,$01,$01,$02,$00,$00
  10528. .dc.b $14,$02,$01,$0a,$03,$07,$00,$01,$06,$00,$01
  10529. Brass2Data1:
  10530. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10531. .dc.b $0f ; Slot Mask
  10532. .dc.b $02,$00,$ce,$28,$00,$03,$00,$03,$00
  10533. .dc.b $10,$0f,$00,$08,$01,$18,$00,$01,$07,$00,$00
  10534. .dc.b $10,$0c,$00,$04,$01,$3b,$00,$08,$00,$02,$00
  10535. .dc.b $12,$00,$00,$04,$00,$33,$00,$01,$00,$00,$00
  10536. .dc.b $10,$00,$00,$0a,$00,$00,$00,$02,$00,$00,$01
  10537. HarmonicaData1:
  10538. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  10539. .dc.b $0f ; Slot Mask
  10540. .dc.b $02,$00,$d2,$01,$05,$03,$01,$03,$00
  10541. .dc.b $12,$00,$00,$03,$00,$26,$00,$09,$03,$00,$00
  10542. .dc.b $12,$00,$00,$03,$00,$26,$00,$07,$07,$00,$00
  10543. .dc.b $0f,$05,$00,$03,$01,$25,$00,$01,$03,$00,$00
  10544. .dc.b $0f,$08,$00,$09,$02,$00,$00,$03,$07,$00,$01
  10545. OcarinaData1:
  10546. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10547. .dc.b $0f ; Slot Mask
  10548. .dc.b $02,$00,$cc,$14,$00,$05,$00,$03,$00
  10549. .dc.b $1f,$10,$00,$0a,$0f,$0c,$00,$04,$00,$00,$00
  10550. .dc.b $18,$0a,$00,$0a,$00,$4d,$00,$02,$00,$00,$00
  10551. .dc.b $14,$14,$00,$0a,$03,$4d,$00,$03,$07,$01,$00
  10552. .dc.b $10,$05,$00,$0a,$07,$00,$00,$04,$00,$00,$01
  10553. RecorderData1:
  10554. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10555. .dc.b $0f ; Slot Mask
  10556. .dc.b $02,$00,$c4,$12,$00,$05,$00,$03,$00
  10557. .dc.b $11,$11,$10,$06,$03,$37,$00,$04,$04,$01,$00
  10558. .dc.b $0f,$12,$01,$00,$02,$2f,$00,$02,$04,$00,$00
  10559. .dc.b $0d,$14,$00,$07,$02,$2f,$00,$02,$07,$00,$00
  10560. .dc.b $10,$1f,$00,$09,$00,$00,$00,$01,$04,$00,$01
  10561. SambaWhistleData1:
  10562. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  10563. .dc.b $0f ; Slot Mask
  10564. .dc.b $02,$00,$f4,$2f,$00,$07,$00,$03,$00
  10565. .dc.b $1f,$00,$00,$0a,$00,$2f,$00,$06,$00,$00,$00
  10566. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$00
  10567. .dc.b $1f,$00,$00,$0a,$00,$2b,$00,$0a,$00,$00,$00
  10568. .dc.b $14,$08,$00,$0a,$01,$00,$00,$02,$00,$00,$01
  10569. PanfluteData1:
  10570. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10571. .dc.b $0f ; Slot Mask
  10572. .dc.b $02,$00,$c8,$50,$00,$03,$00,$03,$00
  10573. .dc.b $14,$00,$00,$0a,$00,$00,$00,$04,$00,$00,$00
  10574. .dc.b $0e,$10,$00,$0a,$05,$3e,$00,$02,$03,$00,$00
  10575. .dc.b $12,$12,$00,$0a,$09,$26,$00,$03,$00,$01,$00
  10576. .dc.b $0e,$0c,$00,$0a,$02,$00,$01,$01,$00,$00,$01
  10577. SnaredrumData1:
  10578. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  10579. .dc.b $0f ; Slot Mask
  10580. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10581. .dc.b $1f,$19,$05,$02,$00,$00,$00,$0f,$00,$00,$00
  10582. .dc.b $1f,$12,$12,$0c,$07,$00,$00,$01,$00,$00,$01
  10583. .dc.b $1f,$19,$00,$00,$0f,$00,$00,$03,$00,$01,$00
  10584. .dc.b $1f,$11,$0f,$0a,$0f,$00,$00,$01,$00,$00,$01
  10585. RimshotData1:
  10586. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  10587. .dc.b $0f ; Slot Mask
  10588. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10589. .dc.b $1e,$10,$01,$0a,$0f,$2b,$00,$02,$00,$03,$00
  10590. .dc.b $1e,$0a,$00,$0a,$0f,$2f,$00,$00,$07,$01,$00
  10591. .dc.b $1e,$14,$00,$0a,$0f,$0f,$00,$00,$03,$03,$00
  10592. .dc.b $1e,$13,$00,$0a,$0f,$00,$00,$01,$00,$00,$01
  10593. BassdrumData1:
  10594. .dc.b $00 << 3 | $00 ; Feedback << 3 | Connection
  10595. .dc.b $0f ; Slot Mask
  10596. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10597. .dc.b $1e,$1a,$00,$0d,$0f,$1a,$00,$01,$00,$01,$00
  10598. .dc.b $1e,$1c,$00,$0e,$0f,$25,$00,$0e,$00,$03,$00
  10599. .dc.b $1e,$10,$00,$08,$0f,$05,$00,$00,$00,$01,$00
  10600. .dc.b $1d,$10,$00,$08,$0f,$00,$00,$00,$00,$00,$01
  10601. TomtomData1:
  10602. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10603. .dc.b $0f ; Slot Mask
  10604. .dc.b $02,$00,$6e,$00,$00,$00,$00,$03,$00
  10605. .dc.b $1c,$14,$0c,$0f,$0a,$16,$00,$03,$00,$02,$00
  10606. .dc.b $1c,$13,$05,$02,$0a,$11,$03,$01,$00,$01,$00
  10607. .dc.b $1c,$0f,$0a,$0a,$05,$11,$03,$00,$03,$00,$00
  10608. .dc.b $1e,$0c,$07,$05,$06,$00,$01,$01,$00,$00,$01
  10609. TimpaniData1:
  10610. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  10611. .dc.b $0f ; Slot Mask
  10612. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10613. .dc.b $1c,$0c,$00,$04,$0f,$24,$01,$00,$00,$01,$00
  10614. .dc.b $14,$08,$00,$04,$0f,$1b,$01,$00,$00,$02,$00
  10615. .dc.b $1c,$0a,$00,$05,$0f,$22,$00,$00,$00,$00,$00
  10616. .dc.b $10,$05,$00,$02,$0f,$00,$03,$00,$00,$00,$01
  10617. BongoData1:
  10618. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10619. .dc.b $0f ; Slot Mask
  10620. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10621. .dc.b $18,$17,$00,$0b,$0f,$00,$00,$03,$00,$03,$00
  10622. .dc.b $1a,$0e,$00,$07,$0f,$28,$00,$02,$00,$02,$00
  10623. .dc.b $1a,$0a,$00,$05,$0f,$39,$00,$02,$00,$03,$00
  10624. .dc.b $16,$10,$00,$08,$0f,$00,$02,$06,$00,$00,$01
  10625. TingPalaceData1:
  10626. .dc.b $06 << 3 | $02 ; Feedback << 3 | Connection
  10627. .dc.b $0f ; Slot Mask
  10628. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10629. .dc.b $1c,$0f,$00,$06,$0f,$1a,$01,$02,$03,$03,$00
  10630. .dc.b $18,$10,$00,$07,$0f,$20,$00,$08,$07,$02,$00
  10631. .dc.b $1a,$0b,$00,$07,$0f,$1d,$01,$05,$03,$00,$00
  10632. .dc.b $18,$07,$00,$04,$0f,$00,$02,$02,$07,$03,$01
  10633. TriangleData1:
  10634. .dc.b $00 << 3 | $03 ; Feedback << 3 | Connection
  10635. .dc.b $0f ; Slot Mask
  10636. .dc.b $00,$00,$64,$00,$00,$00,$00,$03,$00
  10637. .dc.b $1f,$06,$00,$04,$0f,$33,$00,$01,$00,$03,$00
  10638. .dc.b $1f,$00,$00,$02,$00,$1b,$00,$08,$07,$02,$00
  10639. .dc.b $1f,$08,$00,$06,$05,$43,$00,$09,$03,$01,$00
  10640. .dc.b $1f,$0a,$00,$05,$0f,$00,$00,$0a,$03,$02,$01
  10641. CowbellData1:
  10642. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10643. .dc.b $0f ; Slot Mask
  10644. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10645. .dc.b $1e,$14,$00,$0a,$0f,$1b,$00,$0f,$02,$00,$00
  10646. .dc.b $1e,$11,$00,$08,$0f,$1b,$01,$04,$00,$01,$00
  10647. .dc.b $1c,$0c,$00,$06,$0f,$2b,$01,$02,$03,$02,$00
  10648. .dc.b $1a,$10,$00,$08,$0f,$00,$01,$02,$00,$03,$01
  10649. TubelabelData1:
  10650. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  10651. .dc.b $0f ; Slot Mask
  10652. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10653. .dc.b $1f,$07,$00,$01,$01,$23,$00,$07,$03,$00,$00
  10654. .dc.b $1f,$0a,$00,$06,$00,$00,$00,$02,$07,$00,$01
  10655. .dc.b $1f,$07,$00,$01,$01,$23,$00,$07,$07,$00,$00
  10656. .dc.b $1f,$0d,$00,$06,$00,$00,$00,$02,$03,$00,$01
  10657. SteeldrumData1:
  10658. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  10659. .dc.b $0f ; Slot Mask
  10660. .dc.b $02,$00,$d0,$00,$00,$00,$00,$03,$00
  10661. .dc.b $0d,$0a,$04,$04,$0f,$1d,$01,$03,$07,$00,$00
  10662. .dc.b $11,$07,$00,$04,$0f,$00,$02,$01,$00,$00,$01
  10663. .dc.b $0e,$08,$05,$03,$0f,$23,$02,$01,$07,$00,$00
  10664. .dc.b $0f,$08,$00,$04,$0f,$07,$02,$04,$03,$00,$01
  10665. GlockenData1:
  10666. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  10667. .dc.b $0f ; Slot Mask
  10668. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10669. .dc.b $1f,$18,$00,$0c,$0f,$20,$00,$0e,$02,$00,$00
  10670. .dc.b $1f,$0f,$00,$08,$0f,$00,$00,$02,$00,$00,$00
  10671. .dc.b $1f,$14,$00,$04,$0f,$1b,$00,$0f,$00,$00,$00
  10672. .dc.b $1f,$0e,$00,$05,$0f,$00,$00,$02,$00,$00,$01
  10673. VibraphoneData1:
  10674. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  10675. .dc.b $0f ; Slot Mask
  10676. .dc.b $02,$00,$c5,$28,$0d,$02,$03,$03,$00
  10677. .dc.b $18,$0e,$00,$07,$0f,$32,$01,$0c,$03,$00,$00
  10678. .dc.b $18,$0a,$00,$07,$0f,$00,$01,$04,$00,$00,$01
  10679. .dc.b $1a,$0e,$00,$06,$0f,$39,$01,$04,$00,$00,$00
  10680. .dc.b $1a,$08,$00,$06,$0f,$00,$02,$01,$00,$00,$01
  10681. MarimbaData1:
  10682. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  10683. .dc.b $0f ; Slot Mask
  10684. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10685. .dc.b $18,$11,$00,$07,$0f,$2a,$01,$04,$03,$00,$00
  10686. .dc.b $18,$04,$00,$02,$0f,$00,$03,$00,$03,$00,$01
  10687. .dc.b $18,$14,$00,$0a,$0f,$20,$01,$06,$07,$00,$00
  10688. .dc.b $18,$0c,$00,$06,$0f,$00,$02,$02,$07,$00,$01
  10689. ClosedHHData1:
  10690. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  10691. .dc.b $0f ; Slot Mask
  10692. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10693. .dc.b $1d,$04,$03,$02,$03,$00,$00,$0e,$00,$01,$00
  10694. .dc.b $1d,$0f,$03,$02,$07,$1b,$00,$06,$00,$01,$00
  10695. .dc.b $1d,$17,$00,$0a,$0f,$1b,$00,$07,$00,$02,$00
  10696. .dc.b $1e,$14,$15,$0f,$0f,$00,$00,$01,$00,$00,$01
  10697. OpenHHData1:
  10698. .dc.b $06 << 3 | $04 ; Feedback << 3 | Connection
  10699. .dc.b $0f ; Slot Mask
  10700. .dc.b $02,$00,$6f,$00,$00,$00,$00,$03,$00
  10701. .dc.b $1f,$01,$00,$05,$0c,$07,$00,$00,$00,$03,$00
  10702. .dc.b $1f,$0d,$0f,$0a,$0f,$0e,$00,$0e,$00,$01,$00
  10703. .dc.b $1f,$16,$07,$08,$06,$13,$00,$00,$07,$00,$00
  10704. .dc.b $1f,$14,$14,$08,$0f,$02,$00,$00,$00,$01,$00
  10705. CymbalData1:
  10706. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  10707. .dc.b $0f ; Slot Mask
  10708. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  10709. .dc.b $1f,$04,$00,$00,$01,$04,$00,$03,$07,$01,$00
  10710. .dc.b $1f,$1f,$03,$02,$01,$1d,$01,$05,$00,$02,$00
  10711. .dc.b $19,$1c,$05,$03,$03,$07,$00,$01,$07,$02,$00
  10712. .dc.b $1f,$1f,$05,$03,$07,$00,$02,$07,$00,$03,$01
  10713. Synthesizer1Data1:
  10714. .dc.b $03 << 3 | $02 ; Feedback << 3 | Connection
  10715. .dc.b $0f ; Slot Mask
  10716. .dc.b $02,$00,$c8,$14,$03,$03,$02,$03,$00
  10717. .dc.b $12,$01,$01,$0a,$03,$11,$01,$02,$01,$00,$00
  10718. .dc.b $14,$02,$01,$0a,$00,$0c,$00,$03,$00,$01,$00
  10719. .dc.b $1f,$13,$01,$00,$0f,$19,$00,$00,$00,$00,$00
  10720. .dc.b $14,$02,$01,$0a,$03,$00,$02,$01,$03,$00,$01
  10721. Synthesizer2Data1:
  10722. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  10723. .dc.b $03 ; Slot Mask
  10724. .dc.b $02,$00,$d2,$28,$00,$03,$00,$03,$00
  10725. .dc.b $1f,$10,$00,$00,$0f,$07,$01,$02,$03,$00,$00
  10726. .dc.b $1f,$00,$00,$08,$00,$07,$01,$01,$06,$00,$01
  10727. .dc.b $1f,$00,$00,$08,$00,$0c,$01,$02,$07,$00,$00
  10728. .dc.b $1f,$00,$00,$08,$00,$00,$01,$01,$03,$00,$01
  10729. SE1Data1:
  10730. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  10731. .dc.b $0f ; Slot Mask
  10732. .dc.b $01,$00,$9e,$44,$00,$06,$00,$03,$00
  10733. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$00
  10734. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$01
  10735. .dc.b $1f,$00,$00,$01,$00,$25,$00,$0e,$00,$00,$00
  10736. .dc.b $10,$00,$00,$04,$00,$00,$00,$05,$07,$01,$01
  10737. SE2Data1:
  10738. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  10739. .dc.b $0f ; Slot Mask
  10740. .dc.b $02,$00,$78,$78,$1e,$07,$02,$03,$00
  10741. .dc.b $1f,$00,$00,$00,$00,$11,$00,$02,$00,$02,$00
  10742. .dc.b $1f,$00,$00,$00,$00,$0a,$00,$01,$00,$01,$00
  10743. .dc.b $1f,$00,$00,$00,$00,$1d,$00,$01,$00,$02,$00
  10744. .dc.b $0c,$00,$00,$04,$00,$00,$00,$00,$00,$00,$01
  10745. SE3Data1:
  10746. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  10747. .dc.b $0f ; Slot Mask
  10748. .dc.b $00,$00,$dc,$78,$00,$07,$00,$03,$00
  10749. .dc.b $1f,$00,$00,$05,$00,$0f,$00,$00,$00,$03,$00
  10750. .dc.b $14,$00,$00,$0a,$00,$07,$00,$07,$00,$01,$01
  10751. .dc.b $0c,$00,$00,$05,$00,$2f,$00,$03,$00,$03,$00
  10752. .dc.b $10,$00,$00,$08,$00,$00,$00,$01,$00,$00,$01
  10753. SE4Data1:
  10754. .dc.b $00 << 3 | $06 ; Feedback << 3 | Connection
  10755. .dc.b $0f ; Slot Mask
  10756. .dc.b $03,$00,$d1,$46,$00,$06,$00,$03,$00
  10757. .dc.b $1f,$00,$00,$00,$00,$19,$00,$0c,$00,$00,$00
  10758. .dc.b $14,$0e,$00,$07,$0f,$07,$00,$04,$00,$00,$00
  10759. .dc.b $14,$0e,$00,$07,$0f,$00,$00,$02,$04,$03,$00
  10760. .dc.b $14,$0e,$00,$07,$0f,$00,$00,$02,$04,$00,$00
  10761. SE5Data1:
  10762. .dc.b $04 << 3 | $00 ; Feedback << 3 | Connection
  10763. .dc.b $0f ; Slot Mask
  10764. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  10765. .dc.b $1f,$08,$00,$04,$0f,$0d,$00,$03,$00,$02,$00
  10766. .dc.b $0a,$07,$00,$04,$0f,$11,$03,$01,$00,$01,$00
  10767. .dc.b $1f,$00,$00,$00,$00,$03,$00,$01,$00,$02,$00
  10768. .dc.b $10,$09,$00,$04,$0f,$00,$03,$00,$00,$00,$01
  10769. APianoStr2:
  10770. .dc.b '*A.ピアノ '
  10771. HPianoStr2:
  10772. .dc.b '*H.ピアノ '
  10773. EPianoStr2:
  10774. .dc.b '*E.ピアノ '
  10775. ClavinetStr2:
  10776. .dc.b '*クラビネット '
  10777. SelestatStr2:
  10778. .dc.b '*セレスタ '
  10779. HarpsichordStr2:
  10780. .dc.b '*チェンバロ '
  10781. AGuitarStr2:
  10782. .dc.b '*A.ギター '
  10783. EGuitarStr2:
  10784. .dc.b '*E.ギター '
  10785. WoodbaseStr2:
  10786. .dc.b '*ウッドベース '
  10787. EBaseStr2:
  10788. .dc.b '*E.ベース '
  10789. BanjoStr2:
  10790. .dc.b '*バンジョー '
  10791. SitarStr2:
  10792. .dc.b '*シタール '
  10793. HarpStr2:
  10794. .dc.b '*ハープ '
  10795. KotoStr2:
  10796. .dc.b '*コト '
  10797. POrgan1Str2:
  10798. .dc.b '*P.オルガン1 '
  10799. POrgan2Str2:
  10800. .dc.b '*P.オルガン2 '
  10801. EOrganStr2:
  10802. .dc.b '*E.オルガン '
  10803. AccordionStr2:
  10804. .dc.b '*アコーディオン '
  10805. AviolinStr2:
  10806. .dc.b '*バイオリン '
  10807. CelloStr2:
  10808. .dc.b '*チェロ '
  10809. Strings1Str2:
  10810. .dc.b '*ストリングス1 '
  10811. Strings2Str2:
  10812. .dc.b '*ストリングス2 '
  10813. PizzicatoStr2:
  10814. .dc.b '*ピチカート '
  10815. VoiceStr2:
  10816. .dc.b '*ボイス '
  10817. ChorusStr2:
  10818. .dc.b '*コーラス '
  10819. GrassharpStr2:
  10820. .dc.b '*グラスハープ '
  10821. WhistleStr2:
  10822. .dc.b '*ホイッスル '
  10823. PiccoloStr2:
  10824. .dc.b '*ピッコロ '
  10825. FluteStr2:
  10826. .dc.b '*フルート '
  10827. OboeStr2:
  10828. .dc.b '*オーボエ '
  10829. ClarinetStr2:
  10830. .dc.b '*クラリネット '
  10831. BassoonStr2:
  10832. .dc.b '*バスーン '
  10833. SaxophoneStr2:
  10834. .dc.b '*サックス '
  10835. TrumpetStr2:
  10836. .dc.b '*トランペット '
  10837. AhornStr2:
  10838. .dc.b '*ホルン '
  10839. TromboneStr2:
  10840. .dc.b '*トロンボーン '
  10841. TubaStr2:
  10842. .dc.b '*チューバ '
  10843. Brass1Str2:
  10844. .dc.b '*ブラス1 '
  10845. Brass2Str2:
  10846. .dc.b '*ブラス2 '
  10847. HarmonicaStr2:
  10848. .dc.b '*ハーモニカ '
  10849. OcarinaStr2:
  10850. .dc.b '*オカリナ '
  10851. RecorderStr2:
  10852. .dc.b '*リコーダー '
  10853. SambaWhistleStr2:
  10854. .dc.b '*サンバホイッスル'
  10855. PanfluteStr2:
  10856. .dc.b '*パンフルート '
  10857. SnaredrumStr2:
  10858. .dc.b '*スネアドラム '
  10859. RimshotStr2:
  10860. .dc.b '*リムショット '
  10861. BassdrumStr2:
  10862. .dc.b '*バスドラム '
  10863. TomtomStr2:
  10864. .dc.b '*タムタム '
  10865. TimpaniStr2:
  10866. .dc.b '*ティンパニ '
  10867. BongoStr2:
  10868. .dc.b '*ボンゴ '
  10869. TingPalaceStr2:
  10870. .dc.b '*ティンパレス '
  10871. TriangleStr2:
  10872. .dc.b '*トライアングル '
  10873. CowbellStr2:
  10874. .dc.b '*カウベル '
  10875. TubelabelStr2:
  10876. .dc.b '*チューブラベル'
  10877. SteeldrumStr2:
  10878. .dc.b '*スチールドラム '
  10879. GlockenStr2:
  10880. .dc.b '*グロッケン '
  10881. VibraphoneStr2:
  10882. .dc.b '*ビブラフォン '
  10883. MarimbaStr2:
  10884. .dc.b '*マリンバ '
  10885. ClosedHHStr2:
  10886. .dc.b '*クローズH.H.'
  10887. OpenHHStr2:
  10888. .dc.b '*オープンH.H.'
  10889. CymbalStr2:
  10890. .dc.b '*シンバル '
  10891. Synthesizer1Str2:
  10892. .dc.b '*シンセサイザ1 '
  10893. Synthesizer2Str2:
  10894. .dc.b '*シンセサイザ2 '
  10895. SE1Str2:
  10896. .dc.b '*SE1 '
  10897. SE2Str2:
  10898. .dc.b '*SE2 '
  10899. SE3Str2:
  10900. .dc.b '*SE3 '
  10901. SE4Str2:
  10902. .dc.b '*SE4 '
  10903. SE5Str2:
  10904. .dc.b '*SE5 '
  10905. L008e56:
  10906. .dc.b ' '
  10907. L008e60:
  10908. .dc.b ' '
  10909. L008e6a:
  10910. .dc.b ' '
  10911. L008e74:
  10912. .dc.b ' '
  10913. L008e7e:
  10914. .dc.b ' '
  10915. L008e88:
  10916. .dc.b ' '
  10917. L008e92:
  10918. .dc.b ' '
  10919. L008e9c:
  10920. .dc.b ' '
  10921. L008ea6:
  10922. .dc.b ' '
  10923. L008eb0:
  10924. .dc.b ' '
  10925. L008eba:
  10926. .dc.b ' '
  10927. L008ec4:
  10928. .dc.b ' '
  10929. L008ece:
  10930. .dc.b ' '
  10931. L008ed8:
  10932. .dc.b ' '
  10933. L008ee2:
  10934. .dc.b ' '
  10935. L008eec:
  10936. .dc.b ' '
  10937. L008ef6:
  10938. .dc.b ' '
  10939. L008f00:
  10940. .dc.b ' '
  10941. L008f0a:
  10942. .dc.b ' '
  10943. L008f14:
  10944. .dc.b ' '
  10945. L008f1e:
  10946. .dc.b ' '
  10947. L008f28:
  10948. .dc.b ' '
  10949. L008f32:
  10950. .dc.b ' '
  10951. L008f3c:
  10952. .dc.b ' '
  10953. L008f46:
  10954. .dc.b ' '
  10955. L008f50:
  10956. .dc.b ' '
  10957. L008f5a:
  10958. .dc.b ' '
  10959. L008f64:
  10960. .dc.b ' '
  10961. L008f6e:
  10962. .dc.b ' '
  10963. L008f78:
  10964. .dc.b ' '
  10965. L008f82:
  10966. .dc.b ' '
  10967. L008f8c:
  10968. .dc.b ' '
  10969. L008f96:
  10970. .dc.b ' '
  10971. L008fa0:
  10972. .dc.b ' '
  10973. L008faa:
  10974. .dc.b ' '
  10975. L008fb4:
  10976. .dc.b ' '
  10977. L008fbe:
  10978. .dc.b ' '
  10979. L008fc8:
  10980. .dc.b ' '
  10981. L008fd2:
  10982. .dc.b ' '
  10983. L008fdc:
  10984. .dc.b ' '
  10985. L008fe6:
  10986. .dc.b ' '
  10987. L008ff0:
  10988. .dc.b ' '
  10989. L008ffa:
  10990. .dc.b ' '
  10991. L009004:
  10992. .dc.b ' '
  10993. L00900e:
  10994. .dc.b ' '
  10995. L009018:
  10996. .dc.b ' '
  10997. L009022:
  10998. .dc.b ' '
  10999. L00902c:
  11000. .dc.b ' '
  11001. L009036:
  11002. .dc.b ' '
  11003. L009040:
  11004. .dc.b ' '
  11005. L00904a:
  11006. .dc.b ' '
  11007. L009054:
  11008. .dc.b ' '
  11009. L00905e:
  11010. .dc.b ' '
  11011. L009068:
  11012. .dc.b ' '
  11013. L009072:
  11014. .dc.b ' '
  11015. L00907c:
  11016. .dc.b ' '
  11017. L009086:
  11018. .dc.b ' '
  11019. L009090:
  11020. .dc.b ' '
  11021. L00909a:
  11022. .dc.b ' '
  11023. L0090a4:
  11024. .dc.b ' '
  11025. L0090ae:
  11026. .dc.b ' '
  11027. L0090b8:
  11028. .dc.b ' '
  11029. L0090c2:
  11030. .dc.b ' '
  11031. L0090cc:
  11032. .dc.b ' '
  11033. L0090d6:
  11034. .dc.b ' '
  11035. L0090e0:
  11036. .dc.b ' '
  11037. L0090ea:
  11038. .dc.b ' '
  11039. L0090f4:
  11040. .dc.b ' '
  11041. L0090fe:
  11042. .dc.b ' '
  11043. L009108:
  11044. .dc.b ' '
  11045. L009112:
  11046. .dc.b ' '
  11047. L00911c:
  11048. .dc.b ' '
  11049. L009126:
  11050. .dc.b ' '
  11051. L009130:
  11052. .dc.b ' '
  11053. L00913a:
  11054. .dc.b ' '
  11055. L009144:
  11056. .dc.b ' '
  11057. L00914e:
  11058. .dc.b ' '
  11059. L009158:
  11060. .dc.b ' '
  11061. L009162:
  11062. .dc.b ' '
  11063. L00916c:
  11064. .dc.b ' '
  11065. L009176:
  11066. .dc.b ' '
  11067. L009180:
  11068. .dc.b ' '
  11069. L00918a:
  11070. .dc.b ' '
  11071. L009194:
  11072. .dc.b ' '
  11073. L00919e:
  11074. .dc.b ' '
  11075. L0091a8:
  11076. .dc.b ' '
  11077. L0091b2:
  11078. .dc.b ' '
  11079. L0091bc:
  11080. .dc.b ' '
  11081. L0091c6:
  11082. .dc.b ' '
  11083. L0091d0:
  11084. .dc.b ' '
  11085. L0091da:
  11086. .dc.b ' '
  11087. L0091e4:
  11088. .dc.b ' '
  11089. L0091ee:
  11090. .dc.b ' '
  11091. L0091f8:
  11092. .dc.b ' '
  11093. L009202:
  11094. .dc.b ' '
  11095. L00920c:
  11096. .dc.b ' '
  11097. L009216:
  11098. .dc.b ' '
  11099. L009220:
  11100. .dc.b ' '
  11101. L00922a:
  11102. .dc.b ' '
  11103. L009234:
  11104. .dc.b ' '
  11105. L00923e:
  11106. .dc.b ' '
  11107. L009248:
  11108. .dc.b ' '
  11109. L009252:
  11110. .dc.b ' '
  11111. L00925c:
  11112. .dc.b ' '
  11113. L009266:
  11114. .dc.b ' '
  11115. L009270:
  11116. .dc.b ' '
  11117. L00927a:
  11118. .dc.b ' '
  11119. L009284:
  11120. .dc.b ' '
  11121. L00928e:
  11122. .dc.b ' '
  11123. L009298:
  11124. .dc.b ' '
  11125. L0092a2:
  11126. .dc.b ' '
  11127. L0092ac:
  11128. .dc.b ' '
  11129. L0092b6:
  11130. .dc.b ' '
  11131. L0092c0:
  11132. .dc.b ' '
  11133. L0092ca:
  11134. .dc.b ' '
  11135. L0092d4:
  11136. .dc.b ' '
  11137. L0092de:
  11138. .dc.b ' '
  11139. L0092e8:
  11140. .dc.b ' '
  11141. L0092f2:
  11142. .dc.b ' '
  11143. L0092fc:
  11144. .dc.b ' '
  11145. L009306:
  11146. .dc.b ' '
  11147. L009310:
  11148. .dc.b ' '
  11149. L00931a:
  11150. .dc.b ' '
  11151. L009324:
  11152. .dc.b ' '
  11153. L00932e:
  11154. .dc.b ' '
  11155. L009338:
  11156. .dc.b ' '
  11157. L009342:
  11158. .dc.b ' '
  11159. L00934c:
  11160. .dc.b ' '
  11161. L009356:
  11162. .dc.b ' '
  11163. L009360:
  11164. .dc.b ' '
  11165. L00936a:
  11166. .dc.b ' '
  11167. L009374:
  11168. .dc.b ' '
  11169. APianoData2:
  11170. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11171. .dc.b $0f ; Slot Mask
  11172. .dc.b $02,$00,$dc,$00,$00,$00,$00,$03,$00
  11173. .dc.b $1c,$04,$00,$05,$01,$25,$02,$01,$07,$00,$00
  11174. .dc.b $16,$09,$01,$02,$01,$2f,$02,$0c,$00,$00,$00
  11175. .dc.b $1d,$04,$03,$06,$01,$25,$01,$03,$03,$00,$00
  11176. .dc.b $0f,$07,$00,$05,$0a,$00,$02,$01,$00,$00,$01
  11177. HPianoData2:
  11178. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  11179. .dc.b $0f ; Slot Mask
  11180. .dc.b $02,$00,$dc,$00,$0a,$00,$00,$03,$00
  11181. .dc.b $1f,$0a,$01,$03,$0f,$18,$02,$07,$03,$01,$00
  11182. .dc.b $1d,$0c,$09,$07,$0a,$00,$00,$07,$04,$00,$01
  11183. .dc.b $1f,$05,$01,$03,$0f,$23,$02,$05,$04,$00,$00
  11184. .dc.b $1c,$0c,$09,$07,$0a,$00,$00,$01,$03,$00,$01
  11185. EPianoData2:
  11186. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  11187. .dc.b $0f ; Slot Mask
  11188. .dc.b $02,$00,$b4,$00,$00,$00,$00,$03,$00
  11189. .dc.b $1f,$0f,$00,$06,$07,$35,$02,$0f,$05,$01,$00
  11190. .dc.b $1f,$07,$05,$08,$02,$0d,$03,$01,$00,$00,$01
  11191. .dc.b $1f,$06,$00,$06,$04,$25,$02,$01,$02,$00,$00
  11192. .dc.b $1f,$07,$00,$07,$00,$00,$01,$01,$07,$00,$01
  11193. ClavinetData2:
  11194. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11195. .dc.b $0f ; Slot Mask
  11196. .dc.b $02,$00,$82,$00,$00,$00,$00,$03,$00
  11197. .dc.b $1c,$04,$03,$07,$01,$23,$02,$01,$03,$00,$00
  11198. .dc.b $1b,$08,$01,$02,$00,$25,$03,$0f,$07,$00,$00
  11199. .dc.b $1c,$03,$00,$00,$0f,$1b,$02,$01,$06,$00,$00
  11200. .dc.b $1a,$09,$00,$0a,$0f,$00,$02,$0a,$00,$00,$01
  11201. CelestaData2:
  11202. .dc.b $01 << 3 | $05 ; Feedback << 3 | Connection
  11203. .dc.b $0f ; Slot Mask
  11204. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11205. .dc.b $1f,$0a,$0c,$05,$0f,$48,$01,$0e,$02,$00,$01
  11206. .dc.b $1f,$0a,$0c,$05,$0f,$07,$01,$04,$07,$00,$01
  11207. .dc.b $1f,$0a,$0c,$07,$0f,$07,$01,$0c,$07,$00,$01
  11208. .dc.b $1f,$0a,$0c,$06,$0f,$07,$01,$09,$03,$00,$01
  11209. HarpsichordData2:
  11210. .dc.b $06 << 3 | $02 ; Feedback << 3 | Connection
  11211. .dc.b $0f ; Slot Mask
  11212. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11213. .dc.b $1f,$00,$00,$0f,$00,$19,$01,$03,$00,$00,$00
  11214. .dc.b $1f,$00,$00,$0f,$00,$23,$03,$0c,$04,$00,$01
  11215. .dc.b $1f,$00,$00,$02,$00,$24,$01,$01,$00,$00,$00
  11216. .dc.b $1f,$06,$04,$05,$0f,$00,$02,$01,$04,$00,$01
  11217. AGuitarData2:
  11218. .dc.b $04 << 3 | $01 ; Feedback << 3 | Connection
  11219. .dc.b $0f ; Slot Mask
  11220. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11221. .dc.b $1c,$05,$04,$03,$0f,$2a,$03,$02,$01,$00,$00
  11222. .dc.b $1f,$07,$04,$01,$02,$25,$01,$03,$07,$00,$00
  11223. .dc.b $1f,$03,$04,$01,$02,$23,$03,$03,$04,$00,$00
  11224. .dc.b $1f,$02,$01,$04,$01,$00,$02,$01,$02,$00,$00
  11225. EGuitarData2:
  11226. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11227. .dc.b $0f ; Slot Mask
  11228. .dc.b $02,$00,$d2,$00,$00,$00,$00,$03,$00
  11229. .dc.b $1f,$0d,$01,$04,$0f,$29,$02,$0f,$03,$00,$00
  11230. .dc.b $1f,$14,$05,$0f,$0e,$39,$01,$0d,$07,$02,$00
  11231. .dc.b $14,$0a,$01,$07,$08,$23,$01,$03,$07,$00,$00
  11232. .dc.b $17,$05,$01,$07,$0f,$00,$00,$01,$03,$00,$01
  11233. WoodbassData2:
  11234. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11235. .dc.b $0f ; Slot Mask
  11236. .dc.b $02,$00,$96,$00,$00,$00,$00,$03,$00
  11237. .dc.b $1f,$0d,$01,$04,$0f,$20,$01,$00,$07,$00,$00
  11238. .dc.b $1f,$0b,$01,$0a,$0f,$37,$01,$04,$05,$00,$00
  11239. .dc.b $1f,$0b,$01,$0a,$0f,$1d,$00,$00,$02,$00,$00
  11240. .dc.b $1f,$0b,$01,$08,$0f,$00,$01,$00,$03,$00,$01
  11241. EBassData2:
  11242. .dc.b $00 << 3 | $03 ; Feedback << 3 | Connection
  11243. .dc.b $0f ; Slot Mask
  11244. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11245. .dc.b $1f,$0e,$01,$0a,$0a,$2a,$00,$06,$06,$00,$00
  11246. .dc.b $1f,$05,$00,$0a,$06,$1a,$00,$00,$04,$00,$00
  11247. .dc.b $1f,$02,$04,$06,$01,$20,$00,$00,$04,$00,$00
  11248. .dc.b $1c,$01,$06,$08,$01,$00,$00,$01,$03,$00,$01
  11249. BanjoData2:
  11250. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11251. .dc.b $0f ; Slot Mask
  11252. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11253. .dc.b $18,$0a,$00,$02,$05,$1b,$01,$05,$07,$00,$00
  11254. .dc.b $1a,$10,$00,$08,$0b,$1e,$00,$0f,$00,$00,$00
  11255. .dc.b $1c,$10,$00,$04,$03,$20,$00,$01,$06,$00,$00
  11256. .dc.b $18,$0b,$00,$06,$0f,$00,$02,$01,$03,$00,$00
  11257. SitarData2:
  11258. .dc.b $00 << 3 | $01 ; Feedback << 3 | Connection
  11259. .dc.b $0f ; Slot Mask
  11260. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  11261. .dc.b $1f,$1f,$08,$02,$0c,$34,$00,$03,$07,$00,$00
  11262. .dc.b $1f,$0b,$01,$03,$01,$23,$01,$09,$03,$00,$00
  11263. .dc.b $1c,$07,$09,$04,$0f,$11,$00,$01,$01,$00,$00
  11264. .dc.b $12,$01,$01,$04,$0f,$00,$01,$01,$00,$00,$01
  11265. HarpData2:
  11266. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11267. .dc.b $0f ; Slot Mask
  11268. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11269. .dc.b $1f,$19,$01,$02,$02,$4c,$00,$06,$00,$00,$00
  11270. .dc.b $1f,$10,$01,$02,$0d,$1a,$01,$03,$07,$00,$00
  11271. .dc.b $1f,$04,$02,$02,$0c,$25,$01,$01,$00,$00,$00
  11272. .dc.b $1f,$0a,$00,$03,$0f,$00,$01,$01,$00,$00,$01
  11273. KotoData2:
  11274. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  11275. .dc.b $0f ; Slot Mask
  11276. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  11277. .dc.b $1a,$08,$05,$07,$02,$1c,$03,$03,$07,$00,$00
  11278. .dc.b $1d,$04,$05,$05,$01,$1f,$03,$04,$01,$00,$00
  11279. .dc.b $1c,$04,$02,$06,$02,$20,$03,$01,$07,$00,$00
  11280. .dc.b $1d,$09,$03,$03,$01,$00,$03,$01,$03,$00,$01
  11281. POrgan1Data2:
  11282. .dc.b $07 << 3 | $06 ; Feedback << 3 | Connection
  11283. .dc.b $0f ; Slot Mask
  11284. .dc.b $02,$00,$02,$08,$01,$03,$02,$03,$00
  11285. .dc.b $1f,$14,$00,$0a,$00,$24,$00,$08,$03,$00,$00
  11286. .dc.b $14,$02,$01,$0a,$03,$00,$00,$02,$07,$00,$01
  11287. .dc.b $14,$02,$01,$0a,$03,$00,$00,$01,$01,$00,$01
  11288. .dc.b $14,$02,$01,$0a,$03,$00,$00,$06,$02,$00,$01
  11289. POrgan2Data2:
  11290. .dc.b $07 << 3 | $07 ; Feedback << 3 | Connection
  11291. .dc.b $0f ; Slot Mask
  11292. .dc.b $02,$00,$be,$00,$00,$00,$00,$03,$00
  11293. .dc.b $1f,$01,$01,$0a,$00,$1d,$00,$08,$03,$00,$01
  11294. .dc.b $13,$02,$01,$0a,$01,$02,$00,$03,$07,$00,$01
  11295. .dc.b $13,$02,$01,$0a,$01,$02,$00,$01,$00,$00,$01
  11296. .dc.b $13,$02,$01,$0a,$01,$02,$00,$02,$06,$00,$01
  11297. EOrganData2:
  11298. .dc.b $03 << 3 | $07 ; Feedback << 3 | Connection
  11299. .dc.b $0f ; Slot Mask
  11300. .dc.b $02,$00,$c8,$03,$02,$02,$01,$03,$00
  11301. .dc.b $1f,$14,$00,$0f,$0f,$0c,$00,$07,$00,$00,$01
  11302. .dc.b $1f,$02,$01,$0f,$00,$05,$00,$03,$02,$00,$01
  11303. .dc.b $1f,$02,$01,$0f,$00,$07,$00,$03,$00,$00,$01
  11304. .dc.b $1f,$02,$01,$0f,$00,$05,$00,$02,$06,$00,$01
  11305. AccordionData2:
  11306. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  11307. .dc.b $0f ; Slot Mask
  11308. .dc.b $02,$00,$b4,$1e,$00,$02,$00,$03,$00
  11309. .dc.b $1f,$00,$00,$00,$00,$27,$01,$06,$03,$00,$00
  11310. .dc.b $1f,$03,$01,$01,$01,$26,$01,$07,$03,$00,$01
  11311. .dc.b $13,$02,$01,$06,$01,$26,$01,$01,$07,$00,$00
  11312. .dc.b $10,$00,$00,$09,$00,$00,$01,$02,$07,$00,$01
  11313. ViolinData2:
  11314. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11315. .dc.b $0f ; Slot Mask
  11316. .dc.b $02,$00,$ca,$38,$03,$03,$00,$03,$00
  11317. .dc.b $14,$02,$00,$05,$01,$21,$01,$01,$00,$00,$00
  11318. .dc.b $19,$06,$00,$08,$03,$1e,$01,$05,$07,$00,$00
  11319. .dc.b $1c,$03,$00,$06,$01,$30,$01,$01,$00,$00,$00
  11320. .dc.b $0c,$04,$00,$06,$00,$00,$01,$01,$04,$00,$01
  11321. CelloData2:
  11322. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  11323. .dc.b $0f ; Slot Mask
  11324. .dc.b $02,$00,$c8,$50,$00,$02,$00,$03,$00
  11325. .dc.b $12,$1f,$14,$0a,$00,$0a,$01,$0f,$07,$03,$00
  11326. .dc.b $1f,$11,$0c,$0a,$00,$23,$01,$06,$07,$00,$00
  11327. .dc.b $0d,$12,$01,$03,$00,$1b,$02,$01,$07,$00,$00
  11328. .dc.b $0c,$02,$01,$0a,$01,$00,$01,$01,$03,$00,$01
  11329. Strings1Data2:
  11330. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11331. .dc.b $0f ; Slot Mask
  11332. .dc.b $02,$00,$cd,$50,$00,$02,$00,$03,$00
  11333. .dc.b $1e,$01,$00,$01,$01,$1e,$03,$00,$02,$00,$00
  11334. .dc.b $1f,$01,$00,$02,$01,$26,$03,$02,$03,$00,$00
  11335. .dc.b $1e,$01,$00,$01,$01,$30,$01,$01,$03,$00,$00
  11336. .dc.b $08,$02,$00,$06,$00,$00,$00,$01,$04,$00,$01
  11337. Strings2Data2:
  11338. .dc.b $07 << 3 | $05 ; Feedback << 3 | Connection
  11339. .dc.b $0f ; Slot Mask
  11340. .dc.b $02,$00,$c8,$5a,$00,$02,$00,$03,$00
  11341. .dc.b $1f,$01,$01,$02,$00,$1f,$03,$00,$00,$00,$00
  11342. .dc.b $09,$01,$00,$06,$00,$00,$00,$01,$01,$00,$00
  11343. .dc.b $0a,$01,$00,$07,$00,$00,$00,$01,$01,$00,$00
  11344. .dc.b $09,$02,$00,$07,$00,$00,$00,$01,$01,$00,$01
  11345. PizzicatoData2:
  11346. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  11347. .dc.b $0f ; Slot Mask
  11348. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11349. .dc.b $1f,$16,$01,$03,$0f,$18,$00,$01,$03,$00,$00
  11350. .dc.b $12,$0f,$01,$05,$0e,$00,$01,$01,$07,$00,$01
  11351. .dc.b $1f,$0f,$00,$03,$0f,$20,$01,$01,$03,$00,$00
  11352. .dc.b $1f,$0f,$01,$05,$0e,$00,$01,$01,$03,$00,$01
  11353. VoiceData2:
  11354. .dc.b $00 << 3 | $06 ; Feedback << 3 | Connection
  11355. .dc.b $0f ; Slot Mask
  11356. .dc.b $02,$00,$c8,$5a,$00,$04,$00,$03,$00
  11357. .dc.b $0a,$00,$01,$03,$00,$4d,$00,$01,$00,$00,$00
  11358. .dc.b $0c,$00,$00,$05,$00,$07,$02,$03,$03,$00,$01
  11359. .dc.b $0c,$00,$01,$06,$02,$00,$01,$02,$07,$00,$01
  11360. .dc.b $12,$00,$00,$06,$00,$11,$01,$01,$03,$00,$01
  11361. ChorusData2:
  11362. .dc.b $05 << 3 | $01 ; Feedback << 3 | Connection
  11363. .dc.b $0f ; Slot Mask
  11364. .dc.b $02,$00,$ce,$28,$00,$04,$00,$03,$00
  11365. .dc.b $13,$12,$04,$04,$05,$42,$00,$06,$03,$03,$00
  11366. .dc.b $15,$0e,$06,$0a,$06,$34,$00,$04,$07,$03,$00
  11367. .dc.b $0b,$1f,$03,$0a,$00,$2d,$00,$01,$07,$00,$00
  11368. .dc.b $0e,$1f,$01,$08,$00,$00,$00,$01,$03,$00,$01
  11369. GrassharpData2:
  11370. .dc.b $04 << 3 | $04 ; Feedback << 3 | Connection
  11371. .dc.b $0f ; Slot Mask
  11372. .dc.b $00,$00,$50,$01,$02,$01,$01,$03,$00
  11373. .dc.b $14,$02,$01,$05,$03,$24,$01,$04,$00,$00,$01
  11374. .dc.b $06,$07,$07,$06,$00,$00,$00,$00,$00,$01,$01
  11375. .dc.b $14,$02,$01,$05,$03,$25,$03,$04,$06,$00,$00
  11376. .dc.b $07,$07,$07,$07,$00,$00,$00,$00,$02,$01,$01
  11377. WhistleData2:
  11378. .dc.b $00 << 3 | $07 ; Feedback << 3 | Connection
  11379. .dc.b $0f ; Slot Mask
  11380. .dc.b $02,$00,$c8,$46,$00,$04,$00,$03,$00
  11381. .dc.b $00,$00,$00,$00,$00,$7f,$00,$00,$04,$00,$00
  11382. .dc.b $00,$00,$00,$00,$00,$7f,$00,$00,$04,$00,$00
  11383. .dc.b $0f,$0c,$00,$09,$00,$00,$00,$05,$07,$02,$00
  11384. .dc.b $0d,$0c,$00,$09,$00,$00,$00,$08,$07,$00,$01
  11385. PiccoloData2:
  11386. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  11387. .dc.b $0f ; Slot Mask
  11388. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  11389. .dc.b $12,$0a,$01,$0a,$03,$2f,$01,$02,$04,$00,$00
  11390. .dc.b $13,$0b,$03,$09,$02,$00,$00,$02,$04,$00,$00
  11391. .dc.b $12,$0a,$01,$0a,$05,$4d,$01,$06,$04,$03,$00
  11392. .dc.b $13,$0b,$03,$09,$02,$00,$00,$02,$04,$00,$00
  11393. FluteData2:
  11394. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11395. .dc.b $0f ; Slot Mask
  11396. .dc.b $02,$00,$c4,$10,$00,$05,$00,$03,$00
  11397. .dc.b $1c,$05,$03,$05,$0e,$2a,$03,$02,$07,$01,$00
  11398. .dc.b $0b,$07,$00,$05,$0f,$33,$01,$02,$00,$00,$00
  11399. .dc.b $0e,$02,$00,$04,$02,$30,$03,$01,$03,$00,$00
  11400. .dc.b $0c,$10,$00,$06,$01,$00,$02,$01,$00,$00,$01
  11401. OboeData2:
  11402. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11403. .dc.b $0f ; Slot Mask
  11404. .dc.b $02,$00,$c6,$1e,$08,$04,$01,$03,$00
  11405. .dc.b $19,$0b,$00,$03,$01,$25,$03,$01,$03,$00,$00
  11406. .dc.b $1c,$0c,$0c,$0b,$05,$25,$03,$09,$03,$00,$00
  11407. .dc.b $19,$10,$00,$0b,$01,$2f,$01,$02,$03,$00,$00
  11408. .dc.b $11,$0a,$00,$0b,$01,$00,$01,$04,$03,$00,$01
  11409. ClarinetData2:
  11410. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11411. .dc.b $0f ; Slot Mask
  11412. .dc.b $02,$00,$c6,$0b,$00,$04,$00,$03,$00
  11413. .dc.b $13,$02,$02,$00,$01,$24,$01,$02,$00,$00,$00
  11414. .dc.b $1c,$12,$03,$0b,$04,$20,$00,$09,$00,$00,$00
  11415. .dc.b $1d,$14,$01,$09,$01,$37,$01,$01,$00,$00,$00
  11416. .dc.b $11,$0f,$00,$09,$00,$00,$00,$01,$00,$00,$01
  11417. BassoonData2:
  11418. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  11419. .dc.b $0f ; Slot Mask
  11420. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11421. .dc.b $12,$00,$00,$0a,$00,$2f,$00,$01,$04,$00,$00
  11422. .dc.b $14,$00,$00,$0a,$00,$00,$01,$02,$04,$00,$00
  11423. .dc.b $13,$0e,$00,$0a,$01,$27,$00,$01,$04,$00,$00
  11424. .dc.b $14,$00,$00,$0a,$00,$00,$00,$05,$04,$00,$00
  11425. SaxophoneData2:
  11426. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11427. .dc.b $0f ; Slot Mask
  11428. .dc.b $02,$00,$c8,$28,$00,$03,$00,$03,$00
  11429. .dc.b $12,$00,$00,$06,$00,$24,$00,$00,$00,$00,$00
  11430. .dc.b $12,$00,$00,$06,$03,$2f,$00,$04,$00,$01,$00
  11431. .dc.b $12,$00,$00,$06,$00,$2a,$00,$00,$00,$00,$00
  11432. .dc.b $0e,$08,$00,$08,$01,$00,$00,$01,$07,$00,$01
  11433. TrumpetData2:
  11434. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11435. .dc.b $0f ; Slot Mask
  11436. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11437. .dc.b $0e,$0e,$00,$03,$01,$1b,$02,$01,$03,$00,$00
  11438. .dc.b $0e,$0e,$00,$03,$0f,$25,$02,$07,$02,$00,$00
  11439. .dc.b $0d,$0e,$00,$03,$01,$25,$02,$01,$04,$00,$00
  11440. .dc.b $13,$03,$00,$0a,$00,$00,$01,$01,$06,$00,$01
  11441. HornData2:
  11442. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11443. .dc.b $0f ; Slot Mask
  11444. .dc.b $02,$00,$cd,$00,$00,$00,$00,$03,$00
  11445. .dc.b $0d,$09,$00,$09,$03,$22,$00,$01,$04,$00,$00
  11446. .dc.b $1f,$11,$00,$0f,$0c,$2d,$01,$05,$04,$02,$00
  11447. .dc.b $0c,$0b,$00,$08,$01,$32,$00,$01,$04,$00,$00
  11448. .dc.b $0e,$1f,$00,$0a,$00,$01,$00,$01,$04,$00,$01
  11449. TromboneData2:
  11450. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11451. .dc.b $0f ; Slot Mask
  11452. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11453. .dc.b $10,$0c,$00,$08,$00,$1c,$00,$01,$00,$00,$00
  11454. .dc.b $0e,$0e,$00,$0a,$0f,$28,$00,$02,$00,$02,$00
  11455. .dc.b $14,$0e,$00,$0a,$07,$31,$00,$01,$00,$00,$00
  11456. .dc.b $10,$0e,$00,$08,$01,$00,$00,$01,$00,$00,$01
  11457. TubaData2:
  11458. .dc.b $06 << 3 | $06 ; Feedback << 3 | Connection
  11459. .dc.b $0f ; Slot Mask
  11460. .dc.b $02,$00,$cb,$02,$02,$01,$01,$03,$00
  11461. .dc.b $0f,$0a,$01,$05,$06,$15,$01,$00,$01,$00,$00
  11462. .dc.b $11,$02,$01,$08,$03,$00,$00,$01,$03,$00,$01
  11463. .dc.b $1e,$02,$12,$0a,$05,$00,$02,$01,$07,$00,$01
  11464. .dc.b $0f,$02,$01,$0a,$05,$00,$02,$00,$03,$00,$01
  11465. Brass1Data2:
  11466. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  11467. .dc.b $0f ; Slot Mask
  11468. .dc.b $00,$00,$c8,$00,$00,$00,$00,$03,$00
  11469. .dc.b $12,$0c,$01,$0a,$02,$20,$01,$01,$00,$00,$00
  11470. .dc.b $12,$0a,$01,$0a,$03,$00,$00,$01,$01,$00,$01
  11471. .dc.b $0f,$0a,$01,$0a,$05,$13,$01,$01,$02,$00,$00
  11472. .dc.b $14,$02,$01,$0a,$03,$07,$00,$01,$06,$00,$01
  11473. Brass2Data2:
  11474. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11475. .dc.b $0f ; Slot Mask
  11476. .dc.b $02,$00,$ce,$28,$00,$03,$00,$03,$00
  11477. .dc.b $10,$0f,$00,$08,$01,$18,$00,$01,$07,$00,$00
  11478. .dc.b $10,$0c,$00,$04,$01,$3b,$00,$08,$00,$02,$00
  11479. .dc.b $12,$00,$00,$04,$00,$33,$00,$01,$00,$00,$00
  11480. .dc.b $10,$00,$00,$0a,$00,$00,$00,$02,$00,$00,$01
  11481. HarmonicaData2:
  11482. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  11483. .dc.b $0f ; Slot Mask
  11484. .dc.b $02,$00,$d2,$01,$05,$03,$01,$03,$00
  11485. .dc.b $12,$00,$00,$03,$00,$26,$00,$09,$03,$00,$00
  11486. .dc.b $12,$00,$00,$03,$00,$26,$00,$07,$07,$00,$00
  11487. .dc.b $0f,$05,$00,$03,$01,$25,$00,$01,$03,$00,$00
  11488. .dc.b $0f,$08,$00,$09,$02,$00,$00,$03,$07,$00,$01
  11489. OcarinaData2:
  11490. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11491. .dc.b $0f ; Slot Mask
  11492. .dc.b $02,$00,$cc,$14,$00,$05,$00,$03,$00
  11493. .dc.b $1f,$10,$00,$0a,$0f,$0c,$00,$04,$00,$00,$00
  11494. .dc.b $18,$0a,$00,$0a,$00,$4d,$00,$02,$00,$00,$00
  11495. .dc.b $14,$14,$00,$0a,$03,$4d,$00,$03,$07,$01,$00
  11496. .dc.b $10,$05,$00,$0a,$07,$00,$00,$04,$00,$00,$01
  11497. RecorderData2:
  11498. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11499. .dc.b $0f ; Slot Mask
  11500. .dc.b $02,$00,$c4,$12,$00,$05,$00,$03,$00
  11501. .dc.b $11,$11,$10,$06,$03,$37,$00,$04,$04,$01,$00
  11502. .dc.b $0f,$12,$01,$00,$02,$2f,$00,$02,$04,$00,$00
  11503. .dc.b $0d,$14,$00,$07,$02,$2f,$00,$02,$07,$00,$00
  11504. .dc.b $10,$1f,$00,$09,$00,$00,$00,$01,$04,$00,$01
  11505. SambaWhistleData2:
  11506. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  11507. .dc.b $0f ; Slot Mask
  11508. .dc.b $02,$00,$f4,$2f,$00,$07,$00,$03,$00
  11509. .dc.b $1f,$00,$00,$0a,$00,$2f,$00,$06,$00,$00,$00
  11510. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$00
  11511. .dc.b $1f,$00,$00,$0a,$00,$2b,$00,$0a,$00,$00,$00
  11512. .dc.b $14,$08,$00,$0a,$01,$00,$00,$02,$00,$00,$01
  11513. PanfluteData2:
  11514. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11515. .dc.b $0f ; Slot Mask
  11516. .dc.b $02,$00,$c8,$50,$00,$03,$00,$03,$00
  11517. .dc.b $14,$00,$00,$0a,$00,$00,$00,$04,$00,$00,$00
  11518. .dc.b $0e,$10,$00,$0a,$05,$3e,$00,$02,$03,$00,$00
  11519. .dc.b $12,$12,$00,$0a,$09,$26,$00,$03,$00,$01,$00
  11520. .dc.b $0e,$0c,$00,$0a,$02,$00,$01,$01,$00,$00,$01
  11521. SnaredrumData2:
  11522. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  11523. .dc.b $0f ; Slot Mask
  11524. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11525. .dc.b $1f,$19,$05,$02,$00,$00,$00,$0f,$00,$00,$00
  11526. .dc.b $1f,$12,$12,$0c,$07,$00,$00,$01,$00,$00,$01
  11527. .dc.b $1f,$19,$00,$00,$0f,$00,$00,$03,$00,$01,$00
  11528. .dc.b $1f,$11,$0f,$0a,$0f,$00,$00,$01,$00,$00,$01
  11529. RimshotData2:
  11530. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  11531. .dc.b $0f ; Slot Mask
  11532. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11533. .dc.b $1e,$10,$01,$0a,$0f,$2b,$00,$02,$00,$03,$00
  11534. .dc.b $1e,$0a,$00,$0a,$0f,$2f,$00,$00,$07,$01,$00
  11535. .dc.b $1e,$14,$00,$0a,$0f,$0f,$00,$00,$03,$03,$00
  11536. .dc.b $1e,$13,$00,$0a,$0f,$00,$00,$01,$00,$00,$01
  11537. BassdrumData2:
  11538. .dc.b $00 << 3 | $00 ; Feedback << 3 | Connection
  11539. .dc.b $0f ; Slot Mask
  11540. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11541. .dc.b $1e,$1a,$00,$0d,$0f,$1a,$00,$01,$00,$01,$00
  11542. .dc.b $1e,$1c,$00,$0e,$0f,$25,$00,$0e,$00,$03,$00
  11543. .dc.b $1e,$10,$00,$08,$0f,$05,$00,$00,$00,$01,$00
  11544. .dc.b $1d,$10,$00,$08,$0f,$00,$00,$00,$00,$00,$01
  11545. TomtomData2:
  11546. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11547. .dc.b $0f ; Slot Mask
  11548. .dc.b $02,$00,$6e,$00,$00,$00,$00,$03,$00
  11549. .dc.b $1c,$14,$0c,$0f,$0a,$16,$00,$03,$00,$02,$00
  11550. .dc.b $1c,$13,$05,$02,$0a,$11,$03,$01,$00,$01,$00
  11551. .dc.b $1c,$0f,$0a,$0a,$05,$11,$03,$00,$03,$00,$00
  11552. .dc.b $1e,$0c,$07,$05,$06,$00,$01,$01,$00,$00,$01
  11553. TimpaniData2:
  11554. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  11555. .dc.b $0f ; Slot Mask
  11556. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11557. .dc.b $1c,$0c,$00,$04,$0f,$24,$01,$00,$00,$01,$00
  11558. .dc.b $14,$08,$00,$04,$0f,$1b,$01,$00,$00,$02,$00
  11559. .dc.b $1c,$0a,$00,$05,$0f,$22,$00,$00,$00,$00,$00
  11560. .dc.b $10,$05,$00,$02,$0f,$00,$03,$00,$00,$00,$01
  11561. BongoData2:
  11562. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11563. .dc.b $0f ; Slot Mask
  11564. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11565. .dc.b $18,$17,$00,$0b,$0f,$00,$00,$03,$00,$03,$00
  11566. .dc.b $1a,$0e,$00,$07,$0f,$28,$00,$02,$00,$02,$00
  11567. .dc.b $1a,$0a,$00,$05,$0f,$39,$00,$02,$00,$03,$00
  11568. .dc.b $16,$10,$00,$08,$0f,$00,$02,$06,$00,$00,$01
  11569. TingPalaceData2:
  11570. .dc.b $06 << 3 | $02 ; Feedback << 3 | Connection
  11571. .dc.b $0f ; Slot Mask
  11572. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11573. .dc.b $1c,$0f,$00,$06,$0f,$1a,$01,$02,$03,$03,$00
  11574. .dc.b $18,$10,$00,$07,$0f,$20,$00,$08,$07,$02,$00
  11575. .dc.b $1a,$0b,$00,$07,$0f,$1d,$01,$05,$03,$00,$00
  11576. .dc.b $18,$07,$00,$04,$0f,$00,$02,$02,$07,$03,$01
  11577. TriangleData2:
  11578. .dc.b $00 << 3 | $03 ; Feedback << 3 | Connection
  11579. .dc.b $0f ; Slot Mask
  11580. .dc.b $00,$00,$64,$00,$00,$00,$00,$03,$00
  11581. .dc.b $1f,$06,$00,$04,$0f,$33,$00,$01,$00,$03,$00
  11582. .dc.b $1f,$00,$00,$02,$00,$1b,$00,$08,$07,$02,$00
  11583. .dc.b $1f,$08,$00,$06,$05,$43,$00,$09,$03,$01,$00
  11584. .dc.b $1f,$0a,$00,$05,$0f,$00,$00,$0a,$03,$02,$01
  11585. CowbellData2:
  11586. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11587. .dc.b $0f ; Slot Mask
  11588. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11589. .dc.b $1e,$14,$00,$0a,$0f,$1b,$00,$0f,$02,$00,$00
  11590. .dc.b $1e,$11,$00,$08,$0f,$1b,$01,$04,$00,$01,$00
  11591. .dc.b $1c,$0c,$00,$06,$0f,$2b,$01,$02,$03,$02,$00
  11592. .dc.b $1a,$10,$00,$08,$0f,$00,$01,$02,$00,$03,$01
  11593. TubelabelData2:
  11594. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  11595. .dc.b $0f ; Slot Mask
  11596. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11597. .dc.b $1f,$07,$00,$01,$01,$23,$00,$07,$03,$00,$00
  11598. .dc.b $1f,$0a,$00,$06,$00,$00,$00,$02,$07,$00,$01
  11599. .dc.b $1f,$07,$00,$01,$01,$23,$00,$07,$07,$00,$00
  11600. .dc.b $1f,$0d,$00,$06,$00,$00,$00,$02,$03,$00,$01
  11601. SteeldrumData2:
  11602. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  11603. .dc.b $0f ; Slot Mask
  11604. .dc.b $02,$00,$d0,$00,$00,$00,$00,$03,$00
  11605. .dc.b $0d,$0a,$04,$04,$0f,$1d,$01,$03,$07,$00,$00
  11606. .dc.b $11,$07,$00,$04,$0f,$00,$02,$01,$00,$00,$01
  11607. .dc.b $0e,$08,$05,$03,$0f,$23,$02,$01,$07,$00,$00
  11608. .dc.b $0f,$08,$00,$04,$0f,$07,$02,$04,$03,$00,$01
  11609. GlockenData2:
  11610. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  11611. .dc.b $0f ; Slot Mask
  11612. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11613. .dc.b $1f,$18,$00,$0c,$0f,$20,$00,$0e,$02,$00,$00
  11614. .dc.b $1f,$0f,$00,$08,$0f,$00,$00,$02,$00,$00,$00
  11615. .dc.b $1f,$14,$00,$04,$0f,$1b,$00,$0f,$00,$00,$00
  11616. .dc.b $1f,$0e,$00,$05,$0f,$00,$00,$02,$00,$00,$01
  11617. VibraphoneData2:
  11618. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  11619. .dc.b $0f ; Slot Mask
  11620. .dc.b $02,$00,$c5,$28,$0d,$02,$03,$03,$00
  11621. .dc.b $18,$0e,$00,$07,$0f,$32,$01,$0c,$03,$00,$00
  11622. .dc.b $18,$0a,$00,$07,$0f,$00,$01,$04,$00,$00,$01
  11623. .dc.b $1a,$0e,$00,$06,$0f,$39,$01,$04,$00,$00,$00
  11624. .dc.b $1a,$08,$00,$06,$0f,$00,$02,$01,$00,$00,$01
  11625. MarimbaData2:
  11626. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  11627. .dc.b $0f ; Slot Mask
  11628. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11629. .dc.b $18,$11,$00,$07,$0f,$2a,$01,$04,$03,$00,$00
  11630. .dc.b $18,$04,$00,$02,$0f,$00,$03,$00,$03,$00,$01
  11631. .dc.b $18,$14,$00,$0a,$0f,$20,$01,$06,$07,$00,$00
  11632. .dc.b $18,$0c,$00,$06,$0f,$00,$02,$02,$07,$00,$01
  11633. ClosedHHData2:
  11634. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  11635. .dc.b $0f ; Slot Mask
  11636. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11637. .dc.b $1d,$04,$03,$02,$03,$00,$00,$0e,$00,$01,$00
  11638. .dc.b $1d,$0f,$03,$02,$07,$1b,$00,$06,$00,$01,$00
  11639. .dc.b $1d,$17,$00,$0a,$0f,$1b,$00,$07,$00,$02,$00
  11640. .dc.b $1e,$14,$15,$0f,$0f,$00,$00,$01,$00,$00,$01
  11641. OpenHHData2:
  11642. .dc.b $06 << 3 | $04 ; Feedback << 3 | Connection
  11643. .dc.b $0f ; Slot Mask
  11644. .dc.b $02,$00,$6f,$00,$00,$00,$00,$03,$00
  11645. .dc.b $1f,$01,$00,$05,$0c,$07,$00,$00,$00,$03,$00
  11646. .dc.b $1f,$0d,$0f,$0a,$0f,$0e,$00,$0e,$00,$01,$00
  11647. .dc.b $1f,$16,$07,$08,$06,$13,$00,$00,$07,$00,$00
  11648. .dc.b $1f,$14,$14,$08,$0f,$02,$00,$00,$00,$01,$00
  11649. CymbalData2:
  11650. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  11651. .dc.b $0f ; Slot Mask
  11652. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  11653. .dc.b $1f,$04,$00,$00,$01,$04,$00,$03,$07,$01,$00
  11654. .dc.b $1f,$1f,$03,$02,$01,$1d,$01,$05,$00,$02,$00
  11655. .dc.b $19,$1c,$05,$03,$03,$07,$00,$01,$07,$02,$00
  11656. .dc.b $1f,$1f,$05,$03,$07,$00,$02,$07,$00,$03,$01
  11657. Synthesizer1Data2:
  11658. .dc.b $03 << 3 | $02 ; Feedback << 3 | Connection
  11659. .dc.b $0f ; Slot Mask
  11660. .dc.b $02,$00,$c8,$14,$03,$03,$02,$03,$00
  11661. .dc.b $12,$01,$01,$0a,$03,$11,$01,$02,$01,$00,$00
  11662. .dc.b $14,$02,$01,$0a,$00,$0c,$00,$03,$00,$01,$00
  11663. .dc.b $1f,$13,$01,$00,$0f,$19,$00,$00,$00,$00,$00
  11664. .dc.b $14,$02,$01,$0a,$03,$00,$02,$01,$03,$00,$01
  11665. Synthesizer2Data2:
  11666. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  11667. .dc.b $03 ; Slot Mask
  11668. .dc.b $02,$00,$d2,$28,$00,$03,$00,$03,$00
  11669. .dc.b $1f,$10,$00,$00,$0f,$07,$01,$02,$03,$00,$00
  11670. .dc.b $1f,$00,$00,$08,$00,$07,$01,$01,$06,$00,$01
  11671. .dc.b $1f,$00,$00,$08,$00,$0c,$01,$02,$07,$00,$00
  11672. .dc.b $1f,$00,$00,$08,$00,$00,$01,$01,$03,$00,$01
  11673. SE1Data2:
  11674. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  11675. .dc.b $0f ; Slot Mask
  11676. .dc.b $01,$00,$9e,$44,$00,$06,$00,$03,$00
  11677. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$00
  11678. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$01
  11679. .dc.b $1f,$00,$00,$01,$00,$25,$00,$0e,$00,$00,$00
  11680. .dc.b $10,$00,$00,$04,$00,$00,$00,$05,$07,$01,$01
  11681. SE2Data2:
  11682. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  11683. .dc.b $0f ; Slot Mask
  11684. .dc.b $02,$00,$78,$78,$1e,$07,$02,$03,$00
  11685. .dc.b $1f,$00,$00,$00,$00,$11,$00,$02,$00,$02,$00
  11686. .dc.b $1f,$00,$00,$00,$00,$0a,$00,$01,$00,$01,$00
  11687. .dc.b $1f,$00,$00,$00,$00,$1d,$00,$01,$00,$02,$00
  11688. .dc.b $0c,$00,$00,$04,$00,$00,$00,$00,$00,$00,$01
  11689. SE3Data2:
  11690. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  11691. .dc.b $0f ; Slot Mask
  11692. .dc.b $00,$00,$dc,$78,$00,$07,$00,$03,$00
  11693. .dc.b $1f,$00,$00,$05,$00,$0f,$00,$00,$00,$03,$00
  11694. .dc.b $14,$00,$00,$0a,$00,$07,$00,$07,$00,$01,$01
  11695. .dc.b $0c,$00,$00,$05,$00,$2f,$00,$03,$00,$03,$00
  11696. .dc.b $10,$00,$00,$08,$00,$00,$00,$01,$00,$00,$01
  11697. SE4Data2:
  11698. .dc.b $00 << 3 | $06 ; Feedback << 3 | Connection
  11699. .dc.b $0f ; Slot Mask
  11700. .dc.b $03,$00,$d1,$46,$00,$06,$00,$03,$00
  11701. .dc.b $1f,$00,$00,$00,$00,$19,$00,$0c,$00,$00,$00
  11702. .dc.b $14,$0e,$00,$07,$0f,$07,$00,$04,$00,$00,$00
  11703. .dc.b $14,$0e,$00,$07,$0f,$00,$00,$02,$04,$03,$00
  11704. .dc.b $14,$0e,$00,$07,$0f,$00,$00,$02,$04,$00,$00
  11705. SE5Data2:
  11706. .dc.b $04 << 3 | $00 ; Feedback << 3 | Connection
  11707. .dc.b $0f ; Slot Mask
  11708. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  11709. .dc.b $1f,$08,$00,$04,$0f,$0d,$00,$03,$00,$02,$00
  11710. .dc.b $0a,$07,$00,$04,$0f,$11,$03,$01,$00,$01,$00
  11711. .dc.b $1f,$00,$00,$00,$00,$03,$00,$01,$00,$02,$00
  11712. .dc.b $10,$09,$00,$04,$0f,$00,$03,$00,$00,$00,$01
  11713. EmptyVoice:
  11714. .dc.b $00,$0f,$00,$00,$00,$00,$00,$00,$00,$03,$00,$1f,$1f,$00,$0f,$00
  11715. .dc.b $7f,$00,$01,$00,$00,$00,$1f,$1f,$00,$0f,$00,$7f,$00,$01,$00,$00
  11716. .dc.b $00,$1f,$1f,$00,$0f,$00,$7f,$00,$01,$00,$00,$00,$1f,$1f,$00,$0f
  11717. .dc.b $00,$00,$00,$01,$00,$00,$00
  11718. L00a251:
  11719. .dc.b $0d,$0a
  11720. .dc.b 'Music Device Driver for X68000 version 1.00',$0d,$0a
  11721. .dc.b 'Copyright 1992 by SHARP/SAN/Luvex',$0d,$0a,$00
  11722. L00a2a4:
  11723. .dc.b $0d,$0a
  11724. .dc.b 'OPM または MIDI のデバイス名でミュージックデータの演奏が可能です。',$0d,$0a
  11725. .dc.b 'PCM のデバイス名で、録音/再生が可能です',$0d,$0a,$00
  11726. L00a314:
  11727. .dc.b $0d,$0a
  11728. .dc.b 'OPM のデバイス名でミュージックデータの演奏が可能です。',$0d,$0a
  11729. .dc.b 'PCM のデバイス名で、録音/再生が可能です',$0d,$0a,$00
  11730. L00a378:
  11731. .dc.b 'トラックバッファに'
  11732. L00a38a:
  11733. .dc.b ' kバイトを確保しました。',$0d,$0a,$00
  11734. L00a3a8:
  11735. .dc.b 'PCMのバッファに'
  11736. L00a3ba:
  11737. .dc.b ' kバイトを確保しました。',$0d,$0a,$00
  11738. L00a3d8:
  11739. .dc.b 'PCMは使用出来ません。',$0d,$0a,$00
  11740. L00a3f3:
  11741. .dc.b $0d,$0a
  11742. .dc.b '#n',$09,':トラックバッファサイズ n=24~4096(k bytes) def=64',$0d,$0a
  11743. .dc.b '/Pn',$09,':PCMバッファサイズ n=24~4096(k bytes) def=24',$0d,$0a
  11744. .dc.b '/OPM',$09,': OPM=ch1~8 PCM=ch9 MIDI=ch10~25',$0d,$0a
  11745. .dc.b '/OMP',$09,': OPM=ch1~8 MIDI=ch9~24 PCM=ch25',$0d,$0a
  11746. .dc.b '/MOP',$09,':MIDI=ch1~16 OPM=ch17~24 PCM=ch25',$0d,$0a
  11747. .dc.b '/MPO',$09,':MIDI=ch1~16 PCM=ch17 OPM=ch18~25',$0d,$0a
  11748. .dc.b '/PMO',$09,': PCM=ch1 MIDI=ch2~17 OPM=ch18~25',$0d,$0a
  11749. .dc.b '/POM',$09,': PCM=ch1 OPM=ch2~9 MIDI=ch10~25',$0d,$0a
  11750. .dc.b '/Yn',$09,':Yコマンドモード def=/Y1',$0d,$0a
  11751. .dc.b '/Fn',$09,':FM音源の音程微調整 n=0~63 def=0',$0d,$0a
  11752. .dc.b '/R ',$09,':ドライバー解除',$0d,$0a
  11753. .dc.b 'on'