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.

bind.s 31KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107
  1. ;=============================================
  2. ; Filename bind.x
  3. ;
  4. ;
  5. ; Base address 000000
  6. ; Exec address 000000
  7. ; Text size 00155c byte(s)
  8. ; Data size 000556 byte(s)
  9. ; Bss size 00110a byte(s)
  10. ; 316 Labels
  11. ;
  12. ; Commandline dis -b2 -h -m68000 --sp -q1 -B -M -o120 -gbind.lab --overwrite bind.x bind.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. Start:
  21. lea.l (End),sp
  22. lea.l (Start-$0000f0),a0
  23. lea.l (End),a1
  24. suba.l a0,a1
  25. move.l a1,-(sp)
  26. move.l a0,-(sp)
  27. DOS _SETBLOCK
  28. addq.l #8,sp
  29. pea.l (L001588)
  30. DOS _PRINT
  31. addq.l #4,sp
  32. move.l #$00ffffff,-(sp)
  33. DOS _MALLOC
  34. sub.l #$81000000,d0
  35. cmp.l #$00000500,d0
  36. bcs.w L0008be
  37. cmp.l #$01000000,d0
  38. bcc.w L0008be
  39. move.l d0,d1
  40. move.l d0,(sp)
  41. DOS _MALLOC
  42. addq.l #4,sp
  43. move.l d0,(L001b3a)
  44. move.l d1,(L001b3e)
  45. clr.b (L001fb1)
  46. clr.b (L001fb2)
  47. clr.b (L001fb3)
  48. clr.b (L001fb4)
  49. clr.b (L001fb5)
  50. clr.b (L001fb6)
  51. clr.b (L001fb7)
  52. clr.b (L001fb8)
  53. clr.b (L001fb9)
  54. clr.b (L001fba)
  55. clr.b (L001fae)
  56. move.w #$ffff,(L001b44)
  57. move.w #$ffff,(L001b46)
  58. movea.l (Start-$0000e0),a0
  59. addq.l #1,a0
  60. lea.l (L001b4a),a1
  61. lea.l (L001c62),a2
  62. lea.l (L001d7a),a3
  63. lea.l (L001e92),a4
  64. bsr.w L000fe4
  65. move.w d0,(L001b42)
  66. move.b d2,(L001faf)
  67. move.b d3,(L001fb0)
  68. lea.l (L001c62),a0
  69. L0000ea:
  70. tst.b (a0)
  71. beq.w L000290
  72. bsr.w L0011ca
  73. L0000f4:
  74. move.b (a0)+,d0
  75. beq.s L0000ea
  76. cmp.b #$75,d0 ;'u'
  77. beq.w L0001c6
  78. cmp.b #$78,d0 ;'x'
  79. beq.w L000198
  80. cmp.b #$64,d0 ;'d'
  81. beq.s L00016a
  82. cmp.b #$6f,d0 ;'o'
  83. beq.w L00020a
  84. cmp.b #$74,d0 ;'t'
  85. beq.w L000236
  86. cmp.b #$61,d0 ;'a'
  87. beq.w L0001e8
  88. cmp.b #$76,d0 ;'v'
  89. beq.w L000262
  90. cmp.b #$62,d0 ;'b'
  91. beq.w L00026e
  92. cmp.b #$6c,d0 ;'l'
  93. bne.w L0008d6
  94. move.b (L001fb3),d0
  95. or.b (L001fb2),d0
  96. or.b (L001fb1),d0
  97. or.b (L001fb7),d0
  98. or.b (L001fb9),d0
  99. bne.w L0008d6
  100. move.b #-$01,(L001fb4)
  101. bra.s L0000f4
  102. L00016a:
  103. move.b (L001fb4),d0
  104. or.b (L001fb2),d0
  105. or.b (L001fb1),d0
  106. or.b (L001fb7),d0
  107. or.b (L001fb9),d0
  108. bne.w L0008d6
  109. move.b #-$01,(L001fb3)
  110. bra.w L0000f4
  111. L000198:
  112. move.b (L001fb4),d0
  113. or.b (L001fb3),d0
  114. or.b (L001fb1),d0
  115. or.b (L001fb7),d0
  116. or.b (L001fb9),d0
  117. bne.w L0008d6
  118. move.b #-$01,(L001fb2)
  119. bra.w L0000f4
  120. L0001c6:
  121. move.b (L001fb4),d0
  122. or.b (L001fb3),d0
  123. or.b (L001fb2),d0
  124. bne.w L0008d6
  125. move.b #-$01,(L001fb1)
  126. bra.w L0000f4
  127. L0001e8:
  128. move.b (L001fb4),d0
  129. or.b (L001fb3),d0
  130. or.b (L001fb2),d0
  131. bne.w L0008d6
  132. move.b #-$01,(L001fb7)
  133. bra.w L0000f4
  134. L00020a:
  135. move.b (a3),d0
  136. beq.w L0008d6
  137. cmp.b #$2d,d0 ;'-'
  138. beq.w L0008d6
  139. cmp.b #$2f,d0 ;'/'
  140. beq.w L0008d6
  141. tst.b (L001fb5)
  142. bne.w L0008d6
  143. move.b #-$01,(L001fb5)
  144. bra.w L0000f4
  145. L000236:
  146. move.b (a4),d0
  147. beq.w L0008d6
  148. cmp.b #$2d,d0 ;'-'
  149. beq.w L0008d6
  150. cmp.b #$2f,d0 ;'/'
  151. beq.w L0008d6
  152. tst.b (L001fb6)
  153. bne.w L0008d6
  154. move.b #-$01,(L001fb6)
  155. bra.w L0000f4
  156. L000262:
  157. move.b #-$01,(L001fb8)
  158. bra.w L0000f4
  159. L00026e:
  160. move.b (L001fb4),d0
  161. or.b (L001fb3),d0
  162. or.b (L001fb2),d0
  163. bne.w L0008d6
  164. move.b #-$01,(L001fb9)
  165. bra.w L0000f4
  166. L000290:
  167. move.b (L001fb4),d0
  168. or.b (L001fb3),d0
  169. or.b (L001fb2),d0
  170. not.b d0
  171. move.b d0,(L001fb1)
  172. not.b (L001fb9)
  173. and.b d0,(L001fb9)
  174. move.w (L001b42),d0
  175. tst.b (L001fb5)
  176. bne.s L0002dc
  177. tst.w d0
  178. beq.w L0008d6
  179. lea.l (L001b4a),a1
  180. lea.l (L001d7a),a0
  181. bsr.w L001184
  182. subq.w #1,d0
  183. L0002dc:
  184. tst.b (L001fb4)
  185. beq.s L0002ec
  186. tst.w d0
  187. bne.w L0008d6
  188. bra.s L0002f4
  189. L0002ec:
  190. cmp.w #$0001,d0
  191. bcs.w L0008d6
  192. L0002f4:
  193. lea.l (L001e92),a0
  194. tst.b (L001fb6)
  195. bne.s L00032a
  196. lea.l (L001c62),a0
  197. clr.b (a0)
  198. move.l a0,-(sp)
  199. clr.l -(sp)
  200. pea.l (L001aa7)
  201. DOS _GETENV
  202. lea.l ($000c,sp),sp
  203. bsr.w L00116a
  204. movea.l a0,a1
  205. lea.l (L001e92),a0
  206. bsr.w L001184
  207. L00032a:
  208. movea.l a0,a2
  209. bsr.w L0013b6
  210. movea.l a2,a0
  211. bsr.w L001222
  212. lea.l (L001aad),a1
  213. tst.b (a0)
  214. beq.s L000346
  215. lea.l (L001aac),a1
  216. L000346:
  217. bsr.w L0011a8
  218. movea.l a2,a0
  219. bsr.w L001266
  220. bsr.w L001222
  221. clr.b (a0)
  222. lea.l (L001a9e),a1
  223. bsr.w L001184
  224. movea.l a2,a0
  225. bsr.w L0011ca
  226. lea.l (L001a9b),a2
  227. lea.l (L001d7a),a1
  228. lea.l (L001c62),a0
  229. bsr.w L000df0
  230. tst.b (L001fb4)
  231. bne.w L000868
  232. tst.b (L001fb1)
  233. bne.w L00063c
  234. tst.b (L001fb3)
  235. bne.w L00052e
  236. clr.b d2
  237. movea.l (L001b3a),a3
  238. lea.l (L001c62),a0
  239. bsr.w L000e22
  240. move.l a3,d1
  241. addq.l #2,d1
  242. and.b #$fe,d1
  243. movea.l d1,a4
  244. move.l (L001b3a),d4
  245. add.l (L001b3e),d4
  246. sub.l d1,d4
  247. and.w #$fc00,d4
  248. cmp.l #$00000400,d4
  249. bge.s L0003dc
  250. lea.l (L001fbb),a4
  251. move.l #$00000400,d4
  252. L0003dc:
  253. movea.l (L001b3a),a3
  254. lea.l (L001ab2),a0
  255. tst.l ($003c,a0)
  256. beq.w L000934
  257. lea.l (L001c62),a0
  258. bsr.w L000d70
  259. move.w d0,(L001b46)
  260. clr.b d6
  261. tst.b (L001fb5)
  262. bne.s L00040c
  263. L00040a:
  264. addq.b #1,d6
  265. L00040c:
  266. lea.l (L001b4a),a0
  267. move.b d6,d0
  268. bsr.w L001388
  269. beq.w L000522
  270. movea.l a0,a1
  271. lea.l (L001d7a),a0
  272. bsr.w L001184
  273. bsr.w L001222
  274. move.l a0,(L001b36)
  275. tst.b (a0)
  276. beq.w L0008c6
  277. cmpi.b #$2e,(a0) ;'.'
  278. beq.w L0008c6
  279. lea.l (L001a9b),a1
  280. bsr.w L00139c
  281. movea.l (L001b36),a0
  282. lea.l (L001a5b),a1
  283. bsr.w L000978
  284. lea.l (L001f6e),a1
  285. bsr.w L000f70
  286. movea.l (L001b3a),a3
  287. clr.b d3
  288. L00046c:
  289. tst.b (a3)
  290. beq.w L000518
  291. movea.l a3,a0
  292. lea.l (L001f6e),a1
  293. bsr.w L000b12
  294. bne.w L000510
  295. lea.l (L001d7a),a0
  296. bsr.w L001266
  297. bsr.w L001222
  298. bsr.w L000ccc
  299. move.b #$01,(L001fae)
  300. lea.l (L001d7a),a0
  301. move.l a0,(L001b36)
  302. lea.l (L001c62),a1
  303. bsr.w L001366
  304. beq.w L00092c
  305. clr.w d0
  306. move.b ($000b,a3),d0
  307. bsr.w L000d94
  308. move.w d0,(L001b44)
  309. move.b #$02,(L001fae)
  310. clr.l d5
  311. move.l ($0020,a3),d3
  312. move.l ($001c,a3),d2
  313. bsr.w L000b70
  314. subq.l #4,sp
  315. move.b ($0016,a3),($0003,sp)
  316. move.b ($0017,a3),($0002,sp)
  317. move.b ($0018,a3),($0001,sp)
  318. move.b ($0019,a3),(sp)
  319. move.w (L001b44),-(sp)
  320. DOS _FILEDATE
  321. addq.l #6,sp
  322. swap.w d0
  323. cmp.w #$ffff,d0
  324. beq.w L0008de
  325. bsr.w L0009f2
  326. move.b #-$01,d3
  327. L000510:
  328. lea.l ($0024,a3),a3
  329. bra.w L00046c
  330. L000518:
  331. tst.b d3
  332. beq.w L000924
  333. bra.w L00040a
  334. L000522:
  335. clr.w d0
  336. move.b d0,(L001fae)
  337. bra.w L00096e
  338. L00052e:
  339. lea.l (L001e92),a0
  340. bsr.w L000d94
  341. move.w d0,(L001b44)
  342. move.b #-$01,(L001fae)
  343. movea.l (L001b3a),a3
  344. lea.l (L001b4a),a1
  345. lea.l (L001a9b),a2
  346. lea.l (L001d7a),a0
  347. clr.b d2
  348. bsr.w L000e1c
  349. lea.l (L001ab2),a0
  350. tst.l ($003c,a0)
  351. beq.w L000934
  352. L000572:
  353. addq.b #1,d2
  354. lea.l (L001b4a),a0
  355. move.b d2,d0
  356. bsr.w L001388
  357. beq.w L000616
  358. bsr.w L001222
  359. tst.b (a0)
  360. beq.w L0008c6
  361. cmpi.b #$2e,(a0) ;'.'
  362. beq.w L0008c6
  363. movea.l a0,a1
  364. lea.l (L001d7a),a0
  365. bsr.w L001184
  366. lea.l (L001a9b),a1
  367. bsr.w L00139c
  368. lea.l (L001d7a),a0
  369. move.l a0,(L001b36)
  370. lea.l (L001a4b),a1
  371. bsr.w L000978
  372. lea.l (L001f6e),a1
  373. bsr.w L000f70
  374. movea.l (L001b3a),a0
  375. clr.b d3
  376. L0005d4:
  377. tst.b (a0)
  378. beq.s L00060c
  379. cmpi.b #$e5,(a0)
  380. beq.s L000606
  381. lea.l (L001f6e),a1
  382. bsr.w L000b12
  383. bne.s L000606
  384. btst.b #$00,($001b,a0)
  385. bne.w L000914
  386. btst.b #$02,($001b,a0)
  387. bne.w L000914
  388. move.b #$e5,(a0)
  389. move.b #-$01,d3
  390. L000606:
  391. lea.l ($0024,a0),a0
  392. bra.s L0005d4
  393. L00060c:
  394. tst.b d3
  395. beq.w L00091c
  396. bra.w L000572
  397. L000616:
  398. movea.l (L001b3a),a3
  399. clr.b d3
  400. L00061e:
  401. tst.b (a3)
  402. beq.s L000632
  403. cmpi.b #$e5,(a3)
  404. beq.s L00062c
  405. move.b #-$01,d3
  406. L00062c:
  407. lea.l ($0024,a3),a3
  408. bra.s L00061e
  409. L000632:
  410. tst.b d3
  411. beq.w L0008ce
  412. bra.w L000738
  413. L00063c:
  414. lea.l (L001e92),a0
  415. bsr.w L000d94
  416. move.w d0,(L001b44)
  417. move.b #-$01,d2
  418. move.b d2,(L001fae)
  419. movea.l (L001b3a),a3
  420. L00065c:
  421. addq.b #1,d2
  422. lea.l (L001b4a),a0
  423. move.b d2,d0
  424. bsr.w L001388
  425. beq.s L000680
  426. movea.l a0,a1
  427. lea.l (L001a9b),a2
  428. lea.l (L001d7a),a0
  429. bsr.w L000e1c
  430. bra.s L00065c
  431. L000680:
  432. movea.l (L001b3a),a3
  433. L000686:
  434. tst.b (a3)
  435. beq.w L000738
  436. cmpi.b #$e5,(a3)
  437. beq.w L000730
  438. lea.l (L001d7a),a0
  439. bsr.w L000ccc
  440. lea.l (L001a8b),a1
  441. tst.b (L001fb5)
  442. bne.s L0006b8
  443. tst.b ($001a,a3)
  444. beq.s L0006bc
  445. lea.l (L001a7b),a1
  446. L0006b8:
  447. bsr.w L000978
  448. L0006bc:
  449. lea.l ($0024,a3),a2
  450. L0006c0:
  451. tst.b (a2)
  452. beq.s L000730
  453. cmpi.b #$e5,(a2)
  454. beq.s L00072a
  455. movea.l a3,a0
  456. movea.l a2,a1
  457. bsr.w L000b12
  458. bne.s L00072a
  459. move.b ($001b,a3),d0
  460. and.b (L001fb0),d0
  461. bsr.w L000b4e
  462. bcs.s L000722
  463. movem.l d0/a0-a1,-(sp)
  464. lea.l (L001d7a),a0
  465. bsr.w L000ccc
  466. lea.l (L001a6b),a1
  467. bsr.w L000978
  468. movem.l (sp)+,d0/a0-a1
  469. btst.l #$00,d0
  470. bne.w L0008b6
  471. btst.l #$02,d0
  472. bne.w L0008b6
  473. move.w #$0023,d1 ;'#'
  474. L000714:
  475. move.b (a1)+,(a0)+
  476. dbra.w d1,L000714
  477. move.b #-$01,d3
  478. or.b #$20,d0
  479. L000722:
  480. move.b d0,($001b,a3)
  481. move.b #$e5,(a2)
  482. L00072a:
  483. lea.l ($0024,a2),a2
  484. bra.s L0006c0
  485. L000730:
  486. lea.l ($0024,a3),a3
  487. bra.w L000686
  488. L000738:
  489. clr.l d5
  490. movea.l (L001b3a),a3
  491. L000740:
  492. tst.b (a3)
  493. beq.s L000770
  494. cmpi.b #$e5,(a3)
  495. beq.s L00076a
  496. add.l ($0020,a3),d5
  497. tst.b (L001fb5)
  498. bne.s L00075c
  499. tst.b ($001a,a3)
  500. beq.s L00076a
  501. L00075c:
  502. move.b ($001b,a3),d0
  503. or.b (L001faf),d0
  504. move.b d0,($001b,a3)
  505. L00076a:
  506. lea.l ($0024,a3),a3
  507. bra.s L000740
  508. L000770:
  509. move.l a3,d1
  510. addq.l #2,d1
  511. and.b #$fe,d1
  512. movea.l d1,a4
  513. move.l (L001b3a),d4
  514. add.l (L001b3e),d4
  515. sub.l d1,d4
  516. and.w #$fc00,d4
  517. cmp.l #$00000400,d4
  518. bge.s L0007a0
  519. lea.l (L001fbb),a4
  520. move.l #$00000400,d4
  521. L0007a0:
  522. movea.l (L001b3a),a3
  523. L0007a6:
  524. tst.b (a3)
  525. beq.s L00080a
  526. cmpi.b #$e5,(a3)
  527. beq.s L000804
  528. lea.l (L001b4a),a0
  529. move.b ($001a,a3),d0
  530. bsr.w L001388
  531. movea.l a0,a1
  532. lea.l (L001a9b),a2
  533. lea.l (L001d7a),a0
  534. bsr.w L000df0
  535. bsr.w L0011ca
  536. bsr.w L000d70
  537. move.w d0,(L001b46)
  538. move.w (L001b44),d0
  539. bsr.w L000c0a
  540. move.l d0,-(sp)
  541. move.l ($0020,a3),d3
  542. move.l ($001c,a3),d2
  543. bsr.w L000b70
  544. move.l (sp)+,($001c,a3)
  545. clr.b ($001a,a3)
  546. bsr.w L000a0e
  547. clr.l d5
  548. L000804:
  549. lea.l ($0024,a3),a3
  550. bra.s L0007a6
  551. L00080a:
  552. movea.l (L001b3a),a3
  553. movea.l a3,a2
  554. L000812:
  555. tst.b (a3)
  556. beq.s L000830
  557. cmpi.b #$e5,(a3)
  558. beq.s L00082a
  559. move.w #$001f,d0
  560. L000820:
  561. move.b (a3)+,(a2)+
  562. dbra.w d0,L000820
  563. addq.l #4,a3
  564. bra.s L000812
  565. L00082a:
  566. lea.l ($0024,a3),a3
  567. bra.s L000812
  568. L000830:
  569. movea.l (L001b3a),a0
  570. suba.l a0,a2
  571. move.l a2,-(sp)
  572. move.l a0,-(sp)
  573. move.w (L001b44),-(sp)
  574. DOS _WRITE
  575. lea.l ($000a,sp),sp
  576. tst.l d0
  577. bmi.w L0008de
  578. move.w (L001b44),d0
  579. bsr.w L000c0a
  580. move.l d0,d3
  581. bsr.w L0009f2
  582. bsr.w L000a2a
  583. clr.w d0
  584. bra.w L00096e
  585. L000868:
  586. clr.b d2
  587. movea.l (L001b3a),a3
  588. lea.l (L001c62),a0
  589. bsr.w L000e22
  590. lea.l (L001ab2),a0
  591. tst.l ($003c,a0)
  592. beq.w L000934
  593. clr.w (L001b48)
  594. movea.l (L001b3a),a3
  595. L000894:
  596. bsr.w L000c18
  597. addq.w #1,(L001b48)
  598. lea.l ($0024,a3),a3
  599. tst.b (a3)
  600. bne.s L000894
  601. tst.w (L001b48)
  602. beq.w L00093c
  603. clr.w d0
  604. bra.w L00096e
  605. L0008b6:
  606. lea.l (L001795),a0
  607. bra.s L0008ec
  608. L0008be:
  609. lea.l (L0018bf),a0
  610. bra.s L0008ec
  611. L0008c6:
  612. lea.l (L00172f),a0
  613. bra.s L0008ec
  614. L0008ce:
  615. lea.l (L00176d),a0
  616. bra.s L0008ec
  617. L0008d6:
  618. lea.l (L0015b8),a0
  619. bra.s L0008ec
  620. L0008de:
  621. move.b (L001fae),d0
  622. bgt.s L0008f2
  623. lea.l (L001829),a0
  624. L0008ec:
  625. bsr.w L00142c
  626. bra.s L00096c
  627. L0008f2:
  628. cmp.b #$02,d0
  629. bhi.s L000900
  630. lea.l (L001853),a0
  631. bra.s L000962
  632. L000900:
  633. lea.l (L001c62),a0
  634. move.l a0,(L001b36)
  635. lea.l (L0018dd),a0
  636. bra.s L000962
  637. L000914:
  638. lea.l (L001795),a0
  639. bra.s L000962
  640. L00091c:
  641. lea.l (L001905),a0
  642. bra.s L000962
  643. L000924:
  644. lea.l (L001933),a0
  645. bra.s L000962
  646. L00092c:
  647. lea.l (L00187f),a0
  648. bra.s L000962
  649. L000934:
  650. lea.l (L001801),a0
  651. bra.s L000962
  652. L00093c:
  653. lea.l (L0017d9),a0
  654. bra.s L000962
  655. L000944:
  656. lea.l (L001963),a0
  657. bra.s L000962
  658. L00094c:
  659. lea.l (L00174d),a0
  660. bra.s L000962
  661. L000954:
  662. lea.l (L00172f),a0
  663. bra.s L000962
  664. L00095c:
  665. lea.l (L0017b7),a0
  666. L000962:
  667. movea.l a0,a1
  668. movea.l (L001b36),a0
  669. bsr.s L000980
  670. L00096c:
  671. moveq.l #$01,d0
  672. L00096e:
  673. move.w d0,-(sp)
  674. bsr.w L000a0e
  675. bsr.s L0009ac
  676. DOS _EXIT2
  677. L000978:
  678. tst.b (L001fb8)
  679. beq.s L0009aa
  680. L000980:
  681. movem.l d0/a0-a1,-(sp)
  682. move.l a0,-(sp)
  683. movea.l a1,a0
  684. bsr.w L00142c
  685. lea.l (L00199b),a0
  686. bsr.w L00142c
  687. movea.l (sp)+,a0
  688. bsr.w L00142c
  689. lea.l (L0019a2),a0
  690. bsr.w L00142c
  691. movem.l (sp)+,d0/a0-a1
  692. L0009aa:
  693. rts
  694. L0009ac:
  695. bsr.s L0009f2
  696. lea.l (L001e92),a0
  697. move.b (L001fae),d0
  698. bmi.s L0009de
  699. lea.l (L001d7a),a0
  700. cmp.b #$02,d0
  701. beq.s L0009de
  702. blt.s L0009f0
  703. lea.l (L001e92),a0
  704. cmp.b #$03,d0
  705. beq.s L0009de
  706. bsr.s L0009de
  707. lea.l (L001c62),a0
  708. L0009de:
  709. move.l a1,-(sp)
  710. lea.l (L001a3d),a1
  711. bsr.s L000978
  712. movea.l (sp)+,a1
  713. move.l a0,-(sp)
  714. DOS _DELETE
  715. addq.l #4,sp
  716. L0009f0:
  717. rts
  718. L0009f2:
  719. tst.w (L001b44)
  720. bmi.s L000a0c
  721. move.w (L001b44),-(sp)
  722. DOS _CLOSE
  723. addq.l #2,sp
  724. move.w #$ffff,(L001b44)
  725. L000a0c:
  726. rts
  727. L000a0e:
  728. tst.w (L001b46)
  729. bmi.s L000a28
  730. move.w (L001b46),-(sp)
  731. DOS _CLOSE
  732. addq.l #2,sp
  733. move.w #$ffff,(L001b46)
  734. L000a28:
  735. rts
  736. L000a2a:
  737. lea.l (L001e92),a0
  738. lea.l (L001c62),a1
  739. move.b (a0),d0
  740. or.b #$20,d0
  741. move.b (a1),d1
  742. or.b #$20,d1
  743. cmp.b d0,d1
  744. beq.s L000aa8
  745. bsr.w L000d70
  746. move.w d0,(L001b46)
  747. move.b #$03,(L001fae)
  748. movea.l a1,a0
  749. bsr.w L000d94
  750. move.w d0,(L001b44)
  751. move.b #$04,(L001fae)
  752. move.l (L001b3a),d1
  753. addq.l #1,d1
  754. and.b #$fe,d1
  755. movea.l d1,a4
  756. add.l (L001b3e),d4
  757. sub.l d1,d4
  758. and.w #$fc00,d4
  759. cmp.l #$00000400,d4
  760. bge.s L000a9a
  761. lea.l (L001fbb),a4
  762. move.l #$00000400,d4
  763. L000a9a:
  764. bsr.w L000bcc
  765. move.b #$03,(L001fae)
  766. rts
  767. L000aa8:
  768. move.w #$003f,-(sp) ;'?'
  769. pea.l (L001c62)
  770. pea.l (L001f32)
  771. DOS _FILES
  772. lea.l ($000a,sp),sp
  773. tst.l d0
  774. bmi.s L000ad2
  775. pea.l (L001c62)
  776. DOS _DELETE
  777. addq.l #4,sp
  778. tst.l d0
  779. bmi.w L000900
  780. L000ad2:
  781. movem.l a0-a1,-(sp)
  782. lea.l (L001a2f),a1
  783. lea.l (L001e92),a0
  784. bsr.w L000978
  785. lea.l (L001a21),a1
  786. lea.l (L001c62),a0
  787. bsr.w L000978
  788. movem.l (sp)+,a0-a1
  789. pea.l (L001c62)
  790. pea.l (L001e92)
  791. DOS _RENAME
  792. addq.l #8,sp
  793. tst.l d0
  794. bmi.w L000900
  795. rts
  796. L000b12:
  797. link.w a6,#-$0018
  798. movem.l d0/a0-a1,-(sp)
  799. move.l a0,-(sp)
  800. lea.l (-$000c,a6),a0
  801. move.w #$000b,d0
  802. bsr.w L001192
  803. bsr.w L0011ca
  804. movea.l (sp)+,a1
  805. lea.l (-$0018,a6),a0
  806. move.w #$000b,d0
  807. bsr.w L001192
  808. bsr.w L0011ca
  809. lea.l (-$000c,a6),a1
  810. bsr.w L001366
  811. movem.l (sp)+,d0/a0-a1
  812. unlk a6
  813. rts
  814. L000b4e:
  815. movem.l d0-d1/a0-a1,-(sp)
  816. lea.l ($001a,a0),a0
  817. lea.l ($001a,a1),a1
  818. move.w #$0003,d0
  819. L000b5e:
  820. subq.l #1,a0
  821. subq.l #1,a1
  822. move.b (a1),d1
  823. cmp.b (a0),d1
  824. dbne.w d0,L000b5e
  825. movem.l (sp)+,d0-d1/a0-a1
  826. rts
  827. L000b70:
  828. clr.w -(sp)
  829. move.l d2,-(sp)
  830. move.w (L001b46),-(sp)
  831. DOS _SEEK
  832. addq.l #8,sp
  833. tst.l d0
  834. bmi.w L00095c
  835. move.w (L001b46),d0
  836. bsr.w L000dc0
  837. move.l d5,(L001aee)
  838. move.l #$00000040,-(sp)
  839. pea.l (L001ab2)
  840. move.w (L001b44),-(sp)
  841. DOS _WRITE
  842. lea.l ($000a,sp),sp
  843. tst.l d0
  844. bmi.w L0008de
  845. add.l #$00000040,d2
  846. clr.w -(sp)
  847. move.l d2,-(sp)
  848. move.w (L001b46),-(sp)
  849. DOS _SEEK
  850. addq.l #8,sp
  851. sub.l #$00000040,d3
  852. L000bcc:
  853. tst.l d3
  854. beq.s L000c08
  855. move.l d3,d1
  856. cmp.l d4,d1
  857. bcs.s L000bd8
  858. move.l d4,d1
  859. L000bd8:
  860. move.l d1,-(sp)
  861. move.l a4,-(sp)
  862. move.w (L001b46),-(sp)
  863. DOS _READ
  864. lea.l ($000a,sp),sp
  865. cmp.l d0,d1
  866. bne.w L00095c
  867. move.l d1,-(sp)
  868. move.l a4,-(sp)
  869. move.w (L001b44),-(sp)
  870. DOS _WRITE
  871. lea.l ($000a,sp),sp
  872. cmp.l d0,d1
  873. bne.w L0008de
  874. sub.l d1,d3
  875. bra.s L000bcc
  876. L000c08:
  877. rts
  878. L000c0a:
  879. move.w #$0001,-(sp)
  880. clr.l -(sp)
  881. move.w d0,-(sp)
  882. DOS _SEEK
  883. addq.l #8,sp
  884. rts
  885. L000c18:
  886. link.w a6,#-$0118
  887. move.w (L001b48),d0
  888. and.w #$001f,d0
  889. bne.s L000c32
  890. pea.l (L0019a6)
  891. DOS _PRINT
  892. addq.l #4,sp
  893. L000c32:
  894. bsr.w L001440
  895. clr.l d0
  896. move.w (L001b48),d0
  897. lea.l (-$0118,a6),a0
  898. bsr.w L0013c4
  899. pea.l ($0007,a0)
  900. DOS _PRINT
  901. addq.l #4,sp
  902. bsr.w L001440
  903. btst.b #$01,($001b,a3)
  904. bne.s L000cbe
  905. bsr.s L000ccc
  906. move.l a0,-(sp)
  907. DOS _PRINT
  908. addq.l #4,sp
  909. bsr.w L0011bc
  910. sub.l #$00000017,d0
  911. neg.l d0
  912. bsr.w L00141e
  913. move.l ($0020,a3),d0
  914. bsr.w L0013c4
  915. pea.l (a0)
  916. DOS _PRINT
  917. addq.l #4,sp
  918. bsr.w L001440
  919. move.b ($0019,a3),d0
  920. asl.w #8,d0
  921. or.b ($0018,a3),d0
  922. bsr.w L00144a
  923. bsr.w L001440
  924. move.b ($0017,a3),d0
  925. asl.w #8,d0
  926. or.b ($0016,a3),d0
  927. bsr.w L0014b6
  928. bsr.w L001440
  929. move.b ($000b,a3),d0
  930. bsr.w L00151e
  931. pea.l (L001a1e)
  932. DOS _PRINT
  933. addq.l #4,sp
  934. unlk a6
  935. rts
  936. L000cbe:
  937. pea.l (L0019e6)
  938. DOS _PRINT
  939. addq.l #4,sp
  940. unlk a6
  941. rts
  942. L000ccc:
  943. move.l a0,-(sp)
  944. lea.l ($0000.w,a3),a1
  945. move.w #$0008,d0
  946. bsr.w L001192
  947. cmpi.b #$05,(a0)
  948. bne.s L000ce4
  949. move.b #$e5,(a0)
  950. L000ce4:
  951. bsr.w L0013b6
  952. lea.l ($000c,a3),a1
  953. move.w #$000a,d0
  954. bsr.w L001192
  955. bsr.w L0011bc
  956. adda.l d0,a0
  957. move.b #$2e,(a0)+ ;'.'
  958. lea.l ($0008,a3),a1
  959. move.w #$0003,d0
  960. bsr.w L001192
  961. bsr.w L0013b6
  962. movea.l (sp)+,a0
  963. rts
  964. L000d12:
  965. move.l #$00000020,-(sp)
  966. pea.l (L001f8e)
  967. move.w d0,-(sp)
  968. DOS _READ
  969. lea.l ($000a,sp),sp
  970. cmp.l #$00000020,d0
  971. blt.w L00093c
  972. rts
  973. L000d32:
  974. move.w #$001f,d1
  975. lea.l (L001f6e),a0
  976. lea.l (L001f8e),a1
  977. L000d42:
  978. move.b (a1)+,(a0)+
  979. dbra.w d1,L000d42
  980. move.l #$00000020,-(sp)
  981. pea.l (L001f8e)
  982. move.w d0,-(sp)
  983. DOS _READ
  984. lea.l ($000a,sp),sp
  985. tst.l d0
  986. bmi.w L00093c
  987. beq.s L000d6e
  988. cmp.l #$00000020,d0
  989. bne.w L00093c
  990. L000d6e:
  991. rts
  992. L000d70:
  993. move.l a1,-(sp)
  994. lea.l (L001a2f),a1
  995. bsr.w L000978
  996. movea.l (sp)+,a1
  997. clr.w -(sp)
  998. move.l a0,-(sp)
  999. DOS _OPEN
  1000. addq.l #6,sp
  1001. move.l a0,(L001b36)
  1002. tst.l d0
  1003. bmi.w L00094c
  1004. rts
  1005. L000d94:
  1006. cmpi.b #$01,(L001fae)
  1007. beq.s L000da2
  1008. move.w #$0020,d0 ;' '
  1009. L000da2:
  1010. move.l a1,-(sp)
  1011. lea.l (L001a21),a1
  1012. bsr.w L000978
  1013. movea.l (sp)+,a1
  1014. move.w d0,-(sp)
  1015. move.l a0,-(sp)
  1016. DOS _CREATE
  1017. addq.l #6,sp
  1018. tst.l d0
  1019. bmi.w L0008de
  1020. rts
  1021. L000dc0:
  1022. move.l #$00000041,-(sp)
  1023. pea.l (L001ab2)
  1024. move.w d0,-(sp)
  1025. DOS _READ
  1026. lea.l ($000a,sp),sp
  1027. cmp.l #$00000041,d0
  1028. blt.w L00095c
  1029. lea.l (L001ab2),a0
  1030. cmpi.w #$4855,($0000.w,a0) ;'HU'
  1031. bne.w L00095c
  1032. rts
  1033. L000df0:
  1034. bsr.w L001184
  1035. move.l a0,-(sp)
  1036. bsr.w L001222
  1037. move.l (sp),(L001b36)
  1038. tst.b (a0)
  1039. beq.w L000954
  1040. cmpi.b #$2e,(a0) ;'.'
  1041. beq.w L000954
  1042. movea.l a2,a1
  1043. bsr.w L00139c
  1044. movea.l (sp)+,a0
  1045. bsr.w L001266
  1046. rts
  1047. L000e1c:
  1048. bsr.s L000df0
  1049. bsr.w L0011ca
  1050. L000e22:
  1051. bsr.w L000d70
  1052. move.w d0,(L001b46)
  1053. bsr.s L000dc0
  1054. lea.l (L001ab2),a0
  1055. tst.l ($003c,a0)
  1056. beq.w L000ef0
  1057. move.b (L001fba),d0
  1058. or.b (L001fb9),d0
  1059. tst.b (L001fba)
  1060. bne.w L000944
  1061. move.b d0,(L001fba)
  1062. clr.w -(sp)
  1063. move.l ($003c,a0),-(sp)
  1064. move.w (L001b46),-(sp)
  1065. DOS _SEEK
  1066. addq.l #8,sp
  1067. tst.l d0
  1068. bmi.w L00093c
  1069. clr.w (L001b48)
  1070. move.w (L001b46),d0
  1071. bsr.w L000d12
  1072. L000e7e:
  1073. move.w (L001b46),d0
  1074. bsr.w L000d32
  1075. tst.l d0
  1076. bne.s L000e9c
  1077. clr.b (L001f8e)
  1078. move.l (L001aee),(L001faa)
  1079. L000e9c:
  1080. lea.l (L001f6e),a0
  1081. move.b d2,($001a,a0)
  1082. move.l (L001b3a),d0
  1083. add.l (L001b3e),d0
  1084. sub.l #$00000024,d0
  1085. cmp.l a3,d0
  1086. bcs.w L0008be
  1087. move.w #$001f,d0
  1088. L000ec2:
  1089. move.b (a0)+,(a3)+
  1090. dbra.w d0,L000ec2
  1091. move.l (L001faa),d0
  1092. sub.l (L001f8a),d0
  1093. move.l d0,(a3)+
  1094. addq.w #1,(L001b48)
  1095. tst.b (L001f8e)
  1096. bne.s L000e7e
  1097. tst.w (L001b48)
  1098. beq.w L00093c
  1099. bra.s L000f1a
  1100. L000ef0:
  1101. move.l (L001b3a),d0
  1102. add.l (L001b3e),d0
  1103. sub.l #$00000024,d0
  1104. cmp.l a3,d0
  1105. bcs.w L0008be
  1106. movea.l a3,a1
  1107. lea.l (L001d7a),a0
  1108. bsr.s L000f22
  1109. move.b d2,($001a,a3)
  1110. lea.l ($0024,a3),a3
  1111. L000f1a:
  1112. clr.b (a3)
  1113. bsr.w L000a0e
  1114. rts
  1115. L000f22:
  1116. move.w #$003f,-(sp) ;'?'
  1117. move.l a0,-(sp)
  1118. pea.l (L001f32)
  1119. DOS _FILES
  1120. lea.l ($000a,sp),sp
  1121. lea.l (L001f50),a0
  1122. movea.l a1,a2
  1123. bsr.s L000f76
  1124. move.b (L001f47),($000b,a2)
  1125. clr.b ($001b,a2)
  1126. move.l (L001f4c),($0020,a2)
  1127. lea.l ($0016,a2),a1
  1128. move.b (L001f49),(a1)+
  1129. move.b (L001f48),(a1)+
  1130. move.b (L001f4b),(a1)+
  1131. move.b (L001f4a),(a1)
  1132. rts
  1133. L000f70:
  1134. movea.l a1,a2
  1135. bsr.s L000f76
  1136. rts
  1137. L000f76:
  1138. cmpi.b #$e5,(a0)
  1139. bne.s L000f80
  1140. move.b #$05,(a0)
  1141. L000f80:
  1142. move.w #$000a,d0
  1143. L000f84:
  1144. move.b #$20,(a1)+ ;' '
  1145. dbra.w d0,L000f84
  1146. move.w #$0014,d0
  1147. L000f90:
  1148. clr.b (a1)+
  1149. dbra.w d0,L000f90
  1150. movea.l a2,a1
  1151. move.w #$0007,d1
  1152. L000f9c:
  1153. move.b (a0)+,d0
  1154. beq.s L000fe2
  1155. cmp.b #$2e,d0 ;'.'
  1156. beq.s L000fd0
  1157. move.b d0,(a1)+
  1158. dbra.w d1,L000f9c
  1159. lea.l ($000c,a2),a1
  1160. move.w #$0009,d1
  1161. L000fb4:
  1162. move.b (a0)+,d0
  1163. beq.s L000fe2
  1164. cmp.b #$2e,d0 ;'.'
  1165. beq.s L000fd0
  1166. move.b d0,(a1)+
  1167. dbra.w d1,L000fb4
  1168. L000fc4:
  1169. move.b (a0)+,d0
  1170. beq.s L000fe2
  1171. cmp.b #$2e,d0 ;'.'
  1172. beq.s L000fd0
  1173. bra.s L000fc4
  1174. L000fd0:
  1175. lea.l ($0008,a2),a1
  1176. move.w #$0002,d1
  1177. L000fd8:
  1178. move.b (a0)+,d0
  1179. beq.s L000fe2
  1180. move.b d0,(a1)+
  1181. dbra.w d1,L000fd8
  1182. L000fe2:
  1183. rts
  1184. L000fe4:
  1185. movem.l d1/a0-a4,-(sp)
  1186. clr.w d1
  1187. clr.b d2
  1188. move.b #-$01,d3
  1189. L000ff0:
  1190. bsr.w L00116a
  1191. adda.l d0,a0
  1192. tst.b (a0)
  1193. beq.w L001124
  1194. move.b (a0)+,d0
  1195. cmp.b #$2d,d0 ;'-'
  1196. beq.s L00100c
  1197. cmp.b #$2f,d0 ;'/'
  1198. bne.w L0010d4
  1199. L00100c:
  1200. move.b (a0)+,d0
  1201. beq.w L001124
  1202. cmp.b #$09,d0
  1203. beq.w L0010ce
  1204. cmp.b #$20,d0 ;' '
  1205. beq.w L0010ce
  1206. move.b d0,(a2)+
  1207. or.b #$20,d0
  1208. cmp.b #$6f,d0 ;'o'
  1209. bne.s L00104e
  1210. bsr.w L00116a
  1211. adda.l d0,a0
  1212. L001034:
  1213. move.b (a0)+,d0
  1214. beq.w L001124
  1215. cmp.b #$09,d0
  1216. beq.w L0010ce
  1217. cmp.b #$20,d0 ;' '
  1218. beq.w L0010ce
  1219. move.b d0,(a3)+
  1220. bra.s L001034
  1221. L00104e:
  1222. cmp.b #$74,d0 ;'t'
  1223. bne.s L001070
  1224. bsr.w L00116a
  1225. adda.l d0,a0
  1226. L00105a:
  1227. move.b (a0)+,d0
  1228. beq.w L001124
  1229. cmp.b #$09,d0
  1230. beq.s L0010ce
  1231. cmp.b #$20,d0 ;' '
  1232. beq.s L0010ce
  1233. move.b d0,(a4)+
  1234. bra.s L00105a
  1235. L001070:
  1236. cmp.b #$61,d0 ;'a'
  1237. bne.s L0010ce
  1238. bsr.w L00116a
  1239. adda.l d0,a0
  1240. L00107c:
  1241. move.b (a0)+,d0
  1242. beq.w L001124
  1243. cmp.b #$2d,d0 ;'-'
  1244. beq.s L0010a6
  1245. cmp.b #$2b,d0 ;'+'
  1246. bne.s L0010c2
  1247. L00108e:
  1248. move.b (a0),d0
  1249. beq.w L001124
  1250. or.b #$20,d0
  1251. bsr.w L001138
  1252. tst.b d0
  1253. beq.s L00107c
  1254. or.b d0,d2
  1255. addq.l #1,a0
  1256. bra.s L00108e
  1257. L0010a6:
  1258. move.b (a0),d0
  1259. beq.s L001124
  1260. or.b #$20,d0
  1261. bsr.w L001138
  1262. tst.b d0
  1263. beq.s L00107c
  1264. not.b d0
  1265. and.b d0,d3
  1266. addq.l #1,a0
  1267. bra.s L0010a6
  1268. L0010be:
  1269. move.b (a0)+,d0
  1270. beq.s L001124
  1271. L0010c2:
  1272. cmp.b #$09,d0
  1273. beq.s L0010ce
  1274. cmp.b #$20,d0 ;' '
  1275. bne.s L0010be
  1276. L0010ce:
  1277. clr.b (a2)+
  1278. bra.w L000ff0
  1279. L0010d4:
  1280. addq.w #1,d1
  1281. L0010d6:
  1282. move.b d0,(a1)+
  1283. cmp.b #$22,d0 ;'"'
  1284. bne.s L0010ec
  1285. L0010de:
  1286. move.b (a0)+,d0
  1287. beq.s L001124
  1288. move.b d0,(a1)+
  1289. cmp.b #$22,d0 ;'"'
  1290. bne.s L0010de
  1291. bra.s L0010fe
  1292. L0010ec:
  1293. cmp.b #$27,d0 ;'''
  1294. bne.s L0010fe
  1295. L0010f2:
  1296. move.b (a0)+,d0
  1297. beq.s L001124
  1298. move.b d0,(a1)+
  1299. cmp.b #$27,d0 ;'''
  1300. bne.s L0010f2
  1301. L0010fe:
  1302. move.b (a0),d0
  1303. beq.s L001124
  1304. cmp.b #$2f,d0 ;'/'
  1305. beq.s L00111e
  1306. cmp.b #$2d,d0 ;'-'
  1307. beq.s L00111e
  1308. addq.l #1,a0
  1309. cmp.b #$09,d0
  1310. beq.s L00111e
  1311. cmp.b #$20,d0 ;' '
  1312. beq.s L00111e
  1313. bra.s L0010d6
  1314. L00111e:
  1315. clr.b (a1)+
  1316. bra.w L000ff0
  1317. L001124:
  1318. clr.b (a1)+
  1319. clr.b (a1)
  1320. clr.b (a2)+
  1321. clr.b (a2)
  1322. clr.b (a3)
  1323. clr.b (a4)
  1324. move.w d1,d0
  1325. movem.l (sp)+,d1/a0-a4
  1326. rts
  1327. L001138:
  1328. move.l d1,-(sp)
  1329. move.b #$01,d1
  1330. cmp.b #$72,d0 ;'r'
  1331. beq.s L001164
  1332. move.b #$02,d1
  1333. cmp.b #$68,d0 ;'h'
  1334. beq.s L001164
  1335. move.b #$04,d1
  1336. cmp.b #$73,d0 ;'s'
  1337. beq.s L001164
  1338. move.b #$20,d1 ;' '
  1339. cmp.b #$61,d0 ;'a'
  1340. beq.s L001164
  1341. clr.b d1
  1342. L001164:
  1343. move.b d1,d0
  1344. move.l (sp)+,d1
  1345. rts
  1346. L00116a:
  1347. move.l a0,-(sp)
  1348. L00116c:
  1349. move.b (a0)+,d0
  1350. cmpi.b #$20,d0 ;' '
  1351. beq.s L00116c
  1352. cmpi.b #$09,d0
  1353. beq.s L00116c
  1354. move.l a0,d0
  1355. movea.l (sp)+,a0
  1356. sub.l a0,d0
  1357. subq.l #1,d0
  1358. rts
  1359. L001184:
  1360. movem.l a0-a1,-(sp)
  1361. L001188:
  1362. move.b (a1)+,(a0)+
  1363. bne.s L001188
  1364. movem.l (sp)+,a0-a1
  1365. rts
  1366. L001192:
  1367. movem.l a0-a1,-(sp)
  1368. bra.s L00119c
  1369. L001198:
  1370. move.b (a1)+,(a0)+
  1371. beq.s L0011a2
  1372. L00119c:
  1373. dbra.w d0,L001198
  1374. clr.b (a0)
  1375. L0011a2:
  1376. movem.l (sp)+,a0-a1
  1377. rts
  1378. L0011a8:
  1379. movem.l a0-a1,-(sp)
  1380. L0011ac:
  1381. tst.b (a0)+
  1382. bne.s L0011ac
  1383. subq.l #1,a0
  1384. L0011b2:
  1385. move.b (a1)+,(a0)+
  1386. bne.s L0011b2
  1387. movem.l (sp)+,a0-a1
  1388. rts
  1389. L0011bc:
  1390. move.l a0,-(sp)
  1391. moveq.l #$ff,d0
  1392. L0011c0:
  1393. addq.l #1,d0
  1394. tst.b (a0)+
  1395. bne.s L0011c0
  1396. movea.l (sp)+,a0
  1397. rts
  1398. L0011ca:
  1399. movem.l d0-d1/a0,-(sp)
  1400. clr.b d1
  1401. L0011d0:
  1402. move.b (a0),d0
  1403. beq.s L00120a
  1404. tst.b d1
  1405. beq.s L0011dc
  1406. clr.b d1
  1407. bra.s L0011f2
  1408. L0011dc:
  1409. cmp.b #$80,d0
  1410. bcs.s L0011f6
  1411. cmp.b #$a0,d0
  1412. bcs.s L0011ee
  1413. cmp.b #$e0,d0
  1414. bcs.s L0011f6
  1415. L0011ee:
  1416. move.b #$01,d1
  1417. L0011f2:
  1418. addq.l #1,a0
  1419. bra.s L0011d0
  1420. L0011f6:
  1421. cmpi.b #$41,d0 ;'A'
  1422. bcs.s L001206
  1423. cmpi.b #$5a,d0 ;'Z'
  1424. bhi.s L001206
  1425. add.b #$20,d0 ;' '
  1426. L001206:
  1427. move.b d0,(a0)+
  1428. bra.s L0011d0
  1429. L00120a:
  1430. movem.l (sp)+,d0-d1/a0
  1431. rts
  1432. L001210:
  1433. cmpi.b #$61,d0 ;'a'
  1434. bcs.s L001220
  1435. cmpi.b #$7a,d0 ;'z'
  1436. bhi.s L001220
  1437. sub.b #$20,d0 ;' '
  1438. L001220:
  1439. rts
  1440. L001222:
  1441. movem.l d0-d1,-(sp)
  1442. clr.b d1
  1443. move.l a0,-(sp)
  1444. L00122a:
  1445. move.b (a0)+,d0
  1446. beq.s L00125e
  1447. tst.b d1
  1448. beq.s L001236
  1449. clr.b d1
  1450. bra.s L00122a
  1451. L001236:
  1452. cmp.b #$80,d0
  1453. bcs.s L00124e
  1454. cmp.b #$a0,d0
  1455. bcs.s L001248
  1456. cmp.b #$e0,d0
  1457. bcs.s L00124e
  1458. L001248:
  1459. move.b #$01,d1
  1460. bra.s L00122a
  1461. L00124e:
  1462. cmp.b #$5c,d0 ;'\'
  1463. beq.s L00125a
  1464. cmp.b #$3a,d0 ;':'
  1465. bne.s L00122a
  1466. L00125a:
  1467. move.l a0,(sp)
  1468. bra.s L00122a
  1469. L00125e:
  1470. movea.l (sp)+,a0
  1471. movem.l (sp)+,d0-d1
  1472. rts
  1473. L001266:
  1474. link.w a6,#-$0118
  1475. movem.l d0-d2/a0-a3,-(sp)
  1476. lea.l (-$0118,a6),a1
  1477. move.l a0,-(sp)
  1478. clr.w d1
  1479. move.b ($0001,a0),d0
  1480. cmp.b #$3a,d0 ;':'
  1481. bne.s L001290
  1482. move.b (a0)+,d0
  1483. bsr.s L001210
  1484. move.b d0,(a1)+
  1485. sub.b #$40,d0 ;'@'
  1486. move.b (a0)+,(a1)+
  1487. move.w d0,d1
  1488. bra.s L0012a0
  1489. L001290:
  1490. DOS _CURDRV
  1491. move.b d0,d1
  1492. addq.b #1,d1
  1493. add.b #$41,d0 ;'A'
  1494. move.b d0,(a1)+
  1495. move.b #$3a,(a1)+ ;':'
  1496. L0012a0:
  1497. movea.l a0,a2
  1498. clr.b d2
  1499. L0012a4:
  1500. move.b (a2)+,d0
  1501. beq.s L0012d6
  1502. tst.b d2
  1503. beq.s L0012b0
  1504. clr.b d2
  1505. bra.s L0012a4
  1506. L0012b0:
  1507. cmp.b #$80,d0
  1508. bcs.s L0012c8
  1509. cmp.b #$a0,d0
  1510. bcs.s L0012c2
  1511. cmp.b #$e0,d0
  1512. bcs.s L0012c8
  1513. L0012c2:
  1514. move.b #$01,d2
  1515. bra.s L0012a4
  1516. L0012c8:
  1517. cmp.b #$5c,d0 ;'\'
  1518. beq.s L0012d0
  1519. bra.s L0012a4
  1520. L0012d0:
  1521. cmpi.b #$5c,(a0) ;'\'
  1522. beq.s L0012f2
  1523. L0012d6:
  1524. move.b #$5c,(a1)+ ;'\'
  1525. move.l a1,-(sp)
  1526. move.w d1,-(sp)
  1527. DOS _CURDIR
  1528. addq.l #6,sp
  1529. movea.l a1,a2
  1530. L0012e4:
  1531. tst.b (a1)+
  1532. bne.s L0012e4
  1533. subq.l #1,a1
  1534. cmpa.l a1,a2
  1535. beq.s L0012f2
  1536. move.b #$5c,(a1)+ ;'\'
  1537. L0012f2:
  1538. move.b (a0)+,(a1)+
  1539. bne.s L0012f2
  1540. clr.b d2
  1541. movea.l (sp)+,a0
  1542. lea.l (-$0118,a6),a1
  1543. lea.l (sp),a3
  1544. clr.l -(sp)
  1545. L001302:
  1546. move.b (a1)+,d0
  1547. tst.b d2
  1548. beq.s L00130c
  1549. clr.b d2
  1550. bra.s L001358
  1551. L00130c:
  1552. cmp.b #$80,d0
  1553. bcs.s L001324
  1554. cmp.b #$a0,d0
  1555. bcs.s L00131e
  1556. cmp.b #$e0,d0
  1557. bcs.s L001324
  1558. L00131e:
  1559. move.b #$01,d2
  1560. bra.s L001358
  1561. L001324:
  1562. cmp.b #$5c,d0 ;'\'
  1563. bne.s L001358
  1564. cmpi.b #$2e,(a1) ;'.'
  1565. bne.s L001356
  1566. cmpi.b #$5c,($0001,a1) ;'\'
  1567. beq.s L001352
  1568. cmpi.b #$2e,($0001,a1) ;'.'
  1569. bne.s L001356
  1570. cmpi.b #$5c,($0002,a1) ;'\'
  1571. bne.s L001356
  1572. move.l (sp)+,d1
  1573. beq.s L001358
  1574. movea.l d1,a0
  1575. addq.l #2,a1
  1576. bra.s L001302
  1577. L001352:
  1578. addq.l #1,a1
  1579. bra.s L001302
  1580. L001356:
  1581. move.l a0,-(sp)
  1582. L001358:
  1583. move.b d0,(a0)+
  1584. bne.s L001302
  1585. lea.l (a3),sp
  1586. movem.l (sp)+,d0-d2/a0-a3
  1587. unlk a6
  1588. rts
  1589. L001366:
  1590. movem.l a0-a1,-(sp)
  1591. L00136a:
  1592. move.b (a0)+,d0
  1593. beq.s L00137c
  1594. cmp.b (a1)+,d0
  1595. beq.s L00136a
  1596. bcs.s L001378
  1597. moveq.l #$01,d0
  1598. bra.s L001382
  1599. L001378:
  1600. moveq.l #$ff,d0
  1601. bra.s L001382
  1602. L00137c:
  1603. tst.b (a1)
  1604. bne.s L001378
  1605. clr.l d0
  1606. L001382:
  1607. movem.l (sp)+,a0-a1
  1608. rts
  1609. L001388:
  1610. tst.b d0
  1611. beq.s L001398
  1612. tst.b (a0)
  1613. beq.s L00139a
  1614. L001390:
  1615. tst.b (a0)+
  1616. bne.s L001390
  1617. subq.b #1,d0
  1618. bra.s L001388
  1619. L001398:
  1620. tst.b (a0)
  1621. L00139a:
  1622. rts
  1623. L00139c:
  1624. bsr.s L0013a8
  1625. tst.b (a0)
  1626. bne.s L0013a6
  1627. bsr.w L001184
  1628. L0013a6:
  1629. rts
  1630. L0013a8:
  1631. tst.b (a0)
  1632. beq.s L0013b4
  1633. cmpi.b #$2e,(a0)+ ;'.'
  1634. bne.s L0013a8
  1635. subq.l #1,a0
  1636. L0013b4:
  1637. rts
  1638. L0013b6:
  1639. tst.b (a0)
  1640. beq.s L0013c2
  1641. cmpi.b #$20,(a0)+ ;' '
  1642. bne.s L0013b6
  1643. clr.b -(a0)
  1644. L0013c2:
  1645. rts
  1646. L0013c4:
  1647. movem.l d0-d2/a0-a1,-(sp)
  1648. bsr.s L0013de
  1649. bsr.s L001406
  1650. movem.l (sp)+,d0-d2/a0-a1
  1651. rts
  1652. L0013d2:
  1653. movem.l d0-d2/a0-a1,-(sp)
  1654. bsr.s L0013de
  1655. movem.l (sp)+,d0-d2/a0-a1
  1656. rts
  1657. L0013de:
  1658. movem.l a0,-(sp)
  1659. lea.l (L00155c),a1
  1660. L0013e8:
  1661. clr.b d2
  1662. move.l (a1)+,d1
  1663. beq.s L0013fe
  1664. L0013ee:
  1665. addq.b #1,d2
  1666. sub.l d1,d0
  1667. bcc.s L0013ee
  1668. add.l d1,d0
  1669. add.b #$2f,d2 ;'/'
  1670. move.b d2,(a0)+
  1671. bra.s L0013e8
  1672. L0013fe:
  1673. clr.b (a0)
  1674. movem.l (sp)+,a0
  1675. rts
  1676. L001406:
  1677. move.b (a0)+,d0
  1678. beq.s L00141c
  1679. cmp.b #$30,d0 ;'0'
  1680. bne.s L00141c
  1681. tst.b (a0)
  1682. beq.s L00141c
  1683. move.b #$20,(-$0001,a0) ;' '
  1684. bra.s L001406
  1685. L00141c:
  1686. rts
  1687. L00141e:
  1688. bra.s L001426
  1689. L001420:
  1690. move.l d0,-(sp)
  1691. bsr.s L001440
  1692. move.l (sp)+,d0
  1693. L001426:
  1694. dbra.w d0,L001420
  1695. rts
  1696. L00142c:
  1697. bsr.w L0011bc
  1698. move.l d0,-(sp)
  1699. move.l a0,-(sp)
  1700. move.w #$0002,-(sp)
  1701. DOS _WRITE
  1702. lea.l ($000a,sp),sp
  1703. rts
  1704. L001440:
  1705. move.w #$0020,-(sp) ;' '
  1706. DOS _PUTCHAR
  1707. addq.l #2,sp
  1708. rts
  1709. L00144a:
  1710. link.w a6,#-$0118
  1711. movem.l d0-d1/a0,-(sp)
  1712. lea.l (-$0118,a6),a0
  1713. move.l d0,d1
  1714. lsr.l #8,d0
  1715. lsr.l #1,d0
  1716. and.l #$0000003f,d0
  1717. add.l #$00000050,d0
  1718. bsr.w L0013c4
  1719. pea.l ($0008,a0)
  1720. DOS _PRINT
  1721. addq.l #4,sp
  1722. move.w #$002d,-(sp) ;'-'
  1723. DOS _PUTCHAR
  1724. addq.l #2,sp
  1725. move.l d1,d0
  1726. lsr.l #5,d0
  1727. and.l #$0000000f,d0
  1728. bsr.w L0013d2
  1729. pea.l ($0008,a0)
  1730. DOS _PRINT
  1731. addq.l #4,sp
  1732. move.w #$002d,-(sp) ;'-'
  1733. DOS _PUTCHAR
  1734. addq.l #2,sp
  1735. move.l d1,d0
  1736. and.l #$0000001f,d0
  1737. bsr.w L0013d2
  1738. pea.l ($0008,a0)
  1739. DOS _PRINT
  1740. addq.l #4,sp
  1741. movem.l (sp)+,d0-d1/a0
  1742. unlk a6
  1743. rts
  1744. L0014b6:
  1745. link.w a6,#-$0118
  1746. movem.l d0-d1/a0,-(sp)
  1747. lea.l (-$0118,a6),a0
  1748. move.l d0,d1
  1749. lsr.l #8,d0
  1750. lsr.l #3,d0
  1751. and.l #$0000001f,d0
  1752. bsr.w L0013c4
  1753. pea.l ($0008,a0)
  1754. DOS _PRINT
  1755. addq.l #4,sp
  1756. move.w #$003a,-(sp) ;':'
  1757. DOS _PUTCHAR
  1758. addq.l #2,sp
  1759. move.l d1,d0
  1760. lsr.l #5,d0
  1761. and.l #$0000003f,d0
  1762. bsr.w L0013d2
  1763. pea.l ($0008,a0)
  1764. DOS _PRINT
  1765. addq.l #4,sp
  1766. move.w #$003a,-(sp) ;':'
  1767. DOS _PUTCHAR
  1768. addq.l #2,sp
  1769. move.l d1,d0
  1770. and.l #$0000001f,d0
  1771. lsl.l #1,d0
  1772. bsr.w L0013d2
  1773. pea.l ($0008,a0)
  1774. DOS _PRINT
  1775. addq.l #4,sp
  1776. movem.l (sp)+,d0-d1/a0
  1777. unlk a6
  1778. rts
  1779. L00151e:
  1780. move.b d0,d1
  1781. clr.w d0
  1782. move.b #$41,d0 ;'A'
  1783. move.b #$05,d2
  1784. bsr.s L00154c
  1785. move.b #$53,d0 ;'S'
  1786. move.b #$02,d2
  1787. bsr.s L00154c
  1788. move.b #$48,d0 ;'H'
  1789. move.b #$01,d2
  1790. bsr.s L00154c
  1791. move.b #$52,d0 ;'R'
  1792. move.b #$00,d2
  1793. bsr.s L00154c
  1794. rts
  1795. L00154c:
  1796. btst.l d2,d1
  1797. bne.s L001554
  1798. move.b #$2d,d0 ;'-'
  1799. L001554:
  1800. move.w d0,-(sp)
  1801. DOS _PUTCHAR
  1802. addq.l #2,sp
  1803. rts
  1804. .data
  1805. L00155c:
  1806. .dc.b $3b,$9a,$ca,$00,$05,$f5,$e1,$00
  1807. .dc.b $00,$98,$96,$80,$00,$0f,$42,$40
  1808. .dc.b $00,$01,$86,$a0,$00,$00,$27,$10
  1809. .dc.b $00,$00,$03,$e8,$00,$00,$00,$64
  1810. .dc.b $00,$00,$00,$0a,$00,$00,$00,$01
  1811. .dc.b $00,$00,$00,$00
  1812. L001588:
  1813. .dc.b 'X68k Binder v1.00 Copyright 1989 SHARP/Hudson',$0d,$0a,$00
  1814. L0015b8:
  1815. .dc.b '使用法:bind[スイッチ]ファイル名[ファイル名・・]',$0d,$0a
  1816. .dc.b $09,'/u',$09,'ファイルの更新(ディフォルト)',$0d,$0a
  1817. .dc.b $09,'/x',$09,'Xファイルの取り出し',$0d,$0a
  1818. .dc.b $09,'/d',$09,'Xファイルの削除',$0d,$0a
  1819. .dc.b $09,'/l',$09,'リスト出力',$0d,$0a
  1820. .dc.b $09,'/o file',$09,'バインドファイル名指定',$0d,$0a
  1821. .dc.b $09,'/t path',$09,'テンポラリパス名指定',$0d,$0a
  1822. .dc.b $0d,$0a
  1823. .dc.b $09,'/u /x /d /lのスイッチはどれか一つを指定します',$0d,$0a
  1824. .dc.b $09,'/lスイッチを付けた時はバインドファイルのみ指定します',$0d,$0a
  1825. .dc.b $09,'/oスイッチを省略すると最初のファイルを操作します',$0d,$0a,$00
  1826. L00172f:
  1827. .dc.b 'bind:ファイル名がありません',$0d,$0a,$00
  1828. L00174d:
  1829. .dc.b 'bind:ファイルが見つかりません',$0d,$0a,$00
  1830. L00176d:
  1831. .dc.b 'bind:すべてを削除することはできません',$0d,$0a,$00
  1832. L001795:
  1833. .dc.b 'bind:書き込みは禁止されています',$0d,$0a,$00
  1834. L0017b7:
  1835. .dc.b 'bind:Xファイルの構造が不正です',$0d,$0a,$00
  1836. L0017d9:
  1837. .dc.b 'bind:バインドファイルの構造が不正です',$0d,$0a,$00
  1838. L001801:
  1839. .dc.b 'bind:ファイルはバインドされていません',$0d,$0a,$00
  1840. L001829:
  1841. .dc.b 'bind:テンポラリファイルが作成できません',$0d,$0a,$00
  1842. L001853:
  1843. .dc.b 'bind:取り出したXファイルが作成できません',$0d,$0a,$00
  1844. L00187f:
  1845. .dc.b 'bind:取り出すXファイル名とバインドファイル名が重複しています',$0d,$0a,$00
  1846. L0018bf:
  1847. .dc.b 'bind:メモリが不足しています',$0d,$0a,$00
  1848. L0018dd:
  1849. .dc.b 'bind:バインドファイルが作成できません',$0d,$0a,$00
  1850. L001905:
  1851. .dc.b 'bind:削除すべきXファイルは含まれていません',$0d,$0a,$00
  1852. L001933:
  1853. .dc.b 'bind:取り出すべきXファイルは含まれていません',$0d,$0a,$00
  1854. L001963:
  1855. .dc.b 'bind:バインドされているXファイルはバインドできません',$0d,$0a,$00
  1856. L00199b:
  1857. .dc.b 'File <',$00
  1858. L0019a2:
  1859. .dc.b '>',$0d,$0a,$00
  1860. L0019a6:
  1861. .dc.b '=No= =name= =length= =date= =time= =at=',$0d,$0a,$00
  1862. L0019e6:
  1863. .dc.b '-system reserved file- ---------- -------- --:--:-- ----'
  1864. L001a1e:
  1865. .dc.b $0d,$0a,$00
  1866. L001a21:
  1867. .dc.b 'ファイル作成 ',$00
  1868. L001a2f:
  1869. .dc.b 'ファイル読込 ',$00
  1870. L001a3d:
  1871. .dc.b 'ファイル消去 ',$00
  1872. L001a4b:
  1873. .dc.b 'モジュール削除 ',$00
  1874. L001a5b:
  1875. .dc.b 'モジュール取出 ',$00
  1876. L001a6b:
  1877. .dc.b 'モジュール更新 ',$00
  1878. L001a7b:
  1879. .dc.b 'モジュール追加 ',$00
  1880. L001a8b:
  1881. .dc.b 'モジュール作成 ',$00
  1882. L001a9b:
  1883. .dc.b $2e,$78,$00
  1884. L001a9e:
  1885. .dc.b 'bind.$$$',$00
  1886. L001aa7:
  1887. .dc.b 'temp',$00
  1888. L001aac:
  1889. .dc.b $5c
  1890. L001aad:
  1891. .dc.b '*.*',$00,$00
  1892. .bss
  1893. L001ab2:
  1894. .ds.b 60
  1895. L001aee:
  1896. .ds.b 72
  1897. L001b36:
  1898. .ds.l 1
  1899. L001b3a:
  1900. .ds.l 1
  1901. L001b3e:
  1902. .ds.l 1
  1903. L001b42:
  1904. .ds.w 1
  1905. L001b44:
  1906. .ds.w 1
  1907. L001b46:
  1908. .ds.w 1
  1909. L001b48:
  1910. .ds.w 1
  1911. L001b4a:
  1912. .ds.b 280
  1913. L001c62:
  1914. .ds.b 280
  1915. L001d7a:
  1916. .ds.b 280
  1917. L001e92:
  1918. .ds.b 160
  1919. L001f32:
  1920. .ds.b 21
  1921. L001f47:
  1922. .ds.b 1
  1923. L001f48:
  1924. .ds.b 1
  1925. L001f49:
  1926. .ds.b 1
  1927. L001f4a:
  1928. .ds.b 1
  1929. L001f4b:
  1930. .ds.b 1
  1931. L001f4c:
  1932. .ds.l 1
  1933. L001f50:
  1934. .ds.b 30
  1935. L001f6e:
  1936. .ds.b 28
  1937. L001f8a:
  1938. .ds.l 1
  1939. L001f8e:
  1940. .ds.b 28
  1941. L001faa:
  1942. .ds.l 1
  1943. L001fae:
  1944. .ds.b 1
  1945. L001faf:
  1946. .ds.b 1
  1947. L001fb0:
  1948. .ds.b 1
  1949. L001fb1:
  1950. .ds.b 1
  1951. L001fb2:
  1952. .ds.b 1
  1953. L001fb3:
  1954. .ds.b 1
  1955. L001fb4:
  1956. .ds.b 1
  1957. L001fb5:
  1958. .ds.b 1
  1959. L001fb6:
  1960. .ds.b 1
  1961. L001fb7:
  1962. .ds.b 1
  1963. L001fb8:
  1964. .ds.b 1
  1965. L001fb9:
  1966. .ds.b 1
  1967. L001fba:
  1968. .ds.b 1
  1969. L001fbb:
  1970. .ds.b 3073
  1971. End:
  1972. .end Start