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.

commando.s 132KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309
  1. ;=============================================
  2. ; Filename commando.x
  3. ;
  4. ;
  5. ; Base address 000000
  6. ; Exec address 000010
  7. ; Text size 0058b2 byte(s)
  8. ; Data size 000c2e byte(s)
  9. ; Bss size 000fa2 byte(s)
  10. ; 1403 Labels
  11. ;
  12. ; Commandline dis -b2 -h -m68000 --sp -q1 -B -M -o120 -gcommando.lab --overwrite commando.x commando.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. L000000:
  21. .dc.l L00649a
  22. .dc.b $00,$00,$74,$81
  23. .dc.l L007482+$001000
  24. L00000c:
  25. .dc.l $00000a1c
  26. Start:
  27. bra.s Start2
  28. L000012:
  29. .dc.b 'Command2.03Hu',$00
  30. Start2:
  31. DOS _VERNUM
  32. cmp.w #$0332,d0
  33. bcs.s L000038
  34. lea.l (L0062f3),a0
  35. bsr.w L002044
  36. move.w #$0700,-(sp)
  37. DOS _EXIT2
  38. L000038:
  39. DOS _GETPDB
  40. movea.l d0,a0
  41. movea.l ($00f8,a0),sp
  42. bsr.w L00052a
  43. move.b #-$01,(L006ea2)
  44. bsr.w L0005b2
  45. bsr.w L000216
  46. tst.b (L006eb1)
  47. bne.s L000064
  48. tst.b (L006eae)
  49. bne.s L000068
  50. L000064:
  51. bsr.w L001a9a
  52. L000068:
  53. tst.b (L006eb1)
  54. beq.s L0000aa
  55. tst.b (L006eae)
  56. bne.s L000088
  57. tst.b (L006eaf)
  58. bne.s L0000ea
  59. move.b #-$01,(L006e9f)
  60. L000088:
  61. lea.l (L0065ce),a1
  62. tst.b (a1)+
  63. bne.s L000098
  64. lea.l (L005b3b),a1
  65. L000098:
  66. lea.l (L006ec8),a0
  67. bsr.w L001c94
  68. bsr.w L001c86
  69. move.b d0,-(a0)
  70. bra.s L0000da
  71. L0000aa:
  72. lea.l (L0065ce),a1
  73. tst.b (a1)+
  74. bne.s L000098
  75. bra.s L0000ea
  76. L0000b6:
  77. move.b #-$01,(L006ea2)
  78. clr.b (L006e9f)
  79. tst.b (L006ea4)
  80. beq.s L0000d4
  81. clr.b (L006ea4)
  82. bra.s L0000da
  83. L0000d4:
  84. bsr.w L000cec
  85. beq.s L0000b6
  86. L0000da:
  87. bsr.w L0013a8
  88. beq.s L0000ea
  89. bsr.w L001628
  90. beq.s L0000ea
  91. bsr.w L0018a0
  92. L0000ea:
  93. bsr.w L00280c
  94. bra.s L0000b6
  95. L0000f0:
  96. lea.l (L005bcf),a0
  97. bsr.w L002044
  98. tst.b (L006ea2)
  99. L000100:
  100. bne.s L00012a
  101. L000102:
  102. move.l #$000003fc,d0
  103. cmp.w #$0100,d1
  104. bcs.s L000126
  105. addq.l #1,d0
  106. cmp.w #$0200,d1
  107. bcs.s L000126
  108. addq.l #2,d0
  109. cmp.w #$ff00,d1
  110. bcc.s L000126
  111. cmp.w #$f000,d1
  112. bcc.s L000126
  113. move.b d1,d0
  114. L000126:
  115. move.w d0,-(sp)
  116. DOS _EXIT2
  117. L00012a:
  118. move.l #$000003fc,d0
  119. cmp.w #$0100,d1
  120. bcs.s L00014e
  121. addq.l #1,d0
  122. cmp.w #$0200,d1
  123. bcs.s L00014e
  124. addq.l #2,d0
  125. cmp.w #$ff00,d1
  126. bcc.s L00014e
  127. cmp.w #$f000,d1
  128. bcc.s L00014e
  129. move.b d1,d0
  130. L00014e:
  131. move.l d0,(L0064b6)
  132. DOS _GETPDB
  133. movea.l d0,a0
  134. movea.l ($00f8,a0),sp
  135. moveq.l #$26,d0 ;'&'
  136. bsr.w L002db8
  137. bra.s L000194
  138. L000164:
  139. lea.l (L005bcf),a0
  140. bsr.w L002044
  141. tst.b (L006ea2)
  142. bne.s L00017c
  143. move.w #$0200,-(sp)
  144. DOS _EXIT2
  145. L00017c:
  146. move.l #$00000200,(L0064b6)
  147. DOS _GETPDB
  148. movea.l d0,a0
  149. movea.l ($00f8,a0),sp
  150. moveq.l #$22,d0 ;'"'
  151. bsr.w L002db8
  152. L000194:
  153. clr.b (L006ea5)
  154. clr.b (L006ea7)
  155. clr.b (L006ea8)
  156. tst.b (L006ea3)
  157. beq.s L0001b0
  158. bsr.s L0001cc
  159. L0001b0:
  160. tst.b (L006eb5)
  161. bmi.w L00045e
  162. bne.w L000454
  163. bsr.w L0004ec
  164. bsr.w L0027e6
  165. DOS _FFLUSH
  166. bra.w L0000b6
  167. L0001cc:
  168. lea.l (L006340),a0
  169. bsr.w L002044
  170. move.w #$0001,-(sp)
  171. DOS _KFLUSH
  172. addq.l #2,sp
  173. or.b #$20,d0
  174. cmp.b #$6e,d0 ;'n'
  175. beq.s L00020a
  176. cmp.b #$79,d0 ;'y'
  177. bne.s L0001cc
  178. move.l #$00000200,(L0064b6)
  179. move.b #-$01,(L006ead)
  180. clr.b (L006ea3)
  181. bsr.w L000430
  182. L00020a:
  183. lea.l (L005bcf),a0
  184. bsr.w L002044
  185. rts
  186. L000216:
  187. move.w #$ffff,(L0064c4)
  188. move.w #$ffff,(L0064c6)
  189. move.w #$ffff,(L0064c8)
  190. move.w #$ffff,(L0064ca)
  191. clr.b (L006eab)
  192. clr.b (L006eac)
  193. move.b #-$01,(L006ea2)
  194. move.b #-$01,(L006ead)
  195. move.b #$ff,(L006ec6)
  196. move.b #$ff,(L0064cc)
  197. clr.l (L0064b6)
  198. clr.l (L0064ba)
  199. clr.l (L00649a)
  200. clr.b (L006e9f)
  201. clr.b (L006ea3)
  202. clr.b (L006ea4)
  203. clr.b (L006ea5)
  204. clr.b (L006ea6)
  205. clr.b (L006ea7)
  206. clr.b (L006ea8)
  207. clr.b (L006ec7)
  208. clr.b (L006ec8)
  209. clr.b (L0064cd)
  210. clr.b (L0064ce)
  211. clr.b (L006ea9)
  212. clr.b (L006eaa)
  213. clr.b (L006ea1)
  214. clr.b (L006eb4)
  215. clr.b (L006eb5)
  216. DOS _VERNUM
  217. cmp.w #$014a,d0
  218. bcs.s L0002e4
  219. move.b #-$01,(L006eb4)
  220. L0002e4:
  221. move.b (L007480),(L006ea0)
  222. DOS _GETPDB
  223. movea.l d0,a0
  224. movea.l (a0),a0
  225. move.l #$00000200,d1
  226. cmpa.l #$ffffffff,a0
  227. beq.s L000328
  228. tst.b (L006eb1)
  229. bne.s L00030c
  230. move.l (a0),d1
  231. L00030c:
  232. tst.b (L006eb0)
  233. beq.s L00033e
  234. clr.l d0
  235. move.b (L006eb2),d0
  236. addq.l #2,d0
  237. lsl.l #8,d0
  238. cmp.l d1,d0
  239. bcs.s L00033e
  240. move.l d0,d1
  241. bra.s L00033e
  242. L000328:
  243. tst.b (L006eb0)
  244. beq.s L00033e
  245. clr.l d0
  246. move.b (L006eb2),d0
  247. addq.l #2,d0
  248. lsl.l #8,d0
  249. move.l d0,d1
  250. L00033e:
  251. move.l d1,-(sp)
  252. bsr.w L002e1c
  253. addq.l #4,sp
  254. move.l d0,(L0064a2)
  255. movea.l d0,a0
  256. move.l d1,(a0)+
  257. lea.l (L005b89),a1
  258. tst.b (L006eb1)
  259. bne.s L000370
  260. DOS _GETPDB
  261. movea.l d0,a2
  262. movea.l (a2),a2
  263. cmpa.l #$ffffffff,a2
  264. beq.s L000370
  265. addq.l #4,a2
  266. movea.l a2,a1
  267. L000370:
  268. bsr.w L00207e
  269. DOS _GETPDB
  270. movea.l d0,a0
  271. move.l (L0064a2),(a0)
  272. clr.l d0
  273. move.b (L006eb3),d0
  274. addq.l #2,d0
  275. lsl.l #8,d0
  276. move.l d0,d1
  277. move.l d1,-(sp)
  278. bsr.w L002e1c
  279. addq.l #4,sp
  280. move.l d0,(L0064a6)
  281. movea.l d0,a0
  282. move.l d1,(a0)+
  283. move.l a0,(L0064aa)
  284. move.l a0,(L0064ae)
  285. move.l a0,(L0064b2)
  286. clr.b (a0)+
  287. clr.b (a0)
  288. bsr.w L002d8c
  289. move.b #-$01,(L006ea1)
  290. move.b #-$01,(L007480)
  291. bsr.w L0004ee
  292. pea.l (L000164)
  293. move.w #$fff1,-(sp)
  294. DOS _INTVCS
  295. addq.l #6,sp
  296. pea.l (L0000f0)
  297. move.w #$fff2,-(sp)
  298. DOS _INTVCS
  299. addq.l #6,sp
  300. rts
  301. L0003ea:
  302. move.l d0,-(sp)
  303. bsr.w L0004a2
  304. tst.l (L00649a)
  305. beq.s L000408
  306. move.l (L00649a),-(sp)
  307. DOS _MFREE
  308. addq.l #4,sp
  309. clr.l (L00649a)
  310. L000408:
  311. move.l (sp)+,d0
  312. move.l d0,d1
  313. move.l d1,-(sp)
  314. DOS _MALLOC
  315. addq.l #4,sp
  316. tst.l d0
  317. bmi.s L000422
  318. movea.l d0,a0
  319. move.l d0,(L00649a)
  320. move.l d1,(a0)+
  321. clr.b (a0)
  322. L000422:
  323. movem.l d0,-(sp)
  324. bsr.w L0004ee
  325. movem.l (sp)+,d0
  326. rts
  327. L000430:
  328. move.w #$0001,d0
  329. tst.l (L00649a)
  330. beq.s L000452
  331. bsr.s L0004a2
  332. move.l (L00649a),-(sp)
  333. DOS _MFREE
  334. addq.l #4,sp
  335. clr.l (L00649a)
  336. bsr.w L0004ee
  337. L000452:
  338. rts
  339. L000454:
  340. lea.l (L005ccb),a0
  341. bsr.w L002044
  342. L00045e:
  343. lea.l (L0062e2),a0
  344. bsr.w L002044
  345. bsr.w L00280c
  346. bsr.w L002d9e
  347. bsr.w L000572
  348. move.w #$0700,-(sp)
  349. DOS _EXIT2
  350. L00047a:
  351. move.l d0,-(sp)
  352. and.l #$000000ff,d0
  353. lea.l (L0061db),a0
  354. cmp.b #$19,d0
  355. bhi.s L00049a
  356. lsl.l #2,d0
  357. lea.l (Table2),a0
  358. movea.l (a0,d0.l),a0
  359. L00049a:
  360. bsr.w L002044
  361. move.l (sp)+,d0
  362. rts
  363. L0004a2:
  364. move.l (L006eb6),d0
  365. bmi.s L0004ba
  366. move.l d0,-(sp)
  367. DOS _MFREE
  368. addq.l #4,sp
  369. move.l #$ffffffff,(L006eb6)
  370. L0004ba:
  371. move.l (L006ebe),d0
  372. bmi.s L0004d2
  373. move.l d0,-(sp)
  374. DOS _MFREE
  375. addq.l #4,sp
  376. move.l #$ffffffff,(L006ebe)
  377. L0004d2:
  378. move.l (L006eba),d0
  379. bmi.s L0004ea
  380. move.l d0,-(sp)
  381. DOS _MFREE
  382. addq.l #4,sp
  383. move.l #$ffffffff,(L006eba)
  384. L0004ea:
  385. rts
  386. L0004ec:
  387. bsr.s L0004a2
  388. L0004ee:
  389. move.l #$0000af20,-(sp)
  390. bsr.w L002e1c
  391. addq.l #4,sp
  392. move.l d0,(L006eb6)
  393. move.l #$000015e4,-(sp)
  394. bsr.w L002e1c
  395. addq.l #4,sp
  396. move.l d0,(L006ebe)
  397. move.l #$00000400,-(sp)
  398. bsr.w L002e1c
  399. addq.l #4,sp
  400. move.l d0,(L006eba)
  401. move.w #$0001,d0
  402. rts
  403. L00052a:
  404. bsr.w L002d7a
  405. beq.s L00055a
  406. move.l (L00000c),d0
  407. bsr.w L002d62
  408. lea.l (L000000-$000004),a2
  409. L000540:
  410. movea.l (a2),a2
  411. tst.l (a2)
  412. beq.s L000558
  413. move.l ($0004,a2),d0
  414. beq.s L000540
  415. movea.l d0,a0
  416. move.l ($0010,a2),d0
  417. bsr.w L002d62
  418. bra.s L000540
  419. L000558:
  420. rts
  421. L00055a:
  422. lea.l (L000000-$0000f0),a0
  423. lea.l (L007482+$001000),a1
  424. suba.l a0,a1
  425. move.l a1,-(sp)
  426. move.l a0,-(sp)
  427. DOS _SETBLOCK
  428. addq.l #8,sp
  429. rts
  430. L000572:
  431. bsr.w L002d7a
  432. beq.s L0005a2
  433. exg.l a0,a1
  434. move.l (L00000c),d0
  435. bsr.w L002d62
  436. lea.l (L000000-$000004),a2
  437. L00058a:
  438. movea.l (a2),a2
  439. tst.l (a2)
  440. beq.s L0005a2
  441. move.l ($0004,a2),d0
  442. beq.s L00058a
  443. movea.l d0,a1
  444. move.l ($0010,a2),d0
  445. bsr.w L002d62
  446. bra.s L00058a
  447. L0005a2:
  448. rts
  449. L0005a4:
  450. tst.b (L006ead)
  451. beq.s L0005b0
  452. bsr.w L00264c
  453. L0005b0:
  454. rts
  455. L0005b2:
  456. clr.b (L006eae)
  457. clr.b (L006eaf)
  458. clr.b (L006eb1)
  459. clr.b (L006eb0)
  460. clr.b (L006eb2)
  461. clr.b (L006eb3)
  462. clr.b (L0065ce)
  463. DOS _GETPDB
  464. movea.l d0,a0
  465. move.l ($0050,a0),d0
  466. movea.l ($0010,a0),a0
  467. addq.l #1,a0
  468. tst.l d0
  469. bpl.s L0005f6
  470. move.b #-$01,(L006eb1)
  471. L0005f6:
  472. bsr.w L002060
  473. beq.w L000732
  474. cmp.b #$63,d0 ;'c'
  475. bne.s L000636
  476. move.b #-$01,(L006eae)
  477. bsr.w L001d0e
  478. adda.l d0,a0
  479. bsr.w L001c86
  480. cmp.l #$000000ff,d0
  481. bcs.s L000624
  482. move.l #$000000fe,d0
  483. L000624:
  484. movea.l a0,a1
  485. lea.l (L0065ce),a0
  486. move.b d0,(a0)+
  487. bra.w L001ca2
  488. L000632:
  489. bra.w L000732
  490. L000636:
  491. cmp.b #$64,d0 ;'d'
  492. bne.s L000646
  493. move.b #-$01,(L006eaf)
  494. bra.s L0005f6
  495. L000646:
  496. cmp.b #$65,d0 ;'e'
  497. bne.s L0006a0
  498. cmpi.b #$3a,(a0)+ ;':'
  499. bne.w L000732
  500. bsr.w L001bea
  501. move.l d0,d2
  502. L00065a:
  503. move.b (a0),d0
  504. beq.s L000672
  505. cmp.b #$2f,d0 ;'/'
  506. beq.s L000672
  507. addq.l #1,a0
  508. cmp.b #$09,d0
  509. beq.s L000672
  510. cmp.b #$20,d0 ;' '
  511. bne.s L00065a
  512. L000672:
  513. tst.l d1
  514. bpl.s L000678
  515. not.b d1
  516. L000678:
  517. beq.w L0005f6
  518. cmp.b #$0a,d1
  519. bhi.w L0005f6
  520. cmp.l #$000000ff,d2
  521. bhi.w L0005f6
  522. move.b #-$01,(L006eb0)
  523. move.b d2,(L006eb2)
  524. bra.w L0005f6
  525. L0006a0:
  526. cmp.b #$68,d0 ;'h'
  527. bne.s L0006f2
  528. cmpi.b #$3a,(a0)+ ;':'
  529. bne.w L000732
  530. bsr.w L001bea
  531. move.l d0,d2
  532. L0006b4:
  533. move.b (a0),d0
  534. beq.s L0006cc
  535. cmp.b #$2f,d0 ;'/'
  536. beq.s L0006cc
  537. addq.l #1,a0
  538. cmp.b #$09,d0
  539. beq.s L0006cc
  540. cmp.b #$20,d0 ;' '
  541. bne.s L0006b4
  542. L0006cc:
  543. tst.l d1
  544. bpl.s L0006d2
  545. not.b d1
  546. L0006d2:
  547. beq.w L0005f6
  548. cmp.b #$0a,d1
  549. bhi.w L0005f6
  550. cmp.l #$000000ff,d2
  551. bhi.w L0005f6
  552. move.b d2,(L006eb3)
  553. bra.w L0005f6
  554. L0006f2:
  555. cmp.b #$62,d0 ;'b'
  556. bne.s L000720
  557. cmpi.b #$3a,(a0)+ ;':'
  558. bne.s L000732
  559. L0006fe:
  560. move.b (a0),d0
  561. beq.w L0005f6
  562. cmp.b #$2f,d0 ;'/'
  563. beq.w L0005f6
  564. addq.l #1,a0
  565. cmp.b #$09,d0
  566. beq.w L0005f6
  567. cmp.b #$20,d0 ;' '
  568. bne.s L0006fe
  569. bra.w L0005f6
  570. L000720:
  571. cmp.b #$70,d0 ;'p'
  572. bne.s L000732
  573. move.b #-$01,(L006eb1)
  574. bra.w L0005f6
  575. L000732:
  576. move.b (L006eb1),d0
  577. and.b d0,(L006eaf)
  578. rts
  579. L000740:
  580. movea.l #$ffffffff,a1
  581. movea.l a1,a2
  582. movea.l a1,a3
  583. movea.l a1,a4
  584. clr.b d1
  585. lea.l (L006ec8),a0
  586. bsr.w L001d0e
  587. adda.l d0,a0
  588. moveq.l #$ff,d0
  589. tst.b (a0)
  590. beq.w L000b26
  591. lea.l (L006ec8),a0
  592. L000768:
  593. bsr.w L000b9e
  594. beq.w L000bca
  595. L000770:
  596. move.b (a0)+,d0
  597. beq.w L000818
  598. tst.b d1
  599. beq.s L00077e
  600. clr.b d1
  601. bra.s L000770
  602. L00077e:
  603. cmp.b #$80,d0
  604. bcs.s L000796
  605. cmp.b #$a0,d0
  606. bcs.s L000790
  607. cmp.b #$e0,d0
  608. bcs.s L000796
  609. L000790:
  610. move.b #$01,d1
  611. bra.s L000770
  612. L000796:
  613. cmp.b #$22,d0 ;'"'
  614. beq.w L000b2a
  615. cmp.b #$27,d0 ;'''
  616. beq.w L000b38
  617. cmp.b #$3c,d0 ;'<'
  618. beq.s L0007ea
  619. cmp.b #$7c,d0 ;'|'
  620. beq.s L0007da
  621. cmp.b #$3e,d0 ;'>'
  622. bne.s L000770
  623. cmpa.l #$ffffffff,a2
  624. bne.w L000bea
  625. movea.l a0,a2
  626. cmpa.l #$ffffffff,a3
  627. bne.s L0007d0
  628. movea.l a0,a3
  629. subq.l #1,a3
  630. L0007d0:
  631. cmpi.b #$3e,(a0) ;'>'
  632. bne.s L000768
  633. addq.l #1,a0
  634. bra.s L000768
  635. L0007da:
  636. movea.l a0,a4
  637. cmpa.l #$ffffffff,a3
  638. bne.s L000808
  639. movea.l a0,a3
  640. subq.l #1,a3
  641. bra.s L000808
  642. L0007ea:
  643. cmpa.l #$ffffffff,a1
  644. bne.w L000be2
  645. movea.l a0,a1
  646. cmpa.l #$ffffffff,a3
  647. bne.w L000768
  648. movea.l a0,a3
  649. subq.l #1,a3
  650. bra.w L000768
  651. L000808:
  652. cmpi.b #$7c,(a0) ;'|'
  653. bne.s L000810
  654. addq.l #1,a0
  655. L000810:
  656. bsr.w L000b9e
  657. beq.w L000bca
  658. L000818:
  659. cmpa.l #$ffffffff,a1
  660. beq.s L000854
  661. tst.b (L006ea9)
  662. bne.w L000be2
  663. movea.l a1,a0
  664. bsr.w L000b46
  665. tst.b (a0)
  666. beq.w L000bca
  667. clr.l (L0064ba)
  668. lea.l (L006eab),a5
  669. tst.b (L006eaa)
  670. bne.s L000850
  671. lea.l (L006eac),a5
  672. L000850:
  673. clr.b (a5)
  674. bra.s L000884
  675. L000854:
  676. tst.b (L006ea9)
  677. beq.w L0008e0
  678. clr.b (L006ea9)
  679. lea.l (L006c32),a0
  680. lea.l (L006eab),a5
  681. tst.b (L006eaa)
  682. bne.s L000884
  683. lea.l (L006d4a),a0
  684. lea.l (L006eac),a5
  685. L000884:
  686. tst.b (a5)
  687. beq.s L00088c
  688. move.b #$02,(a5)
  689. L00088c:
  690. clr.w -(sp)
  691. DOS _DUP
  692. addq.l #2,sp
  693. move.w d0,(L0064c4)
  694. clr.w -(sp)
  695. move.l a0,-(sp)
  696. DOS _OPEN
  697. addq.l #6,sp
  698. move.w d0,(L0064c6)
  699. bmi.w L000bda
  700. clr.w -(sp)
  701. move.w d0,-(sp)
  702. DOS _DUP2
  703. addq.l #4,sp
  704. clr.w -(sp)
  705. clr.w -(sp)
  706. DOS _IOCTRL
  707. addq.l #4,sp
  708. btst.l #$07,d0
  709. beq.s L0008d2
  710. clr.w -(sp)
  711. move.w #$0006,-(sp)
  712. DOS _IOCTRL
  713. addq.l #4,sp
  714. tst.l d0
  715. beq.w L000bba
  716. bra.s L0008e0
  717. L0008d2:
  718. clr.w -(sp)
  719. move.l (L0064ba),-(sp)
  720. clr.w -(sp)
  721. DOS _SEEK
  722. addq.l #8,sp
  723. L0008e0:
  724. cmpa.l #$ffffffff,a2
  725. beq.w L0009f8
  726. cmpi.b #$3e,(a2) ;'>'
  727. bne.w L0009ae
  728. addq.l #1,a2
  729. movea.l a2,a0
  730. bsr.w L000b46
  731. tst.b (a0)
  732. beq.w L000bca
  733. movea.l a0,a2
  734. move.w #$0001,-(sp)
  735. DOS _DUP
  736. addq.l #2,sp
  737. move.w d0,(L0064c8)
  738. move.w #$0002,-(sp)
  739. move.l a0,-(sp)
  740. DOS _OPEN
  741. addq.l #6,sp
  742. move.w d0,(L0064ca)
  743. bmi.w L0009ca
  744. move.w #$0001,-(sp)
  745. move.w d0,-(sp)
  746. DOS _DUP2
  747. addq.l #4,sp
  748. move.w #$0001,-(sp)
  749. clr.w -(sp)
  750. DOS _IOCTRL
  751. addq.l #4,sp
  752. btst.l #$07,d0
  753. beq.s L000954
  754. move.w #$0001,-(sp)
  755. move.w #$0007,-(sp)
  756. DOS _IOCTRL
  757. addq.l #4,sp
  758. tst.l d0
  759. beq.w L000bc2
  760. bra.w L0009f8
  761. L000954:
  762. move.w #$0002,-(sp)
  763. clr.l -(sp)
  764. move.w #$0001,-(sp)
  765. DOS _SEEK
  766. addq.l #8,sp
  767. L000962:
  768. move.l d0,d2
  769. beq.w L0009f8
  770. move.w #$0001,-(sp)
  771. move.l #$ffffffff,-(sp)
  772. move.w #$0001,-(sp)
  773. DOS _SEEK
  774. addq.l #8,sp
  775. move.l #$00000001,-(sp)
  776. pea.l (L006fc8)
  777. move.w #$0001,-(sp)
  778. DOS _READ
  779. lea.l ($000a,sp),sp
  780. cmpi.b #$1a,(L006fc8)
  781. bne.s L0009f8
  782. move.w #$0001,-(sp)
  783. move.l #$ffffffff,-(sp)
  784. move.w #$0001,-(sp)
  785. DOS _SEEK
  786. addq.l #8,sp
  787. bra.s L000962
  788. L0009ae:
  789. movea.l a2,a0
  790. bsr.w L000b46
  791. tst.b (a0)
  792. beq.w L000bca
  793. movea.l a0,a2
  794. move.w #$0001,-(sp)
  795. DOS _DUP
  796. addq.l #2,sp
  797. move.w d0,(L0064c8)
  798. L0009ca:
  799. move.w #$0020,-(sp) ;' '
  800. move.l a0,-(sp)
  801. DOS _CREATE
  802. addq.l #6,sp
  803. tst.w d0
  804. bpl.s L0009e2
  805. move.w #$0001,-(sp)
  806. move.l a0,-(sp)
  807. DOS _OPEN
  808. addq.l #6,sp
  809. L0009e2:
  810. move.w d0,(L0064ca)
  811. bmi.w L000bf2
  812. move.w #$0001,-(sp)
  813. move.w d0,-(sp)
  814. DOS _DUP2
  815. addq.l #4,sp
  816. clr.l d2
  817. L0009f8:
  818. cmpa.l #$ffffffff,a4
  819. beq.w L000b0a
  820. cmpi.b #$7c,(a4)+ ;'|'
  821. beq.w L000aca
  822. subq.l #1,a4
  823. move.b #-$01,(L006ea9)
  824. cmpa.l #$ffffffff,a2
  825. bne.s L000a80
  826. lea.l (L006c32),a0
  827. lea.l (L006eab),a5
  828. tst.b (L006eaa)
  829. beq.s L000a3c
  830. lea.l (L006d4a),a0
  831. lea.l (L006eac),a5
  832. L000a3c:
  833. clr.b (a5)
  834. bsr.w L000c48
  835. tst.l d0
  836. beq.w L000bf2
  837. clr.l (L0064ba)
  838. move.w #$0001,-(sp)
  839. DOS _DUP
  840. addq.l #2,sp
  841. move.w d0,(L0064c8)
  842. move.w #$0020,-(sp) ;' '
  843. move.l a0,-(sp)
  844. DOS _CREATE
  845. addq.l #6,sp
  846. move.w d0,(L0064ca)
  847. bmi.w L000bf2
  848. move.b #$01,(a5)
  849. move.w #$0001,-(sp)
  850. move.w d0,-(sp)
  851. DOS _DUP2
  852. addq.l #4,sp
  853. bra.s L000ac2
  854. L000a80:
  855. lea.l (L006c32),a0
  856. lea.l (L006eab),a5
  857. tst.b (L006eaa)
  858. beq.s L000aa0
  859. lea.l (L006d4a),a0
  860. lea.l (L006eac),a5
  861. L000aa0:
  862. clr.b (a5)
  863. move.l d2,(L0064ba)
  864. move.l a0,-(sp)
  865. movea.l a2,a0
  866. bsr.w L001c86
  867. movea.l (sp)+,a0
  868. cmp.l #$00000057,d0
  869. bhi.w L000bd2
  870. movea.l a2,a1
  871. bsr.w L001c94
  872. L000ac2:
  873. eori.b #-$01,(L006eaa)
  874. L000aca:
  875. movea.l a4,a0
  876. bsr.w L000b9e
  877. beq.w L000bca
  878. movea.l a0,a1
  879. bsr.w L001c86
  880. tst.b (L006ea3)
  881. beq.s L000af2
  882. lea.l (L0066d0),a0
  883. move.b #-$01,(L006ea8)
  884. bra.s L000b00
  885. L000af2:
  886. lea.l (L0065ce),a0
  887. move.b #-$01,(L006ea7)
  888. L000b00:
  889. move.b #$ff,(a0)+
  890. move.b d0,(a0)+
  891. bsr.w L001c94
  892. L000b0a:
  893. cmpa.l #$ffffffff,a3
  894. beq.s L000b14
  895. clr.b (a3)
  896. L000b14:
  897. lea.l (L006ec8),a0
  898. bsr.w L001c86
  899. move.b d0,-(a0)
  900. beq.w L000bca
  901. clr.l d0
  902. L000b26:
  903. tst.l d0
  904. rts
  905. L000b2a:
  906. move.b (a0)+,d0
  907. beq.s L000b26
  908. cmp.b #$22,d0 ;'"'
  909. bne.s L000b2a
  910. bra.w L000770
  911. L000b38:
  912. move.b (a0)+,d0
  913. beq.s L000b26
  914. cmp.b #$27,d0 ;'''
  915. bne.s L000b38
  916. bra.w L000770
  917. L000b46:
  918. bsr.w L001d0e
  919. adda.l d0,a0
  920. tst.b (a0)
  921. beq.s L000b9c
  922. move.l a0,-(sp)
  923. clr.b d1
  924. L000b54:
  925. bsr.w L001d0e
  926. tst.l d0
  927. bne.s L000b98
  928. L000b5c:
  929. move.b (a0),d0
  930. beq.s L000b98
  931. tst.b d1
  932. beq.s L000b68
  933. clr.b d1
  934. bra.s L000b7e
  935. L000b68:
  936. cmp.b #$80,d0
  937. bcs.s L000b82
  938. cmp.b #$a0,d0
  939. bcs.s L000b7a
  940. cmp.b #$e0,d0
  941. bcs.s L000b82
  942. L000b7a:
  943. move.b #$01,d1
  944. L000b7e:
  945. addq.l #1,a0
  946. bra.s L000b5c
  947. L000b82:
  948. cmp.b #$3c,d0 ;'<'
  949. beq.s L000b98
  950. cmp.b #$7c,d0 ;'|'
  951. beq.s L000b98
  952. cmp.b #$3e,d0 ;'>'
  953. beq.s L000b98
  954. addq.l #1,a0
  955. bra.s L000b54
  956. L000b98:
  957. clr.b (a0)
  958. movea.l (sp)+,a0
  959. L000b9c:
  960. rts
  961. L000b9e:
  962. bsr.w L001d0e
  963. adda.l d0,a0
  964. move.b (a0),d0
  965. beq.s L000bb8
  966. cmp.b #$3c,d0 ;'<'
  967. beq.s L000bb8
  968. cmp.b #$7c,d0 ;'|'
  969. beq.s L000bb8
  970. cmp.b #$3e,d0 ;'>'
  971. L000bb8:
  972. rts
  973. L000bba:
  974. lea.l (L006020),a0
  975. bra.s L000bf8
  976. L000bc2:
  977. lea.l (L006045),a0
  978. bra.s L000bf8
  979. L000bca:
  980. lea.l (L00606a),a0
  981. bra.s L000bf8
  982. L000bd2:
  983. lea.l (L005d37),a0
  984. bra.s L000bf8
  985. L000bda:
  986. lea.l (L005ff6),a0
  987. bra.s L000bf8
  988. L000be2:
  989. lea.l (L005fc8),a0
  990. bra.s L000bf8
  991. L000bea:
  992. lea.l (L005fdf),a0
  993. bra.s L000bf8
  994. L000bf2:
  995. lea.l (L00600d),a0
  996. L000bf8:
  997. bsr.w L002044
  998. tst.b (L006ea3)
  999. beq.s L000c0c
  1000. clr.b (L006ea8)
  1001. beq.s L000c12
  1002. L000c0c:
  1003. clr.b (L006ea7)
  1004. L000c12:
  1005. clr.b (L006ea9)
  1006. tst.b (L006eab)
  1007. beq.s L000c28
  1008. move.b #$02,(L006eab)
  1009. L000c28:
  1010. tst.b (L006eac)
  1011. beq.s L000c38
  1012. move.b #$02,(L006eac)
  1013. L000c38:
  1014. move.l #$00000700,d0
  1015. move.l d0,(L0064b6)
  1016. bra.w L000b26
  1017. L000c48:
  1018. movem.l a0,-(sp)
  1019. lea.l (L005b78),a0
  1020. DOS _GETPDB
  1021. movea.l d0,a1
  1022. movea.l (a1),a1
  1023. bsr.w L001ef2
  1024. beq.s L000c84
  1025. tst.b (a0)
  1026. beq.s L000c84
  1027. movea.l a0,a1
  1028. movem.l (sp),a0
  1029. bsr.w L001c94
  1030. bsr.w L0028f6
  1031. move.b (a0),d0
  1032. movem.l (sp),a0
  1033. beq.s L000c9a
  1034. lea.l (L005b5b),a1
  1035. bsr.w L001cb8
  1036. bra.s L000c9a
  1037. L000c84:
  1038. movem.l (sp),a0
  1039. lea.l (L005b59),a1
  1040. bsr.w L001c94
  1041. DOS _CURDRV
  1042. add.w #$0061,d0
  1043. move.b d0,(a0)
  1044. L000c9a:
  1045. lea.l (L005b5d),a1
  1046. bsr.w L001cb8
  1047. bsr.w L001df0
  1048. bsr.w L0028f6
  1049. L000cac:
  1050. movem.l (sp),a1
  1051. move.w #$00ff,-(sp)
  1052. move.l a1,-(sp)
  1053. pea.l (L007412)
  1054. DOS _FILES
  1055. lea.l ($000a,sp),sp
  1056. tst.l d0
  1057. bmi.s L000ce6
  1058. lea.l ($0007,a0),a1
  1059. move.w #$0002,d1
  1060. L000cce:
  1061. tst.w d1
  1062. beq.s L000ce4
  1063. addq.b #1,(a1)
  1064. cmpi.b #$39,(a1) ;'9'
  1065. bls.s L000cac
  1066. move.b #$30,(a1) ;'0'
  1067. subq.l #1,a1
  1068. dbra.w d1,L000cce
  1069. L000ce4:
  1070. clr.l d0
  1071. L000ce6:
  1072. movem.l (sp)+,a0
  1073. rts
  1074. L000cec:
  1075. tst.b (L006ea3)
  1076. beq.s L000d24
  1077. tst.b (L006ea8)
  1078. bne.s L000d68
  1079. cmpi.b #$01,(L006ea5)
  1080. beq.s L000d34
  1081. tst.b (L006e9e)
  1082. beq.w L001076
  1083. bsr.w L000430
  1084. move.b #-$01,(L006ead)
  1085. clr.b (L006ea3)
  1086. rts
  1087. L000d24:
  1088. tst.b (L006ea7)
  1089. bne.s L000d48
  1090. tst.b (L006ea5)
  1091. beq.s L000d88
  1092. L000d34:
  1093. movea.l (L0064be),a0
  1094. tst.b (a0)
  1095. bne.w L0011d4
  1096. clr.b (L006ea5)
  1097. rts
  1098. L000d48:
  1099. clr.b (L006ea7)
  1100. lea.l (L0065ce),a1
  1101. lea.l (L006ec6),a0
  1102. move.b (a1)+,(a0)+
  1103. move.b (a1)+,d0
  1104. move.b d0,(a0)+
  1105. bsr.w L001c94
  1106. tst.b d0
  1107. rts
  1108. L000d68:
  1109. clr.b (L006ea8)
  1110. lea.l (L0066d0),a1
  1111. lea.l (L006ec6),a0
  1112. move.b (a1)+,(a0)+
  1113. move.b (a1)+,d0
  1114. move.b d0,(a0)+
  1115. bsr.w L001c94
  1116. tst.b d0
  1117. rts
  1118. L000d88:
  1119. tst.b (L006eae)
  1120. beq.s L000d9c
  1121. tst.b (L006eb1)
  1122. bne.s L000d9c
  1123. bsr.w L00486c
  1124. L000d9c:
  1125. movea.l (L0064ae),a0
  1126. move.l a0,(L0064b2)
  1127. clr.l (L0064b6)
  1128. lea.l (L006ec6),a0
  1129. lea.l (L0064cc),a1
  1130. move.b (a1)+,(a0)+
  1131. move.b (a1)+,(a0)+
  1132. bsr.w L001c94
  1133. L000dc2:
  1134. bsr.w L0005a4
  1135. L000dc6:
  1136. pea.l (L006ec6)
  1137. DOS _GETS
  1138. addq.l #4,sp
  1139. tst.b (L006ec7)
  1140. beq.w L000faa
  1141. lea.l (L006ec8),a0
  1142. bsr.w L001d0e
  1143. tst.b (a0,d0.l)
  1144. beq.w L000faa
  1145. cmpi.b #$2b,(a0)+ ;'+'
  1146. beq.w L000e7a
  1147. cmpi.b #$2d,(-$0001,a0) ;'-'
  1148. bne.w L000fb2
  1149. moveq.l #$01,d0
  1150. tst.b (a0)
  1151. beq.s L000e1c
  1152. bsr.w L001bea
  1153. tst.b d1
  1154. bmi.w L000ea6
  1155. cmp.b #$0a,d1
  1156. bhi.s L000e30
  1157. cmp.l #$00010000,d0
  1158. bcc.s L000e30
  1159. L000e1c:
  1160. movea.l (L0064b2),a0
  1161. movea.l (L0064a6),a1
  1162. addq.l #4,a1
  1163. bsr.w L0020b2
  1164. bne.s L000e52
  1165. L000e30:
  1166. movea.l (L0064b2),a0
  1167. bsr.w L001c86
  1168. movea.l a0,a1
  1169. lea.l (L006ec7),a0
  1170. bsr.w L001036
  1171. move.b d0,(a0)+
  1172. bsr.w L001c94
  1173. bra.w L000dc6
  1174. L000e50:
  1175. movea.l a3,a0
  1176. L000e52:
  1177. move.l a0,(L0064b2)
  1178. bsr.w L001c86
  1179. movea.l a0,a1
  1180. lea.l (L006ec7),a0
  1181. bsr.w L001036
  1182. move.b d0,(a0)+
  1183. bsr.w L001c94
  1184. bsr.w L001ff4
  1185. bsr.w L001b4c
  1186. bra.w L000dc2
  1187. L000e7a:
  1188. moveq.l #$01,d0
  1189. tst.b (a0)
  1190. beq.s L000e98
  1191. bsr.w L001bea
  1192. tst.b d1
  1193. bmi.w L000f2c
  1194. cmp.b #$0a,d1
  1195. bhi.s L000e30
  1196. cmp.l #$00010000,d0
  1197. bcc.s L000e30
  1198. L000e98:
  1199. movea.l (L0064b2),a0
  1200. bsr.w L00209e
  1201. bne.s L000e52
  1202. bra.s L000e30
  1203. L000ea6:
  1204. clr.b d3
  1205. cmpi.b #$2f,(a0)+ ;'/'
  1206. beq.s L000ebc
  1207. cmpi.b #$3f,(-$0001,a0) ;'?'
  1208. bne.w L000e30
  1209. move.b #-$01,d3
  1210. L000ebc:
  1211. bsr.w L001d4c
  1212. bsr.w L001c86
  1213. movea.l a0,a2
  1214. move.l d0,d1
  1215. movea.l (L0064b2),a3
  1216. L000ece:
  1217. movea.l a3,a0
  1218. move.w #$0001,d0
  1219. movea.l (L0064a6),a1
  1220. addq.l #4,a1
  1221. bsr.w L0020b2
  1222. beq.w L000e30
  1223. movea.l a0,a3
  1224. movea.l a0,a1
  1225. lea.l (L006fc8),a0
  1226. bsr.w L001c94
  1227. bsr.w L001d4c
  1228. movea.l a2,a1
  1229. tst.b d3
  1230. bne.s L000f08
  1231. move.l d1,d0
  1232. bsr.w L001cee
  1233. beq.w L000e50
  1234. bra.s L000ece
  1235. L000f08:
  1236. move.l d1,d0
  1237. bsr.w L001cee
  1238. beq.w L000e50
  1239. move.b (a0)+,d0
  1240. beq.s L000ece
  1241. cmp.b #$80,d0
  1242. bcs.s L000f08
  1243. cmp.b #$a0,d0
  1244. bcs.s L000f28
  1245. cmp.b #$e0,d0
  1246. bcs.s L000f08
  1247. L000f28:
  1248. addq.l #1,a0
  1249. bra.s L000f08
  1250. L000f2c:
  1251. clr.b d3
  1252. cmpi.b #$2f,(a0)+ ;'/'
  1253. beq.s L000f42
  1254. cmpi.b #$3f,(-$0001,a0) ;'?'
  1255. bne.w L000e30
  1256. move.b #-$01,d3
  1257. L000f42:
  1258. bsr.w L001d4c
  1259. bsr.w L001c86
  1260. movea.l a0,a2
  1261. move.l d0,d1
  1262. movea.l (L0064b2),a3
  1263. L000f54:
  1264. movea.l a3,a0
  1265. move.w #$0001,d0
  1266. bsr.w L00209e
  1267. beq.w L000e30
  1268. movea.l a0,a3
  1269. movea.l a0,a1
  1270. lea.l (L006fc8),a0
  1271. bsr.w L001c94
  1272. bsr.w L001d4c
  1273. movea.l a2,a1
  1274. tst.b d3
  1275. bne.s L000f86
  1276. move.l d1,d0
  1277. bsr.w L001cee
  1278. beq.w L000e50
  1279. bra.s L000f54
  1280. L000f86:
  1281. move.l d1,d0
  1282. bsr.w L001cee
  1283. beq.w L000e50
  1284. move.b (a0)+,d0
  1285. beq.s L000f54
  1286. cmp.b #$80,d0
  1287. bcs.s L000f86
  1288. cmp.b #$a0,d0
  1289. bcs.s L000fa6
  1290. cmp.b #$e0,d0
  1291. bcs.s L000f86
  1292. L000fa6:
  1293. addq.l #1,a0
  1294. bra.s L000f86
  1295. L000faa:
  1296. bsr.w L001b4c
  1297. clr.w d0
  1298. rts
  1299. L000fb2:
  1300. bsr.w L001b4c
  1301. lea.l (L006ec8),a0
  1302. bsr.w L001c86
  1303. move.l d0,d3
  1304. movea.l (L0064a6),a0
  1305. move.l (a0),d1
  1306. add.l a0,d1
  1307. move.l (L0064aa),d2
  1308. add.l d2,d0
  1309. addq.l #2,d0
  1310. cmp.l d0,d1
  1311. bcc.s L000ffa
  1312. sub.l d1,d0
  1313. addq.l #3,d0
  1314. adda.l d0,a0
  1315. L000fe0:
  1316. tst.b (a0)+
  1317. bne.s L000fe0
  1318. movea.l a0,a1
  1319. movea.l (L0064a6),a0
  1320. addq.l #4,a0
  1321. bsr.w L00207e
  1322. subq.l #1,a0
  1323. move.l a0,(L0064aa)
  1324. L000ffa:
  1325. movea.l (L0064aa),a0
  1326. move.l a0,(L0064ae)
  1327. lea.l (L006ec8),a1
  1328. bsr.w L001c94
  1329. adda.l d3,a0
  1330. addq.l #1,a0
  1331. move.l a0,(L0064aa)
  1332. clr.b (a0)
  1333. lea.l (L0064cc),a0
  1334. lea.l (L006ec6),a1
  1335. move.b (a1)+,(a0)+
  1336. move.b (a1)+,(a0)+
  1337. bsr.w L001c94
  1338. move.w #$ffff,d0
  1339. rts
  1340. L001036:
  1341. movem.l d0/d4/a0-a1,-(sp)
  1342. clr.l d4
  1343. addq.l #1,a0
  1344. L00103e:
  1345. move.b (a0)+,d0
  1346. beq.s L00104e
  1347. addq.l #1,d4
  1348. cmp.b #$20,d0 ;' '
  1349. bcc.s L00103e
  1350. addq.l #1,d4
  1351. bra.s L00103e
  1352. L00104e:
  1353. move.w d4,-(sp)
  1354. bsr.w L0005a4
  1355. move.w (sp),d4
  1356. L001056:
  1357. move.w #$0020,-(sp) ;' '
  1358. DOS _INPOUT
  1359. addq.l #2,sp
  1360. dbra.w d4,L001056
  1361. move.w (sp)+,d4
  1362. L001064:
  1363. move.w #$0008,-(sp)
  1364. DOS _INPOUT
  1365. addq.l #2,sp
  1366. dbra.w d4,L001064
  1367. movem.l (sp)+,d0/d4/a0-a1
  1368. rts
  1369. L001076:
  1370. bsr.w L0005a4
  1371. DOS _KEYSNS
  1372. clr.b d1
  1373. movea.l (L00649e),a0
  1374. lea.l (L006ec8),a1
  1375. L00108a:
  1376. move.b (a0),d0
  1377. beq.s L0010b4
  1378. cmp.b #$1a,d0
  1379. beq.s L0010b4
  1380. cmp.b #$0d,d0
  1381. beq.s L0010ae
  1382. addq.l #1,a0
  1383. cmp.b #$25,d0 ;'%'
  1384. beq.s L001116
  1385. L0010a2:
  1386. cmp.b #$ff,d1
  1387. beq.s L0010d4
  1388. move.b d0,(a1)+
  1389. addq.b #1,d1
  1390. bra.s L00108a
  1391. L0010ae:
  1392. bsr.w L00208a
  1393. bra.s L0010bc
  1394. L0010b4:
  1395. move.b #-$01,(L006e9e)
  1396. L0010bc:
  1397. clr.b (a1)
  1398. move.b d1,(L006ec7)
  1399. move.l a0,(L00649e)
  1400. bsr.w L001162
  1401. move.w #$ffff,d0
  1402. rts
  1403. L0010d4:
  1404. clr.b (a1)
  1405. bsr.w L00116a
  1406. lea.l (L005d22),a0
  1407. bsr.w L002044
  1408. bsr.w L000430
  1409. move.l #$00000400,(L0064b6)
  1410. clr.b (L006ec7)
  1411. clr.b (L006ec8)
  1412. move.b #-$01,(L006ead)
  1413. clr.b (L006ea8)
  1414. clr.b (L006ea3)
  1415. clr.w d0
  1416. rts
  1417. L001116:
  1418. move.b (a0),d2
  1419. cmp.b #$25,d2 ;'%'
  1420. beq.s L00115c
  1421. cmp.b #$30,d2 ;'0'
  1422. bcs.s L00117a
  1423. cmp.b #$39,d2 ;'9'
  1424. bhi.s L00117a
  1425. addq.l #1,a0
  1426. sub.b #$30,d2 ;'0'
  1427. ext.w d2
  1428. movea.l a0,a2
  1429. lea.l (L0067d2),a0
  1430. exg.l d0,d2
  1431. bsr.w L00209e
  1432. exg.l d0,d2
  1433. beq.s L001156
  1434. L001144:
  1435. move.b (a0),d0
  1436. beq.s L001156
  1437. cmp.b #$ff,d1
  1438. beq.s L0010d4
  1439. move.b d0,(a1)+
  1440. addq.l #1,a0
  1441. addq.b #1,d1
  1442. bra.s L001144
  1443. L001156:
  1444. movea.l a2,a0
  1445. bra.w L00108a
  1446. L00115c:
  1447. addq.l #1,a0
  1448. bra.w L0010a2
  1449. L001162:
  1450. tst.b (L006ead)
  1451. beq.s L001178
  1452. L00116a:
  1453. lea.l (L006ec8),a0
  1454. bsr.w L001ff4
  1455. bsr.w L001b4c
  1456. L001178:
  1457. rts
  1458. L00117a:
  1459. movea.l a0,a3
  1460. movea.l a1,a4
  1461. clr.b d0
  1462. lea.l (L006fc8),a1
  1463. L001186:
  1464. move.b (a0)+,d2
  1465. beq.s L0011c8
  1466. cmp.b #$1a,d2
  1467. beq.s L0011c8
  1468. cmp.b #$0d,d2
  1469. beq.s L0011c8
  1470. cmp.b #$25,d2 ;'%'
  1471. beq.s L0011a8
  1472. cmp.b #$ff,d0
  1473. beq.s L0011c8
  1474. move.b d2,(a1)+
  1475. addq.b #1,d0
  1476. bra.s L001186
  1477. L0011a8:
  1478. movea.l a0,a2
  1479. move.b #$3d,(a1)+ ;'='
  1480. clr.b (a1)
  1481. lea.l (L006fc8),a0
  1482. DOS _GETPDB
  1483. movea.l d0,a1
  1484. movea.l (a1),a1
  1485. bsr.w L001ef2
  1486. beq.s L0011c8
  1487. movea.l a4,a1
  1488. bra.w L001144
  1489. L0011c8:
  1490. movea.l a3,a0
  1491. movea.l a4,a1
  1492. move.b (-$0001,a0),d0
  1493. bra.w L0010a2
  1494. L0011d4:
  1495. bsr.w L0005a4
  1496. DOS _KEYSNS
  1497. L0011da:
  1498. clr.b d1
  1499. clr.b d5
  1500. lea.l (L006b1a),a0
  1501. lea.l (L006ec8),a1
  1502. L0011ea:
  1503. move.b (a0),d0
  1504. beq.s L001206
  1505. addq.l #1,a0
  1506. cmp.b #$25,d0 ;'%'
  1507. beq.w L0012da
  1508. L0011f8:
  1509. cmp.b #$ff,d1
  1510. beq.w L0012aa
  1511. move.b d0,(a1)+
  1512. addq.b #1,d1
  1513. bra.s L0011ea
  1514. L001206:
  1515. clr.b (a1)
  1516. move.b d1,(L006ec7)
  1517. tst.b (L006ea6)
  1518. bne.s L001260
  1519. tst.b d5
  1520. bne.s L001282
  1521. movea.l (L0064be),a0
  1522. bsr.w L002bc8
  1523. tst.b d0
  1524. beq.s L001288
  1525. move.w #$0025,-(sp) ;'%'
  1526. move.l a0,-(sp)
  1527. pea.l (L006e62)
  1528. DOS _FILES
  1529. lea.l ($000a,sp),sp
  1530. L00123a:
  1531. tst.l d0
  1532. bmi.w L00135a
  1533. move.b (L006e77),d0
  1534. and.b #$1a,d0
  1535. beq.s L001258
  1536. pea.l (L006e62)
  1537. DOS _NFILES
  1538. addq.l #4,sp
  1539. bra.s L00123a
  1540. L001258:
  1541. move.b #-$01,(L006ea6)
  1542. L001260:
  1543. pea.l (L006e62)
  1544. DOS _NFILES
  1545. addq.l #4,sp
  1546. tst.l d0
  1547. bmi.s L00127c
  1548. move.b (L006e77),d0
  1549. and.b #$1a,d0
  1550. beq.s L0012a0
  1551. bra.s L001260
  1552. L00127c:
  1553. clr.b (L006ea6)
  1554. L001282:
  1555. movea.l (L0064be),a0
  1556. L001288:
  1557. move.w #$0001,d0
  1558. bsr.w L00209e
  1559. move.l a0,(L0064be)
  1560. tst.b (a0)
  1561. bne.s L0012a0
  1562. clr.b (L006ea5)
  1563. L0012a0:
  1564. bsr.w L001162
  1565. move.w #$ffff,d0
  1566. rts
  1567. L0012aa:
  1568. clr.b (a1)
  1569. bsr.w L00116a
  1570. lea.l (L005d22),a0
  1571. bsr.w L002044
  1572. move.l #$00000400,(L0064b6)
  1573. clr.b (L006ec7)
  1574. clr.b (L006ec8)
  1575. clr.b (L006ea5)
  1576. clr.w d0
  1577. rts
  1578. L0012da:
  1579. move.b #-$01,d5
  1580. move.l d0,d2
  1581. movea.l a0,a2
  1582. movea.l a1,a3
  1583. lea.l (L0068ea),a0
  1584. bsr.w L001c86
  1585. move.l d0,d4
  1586. movea.l a2,a1
  1587. bsr.w L001cee
  1588. move.l d0,d3
  1589. movea.l a3,a1
  1590. movea.l a2,a0
  1591. move.l d2,d0
  1592. tst.l d3
  1593. bne.w L0011f8
  1594. adda.l d4,a2
  1595. movea.l (L0064be),a0
  1596. bsr.w L002bc8
  1597. tst.b d0
  1598. beq.s L00138e
  1599. tst.b (L006ea6)
  1600. bne.s L001352
  1601. move.w #$0025,-(sp) ;'%'
  1602. move.l a0,-(sp)
  1603. pea.l (L006e62)
  1604. DOS _FILES
  1605. lea.l ($000a,sp),sp
  1606. L00132e:
  1607. tst.l d0
  1608. bmi.s L00135a
  1609. move.b (L006e77),d0
  1610. and.b #$1a,d0
  1611. beq.s L00134a
  1612. pea.l (L006e62)
  1613. DOS _NFILES
  1614. addq.l #4,sp
  1615. bra.s L00132e
  1616. L00134a:
  1617. move.b #-$01,(L006ea6)
  1618. L001352:
  1619. lea.l (L006e80),a0
  1620. bra.s L00138e
  1621. L00135a:
  1622. movea.l (L0064be),a0
  1623. move.w #$0001,d0
  1624. bsr.w L00209e
  1625. move.l a0,(L0064be)
  1626. tst.b (a0)
  1627. bne.w L0011da
  1628. clr.b (L006ec7)
  1629. clr.b (L006ec8)
  1630. bsr.w L001162
  1631. clr.b (L006ea5)
  1632. clr.w d0
  1633. rts
  1634. L00138e:
  1635. move.b (a0),d0
  1636. beq.s L0013a2
  1637. cmp.b #$ff,d1
  1638. beq.w L0012aa
  1639. move.b d0,(a1)+
  1640. addq.l #1,a0
  1641. addq.b #1,d1
  1642. bra.s L00138e
  1643. L0013a2:
  1644. movea.l a2,a0
  1645. bra.w L0011ea
  1646. L0013a8:
  1647. lea.l (L006ec8),a0
  1648. lea.l (L0070ca),a1
  1649. lea.l (L0071e2),a2
  1650. bsr.w L001aa6
  1651. movea.l a1,a0
  1652. bsr.w L001d4c
  1653. lea.l (L005a4a),a1
  1654. bsr.w L001ccc
  1655. beq.s L0013e4
  1656. lea.l (L005a56),a1
  1657. bsr.w L001ccc
  1658. beq.s L0013e4
  1659. bsr.w L000740
  1660. bne.w L0014fa
  1661. L0013e4:
  1662. lea.l (L006ec8),a0
  1663. bsr.w L001d0e
  1664. adda.l d0,a0
  1665. move.b (a0),d1
  1666. beq.w L0014fa
  1667. cmp.b #$3a,d1 ;':'
  1668. beq.w L0014fa
  1669. bsr.w L001c86
  1670. cmp.l #$00000002,d0
  1671. bne.s L001416
  1672. move.b d1,d0
  1673. cmpi.b #$3a,($0001,a0) ;':'
  1674. beq.w L0015f4
  1675. L001416:
  1676. movea.l a0,a1
  1677. lea.l (L007466),a0
  1678. clr.b d1
  1679. clr.b d2
  1680. L001422:
  1681. move.b (a1)+,d0
  1682. beq.s L00147e
  1683. tst.b d2
  1684. beq.s L00142e
  1685. clr.b d2
  1686. bra.s L001470
  1687. L00142e:
  1688. cmp.b #$80,d0
  1689. bcs.s L001446
  1690. cmp.b #$a0,d0
  1691. bcs.s L001440
  1692. cmp.b #$e0,d0
  1693. bcs.s L001446
  1694. L001440:
  1695. move.b #$01,d2
  1696. bra.s L001470
  1697. L001446:
  1698. cmp.b #$5c,d0 ;'\'
  1699. beq.s L00147e
  1700. cmp.b #$20,d0 ;' '
  1701. beq.s L00147e
  1702. cmp.b #$09,d0
  1703. beq.s L00147e
  1704. cmp.b #$2f,d0 ;'/'
  1705. beq.s L00147e
  1706. cmp.b #$22,d0 ;'"'
  1707. beq.s L00147e
  1708. cmp.b #$27,d0 ;'''
  1709. beq.s L00147e
  1710. cmp.b #$3d,d0 ;'='
  1711. beq.s L00147e
  1712. L001470:
  1713. move.b d0,(a0)+
  1714. addq.b #1,d1
  1715. cmp.b #$17,d1
  1716. bhi.w L00179a
  1717. bra.s L001422
  1718. L00147e:
  1719. clr.b (a0)
  1720. subq.l #1,a1
  1721. tst.b d1
  1722. beq.s L0014fe
  1723. movea.l a1,a0
  1724. L001488:
  1725. bsr.w L001d0e
  1726. adda.l d0,a0
  1727. cmpi.b #$3d,(a0)+ ;'='
  1728. beq.s L001488
  1729. subq.l #1,a0
  1730. movea.l a0,a1
  1731. bsr.w L001c86
  1732. lea.l (L006fc8),a0
  1733. move.b d0,(a0)+
  1734. bsr.w L001c94
  1735. lea.l (L00744e),a0
  1736. lea.l (L007466),a1
  1737. bsr.w L001c94
  1738. bsr.w L001d4c
  1739. bsr.w L00156a
  1740. tst.b (a0)
  1741. beq.s L001504
  1742. move.l a0,-(sp)
  1743. lea.l (L006fc9),a0
  1744. lea.l (L0070ca),a1
  1745. lea.l (L0071e2),a2
  1746. bsr.w L001aa6
  1747. move.w d0,(L006ec4)
  1748. move.w d1,(L006ec2)
  1749. movea.l (sp)+,a0
  1750. movea.l ($0008,a0),a0
  1751. jsr (a0)
  1752. tst.l d0
  1753. beq.s L0014fa
  1754. move.l d0,(L0064b6)
  1755. L0014fa:
  1756. clr.l d0
  1757. rts
  1758. L0014fe:
  1759. move.w #$ffff,d0
  1760. rts
  1761. L001504:
  1762. bsr.w L002d7a
  1763. beq.s L0014fe
  1764. bsr.s L00158a
  1765. tst.l (a0)
  1766. beq.s L0014fe
  1767. move.l a0,-(sp)
  1768. lea.l (L006fc9),a0
  1769. lea.l (L0070ca),a1
  1770. lea.l (L0071e2),a2
  1771. bsr.w L001aa6
  1772. move.w d1,d2
  1773. move.w d0,d1
  1774. bsr.w L0004a2
  1775. bsr.w L001c86
  1776. lea.l (L0015d4),a3
  1777. movea.l (sp)+,a4
  1778. jsr (a4)
  1779. move.l d0,-(sp)
  1780. bsr.w L0004ee
  1781. move.l (sp)+,d0
  1782. beq.s L0014fa
  1783. bmi.s L00155a
  1784. move.l d0,(L0064b6)
  1785. move.l a0,d0
  1786. beq.s L0014fa
  1787. bsr.w L002044
  1788. bra.s L0014fa
  1789. L00155a:
  1790. bsr.w L002ccc
  1791. move.l d0,(L0064b6)
  1792. bsr.w L00047a
  1793. bra.s L0014fa
  1794. L00156a:
  1795. lea.l (L00744e),a1
  1796. lea.l (L0058b2),a0
  1797. L001576:
  1798. tst.b (a0)
  1799. beq.s L001588
  1800. bsr.w L001ccc
  1801. beq.s L001588
  1802. adda.l #$0000000c,a0
  1803. bra.s L001576
  1804. L001588:
  1805. rts
  1806. L00158a:
  1807. lea.l (L00744e),a1
  1808. lea.l (L000000-$000004),a0
  1809. L001596:
  1810. movea.l (a0),a0
  1811. tst.l (a0)
  1812. beq.s L0015d2
  1813. move.l a0,-(sp)
  1814. clr.l d0
  1815. movea.l ($002a,a0),a0
  1816. clr.l d0
  1817. L0015a6:
  1818. tst.l (a0)
  1819. beq.s L0015c0
  1820. move.l d0,-(sp)
  1821. move.l a0,-(sp)
  1822. movea.l (a0),a0
  1823. bsr.w L001ccc
  1824. beq.s L0015c4
  1825. movea.l (sp)+,a0
  1826. move.l (sp)+,d0
  1827. addq.l #4,a0
  1828. addq.l #4,d0
  1829. bra.s L0015a6
  1830. L0015c0:
  1831. movea.l (sp)+,a0
  1832. bra.s L001596
  1833. L0015c4:
  1834. addq.l #4,sp
  1835. move.l (sp)+,d0
  1836. movea.l (sp)+,a0
  1837. movea.l ($002e,a0),a0
  1838. movea.l (a0,d0.l),a0
  1839. L0015d2:
  1840. rts
  1841. L0015d4:
  1842. cmp.l #$00000034,d7
  1843. bhi.s L0015f0
  1844. asl.w #2,d7
  1845. lea.l (Table1),a3
  1846. L0015e4:
  1847. move.l (a3,d7.l),-(sp)
  1848. L0015e8:
  1849. lea.l (L0015d4),a3
  1850. rts
  1851. L0015f0:
  1852. moveq.l #$ff,d0
  1853. rts
  1854. L0015f4:
  1855. bsr.w L001d3a
  1856. sub.b #$41,d0 ;'A'
  1857. clr.w d1
  1858. move.b d0,d1
  1859. bsr.w L002754
  1860. tst.l d0
  1861. bmi.s L001610
  1862. move.w d1,-(sp)
  1863. DOS _CHGDRV
  1864. addq.l #2,sp
  1865. bra.s L001624
  1866. L001610:
  1867. lea.l (L005d9d),a0
  1868. bsr.w L002044
  1869. move.l #$00000500,(L0064b6)
  1870. L001624:
  1871. clr.w d0
  1872. rts
  1873. L001628:
  1874. lea.l (L006ec8),a0
  1875. bsr.w L001d0e
  1876. adda.l d0,a0
  1877. lea.l (L006fc8),a1
  1878. clr.w d1
  1879. L00163c:
  1880. move.b (a0),d0
  1881. beq.s L001678
  1882. cmp.b #$3f,d0 ;'?'
  1883. beq.w L001782
  1884. cmp.b #$2a,d0 ;'*'
  1885. beq.w L001782
  1886. cmp.b #$2f,d0 ;'/'
  1887. beq.s L001678
  1888. cmp.b #$2d,d0 ;'-'
  1889. beq.s L001678
  1890. cmp.b #$22,d0 ;'"'
  1891. beq.s L001678
  1892. cmp.b #$27,d0 ;'''
  1893. beq.s L001678
  1894. bsr.w L001d0e
  1895. tst.l d0
  1896. bne.s L001676
  1897. move.b (a0)+,(a1)+
  1898. addq.w #1,d1
  1899. bra.s L00163c
  1900. L001676:
  1901. adda.l d0,a0
  1902. L001678:
  1903. tst.w d1
  1904. beq.w L0017b6
  1905. clr.b (a1)
  1906. lea.l (L006fc8),a2
  1907. move.l a2,-(sp)
  1908. clr.b d2
  1909. clr.b d3
  1910. L00168c:
  1911. cmp.b d1,d2
  1912. beq.s L0016c4
  1913. move.b (a2)+,d0
  1914. tst.b d3
  1915. beq.s L00169a
  1916. clr.b d3
  1917. bra.s L0016c0
  1918. L00169a:
  1919. cmp.b #$80,d0
  1920. bcs.s L0016b2
  1921. cmp.b #$a0,d0
  1922. bcs.s L0016ac
  1923. cmp.b #$e0,d0
  1924. bcs.s L0016b2
  1925. L0016ac:
  1926. move.b #$01,d3
  1927. bra.s L0016c0
  1928. L0016b2:
  1929. cmpi.b #$3a,d0 ;':'
  1930. beq.s L0016be
  1931. cmpi.b #$5c,d0 ;'\'
  1932. bne.s L0016c0
  1933. L0016be:
  1934. move.l a2,(sp)
  1935. L0016c0:
  1936. addq.b #1,d2
  1937. bra.s L00168c
  1938. L0016c4:
  1939. movea.l (sp)+,a2
  1940. cmpa.l a1,a2
  1941. beq.w L0017b6
  1942. move.l a1,d0
  1943. sub.l a2,d0
  1944. cmpi.w #$0016,d0
  1945. bhi.w L00179a
  1946. lea.l (L007466),a3
  1947. movea.l a2,a4
  1948. subq.w #1,d0
  1949. L0016e2:
  1950. move.b (a4)+,(a3)+
  1951. dbra.w d0,L0016e2
  1952. clr.b (a3)
  1953. lea.l (L0072fa),a3
  1954. lea.l (L006fc8),a4
  1955. move.l a2,d0
  1956. sub.l a4,d0
  1957. clr.b (L00747f)
  1958. cmp.l #$00000040,d0
  1959. bhi.w L0017a2
  1960. tst.l d0
  1961. beq.s L001740
  1962. move.b #$01,(L00747f)
  1963. cmp.l #$00000002,d0
  1964. bcs.s L001740
  1965. cmpi.b #$3a,($0001,a4) ;':'
  1966. bne.s L001740
  1967. move.l d0,d1
  1968. move.b (a4),d0
  1969. bsr.w L001d3a
  1970. sub.b #$41,d0 ;'A'
  1971. bsr.w L002754
  1972. tst.l d0
  1973. bmi.s L00178a
  1974. move.l d1,d0
  1975. bra.s L001740
  1976. L00173e:
  1977. move.b (a4)+,(a3)+
  1978. L001740:
  1979. dbra.w d0,L00173e
  1980. clr.b (a3)
  1981. lea.l (L007466),a1
  1982. clr.b (L00747e)
  1983. L001752:
  1984. move.b (a1)+,d0
  1985. beq.s L001764
  1986. cmp.b #$2e,d0 ;'.'
  1987. bne.s L001752
  1988. move.b #-$01,(L00747e)
  1989. L001764:
  1990. clr.b d1
  1991. lea.l (L006fc9),a1
  1992. L00176c:
  1993. move.b (a0)+,(a1)+
  1994. beq.s L001776
  1995. addq.b #1,d1
  1996. beq.s L001792
  1997. bra.s L00176c
  1998. L001776:
  1999. move.b d1,(L006fc8)
  2000. move.w #$ffff,d0
  2001. rts
  2002. L001782:
  2003. lea.l (L005d86),a0
  2004. bra.s L0017a8
  2005. L00178a:
  2006. lea.l (L005d9d),a0
  2007. bra.s L0017a8
  2008. L001792:
  2009. lea.l (L005d22),a0
  2010. bra.s L0017a8
  2011. L00179a:
  2012. lea.l (L005d37),a0
  2013. bra.s L0017a8
  2014. L0017a2:
  2015. lea.l (L005d50),a0
  2016. L0017a8:
  2017. bsr.w L002044
  2018. move.l #$00000600,(L0064b6)
  2019. L0017b6:
  2020. clr.w d0
  2021. rts
  2022. L0017ba:
  2023. clr.w -(sp)
  2024. pea.l (L0072fa)
  2025. DOS _OPEN
  2026. addq.l #6,sp
  2027. tst.l d0
  2028. bmi.w L00188a
  2029. move.w d0,(L0064c2)
  2030. move.w #$0002,-(sp)
  2031. clr.l -(sp)
  2032. move.w (L0064c2),-(sp)
  2033. DOS _SEEK
  2034. addq.l #8,sp
  2035. addq.l #5,d0
  2036. bsr.w L0003ea
  2037. tst.l d0
  2038. bmi.w L00188a
  2039. clr.w -(sp)
  2040. clr.l -(sp)
  2041. move.w (L0064c2),-(sp)
  2042. DOS _SEEK
  2043. addq.l #8,sp
  2044. movea.l (L00649a),a0
  2045. move.l (a0)+,d1
  2046. subq.l #4,d1
  2047. move.l a0,(L00649e)
  2048. move.l d1,-(sp)
  2049. move.l a0,-(sp)
  2050. move.w (L0064c2),-(sp)
  2051. DOS _READ
  2052. lea.l ($000a,sp),sp
  2053. tst.l d0
  2054. bmi.s L00187c
  2055. adda.l d0,a0
  2056. move.b #$1a,(a0)
  2057. move.w (L0064c2),-(sp)
  2058. DOS _CLOSE
  2059. addq.l #2,sp
  2060. lea.l (L007466),a1
  2061. lea.l (L0067d2),a0
  2062. bsr.w L001c94
  2063. bsr.w L001c86
  2064. adda.l d0,a0
  2065. addq.l #1,a0
  2066. lea.l (L006fc9),a1
  2067. bsr.w L0020e6
  2068. move.b #-$01,d0
  2069. tst.b (L006ea5)
  2070. beq.s L001868
  2071. move.b d0,(L006ea5)
  2072. move.b #$01,d0
  2073. L001868:
  2074. move.b d0,(L006ea3)
  2075. clr.b (L006ea8)
  2076. clr.b (L006e9e)
  2077. rts
  2078. L00187c:
  2079. bsr.w L000430
  2080. move.w (L0064c2),-(sp)
  2081. DOS _CLOSE
  2082. addq.l #2,sp
  2083. L00188a:
  2084. lea.l (L005cde),a0
  2085. bsr.w L002044
  2086. move.l #$00000400,(L0064b6)
  2087. rts
  2088. L0018a0:
  2089. tst.b (L00747f)
  2090. beq.s L0018c0
  2091. lea.l (L007466),a1
  2092. lea.l (L0072fa),a0
  2093. bsr.w L001cb8
  2094. lea.l (L005b89),a3
  2095. bra.s L001900
  2096. L0018c0:
  2097. DOS _GETPDB
  2098. movea.l d0,a1
  2099. movea.l (a1),a1
  2100. lea.l (L005b6a),a0
  2101. bsr.w L001ef2
  2102. bne.s L0018d8
  2103. lea.l (L005b89),a0
  2104. L0018d8:
  2105. movea.l a0,a3
  2106. lea.l (L007466),a1
  2107. lea.l (L0072fa),a0
  2108. bsr.w L001c94
  2109. bra.s L001900
  2110. L0018ec:
  2111. tst.b (a3)
  2112. bne.s L0018fc
  2113. tst.b (L0072fa)
  2114. bne.w L0019da
  2115. bra.s L001900
  2116. L0018fc:
  2117. bsr.w L0019f8
  2118. L001900:
  2119. tst.b (L00747e)
  2120. bne.s L001922
  2121. clr.b d2
  2122. lea.l (L0072fa),a0
  2123. bsr.w L001c86
  2124. movea.l a0,a2
  2125. adda.l d0,a2
  2126. lea.l (L005b82),a1
  2127. bsr.w L001cb8
  2128. L001922:
  2129. lea.l (L0072fa),a0
  2130. lea.l (L007412),a1
  2131. bsr.w L001dd8
  2132. tst.l d0
  2133. bmi.s L0018ec
  2134. tst.b (L00747e)
  2135. bne.s L001966
  2136. L00193e:
  2137. lea.l (L007430),a0
  2138. bsr.w L001a58
  2139. lea.l (L007412),a1
  2140. bsr.w L001de8
  2141. tst.l d0
  2142. bpl.s L00193e
  2143. tst.b d2
  2144. beq.s L0018ec
  2145. movea.l a4,a1
  2146. movea.l a2,a0
  2147. move.b #$2e,(a0)+ ;'.'
  2148. bsr.w L001c94
  2149. L001966:
  2150. lea.l (L0072fa),a0
  2151. bsr.w L001c86
  2152. lea.l (-$03,a0,d0.w),a1
  2153. lea.l (L00744e),a0
  2154. bsr.w L001c94
  2155. bsr.w L001d4c
  2156. lea.l (L005b36),a1
  2157. bsr.w L001ccc
  2158. tst.w d0
  2159. beq.w L0017ba
  2160. lea.l (L006fc8),a0
  2161. lea.l (L0072fa),a1
  2162. bsr.w L002de6
  2163. tst.l d0
  2164. bpl.s L0019bc
  2165. lea.l (L005de8),a0
  2166. bsr.w L002044
  2167. move.l #$00000600,(L0064b6)
  2168. bra.s L0019d6
  2169. L0019bc:
  2170. cmp.l #$00010000,d0
  2171. bcs.s L0019d0
  2172. and.l #$000000ff,d0
  2173. or.l #$00000100,d0
  2174. L0019d0:
  2175. move.l d0,(L0064b6)
  2176. L0019d6:
  2177. clr.w d0
  2178. rts
  2179. L0019da:
  2180. tst.b (L006e9f)
  2181. bne.s L0019f6
  2182. lea.l (L005c83),a0
  2183. bsr.w L002044
  2184. move.l #$00000600,(L0064b6)
  2185. L0019f6:
  2186. rts
  2187. L0019f8:
  2188. lea.l (L0072fa),a0
  2189. clr.b d3
  2190. L001a00:
  2191. move.b (a3)+,d0
  2192. beq.s L001a36
  2193. cmp.b #$3b,d0 ;';'
  2194. beq.s L001a38
  2195. move.b d0,(a0)+
  2196. tst.b d3
  2197. beq.s L001a1e
  2198. cmp.b #$02,d3
  2199. beq.s L001a1c
  2200. move.b #$02,d3
  2201. bra.s L001a00
  2202. L001a1c:
  2203. clr.b d3
  2204. L001a1e:
  2205. cmp.b #$80,d0
  2206. bcs.s L001a00
  2207. cmp.b #$a0,d0
  2208. bcs.s L001a30
  2209. cmp.b #$e0,d0
  2210. bcs.s L001a00
  2211. L001a30:
  2212. move.b #$01,d3
  2213. bra.s L001a00
  2214. L001a36:
  2215. subq.l #1,a3
  2216. L001a38:
  2217. move.b (-$0001,a0),d0
  2218. cmp.b #$02,d3
  2219. beq.s L001a48
  2220. cmp.b #$5c,d0 ;'\'
  2221. beq.s L001a4c
  2222. L001a48:
  2223. move.b #$5c,(a0)+ ;'\'
  2224. L001a4c:
  2225. lea.l (L007466),a1
  2226. bsr.w L001c94
  2227. rts
  2228. L001a58:
  2229. bsr.w L001d4c
  2230. clr.l d1
  2231. L001a5e:
  2232. move.b (a0)+,d0
  2233. beq.s L001a6c
  2234. cmp.b #$2e,d0 ;'.'
  2235. bne.s L001a5e
  2236. move.l a0,d1
  2237. bra.s L001a5e
  2238. L001a6c:
  2239. tst.l d1
  2240. beq.s L001a98
  2241. movea.l d1,a0
  2242. move.b #$04,d1
  2243. lea.l (L005b30),a1
  2244. L001a7c:
  2245. bsr.w L001ccc
  2246. tst.l d0
  2247. beq.s L001a90
  2248. L001a84:
  2249. tst.b (a1)+
  2250. bne.s L001a84
  2251. subq.b #1,d1
  2252. beq.s L001a90
  2253. tst.b (a1)
  2254. bne.s L001a7c
  2255. L001a90:
  2256. cmp.b d2,d1
  2257. bcs.s L001a98
  2258. movea.l a1,a4
  2259. move.b d1,d2
  2260. L001a98:
  2261. rts
  2262. L001a9a:
  2263. pea.l (L005bb7)
  2264. DOS _PRINT
  2265. addq.l #4,sp
  2266. rts
  2267. L001aa6:
  2268. movem.l d2/a0-a2,-(sp)
  2269. clr.l d1
  2270. clr.l d2
  2271. L001aae:
  2272. bsr.w L001d0e
  2273. adda.l d0,a0
  2274. tst.b (a0)
  2275. beq.w L001b3a
  2276. move.b (a0)+,d0
  2277. cmp.b #$2d,d0 ;'-'
  2278. beq.s L001ac8
  2279. cmp.b #$2f,d0 ;'/'
  2280. bne.s L001af0
  2281. L001ac8:
  2282. move.b (a0)+,d0
  2283. beq.s L001b3a
  2284. L001acc:
  2285. cmp.b #$09,d0
  2286. beq.s L001aae
  2287. cmp.b #$20,d0 ;' '
  2288. beq.s L001aae
  2289. addq.l #1,d2
  2290. move.b d0,(a2)+
  2291. clr.b (a2)+
  2292. move.b (a0)+,d0
  2293. beq.s L001b3a
  2294. cmp.b #$2d,d0 ;'-'
  2295. beq.s L001ac8
  2296. cmp.b #$2f,d0 ;'/'
  2297. beq.s L001ac8
  2298. bra.s L001acc
  2299. L001af0:
  2300. addq.l #1,d1
  2301. L001af2:
  2302. move.b d0,(a1)+
  2303. cmp.b #$22,d0 ;'"'
  2304. bne.s L001b08
  2305. L001afa:
  2306. move.b (a0)+,d0
  2307. beq.s L001b3a
  2308. move.b d0,(a1)+
  2309. cmp.b #$22,d0 ;'"'
  2310. bne.s L001afa
  2311. bra.s L001b1a
  2312. L001b08:
  2313. cmp.b #$27,d0 ;'''
  2314. bne.s L001b1a
  2315. L001b0e:
  2316. move.b (a0)+,d0
  2317. beq.s L001b3a
  2318. move.b d0,(a1)+
  2319. cmp.b #$27,d0 ;'''
  2320. bne.s L001b0e
  2321. L001b1a:
  2322. move.b (a0),d0
  2323. beq.s L001b3a
  2324. cmp.b #$2f,d0 ;'/'
  2325. beq.s L001b34
  2326. addq.l #1,a0
  2327. cmp.b #$09,d0
  2328. beq.s L001b34
  2329. cmp.b #$20,d0 ;' '
  2330. beq.s L001b34
  2331. bra.s L001af2
  2332. L001b34:
  2333. clr.b (a1)+
  2334. bra.w L001aae
  2335. L001b3a:
  2336. clr.b (a1)+
  2337. clr.b (a1)
  2338. clr.b (a2)+
  2339. clr.b (a2)
  2340. move.l d1,d0
  2341. move.l d2,d1
  2342. movem.l (sp)+,d2/a0-a2
  2343. rts
  2344. L001b4c:
  2345. pea.l (L005bcf)
  2346. DOS _PRINT
  2347. addq.l #4,sp
  2348. rts
  2349. L001b58:
  2350. move.w #$0020,-(sp) ;' '
  2351. DOS _PUTCHAR
  2352. addq.l #2,sp
  2353. rts
  2354. L001b62:
  2355. movem.l d0-d2/a0-a1,-(sp)
  2356. bsr.s L001b7c
  2357. bsr.s L001ba4
  2358. movem.l (sp)+,d0-d2/a0-a1
  2359. rts
  2360. L001b70:
  2361. movem.l d0-d2/a0-a1,-(sp)
  2362. bsr.s L001b7c
  2363. movem.l (sp)+,d0-d2/a0-a1
  2364. rts
  2365. L001b7c:
  2366. movem.l a0,-(sp)
  2367. lea.l (L005acc),a1
  2368. L001b86:
  2369. clr.b d2
  2370. move.l (a1)+,d1
  2371. beq.s L001b9c
  2372. L001b8c:
  2373. addq.b #1,d2
  2374. sub.l d1,d0
  2375. bcc.s L001b8c
  2376. add.l d1,d0
  2377. add.b #$2f,d2 ;'/'
  2378. move.b d2,(a0)+
  2379. bra.s L001b86
  2380. L001b9c:
  2381. clr.b (a0)
  2382. movem.l (sp)+,a0
  2383. rts
  2384. L001ba4:
  2385. move.b (a0)+,d0
  2386. beq.s L001bba
  2387. cmp.b #$30,d0 ;'0'
  2388. bne.s L001bba
  2389. tst.b (a0)
  2390. beq.s L001bba
  2391. move.b #$20,(-$0001,a0) ;' '
  2392. bra.s L001ba4
  2393. L001bba:
  2394. rts
  2395. L001bbc:
  2396. movem.l d0-d2/a0,-(sp)
  2397. addq.l #8,a0
  2398. clr.b (a0)
  2399. move.w #$0007,d2
  2400. L001bc8:
  2401. move.l d0,d1
  2402. and.b #$0f,d1
  2403. cmpi.b #$09,d1
  2404. bls.s L001bd8
  2405. add.b #$27,d1 ;'''
  2406. L001bd8:
  2407. add.b #$30,d1 ;'0'
  2408. move.b d1,-(a0)
  2409. lsr.l #4,d0
  2410. dbra.w d2,L001bc8
  2411. movem.l (sp)+,d0-d2/a0
  2412. rts
  2413. L001bea:
  2414. movem.l d2-d4/a0-a1,-(sp)
  2415. bsr.s L001c08
  2416. movem.l (sp)+,d2-d4/a0-a1
  2417. rts
  2418. L001bf6:
  2419. movem.l d2-d4/a0-a1,-(sp)
  2420. bsr.w L001d0e
  2421. adda.l d0,a0
  2422. bsr.s L001c08
  2423. movem.l (sp)+,d2-d4/a0-a1
  2424. rts
  2425. L001c08:
  2426. clr.l d0
  2427. clr.b d3
  2428. clr.l d4
  2429. move.b #$0a,d2
  2430. cmpi.b #$2d,(a0) ;'-'
  2431. bne.s L001c1e
  2432. addq.l #1,a0
  2433. move.b #-$01,d3
  2434. L001c1e:
  2435. cmpi.b #$30,(a0) ;'0'
  2436. bne.s L001c3a
  2437. L001c24:
  2438. cmpi.b #$30,(a0)+ ;'0'
  2439. beq.s L001c24
  2440. move.b -(a0),d1
  2441. cmp.b #$31,d1 ;'1'
  2442. bcs.s L001c38
  2443. cmp.b #$39,d1 ;'9'
  2444. bls.s L001c3a
  2445. L001c38:
  2446. subq.l #1,a0
  2447. L001c3a:
  2448. tst.b d2
  2449. beq.s L001c7c
  2450. move.b (a0)+,d1
  2451. beq.s L001c7c
  2452. cmp.b #$30,d1 ;'0'
  2453. bcs.s L001c7a
  2454. cmp.b #$39,d1 ;'9'
  2455. bhi.s L001c7a
  2456. sub.b #$30,d1 ;'0'
  2457. and.l #$0000000f,d1
  2458. add.l d0,d0
  2459. bcs.s L001c76
  2460. move.l d0,-(sp)
  2461. add.l d0,d0
  2462. bcs.s L001c74
  2463. add.l d0,d0
  2464. bcs.s L001c74
  2465. add.l (sp)+,d0
  2466. bcs.s L001c76
  2467. add.l d1,d0
  2468. bcs.s L001c76
  2469. addq.l #1,d4
  2470. subq.b #1,d2
  2471. bra.s L001c3a
  2472. L001c74:
  2473. addq.l #4,sp
  2474. L001c76:
  2475. moveq.l #$0b,d4
  2476. bra.s L001c82
  2477. L001c7a:
  2478. not.l d4
  2479. L001c7c:
  2480. tst.b d3
  2481. beq.s L001c82
  2482. neg.l d0
  2483. L001c82:
  2484. move.l d4,d1
  2485. rts
  2486. L001c86:
  2487. move.l a0,-(sp)
  2488. moveq.l #$ff,d0
  2489. L001c8a:
  2490. addq.l #1,d0
  2491. tst.b (a0)+
  2492. bne.s L001c8a
  2493. movea.l (sp)+,a0
  2494. rts
  2495. L001c94:
  2496. movem.l a0-a1,-(sp)
  2497. L001c98:
  2498. move.b (a1)+,(a0)+
  2499. bne.s L001c98
  2500. movem.l (sp)+,a0-a1
  2501. rts
  2502. L001ca2:
  2503. movem.l d0/a0-a1,-(sp)
  2504. tst.b (a1)
  2505. bra.s L001cac
  2506. L001caa:
  2507. move.b (a1)+,(a0)+
  2508. L001cac:
  2509. dbeq.w d0,L001caa
  2510. clr.b (a0)
  2511. movem.l (sp)+,d0/a0-a1
  2512. rts
  2513. L001cb8:
  2514. movem.l a0-a1,-(sp)
  2515. L001cbc:
  2516. tst.b (a0)+
  2517. bne.s L001cbc
  2518. subq.l #1,a0
  2519. L001cc2:
  2520. move.b (a1)+,(a0)+
  2521. bne.s L001cc2
  2522. movem.l (sp)+,a0-a1
  2523. rts
  2524. L001ccc:
  2525. movem.l a0-a1,-(sp)
  2526. L001cd0:
  2527. move.b (a0)+,d0
  2528. beq.s L001ce2
  2529. cmp.b (a1)+,d0
  2530. beq.s L001cd0
  2531. bcs.s L001cde
  2532. moveq.l #$01,d0
  2533. bra.s L001ce8
  2534. L001cde:
  2535. moveq.l #$ff,d0
  2536. bra.s L001ce8
  2537. L001ce2:
  2538. tst.b (a1)
  2539. bne.s L001cde
  2540. clr.l d0
  2541. L001ce8:
  2542. movem.l (sp)+,a0-a1
  2543. rts
  2544. L001cee:
  2545. movem.l a0-a1,-(sp)
  2546. bra.s L001cf8
  2547. L001cf4:
  2548. cmpm.b (a0)+,(a1)+
  2549. bne.s L001d00
  2550. L001cf8:
  2551. dbra.w d0,L001cf4
  2552. clr.l d0
  2553. bra.s L001d08
  2554. L001d00:
  2555. bcs.s L001d06
  2556. moveq.l #$01,d0
  2557. bra.s L001d08
  2558. L001d06:
  2559. moveq.l #$ff,d0
  2560. L001d08:
  2561. movem.l (sp)+,a0-a1
  2562. rts
  2563. L001d0e:
  2564. move.l a0,-(sp)
  2565. L001d10:
  2566. move.b (a0)+,d0
  2567. cmpi.b #$20,d0 ;' '
  2568. beq.s L001d10
  2569. cmpi.b #$09,d0
  2570. beq.s L001d10
  2571. move.l a0,d0
  2572. movea.l (sp)+,a0
  2573. sub.l a0,d0
  2574. subq.l #1,d0
  2575. rts
  2576. L001d28:
  2577. cmpi.b #$41,d0 ;'A'
  2578. bcs.s L001d38
  2579. cmpi.b #$5a,d0 ;'Z'
  2580. bhi.s L001d38
  2581. add.b #$20,d0 ;' '
  2582. L001d38:
  2583. rts
  2584. L001d3a:
  2585. cmpi.b #$61,d0 ;'a'
  2586. bcs.s L001d4a
  2587. cmpi.b #$7a,d0 ;'z'
  2588. bhi.s L001d4a
  2589. sub.b #$20,d0 ;' '
  2590. L001d4a:
  2591. rts
  2592. L001d4c:
  2593. movem.l d0-d1/a0,-(sp)
  2594. clr.b d1
  2595. L001d52:
  2596. move.b (a0),d0
  2597. beq.s L001d8c
  2598. tst.b d1
  2599. beq.s L001d5e
  2600. clr.b d1
  2601. bra.s L001d74
  2602. L001d5e:
  2603. cmp.b #$80,d0
  2604. bcs.s L001d78
  2605. cmp.b #$a0,d0
  2606. bcs.s L001d70
  2607. cmp.b #$e0,d0
  2608. bcs.s L001d78
  2609. L001d70:
  2610. move.b #$01,d1
  2611. L001d74:
  2612. addq.l #1,a0
  2613. bra.s L001d52
  2614. L001d78:
  2615. cmpi.b #$41,d0 ;'A'
  2616. bcs.s L001d88
  2617. cmpi.b #$5a,d0 ;'Z'
  2618. bhi.s L001d88
  2619. add.b #$20,d0 ;' '
  2620. L001d88:
  2621. move.b d0,(a0)+
  2622. bra.s L001d52
  2623. L001d8c:
  2624. movem.l (sp)+,d0-d1/a0
  2625. rts
  2626. L001d92:
  2627. movem.l d0-d1/a0,-(sp)
  2628. clr.b d1
  2629. L001d98:
  2630. move.b (a0),d0
  2631. beq.s L001dd2
  2632. tst.b d1
  2633. beq.s L001da4
  2634. clr.b d1
  2635. bra.s L001dba
  2636. L001da4:
  2637. cmp.b #$80,d0
  2638. bcs.s L001dbe
  2639. cmp.b #$a0,d0
  2640. bcs.s L001db6
  2641. cmp.b #$e0,d0
  2642. bcs.s L001dbe
  2643. L001db6:
  2644. move.b #$01,d1
  2645. L001dba:
  2646. addq.l #1,a0
  2647. bra.s L001d98
  2648. L001dbe:
  2649. cmpi.b #$61,d0 ;'a'
  2650. bcs.s L001dce
  2651. cmpi.b #$7a,d0 ;'z'
  2652. bhi.s L001dce
  2653. sub.b #$20,d0 ;' '
  2654. L001dce:
  2655. move.b d0,(a0)+
  2656. bra.s L001d98
  2657. L001dd2:
  2658. movem.l (sp)+,d0-d1/a0
  2659. rts
  2660. L001dd8:
  2661. move.w #$0020,-(sp) ;' '
  2662. move.l a0,-(sp)
  2663. move.l a1,-(sp)
  2664. DOS _FILES
  2665. lea.l ($000a,sp),sp
  2666. rts
  2667. L001de8:
  2668. move.l a1,-(sp)
  2669. DOS _NFILES
  2670. addq.l #4,sp
  2671. rts
  2672. L001df0:
  2673. link.w a6,#-$0118
  2674. movem.l d0-d2/a0-a3,-(sp)
  2675. lea.l (-$0118,a6),a1
  2676. move.l a0,-(sp)
  2677. clr.w d1
  2678. move.b ($0001,a0),d0
  2679. cmp.b #$3a,d0 ;':'
  2680. bne.s L001e1c
  2681. move.b (a0)+,d0
  2682. bsr.w L001d3a
  2683. move.b d0,(a1)+
  2684. sub.b #$40,d0 ;'@'
  2685. move.b (a0)+,(a1)+
  2686. move.w d0,d1
  2687. bra.s L001e2c
  2688. L001e1c:
  2689. DOS _CURDRV
  2690. move.b d0,d1
  2691. addq.b #1,d1
  2692. add.b #$41,d0 ;'A'
  2693. move.b d0,(a1)+
  2694. move.b #$3a,(a1)+ ;':'
  2695. L001e2c:
  2696. movea.l a0,a2
  2697. clr.b d2
  2698. L001e30:
  2699. move.b (a2)+,d0
  2700. beq.s L001e62
  2701. tst.b d2
  2702. beq.s L001e3c
  2703. clr.b d2
  2704. bra.s L001e30
  2705. L001e3c:
  2706. cmp.b #$80,d0
  2707. bcs.s L001e54
  2708. cmp.b #$a0,d0
  2709. bcs.s L001e4e
  2710. cmp.b #$e0,d0
  2711. bcs.s L001e54
  2712. L001e4e:
  2713. move.b #$01,d2
  2714. bra.s L001e30
  2715. L001e54:
  2716. cmp.b #$5c,d0 ;'\'
  2717. beq.s L001e5c
  2718. bra.s L001e30
  2719. L001e5c:
  2720. cmpi.b #$5c,(a0) ;'\'
  2721. beq.s L001e7e
  2722. L001e62:
  2723. move.b #$5c,(a1)+ ;'\'
  2724. move.l a1,-(sp)
  2725. move.w d1,-(sp)
  2726. DOS _CURDIR
  2727. addq.l #6,sp
  2728. movea.l a1,a2
  2729. L001e70:
  2730. tst.b (a1)+
  2731. bne.s L001e70
  2732. subq.l #1,a1
  2733. cmpa.l a1,a2
  2734. beq.s L001e7e
  2735. move.b #$5c,(a1)+ ;'\'
  2736. L001e7e:
  2737. move.b (a0)+,(a1)+
  2738. bne.s L001e7e
  2739. clr.b d2
  2740. movea.l (sp)+,a0
  2741. lea.l (-$0118,a6),a1
  2742. lea.l (sp),a3
  2743. clr.l -(sp)
  2744. L001e8e:
  2745. move.b (a1)+,d0
  2746. tst.b d2
  2747. beq.s L001e98
  2748. clr.b d2
  2749. bra.s L001ee4
  2750. L001e98:
  2751. cmp.b #$80,d0
  2752. bcs.s L001eb0
  2753. cmp.b #$a0,d0
  2754. bcs.s L001eaa
  2755. cmp.b #$e0,d0
  2756. bcs.s L001eb0
  2757. L001eaa:
  2758. move.b #$01,d2
  2759. bra.s L001ee4
  2760. L001eb0:
  2761. cmp.b #$5c,d0 ;'\'
  2762. bne.s L001ee4
  2763. cmpi.b #$2e,(a1) ;'.'
  2764. bne.s L001ee2
  2765. cmpi.b #$5c,($0001,a1) ;'\'
  2766. beq.s L001ede
  2767. cmpi.b #$2e,($0001,a1) ;'.'
  2768. bne.s L001ee2
  2769. cmpi.b #$5c,($0002,a1) ;'\'
  2770. bne.s L001ee2
  2771. move.l (sp)+,d1
  2772. beq.s L001ee4
  2773. movea.l d1,a0
  2774. addq.l #2,a1
  2775. bra.s L001e8e
  2776. L001ede:
  2777. addq.l #1,a1
  2778. bra.s L001e8e
  2779. L001ee2:
  2780. move.l a0,-(sp)
  2781. L001ee4:
  2782. move.b d0,(a0)+
  2783. bne.s L001e8e
  2784. lea.l (a3),sp
  2785. movem.l (sp)+,d0-d2/a0-a3
  2786. unlk a6
  2787. rts
  2788. L001ef2:
  2789. movem.l a1,-(sp)
  2790. addq.l #4,a1
  2791. bsr.w L001c86
  2792. L001efc:
  2793. tst.b (a1)
  2794. beq.s L001f16
  2795. movem.l d0,-(sp)
  2796. bsr.w L001cee
  2797. beq.s L001f1a
  2798. movem.l (sp)+,d0
  2799. addq.l #1,a1
  2800. L001f10:
  2801. tst.b (a1)+
  2802. bne.s L001f10
  2803. bra.s L001efc
  2804. L001f16:
  2805. clr.b d0
  2806. bra.s L001f26
  2807. L001f1a:
  2808. movem.l (sp)+,d0
  2809. adda.l d0,a1
  2810. movea.l a1,a0
  2811. move.b #-$01,d0
  2812. L001f26:
  2813. movem.l (sp)+,a1
  2814. rts
  2815. L001f2c:
  2816. link.w a6,#-$0100
  2817. movem.l d1-d2/a0-a5,-(sp)
  2818. movea.l a0,a2
  2819. movea.l a1,a3
  2820. movea.l a0,a1
  2821. lea.l (-$0100,a6),a0
  2822. L001f3e:
  2823. move.b (a1)+,d0
  2824. move.b d0,(a0)+
  2825. cmp.b #$3d,d0 ;'='
  2826. bne.s L001f3e
  2827. movea.l a1,a5
  2828. clr.b (a0)
  2829. movea.l a3,a1
  2830. lea.l (-$0100,a6),a0
  2831. bsr.w L001c86
  2832. move.l d0,d1
  2833. bsr.s L001ef2
  2834. tst.b d0
  2835. beq.s L001f8e
  2836. suba.l d1,a0
  2837. bsr.w L001c86
  2838. movea.l a0,a4
  2839. move.l d0,d1
  2840. movea.l a2,a0
  2841. bsr.w L001c86
  2842. sub.l d0,d1
  2843. bcc.s L001f7c
  2844. neg.l d1
  2845. movea.l a3,a0
  2846. bsr.s L001fd0
  2847. cmp.l d1,d0
  2848. bcs.s L001fc6
  2849. L001f7c:
  2850. movea.l a4,a0
  2851. move.w #$0001,d0
  2852. bsr.w L00209e
  2853. movea.l a0,a1
  2854. movea.l a4,a0
  2855. bsr.w L00207e
  2856. L001f8e:
  2857. tst.b (a5)
  2858. beq.s L001fc2
  2859. movea.l a2,a0
  2860. bsr.w L001c86
  2861. addq.l #1,d0
  2862. move.l d0,d1
  2863. movea.l a3,a0
  2864. bsr.s L001fd0
  2865. cmp.l d1,d0
  2866. bcs.s L001fc6
  2867. movea.l a3,a0
  2868. addq.l #4,a0
  2869. L001fa8:
  2870. move.w #$0001,d0
  2871. bsr.w L00209e
  2872. bne.s L001fa8
  2873. movea.l a2,a1
  2874. bsr.w L001c94
  2875. bsr.w L001c86
  2876. adda.l d0,a0
  2877. addq.l #1,a0
  2878. clr.b (a0)
  2879. L001fc2:
  2880. moveq.l #$ff,d0
  2881. bra.s L001fc8
  2882. L001fc6:
  2883. clr.l d0
  2884. L001fc8:
  2885. movem.l (sp)+,d1-d2/a0-a5
  2886. unlk a6
  2887. rts
  2888. L001fd0:
  2889. movem.l d2/a1,-(sp)
  2890. movea.l a0,a1
  2891. move.l (a0)+,d0
  2892. adda.l d0,a1
  2893. L001fda:
  2894. move.w #$ffff,d0
  2895. bsr.w L00209e
  2896. bne.s L001fda
  2897. addq.l #1,a0
  2898. suba.l a0,a1
  2899. bcc.s L001fec
  2900. suba.l a1,a1
  2901. L001fec:
  2902. move.l a1,d0
  2903. movem.l (sp)+,d2/a1
  2904. rts
  2905. L001ff4:
  2906. movem.l d0/a0,-(sp)
  2907. L001ff8:
  2908. move.b (a0)+,d0
  2909. beq.s L002022
  2910. cmp.b #$80,d0
  2911. bcs.s L00201e
  2912. cmp.b #$a0,d0
  2913. bcs.s L00200e
  2914. cmp.b #$e0,d0
  2915. bcs.s L00201e
  2916. L00200e:
  2917. tst.b (a0)
  2918. beq.s L002022
  2919. bsr.s L002028
  2920. move.b (a0)+,d0
  2921. move.w d0,-(sp)
  2922. DOS _PUTCHAR
  2923. addq.l #2,sp
  2924. bra.s L001ff8
  2925. L00201e:
  2926. bsr.s L002028
  2927. bra.s L001ff8
  2928. L002022:
  2929. movem.l (sp)+,d0/a0
  2930. rts
  2931. L002028:
  2932. move.w d0,-(sp)
  2933. cmp.b #$20,d0 ;' '
  2934. bcc.s L00203e
  2935. add.b #$40,d0 ;'@'
  2936. move.w d0,(sp)
  2937. move.w #$005e,-(sp) ;'^'
  2938. DOS _PUTCHAR
  2939. addq.l #2,sp
  2940. L00203e:
  2941. DOS _PUTCHAR
  2942. addq.l #2,sp
  2943. rts
  2944. L002044:
  2945. movem.l d0/a0,-(sp)
  2946. bsr.w L001c86
  2947. move.l d0,-(sp)
  2948. move.l a0,-(sp)
  2949. move.w #$0002,-(sp)
  2950. DOS _WRITE
  2951. lea.l ($000a,sp),sp
  2952. movem.l (sp)+,d0/a0
  2953. rts
  2954. L002060:
  2955. bsr.w L001d0e
  2956. adda.l d0,a0
  2957. cmpi.b #$2f,(a0)+ ;'/'
  2958. bne.s L002074
  2959. move.b (a0)+,d0
  2960. or.b #$20,d0
  2961. rts
  2962. L002074:
  2963. tst.b -(a0)
  2964. beq.s L00207c
  2965. move.b #$63,d0 ;'c'
  2966. L00207c:
  2967. rts
  2968. L00207e:
  2969. move.b (a1)+,(a0)+
  2970. beq.s L002088
  2971. L002082:
  2972. move.b (a1)+,(a0)+
  2973. bne.s L002082
  2974. bra.s L00207e
  2975. L002088:
  2976. rts
  2977. L00208a:
  2978. move.b (a0),d0
  2979. beq.s L00209c
  2980. cmp.b #$1a,d0
  2981. beq.s L00209c
  2982. addq.l #1,a0
  2983. cmp.b #$0a,d0
  2984. bne.s L00208a
  2985. L00209c:
  2986. rts
  2987. L00209e:
  2988. tst.w d0
  2989. beq.s L0020ae
  2990. tst.b (a0)
  2991. beq.s L0020b0
  2992. L0020a6:
  2993. tst.b (a0)+
  2994. bne.s L0020a6
  2995. subq.w #1,d0
  2996. bra.s L00209e
  2997. L0020ae:
  2998. tst.b (a0)
  2999. L0020b0:
  3000. rts
  3001. L0020b2:
  3002. tst.w d0
  3003. bne.s L0020ba
  3004. L0020b6:
  3005. tst.b (a0)
  3006. rts
  3007. L0020ba:
  3008. cmpa.l a0,a1
  3009. bcc.s L0020dc
  3010. L0020be:
  3011. tst.b -(a0)
  3012. beq.s L0020c8
  3013. cmpa.l a0,a1
  3014. bcc.s L0020dc
  3015. bra.s L0020be
  3016. L0020c8:
  3017. tst.b -(a0)
  3018. beq.s L0020d2
  3019. cmpa.l a0,a1
  3020. bcc.s L0020da
  3021. bra.s L0020c8
  3022. L0020d2:
  3023. subq.w #1,d0
  3024. bne.s L0020c8
  3025. addq.l #1,a0
  3026. bra.s L0020b6
  3027. L0020da:
  3028. subq.w #1,d0
  3029. L0020dc:
  3030. bne.s L0020e2
  3031. tst.w d0
  3032. beq.s L0020b6
  3033. L0020e2:
  3034. clr.w d0
  3035. rts
  3036. L0020e6:
  3037. move.l a0,-(sp)
  3038. movea.l a1,a0
  3039. bsr.w L001d0e
  3040. adda.l d0,a0
  3041. movea.l a0,a1
  3042. movea.l (sp)+,a0
  3043. L0020f4:
  3044. move.b (a1)+,d0
  3045. beq.s L002132
  3046. cmp.b #$09,d0
  3047. beq.s L00212e
  3048. cmp.b #$20,d0 ;' '
  3049. beq.s L00212e
  3050. move.b d0,(a0)+
  3051. cmp.b #$27,d0 ;'''
  3052. beq.s L002120
  3053. cmp.b #$22,d0 ;'"'
  3054. bne.s L0020f4
  3055. L002112:
  3056. move.b (a1)+,d0
  3057. beq.s L002132
  3058. move.b d0,(a0)+
  3059. cmp.b #$22,d0 ;'"'
  3060. bne.s L002112
  3061. bra.s L0020f4
  3062. L002120:
  3063. move.b (a1)+,d0
  3064. beq.s L002132
  3065. move.b d0,(a0)+
  3066. cmp.b #$27,d0 ;'''
  3067. bne.s L002120
  3068. bra.s L0020f4
  3069. L00212e:
  3070. clr.b (a0)+
  3071. bra.s L0020e6
  3072. L002132:
  3073. clr.b (a0)+
  3074. clr.b (a0)
  3075. rts
  3076. L002138:
  3077. move.l a0,-(sp)
  3078. DOS _PRINT
  3079. addq.l #4,sp
  3080. move.w #$0008,-(sp)
  3081. DOS _KFLUSH
  3082. addq.l #2,sp
  3083. rts
  3084. L002148:
  3085. move.l a0,-(sp)
  3086. DOS _PRINT
  3087. addq.l #4,sp
  3088. move.w #$0001,-(sp)
  3089. DOS _KFLUSH
  3090. addq.l #2,sp
  3091. move.b d0,d1
  3092. or.b #$20,d1
  3093. cmp.b #$79,d1 ;'y'
  3094. beq.s L00216e
  3095. cmp.b #$6e,d1 ;'n'
  3096. beq.s L002174
  3097. move.w #$0001,d1
  3098. rts
  3099. L00216e:
  3100. move.w #$ffff,d1
  3101. rts
  3102. L002174:
  3103. clr.w d1
  3104. rts
  3105. L002178:
  3106. movem.l d0-d2,-(sp)
  3107. pea.l (L005bd2)
  3108. DOS _PRINT
  3109. addq.l #4,sp
  3110. DOS _VERNUM
  3111. move.w d0,d1
  3112. ext.w d1
  3113. ext.l d1
  3114. divu.w #$000a,d1
  3115. move.l d1,d2
  3116. lsr.w #8,d0
  3117. swap.w d2
  3118. and.b #$0f,d0
  3119. and.b #$0f,d1
  3120. and.b #$0f,d2
  3121. add.b #$30,d0 ;'0'
  3122. add.b #$30,d1 ;'0'
  3123. add.b #$30,d2 ;'0'
  3124. move.w d0,-(sp)
  3125. DOS _PUTCHAR
  3126. move.w #$002e,-(sp) ;'.'
  3127. DOS _PUTCHAR
  3128. move.w d1,-(sp)
  3129. DOS _PUTCHAR
  3130. move.w d2,-(sp)
  3131. DOS _PUTCHAR
  3132. addq.l #8,sp
  3133. movem.l (sp)+,d0-d2
  3134. rts
  3135. L0021ca:
  3136. link.w a6,#-$005a
  3137. movem.l d0,-(sp)
  3138. tst.w d0
  3139. bne.s L0021da
  3140. DOS _CURDRV
  3141. addq.w #1,d0
  3142. L0021da:
  3143. move.w d0,-(sp)
  3144. add.w #$0040,d0
  3145. move.w d0,-(sp)
  3146. DOS _PUTCHAR
  3147. addq.l #2,sp
  3148. move.w #$003a,-(sp) ;':'
  3149. DOS _PUTCHAR
  3150. addq.l #2,sp
  3151. move.w #$005c,-(sp) ;'\'
  3152. DOS _PUTCHAR
  3153. addq.l #2,sp
  3154. move.w (sp)+,d0
  3155. pea.l (-$005a,a6)
  3156. move.w d0,-(sp)
  3157. DOS _CURDIR
  3158. addq.l #6,sp
  3159. pea.l (-$005a,a6)
  3160. DOS _PRINT
  3161. addq.l #4,sp
  3162. movem.l (sp)+,d0
  3163. unlk a6
  3164. rts
  3165. L002212:
  3166. link.w a6,#-$001e
  3167. move.l a0,-(sp)
  3168. lea.l (-$001e,a6),a0
  3169. bsr.s L00222a
  3170. move.l a0,-(sp)
  3171. DOS _PRINT
  3172. addq.l #4,sp
  3173. movea.l (sp)+,a0
  3174. unlk a6
  3175. rts
  3176. L00222a:
  3177. link.w a6,#-$000c
  3178. movem.l d0-d1/a0-a1,-(sp)
  3179. movea.l a0,a1
  3180. move.l d0,d1
  3181. lea.l (-$000c,a6),a0
  3182. lsr.l #8,d0
  3183. lsr.l #1,d0
  3184. and.l #$0000007f,d0
  3185. add.l #$00000050,d0
  3186. bsr.w L001b62
  3187. addq.l #8,a0
  3188. exg.l a0,a1
  3189. bsr.w L001c94
  3190. bsr.w L001c86
  3191. adda.l d0,a0
  3192. bsr.w L0022e2
  3193. movem.l (sp)+,d0-d1/a0-a1
  3194. unlk a6
  3195. rts
  3196. L002268:
  3197. link.w a6,#-$001e
  3198. move.l a0,-(sp)
  3199. lea.l (-$001e,a6),a0
  3200. bsr.s L002280
  3201. move.l a0,-(sp)
  3202. DOS _PRINT
  3203. addq.l #4,sp
  3204. movea.l (sp)+,a0
  3205. unlk a6
  3206. rts
  3207. L002280:
  3208. link.w a6,#-$000c
  3209. movem.l d0-d1/a0-a1,-(sp)
  3210. movea.l a0,a1
  3211. move.l d0,d1
  3212. lea.l (-$000c,a6),a0
  3213. lsr.l #8,d0
  3214. lsr.l #1,d0
  3215. and.l #$0000007f,d0
  3216. add.l #$000007bc,d0
  3217. bsr.w L001b62
  3218. addq.l #6,a0
  3219. exg.l a0,a1
  3220. bsr.w L001c94
  3221. bsr.w L001c86
  3222. adda.l d0,a0
  3223. bsr.s L0022e2
  3224. move.b #$20,(a0)+ ;' '
  3225. move.b #$28,(a0)+ ;'('
  3226. move.l d1,d0
  3227. lsr.l #8,d0
  3228. lsr.l #7,d0
  3229. and.l #$0000000e,d0
  3230. lea.l (L005b20),a1
  3231. adda.l d0,a1
  3232. move.b (a1)+,(a0)+
  3233. move.b (a1)+,(a0)+
  3234. move.b #$29,(a0)+ ;')'
  3235. clr.b (a0)
  3236. movem.l (sp)+,d0-d1/a0-a1
  3237. unlk a6
  3238. rts
  3239. L0022e2:
  3240. move.b #$2d,(a0)+ ;'-'
  3241. movea.l a0,a1
  3242. lea.l (-$000c,a6),a0
  3243. move.l d1,d0
  3244. lsr.l #5,d0
  3245. and.l #$0000000f,d0
  3246. bsr.w L001b70
  3247. addq.l #8,a0
  3248. exg.l a0,a1
  3249. bsr.w L001c94
  3250. bsr.w L001c86
  3251. adda.l d0,a0
  3252. move.b #$2d,(a0)+ ;'-'
  3253. movea.l a0,a1
  3254. lea.l (-$000c,a6),a0
  3255. move.l d1,d0
  3256. and.l #$0000001f,d0
  3257. bsr.w L001b70
  3258. addq.l #8,a0
  3259. exg.l a0,a1
  3260. bsr.w L001c94
  3261. bsr.w L001c86
  3262. adda.l d0,a0
  3263. rts
  3264. L00232e:
  3265. movem.l d1-d4/a0,-(sp)
  3266. bsr.w L001bea
  3267. bsr.w L0027c8
  3268. tst.l d1
  3269. beq.w L002470
  3270. cmp.l #$00000064,d0
  3271. bcs.s L002370
  3272. cmp.l #$00000004,d1
  3273. bne.w L002470
  3274. cmp.l #$000007bc,d0
  3275. bcs.w L002470
  3276. cmp.l #$0000081f,d0
  3277. bhi.w L002470
  3278. sub.l #$000007bc,d0
  3279. move.l d0,d2
  3280. bra.s L002394
  3281. L002370:
  3282. cmp.l #$00000002,d1
  3283. bhi.w L002470
  3284. cmp.l #$0000004f,d0
  3285. bhi.s L00238c
  3286. add.l #$00000014,d0
  3287. move.l d0,d2
  3288. bra.s L002394
  3289. L00238c:
  3290. sub.l #$00000050,d0
  3291. move.l d0,d2
  3292. L002394:
  3293. cmpi.b #$2d,(-$0001,a0) ;'-'
  3294. beq.s L0023a6
  3295. cmpi.b #$2f,(-$0001,a0) ;'/'
  3296. bne.w L002470
  3297. L0023a6:
  3298. bsr.w L001bea
  3299. bsr.w L0027c8
  3300. tst.l d1
  3301. beq.w L002470
  3302. cmp.l #$00000002,d1
  3303. bhi.w L002470
  3304. tst.l d0
  3305. beq.w L002470
  3306. cmp.l #$0000000c,d0
  3307. bhi.w L002470
  3308. move.l d0,d3
  3309. cmpi.b #$2d,(-$0001,a0) ;'-'
  3310. beq.s L0023e2
  3311. cmpi.b #$2f,(-$0001,a0) ;'/'
  3312. bne.w L002470
  3313. L0023e2:
  3314. bsr.w L001bea
  3315. bsr.w L0027c8
  3316. tst.l d1
  3317. beq.w L002470
  3318. cmp.l #$00000002,d1
  3319. bhi.s L002470
  3320. tst.l d0
  3321. beq.s L002470
  3322. cmp.l #$0000001f,d0
  3323. bhi.s L002470
  3324. move.l d0,-(sp)
  3325. subq.l #1,a0
  3326. bsr.w L001d0e
  3327. adda.l d0,a0
  3328. move.l (sp)+,d0
  3329. tst.b (a0)
  3330. bne.s L002470
  3331. move.l d0,d4
  3332. cmp.l #$00000002,d3
  3333. bne.s L002436
  3334. cmp.l #$0000001d,d4
  3335. bhi.s L002470
  3336. bcs.s L002454
  3337. btst.l #$00,d2
  3338. bne.s L002470
  3339. btst.l #$01,d2
  3340. bne.s L002470
  3341. bra.s L002454
  3342. L002436:
  3343. cmp.l #$0000001f,d4
  3344. bne.s L002454
  3345. cmp.l #$00000008,d3
  3346. bcs.s L00244e
  3347. btst.l #$00,d3
  3348. bne.s L002470
  3349. bra.s L002454
  3350. L00244e:
  3351. btst.l #$00,d3
  3352. beq.s L002470
  3353. L002454:
  3354. clr.l d0
  3355. and.w #$001f,d4
  3356. move.w d4,d0
  3357. and.w #$000f,d3
  3358. lsl.w #5,d3
  3359. or.w d3,d0
  3360. and.w #$007f,d2
  3361. lsl.w #8,d2
  3362. lsl.w #1,d2
  3363. or.w d2,d0
  3364. bra.s L002472
  3365. L002470:
  3366. moveq.l #$ff,d0
  3367. L002472:
  3368. movem.l (sp)+,d1-d4/a0
  3369. rts
  3370. L002478:
  3371. link.w a6,#-$001e
  3372. move.l a0,-(sp)
  3373. lea.l (-$001e,a6),a0
  3374. bsr.s L002490
  3375. move.l a0,-(sp)
  3376. DOS _PRINT
  3377. addq.l #4,sp
  3378. movea.l (sp)+,a0
  3379. unlk a6
  3380. rts
  3381. L002490:
  3382. link.w a6,#-$000c
  3383. movem.l d0-d1/a0-a1,-(sp)
  3384. movea.l a0,a1
  3385. move.l d0,d1
  3386. lea.l (-$000c,a6),a0
  3387. lsr.l #8,d0
  3388. lsr.l #3,d0
  3389. and.l #$0000001f,d0
  3390. bsr.w L001b62
  3391. addq.l #8,a0
  3392. exg.l a0,a1
  3393. bsr.w L001c94
  3394. bsr.w L001c86
  3395. adda.l d0,a0
  3396. move.b #$3a,(a0)+ ;':'
  3397. movea.l a0,a1
  3398. move.l d1,d0
  3399. lea.l (-$000c,a6),a0
  3400. lsr.l #5,d0
  3401. and.l #$0000003f,d0
  3402. bsr.w L001b70
  3403. addq.l #8,a0
  3404. exg.l a0,a1
  3405. bsr.w L001c94
  3406. bsr.w L001c86
  3407. adda.l d0,a0
  3408. move.b #$3a,(a0)+ ;':'
  3409. movea.l a0,a1
  3410. move.l d1,d0
  3411. lea.l (-$000c,a6),a0
  3412. and.l #$0000001f,d0
  3413. lsl.l #1,d0
  3414. bsr.w L001b70
  3415. addq.l #8,a0
  3416. exg.l a0,a1
  3417. bsr.w L001c94
  3418. movem.l (sp)+,d0-d1/a0-a1
  3419. unlk a6
  3420. rts
  3421. L00250a:
  3422. link.w a6,#-$001e
  3423. move.l a0,-(sp)
  3424. lea.l (-$001e,a6),a0
  3425. bsr.s L002522
  3426. move.l a0,-(sp)
  3427. DOS _PRINT
  3428. addq.l #4,sp
  3429. movea.l (sp)+,a0
  3430. unlk a6
  3431. rts
  3432. L002522:
  3433. link.w a6,#-$000c
  3434. movem.l d0-d1/a0-a1,-(sp)
  3435. movea.l a0,a1
  3436. move.l d0,d1
  3437. lea.l (-$000c,a6),a0
  3438. lsr.l #8,d0
  3439. lsr.l #8,d0
  3440. and.l #$0000001f,d0
  3441. bsr.w L001b62
  3442. addq.l #8,a0
  3443. exg.l a0,a1
  3444. bsr.w L001c94
  3445. bsr.w L001c86
  3446. adda.l d0,a0
  3447. move.b #$3a,(a0)+ ;':'
  3448. movea.l a0,a1
  3449. move.l d1,d0
  3450. lea.l (-$000c,a6),a0
  3451. lsr.l #8,d0
  3452. and.l #$0000003f,d0
  3453. bsr.w L001b70
  3454. addq.l #8,a0
  3455. exg.l a0,a1
  3456. bsr.w L001c94
  3457. bsr.w L001c86
  3458. adda.l d0,a0
  3459. move.b #$3a,(a0)+ ;':'
  3460. movea.l a0,a1
  3461. move.l d1,d0
  3462. lea.l (-$000c,a6),a0
  3463. and.l #$0000003f,d0
  3464. bsr.w L001b70
  3465. addq.l #8,a0
  3466. exg.l a0,a1
  3467. bsr.w L001c94
  3468. movem.l (sp)+,d0-d1/a0-a1
  3469. unlk a6
  3470. rts
  3471. L00259a:
  3472. movem.l d1-d4/a0,-(sp)
  3473. L00259e:
  3474. bsr.w L001bea
  3475. bsr.w L0027c8
  3476. tst.l d1
  3477. beq.w L002644
  3478. cmp.l #$00000002,d1
  3479. bhi.w L002644
  3480. cmp.l #$00000017,d0
  3481. bhi.w L002644
  3482. move.l d0,d2
  3483. cmpi.b #$3a,(-$0001,a0) ;':'
  3484. bne.s L002644
  3485. bsr.w L001bea
  3486. bsr.w L0027c8
  3487. tst.l d1
  3488. beq.s L002644
  3489. cmp.l #$00000002,d1
  3490. bhi.s L002644
  3491. cmp.l #$0000003b,d0
  3492. bhi.s L002644
  3493. move.l d0,d3
  3494. cmpi.b #$3a,(-$0001,a0) ;':'
  3495. bne.s L002644
  3496. bsr.w L001bea
  3497. bsr.w L0027c8
  3498. tst.l d1
  3499. beq.s L002644
  3500. cmp.l #$00000002,d1
  3501. bhi.s L002644
  3502. cmp.l #$0000003b,d0
  3503. bhi.s L002644
  3504. move.l d0,-(sp)
  3505. subq.l #1,a0
  3506. bsr.w L001d0e
  3507. adda.l d0,a0
  3508. move.l (sp)+,d0
  3509. tst.b (a0)
  3510. bne.s L002644
  3511. move.l d0,d4
  3512. and.l #$0000003f,d4
  3513. move.l d4,d0
  3514. and.l #$0000003f,d3
  3515. lsl.l #8,d3
  3516. or.l d3,d0
  3517. and.l #$0000001f,d2
  3518. lsl.l #8,d2
  3519. lsl.l #8,d2
  3520. or.l d2,d0
  3521. and.l #$001f3f3f,d0
  3522. bra.s L002646
  3523. L002644:
  3524. moveq.l #$ff,d0
  3525. L002646:
  3526. movem.l (sp)+,d1-d4/a0
  3527. rts
  3528. L00264c:
  3529. movem.l d0/a0-a2,-(sp)
  3530. DOS _GETPDB
  3531. movea.l d0,a1
  3532. movea.l (a1),a1
  3533. lea.l (L005b70),a0
  3534. bsr.w L001ef2
  3535. bne.s L002668
  3536. lea.l (L005b85),a0
  3537. L002668:
  3538. movea.l a0,a2
  3539. L00266a:
  3540. move.b (a2)+,d0
  3541. beq.s L0026e6
  3542. cmp.b #$24,d0 ;'$'
  3543. bne.s L0026de
  3544. move.b (a2)+,d0
  3545. beq.s L0026e6
  3546. cmp.b #$24,d0 ;'$'
  3547. beq.s L0026de
  3548. cmp.b #$5f,d0 ;'_'
  3549. beq.w L00274c
  3550. cmp.b #$6e,d0 ;'n'
  3551. beq.w L002714
  3552. cmp.b #$4e,d0 ;'N'
  3553. beq.w L00271c
  3554. or.b #$20,d0
  3555. cmp.b #$62,d0 ;'b'
  3556. beq.s L0026ec
  3557. cmp.b #$64,d0 ;'d'
  3558. beq.s L0026f2
  3559. cmp.b #$65,d0 ;'e'
  3560. beq.s L0026fc
  3561. cmp.b #$67,d0 ;'g'
  3562. beq.s L002702
  3563. cmp.b #$68,d0 ;'h'
  3564. beq.s L002708
  3565. cmp.b #$6c,d0 ;'l'
  3566. beq.s L00270e
  3567. cmp.b #$70,d0 ;'p'
  3568. beq.s L002724
  3569. cmp.b #$71,d0 ;'q'
  3570. beq.s L00272e
  3571. cmp.b #$73,d0 ;'s'
  3572. beq.s L002734
  3573. cmp.b #$74,d0 ;'t'
  3574. beq.s L00273a
  3575. cmp.b #$76,d0 ;'v'
  3576. beq.s L002744
  3577. bra.s L00266a
  3578. L0026de:
  3579. move.w d0,-(sp)
  3580. DOS _PUTCHAR
  3581. addq.l #2,sp
  3582. bra.s L00266a
  3583. L0026e6:
  3584. movem.l (sp)+,d0/a0-a2
  3585. rts
  3586. L0026ec:
  3587. move.b #$7c,d0 ;'|'
  3588. bra.s L0026de
  3589. L0026f2:
  3590. DOS _GETDATE
  3591. bsr.w L002268
  3592. bra.w L00266a
  3593. L0026fc:
  3594. move.b #$1b,d0
  3595. bra.s L0026de
  3596. L002702:
  3597. move.b #$3e,d0 ;'>'
  3598. bra.s L0026de
  3599. L002708:
  3600. move.b #$08,d0
  3601. bra.s L0026de
  3602. L00270e:
  3603. move.b #$3c,d0 ;'<'
  3604. bra.s L0026de
  3605. L002714:
  3606. DOS _CURDRV
  3607. add.w #$0061,d0
  3608. bra.s L0026de
  3609. L00271c:
  3610. DOS _CURDRV
  3611. add.w #$0041,d0
  3612. bra.s L0026de
  3613. L002724:
  3614. clr.w d0
  3615. bsr.w L0021ca
  3616. bra.w L00266a
  3617. L00272e:
  3618. move.b #$3d,d0 ;'='
  3619. bra.s L0026de
  3620. L002734:
  3621. move.b #$20,d0 ;' '
  3622. bra.s L0026de
  3623. L00273a:
  3624. DOS _GETTIM2
  3625. bsr.w L00250a
  3626. bra.w L00266a
  3627. L002744:
  3628. bsr.w L002178
  3629. bra.w L00266a
  3630. L00274c:
  3631. bsr.w L001b4c
  3632. bra.w L00266a
  3633. L002754:
  3634. move.l d1,-(sp)
  3635. clr.w d1
  3636. move.b d0,d1
  3637. DOS _CURDRV
  3638. move.w d0,-(sp)
  3639. move.w d1,-(sp)
  3640. DOS _CHGDRV
  3641. addq.l #2,sp
  3642. cmp.w d1,d0
  3643. bhi.s L00276c
  3644. moveq.l #$ff,d0
  3645. bra.s L002770
  3646. L00276c:
  3647. DOS _CHGDRV
  3648. clr.l d0
  3649. L002770:
  3650. addq.l #2,sp
  3651. move.l (sp)+,d1
  3652. rts
  3653. L002776:
  3654. link.w a6,#-$0058
  3655. movem.l d0-d1/a0-a1,-(sp)
  3656. pea.l (-$0058,a6)
  3657. move.l a0,-(sp)
  3658. DOS _NAMESTS
  3659. addq.l #8,sp
  3660. lea.l (-$0015,a6),a1
  3661. move.w #$0007,d1
  3662. L002790:
  3663. move.b (a1)+,d0
  3664. cmp.b #$20,d0 ;' '
  3665. beq.s L00279e
  3666. move.b d0,(a0)+
  3667. dbra.w d1,L002790
  3668. L00279e:
  3669. lea.l (-$000d,a6),a1
  3670. cmpi.b #$20,(a1) ;' '
  3671. beq.s L0027be
  3672. move.b #$2e,(a0)+ ;'.'
  3673. move.w #$0002,d1
  3674. L0027b0:
  3675. move.b (a1)+,d0
  3676. cmp.b #$20,d0 ;' '
  3677. beq.s L0027be
  3678. move.b d0,(a0)+
  3679. dbra.w d1,L0027b0
  3680. L0027be:
  3681. clr.b (a0)
  3682. movem.l (sp)+,d0-d1/a0-a1
  3683. unlk a6
  3684. rts
  3685. L0027c8:
  3686. movem.l d0,-(sp)
  3687. clr.l d1
  3688. L0027ce:
  3689. move.b (a0)+,d0
  3690. cmp.b #$30,d0 ;'0'
  3691. bcs.s L0027e0
  3692. cmp.b #$39,d0 ;'9'
  3693. bhi.s L0027e0
  3694. addq.l #1,d1
  3695. bra.s L0027ce
  3696. L0027e0:
  3697. movem.l (sp)+,d0
  3698. rts
  3699. L0027e6:
  3700. clr.b (L006ea9)
  3701. tst.b (L006eab)
  3702. beq.s L0027fc
  3703. move.b #$02,(L006eab)
  3704. L0027fc:
  3705. tst.b (L006eac)
  3706. beq.s L00280c
  3707. move.b #$02,(L006eac)
  3708. L00280c:
  3709. move.w (L0064c4),d0
  3710. bmi.s L002830
  3711. clr.w -(sp)
  3712. move.w d0,-(sp)
  3713. DOS _DUP2
  3714. addq.l #4,sp
  3715. move.w (L0064c4),d0
  3716. move.w d0,-(sp)
  3717. DOS _CLOSE
  3718. addq.l #2,sp
  3719. move.w #$ffff,(L0064c4)
  3720. L002830:
  3721. move.w (L0064c6),d0
  3722. bmi.s L002846
  3723. move.w d0,-(sp)
  3724. DOS _CLOSE
  3725. addq.l #2,sp
  3726. move.w #$ffff,(L0064c6)
  3727. L002846:
  3728. move.w (L0064c8),d0
  3729. bmi.s L00286c
  3730. move.w #$0001,-(sp)
  3731. move.w d0,-(sp)
  3732. DOS _DUP2
  3733. addq.l #4,sp
  3734. move.w (L0064c8),d0
  3735. move.w d0,-(sp)
  3736. DOS _CLOSE
  3737. addq.l #2,sp
  3738. move.w #$ffff,(L0064c8)
  3739. L00286c:
  3740. move.w (L0064ca),d0
  3741. bmi.s L002882
  3742. move.w d0,-(sp)
  3743. DOS _CLOSE
  3744. addq.l #2,sp
  3745. move.w #$ffff,(L0064ca)
  3746. L002882:
  3747. cmpi.b #$02,(L006eab)
  3748. bne.s L00289c
  3749. pea.l (L006c32)
  3750. DOS _DELETE
  3751. addq.l #4,sp
  3752. clr.b (L006eab)
  3753. L00289c:
  3754. cmpi.b #$02,(L006eac)
  3755. bne.s L0028b6
  3756. pea.l (L006d4a)
  3757. DOS _DELETE
  3758. addq.l #4,sp
  3759. clr.b (L006eac)
  3760. L0028b6:
  3761. DOS _ALLCLOSE
  3762. rts
  3763. L0028ba:
  3764. move.l d2,-(sp)
  3765. move.w #$ffff,-(sp)
  3766. move.w #$000e,-(sp)
  3767. DOS _CONCTRL
  3768. addq.l #4,sp
  3769. move.b #$1f,d1
  3770. cmp.b #$03,d0
  3771. bne.s L0028d6
  3772. move.b #$20,d1 ;' '
  3773. L0028d6:
  3774. move.w #$ffff,-(sp)
  3775. move.w #$0010,-(sp)
  3776. DOS _CONCTRL
  3777. addq.l #4,sp
  3778. move.b #$40,d2 ;'@'
  3779. cmp.b #$01,d0
  3780. bhi.s L0028f0
  3781. move.b #$60,d2 ;'`'
  3782. L0028f0:
  3783. move.b d2,d0
  3784. move.l (sp)+,d2
  3785. rts
  3786. L0028f6:
  3787. movem.l d0-d1,-(sp)
  3788. clr.b d1
  3789. move.l a0,-(sp)
  3790. L0028fe:
  3791. move.b (a0)+,d0
  3792. beq.s L002932
  3793. tst.b d1
  3794. beq.s L00290a
  3795. clr.b d1
  3796. bra.s L0028fe
  3797. L00290a:
  3798. cmp.b #$80,d0
  3799. bcs.s L002922
  3800. cmp.b #$a0,d0
  3801. bcs.s L00291c
  3802. cmp.b #$e0,d0
  3803. bcs.s L002922
  3804. L00291c:
  3805. move.b #$01,d1
  3806. bra.s L0028fe
  3807. L002922:
  3808. cmp.b #$5c,d0 ;'\'
  3809. beq.s L00292e
  3810. cmp.b #$3a,d0 ;':'
  3811. bne.s L0028fe
  3812. L00292e:
  3813. move.l a0,(sp)
  3814. bra.s L0028fe
  3815. L002932:
  3816. movea.l (sp)+,a0
  3817. movem.l (sp)+,d0-d1
  3818. rts
  3819. L00293a:
  3820. link.w a6,#-$0018
  3821. movem.l d1/a0-a1,-(sp)
  3822. movem.l a0,-(sp)
  3823. lea.l (-$0018,a6),a1
  3824. move.w #$0012,d1
  3825. L00294e:
  3826. move.b (a0)+,d0
  3827. cmp.b #$2a,d0 ;'*'
  3828. beq.s L002964
  3829. cmp.b #$2e,d0 ;'.'
  3830. beq.s L00297a
  3831. move.b d0,(a1)+
  3832. dbra.w d1,L00294e
  3833. bra.s L0029b6
  3834. L002964:
  3835. subq.w #1,d1
  3836. bcs.s L002970
  3837. L002968:
  3838. move.b #$3f,(a1)+ ;'?'
  3839. dbra.w d1,L002968
  3840. L002970:
  3841. move.b (a0)+,d0
  3842. beq.s L00297a
  3843. cmp.b #$2e,d0 ;'.'
  3844. bne.s L002970
  3845. L00297a:
  3846. move.b (-$0001,a0),(a1)+
  3847. move.w #$0003,d1
  3848. L002982:
  3849. move.b (a0)+,d0
  3850. beq.s L0029a4
  3851. cmp.b #$2a,d0 ;'*'
  3852. beq.s L002994
  3853. move.b d0,(a1)+
  3854. dbra.w d1,L002982
  3855. bra.s L0029b6
  3856. L002994:
  3857. subq.w #1,d1
  3858. bcs.s L0029a0
  3859. L002998:
  3860. move.b #$3f,(a1)+ ;'?'
  3861. dbra.w d1,L002998
  3862. L0029a0:
  3863. move.b (a0)+,d0
  3864. bne.s L0029a0
  3865. L0029a4:
  3866. clr.b (a1)
  3867. movem.l (sp)+,a0
  3868. lea.l (-$0018,a6),a1
  3869. bsr.w L001c94
  3870. clr.l d0
  3871. bra.s L0029bc
  3872. L0029b6:
  3873. moveq.l #$ff,d0
  3874. movem.l (sp)+,a0
  3875. L0029bc:
  3876. movem.l (sp)+,d1/a0-a1
  3877. unlk a6
  3878. rts
  3879. L0029c4:
  3880. link.w a6,#-$00b0
  3881. movem.l d0/a0-a2,-(sp)
  3882. pea.l (-$0058,a6)
  3883. move.l a0,-(sp)
  3884. DOS _NAMESTS
  3885. addq.l #8,sp
  3886. pea.l (-$00b0,a6)
  3887. move.l a2,-(sp)
  3888. DOS _NAMESTS
  3889. addq.l #8,sp
  3890. lea.l (-$0015,a6),a0
  3891. lea.l (-$006d,a6),a2
  3892. move.w #$0014,d1
  3893. L0029ec:
  3894. cmpi.b #$3f,(a2) ;'?'
  3895. bne.s L0029f4
  3896. move.b (a0),(a2)
  3897. L0029f4:
  3898. addq.l #1,a0
  3899. addq.l #1,a2
  3900. dbra.w d1,L0029ec
  3901. lea.l (-$006d,a6),a0
  3902. move.w #$0007,d1
  3903. L002a04:
  3904. move.b (a0)+,d0
  3905. cmp.b #$20,d0 ;' '
  3906. beq.s L002a12
  3907. move.b d0,(a1)+
  3908. dbra.w d1,L002a04
  3909. L002a12:
  3910. lea.l (-$0062,a6),a0
  3911. move.w #$0009,d1
  3912. L002a1a:
  3913. move.b (a0)+,d0
  3914. beq.s L002a24
  3915. move.b d0,(a1)+
  3916. dbra.w d1,L002a1a
  3917. L002a24:
  3918. cmpi.b #$20,(-$0065,a6) ;' '
  3919. beq.s L002a46
  3920. move.b #$2e,(a1)+ ;'.'
  3921. lea.l (-$0065,a6),a0
  3922. move.w #$0002,d1
  3923. L002a38:
  3924. move.b (a0)+,d0
  3925. cmp.b #$20,d0 ;' '
  3926. beq.s L002a46
  3927. move.b d0,(a1)+
  3928. dbra.w d1,L002a38
  3929. L002a46:
  3930. clr.b (a1)
  3931. movem.l (sp)+,d0/a0-a2
  3932. unlk a6
  3933. rts
  3934. L002a50:
  3935. link.w a6,#-$003c
  3936. movem.l d0-d6/a1-a2,-(sp)
  3937. move.w #$ffff,d2
  3938. bra.s L002a68
  3939. L002a5e:
  3940. link.w a6,#-$003c
  3941. movem.l d0-d6/a1-a2,-(sp)
  3942. clr.w d2
  3943. L002a68:
  3944. movea.l a0,a1
  3945. bsr.w L001c86
  3946. move.w d0,d1
  3947. beq.w L002ba8
  3948. clr.b d3
  3949. L002a76:
  3950. move.b (a1)+,d4
  3951. beq.s L002aac
  3952. tst.b d3
  3953. beq.s L002a94
  3954. cmp.b #$01,d3
  3955. beq.s L002a8e
  3956. cmp.b #$2e,d4 ;'.'
  3957. beq.s L002a94
  3958. clr.b d3
  3959. bra.s L002a94
  3960. L002a8e:
  3961. move.b #$02,d3
  3962. bra.s L002a76
  3963. L002a94:
  3964. cmp.b #$80,d4
  3965. bcs.s L002a76
  3966. cmp.b #$a0,d4
  3967. bcs.s L002aa6
  3968. cmp.b #$e0,d4
  3969. bcs.s L002a76
  3970. L002aa6:
  3971. move.b #$01,d3
  3972. bra.s L002a76
  3973. L002aac:
  3974. subq.l #1,a1
  3975. tst.b d3
  3976. bne.s L002ace
  3977. cmpi.b #$5c,(-$0001,a1) ;'\'
  3978. bne.s L002ace
  3979. cmp.w #$0001,d1
  3980. beq.w L002ba8
  3981. cmpi.b #$3a,(-$0002,a1) ;':'
  3982. beq.w L002ba8
  3983. clr.b -(a1)
  3984. L002ace:
  3985. cmpi.b #$3a,(-$0001,a1) ;':'
  3986. beq.w L002ba8
  3987. cmpi.b #$2e,(-$0001,a1) ;'.'
  3988. bne.s L002b0a
  3989. tst.b d3
  3990. bne.s L002b0a
  3991. cmp.w #$0001,d1
  3992. beq.s L002afa
  3993. cmpi.b #$3a,(-$0002,a1) ;':'
  3994. beq.s L002afa
  3995. cmpi.b #$5c,(-$0002,a1) ;'\'
  3996. bne.s L002b0a
  3997. L002afa:
  3998. move.b #$2a,(-$0001,a1) ;'*'
  3999. move.b #$2e,(a1)+ ;'.'
  4000. move.b #$2a,(a1)+ ;'*'
  4001. clr.b (a1)
  4002. L002b0a:
  4003. bsr.w L002bc8
  4004. tst.b d0
  4005. bne.s L002b2e
  4006. move.w #$0010,-(sp)
  4007. move.l a0,-(sp)
  4008. pea.l (-$003c,a6)
  4009. DOS _FILES
  4010. lea.l ($000a,sp),sp
  4011. tst.l d0
  4012. bmi.s L002b2e
  4013. btst.b #$04,(-$0027,a6)
  4014. bne.s L002ba4
  4015. L002b2e:
  4016. clr.b d3
  4017. movea.l a0,a2
  4018. clr.b d5
  4019. clr.b d6
  4020. L002b36:
  4021. move.b (a2)+,d0
  4022. beq.s L002b9c
  4023. tst.b d3
  4024. beq.s L002b42
  4025. clr.b d3
  4026. bra.s L002b36
  4027. L002b42:
  4028. cmp.b #$80,d0
  4029. bcs.s L002b5e
  4030. cmp.b #$a0,d0
  4031. bcs.s L002b54
  4032. cmp.b #$e0,d0
  4033. bcs.s L002b5e
  4034. L002b54:
  4035. move.b #$01,d3
  4036. move.b #$20,d5 ;' '
  4037. bra.s L002b36
  4038. L002b5e:
  4039. cmp.b #$2e,d0 ;'.'
  4040. bne.s L002b7e
  4041. tst.b d5
  4042. beq.s L002b7a
  4043. cmp.b #$3a,d5 ;':'
  4044. beq.s L002b7a
  4045. cmp.b #$5c,d5 ;'\'
  4046. beq.s L002b7a
  4047. cmp.b #$2e,d5 ;'.'
  4048. bne.s L002b7e
  4049. L002b7a:
  4050. tst.b (a2)
  4051. beq.s L002ba4
  4052. L002b7e:
  4053. cmpi.b #$5c,(a2) ;'\'
  4054. bne.s L002b8a
  4055. tst.b ($0001,a2)
  4056. beq.s L002ba8
  4057. L002b8a:
  4058. move.b d0,d5
  4059. cmp.b #$2e,d0 ;'.'
  4060. beq.s L002b98
  4061. cmp.b #$5c,d0 ;'\'
  4062. bne.s L002b36
  4063. L002b98:
  4064. move.b d0,d6
  4065. bra.s L002b36
  4066. L002b9c:
  4067. cmp.b #$2e,d6 ;'.'
  4068. beq.s L002bc0
  4069. bra.s L002bae
  4070. L002ba4:
  4071. move.b #$5c,(a1)+ ;'\'
  4072. L002ba8:
  4073. move.b #$2a,(a1)+ ;'*'
  4074. clr.w d2
  4075. L002bae:
  4076. move.b #$2e,(a1)+ ;'.'
  4077. move.b #$2a,(a1)+ ;'*'
  4078. tst.w d2
  4079. beq.s L002bbe
  4080. clr.b (-$0002,a1)
  4081. L002bbe:
  4082. clr.b (a1)
  4083. L002bc0:
  4084. movem.l (sp)+,d0-d6/a1-a2
  4085. unlk a6
  4086. rts
  4087. L002bc8:
  4088. movem.l a0,-(sp)
  4089. bsr.w L0028f6
  4090. L002bd0:
  4091. move.b (a0)+,d0
  4092. beq.s L002be0
  4093. cmp.b #$2a,d0 ;'*'
  4094. beq.s L002be0
  4095. cmp.b #$3f,d0 ;'?'
  4096. bne.s L002bd0
  4097. L002be0:
  4098. movem.l (sp)+,a0
  4099. rts
  4100. L002be6:
  4101. link.w a6,#-$0094
  4102. movem.l d1-d2/a0-a2,-(sp)
  4103. movea.l a1,a2
  4104. clr.l d2
  4105. move.w #$0035,-(sp) ;'5'
  4106. move.l a0,-(sp)
  4107. pea.l (-$003c,a6)
  4108. DOS _FILES
  4109. lea.l ($000a,sp),sp
  4110. tst.l d0
  4111. bmi.w L002cae
  4112. L002c08:
  4113. lea.l (-$001e,a6),a0
  4114. cmpi.b #$2e,(a0) ;'.'
  4115. bne.s L002c26
  4116. move.b ($0001,a0),d0
  4117. beq.w L002ca0
  4118. cmp.b #$2e,d0 ;'.'
  4119. bne.s L002c26
  4120. move.b ($0002,a0),d0
  4121. beq.s L002ca0
  4122. L002c26:
  4123. move.b (-$0027,a6),d0
  4124. and.b #$0e,d0
  4125. bne.s L002ca0
  4126. addq.w #1,d2
  4127. cmp.w #$0578,d2
  4128. bhi.w L002cc0
  4129. move.w #$0015,d1
  4130. movea.l a2,a1
  4131. L002c40:
  4132. move.b #$20,(a1)+ ;' '
  4133. dbra.w d1,L002c40
  4134. clr.b (a1)
  4135. pea.l (-$0094,a6)
  4136. move.l a0,-(sp)
  4137. DOS _NAMESTS
  4138. addq.l #8,sp
  4139. move.w #$0007,d1
  4140. movea.l a2,a1
  4141. lea.l (-$0051,a6),a0
  4142. L002c5e:
  4143. move.b (a0)+,(a1)+
  4144. dbra.w d1,L002c5e
  4145. move.w #$0009,d1
  4146. lea.l ($0008,a2),a1
  4147. lea.l (-$0046,a6),a0
  4148. L002c70:
  4149. move.b (a0)+,d0
  4150. beq.s L002c7a
  4151. move.b d0,(a1)+
  4152. dbra.w d1,L002c70
  4153. L002c7a:
  4154. move.w #$0002,d1
  4155. lea.l ($0013,a2),a1
  4156. lea.l (-$0049,a6),a0
  4157. L002c86:
  4158. move.b (a0)+,(a1)+
  4159. dbra.w d1,L002c86
  4160. lea.l ($0017,a2),a2
  4161. move.b (-$0027,a6),(a2)+
  4162. move.l (-$0022,a6),(a2)+
  4163. move.w (-$0024,a6),(a2)+
  4164. move.w (-$0026,a6),(a2)+
  4165. L002ca0:
  4166. pea.l (-$003c,a6)
  4167. DOS _NFILES
  4168. addq.l #4,sp
  4169. tst.l d0
  4170. bpl.w L002c08
  4171. L002cae:
  4172. cmp.l #$fffffffe,d0
  4173. beq.s L002cc0
  4174. cmp.l #$ffffffee,d0
  4175. beq.s L002cc0
  4176. moveq.l #$ff,d2
  4177. L002cc0:
  4178. clr.b (a2)
  4179. move.l d2,d0
  4180. movem.l (sp)+,d1-d2/a0-a2
  4181. unlk a6
  4182. rts
  4183. L002ccc:
  4184. movem.l d1/a0,-(sp)
  4185. move.l d0,d1
  4186. and.l #$ffffff00,d1
  4187. cmp.l #$ffff0000,d1
  4188. beq.s L002d56
  4189. and.l #$ff000000,d1
  4190. cmp.l #$80000000,d1
  4191. beq.s L002d32
  4192. cmp.l #$81000000,d1
  4193. beq.s L002d3e
  4194. cmp.l #$82000000,d1
  4195. beq.s L002d3e
  4196. neg.l d0
  4197. cmp.l #$00000050,d0
  4198. beq.s L002d4a
  4199. cmp.l #$00000028,d0
  4200. bcc.s L002d26
  4201. lea.l (L005af8),a0
  4202. move.b (a0,d0.l),d0
  4203. add.l #$00000500,d0
  4204. movem.l (sp)+,d1/a0
  4205. rts
  4206. L002d26:
  4207. move.l #$0000050f,d0
  4208. movem.l (sp)+,d1/a0
  4209. rts
  4210. L002d32:
  4211. move.l #$00000514,d0
  4212. movem.l (sp)+,d1/a0
  4213. rts
  4214. L002d3e:
  4215. move.l #$0000050b,d0
  4216. movem.l (sp)+,d1/a0
  4217. rts
  4218. L002d4a:
  4219. move.l #$00000510,d0
  4220. movem.l (sp)+,d1/a0
  4221. rts
  4222. L002d56:
  4223. move.l #$00000515,d0
  4224. movem.l (sp)+,d1/a0
  4225. rts
  4226. L002d62:
  4227. tst.l d0
  4228. beq.s L002d78
  4229. subq.l #1,d0
  4230. swap.w d0
  4231. L002d6a:
  4232. swap.w d0
  4233. L002d6c:
  4234. move.b (a0)+,(a1)+
  4235. dbra.w d0,L002d6c
  4236. swap.w d0
  4237. dbra.w d0,L002d6a
  4238. L002d78:
  4239. rts
  4240. L002d7a:
  4241. DOS _GETPDB
  4242. movea.l d0,a0
  4243. movea.l ($00f0,a0),a1
  4244. lea.l (L00649a),a0
  4245. cmpa.l a0,a1
  4246. rts
  4247. L002d8c:
  4248. tst.b (L007480)
  4249. bne.s L002d98
  4250. moveq.l #$36,d0 ;'6'
  4251. bsr.s L002db8
  4252. L002d98:
  4253. moveq.l #$0c,d0
  4254. bsr.s L002db8
  4255. rts
  4256. L002d9e:
  4257. tst.b (L006ea1)
  4258. beq.s L002db6
  4259. moveq.l #$32,d0 ;'2'
  4260. bsr.s L002db8
  4261. tst.b (L006ea0)
  4262. bne.s L002db6
  4263. moveq.l #$3a,d0 ;':'
  4264. bsr.s L002db8
  4265. L002db6:
  4266. rts
  4267. L002db8:
  4268. move.l d0,-(sp)
  4269. bsr.s L002d7a
  4270. beq.s L002de2
  4271. move.l (sp)+,d0
  4272. lea.l (L000000-$000004),a2
  4273. L002dc6:
  4274. movea.l (a2),a2
  4275. tst.l (a2)
  4276. beq.s L002de4
  4277. tst.l (a2,d0.l)
  4278. beq.s L002dc6
  4279. movem.l d0/a2,-(sp)
  4280. movea.l (a2,d0.l),a2
  4281. jsr (a2)
  4282. movem.l (sp)+,d0/a2
  4283. bra.s L002dc6
  4284. L002de2:
  4285. addq.l #4,sp
  4286. L002de4:
  4287. rts
  4288. L002de6:
  4289. movem.l d1-d7/a0-a6,-(sp)
  4290. bsr.w L0004a2
  4291. DOS _GETPDB
  4292. movea.l d0,a2
  4293. move.l (a2),-(sp)
  4294. move.l a0,-(sp)
  4295. move.l a1,-(sp)
  4296. clr.w -(sp)
  4297. clr.b (L006ea2)
  4298. DOS _EXEC
  4299. lea.l ($000e,sp),sp
  4300. move.b #-$01,(L006ea2)
  4301. move.l d0,-(sp)
  4302. bsr.w L0004ee
  4303. move.l (sp)+,d0
  4304. movem.l (sp)+,d1-d7/a0-a6
  4305. rts
  4306. L002e1c:
  4307. move.l ($0004,sp),d0
  4308. movem.l d1-d3/a0,-(sp)
  4309. move.l d0,d2
  4310. L002e26:
  4311. move.w #$03e8,d1
  4312. L002e2a:
  4313. move.l d2,-(sp)
  4314. DOS _MALLOC
  4315. addq.l #4,sp
  4316. tst.l d0
  4317. bpl.s L002e96
  4318. tst.b (L006eb4)
  4319. beq.w L000454
  4320. move.l d0,d3
  4321. ori.b #$01,(L006eb5)
  4322. DOS _KEYSNS
  4323. DOS _CHANGE_PR
  4324. dbra.w d1,L002e2a
  4325. lea.l (L005ccb),a0
  4326. bsr.w L002044
  4327. ori.b #-$01,(L006eb5)
  4328. lea.l (L006310),a0
  4329. bsr.w L002044
  4330. move.w #$0001,-(sp)
  4331. DOS _KFLUSH
  4332. addq.l #2,sp
  4333. move.b d0,d1
  4334. lea.l (L005bcf),a0
  4335. bsr.w L002044
  4336. cmp.b #$1a,d1
  4337. beq.w L00045e
  4338. or.b #$20,d1
  4339. cmp.b #$79,d1 ;'y'
  4340. bne.s L002e26
  4341. bra.w L00045e
  4342. L002e96:
  4343. clr.b (L006eb5)
  4344. movem.l (sp)+,d1-d3/a0
  4345. rts
  4346. Table1:
  4347. .dc.l L001b62
  4348. .dc.l L001b70
  4349. .dc.l L001bbc
  4350. .dc.l L001bea
  4351. .dc.l L001bf6
  4352. .dc.l L00232e
  4353. .dc.l L00222a
  4354. .dc.l L002280
  4355. .dc.l L00259a
  4356. .dc.l L002490
  4357. .dc.l L002522
  4358. .dc.l L001c86
  4359. .dc.l L001c94
  4360. .dc.l L001ca2
  4361. .dc.l L001cb8
  4362. .dc.l L001ccc
  4363. .dc.l L001cee
  4364. .dc.l L001d28
  4365. .dc.l L001d3a
  4366. .dc.l L001d4c
  4367. .dc.l L001d92
  4368. .dc.l L0020e6
  4369. .dc.l L00209e
  4370. .dc.l L0020b2
  4371. .dc.l L00207e
  4372. .dc.l L002138
  4373. .dc.l L002148
  4374. .dc.l L0021ca
  4375. .dc.l L002212
  4376. .dc.l L002268
  4377. .dc.l L002478
  4378. .dc.l L00250a
  4379. .dc.l L00264c
  4380. .dc.l L001b4c
  4381. .dc.l L001b58
  4382. .dc.l L001ff4
  4383. .dc.l L002028
  4384. .dc.l L002044
  4385. .dc.l L002776
  4386. .dc.l L001df0
  4387. .dc.l L0028f6
  4388. .dc.l L00293a
  4389. .dc.l L0029c4
  4390. .dc.l L002a50
  4391. .dc.l L002a5e
  4392. .dc.l L002be6
  4393. .dc.l L002754
  4394. .dc.l L0028ba
  4395. .dc.l L00208a
  4396. .dc.l L002d62
  4397. .dc.l L0027c8
  4398. .dc.l L001d0e
  4399. .dc.l L002de6
  4400. L002f76:
  4401. link.w a6,#-$0118
  4402. clr.w d0
  4403. cmpi.w #$0001,(L006ec4)
  4404. bhi.w L00300e
  4405. bne.s L002fb6
  4406. lea.l (L0070ca),a0
  4407. cmpi.b #$3a,($0001,a0) ;':'
  4408. bne.s L002fc0
  4409. move.b (a0),d0
  4410. bsr.w L001d3a
  4411. sub.b #$41,d0 ;'A'
  4412. move.b d0,d1
  4413. bsr.w L002754
  4414. tst.l d0
  4415. bmi.s L002ffc
  4416. tst.b ($0002,a0)
  4417. bne.s L002fc0
  4418. addq.w #1,d1
  4419. move.b d1,d0
  4420. L002fb6:
  4421. bsr.w L0021ca
  4422. bsr.w L001b4c
  4423. bra.s L003020
  4424. L002fc0:
  4425. lea.l (-$0118,a6),a1
  4426. L002fc4:
  4427. tst.b (a0)
  4428. beq.s L002fd4
  4429. bsr.w L001d0e
  4430. tst.w d0
  4431. bne.s L003020
  4432. move.b (a0)+,(a1)+
  4433. bra.s L002fc4
  4434. L002fd4:
  4435. clr.b (a1)
  4436. lea.l (-$0118,a6),a0
  4437. bsr.w L001df0
  4438. movem.l a0,-(sp)
  4439. DOS _CHDIR
  4440. addq.l #4,sp
  4441. tst.l d0
  4442. bpl.s L003020
  4443. lea.l (L006130),a0
  4444. bsr.w L002044
  4445. move.l #$00000503,d0
  4446. bra.s L003022
  4447. L002ffc:
  4448. lea.l (L005d9d),a0
  4449. bsr.w L002044
  4450. move.l #$00000500,d0
  4451. bra.s L003022
  4452. L00300e:
  4453. lea.l (L005eb5),a0
  4454. bsr.w L002044
  4455. move.l #$00000500,d0
  4456. bra.s L003022
  4457. L003020:
  4458. clr.l d0
  4459. L003022:
  4460. unlk a6
  4461. rts
  4462. L003026:
  4463. link.w a6,#-$0118
  4464. moveq.l #$04,d0
  4465. bsr.w L0034ee
  4466. beq.s L003086
  4467. move.l a0,-(sp)
  4468. lea.l (L006fc9),a0
  4469. bsr.w L001d0e
  4470. adda.l d0,a0
  4471. movea.l a0,a1
  4472. lea.l (-$0118,a6),a0
  4473. bsr.w L001c94
  4474. bsr.w L001d4c
  4475. lea.l (L005b52),a1
  4476. bsr.w L001ccc
  4477. tst.w d0
  4478. beq.s L003072
  4479. lea.l (L005b4d),a1
  4480. bsr.w L001ccc
  4481. tst.w d0
  4482. bne.s L00307c
  4483. clr.b (L006ead)
  4484. bra.s L0030b2
  4485. L003072:
  4486. move.b #-$01,(L006ead)
  4487. bra.s L0030b2
  4488. L00307c:
  4489. DOS _PRINT
  4490. addq.l #4,sp
  4491. bsr.w L001b4c
  4492. bra.s L0030b4
  4493. L003086:
  4494. pea.l (L005bf9)
  4495. DOS _PRINT
  4496. addq.l #4,sp
  4497. lea.l (L005b4d),a0
  4498. tst.b (L006ead)
  4499. beq.s L0030a4
  4500. lea.l (L005b52),a0
  4501. L0030a4:
  4502. move.l a0,-(sp)
  4503. DOS _PRINT
  4504. addq.l #4,sp
  4505. pea.l (L005c1a)
  4506. DOS _PRINT
  4507. L0030b2:
  4508. addq.l #4,sp
  4509. L0030b4:
  4510. clr.l d0
  4511. unlk a6
  4512. rts
  4513. L0030ba:
  4514. clr.l d0
  4515. rts
  4516. L0030be:
  4517. moveq.l #$05,d0
  4518. bsr.w L0034ee
  4519. bne.s L0030cc
  4520. lea.l (L005c5a),a0
  4521. L0030cc:
  4522. bsr.w L002138
  4523. bsr.w L001b4c
  4524. clr.l d0
  4525. rts
  4526. L0030d8:
  4527. link.w a6,#-$0118
  4528. clr.l d0
  4529. tst.b (L006ea3)
  4530. beq.s L00314e
  4531. moveq.l #$04,d0
  4532. bsr.w L0034ee
  4533. beq.s L00311e
  4534. move.l a0,-(sp)
  4535. movea.l (L00649a),a0
  4536. addq.l #4,a0
  4537. L0030f8:
  4538. bsr.s L003152
  4539. beq.s L00311e
  4540. movem.l a0,-(sp)
  4541. lea.l (-$0118,a6),a1
  4542. bsr.s L003174
  4543. movea.l ($0004,sp),a0
  4544. lea.l (-$0118,a6),a1
  4545. bsr.w L001ccc
  4546. movem.l (sp)+,a0
  4547. bne.s L0030f8
  4548. bsr.w L00208a
  4549. bra.s L003138
  4550. L00311e:
  4551. move.b #-$01,(L006e9e)
  4552. lea.l (L00609e),a0
  4553. bsr.w L002044
  4554. move.l #$00000500,d0
  4555. bra.s L00314e
  4556. L003138:
  4557. move.l a0,(L00649e)
  4558. addq.l #4,sp
  4559. clr.b (L006e9e)
  4560. clr.b (L006ea5)
  4561. clr.l d0
  4562. L00314e:
  4563. unlk a6
  4564. rts
  4565. L003152:
  4566. move.b (a0),d0
  4567. beq.s L003172
  4568. cmp.b #$1a,d0
  4569. beq.s L003172
  4570. bsr.w L001d0e
  4571. adda.l d0,a0
  4572. cmpi.b #$3a,(a0)+ ;':'
  4573. beq.s L00316e
  4574. bsr.w L00208a
  4575. bra.s L003152
  4576. L00316e:
  4577. move.b #-$01,d0
  4578. L003172:
  4579. rts
  4580. L003174:
  4581. move.b (a0)+,d0
  4582. cmp.b #$1a,d0
  4583. beq.s L003186
  4584. cmp.b #$0d,d0
  4585. beq.s L003186
  4586. move.b d0,(a1)+
  4587. bne.s L003174
  4588. L003186:
  4589. clr.b (a1)
  4590. rts
  4591. L00318a:
  4592. tst.b (L006ea3)
  4593. beq.s L0031b4
  4594. move.w #$0001,d0
  4595. lea.l (L0067d2),a0
  4596. bsr.w L00209e
  4597. movea.l a0,a1
  4598. clr.w d0
  4599. lea.l (L0067d2),a0
  4600. bsr.w L00209e
  4601. beq.s L0031b4
  4602. bsr.w L00207e
  4603. L0031b4:
  4604. clr.l d0
  4605. rts
  4606. L0031b8:
  4607. link.w a6,#-$026c
  4608. clr.b d4
  4609. lea.l (L006fc9),a0
  4610. bsr.w L001d0e
  4611. adda.l d0,a0
  4612. movea.l a0,a1
  4613. movea.l a0,a2
  4614. lea.l (-$0230,a6),a0
  4615. bsr.w L0020e6
  4616. lea.l (-$0230,a6),a1
  4617. lea.l (-$0118,a6),a0
  4618. bsr.w L00207e
  4619. lea.l (-$0118,a6),a0
  4620. tst.b (a0)
  4621. beq.w L00330e
  4622. L0031ec:
  4623. bsr.w L001d4c
  4624. lea.l (L005b8a),a1
  4625. bsr.w L001ccc
  4626. tst.w d0
  4627. beq.w L003288
  4628. lea.l (L005b90),a1
  4629. bsr.w L001ccc
  4630. tst.w d0
  4631. beq.w L00329e
  4632. lea.l (L005b9b),a1
  4633. bsr.w L001ccc
  4634. tst.w d0
  4635. beq.w L0032bc
  4636. lea.l (L005ba4),a1
  4637. bsr.w L001ccc
  4638. tst.w d0
  4639. beq.w L0032d8
  4640. movea.l a0,a3
  4641. lea.l (-$0230,a6),a1
  4642. lea.l (-$0118,a6),a0
  4643. bsr.w L00207e
  4644. movea.l a2,a4
  4645. movea.l a3,a0
  4646. bsr.w L003326
  4647. beq.s L00326c
  4648. lea.l (L005ba8),a1
  4649. bsr.w L001ccc
  4650. tst.w d0
  4651. bne.s L00326c
  4652. bsr.w L003326
  4653. beq.w L00330e
  4654. movea.l a3,a1
  4655. bsr.w L001ccc
  4656. tst.w d0
  4657. beq.s L0032e2
  4658. bra.w L003308
  4659. L00326c:
  4660. movea.l a3,a0
  4661. movea.l a4,a2
  4662. bsr.w L001bea
  4663. tst.b d1
  4664. bmi.w L00330e
  4665. cmp.b #$0a,d1
  4666. bhi.s L0032e2
  4667. tst.l d0
  4668. bne.s L0032e2
  4669. bra.w L003308
  4670. L003288:
  4671. bsr.w L003326
  4672. beq.w L00330e
  4673. lea.l (-$026c,a6),a1
  4674. bsr.w L001dd8
  4675. tst.l d0
  4676. bpl.s L0032e2
  4677. bra.s L003308
  4678. L00329e:
  4679. bsr.w L003326
  4680. beq.s L00330e
  4681. bsr.w L001bea
  4682. tst.b d1
  4683. bmi.s L00330e
  4684. cmp.b #$0a,d1
  4685. bhi.s L003308
  4686. cmp.l (L0064b6),d0
  4687. L0032b8:
  4688. bls.s L0032e2
  4689. bra.s L003308
  4690. L0032bc:
  4691. bsr.s L003326
  4692. beq.s L00330e
  4693. L0032c0:
  4694. bsr.w L001bea
  4695. tst.b d1
  4696. bmi.s L00330e
  4697. cmp.b #$0a,d1
  4698. bhi.s L003308
  4699. cmp.l (L0064b6),d0
  4700. beq.s L0032e2
  4701. bra.s L003308
  4702. L0032d8:
  4703. not.b d4
  4704. bsr.s L003326
  4705. beq.s L00330e
  4706. bra.w L0031ec
  4707. L0032e2:
  4708. tst.b d4
  4709. bne.s L003320
  4710. L0032e6:
  4711. bsr.s L003326
  4712. beq.s L003320
  4713. move.b #-$01,(L006ea4)
  4714. L0032f2:
  4715. movea.l a2,a0
  4716. L0032f4:
  4717. bsr.w L001c86
  4718. movea.l a2,a1
  4719. lea.l (L006ec7),a0
  4720. move.b d0,(a0)+
  4721. bsr.w L001c94
  4722. bra.s L003320
  4723. L003308:
  4724. tst.b d4
  4725. bne.s L0032e6
  4726. bra.s L003320
  4727. L00330e:
  4728. lea.l (L00606a),a0
  4729. bsr.w L002044
  4730. move.l #$00000500,d0
  4731. bra.s L003322
  4732. L003320:
  4733. clr.l d0
  4734. L003322:
  4735. unlk a6
  4736. rts
  4737. L003326:
  4738. movea.l a0,a1
  4739. movea.l a2,a0
  4740. L00332a:
  4741. bsr.w L001d0e
  4742. tst.l d0
  4743. bne.s L003358
  4744. move.b (a0)+,d0
  4745. cmp.b #$27,d0 ;'''
  4746. beq.s L00334c
  4747. cmp.b #$22,d0 ;'"'
  4748. bne.s L00332a
  4749. L003340:
  4750. move.b (a0)+,d0
  4751. beq.s L00335a
  4752. cmp.b #$22,d0 ;'"'
  4753. bne.s L003340
  4754. bra.s L00332a
  4755. L00334c:
  4756. move.b (a0)+,d0
  4757. beq.s L00335a
  4758. cmp.b #$27,d0 ;'''
  4759. bne.s L00334c
  4760. bra.s L00332a
  4761. L003358:
  4762. adda.l d0,a0
  4763. L00335a:
  4764. movea.l a0,a2
  4765. movea.l a1,a0
  4766. move.w #$0001,d0
  4767. bsr.w L00209e
  4768. rts
  4769. L003368:
  4770. link.w a6,#-$0118
  4771. lea.l (L006fc9),a0
  4772. clr.b (L006ea5)
  4773. bsr.w L001d0e
  4774. adda.l d0,a0
  4775. movea.l a0,a1
  4776. movea.l a0,a2
  4777. lea.l (-$0118,a6),a0
  4778. bsr.w L0020e6
  4779. lea.l (-$0118,a6),a0
  4780. movea.l a0,a3
  4781. cmpi.b #$25,(a0)+ ;'%'
  4782. bne.w L0034d6
  4783. tst.b (a0)
  4784. beq.w L0034d6
  4785. lea.l (L0068ea),a1
  4786. L0033a4:
  4787. move.b (a0)+,(a1)+
  4788. bne.s L0033a4
  4789. movea.l a3,a0
  4790. bsr.w L003326
  4791. move.b ($0002,a0),d0
  4792. clr.b ($0002,a0)
  4793. bsr.w L001d4c
  4794. move.b d0,($0002,a0)
  4795. moveq.l #$02,d0
  4796. lea.l (L005bab),a1
  4797. bsr.w L001cee
  4798. bne.w L0034d6
  4799. addq.l #2,a0
  4800. addq.l #3,a2
  4801. move.b (a0)+,d0
  4802. bne.s L0033e8
  4803. movea.l a0,a3
  4804. movea.l a2,a0
  4805. bsr.w L001d0e
  4806. adda.l d0,a0
  4807. movea.l a0,a2
  4808. addq.l #1,a2
  4809. movea.l a3,a0
  4810. move.b (a0)+,d0
  4811. L0033e8:
  4812. cmp.b #$28,d0 ;'('
  4813. bne.w L0034d6
  4814. tst.b (a0)
  4815. bne.s L003404
  4816. addq.l #1,a0
  4817. movea.l a0,a3
  4818. movea.l a2,a0
  4819. bsr.w L001d0e
  4820. adda.l d0,a0
  4821. movea.l a0,a2
  4822. movea.l a3,a0
  4823. L003404:
  4824. lea.l (L006a02),a1
  4825. L00340a:
  4826. cmpi.b #$29,(a0) ;')'
  4827. bne.s L003426
  4828. tst.b ($0001,a0)
  4829. bne.s L003420
  4830. movea.l a1,a3
  4831. bsr.w L003326
  4832. movea.l a3,a1
  4833. bra.s L003474
  4834. L003420:
  4835. addq.l #1,a0
  4836. addq.l #1,a2
  4837. bra.s L003474
  4838. L003426:
  4839. tst.b (a0)
  4840. beq.w L0034d6
  4841. L00342c:
  4842. addq.l #1,a2
  4843. move.b (a0)+,(a1)+
  4844. bne.s L00342c
  4845. movea.l a0,a3
  4846. movea.l a2,a0
  4847. movea.l a2,a4
  4848. bsr.w L001d0e
  4849. adda.l d0,a0
  4850. movea.l a0,a2
  4851. movea.l a3,a0
  4852. cmpi.b #$29,(-$0002,a0) ;')'
  4853. beq.s L003472
  4854. movea.l a0,a3
  4855. subq.l #4,a0
  4856. bsr.w L001d4c
  4857. movea.l a1,a5
  4858. lea.l (L005bae),a1
  4859. bsr.w L001ccc
  4860. movea.l a3,a0
  4861. movea.l a5,a1
  4862. tst.l d0
  4863. bne.s L00340a
  4864. subq.l #3,a0
  4865. movea.l a4,a2
  4866. subq.l #2,a1
  4867. subq.l #3,a2
  4868. clr.b (-$0001,a1)
  4869. L003472:
  4870. subq.l #2,a1
  4871. L003474:
  4872. clr.b (a1)
  4873. lea.l (L006a02),a1
  4874. tst.b (a1)
  4875. beq.s L0034d6
  4876. move.l a1,(L0064be)
  4877. bsr.w L001d4c
  4878. lea.l (L005baf),a1
  4879. bsr.w L001ccc
  4880. tst.l d0
  4881. bne.s L0034d6
  4882. addq.l #2,a2
  4883. movea.l a2,a0
  4884. bsr.w L001d0e
  4885. adda.l d0,a0
  4886. tst.b (a0)
  4887. beq.s L0034d6
  4888. movea.l a0,a1
  4889. lea.l (L006b1a),a0
  4890. bsr.w L001c94
  4891. move.b #-$01,d0
  4892. tst.b (L006ea3)
  4893. beq.s L0034c8
  4894. move.b d0,(L006ea3)
  4895. move.b #$01,d0
  4896. L0034c8:
  4897. move.b d0,(L006ea5)
  4898. clr.b (L006ea6)
  4899. bra.s L0034e8
  4900. L0034d6:
  4901. lea.l (L00606a),a0
  4902. bsr.w L002044
  4903. move.l #$00000500,d0
  4904. bra.s L0034ea
  4905. L0034e8:
  4906. clr.l d0
  4907. L0034ea:
  4908. unlk a6
  4909. rts
  4910. L0034ee:
  4911. move.l d0,-(sp)
  4912. lea.l (L006ec8),a0
  4913. bsr.w L001d0e
  4914. adda.l d0,a0
  4915. move.l (sp)+,d0
  4916. adda.l d0,a0
  4917. tst.b (a0)
  4918. beq.s L003514
  4919. cmpi.b #$20,(a0) ;' '
  4920. beq.s L003510
  4921. cmpi.b #$09,(a0)
  4922. bne.s L003514
  4923. L003510:
  4924. addq.l #1,a0
  4925. tst.b (a0)
  4926. L003514:
  4927. rts
  4928. L003516:
  4929. link.w a6,#-$0118
  4930. cmpi.w #$0001,(L006ec4)
  4931. bne.s L003598
  4932. lea.l (L0070ca),a0
  4933. cmpi.b #$3a,($0001,a0) ;':'
  4934. bne.s L00354a
  4935. tst.b ($0002,a0)
  4936. beq.s L003598
  4937. move.b (a0),d0
  4938. bsr.w L001d3a
  4939. sub.b #$41,d0 ;'A'
  4940. bsr.w L002754
  4941. tst.l d0
  4942. bmi.s L003586
  4943. L00354a:
  4944. lea.l (-$0118,a6),a1
  4945. L00354e:
  4946. tst.b (a0)
  4947. beq.s L00355e
  4948. bsr.w L001d0e
  4949. tst.w d0
  4950. bne.s L0035aa
  4951. move.b (a0)+,(a1)+
  4952. bra.s L00354e
  4953. L00355e:
  4954. clr.b (a1)
  4955. lea.l (-$0118,a6),a0
  4956. bsr.w L001df0
  4957. movem.l a0,-(sp)
  4958. DOS _MKDIR
  4959. addq.l #4,sp
  4960. tst.l d0
  4961. bpl.s L0035aa
  4962. lea.l (L00614f),a0
  4963. bsr.w L002044
  4964. move.l #$00000506,d0
  4965. bra.s L0035ac
  4966. L003586:
  4967. lea.l (L005d9d),a0
  4968. bsr.w L002044
  4969. move.l #$00000500,d0
  4970. bra.s L0035ac
  4971. L003598:
  4972. lea.l (L005eb5),a0
  4973. bsr.w L002044
  4974. move.l #$00000500,d0
  4975. bra.s L0035ac
  4976. L0035aa:
  4977. clr.l d0
  4978. L0035ac:
  4979. unlk a6
  4980. rts
  4981. L0035b0:
  4982. link.w a6,#-$0118
  4983. cmpi.w #$0001,(L006ec4)
  4984. bne.s L003632
  4985. lea.l (L0070ca),a0
  4986. cmpi.b #$3a,($0001,a0) ;':'
  4987. bne.s L0035e4
  4988. tst.b ($0002,a0)
  4989. beq.s L003632
  4990. move.b (a0),d0
  4991. bsr.w L001d3a
  4992. sub.b #$41,d0 ;'A'
  4993. bsr.w L002754
  4994. tst.l d0
  4995. bmi.s L003620
  4996. L0035e4:
  4997. lea.l (-$0118,a6),a1
  4998. L0035e8:
  4999. tst.b (a0)
  5000. beq.s L0035f8
  5001. bsr.w L001d0e
  5002. tst.w d0
  5003. bne.s L003644
  5004. move.b (a0)+,(a1)+
  5005. bra.s L0035e8
  5006. L0035f8:
  5007. clr.b (a1)
  5008. lea.l (-$0118,a6),a0
  5009. bsr.w L001df0
  5010. movem.l a0,-(sp)
  5011. DOS _RMDIR
  5012. addq.l #4,sp
  5013. tst.l d0
  5014. bpl.s L003644
  5015. lea.l (L0060f3),a0
  5016. bsr.w L002044
  5017. move.l #$00000506,d0
  5018. bra.s L003646
  5019. L003620:
  5020. lea.l (L005d9d),a0
  5021. bsr.w L002044
  5022. move.l #$00000500,d0
  5023. bra.s L003646
  5024. L003632:
  5025. lea.l (L005eb5),a0
  5026. bsr.w L002044
  5027. move.l #$00000500,d0
  5028. bra.s L003646
  5029. L003644:
  5030. clr.l d0
  5031. L003646:
  5032. unlk a6
  5033. rts
  5034. L00364a:
  5035. link.w a6,#-$011c
  5036. cmpi.w #$0001,(L006ec4)
  5037. bne.w L003812
  5038. clr.w (-$011c,a6)
  5039. clr.w (-$011a,a6)
  5040. cmpi.w #$0001,(L006ec2)
  5041. bhi.w L003812
  5042. lea.l (L0071e2),a0
  5043. L003674:
  5044. tst.b (a0)
  5045. beq.s L0036b4
  5046. bsr.w L001d4c
  5047. L00367c:
  5048. move.b (a0)+,d0
  5049. beq.s L003674
  5050. cmp.b #$79,d0 ;'y'
  5051. beq.s L0036a4
  5052. cmp.b #$71,d0 ;'q'
  5053. bne.w L003812
  5054. tst.w (-$011a,a6)
  5055. bne.w L003812
  5056. move.w #$ffff,(-$011a,a6)
  5057. move.w #$ffff,(-$011c,a6)
  5058. bra.s L00367c
  5059. L0036a4:
  5060. tst.w (-$011a,a6)
  5061. bne.w L003812
  5062. move.w #$ffff,(-$011c,a6)
  5063. bra.s L00367c
  5064. L0036b4:
  5065. lea.l (L0070ca),a0
  5066. cmpi.b #$3a,($0001,a0) ;':'
  5067. bne.s L0036d6
  5068. move.b (a0),d0
  5069. bsr.w L001d3a
  5070. sub.b #$41,d0 ;'A'
  5071. bsr.w L002754
  5072. tst.l d0
  5073. bmi.w L0037ee
  5074. L0036d6:
  5075. lea.l (L0070ca),a0
  5076. bsr.w L002a50
  5077. bsr.w L002bc8
  5078. tst.b d0
  5079. beq.s L003726
  5080. tst.w (-$011c,a6)
  5081. bne.s L00372a
  5082. lea.l (L0070ca),a1
  5083. lea.l (-$0118,a6),a0
  5084. L0036f8:
  5085. bsr.w L001c94
  5086. bsr.w L001df0
  5087. move.l a0,-(sp)
  5088. DOS _PRINT
  5089. addq.l #4,sp
  5090. pea.l (L005c4b)
  5091. DOS _PRINT
  5092. addq.l #4,sp
  5093. L003710:
  5094. lea.l (L006329),a0
  5095. bsr.w L002148
  5096. bsr.w L001b4c
  5097. tst.w d1
  5098. beq.w L0037d6
  5099. bpl.s L003710
  5100. L003726:
  5101. clr.w (-$011a,a6)
  5102. L00372a:
  5103. lea.l (L0070ca),a0
  5104. movea.l (L006eb6),a1
  5105. bsr.w L002be6
  5106. cmp.l #$ffffffff,d0
  5107. beq.w L003800
  5108. cmp.w #$0578,d0
  5109. bls.s L003754
  5110. lea.l (L00621b),a0
  5111. bsr.w L002044
  5112. L003754:
  5113. lea.l (L0070ca),a0
  5114. bsr.w L0028f6
  5115. movea.l (L006eb6),a1
  5116. clr.b d2
  5117. L003766:
  5118. tst.b (a1)
  5119. beq.s L0037d2
  5120. move.b ($0017,a1),d0
  5121. and.b #$1f,d0
  5122. bne.s L0037cc
  5123. cmpi.b #$20,($0013,a1) ;' '
  5124. beq.s L003782
  5125. move.b #$2e,($0012,a1) ;'.'
  5126. L003782:
  5127. bsr.w L001c94
  5128. move.b #-$01,d2
  5129. tst.w (-$011a,a6)
  5130. bne.s L0037a0
  5131. pea.l (L0070ca)
  5132. DOS _PRINT
  5133. addq.l #4,sp
  5134. bsr.w L001b4c
  5135. bra.s L0037c2
  5136. L0037a0:
  5137. pea.l (L0070ca)
  5138. DOS _PRINT
  5139. addq.l #4,sp
  5140. move.l a0,-(sp)
  5141. lea.l (L006379),a0
  5142. bsr.w L002148
  5143. movea.l (sp)+,a0
  5144. bsr.w L001b4c
  5145. tst.w d1
  5146. beq.s L0037cc
  5147. bpl.s L0037a0
  5148. L0037c2:
  5149. pea.l (L0070ca)
  5150. DOS _DELETE
  5151. addq.l #4,sp
  5152. L0037cc:
  5153. lea.l ($0020,a1),a1
  5154. bra.s L003766
  5155. L0037d2:
  5156. tst.b d2
  5157. beq.s L0037dc
  5158. L0037d6:
  5159. clr.l d0
  5160. L0037d8:
  5161. unlk a6
  5162. rts
  5163. L0037dc:
  5164. lea.l (L005fb1),a0
  5165. bsr.w L002044
  5166. move.l #$00000503,d0
  5167. bra.s L0037d8
  5168. L0037ee:
  5169. lea.l (L005d9d),a0
  5170. bsr.w L002044
  5171. move.l #$00000500,d0
  5172. bra.s L0037d8
  5173. L003800:
  5174. lea.l (L006130),a0
  5175. bsr.w L002044
  5176. move.l #$00000508,d0
  5177. bra.s L0037d8
  5178. L003812:
  5179. lea.l (L005eb5),a0
  5180. bsr.w L002044
  5181. move.l #$00000500,d0
  5182. bra.s L0037d8
  5183. L003824:
  5184. link.w a6,#-$0068
  5185. cmpi.w #$0001,(L006ec4)
  5186. bhi.w L003bba
  5187. clr.w (-$005c,a6)
  5188. clr.w (-$0062,a6)
  5189. clr.w (-$0052,a6)
  5190. clr.w (-$0054,a6)
  5191. clr.w (-$0056,a6)
  5192. clr.w (-$0058,a6)
  5193. lea.l (L0071e2),a0
  5194. L003852:
  5195. tst.b (a0)
  5196. beq.w L0038f6
  5197. bsr.w L001d4c
  5198. L00385c:
  5199. move.b (a0)+,d0
  5200. beq.s L003852
  5201. cmp.b #$6e,d0 ;'n'
  5202. beq.s L0038a6
  5203. cmp.b #$6c,d0 ;'l'
  5204. beq.s L0038b6
  5205. cmp.b #$74,d0 ;'t'
  5206. beq.s L0038c6
  5207. cmp.b #$72,d0 ;'r'
  5208. beq.s L00389e
  5209. cmp.b #$77,d0 ;'w'
  5210. beq.s L003892
  5211. cmp.b #$70,d0 ;'p'
  5212. bne.w L003bba
  5213. move.b #-$01,(-$0062,a6)
  5214. clr.b (-$0060,a6)
  5215. bra.s L00385c
  5216. L003892:
  5217. move.b #-$01,(-$005c,a6)
  5218. clr.b (-$005a,a6)
  5219. bra.s L00385c
  5220. L00389e:
  5221. move.b #-$01,(-$0058,a6)
  5222. bra.s L00385c
  5223. L0038a6:
  5224. tst.b (-$0052,a6)
  5225. bne.s L00385c
  5226. bsr.s L0038d6
  5227. move.b #$01,(-$0052,a6)
  5228. bra.s L00385c
  5229. L0038b6:
  5230. tst.b (-$0054,a6)
  5231. bne.s L00385c
  5232. bsr.s L0038d6
  5233. move.b #$01,(-$0054,a6)
  5234. bra.s L00385c
  5235. L0038c6:
  5236. tst.b (-$0056,a6)
  5237. bne.s L00385c
  5238. bsr.s L0038d6
  5239. move.b #$01,(-$0056,a6)
  5240. bra.s L00385c
  5241. L0038d6:
  5242. tst.b (-$0052,a6)
  5243. beq.s L0038e0
  5244. addq.b #1,(-$0052,a6)
  5245. L0038e0:
  5246. tst.b (-$0054,a6)
  5247. beq.s L0038ea
  5248. addq.b #1,(-$0054,a6)
  5249. L0038ea:
  5250. tst.b (-$0056,a6)
  5251. beq.s L0038f4
  5252. addq.b #1,(-$0056,a6)
  5253. L0038f4:
  5254. rts
  5255. L0038f6:
  5256. lea.l (-$0044,a6),a0
  5257. lea.l (L005b7e),a1
  5258. bsr.w L001c94
  5259. cmpi.b #$3a,(L0070cb) ;':'
  5260. bne.s L00392a
  5261. move.b (L0070ca),d0
  5262. bsr.w L001d3a
  5263. move.b d0,(a0)
  5264. sub.b #$41,d0 ;'A'
  5265. bsr.w L002754
  5266. tst.l d0
  5267. bmi.w L003bde
  5268. bra.s L003932
  5269. L00392a:
  5270. DOS _CURDRV
  5271. add.w #$0041,d0
  5272. move.b d0,(a0)
  5273. L003932:
  5274. bsr.w L001b4c
  5275. move.w #$0008,-(sp)
  5276. move.l a0,-(sp)
  5277. pea.l (-$003c,a6)
  5278. DOS _FILES
  5279. lea.l ($000a,sp),sp
  5280. tst.l d0
  5281. bmi.s L00397e
  5282. move.w #$0020,-(sp) ;' '
  5283. DOS _PUTCHAR
  5284. addq.l #2,sp
  5285. move.w #$0016,d1
  5286. lea.l (-$001e,a6),a0
  5287. clr.w d0
  5288. L00395c:
  5289. tst.w d1
  5290. beq.s L003988
  5291. move.b (a0)+,d0
  5292. beq.s L003978
  5293. cmp.b #$2e,d0 ;'.'
  5294. beq.s L00395c
  5295. move.w d0,-(sp)
  5296. DOS _PUTCHAR
  5297. addq.l #2,sp
  5298. subq.w #1,d1
  5299. bra.s L00395c
  5300. L003974:
  5301. bsr.w L001b58
  5302. L003978:
  5303. dbra.w d1,L003974
  5304. bra.s L003988
  5305. L00397e:
  5306. pea.l (L00629b)
  5307. DOS _PRINT
  5308. addq.l #4,sp
  5309. L003988:
  5310. bsr.w L001b58
  5311. lea.l (L0070ca),a0
  5312. bsr.w L002a5e
  5313. bsr.w L001df0
  5314. move.l a0,-(sp)
  5315. clr.b d1
  5316. L00399e:
  5317. move.b (a0)+,d0
  5318. beq.s L0039cc
  5319. tst.b d1
  5320. beq.s L0039aa
  5321. clr.b d1
  5322. bra.s L00399e
  5323. L0039aa:
  5324. cmp.b #$80,d0
  5325. bcs.s L0039c2
  5326. cmp.b #$a0,d0
  5327. bcs.s L0039bc
  5328. cmp.b #$e0,d0
  5329. bcs.s L0039c2
  5330. L0039bc:
  5331. move.b #$01,d1
  5332. bra.s L00399e
  5333. L0039c2:
  5334. cmp.b #$5c,d0 ;'\'
  5335. bne.s L00399e
  5336. move.l a0,(sp)
  5337. bra.s L00399e
  5338. L0039cc:
  5339. movea.l (sp)+,a0
  5340. cmpi.b #$3a,(-$0002,a0) ;':'
  5341. beq.s L0039d8
  5342. subq.l #1,a0
  5343. L0039d8:
  5344. move.b (a0),-(sp)
  5345. clr.b (a0)
  5346. pea.l (L0070ca)
  5347. DOS _PRINT
  5348. addq.l #4,sp
  5349. move.b (sp)+,(a0)
  5350. bsr.w L001b4c
  5351. lea.l (L0070ca),a0
  5352. movea.l (L006eb6),a1
  5353. bsr.w L002be6
  5354. cmp.l #$ffffffff,d0
  5355. beq.w L003bcc
  5356. cmp.w #$0578,d0
  5357. bls.s L003a1a
  5358. lea.l (L00621b),a0
  5359. bsr.w L002044
  5360. move.w #$0578,d0
  5361. L003a1a:
  5362. lea.l (-$0050,a6),a0
  5363. and.l #$0000ffff,d0
  5364. bsr.w L001b62
  5365. pea.l ($0004,a0)
  5366. DOS _PRINT
  5367. addq.l #4,sp
  5368. pea.l (L0062b3)
  5369. DOS _PRINT
  5370. addq.l #4,sp
  5371. pea.l (-$003c,a6)
  5372. clr.w d0
  5373. move.b (L0070ca),d0
  5374. bsr.w L001d3a
  5375. sub.b #$40,d0 ;'@'
  5376. move.w d0,-(sp)
  5377. DOS _DSKFRE
  5378. addq.l #6,sp
  5379. lsr.l #7,d0
  5380. move.l d0,-(sp)
  5381. clr.l d0
  5382. clr.l d1
  5383. move.w (-$0038,a6),d0
  5384. move.w (-$0036,a6),d1
  5385. mulu.w d1,d0
  5386. lsr.l #7,d0
  5387. clr.l d1
  5388. move.w (-$003a,a6),d1
  5389. mulu.w d1,d0
  5390. sub.l (sp),d0
  5391. lsr.l #3,d0
  5392. lea.l (-$0050,a6),a0
  5393. bsr.w L001b62
  5394. move.l a0,-(sp)
  5395. DOS _PRINT
  5396. addq.l #4,sp
  5397. pea.l (L0062bd)
  5398. DOS _PRINT
  5399. addq.l #4,sp
  5400. pea.l (L0062c9)
  5401. DOS _PRINT
  5402. addq.l #4,sp
  5403. move.l (sp)+,d0
  5404. lsr.l #3,d0
  5405. bsr.w L001b62
  5406. move.l a0,-(sp)
  5407. DOS _PRINT
  5408. addq.l #4,sp
  5409. pea.l (L0062bd)
  5410. DOS _PRINT
  5411. addq.l #4,sp
  5412. pea.l (L0062cc)
  5413. DOS _PRINT
  5414. addq.l #4,sp
  5415. movea.l (L006eb6),a5
  5416. movea.l (L006ebe),a4
  5417. bsr.w L003c22
  5418. bsr.w L003c56
  5419. move.l (-$0068,a6),d0
  5420. lea.l (-$0050,a6),a0
  5421. bsr.w L001b62
  5422. move.l a0,-(sp)
  5423. DOS _PRINT
  5424. addq.l #4,sp
  5425. pea.l (L0062bd)
  5426. DOS _PRINT
  5427. addq.l #4,sp
  5428. bsr.w L001b4c
  5429. tst.l (a4)
  5430. beq.w L003bae
  5431. bsr.w L0028ba
  5432. sub.b #$17,d0
  5433. bcc.s L003afe
  5434. clr.b d0
  5435. L003afe:
  5436. move.b d0,(-$005e,a6)
  5437. tst.b d1
  5438. beq.s L003b08
  5439. subq.b #1,d1
  5440. L003b08:
  5441. move.b d1,(-$0064,a6)
  5442. L003b0c:
  5443. movea.l (a4)+,a5
  5444. tst.w (-$005c,a6)
  5445. beq.s L003b48
  5446. move.l a5,-(sp)
  5447. DOS _PRINT
  5448. addq.l #4,sp
  5449. addi.b #$18,(-$005a,a6)
  5450. move.b (-$005e,a6),d0
  5451. cmp.b (-$005a,a6),d0
  5452. bcc.s L003b34
  5453. clr.b (-$005a,a6)
  5454. L003b2e:
  5455. bsr.w L003bf6
  5456. bra.s L003ba6
  5457. L003b34:
  5458. tst.l (a4)
  5459. beq.s L003b2e
  5460. move.w #$0081,-(sp)
  5461. DOS _PUTCHAR
  5462. move.w #$0062,-(sp) ;'b'
  5463. DOS _PUTCHAR
  5464. addq.l #4,sp
  5465. bra.s L003ba6
  5466. L003b48:
  5467. move.l a5,-(sp)
  5468. DOS _PRINT
  5469. addq.l #4,sp
  5470. adda.l #$00000017,a5
  5471. bsr.w L001b58
  5472. move.b (a5)+,d0
  5473. btst.l #$04,d0
  5474. beq.s L003b6e
  5475. pea.l (L00628e)
  5476. DOS _PRINT
  5477. addq.l #4,sp
  5478. addq.l #4,a5
  5479. bra.s L003b86
  5480. L003b6e:
  5481. move.l (a5)+,d0
  5482. lea.l (-$0050,a6),a0
  5483. bsr.w L001b62
  5484. move.l a0,-(sp)
  5485. DOS _PRINT
  5486. addq.l #4,sp
  5487. bsr.w L001b58
  5488. bsr.w L001b58
  5489. L003b86:
  5490. move.w (a5)+,d1
  5491. beq.s L003b98
  5492. move.w d1,d0
  5493. bsr.w L002212
  5494. bsr.w L001b58
  5495. bsr.w L001b58
  5496. L003b98:
  5497. move.w (a5)+,d0
  5498. beq.s L003ba4
  5499. tst.w d1
  5500. beq.s L003ba4
  5501. bsr.w L002478
  5502. L003ba4:
  5503. bsr.s L003bf6
  5504. L003ba6:
  5505. tst.l (a4)
  5506. bne.w L003b0c
  5507. bra.s L003bf0
  5508. L003bae:
  5509. pea.l (L005fb0)
  5510. DOS _PRINT
  5511. addq.l #4,sp
  5512. bra.s L003bf0
  5513. L003bba:
  5514. lea.l (L005eb5),a0
  5515. bsr.w L002044
  5516. move.l #$00000500,d0
  5517. bra.s L003bf2
  5518. L003bcc:
  5519. lea.l (L006130),a0
  5520. bsr.w L002044
  5521. move.l #$00000508,d0
  5522. bra.s L003bf2
  5523. L003bde:
  5524. lea.l (L005d9d),a0
  5525. bsr.w L002044
  5526. move.l #$00000500,d0
  5527. bra.s L003bf2
  5528. L003bf0:
  5529. clr.l d0
  5530. L003bf2:
  5531. unlk a6
  5532. rts
  5533. L003bf6:
  5534. tst.b (-$0062,a6)
  5535. beq.s L003c1c
  5536. addq.b #1,(-$0060,a6)
  5537. move.b (-$0060,a6),d0
  5538. cmp.b (-$0064,a6),d0
  5539. bcs.s L003c1c
  5540. bsr.w L001b4c
  5541. lea.l (L005c5a),a0
  5542. bsr.w L002138
  5543. clr.b (-$0060,a6)
  5544. L003c1c:
  5545. bsr.w L001b4c
  5546. rts
  5547. L003c22:
  5548. movem.l d0-d1/a4-a5,-(sp)
  5549. clr.l (-$0068,a6)
  5550. L003c2a:
  5551. tst.b (a5)
  5552. beq.s L003c4e
  5553. move.l a5,(a4)+
  5554. adda.l #$00000017,a5
  5555. move.b (a5)+,d0
  5556. move.l (a5)+,d1
  5557. btst.l #$04,d0
  5558. bne.s L003c4a
  5559. lsr.l #8,d1
  5560. lsr.l #2,d1
  5561. addq.l #1,d1
  5562. add.l d1,(-$0068,a6)
  5563. L003c4a:
  5564. addq.l #4,a5
  5565. bra.s L003c2a
  5566. L003c4e:
  5567. clr.l (a4)
  5568. movem.l (sp)+,d0-d1/a4-a5
  5569. rts
  5570. L003c56:
  5571. movem.l d0-d6/a0-a5,-(sp)
  5572. move.b (-$0052,a6),d1
  5573. move.b (-$0054,a6),d2
  5574. move.b (-$0056,a6),d3
  5575. move.b (-$0058,a6),d4
  5576. move.b d1,d0
  5577. or.b d2,d0
  5578. or.b d3,d0
  5579. or.b d4,d0
  5580. beq.s L003c98
  5581. L003c74:
  5582. movea.l a4,a5
  5583. L003c76:
  5584. addq.l #4,a5
  5585. movea.l (a4),a2
  5586. movea.l (a5),a3
  5587. move.l a2,(-$0004,sp)
  5588. beq.s L003c98
  5589. move.l a3,(-$0004,sp)
  5590. bne.s L003c8c
  5591. addq.l #4,a4
  5592. bra.s L003c74
  5593. L003c8c:
  5594. bsr.s L003c9e
  5595. tst.b d0
  5596. beq.s L003c76
  5597. move.l a3,(a4)
  5598. move.l a2,(a5)
  5599. bra.s L003c76
  5600. L003c98:
  5601. movem.l (sp)+,d0-d6/a0-a5
  5602. rts
  5603. L003c9e:
  5604. move.b #$03,d5
  5605. L003ca2:
  5606. suba.l a0,a0
  5607. move.w #$0015,d0
  5608. move.b d4,d6
  5609. cmp.b d5,d1
  5610. beq.s L003ce4
  5611. movea.l #$00000018,a0
  5612. move.w #$0003,d0
  5613. move.b d4,d6
  5614. cmp.b d5,d2
  5615. beq.s L003ce4
  5616. movea.l #$0000001c,a0
  5617. move.w #$0003,d0
  5618. move.b d4,d6
  5619. eori.b #-$01,d6
  5620. cmp.b d5,d3
  5621. beq.s L003ce4
  5622. L003cd2:
  5623. subq.b #1,d5
  5624. bne.s L003ca2
  5625. tst.b d4
  5626. bne.s L003cde
  5627. cmpa.l a2,a3
  5628. bra.s L003ce0
  5629. L003cde:
  5630. cmpa.l a3,a2
  5631. L003ce0:
  5632. bcc.s L003d04
  5633. bra.s L003cfe
  5634. L003ce4:
  5635. movea.l a0,a1
  5636. adda.l a2,a0
  5637. adda.l a3,a1
  5638. L003cea:
  5639. tst.b d6
  5640. bne.s L003cf2
  5641. cmpm.b (a0)+,(a1)+
  5642. bra.s L003cf4
  5643. L003cf2:
  5644. cmpm.b (a1)+,(a0)+
  5645. L003cf4:
  5646. bcs.s L003cfe
  5647. bne.s L003d04
  5648. dbra.w d0,L003cea
  5649. bra.s L003cd2
  5650. L003cfe:
  5651. move.b #-$01,d0
  5652. rts
  5653. L003d04:
  5654. clr.b d0
  5655. rts
  5656. L003d08:
  5657. pea.l (L005bb2)
  5658. DOS _PRINT
  5659. addq.l #4,sp
  5660. clr.l d0
  5661. rts
  5662. L003d16:
  5663. link.w a6,#-$0480
  5664. cmpi.w #$0002,(L006ec4)
  5665. bne.w L00403e
  5666. clr.w (-$0480,a6)
  5667. cmpi.w #$0001,(L006ec2)
  5668. bhi.w L00403e
  5669. lea.l (L0071e2),a0
  5670. L003d3c:
  5671. tst.b (a0)
  5672. beq.s L003d58
  5673. bsr.w L001d4c
  5674. L003d44:
  5675. move.b (a0)+,d0
  5676. beq.s L003d3c
  5677. cmp.b #$71,d0 ;'q'
  5678. bne.w L00403e
  5679. move.w #$ffff,(-$0480,a6)
  5680. bra.s L003d44
  5681. L003d58:
  5682. lea.l (-$0118,a6),a0
  5683. lea.l (L0070ca),a1
  5684. bsr.w L001c94
  5685. movea.l a1,a0
  5686. bsr.w L001c86
  5687. lea.l ($01,a1,d0.l),a1
  5688. lea.l (-$0230,a6),a0
  5689. bsr.w L001c94
  5690. lea.l (-$0118,a6),a0
  5691. bsr.w L002a50
  5692. lea.l (-$0118,a6),a0
  5693. cmpi.b #$3a,($0001,a0) ;':'
  5694. bne.s L003da0
  5695. move.b (a0),d0
  5696. bsr.w L001d3a
  5697. sub.b #$41,d0 ;'A'
  5698. bsr.w L002754
  5699. tst.l d0
  5700. bmi.w L004036
  5701. L003da0:
  5702. bsr.w L002bc8
  5703. tst.b d0
  5704. bne.s L003dac
  5705. clr.w (-$0480,a6)
  5706. L003dac:
  5707. lea.l (-$0118,a6),a0
  5708. movea.l (L006eb6),a1
  5709. bsr.w L002be6
  5710. cmp.l #$ffffffff,d0
  5711. beq.w L004028
  5712. cmp.w #$0578,d0
  5713. bls.s L003dd4
  5714. lea.l (L00621b),a0
  5715. bsr.w L002044
  5716. L003dd4:
  5717. lea.l (-$0230,a6),a0
  5718. bsr.w L002a50
  5719. bsr.w L0028f6
  5720. movea.l a0,a3
  5721. lea.l (-$0230,a6),a0
  5722. cmpi.b #$3a,($0001,a0) ;':'
  5723. bne.s L003df0
  5724. addq.l #2,a0
  5725. L003df0:
  5726. movea.l a0,a2
  5727. bsr.w L0028f6
  5728. cmpa.l a0,a2
  5729. bne.s L003e26
  5730. movea.l a0,a1
  5731. lea.l (-$024e,a6),a0
  5732. bsr.w L001c94
  5733. lea.l (-$0118,a6),a1
  5734. cmpi.b #$3a,($0001,a1) ;':'
  5735. bne.s L003e12
  5736. addq.l #2,a1
  5737. L003e12:
  5738. movea.l a2,a0
  5739. bsr.w L001c94
  5740. bsr.w L0028f6
  5741. lea.l (-$024e,a6),a1
  5742. bsr.w L001c94
  5743. bra.s L003e28
  5744. L003e26:
  5745. movea.l a3,a0
  5746. L003e28:
  5747. bsr.w L00293a
  5748. movea.l a0,a1
  5749. lea.l (-$024e,a6),a0
  5750. bsr.w L001c94
  5751. clr.b d2
  5752. movea.l (L006eb6),a0
  5753. L003e3e:
  5754. tst.b (a0)
  5755. beq.w L004058
  5756. btst.b #$04,($0017,a0)
  5757. bne.w L004018
  5758. cmpi.b #$20,($0013,a0) ;' '
  5759. beq.s L003e5c
  5760. move.b #$2e,($0012,a0) ;'.'
  5761. L003e5c:
  5762. move.l a0,-(sp)
  5763. lea.l (-$0118,a6),a0
  5764. bsr.w L0028f6
  5765. movea.l (sp)+,a1
  5766. bsr.w L001c94
  5767. lea.l (-$0230,a6),a0
  5768. bsr.w L0028f6
  5769. exg.l a0,a1
  5770. lea.l (-$024e,a6),a2
  5771. bsr.w L0029c4
  5772. tst.w (-$0480,a6)
  5773. beq.s L003ea8
  5774. L003e84:
  5775. pea.l (-$0118,a6)
  5776. DOS _PRINT
  5777. addq.l #4,sp
  5778. move.l a0,-(sp)
  5779. lea.l (L006393),a0
  5780. bsr.w L002148
  5781. movea.l (sp)+,a0
  5782. bsr.w L001b4c
  5783. tst.w d1
  5784. beq.w L004018
  5785. bpl.s L003e84
  5786. bra.s L003eb4
  5787. L003ea8:
  5788. pea.l (-$0118,a6)
  5789. DOS _PRINT
  5790. addq.l #4,sp
  5791. bsr.w L001b4c
  5792. L003eb4:
  5793. movem.l a0-a2,-(sp)
  5794. lea.l (-$0230,a6),a1
  5795. lea.l (-$047e,a6),a0
  5796. bsr.w L001c94
  5797. movea.l a0,a2
  5798. movea.l a1,a0
  5799. movea.l a2,a1
  5800. lea.l (-$0118,a6),a2
  5801. cmpi.b #$3a,($0001,a1) ;':'
  5802. beq.s L003ef4
  5803. cmpi.b #$3a,($0001,a2) ;':'
  5804. bne.s L003f08
  5805. move.b (a2)+,(a0)+
  5806. move.b (a2)+,(a0)+
  5807. bsr.w L001c94
  5808. subq.l #2,a0
  5809. movea.l a0,a2
  5810. movea.l a1,a0
  5811. movea.l a2,a1
  5812. bsr.w L001c94
  5813. bra.s L003f08
  5814. L003ef4:
  5815. move.b (a1),d0
  5816. bsr.w L001d3a
  5817. sub.b #$41,d0 ;'A'
  5818. bsr.w L002754
  5819. tst.l d0
  5820. bmi.w L004036
  5821. L003f08:
  5822. lea.l (-$047e,a6),a0
  5823. bsr.w L001df0
  5824. bsr.w L0028f6
  5825. clr.b (a0)
  5826. lea.l (-$0118,a6),a1
  5827. lea.l (-$0366,a6),a0
  5828. bsr.w L001c94
  5829. bsr.w L001df0
  5830. bsr.w L0028f6
  5831. clr.b (a0)
  5832. lea.l (-$0366,a6),a0
  5833. lea.l (-$047e,a6),a1
  5834. L003f34:
  5835. move.b (a0),d0
  5836. beq.s L003f82
  5837. cmp.b #$80,d0
  5838. bcs.s L003f54
  5839. cmp.b #$a0,d0
  5840. bcs.s L003f4a
  5841. cmp.b #$e0,d0
  5842. bcs.s L003f54
  5843. L003f4a:
  5844. cmpm.b (a0)+,(a1)+
  5845. bne.s L003f84
  5846. cmpm.b (a0)+,(a1)+
  5847. bne.s L003f84
  5848. bra.s L003f34
  5849. L003f54:
  5850. cmp.b #$20,d0 ;' '
  5851. beq.s L003f76
  5852. bsr.w L001d28
  5853. move.b d0,d1
  5854. move.b (a1),d0
  5855. bsr.w L001d28
  5856. cmp.b d0,d1
  5857. beq.s L003f70
  5858. move.b #-$01,d0
  5859. bra.s L003f84
  5860. L003f70:
  5861. addq.l #1,a0
  5862. addq.l #1,a1
  5863. bra.s L003f34
  5864. L003f76:
  5865. addq.l #1,a0
  5866. L003f78:
  5867. cmpi.b #$20,(a1) ;' '
  5868. bne.s L003f34
  5869. addq.l #1,a1
  5870. bra.s L003f78
  5871. L003f82:
  5872. move.b (a1),d0
  5873. L003f84:
  5874. movem.l (sp)+,a0-a2
  5875. tst.b d0
  5876. bne.w L004020
  5877. movem.l a0-a2,-(sp)
  5878. lea.l (-$0230,a6),a1
  5879. lea.l (-$047e,a6),a0
  5880. bsr.w L001c94
  5881. bsr.w L001df0
  5882. bsr.w L0028f6
  5883. movea.l a0,a2
  5884. lea.l (-$0118,a6),a1
  5885. lea.l (-$0366,a6),a0
  5886. bsr.w L001c94
  5887. bsr.w L001df0
  5888. bsr.w L0028f6
  5889. movea.l a2,a1
  5890. L003fbe:
  5891. move.b (a0),d0
  5892. beq.s L003ffa
  5893. cmp.b #$80,d0
  5894. bcs.s L003fde
  5895. cmp.b #$a0,d0
  5896. bcs.s L003fd4
  5897. cmp.b #$e0,d0
  5898. bcs.s L003fde
  5899. L003fd4:
  5900. cmpm.b (a0)+,(a1)+
  5901. bne.s L003ffc
  5902. cmpm.b (a0)+,(a1)+
  5903. bne.s L003ffc
  5904. bra.s L003fbe
  5905. L003fde:
  5906. cmp.b #$20,d0 ;' '
  5907. beq.s L003fee
  5908. cmp.b (a1),d0
  5909. bne.s L003ffc
  5910. addq.l #1,a0
  5911. addq.l #1,a1
  5912. bra.s L003fbe
  5913. L003fee:
  5914. addq.l #1,a0
  5915. L003ff0:
  5916. cmpi.b #$20,(a1) ;' '
  5917. bne.s L003fbe
  5918. addq.l #1,a1
  5919. bra.s L003ff0
  5920. L003ffa:
  5921. move.b (a1),d0
  5922. L003ffc:
  5923. movem.l (sp)+,a0-a2
  5924. tst.b d0
  5925. beq.s L004046
  5926. pea.l (-$0230,a6)
  5927. pea.l (-$0118,a6)
  5928. DOS _RENAME
  5929. addq.l #8,sp
  5930. tst.l d0
  5931. bne.s L004046
  5932. move.b #-$01,d2
  5933. L004018:
  5934. lea.l ($0020,a0),a0
  5935. bra.w L003e3e
  5936. L004020:
  5937. lea.l (L005e22),a0
  5938. bra.s L00404c
  5939. L004028:
  5940. lea.l (L006130),a0
  5941. move.l #$00000508,d0
  5942. bra.s L004052
  5943. L004036:
  5944. lea.l (L005d9d),a0
  5945. bra.s L00404c
  5946. L00403e:
  5947. lea.l (L005eb5),a0
  5948. bra.s L00404c
  5949. L004046:
  5950. lea.l (L005e5d),a0
  5951. L00404c:
  5952. move.l #$00000500,d0
  5953. L004052:
  5954. bsr.w L002044
  5955. bra.s L00405e
  5956. L004058:
  5957. tst.b d2
  5958. beq.s L004046
  5959. clr.l d0
  5960. L00405e:
  5961. unlk a6
  5962. rts
  5963. L004062:
  5964. tst.w (L006ec4)
  5965. beq.s L0040b6
  5966. lea.l (L006ec8),a0
  5967. bsr.w L001d0e
  5968. adda.l d0,a0
  5969. addq.l #3,a0
  5970. L004078:
  5971. bsr.w L001d0e
  5972. adda.l d0,a0
  5973. cmpi.b #$3d,(a0)+ ;'='
  5974. beq.s L004078
  5975. tst.b -(a0)
  5976. beq.s L0040b6
  5977. movea.l a0,a1
  5978. move.w #$00ff,d0
  5979. L00408e:
  5980. move.b (a0)+,d1
  5981. beq.s L0040d4
  5982. cmp.b #$3d,d1 ;'='
  5983. beq.s L00409e
  5984. dbra.w d0,L00408e
  5985. bra.s L0040d4
  5986. L00409e:
  5987. movea.l a1,a0
  5988. DOS _GETPDB
  5989. movea.l d0,a1
  5990. movea.l (a1),a1
  5991. bsr.w L001f2c
  5992. tst.l d0
  5993. bne.s L0040e6
  5994. lea.l (L005d01),a0
  5995. bra.s L0040da
  5996. L0040b6:
  5997. DOS _GETPDB
  5998. movea.l d0,a0
  5999. movea.l (a0),a0
  6000. addq.l #4,a0
  6001. L0040be:
  6002. tst.b (a0)
  6003. beq.s L0040e6
  6004. bsr.w L001ff4
  6005. bsr.w L001b4c
  6006. move.w #$0001,d0
  6007. bsr.w L00209e
  6008. bra.s L0040be
  6009. L0040d4:
  6010. lea.l (L00606a),a0
  6011. L0040da:
  6012. bsr.w L002044
  6013. move.l #$00000500,d0
  6014. bra.s L0040e8
  6015. L0040e6:
  6016. clr.l d0
  6017. L0040e8:
  6018. rts
  6019. L0040ea:
  6020. bsr.w L001b4c
  6021. bsr.w L002178
  6022. bsr.w L001b4c
  6023. bsr.w L001b4c
  6024. clr.l d0
  6025. rts
  6026. L0040fe:
  6027. link.w a6,#-$0088
  6028. clr.w (-$0082,a6)
  6029. clr.w (-$0084,a6)
  6030. lea.l (L0071e2),a0
  6031. L004110:
  6032. tst.b (a0)
  6033. beq.s L00413a
  6034. bsr.w L001d4c
  6035. L004118:
  6036. move.b (a0)+,d0
  6037. beq.s L004110
  6038. cmp.b #$73,d0 ;'s'
  6039. beq.s L004132
  6040. cmp.b #$63,d0 ;'c'
  6041. bne.w L00445a
  6042. move.b #-$01,(-$0082,a6)
  6043. bra.s L004118
  6044. L004132:
  6045. move.b #-$01,(-$0084,a6)
  6046. bra.s L004118
  6047. L00413a:
  6048. tst.b (-$0082,a6)
  6049. beq.s L004148
  6050. tst.b (-$0084,a6)
  6051. bne.w L00445a
  6052. L004148:
  6053. clr.w d1
  6054. cmpi.w #$0001,(L006ec4)
  6055. bhi.w L00445a
  6056. bne.s L004188
  6057. lea.l (L0070ca),a0
  6058. cmpi.b #$3a,($0001,a0) ;':'
  6059. bne.w L004278
  6060. move.b (a0),d0
  6061. bsr.w L001d3a
  6062. sub.b #$41,d0 ;'A'
  6063. move.b d0,d1
  6064. bsr.w L002754
  6065. tst.l d0
  6066. bmi.w L004448
  6067. addq.w #1,d1
  6068. tst.b ($0002,a0)
  6069. bne.w L004278
  6070. L004188:
  6071. tst.b (-$0084,a6)
  6072. bne.w L00445a
  6073. tst.b (-$0082,a6)
  6074. bne.w L00422c
  6075. L004198:
  6076. tst.b d1
  6077. bne.s L0041a2
  6078. DOS _CURDRV
  6079. addq.w #1,d0
  6080. move.b d0,d1
  6081. L0041a2:
  6082. lea.l (-$005a,a6),a0
  6083. lea.l (L005b7e),a1
  6084. bsr.w L001c94
  6085. add.b #$40,d1 ;'@'
  6086. move.b d1,(a0)
  6087. pea.l (L005d65)
  6088. DOS _PRINT
  6089. move.w d1,-(sp)
  6090. DOS _PUTCHAR
  6091. pea.l (L005d6f)
  6092. DOS _PRINT
  6093. lea.l ($000a,sp),sp
  6094. move.w #$0008,-(sp)
  6095. move.l a0,-(sp)
  6096. pea.l (-$003c,a6)
  6097. DOS _FILES
  6098. lea.l ($000a,sp),sp
  6099. tst.l d0
  6100. bmi.s L00421e
  6101. bsr.w L001b58
  6102. move.w #$0015,d1
  6103. lea.l (-$001e,a6),a0
  6104. clr.w d0
  6105. L0041f0:
  6106. tst.w d1
  6107. beq.s L004210
  6108. move.b (a0)+,d0
  6109. beq.s L00420c
  6110. cmp.b #$2e,d0 ;'.'
  6111. beq.s L0041f0
  6112. move.w d0,-(sp)
  6113. DOS _PUTCHAR
  6114. addq.l #2,sp
  6115. subq.w #1,d1
  6116. bra.s L0041f0
  6117. L004208:
  6118. bsr.w L001b58
  6119. L00420c:
  6120. dbra.w d1,L004208
  6121. L004210:
  6122. pea.l (L005c1b)
  6123. DOS _PRINT
  6124. addq.l #4,sp
  6125. bra.w L0044a2
  6126. L00421e:
  6127. pea.l (L005fbb)
  6128. DOS _PRINT
  6129. addq.l #4,sp
  6130. bra.w L0044a2
  6131. L00422c:
  6132. tst.b d1
  6133. bne.s L004236
  6134. DOS _CURDRV
  6135. addq.w #1,d0
  6136. move.b d0,d1
  6137. L004236:
  6138. add.b #$40,d1 ;'@'
  6139. lea.l (-$005a,a6),a0
  6140. lea.l (L005b7e),a1
  6141. bsr.w L001c94
  6142. move.b d1,(a0)
  6143. lea.l (-$0080,a6),a0
  6144. bsr.w L001c94
  6145. move.b d1,(a0)
  6146. move.w #$0008,-(sp)
  6147. move.l a0,-(sp)
  6148. pea.l (-$003c,a6)
  6149. DOS _FILES
  6150. lea.l ($000a,sp),sp
  6151. tst.l d0
  6152. bmi.w L004490
  6153. bsr.w L0044a8
  6154. tst.l d0
  6155. bmi.w L00447e
  6156. bra.w L0044a2
  6157. L004278:
  6158. tst.b (-$0082,a6)
  6159. bne.w L00445a
  6160. tst.b (-$0084,a6)
  6161. beq.w L004198
  6162. lea.l (L0070ca),a0
  6163. cmpi.b #$3a,($0001,a0) ;':'
  6164. bne.s L0042a0
  6165. move.b (a0),d0
  6166. bsr.w L001d3a
  6167. addq.l #2,a0
  6168. bra.s L0042a6
  6169. L0042a0:
  6170. DOS _CURDRV
  6171. add.b #$41,d0 ;'A'
  6172. L0042a6:
  6173. movea.l a0,a2
  6174. move.b d0,(-$005a,a6)
  6175. bsr.w L001c86
  6176. cmp.b #$15,d0
  6177. bhi.s L004326
  6178. lea.l (-$0080,a6),a0
  6179. lea.l (L005b7e),a1
  6180. bsr.w L001c94
  6181. move.b (-$005a,a6),(-$0080,a6)
  6182. movea.l a2,a1
  6183. lea.l (-$0059,a6),a0
  6184. move.b #$3a,(a0)+ ;':'
  6185. move.b #$5c,(a0)+ ;'\'
  6186. bsr.w L001c94
  6187. clr.b d1
  6188. L0042de:
  6189. clr.b d2
  6190. L0042e0:
  6191. move.b (a0)+,d0
  6192. beq.s L00433a
  6193. addq.b #1,d1
  6194. cmp.b #$3a,d0 ;':'
  6195. beq.s L004326
  6196. cmp.b #$2e,d0 ;'.'
  6197. beq.s L004326
  6198. cmp.b #$2a,d0 ;'*'
  6199. beq.s L004326
  6200. cmp.b #$3f,d0 ;'?'
  6201. beq.s L004326
  6202. tst.b d2
  6203. bne.s L0042de
  6204. cmp.b #$80,d0
  6205. bcs.s L004320
  6206. cmp.b #$a0,d0
  6207. bcs.s L004314
  6208. cmp.b #$e0,d0
  6209. bcs.s L004320
  6210. L004314:
  6211. cmp.b #$12,d1
  6212. beq.s L004326
  6213. move.b #-$01,d2
  6214. bra.s L0042e0
  6215. L004320:
  6216. cmp.b #$5c,d0 ;'\'
  6217. bne.s L0042e0
  6218. L004326:
  6219. lea.l (L005dcb),a0
  6220. bsr.w L002044
  6221. move.l #$00000500,d0
  6222. bra.w L0044a4
  6223. L00433a:
  6224. clr.l (-$0088,a6)
  6225. move.w #$003f,-(sp) ;'?'
  6226. pea.l (-$0080,a6)
  6227. pea.l (-$003c,a6)
  6228. DOS _FILES
  6229. lea.l ($000a,sp),sp
  6230. tst.l d0
  6231. bmi.s L00437a
  6232. btst.b #$03,(-$0027,a6)
  6233. bne.s L004370
  6234. L00435c:
  6235. pea.l (-$003c,a6)
  6236. DOS _NFILES
  6237. addq.l #4,sp
  6238. tst.l d0
  6239. bmi.s L00437a
  6240. btst.b #$03,(-$0027,a6)
  6241. beq.s L00435c
  6242. L004370:
  6243. move.l (-$0026,a6),d0
  6244. swap.w d0
  6245. move.l d0,(-$0088,a6)
  6246. L00437a:
  6247. lea.l (-$005a,a6),a1
  6248. lea.l (-$0078,a6),a0
  6249. bsr.w L001c94
  6250. bsr.w L001c86
  6251. cmp.b #$15,d0
  6252. bls.s L0043a4
  6253. adda.l #$00000015,a0
  6254. adda.l #$00000015,a1
  6255. move.b #$2e,(a0)+ ;'.'
  6256. bsr.w L001c94
  6257. L0043a4:
  6258. move.w #$003f,-(sp) ;'?'
  6259. pea.l (-$0078,a6)
  6260. pea.l (-$003c,a6)
  6261. DOS _FILES
  6262. lea.l ($000a,sp),sp
  6263. tst.l d0
  6264. bmi.s L0043f2
  6265. btst.b #$03,(-$0027,a6)
  6266. beq.s L0043de
  6267. L0043c2:
  6268. pea.l (-$003c,a6)
  6269. DOS _NFILES
  6270. addq.l #4,sp
  6271. tst.l d0
  6272. bmi.s L0043f2
  6273. btst.b #$03,(-$0027,a6)
  6274. bne.s L0043c2
  6275. bra.s L0043de
  6276. L0043d8:
  6277. move.l d0,-(sp)
  6278. DOS _CLOSE
  6279. addq.l #2,sp
  6280. L0043de:
  6281. lea.l (L00616a),a0
  6282. bsr.w L002044
  6283. move.l #$00000502,d0
  6284. bra.w L0044a4
  6285. L0043f2:
  6286. tst.l (-$0088,a6)
  6287. bne.s L004408
  6288. move.w #$0002,-(sp)
  6289. pea.l (-$0078,a6)
  6290. DOS _OPEN
  6291. addq.l #6,sp
  6292. tst.l d0
  6293. bpl.s L0043d8
  6294. L004408:
  6295. bsr.w L0044a8
  6296. tst.l d0
  6297. bmi.s L00446c
  6298. move.w #$0008,-(sp)
  6299. pea.l (-$0078,a6)
  6300. DOS _CREATE
  6301. addq.l #6,sp
  6302. tst.l d0
  6303. bmi.s L0043de
  6304. tst.l (-$0088,a6)
  6305. beq.s L00443c
  6306. move.l (-$0088,a6),-(sp)
  6307. move.w d0,d1
  6308. move.w d0,-(sp)
  6309. DOS _FILEDATE
  6310. addq.l #6,sp
  6311. exg.l d0,d1
  6312. cmp.l #$ffff0000,d1
  6313. bcc.s L0043d8
  6314. L00443c:
  6315. move.w d0,-(sp)
  6316. DOS _CLOSE
  6317. addq.l #2,sp
  6318. tst.l d0
  6319. bmi.s L0043de
  6320. bra.s L0044a2
  6321. L004448:
  6322. lea.l (L005d9d),a0
  6323. bsr.w L002044
  6324. move.l #$00000500,d0
  6325. bra.s L0044a4
  6326. L00445a:
  6327. lea.l (L005eb5),a0
  6328. bsr.w L002044
  6329. move.l #$00000500,d0
  6330. bra.s L0044a4
  6331. L00446c:
  6332. lea.l (L0061a8),a0
  6333. bsr.w L002044
  6334. move.l #$00000502,d0
  6335. bra.s L0044a4
  6336. L00447e:
  6337. lea.l (L0061aa),a0
  6338. bsr.w L002044
  6339. move.l #$00000502,d0
  6340. bra.s L0044a4
  6341. L004490:
  6342. lea.l (L006094),a0
  6343. bsr.w L002044
  6344. move.l #$00000503,d0
  6345. bra.s L0044a4
  6346. L0044a2:
  6347. clr.l d0
  6348. L0044a4:
  6349. unlk a6
  6350. rts
  6351. L0044a8:
  6352. move.w #$0008,-(sp)
  6353. pea.l (-$0080,a6)
  6354. pea.l (-$003c,a6)
  6355. DOS _FILES
  6356. lea.l ($000a,sp),sp
  6357. L0044ba:
  6358. tst.l d0
  6359. bmi.s L0044f6
  6360. btst.b #$00,(-$0027,a6)
  6361. bne.s L0044fa
  6362. lea.l (-$0057,a6),a0
  6363. lea.l (-$001e,a6),a1
  6364. bsr.w L001c94
  6365. clr.w -(sp)
  6366. pea.l (-$005a,a6)
  6367. DOS _CHMOD
  6368. addq.l #6,sp
  6369. tst.l d0
  6370. bmi.s L0044f8
  6371. pea.l (-$005a,a6)
  6372. DOS _DELETE
  6373. addq.l #4,sp
  6374. tst.l d0
  6375. bmi.s L0044f8
  6376. pea.l (-$003c,a6)
  6377. DOS _NFILES
  6378. addq.l #4,sp
  6379. bra.s L0044ba
  6380. L0044f6:
  6381. clr.l d0
  6382. L0044f8:
  6383. rts
  6384. L0044fa:
  6385. moveq.l #$ff,d0
  6386. rts
  6387. L0044fe:
  6388. link.w a6,#-$0102
  6389. lea.l (L006fc9),a0
  6390. bsr.w L001d0e
  6391. adda.l d0,a0
  6392. tst.b (a0)
  6393. bne.s L00454e
  6394. pea.l (L005bee)
  6395. DOS _PRINT
  6396. addq.l #4,sp
  6397. pea.l (L005be4)
  6398. DOS _PRINT
  6399. addq.l #4,sp
  6400. pea.l (L005bf5)
  6401. DOS _PRINT
  6402. addq.l #4,sp
  6403. DOS _GETDATE
  6404. bsr.w L002268
  6405. pea.l (L005c1b)
  6406. DOS _PRINT
  6407. addq.l #4,sp
  6408. lea.l (-$0102,a6),a0
  6409. move.b #$ff,(a0)+
  6410. clr.b (a0)+
  6411. clr.b (a0)
  6412. bra.s L00457c
  6413. L00454e:
  6414. lea.l (L006fc8),a1
  6415. lea.l (-$0102,a6),a0
  6416. move.b #$ff,(a0)+
  6417. move.b (a1)+,(a0)+
  6418. bsr.w L001c94
  6419. bra.s L0045a4
  6420. L004564:
  6421. bsr.w L001b4c
  6422. pea.l (L005be4)
  6423. DOS _PRINT
  6424. addq.l #4,sp
  6425. pea.l (L005c38)
  6426. DOS _PRINT
  6427. addq.l #4,sp
  6428. L00457c:
  6429. pea.l (L005be4)
  6430. DOS _PRINT
  6431. addq.l #4,sp
  6432. pea.l (L005c23)
  6433. DOS _PRINT
  6434. addq.l #4,sp
  6435. pea.l (-$0102,a6)
  6436. DOS _GETS
  6437. addq.l #4,sp
  6438. bsr.w L001b4c
  6439. lea.l (-$0101,a6),a0
  6440. tst.b (a0)+
  6441. beq.s L0045b6
  6442. L0045a4:
  6443. bsr.w L00232e
  6444. tst.l d0
  6445. bmi.s L004564
  6446. move.w d0,-(sp)
  6447. DOS _SETDATE
  6448. addq.l #2,sp
  6449. tst.l d0
  6450. bmi.s L004564
  6451. L0045b6:
  6452. clr.l d0
  6453. unlk a6
  6454. rts
  6455. L0045bc:
  6456. link.w a6,#-$0118
  6457. cmpi.w #$0001,(L006ec4)
  6458. bhi.w L00465a
  6459. bne.s L004630
  6460. lea.l (-$0118,a6),a0
  6461. lea.l (L005b6a),a1
  6462. bsr.w L001c94
  6463. lea.l (L006fc9),a1
  6464. tst.b (a1)
  6465. beq.s L004630
  6466. bsr.w L001cb8
  6467. move.l a0,-(sp)
  6468. L0045ec:
  6469. move.b (a0)+,d0
  6470. beq.s L00460e
  6471. cmp.b #$20,d0 ;' '
  6472. beq.s L00460a
  6473. cmp.b #$09,d0
  6474. beq.s L00460a
  6475. cmp.b #$2f,d0 ;'/'
  6476. bne.s L0045ec
  6477. move.b #$5c,(-$0001,a0) ;'\'
  6478. bra.s L0045ec
  6479. L00460a:
  6480. clr.b (-$0001,a0)
  6481. L00460e:
  6482. movea.l (sp)+,a0
  6483. DOS _GETPDB
  6484. movea.l d0,a1
  6485. movea.l (a1),a1
  6486. bsr.w L001f2c
  6487. tst.l d0
  6488. bne.s L004676
  6489. lea.l (L005d01),a0
  6490. bsr.w L002044
  6491. move.l #$00000500,d0
  6492. bra.s L004678
  6493. L004630:
  6494. DOS _GETPDB
  6495. movea.l d0,a1
  6496. movea.l (a1),a1
  6497. lea.l (L005b6a),a0
  6498. bsr.w L001ef2
  6499. beq.s L00466c
  6500. tst.b (a0)
  6501. beq.s L00466c
  6502. pea.l (L005b6a)
  6503. DOS _PRINT
  6504. move.l a0,-(sp)
  6505. DOS _PRINT
  6506. addq.l #8,sp
  6507. bsr.w L001b4c
  6508. bra.s L004676
  6509. L00465a:
  6510. lea.l (L005eb5),a0
  6511. bsr.w L002044
  6512. move.l #$00000500,d0
  6513. bra.s L004678
  6514. L00466c:
  6515. pea.l (L0060d8)
  6516. DOS _PRINT
  6517. addq.l #4,sp
  6518. L004676:
  6519. clr.l d0
  6520. L004678:
  6521. unlk a6
  6522. rts
  6523. L00467c:
  6524. link.w a6,#-$0102
  6525. lea.l (L006fc9),a0
  6526. bsr.w L001d0e
  6527. adda.l d0,a0
  6528. tst.b (a0)
  6529. bne.s L0046cc
  6530. pea.l (L005bee)
  6531. DOS _PRINT
  6532. addq.l #4,sp
  6533. pea.l (L005be9)
  6534. DOS _PRINT
  6535. addq.l #4,sp
  6536. pea.l (L005bf5)
  6537. DOS _PRINT
  6538. addq.l #4,sp
  6539. DOS _GETTIM2
  6540. bsr.w L00250a
  6541. pea.l (L005c1b)
  6542. DOS _PRINT
  6543. addq.l #4,sp
  6544. lea.l (-$0102,a6),a0
  6545. move.b #$ff,(a0)+
  6546. clr.b (a0)+
  6547. clr.b (a0)
  6548. bra.s L0046fa
  6549. L0046cc:
  6550. lea.l (L006fc8),a1
  6551. lea.l (-$0102,a6),a0
  6552. move.b #$ff,(a0)+
  6553. move.b (a1)+,(a0)+
  6554. bsr.w L001c94
  6555. bra.s L004722
  6556. L0046e2:
  6557. bsr.w L001b4c
  6558. pea.l (L005be9)
  6559. DOS _PRINT
  6560. addq.l #4,sp
  6561. pea.l (L005c38)
  6562. DOS _PRINT
  6563. addq.l #4,sp
  6564. L0046fa:
  6565. pea.l (L005be9)
  6566. DOS _PRINT
  6567. addq.l #4,sp
  6568. pea.l (L005c23)
  6569. DOS _PRINT
  6570. addq.l #4,sp
  6571. pea.l (-$0102,a6)
  6572. DOS _GETS
  6573. addq.l #4,sp
  6574. bsr.w L001b4c
  6575. lea.l (-$0101,a6),a0
  6576. tst.b (a0)+
  6577. beq.s L004734
  6578. L004722:
  6579. bsr.w L00259a
  6580. tst.l d0
  6581. bmi.s L0046e2
  6582. move.l d0,-(sp)
  6583. DOS _SETTIM2
  6584. addq.l #4,sp
  6585. tst.l d0
  6586. bmi.s L0046e2
  6587. L004734:
  6588. clr.l d0
  6589. unlk a6
  6590. rts
  6591. L00473a:
  6592. link.w a6,#-$0118
  6593. cmpi.w #$0001,(L006ec4)
  6594. bhi.w L00484a
  6595. bne.w L004818
  6596. lea.l (-$0118,a6),a0
  6597. lea.l (L005b78),a1
  6598. bsr.w L001c94
  6599. lea.l (L006fc9),a1
  6600. tst.b (a1)
  6601. beq.w L004818
  6602. bsr.w L001cb8
  6603. movea.l a0,a2
  6604. L00476e:
  6605. move.b (a0)+,d0
  6606. beq.s L004790
  6607. cmp.b #$20,d0 ;' '
  6608. beq.s L00478c
  6609. cmp.b #$09,d0
  6610. beq.s L00478c
  6611. cmp.b #$2f,d0 ;'/'
  6612. bne.s L00476e
  6613. move.b #$5c,(-$0001,a0) ;'\'
  6614. bra.s L00476e
  6615. L00478c:
  6616. clr.b (-$0001,a0)
  6617. L004790:
  6618. movea.l a2,a0
  6619. clr.b d1
  6620. L004794:
  6621. move.b (a0)+,d0
  6622. beq.s L0047b4
  6623. cmp.b #$80,d0
  6624. bcs.s L0047b0
  6625. cmp.b #$a0,d0
  6626. bcs.s L0047aa
  6627. cmp.b #$e0,d0
  6628. bcs.s L0047b0
  6629. L0047aa:
  6630. move.b (a0)+,d0
  6631. beq.s L0047b4
  6632. bra.s L004794
  6633. L0047b0:
  6634. move.b d0,d1
  6635. bra.s L004794
  6636. L0047b4:
  6637. cmp.b #$5c,d1 ;'\'
  6638. beq.s L0047d8
  6639. movea.l a2,a0
  6640. bsr.w L001c86
  6641. cmp.b #$3a,d1 ;':'
  6642. beq.s L0047d0
  6643. adda.l d0,a0
  6644. move.b #$5c,(a0)+ ;'\'
  6645. clr.b (a0)
  6646. bra.s L0047d8
  6647. L0047d0:
  6648. cmp.l #$00000007,d0
  6649. bne.s L00484a
  6650. L0047d8:
  6651. movea.l a2,a0
  6652. cmpi.b #$3a,($0006,a0) ;':'
  6653. bne.s L0047f6
  6654. move.b ($0005,a0),d0
  6655. bsr.w L001d3a
  6656. sub.b #$41,d0 ;'A'
  6657. bsr.w L002754
  6658. tst.l d0
  6659. bmi.s L004842
  6660. L0047f6:
  6661. movea.l a2,a0
  6662. DOS _GETPDB
  6663. movea.l d0,a1
  6664. movea.l (a1),a1
  6665. bsr.w L001f2c
  6666. tst.l d0
  6667. bne.s L004866
  6668. lea.l (L005d01),a0
  6669. bsr.w L002044
  6670. move.l #$00000500,d0
  6671. bra.s L004868
  6672. L004818:
  6673. DOS _GETPDB
  6674. movea.l d0,a1
  6675. movea.l (a1),a1
  6676. lea.l (L005b78),a0
  6677. bsr.w L001ef2
  6678. beq.s L00485c
  6679. tst.b (a0)
  6680. beq.s L00485c
  6681. pea.l (L005b78)
  6682. DOS _PRINT
  6683. move.l a0,-(sp)
  6684. DOS _PRINT
  6685. addq.l #8,sp
  6686. bsr.w L001b4c
  6687. bra.s L004866
  6688. L004842:
  6689. lea.l (L005d9d),a0
  6690. bra.s L004850
  6691. L00484a:
  6692. lea.l (L005eb5),a0
  6693. L004850:
  6694. bsr.w L002044
  6695. move.l #$00000500,d0
  6696. bra.s L004868
  6697. L00485c:
  6698. pea.l (L0060ce)
  6699. DOS _PRINT
  6700. addq.l #4,sp
  6701. L004866:
  6702. clr.l d0
  6703. L004868:
  6704. unlk a6
  6705. rts
  6706. L00486c:
  6707. tst.b (L006eb1)
  6708. bne.s L00488a
  6709. bsr.w L0027e6
  6710. bsr.w L002d9e
  6711. move.l (L0064b6),d0
  6712. move.w d0,-(sp)
  6713. bsr.w L000572
  6714. DOS _EXIT2
  6715. L00488a:
  6716. lea.l (L0061f2),a0
  6717. bsr.w L002044
  6718. move.l #$00000500,d0
  6719. rts
  6720. L00489c:
  6721. link.w a6,#-$05ca
  6722. clr.w (-$05bc,a6)
  6723. clr.w (-$05c8,a6)
  6724. clr.w (-$05c2,a6)
  6725. clr.w (-$05c0,a6)
  6726. clr.l (-$05c6,a6)
  6727. move.w #$ffff,(-$05b4,a6)
  6728. lea.l (L0071e2),a0
  6729. L0048c0:
  6730. tst.b (a0)
  6731. beq.s L0048f8
  6732. bsr.w L001d4c
  6733. L0048c8:
  6734. move.b (a0)+,d0
  6735. beq.s L0048c0
  6736. cmp.b #$76,d0 ;'v'
  6737. beq.s L0048e8
  6738. cmp.b #$62,d0 ;'b'
  6739. beq.s L0048f0
  6740. cmp.b #$71,d0 ;'q'
  6741. bne.w L004cb6
  6742. move.b #-$01,(-$05bc,a6)
  6743. bra.s L0048c8
  6744. L0048e8:
  6745. move.b #-$01,(-$05c8,a6)
  6746. bra.s L0048c8
  6747. L0048f0:
  6748. move.b #-$01,(-$05c2,a6)
  6749. bra.s L0048c8
  6750. L0048f8:
  6751. tst.w (L006ec4)
  6752. beq.w L004cb6
  6753. cmpi.w #$0002,(L006ec4)
  6754. bhi.w L004cb6
  6755. lea.l (-$0118,a6),a0
  6756. lea.l (L0070ca),a1
  6757. bsr.w L001c94
  6758. movea.l a1,a0
  6759. bsr.w L001c86
  6760. adda.l d0,a1
  6761. addq.l #1,a1
  6762. lea.l (-$0230,a6),a0
  6763. bsr.w L001c94
  6764. lea.l (-$0118,a6),a1
  6765. lea.l (-$0366,a6),a0
  6766. L004936:
  6767. move.b (a1)+,d0
  6768. L004938:
  6769. move.b d0,(a0)+
  6770. beq.s L004968
  6771. cmp.b #$e0,d0
  6772. bcc.s L004962
  6773. cmp.b #$a0,d0
  6774. bcc.s L004936
  6775. cmp.b #$80,d0
  6776. bcc.s L004962
  6777. cmp.b #$2b,d0 ;'+'
  6778. bne.s L004936
  6779. clr.b (-$0001,a0)
  6780. L004958:
  6781. move.b (a1)+,d0
  6782. cmp.b #$2b,d0 ;'+'
  6783. beq.s L004958
  6784. bra.s L004938
  6785. L004962:
  6786. move.b (a1)+,d0
  6787. move.b d0,(a0)+
  6788. bne.s L004936
  6789. L004968:
  6790. clr.b (a0)
  6791. lea.l (-$0366,a6),a0
  6792. tst.b (a0)
  6793. beq.w L004cb6
  6794. bsr.w L001c86
  6795. adda.l d0,a0
  6796. addq.l #1,a0
  6797. tst.b (a0)
  6798. beq.s L004986
  6799. move.w #$ffff,(-$05c0,a6)
  6800. L004986:
  6801. lea.l (-$0366,a6),a5
  6802. L00498a:
  6803. lea.l (-$0118,a6),a0
  6804. movea.l a5,a1
  6805. bsr.w L001c94
  6806. movea.l a5,a0
  6807. bsr.w L001c86
  6808. adda.l d0,a0
  6809. addq.l #1,a0
  6810. movea.l a0,a5
  6811. lea.l (-$0118,a6),a0
  6812. bsr.w L002a50
  6813. move.w #$ffff,(-$05be,a6)
  6814. bsr.w L002bc8
  6815. tst.b d0
  6816. bne.s L0049be
  6817. clr.w (-$05bc,a6)
  6818. clr.w (-$05be,a6)
  6819. L0049be:
  6820. lea.l (-$0118,a6),a0
  6821. cmpi.b #$3a,($0001,a0) ;':'
  6822. bne.s L0049de
  6823. move.b (a0),d0
  6824. bsr.w L001d3a
  6825. sub.b #$41,d0 ;'A'
  6826. bsr.w L002754
  6827. tst.l d0
  6828. bmi.w L004cae
  6829. L0049de:
  6830. movea.l (L006eb6),a1
  6831. bsr.w L002be6
  6832. cmp.l #$ffffffff,d0
  6833. beq.w L004c92
  6834. cmp.w #$0578,d0
  6835. bls.s L004a02
  6836. lea.l (L00621b),a0
  6837. bsr.w L002044
  6838. L004a02:
  6839. movea.l (L006eb6),a1
  6840. L004a08:
  6841. tst.b (a1)
  6842. beq.s L004a1a
  6843. btst.b #$04,($0017,a1)
  6844. beq.s L004a32
  6845. lea.l ($0020,a1),a1
  6846. bra.s L004a08
  6847. L004a1a:
  6848. move.w #$003f,-(sp) ;'?'
  6849. pea.l (-$0118,a6)
  6850. pea.l (-$0596,a6)
  6851. DOS _FILES
  6852. lea.l ($000a,sp),sp
  6853. tst.l d0
  6854. bpl.w L004ca0
  6855. L004a32:
  6856. lea.l (-$0230,a6),a1
  6857. lea.l (-$0596,a6),a0
  6858. bsr.w L001c94
  6859. movea.l a0,a2
  6860. movea.l a1,a0
  6861. movea.l a2,a1
  6862. lea.l (-$0118,a6),a2
  6863. tst.b (a1)
  6864. beq.s L004a54
  6865. cmpi.b #$3a,($0001,a1) ;':'
  6866. beq.s L004a7a
  6867. L004a54:
  6868. cmpi.b #$3a,($0001,a2) ;':'
  6869. bne.s L004a8e
  6870. DOS _CURDRV
  6871. add.b #$41,d0 ;'A'
  6872. move.b d0,(a0)+
  6873. move.b ($0001,a2),(a0)+
  6874. bsr.w L001c94
  6875. subq.l #2,a0
  6876. movea.l a0,a2
  6877. movea.l a1,a0
  6878. movea.l a2,a1
  6879. bsr.w L001c94
  6880. bra.s L004a8e
  6881. L004a7a:
  6882. move.b (a1),d0
  6883. bsr.w L001d3a
  6884. sub.b #$41,d0 ;'A'
  6885. bsr.w L002754
  6886. tst.l d0
  6887. bmi.w L004cae
  6888. L004a8e:
  6889. lea.l (-$0230,a6),a0
  6890. bsr.w L002a50
  6891. bsr.w L0028f6
  6892. bsr.w L00293a
  6893. movea.l a0,a1
  6894. lea.l (-$024e,a6),a0
  6895. bsr.w L001c94
  6896. tst.w (-$05c0,a6)
  6897. bne.s L004ac2
  6898. tst.w (-$05be,a6)
  6899. beq.s L004ac2
  6900. bsr.w L002bc8
  6901. tst.b d0
  6902. bne.s L004ac2
  6903. move.w #$ffff,(-$05c0,a6)
  6904. L004ac2:
  6905. tst.w (-$05c8,a6)
  6906. beq.s L004ad6
  6907. DOS _VERIFYG
  6908. move.w d0,(-$05ca,a6)
  6909. move.w #$0001,-(sp)
  6910. DOS _VERIFY
  6911. addq.l #2,sp
  6912. L004ad6:
  6913. movea.l (L006eb6),a0
  6914. tst.b (a0)
  6915. bne.w L004b78
  6916. move.w #$0015,d0
  6917. L004ae6:
  6918. move.b #$20,(a0)+ ;' '
  6919. dbra.w d0,L004ae6
  6920. clr.b (a0)
  6921. lea.l (-$0118,a6),a0
  6922. bsr.w L0028f6
  6923. movea.l a0,a2
  6924. movea.l (L006eb6),a0
  6925. L004b00:
  6926. move.b (a2)+,d0
  6927. beq.s L004b20
  6928. cmp.b #$2e,d0 ;'.'
  6929. beq.s L004b0e
  6930. move.b d0,(a0)+
  6931. bra.s L004b00
  6932. L004b0e:
  6933. movea.l (L006eb6),a0
  6934. lea.l ($0013,a0),a0
  6935. L004b18:
  6936. move.b (a2)+,d0
  6937. beq.s L004b20
  6938. move.b d0,(a0)+
  6939. bra.s L004b18
  6940. L004b20:
  6941. movea.l (L006eb6),a0
  6942. move.b #$2e,($0012,a0) ;'.'
  6943. clr.w -(sp)
  6944. move.l a0,-(sp)
  6945. DOS _OPEN
  6946. addq.l #6,sp
  6947. tst.l d0
  6948. bmi.w L004ca0
  6949. move.w d0,-(sp)
  6950. DOS _CLOSE
  6951. addq.l #2,sp
  6952. move.l a0,-(sp)
  6953. lea.l (-$0118,a6),a0
  6954. bsr.w L0028f6
  6955. movea.l a1,a2
  6956. movea.l (sp)+,a1
  6957. bsr.w L001c94
  6958. movea.l a1,a0
  6959. movea.l a2,a1
  6960. lea.l (-$024e,a6),a2
  6961. bsr.w L0029c4
  6962. pea.l (-$0118,a6)
  6963. DOS _PRINT
  6964. addq.l #4,sp
  6965. bsr.w L001b4c
  6966. bsr.w L004d24
  6967. tst.l d0
  6968. bne.w L004c8c
  6969. bra.w L004c82
  6970. L004b78:
  6971. tst.b (a0)
  6972. beq.w L004c82
  6973. btst.b #$04,($0017,a0)
  6974. bne.w L004c7a
  6975. cmpi.b #$20,($0013,a0) ;' '
  6976. beq.s L004b96
  6977. move.b #$2e,($0012,a0) ;'.'
  6978. L004b96:
  6979. move.l a0,-(sp)
  6980. lea.l (-$0118,a6),a0
  6981. bsr.w L0028f6
  6982. movea.l a1,a2
  6983. movea.l (sp)+,a1
  6984. bsr.w L001c94
  6985. movea.l a1,a0
  6986. movea.l a2,a1
  6987. lea.l (-$024e,a6),a2
  6988. bsr.w L0029c4
  6989. movem.l a0-a1,-(sp)
  6990. lea.l (-$0118,a6),a1
  6991. lea.l (-$047e,a6),a0
  6992. bsr.w L001c94
  6993. bsr.w L001df0
  6994. lea.l (-$0230,a6),a1
  6995. lea.l (-$0596,a6),a0
  6996. bsr.w L001c94
  6997. bsr.w L001df0
  6998. move.w #$000a,-(sp)
  6999. lea.l (-$05b2,a6),a1
  7000. move.l a1,-(sp)
  7001. bset.b #$07,(sp)
  7002. move.l a0,-(sp)
  7003. DOS _FATCHK
  7004. lea.l ($000a,sp),sp
  7005. cmp.l #$fffffff2,d0
  7006. beq.s L004bfa
  7007. tst.l d0
  7008. bmi.s L004c3a
  7009. L004bfa:
  7010. move.w #$000a,-(sp)
  7011. lea.l (-$05a4,a6),a0
  7012. move.l a0,-(sp)
  7013. bset.b #$07,(sp)
  7014. pea.l (-$047e,a6)
  7015. DOS _FATCHK
  7016. lea.l ($000a,sp),sp
  7017. cmp.l #$fffffff2,d0
  7018. beq.s L004c1e
  7019. tst.l d0
  7020. bmi.s L004c3a
  7021. L004c1e:
  7022. cmpm.w (a0)+,(a1)+
  7023. bne.s L004c3a
  7024. cmpm.l (a0)+,(a1)+
  7025. bne.s L004c3a
  7026. movem.l (sp)+,a0-a1
  7027. pea.l (-$0118,a6)
  7028. DOS _PRINT
  7029. addq.l #4,sp
  7030. bsr.w L001b4c
  7031. bra.w L004cbe
  7032. L004c3a:
  7033. movem.l (sp)+,a0-a1
  7034. tst.w (-$05bc,a6)
  7035. bne.s L004c52
  7036. pea.l (-$0118,a6)
  7037. DOS _PRINT
  7038. addq.l #4,sp
  7039. bsr.w L001b4c
  7040. bra.s L004c72
  7041. L004c52:
  7042. pea.l (-$0118,a6)
  7043. DOS _PRINT
  7044. addq.l #4,sp
  7045. move.l a0,-(sp)
  7046. lea.l (L006361),a0
  7047. bsr.w L002148
  7048. movea.l (sp)+,a0
  7049. bsr.w L001b4c
  7050. tst.w d1
  7051. beq.s L004c7a
  7052. bpl.s L004c52
  7053. L004c72:
  7054. bsr.w L004d24
  7055. tst.l d0
  7056. bne.s L004c8c
  7057. L004c7a:
  7058. lea.l ($0020,a0),a0
  7059. bra.w L004b78
  7060. L004c82:
  7061. tst.b (a5)
  7062. bne.w L00498a
  7063. clr.l d0
  7064. bra.s L004cce
  7065. L004c8c:
  7066. bsr.w L00047a
  7067. bra.s L004cce
  7068. L004c92:
  7069. move.l #$00000508,d0
  7070. lea.l (L006130),a0
  7071. bra.s L004cca
  7072. L004ca0:
  7073. move.l #$00000503,d0
  7074. lea.l (L005f51),a0
  7075. bra.s L004cca
  7076. L004cae:
  7077. lea.l (L005d9d),a0
  7078. bra.s L004cc4
  7079. L004cb6:
  7080. lea.l (L005eb5),a0
  7081. bra.s L004cc4
  7082. L004cbe:
  7083. lea.l (L005e03),a0
  7084. L004cc4:
  7085. move.l #$00000500,d0
  7086. L004cca:
  7087. bsr.w L002044
  7088. L004cce:
  7089. move.l d0,-(sp)
  7090. tst.w (-$05c0,a6)
  7091. beq.s L004ce6
  7092. move.w (-$05b4,a6),d0
  7093. bmi.s L004ce6
  7094. addq.l #1,(-$05c6,a6)
  7095. move.w d0,-(sp)
  7096. DOS _CLOSE
  7097. addq.l #2,sp
  7098. L004ce6:
  7099. move.l (-$05c6,a6),d0
  7100. beq.s L004d06
  7101. lea.l (-$024e,a6),a0
  7102. bsr.w L001b62
  7103. move.l a0,-(sp)
  7104. DOS _PRINT
  7105. addq.l #4,sp
  7106. pea.l (L0063c8)
  7107. DOS _PRINT
  7108. addq.l #4,sp
  7109. bra.s L004d10
  7110. L004d06:
  7111. pea.l (L0063ad)
  7112. DOS _PRINT
  7113. addq.l #4,sp
  7114. L004d10:
  7115. tst.w (-$05c8,a6)
  7116. beq.s L004d1e
  7117. move.w (-$05ca,a6),-(sp)
  7118. DOS _VERIFY
  7119. addq.l #2,sp
  7120. L004d1e:
  7121. move.l (sp)+,d0
  7122. unlk a6
  7123. rts
  7124. L004d24:
  7125. movem.l d1-d4/a0,-(sp)
  7126. move.w #$ffff,(-$05b6,a6)
  7127. tst.w (-$05c0,a6)
  7128. bne.s L004d3a
  7129. move.w #$ffff,(-$05b4,a6)
  7130. L004d3a:
  7131. move.l (L006eba),-(sp)
  7132. DOS _MFREE
  7133. addq.l #4,sp
  7134. tst.l d0
  7135. bmi.w L004f8a
  7136. move.l #$00ffffff,-(sp)
  7137. DOS _MALLOC
  7138. addq.l #4,sp
  7139. sub.l #$81000000,d0
  7140. move.l d0,d1
  7141. move.l d0,-(sp)
  7142. DOS _MALLOC
  7143. addq.l #4,sp
  7144. move.l d0,(L006eba)
  7145. tst.l d0
  7146. bmi.w L004f8a
  7147. move.l d1,(-$05ba,a6)
  7148. move.w #$0000,-(sp)
  7149. pea.l (-$0118,a6)
  7150. DOS _OPEN
  7151. addq.l #6,sp
  7152. tst.l d0
  7153. bmi.w L004f8a
  7154. move.w d0,(-$05b6,a6)
  7155. tst.w (-$05b4,a6)
  7156. bpl.s L004dd2
  7157. tst.w (-$05c0,a6)
  7158. bne.s L004da4
  7159. move.w #$ffff,-(sp)
  7160. pea.l (-$0118,a6)
  7161. DOS _CHMOD
  7162. addq.l #6,sp
  7163. tst.l d0
  7164. bpl.s L004da8
  7165. L004da4:
  7166. move.w #$0020,d0 ;' '
  7167. L004da8:
  7168. move.w d0,-(sp)
  7169. pea.l (-$0230,a6)
  7170. DOS _CREATE
  7171. addq.l #6,sp
  7172. tst.l d0
  7173. bpl.s L004dce
  7174. move.l d0,d1
  7175. move.w #$0001,-(sp)
  7176. pea.l (-$0230,a6)
  7177. DOS _OPEN
  7178. addq.l #6,sp
  7179. tst.l d0
  7180. bpl.s L004dce
  7181. move.l d1,d0
  7182. bra.w L004f8a
  7183. L004dce:
  7184. move.w d0,(-$05b4,a6)
  7185. L004dd2:
  7186. clr.b d2
  7187. clr.b d3
  7188. clr.b d4
  7189. move.w (-$05b4,a6),-(sp)
  7190. clr.w -(sp)
  7191. DOS _IOCTRL
  7192. addq.l #4,sp
  7193. btst.l #$07,d0
  7194. beq.s L004dfc
  7195. move.b #-$01,d4
  7196. btst.l #$05,d0
  7197. bne.s L004dfc
  7198. btst.l #$01,d0
  7199. beq.s L004dfc
  7200. move.b #-$01,d3
  7201. L004dfc:
  7202. move.w (-$05b6,a6),-(sp)
  7203. clr.w -(sp)
  7204. DOS _IOCTRL
  7205. addq.l #4,sp
  7206. btst.l #$07,d0
  7207. beq.s L004e1e
  7208. btst.l #$02,d0
  7209. bne.w L004ebe
  7210. btst.l #$05,d0
  7211. bne.s L004e1e
  7212. move.b #-$01,d2
  7213. L004e1e:
  7214. move.l (-$05ba,a6),-(sp)
  7215. move.l (L006eba),-(sp)
  7216. move.w (-$05b6,a6),-(sp)
  7217. DOS _READ
  7218. lea.l ($000a,sp),sp
  7219. tst.l d0
  7220. bmi.w L004f8a
  7221. beq.w L004ebe
  7222. move.l d0,d1
  7223. tst.b d2
  7224. beq.s L004e5a
  7225. movea.l (L006eba),a0
  7226. lea.l (-$01,a0,d1.l),a0
  7227. cmpi.b #$1a,(a0)
  7228. bne.s L004e5a
  7229. tst.b d3
  7230. beq.s L004e9c
  7231. subq.l #1,d1
  7232. bra.s L004e9c
  7233. L004e5a:
  7234. tst.b d3
  7235. beq.s L004e7a
  7236. movea.l (L006eba),a0
  7237. clr.l d0
  7238. L004e66:
  7239. tst.l d1
  7240. beq.s L004e76
  7241. cmpi.b #$1a,(a0)+
  7242. beq.s L004e9a
  7243. addq.l #1,d0
  7244. subq.l #1,d1
  7245. bra.s L004e66
  7246. L004e76:
  7247. move.l d0,d1
  7248. beq.s L004ebe
  7249. L004e7a:
  7250. move.l d1,-(sp)
  7251. move.l (L006eba),-(sp)
  7252. move.w (-$05b4,a6),-(sp)
  7253. DOS _WRITE
  7254. lea.l ($000a,sp),sp
  7255. tst.l d0
  7256. bmi.w L004f8a
  7257. cmp.l d1,d0
  7258. blt.w L004f64
  7259. bra.s L004e1e
  7260. L004e9a:
  7261. move.l d0,d1
  7262. L004e9c:
  7263. tst.l d1
  7264. beq.s L004ebe
  7265. move.l d1,-(sp)
  7266. move.l (L006eba),-(sp)
  7267. move.w (-$05b4,a6),-(sp)
  7268. DOS _WRITE
  7269. lea.l ($000a,sp),sp
  7270. tst.l d0
  7271. bmi.w L004f8a
  7272. cmp.l d1,d0
  7273. blt.w L004f64
  7274. L004ebe:
  7275. tst.b d4
  7276. bne.s L004f16
  7277. tst.w (-$05c0,a6)
  7278. beq.s L004f16
  7279. tst.w (-$05c2,a6)
  7280. bne.s L004f16
  7281. L004ece:
  7282. move.w #$0001,-(sp)
  7283. move.l #$ffffffff,-(sp)
  7284. move.w (-$05b4,a6),-(sp)
  7285. DOS _SEEK
  7286. addq.l #8,sp
  7287. tst.l d0
  7288. bmi.s L004f16
  7289. movea.l (L006eba),a0
  7290. move.l #$00000001,-(sp)
  7291. move.l a0,-(sp)
  7292. move.w (-$05b4,a6),-(sp)
  7293. DOS _READ
  7294. lea.l ($000a,sp),sp
  7295. cmpi.b #$1a,(a0)
  7296. bne.s L004f16
  7297. move.w #$0001,-(sp)
  7298. move.l #$ffffffff,-(sp)
  7299. move.w (-$05b4,a6),-(sp)
  7300. DOS _SEEK
  7301. addq.l #8,sp
  7302. bra.s L004ece
  7303. L004f16:
  7304. move.w (-$05b4,a6),-(sp)
  7305. clr.w -(sp)
  7306. DOS _IOCTRL
  7307. addq.l #4,sp
  7308. btst.l #$07,d0
  7309. bne.s L004f60
  7310. move.w (-$05b6,a6),-(sp)
  7311. clr.w -(sp)
  7312. DOS _IOCTRL
  7313. addq.l #4,sp
  7314. btst.l #$07,d0
  7315. bne.s L004f60
  7316. clr.l -(sp)
  7317. move.w (-$05b6,a6),-(sp)
  7318. DOS _FILEDATE
  7319. addq.l #6,sp
  7320. cmp.l #$ffff0000,d0
  7321. bcc.s L004f8a
  7322. tst.w (-$05c0,a6)
  7323. bne.s L004f60
  7324. move.l d0,-(sp)
  7325. move.w (-$05b4,a6),-(sp)
  7326. DOS _FILEDATE
  7327. addq.l #6,sp
  7328. cmp.l #$ffff0000,d0
  7329. bcc.s L004f8a
  7330. L004f60:
  7331. clr.l d0
  7332. bra.s L004f8e
  7333. L004f64:
  7334. move.w (-$05b4,a6),-(sp)
  7335. DOS _CLOSE
  7336. addq.l #2,sp
  7337. tst.l d0
  7338. bmi.s L004f8a
  7339. pea.l (-$0230,a6)
  7340. DOS _DELETE
  7341. addq.l #4,sp
  7342. tst.l d0
  7343. bmi.s L004f8a
  7344. move.w #$ffff,(-$05b4,a6)
  7345. move.l #$00000505,d0
  7346. bra.s L004f8e
  7347. L004f8a:
  7348. bsr.w L002ccc
  7349. L004f8e:
  7350. move.l d0,-(sp)
  7351. move.l (L006eba),d0
  7352. bmi.s L004f9e
  7353. move.l d0,-(sp)
  7354. DOS _MFREE
  7355. addq.l #4,sp
  7356. L004f9e:
  7357. move.l #$00000400,-(sp)
  7358. bsr.w L002e1c
  7359. addq.l #4,sp
  7360. move.l d0,(L006eba)
  7361. move.w (-$05b6,a6),d0
  7362. bmi.s L004fbc
  7363. move.w d0,-(sp)
  7364. DOS _CLOSE
  7365. addq.l #2,sp
  7366. L004fbc:
  7367. tst.w (-$05c0,a6)
  7368. bne.s L004fd8
  7369. move.w (-$05b4,a6),d0
  7370. bmi.s L004fd8
  7371. move.w d0,-(sp)
  7372. addq.l #1,(-$05c6,a6)
  7373. DOS _CLOSE
  7374. addq.l #2,sp
  7375. move.w #$ffff,(-$05b4,a6)
  7376. L004fd8:
  7377. move.l (sp)+,d0
  7378. movem.l (sp)+,d1-d4/a0
  7379. rts
  7380. L004fe0:
  7381. link.w a6,#-$015a
  7382. tst.w (L006ec4)
  7383. beq.w L00520c
  7384. move.l #$00000400,(-$0006,a6)
  7385. clr.w (-$0002,a6)
  7386. cmpi.w #$0001,(L006ec4)
  7387. beq.s L00500a
  7388. move.w #$ffff,(-$0002,a6)
  7389. L00500a:
  7390. lea.l (L0070ca),a1
  7391. tst.b (a1)
  7392. beq.w L0051f8
  7393. lea.l (-$015a,a6),a0
  7394. bsr.w L001c94
  7395. lea.l (L0070ca),a0
  7396. move.w #$0001,d0
  7397. bsr.w L00209e
  7398. movea.l a0,a1
  7399. lea.l (L0070ca),a0
  7400. bsr.w L00207e
  7401. lea.l (-$015a,a6),a0
  7402. cmpi.b #$3a,($0001,a0) ;':'
  7403. bne.s L005058
  7404. move.b (a0),d0
  7405. bsr.w L001d3a
  7406. sub.b #$41,d0 ;'A'
  7407. bsr.w L002754
  7408. tst.l d0
  7409. bmi.w L00521a
  7410. L005058:
  7411. bsr.w L002a50
  7412. movea.l (L006eb6),a1
  7413. bsr.w L002be6
  7414. cmp.l #$ffffffff,d0
  7415. beq.w L005228
  7416. cmp.w #$0578,d0
  7417. bls.s L005080
  7418. lea.l (L00621b),a0
  7419. bsr.w L002044
  7420. L005080:
  7421. tst.w (-$0002,a6)
  7422. bne.s L005098
  7423. lea.l (-$015a,a6),a0
  7424. bsr.w L002bc8
  7425. tst.b d0
  7426. beq.s L005098
  7427. move.w #$ffff,(-$0002,a6)
  7428. L005098:
  7429. clr.b d4
  7430. movea.l (L006eb6),a2
  7431. tst.b (a2)
  7432. beq.s L0050c6
  7433. L0050a4:
  7434. tst.b (a2)
  7435. beq.w L0051f0
  7436. move.b ($0017,a2),d0
  7437. and.b #$1e,d0
  7438. bne.w L0051e6
  7439. cmpi.b #$20,($0013,a2) ;' '
  7440. beq.s L00512e
  7441. move.b #$2e,($0012,a2) ;'.'
  7442. bra.s L00512e
  7443. L0050c6:
  7444. move.w #$003f,-(sp) ;'?'
  7445. pea.l (-$015a,a6)
  7446. pea.l (-$0042,a6)
  7447. DOS _FILES
  7448. lea.l ($000a,sp),sp
  7449. tst.l d0
  7450. bpl.w L0051f0
  7451. clr.b ($0020,a2)
  7452. move.w #$0015,d0
  7453. L0050e6:
  7454. move.b #$20,(a2)+ ;' '
  7455. dbra.w d0,L0050e6
  7456. clr.b (a2)
  7457. lea.l (-$015a,a6),a0
  7458. bsr.w L0028f6
  7459. movea.l a0,a3
  7460. movea.l (L006eb6),a0
  7461. L005100:
  7462. move.b (a3)+,d0
  7463. beq.s L005122
  7464. cmp.b #$2e,d0 ;'.'
  7465. beq.s L00510e
  7466. move.b d0,(a0)+
  7467. bra.s L005100
  7468. L00510e:
  7469. movea.l (L006eb6),a0
  7470. adda.l #$00000013,a0
  7471. L00511a:
  7472. move.b (a3)+,d0
  7473. beq.s L005122
  7474. move.b d0,(a0)+
  7475. bra.s L00511a
  7476. L005122:
  7477. movea.l (L006eb6),a2
  7478. move.b #$2e,($0012,a2) ;'.'
  7479. L00512e:
  7480. lea.l (-$015a,a6),a0
  7481. bsr.w L0028f6
  7482. movea.l a2,a1
  7483. bsr.w L001c94
  7484. tst.w (-$0002,a6)
  7485. beq.s L005154
  7486. lea.l (-$015a,a6),a0
  7487. bsr.w L002044
  7488. lea.l (L005bcf),a0
  7489. bsr.w L002044
  7490. L005154:
  7491. move.b #-$01,d4
  7492. clr.w -(sp)
  7493. pea.l (-$015a,a6)
  7494. DOS _OPEN
  7495. addq.l #6,sp
  7496. tst.l d0
  7497. bmi.w L005236
  7498. move.w d0,d1
  7499. movea.l (L006eba),a0
  7500. L005170:
  7501. move.l (-$0006,a6),-(sp)
  7502. move.l a0,-(sp)
  7503. move.w d1,-(sp)
  7504. DOS _READ
  7505. lea.l ($000a,sp),sp
  7506. tst.l d0
  7507. bmi.s L0051d6
  7508. beq.s L0051d6
  7509. clr.l d3
  7510. move.l d0,d2
  7511. movea.l a0,a1
  7512. subq.l #1,d2
  7513. swap.w d2
  7514. L00518e:
  7515. swap.w d2
  7516. L005190:
  7517. cmpi.b #$1a,(a1)+
  7518. beq.s L0051bc
  7519. addq.l #1,d3
  7520. dbra.w d2,L005190
  7521. swap.w d2
  7522. dbra.w d2,L00518e
  7523. move.l d3,-(sp)
  7524. move.l a0,-(sp)
  7525. move.w #$0001,-(sp)
  7526. DOS _WRITE
  7527. lea.l ($000a,sp),sp
  7528. tst.l d0
  7529. bmi.w L005248
  7530. cmp.l d3,d0
  7531. blt.s L0051fe
  7532. bra.s L005170
  7533. L0051bc:
  7534. tst.l d3
  7535. beq.s L0051d6
  7536. move.l d3,-(sp)
  7537. move.l a0,-(sp)
  7538. move.w #$0001,-(sp)
  7539. DOS _WRITE
  7540. lea.l ($000a,sp),sp
  7541. tst.l d0
  7542. bmi.s L005248
  7543. cmp.l d3,d0
  7544. blt.s L0051fe
  7545. L0051d6:
  7546. move.w d1,-(sp)
  7547. DOS _CLOSE
  7548. addq.l #2,sp
  7549. lea.l (L005bcf),a0
  7550. bsr.w L002044
  7551. L0051e6:
  7552. adda.l #$00000020,a2
  7553. bra.w L0050a4
  7554. L0051f0:
  7555. tst.b d4
  7556. beq.s L005236
  7557. bra.w L00500a
  7558. L0051f8:
  7559. clr.l d0
  7560. L0051fa:
  7561. unlk a6
  7562. rts
  7563. L0051fe:
  7564. lea.l (L005ecc),a0
  7565. move.l #$00000505,d0
  7566. bra.s L005242
  7567. L00520c:
  7568. lea.l (L005eb5),a0
  7569. move.l #$00000500,d0
  7570. bra.s L005242
  7571. L00521a:
  7572. lea.l (L005d9d),a0
  7573. move.l #$00000500,d0
  7574. bra.s L005242
  7575. L005228:
  7576. move.l #$00000508,d0
  7577. lea.l (L006130),a0
  7578. bra.s L005242
  7579. L005236:
  7580. lea.l (L005fb1),a0
  7581. move.l #$00000503,d0
  7582. L005242:
  7583. bsr.w L002044
  7584. bra.s L0051fa
  7585. L005248:
  7586. bsr.w L002ccc
  7587. bsr.w L00047a
  7588. bra.s L0051fa
  7589. L005252:
  7590. link.w a6,#-$0118
  7591. cmpi.w #$0001,(L006ec4)
  7592. bne.s L0052d4
  7593. lea.l (L0070ca),a1
  7594. lea.l (-$0118,a6),a0
  7595. bsr.w L001c94
  7596. bsr.w L001d4c
  7597. lea.l (L005b51),a1
  7598. bsr.w L001ccc
  7599. tst.l d0
  7600. beq.s L0052b0
  7601. lea.l (L005b55),a1
  7602. bsr.w L001ccc
  7603. tst.l d0
  7604. bne.s L0052e6
  7605. clr.w -(sp)
  7606. move.w #$0003,-(sp)
  7607. DOS _DUP0
  7608. move.w #$0001,-(sp)
  7609. move.w #$0003,-(sp)
  7610. DOS _DUP0
  7611. move.w #$0002,-(sp)
  7612. move.w #$0003,-(sp)
  7613. DOS _DUP0
  7614. lea.l ($000c,sp),sp
  7615. bra.s L0052ce
  7616. L0052b0:
  7617. clr.w -(sp)
  7618. clr.w -(sp)
  7619. DOS _DUP0
  7620. move.w #$0001,-(sp)
  7621. move.w #$0001,-(sp)
  7622. DOS _DUP0
  7623. move.w #$0002,-(sp)
  7624. move.w #$0002,-(sp)
  7625. DOS _DUP0
  7626. lea.l ($000c,sp),sp
  7627. L0052ce:
  7628. clr.l d0
  7629. L0052d0:
  7630. unlk a6
  7631. rts
  7632. L0052d4:
  7633. lea.l (L005eb5),a0
  7634. bsr.w L002044
  7635. move.l #$00000500,d0
  7636. bra.s L0052d0
  7637. L0052e6:
  7638. lea.l (L005db4),a0
  7639. bsr.w L002044
  7640. move.l #$00000500,d0
  7641. bra.s L0052d0
  7642. L0052f8:
  7643. tst.w (L006ec4)
  7644. beq.s L005356
  7645. cmpi.w #$0001,(L006ec4)
  7646. bne.w L00539a
  7647. lea.l (L0070ca),a0
  7648. bsr.w L001d4c
  7649. lea.l (L005b52),a1
  7650. move.w #$0001,d1
  7651. bsr.w L001ccc
  7652. tst.l d0
  7653. beq.s L00534a
  7654. lea.l (L005b4d),a1
  7655. L00532e:
  7656. clr.w d1
  7657. L005330:
  7658. bsr.w L001ccc
  7659. tst.l d0
  7660. beq.s L00534a
  7661. lea.l (L005b48),a1
  7662. move.w #$0002,d1
  7663. bsr.w L001ccc
  7664. tst.l d0
  7665. bne.s L00539a
  7666. L00534a:
  7667. move.w d1,-(sp)
  7668. DOS _BREAKCK
  7669. addq.l #2,sp
  7670. tst.l d0
  7671. bmi.s L00539a
  7672. bra.s L005396
  7673. L005356:
  7674. pea.l (L005c03)
  7675. DOS _PRINT
  7676. addq.l #4,sp
  7677. move.w #$ffff,-(sp)
  7678. DOS _BREAKCK
  7679. addq.l #2,sp
  7680. lea.l (L005b4d),a0
  7681. tst.l d0
  7682. beq.s L005386
  7683. lea.l (L005b52),a0
  7684. cmp.l #$00000001,d0
  7685. beq.s L005386
  7686. lea.l (L005b48),a0
  7687. L005386:
  7688. move.l a0,-(sp)
  7689. DOS _PRINT
  7690. addq.l #4,sp
  7691. pea.l (L005c1a)
  7692. DOS _PRINT
  7693. addq.l #4,sp
  7694. L005396:
  7695. clr.l d0
  7696. rts
  7697. L00539a:
  7698. lea.l (L005eb5),a0
  7699. bsr.w L002044
  7700. move.l #$00000500,d0
  7701. rts
  7702. L0053ac:
  7703. link.w a6,#-$0118
  7704. lea.l (-$0118,a6),a0
  7705. lea.l (L005b70),a1
  7706. bsr.w L001c94
  7707. lea.l (L006fc9),a1
  7708. bsr.w L001cb8
  7709. DOS _GETPDB
  7710. movea.l d0,a1
  7711. movea.l (a1),a1
  7712. bsr.w L001f2c
  7713. tst.l d0
  7714. bne.s L0053e8
  7715. lea.l (L005d01),a0
  7716. bsr.w L002044
  7717. move.l #$00000500,d0
  7718. bra.s L0053ea
  7719. L0053e8:
  7720. clr.l d0
  7721. L0053ea:
  7722. unlk a6
  7723. rts
  7724. L0053ee:
  7725. link.w a6,#-$000c
  7726. clr.l d1
  7727. clr.l d2
  7728. bsr.w L0004a2
  7729. clr.l -(sp)
  7730. L0053fc:
  7731. move.l #$00ffffff,-(sp)
  7732. DOS _MALLOC
  7733. addq.l #4,sp
  7734. sub.l #$81000000,d0
  7735. cmp.l #$01000000,d0
  7736. bcc.s L00542c
  7737. move.l d0,d3
  7738. move.l d0,-(sp)
  7739. DOS _MALLOC
  7740. addq.l #4,sp
  7741. tst.l d0
  7742. bmi.s L0053fc
  7743. add.l d3,d1
  7744. cmp.l d3,d2
  7745. bcc.s L005428
  7746. move.l d3,d2
  7747. L005428:
  7748. move.l d0,-(sp)
  7749. bra.s L0053fc
  7750. L00542c:
  7751. clr.l d3
  7752. L00542e:
  7753. move.l (sp)+,d0
  7754. beq.s L005440
  7755. move.l d0,-(sp)
  7756. DOS _MFREE
  7757. addq.l #4,sp
  7758. tst.l d0
  7759. bpl.s L00542e
  7760. moveq.l #$ff,d3
  7761. bra.s L00542e
  7762. L005440:
  7763. tst.l d3
  7764. bne.s L005486
  7765. move.l d2,d0
  7766. lea.l (-$000c,a6),a0
  7767. bsr.w L001b62
  7768. pea.l (a0)
  7769. DOS _PRINT
  7770. addq.l #4,sp
  7771. pea.l (L006254)
  7772. DOS _PRINT
  7773. addq.l #4,sp
  7774. cmp.l d1,d2
  7775. beq.s L00547c
  7776. move.l d1,d0
  7777. lea.l (-$000c,a6),a0
  7778. bsr.w L001b62
  7779. pea.l (a0)
  7780. DOS _PRINT
  7781. addq.l #4,sp
  7782. pea.l (L006271)
  7783. DOS _PRINT
  7784. addq.l #4,sp
  7785. L00547c:
  7786. bsr.w L0004ee
  7787. clr.l d0
  7788. unlk a6
  7789. rts
  7790. L005486:
  7791. pea.l (L005ca8)
  7792. DOS _PRINT
  7793. addq.l #4,sp
  7794. bra.s L00547c
  7795. L005492:
  7796. link.w a6,#-$0118
  7797. moveq.l #$ff,d3
  7798. move.l d3,d4
  7799. move.l d3,d5
  7800. lea.l (L0070ca),a1
  7801. lea.l (-$0118,a6),a0
  7802. L0054a6:
  7803. move.b (a1),d0
  7804. beq.s L0054cc
  7805. L0054aa:
  7806. move.b (a1)+,(a0)+
  7807. bne.s L0054aa
  7808. cmpi.b #$2c,(-$0002,a1) ;','
  7809. beq.s L0054c8
  7810. tst.b (a1)
  7811. beq.s L0054cc
  7812. cmpi.b #$2c,(a1) ;','
  7813. beq.s L0054c8
  7814. move.b #$2c,(-$0001,a0) ;','
  7815. bra.s L0054a6
  7816. L0054c8:
  7817. subq.l #1,a0
  7818. bra.s L0054a6
  7819. L0054cc:
  7820. clr.b (a0)
  7821. lea.l (-$0118,a6),a0
  7822. tst.b (a0)
  7823. beq.w L005678
  7824. cmpi.b #$2c,(a0)+ ;','
  7825. beq.s L00550e
  7826. subq.l #1,a0
  7827. bsr.w L001bea
  7828. bsr.w L0027c8
  7829. cmp.l #$00000001,d1
  7830. bne.w L0056a6
  7831. cmp.l #$00000001,d0
  7832. bhi.w L0056a6
  7833. move.l d0,d3
  7834. tst.b (-$0001,a0)
  7835. beq.s L005572
  7836. cmpi.b #$2c,(-$0001,a0) ;','
  7837. bne.w L0056a6
  7838. L00550e:
  7839. tst.b (a0)
  7840. beq.s L005572
  7841. cmpi.b #$2c,(a0)+ ;','
  7842. beq.s L005548
  7843. subq.l #1,a0
  7844. bsr.w L001bea
  7845. bsr.w L0027c8
  7846. cmp.l #$00000001,d1
  7847. bne.w L0056a6
  7848. cmp.l #$00000003,d0
  7849. bhi.w L0056a6
  7850. move.l d0,d4
  7851. tst.b (-$0001,a0)
  7852. beq.s L005572
  7853. cmpi.b #$2c,(-$0001,a0) ;','
  7854. bne.w L0056a6
  7855. L005548:
  7856. tst.b (a0)
  7857. beq.s L005572
  7858. bsr.w L001bea
  7859. bsr.w L0027c8
  7860. cmp.l #$00000001,d1
  7861. bne.w L0056a6
  7862. cmp.l #$00000003,d0
  7863. bhi.w L0056a6
  7864. move.l d0,d5
  7865. tst.b (-$0001,a0)
  7866. bne.w L0056a6
  7867. L005572:
  7868. move.w #$ffff,d1
  7869. cmp.l #$ffffffff,d3
  7870. beq.s L0055ac
  7871. cmp.l #$ffffffff,d4
  7872. bne.s L0055d4
  7873. move.w #$ffff,-(sp)
  7874. move.w #$0010,-(sp)
  7875. DOS _CONCTRL
  7876. addq.l #4,sp
  7877. move.l d0,d4
  7878. cmp.l #$00000002,d4
  7879. bcs.s L0055d4
  7880. tst.l d3
  7881. beq.s L0055a4
  7882. subq.l #2,d4
  7883. bra.s L0055d4
  7884. L0055a4:
  7885. subq.l #2,d4
  7886. beq.s L0055d4
  7887. moveq.l #$01,d4
  7888. bra.s L0055d4
  7889. L0055ac:
  7890. cmp.l #$ffffffff,d4
  7891. beq.s L0055ec
  7892. move.w #$ffff,-(sp)
  7893. move.w #$0010,-(sp)
  7894. DOS _CONCTRL
  7895. addq.l #4,sp
  7896. moveq.l #$01,d3
  7897. cmp.b #$02,d0
  7898. bcc.s L0055d4
  7899. clr.l d3
  7900. cmp.l #$00000001,d4
  7901. bhi.w L0056a6
  7902. L0055d4:
  7903. move.w #$0002,d1
  7904. tst.l d3
  7905. bne.s L0055ea
  7906. clr.w d1
  7907. cmp.l #$00000001,d4
  7908. bhi.w L0056a6
  7909. moveq.l #$01,d4
  7910. L0055ea:
  7911. add.w d4,d1
  7912. L0055ec:
  7913. cmp.w #$ffff,d5
  7914. beq.s L00562e
  7915. cmp.w #$ffff,d1
  7916. beq.s L005616
  7917. cmp.w #$0001,d1
  7918. beq.s L00562e
  7919. cmp.w #$0002,d1
  7920. bhi.s L00562e
  7921. L005604:
  7922. cmp.w #$0001,d5
  7923. beq.w L0056a6
  7924. cmp.w #$0003,d5
  7925. beq.w L0056a6
  7926. bra.s L00562e
  7927. L005616:
  7928. move.w #$ffff,-(sp)
  7929. move.w #$0010,-(sp)
  7930. DOS _CONCTRL
  7931. addq.l #4,sp
  7932. cmp.w #$0001,d0
  7933. beq.s L00562e
  7934. cmp.w #$0003,d0
  7935. bcs.s L005604
  7936. L00562e:
  7937. cmp.w #$ffff,d1
  7938. beq.s L00563e
  7939. move.w d1,-(sp)
  7940. move.w #$0010,-(sp)
  7941. DOS _CONCTRL
  7942. addq.l #4,sp
  7943. L00563e:
  7944. cmp.w #$ffff,d5
  7945. beq.s L0056a0
  7946. move.l #$00000093,d0
  7947. move.w #$ffff,d1
  7948. trap #15
  7949. and.w #$ffa0,d0
  7950. bset.l #$05,d0
  7951. btst.l #$00,d5
  7952. beq.s L005662
  7953. or.w #$001f,d0
  7954. L005662:
  7955. btst.l #$01,d5
  7956. beq.s L00566c
  7957. bset.l #$06,d0
  7958. L00566c:
  7959. move.w d0,d1
  7960. move.l #$00000093,d0
  7961. trap #15
  7962. bra.s L0056a0
  7963. L005678:
  7964. clr.w -(sp)
  7965. move.w #$0010,-(sp)
  7966. DOS _CONCTRL
  7967. addq.l #4,sp
  7968. move.l #$00000093,d0
  7969. move.w #$ffff,d1
  7970. trap #15
  7971. and.w #$ffa0,d0
  7972. bset.l #$05,d0
  7973. move.w d0,d1
  7974. move.l #$00000093,d0
  7975. trap #15
  7976. L0056a0:
  7977. clr.l d0
  7978. L0056a2:
  7979. unlk a6
  7980. rts
  7981. L0056a6:
  7982. lea.l (L005eb5),a0
  7983. bsr.w L002044
  7984. move.l #$00000500,d0
  7985. bra.s L0056a2
  7986. L0056b8:
  7987. tst.w (L006ec4)
  7988. beq.s L0056fe
  7989. cmpi.w #$0001,(L006ec4)
  7990. bne.s L00572e
  7991. lea.l (L0070ca),a0
  7992. bsr.w L001d4c
  7993. lea.l (L005b52),a1
  7994. move.w #$0001,d1
  7995. bsr.w L001ccc
  7996. tst.l d0
  7997. beq.s L0056f6
  7998. lea.l (L005b4d),a1
  7999. bsr.w L001ccc
  8000. tst.l d0
  8001. bne.s L00572e
  8002. clr.w d1
  8003. L0056f6:
  8004. move.w d1,-(sp)
  8005. DOS _VERIFY
  8006. addq.l #2,sp
  8007. bra.s L00572a
  8008. L0056fe:
  8009. pea.l (L005c0e)
  8010. DOS _PRINT
  8011. addq.l #4,sp
  8012. DOS _VERIFYG
  8013. lea.l (L005b4d),a0
  8014. tst.l d0
  8015. beq.s L00571a
  8016. lea.l (L005b52),a0
  8017. L00571a:
  8018. move.l a0,-(sp)
  8019. DOS _PRINT
  8020. addq.l #4,sp
  8021. pea.l (L005c1a)
  8022. DOS _PRINT
  8023. addq.l #4,sp
  8024. L00572a:
  8025. clr.l d0
  8026. rts
  8027. L00572e:
  8028. lea.l (L005eb5),a0
  8029. bsr.w L002044
  8030. move.l #$00000500,d0
  8031. rts
  8032. L005740:
  8033. link.w a6,#-$010e
  8034. clr.w (-$000e,a6)
  8035. lea.l (L0071e2),a0
  8036. L00574e:
  8037. tst.b (a0)
  8038. beq.s L00576a
  8039. bsr.w L001d4c
  8040. L005756:
  8041. move.b (a0)+,d0
  8042. beq.s L00574e
  8043. cmp.b #$62,d0 ;'b'
  8044. bne.w L00589a
  8045. move.b #-$01,(-$000e,a6)
  8046. bra.s L005756
  8047. L00576a:
  8048. move.w #$ffff,d3
  8049. clr.w d4
  8050. lea.l (L0070ca),a1
  8051. lea.l (-$010e,a6),a0
  8052. L00577a:
  8053. move.b (a1),d0
  8054. beq.s L0057a0
  8055. L00577e:
  8056. move.b (a1)+,(a0)+
  8057. bne.s L00577e
  8058. cmpi.b #$2c,(-$0002,a1) ;','
  8059. beq.s L00579c
  8060. tst.b (a1)
  8061. beq.s L0057a0
  8062. cmpi.b #$2c,(a1) ;','
  8063. beq.s L00579c
  8064. move.b #$2c,(-$0001,a0) ;','
  8065. bra.s L00577a
  8066. L00579c:
  8067. subq.l #1,a0
  8068. bra.s L00577a
  8069. L0057a0:
  8070. clr.b (a0)
  8071. lea.l (-$010e,a6),a0
  8072. tst.b (a0)
  8073. beq.s L00581a
  8074. cmpi.b #$2c,(a0)+ ;','
  8075. beq.s L0057e6
  8076. subq.l #1,a0
  8077. bsr.w L001bea
  8078. bsr.w L0027c8
  8079. tst.l d1
  8080. beq.w L00589a
  8081. cmp.l #$00000005,d1
  8082. bhi.w L00589a
  8083. cmp.l #$00010000,d0
  8084. bcc.w L00589a
  8085. move.w d0,d3
  8086. tst.b (-$0001,a0)
  8087. beq.s L005818
  8088. cmpi.b #$2c,(-$0001,a0) ;','
  8089. bne.w L00589a
  8090. L0057e6:
  8091. tst.b (a0)
  8092. beq.s L00581a
  8093. bsr.w L001bea
  8094. bsr.w L0027c8
  8095. tst.l d1
  8096. beq.w L00589a
  8097. cmp.l #$00000005,d1
  8098. bhi.w L00589a
  8099. cmp.l #$00010000,d0
  8100. bcc.w L00589a
  8101. move.w d0,d4
  8102. tst.b (-$0001,a0)
  8103. bne.w L00589a
  8104. bra.s L00581a
  8105. L005818:
  8106. move.w d3,d4
  8107. L00581a:
  8108. cmp.w d3,d4
  8109. bcs.s L005824
  8110. move.w d3,-(sp)
  8111. move.w d4,d3
  8112. move.w (sp)+,d4
  8113. L005824:
  8114. clr.l d1
  8115. movea.l (L0064a6),a0
  8116. addq.l #4,a0
  8117. L00582e:
  8118. tst.b (a0)
  8119. beq.s L00583e
  8120. move.w #$0001,d0
  8121. bsr.w L00209e
  8122. addq.l #1,d1
  8123. bra.s L00582e
  8124. L00583e:
  8125. movea.l (L0064a6),a1
  8126. addq.l #4,a1
  8127. L005846:
  8128. tst.l d1
  8129. beq.s L0058ac
  8130. subq.l #1,d1
  8131. cmp.w d3,d1
  8132. bhi.s L00588c
  8133. cmp.w d4,d1
  8134. bcs.s L00588c
  8135. tst.w (-$000e,a6)
  8136. bne.s L005882
  8137. move.l d1,d0
  8138. lea.l (-$000c,a6),a0
  8139. bsr.w L001b70
  8140. addq.l #5,a0
  8141. move.l a0,-(sp)
  8142. DOS _PRINT
  8143. move.w #$003a,-(sp) ;':'
  8144. DOS _PUTCHAR
  8145. addq.l #6,sp
  8146. move.l a0,-(sp)
  8147. movea.l a1,a0
  8148. bsr.w L001ff4
  8149. movea.l (sp)+,a0
  8150. bsr.w L001b4c
  8151. bra.s L00588c
  8152. L005882:
  8153. move.l a1,-(sp)
  8154. DOS _PRINT
  8155. addq.l #4,sp
  8156. bsr.w L001b4c
  8157. L00588c:
  8158. move.w #$0001,d0
  8159. movea.l a1,a0
  8160. bsr.w L00209e
  8161. movea.l a0,a1
  8162. bra.s L005846
  8163. L00589a:
  8164. lea.l (L005eb5),a0
  8165. bsr.w L002044
  8166. move.l #$00000500,d0
  8167. bra.s L0058ae
  8168. L0058ac:
  8169. clr.l d0
  8170. L0058ae:
  8171. unlk a6
  8172. rts
  8173. .data
  8174. L0058b2:
  8175. .dc.b 'exit',$00,$00,$00,$00
  8176. L0058ba:
  8177. .dc.l L00486c
  8178. L0058be:
  8179. .dc.b 'cls',$00,$00,$00,$00,$00
  8180. L0058c6:
  8181. .dc.l L003d08
  8182. L0058ca:
  8183. .dc.b 'dir',$00,$00,$00,$00,$00
  8184. L0058d2:
  8185. .dc.l L003824
  8186. L0058d6:
  8187. .dc.b 'copy',$00,$00,$00,$00
  8188. L0058de:
  8189. .dc.l L00489c
  8190. L0058e2:
  8191. .dc.b 'del',$00,$00,$00,$00,$00
  8192. L0058ea:
  8193. .dc.l L00364a
  8194. L0058ee:
  8195. .dc.b 'erase',$00,$00,$00
  8196. L0058f6:
  8197. .dc.l L00364a
  8198. L0058fa:
  8199. .dc.b 'ren',$00,$00,$00,$00,$00
  8200. L005902:
  8201. .dc.l L003d16
  8202. L005906:
  8203. .dc.b 'rename',$00,$00
  8204. L00590e:
  8205. .dc.l L003d16
  8206. L005912:
  8207. .dc.b 'cd',$00,$00,$00,$00,$00,$00
  8208. L00591a:
  8209. .dc.l L002f76
  8210. L00591e:
  8211. .dc.b 'chdir',$00,$00,$00
  8212. L005926:
  8213. .dc.l L002f76
  8214. L00592a:
  8215. .dc.b 'md',$00,$00,$00,$00,$00,$00
  8216. L005932:
  8217. .dc.l L003516
  8218. L005936:
  8219. .dc.b 'mkdir',$00,$00,$00
  8220. L00593e:
  8221. .dc.l L003516
  8222. L005942:
  8223. .dc.b 'rd',$00,$00,$00,$00,$00,$00
  8224. L00594a:
  8225. .dc.l L0035b0
  8226. L00594e:
  8227. .dc.b 'rmdir',$00,$00,$00
  8228. L005956:
  8229. .dc.l L0035b0
  8230. L00595a:
  8231. .dc.b 'type',$00,$00,$00,$00
  8232. L005962:
  8233. .dc.l L004fe0
  8234. L005966:
  8235. .dc.b 'ver',$00,$00,$00,$00,$00
  8236. L00596e:
  8237. .dc.l L0040ea
  8238. L005972:
  8239. .dc.b 'date',$00,$00,$00,$00
  8240. L00597a:
  8241. .dc.l L0044fe
  8242. L00597e:
  8243. .dc.b 'time',$00,$00,$00,$00
  8244. L005986:
  8245. .dc.l L00467c
  8246. L00598a:
  8247. .dc.b 'his',$00,$00,$00,$00,$00
  8248. L005992:
  8249. .dc.l L005740
  8250. L005996:
  8251. .dc.b 'set',$00,$00,$00,$00,$00
  8252. L00599e:
  8253. .dc.l L004062
  8254. L0059a2:
  8255. .dc.b 'path',$00,$00,$00,$00
  8256. L0059aa:
  8257. .dc.l L0045bc
  8258. L0059ae:
  8259. .dc.b 'prompt',$00,$00
  8260. L0059b6:
  8261. .dc.l L0053ac
  8262. L0059ba:
  8263. .dc.b 'vol',$00,$00,$00,$00,$00
  8264. L0059c2:
  8265. .dc.l L0040fe
  8266. L0059c6:
  8267. .dc.b 'break',$00,$00,$00
  8268. L0059ce:
  8269. .dc.l L0052f8
  8270. L0059d2:
  8271. .dc.b 'verify',$00,$00
  8272. L0059da:
  8273. .dc.l L0056b8
  8274. L0059de:
  8275. .dc.b 'ctty',$00,$00,$00,$00
  8276. L0059e6:
  8277. .dc.l L005252
  8278. L0059ea:
  8279. .dc.b 'screen',$00,$00
  8280. L0059f2:
  8281. .dc.l L005492
  8282. L0059f6:
  8283. .dc.b 'temp',$00,$00,$00,$00
  8284. L0059fe:
  8285. .dc.l L00473a
  8286. L005a02:
  8287. .dc.b 'memfree',$00
  8288. L005a0a:
  8289. .dc.l L0053ee
  8290. L005a0e:
  8291. .dc.b 'rem',$00,$00,$00,$00,$00
  8292. L005a16:
  8293. .dc.l L0030ba
  8294. L005a1a:
  8295. .dc.b 'echo',$00,$00,$00,$00
  8296. L005a22:
  8297. .dc.l L003026
  8298. L005a26:
  8299. .dc.b 'pause',$00,$00,$00
  8300. L005a2e:
  8301. .dc.l L0030be
  8302. L005a32:
  8303. .dc.b 'goto',$00,$00,$00,$00
  8304. L005a3a:
  8305. .dc.l L0030d8
  8306. L005a3e:
  8307. .dc.b 'shift',$00,$00,$00
  8308. L005a46:
  8309. .dc.l L00318a
  8310. L005a4a:
  8311. .dc.b 'if',$00,$00,$00,$00,$00,$00
  8312. L005a52:
  8313. .dc.l L0031b8
  8314. L005a56:
  8315. .dc.b 'for',$00,$00,$00,$00,$00
  8316. L005a5e:
  8317. .dc.l L003368
  8318. .dc.b $00,$00
  8319. Table2:
  8320. .dc.l L005eb5
  8321. .dc.l L005ee5
  8322. .dc.l L005f15
  8323. .dc.l L005fb1
  8324. .dc.l L005f93
  8325. .dc.l L005ecc
  8326. .dc.l L006189
  8327. .dc.l L005ca8
  8328. .dc.l L0060b7
  8329. .dc.l L005f74
  8330. .dc.l L006193
  8331. .dc.l L005cec
  8332. .dc.l L005f02
  8333. .dc.l L005f30
  8334. .dc.l L00607b
  8335. .dc.l L0061db
  8336. .dc.l L005e94
  8337. .dc.l L0061cd
  8338. .dc.l L005d86
  8339. .dc.l L005d9d
  8340. .dc.l L0063e8
  8341. .dc.l L006403
  8342. .dc.l L00641c
  8343. .dc.l L006437
  8344. .dc.l L006454
  8345. .dc.l L006479
  8346. L005acc:
  8347. .dc.b $3b,$9a,$ca,$00,$05,$f5,$e1,$00
  8348. .dc.b $00,$98,$96,$80,$00,$0f,$42,$40
  8349. .dc.b $00,$01,$86,$a0,$00,$00,$27,$10
  8350. .dc.b $00,$00,$03,$e8,$00,$00,$00,$64
  8351. .dc.b $00,$00,$00,$0a,$00,$00,$00,$01
  8352. .dc.b $00,$00,$00,$00
  8353. L005af8:
  8354. .dc.b $11,$11,$03,$08,$09,$0a,$0a,$07
  8355. .dc.b $0b,$07,$11,$11,$0a,$12,$11,$13
  8356. .dc.b $08,$06,$03,$0c,$10,$10,$10,$05
  8357. .dc.b $04,$0a,$11,$16,$14,$16,$0f,$0f
  8358. .dc.b $17,$18,$19,$0f,$0f,$0f,$0f,$0f
  8359. L005b20:
  8360. .dc.b '日月火水木金土?'
  8361. L005b30:
  8362. .dc.b 'r',$00
  8363. .dc.b 'z',$00
  8364. .dc.b 'x',$00
  8365. L005b36:
  8366. .dc.b 'bat',$00,$00
  8367. L005b3b:
  8368. .dc.b 'AUTOEXEC.BAT',$00
  8369. L005b48:
  8370. .dc.b 'kill',$00
  8371. L005b4d:
  8372. .dc.b 'off',$00
  8373. L005b51:
  8374. .dc.b 'c'
  8375. L005b52:
  8376. .dc.b 'on',$00
  8377. L005b55:
  8378. .dc.b 'aux',$00
  8379. L005b59:
  8380. .dc.b 'a:'
  8381. L005b5b:
  8382. .dc.b '\',$00
  8383. L005b5d:
  8384. .dc.b '%pipe000.$$$',$00
  8385. L005b6a:
  8386. .dc.b 'path=',$00
  8387. L005b70:
  8388. .dc.b 'prompt=',$00
  8389. L005b78:
  8390. .dc.b 'temp=',$00
  8391. L005b7e:
  8392. .dc.b 'A:\*'
  8393. L005b82:
  8394. .dc.b '.*',$00
  8395. L005b85:
  8396. .dc.b '$N$G'
  8397. L005b89:
  8398. .dc.b $00
  8399. L005b8a:
  8400. .dc.b 'exist',$00
  8401. L005b90:
  8402. .dc.b 'errorlevel',$00
  8403. L005b9b:
  8404. .dc.b 'exitcode',$00
  8405. L005ba4:
  8406. .dc.b 'not',$00
  8407. L005ba8:
  8408. .dc.b '==',$00
  8409. L005bab:
  8410. .dc.b 'in',$00
  8411. L005bae:
  8412. .dc.b ')'
  8413. L005baf:
  8414. .dc.b 'do',$00
  8415. L005bb2:
  8416. .dc.b $1b,'[2J',$00
  8417. L005bb7:
  8418. .dc.b $0d,$0a
  8419. .dc.b 'Command version 3.00',$0d,$0a
  8420. L005bcf:
  8421. .dc.b $0d,$0a,$00
  8422. L005bd2:
  8423. .dc.b 'Human68k version ',$00
  8424. L005be4:
  8425. .dc.b '日付',$00
  8426. L005be9:
  8427. .dc.b '時刻',$00
  8428. L005bee:
  8429. .dc.b '現在の',$00
  8430. L005bf5:
  8431. .dc.b 'は ',$00
  8432. L005bf9:
  8433. .dc.b 'echo は <',$00
  8434. L005c03:
  8435. .dc.b 'break は <',$00
  8436. L005c0e:
  8437. .dc.b 'verify は <',$00
  8438. L005c1a:
  8439. .dc.b '>'
  8440. L005c1b:
  8441. .dc.b ' です',$0d,$0a,$00
  8442. L005c23:
  8443. .dc.b 'を入力してください: ',$00
  8444. L005c38:
  8445. .dc.b 'の指定が違います',$0d,$0a,$00
  8446. L005c4b:
  8447. .dc.b 'を削除します',$0d,$0a,$00
  8448. L005c5a:
  8449. .dc.b '準備ができたらどれかキーを押してください',$00
  8450. L005c83:
  8451. .dc.b 'コマンドまたはファイル名が違います',$0d,$0a,$00
  8452. L005ca8:
  8453. .dc.b 'メモリ・アロケーションが異常です',$0d,$0a,$00
  8454. L005ccb:
  8455. .dc.b 'メモリが不足です',$0d,$0a,$00
  8456. L005cde:
  8457. .dc.b 'バッチのための'
  8458. L005cec:
  8459. .dc.b 'メモリが足りません',$0d,$0a,$00
  8460. L005d01:
  8461. .dc.b '環境のためのメモリが足りません',$0d,$0a,$00
  8462. L005d22:
  8463. .dc.b '文字数が多すぎます',$0d,$0a,$00
  8464. L005d37:
  8465. .dc.b 'ファイル名が長すぎます',$0d,$0a,$00
  8466. L005d50:
  8467. .dc.b 'パス名が長すぎます',$0d,$0a,$00
  8468. L005d65:
  8469. .dc.b 'ドライブ ',$00
  8470. L005d6f:
  8471. .dc.b ': のボリュームラベルは',$00
  8472. L005d86:
  8473. .dc.b 'ファイル名が無効です',$0d,$0a,$00
  8474. L005d9d:
  8475. .dc.b 'ドライブ名が無効です',$0d,$0a,$00
  8476. L005db4:
  8477. .dc.b 'デバイス名が無効です',$0d,$0a,$00
  8478. L005dcb:
  8479. .dc.b 'ボリュームラベルが無効です',$0d,$0a,$00
  8480. L005de8:
  8481. .dc.b 'ファイルは実行できません',$0d,$0a,$00
  8482. L005e03:
  8483. .dc.b 'コピー元とコピー先が同一です',$0d,$0a,$00
  8484. L005e22:
  8485. .dc.b '新ファイル名と旧ファイル名のドライブ名、パス名が違います',$0d,$0a,$00
  8486. L005e5d:
  8487. .dc.b 'ファイルが見つからないか、ファイル名が重複しています',$0d,$0a,$00
  8488. L005e94:
  8489. .dc.b 'ファイルがすでに存在しています',$0d,$0a,$00
  8490. L005eb5:
  8491. .dc.b 'パラメータが無効です',$0d,$0a,$00
  8492. L005ecc:
  8493. .dc.b 'ディスクがいっぱいです',$0d,$0a,$00
  8494. L005ee5:
  8495. .dc.b 'ディスクから読み込めません',$0d,$0a,$00
  8496. L005f02:
  8497. .dc.b '書き込み禁止です',$0d,$0a,$00
  8498. L005f15:
  8499. .dc.b 'ディスクに書き込めません',$0d,$0a,$00
  8500. L005f30:
  8501. .dc.b 'ディスクの準備が出来ていません',$0d,$0a,$00
  8502. L005f51:
  8503. .dc.b 'コピー元ファイルが見つかりません',$0d,$0a,$00
  8504. L005f74:
  8505. .dc.b 'ファイルがオープンできません',$0d,$0a,$00
  8506. L005f93:
  8507. .dc.b 'ディレクトリがいっぱいです',$0d,$0a,$00
  8508. L005fb0:
  8509. .dc.b ' '
  8510. L005fb1:
  8511. .dc.b 'ファイルが'
  8512. L005fbb:
  8513. .dc.b 'ありません',$0d,$0a,$00
  8514. L005fc8:
  8515. .dc.b '入力が重複しています',$0d,$0a,$00
  8516. L005fdf:
  8517. .dc.b '出力が重複しています',$0d,$0a,$00
  8518. L005ff6:
  8519. .dc.b '入力が見つかりません',$0d,$0a,$00
  8520. L00600d:
  8521. .dc.b '出力が作れません',$0d,$0a,$00
  8522. L006020:
  8523. .dc.b 'デバイスが入力として使用できません',$0d,$0a,$00
  8524. L006045:
  8525. .dc.b 'デバイスが出力として使用できません',$0d,$0a,$00
  8526. L00606a:
  8527. .dc.b '文法が違います',$0d,$0a,$00
  8528. L00607b:
  8529. .dc.b 'セクタが見つかりません',$0d,$0a,$00
  8530. L006094:
  8531. .dc.b 'ボリューム'
  8532. L00609e:
  8533. .dc.b 'ラベルが見つかりません',$0d,$0a,$00
  8534. L0060b7:
  8535. .dc.b 'パスが見つかりません',$0d,$0a,$00
  8536. L0060ce:
  8537. .dc.b 'テンポラリ'
  8538. L0060d8:
  8539. .dc.b 'パスは定義されていません',$0d,$0a,$00
  8540. L0060f3:
  8541. .dc.b 'ディレクトリが空でないか、見つからないか、カレントパスです',$0d,$0a,$00
  8542. L006130:
  8543. .dc.b 'ディレクトリが見つかりません',$0d,$0a,$00
  8544. L00614f:
  8545. .dc.b 'ディレクトリが作れません',$0d,$0a,$00
  8546. L00616a:
  8547. .dc.b 'ボリュームラベルが作れません',$0d,$0a,$00
  8548. L006189:
  8549. .dc.b 'デバイスが'
  8550. L006193:
  8551. .dc.b 'アクセスできません',$0d,$0a,$00
  8552. L0061a8:
  8553. .dc.b '旧'
  8554. L0061aa:
  8555. .dc.b 'ボリュームラベルが消去できません',$0d,$0a,$00
  8556. L0061cd:
  8557. .dc.b 'システム内部で'
  8558. L0061db:
  8559. .dc.b 'エラーが発生しました',$0d,$0a,$00
  8560. L0061f2:
  8561. .dc.b '常駐しているので親プロセスに帰れません',$0d,$0a,$00
  8562. L00621b:
  8563. .dc.b 'ディレクトリが最大数を超えました。それ以後を無視します',$0d,$0a,$00
  8564. L006254:
  8565. .dc.b 'バイト: 最大使用可能メモリ',$0d,$0a,$00
  8566. L006271:
  8567. .dc.b 'バイト: 全体使用可能メモリ',$0d,$0a,$00
  8568. L00628e:
  8569. .dc.b '<dir> ',$00
  8570. L00629b:
  8571. .dc.b ' ボリュームがありません',$00
  8572. L0062b3:
  8573. .dc.b ' ファイル',$00
  8574. L0062bd:
  8575. .dc.b 'K Byte 使用',$00
  8576. L0062c9:
  8577. .dc.b '中',$00
  8578. L0062cc:
  8579. .dc.b '可能',$0d,$0a
  8580. .dc.b ' ファイル使用量',$00
  8581. L0062e2:
  8582. .dc.b '異常終了します',$0d,$0a,$00
  8583. L0062f3:
  8584. .dc.b 'このOSでは使用できません',$0d,$0a,$00
  8585. L006310:
  8586. .dc.b ' 強制終了しますか <Y/N> ',$00
  8587. L006329:
  8588. .dc.b ' よろしいですか <Y/N> ',$00
  8589. L006340:
  8590. .dc.b ' バッチ処理を中止しますか <Y/N> ',$00
  8591. L006361:
  8592. .dc.b 'をコピーしますか <Y/N> ',$00
  8593. L006379:
  8594. .dc.b 'をデリートしますか <Y/N> ',$00
  8595. L006393:
  8596. .dc.b 'をリネームしますか <Y/N> ',$00
  8597. L0063ad:
  8598. .dc.b 'コピーはされませんでした',$0d,$0a,$00
  8599. L0063c8:
  8600. .dc.b ' 個のファイルをコピーしました',$0d,$0a,$00
  8601. L0063e8:
  8602. .dc.b 'プロセス間通信エラーです',$0d,$0a,$00
  8603. L006403:
  8604. .dc.b 'プロセスIDが不正です',$0d,$0a,$00
  8605. L00641c:
  8606. .dc.b 'プロセスを生成できません',$0d,$0a,$00
  8607. L006437:
  8608. .dc.b 'ファイルをロックできません',$0d,$0a,$00
  8609. L006454:
  8610. .dc.b 'ファイルのアクセスが拒否されました',$0d,$0a,$00
  8611. L006479:
  8612. .dc.b 'オープン中のファイルがあります',$0d,$0a,$00
  8613. L00649a:
  8614. .dc.b 'Modi'
  8615. L00649e:
  8616. .dc.b 'fied'
  8617. L0064a2:
  8618. .dc.b ' 199'
  8619. L0064a6:
  8620. .dc.b '3/02'
  8621. L0064aa:
  8622. .dc.b '/03 '
  8623. L0064ae:
  8624. .dc.b 'by Y'
  8625. L0064b2:
  8626. .dc.b 'uuji'
  8627. L0064b6:
  8628. .dc.l $2054616e
  8629. L0064ba:
  8630. .dc.b 'aka',$00
  8631. L0064be:
  8632. .dc.b 'Fish'
  8633. L0064c2:
  8634. .dc.b 'も'
  8635. L0064c4:
  8636. .dc.b 'い'
  8637. L0064c6:
  8638. .dc.b 'い'
  8639. L0064c8:
  8640. .dc.b 'け'
  8641. L0064ca:
  8642. .dc.b 'ど'
  8643. L0064cc:
  8644. .dc.b 'c'
  8645. L0064cd:
  8646. .dc.b 'o'
  8647. L0064ce:
  8648. .dc.b 'mmand.xも使ってネ',$00
  8649. .bss
  8650. L0064e0:
  8651. .ds.b 238
  8652. L0065ce:
  8653. .ds.b 258
  8654. L0066d0:
  8655. .ds.b 258
  8656. L0067d2:
  8657. .ds.b 280
  8658. L0068ea:
  8659. .ds.b 280
  8660. L006a02:
  8661. .ds.b 280
  8662. L006b1a:
  8663. .ds.b 280
  8664. L006c32:
  8665. .ds.b 280
  8666. L006d4a:
  8667. .ds.b 280
  8668. L006e62:
  8669. .ds.b 21
  8670. L006e77:
  8671. .ds.b 9
  8672. L006e80:
  8673. .ds.b 30
  8674. L006e9e:
  8675. .ds.b 1
  8676. L006e9f:
  8677. .ds.b 1
  8678. L006ea0:
  8679. .ds.b 1
  8680. L006ea1:
  8681. .ds.b 1
  8682. L006ea2:
  8683. .ds.b 1
  8684. L006ea3:
  8685. .ds.b 1
  8686. L006ea4:
  8687. .ds.b 1
  8688. L006ea5:
  8689. .ds.b 1
  8690. L006ea6:
  8691. .ds.b 1
  8692. L006ea7:
  8693. .ds.b 1
  8694. L006ea8:
  8695. .ds.b 1
  8696. L006ea9:
  8697. .ds.b 1
  8698. L006eaa:
  8699. .ds.b 1
  8700. L006eab:
  8701. .ds.b 1
  8702. L006eac:
  8703. .ds.b 1
  8704. L006ead:
  8705. .ds.b 1
  8706. L006eae:
  8707. .ds.b 1
  8708. L006eaf:
  8709. .ds.b 1
  8710. L006eb0:
  8711. .ds.b 1
  8712. L006eb1:
  8713. .ds.b 1
  8714. L006eb2:
  8715. .ds.b 1
  8716. L006eb3:
  8717. .ds.b 1
  8718. L006eb4:
  8719. .ds.b 1
  8720. L006eb5:
  8721. .ds.b 1
  8722. L006eb6:
  8723. .ds.l 1
  8724. L006eba:
  8725. .ds.l 1
  8726. L006ebe:
  8727. .ds.l 1
  8728. L006ec2:
  8729. .ds.w 1
  8730. L006ec4:
  8731. .ds.w 1
  8732. L006ec6:
  8733. .ds.b 1
  8734. L006ec7:
  8735. .ds.b 1
  8736. L006ec8:
  8737. .ds.b 256
  8738. L006fc8:
  8739. .ds.b 1
  8740. L006fc9:
  8741. .ds.b 257
  8742. L0070ca:
  8743. .ds.b 1
  8744. L0070cb:
  8745. .ds.b 279
  8746. L0071e2:
  8747. .ds.b 280
  8748. L0072fa:
  8749. .ds.b 280
  8750. L007412:
  8751. .ds.b 30
  8752. L007430:
  8753. .ds.b 30
  8754. L00744e:
  8755. .ds.b 24
  8756. L007466:
  8757. .ds.b 24
  8758. L00747e:
  8759. .ds.b 1
  8760. L00747f:
  8761. .ds.b 1
  8762. L007480:
  8763. .ds.b 2
  8764. L007482:
  8765. .end Start