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.

mopmdrv.s 82KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565
  1. ;=============================================
  2. ; Filename mopmdrv.x
  3. ;
  4. ;
  5. ; Base address 000000
  6. ; Exec address 002458
  7. ; Text size 002872 byte(s)
  8. ; Data size 001258 byte(s)
  9. ; Bss size 0086be byte(s)
  10. ; 519 Labels
  11. ;
  12. ; Commandline dis -b2 -h -m68000 --sp -q1 -B -M -o120 -w16 -gmopmdrv.lab -Tmopmdrv.tab --overwrite mopmdrv.x mopmdrv.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 L000016
  22. .dc.w $8020
  23. .dc.l L00002c
  24. .dc.l L000048
  25. .dc.w $4f50,$4d20,$2020,$2020
  26. L000016:
  27. .dc.w $ffff,$ffff,$8020
  28. .dc.l L00003a
  29. .dc.l L000048
  30. L000024:
  31. .dc.b 'MOPM '
  32. L00002c:
  33. clr.b (L003ab6)
  34. move.l a5,(L003ab2)
  35. rts
  36. L00003a:
  37. st.b (L003ab6)
  38. move.l a5,(L003ab2)
  39. rts
  40. L000048:
  41. movem.l d0/a5,-(sp)
  42. movea.l (L003ab2,pc),a5
  43. moveq.l #$00,d0
  44. L000052:
  45. move.b ($0002,a5),d0
  46. add.w d0,d0
  47. move.w (L000074,pc,d0.w),d0
  48. jsr (L000074,pc,d0.w)
  49. addq.l #3,a5
  50. move.b d0,(a5)+
  51. lsr.w #8,d0
  52. move.b d0,(a5)+
  53. L000068:
  54. clr.b (L003ab6)
  55. movem.l (sp)+,d0/a5
  56. rts
  57. L000074:
  58. .dc.w L002422-L000074
  59. .dc.w L00008e-L000074
  60. .dc.w L00008e-L000074
  61. .dc.w L00008e-L000074
  62. .dc.w L00008e-L000074
  63. .dc.w L000320-L000074
  64. .dc.w L000320-L000074
  65. .dc.w L000320-L000074
  66. .dc.w L0000ac-L000074
  67. .dc.w L0000ac-L000074
  68. .dc.w L000320-L000074
  69. .dc.w L000320-L000074
  70. .dc.w L00008e-L000074
  71. L00008e:
  72. move.w #$5003,d0
  73. rts
  74. L000094:
  75. clr.b (L005274)
  76. bra.s L0000bc
  77. L00009c:
  78. move.b (L003ab6,pc),d1
  79. beq.w L0002de
  80. st.b (L005274)
  81. bra.s L0000bc
  82. movem.l d1-d7/a0-a6,-(sp)
  83. lea.l (-$0200,sp),sp
  84. movea.l ($000e,a5),a4
  85. move.l ($0012,a5),d4
  86. L0000bc:
  87. subq.l #1,d4
  88. blt.w L000318
  89. move.b (a4)+,d0
  90. cmp.b #$0a,d0
  91. beq.s L000094
  92. cmp.b #$0d,d0
  93. beq.s L000094
  94. cmp.b #$1a,d0
  95. beq.s L000094
  96. move.b (L005274,pc),d1
  97. bne.s L0000bc
  98. cmp.b #$21,d0 ;'!'
  99. bcs.s L0000bc
  100. cmp.b #$2f,d0 ;'/'
  101. beq.s L00009c
  102. cmp.b #$28,d0 ;'('
  103. bne.w L0002de
  104. L0000f0:
  105. subq.l #1,d4
  106. bmi.w L000318
  107. move.b (a4)+,d0
  108. cmp.b #$20,d0 ;' '
  109. beq.s L0000f0
  110. bcs.s L0000bc
  111. ori.b #$20,d0
  112. cmp.b #$69,d0 ;'i'
  113. beq.s L000184
  114. cmp.b #$6d,d0 ;'m'
  115. beq.w L0001a4
  116. cmp.b #$61,d0 ;'a'
  117. beq.w L0001d8
  118. cmp.b #$76,d0 ;'v'
  119. beq.w L0001f8
  120. cmp.b #$6f,d0 ;'o'
  121. beq.w L000240
  122. cmp.b #$74,d0 ;'t'
  123. beq.w L000254
  124. cmp.b #$70,d0 ;'p'
  125. beq.w L00027e
  126. cmp.b #$77,d0 ;'w'
  127. beq.w L00028e
  128. cmp.b #$73,d0 ;'s'
  129. beq.w L0002b0
  130. cmp.b #$63,d0 ;'c'
  131. beq.w L0002c0
  132. cmp.b #$64,d0 ;'d'
  133. bne.s L0000f0
  134. bsr.w L0003be
  135. ble.w L000264
  136. move.l d1,d2
  137. movea.l sp,a1
  138. moveq.l #$03,d1
  139. bsr.w L00040a
  140. bsr.w L0003be
  141. ble.w L000264
  142. move.l d1,d2
  143. movea.l sp,a1
  144. moveq.l #$04,d1
  145. move.w d0,-(sp)
  146. bsr.w L00040a
  147. move.w (sp)+,d0
  148. bra.w L000264
  149. L000184:
  150. clr.l (L00524a)
  151. moveq.l #$00,d1
  152. move.b (a4),d0
  153. ori.b #$20,d0
  154. cmp.b #$69,d0 ;'i'
  155. bne.s L00019a
  156. moveq.l #$14,d1
  157. L00019a:
  158. bsr.w L00040a
  159. moveq.l #$00,d0
  160. bra.w L000264
  161. L0001a4:
  162. bsr.w L0003be
  163. ble.w L000264
  164. move.l d1,d2
  165. bsr.w L0003be
  166. ble.w L000264
  167. swap.w d2
  168. subq.l #1,d1
  169. bcs.w L000264
  170. cmp.l #$0000ffff,d1
  171. bhi.w L000264
  172. move.w d1,d2
  173. moveq.l #$01,d1
  174. move.w d0,-(sp)
  175. bsr.w L00040a
  176. move.w (sp)+,d0
  177. bra.w L000264
  178. L0001d8:
  179. bsr.w L0003be
  180. ble.w L000264
  181. move.l d1,d2
  182. bsr.w L0003be
  183. ble.s L000264
  184. swap.w d2
  185. move.w d1,d2
  186. moveq.l #$02,d1
  187. move.w d0,-(sp)
  188. bsr.w L00040a
  189. move.w (sp)+,d0
  190. bra.s L000264
  191. L0001f8:
  192. bsr.w L0003be
  193. ble.s L000264
  194. move.l d1,d2
  195. movea.l sp,a1
  196. moveq.l #$03,d1
  197. bsr.w L00040a
  198. bsr.w L0003be
  199. ble.s L000264
  200. cmp.l #$00000037,d1
  201. bcc.s L000264
  202. movea.l sp,a1
  203. adda.l d1,a1
  204. move.l d1,d3
  205. L00021c:
  206. bsr.w L0003be
  207. blt.s L000264
  208. move.b d1,(a1)+
  209. cmp.b #$29,d0 ;')'
  210. beq.s L000234
  211. addq.l #1,d3
  212. cmp.b #$37,d3 ;'7'
  213. bcc.s L000264
  214. bra.s L00021c
  215. L000234:
  216. movea.l sp,a1
  217. moveq.l #$04,d1
  218. bsr.w L00040a
  219. bra.w L0000bc
  220. L000240:
  221. bsr.w L0003be
  222. ble.s L000264
  223. move.l d1,d2
  224. moveq.l #$05,d1
  225. move.w d0,-(sp)
  226. bsr.w L00040a
  227. move.w (sp)+,d0
  228. bra.s L000264
  229. L000254:
  230. bsr.w L0003be
  231. ble.s L000264
  232. move.l d1,(L00524a)
  233. bra.w L000264
  234. L000264:
  235. cmp.b #$29,d0 ;')'
  236. beq.w L0000bc
  237. subq.l #1,d4
  238. blt.w L000318
  239. move.b (a4)+,d0
  240. cmp.b #$20,d0 ;' '
  241. bcs.w L0000bc
  242. bra.s L000264
  243. L00027e:
  244. bsr.w L0003a8
  245. blt.s L000264
  246. moveq.l #$08,d1
  247. bsr.w L00040a
  248. bra.w L0000bc
  249. L00028e:
  250. bsr.w L0003a8
  251. blt.s L000264
  252. L000294:
  253. moveq.l #$09,d1
  254. bsr.w L00040a
  255. tst.w d0
  256. beq.w L0000bc
  257. moveq.l #$0c,d1
  258. IOCS _BITSNS
  259. btst.l #$01,d0
  260. bne.w L0000bc
  261. bra.s L000294
  262. L0002b0:
  263. bsr.w L0003a8
  264. blt.s L000264
  265. moveq.l #$0a,d1
  266. bsr.w L00040a
  267. bra.w L0000bc
  268. L0002c0:
  269. bsr.w L0003a8
  270. blt.s L000264
  271. moveq.l #$0b,d1
  272. bsr.w L00040a
  273. bra.w L0000bc
  274. L0002d0:
  275. move.b (L003ab6,pc),d1
  276. beq.s L0002e0
  277. st.b (L005274)
  278. bra.s L0002e2
  279. L0002de:
  280. movea.l sp,a1
  281. L0002e0:
  282. move.b d0,(a1)+
  283. L0002e2:
  284. subq.l #1,d4
  285. blt.s L000312
  286. move.b (a4)+,d0
  287. cmp.b #$20,d0 ;' '
  288. bcs.s L000306
  289. move.b (L005274,pc),d1
  290. bne.s L0002e2
  291. cmp.b #$2f,d0 ;'/'
  292. beq.s L0002d0
  293. cmp.b #$28,d0 ;'('
  294. bne.s L0002e0
  295. lea.l (L0000f0,pc),a2
  296. bra.s L000324
  297. L000306:
  298. clr.b (L005274)
  299. lea.l (L0000bc,pc),a2
  300. bra.s L000324
  301. L000312:
  302. lea.l (L000318,pc),a2
  303. bra.s L000324
  304. L000318:
  305. lea.l ($0200,sp),sp
  306. movem.l (sp)+,d1-d7/a0-a6
  307. clr.w d0
  308. rts
  309. L000324:
  310. clr.b (a1)
  311. movea.l sp,a1
  312. move.l (L00524a,pc),d2
  313. moveq.l #$06,d1
  314. bsr.w L00040a
  315. tst.l d0
  316. beq.s L00036c
  317. move.b ($3786,pc),d1
  318. bne.s L00036c
  319. move.b ($080e),d1
  320. andi.b #$02,d1
  321. beq.s L00036c
  322. lea.l ($0050,pc),a1
  323. bsr.s L00036e
  324. move.l (L00524a,pc),d0
  325. lea.l ($0050,pc),a1
  326. bsr.s L00036e
  327. lea.l ($003d,pc),a1
  328. IOCS _B_PRINT
  329. movea.l sp,a1
  330. IOCS _B_PRINT
  331. lea.l (L000392,pc),a1
  332. IOCS _B_PRINT
  333. L00036c:
  334. jmp (a2)
  335. L00036e:
  336. divu.w #$0064,d0
  337. addi.b #$30,d0 ;'0'
  338. move.b d0,(a1)+
  339. clr.w d0
  340. swap.w d0
  341. divu.w #$000a,d0
  342. addi.b #$30,d0 ;'0'
  343. move.b d0,(a1)+
  344. clr.w d0
  345. swap.w d0
  346. addi.b #$30,d0 ;'0'
  347. move.b d0,(a1)
  348. rts
  349. L000392:
  350. .dc.b $0d,$0a,$00
  351. .dc.b 'err000 in trk000 ',$00,$00
  352. L0003a8:
  353. moveq.l #$00,d2
  354. L0003aa:
  355. bsr.s L0003be
  356. tst.l d1
  357. beq.s L0003b4
  358. subq.b #1,d1
  359. bset.l d1,d2
  360. L0003b4:
  361. cmp.b #$29,d0 ;')'
  362. bne.s L0003aa
  363. tst.l d4
  364. rts
  365. L0003be:
  366. moveq.l #$00,d0
  367. moveq.l #$00,d1
  368. L0003c2:
  369. move.b (a4)+,d0
  370. subq.l #1,d4
  371. blt.s L0003fe
  372. cmp.b #$20,d0 ;' '
  373. beq.s L0003c2
  374. cmp.b #$09,d0
  375. beq.s L0003c2
  376. cmp.b #$0d,d0
  377. beq.s L0003c2
  378. cmp.b #$0a,d0
  379. beq.s L0003c2
  380. L0003e0:
  381. cmp.b #$30,d0 ;'0'
  382. bcs.s L0003fe
  383. cmp.b #$39,d0 ;'9'
  384. bhi.s L0003fe
  385. sub.b #$30,d0 ;'0'
  386. add.l d1,d1
  387. add.l d1,d0
  388. lsl.l #2,d1
  389. add.l d0,d1
  390. move.b (a4)+,d0
  391. subq.l #1,d4
  392. bge.s L0003e0
  393. L0003fe:
  394. tst.l d4
  395. rts
  396. L000402:
  397. .dc.b 'MEWOPM',$01,$00
  398. L00040a:
  399. movem.l d1-d7/a1-a6,-(sp)
  400. cmp.w #$ffff,d1
  401. beq.s L000474
  402. cmp.w #$fffe,d1
  403. beq.s L00046c
  404. moveq.l #$ff,d0
  405. cmp.w #$001d,d1
  406. bcc.s L00042c
  407. add.w d1,d1
  408. move.w (Table3,pc,d1.w),d1
  409. jsr (Table3,pc,d1.w)
  410. L00042c:
  411. movem.l (sp)+,d1-d7/a1-a6
  412. rts
  413. Table3:
  414. .dc.w L000ab0-Table3
  415. .dc.w L0004c8-Table3
  416. .dc.w L000548-Table3
  417. .dc.w L00059a-Table3
  418. .dc.w L0005c0-Table3
  419. .dc.w L0005e6-Table3
  420. .dc.w L000616-Table3
  421. .dc.w L000636-Table3
  422. .dc.w L000662-Table3
  423. .dc.w L000788-Table3
  424. .dc.w L0007cc-Table3
  425. .dc.w L000864-Table3
  426. .dc.w L000966-Table3
  427. .dc.w L00098a-Table3
  428. .dc.w L0009ca-Table3
  429. .dc.w L000a34-Table3
  430. .dc.w L000a42-Table3
  431. .dc.w L000a74-Table3
  432. .dc.w L000a7a-Table3
  433. .dc.w L000a98-Table3
  434. .dc.w L000aac-Table3
  435. .dc.w L000a80-Table3
  436. .dc.w L000aa0-Table3
  437. .dc.w L000aa8-Table3
  438. .dc.w L000a86-Table3
  439. .dc.w L000938-Table3
  440. .dc.w L000a00-Table3
  441. .dc.w L0009f2-Table3
  442. .dc.w L0008e2-Table3
  443. L00046c:
  444. moveq.l #$00,d0
  445. move.w (-$0068,pc),d0
  446. bra.s L00042c
  447. L000474:
  448. moveq.l #$fe,d0
  449. move.l (L00523a,pc),d1
  450. bne.s L00042c
  451. bsr.w L0009ca
  452. move.l (L005242,pc),-(sp)
  453. move.w #$01f0,-(sp)
  454. DOS _INTVCS
  455. addq.l #6,sp
  456. bsr.s $000004b0
  457. tst.b (UnknownVar1)
  458. beq.s L0004aa
  459. pea.l (L000000-$0000f0,pc)
  460. DOS _MFREE
  461. addq.l #4,sp
  462. tst.l d0
  463. bmi.s L0004a6
  464. moveq.l #$00,d0
  465. bra.s L00042c
  466. L0004a6:
  467. moveq.l #$ff,d0
  468. bra.s L00042c
  469. L0004aa:
  470. moveq.l #$01,d0
  471. bra.w L00042c
  472. move.l #L000000,d0
  473. lea.l ($1cb6),a0
  474. bra.s L0004be
  475. L0004bc:
  476. movea.l (a0),a0
  477. L0004be:
  478. cmp.l (a0),d0
  479. bne.s L0004bc
  480. move.l (L000016,pc),(a0)
  481. rts
  482. L0004c8:
  483. bsr.w L000bd4
  484. bsr.w L0007c0
  485. moveq.l #$00,d1
  486. move.w d2,d1
  487. swap.w d2
  488. subq.w #1,d2
  489. cmp.w #$00f9,d2
  490. bhi.w L000be6
  491. addq.l #1,d1
  492. add.w d2,d2
  493. add.w d2,d2
  494. lea.l ($39ca,pc),a0
  495. move.l d1,(a0,d2.w)
  496. bsr.s L000510
  497. bmi.s L000502
  498. bsr.w L000ba4
  499. bsr.w L000b80
  500. bsr.w L000bba
  501. moveq.l #$00,d0
  502. rts
  503. L000502:
  504. lea.l ($39ae,pc),a0
  505. moveq.l #$01,d1
  506. move.l d1,(a0,d2.w)
  507. moveq.l #$05,d0
  508. rts
  509. L000510:
  510. lea.l ($39a0,pc),a0
  511. moveq.l #$00,d0
  512. move.w #$00f9,d1
  513. L00051a:
  514. add.l (a0)+,d0
  515. dbra.w d1,L00051a
  516. cmp.l (L003ac6,pc),d0
  517. bcc.s L00052c
  518. move.l (L003ac2,pc),d0
  519. rts
  520. L00052c:
  521. moveq.l #$ff,d0
  522. rts
  523. L000530:
  524. lea.l ($4d38,pc),a0
  525. moveq.l #$00,d0
  526. L000536:
  527. move.b d0,(a0,d0.w)
  528. addq.w #1,d0
  529. cmp.w #$0008,d0
  530. bne.s L000536
  531. st.b (a0,d0.w)
  532. rts
  533. L000548:
  534. bsr.w L000bd4
  535. lea.l ($4d1c,pc),a0
  536. move.l d2,d1
  537. swap.w d1
  538. subq.w #1,d1
  539. moveq.l #$07,d3
  540. move.b (L003ab6,pc),d0
  541. beq.s L000560
  542. moveq.l #$08,d3
  543. L000560:
  544. cmp.w d3,d1
  545. bhi.w L000bee
  546. tst.w d2
  547. beq.s L000592
  548. cmp.w #$00ff,d2
  549. beq.s L000582
  550. subq.w #1,d2
  551. cmp.w #$00f9,d2
  552. bhi.w L000be6
  553. move.b d2,(a0,d1.w)
  554. moveq.l #$00,d0
  555. rts
  556. L000582:
  557. cmp.w #$0008,d1
  558. bne.w L000be6
  559. move.b d2,(a0,d1.w)
  560. moveq.l #$00,d0
  561. rts
  562. L000592:
  563. moveq.l #$01,d0
  564. add.b (a0,d1.w),d0
  565. rts
  566. L00059a:
  567. bsr.w L000bd4
  568. subq.l #1,d2
  569. cmp.l #$000000c8,d2
  570. bcc.w L000bf2
  571. mulu.w #$0037,d2
  572. lea.l (L00568f,pc),a0
  573. adda.l d2,a0
  574. moveq.l #$36,d0 ;'6'
  575. L0005b6:
  576. move.b (a0)+,(a1)+
  577. dbra.w d0,L0005b6
  578. moveq.l #$00,d0
  579. rts
  580. L0005c0:
  581. bsr.w L000bd4
  582. subq.l #1,d2
  583. cmp.l #$000000c8,d2
  584. bcc.w L000bf2
  585. mulu.w #$0037,d2
  586. lea.l (L00568f,pc),a0
  587. adda.l d2,a0
  588. moveq.l #$36,d0 ;'6'
  589. L0005dc:
  590. move.b (a1)+,(a0)+
  591. dbra.w d0,L0005dc
  592. moveq.l #$00,d0
  593. rts
  594. L0005e6:
  595. bsr.w L000bd4
  596. tst.l d2
  597. bmi.s L00060e
  598. cmp.w #$00c8,d2
  599. bhi.w L000be2
  600. cmp.w #$0020,d2 ;' '
  601. bcs.w L000be2
  602. move.b d2,(L00568e)
  603. move.w d2,d0
  604. bsr.w L00196e
  605. moveq.l #$00,d0
  606. rts
  607. L00060e:
  608. moveq.l #$00,d0
  609. move.b (L00568d,pc),d0
  610. rts
  611. L000616:
  612. bsr.w L000bd4
  613. subq.l #1,d2
  614. move.l #$000000fa,d0
  615. cmp.l d0,d2
  616. bcc.w L000be6
  617. movea.l a1,a0
  618. move.l d2,d0
  619. bsr.w L000bf6
  620. move.l (L00524e,pc),d0
  621. rts
  622. L000636:
  623. bsr.w L000bd4
  624. subq.w #1,d2
  625. cmp.w #$00fa,d2
  626. bcc.w L000be6
  627. move.w d2,d0
  628. bsr.w L001798
  629. move.l (a1),d0
  630. add.w d2,d2
  631. add.w d2,d2
  632. lea.l ($3860,pc),a0
  633. add.l (a0,d2.w),d0
  634. lea.l (L003aca,pc),a0
  635. sub.l (a0,d2.w),d0
  636. rts
  637. L000662:
  638. bsr.w L000bd4
  639. tst.l d2
  640. bne.s L00066c
  641. moveq.l #$ff,d2
  642. L00066c:
  643. move.l d2,-(sp)
  644. moveq.l #$00,d2
  645. bsr.w L000788
  646. move.l (sp)+,d2
  647. move.l d0,d3
  648. lea.l (L005386,pc),a5
  649. lea.l ($4bec,pc),a0
  650. lea.l (L003aca,pc),a1
  651. moveq.l #$00,d7
  652. moveq.l #$07,d1
  653. move.w sr,-(sp)
  654. ori.w #$0700,sr
  655. L00068e:
  656. lsr.w #1,d2
  657. bcc.s L0006de
  658. bsr.w L001cde
  659. moveq.l #$00,d0
  660. move.b (a0,d7.w),d0
  661. add.w d0,d0
  662. add.w d0,d0
  663. move.l (a1,d0.w),($0002,a5)
  664. clr.w (a5)
  665. clr.b ($0016,a5)
  666. clr.b ($0018,a5)
  667. clr.b ($001e,a5)
  668. clr.b ($0020,a5)
  669. clr.b ($0026,a5)
  670. clr.b ($0044,a5)
  671. clr.b ($0046,a5)
  672. clr.l ($004c,a5)
  673. move.b #$15,($003c,a5)
  674. move.l #$01010000,($0050,a5)
  675. move.b #$01,($0014,a5)
  676. bset.l d7,d3
  677. L0006de:
  678. addq.b #1,d7
  679. lea.l ($0056,a5),a5
  680. dbra.w d1,L00068e
  681. move.b ($4b88,pc),d0
  682. cmp.b #$ff,d0
  683. beq.s L000746
  684. lsr.w #1,d2
  685. bcc.s L000746
  686. moveq.l #$00,d1
  687. IOCS _ADPCMMOD
  688. moveq.l #$00,d0
  689. move.b (a0,d7.w),d0
  690. add.w d0,d0
  691. add.w d0,d0
  692. move.l (a1,d0.w),($0002,a5)
  693. clr.w (a5)
  694. clr.b ($0016,a5)
  695. clr.b ($0018,a5)
  696. clr.b ($001e,a5)
  697. clr.b ($0020,a5)
  698. clr.b ($0026,a5)
  699. clr.b ($0044,a5)
  700. clr.b ($0046,a5)
  701. clr.l ($004c,a5)
  702. move.b #$15,($003c,a5)
  703. move.l #$01010000,($0050,a5)
  704. move.b #$01,($0014,a5)
  705. bset.l #$08,d3
  706. L000746:
  707. move.w d3,(L005262)
  708. move.w #$0040,(L005264) ;'@'
  709. clr.l (L005280)
  710. clr.b (L00568c)
  711. move.w d3,d4
  712. move.w d3,d5
  713. and.w (L00527a,pc),d4
  714. beq.s L00076e
  715. bsr.w L0019ce
  716. L00076e:
  717. and.w (L005278,pc),d5
  718. beq.s L000778
  719. bsr.w L0019c2
  720. L000778:
  721. move.b (L005276,pc),d2
  722. moveq.l #$14,d1
  723. IOCS _OPMSET
  724. moveq.l #$00,d0
  725. move.w (sp)+,sr
  726. rts
  727. L000788:
  728. bsr.w L000bd4
  729. moveq.l #$00,d0
  730. moveq.l #$08,d1
  731. lea.l (L005386,pc),a5
  732. L000794:
  733. move.b ($0014,a5),d3
  734. lsr.b #1,d3
  735. roxr.w #1,d0
  736. lea.l ($0056,a5),a5
  737. dbra.w d1,L000794
  738. lsr.w #7,d0
  739. move.b ($4aca,pc),d1
  740. cmp.b #$ff,d1
  741. bne.s L0007b4
  742. and.w #$00ff,d0
  743. L0007b4:
  744. tst.l d2
  745. beq.s L0007be
  746. and.w d2,d0
  747. beq.s L0007be
  748. moveq.l #$01,d0
  749. L0007be:
  750. rts
  751. L0007c0:
  752. movem.l d0-d2,-(sp)
  753. bsr.s L0007ea
  754. movem.l (sp)+,d0-d2
  755. rts
  756. L0007cc:
  757. bsr.w L000bd4
  758. tst.l d2
  759. beq.s L0007ea
  760. moveq.l #$00,d0
  761. move.b ($4a9a,pc),d0
  762. cmp.b #$ff,d0
  763. beq.s L0007e4
  764. move.w #$01ff,d0
  765. L0007e4:
  766. and.w d0,d2
  767. cmp.w d0,d2
  768. bne.s L0007ec
  769. L0007ea:
  770. moveq.l #$ff,d2
  771. L0007ec:
  772. lea.l (L005386,pc),a5
  773. moveq.l #$00,d7
  774. moveq.l #$07,d1
  775. move.w sr,-(sp)
  776. ori.w #$0700,sr
  777. L0007fa:
  778. lsr.w #1,d2
  779. bcc.s L000806
  780. bsr.w L001cde
  781. clr.b ($0014,a5)
  782. L000806:
  783. addq.b #1,d7
  784. lea.l ($0056,a5),a5
  785. dbra.w d1,L0007fa
  786. lsr.w #1,d2
  787. bcc.s L000828
  788. clr.b ($0014,a5)
  789. move.b ($4a58,pc),d0
  790. cmp.b #$ff,d0
  791. beq.s L000828
  792. moveq.l #$00,d1
  793. IOCS _ADPCMMOD
  794. L000828:
  795. moveq.l #$00,d2
  796. bsr.w L000788
  797. move.w d0,d4
  798. move.w d0,d5
  799. move.w d0,d6
  800. and.w (L00527a,pc),d4
  801. bne.s L00083e
  802. bsr.w L0019f6
  803. L00083e:
  804. and.w (L005278,pc),d5
  805. bne.s L000848
  806. bsr.w L0019ec
  807. L000848:
  808. and.w (L005284,pc),d6
  809. bne.s L00085e
  810. move.b (L005280),(L005281)
  811. clr.b (L005280)
  812. L00085e:
  813. moveq.l #$00,d0
  814. move.w (sp)+,sr
  815. rts
  816. L000864:
  817. bsr.w L000bd4
  818. tst.l d2
  819. beq.s L000882
  820. moveq.l #$00,d0
  821. move.b ($4a02,pc),d0
  822. cmp.b #$ff,d0
  823. beq.s L00087c
  824. move.w #$01ff,d0
  825. L00087c:
  826. and.w d0,d2
  827. cmp.w d0,d2
  828. bne.s L000884
  829. L000882:
  830. moveq.l #$ff,d2
  831. L000884:
  832. lea.l (L005386,pc),a5
  833. moveq.l #$08,d1
  834. move.w sr,-(sp)
  835. ori.w #$0700,sr
  836. L000890:
  837. lsr.w #1,d2
  838. bcc.s L00089a
  839. move.b #$01,($0014,a5)
  840. L00089a:
  841. lea.l ($0056,a5),a5
  842. dbra.w d1,L000890
  843. moveq.l #$00,d2
  844. bsr.w L000788
  845. move.w d0,d4
  846. move.w d0,d5
  847. move.w d0,d6
  848. and.w (L00527a,pc),d4
  849. beq.s L0008b8
  850. bsr.w L0019ce
  851. L0008b8:
  852. and.w (L005278,pc),d5
  853. beq.s L0008c2
  854. bsr.w L0019c2
  855. L0008c2:
  856. and.w (L005284,pc),d6
  857. beq.s L0008d2
  858. move.b (L005281),(L005280)
  859. L0008d2:
  860. move.b (L005276,pc),d2
  861. moveq.l #$14,d1
  862. IOCS _OPMSET
  863. moveq.l #$00,d0
  864. move.w (sp)+,sr
  865. rts
  866. L0008e2:
  867. bsr.w L000bd4
  868. move.w d2,d0
  869. swap.w d2
  870. subq.w #1,d2
  871. cmpi.w #$0007,d2
  872. bhi.w L000bee
  873. move.w d2,d7
  874. mulu.w #$0056,d2
  875. lea.l (L005386,pc),a5
  876. adda.w d2,a5
  877. moveq.l #$00,d2
  878. move.b ($0053,a5),d2
  879. move.w d0,d1
  880. bmi.s L000934
  881. subq.w #1,d0
  882. cmpi.w #$00c8,d0
  883. bcc.w L000bee
  884. move.b d1,($0053,a5)
  885. move.w sr,-(sp)
  886. ori.w #$0700,sr
  887. bsr.w L0020f4
  888. move.b ($0054,a5),d2
  889. moveq.l #$30,d1 ;'0'
  890. or.b d7,d1
  891. IOCS _OPMSET
  892. move.l d2,d0
  893. move.w (sp)+,sr
  894. rts
  895. L000934:
  896. move.l d2,d0
  897. rts
  898. L000938:
  899. moveq.l #$ff,d0
  900. move.b d2,d0
  901. lsl.w #8,d0
  902. move.l d0,(L005280)
  903. L000944:
  904. move.w (L005278,pc),d0
  905. lsr.w #8,d2
  906. andi.b #$03,d2
  907. beq.s L00095c
  908. move.w (L00527a,pc),d0
  909. subq.b #1,d2
  910. beq.s L00095c
  911. move.w #$01ff,d0
  912. L00095c:
  913. move.w d0,(L005284)
  914. moveq.l #$00,d0
  915. rts
  916. L000966:
  917. bsr.w L000bd4
  918. bsr.w L0007c0
  919. bsr.w L000b28
  920. subq.w #1,d2
  921. cmp.w #$0009,d2
  922. bcc.w L000bea
  923. mulu.w #$0056,d2
  924. lea.l (L005386,pc),a5
  925. move.l ($02,a5,d2.w),d0
  926. rts
  927. L00098a:
  928. bsr.w L0007c0
  929. lea.l ($3522,pc),a0
  930. move.w #$00f9,d0
  931. moveq.l #$01,d1
  932. L000998:
  933. move.l d1,(a0)+
  934. dbra.w d0,L000998
  935. bsr.w L000510
  936. bmi.s L0009c2
  937. clr.b (L005273)
  938. bsr.w L000ba4
  939. bsr.w L000ab0
  940. bsr.w L001914
  941. move.b (L005276,pc),d2
  942. moveq.l #$14,d1
  943. IOCS _OPMSET
  944. moveq.l #$00,d0
  945. L0009c2:
  946. move.b d0,(L005273)
  947. rts
  948. L0009ca:
  949. tst.b (L005273)
  950. bne.s L0009f0
  951. bsr.w L0007c0
  952. suba.l a1,a1
  953. IOCS _OPMINTST
  954. moveq.l #$30,d2 ;'0'
  955. moveq.l #$14,d1
  956. IOCS _OPMSET
  957. move.l (L005246,pc),($010c)
  958. st.b (L005273)
  959. L0009f0:
  960. rts
  961. L0009f2:
  962. moveq.l #$00,d0
  963. move.b (L005277,pc),d0
  964. clr.b (L005277)
  965. rts
  966. L000a00:
  967. cmpi.b #$3f,(L005276) ;'?'
  968. bne.s L000a30
  969. tst.l d2
  970. bmi.s L000a28
  971. andi.w #$01ff,d2
  972. move.w d2,d1
  973. eori.w #$01ff,d1
  974. move.w d2,(L00527a)
  975. move.w d1,(L005278)
  976. moveq.l #$00,d0
  977. rts
  978. L000a28:
  979. moveq.l #$00,d0
  980. move.w (L00527a,pc),d0
  981. rts
  982. L000a30:
  983. moveq.l #$ff,d0
  984. rts
  985. L000a34:
  986. move.l a1,(L003ac2)
  987. move.l d2,(L003ac6)
  988. bra.s L000ab0
  989. lea.l ($47fa,pc),a0
  990. lea.l ($05a0),a2
  991. move.l a1,d1
  992. beq.s L000a64
  993. tst.l (a0)
  994. bne.s L000a5a
  995. move.l (a2),(a0)
  996. move.l #L0023b4,(a2)
  997. L000a5a:
  998. lea.l (L00523a,pc),a0
  999. move.l (a0),d0
  1000. move.l d1,(a0)
  1001. rts
  1002. L000a64:
  1003. move.l (a0),d0
  1004. beq.s L000a72
  1005. move.l d0,(a2)
  1006. clr.l (a0)
  1007. clr.l (L00523a)
  1008. L000a72:
  1009. rts
  1010. L000a74:
  1011. move.l (L00523a,pc),d0
  1012. rts
  1013. L000a7a:
  1014. lea.l (L003ab8,pc),a0
  1015. bra.s L000a8a
  1016. lea.l (L003ab6,pc),a0
  1017. bra.s L000a8a
  1018. lea.l ($47de,pc),a0
  1019. L000a8a:
  1020. tst.l d2
  1021. beq.s L000a90
  1022. moveq.l #$01,d2
  1023. L000a90:
  1024. moveq.l #$00,d0
  1025. move.b (a0),d0
  1026. move.b d2,(a0)
  1027. rts
  1028. L000a98:
  1029. move.l #L005286,d0
  1030. rts
  1031. L000aa0:
  1032. move.l #L005386,d0
  1033. rts
  1034. L000aa8:
  1035. moveq.l #$56,d0 ;'V'
  1036. rts
  1037. L000aac:
  1038. moveq.l #$ff,d0
  1039. bra.s L000ab2
  1040. L000ab0:
  1041. moveq.l #$00,d0
  1042. L000ab2:
  1043. bsr.w L000bd4
  1044. bsr.w L0007c0
  1045. bsr.w L00233a
  1046. bsr.w L000530
  1047. lea.l ($33ee,pc),a0
  1048. move.w #$00f9,d0
  1049. moveq.l #$01,d1
  1050. L000acc:
  1051. move.l d1,(a0)+
  1052. dbra.w d0,L000acc
  1053. bsr.w L000510
  1054. bsr.w L000ba4
  1055. bsr.w L000b80
  1056. bsr.w L000bba
  1057. bsr.s L000b28
  1058. lea.l ($37b4,pc),a1
  1059. move.w #$00f9,d0
  1060. L000aec:
  1061. move.l #$04003008,($0004,a1)
  1062. lea.l ($0010,a1),a1
  1063. dbra.w d0,L000aec
  1064. clr.l (L005280)
  1065. clr.b (L00568c)
  1066. L000b08:
  1067. lea.l (L005286,pc),a0
  1068. L000b0c:
  1069. clr.b ($0002,a0)
  1070. clr.b ($000e,a0)
  1071. move.b #$03,($0003,a0)
  1072. move.b #$04,($000d,a0)
  1073. bsr.w L00194e
  1074. moveq.l #$00,d0
  1075. rts
  1076. L000b28:
  1077. clr.b d0
  1078. L000b2a:
  1079. bsr.s L000b36
  1080. addq.b #1,d0
  1081. cmp.b #$09,d0
  1082. bne.s L000b2a
  1083. rts
  1084. L000b36:
  1085. movem.l d0-d1/a0/a5,-(sp)
  1086. moveq.l #$00,d1
  1087. L000b3c:
  1088. move.b d0,d1
  1089. lea.l ($472a,pc),a0
  1090. moveq.l #$00,d0
  1091. move.b (a0,d1.w),d0
  1092. cmp.b #$ff,d0
  1093. beq.s L000b6a
  1094. add.w d0,d0
  1095. add.w d0,d0
  1096. lea.l (L003aca,pc),a0
  1097. mulu.w #$0056,d1
  1098. lea.l (L005386,pc),a5
  1099. move.l (a0,d0.w),($02,a5,d1.w)
  1100. movem.l (sp)+,d0-d1/a0/a5
  1101. rts
  1102. L000b6a:
  1103. mulu.w #$0056,d1
  1104. lea.l (L005386,pc),a5
  1105. move.l #L001c2e,($02,a5,d1.w)
  1106. movem.l (sp)+,d0-d1/a0/a5
  1107. rts
  1108. L000b80:
  1109. movem.l d0/a0-a1,-(sp)
  1110. lea.l (L003aca,pc),a0
  1111. lea.l ($3710,pc),a1
  1112. move.w #$00f9,d0
  1113. L000b90:
  1114. move.l (a0)+,(a1)
  1115. clr.l ($000a,a1)
  1116. lea.l ($0010,a1),a1
  1117. dbra.w d0,L000b90
  1118. movem.l (sp)+,d0/a0-a1
  1119. rts
  1120. L000ba4:
  1121. lea.l (L003aca,pc),a0
  1122. lea.l ($3308,pc),a1
  1123. move.w #$00f9,d1
  1124. L000bb0:
  1125. move.l d0,(a0)+
  1126. add.l (a1)+,d0
  1127. dbra.w d1,L000bb0
  1128. rts
  1129. L000bba:
  1130. movem.l d0/a0-a1,-(sp)
  1131. lea.l (L003aca,pc),a0
  1132. move.w #$00f9,d0
  1133. L000bc6:
  1134. movea.l (a0)+,a1
  1135. st.b (a1)
  1136. dbra.w d0,L000bc6
  1137. movem.l (sp)+,d0/a0-a1
  1138. rts
  1139. L000bd4:
  1140. tst.b (L005273)
  1141. beq.s L000be0
  1142. moveq.l #$09,d0
  1143. addq.l #4,sp
  1144. L000be0:
  1145. rts
  1146. L000be2:
  1147. moveq.l #$01,d0
  1148. rts
  1149. L000be6:
  1150. moveq.l #$02,d0
  1151. rts
  1152. L000bea:
  1153. moveq.l #$03,d0
  1154. rts
  1155. L000bee:
  1156. moveq.l #$06,d0
  1157. rts
  1158. L000bf2:
  1159. moveq.l #$08,d0
  1160. rts
  1161. L000bf6:
  1162. link.w a6,#-$0014
  1163. move.l d0,(L00525e)
  1164. clr.l (L00524e)
  1165. clr.l (L005256)
  1166. clr.l (L00525a)
  1167. bsr.w L001798
  1168. L000c16:
  1169. bsr.w L001604
  1170. moveq.l #$00,d0
  1171. move.b (a0)+,d0
  1172. beq.w L000d6e
  1173. bsr.w L001786
  1174. tst.b (L003ab6)
  1175. L000c2c:
  1176. beq.s L000c5e
  1177. cmp.b #$4b,d0 ;'K'
  1178. beq.w L0014ae
  1179. cmp.b #$57,d0 ;'W'
  1180. beq.w L000d7a
  1181. cmp.b #$7e,d0 ;'~'
  1182. beq.w L0014de
  1183. cmp.b #$5f,d0 ;'_'
  1184. beq.w L001510
  1185. cmp.b #$54,d0 ;'T'
  1186. beq.w L001270
  1187. cmp.b #$58,d0 ;'X'
  1188. beq.w L001486
  1189. L000c5e:
  1190. cmp.b #$4f,d0 ;'O'
  1191. beq.w L0010e0
  1192. cmp.b #$4c,d0 ;'L'
  1193. beq.w L001120
  1194. cmp.b #$52,d0 ;'R'
  1195. beq.w L0010ae
  1196. cmp.b #$56,d0 ;'V'
  1197. beq.w L001446
  1198. cmp.b #$3c,d0 ;'<'
  1199. beq.w L0010fe
  1200. cmp.b #$3e,d0 ;'>'
  1201. beq.w L001110
  1202. cmp.b #$54,d0 ;'T'
  1203. beq.w L001282
  1204. cmp.b #$40,d0 ;'@'
  1205. beq.w L001192
  1206. cmp.b #$26,d0 ;'&'
  1207. beq.w L00109a
  1208. cmp.b #$51,d0 ;'Q'
  1209. beq.w L0010b8
  1210. cmp.b #$7c,d0 ;'|'
  1211. beq.w L00100a
  1212. cmp.b #$3a,d0 ;':'
  1213. beq.w L00107c
  1214. cmp.b #$5b,d0 ;'['
  1215. beq.w L000f26
  1216. cmp.b #$7b,d0 ;'{'
  1217. beq.w L000e64
  1218. cmp.b #$7d,d0 ;'}'
  1219. beq.w L000e78
  1220. cmp.b #$59,d0 ;'Y'
  1221. beq.w L000dd4
  1222. cmp.b #$50,d0 ;'P'
  1223. beq.w L000daa
  1224. bsr.w L001724
  1225. tst.w d0
  1226. bmi.s L000cfa
  1227. bsr.w L001542
  1228. L000cf2:
  1229. clr.b ($0005,a1)
  1230. bra.w L000c16
  1231. L000cfa:
  1232. moveq.l #$13,d0
  1233. bra.s L000d64
  1234. L000cfe:
  1235. moveq.l #$14,d0
  1236. bra.s L000d64
  1237. L000d02:
  1238. moveq.l #$15,d0
  1239. bra.s L000d64
  1240. L000d06:
  1241. moveq.l #$16,d0
  1242. bra.s L000d64
  1243. L000d0a:
  1244. moveq.l #$17,d0
  1245. bra.s L000d64
  1246. L000d0e:
  1247. moveq.l #$18,d0
  1248. bra.s L000d64
  1249. L000d12:
  1250. moveq.l #$19,d0
  1251. bra.s L000d64
  1252. L000d16:
  1253. moveq.l #$1a,d0
  1254. bra.s L000d64
  1255. L000d1a:
  1256. moveq.l #$1b,d0
  1257. bra.s L000d64
  1258. moveq.l #$1c,d0
  1259. bra.s L000d64
  1260. L000d22:
  1261. moveq.l #$1d,d0
  1262. bra.s L000d64
  1263. L000d26:
  1264. moveq.l #$1f,d0
  1265. bra.s L000d64
  1266. L000d2a:
  1267. moveq.l #$20,d0 ;' '
  1268. bra.s L000d64
  1269. L000d2e:
  1270. moveq.l #$21,d0 ;'!'
  1271. bra.s L000d64
  1272. L000d32:
  1273. moveq.l #$22,d0 ;'"'
  1274. bra.s L000d64
  1275. L000d36:
  1276. moveq.l #$23,d0 ;'#'
  1277. bra.s L000d64
  1278. L000d3a:
  1279. moveq.l #$24,d0 ;'$'
  1280. bra.s L000d64
  1281. L000d3e:
  1282. moveq.l #$26,d0 ;'&'
  1283. bra.s L000d64
  1284. L000d42:
  1285. moveq.l #$27,d0 ;'''
  1286. bra.s L000d64
  1287. L000d46:
  1288. moveq.l #$29,d0 ;')'
  1289. bra.s L000d64
  1290. L000d4a:
  1291. moveq.l #$2a,d0 ;'*'
  1292. bra.s L000d64
  1293. L000d4e:
  1294. moveq.l #$2b,d0 ;'+'
  1295. bra.s L000d64
  1296. L000d52:
  1297. moveq.l #$2c,d0 ;','
  1298. bra.s L000d64
  1299. L000d56:
  1300. moveq.l #$2d,d0 ;'-'
  1301. bra.s L000d64
  1302. L000d5a:
  1303. moveq.l #$2e,d0 ;'.'
  1304. bra.s L000d64
  1305. L000d5e:
  1306. moveq.l #$2f,d0 ;'/'
  1307. bra.s L000d64
  1308. L000d62:
  1309. moveq.l #$30,d0 ;'0'
  1310. L000d64:
  1311. move.l d0,(L00524e)
  1312. L000d6a:
  1313. unlk a6
  1314. rts
  1315. L000d6e:
  1316. tst.l (L005256)
  1317. beq.s L000d6a
  1318. moveq.l #$28,d0 ;'('
  1319. bra.s L000d64
  1320. L000d7a:
  1321. bsr.w L00160c
  1322. tst.b d0
  1323. bmi.s L000d90
  1324. bsr.w $0000174a
  1325. cmp.l #$000000ff,d0
  1326. bhi.s L000d56
  1327. bra.s L000d92
  1328. L000d90:
  1329. moveq.l #$00,d0
  1330. L000d92:
  1331. move.l d0,d1
  1332. moveq.l #$b0,d0
  1333. bsr.w L00115c
  1334. moveq.l #$0f,d0
  1335. bsr.w L00115c
  1336. move.l d1,d0
  1337. bsr.w L00115c
  1338. bra.w L000c16
  1339. L000daa:
  1340. bsr.w L00160c
  1341. tst.b d0
  1342. bmi.s L000d5e
  1343. bsr.w $0000174a
  1344. cmp.l #$00000003,d0
  1345. bhi.s L000d5e
  1346. move.l d0,d1
  1347. moveq.l #$e0,d0
  1348. bsr.w L00115c
  1349. move.l d1,d0
  1350. bsr.w L00115c
  1351. bsr.w L001152
  1352. bra.w L000c16
  1353. L000dd4:
  1354. bsr.w L00160c
  1355. tst.b d0
  1356. bmi.w L000d56
  1357. bsr.w $0000174a
  1358. cmp.l #$000000ff,d0
  1359. bhi.w L000d56
  1360. cmp.b #$01,d0
  1361. beq.w L000d56
  1362. cmp.b #$10,d0
  1363. beq.w L000d56
  1364. cmp.b #$11,d0
  1365. beq.w L000d56
  1366. cmp.b #$12,d0
  1367. beq.w L000d56
  1368. cmp.b #$14,d0
  1369. beq.w L000d56
  1370. move.w d0,-(sp)
  1371. bsr.w L001604
  1372. cmpi.b #$2c,(a0)+ ;','
  1373. bne.w L000d56
  1374. bsr.w L001604
  1375. bsr.w L00160c
  1376. tst.b d0
  1377. bmi.w L000d56
  1378. bsr.w $0000174a
  1379. cmp.l #$000000ff,d0
  1380. bhi.w L000d56
  1381. move.w d0,-(sp)
  1382. moveq.l #$b0,d0
  1383. bsr.w L00115c
  1384. move.w (sp)+,d1
  1385. move.w (sp)+,d0
  1386. bsr.w L00115c
  1387. move.b d1,d0
  1388. bsr.w L00115c
  1389. bra.w L000c16
  1390. L000e58:
  1391. tst.l (L005256)
  1392. bne.w L000d52
  1393. rts
  1394. L000e64:
  1395. move.l (a1),d0
  1396. move.l d0,(L005252)
  1397. moveq.l #$01,d0
  1398. move.l d0,(L005256)
  1399. bra.w L000c16
  1400. L000e78:
  1401. clr.l (L005256)
  1402. bsr.w L00160c
  1403. bmi.s L000ea6
  1404. bsr.w $0000174a
  1405. tst.l d0
  1406. beq.w L000d1a
  1407. cmp.l #$00000040,d0
  1408. bhi.w L000d1a
  1409. move.l #$000000c0,d1
  1410. divu.w d0,d1
  1411. moveq.l #$00,d0
  1412. move.w d1,d0
  1413. bra.s L000eac
  1414. L000ea6:
  1415. moveq.l #$00,d0
  1416. move.b ($0006,a1),d0
  1417. L000eac:
  1418. move.l (L00525a,pc),d1
  1419. beq.w L000d4a
  1420. cmp.l d1,d0
  1421. bcs.w L000d46
  1422. divu.w d1,d0
  1423. moveq.l #$00,d1
  1424. move.w d0,d1
  1425. clr.w d0
  1426. swap.w d0
  1427. moveq.l #$00,d2
  1428. move.w d0,d2
  1429. movea.l (L005252,pc),a2
  1430. L000ecc:
  1431. tst.b (a2)
  1432. bmi.s L000efc
  1433. move.b ($0001,a2),d0
  1434. cmp.b ($0002,a2),d0
  1435. bne.s L000ee6
  1436. bsr.s L000f1a
  1437. move.b d0,($0001,a2)
  1438. move.b d0,($0002,a2)
  1439. bra.s L000ef6
  1440. L000ee6:
  1441. bsr.s L000f1a
  1442. move.b d0,($0001,a2)
  1443. move.b d1,d0
  1444. bsr.w L0015c6
  1445. move.b d0,($0002,a2)
  1446. L000ef6:
  1447. subq.l #1,(L00525a)
  1448. L000efc:
  1449. cmpi.b #$f0,(a2)
  1450. bne.s L000f0c
  1451. cmpi.b #$0e,($0001,a2)
  1452. bne.s L000f0c
  1453. addq.l #1,a2
  1454. L000f0c:
  1455. addq.l #3,a2
  1456. tst.l (L00525a)
  1457. L000f14:
  1458. bne.s L000ecc
  1459. L000f16:
  1460. bra.w L000c16
  1461. L000f1a:
  1462. move.l d1,d0
  1463. tst.l d2
  1464. beq.s L000f24
  1465. addq.l #1,d0
  1466. subq.l #1,d2
  1467. L000f24:
  1468. rts
  1469. L000f26:
  1470. bsr.w L001604
  1471. bsr.s L000f90
  1472. bmi.w L000cfe
  1473. bsr.w L001604
  1474. cmpi.b #$5d,(a0)+ ;']'
  1475. bne.w L000d02
  1476. add.w d0,d0
  1477. move.w (L000f46,pc,d0.w),d0
  1478. jmp (L000f46,pc,d0.w)
  1479. L000f46:
  1480. .dc.w L000f5c-L000f46
  1481. .dc.w L000f78-L000f46
  1482. .dc.w L000f74-L000f46
  1483. .dc.w L000f74-L000f46
  1484. .dc.w L000f80-L000f46
  1485. .dc.w L000f80-L000f46
  1486. .dc.w L000f84-L000f46
  1487. .dc.w L000f84-L000f46
  1488. .dc.w L000f7c-L000f46
  1489. .dc.w L000f88-L000f46
  1490. .dc.w L000f8c-L000f46
  1491. L000f5c:
  1492. moveq.l #$03,d0
  1493. L000f5e:
  1494. move.w d0,-(sp)
  1495. moveq.l #$c0,d0
  1496. bsr.w L00115c
  1497. move.w (sp)+,d0
  1498. bsr.w L00115c
  1499. bsr.w L001152
  1500. bra.w L000c16
  1501. moveq.l #$04,d0
  1502. bra.s L000f5e
  1503. moveq.l #$05,d0
  1504. bra.s L000f5e
  1505. moveq.l #$06,d0
  1506. bra.s L000f5e
  1507. moveq.l #$07,d0
  1508. bra.s L000f5e
  1509. moveq.l #$08,d0
  1510. bra.s L000f5e
  1511. moveq.l #$09,d0
  1512. bra.s L000f5e
  1513. moveq.l #$0a,d0
  1514. bra.s L000f5e
  1515. L000f90:
  1516. movem.l d1/a1-a3,-(sp)
  1517. lea.l (L000fc4,pc),a3
  1518. moveq.l #$0a,d1
  1519. L000f9a:
  1520. move.w (a3)+,d0
  1521. lea.l (L000fc4,pc,d0.w),a1
  1522. movea.l a0,a2
  1523. L000fa2:
  1524. tst.b (a1)
  1525. beq.s L000fb8
  1526. move.b (a2)+,d0
  1527. bsr.w L001786
  1528. cmp.b (a1)+,d0
  1529. beq.s L000fa2
  1530. dbra.w d1,L000f9a
  1531. moveq.l #$ff,d0
  1532. bra.s L000fbe
  1533. L000fb8:
  1534. movea.l a2,a0
  1535. moveq.l #$0a,d0
  1536. sub.l d1,d0
  1537. L000fbe:
  1538. movem.l (sp)+,d1/a1-a3
  1539. rts
  1540. L000fc4:
  1541. .dc.w $0016,$001b,$0020,$0026,$0028,$002f,$0031,$0036
  1542. .dc.w $0038,$003d,$0040
  1543. UnknownBlob2:
  1544. .dc.b $44,$2e,$43,$2e,$00,$44,$2e,$53,$2e,$00,$53,$45,$47,$4e,$4f,$00
  1545. .dc.b $24,$00,$54,$4f,$43,$4f,$44,$41,$00,$2a,$00,$46,$49,$4e,$45,$00
  1546. .dc.b $5e,$00,$43,$4f,$44,$41,$00,$44,$4f,$00,$4c,$4f,$4f,$50,$00,$00
  1547. L00100a:
  1548. cmpi.b #$3a,(a0) ;':'
  1549. bne.s L00104a
  1550. addq.l #1,a0
  1551. bsr.w L00160c
  1552. tst.b d0
  1553. bmi.s L001020
  1554. bsr.w $0000174a
  1555. bra.s L001022
  1556. L001020:
  1557. moveq.l #$02,d0
  1558. L001022:
  1559. tst.l d0
  1560. beq.w L000d06
  1561. cmp.l #$00000100,d0
  1562. bhi.w L000d06
  1563. move.b d0,d1
  1564. moveq.l #$c0,d0
  1565. bsr.w L00115c
  1566. moveq.l #$00,d0
  1567. bsr.w L00115c
  1568. move.b d1,d0
  1569. bsr.w L00115c
  1570. bra.w L000c16
  1571. L00104a:
  1572. bsr.w L00160c
  1573. tst.b d0
  1574. bmi.w L000d0a
  1575. bsr.w $0000174a
  1576. subq.l #1,d0
  1577. cmp.l #$000000ff,d0
  1578. bhi.w L000d0e
  1579. move.b d0,d1
  1580. moveq.l #$c0,d0
  1581. bsr.w L00115c
  1582. moveq.l #$02,d0
  1583. bsr.w L00115c
  1584. move.b d1,d0
  1585. bsr.w L00115c
  1586. bra.w L000c16
  1587. L00107c:
  1588. cmpi.b #$7c,(a0) ;'|'
  1589. bne.w L000c16
  1590. addq.l #1,a0
  1591. moveq.l #$c0,d0
  1592. bsr.w L00115c
  1593. moveq.l #$01,d0
  1594. bsr.w L00115c
  1595. bsr.w L001152
  1596. bra.w L000c16
  1597. L00109a:
  1598. movea.l (a1),a2
  1599. move.b (-$0003,a2),d0
  1600. bmi.w L000d62
  1601. move.b (-$0002,a2),(-$0001,a2)
  1602. bra.w L000c16
  1603. L0010ae:
  1604. moveq.l #$7f,d0
  1605. bsr.w L001560
  1606. bra.w L000cf2
  1607. L0010b8:
  1608. bsr.w L000e58
  1609. bsr.w L00160c
  1610. tst.b d0
  1611. bmi.w L000d4e
  1612. bsr.w $0000174a
  1613. tst.b d0
  1614. beq.w L000d4e
  1615. cmp.b #$08,d0
  1616. bhi.w L000d4e
  1617. move.b d0,($0007,a1)
  1618. bra.w L000c16
  1619. L0010e0:
  1620. bsr.w L00160c
  1621. tst.b d0
  1622. bmi.w L000d12
  1623. bsr.w $0000174a
  1624. cmp.b #$08,d0
  1625. bhi.w L000d16
  1626. move.b d0,($0004,a1)
  1627. bra.w L000c16
  1628. L0010fe:
  1629. cmpi.b #$08,($0004,a1)
  1630. bcc.w L000d16
  1631. addq.b #1,($0004,a1)
  1632. bra.w L000c16
  1633. L001110:
  1634. tst.b ($0004,a1)
  1635. beq.w L000d16
  1636. subq.b #1,($0004,a1)
  1637. bra.w L000c16
  1638. L001120:
  1639. bsr.w L000e58
  1640. bsr.w L00160c
  1641. tst.b d0
  1642. bmi.w L000d32
  1643. bsr.w $0000174a
  1644. tst.l d0
  1645. beq.w L000d1a
  1646. cmp.l #$00000040,d0
  1647. bhi.w L000d1a
  1648. move.l #$000000c0,d1
  1649. divu.w d0,d1
  1650. move.b d1,($0006,a1)
  1651. bra.w L000c16
  1652. L001152:
  1653. move.l d0,-(sp)
  1654. moveq.l #$00,d0
  1655. bsr.s L00115c
  1656. move.l (sp)+,d0
  1657. rts
  1658. L00115c:
  1659. movem.l d1/a0-a2,-(sp)
  1660. move.l (L00525e,pc),d1
  1661. add.w d1,d1
  1662. add.w d1,d1
  1663. lea.l ($2d48,pc),a0
  1664. move.l (a0,d1.w),d1
  1665. subq.l #1,d1
  1666. cmp.l ($000a,a1),d1
  1667. bls.s L00118a
  1668. addq.l #1,($000a,a1)
  1669. movea.l (a1),a2
  1670. move.b d0,(a2)+
  1671. st.b (a2)
  1672. move.l a2,(a1)
  1673. movem.l (sp)+,d1/a0-a2
  1674. rts
  1675. L00118a:
  1676. movem.l (sp)+,d1/a0-a2
  1677. bra.w $00000d1e
  1678. L001192:
  1679. bsr.w L00160c
  1680. tst.b d0
  1681. bpl.w L001246
  1682. move.b (a0)+,d0
  1683. bsr.w L001786
  1684. cmp.b #$56,d0 ;'V'
  1685. beq.w L001416
  1686. cmp.b #$4c,d0 ;'L'
  1687. beq.s L0011da
  1688. cmp.b #$57,d0 ;'W'
  1689. beq.s L001204
  1690. tst.b (L003ab6)
  1691. beq.s L0011d6
  1692. cmp.b #$54,d0 ;'T'
  1693. beq.w L00133a
  1694. cmp.b #$4b,d0 ;'K'
  1695. beq.w L00139a
  1696. cmp.b #$46,d0 ;'F'
  1697. beq.w L00130a
  1698. L0011d6:
  1699. bra.w L000d22
  1700. L0011da:
  1701. bsr.w L000e58
  1702. bsr.w L00160c
  1703. tst.b d0
  1704. bmi.w L000d5a
  1705. bsr.w $0000174a
  1706. tst.l d0
  1707. beq.w L000d5a
  1708. cmp.l #$000000c0,d0
  1709. bhi.w L000d5a
  1710. move.b d0,($0006,a1)
  1711. bra.w L000c16
  1712. L001204:
  1713. bsr.w L00160c
  1714. tst.b d0
  1715. bpl.s L001212
  1716. move.b ($0006,a1),d0
  1717. bra.s L001230
  1718. L001212:
  1719. bsr.w $0000174a
  1720. tst.l d0
  1721. beq.w L000d26
  1722. cmp.l #$00000040,d0
  1723. bhi.w L000d26
  1724. move.l #$000000c0,d1
  1725. divu.w d0,d1
  1726. move.b d1,d0
  1727. L001230:
  1728. move.l d0,d1
  1729. moveq.l #$d0,d0
  1730. bsr.w L00115c
  1731. move.l d1,d0
  1732. bsr.w L00115c
  1733. bsr.w L00115c
  1734. bra.w L000c16
  1735. L001246:
  1736. bsr.w $0000174a
  1737. cmp.b #$01,d0
  1738. bcs.w L000d42
  1739. cmp.b #$c8,d0
  1740. bhi.w L000d42
  1741. move.l d0,d1
  1742. moveq.l #$a0,d0
  1743. bsr.w L00115c
  1744. move.l d1,d0
  1745. bsr.w L00115c
  1746. bsr.w L001152
  1747. bra.w L000c16
  1748. L001270:
  1749. bsr.w L001604
  1750. move.b (a0),d0
  1751. cmp.b #$2b,d0 ;'+'
  1752. beq.s L0012ba
  1753. cmp.b #$2d,d0 ;'-'
  1754. beq.s L0012e2
  1755. L001282:
  1756. bsr.w L00160c
  1757. tst.b d0
  1758. bmi.w L000d2a
  1759. bsr.w $0000174a
  1760. cmp.l #$00000020,d0
  1761. bcs.w L000d2e
  1762. cmp.l #$000000c8,d0
  1763. bhi.w L000d2e
  1764. move.l d0,d1
  1765. moveq.l #$90,d0
  1766. bsr.w L00115c
  1767. move.l d1,d0
  1768. bsr.w L00115c
  1769. bsr.w L001152
  1770. bra.w L000c16
  1771. L0012ba:
  1772. addq.l #1,a0
  1773. bsr.w L00160c
  1774. tst.b d0
  1775. bmi.w L000d2a
  1776. bsr.w $0000174a
  1777. move.l d0,d1
  1778. moveq.l #$f0,d0
  1779. bsr.w L00115c
  1780. moveq.l #$06,d0
  1781. bsr.w L00115c
  1782. move.l d1,d0
  1783. bsr.w L00115c
  1784. bra.w L000c16
  1785. L0012e2:
  1786. addq.l #1,a0
  1787. bsr.w L00160c
  1788. tst.b d0
  1789. bmi.w L000d2a
  1790. bsr.w $0000174a
  1791. move.l d0,d1
  1792. moveq.l #$f0,d0
  1793. bsr.w L00115c
  1794. moveq.l #$08,d0
  1795. bsr.w L00115c
  1796. move.l d1,d0
  1797. bsr.w L00115c
  1798. bra.w L000c16
  1799. L00130a:
  1800. bsr.w L00160c
  1801. tst.b d0
  1802. bmi.w L000cfa
  1803. bsr.w $0000174a
  1804. cmp.l #$00000400,d0
  1805. bcc.w L000cfa
  1806. move.l d0,d1
  1807. moveq.l #$f0,d0
  1808. bsr.w L00115c
  1809. moveq.l #$0c,d0
  1810. bsr.w L00115c
  1811. move.l d1,d0
  1812. bsr.w L00115c
  1813. bra.w L000c16
  1814. L00133a:
  1815. bsr.w L001604
  1816. move.b (a0)+,d0
  1817. cmp.b #$2b,d0 ;'+'
  1818. beq.s L00134e
  1819. cmp.b #$2d,d0 ;'-'
  1820. beq.s L001368
  1821. subq.l #1,a0
  1822. L00134e:
  1823. bsr.w L00160c
  1824. tst.b d0
  1825. bmi.w L000cfa
  1826. bsr.w $0000174a
  1827. cmp.l #$00000041,d0
  1828. bcc.w L000cfa
  1829. bra.s L001382
  1830. L001368:
  1831. bsr.w L00160c
  1832. tst.b d0
  1833. bmi.w L000cfa
  1834. bsr.w $0000174a
  1835. cmp.l #$00000041,d0
  1836. bcc.w L000cfa
  1837. neg.l d0
  1838. L001382:
  1839. move.l d0,d1
  1840. moveq.l #$f0,d0
  1841. bsr.w L00115c
  1842. moveq.l #$0a,d0
  1843. bsr.w L00115c
  1844. move.l d1,d0
  1845. bsr.w L00115c
  1846. bra.w L000c16
  1847. L00139a:
  1848. bsr.w L001604
  1849. move.b (a0)+,d0
  1850. cmp.b #$2b,d0 ;'+'
  1851. beq.s L0013ae
  1852. cmp.b #$2d,d0 ;'-'
  1853. beq.s L0013ce
  1854. subq.l #1,a0
  1855. L0013ae:
  1856. bsr.w L00160c
  1857. tst.b d0
  1858. bmi.w L000cfa
  1859. bsr.w $0000174a
  1860. cmp.l #$00000301,d0
  1861. bcc.w L000cfa
  1862. addq.w #5,d0
  1863. add.w d0,d0
  1864. add.w d0,d0
  1865. bra.s L0013f0
  1866. L0013ce:
  1867. bsr.w L00160c
  1868. tst.b d0
  1869. bmi.w L000cfa
  1870. bsr.w $0000174a
  1871. cmp.l #$00000301,d0
  1872. bcc.w L000cfa
  1873. moveq.l #$05,d1
  1874. sub.w d0,d1
  1875. add.w d1,d1
  1876. add.w d1,d1
  1877. move.w d1,d0
  1878. L0013f0:
  1879. moveq.l #$00,d2
  1880. move.b d0,d2
  1881. lsr.w #8,d0
  1882. moveq.l #$00,d1
  1883. move.b d0,d1
  1884. moveq.l #$f0,d0
  1885. bsr.w L00115c
  1886. moveq.l #$0e,d0
  1887. bsr.w L00115c
  1888. move.l d1,d0
  1889. bsr.w L00115c
  1890. move.l d2,d0
  1891. bsr.w L00115c
  1892. bra.w L000c16
  1893. L001416:
  1894. bsr.w L00160c
  1895. tst.b d0
  1896. bmi.w L000d36
  1897. bsr.w $0000174a
  1898. cmp.l #$0000007f,d0
  1899. bhi.w L000d3a
  1900. moveq.l #$7f,d1
  1901. sub.l d0,d1
  1902. moveq.l #$80,d0
  1903. bsr.w L00115c
  1904. move.l d1,d0
  1905. bsr.w L00115c
  1906. bsr.w L001152
  1907. bra.w L000c16
  1908. L001446:
  1909. bsr.w L00160c
  1910. tst.b d0
  1911. bmi.w L000d36
  1912. bsr.w $0000174a
  1913. cmp.l #$0000000f,d0
  1914. bhi.w L000d3a
  1915. move.b (Table4,pc,d0.w),d1
  1916. moveq.l #$80,d0
  1917. bsr.w L00115c
  1918. move.b d1,d0
  1919. bsr.w L00115c
  1920. bsr.w L001152
  1921. bra.w L000c16
  1922. Table4:
  1923. .dc.b $2a,$28,$25,$22,$20,$1d,$1a,$18,$15,$12,$10,$0d,$0a,$08,$05,$02
  1924. L001486:
  1925. bsr.w L00160c
  1926. tst.b d0
  1927. bmi.s L001496
  1928. bsr.w $0000174a
  1929. move.b d0,d1
  1930. bra.s L001498
  1931. L001496:
  1932. moveq.l #$ff,d1
  1933. L001498:
  1934. moveq.l #$f0,d0
  1935. bsr.w L00115c
  1936. moveq.l #$10,d0
  1937. bsr.w L00115c
  1938. move.b d1,d0
  1939. bsr.w L00115c
  1940. bra.w L000c16
  1941. L0014ae:
  1942. bsr.w L00160c
  1943. tst.b d0
  1944. bmi.s L0014c6
  1945. bsr.w $0000174a
  1946. cmp.l #$000000ff,d0
  1947. bhi.w L000d56
  1948. bra.s L0014c8
  1949. L0014c6:
  1950. moveq.l #$14,d0
  1951. L0014c8:
  1952. move.l d0,d1
  1953. moveq.l #$f0,d0
  1954. bsr.w L00115c
  1955. bsr.w L001152
  1956. move.l d1,d0
  1957. bsr.w L00115c
  1958. bra.w L000c16
  1959. L0014de:
  1960. bsr.w L00160c
  1961. tst.b d0
  1962. bmi.s L00150c
  1963. bsr.w $0000174a
  1964. cmp.l #$0000007f,d0
  1965. bhi.w L000d3a
  1966. L0014f4:
  1967. move.b d0,d1
  1968. moveq.l #$f0,d0
  1969. bsr.w L00115c
  1970. moveq.l #$02,d0
  1971. bsr.w L00115c
  1972. move.b d1,d0
  1973. bsr.w L00115c
  1974. bra.w L000c16
  1975. L00150c:
  1976. moveq.l #$00,d0
  1977. bra.s L0014f4
  1978. L001510:
  1979. bsr.w L00160c
  1980. tst.b d0
  1981. bmi.s L00153e
  1982. bsr.w $0000174a
  1983. cmp.l #$0000007f,d0
  1984. bhi.w L000d3a
  1985. L001526:
  1986. move.l d0,d1
  1987. moveq.l #$f0,d0
  1988. bsr.w L00115c
  1989. moveq.l #$04,d0
  1990. bsr.w L00115c
  1991. move.l d1,d0
  1992. bsr.w L00115c
  1993. bra.w L000c16
  1994. L00153e:
  1995. moveq.l #$00,d0
  1996. bra.s L001526
  1997. L001542:
  1998. bsr.w L0015e0
  1999. add.b d1,d0
  2000. add.b ($0005,a1),d0
  2001. moveq.l #$00,d1
  2002. move.b ($0004,a1),d1
  2003. mulu.w #$000c,d1
  2004. add.b d1,d0
  2005. cmp.b #$60,d0 ;'`'
  2006. bcc.w L000d3e
  2007. L001560:
  2008. move.b d0,d5
  2009. bsr.w L00160c
  2010. bmi.s L001586
  2011. bsr.w L000e58
  2012. bsr.w $0000174a
  2013. tst.l d0
  2014. beq.w L000d1a
  2015. moveq.l #$40,d1 ;'@'
  2016. cmp.l d1,d0
  2017. bhi.w L000d1a
  2018. add.w #$0080,d1
  2019. divu.w d0,d1
  2020. bra.s L00158a
  2021. L001586:
  2022. move.b ($0006,a1),d1
  2023. L00158a:
  2024. tst.l (L005256)
  2025. beq.s L001598
  2026. addq.l #1,(L00525a)
  2027. L001598:
  2028. move.b d1,d0
  2029. moveq.l #$03,d2
  2030. L00159c:
  2031. bsr.s L001604
  2032. cmpi.b #$2e,(a0) ;'.'
  2033. bne.s L0015b2
  2034. bsr.w L000e58
  2035. lsr.b #1,d1
  2036. add.b d1,d0
  2037. addq.l #1,a0
  2038. subq.b #1,d2
  2039. bne.s L00159c
  2040. L0015b2:
  2041. exg.l d0,d5
  2042. bsr.w L00115c
  2043. move.b d5,d0
  2044. bsr.w L00115c
  2045. bsr.s L0015c6
  2046. bsr.w L00115c
  2047. rts
  2048. L0015c6:
  2049. move.l d1,-(sp)
  2050. andi.w #$00ff,d0
  2051. moveq.l #$00,d1
  2052. move.b ($0007,a1),d1
  2053. mulu.w d1,d0
  2054. lsr.w #3,d0
  2055. subq.b #1,d0
  2056. bcc.s $000015dc
  2057. clr.b d0
  2058. move.l (sp)+,d1
  2059. rts
  2060. L0015e0:
  2061. bsr.s L001604
  2062. cmpi.b #$23,(a0) ;'#'
  2063. beq.s L0015f8
  2064. cmpi.b #$2b,(a0) ;'+'
  2065. beq.s L0015f8
  2066. cmpi.b #$2d,(a0) ;'-'
  2067. beq.s $000015fc
  2068. moveq.l #$00,d1
  2069. rts
  2070. L0015f8:
  2071. moveq.l #$01,d1
  2072. bra.s $000015fe
  2073. moveq.l #$ff,d1
  2074. addq.l #1,a0
  2075. rts
  2076. L001602:
  2077. addq.l #1,a0
  2078. L001604:
  2079. cmpi.b #$20,(a0) ;' '
  2080. beq.s L001602
  2081. rts
  2082. L00160c:
  2083. bsr.s L001604
  2084. move.b (a0),d0
  2085. cmp.b #$30,d0 ;'0'
  2086. bcs.s L001620
  2087. cmp.b #$39,d0 ;'9'
  2088. bhi.s L001620
  2089. moveq.l #$00,d0
  2090. rts
  2091. L001620:
  2092. moveq.l #$ff,d0
  2093. rts
  2094. Table5:
  2095. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  2096. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  2097. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  2098. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  2099. .dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
  2100. .dc.b $00,$01,$02,$04,$05,$06,$08,$09,$0a,$0c,$0d,$0e,$10,$11,$12,$14
  2101. .dc.b $15,$16,$18,$19,$1a,$1c,$1d,$1e,$20,$21,$22,$24,$25,$26,$28,$29
  2102. .dc.b $2a,$2c,$2d,$2e,$30,$31,$32,$34,$35,$36,$38,$39,$3a,$3c,$3d,$3e
  2103. .dc.b $40,$41,$42,$44,$45,$46,$48,$49,$4a,$4c,$4d,$4e,$50,$51,$52,$54
  2104. .dc.b $55,$56,$58,$59,$5a,$5c,$5d,$5e,$60,$61,$62,$64,$65,$66,$68,$69
  2105. .dc.b $6a,$6c,$6d,$6e,$70,$71,$72,$74,$75,$76,$78,$79,$7a,$7c,$7d,$7e
  2106. .dc.b $7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e
  2107. .dc.b $7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e
  2108. .dc.b $7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e
  2109. .dc.b $7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e
  2110. .dc.b $7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e,$7e
  2111. L001724:
  2112. cmp.b #$41,d0 ;'A'
  2113. bcs.s L00173e
  2114. cmp.b #$47,d0 ;'G'
  2115. bhi.s L00173e
  2116. sub.b #$41,d0 ;'A'
  2117. andi.w #$00ff,d0
  2118. move.b (L001742,pc,d0.w),d0
  2119. rts
  2120. L00173e:
  2121. moveq.l #$ff,d0
  2122. rts
  2123. L001742:
  2124. .dc.b $06,$08,$fd,$ff,$01,$02,$04,$00,$2f,$01,$70,$00,$72,$00
  2125. L001750:
  2126. bsr.w L001604
  2127. cmpi.b #$30,(a0)+ ;'0'
  2128. beq.s L001750
  2129. subq.l #1,a0
  2130. L00175c:
  2131. bsr.w L001604
  2132. move.b (a0),d1
  2133. cmp.b #$30,d1 ;'0'
  2134. bcs.s L001780
  2135. cmp.b #$39,d1 ;'9'
  2136. bhi.s L001780
  2137. sub.b #$30,d1 ;'0'
  2138. mulu.w #$000a,d0
  2139. andi.b #$0f,d1
  2140. add.l d1,d0
  2141. addq.l #1,a0
  2142. bra.s L00175c
  2143. L001780:
  2144. movem.l (sp)+,d1
  2145. rts
  2146. L001786:
  2147. cmp.b #$61,d0 ;'a'
  2148. bcs.s L001796
  2149. cmp.b #$7a,d0 ;'z'
  2150. bhi.s L001796
  2151. sub.b #$20,d0 ;' '
  2152. L001796:
  2153. rts
  2154. L001798:
  2155. move.l d0,-(sp)
  2156. lsl.w #4,d0
  2157. lea.l ($2afc,pc),a1
  2158. adda.w d0,a1
  2159. move.l (sp)+,d0
  2160. rts
  2161. L0017a6:
  2162. movem.l d0-d7/a0-a6,-(sp)
  2163. andi.b #$f7,($00e88015)
  2164. move.w sr,d6
  2165. andi.w #$f8ff,d6
  2166. ori.w #$0500,d6
  2167. move.w d6,sr
  2168. move.w #$0100,d6
  2169. move.b ($00e90003),d6
  2170. move.b (L005276,pc),d2
  2171. moveq.l #$14,d1
  2172. IOCS _OPMSET
  2173. lsr.w #1,d6
  2174. bcc.s L00182c
  2175. lea.l ($3aa4,pc),a0
  2176. addq.b #1,(a0)
  2177. andi.b #$03,(a0)
  2178. bne.s L00182c
  2179. swap.w d6
  2180. move.w (L00527a,pc),d6
  2181. move.w (L005284,pc),d5
  2182. moveq.l #$00,d7
  2183. lea.l (-$017c,pc),a2
  2184. lea.l (L005386,pc),a5
  2185. L0017f6:
  2186. ror.w #1,d5
  2187. lsr.w #1,d6
  2188. bcc.s L001804
  2189. swap.w d6
  2190. bsr.w L001c32
  2191. swap.w d6
  2192. L001804:
  2193. lea.l ($0056,a5),a5
  2194. addq.b #1,d7
  2195. cmp.b #$08,d7
  2196. bne.s L0017f6
  2197. ror.w #1,d5
  2198. lsr.w #1,d6
  2199. bcc.s L00182a
  2200. move.b ($3a5a,pc),d0
  2201. cmp.b #$ff,d0
  2202. beq.s L00182a
  2203. moveq.l #$ff,d7
  2204. swap.w d6
  2205. bsr.w L001c52
  2206. swap.w d6
  2207. L00182a:
  2208. swap.w d6
  2209. L00182c:
  2210. lsr.w #1,d6
  2211. bcc.w L0018d0
  2212. swap.w d6
  2213. move.w (L005278,pc),d6
  2214. move.w (L005284,pc),d5
  2215. moveq.l #$00,d7
  2216. lea.l (-$01cc,pc),a2
  2217. lea.l (L005386,pc),a5
  2218. L001846:
  2219. ror.w #1,d5
  2220. lsr.w #1,d6
  2221. bcc.s L001854
  2222. swap.w d6
  2223. bsr.w L001c32
  2224. swap.w d6
  2225. L001854:
  2226. lea.l ($0056,a5),a5
  2227. addq.b #1,d7
  2228. cmp.b #$08,d7
  2229. bne.s L001846
  2230. ror.w #1,d5
  2231. lsr.w #1,d6
  2232. bcc.s L001878
  2233. move.b ($3a0a,pc),d0
  2234. cmp.b #$ff,d0
  2235. beq.s L001878
  2236. moveq.l #$ff,d7
  2237. swap.w d6
  2238. bsr.w L001c52
  2239. L001878:
  2240. move.b (L005280,pc),d0
  2241. beq.s L0018d0
  2242. lea.l (L005280,pc),a0
  2243. subq.b #1,($0003,a0)
  2244. bcc.s L0018d0
  2245. addq.b #1,(L00568c)
  2246. cmpi.b #$40,(L00568c) ;'@'
  2247. bcc.s L0018de
  2248. move.b ($0002,a0),($0003,a0)
  2249. moveq.l #$00,d7
  2250. lea.l (L005386,pc),a5
  2251. move.w (L005284,pc),d5
  2252. L0018a8:
  2253. ror.w #1,d5
  2254. bcc.s L0018c4
  2255. tst.b ($0014,a5)
  2256. beq.s L0018c4
  2257. bmi.s L0018c4
  2258. bsr.w L001e02
  2259. move.b ($0038,a5),d2
  2260. add.b d7,d2
  2261. moveq.l #$08,d1
  2262. IOCS _OPMSET
  2263. L0018c4:
  2264. lea.l ($0056,a5),a5
  2265. addq.b #1,d7
  2266. cmp.b #$08,d7
  2267. bne.s L0018a8
  2268. L0018d0:
  2269. ori.b #$08,($00e88015)
  2270. movem.l (sp)+,d0-d7/a0-a6
  2271. rte
  2272. L0018de:
  2273. move.w (L005284,pc),d2
  2274. bsr.w L0007cc
  2275. lea.l (L001c2e,pc),a0
  2276. lea.l (L005386,pc),a5
  2277. moveq.l #$08,d0
  2278. move.w (L005284,pc),d6
  2279. L0018f4:
  2280. lsr.w #1,d6
  2281. bcc.s L0018fe
  2282. clr.b (a5)
  2283. move.l a0,($0002,a5)
  2284. L0018fe:
  2285. lea.l ($0056,a5),a5
  2286. dbra.w d0,L0018f4
  2287. clr.l (L005280)
  2288. clr.b (L00568c)
  2289. bra.s L0018d0
  2290. L001914:
  2291. move.w sr,-(sp)
  2292. ori.w #$0700,sr
  2293. move.l ($010c),(L005246)
  2294. suba.l a1,a1
  2295. IOCS _OPMINTST
  2296. lea.l (L001a06,pc),a1
  2297. cmpi.b #$3f,(L005276) ;'?'
  2298. bne.s L00193e
  2299. bsr.w L0019f6
  2300. lea.l (L0017a6,pc),a1
  2301. L00193e:
  2302. IOCS _OPMINTST
  2303. moveq.l #$78,d0 ;'x'
  2304. bsr.s L00196e
  2305. bsr.w L0019ec
  2306. move.w (sp)+,sr
  2307. rts
  2308. L00194e:
  2309. move.w sr,-(sp)
  2310. ori.w #$0700,sr
  2311. moveq.l #$78,d0 ;'x'
  2312. bsr.s L00196e
  2313. bsr.w L0019ec
  2314. cmpi.b #$3f,(L005276) ;'?'
  2315. bne.s L00196a
  2316. bsr.w L0019f6
  2317. L00196a:
  2318. move.w (sp)+,sr
  2319. rts
  2320. L00196e:
  2321. move.b d0,(L00568d)
  2322. move.l #$00009897,d2
  2323. divu.w d0,d2
  2324. addq.w #4,d2
  2325. lsr.w #3,d2
  2326. neg.b d2
  2327. move.b d2,(L00527d)
  2328. moveq.l #$12,d1
  2329. IOCS _OPMSET
  2330. rts
  2331. L001990:
  2332. move.b d0,(L00568d)
  2333. L001996:
  2334. move.l #$00004c4b,d1
  2335. divu.w d0,d1
  2336. move.w #$0400,d2
  2337. sub.w d1,d2
  2338. move.w d2,(L00527e)
  2339. move.w d2,d3
  2340. lsr.w #2,d2
  2341. moveq.l #$10,d1
  2342. IOCS _OPMSET
  2343. move.w d3,d2
  2344. and.b #$03,d2
  2345. moveq.l #$11,d1
  2346. IOCS _OPMSET
  2347. rts
  2348. L0019c2:
  2349. move.b (L00527d,pc),d2
  2350. moveq.l #$12,d1
  2351. IOCS _OPMSET
  2352. rts
  2353. L0019ce:
  2354. move.w (L00527e),d2
  2355. move.w d2,d3
  2356. lsr.w #2,d2
  2357. moveq.l #$10,d1
  2358. IOCS _OPMSET
  2359. move.w d3,d2
  2360. and.b #$03,d2
  2361. moveq.l #$11,d1
  2362. IOCS _OPMSET
  2363. rts
  2364. L0019ec:
  2365. moveq.l #$00,d2
  2366. moveq.l #$12,d1
  2367. IOCS _OPMSET
  2368. rts
  2369. L0019f6:
  2370. moveq.l #$00,d2
  2371. moveq.l #$10,d1
  2372. IOCS _OPMSET
  2373. moveq.l #$11,d1
  2374. IOCS _OPMSET
  2375. rts
  2376. L001a06:
  2377. movem.l d0-d7/a0-a6,-(sp)
  2378. andi.b #$f7,($00e88015)
  2379. move.w sr,d6
  2380. andi.w #$f8ff,d6
  2381. ori.w #$0500,d6
  2382. move.w d6,sr
  2383. move.b (L003ab8,pc),d0
  2384. beq.w L001afc
  2385. lea.l ($383f,pc),a0
  2386. move.b ($080e),d0
  2387. andi.b #$06,d0
  2388. beq.w L001aec
  2389. move.b ($080a),d0
  2390. btst.l #$06,d0
  2391. beq.s L001a6c
  2392. st.b (L005275)
  2393. move.b ($2074,pc),d0
  2394. beq.s L001a60
  2395. moveq.l #$f8,d2
  2396. moveq.l #$10,d1
  2397. IOCS _OPMSET
  2398. moveq.l #$00,d2
  2399. moveq.l #$11,d1
  2400. IOCS _OPMSET
  2401. bra.w L001afc
  2402. L001a60:
  2403. moveq.l #$f8,d2
  2404. moveq.l #$12,d1
  2405. IOCS _OPMSET
  2406. bra.w L001afc
  2407. L001a6c:
  2408. btst.l #$07,d0
  2409. beq.s L001a96
  2410. tst.b (a0)
  2411. bne.s L001aec
  2412. st.b (a0)
  2413. clr.b (L003ab8)
  2414. moveq.l #$00,d2
  2415. move.b (L00568e,pc),d2
  2416. bsr.w L0005e6
  2417. moveq.l #$00,d2
  2418. bsr.w L000662
  2419. st.b (L003ab8)
  2420. bra.s L001aec
  2421. L001a96:
  2422. clr.b (a0)
  2423. move.b ($080b),d0
  2424. btst.l #$00,d0
  2425. beq.s L001ac0
  2426. tst.b ($0001,a0)
  2427. bne.s L001aec
  2428. st.b ($0001,a0)
  2429. clr.b (L003ab8)
  2430. moveq.l #$00,d2
  2431. bsr.w L0007cc
  2432. st.b (L003ab8)
  2433. L001abe:
  2434. bra.s L001aec
  2435. L001ac0:
  2436. clr.b ($0001,a0)
  2437. btst.l #$01,d0
  2438. beq.s L001ae8
  2439. tst.b ($0002,a0)
  2440. bne.s L001aec
  2441. st.b ($0002,a0)
  2442. clr.b (L003ab8)
  2443. moveq.l #$00,d2
  2444. bsr.w L000864
  2445. st.b (L003ab8)
  2446. bra.s L001aec
  2447. L001ae8:
  2448. clr.b ($0002,a0)
  2449. L001aec:
  2450. move.b (L005275,pc),d0
  2451. beq.s L001afc
  2452. clr.b (L005275)
  2453. bsr.w L0019c2
  2454. L001afc:
  2455. move.b ($1fbe,pc),d7
  2456. beq.s L001b10
  2457. lea.l ($3778,pc),a0
  2458. addq.b #1,(a0)
  2459. andi.b #$03,(a0)
  2460. bne.w L001bd2
  2461. L001b10:
  2462. moveq.l #$ff,d5
  2463. moveq.l #$00,d6
  2464. moveq.l #$00,d7
  2465. lea.l (-$04a4,pc),a2
  2466. lea.l (L005386,pc),a5
  2467. L001b1e:
  2468. bsr.w L001c32
  2469. lea.l ($0056,a5),a5
  2470. addq.b #1,d7
  2471. cmp.b #$08,d7
  2472. bne.s L001b1e
  2473. move.b ($3742,pc),d0
  2474. cmp.b #$ff,d0
  2475. beq.s L001b3e
  2476. moveq.l #$ff,d7
  2477. bsr.w L001c52
  2478. L001b3e:
  2479. move.b (L005280,pc),d0
  2480. beq.s L001b90
  2481. lea.l (L005280,pc),a0
  2482. subq.b #1,($0003,a0)
  2483. bcc.s L001b90
  2484. addq.b #1,(L00568c)
  2485. cmpi.b #$40,(L00568c) ;'@'
  2486. bcc.w L001bea
  2487. move.b ($0002,a0),($0003,a0)
  2488. moveq.l #$00,d7
  2489. lea.l (L005386,pc),a5
  2490. L001b6c:
  2491. tst.b ($0014,a5)
  2492. beq.s L001b84
  2493. bmi.s L001b84
  2494. bsr.w L001e02
  2495. move.b ($0038,a5),d2
  2496. add.b d7,d2
  2497. moveq.l #$08,d1
  2498. IOCS _OPMSET
  2499. L001b84:
  2500. lea.l ($0056,a5),a5
  2501. addq.b #1,d7
  2502. cmp.b #$08,d7
  2503. bne.s L001b6c
  2504. L001b90:
  2505. move.b ($36d4,pc),d0
  2506. beq.s L001bd2
  2507. move.w (L005262,pc),d0
  2508. bne.s L001bd2
  2509. move.w (L005264,pc),d0
  2510. beq.s L001bac
  2511. subq.w #1,d0
  2512. move.w d0,(L005264)
  2513. bra.s L001bd2
  2514. L001bac:
  2515. move.b (L003ab8,pc),(L001c30)
  2516. clr.b (L003ab8)
  2517. moveq.l #$00,d2
  2518. move.b (L00568e,pc),d2
  2519. bsr.w L0005e6
  2520. moveq.l #$00,d2
  2521. bsr.w L000662
  2522. move.b (L001c30,pc),(L003ab8)
  2523. L001bd2:
  2524. move.b (L005276,pc),d2
  2525. moveq.l #$14,d1
  2526. IOCS _OPMSET
  2527. ori.b #$08,($00e88015)
  2528. movem.l (sp)+,d0-d7/a0-a6
  2529. rte
  2530. L001bea:
  2531. move.b (L003ab8,pc),(L001c30)
  2532. clr.b (L003ab8)
  2533. moveq.l #$00,d2
  2534. bsr.w L0007cc
  2535. lea.l (L001c2e,pc),a0
  2536. lea.l (L005386,pc),a5
  2537. moveq.l #$08,d0
  2538. L001c08:
  2539. clr.b (a5)
  2540. move.l a0,($0002,a5)
  2541. lea.l ($0056,a5),a5
  2542. dbra.w d0,L001c08
  2543. clr.l (L005280)
  2544. clr.b (L00568c)
  2545. move.b (L001c30,pc),(L003ab8)
  2546. bra.w L001b90
  2547. L001c2e:
  2548. DOS _CHANGE_PR
  2549. L001c30:
  2550. .dc.b $00,$00
  2551. L001c32:
  2552. tst.b ($0014,a5)
  2553. beq.s L001c50
  2554. tst.b (a5)
  2555. beq.s L001c62
  2556. subq.b #1,(a5)
  2557. beq.s L001c62
  2558. tst.b ($0001,a5)
  2559. beq.w L001cde
  2560. subq.b #1,($0001,a5)
  2561. beq.w L001cde
  2562. L001c50:
  2563. rts
  2564. L001c52:
  2565. tst.b ($0014,a5)
  2566. beq.s L001c60
  2567. tst.b (a5)
  2568. beq.s L001c72
  2569. subq.b #1,(a5)
  2570. beq.s L001c72
  2571. L001c60:
  2572. rts
  2573. L001c62:
  2574. lea.l (L001d00,pc),a4
  2575. movea.l ($0002,a5),a0
  2576. bsr.s L001c82
  2577. move.l a0,($0002,a5)
  2578. rts
  2579. L001c72:
  2580. lea.l ($009c,pc),a4
  2581. movea.l ($0002,a5),a0
  2582. bsr.s L001c82
  2583. move.l a0,($0002,a5)
  2584. rts
  2585. L001c82:
  2586. moveq.l #$00,d0
  2587. move.b (a0)+,d0
  2588. bpl.w L001d20
  2589. cmp.b #$ff,d0
  2590. beq.s L001ca2
  2591. move.b (a0)+,d1
  2592. move.b (a0)+,d2
  2593. lsr.w #4,d0
  2594. subq.w #8,d0
  2595. add.w d0,d0
  2596. move.w (a4,d0.w),d0
  2597. jmp (a4,d0.w)
  2598. L001ca2:
  2599. subq.l #1,a0
  2600. st.b ($004d,a5)
  2601. move.w (L005262,pc),d0
  2602. tst.b d7
  2603. bpl.s L001cb6
  2604. andi.w #$00ff,d0
  2605. bra.s L001cb8
  2606. L001cb6:
  2607. bclr.l d7,d0
  2608. L001cb8:
  2609. move.w d0,(L005262)
  2610. and.w (L005278,pc),d0
  2611. bne.s L001cc8
  2612. bsr.w L0019ec
  2613. L001cc8:
  2614. move.w (L005262,pc),d0
  2615. and.w (L00527a,pc),d0
  2616. bne.s L001cd6
  2617. bsr.w L0019f6
  2618. L001cd6:
  2619. clr.b ($0014,a5)
  2620. tst.b d7
  2621. bmi.s L001cf0
  2622. L001cde:
  2623. movem.l d0-d2,-(sp)
  2624. move.b d7,d2
  2625. moveq.l #$08,d1
  2626. IOCS _OPMSET
  2627. movem.l (sp)+,d0-d2
  2628. rts
  2629. L001cf0:
  2630. movem.l d0-d1,-(sp)
  2631. moveq.l #$00,d1
  2632. L001cf6:
  2633. IOCS _ADPCMMOD
  2634. movem.l (sp)+,d0-d1
  2635. rts
  2636. L001d00:
  2637. .dc.w $00f8,$008e,$00aa,$00ba,$027a,$00d0,$00d8,$0198
  2638. .dc.w $ff72,$007e,$ff72,$00aa
  2639. L001d18:
  2640. andi.w #$00c0,($00dc,a2)
  2641. bchg.b d0,(a6)+
  2642. L001d20:
  2643. move.b (a0)+,(a5)
  2644. move.b (a0)+,($0001,a5)
  2645. cmp.b #$7f,d0
  2646. beq.s L001d68
  2647. move.b #$01,($0014,a5)
  2648. tst.b d7
  2649. bmi.s L001d70
  2650. add.b ($004e,a5),d0
  2651. move.b (a2,d0.w),d2
  2652. moveq.l #$28,d1 ;'('
  2653. add.b d7,d1
  2654. IOCS _OPMSET
  2655. tst.b ($003a,a5)
  2656. beq.s L001d5a
  2657. moveq.l #$01,d1
  2658. moveq.l #$02,d2
  2659. IOCS _OPMSET
  2660. moveq.l #$00,d2
  2661. IOCS _OPMSET
  2662. L001d5a:
  2663. move.b ($0038,a5),d2
  2664. add.b d7,d2
  2665. moveq.l #$08,d1
  2666. IOCS _OPMSET
  2667. rts
  2668. L001d68:
  2669. move.b #$81,($0014,a5)
  2670. rts
  2671. L001d70:
  2672. move.b ($004e,a5),d3
  2673. bne.s L001d86
  2674. L001d76:
  2675. move.b (L005280,pc),d1
  2676. bne.s L001d84
  2677. move.b d0,d2
  2678. moveq.l #$02,d1
  2679. IOCS _OPMSET
  2680. L001d84:
  2681. rts
  2682. L001d86:
  2683. add.b d3,d0
  2684. bcc.s L001d76
  2685. moveq.l #$00,d0
  2686. bra.s L001d76
  2687. tst.b d6
  2688. bmi.s L001d9e
  2689. moveq.l #$00,d0
  2690. move.b d1,d0
  2691. bsr.w L00196e
  2692. bra.w L001c82
  2693. L001d9e:
  2694. moveq.l #$00,d0
  2695. move.b d1,d0
  2696. bsr.w L001996
  2697. bra.w L001c82
  2698. move.b d1,($0053,a5)
  2699. move.b d1,d0
  2700. subq.b #1,d0
  2701. bsr.w L0020f4
  2702. bra.w L001c82
  2703. cmpi.b #$02,d1
  2704. bne.s L001dc8
  2705. move.b (L005280,pc),d0
  2706. bne.w L001c82
  2707. L001dc8:
  2708. IOCS _OPMSET
  2709. bra.w L001c82
  2710. move.b d1,(a5)
  2711. move.b d1,($0001,a5)
  2712. rts
  2713. L001dd8:
  2714. move.b d1,d2
  2715. lsl.b #6,d2
  2716. or.b ($003e,a5),d2
  2717. moveq.l #$20,d1 ;' '
  2718. or.b d7,d1
  2719. IOCS _OPMSET
  2720. bra.w L001c82
  2721. move.b d1,d2
  2722. moveq.l #$03,d1
  2723. IOCS _OPMSET
  2724. bra.w L001c82
  2725. move.b d1,($003c,a5)
  2726. bsr.s L001e02
  2727. bra.w L001c82
  2728. L001e02:
  2729. move.b ($003c,a5),d3
  2730. tst.w d5
  2731. bpl.s L001e12
  2732. add.b (L00568c,pc),d3
  2733. bpl.s L001e12
  2734. moveq.l #$7f,d3
  2735. L001e12:
  2736. moveq.l #$78,d1 ;'x'
  2737. add.b d7,d1
  2738. move.b ($002e,a5),d2
  2739. tst.b ($0036,a5)
  2740. beq.s L001e26
  2741. add.b d3,d2
  2742. bpl.s L001e26
  2743. moveq.l #$7f,d2
  2744. L001e26:
  2745. IOCS _OPMSET
  2746. subq.b #8,d1
  2747. move.b ($002a,a5),d2
  2748. tst.b ($0032,a5)
  2749. beq.s L001e3c
  2750. add.b d3,d2
  2751. bpl.s L001e3c
  2752. moveq.l #$7f,d2
  2753. L001e3c:
  2754. IOCS _OPMSET
  2755. subq.b #8,d1
  2756. move.b ($002c,a5),d2
  2757. tst.b ($0034,a5)
  2758. beq.s L001e52
  2759. add.b d3,d2
  2760. bpl.s L001e52
  2761. moveq.l #$7f,d2
  2762. L001e52:
  2763. IOCS _OPMSET
  2764. subq.b #8,d1
  2765. move.b ($0028,a5),d2
  2766. tst.b ($0030,a5)
  2767. beq.s L001e68
  2768. add.b d3,d2
  2769. bpl.s L001e68
  2770. moveq.l #$7f,d2
  2771. L001e68:
  2772. IOCS _OPMSET
  2773. rts
  2774. L001e6e:
  2775. and.w #$00ff,d1
  2776. move.w (Table1,pc,d1.w),d0
  2777. jmp (Table1,pc,d0.w)
  2778. Table1:
  2779. .dc.w L001e8c-Table1
  2780. .dc.w L001c82-Table1
  2781. .dc.w L001c82-Table1
  2782. .dc.w L001efa-Table1
  2783. .dc.w L001f1a-Table1
  2784. .dc.w L001f3a-Table1
  2785. .dc.w L001f68-Table1
  2786. .dc.w L001f4a-Table1
  2787. .dc.w L001f46-Table1
  2788. L001e8c:
  2789. move.b d1,d2
  2790. moveq.l #$0d,d1
  2791. IOCS _OPMSET
  2792. bra.w L001c82
  2793. and.w #$00ff,d1
  2794. move.w (Table2,pc,d1.w),d0
  2795. jmp (Table2,pc,d0.w)
  2796. Table2:
  2797. .dc.w L001f58-Table2
  2798. .dc.w L001eb6-Table2
  2799. .dc.w L001ed8-Table2
  2800. .dc.w L001efa-Table2
  2801. .dc.w L001f1a-Table2
  2802. .dc.w L001f3a-Table2
  2803. .dc.w L001f68-Table2
  2804. .dc.w L001f4a-Table2
  2805. .dc.w L001f70-Table2
  2806. L001eb6:
  2807. tst.b d2
  2808. bne.s $00001ebe
  2809. move.b ($0050,a5),d2
  2810. move.b ($003c,a5),d1
  2811. sub.b d2,d1
  2812. bcc.s $00001ec8
  2813. moveq.l #$00,d1
  2814. move.b d1,($003c,a5)
  2815. move.b d2,($0050,a5)
  2816. bsr.w L001e02
  2817. bra.w L001c82
  2818. tst.b d2
  2819. bne.s $00001ee0
  2820. move.b ($0051,a5),d2
  2821. move.b ($003c,a5),d1
  2822. add.b d2,d1
  2823. bpl.s $00001eea
  2824. moveq.l #$7f,d1
  2825. move.b d1,($003c,a5)
  2826. move.b d2,($0051,a5)
  2827. bsr.w L001e02
  2828. bra.w L001c82
  2829. tst.b d6
  2830. bmi.w L001c82
  2831. moveq.l #$00,d1
  2832. move.b (L00568d,pc),d1
  2833. and.w #$00ff,d2
  2834. add.w d2,d1
  2835. cmp.w #$00c8,d1
  2836. bcs.w $00001d8e
  2837. moveq.l #$c8,d1
  2838. bra.w $00001d8e
  2839. tst.b d6
  2840. bmi.w L001c82
  2841. moveq.l #$00,d0
  2842. move.b (L00568d,pc),d1
  2843. and.w #$00ff,d2
  2844. sub.w d2,d1
  2845. cmp.w #$0020,d1 ;' '
  2846. bcc.w $00001d8e
  2847. moveq.l #$20,d1 ;' '
  2848. bra.w $00001d8e
  2849. move.b d2,($004f,a5)
  2850. add.b ($0052,a5),d2
  2851. move.b d2,($004e,a5)
  2852. bra.w L001c82
  2853. move.b d2,($0052,a5)
  2854. add.b ($004f,a5),d2
  2855. move.b d2,($004e,a5)
  2856. move.b (a0)+,d2
  2857. move.b d2,($0054,a5)
  2858. moveq.l #$30,d1 ;'0'
  2859. or.b d7,d1
  2860. IOCS _OPMSET
  2861. bra.w L001c82
  2862. bsr.w L000938
  2863. bra.w L001c82
  2864. move.b d2,(L005277)
  2865. bra.w L001c82
  2866. cmp.b #$0b,d1
  2867. bcc.w L001c82
  2868. moveq.l #$00,d0
  2869. move.b d1,d0
  2870. add.w d0,d0
  2871. move.w (L001f90,pc,d0.w),d0
  2872. jmp (L001f90,pc,d0.w)
  2873. L001f90:
  2874. .dc.w L00207e-L001f90
  2875. .dc.w L002098-L001f90
  2876. .dc.w L0020c8-L001f90
  2877. .dc.w L001fa6-L001f90
  2878. .dc.w L001fce-L001f90
  2879. .dc.w L001fdc-L001f90
  2880. .dc.w L001c82-L001f90
  2881. .dc.w L002006-L001f90
  2882. .dc.w L002032-L001f90
  2883. .dc.w L00203e-L001f90
  2884. .dc.w L00204c-L001f90
  2885. L001fa6:
  2886. tst.b ($0016,a5)
  2887. bne.w L001c82
  2888. move.l a0,($001a,a5)
  2889. move.b d7,d0
  2890. bsr.w L000b36
  2891. movea.l ($0002,a5),a0
  2892. moveq.l #$01,d0
  2893. move.b d0,($0016,a5)
  2894. move.b d0,($0018,a5)
  2895. move.b d0,($001e,a5)
  2896. bra.w L001c82
  2897. move.b #$01,($0020,a5)
  2898. move.l a0,($0022,a5)
  2899. bra.w L001c82
  2900. tst.b ($0020,a5)
  2901. beq.w L001c82
  2902. tst.b ($0026,a5)
  2903. bne.w L001c82
  2904. moveq.l #$01,d0
  2905. move.b d0,($0026,a5)
  2906. move.b d0,($0018,a5)
  2907. move.b d0,($001e,a5)
  2908. move.l a0,($001a,a5)
  2909. movea.l ($0022,a5),a0
  2910. bra.w L001c82
  2911. tst.b ($001e,a5)
  2912. beq.w L001c82
  2913. movea.l ($001a,a5),a0
  2914. cmpi.b #$c0,(a0)
  2915. bne.s $00002020
  2916. cmpi.b #$06,($0001,a0)
  2917. beq.s $0000202c
  2918. cmpi.b #$ff,(a0)
  2919. beq.w $00001ca4
  2920. addq.l #3,a0
  2921. bra.s $00002012
  2922. addq.l #3,a0
  2923. bra.w L001c82
  2924. tst.b ($0018,a5)
  2925. beq.w L001c82
  2926. bra.w $00001ca4
  2927. move.b #$01,($0046,a5)
  2928. move.l a0,($0048,a5)
  2929. bra.w L001c82
  2930. addq.b #1,($004c,a5)
  2931. bcc.s $00002056
  2932. st.b ($004c,a5)
  2933. tst.b ($0046,a5)
  2934. beq.s $00002070
  2935. move.l ($0048,a5),d0
  2936. addq.l #3,d0
  2937. cmp.l a0,d0
  2938. beq.w L001c82
  2939. movea.l ($0048,a5),a0
  2940. bra.w L001c82
  2941. move.b d7,d0
  2942. bsr.w L000b36
  2943. movea.l ($0002,a5),a0
  2944. bra.w L001c82
  2945. move.b d2,($0012,a5)
  2946. move.l a0,($000a,a5)
  2947. clr.b ($0042,a5)
  2948. clr.b ($0040,a5)
  2949. move.b #$01,($0044,a5)
  2950. bra.w L001c82
  2951. tst.b ($0044,a5)
  2952. beq.w L001c82
  2953. tst.b ($0040,a5)
  2954. beq.s $000020b2
  2955. move.b #$01,($0042,a5)
  2956. move.l a0,($000e,a5)
  2957. bra.s $000020b8
  2958. subq.b #1,($0012,a5)
  2959. beq.s $000020c0
  2960. movea.l ($000a,a5),a0
  2961. bra.w L001c82
  2962. clr.b ($0044,a5)
  2963. bra.w L001c82
  2964. tst.b ($0040,a5)
  2965. beq.s $000020ea
  2966. tst.b ($0042,a5)
  2967. beq.s $000020e4
  2968. clr.b ($0040,a5)
  2969. clr.b ($0042,a5)
  2970. movea.l ($000e,a5),a0
  2971. bra.w L001c82
  2972. st.b (a0)
  2973. bra.w L001c82
  2974. move.b #$01,($0040,a5)
  2975. bra.w L001c82
  2976. L0020f4:
  2977. movem.l d0-d3/a1,-(sp)
  2978. lea.l (L00568f,pc),a1
  2979. mulu.w #$0037,d0
  2980. adda.l d0,a1
  2981. bsr.w L0022c6
  2982. moveq.l #$0f,d2
  2983. moveq.l #$f8,d1
  2984. or.b d7,d1
  2985. IOCS _OPMSET
  2986. subq.l #8,d1
  2987. IOCS _OPMSET
  2988. subq.l #8,d1
  2989. IOCS _OPMSET
  2990. subq.l #8,d1
  2991. IOCS _OPMSET
  2992. moveq.l #$20,d1 ;' '
  2993. or.b d7,d1
  2994. move.b ($0009,a1),d2
  2995. lsl.b #6,d2
  2996. or.b (a1),d2
  2997. IOCS _OPMSET
  2998. moveq.l #$38,d1 ;'8'
  2999. or.b d7,d1
  3000. move.b ($0007,a1),d2
  3001. lsl.b #4,d2
  3002. or.b ($0008,a1),d2
  3003. IOCS _OPMSET
  3004. moveq.l #$18,d1
  3005. move.b ($0004,a1),d2
  3006. IOCS _OPMSET
  3007. moveq.l #$19,d1
  3008. move.b ($0005,a1),d2
  3009. ori.b #$80,d2
  3010. IOCS _OPMSET
  3011. moveq.l #$19,d1
  3012. move.b ($0006,a1),d2
  3013. andi.b #$7f,d2
  3014. IOCS _OPMSET
  3015. moveq.l #$1b,d1
  3016. move.b ($0002,a1),d2
  3017. andi.b #$03,d2
  3018. IOCS _OPMSET
  3019. moveq.l #$40,d1 ;'@'
  3020. or.b d7,d1
  3021. move.b ($0013,a1),d2
  3022. lsl.b #4,d2
  3023. or.b ($0012,a1),d2
  3024. IOCS _OPMSET
  3025. addq.b #8,d1
  3026. move.b ($0029,a1),d2
  3027. lsl.b #4,d2
  3028. or.b ($0028,a1),d2
  3029. IOCS _OPMSET
  3030. addq.b #8,d1
  3031. move.b ($001e,a1),d2
  3032. lsl.b #4,d2
  3033. or.b ($001d,a1),d2
  3034. IOCS _OPMSET
  3035. addq.b #8,d1
  3036. move.b ($0034,a1),d2
  3037. lsl.b #4,d2
  3038. or.b ($0033,a1),d2
  3039. IOCS _OPMSET
  3040. bsr.w L001e02
  3041. moveq.l #$80,d1
  3042. or.b d7,d1
  3043. move.b ($0011,a1),d2
  3044. lsl.b #6,d2
  3045. or.b ($000b,a1),d2
  3046. IOCS _OPMSET
  3047. addq.b #8,d1
  3048. move.b ($0027,a1),d2
  3049. lsl.b #6,d2
  3050. or.b ($0021,a1),d2
  3051. IOCS _OPMSET
  3052. addq.b #8,d1
  3053. move.b ($001c,a1),d2
  3054. lsl.b #6,d2
  3055. or.b ($0016,a1),d2
  3056. IOCS _OPMSET
  3057. addq.b #8,d1
  3058. move.b ($0032,a1),d2
  3059. lsl.b #6,d2
  3060. or.b ($002c,a1),d2
  3061. IOCS _OPMSET
  3062. addq.b #8,d1
  3063. move.b ($0015,a1),d2
  3064. lsl.b #7,d2
  3065. or.b ($000c,a1),d2
  3066. IOCS _OPMSET
  3067. addq.b #8,d1
  3068. move.b ($002b,a1),d2
  3069. lsl.b #7,d2
  3070. or.b ($0022,a1),d2
  3071. IOCS _OPMSET
  3072. addq.b #8,d1
  3073. move.b ($0020,a1),d2
  3074. lsl.b #7,d2
  3075. or.b ($0017,a1),d2
  3076. IOCS _OPMSET
  3077. addq.b #8,d1
  3078. move.b ($0036,a1),d2
  3079. lsl.b #7,d2
  3080. or.b ($002d,a1),d2
  3081. IOCS _OPMSET
  3082. addq.b #8,d1
  3083. move.b ($0014,a1),d2
  3084. lsl.b #6,d2
  3085. or.b ($000d,a1),d2
  3086. IOCS _OPMSET
  3087. addq.b #8,d1
  3088. move.b ($002a,a1),d2
  3089. lsl.b #6,d2
  3090. or.b ($0023,a1),d2
  3091. IOCS _OPMSET
  3092. addq.b #8,d1
  3093. move.b ($001f,a1),d2
  3094. lsl.b #6,d2
  3095. or.b ($0018,a1),d2
  3096. IOCS _OPMSET
  3097. addq.b #8,d1
  3098. move.b ($0035,a1),d2
  3099. lsl.b #6,d2
  3100. or.b ($002e,a1),d2
  3101. IOCS _OPMSET
  3102. addq.b #8,d1
  3103. move.b ($000f,a1),d2
  3104. lsl.b #4,d2
  3105. or.b ($000e,a1),d2
  3106. IOCS _OPMSET
  3107. addq.b #8,d1
  3108. move.b ($0025,a1),d2
  3109. lsl.b #4,d2
  3110. or.b ($0024,a1),d2
  3111. IOCS _OPMSET
  3112. addq.b #8,d1
  3113. move.b ($001a,a1),d2
  3114. lsl.b #4,d2
  3115. or.b ($0019,a1),d2
  3116. IOCS _OPMSET
  3117. addq.b #8,d1
  3118. move.b ($0030,a1),d2
  3119. lsl.b #4,d2
  3120. or.b ($002f,a1),d2
  3121. IOCS _OPMSET
  3122. movem.l (sp)+,d0-d3/a1
  3123. rts
  3124. L0022c6:
  3125. movem.l d0/a0,-(sp)
  3126. L0022ca:
  3127. move.b ($0010,a1),($0028,a5)
  3128. move.b ($001b,a1),($002a,a5)
  3129. move.b ($0026,a1),($002c,a5)
  3130. move.b ($0031,a1),($002e,a5)
  3131. move.b (a1),d0
  3132. andi.w #$0007,d0
  3133. add.w d0,d0
  3134. add.w d0,d0
  3135. lea.l (L00231a,pc,d0.w),a0
  3136. move.b (a0)+,($0030,a5)
  3137. move.b (a0)+,($0032,a5)
  3138. move.b (a0)+,($0034,a5)
  3139. move.b (a0)+,($0036,a5)
  3140. move.b ($0001,a1),d0
  3141. lsl.b #3,d0
  3142. move.b d0,($0038,a5)
  3143. move.b ($0003,a1),($003a,a5)
  3144. move.b (a1),($003e,a5)
  3145. movem.l (sp)+,d0/a0
  3146. rts
  3147. L00231a:
  3148. .dc.b $00,$00,$00,$01,$00,$00,$00,$01,$00,$00,$00,$01,$00,$00,$00,$01
  3149. .dc.b $00,$01,$00,$01,$00,$01,$01,$01,$00,$01,$01,$01,$01,$01,$01,$01
  3150. L00233a:
  3151. movem.l d0-d7/a0-a1,-(sp)
  3152. tst.l d0
  3153. beq.s $00002354
  3154. lea.l (L00568f,pc),a1
  3155. lea.l (Ins1,pc),a0
  3156. move.w #$0e9b,d0
  3157. move.b (a0)+,(a1)+
  3158. dbra.w d0,$0000234e
  3159. moveq.l #$00,d2
  3160. moveq.l #$0f,d1
  3161. IOCS _OPMSET
  3162. lea.l (L005386,pc),a5
  3163. moveq.l #$30,d1 ;'0'
  3164. moveq.l #$14,d2
  3165. moveq.l #$07,d3
  3166. moveq.l #$00,d7
  3167. clr.w (a5)
  3168. clr.b ($0016,a5)
  3169. clr.b ($0018,a5)
  3170. clr.b ($001e,a5)
  3171. clr.b ($0020,a5)
  3172. clr.b ($0026,a5)
  3173. clr.b ($0044,a5)
  3174. clr.b ($0046,a5)
  3175. clr.l ($004c,a5)
  3176. move.b #$15,($003c,a5)
  3177. move.l #$01010000,($0050,a5)
  3178. moveq.l #$00,d0
  3179. bsr.w L0020f4
  3180. IOCS _OPMSET
  3181. addq.b #1,d1
  3182. addq.b #1,d7
  3183. lea.l ($0056,a5),a5
  3184. dbra.w d3,$00002368
  3185. movem.l (sp)+,d0-d7/a0-a1
  3186. rts
  3187. L0023b4:
  3188. move.l a0,-(sp)
  3189. lea.l (L005286,pc),a0
  3190. moveq.l #$00,d0
  3191. move.b d1,d0
  3192. move.b d2,(a0,d0.w)
  3193. tst.b ($0002,a0)
  3194. bne.s L0023d0
  3195. movea.l (sp)+,a0
  3196. move.l ($2e72,pc),-(sp)
  3197. rts
  3198. L0023d0:
  3199. movem.l d1-d3/a1,-(sp)
  3200. move.l (L00523a,pc),d3
  3201. beq.s $00002412
  3202. IOCS _ADPCMSNS
  3203. tst.l d0
  3204. beq.s $000023ee
  3205. tst.b ($000e,a0)
  3206. bne.s $00002416
  3207. moveq.l #$00,d1
  3208. IOCS _ADPCMMOD
  3209. move.b ($000d,a0),d1
  3210. lsl.w #8,d1
  3211. move.b ($0003,a0),d1
  3212. moveq.l #$00,d0
  3213. move.b ($0002,a0),d0
  3214. lsl.w #3,d0
  3215. add.l d3,d0
  3216. movea.l d0,a1
  3217. move.l ($0004,a1),d2
  3218. beq.s $00002412
  3219. st.b (a1)
  3220. movea.l (a1),a1
  3221. IOCS _ADPCMOUT
  3222. clr.b ($000e,a0)
  3223. clr.b ($0002,a0)
  3224. movem.l (sp)+,d1-d3/a1
  3225. movea.l (sp)+,a0
  3226. rts
  3227. L002422:
  3228. movem.l d1-d7/a0-a6,-(sp)
  3229. movea.l ($0012,a5),a2
  3230. tst.b (a2)+
  3231. bne.s $0000242a
  3232. movea.l a2,a0
  3233. tst.b (a0)+
  3234. bne.s $00002430
  3235. move.b #$20,(-$0001,a0) ;' '
  3236. tst.b (a0)
  3237. bne.s $00002430
  3238. clr.b (UnknownVar1)
  3239. L002444:
  3240. bsr.s L0024ba
  3241. bmi.s $00002452
  3242. L002448:
  3243. bsr.w L00271a
  3244. bmi.s $00002452
  3245. bsr.w L002756
  3246. movem.l (sp)+,d1-d7/a0-a6
  3247. rts
  3248. Start:
  3249. lea.l (StackTop),sp
  3250. st.b (UnknownVar1)
  3251. lea.l ($0010,a0),a3
  3252. movea.l ($0008,a0),a4
  3253. addq.l #1,a2
  3254. clr.l -(sp)
  3255. DOS _SUPER
  3256. move.l d0,(sp)
  3257. bsr.s L0024ba
  3258. bmi.s L002496
  3259. bsr.w L002738
  3260. bmi.s L002496
  3261. bsr.w L002756
  3262. bsr.s L0024a0
  3263. DOS _SUPER
  3264. addq.l #4,sp
  3265. lea.l (L003745,pc),a0
  3266. bsr.w L002864
  3267. clr.w -(sp)
  3268. move.l d7,-(sp)
  3269. DOS _KEEPPR
  3270. L002496:
  3271. DOS _SUPER
  3272. addq.l #4,sp
  3273. move.w #$0001,-(sp)
  3274. DOS _EXIT2
  3275. L0024a0:
  3276. move.l a1,-(sp)
  3277. moveq.l #$ff,d0
  3278. lea.l ($1cb6),a0
  3279. bra.s L0024ac
  3280. L0024aa:
  3281. movea.l (a0),a0
  3282. L0024ac:
  3283. cmp.l (a0),d0
  3284. bne.s L0024aa
  3285. lea.l (L000000,pc),a1
  3286. move.l a1,(a0)
  3287. movea.l (sp)+,a1
  3288. rts
  3289. L0024ba:
  3290. lea.l (L003ab8,pc),a1
  3291. bra.s L0024d2
  3292. L0024c0:
  3293. move.b (a2)+,d0
  3294. beq.w L00267e
  3295. cmp.b #$20,d0 ;' '
  3296. beq.s L0024d2
  3297. cmp.b #$09,d0
  3298. bne.s L0024c0
  3299. L0024d2:
  3300. move.b (a2)+,d0
  3301. cmp.b #$20,d0 ;' '
  3302. beq.s L0024d2
  3303. cmp.b #$09,d0
  3304. beq.s L0024d2
  3305. subq.l #1,a2
  3306. movea.l a2,a0
  3307. move.b (a0)+,d0
  3308. beq.w L00267e
  3309. cmpi.b #$2d,d0 ;'-'
  3310. beq.s L002534
  3311. cmpi.b #$2f,d0 ;'/'
  3312. beq.s L002534
  3313. cmpi.b #$23,d0 ;'#'
  3314. bne.s L0024c0
  3315. moveq.l #$00,d1
  3316. L0024fe:
  3317. move.b (a0)+,d0
  3318. beq.s L002522
  3319. cmp.b #$30,d0 ;'0'
  3320. beq.s L0024fe
  3321. L002508:
  3322. cmp.b #$30,d0 ;'0'
  3323. bcs.s L002522
  3324. cmp.b #$39,d0 ;'9'
  3325. bhi.s L002522
  3326. andi.w #$000f,d0
  3327. mulu.w #$000a,d1
  3328. add.w d0,d1
  3329. move.b (a0)+,d0
  3330. bra.s L002508
  3331. L002522:
  3332. tst.l d1
  3333. bne.s L002528
  3334. moveq.l #$40,d1 ;'@'
  3335. L002528:
  3336. moveq.l #$0a,d0
  3337. lsl.l d0,d1
  3338. move.l d1,(L003ac6)
  3339. bra.s L0024c0
  3340. L002534:
  3341. move.b (a0)+,d0
  3342. ori.b #$20,d0
  3343. cmp.b #$6b,d0 ;'k'
  3344. bne.s L00254e
  3345. bsr.w L00263a
  3346. bmi.w L00262e
  3347. st.b (a1)
  3348. bra.w L0024c0
  3349. L00254e:
  3350. cmp.b #$74,d0 ;'t'
  3351. bne.s L002564
  3352. bsr.w L00263a
  3353. bmi.w L00262e
  3354. st.b ($0001,a1)
  3355. bra.w L0024c0
  3356. L002564:
  3357. cmp.b #$6d,d0 ;'m'
  3358. bne.s L00257a
  3359. bsr.w L00263a
  3360. bmi.w L00262e
  3361. st.b ($0002,a1)
  3362. bra.w L0024c0
  3363. L00257a:
  3364. cmp.b #$72,d0 ;'r'
  3365. bne.s L002590
  3366. bsr.w L00263a
  3367. bmi.w L00262e
  3368. st.b ($0003,a1)
  3369. bra.w L0024c0
  3370. L002590:
  3371. cmp.b #$61,d0 ;'a'
  3372. bne.s L0025e0
  3373. bsr.w L00263a
  3374. bmi.s L0025a4
  3375. st.b ($0004,a1)
  3376. bra.w L0024c0
  3377. L0025a4:
  3378. moveq.l #$00,d0
  3379. moveq.l #$00,d1
  3380. L0025a8:
  3381. move.b (a0),d0
  3382. beq.s L0025d0
  3383. cmpi.b #$20,d0 ;' '
  3384. beq.s L0025d0
  3385. cmpi.b #$09,d0
  3386. beq.s L0025d0
  3387. subi.b #$30,d0 ;'0'
  3388. bcs.s L00262e
  3389. beq.s L0025ce
  3390. cmpi.b #$0a,d0
  3391. bcc.s L00262e
  3392. subq.b #1,d0
  3393. bset.l d0,d1
  3394. addq.l #1,a0
  3395. bra.s L0025a8
  3396. L0025ce:
  3397. moveq.l #$00,d1
  3398. L0025d0:
  3399. move.w d1,(L003ac0)
  3400. move.b #$01,($0004,a1)
  3401. bra.w L0024c0
  3402. L0025e0:
  3403. cmp.b #$62,d0 ;'b'
  3404. bne.s L0025f2
  3405. bsr.s L00263a
  3406. bmi.s L00262e
  3407. st.b ($0005,a1)
  3408. bra.w L0024c0
  3409. L0025f2:
  3410. cmp.b #$65,d0 ;'e'
  3411. bne.s L002604
  3412. bsr.s L00263a
  3413. bmi.s L00262e
  3414. st.b ($0006,a1)
  3415. bra.w L0024c0
  3416. L002604:
  3417. cmp.b #$68,d0 ;'h'
  3418. bne.s L002610
  3419. bsr.s L00263a
  3420. bmi.s L00262e
  3421. bra.s L00261a
  3422. L002610:
  3423. cmp.b #$3f,d0 ;'?'
  3424. bne.s L00262e
  3425. bsr.s L00263a
  3426. bmi.s L00262e
  3427. L00261a:
  3428. lea.l (L00370e,pc),a0
  3429. bsr.w L002864
  3430. lea.l (L003777,pc),a0
  3431. bsr.w L002864
  3432. moveq.l #$ff,d0
  3433. rts
  3434. L00262e:
  3435. lea.l (L003a97,pc),a0
  3436. bsr.w L002864
  3437. moveq.l #$ff,d0
  3438. rts
  3439. L00263a:
  3440. move.b (a0),d0
  3441. beq.s L00264c
  3442. cmp.b #$20,d0 ;' '
  3443. beq.s L00264c
  3444. cmp.b #$09,d0
  3445. beq.s L00264c
  3446. moveq.l #$ff,d0
  3447. L00264c:
  3448. rts
  3449. L00264e:
  3450. move.w #$01f0,-(sp)
  3451. DOS _INTVCG
  3452. addq.l #2,sp
  3453. movea.l d0,a0
  3454. cmpi.l #$4d45574f,(-$0008,a0) ;'MEWO'
  3455. bne.s L00267a
  3456. cmpi.w #$504d,(-$0004,a0) ;'PM'
  3457. bne.s L00267a
  3458. cmpi.w #$0040,(-$0002,a0) ;'@'
  3459. bcs.s L002676
  3460. moveq.l #$00,d0
  3461. rts
  3462. L002676:
  3463. moveq.l #$01,d0
  3464. rts
  3465. L00267a:
  3466. moveq.l #$ff,d0
  3467. rts
  3468. L00267e:
  3469. lea.l (L00370e,pc),a0
  3470. bsr.w L002864
  3471. tst.b ($0003,a1)
  3472. bne.s L0026a0
  3473. bsr.s L00264e
  3474. bmi.s L00269c
  3475. lea.l (L0039ad,pc),a0
  3476. bsr.w L002864
  3477. moveq.l #$ff,d0
  3478. rts
  3479. L00269c:
  3480. moveq.l #$00,d0
  3481. rts
  3482. L0026a0:
  3483. bsr.s L00264e
  3484. beq.s L0026ba
  3485. bmi.s L0026e8
  3486. lea.l (L0039f4,pc),a0
  3487. bsr.w L002864
  3488. lea.l (L003a4e,pc),a0
  3489. bsr.w L002864
  3490. moveq.l #$ff,d0
  3491. rts
  3492. L0026ba:
  3493. moveq.l #$f0,d0
  3494. moveq.l #$ff,d1
  3495. trap #15
  3496. move.l d0,d1
  3497. bmi.s L002708
  3498. lea.l (L003977,pc),a0
  3499. bsr.w L002864
  3500. tst.b d1
  3501. beq.s L0026dc
  3502. lea.l (L00398a,pc),a0
  3503. bsr.w L002864
  3504. moveq.l #$ff,d0
  3505. rts
  3506. L0026dc:
  3507. lea.l (L003745,pc),a0
  3508. bsr.w L002864
  3509. moveq.l #$ff,d0
  3510. rts
  3511. L0026e8:
  3512. lea.l (L0039d3,pc),a0
  3513. bsr.w L002864
  3514. moveq.l #$ff,d0
  3515. rts
  3516. L0026f4:
  3517. lea.l (L003a2f,pc),a0
  3518. bsr.w L002864
  3519. lea.l (L003a4e,pc),a0
  3520. bsr.w L002864
  3521. moveq.l #$ff,d0
  3522. rts
  3523. L002708:
  3524. cmp.b #-$02,d1
  3525. beq.s L0026f4
  3526. lea.l (L003a65,pc),a0
  3527. bsr.w L002864
  3528. moveq.l #$ff,d0
  3529. rts
  3530. L00271a:
  3531. lea.l (StackBottom,pc),a0
  3532. adda.l (L003ac6,pc),a0
  3533. move.l ($1c00),d0
  3534. sub.l #$00020000,d0
  3535. cmpa.l d0,a0
  3536. bcc.s L00274a
  3537. move.l a0,($000e,a5)
  3538. moveq.l #$00,d0
  3539. rts
  3540. L002738:
  3541. lea.l (StackBottom,pc),a0
  3542. adda.l (L003ac6,pc),a0
  3543. cmpa.l a0,a4
  3544. bcs.s L00274a
  3545. suba.l a3,a0
  3546. move.l a0,d7
  3547. rts
  3548. L00274a:
  3549. lea.l (L003a80,pc),a0
  3550. bsr.w L002864
  3551. moveq.l #$ff,d0
  3552. rts
  3553. L002756:
  3554. lea.l (L003748,pc),a0
  3555. bsr.w L002864
  3556. lea.l (L003aca,pc),a0
  3557. move.w #$46bd,d0
  3558. L002766:
  3559. clr.b (a0)+
  3560. dbra.w d0,L002766
  3561. pea.l (L00040a,pc)
  3562. move.w #$01f0,-(sp)
  3563. DOS _INTVCS
  3564. addq.l #6,sp
  3565. move.l d0,(L005242)
  3566. move.b #$3a,(L005276) ;':'
  3567. move.w #$01ff,(L005278)
  3568. tst.b ($0004,a1)
  3569. beq.s L002806
  3570. bpl.s L0027e0
  3571. movem.l a0-a1,-(sp)
  3572. lea.l (L001990,pc),a0
  3573. lea.l (L00196e,pc),a1
  3574. moveq.l #$32,d0 ;'2'
  3575. L0027a4:
  3576. move.b (a0)+,(a1)+
  3577. dbra.w d0,L0027a4
  3578. lea.l (L0019ce,pc),a0
  3579. lea.l (L0019c2,pc),a1
  3580. moveq.l #$1e,d0
  3581. L0027b4:
  3582. move.b (a0)+,(a1)+
  3583. dbra.w d0,L0027b4
  3584. lea.l (L0019f6,pc),a0
  3585. lea.l (L0019ec,pc),a1
  3586. moveq.l #$10,d0
  3587. L0027c4:
  3588. move.b (a0)+,(a1)+
  3589. dbra.w d0,L0027c4
  3590. movem.l (sp)+,a0-a1
  3591. move.b #$35,(L005276) ;'5'
  3592. lea.l (L0038c0,pc),a0
  3593. bsr.w L002864
  3594. bra.s L002806
  3595. L0027e0:
  3596. move.w (L003ac0,pc),d0
  3597. move.w d0,d1
  3598. eori.w #$01ff,d1
  3599. move.w d0,(L00527a)
  3600. move.w d1,(L005278)
  3601. move.b #$3f,(L005276) ;'?'
  3602. clr.b (a1)
  3603. lea.l (L0038df,pc),a0
  3604. bsr.s L002864
  3605. L002806:
  3606. tst.b (a1)
  3607. beq.s L002810
  3608. lea.l (L003900,pc),a0
  3609. bsr.s L002864
  3610. L002810:
  3611. tst.b ($0002,a1)
  3612. beq.s L002826
  3613. move.l #L00003a,($00000006).l
  3614. lea.l (L003921,pc),a0
  3615. bsr.s L002864
  3616. L002826:
  3617. tst.b ($0005,a1)
  3618. beq.s L002848
  3619. move.w #$0506,($00000440).l
  3620. move.w #$50f9,(L000068)
  3621. st.b (L003ab6)
  3622. lea.l (L003951,pc),a0
  3623. bsr.s L002864
  3624. L002848:
  3625. lea.l (L00568f,pc),a2
  3626. lea.l (Ins1,pc),a0
  3627. move.w #$0e9b,d0
  3628. L002854:
  3629. move.b (a0)+,(a2)+
  3630. dbra.w d0,L002854
  3631. moveq.l #$0d,d1
  3632. IOCS _OPMDRV
  3633. moveq.l #$00,d0
  3634. rts
  3635. L002864:
  3636. tst.b ($0001,a1)
  3637. bne.s L002870
  3638. move.l a0,-(sp)
  3639. DOS _PRINT
  3640. addq.l #4,sp
  3641. L002870:
  3642. rts
  3643. .data
  3644. Ins1:
  3645. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3646. .dc.b $0f ; Slot Mask
  3647. .dc.b $02,$00,$dc,$00,$00,$00,$00,$03,$00
  3648. .dc.b $1c,$04,$00,$05,$01,$25,$02,$01,$07,$00,$00
  3649. .dc.b $16,$09,$01,$02,$01,$2f,$02,$0c,$00,$00,$00
  3650. .dc.b $1d,$04,$03,$06,$01,$25,$01,$03,$03,$00,$00
  3651. .dc.b $0f,$07,$00,$05,$0a,$00,$02,$01,$00,$00,$01
  3652. Ins2:
  3653. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  3654. .dc.b $0f ; Slot Mask
  3655. .dc.b $02,$00,$de,$1e,$0a,$00,$00,$03,$00
  3656. .dc.b $1f,$0a,$01,$03,$0f,$1d,$00,$07,$03,$00,$00
  3657. .dc.b $1d,$0c,$09,$07,$0a,$00,$00,$07,$07,$00,$01
  3658. .dc.b $1f,$05,$01,$03,$0f,$27,$02,$05,$03,$01,$00
  3659. .dc.b $1c,$0c,$09,$07,$0a,$00,$00,$07,$03,$00,$01
  3660. Ins3:
  3661. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  3662. .dc.b $0f ; Slot Mask
  3663. .dc.b $02,$00,$b4,$00,$00,$00,$00,$03,$00
  3664. .dc.b $1f,$0f,$00,$06,$07,$35,$02,$0f,$05,$01,$00
  3665. .dc.b $1f,$07,$05,$08,$02,$0d,$03,$01,$00,$00,$01
  3666. .dc.b $1f,$06,$00,$06,$04,$25,$02,$01,$02,$00,$00
  3667. .dc.b $1f,$07,$00,$07,$00,$00,$01,$01,$07,$00,$01
  3668. Ins4:
  3669. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3670. .dc.b $0f ; Slot Mask
  3671. .dc.b $02,$00,$82,$00,$00,$00,$00,$03,$00
  3672. .dc.b $1c,$04,$03,$07,$01,$23,$02,$01,$03,$00,$00
  3673. .dc.b $1b,$08,$01,$02,$00,$25,$03,$0f,$07,$00,$00
  3674. .dc.b $1c,$03,$00,$00,$0f,$1b,$02,$01,$06,$00,$00
  3675. .dc.b $1a,$09,$00,$0a,$0f,$00,$02,$0a,$00,$00,$01
  3676. Ins5:
  3677. .dc.b $01 << 3 | $05 ; Feedback << 3 | Connection
  3678. .dc.b $0f ; Slot Mask
  3679. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3680. .dc.b $1f,$0a,$0c,$05,$0f,$48,$01,$0e,$02,$00,$01
  3681. .dc.b $1f,$0a,$0c,$05,$0f,$07,$01,$04,$07,$00,$01
  3682. .dc.b $1f,$0a,$0c,$07,$0f,$07,$01,$0c,$07,$00,$01
  3683. .dc.b $1f,$0a,$0c,$06,$0f,$07,$01,$09,$03,$00,$01
  3684. Ins6:
  3685. .dc.b $06 << 3 | $02 ; Feedback << 3 | Connection
  3686. .dc.b $0f ; Slot Mask
  3687. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3688. .dc.b $1f,$00,$00,$0f,$00,$19,$01,$03,$00,$00,$00
  3689. .dc.b $1f,$00,$00,$0f,$00,$23,$03,$0c,$04,$00,$01
  3690. .dc.b $1f,$00,$00,$02,$00,$24,$01,$01,$00,$00,$00
  3691. .dc.b $1f,$06,$04,$05,$0f,$00,$02,$01,$04,$00,$01
  3692. Ins7:
  3693. .dc.b $04 << 3 | $01 ; Feedback << 3 | Connection
  3694. .dc.b $0f ; Slot Mask
  3695. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3696. .dc.b $1c,$05,$04,$03,$0f,$2a,$03,$02,$01,$00,$00
  3697. .dc.b $1f,$07,$04,$01,$02,$25,$01,$03,$07,$00,$00
  3698. .dc.b $1f,$03,$04,$01,$02,$23,$03,$03,$04,$00,$00
  3699. .dc.b $1f,$02,$01,$04,$01,$00,$02,$01,$02,$00,$00
  3700. Ins8:
  3701. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3702. .dc.b $0f ; Slot Mask
  3703. .dc.b $02,$00,$d2,$00,$00,$00,$00,$03,$00
  3704. .dc.b $1f,$0d,$01,$04,$0f,$29,$02,$0f,$03,$00,$00
  3705. .dc.b $1f,$14,$05,$0f,$0e,$39,$01,$0d,$07,$02,$00
  3706. .dc.b $14,$0a,$01,$07,$08,$23,$01,$03,$07,$00,$00
  3707. .dc.b $17,$05,$01,$07,$0f,$00,$00,$01,$03,$00,$01
  3708. Ins9:
  3709. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3710. .dc.b $0f ; Slot Mask
  3711. .dc.b $02,$00,$96,$00,$00,$00,$00,$03,$00
  3712. .dc.b $1f,$0d,$01,$04,$0f,$20,$01,$00,$07,$00,$00
  3713. .dc.b $1f,$0b,$01,$0a,$0f,$37,$01,$04,$05,$00,$00
  3714. .dc.b $1f,$0b,$01,$0a,$0f,$1d,$00,$00,$02,$00,$00
  3715. .dc.b $1f,$0b,$01,$08,$0f,$00,$01,$00,$03,$00,$01
  3716. Ins10:
  3717. .dc.b $00 << 3 | $03 ; Feedback << 3 | Connection
  3718. .dc.b $0f ; Slot Mask
  3719. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3720. .dc.b $1f,$0e,$01,$0a,$0a,$2a,$00,$06,$06,$00,$00
  3721. .dc.b $1f,$05,$00,$0a,$06,$1a,$00,$00,$04,$00,$00
  3722. .dc.b $1f,$02,$04,$06,$01,$20,$00,$00,$04,$00,$00
  3723. .dc.b $1c,$01,$06,$08,$01,$00,$00,$01,$03,$00,$01
  3724. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3725. .dc.b $0f ; Slot Mask
  3726. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3727. .dc.b $18,$0a,$00,$02,$05,$1b,$01,$05,$07,$00,$00
  3728. .dc.b $1a,$10,$00,$08,$0b,$1e,$00,$0f,$00,$00,$00
  3729. .dc.b $1c,$10,$00,$04,$03,$20,$00,$01,$06,$00,$00
  3730. .dc.b $18,$0b,$00,$06,$0f,$00,$02,$01,$03,$00,$00
  3731. .dc.b $00 << 3 | $01 ; Feedback << 3 | Connection
  3732. .dc.b $0f ; Slot Mask
  3733. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  3734. .dc.b $1f,$1f,$08,$02,$0c,$34,$00,$03,$07,$00,$00
  3735. .dc.b $1f,$0b,$01,$03,$01,$23,$01,$09,$03,$00,$00
  3736. .dc.b $1c,$07,$09,$04,$0f,$11,$00,$01,$01,$00,$00
  3737. .dc.b $12,$01,$01,$04,$0f,$00,$01,$01,$00,$00,$01
  3738. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3739. .dc.b $0f ; Slot Mask
  3740. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3741. .dc.b $1f,$19,$01,$02,$02,$4c,$00,$06,$00,$00,$00
  3742. .dc.b $1f,$10,$01,$02,$0d,$1a,$01,$03,$07,$00,$00
  3743. .dc.b $1f,$04,$02,$02,$0c,$25,$01,$01,$00,$00,$00
  3744. .dc.b $1f,$0a,$00,$03,$0f,$00,$01,$01,$00,$00,$01
  3745. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  3746. .dc.b $0f ; Slot Mask
  3747. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  3748. .dc.b $1a,$08,$05,$07,$02,$1c,$03,$03,$07,$00,$00
  3749. .dc.b $1d,$04,$05,$05,$01,$1f,$03,$04,$01,$00,$00
  3750. .dc.b $1c,$04,$02,$06,$02,$20,$03,$01,$07,$00,$00
  3751. .dc.b $1d,$09,$03,$03,$01,$00,$03,$01,$03,$00,$01
  3752. .dc.b $07 << 3 | $06 ; Feedback << 3 | Connection
  3753. .dc.b $0f ; Slot Mask
  3754. .dc.b $02,$00,$02,$08,$01,$03,$02,$03,$00
  3755. .dc.b $1f,$14,$00,$0a,$00,$24,$00,$08,$03,$00,$00
  3756. .dc.b $14,$02,$01,$0a,$03,$00,$00,$02,$07,$00,$01
  3757. .dc.b $14,$02,$01,$0a,$03,$00,$00,$01,$01,$00,$01
  3758. .dc.b $14,$02,$01,$0a,$03,$00,$00,$06,$02,$00,$01
  3759. .dc.b $07 << 3 | $07 ; Feedback << 3 | Connection
  3760. .dc.b $0f ; Slot Mask
  3761. .dc.b $02,$00,$be,$00,$00,$00,$00,$03,$00
  3762. .dc.b $1f,$01,$01,$0a,$00,$1d,$00,$08,$03,$00,$01
  3763. .dc.b $13,$02,$01,$0a,$01,$02,$00,$03,$07,$00,$01
  3764. .dc.b $13,$02,$01,$0a,$01,$02,$00,$01,$00,$00,$01
  3765. .dc.b $13,$02,$01,$0a,$01,$02,$00,$02,$06,$00,$01
  3766. .dc.b $03 << 3 | $07 ; Feedback << 3 | Connection
  3767. .dc.b $0f ; Slot Mask
  3768. .dc.b $02,$00,$c8,$03,$02,$02,$01,$03,$00
  3769. .dc.b $1f,$14,$00,$0f,$0f,$0c,$00,$07,$00,$00,$01
  3770. .dc.b $1f,$02,$01,$0f,$00,$05,$00,$03,$02,$00,$01
  3771. .dc.b $1f,$02,$01,$0f,$00,$07,$00,$03,$00,$00,$01
  3772. .dc.b $1f,$02,$01,$0f,$00,$05,$00,$02,$06,$00,$01
  3773. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  3774. .dc.b $0f ; Slot Mask
  3775. .dc.b $02,$00,$b4,$1e,$00,$02,$00,$03,$00
  3776. .dc.b $1f,$00,$00,$00,$00,$27,$01,$06,$03,$00,$00
  3777. .dc.b $1f,$03,$01,$01,$01,$26,$01,$07,$03,$00,$01
  3778. .dc.b $13,$02,$01,$06,$01,$26,$01,$01,$07,$00,$00
  3779. .dc.b $10,$00,$00,$09,$00,$00,$01,$02,$07,$00,$01
  3780. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3781. .dc.b $0f ; Slot Mask
  3782. .dc.b $02,$00,$ca,$38,$03,$03,$00,$03,$00
  3783. .dc.b $14,$02,$00,$05,$01,$21,$01,$01,$00,$00,$00
  3784. .dc.b $19,$06,$00,$08,$03,$1e,$01,$05,$07,$00,$00
  3785. .dc.b $1c,$03,$00,$06,$01,$30,$01,$01,$00,$00,$00
  3786. .dc.b $0c,$04,$00,$06,$00,$00,$01,$01,$04,$00,$01
  3787. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  3788. .dc.b $0f ; Slot Mask
  3789. .dc.b $02,$00,$c8,$50,$00,$02,$00,$03,$00
  3790. .dc.b $12,$1f,$14,$0a,$00,$0a,$01,$0f,$07,$03,$00
  3791. .dc.b $1f,$11,$0c,$0a,$00,$23,$01,$06,$07,$00,$00
  3792. .dc.b $0d,$12,$01,$03,$00,$1b,$02,$01,$07,$00,$00
  3793. .dc.b $0c,$02,$01,$0a,$01,$00,$01,$01,$03,$00,$01
  3794. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3795. .dc.b $0f ; Slot Mask
  3796. .dc.b $02,$00,$cd,$50,$00,$02,$00,$03,$00
  3797. .dc.b $1e,$01,$00,$01,$01,$1e,$03,$00,$02,$00,$00
  3798. .dc.b $1f,$01,$00,$02,$01,$26,$03,$02,$03,$00,$00
  3799. .dc.b $1e,$01,$00,$01,$01,$30,$01,$01,$03,$00,$00
  3800. .dc.b $08,$02,$00,$06,$00,$00,$00,$01,$04,$00,$01
  3801. .dc.b $07 << 3 | $05 ; Feedback << 3 | Connection
  3802. .dc.b $0f ; Slot Mask
  3803. .dc.b $02,$00,$c8,$5a,$00,$02,$00,$03,$00
  3804. .dc.b $1f,$01,$01,$02,$00,$1f,$03,$00,$00,$00,$00
  3805. .dc.b $09,$01,$00,$06,$00,$00,$00,$01,$01,$00,$00
  3806. .dc.b $0a,$01,$00,$07,$00,$00,$00,$01,$01,$00,$00
  3807. .dc.b $09,$02,$00,$07,$00,$00,$00,$01,$01,$00,$01
  3808. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  3809. .dc.b $0f ; Slot Mask
  3810. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3811. .dc.b $1f,$16,$01,$03,$0f,$18,$00,$01,$03,$00,$00
  3812. .dc.b $12,$0f,$01,$05,$0e,$00,$01,$01,$07,$00,$01
  3813. .dc.b $1f,$0f,$00,$03,$0f,$20,$01,$01,$03,$00,$00
  3814. .dc.b $1f,$0f,$01,$05,$0e,$00,$01,$01,$03,$00,$01
  3815. .dc.b $00 << 3 | $06 ; Feedback << 3 | Connection
  3816. .dc.b $0f ; Slot Mask
  3817. .dc.b $02,$00,$c8,$5a,$00,$04,$00,$03,$00
  3818. .dc.b $0a,$00,$01,$03,$00,$4d,$00,$01,$00,$00,$00
  3819. .dc.b $0c,$00,$00,$05,$00,$07,$02,$03,$03,$00,$01
  3820. .dc.b $0c,$00,$01,$06,$02,$00,$01,$02,$07,$00,$01
  3821. .dc.b $12,$00,$00,$06,$00,$11,$01,$01,$03,$00,$01
  3822. .dc.b $05 << 3 | $01 ; Feedback << 3 | Connection
  3823. .dc.b $0f ; Slot Mask
  3824. .dc.b $02,$00,$ce,$28,$00,$04,$00,$03,$00
  3825. .dc.b $13,$12,$04,$04,$05,$42,$00,$06,$03,$03,$00
  3826. .dc.b $15,$0e,$06,$0a,$06,$34,$00,$04,$07,$03,$00
  3827. .dc.b $0b,$1f,$03,$0a,$00,$2d,$00,$01,$07,$00,$00
  3828. .dc.b $0e,$1f,$01,$08,$00,$00,$00,$01,$03,$00,$01
  3829. .dc.b $04 << 3 | $04 ; Feedback << 3 | Connection
  3830. .dc.b $0f ; Slot Mask
  3831. .dc.b $00,$00,$50,$01,$02,$01,$01,$03,$00
  3832. .dc.b $14,$02,$01,$05,$03,$24,$01,$04,$00,$00,$01
  3833. .dc.b $06,$07,$07,$06,$00,$00,$00,$00,$00,$01,$01
  3834. .dc.b $14,$02,$01,$05,$03,$25,$03,$04,$06,$00,$00
  3835. .dc.b $07,$07,$07,$07,$00,$00,$00,$00,$02,$01,$01
  3836. .dc.b $00 << 3 | $07 ; Feedback << 3 | Connection
  3837. .dc.b $0f ; Slot Mask
  3838. .dc.b $02,$00,$c8,$46,$00,$04,$00,$03,$00
  3839. .dc.b $00,$00,$00,$00,$00,$7f,$00,$00,$04,$00,$00
  3840. .dc.b $00,$00,$00,$00,$00,$7f,$00,$00,$04,$00,$00
  3841. .dc.b $0f,$0c,$00,$09,$00,$00,$00,$05,$07,$02,$00
  3842. .dc.b $0d,$0c,$00,$09,$00,$00,$00,$08,$07,$00,$01
  3843. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  3844. .dc.b $0f ; Slot Mask
  3845. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  3846. .dc.b $12,$0a,$01,$0a,$03,$2f,$01,$02,$04,$00,$00
  3847. .dc.b $13,$0b,$03,$09,$02,$00,$00,$02,$04,$00,$00
  3848. .dc.b $12,$0a,$01,$0a,$05,$4d,$01,$06,$04,$03,$00
  3849. .dc.b $13,$0b,$03,$09,$02,$00,$00,$02,$04,$00,$00
  3850. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  3851. .dc.b $0f ; Slot Mask
  3852. .dc.b $02,$00,$c4,$10,$00,$05,$00,$03,$00
  3853. .dc.b $1c,$05,$03,$05,$0e,$2a,$03,$02,$07,$01,$00
  3854. .dc.b $0b,$07,$00,$05,$0f,$33,$01,$02,$00,$00,$00
  3855. .dc.b $0e,$02,$00,$04,$02,$30,$03,$01,$03,$00,$00
  3856. .dc.b $0c,$10,$00,$06,$01,$00,$02,$01,$00,$00,$01
  3857. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3858. .dc.b $0f ; Slot Mask
  3859. .dc.b $02,$00,$c6,$1e,$08,$04,$01,$03,$00
  3860. .dc.b $19,$0b,$00,$03,$01,$25,$03,$01,$03,$00,$00
  3861. .dc.b $1c,$0c,$0c,$0b,$05,$25,$03,$09,$03,$00,$00
  3862. .dc.b $19,$10,$00,$0b,$01,$2f,$01,$02,$03,$00,$00
  3863. .dc.b $11,$0a,$00,$0b,$01,$00,$01,$04,$03,$00,$01
  3864. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3865. .dc.b $0f ; Slot Mask
  3866. .dc.b $02,$00,$c6,$0b,$00,$04,$00,$03,$00
  3867. .dc.b $13,$02,$02,$00,$01,$24,$01,$02,$00,$00,$00
  3868. .dc.b $1c,$12,$03,$0b,$04,$20,$00,$09,$00,$00,$00
  3869. .dc.b $1d,$14,$01,$09,$01,$37,$01,$01,$00,$00,$00
  3870. .dc.b $11,$0f,$00,$09,$00,$00,$00,$01,$00,$00,$01
  3871. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  3872. .dc.b $0f ; Slot Mask
  3873. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3874. .dc.b $12,$00,$00,$0a,$00,$2f,$00,$01,$04,$00,$00
  3875. .dc.b $14,$00,$00,$0a,$00,$00,$01,$02,$04,$00,$00
  3876. .dc.b $13,$0e,$00,$0a,$01,$27,$00,$01,$04,$00,$00
  3877. .dc.b $14,$00,$00,$0a,$00,$00,$00,$05,$04,$00,$00
  3878. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3879. .dc.b $0f ; Slot Mask
  3880. .dc.b $02,$00,$c8,$28,$00,$03,$00,$03,$00
  3881. .dc.b $12,$00,$00,$06,$00,$24,$00,$00,$00,$00,$00
  3882. .dc.b $12,$00,$00,$06,$03,$2f,$00,$04,$00,$01,$00
  3883. .dc.b $12,$00,$00,$06,$00,$2a,$00,$00,$00,$00,$00
  3884. .dc.b $0e,$08,$00,$08,$01,$00,$00,$01,$07,$00,$01
  3885. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3886. .dc.b $0f ; Slot Mask
  3887. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3888. .dc.b $0e,$0e,$00,$03,$01,$1b,$02,$01,$03,$00,$00
  3889. .dc.b $0e,$0e,$00,$03,$0f,$25,$02,$07,$02,$00,$00
  3890. .dc.b $0d,$0e,$00,$03,$01,$25,$02,$01,$04,$00,$00
  3891. .dc.b $13,$03,$00,$0a,$00,$00,$01,$01,$06,$00,$01
  3892. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3893. .dc.b $0f ; Slot Mask
  3894. .dc.b $02,$00,$cd,$00,$00,$00,$00,$03,$00
  3895. .dc.b $0d,$09,$00,$09,$03,$22,$00,$01,$04,$00,$00
  3896. .dc.b $1f,$11,$00,$0f,$0c,$2d,$01,$05,$04,$02,$00
  3897. .dc.b $0c,$0b,$00,$08,$01,$32,$00,$01,$04,$00,$00
  3898. .dc.b $0e,$1f,$00,$0a,$00,$01,$00,$01,$04,$00,$01
  3899. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3900. .dc.b $0f ; Slot Mask
  3901. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3902. .dc.b $10,$0c,$00,$08,$00,$1c,$00,$01,$00,$00,$00
  3903. .dc.b $0e,$0e,$00,$0a,$0f,$28,$00,$02,$00,$02,$00
  3904. .dc.b $14,$0e,$00,$0a,$07,$31,$00,$01,$00,$00,$00
  3905. .dc.b $10,$0e,$00,$08,$01,$00,$00,$01,$00,$00,$01
  3906. .dc.b $06 << 3 | $06 ; Feedback << 3 | Connection
  3907. .dc.b $0f ; Slot Mask
  3908. .dc.b $02,$00,$cb,$02,$02,$01,$01,$03,$00
  3909. .dc.b $0f,$0a,$01,$05,$06,$15,$01,$00,$01,$00,$00
  3910. .dc.b $11,$02,$01,$08,$03,$00,$00,$01,$03,$00,$01
  3911. .dc.b $1e,$02,$12,$0a,$05,$00,$02,$01,$07,$00,$01
  3912. .dc.b $0f,$02,$01,$0a,$05,$00,$02,$00,$03,$00,$01
  3913. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  3914. .dc.b $0f ; Slot Mask
  3915. .dc.b $00,$00,$c8,$00,$00,$00,$00,$03,$00
  3916. .dc.b $12,$0c,$01,$0a,$02,$20,$01,$01,$00,$00,$00
  3917. .dc.b $12,$0a,$01,$0a,$03,$00,$00,$01,$01,$00,$01
  3918. .dc.b $0f,$0a,$01,$0a,$05,$13,$01,$01,$02,$00,$00
  3919. .dc.b $14,$02,$01,$0a,$03,$07,$00,$01,$06,$00,$01
  3920. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  3921. .dc.b $0f ; Slot Mask
  3922. .dc.b $02,$00,$ce,$28,$00,$03,$00,$03,$00
  3923. .dc.b $10,$0f,$00,$08,$01,$18,$00,$01,$07,$00,$00
  3924. .dc.b $10,$0c,$00,$04,$01,$3b,$00,$08,$00,$02,$00
  3925. .dc.b $12,$00,$00,$04,$00,$33,$00,$01,$00,$00,$00
  3926. .dc.b $10,$00,$00,$0a,$00,$00,$00,$02,$00,$00,$01
  3927. .dc.b $07 << 3 | $00 ; Feedback << 3 | Connection
  3928. .dc.b $0f ; Slot Mask
  3929. .dc.b $02,$00,$d2,$01,$05,$03,$01,$03,$00
  3930. .dc.b $12,$00,$00,$03,$00,$26,$00,$09,$03,$00,$00
  3931. .dc.b $12,$00,$00,$03,$00,$26,$00,$07,$07,$00,$00
  3932. .dc.b $0f,$05,$00,$03,$01,$25,$00,$01,$03,$00,$00
  3933. .dc.b $0f,$08,$00,$09,$02,$00,$00,$03,$07,$00,$01
  3934. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  3935. .dc.b $0f ; Slot Mask
  3936. .dc.b $02,$00,$cc,$14,$00,$05,$00,$03,$00
  3937. .dc.b $1f,$10,$00,$0a,$0f,$0c,$00,$04,$00,$00,$00
  3938. .dc.b $18,$0a,$00,$0a,$00,$4d,$00,$02,$00,$00,$00
  3939. .dc.b $14,$14,$00,$0a,$03,$4d,$00,$03,$07,$01,$00
  3940. .dc.b $10,$05,$00,$0a,$07,$00,$00,$04,$00,$00,$01
  3941. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  3942. .dc.b $0f ; Slot Mask
  3943. .dc.b $02,$00,$c4,$12,$00,$05,$00,$03,$00
  3944. .dc.b $11,$11,$10,$06,$03,$37,$00,$04,$04,$01,$00
  3945. .dc.b $0f,$12,$01,$00,$02,$2f,$00,$02,$04,$00,$00
  3946. .dc.b $0d,$14,$00,$07,$02,$2f,$00,$02,$07,$00,$00
  3947. .dc.b $10,$1f,$00,$09,$00,$00,$00,$01,$04,$00,$01
  3948. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  3949. .dc.b $0f ; Slot Mask
  3950. .dc.b $02,$00,$f4,$2f,$00,$07,$00,$03,$00
  3951. .dc.b $1f,$00,$00,$0a,$00,$2f,$00,$06,$00,$00,$00
  3952. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$00
  3953. .dc.b $1f,$00,$00,$0a,$00,$2b,$00,$0a,$00,$00,$00
  3954. .dc.b $14,$08,$00,$0a,$01,$00,$00,$02,$00,$00,$01
  3955. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  3956. .dc.b $0f ; Slot Mask
  3957. .dc.b $02,$00,$c8,$50,$00,$03,$00,$03,$00
  3958. .dc.b $14,$00,$00,$0a,$00,$00,$00,$04,$00,$00,$00
  3959. .dc.b $0e,$10,$00,$0a,$05,$3e,$00,$02,$03,$00,$00
  3960. .dc.b $12,$12,$00,$0a,$09,$26,$00,$03,$00,$01,$00
  3961. .dc.b $0e,$0c,$00,$0a,$02,$00,$01,$01,$00,$00,$01
  3962. .dc.b $07 << 3 | $04 ; Feedback << 3 | Connection
  3963. .dc.b $0f ; Slot Mask
  3964. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3965. .dc.b $1f,$19,$05,$02,$00,$00,$00,$0f,$00,$00,$00
  3966. .dc.b $1f,$12,$12,$0c,$07,$00,$00,$01,$00,$00,$01
  3967. .dc.b $1f,$19,$00,$00,$0f,$00,$00,$03,$00,$01,$00
  3968. .dc.b $1f,$11,$0f,$0a,$0f,$00,$00,$01,$00,$00,$01
  3969. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  3970. .dc.b $0f ; Slot Mask
  3971. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3972. .dc.b $1e,$10,$01,$0a,$0f,$2b,$00,$02,$00,$03,$00
  3973. .dc.b $1e,$0a,$00,$0a,$0f,$2f,$00,$00,$07,$01,$00
  3974. .dc.b $1e,$14,$00,$0a,$0f,$0f,$00,$00,$03,$03,$00
  3975. .dc.b $1e,$13,$00,$0a,$0f,$00,$00,$01,$00,$00,$01
  3976. .dc.b $00 << 3 | $00 ; Feedback << 3 | Connection
  3977. .dc.b $0f ; Slot Mask
  3978. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3979. .dc.b $1e,$1a,$00,$0d,$0f,$1a,$00,$01,$00,$01,$00
  3980. .dc.b $1e,$1c,$00,$0e,$0f,$25,$00,$0e,$00,$03,$00
  3981. .dc.b $1e,$10,$00,$08,$0f,$05,$00,$00,$00,$01,$00
  3982. .dc.b $1d,$10,$00,$08,$0f,$00,$00,$00,$00,$00,$01
  3983. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  3984. .dc.b $0f ; Slot Mask
  3985. .dc.b $02,$00,$6e,$00,$00,$00,$00,$03,$00
  3986. .dc.b $1c,$14,$0c,$0f,$0a,$16,$00,$03,$00,$02,$00
  3987. .dc.b $1c,$13,$05,$02,$0a,$11,$03,$01,$00,$01,$00
  3988. .dc.b $1c,$0f,$0a,$0a,$05,$11,$03,$00,$03,$00,$00
  3989. .dc.b $1e,$0c,$07,$05,$06,$00,$01,$01,$00,$00,$01
  3990. .dc.b $00 << 3 | $02 ; Feedback << 3 | Connection
  3991. .dc.b $0f ; Slot Mask
  3992. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  3993. .dc.b $1c,$0c,$00,$04,$0f,$24,$01,$00,$00,$01,$00
  3994. .dc.b $14,$08,$00,$04,$0f,$1b,$01,$00,$00,$02,$00
  3995. .dc.b $1c,$0a,$00,$05,$0f,$22,$00,$00,$00,$00,$00
  3996. .dc.b $10,$05,$00,$02,$0f,$00,$03,$00,$00,$00,$01
  3997. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  3998. .dc.b $0f ; Slot Mask
  3999. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4000. .dc.b $18,$17,$00,$0b,$0f,$00,$00,$03,$00,$03,$00
  4001. .dc.b $1a,$0e,$00,$07,$0f,$28,$00,$02,$00,$02,$00
  4002. .dc.b $1a,$0a,$00,$05,$0f,$39,$00,$02,$00,$03,$00
  4003. .dc.b $16,$10,$00,$08,$0f,$00,$02,$06,$00,$00,$01
  4004. .dc.b $06 << 3 | $02 ; Feedback << 3 | Connection
  4005. .dc.b $0f ; Slot Mask
  4006. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4007. .dc.b $1c,$0f,$00,$06,$0f,$1a,$01,$02,$03,$03,$00
  4008. .dc.b $18,$10,$00,$07,$0f,$20,$00,$08,$07,$02,$00
  4009. .dc.b $1a,$0b,$00,$07,$0f,$1d,$01,$05,$03,$00,$00
  4010. .dc.b $18,$07,$00,$04,$0f,$00,$02,$02,$07,$03,$01
  4011. .dc.b $00 << 3 | $03 ; Feedback << 3 | Connection
  4012. .dc.b $0f ; Slot Mask
  4013. .dc.b $00,$00,$64,$00,$00,$00,$00,$03,$00
  4014. .dc.b $1f,$06,$00,$04,$0f,$33,$00,$01,$00,$03,$00
  4015. .dc.b $1f,$00,$00,$02,$00,$1b,$00,$08,$07,$02,$00
  4016. .dc.b $1f,$08,$00,$06,$05,$43,$00,$09,$03,$01,$00
  4017. .dc.b $1f,$0a,$00,$05,$0f,$00,$00,$0a,$03,$02,$01
  4018. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  4019. .dc.b $0f ; Slot Mask
  4020. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4021. .dc.b $1e,$14,$00,$0a,$0f,$1b,$00,$0f,$02,$00,$00
  4022. .dc.b $1e,$11,$00,$08,$0f,$1b,$01,$04,$00,$01,$00
  4023. .dc.b $1c,$0c,$00,$06,$0f,$2b,$01,$02,$03,$02,$00
  4024. .dc.b $1a,$10,$00,$08,$0f,$00,$01,$02,$00,$03,$01
  4025. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  4026. .dc.b $0f ; Slot Mask
  4027. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4028. .dc.b $1f,$07,$00,$01,$01,$23,$00,$07,$03,$00,$00
  4029. .dc.b $1f,$0a,$00,$06,$00,$00,$00,$02,$07,$00,$01
  4030. .dc.b $1f,$07,$00,$01,$01,$23,$00,$07,$07,$00,$00
  4031. .dc.b $1f,$0d,$00,$06,$00,$00,$00,$02,$03,$00,$01
  4032. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  4033. .dc.b $0f ; Slot Mask
  4034. .dc.b $02,$00,$d0,$00,$00,$00,$00,$03,$00
  4035. .dc.b $0d,$0a,$04,$04,$0f,$1d,$01,$03,$07,$00,$00
  4036. .dc.b $11,$07,$00,$04,$0f,$00,$02,$01,$00,$00,$01
  4037. .dc.b $0e,$08,$05,$03,$0f,$23,$02,$01,$07,$00,$00
  4038. .dc.b $0f,$08,$00,$04,$0f,$07,$02,$04,$03,$00,$01
  4039. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  4040. .dc.b $0f ; Slot Mask
  4041. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4042. .dc.b $1f,$18,$00,$0c,$0f,$20,$00,$0e,$02,$00,$00
  4043. .dc.b $1f,$0f,$00,$08,$0f,$00,$00,$02,$00,$00,$00
  4044. .dc.b $1f,$14,$00,$04,$0f,$1b,$00,$0f,$00,$00,$00
  4045. .dc.b $1f,$0e,$00,$05,$0f,$00,$00,$02,$00,$00,$01
  4046. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  4047. .dc.b $0f ; Slot Mask
  4048. .dc.b $02,$00,$c5,$28,$0d,$02,$03,$03,$00
  4049. .dc.b $18,$0e,$00,$07,$0f,$32,$01,$0c,$03,$00,$00
  4050. .dc.b $18,$0a,$00,$07,$0f,$00,$01,$04,$00,$00,$01
  4051. .dc.b $1a,$0e,$00,$06,$0f,$39,$01,$04,$00,$00,$00
  4052. .dc.b $1a,$08,$00,$06,$0f,$00,$02,$01,$00,$00,$01
  4053. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  4054. .dc.b $0f ; Slot Mask
  4055. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4056. .dc.b $18,$11,$00,$07,$0f,$2a,$01,$04,$03,$00,$00
  4057. .dc.b $18,$04,$00,$02,$0f,$00,$03,$00,$03,$00,$01
  4058. .dc.b $18,$14,$00,$0a,$0f,$20,$01,$06,$07,$00,$00
  4059. .dc.b $18,$0c,$00,$06,$0f,$00,$02,$02,$07,$00,$01
  4060. .dc.b $07 << 3 | $03 ; Feedback << 3 | Connection
  4061. .dc.b $0f ; Slot Mask
  4062. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4063. .dc.b $1d,$04,$03,$02,$03,$00,$00,$0e,$00,$01,$00
  4064. .dc.b $1d,$0f,$03,$02,$07,$1b,$00,$06,$00,$01,$00
  4065. .dc.b $1d,$17,$00,$0a,$0f,$1b,$00,$07,$00,$02,$00
  4066. .dc.b $1e,$14,$15,$0f,$0f,$00,$00,$01,$00,$00,$01
  4067. .dc.b $06 << 3 | $04 ; Feedback << 3 | Connection
  4068. .dc.b $0f ; Slot Mask
  4069. .dc.b $02,$00,$6f,$00,$00,$00,$00,$03,$00
  4070. .dc.b $1f,$01,$00,$05,$0c,$07,$00,$00,$00,$03,$00
  4071. .dc.b $1f,$0d,$0f,$0a,$0f,$0e,$00,$0e,$00,$01,$00
  4072. .dc.b $1f,$16,$07,$08,$06,$13,$00,$00,$07,$00,$00
  4073. .dc.b $1f,$14,$14,$08,$0f,$02,$00,$00,$00,$01,$00
  4074. .dc.b $05 << 3 | $04 ; Feedback << 3 | Connection
  4075. .dc.b $0f ; Slot Mask
  4076. .dc.b $02,$00,$c8,$00,$00,$00,$00,$03,$00
  4077. .dc.b $1f,$04,$00,$00,$01,$04,$00,$03,$07,$01,$00
  4078. .dc.b $1f,$1f,$03,$02,$01,$1d,$01,$05,$00,$02,$00
  4079. .dc.b $19,$1c,$05,$03,$03,$07,$00,$01,$07,$02,$00
  4080. .dc.b $1f,$1f,$05,$03,$07,$00,$02,$07,$00,$03,$01
  4081. .dc.b $03 << 3 | $02 ; Feedback << 3 | Connection
  4082. .dc.b $0f ; Slot Mask
  4083. .dc.b $02,$00,$c8,$14,$03,$03,$02,$03,$00
  4084. .dc.b $12,$01,$01,$0a,$03,$11,$01,$02,$01,$00,$00
  4085. .dc.b $14,$02,$01,$0a,$00,$0c,$00,$03,$00,$01,$00
  4086. .dc.b $1f,$13,$01,$00,$0f,$19,$00,$00,$00,$00,$00
  4087. .dc.b $14,$02,$01,$0a,$03,$00,$02,$01,$03,$00,$01
  4088. .dc.b $03 << 3 | $04 ; Feedback << 3 | Connection
  4089. .dc.b $03 ; Slot Mask
  4090. .dc.b $02,$00,$d2,$28,$00,$03,$00,$03,$00
  4091. .dc.b $1f,$10,$00,$00,$0f,$07,$01,$02,$03,$00,$00
  4092. .dc.b $1f,$00,$00,$08,$00,$07,$01,$01,$06,$00,$01
  4093. .dc.b $1f,$00,$00,$08,$00,$0c,$01,$02,$07,$00,$00
  4094. .dc.b $1f,$00,$00,$08,$00,$00,$01,$01,$03,$00,$01
  4095. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  4096. .dc.b $0f ; Slot Mask
  4097. .dc.b $01,$00,$9e,$44,$00,$06,$00,$03,$00
  4098. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$00
  4099. .dc.b $00,$00,$00,$00,$0f,$7f,$00,$01,$00,$00,$01
  4100. .dc.b $1f,$00,$00,$01,$00,$25,$00,$0e,$00,$00,$00
  4101. .dc.b $10,$00,$00,$04,$00,$00,$00,$05,$07,$01,$01
  4102. .dc.b $07 << 3 | $02 ; Feedback << 3 | Connection
  4103. .dc.b $0f ; Slot Mask
  4104. .dc.b $02,$00,$78,$78,$1e,$07,$02,$03,$00
  4105. .dc.b $1f,$00,$00,$00,$00,$11,$00,$02,$00,$02,$00
  4106. .dc.b $1f,$00,$00,$00,$00,$0a,$00,$01,$00,$01,$00
  4107. .dc.b $1f,$00,$00,$00,$00,$1d,$00,$01,$00,$02,$00
  4108. .dc.b $0c,$00,$00,$04,$00,$00,$00,$00,$00,$00,$01
  4109. .dc.b $00 << 3 | $04 ; Feedback << 3 | Connection
  4110. .dc.b $0f ; Slot Mask
  4111. .dc.b $00,$00,$dc,$78,$00,$07,$00,$03,$00
  4112. .dc.b $1f,$00,$00,$05,$00,$0f,$00,$00,$00,$03,$00
  4113. .dc.b $14,$00,$00,$0a,$00,$07,$00,$07,$00,$01,$01
  4114. .dc.b $0c,$00,$00,$05,$00,$2f,$00,$03,$00,$03,$00
  4115. .dc.b $10,$00,$00,$08,$00,$00,$00,$01,$00,$00,$01
  4116. .dc.b $00 << 3 | $06 ; Feedback << 3 | Connection
  4117. .dc.b $0f ; Slot Mask
  4118. .dc.b $03,$00,$d1,$46,$00,$06,$00,$03,$00
  4119. .dc.b $1f,$00,$00,$00,$00,$19,$00,$0c,$00,$00,$00
  4120. .dc.b $14,$0e,$00,$07,$0f,$07,$00,$04,$00,$00,$00
  4121. .dc.b $14,$0e,$00,$07,$0f,$00,$00,$02,$04,$03,$00
  4122. .dc.b $14,$0e,$00,$07,$0f,$00,$00,$02,$04,$00,$00
  4123. .dc.b $04 << 3 | $00 ; Feedback << 3 | Connection
  4124. .dc.b $0f ; Slot Mask
  4125. .dc.b $00,$00,$00,$00,$00,$00,$00,$03,$00
  4126. .dc.b $1f,$08,$00,$04,$0f,$0d,$00,$03,$00,$02,$00
  4127. .dc.b $0a,$07,$00,$04,$0f,$11,$03,$01,$00,$01,$00
  4128. .dc.b $1f,$00,$00,$00,$00,$03,$00,$01,$00,$02,$00
  4129. .dc.b $10,$09,$00,$04,$0f,$00,$03,$00,$00,$00,$01
  4130. L00370e:
  4131. .dc.b $0d,$0a
  4132. .dc.b 'MEW OPM DRIVER ver 0.999・・・・ Copyright 1991,92,93 MEW'
  4133. L003745:
  4134. .dc.b $0d,$0a,$00
  4135. L003748:
  4136. .dc.b 'OPM,MOPMのファイル名でFM音源に出力可能です',$0d,$0a,$00
  4137. L003777:
  4138. .dc.b ' option(s): #n Get n(KB) buffer',$0d,$0a
  4139. .dc.b ' -t Don',$27,'t print all message',$0d,$0a
  4140. .dc.b ' -e Don',$27,'t print error message',$0d,$0a
  4141. .dc.b ' -r Release MOPMDRV.X',$0d,$0a
  4142. .dc.b ' -k Enable key control',$0d,$0a
  4143. .dc.b ' -m Device OPM = Device MOPM',$0d,$0a
  4144. .dc.b ' -b BASIC mode(?)',$0d,$0a
  4145. .dc.b ' -a Use OPM Timer A',$0d,$0a
  4146. .dc.b ' -a???・・・ Set OPM Timer A chanel',$0d,$0a
  4147. .dc.b $0d,$0a,$00
  4148. L0038c0:
  4149. .dc.b '<OPM Timer-A を使用します>',$0d,$0a,$00
  4150. L0038df:
  4151. .dc.b '<OPM Timer-A&B を使用します>',$0d,$0a,$00
  4152. L003900:
  4153. .dc.b '<キーコントロールが可能です>',$0d,$0a,$00
  4154. L003921:
  4155. .dc.b '<OPMのファイル名でも拡張機能が使用可能です>',$0d,$0a,$00
  4156. L003951:
  4157. .dc.b '<BASICでも拡張機能が使用可能です>',$0d,$0a,$00
  4158. L003977:
  4159. .dc.b '常駐解除しました。',$00
  4160. L00398a:
  4161. .dc.b 'メモリの解放はできませんでした。',$0d,$0a,$00
  4162. L0039ad:
  4163. .dc.b 'すでに MOPMDRV.X は常駐しています。',$0d,$0a,$00
  4164. L0039d3:
  4165. .dc.b 'MOPMDRV.X は常駐していません。',$0d,$0a,$00
  4166. L0039f4:
  4167. .dc.b '常駐している MOPMDRV.X のバージョンが ver0.40 以下です。',$0d,$0a,$00
  4168. L003a2f:
  4169. .dc.b 'PCMデータが常駐しています。',$00
  4170. L003a4e:
  4171. .dc.b '常駐解除できません。',$0d,$0a,$00
  4172. L003a65:
  4173. .dc.b '常駐解除に失敗しました。',$0d,$0a,$00
  4174. L003a80:
  4175. .dc.b 'メモリが足りません。',$0d,$0a,$00
  4176. L003a97:
  4177. .dc.b 'スイッチの指定が無効です',$0d,$0a,$00
  4178. L003ab2:
  4179. .dc.b $00,$00,$00,$00
  4180. L003ab6:
  4181. .dc.b $00
  4182. UnknownVar1:
  4183. .dc.b $00
  4184. L003ab8:
  4185. .dc.b $00,$00,$00,$00,$00,$00,$00,$00
  4186. L003ac0:
  4187. .dc.w $0000
  4188. L003ac2:
  4189. .dc.l StackBottom
  4190. L003ac6:
  4191. .dc.l $00010000
  4192. .bss
  4193. L003aca:
  4194. .ds.b 6000
  4195. L00523a:
  4196. .ds.b 8
  4197. L005242:
  4198. .ds.l 1
  4199. L005246:
  4200. .ds.b 4
  4201. L00524a:
  4202. .ds.b 4
  4203. L00524e:
  4204. .ds.b 4
  4205. L005252:
  4206. .ds.l 1
  4207. L005256:
  4208. .ds.l 1
  4209. L00525a:
  4210. .ds.b 4
  4211. L00525e:
  4212. .ds.b 4
  4213. L005262:
  4214. .ds.b 2
  4215. L005264:
  4216. .ds.b 15
  4217. L005273:
  4218. .ds.b 1
  4219. L005274:
  4220. .ds.b 1
  4221. L005275:
  4222. .ds.b 1
  4223. L005276:
  4224. .ds.b 1
  4225. L005277:
  4226. .ds.b 1
  4227. L005278:
  4228. .ds.w 1
  4229. L00527a:
  4230. .ds.b 3
  4231. L00527d:
  4232. .ds.b 1
  4233. L00527e:
  4234. .ds.b 2
  4235. L005280:
  4236. .ds.b 1
  4237. L005281:
  4238. .ds.b 3
  4239. L005284:
  4240. .ds.b 2
  4241. L005286:
  4242. .ds.b 256
  4243. L005386:
  4244. .ds.b 774
  4245. L00568c:
  4246. .ds.b 1
  4247. L00568d:
  4248. .ds.b 1
  4249. L00568e:
  4250. .ds.b 1
  4251. L00568f:
  4252. .ds.b 11001
  4253. StackBottom:
  4254. .ds.b 16384
  4255. StackTop:
  4256. .end Start